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


extern obj_t BGl_compilerzd2ifzd2zzjvm_compilerz00(BgL_conditionalz00_bglt, BgL_envz00_bglt, obj_t);
extern obj_t BGl_vrefz00zzast_nodez00;
static obj_t BGl_methodzd2initzd2zzjvm_predicatez00();
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_compilezd2predicatezd2atom3028z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2var3030z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_compilerzd2labelszd2zzjvm_compilerz00(BgL_letzd2funzd2_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl_compilezd2predicatezd2select3040z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_pragmaz00zzast_nodez00;
static obj_t BGl_compilezd2predicatezd2pragma3050z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2funcall3048z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2setfield3054z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_globalz00zzast_varz00;
extern obj_t BGl_compilerzd2castzd2zzjvm_compilerz00(BgL_castz00_bglt, BgL_envz00_bglt, obj_t);
static obj_t BGl_compilezd2predicatezd2new3056z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzjvm_predicatez00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_compilezd2predicatezd2fail3074z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compz00zzjvm_predicatez00(obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2appzd2ly3046zd2zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzjvm_predicatez00();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_compilezd2predicatezd2vlength3064z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_inlinezd2predzf3z21zzjvm_inlinez00;
extern obj_t BGl_compilezd2effectzd2zzjvm_effectz00(BgL_nodez00_bglt, BgL_envz00_bglt);
static obj_t BGl_compilezd2predicatezd2conditional3038z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_getfieldz00zzast_nodez00;
extern obj_t BGl_isaz00zzast_nodez00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_compilerzd2selectzd2zzjvm_compilerz00(BgL_selectz00_bglt, BgL_envz00_bglt, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzjvm_predicatez00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_compilezd2predicatezd2getfield3052z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2makezd2box3076zd2zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzjvm_predicatez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_classz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_instrz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_exprz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_effectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_compilerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjvm_inlinez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
extern obj_t BGl__ifz00zzjvm_instrz00(obj_t, BgL_envz00_bglt, obj_t);
static obj_t BGl_compilezd2predicatezd2valloc3058z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2boxzd2ref3078zd2zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__compilezd2predicate3713zd2zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_comp_3717z00zzjvm_predicatez00(obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2cast3068z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2jumpzd2exzd2it3072z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_comp_3720z00zzjvm_predicatez00(obj_t, obj_t, obj_t);
static obj_t BGl_comp_3723z00zzjvm_predicatez00(obj_t, obj_t, obj_t);
static obj_t BGl_comp_3726z00zzjvm_predicatez00(obj_t, obj_t, obj_t);
static obj_t BGl_comp_3729z00zzjvm_predicatez00(obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2app3044z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_newz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
extern obj_t BGl_compilerzd2letzd2zzjvm_compilerz00(BgL_letzd2varzd2_bglt, BgL_envz00_bglt, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_compilezd2predicatezd2setzd2exzd2it3070z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2vsetz123062z12zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_compilerzd2sequencezd2zzjvm_compilerz00(BgL_sequencez00_bglt, BgL_envz00_bglt, obj_t);
extern obj_t BGl_vlengthz00zzast_nodez00;
static obj_t BGl__compilezd2predicatezd2default3024z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2letzd2var3032zd2zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_compilezd2predicatezd2zzjvm_predicatez00(BgL_nodez00_bglt, obj_t, obj_t, BgL_envz00_bglt);
extern obj_t BGl_setfieldz00zzast_nodez00;
static obj_t BGl_compilezd2predicatezd2isa3066z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2vref3060z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2sequence3036z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_compilezd2predicatezd2setq3034z00zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzjvm_predicatez00 = BUNSPEC;
static obj_t BGl_compilezd2predicatezd2letzd2fun3042zd2zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl__gotoz00zzjvm_instrz00(BgL_envz00_bglt, obj_t);
extern obj_t BGl_compilezd2exprzd2zzjvm_exprz00(BgL_nodez00_bglt, BgL_envz00_bglt);
static obj_t BGl_compilezd2predicatezd2default3024z00zzjvm_predicatez00(BgL_nodez00_bglt, obj_t, obj_t, BgL_envz00_bglt);
static obj_t BGl_libraryzd2moduleszd2initz00zzjvm_predicatez00();
extern obj_t BGl_vsetz12z12zzast_nodez00;
static obj_t BGl_compilezd2predicatezd2boxzd2setz123080zc0zzjvm_predicatez00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 3 ] ;


DEFINE_STATIC_PROCEDURE( BGl_proc4016z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2pragma3050za700za7za7jvm_predicateza7004059z00, BGl_compilezd2predicatezd2pragma3050z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4017z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2getfield3052za700za7za7jvm_predicateza7004060z00, BGl_compilezd2predicatezd2getfield3052z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4018z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2setfield3054za700za7za7jvm_predicateza7004061z00, BGl_compilezd2predicatezd2setfield3054z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4020z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2valloc3058za700za7za7jvm_predicateza7004062z00, BGl_compilezd2predicatezd2valloc3058z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4019z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2new3056za700za7za7jvm_predicateza7004063z00, BGl_compilezd2predicatezd2new3056z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4021z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2vref3060za700za7za7jvm_predicateza7004064z00, BGl_compilezd2predicatezd2vref3060z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4022z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2vsetza7123062za712za7za7jvm_predicateza7004065za7, BGl_compilezd2predicatezd2vsetz123062z12zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4023z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2vlength3064za700za7za7jvm_predicateza7004066z00, BGl_compilezd2predicatezd2vlength3064z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4024z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2isa3066za700za7za7jvm_predicateza7004067z00, BGl_compilezd2predicatezd2isa3066z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4025z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2cast3068za700za7za7jvm_predicateza7004068z00, BGl_compilezd2predicatezd2cast3068z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4026z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2setza7d2exza7d2it3070za700za7za7jvm_predicateza7004069z00, BGl_compilezd2predicatezd2setzd2exzd2it3070z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4027z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2jumpza7d2exza7d2it3072za700za7za7jvm_predicateza7004070z00, BGl_compilezd2predicatezd2jumpzd2exzd2it3072z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4028z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2fail3074za700za7za7jvm_predicateza7004071z00, BGl_compilezd2predicatezd2fail3074z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4030z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2boxza7d2ref3078za7d2za7za7jvm_predicateza7004072za7, BGl_compilezd2predicatezd2boxzd2ref3078zd2zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4029z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2makeza7d2box3076za7d2za7za7jvm_predicateza7004073za7, BGl_compilezd2predicatezd2makezd2box3076zd2zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4031z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2boxza7d2setza7123080za7c0za7za7jvm_predicateza7004074z00, BGl_compilezd2predicatezd2boxzd2setz123080zc0zzjvm_predicatez00, 0L, 4 );
DEFINE_EXPORT_GENERIC( BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BgL_bgl__compileza7d2predicate3713za7d2za7za7jvm_predicateza7004075za7, BGl__compilezd2predicate3713zd2zzjvm_predicatez00, 0L, 4 );
DEFINE_STRING( BGl_string4033z00zzjvm_predicatez00, BgL_bgl_string4033za700za7za7jvm_predicateza7004076z00, "compile-predicate-default3024 ok eq ", 36 );
DEFINE_STRING( BGl_string4032z00zzjvm_predicatez00, BgL_bgl_string4032za700za7za7jvm_predicateza7004077z00, "No method for this object", 25 );
DEFINE_STATIC_PROCEDURE( BGl_compilezd2predicatezd2default3024zd2envzd2zzjvm_predicatez00, BgL_bgl__compileza7d2predicateza7d2default3024za700za7za7jvm_predicateza7004078z00, BGl__compilezd2predicatezd2default3024z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4005z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2atom3028za700za7za7jvm_predicateza7004079z00, BGl_compilezd2predicatezd2atom3028z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4006z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2var3030za700za7za7jvm_predicateza7004080z00, BGl_compilezd2predicatezd2var3030z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4007z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2letza7d2var3032za7d2za7za7jvm_predicateza7004081za7, BGl_compilezd2predicatezd2letzd2var3032zd2zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4008z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2setq3034za700za7za7jvm_predicateza7004082z00, BGl_compilezd2predicatezd2setq3034z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4010z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2conditional3038za700za7za7jvm_predicateza7004083z00, BGl_compilezd2predicatezd2conditional3038z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4009z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2sequence3036za700za7za7jvm_predicateza7004084z00, BGl_compilezd2predicatezd2sequence3036z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4011z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2select3040za700za7za7jvm_predicateza7004085z00, BGl_compilezd2predicatezd2select3040z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4012z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2letza7d2fun3042za7d2za7za7jvm_predicateza7004086za7, BGl_compilezd2predicatezd2letzd2fun3042zd2zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4013z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2app3044za700za7za7jvm_predicateza7004087z00, BGl_compilezd2predicatezd2app3044z00zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4014z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2appza7d2ly3046za7d2za7za7jvm_predicateza7004088za7, BGl_compilezd2predicatezd2appzd2ly3046zd2zzjvm_predicatez00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc4015z00zzjvm_predicatez00, BgL_bgl_compileza7d2predicateza7d2funcall3048za700za7za7jvm_predicateza7004089z00, BGl_compilezd2predicatezd2funcall3048z00zzjvm_predicatez00, 0L, 4 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzjvm_predicatez00(long BgL_checksumz00_2081, char * BgL_fromz00_2082)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzjvm_predicatez00))
{ 
BGl_requirezd2initializa7ationz75zzjvm_predicatez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzjvm_predicatez00(); 
BGl_cnstzd2initzd2zzjvm_predicatez00(); 
BGl_importedzd2moduleszd2initz00zzjvm_predicatez00(); 
BGl_methodzd2initzd2zzjvm_predicatez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzjvm_predicatez00()
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 2 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "jvm_predicate"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "jvm_predicate"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzjvm_predicatez00()
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 2 */
{ /* ./Jvm/predicate.scm 2 */
obj_t BgL_cportz00_2074;
BgL_cportz00_2074 = 
open_input_string(BGl_string4033z00zzjvm_predicatez00); 
{ 
long BgL_iz00_2075;
BgL_iz00_2075 = ((long)2); 
BgL_loopz00_2076:
{ /* ./Jvm/predicate.scm 2 */
bool_t BgL_test4035z00_2077;
BgL_test4035z00_2077 = 
(BgL_iz00_2075==((long)-1)); 
if(BgL_test4035z00_2077)
{ /* ./Jvm/predicate.scm 2 */
return BUNSPEC;}  else 
{ /* ./Jvm/predicate.scm 2 */
{ /* ./Jvm/predicate.scm 2 */
obj_t BgL_arg4037z00_2078;
{ /* ./Jvm/predicate.scm 2 */
obj_t BgL_list4040z00_2079;
BgL_list4040z00_2079 = 
MAKE_PAIR(BgL_cportz00_2074, BNIL); 
BgL_arg4037z00_2078 = 
BGl_readz00zz__readerz00(BgL_list4040z00_2079); } 
{ /* ./Jvm/predicate.scm 2 */
int BgL_auxz00_2097;
BgL_auxz00_2097 = 
(int)(BgL_iz00_2075); 
CNST_TABLE_SET(BgL_auxz00_2097, BgL_arg4037z00_2078); } } 
{ /* ./Jvm/predicate.scm 2 */
int BgL_auxz00_2080;
{ /* ./Jvm/predicate.scm 2 */
long BgL_auxz00_2100;
BgL_auxz00_2100 = 
(BgL_iz00_2075-((long)1)); 
BgL_auxz00_2080 = 
(int)(BgL_auxz00_2100); } 
{ 
long BgL_iz00_2103;
BgL_iz00_2103 = 
(long)(BgL_auxz00_2080); 
BgL_iz00_2075 = BgL_iz00_2103; 
goto BgL_loopz00_2076;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzjvm_predicatez00()
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 2 */
return BUNSPEC;} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzjvm_predicatez00()
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 2 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_compilezd2predicatezd2default3024zd2envzd2zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_atomz00zzast_nodez00, BGl_proc4005z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_varz00zzast_nodez00, BGl_proc4006z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_letzd2varzd2zzast_nodez00, BGl_proc4007z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_setqz00zzast_nodez00, BGl_proc4008z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_sequencez00zzast_nodez00, BGl_proc4009z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_conditionalz00zzast_nodez00, BGl_proc4010z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_selectz00zzast_nodez00, BGl_proc4011z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_letzd2funzd2zzast_nodez00, BGl_proc4012z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_appz00zzast_nodez00, BGl_proc4013z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4014z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_funcallz00zzast_nodez00, BGl_proc4015z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_pragmaz00zzast_nodez00, BGl_proc4016z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_getfieldz00zzast_nodez00, BGl_proc4017z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_setfieldz00zzast_nodez00, BGl_proc4018z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_newz00zzast_nodez00, BGl_proc4019z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_vallocz00zzast_nodez00, BGl_proc4020z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_vrefz00zzast_nodez00, BGl_proc4021z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_vsetz12z12zzast_nodez00, BGl_proc4022z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_vlengthz00zzast_nodez00, BGl_proc4023z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_isaz00zzast_nodez00, BGl_proc4024z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_castz00zzast_nodez00, BGl_proc4025z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4026z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4027z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_failz00zzast_nodez00, BGl_proc4028z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4029z00zzjvm_predicatez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4030z00zzjvm_predicatez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4031z00zzjvm_predicatez00);} 
}



/* compile-predicate-box-set!3080 */
obj_t BGl_compilezd2predicatezd2boxzd2setz123080zc0zzjvm_predicatez00(obj_t BgL_envz00_1904, obj_t BgL_ez00_1905, obj_t BgL_tz00_1906, obj_t BgL_fz00_1907, obj_t BgL_envz00_1908)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 115 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_ez00_1552;obj_t BgL_tz00_1553;obj_t BgL_fz00_1554;BgL_envz00_bglt BgL_envz00_1555;
BgL_ez00_1552 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_ez00_1905); 
BgL_tz00_1553 = BgL_tz00_1906; 
BgL_fz00_1554 = BgL_fz00_1907; 
BgL_envz00_1555 = 
(BgL_envz00_bglt)(BgL_envz00_1908); 
{ /* ./Jvm/predicate.scm 116 */
BgL_nodez00_bglt BgL_ez00_1835;
BgL_ez00_1835 = 
(BgL_nodez00_bglt)(BgL_ez00_1552); 
BGl_compilezd2effectzd2zzjvm_effectz00(BgL_ez00_1835, BgL_envz00_1555); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1555, BgL_tz00_1553);} } } 
}



/* compile-predicate-box-ref3078 */
obj_t BGl_compilezd2predicatezd2boxzd2ref3078zd2zzjvm_predicatez00(obj_t BgL_envz00_1909, obj_t BgL_ez00_1910, obj_t BgL_tz00_1911, obj_t BgL_fz00_1912, obj_t BgL_envz00_1913)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 112 */
{ 
BgL_boxzd2refzd2_bglt BgL_ez00_1544;obj_t BgL_tz00_1545;obj_t BgL_fz00_1546;BgL_envz00_bglt BgL_envz00_1547;
BgL_ez00_1544 = 
(BgL_boxzd2refzd2_bglt)(BgL_ez00_1910); 
BgL_tz00_1545 = BgL_tz00_1911; 
BgL_fz00_1546 = BgL_fz00_1912; 
BgL_envz00_1547 = 
(BgL_envz00_bglt)(BgL_envz00_1913); 
{ /* ./Jvm/predicate.scm 113 */
BgL_nodez00_bglt BgL_ez00_1831;
BgL_ez00_1831 = 
(BgL_nodez00_bglt)(BgL_ez00_1544); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1831, BgL_envz00_1547); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1547, BgL_fz00_1546); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1547, BgL_tz00_1545);} } } 
}



/* compile-predicate-make-box3076 */
obj_t BGl_compilezd2predicatezd2makezd2box3076zd2zzjvm_predicatez00(obj_t BgL_envz00_1914, obj_t BgL_ez00_1915, obj_t BgL_tz00_1916, obj_t BgL_fz00_1917, obj_t BgL_envz00_1918)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 109 */
{ 
BgL_makezd2boxzd2_bglt BgL_ez00_1536;obj_t BgL_tz00_1537;obj_t BgL_fz00_1538;BgL_envz00_bglt BgL_envz00_1539;
BgL_ez00_1536 = 
(BgL_makezd2boxzd2_bglt)(BgL_ez00_1915); 
BgL_tz00_1537 = BgL_tz00_1916; 
BgL_fz00_1538 = BgL_fz00_1917; 
BgL_envz00_1539 = 
(BgL_envz00_bglt)(BgL_envz00_1918); 
{ /* ./Jvm/predicate.scm 110 */
BgL_nodez00_bglt BgL_ez00_1828;
BgL_ez00_1828 = 
(BgL_nodez00_bglt)(BgL_ez00_1536); 
BGl_compilezd2effectzd2zzjvm_effectz00(BgL_ez00_1828, BgL_envz00_1539); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1539, BgL_tz00_1537);} } } 
}



/* compile-predicate-fail3074 */
obj_t BGl_compilezd2predicatezd2fail3074z00zzjvm_predicatez00(obj_t BgL_envz00_1919, obj_t BgL_ez00_1920, obj_t BgL_tz00_1921, obj_t BgL_fz00_1922, obj_t BgL_envz00_1923)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 106 */
{ 
BgL_failz00_bglt BgL_ez00_1528;obj_t BgL_tz00_1529;obj_t BgL_fz00_1530;BgL_envz00_bglt BgL_envz00_1531;
BgL_ez00_1528 = 
(BgL_failz00_bglt)(BgL_ez00_1920); 
BgL_tz00_1529 = BgL_tz00_1921; 
BgL_fz00_1530 = BgL_fz00_1922; 
BgL_envz00_1531 = 
(BgL_envz00_bglt)(BgL_envz00_1923); 
{ /* ./Jvm/predicate.scm 107 */
BgL_nodez00_bglt BgL_ez00_1824;
BgL_ez00_1824 = 
(BgL_nodez00_bglt)(BgL_ez00_1528); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1824, BgL_envz00_1531); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1531, BgL_fz00_1530); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1531, BgL_tz00_1529);} } } 
}



/* compile-predicate-jump-ex-it3072 */
obj_t BGl_compilezd2predicatezd2jumpzd2exzd2it3072z00zzjvm_predicatez00(obj_t BgL_envz00_1924, obj_t BgL_ez00_1925, obj_t BgL_tz00_1926, obj_t BgL_fz00_1927, obj_t BgL_envz00_1928)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 103 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_ez00_1520;obj_t BgL_tz00_1521;obj_t BgL_fz00_1522;BgL_envz00_bglt BgL_envz00_1523;
BgL_ez00_1520 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_ez00_1925); 
BgL_tz00_1521 = BgL_tz00_1926; 
BgL_fz00_1522 = BgL_fz00_1927; 
BgL_envz00_1523 = 
(BgL_envz00_bglt)(BgL_envz00_1928); 
{ /* ./Jvm/predicate.scm 104 */
BgL_nodez00_bglt BgL_ez00_1820;
BgL_ez00_1820 = 
(BgL_nodez00_bglt)(BgL_ez00_1520); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1820, BgL_envz00_1523); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1523, BgL_fz00_1522); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1523, BgL_tz00_1521);} } } 
}



/* compile-predicate-set-ex-it3070 */
obj_t BGl_compilezd2predicatezd2setzd2exzd2it3070z00zzjvm_predicatez00(obj_t BgL_envz00_1929, obj_t BgL_ez00_1930, obj_t BgL_tz00_1931, obj_t BgL_fz00_1932, obj_t BgL_envz00_1933)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 100 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_ez00_1512;obj_t BgL_tz00_1513;obj_t BgL_fz00_1514;BgL_envz00_bglt BgL_envz00_1515;
BgL_ez00_1512 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_ez00_1930); 
BgL_tz00_1513 = BgL_tz00_1931; 
BgL_fz00_1514 = BgL_fz00_1932; 
BgL_envz00_1515 = 
(BgL_envz00_bglt)(BgL_envz00_1933); 
{ /* ./Jvm/predicate.scm 101 */
BgL_nodez00_bglt BgL_ez00_1816;
BgL_ez00_1816 = 
(BgL_nodez00_bglt)(BgL_ez00_1512); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1816, BgL_envz00_1515); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1515, BgL_fz00_1514); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1515, BgL_tz00_1513);} } } 
}



/* compile-predicate-cast3068 */
obj_t BGl_compilezd2predicatezd2cast3068z00zzjvm_predicatez00(obj_t BgL_envz00_1934, obj_t BgL_ez00_1935, obj_t BgL_tz00_1936, obj_t BgL_fz00_1937, obj_t BgL_envz00_1938)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 96 */
{ 
BgL_castz00_bglt BgL_ez00_1499;obj_t BgL_tz00_1500;obj_t BgL_fz00_1501;BgL_envz00_bglt BgL_envz00_1502;
BgL_ez00_1499 = 
(BgL_castz00_bglt)(BgL_ez00_1935); 
BgL_tz00_1500 = BgL_tz00_1936; 
BgL_fz00_1501 = BgL_fz00_1937; 
BgL_envz00_1502 = 
(BgL_envz00_bglt)(BgL_envz00_1938); 
{ /* ./Jvm/predicate.scm 97 */
obj_t BgL_compz00_1872;
{ 
int BgL_auxz00_2173;int BgL_auxz00_2171;
BgL_auxz00_2173 = 
(int)(((long)2)); 
BgL_auxz00_2171 = 
(int)(((long)2)); 
BgL_compz00_1872 = 
make_fx_procedure(BGl_compz00zzjvm_predicatez00, BgL_auxz00_2171, BgL_auxz00_2173); } 
{ /* ./Jvm/predicate.scm 97 */
int BgL_auxz00_2176;
BgL_auxz00_2176 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_compz00_1872, BgL_auxz00_2176, BgL_tz00_1500); } 
{ /* ./Jvm/predicate.scm 97 */
int BgL_auxz00_2179;
BgL_auxz00_2179 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_compz00_1872, BgL_auxz00_2179, BgL_fz00_1501); } 
return 
BGl_compilerzd2castzd2zzjvm_compilerz00(BgL_ez00_1499, BgL_envz00_1502, BgL_compz00_1872);} } } 
}



/* comp */
obj_t BGl_compz00zzjvm_predicatez00(obj_t BgL_envz00_1939, obj_t BgL_ez00_1942, obj_t BgL_envz00_1943)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 97 */
{ /* ./Jvm/predicate.scm 97 */
obj_t BgL_tz00_1940;obj_t BgL_fz00_1941;
{ /* ./Jvm/predicate.scm 97 */
int BgL_auxz00_2185;
BgL_auxz00_2185 = 
(int)(((long)0)); 
BgL_tz00_1940 = 
PROCEDURE_REF(BgL_envz00_1939, BgL_auxz00_2185); } 
{ /* ./Jvm/predicate.scm 97 */
int BgL_auxz00_2188;
BgL_auxz00_2188 = 
(int)(((long)1)); 
BgL_fz00_1941 = 
PROCEDURE_REF(BgL_envz00_1939, BgL_auxz00_2188); } 
{ 
obj_t BgL_ez00_1785;obj_t BgL_envz00_1786;
BgL_ez00_1785 = BgL_ez00_1942; 
BgL_envz00_1786 = BgL_envz00_1943; 
{ /* ./Jvm/predicate.scm 97 */
BgL_nodez00_bglt BgL_ez00_1787;BgL_envz00_bglt BgL_envz00_1790;
BgL_ez00_1787 = 
(BgL_nodez00_bglt)(BgL_ez00_1785); 
BgL_envz00_1790 = 
(BgL_envz00_bglt)(BgL_envz00_1786); 
{ /* ./Jvm/predicate.scm 97 */
obj_t BgL_method3026z00_1791;
{ /* ./Jvm/predicate.scm 97 */
BgL_objectz00_bglt BgL_objz00_1792;
BgL_objz00_1792 = 
(BgL_objectz00_bglt)(BgL_ez00_1787); 
{ /* ./Jvm/predicate.scm 97 */
long BgL_objzd2classzd2numz00_1793;
BgL_objzd2classzd2numz00_1793 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1792); 
{ /* ./Jvm/predicate.scm 97 */
obj_t BgL_arg2017z00_1794;
{ /* ./Jvm/predicate.scm 97 */
int BgL_auxz00_2195;
BgL_auxz00_2195 = 
(int)(((long)1)); 
BgL_arg2017z00_1794 = 
PROCEDURE_REF(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BgL_auxz00_2195); } 
{ /* ./Jvm/predicate.scm 97 */
int BgL_offsetz00_1797;
BgL_offsetz00_1797 = 
(int)(BgL_objzd2classzd2numz00_1793); 
{ /* ./Jvm/predicate.scm 97 */
long BgL_offsetz00_1798;
{ /* ./Jvm/predicate.scm 97 */
long BgL_auxz00_2199;
BgL_auxz00_2199 = 
(long)(BgL_offsetz00_1797); 
BgL_offsetz00_1798 = 
(BgL_auxz00_2199-OBJECT_TYPE); } 
{ /* ./Jvm/predicate.scm 97 */
long BgL_modz00_1799;
{ /* ./Jvm/predicate.scm 97 */
int BgL_arg2028z00_1800;
BgL_arg2028z00_1800 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 97 */
long BgL_n2z00_1808;
BgL_n2z00_1808 = 
(long)(BgL_arg2028z00_1800); 
BgL_modz00_1799 = 
(BgL_offsetz00_1798/BgL_n2z00_1808); } } 
{ /* ./Jvm/predicate.scm 97 */
long BgL_restz00_1801;
{ /* ./Jvm/predicate.scm 97 */
int BgL_arg2024z00_1802;
BgL_arg2024z00_1802 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 97 */
long BgL_n2z00_1811;
BgL_n2z00_1811 = 
(long)(BgL_arg2024z00_1802); 
BgL_restz00_1801 = 
(BgL_offsetz00_1798%BgL_n2z00_1811); } } 
{ /* ./Jvm/predicate.scm 97 */

{ /* ./Jvm/predicate.scm 97 */
obj_t BgL_bucketz00_1803;
{ /* ./Jvm/predicate.scm 97 */
int BgL_kz00_1813;
BgL_kz00_1813 = 
(int)(BgL_modz00_1799); 
BgL_bucketz00_1803 = 
VECTOR_REF(BgL_arg2017z00_1794,BgL_kz00_1813); } 
{ /* ./Jvm/predicate.scm 97 */
int BgL_kz00_1815;
BgL_kz00_1815 = 
(int)(BgL_restz00_1801); 
BgL_method3026z00_1791 = 
VECTOR_REF(BgL_bucketz00_1803,BgL_kz00_1815); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3026z00_1791)(BgL_method3026z00_1791, 
(obj_t)(BgL_ez00_1787), BgL_tz00_1940, BgL_fz00_1941, 
(obj_t)(BgL_envz00_1790), BEOA);} } } } } 
}



/* compile-predicate-isa3066 */
obj_t BGl_compilezd2predicatezd2isa3066z00zzjvm_predicatez00(obj_t BgL_envz00_1944, obj_t BgL_ez00_1945, obj_t BgL_tz00_1946, obj_t BgL_fz00_1947, obj_t BgL_envz00_1948)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 93 */
{ 
BgL_isaz00_bglt BgL_ez00_1491;obj_t BgL_tz00_1492;obj_t BgL_fz00_1493;BgL_envz00_bglt BgL_envz00_1494;
BgL_ez00_1491 = 
(BgL_isaz00_bglt)(BgL_ez00_1945); 
BgL_tz00_1492 = BgL_tz00_1946; 
BgL_fz00_1493 = BgL_fz00_1947; 
BgL_envz00_1494 = 
(BgL_envz00_bglt)(BgL_envz00_1948); 
{ /* ./Jvm/predicate.scm 94 */
BgL_nodez00_bglt BgL_ez00_1780;
BgL_ez00_1780 = 
(BgL_nodez00_bglt)(BgL_ez00_1491); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1780, BgL_envz00_1494); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1494, BgL_fz00_1493); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1494, BgL_tz00_1492);} } } 
}



/* compile-predicate-vlength3064 */
obj_t BGl_compilezd2predicatezd2vlength3064z00zzjvm_predicatez00(obj_t BgL_envz00_1949, obj_t BgL_ez00_1950, obj_t BgL_tz00_1951, obj_t BgL_fz00_1952, obj_t BgL_envz00_1953)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 90 */
{ 
BgL_vlengthz00_bglt BgL_ez00_1483;obj_t BgL_tz00_1484;obj_t BgL_fz00_1485;BgL_envz00_bglt BgL_envz00_1486;
BgL_ez00_1483 = 
(BgL_vlengthz00_bglt)(BgL_ez00_1950); 
BgL_tz00_1484 = BgL_tz00_1951; 
BgL_fz00_1485 = BgL_fz00_1952; 
BgL_envz00_1486 = 
(BgL_envz00_bglt)(BgL_envz00_1953); 
{ /* ./Jvm/predicate.scm 91 */
BgL_nodez00_bglt BgL_ez00_1776;
BgL_ez00_1776 = 
(BgL_nodez00_bglt)(BgL_ez00_1483); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1776, BgL_envz00_1486); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1486, BgL_fz00_1485); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1486, BgL_tz00_1484);} } } 
}



/* compile-predicate-vset!3062 */
obj_t BGl_compilezd2predicatezd2vsetz123062z12zzjvm_predicatez00(obj_t BgL_envz00_1954, obj_t BgL_ez00_1955, obj_t BgL_tz00_1956, obj_t BgL_fz00_1957, obj_t BgL_envz00_1958)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 87 */
{ 
BgL_vsetz12z12_bglt BgL_ez00_1475;obj_t BgL_tz00_1476;obj_t BgL_fz00_1477;BgL_envz00_bglt BgL_envz00_1478;
BgL_ez00_1475 = 
(BgL_vsetz12z12_bglt)(BgL_ez00_1955); 
BgL_tz00_1476 = BgL_tz00_1956; 
BgL_fz00_1477 = BgL_fz00_1957; 
BgL_envz00_1478 = 
(BgL_envz00_bglt)(BgL_envz00_1958); 
{ /* ./Jvm/predicate.scm 88 */
BgL_nodez00_bglt BgL_ez00_1773;
BgL_ez00_1773 = 
(BgL_nodez00_bglt)(BgL_ez00_1475); 
BGl_compilezd2effectzd2zzjvm_effectz00(BgL_ez00_1773, BgL_envz00_1478); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1478, BgL_tz00_1476);} } } 
}



/* compile-predicate-vref3060 */
obj_t BGl_compilezd2predicatezd2vref3060z00zzjvm_predicatez00(obj_t BgL_envz00_1959, obj_t BgL_ez00_1960, obj_t BgL_tz00_1961, obj_t BgL_fz00_1962, obj_t BgL_envz00_1963)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 84 */
{ 
BgL_vrefz00_bglt BgL_ez00_1467;obj_t BgL_tz00_1468;obj_t BgL_fz00_1469;BgL_envz00_bglt BgL_envz00_1470;
BgL_ez00_1467 = 
(BgL_vrefz00_bglt)(BgL_ez00_1960); 
BgL_tz00_1468 = BgL_tz00_1961; 
BgL_fz00_1469 = BgL_fz00_1962; 
BgL_envz00_1470 = 
(BgL_envz00_bglt)(BgL_envz00_1963); 
{ /* ./Jvm/predicate.scm 85 */
BgL_nodez00_bglt BgL_ez00_1769;
BgL_ez00_1769 = 
(BgL_nodez00_bglt)(BgL_ez00_1467); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1769, BgL_envz00_1470); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1470, BgL_fz00_1469); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1470, BgL_tz00_1468);} } } 
}



/* compile-predicate-valloc3058 */
obj_t BGl_compilezd2predicatezd2valloc3058z00zzjvm_predicatez00(obj_t BgL_envz00_1964, obj_t BgL_ez00_1965, obj_t BgL_tz00_1966, obj_t BgL_fz00_1967, obj_t BgL_envz00_1968)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 81 */
{ 
BgL_vallocz00_bglt BgL_ez00_1459;obj_t BgL_tz00_1460;obj_t BgL_fz00_1461;BgL_envz00_bglt BgL_envz00_1462;
BgL_ez00_1459 = 
(BgL_vallocz00_bglt)(BgL_ez00_1965); 
BgL_tz00_1460 = BgL_tz00_1966; 
BgL_fz00_1461 = BgL_fz00_1967; 
BgL_envz00_1462 = 
(BgL_envz00_bglt)(BgL_envz00_1968); 
{ /* ./Jvm/predicate.scm 82 */
BgL_nodez00_bglt BgL_ez00_1766;
BgL_ez00_1766 = 
(BgL_nodez00_bglt)(BgL_ez00_1459); 
BGl_compilezd2effectzd2zzjvm_effectz00(BgL_ez00_1766, BgL_envz00_1462); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1462, BgL_tz00_1460);} } } 
}



/* compile-predicate-new3056 */
obj_t BGl_compilezd2predicatezd2new3056z00zzjvm_predicatez00(obj_t BgL_envz00_1969, obj_t BgL_ez00_1970, obj_t BgL_tz00_1971, obj_t BgL_fz00_1972, obj_t BgL_envz00_1973)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 78 */
{ 
BgL_newz00_bglt BgL_ez00_1451;obj_t BgL_tz00_1452;obj_t BgL_fz00_1453;BgL_envz00_bglt BgL_envz00_1454;
BgL_ez00_1451 = 
(BgL_newz00_bglt)(BgL_ez00_1970); 
BgL_tz00_1452 = BgL_tz00_1971; 
BgL_fz00_1453 = BgL_fz00_1972; 
BgL_envz00_1454 = 
(BgL_envz00_bglt)(BgL_envz00_1973); 
{ /* ./Jvm/predicate.scm 79 */
BgL_nodez00_bglt BgL_ez00_1763;
BgL_ez00_1763 = 
(BgL_nodez00_bglt)(BgL_ez00_1451); 
BGl_compilezd2effectzd2zzjvm_effectz00(BgL_ez00_1763, BgL_envz00_1454); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1454, BgL_tz00_1452);} } } 
}



/* compile-predicate-setfield3054 */
obj_t BGl_compilezd2predicatezd2setfield3054z00zzjvm_predicatez00(obj_t BgL_envz00_1974, obj_t BgL_ez00_1975, obj_t BgL_tz00_1976, obj_t BgL_fz00_1977, obj_t BgL_envz00_1978)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 75 */
{ 
BgL_setfieldz00_bglt BgL_ez00_1443;obj_t BgL_tz00_1444;obj_t BgL_fz00_1445;BgL_envz00_bglt BgL_envz00_1446;
BgL_ez00_1443 = 
(BgL_setfieldz00_bglt)(BgL_ez00_1975); 
BgL_tz00_1444 = BgL_tz00_1976; 
BgL_fz00_1445 = BgL_fz00_1977; 
BgL_envz00_1446 = 
(BgL_envz00_bglt)(BgL_envz00_1978); 
{ /* ./Jvm/predicate.scm 76 */
BgL_nodez00_bglt BgL_ez00_1760;
BgL_ez00_1760 = 
(BgL_nodez00_bglt)(BgL_ez00_1443); 
BGl_compilezd2effectzd2zzjvm_effectz00(BgL_ez00_1760, BgL_envz00_1446); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1446, BgL_tz00_1444);} } } 
}



/* compile-predicate-getfield3052 */
obj_t BGl_compilezd2predicatezd2getfield3052z00zzjvm_predicatez00(obj_t BgL_envz00_1979, obj_t BgL_ez00_1980, obj_t BgL_tz00_1981, obj_t BgL_fz00_1982, obj_t BgL_envz00_1983)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 72 */
{ 
BgL_getfieldz00_bglt BgL_ez00_1435;obj_t BgL_tz00_1436;obj_t BgL_fz00_1437;BgL_envz00_bglt BgL_envz00_1438;
BgL_ez00_1435 = 
(BgL_getfieldz00_bglt)(BgL_ez00_1980); 
BgL_tz00_1436 = BgL_tz00_1981; 
BgL_fz00_1437 = BgL_fz00_1982; 
BgL_envz00_1438 = 
(BgL_envz00_bglt)(BgL_envz00_1983); 
{ /* ./Jvm/predicate.scm 73 */
BgL_nodez00_bglt BgL_ez00_1756;
BgL_ez00_1756 = 
(BgL_nodez00_bglt)(BgL_ez00_1435); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1756, BgL_envz00_1438); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1438, BgL_fz00_1437); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1438, BgL_tz00_1436);} } } 
}



/* compile-predicate-pragma3050 */
obj_t BGl_compilezd2predicatezd2pragma3050z00zzjvm_predicatez00(obj_t BgL_envz00_1984, obj_t BgL_ez00_1985, obj_t BgL_tz00_1986, obj_t BgL_fz00_1987, obj_t BgL_envz00_1988)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 69 */
{ 
BgL_pragmaz00_bglt BgL_ez00_1427;obj_t BgL_tz00_1428;obj_t BgL_fz00_1429;BgL_envz00_bglt BgL_envz00_1430;
BgL_ez00_1427 = 
(BgL_pragmaz00_bglt)(BgL_ez00_1985); 
BgL_tz00_1428 = BgL_tz00_1986; 
BgL_fz00_1429 = BgL_fz00_1987; 
BgL_envz00_1430 = 
(BgL_envz00_bglt)(BgL_envz00_1988); 
{ /* ./Jvm/predicate.scm 70 */
BgL_nodez00_bglt BgL_ez00_1752;
BgL_ez00_1752 = 
(BgL_nodez00_bglt)(BgL_ez00_1427); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1752, BgL_envz00_1430); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1430, BgL_fz00_1429); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1430, BgL_tz00_1428);} } } 
}



/* compile-predicate-funcall3048 */
obj_t BGl_compilezd2predicatezd2funcall3048z00zzjvm_predicatez00(obj_t BgL_envz00_1989, obj_t BgL_ez00_1990, obj_t BgL_tz00_1991, obj_t BgL_fz00_1992, obj_t BgL_envz00_1993)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 66 */
{ 
BgL_funcallz00_bglt BgL_ez00_1419;obj_t BgL_tz00_1420;obj_t BgL_fz00_1421;BgL_envz00_bglt BgL_envz00_1422;
BgL_ez00_1419 = 
(BgL_funcallz00_bglt)(BgL_ez00_1990); 
BgL_tz00_1420 = BgL_tz00_1991; 
BgL_fz00_1421 = BgL_fz00_1992; 
BgL_envz00_1422 = 
(BgL_envz00_bglt)(BgL_envz00_1993); 
{ /* ./Jvm/predicate.scm 67 */
BgL_nodez00_bglt BgL_ez00_1748;
BgL_ez00_1748 = 
(BgL_nodez00_bglt)(BgL_ez00_1419); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1748, BgL_envz00_1422); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1422, BgL_fz00_1421); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1422, BgL_tz00_1420);} } } 
}



/* compile-predicate-app-ly3046 */
obj_t BGl_compilezd2predicatezd2appzd2ly3046zd2zzjvm_predicatez00(obj_t BgL_envz00_1994, obj_t BgL_ez00_1995, obj_t BgL_tz00_1996, obj_t BgL_fz00_1997, obj_t BgL_envz00_1998)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 63 */
{ 
BgL_appzd2lyzd2_bglt BgL_ez00_1411;obj_t BgL_tz00_1412;obj_t BgL_fz00_1413;BgL_envz00_bglt BgL_envz00_1414;
BgL_ez00_1411 = 
(BgL_appzd2lyzd2_bglt)(BgL_ez00_1995); 
BgL_tz00_1412 = BgL_tz00_1996; 
BgL_fz00_1413 = BgL_fz00_1997; 
BgL_envz00_1414 = 
(BgL_envz00_bglt)(BgL_envz00_1998); 
{ /* ./Jvm/predicate.scm 64 */
BgL_nodez00_bglt BgL_ez00_1744;
BgL_ez00_1744 = 
(BgL_nodez00_bglt)(BgL_ez00_1411); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1744, BgL_envz00_1414); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1414, BgL_fz00_1413); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1414, BgL_tz00_1412);} } } 
}



/* compile-predicate-app3044 */
obj_t BGl_compilezd2predicatezd2app3044z00zzjvm_predicatez00(obj_t BgL_envz00_1999, obj_t BgL_ez00_2000, obj_t BgL_tz00_2001, obj_t BgL_fz00_2002, obj_t BgL_envz00_2003)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 56 */
{ 
BgL_appz00_bglt BgL_ez00_1397;obj_t BgL_tz00_1398;obj_t BgL_fz00_1399;BgL_envz00_bglt BgL_envz00_1400;
BgL_ez00_1397 = 
(BgL_appz00_bglt)(BgL_ez00_2000); 
BgL_tz00_1398 = BgL_tz00_2001; 
BgL_fz00_1399 = BgL_fz00_2002; 
BgL_envz00_1400 = 
(BgL_envz00_bglt)(BgL_envz00_2003); 
{ /* ./Jvm/predicate.scm 58 */
BgL_variablez00_bglt BgL_vz00_1404;
{ /* ./Jvm/predicate.scm 58 */
BgL_varz00_bglt BgL_arg3550z00_1408;
BgL_arg3550z00_1408 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_1397))->BgL_funz00); 
BgL_vz00_1404 = 
(((BgL_varz00_bglt)CREF(BgL_arg3550z00_1408))->BgL_variablez00); } 
{ /* ./Jvm/predicate.scm 59 */
bool_t BgL_test3541z00_1405;
{ /* ./Jvm/predicate.scm 59 */
bool_t BgL_test3543z00_1406;
{ /* ./Jvm/predicate.scm 59 */
obj_t BgL_obj1240z00_1738;
BgL_obj1240z00_1738 = 
(obj_t)(BgL_vz00_1404); 
BgL_test3543z00_1406 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1738, BGl_globalz00zzast_varz00); } 
if(BgL_test3543z00_1406)
{ /* ./Jvm/predicate.scm 59 */
obj_t BgL_arg3545z00_1407;
BgL_arg3545z00_1407 = 
(((BgL_appz00_bglt)CREF(BgL_ez00_1397))->BgL_argsz00); 
{ /* ./Jvm/predicate.scm 59 */
obj_t BgL_auxz00_2291;
BgL_auxz00_2291 = 
PROCEDURE_ENTRY(BGl_inlinezd2predzf3z21zzjvm_inlinez00)(BGl_inlinezd2predzf3z21zzjvm_inlinez00, 
(obj_t)(BgL_vz00_1404), BgL_arg3545z00_1407, BgL_tz00_1398, BgL_fz00_1399, 
(obj_t)(BgL_envz00_1400), BEOA); 
BgL_test3541z00_1405 = 
CBOOL(BgL_auxz00_2291); } }  else 
{ /* ./Jvm/predicate.scm 59 */
BgL_test3541z00_1405 = ((bool_t)0); } } 
if(BgL_test3541z00_1405)
{ /* ./Jvm/predicate.scm 59 */
return 
CNST_TABLE_REF(((long)1));}  else 
{ /* ./Jvm/predicate.scm 61 */
BgL_nodez00_bglt BgL_ez00_1740;
BgL_ez00_1740 = 
(BgL_nodez00_bglt)(BgL_ez00_1397); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1740, BgL_envz00_1400); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1400, BgL_fz00_1399); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1400, BgL_tz00_1398);} } } } } 
}



/* compile-predicate-let-fun3042 */
obj_t BGl_compilezd2predicatezd2letzd2fun3042zd2zzjvm_predicatez00(obj_t BgL_envz00_2004, obj_t BgL_ez00_2005, obj_t BgL_tz00_2006, obj_t BgL_fz00_2007, obj_t BgL_envz00_2008)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 52 */
{ 
BgL_letzd2funzd2_bglt BgL_ez00_1384;obj_t BgL_tz00_1385;obj_t BgL_fz00_1386;BgL_envz00_bglt BgL_envz00_1387;
BgL_ez00_1384 = 
(BgL_letzd2funzd2_bglt)(BgL_ez00_2005); 
BgL_tz00_1385 = BgL_tz00_2006; 
BgL_fz00_1386 = BgL_fz00_2007; 
BgL_envz00_1387 = 
(BgL_envz00_bglt)(BgL_envz00_2008); 
{ /* ./Jvm/predicate.scm 53 */
obj_t BgL_compz00_1891;
{ 
int BgL_auxz00_2308;int BgL_auxz00_2306;
BgL_auxz00_2308 = 
(int)(((long)2)); 
BgL_auxz00_2306 = 
(int)(((long)2)); 
BgL_compz00_1891 = 
make_fx_procedure(BGl_comp_3717z00zzjvm_predicatez00, BgL_auxz00_2306, BgL_auxz00_2308); } 
{ /* ./Jvm/predicate.scm 53 */
int BgL_auxz00_2311;
BgL_auxz00_2311 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_compz00_1891, BgL_auxz00_2311, BgL_tz00_1385); } 
{ /* ./Jvm/predicate.scm 53 */
int BgL_auxz00_2314;
BgL_auxz00_2314 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_compz00_1891, BgL_auxz00_2314, BgL_fz00_1386); } 
return 
BGl_compilerzd2labelszd2zzjvm_compilerz00(BgL_ez00_1384, BgL_envz00_1387, BgL_compz00_1891);} } } 
}



/* comp_3717 */
obj_t BGl_comp_3717z00zzjvm_predicatez00(obj_t BgL_envz00_2009, obj_t BgL_ez00_2012, obj_t BgL_envz00_2013)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 53 */
{ /* ./Jvm/predicate.scm 53 */
obj_t BgL_tz00_2010;obj_t BgL_fz00_2011;
{ /* ./Jvm/predicate.scm 53 */
int BgL_auxz00_2320;
BgL_auxz00_2320 = 
(int)(((long)0)); 
BgL_tz00_2010 = 
PROCEDURE_REF(BgL_envz00_2009, BgL_auxz00_2320); } 
{ /* ./Jvm/predicate.scm 53 */
int BgL_auxz00_2323;
BgL_auxz00_2323 = 
(int)(((long)1)); 
BgL_fz00_2011 = 
PROCEDURE_REF(BgL_envz00_2009, BgL_auxz00_2323); } 
{ 
obj_t BgL_ez00_1705;obj_t BgL_envz00_1706;
BgL_ez00_1705 = BgL_ez00_2012; 
BgL_envz00_1706 = BgL_envz00_2013; 
{ /* ./Jvm/predicate.scm 53 */
BgL_nodez00_bglt BgL_ez00_1707;BgL_envz00_bglt BgL_envz00_1710;
BgL_ez00_1707 = 
(BgL_nodez00_bglt)(BgL_ez00_1705); 
BgL_envz00_1710 = 
(BgL_envz00_bglt)(BgL_envz00_1706); 
{ /* ./Jvm/predicate.scm 53 */
obj_t BgL_method3026z00_1711;
{ /* ./Jvm/predicate.scm 53 */
BgL_objectz00_bglt BgL_objz00_1712;
BgL_objz00_1712 = 
(BgL_objectz00_bglt)(BgL_ez00_1707); 
{ /* ./Jvm/predicate.scm 53 */
long BgL_objzd2classzd2numz00_1713;
BgL_objzd2classzd2numz00_1713 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1712); 
{ /* ./Jvm/predicate.scm 53 */
obj_t BgL_arg2017z00_1714;
{ /* ./Jvm/predicate.scm 53 */
int BgL_auxz00_2330;
BgL_auxz00_2330 = 
(int)(((long)1)); 
BgL_arg2017z00_1714 = 
PROCEDURE_REF(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BgL_auxz00_2330); } 
{ /* ./Jvm/predicate.scm 53 */
int BgL_offsetz00_1717;
BgL_offsetz00_1717 = 
(int)(BgL_objzd2classzd2numz00_1713); 
{ /* ./Jvm/predicate.scm 53 */
long BgL_offsetz00_1718;
{ /* ./Jvm/predicate.scm 53 */
long BgL_auxz00_2334;
BgL_auxz00_2334 = 
(long)(BgL_offsetz00_1717); 
BgL_offsetz00_1718 = 
(BgL_auxz00_2334-OBJECT_TYPE); } 
{ /* ./Jvm/predicate.scm 53 */
long BgL_modz00_1719;
{ /* ./Jvm/predicate.scm 53 */
int BgL_arg2028z00_1720;
BgL_arg2028z00_1720 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 53 */
long BgL_n2z00_1728;
BgL_n2z00_1728 = 
(long)(BgL_arg2028z00_1720); 
BgL_modz00_1719 = 
(BgL_offsetz00_1718/BgL_n2z00_1728); } } 
{ /* ./Jvm/predicate.scm 53 */
long BgL_restz00_1721;
{ /* ./Jvm/predicate.scm 53 */
int BgL_arg2024z00_1722;
BgL_arg2024z00_1722 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 53 */
long BgL_n2z00_1731;
BgL_n2z00_1731 = 
(long)(BgL_arg2024z00_1722); 
BgL_restz00_1721 = 
(BgL_offsetz00_1718%BgL_n2z00_1731); } } 
{ /* ./Jvm/predicate.scm 53 */

{ /* ./Jvm/predicate.scm 53 */
obj_t BgL_bucketz00_1723;
{ /* ./Jvm/predicate.scm 53 */
int BgL_kz00_1733;
BgL_kz00_1733 = 
(int)(BgL_modz00_1719); 
BgL_bucketz00_1723 = 
VECTOR_REF(BgL_arg2017z00_1714,BgL_kz00_1733); } 
{ /* ./Jvm/predicate.scm 53 */
int BgL_kz00_1735;
BgL_kz00_1735 = 
(int)(BgL_restz00_1721); 
BgL_method3026z00_1711 = 
VECTOR_REF(BgL_bucketz00_1723,BgL_kz00_1735); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3026z00_1711)(BgL_method3026z00_1711, 
(obj_t)(BgL_ez00_1707), BgL_tz00_2010, BgL_fz00_2011, 
(obj_t)(BgL_envz00_1710), BEOA);} } } } } 
}



/* compile-predicate-select3040 */
obj_t BGl_compilezd2predicatezd2select3040z00zzjvm_predicatez00(obj_t BgL_envz00_2014, obj_t BgL_ez00_2015, obj_t BgL_tz00_2016, obj_t BgL_fz00_2017, obj_t BgL_envz00_2018)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 48 */
{ 
BgL_selectz00_bglt BgL_ez00_1371;obj_t BgL_tz00_1372;obj_t BgL_fz00_1373;BgL_envz00_bglt BgL_envz00_1374;
BgL_ez00_1371 = 
(BgL_selectz00_bglt)(BgL_ez00_2015); 
BgL_tz00_1372 = BgL_tz00_2016; 
BgL_fz00_1373 = BgL_fz00_2017; 
BgL_envz00_1374 = 
(BgL_envz00_bglt)(BgL_envz00_2018); 
{ /* ./Jvm/predicate.scm 49 */
obj_t BgL_compz00_1893;
{ 
int BgL_auxz00_2353;int BgL_auxz00_2351;
BgL_auxz00_2353 = 
(int)(((long)2)); 
BgL_auxz00_2351 = 
(int)(((long)2)); 
BgL_compz00_1893 = 
make_fx_procedure(BGl_comp_3720z00zzjvm_predicatez00, BgL_auxz00_2351, BgL_auxz00_2353); } 
{ /* ./Jvm/predicate.scm 49 */
int BgL_auxz00_2356;
BgL_auxz00_2356 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_compz00_1893, BgL_auxz00_2356, BgL_tz00_1372); } 
{ /* ./Jvm/predicate.scm 49 */
int BgL_auxz00_2359;
BgL_auxz00_2359 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_compz00_1893, BgL_auxz00_2359, BgL_fz00_1373); } 
return 
BGl_compilerzd2selectzd2zzjvm_compilerz00(BgL_ez00_1371, BgL_envz00_1374, BgL_compz00_1893);} } } 
}



/* comp_3720 */
obj_t BGl_comp_3720z00zzjvm_predicatez00(obj_t BgL_envz00_2019, obj_t BgL_ez00_2022, obj_t BgL_envz00_2023)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 49 */
{ /* ./Jvm/predicate.scm 49 */
obj_t BgL_tz00_2020;obj_t BgL_fz00_2021;
{ /* ./Jvm/predicate.scm 49 */
int BgL_auxz00_2365;
BgL_auxz00_2365 = 
(int)(((long)0)); 
BgL_tz00_2020 = 
PROCEDURE_REF(BgL_envz00_2019, BgL_auxz00_2365); } 
{ /* ./Jvm/predicate.scm 49 */
int BgL_auxz00_2368;
BgL_auxz00_2368 = 
(int)(((long)1)); 
BgL_fz00_2021 = 
PROCEDURE_REF(BgL_envz00_2019, BgL_auxz00_2368); } 
{ 
obj_t BgL_ez00_1673;obj_t BgL_envz00_1674;
BgL_ez00_1673 = BgL_ez00_2022; 
BgL_envz00_1674 = BgL_envz00_2023; 
{ /* ./Jvm/predicate.scm 49 */
BgL_nodez00_bglt BgL_ez00_1675;BgL_envz00_bglt BgL_envz00_1678;
BgL_ez00_1675 = 
(BgL_nodez00_bglt)(BgL_ez00_1673); 
BgL_envz00_1678 = 
(BgL_envz00_bglt)(BgL_envz00_1674); 
{ /* ./Jvm/predicate.scm 49 */
obj_t BgL_method3026z00_1679;
{ /* ./Jvm/predicate.scm 49 */
BgL_objectz00_bglt BgL_objz00_1680;
BgL_objz00_1680 = 
(BgL_objectz00_bglt)(BgL_ez00_1675); 
{ /* ./Jvm/predicate.scm 49 */
long BgL_objzd2classzd2numz00_1681;
BgL_objzd2classzd2numz00_1681 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1680); 
{ /* ./Jvm/predicate.scm 49 */
obj_t BgL_arg2017z00_1682;
{ /* ./Jvm/predicate.scm 49 */
int BgL_auxz00_2375;
BgL_auxz00_2375 = 
(int)(((long)1)); 
BgL_arg2017z00_1682 = 
PROCEDURE_REF(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BgL_auxz00_2375); } 
{ /* ./Jvm/predicate.scm 49 */
int BgL_offsetz00_1685;
BgL_offsetz00_1685 = 
(int)(BgL_objzd2classzd2numz00_1681); 
{ /* ./Jvm/predicate.scm 49 */
long BgL_offsetz00_1686;
{ /* ./Jvm/predicate.scm 49 */
long BgL_auxz00_2379;
BgL_auxz00_2379 = 
(long)(BgL_offsetz00_1685); 
BgL_offsetz00_1686 = 
(BgL_auxz00_2379-OBJECT_TYPE); } 
{ /* ./Jvm/predicate.scm 49 */
long BgL_modz00_1687;
{ /* ./Jvm/predicate.scm 49 */
int BgL_arg2028z00_1688;
BgL_arg2028z00_1688 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 49 */
long BgL_n2z00_1696;
BgL_n2z00_1696 = 
(long)(BgL_arg2028z00_1688); 
BgL_modz00_1687 = 
(BgL_offsetz00_1686/BgL_n2z00_1696); } } 
{ /* ./Jvm/predicate.scm 49 */
long BgL_restz00_1689;
{ /* ./Jvm/predicate.scm 49 */
int BgL_arg2024z00_1690;
BgL_arg2024z00_1690 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 49 */
long BgL_n2z00_1699;
BgL_n2z00_1699 = 
(long)(BgL_arg2024z00_1690); 
BgL_restz00_1689 = 
(BgL_offsetz00_1686%BgL_n2z00_1699); } } 
{ /* ./Jvm/predicate.scm 49 */

{ /* ./Jvm/predicate.scm 49 */
obj_t BgL_bucketz00_1691;
{ /* ./Jvm/predicate.scm 49 */
int BgL_kz00_1701;
BgL_kz00_1701 = 
(int)(BgL_modz00_1687); 
BgL_bucketz00_1691 = 
VECTOR_REF(BgL_arg2017z00_1682,BgL_kz00_1701); } 
{ /* ./Jvm/predicate.scm 49 */
int BgL_kz00_1703;
BgL_kz00_1703 = 
(int)(BgL_restz00_1689); 
BgL_method3026z00_1679 = 
VECTOR_REF(BgL_bucketz00_1691,BgL_kz00_1703); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3026z00_1679)(BgL_method3026z00_1679, 
(obj_t)(BgL_ez00_1675), BgL_tz00_2020, BgL_fz00_2021, 
(obj_t)(BgL_envz00_1678), BEOA);} } } } } 
}



/* compile-predicate-conditional3038 */
obj_t BGl_compilezd2predicatezd2conditional3038z00zzjvm_predicatez00(obj_t BgL_envz00_2024, obj_t BgL_ez00_2025, obj_t BgL_tz00_2026, obj_t BgL_fz00_2027, obj_t BgL_envz00_2028)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 44 */
{ 
BgL_conditionalz00_bglt BgL_ez00_1358;obj_t BgL_tz00_1359;obj_t BgL_fz00_1360;BgL_envz00_bglt BgL_envz00_1361;
BgL_ez00_1358 = 
(BgL_conditionalz00_bglt)(BgL_ez00_2025); 
BgL_tz00_1359 = BgL_tz00_2026; 
BgL_fz00_1360 = BgL_fz00_2027; 
BgL_envz00_1361 = 
(BgL_envz00_bglt)(BgL_envz00_2028); 
{ /* ./Jvm/predicate.scm 45 */
obj_t BgL_compz00_1895;
{ 
int BgL_auxz00_2398;int BgL_auxz00_2396;
BgL_auxz00_2398 = 
(int)(((long)2)); 
BgL_auxz00_2396 = 
(int)(((long)2)); 
BgL_compz00_1895 = 
make_fx_procedure(BGl_comp_3723z00zzjvm_predicatez00, BgL_auxz00_2396, BgL_auxz00_2398); } 
{ /* ./Jvm/predicate.scm 45 */
int BgL_auxz00_2401;
BgL_auxz00_2401 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_compz00_1895, BgL_auxz00_2401, BgL_tz00_1359); } 
{ /* ./Jvm/predicate.scm 45 */
int BgL_auxz00_2404;
BgL_auxz00_2404 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_compz00_1895, BgL_auxz00_2404, BgL_fz00_1360); } 
return 
BGl_compilerzd2ifzd2zzjvm_compilerz00(BgL_ez00_1358, BgL_envz00_1361, BgL_compz00_1895);} } } 
}



/* comp_3723 */
obj_t BGl_comp_3723z00zzjvm_predicatez00(obj_t BgL_envz00_2029, obj_t BgL_ez00_2032, obj_t BgL_envz00_2033)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 45 */
{ /* ./Jvm/predicate.scm 45 */
obj_t BgL_tz00_2030;obj_t BgL_fz00_2031;
{ /* ./Jvm/predicate.scm 45 */
int BgL_auxz00_2410;
BgL_auxz00_2410 = 
(int)(((long)0)); 
BgL_tz00_2030 = 
PROCEDURE_REF(BgL_envz00_2029, BgL_auxz00_2410); } 
{ /* ./Jvm/predicate.scm 45 */
int BgL_auxz00_2413;
BgL_auxz00_2413 = 
(int)(((long)1)); 
BgL_fz00_2031 = 
PROCEDURE_REF(BgL_envz00_2029, BgL_auxz00_2413); } 
{ 
obj_t BgL_ez00_1641;obj_t BgL_envz00_1642;
BgL_ez00_1641 = BgL_ez00_2032; 
BgL_envz00_1642 = BgL_envz00_2033; 
{ /* ./Jvm/predicate.scm 45 */
BgL_nodez00_bglt BgL_ez00_1643;BgL_envz00_bglt BgL_envz00_1646;
BgL_ez00_1643 = 
(BgL_nodez00_bglt)(BgL_ez00_1641); 
BgL_envz00_1646 = 
(BgL_envz00_bglt)(BgL_envz00_1642); 
{ /* ./Jvm/predicate.scm 45 */
obj_t BgL_method3026z00_1647;
{ /* ./Jvm/predicate.scm 45 */
BgL_objectz00_bglt BgL_objz00_1648;
BgL_objz00_1648 = 
(BgL_objectz00_bglt)(BgL_ez00_1643); 
{ /* ./Jvm/predicate.scm 45 */
long BgL_objzd2classzd2numz00_1649;
BgL_objzd2classzd2numz00_1649 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1648); 
{ /* ./Jvm/predicate.scm 45 */
obj_t BgL_arg2017z00_1650;
{ /* ./Jvm/predicate.scm 45 */
int BgL_auxz00_2420;
BgL_auxz00_2420 = 
(int)(((long)1)); 
BgL_arg2017z00_1650 = 
PROCEDURE_REF(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BgL_auxz00_2420); } 
{ /* ./Jvm/predicate.scm 45 */
int BgL_offsetz00_1653;
BgL_offsetz00_1653 = 
(int)(BgL_objzd2classzd2numz00_1649); 
{ /* ./Jvm/predicate.scm 45 */
long BgL_offsetz00_1654;
{ /* ./Jvm/predicate.scm 45 */
long BgL_auxz00_2424;
BgL_auxz00_2424 = 
(long)(BgL_offsetz00_1653); 
BgL_offsetz00_1654 = 
(BgL_auxz00_2424-OBJECT_TYPE); } 
{ /* ./Jvm/predicate.scm 45 */
long BgL_modz00_1655;
{ /* ./Jvm/predicate.scm 45 */
int BgL_arg2028z00_1656;
BgL_arg2028z00_1656 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 45 */
long BgL_n2z00_1664;
BgL_n2z00_1664 = 
(long)(BgL_arg2028z00_1656); 
BgL_modz00_1655 = 
(BgL_offsetz00_1654/BgL_n2z00_1664); } } 
{ /* ./Jvm/predicate.scm 45 */
long BgL_restz00_1657;
{ /* ./Jvm/predicate.scm 45 */
int BgL_arg2024z00_1658;
BgL_arg2024z00_1658 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 45 */
long BgL_n2z00_1667;
BgL_n2z00_1667 = 
(long)(BgL_arg2024z00_1658); 
BgL_restz00_1657 = 
(BgL_offsetz00_1654%BgL_n2z00_1667); } } 
{ /* ./Jvm/predicate.scm 45 */

{ /* ./Jvm/predicate.scm 45 */
obj_t BgL_bucketz00_1659;
{ /* ./Jvm/predicate.scm 45 */
int BgL_kz00_1669;
BgL_kz00_1669 = 
(int)(BgL_modz00_1655); 
BgL_bucketz00_1659 = 
VECTOR_REF(BgL_arg2017z00_1650,BgL_kz00_1669); } 
{ /* ./Jvm/predicate.scm 45 */
int BgL_kz00_1671;
BgL_kz00_1671 = 
(int)(BgL_restz00_1657); 
BgL_method3026z00_1647 = 
VECTOR_REF(BgL_bucketz00_1659,BgL_kz00_1671); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3026z00_1647)(BgL_method3026z00_1647, 
(obj_t)(BgL_ez00_1643), BgL_tz00_2030, BgL_fz00_2031, 
(obj_t)(BgL_envz00_1646), BEOA);} } } } } 
}



/* compile-predicate-sequence3036 */
obj_t BGl_compilezd2predicatezd2sequence3036z00zzjvm_predicatez00(obj_t BgL_envz00_2034, obj_t BgL_ez00_2035, obj_t BgL_tz00_2036, obj_t BgL_fz00_2037, obj_t BgL_envz00_2038)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 40 */
{ 
BgL_sequencez00_bglt BgL_ez00_1345;obj_t BgL_tz00_1346;obj_t BgL_fz00_1347;BgL_envz00_bglt BgL_envz00_1348;
BgL_ez00_1345 = 
(BgL_sequencez00_bglt)(BgL_ez00_2035); 
BgL_tz00_1346 = BgL_tz00_2036; 
BgL_fz00_1347 = BgL_fz00_2037; 
BgL_envz00_1348 = 
(BgL_envz00_bglt)(BgL_envz00_2038); 
{ /* ./Jvm/predicate.scm 41 */
obj_t BgL_compz00_1897;
{ 
int BgL_auxz00_2443;int BgL_auxz00_2441;
BgL_auxz00_2443 = 
(int)(((long)2)); 
BgL_auxz00_2441 = 
(int)(((long)2)); 
BgL_compz00_1897 = 
make_fx_procedure(BGl_comp_3726z00zzjvm_predicatez00, BgL_auxz00_2441, BgL_auxz00_2443); } 
{ /* ./Jvm/predicate.scm 41 */
int BgL_auxz00_2446;
BgL_auxz00_2446 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_compz00_1897, BgL_auxz00_2446, BgL_tz00_1346); } 
{ /* ./Jvm/predicate.scm 41 */
int BgL_auxz00_2449;
BgL_auxz00_2449 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_compz00_1897, BgL_auxz00_2449, BgL_fz00_1347); } 
return 
BGl_compilerzd2sequencezd2zzjvm_compilerz00(BgL_ez00_1345, BgL_envz00_1348, BgL_compz00_1897);} } } 
}



/* comp_3726 */
obj_t BGl_comp_3726z00zzjvm_predicatez00(obj_t BgL_envz00_2039, obj_t BgL_ez00_2042, obj_t BgL_envz00_2043)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 41 */
{ /* ./Jvm/predicate.scm 41 */
obj_t BgL_tz00_2040;obj_t BgL_fz00_2041;
{ /* ./Jvm/predicate.scm 41 */
int BgL_auxz00_2455;
BgL_auxz00_2455 = 
(int)(((long)0)); 
BgL_tz00_2040 = 
PROCEDURE_REF(BgL_envz00_2039, BgL_auxz00_2455); } 
{ /* ./Jvm/predicate.scm 41 */
int BgL_auxz00_2458;
BgL_auxz00_2458 = 
(int)(((long)1)); 
BgL_fz00_2041 = 
PROCEDURE_REF(BgL_envz00_2039, BgL_auxz00_2458); } 
{ 
obj_t BgL_ez00_1609;obj_t BgL_envz00_1610;
BgL_ez00_1609 = BgL_ez00_2042; 
BgL_envz00_1610 = BgL_envz00_2043; 
{ /* ./Jvm/predicate.scm 41 */
BgL_nodez00_bglt BgL_ez00_1611;BgL_envz00_bglt BgL_envz00_1614;
BgL_ez00_1611 = 
(BgL_nodez00_bglt)(BgL_ez00_1609); 
BgL_envz00_1614 = 
(BgL_envz00_bglt)(BgL_envz00_1610); 
{ /* ./Jvm/predicate.scm 41 */
obj_t BgL_method3026z00_1615;
{ /* ./Jvm/predicate.scm 41 */
BgL_objectz00_bglt BgL_objz00_1616;
BgL_objz00_1616 = 
(BgL_objectz00_bglt)(BgL_ez00_1611); 
{ /* ./Jvm/predicate.scm 41 */
long BgL_objzd2classzd2numz00_1617;
BgL_objzd2classzd2numz00_1617 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1616); 
{ /* ./Jvm/predicate.scm 41 */
obj_t BgL_arg2017z00_1618;
{ /* ./Jvm/predicate.scm 41 */
int BgL_auxz00_2465;
BgL_auxz00_2465 = 
(int)(((long)1)); 
BgL_arg2017z00_1618 = 
PROCEDURE_REF(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BgL_auxz00_2465); } 
{ /* ./Jvm/predicate.scm 41 */
int BgL_offsetz00_1621;
BgL_offsetz00_1621 = 
(int)(BgL_objzd2classzd2numz00_1617); 
{ /* ./Jvm/predicate.scm 41 */
long BgL_offsetz00_1622;
{ /* ./Jvm/predicate.scm 41 */
long BgL_auxz00_2469;
BgL_auxz00_2469 = 
(long)(BgL_offsetz00_1621); 
BgL_offsetz00_1622 = 
(BgL_auxz00_2469-OBJECT_TYPE); } 
{ /* ./Jvm/predicate.scm 41 */
long BgL_modz00_1623;
{ /* ./Jvm/predicate.scm 41 */
int BgL_arg2028z00_1624;
BgL_arg2028z00_1624 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 41 */
long BgL_n2z00_1632;
BgL_n2z00_1632 = 
(long)(BgL_arg2028z00_1624); 
BgL_modz00_1623 = 
(BgL_offsetz00_1622/BgL_n2z00_1632); } } 
{ /* ./Jvm/predicate.scm 41 */
long BgL_restz00_1625;
{ /* ./Jvm/predicate.scm 41 */
int BgL_arg2024z00_1626;
BgL_arg2024z00_1626 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 41 */
long BgL_n2z00_1635;
BgL_n2z00_1635 = 
(long)(BgL_arg2024z00_1626); 
BgL_restz00_1625 = 
(BgL_offsetz00_1622%BgL_n2z00_1635); } } 
{ /* ./Jvm/predicate.scm 41 */

{ /* ./Jvm/predicate.scm 41 */
obj_t BgL_bucketz00_1627;
{ /* ./Jvm/predicate.scm 41 */
int BgL_kz00_1637;
BgL_kz00_1637 = 
(int)(BgL_modz00_1623); 
BgL_bucketz00_1627 = 
VECTOR_REF(BgL_arg2017z00_1618,BgL_kz00_1637); } 
{ /* ./Jvm/predicate.scm 41 */
int BgL_kz00_1639;
BgL_kz00_1639 = 
(int)(BgL_restz00_1625); 
BgL_method3026z00_1615 = 
VECTOR_REF(BgL_bucketz00_1627,BgL_kz00_1639); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3026z00_1615)(BgL_method3026z00_1615, 
(obj_t)(BgL_ez00_1611), BgL_tz00_2040, BgL_fz00_2041, 
(obj_t)(BgL_envz00_1614), BEOA);} } } } } 
}



/* compile-predicate-setq3034 */
obj_t BGl_compilezd2predicatezd2setq3034z00zzjvm_predicatez00(obj_t BgL_envz00_2044, obj_t BgL_ez00_2045, obj_t BgL_tz00_2046, obj_t BgL_fz00_2047, obj_t BgL_envz00_2048)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 37 */
{ 
BgL_setqz00_bglt BgL_ez00_1337;obj_t BgL_tz00_1338;obj_t BgL_fz00_1339;BgL_envz00_bglt BgL_envz00_1340;
BgL_ez00_1337 = 
(BgL_setqz00_bglt)(BgL_ez00_2045); 
BgL_tz00_1338 = BgL_tz00_2046; 
BgL_fz00_1339 = BgL_fz00_2047; 
BgL_envz00_1340 = 
(BgL_envz00_bglt)(BgL_envz00_2048); 
{ /* ./Jvm/predicate.scm 38 */
BgL_nodez00_bglt BgL_ez00_1605;
BgL_ez00_1605 = 
(BgL_nodez00_bglt)(BgL_ez00_1337); 
BGl_compilezd2effectzd2zzjvm_effectz00(BgL_ez00_1605, BgL_envz00_1340); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1340, BgL_tz00_1338);} } } 
}



/* compile-predicate-let-var3032 */
obj_t BGl_compilezd2predicatezd2letzd2var3032zd2zzjvm_predicatez00(obj_t BgL_envz00_2049, obj_t BgL_ez00_2050, obj_t BgL_tz00_2051, obj_t BgL_fz00_2052, obj_t BgL_envz00_2053)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 33 */
{ 
BgL_letzd2varzd2_bglt BgL_ez00_1324;obj_t BgL_tz00_1325;obj_t BgL_fz00_1326;BgL_envz00_bglt BgL_envz00_1327;
BgL_ez00_1324 = 
(BgL_letzd2varzd2_bglt)(BgL_ez00_2050); 
BgL_tz00_1325 = BgL_tz00_2051; 
BgL_fz00_1326 = BgL_fz00_2052; 
BgL_envz00_1327 = 
(BgL_envz00_bglt)(BgL_envz00_2053); 
{ /* ./Jvm/predicate.scm 34 */
obj_t BgL_compz00_1900;
{ 
int BgL_auxz00_2493;int BgL_auxz00_2491;
BgL_auxz00_2493 = 
(int)(((long)2)); 
BgL_auxz00_2491 = 
(int)(((long)2)); 
BgL_compz00_1900 = 
make_fx_procedure(BGl_comp_3729z00zzjvm_predicatez00, BgL_auxz00_2491, BgL_auxz00_2493); } 
{ /* ./Jvm/predicate.scm 34 */
int BgL_auxz00_2496;
BgL_auxz00_2496 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_compz00_1900, BgL_auxz00_2496, BgL_tz00_1325); } 
{ /* ./Jvm/predicate.scm 34 */
int BgL_auxz00_2499;
BgL_auxz00_2499 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_compz00_1900, BgL_auxz00_2499, BgL_fz00_1326); } 
return 
BGl_compilerzd2letzd2zzjvm_compilerz00(BgL_ez00_1324, BgL_envz00_1327, BgL_compz00_1900);} } } 
}



/* comp_3729 */
obj_t BGl_comp_3729z00zzjvm_predicatez00(obj_t BgL_envz00_2054, obj_t BgL_ez00_2057, obj_t BgL_envz00_2058)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 34 */
{ /* ./Jvm/predicate.scm 34 */
obj_t BgL_tz00_2055;obj_t BgL_fz00_2056;
{ /* ./Jvm/predicate.scm 34 */
int BgL_auxz00_2505;
BgL_auxz00_2505 = 
(int)(((long)0)); 
BgL_tz00_2055 = 
PROCEDURE_REF(BgL_envz00_2054, BgL_auxz00_2505); } 
{ /* ./Jvm/predicate.scm 34 */
int BgL_auxz00_2508;
BgL_auxz00_2508 = 
(int)(((long)1)); 
BgL_fz00_2056 = 
PROCEDURE_REF(BgL_envz00_2054, BgL_auxz00_2508); } 
{ 
obj_t BgL_ez00_1574;obj_t BgL_envz00_1575;
BgL_ez00_1574 = BgL_ez00_2057; 
BgL_envz00_1575 = BgL_envz00_2058; 
{ /* ./Jvm/predicate.scm 34 */
BgL_nodez00_bglt BgL_ez00_1576;BgL_envz00_bglt BgL_envz00_1579;
BgL_ez00_1576 = 
(BgL_nodez00_bglt)(BgL_ez00_1574); 
BgL_envz00_1579 = 
(BgL_envz00_bglt)(BgL_envz00_1575); 
{ /* ./Jvm/predicate.scm 34 */
obj_t BgL_method3026z00_1580;
{ /* ./Jvm/predicate.scm 34 */
BgL_objectz00_bglt BgL_objz00_1581;
BgL_objz00_1581 = 
(BgL_objectz00_bglt)(BgL_ez00_1576); 
{ /* ./Jvm/predicate.scm 34 */
long BgL_objzd2classzd2numz00_1582;
BgL_objzd2classzd2numz00_1582 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1581); 
{ /* ./Jvm/predicate.scm 34 */
obj_t BgL_arg2017z00_1583;
{ /* ./Jvm/predicate.scm 34 */
int BgL_auxz00_2515;
BgL_auxz00_2515 = 
(int)(((long)1)); 
BgL_arg2017z00_1583 = 
PROCEDURE_REF(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BgL_auxz00_2515); } 
{ /* ./Jvm/predicate.scm 34 */
int BgL_offsetz00_1586;
BgL_offsetz00_1586 = 
(int)(BgL_objzd2classzd2numz00_1582); 
{ /* ./Jvm/predicate.scm 34 */
long BgL_offsetz00_1587;
{ /* ./Jvm/predicate.scm 34 */
long BgL_auxz00_2519;
BgL_auxz00_2519 = 
(long)(BgL_offsetz00_1586); 
BgL_offsetz00_1587 = 
(BgL_auxz00_2519-OBJECT_TYPE); } 
{ /* ./Jvm/predicate.scm 34 */
long BgL_modz00_1588;
{ /* ./Jvm/predicate.scm 34 */
int BgL_arg2028z00_1589;
BgL_arg2028z00_1589 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 34 */
long BgL_n2z00_1597;
BgL_n2z00_1597 = 
(long)(BgL_arg2028z00_1589); 
BgL_modz00_1588 = 
(BgL_offsetz00_1587/BgL_n2z00_1597); } } 
{ /* ./Jvm/predicate.scm 34 */
long BgL_restz00_1590;
{ /* ./Jvm/predicate.scm 34 */
int BgL_arg2024z00_1591;
BgL_arg2024z00_1591 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 34 */
long BgL_n2z00_1600;
BgL_n2z00_1600 = 
(long)(BgL_arg2024z00_1591); 
BgL_restz00_1590 = 
(BgL_offsetz00_1587%BgL_n2z00_1600); } } 
{ /* ./Jvm/predicate.scm 34 */

{ /* ./Jvm/predicate.scm 34 */
obj_t BgL_bucketz00_1592;
{ /* ./Jvm/predicate.scm 34 */
int BgL_kz00_1602;
BgL_kz00_1602 = 
(int)(BgL_modz00_1588); 
BgL_bucketz00_1592 = 
VECTOR_REF(BgL_arg2017z00_1583,BgL_kz00_1602); } 
{ /* ./Jvm/predicate.scm 34 */
int BgL_kz00_1604;
BgL_kz00_1604 = 
(int)(BgL_restz00_1590); 
BgL_method3026z00_1580 = 
VECTOR_REF(BgL_bucketz00_1592,BgL_kz00_1604); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3026z00_1580)(BgL_method3026z00_1580, 
(obj_t)(BgL_ez00_1576), BgL_tz00_2055, BgL_fz00_2056, 
(obj_t)(BgL_envz00_1579), BEOA);} } } } } 
}



/* compile-predicate-var3030 */
obj_t BGl_compilezd2predicatezd2var3030z00zzjvm_predicatez00(obj_t BgL_envz00_2059, obj_t BgL_ez00_2060, obj_t BgL_tz00_2061, obj_t BgL_fz00_2062, obj_t BgL_envz00_2063)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 30 */
{ 
BgL_varz00_bglt BgL_ez00_1316;obj_t BgL_tz00_1317;obj_t BgL_fz00_1318;BgL_envz00_bglt BgL_envz00_1319;
BgL_ez00_1316 = 
(BgL_varz00_bglt)(BgL_ez00_2060); 
BgL_tz00_1317 = BgL_tz00_2061; 
BgL_fz00_1318 = BgL_fz00_2062; 
BgL_envz00_1319 = 
(BgL_envz00_bglt)(BgL_envz00_2063); 
{ /* ./Jvm/predicate.scm 31 */
BgL_nodez00_bglt BgL_ez00_1569;
BgL_ez00_1569 = 
(BgL_nodez00_bglt)(BgL_ez00_1316); 
BGl_compilezd2exprzd2zzjvm_exprz00(BgL_ez00_1569, BgL_envz00_1319); 
BGl__ifz00zzjvm_instrz00(
CNST_TABLE_REF(((long)0)), BgL_envz00_1319, BgL_fz00_1318); 
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1319, BgL_tz00_1317);} } } 
}



/* compile-predicate-atom3028 */
obj_t BGl_compilezd2predicatezd2atom3028z00zzjvm_predicatez00(obj_t BgL_envz00_2064, obj_t BgL_ez00_2065, obj_t BgL_tz00_2066, obj_t BgL_fz00_2067, obj_t BgL_envz00_2068)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 23 */
{ 
BgL_atomz00_bglt BgL_ez00_1298;obj_t BgL_tz00_1299;obj_t BgL_fz00_1300;BgL_envz00_bglt BgL_envz00_1301;
BgL_ez00_1298 = 
(BgL_atomz00_bglt)(BgL_ez00_2065); 
BgL_tz00_1299 = BgL_tz00_2066; 
BgL_fz00_1300 = BgL_fz00_2067; 
BgL_envz00_1301 = 
(BgL_envz00_bglt)(BgL_envz00_2068); 
{ /* ./Jvm/predicate.scm 25 */
bool_t BgL_test3454z00_1305;
{ /* ./Jvm/predicate.scm 25 */
bool_t BgL_testz00_2543;
{ /* ./Jvm/predicate.scm 25 */
bool_t BgL_testz00_2544;
{ /* ./Jvm/predicate.scm 25 */
obj_t BgL_auxz00_2545;
BgL_auxz00_2545 = 
(((BgL_atomz00_bglt)CREF(BgL_ez00_1298))->BgL_valuez00); 
BgL_testz00_2544 = 
INTEGERP(BgL_auxz00_2545); } 
if(BgL_testz00_2544)
{ /* ./Jvm/predicate.scm 25 */
long BgL_auxz00_2548;
{ /* ./Jvm/predicate.scm 25 */
obj_t BgL_auxz00_2549;
BgL_auxz00_2549 = 
(((BgL_atomz00_bglt)CREF(BgL_ez00_1298))->BgL_valuez00); 
BgL_auxz00_2548 = 
(long)CINT(BgL_auxz00_2549); } 
BgL_testz00_2543 = 
(BgL_auxz00_2548==((long)0)); }  else 
{ /* ./Jvm/predicate.scm 25 */
BgL_testz00_2543 = ((bool_t)0)
; } } 
if(BgL_testz00_2543)
{ /* ./Jvm/predicate.scm 25 */
BgL_test3454z00_1305 = ((bool_t)1); }  else 
{ /* ./Jvm/predicate.scm 26 */
bool_t BgL_testz00_2553;
{ /* ./Jvm/predicate.scm 26 */
obj_t BgL_auxz00_2554;
BgL_auxz00_2554 = 
(((BgL_atomz00_bglt)CREF(BgL_ez00_1298))->BgL_valuez00); 
BgL_testz00_2553 = 
BOOLEANP(BgL_auxz00_2554); } 
if(BgL_testz00_2553)
{ /* ./Jvm/predicate.scm 26 */
obj_t BgL_auxz00_2557;
BgL_auxz00_2557 = 
(((BgL_atomz00_bglt)CREF(BgL_ez00_1298))->BgL_valuez00); 
BgL_test3454z00_1305 = 
(BgL_auxz00_2557==BFALSE); }  else 
{ /* ./Jvm/predicate.scm 26 */
BgL_test3454z00_1305 = ((bool_t)0); } } } 
if(BgL_test3454z00_1305)
{ /* ./Jvm/predicate.scm 25 */
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1301, BgL_fz00_1300);}  else 
{ /* ./Jvm/predicate.scm 25 */
return 
BGl__gotoz00zzjvm_instrz00(BgL_envz00_1301, BgL_tz00_1299);} } } } 
}



/* compile-predicate */
BGL_EXPORTED_DEF obj_t BGl_compilezd2predicatezd2zzjvm_predicatez00(BgL_nodez00_bglt BgL_ez00_8, obj_t BgL_tz00_9, obj_t BgL_fz00_10, BgL_envz00_bglt BgL_envz00_11)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 21 */
{ /* ./Jvm/predicate.scm 21 */
obj_t BgL_method3026z00_1838;
{ /* ./Jvm/predicate.scm 21 */
BgL_objectz00_bglt BgL_objz00_1839;
BgL_objz00_1839 = 
(BgL_objectz00_bglt)(BgL_ez00_8); 
{ /* ./Jvm/predicate.scm 21 */
long BgL_objzd2classzd2numz00_1840;
BgL_objzd2classzd2numz00_1840 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1839); 
{ /* ./Jvm/predicate.scm 21 */
obj_t BgL_arg2017z00_1841;
{ /* ./Jvm/predicate.scm 21 */
int BgL_auxz00_2567;
BgL_auxz00_2567 = 
(int)(((long)1)); 
BgL_arg2017z00_1841 = 
PROCEDURE_REF(BGl_compilezd2predicatezd2envz00zzjvm_predicatez00, BgL_auxz00_2567); } 
{ /* ./Jvm/predicate.scm 21 */
int BgL_offsetz00_1844;
BgL_offsetz00_1844 = 
(int)(BgL_objzd2classzd2numz00_1840); 
{ /* ./Jvm/predicate.scm 21 */
long BgL_offsetz00_1845;
{ /* ./Jvm/predicate.scm 21 */
long BgL_auxz00_2571;
BgL_auxz00_2571 = 
(long)(BgL_offsetz00_1844); 
BgL_offsetz00_1845 = 
(BgL_auxz00_2571-OBJECT_TYPE); } 
{ /* ./Jvm/predicate.scm 21 */
long BgL_modz00_1846;
{ /* ./Jvm/predicate.scm 21 */
int BgL_arg2028z00_1847;
BgL_arg2028z00_1847 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 21 */
long BgL_n2z00_1855;
BgL_n2z00_1855 = 
(long)(BgL_arg2028z00_1847); 
BgL_modz00_1846 = 
(BgL_offsetz00_1845/BgL_n2z00_1855); } } 
{ /* ./Jvm/predicate.scm 21 */
long BgL_restz00_1848;
{ /* ./Jvm/predicate.scm 21 */
int BgL_arg2024z00_1849;
BgL_arg2024z00_1849 = 
(int)(((long)8)); 
{ /* ./Jvm/predicate.scm 21 */
long BgL_n2z00_1858;
BgL_n2z00_1858 = 
(long)(BgL_arg2024z00_1849); 
BgL_restz00_1848 = 
(BgL_offsetz00_1845%BgL_n2z00_1858); } } 
{ /* ./Jvm/predicate.scm 21 */

{ /* ./Jvm/predicate.scm 21 */
obj_t BgL_bucketz00_1850;
{ /* ./Jvm/predicate.scm 21 */
int BgL_kz00_1860;
BgL_kz00_1860 = 
(int)(BgL_modz00_1846); 
BgL_bucketz00_1850 = 
VECTOR_REF(BgL_arg2017z00_1841,BgL_kz00_1860); } 
{ /* ./Jvm/predicate.scm 21 */
int BgL_kz00_1862;
BgL_kz00_1862 = 
(int)(BgL_restz00_1848); 
BgL_method3026z00_1838 = 
VECTOR_REF(BgL_bucketz00_1850,BgL_kz00_1862); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method3026z00_1838)(BgL_method3026z00_1838, 
(obj_t)(BgL_ez00_8), BgL_tz00_9, BgL_fz00_10, 
(obj_t)(BgL_envz00_11), BEOA);} } 
}



/* _compile-predicate3713 */
obj_t BGl__compilezd2predicate3713zd2zzjvm_predicatez00(obj_t BgL_envz00_1873, obj_t BgL_ez00_1874, obj_t BgL_tz00_1875, obj_t BgL_fz00_1876, obj_t BgL_envz00_1877)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 21 */
return 
BGl_compilezd2predicatezd2zzjvm_predicatez00(
(BgL_nodez00_bglt)(BgL_ez00_1874), BgL_tz00_1875, BgL_fz00_1876, 
(BgL_envz00_bglt)(BgL_envz00_1877));} 
}



/* compile-predicate-default3024 */
obj_t BGl_compilezd2predicatezd2default3024z00zzjvm_predicatez00(BgL_nodez00_bglt BgL_ez00_12, obj_t BgL_tz00_13, obj_t BgL_fz00_14, BgL_envz00_bglt BgL_envz00_15)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 2 */
{ /* ./Jvm/predicate.scm 2 */
obj_t BgL_procz00_1863;obj_t BgL_objectz00_1865;
BgL_procz00_1863 = 
CNST_TABLE_REF(((long)2)); 
BgL_objectz00_1865 = 
(obj_t)(BgL_ez00_12); 
FAILURE(BgL_procz00_1863,BGl_string4032z00zzjvm_predicatez00,BgL_objectz00_1865);} } 
}



/* _compile-predicate-default3024 */
obj_t BGl__compilezd2predicatezd2default3024z00zzjvm_predicatez00(obj_t BgL_envz00_2069, obj_t BgL_ez00_2070, obj_t BgL_tz00_2071, obj_t BgL_fz00_2072, obj_t BgL_envz00_2073)
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 2 */
return 
BGl_compilezd2predicatezd2default3024z00zzjvm_predicatez00(
(BgL_nodez00_bglt)(BgL_ez00_2070), BgL_tz00_2071, BgL_fz00_2072, 
(BgL_envz00_bglt)(BgL_envz00_2073));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzjvm_predicatez00()
{ AN_OBJECT;
{ /* ./Jvm/predicate.scm 2 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "jvm_predicate"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "jvm_predicate"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "jvm_predicate"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "jvm_predicate"); 
BGl_modulezd2initializa7ationz75zzjvm_envz00(((long)58889), "jvm_predicate"); 
BGl_modulezd2initializa7ationz75zzjvm_instrz00(((long)18045), "jvm_predicate"); 
BGl_modulezd2initializa7ationz75zzjvm_exprz00(((long)25872), "jvm_predicate"); 
BGl_modulezd2initializa7ationz75zzjvm_effectz00(((long)54912), "jvm_predicate"); 
BGl_modulezd2initializa7ationz75zzjvm_compilerz00(((long)61602), "jvm_predicate"); 
return 
BGl_modulezd2initializa7ationz75zzjvm_inlinez00(((long)20777), "jvm_predicate");} 
}

