/*===========================================================================*/
/*   (Jvm/jld.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/jld.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


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

typedef struct BgL_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_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_tclassz00_bgl {
   obj_t BgL_itszd2superzd2;
   obj_t BgL_slotsz00;
   struct BgL_globalz00_bgl * BgL_holderz00;
   obj_t BgL_wideningz00;
   long BgL_depthz00;
   bool_t BgL_finalzf3zf3;
   obj_t BgL_constructorz00;
   obj_t BgL_virtualzd2slotszd2numberz00;
   bool_t BgL_abstractzf3zf3;
   obj_t BgL_widezd2typezd2;
} *BgL_tclassz00_bglt;

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

typedef struct BgL_wclassz00_bgl {
   obj_t BgL_itszd2classzd2;
} *BgL_wclassz00_bglt;

typedef struct BgL_slotz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_srcz00;
   obj_t BgL_classzd2ownerzd2;
   obj_t BgL_typez00;
   bool_t BgL_readzd2onlyzf3z21;
   obj_t BgL_defaultzd2valuezd2;
   obj_t BgL_virtualzd2numzd2;
   obj_t BgL_getterz00;
   obj_t BgL_setterz00;
   obj_t BgL_indexedz00;
   obj_t BgL_userzd2infozd2;
} *BgL_slotz00_bglt;


BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzjvm_ldz00();
BGL_IMPORT obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t);
extern obj_t BGl_za2jvmzd2envza2zd2zzengine_paramz00;
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT bool_t BGl_chmodz00zz__osz00(obj_t, obj_t);
extern obj_t BGl_za2jvmzd2javaza2zd2zzengine_paramz00;
extern obj_t BGl_za2srczd2filesza2zd2zzengine_paramz00;
BGL_IMPORT obj_t BGl_makezd2filezd2namez00zz__osz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2srczd2filez00zzengine_linkz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
extern obj_t BGl_za2unsafezd2libraryza2zd2zzengine_paramz00;
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza34134ze3z83zzjvm_ldz00(obj_t);
extern obj_t BGl_jvmzd2classzd2sanszd2directoryzd2zzread_jvmz00(obj_t);
static obj_t BGl_objectszd2ze3classesz31zzjvm_ldz00(obj_t);
extern obj_t BGl_za2jvmzd2jarpathza2zd2zzengine_paramz00;
static obj_t BGl_generatezd2jvmzd2manifestz00zzjvm_ldz00(obj_t, obj_t, obj_t, obj_t);
static bool_t BGl_generatezd2jvmzd2shzd2scriptzd2zzjvm_ldz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2moduleza2z00zzmodule_modulez00;
BGL_IMPORT obj_t string_to_bstring(char *);
extern obj_t BGl_modulezd2ze3qualifiedzd2typeze3zzread_jvmz00(obj_t);
static obj_t BGl_findzd2jvmzd2mainz00zzjvm_ldz00(obj_t);
static obj_t BGl_jvmzd2bigloozd2classpathz00zzjvm_ldz00();
extern obj_t BGl_globalz00zzast_varz00;
static obj_t BGl_escapez00zzjvm_ldz00(obj_t, obj_t);
static obj_t BGl_userzd2libraryzd2zzjvm_ldz00(obj_t);
extern obj_t BGl_classzd2idzd2ze3typezd2namez31zzbackend_cplibz00(obj_t, obj_t);
extern obj_t BGl_za2jvmzd2shellza2zd2zzengine_paramz00;
static obj_t BGl_generatezd2msdoszd2jvmzd2manifestzd2zzjvm_ldz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33216ze3z83zzjvm_ldz00(obj_t);
BGL_IMPORT obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33218ze3z83zzjvm_ldz00(obj_t);
extern obj_t BGl_za2jvmzd2purifyza2zd2zzengine_paramz00;
static obj_t BGl_cnstzd2initzd2zzjvm_ldz00();
extern obj_t BGl_za2jvmzd2classpathza2zd2zzengine_paramz00;
static obj_t BGl_zc3exitza33208ze3z83zzjvm_ldz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_hashtablezd2ze3listz31zz__hashz00(obj_t);
BGL_IMPORT obj_t BGl_basenamez00zz__osz00(obj_t);
static obj_t BGl_zc3anonymousza33925ze3z83zzjvm_ldz00(obj_t);
BGL_IMPORT obj_t c_substring(obj_t, int, int);
extern obj_t BGl_za2jvmzd2mainclassza2zd2zzengine_paramz00;
static obj_t BGl_zc3anonymousza33362ze3z83zzjvm_ldz00(obj_t);
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl__jvmzd2ldzd2zzjvm_ldz00(obj_t);
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzjvm_ldz00();
static obj_t BGl_zc3anonymousza33228ze3z83zzjvm_ldz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_makezd2hashtablezd2zz__hashz00(obj_t);
extern obj_t BGl_za2additionalzd2bigloozd2librariesza2z00zzengine_paramz00;
static obj_t BGl_zc3anonymousza33231ze3z83zzjvm_ldz00(obj_t);
extern obj_t BGl_za2linkzd2mainzd2moduleza2z00zzengine_linkz00;
static obj_t BGl_zc3anonymousza33789ze3z83zzjvm_ldz00(obj_t);
static obj_t BGl_uniquez00zzjvm_ldz00(obj_t);
BGL_IMPORT obj_t BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(obj_t);
static obj_t BGl_generatezd2jvmzd2env_4776z00zzjvm_ldz00();
BGL_IMPORT obj_t BGl_exitz00zz__errorz00(obj_t);
extern obj_t BGl_compilerzd2readzd2zzread_readerz00(obj_t);
BGL_IMPORT obj_t BGl_notifyzd2errorzd2zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza34041ze3z83zzjvm_ldz00(obj_t);
BGL_IMPORT obj_t BGl_addzd2errorzd2handlerz12z12zz__errorz00(obj_t, obj_t);
static bool_t BGl_generatezd2jvmzd2msdoszd2scriptzd2zzjvm_ldz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33811ze3z83zzjvm_ldz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzjvm_ldz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_configurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_linkz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzread_readerz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzbackend_cplibz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzread_jvmz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_classz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzobject_slotsz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__osz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__hashz00(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_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
static obj_t BGl_zc3anonymousza33247ze3z83zzjvm_ldz00(obj_t);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_findzd2filezf2pathz20zz__osz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
extern obj_t BGl_sourcezd2ze3qualifiedzd2typeze3zzread_jvmz00(obj_t);
static obj_t BGl_zc3anonymousza33400ze3z83zzjvm_ldz00(obj_t);
extern obj_t BGl_za2libzd2dirza2zd2zzengine_paramz00;
BGL_IMPORT obj_t string_to_symbol(char *);
BGL_IMPORT obj_t bgl_reverse(obj_t);
BGL_IMPORT obj_t BGl_defaultzd2scriptzd2namez00zz__osz00();
extern obj_t BGl_za2ozd2filesza2zd2zzengine_paramz00;
BGL_IMPORT obj_t string_append(obj_t, obj_t);
static obj_t BGl_listzd2ze3pathzd2stringze3zzjvm_ldz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza33406ze3z83zzjvm_ldz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2jvmzd2bigloozd2classpathza2z00zzengine_paramz00;
static obj_t BGl_libraryzd2ze3za7ipz96zzjvm_ldz00(obj_t);
static obj_t BGl_zc3anonymousza33398ze3z83zzjvm_ldz00(obj_t);
static obj_t BGl_zc3anonymousza33409ze3z83zzjvm_ldz00(obj_t);
BGL_IMPORT obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
static obj_t BGl_zc3exitza33390ze3z83zzjvm_ldz00(obj_t, obj_t, obj_t);
static obj_t BGl_findzd2jvmzd2mainclassz00zzjvm_ldz00();
extern obj_t BGl_za2jvmzd2jarzf3za2z21zzengine_paramz00;
static obj_t BGl_loop_4777z00zzjvm_ldz00(obj_t, obj_t);
static obj_t BGl_makezd2manifestzd2namez00zzjvm_ldz00();
extern obj_t BGl_za2mainza2z00zzmodule_modulez00;
static obj_t BGl_jvmzd2jarzd2zzjvm_ldz00(obj_t, obj_t, obj_t);
extern obj_t BGl_stringzd2replacez12zc0zztools_miscz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2destza2z00zzengine_paramz00;
BGL_IMPORT obj_t display_string(obj_t, obj_t);
extern obj_t BGl_za2bigloozd2nameza2zd2zzengine_paramz00;
static obj_t BGl_loopz00zzjvm_ldz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_jvmzd2ldzd2zzjvm_ldz00();
static obj_t BGl_generatezd2shzd2jvmzd2manifestzd2zzjvm_ldz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_removezd2errorzd2handlerz12z12zz__errorz00();
BGL_IMPORT obj_t BGl_filezd2separatorzd2zz__osz00();
BGL_IMPORT obj_t BGl_systemz00zz__osz00(obj_t);
BGL_IMPORT bool_t bigloo_strcmp(obj_t, obj_t);
BGL_IMPORT obj_t BGl_dirnamez00zz__osz00(obj_t);
BGL_IMPORT bool_t fexists(char *);
BGL_IMPORT obj_t BGl_suffixz00zz__osz00(obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_escape_4762z00zzjvm_ldz00(obj_t, obj_t);
extern obj_t BGl_stringzd2replacezd2zztools_miscz00(obj_t, obj_t, obj_t);
static bool_t BGl_generatezd2jvmzd2scriptz00zzjvm_ldz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_warningz00zz__errorz00(obj_t);
extern obj_t BGl_jvmzd2classzd2withzd2directoryzd2zzread_jvmz00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzjvm_ldz00 = BUNSPEC;
static obj_t BGl_generatezd2jvmzd2envz00zzjvm_ldz00();
extern obj_t BGl_za2jvmzd2directoryza2zd2zzengine_paramz00;
extern obj_t BGl_za2jvmzd2pathzd2separatorza2z00zzengine_paramz00;
static obj_t BGl_sourcezd2ze3jvmzd2classze3zzjvm_ldz00(obj_t);
static obj_t BGl_zc3anonymousza33726ze3z83zzjvm_ldz00(obj_t);
BGL_IMPORT obj_t BGl_prefixz00zz__osz00(obj_t);
extern obj_t BGl_za2additionalzd2bigloozd2za7ipsza2za7zzengine_paramz00;
static obj_t BGl_listzd2ze3msdoszd2pathzd2stringz31zzjvm_ldz00(obj_t);
extern obj_t BGl_uncygdrivez00zztools_miscz00(obj_t);
extern obj_t BGl_za2jvmzd2optionsza2zd2zzengine_paramz00;
static obj_t BGl_libraryzd2moduleszd2initz00zzjvm_ldz00();
static obj_t BGl_listzd2ze3shzd2pathzd2stringz31zzjvm_ldz00(obj_t);
static obj_t BGl_zc3exitza33574ze3z83zzjvm_ldz00(obj_t, obj_t);
extern obj_t BGl_unprofzd2srczd2namez00zzengine_linkz00(obj_t);
static obj_t __cnst[ 11 ] ;


DEFINE_STRING( BGl_string5149z00zzjvm_ldz00, BgL_bgl_string5149za700za7za7jvm_ldza7005183z00, "execute write read static export wide-class final-class abstract-class class main module ", 89 );
DEFINE_STRING( BGl_string5148z00zzjvm_ldz00, BgL_bgl_string5148za700za7za7jvm_ldza7005184z00, ";", 1 );
DEFINE_STRING( BGl_string5147z00zzjvm_ldz00, BgL_bgl_string5147za700za7za7jvm_ldza7005185z00, ":", 1 );
DEFINE_STRING( BGl_string5146z00zzjvm_ldz00, BgL_bgl_string5146za700za7za7jvm_ldza7005186z00, "generate-jvm-script", 19 );
DEFINE_STRING( BGl_string5145z00zzjvm_ldz00, BgL_bgl_string5145za700za7za7jvm_ldza7005187z00, "   . ", 5 );
DEFINE_STRING( BGl_string5144z00zzjvm_ldz00, BgL_bgl_string5144za700za7za7jvm_ldza7005188z00, " %*", 3 );
DEFINE_STRING( BGl_string5143z00zzjvm_ldz00, BgL_bgl_string5143za700za7za7jvm_ldza7005189z00, " %BIGLOOJAVAOPT% %BUGLOOJAVAOPT% ", 33 );
DEFINE_STRING( BGl_string5142z00zzjvm_ldz00, BgL_bgl_string5142za700za7za7jvm_ldza7005190z00, "\" ", 2 );
DEFINE_STRING( BGl_string5141z00zzjvm_ldz00, BgL_bgl_string5141za700za7za7jvm_ldza7005191z00, "%BUGLOOCLASSPATH%", 17 );
DEFINE_STRING( BGl_string5140z00zzjvm_ldz00, BgL_bgl_string5140za700za7za7jvm_ldza7005192z00, "\\", 1 );
DEFINE_STRING( BGl_string5139z00zzjvm_ldz00, BgL_bgl_string5139za700za7za7jvm_ldza7005193z00, " -cp \"", 6 );
DEFINE_STRING( BGl_string5138z00zzjvm_ldz00, BgL_bgl_string5138za700za7za7jvm_ldza7005194z00, "@", 1 );
DEFINE_STRING( BGl_string5137z00zzjvm_ldz00, BgL_bgl_string5137za700za7za7jvm_ldza7005195z00, " $*", 3 );
DEFINE_STRING( BGl_string5136z00zzjvm_ldz00, BgL_bgl_string5136za700za7za7jvm_ldza7005196z00, "$BIGLOOCLASSPATH", 16 );
DEFINE_STRING( BGl_string5135z00zzjvm_ldz00, BgL_bgl_string5135za700za7za7jvm_ldza7005197z00, "'", 1 );
DEFINE_STRING( BGl_string5134z00zzjvm_ldz00, BgL_bgl_string5134za700za7za7jvm_ldza7005198z00, "CLASSPATH=", 10 );
DEFINE_STRING( BGl_string5133z00zzjvm_ldz00, BgL_bgl_string5133za700za7za7jvm_ldza7005199z00, ".jar $*", 7 );
DEFINE_STRING( BGl_string5132z00zzjvm_ldz00, BgL_bgl_string5132za700za7za7jvm_ldza7005200z00, " $0`", 4 );
DEFINE_STRING( BGl_string5131z00zzjvm_ldz00, BgL_bgl_string5131za700za7za7jvm_ldza7005201z00, "`", 1 );
DEFINE_STRING( BGl_string5130z00zzjvm_ldz00, BgL_bgl_string5130za700za7za7jvm_ldza7005202z00, " -jar ", 6 );
DEFINE_STRING( BGl_string5129z00zzjvm_ldz00, BgL_bgl_string5129za700za7za7jvm_ldza7005203z00, " $BIGLOOJAVAOPT $BUGLOOJAVAOPT ", 31 );
DEFINE_STRING( BGl_string5128z00zzjvm_ldz00, BgL_bgl_string5128za700za7za7jvm_ldza7005204z00, "exec ", 5 );
DEFINE_STRING( BGl_string5127z00zzjvm_ldz00, BgL_bgl_string5127za700za7za7jvm_ldza7005205z00, "export CLASSPATH", 16 );
DEFINE_STRING( BGl_string5126z00zzjvm_ldz00, BgL_bgl_string5126za700za7za7jvm_ldza7005206z00, "\"", 1 );
DEFINE_STRING( BGl_string5125z00zzjvm_ldz00, BgL_bgl_string5125za700za7za7jvm_ldza7005207z00, "$BUGLOOCLASSPATH", 16 );
DEFINE_STRING( BGl_string5124z00zzjvm_ldz00, BgL_bgl_string5124za700za7za7jvm_ldza7005208z00, "CLASSPATH=\"", 11 );
DEFINE_STRING( BGl_string5123z00zzjvm_ldz00, BgL_bgl_string5123za700za7za7jvm_ldza7005209z00, "#!/bin/sh", 9 );
DEFINE_STRING( BGl_string5122z00zzjvm_ldz00, BgL_bgl_string5122za700za7za7jvm_ldza7005210z00, "-Dbigloo.", 9 );
DEFINE_STRING( BGl_string5121z00zzjvm_ldz00, BgL_bgl_string5121za700za7za7jvm_ldza7005211z00, "=$", 2 );
DEFINE_STRING( BGl_string5120z00zzjvm_ldz00, BgL_bgl_string5120za700za7za7jvm_ldza7005212z00, "Created-By: ", 12 );
DEFINE_STRING( BGl_string5119z00zzjvm_ldz00, BgL_bgl_string5119za700za7za7jvm_ldza7005213z00, "Class-Path: ", 12 );
DEFINE_STRING( BGl_string5118z00zzjvm_ldz00, BgL_bgl_string5118za700za7za7jvm_ldza7005214z00, "Main-Class: ", 12 );
DEFINE_STRING( BGl_string5117z00zzjvm_ldz00, BgL_bgl_string5117za700za7za7jvm_ldza7005215z00, "Manifest-Version: 1.0", 21 );
DEFINE_STRING( BGl_string5116z00zzjvm_ldz00, BgL_bgl_string5116za700za7za7jvm_ldza7005216z00, "generate-jvm-manifest", 21 );
DEFINE_STRING( BGl_string5115z00zzjvm_ldz00, BgL_bgl_string5115za700za7za7jvm_ldza7005217z00, "Illegal shell `", 15 );
DEFINE_STRING( BGl_string5114z00zzjvm_ldz00, BgL_bgl_string5114za700za7za7jvm_ldza7005218z00, "' -- using `sh'", 15 );
DEFINE_STRING( BGl_string5113z00zzjvm_ldz00, BgL_bgl_string5113za700za7za7jvm_ldza7005219z00, "sh", 2 );
DEFINE_STRING( BGl_string5112z00zzjvm_ldz00, BgL_bgl_string5112za700za7za7jvm_ldza7005220z00, "Manifest", 8 );
DEFINE_STRING( BGl_string5111z00zzjvm_ldz00, BgL_bgl_string5111za700za7za7jvm_ldza7005221z00, "X", 1 );
DEFINE_STRING( BGl_string5110z00zzjvm_ldz00, BgL_bgl_string5110za700za7za7jvm_ldza7005222z00, "Can't create jar file", 21 );
DEFINE_STRING( BGl_string5109z00zzjvm_ldz00, BgL_bgl_string5109za700za7za7jvm_ldza7005223z00, "      [", 7 );
DEFINE_STRING( BGl_string5108z00zzjvm_ldz00, BgL_bgl_string5108za700za7za7jvm_ldza7005224z00, "]\n", 2 );
DEFINE_STRING( BGl_string5098z00zzjvm_ldz00, BgL_bgl_string5098za700za7za7jvm_ldza7005225z00, "No main clause found", 20 );
DEFINE_STRING( BGl_string5107z00zzjvm_ldz00, BgL_bgl_string5107za700za7za7jvm_ldza7005226z00, "-C ", 3 );
DEFINE_STRING( BGl_string5097z00zzjvm_ldz00, BgL_bgl_string5097za700za7za7jvm_ldza7005227z00, "jar", 3 );
DEFINE_STRING( BGl_string5106z00zzjvm_ldz00, BgL_bgl_string5106za700za7za7jvm_ldza7005228z00, " ", 1 );
DEFINE_STRING( BGl_string5096z00zzjvm_ldz00, BgL_bgl_string5096za700za7za7jvm_ldza7005229z00, "ld:", 3 );
DEFINE_STRING( BGl_string5095z00zzjvm_ldz00, BgL_bgl_string5095za700za7za7jvm_ldza7005230z00, "Can't find zip file for library -- ", 35 );
DEFINE_STRING( BGl_string5104z00zzjvm_ldz00, BgL_bgl_string5104za700za7za7jvm_ldza7005231z00, "", 0 );
DEFINE_STRING( BGl_string5094z00zzjvm_ldz00, BgL_bgl_string5094za700za7za7jvm_ldza7005232z00, "_s.zip", 6 );
DEFINE_STRING( BGl_string5103z00zzjvm_ldz00, BgL_bgl_string5103za700za7za7jvm_ldza7005233z00, ".", 1 );
DEFINE_STRING( BGl_string5093z00zzjvm_ldz00, BgL_bgl_string5093za700za7za7jvm_ldza7005234z00, "msdos", 5 );
DEFINE_STRING( BGl_string5092z00zzjvm_ldz00, BgL_bgl_string5092za700za7za7jvm_ldza7005235z00, "see option -jvm-mainclass", 25 );
DEFINE_STRING( BGl_string5101z00zzjvm_ldz00, BgL_bgl_string5101za700za7za7jvm_ldza7005236z00, "mco", 3 );
DEFINE_STRING( BGl_string5091z00zzjvm_ldz00, BgL_bgl_string5091za700za7za7jvm_ldza7005237z00, "Can't established JVM main class", 32 );
DEFINE_STRING( BGl_string5100z00zzjvm_ldz00, BgL_bgl_string5100za700za7za7jvm_ldza7005238z00, "Can't find Main JVM class", 25 );
DEFINE_STRING( BGl_string5090z00zzjvm_ldz00, BgL_bgl_string5090za700za7za7jvm_ldza7005239z00, "ld", 2 );
DEFINE_STRING( BGl_string5089z00zzjvm_ldz00, BgL_bgl_string5089za700za7za7jvm_ldza7005240z00, ".class", 6 );
DEFINE_STRING( BGl_string5088z00zzjvm_ldz00, BgL_bgl_string5088za700za7za7jvm_ldza7005241z00, " (", 2 );
DEFINE_STRING( BGl_string5087z00zzjvm_ldz00, BgL_bgl_string5087za700za7za7jvm_ldza7005242z00, ")", 1 );
DEFINE_STRING( BGl_string5086z00zzjvm_ldz00, BgL_bgl_string5086za700za7za7jvm_ldza7005243z00, "   . jar", 8 );
DEFINE_STRING( BGl_string5085z00zzjvm_ldz00, BgL_bgl_string5085za700za7za7jvm_ldza7005244z00, ".jar", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_jvmzd2ldzd2envz00zzjvm_ldz00, BgL_bgl__jvmza7d2ldza7d2za7za7jvm_ldza7005245za7, BGl__jvmzd2ldzd2zzjvm_ldz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc5102z00zzjvm_ldz00, BgL_bgl_za7c3anonymousza7a33362za7e3za783za7za7jvm_ldza7005246za7, BGl_zc3anonymousza33362ze3z83zzjvm_ldz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc5105z00zzjvm_ldz00, BgL_bgl_za7c3anonymousza7a33409za7e3za783za7za7jvm_ldza7005247za7, BGl_zc3anonymousza33409ze3z83zzjvm_ldz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc5099z00zzjvm_ldz00, BgL_bgl_za7c3anonymousza7a33247za7e3za783za7za7jvm_ldza7005248za7, BGl_zc3anonymousza33247ze3z83zzjvm_ldz00, 0L, 0 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzjvm_ldz00(long BgL_checksumz00_2219, char * BgL_fromz00_2220)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzjvm_ldz00))
{ 
BGl_requirezd2initializa7ationz75zzjvm_ldz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzjvm_ldz00(); 
BGl_cnstzd2initzd2zzjvm_ldz00(); 
BGl_importedzd2moduleszd2initz00zzjvm_ldz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzjvm_ldz00()
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 16 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zz__osz00(((long)0), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)0), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zz__hashz00(((long)0), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)0), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "jvm_ld"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzjvm_ldz00()
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 16 */
{ /* ./Jvm/jld.scm 16 */
obj_t BgL_cportz00_2212;
BgL_cportz00_2212 = 
open_input_string(BGl_string5149z00zzjvm_ldz00); 
{ 
long BgL_iz00_2213;
BgL_iz00_2213 = ((long)10); 
BgL_loopz00_2214:
{ /* ./Jvm/jld.scm 16 */
bool_t BgL_test5151z00_2215;
BgL_test5151z00_2215 = 
(BgL_iz00_2213==((long)-1)); 
if(BgL_test5151z00_2215)
{ /* ./Jvm/jld.scm 16 */
return BUNSPEC;}  else 
{ /* ./Jvm/jld.scm 16 */
{ /* ./Jvm/jld.scm 16 */
obj_t BgL_arg5153z00_2216;
{ /* ./Jvm/jld.scm 16 */
obj_t BgL_list5156z00_2217;
BgL_list5156z00_2217 = 
MAKE_PAIR(BgL_cportz00_2212, BNIL); 
BgL_arg5153z00_2216 = 
BGl_readz00zz__readerz00(BgL_list5156z00_2217); } 
{ /* ./Jvm/jld.scm 16 */
int BgL_auxz00_2243;
BgL_auxz00_2243 = 
(int)(BgL_iz00_2213); 
CNST_TABLE_SET(BgL_auxz00_2243, BgL_arg5153z00_2216); } } 
{ /* ./Jvm/jld.scm 16 */
int BgL_auxz00_2218;
{ /* ./Jvm/jld.scm 16 */
long BgL_auxz00_2246;
BgL_auxz00_2246 = 
(BgL_iz00_2213-((long)1)); 
BgL_auxz00_2218 = 
(int)(BgL_auxz00_2246); } 
{ 
long BgL_iz00_2249;
BgL_iz00_2249 = 
(long)(BgL_auxz00_2218); 
BgL_iz00_2213 = BgL_iz00_2249; 
goto BgL_loopz00_2214;} } } } } } } 
}



/* jvm-ld */
BGL_EXPORTED_DEF obj_t BGl_jvmzd2ldzd2zzjvm_ldz00()
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 38 */
{ /* ./Jvm/jld.scm 39 */
obj_t BgL_targetz00_785;
{ /* ./Jvm/jld.scm 39 */
bool_t BgL_test3154z00_836;
{ /* ./Jvm/jld.scm 39 */
obj_t BgL_objz00_1855;
BgL_objz00_1855 = BGl_za2destza2z00zzengine_paramz00; 
BgL_test3154z00_836 = 
STRINGP(BgL_objz00_1855); } 
if(BgL_test3154z00_836)
{ /* ./Jvm/jld.scm 39 */
BgL_targetz00_785 = BGl_za2destza2z00zzengine_paramz00; }  else 
{ /* ./Jvm/jld.scm 39 */
BgL_targetz00_785 = 
BGl_defaultzd2scriptzd2namez00zz__osz00(); } } 
{ /* ./Jvm/jld.scm 39 */
obj_t BgL_jarnamez00_786;
{ /* ./Jvm/jld.scm 42 */
obj_t BgL_arg3150z00_834;
BgL_arg3150z00_834 = 
BGl_prefixz00zz__osz00(BgL_targetz00_785); 
BgL_jarnamez00_786 = 
string_append(BgL_arg3150z00_834, BGl_string5085z00zzjvm_ldz00); } 
{ /* ./Jvm/jld.scm 42 */
obj_t BgL_za7ipsza7_787;
{ /* ./Jvm/jld.scm 43 */
obj_t BgL_arg3118z00_817;
{ /* ./Jvm/jld.scm 43 */
obj_t BgL_l2989z00_818;
BgL_l2989z00_818 = BGl_za2additionalzd2bigloozd2librariesza2z00zzengine_paramz00; 
{ /* ./Jvm/jld.scm 43 */
bool_t BgL_test3120z00_819;
BgL_test3120z00_819 = 
NULLP(BgL_l2989z00_818); 
if(BgL_test3120z00_819)
{ /* ./Jvm/jld.scm 43 */
BgL_arg3118z00_817 = BNIL; }  else 
{ /* ./Jvm/jld.scm 43 */
obj_t BgL_head2991z00_820;
{ /* ./Jvm/jld.scm 43 */
obj_t BgL_arg3141z00_831;
{ /* ./Jvm/jld.scm 43 */
obj_t BgL_arg3145z00_833;
BgL_arg3145z00_833 = 
CAR(BgL_l2989z00_818); 
BgL_arg3141z00_831 = 
BGl_libraryzd2ze3za7ipz96zzjvm_ldz00(BgL_arg3145z00_833); } 
BgL_head2991z00_820 = 
MAKE_PAIR(BgL_arg3141z00_831, BNIL); } 
{ 
obj_t BgL_l2989z00_821;obj_t BgL_tail2992z00_822;
{ /* ./Jvm/jld.scm 43 */
obj_t BgL_arg3122z00_824;
BgL_arg3122z00_824 = 
CDR(BgL_l2989z00_818); 
BgL_l2989z00_821 = BgL_arg3122z00_824; 
BgL_tail2992z00_822 = BgL_head2991z00_820; 
BgL_map2990z00_823:
{ /* ./Jvm/jld.scm 43 */
bool_t BgL_test3125z00_825;
BgL_test3125z00_825 = 
NULLP(BgL_l2989z00_821); 
if(BgL_test3125z00_825)
{ /* ./Jvm/jld.scm 43 */
BgL_arg3118z00_817 = BgL_head2991z00_820; }  else 
{ /* ./Jvm/jld.scm 43 */
obj_t BgL_newtail2993z00_826;
{ /* ./Jvm/jld.scm 43 */
obj_t BgL_arg3132z00_828;
{ /* ./Jvm/jld.scm 43 */
obj_t BgL_arg3136z00_830;
BgL_arg3136z00_830 = 
CAR(BgL_l2989z00_821); 
BgL_arg3132z00_828 = 
BGl_libraryzd2ze3za7ipz96zzjvm_ldz00(BgL_arg3136z00_830); } 
BgL_newtail2993z00_826 = 
MAKE_PAIR(BgL_arg3132z00_828, BNIL); } 
SET_CDR(BgL_tail2992z00_822, BgL_newtail2993z00_826); 
{ /* ./Jvm/jld.scm 43 */
obj_t BgL_arg3128z00_827;
BgL_arg3128z00_827 = 
CDR(BgL_l2989z00_821); 
{ 
obj_t BgL_tail2992z00_2270;obj_t BgL_l2989z00_2269;
BgL_l2989z00_2269 = BgL_arg3128z00_827; 
BgL_tail2992z00_2270 = BgL_newtail2993z00_826; 
BgL_tail2992z00_822 = BgL_tail2992z00_2270; 
BgL_l2989z00_821 = BgL_l2989z00_2269; 
goto BgL_map2990z00_823;} } } } } } } } } 
BgL_za7ipsza7_787 = 
bgl_append2(BgL_arg3118z00_817, BGl_za2additionalzd2bigloozd2za7ipsza2za7zzengine_paramz00); } 
{ /* ./Jvm/jld.scm 43 */

if(
CBOOL(BGl_za2jvmzd2jarzf3za2z21zzengine_paramz00))
{ /* ./Jvm/jld.scm 46 */
obj_t BgL_manifestz00_788;
BgL_manifestz00_788 = 
BGl_makezd2manifestzd2namez00zzjvm_ldz00(); 
{ /* ./Jvm/jld.scm 46 */
obj_t BgL_ozd2fileszd2_789;
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_arg3081z00_799;
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_l2994z00_800;
BgL_l2994z00_800 = BGl_za2srczd2filesza2zd2zzengine_paramz00; 
{ /* ./Jvm/jld.scm 47 */
bool_t BgL_test3083z00_801;
BgL_test3083z00_801 = 
NULLP(BgL_l2994z00_800); 
if(BgL_test3083z00_801)
{ /* ./Jvm/jld.scm 47 */
BgL_arg3081z00_799 = BNIL; }  else 
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_head2996z00_802;
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_arg3104z00_813;
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_arg3108z00_815;
BgL_arg3108z00_815 = 
CAR(BgL_l2994z00_800); 
BgL_arg3104z00_813 = 
BGl_sourcezd2ze3jvmzd2classze3zzjvm_ldz00(BgL_arg3108z00_815); } 
BgL_head2996z00_802 = 
MAKE_PAIR(BgL_arg3104z00_813, BNIL); } 
{ 
obj_t BgL_l2994z00_803;obj_t BgL_tail2997z00_804;
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_arg3085z00_806;
BgL_arg3085z00_806 = 
CDR(BgL_l2994z00_800); 
BgL_l2994z00_803 = BgL_arg3085z00_806; 
BgL_tail2997z00_804 = BgL_head2996z00_802; 
BgL_map2995z00_805:
{ /* ./Jvm/jld.scm 47 */
bool_t BgL_test3088z00_807;
BgL_test3088z00_807 = 
NULLP(BgL_l2994z00_803); 
if(BgL_test3088z00_807)
{ /* ./Jvm/jld.scm 47 */
BgL_arg3081z00_799 = BgL_head2996z00_802; }  else 
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_newtail2998z00_808;
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_arg3095z00_810;
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_arg3099z00_812;
BgL_arg3099z00_812 = 
CAR(BgL_l2994z00_803); 
BgL_arg3095z00_810 = 
BGl_sourcezd2ze3jvmzd2classze3zzjvm_ldz00(BgL_arg3099z00_812); } 
BgL_newtail2998z00_808 = 
MAKE_PAIR(BgL_arg3095z00_810, BNIL); } 
SET_CDR(BgL_tail2997z00_804, BgL_newtail2998z00_808); 
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_arg3091z00_809;
BgL_arg3091z00_809 = 
CDR(BgL_l2994z00_803); 
{ 
obj_t BgL_tail2997z00_2289;obj_t BgL_l2994z00_2288;
BgL_l2994z00_2288 = BgL_arg3091z00_809; 
BgL_tail2997z00_2289 = BgL_newtail2998z00_808; 
BgL_tail2997z00_804 = BgL_tail2997z00_2289; 
BgL_l2994z00_803 = BgL_l2994z00_2288; 
goto BgL_map2995z00_805;} } } } } } } } } 
BgL_ozd2fileszd2_789 = 
bgl_append2(BgL_arg3081z00_799, BGl_za2ozd2filesza2zd2zzengine_paramz00); } 
{ /* ./Jvm/jld.scm 47 */
obj_t BgL_allzd2objectszd2_790;
{ /* ./Jvm/jld.scm 49 */
obj_t BgL_arg3077z00_798;
BgL_arg3077z00_798 = 
BGl_objectszd2ze3classesz31zzjvm_ldz00(BgL_ozd2fileszd2_789); 
BgL_allzd2objectszd2_790 = 
BGl_uniquez00zzjvm_ldz00(BgL_arg3077z00_798); } 
{ /* ./Jvm/jld.scm 49 */

{ /* ./Jvm/jld.scm 50 */
obj_t BgL_list3055z00_791;
BgL_list3055z00_791 = 
MAKE_PAIR(BGl_string5086z00zzjvm_ldz00, BNIL); 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list3055z00_791); } 
{ /* ./Jvm/jld.scm 51 */
obj_t BgL_list3058z00_792;
{ /* ./Jvm/jld.scm 51 */
obj_t BgL_arg3062z00_794;
{ /* ./Jvm/jld.scm 51 */
obj_t BgL_arg3065z00_795;
BgL_arg3065z00_795 = 
MAKE_PAIR(BGl_string5087z00zzjvm_ldz00, BNIL); 
BgL_arg3062z00_794 = 
MAKE_PAIR(BgL_jarnamez00_786, BgL_arg3065z00_795); } 
BgL_list3058z00_792 = 
MAKE_PAIR(BGl_string5088z00zzjvm_ldz00, BgL_arg3062z00_794); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list3058z00_792); } 
{ /* ./Jvm/jld.scm 52 */
obj_t BgL_list3069z00_796;
{ /* ./Jvm/jld.scm 52 */
obj_t BgL_auxz00_2301;
BgL_auxz00_2301 = 
BCHAR(((unsigned char)'\n')); 
BgL_list3069z00_796 = 
MAKE_PAIR(BgL_auxz00_2301, BNIL); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list3069z00_796); } 
{ /* ./Jvm/jld.scm 54 */
obj_t BgL_arg3072z00_797;
BgL_arg3072z00_797 = 
BGl_findzd2jvmzd2mainz00zzjvm_ldz00(BgL_ozd2fileszd2_789); 
BGl_generatezd2jvmzd2manifestz00zzjvm_ldz00(BgL_manifestz00_788, BgL_arg3072z00_797, BgL_jarnamez00_786, BgL_za7ipsza7_787); } 
BGl_jvmzd2jarzd2zzjvm_ldz00(BgL_jarnamez00_786, BgL_manifestz00_788, BgL_allzd2objectszd2_790); } } } }  else 
{ /* ./Jvm/jld.scm 45 */BFALSE; } 
{ /* ./Jvm/jld.scm 59 */
obj_t BgL_arg3114z00_816;
BgL_arg3114z00_816 = 
BGl_findzd2jvmzd2mainclassz00zzjvm_ldz00(); 
{ /* ./Jvm/jld.scm 58 */
bool_t BgL_auxz00_2310;
BgL_auxz00_2310 = 
BGl_generatezd2jvmzd2scriptz00zzjvm_ldz00(BgL_targetz00_785, BgL_arg3114z00_816, BgL_jarnamez00_786, BgL_za7ipsza7_787); 
return 
BBOOL(BgL_auxz00_2310);} } } } } } } 
}



/* _jvm-ld */
obj_t BGl__jvmzd2ldzd2zzjvm_ldz00(obj_t BgL_envz00_2118)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 38 */
return 
BGl_jvmzd2ldzd2zzjvm_ldz00();} 
}



/* source->jvm-class */
obj_t BGl_sourcezd2ze3jvmzd2classze3zzjvm_ldz00(obj_t BgL_sz00_1)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 66 */
{ /* ./Jvm/jld.scm 67 */
obj_t BgL_qz00_837;
BgL_qz00_837 = 
BGl_sourcezd2ze3qualifiedzd2typeze3zzread_jvmz00(BgL_sz00_1); 
{ /* ./Jvm/jld.scm 69 */
obj_t BgL_arg3158z00_838;
{ /* ./Jvm/jld.scm 69 */
bool_t BgL_test3160z00_839;
BgL_test3160z00_839 = 
STRINGP(BgL_qz00_837); 
if(BgL_test3160z00_839)
{ /* ./Jvm/jld.scm 70 */
obj_t BgL_arg3162z00_840;
BgL_arg3162z00_840 = 
BGl_stringzd2replacez12zc0zztools_miscz00(BgL_qz00_837, 
BCHAR(((unsigned char)'.')), 
BCHAR(((unsigned char)'/'))); 
BgL_arg3158z00_838 = 
string_append(BgL_arg3162z00_840, BGl_string5089z00zzjvm_ldz00); }  else 
{ /* ./Jvm/jld.scm 71 */
obj_t BgL_arg3167z00_842;
BgL_arg3167z00_842 = 
BGl_prefixz00zz__osz00(BgL_sz00_1); 
BgL_arg3158z00_838 = 
string_append(BgL_arg3167z00_842, BGl_string5089z00zzjvm_ldz00); } } 
return 
BGl_jvmzd2classzd2withzd2directoryzd2zzread_jvmz00(BgL_arg3158z00_838);} } } 
}



/* find-jvm-mainclass */
obj_t BGl_findzd2jvmzd2mainclassz00zzjvm_ldz00()
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 76 */
{ /* ./Jvm/jld.scm 78 */
bool_t BgL_test3173z00_844;
{ /* ./Jvm/jld.scm 78 */
obj_t BgL_objz00_1881;
BgL_objz00_1881 = BGl_za2jvmzd2mainclassza2zd2zzengine_paramz00; 
BgL_test3173z00_844 = 
STRINGP(BgL_objz00_1881); } 
if(BgL_test3173z00_844)
{ /* ./Jvm/jld.scm 78 */
return BGl_za2jvmzd2mainclassza2zd2zzengine_paramz00;}  else 
{ /* ./Jvm/jld.scm 78 */
if(
CBOOL(BGl_za2mainza2z00zzmodule_modulez00))
{ /* ./Jvm/jld.scm 80 */
return 
BGl_modulezd2ze3qualifiedzd2typeze3zzread_jvmz00(BGl_za2moduleza2z00zzmodule_modulez00);}  else 
{ /* ./Jvm/jld.scm 82 */
bool_t BgL_test3175z00_845;
{ /* ./Jvm/jld.scm 82 */
obj_t BgL_objz00_1882;
BgL_objz00_1882 = BGl_za2linkzd2mainzd2moduleza2z00zzengine_linkz00; 
BgL_test3175z00_845 = 
SYMBOLP(BgL_objz00_1882); } 
if(BgL_test3175z00_845)
{ /* ./Jvm/jld.scm 82 */
return 
BGl_modulezd2ze3qualifiedzd2typeze3zzread_jvmz00(BGl_za2linkzd2mainzd2moduleza2z00zzengine_linkz00);}  else 
{ /* ./Jvm/jld.scm 82 */
FAILURE(BGl_string5090z00zzjvm_ldz00,BGl_string5091z00zzjvm_ldz00,BGl_string5092z00zzjvm_ldz00);} } } } } 
}



/* library->zip */
obj_t BGl_libraryzd2ze3za7ipz96zzjvm_ldz00(obj_t BgL_libz00_2)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 92 */
{ /* ./Jvm/jld.scm 93 */
obj_t BgL_dirz00_846;
{ /* ./Jvm/jld.scm 93 */
bool_t BgL_test3197z00_855;
{ /* ./Jvm/jld.scm 93 */
obj_t BgL_string1z00_1886;
BgL_string1z00_1886 = BGl_za2jvmzd2shellza2zd2zzengine_paramz00; 
BgL_test3197z00_855 = 
bigloo_strcmp(BgL_string1z00_1886, BGl_string5093z00zzjvm_ldz00); } 
if(BgL_test3197z00_855)
{ /* ./Jvm/jld.scm 94 */
obj_t BgL_arg3199z00_856;
BgL_arg3199z00_856 = 
BGl_jvmzd2bigloozd2classpathz00zzjvm_ldz00(); 
BgL_dirz00_846 = 
MAKE_PAIR(BgL_arg3199z00_856, BGl_za2libzd2dirza2zd2zzengine_paramz00); }  else 
{ /* ./Jvm/jld.scm 93 */
BgL_dirz00_846 = BGl_za2libzd2dirza2zd2zzengine_paramz00; } } 
{ /* ./Jvm/jld.scm 93 */
obj_t BgL_fz00_847;
{ /* ./Jvm/jld.scm 96 */
obj_t BgL_arg3194z00_854;
BgL_arg3194z00_854 = 
string_append(BgL_libz00_2, BGl_string5094z00zzjvm_ldz00); 
BgL_fz00_847 = 
BGl_findzd2filezf2pathz20zz__osz00(BgL_arg3194z00_854, BgL_dirz00_846); } 
{ /* ./Jvm/jld.scm 96 */

{ /* ./Jvm/jld.scm 97 */
bool_t BgL_test3180z00_848;
BgL_test3180z00_848 = 
STRINGP(BgL_fz00_847); 
if(BgL_test3180z00_848)
{ /* ./Jvm/jld.scm 97 */
return BgL_fz00_847;}  else 
{ /* ./Jvm/jld.scm 97 */
{ /* ./Jvm/jld.scm 100 */
obj_t BgL_list3182z00_849;
{ /* ./Jvm/jld.scm 100 */
obj_t BgL_arg3185z00_851;
{ /* ./Jvm/jld.scm 100 */
obj_t BgL_arg3189z00_853;
BgL_arg3189z00_853 = 
MAKE_PAIR(BgL_libz00_2, BNIL); 
BgL_arg3185z00_851 = 
MAKE_PAIR(BGl_string5095z00zzjvm_ldz00, BgL_arg3189z00_853); } 
BgL_list3182z00_849 = 
MAKE_PAIR(BGl_string5096z00zzjvm_ldz00, BgL_arg3185z00_851); } 
BGl_warningz00zz__errorz00(BgL_list3182z00_849); } 
return BFALSE;} } } } } } 
}



/* find-jvm-main */
obj_t BGl_findzd2jvmzd2mainz00zzjvm_ldz00(obj_t BgL_ozd2fileszd2_3)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 106 */
{ /* ./Jvm/jld.scm 107 */
bool_t BgL_test3203z00_857;
{ /* ./Jvm/jld.scm 107 */
obj_t BgL_obj1174z00_1889;
BgL_obj1174z00_1889 = BGl_za2mainza2z00zzmodule_modulez00; 
BgL_test3203z00_857 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1174z00_1889, BGl_globalz00zzast_varz00); } 
if(BgL_test3203z00_857)
{ /* ./Jvm/jld.scm 108 */
obj_t BgL_arg3205z00_858;
{ /* ./Jvm/jld.scm 108 */
obj_t BgL_pairz00_1890;
BgL_pairz00_1890 = BGl_za2srczd2filesza2zd2zzengine_paramz00; 
BgL_arg3205z00_858 = 
CAR(BgL_pairz00_1890); } 
return 
BGl_prefixz00zz__osz00(BgL_arg3205z00_858);}  else 
{ /* ./Jvm/jld.scm 109 */
obj_t BgL_armed3002z00_859;
BgL_armed3002z00_859 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Jvm/jld.scm 126 */
obj_t BgL_zc3anonymousza33231ze3z83_2121;obj_t BgL_zc3anonymousza33228ze3z83_2123;
{ 
int BgL_auxz00_2351;int BgL_auxz00_2349;
BgL_auxz00_2351 = 
(int)(((long)1)); 
BgL_auxz00_2349 = 
(int)(((long)0)); 
BgL_zc3anonymousza33231ze3z83_2121 = 
make_fx_procedure(BGl_zc3anonymousza33231ze3z83zzjvm_ldz00, BgL_auxz00_2349, BgL_auxz00_2351); } 
{ 
int BgL_auxz00_2356;int BgL_auxz00_2354;
BgL_auxz00_2356 = 
(int)(((long)2)); 
BgL_auxz00_2354 = 
(int)(((long)4)); 
BgL_zc3anonymousza33228ze3z83_2123 = 
make_fx_procedure(BGl_zc3anonymousza33228ze3z83zzjvm_ldz00, BgL_auxz00_2354, BgL_auxz00_2356); } 
{ /* ./Jvm/jld.scm 126 */
int BgL_auxz00_2359;
BgL_auxz00_2359 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33231ze3z83_2121, BgL_auxz00_2359, BgL_ozd2fileszd2_3); } 
{ /* ./Jvm/jld.scm 126 */
int BgL_auxz00_2362;
BgL_auxz00_2362 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33228ze3z83_2123, BgL_auxz00_2362, BgL_armed3002z00_859); } 
{ /* ./Jvm/jld.scm 126 */
int BgL_auxz00_2365;
BgL_auxz00_2365 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza33228ze3z83_2123, BgL_auxz00_2365, BgL_ozd2fileszd2_3); } 
CELL_SET(BgL_armed3002z00_859, BTRUE); 
return 
BGl_zc3exitza33208ze3z83zzjvm_ldz00(BgL_zc3anonymousza33231ze3z83_2121, BgL_zc3anonymousza33228ze3z83_2123, BgL_ozd2fileszd2_3, BgL_armed3002z00_859);} } } } 
}



/* <exit:3208> */
obj_t BGl_zc3exitza33208ze3z83zzjvm_ldz00(obj_t BgL_zc3anonymousza33231ze3z83_2211, obj_t BgL_zc3anonymousza33228ze3z83_2210, obj_t BgL_ozd2fileszd2_2209, obj_t BgL_armed3002z00_2208)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 125 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit3004z00_864;
if( SET_EXIT(BgL_an_exit3004z00_864) ) { 
return 
_exit_value_;
} else {
BgL_an_exit3004z00_864 = 
(obj_t)jmpbuf; 
{ /* ./Jvm/jld.scm 125 */

PUSH_EXIT(BgL_an_exit3004z00_864, ((bool_t)1)); 
{ /* ./Jvm/jld.scm 125 */
obj_t BgL_an_exitd3005z00_865;
BgL_an_exitd3005z00_865 = 
BGL_EXITD_TOP(); 
{ /* ./Jvm/jld.scm 125 */
obj_t BgL_escapez00_2122;
{ 
int BgL_auxz00_2375;int BgL_auxz00_2373;
BgL_auxz00_2375 = 
(int)(((long)1)); 
BgL_auxz00_2373 = 
(int)(((long)1)); 
BgL_escapez00_2122 = 
make_fx_procedure(BGl_escapez00zzjvm_ldz00, BgL_auxz00_2373, BgL_auxz00_2375); } 
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2378;
BgL_auxz00_2378 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_2122, BgL_auxz00_2378, BgL_an_exitd3005z00_865); } 
{ /* ./Jvm/jld.scm 125 */
obj_t BgL_res3007z00_868;
{ /* ./Jvm/jld.scm 125 */
obj_t BgL_zc3anonymousza33218ze3z83_2119;obj_t BgL_zc3anonymousza33216ze3z83_2124;
{ 
int BgL_auxz00_2383;int BgL_auxz00_2381;
BgL_auxz00_2383 = 
(int)(((long)1)); 
BgL_auxz00_2381 = 
(int)(((long)0)); 
BgL_zc3anonymousza33218ze3z83_2119 = 
make_fx_procedure(BGl_zc3anonymousza33218ze3z83zzjvm_ldz00, BgL_auxz00_2381, BgL_auxz00_2383); } 
{ 
int BgL_auxz00_2388;int BgL_auxz00_2386;
BgL_auxz00_2388 = 
(int)(((long)5)); 
BgL_auxz00_2386 = 
(int)(((long)0)); 
BgL_zc3anonymousza33216ze3z83_2124 = 
make_fx_procedure(BGl_zc3anonymousza33216ze3z83zzjvm_ldz00, BgL_auxz00_2386, BgL_auxz00_2388); } 
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2391;
BgL_auxz00_2391 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33218ze3z83_2119, BgL_auxz00_2391, BgL_armed3002z00_2208); } 
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2394;
BgL_auxz00_2394 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33216ze3z83_2124, BgL_auxz00_2394, BgL_an_exitd3005z00_865); } 
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2397;
BgL_auxz00_2397 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza33216ze3z83_2124, BgL_auxz00_2397, BgL_armed3002z00_2208); } 
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2400;
BgL_auxz00_2400 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza33216ze3z83_2124, BgL_auxz00_2400, BgL_ozd2fileszd2_2209); } 
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2403;
BgL_auxz00_2403 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza33216ze3z83_2124, BgL_auxz00_2403, BgL_zc3anonymousza33228ze3z83_2210); } 
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2406;
BgL_auxz00_2406 = 
(int)(((long)4)); 
PROCEDURE_SET(BgL_zc3anonymousza33216ze3z83_2124, BgL_auxz00_2406, BgL_escapez00_2122); } 
BgL_res3007z00_868 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza33216ze3z83_2124, BgL_zc3anonymousza33231ze3z83_2211, BgL_zc3anonymousza33218ze3z83_2119); } 
POP_EXIT(); 
return BgL_res3007z00_868;} } } } 
} } 
}



/* <anonymous:3218> */
obj_t BGl_zc3anonymousza33218ze3z83zzjvm_ldz00(obj_t BgL_envz00_2125)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 125 */
{ /* ./Jvm/jld.scm 125 */
obj_t BgL_armed3002z00_2126;
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2411;
BgL_auxz00_2411 = 
(int)(((long)0)); 
BgL_armed3002z00_2126 = 
PROCEDURE_REF(BgL_envz00_2125, BgL_auxz00_2411); } 
{ 

{ /* ./Jvm/jld.scm 125 */
bool_t BgL_testz00_2414;
{ /* ./Jvm/jld.scm 125 */
obj_t BgL_auxz00_2415;
BgL_auxz00_2415 = 
CELL_REF(BgL_armed3002z00_2126); 
BgL_testz00_2414 = 
CBOOL(BgL_auxz00_2415); } 
if(BgL_testz00_2414)
{ /* ./Jvm/jld.scm 125 */
CELL_SET(BgL_armed3002z00_2126, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Jvm/jld.scm 125 */
return BFALSE;} } } } } 
}



/* <anonymous:3231> */
obj_t BGl_zc3anonymousza33231ze3z83zzjvm_ldz00(obj_t BgL_envz00_2128)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 125 */
{ /* ./Jvm/jld.scm 109 */
obj_t BgL_ozd2fileszd2_2129;
{ /* ./Jvm/jld.scm 109 */
int BgL_auxz00_2418;
BgL_auxz00_2418 = 
(int)(((long)0)); 
BgL_ozd2fileszd2_2129 = 
PROCEDURE_REF(BgL_envz00_2128, BgL_auxz00_2418); } 
{ 

{ 
obj_t BgL_ozd2fileszd2_887;
BgL_ozd2fileszd2_887 = BgL_ozd2fileszd2_2129; 
BgL_loopz00_888:
{ /* ./Jvm/jld.scm 110 */
bool_t BgL_test3233z00_889;
BgL_test3233z00_889 = 
NULLP(BgL_ozd2fileszd2_887); 
if(BgL_test3233z00_889)
{ /* ./Jvm/jld.scm 110 */
FAILURE(BGl_string5097z00zzjvm_ldz00,BGl_string5098z00zzjvm_ldz00,BgL_ozd2fileszd2_887);}  else 
{ /* ./Jvm/jld.scm 112 */
obj_t BgL_prefz00_890;
{ /* ./Jvm/jld.scm 112 */
obj_t BgL_arg3317z00_933;
{ /* ./Jvm/jld.scm 112 */
obj_t BgL_arg3320z00_934;
BgL_arg3320z00_934 = 
CAR(BgL_ozd2fileszd2_887); 
BgL_arg3317z00_933 = 
BGl_prefixz00zz__osz00(BgL_arg3320z00_934); } 
BgL_prefz00_890 = 
BGl_unprofzd2srczd2namez00zzengine_linkz00(BgL_arg3317z00_933); } 
{ /* ./Jvm/jld.scm 112 */
obj_t BgL_bprefz00_891;
BgL_bprefz00_891 = 
BGl_basenamez00zz__osz00(BgL_prefz00_890); 
{ /* ./Jvm/jld.scm 113 */
obj_t BgL_scmzd2filezd2_892;
BgL_scmzd2filezd2_892 = 
BGl_findzd2srczd2filez00zzengine_linkz00(BgL_prefz00_890, BgL_bprefz00_891); 
{ /* ./Jvm/jld.scm 114 */

{ /* ./Jvm/jld.scm 115 */
bool_t BgL_test3235z00_893;
{ /* ./Jvm/jld.scm 115 */
bool_t BgL_test3310z00_931;
BgL_test3310z00_931 = 
STRINGP(BgL_scmzd2filezd2_892); 
if(BgL_test3310z00_931)
{ /* ./Jvm/jld.scm 116 */
bool_t BgL_test3311z00_932;
{ /* ./Jvm/jld.scm 116 */
char * BgL_namez00_1909;
BgL_namez00_1909 = 
BSTRING_TO_STRING(BgL_scmzd2filezd2_892); 
BgL_test3311z00_932 = 
fexists(BgL_namez00_1909); } 
if(BgL_test3311z00_932)
{ /* ./Jvm/jld.scm 116 */
BgL_test3235z00_893 = ((bool_t)0); }  else 
{ /* ./Jvm/jld.scm 116 */
BgL_test3235z00_893 = ((bool_t)1); } }  else 
{ /* ./Jvm/jld.scm 115 */
BgL_test3235z00_893 = ((bool_t)1); } } 
if(BgL_test3235z00_893)
{ /* ./Jvm/jld.scm 117 */
obj_t BgL_arg3237z00_894;
BgL_arg3237z00_894 = 
CDR(BgL_ozd2fileszd2_887); 
{ 
obj_t BgL_ozd2fileszd2_2436;
BgL_ozd2fileszd2_2436 = BgL_arg3237z00_894; 
BgL_ozd2fileszd2_887 = BgL_ozd2fileszd2_2436; 
goto BgL_loopz00_888;} }  else 
{ /* ./Jvm/jld.scm 118 */
obj_t BgL__ortest_3003z00_895;
BgL__ortest_3003z00_895 = 
BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(BgL_scmzd2filezd2_892, BGl_proc5099z00zzjvm_ldz00); 
if(
CBOOL(BgL__ortest_3003z00_895))
{ /* ./Jvm/jld.scm 124 */
return BgL__ortest_3003z00_895;}  else 
{ /* ./Jvm/jld.scm 124 */
obj_t BgL_arg3241z00_896;
BgL_arg3241z00_896 = 
CDR(BgL_ozd2fileszd2_887); 
{ 
obj_t BgL_ozd2fileszd2_2441;
BgL_ozd2fileszd2_2441 = BgL_arg3241z00_896; 
BgL_ozd2fileszd2_887 = BgL_ozd2fileszd2_2441; 
goto BgL_loopz00_888;} } } } } } } } } } } } } 
}



/* <anonymous:3216> */
obj_t BGl_zc3anonymousza33216ze3z83zzjvm_ldz00(obj_t BgL_envz00_2130)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 125 */
{ /* ./Jvm/jld.scm 125 */
obj_t BgL_zc3anonymousza33228ze3z83_2134;obj_t BgL_escapez00_2135;
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2442;
BgL_auxz00_2442 = 
(int)(((long)3)); 
BgL_zc3anonymousza33228ze3z83_2134 = 
PROCEDURE_REF(BgL_envz00_2130, BgL_auxz00_2442); } 
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2445;
BgL_auxz00_2445 = 
(int)(((long)4)); 
BgL_escapez00_2135 = 
PROCEDURE_REF(BgL_envz00_2130, BgL_auxz00_2445); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza33228ze3z83_2134, BgL_escapez00_2135);} } } 
}



/* escape */
obj_t BGl_escapez00zzjvm_ldz00(obj_t BgL_envz00_2136, obj_t BgL_val3006z00_2138)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 125 */
{ /* ./Jvm/jld.scm 125 */
obj_t BgL_an_exitd3005z00_2137;
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2449;
BgL_auxz00_2449 = 
(int)(((long)0)); 
BgL_an_exitd3005z00_2137 = 
PROCEDURE_REF(BgL_envz00_2136, BgL_auxz00_2449); } 
{ 
obj_t BgL_val3006z00_866;
BgL_val3006z00_866 = BgL_val3006z00_2138; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd3005z00_2137, BgL_val3006z00_866);} } } 
}



/* <anonymous:3228> */
obj_t BGl_zc3anonymousza33228ze3z83zzjvm_ldz00(obj_t BgL_envz00_2139, obj_t BgL_escz00_2142, obj_t BgL_objz00_2143, obj_t BgL_procz00_2144, obj_t BgL_msgz00_2145)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 125 */
{ /* ./Jvm/jld.scm 125 */
obj_t BgL_armed3002z00_2140;obj_t BgL_ozd2fileszd2_2141;
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2453;
BgL_auxz00_2453 = 
(int)(((long)0)); 
BgL_armed3002z00_2140 = 
PROCEDURE_REF(BgL_envz00_2139, BgL_auxz00_2453); } 
{ /* ./Jvm/jld.scm 125 */
int BgL_auxz00_2456;
BgL_auxz00_2456 = 
(int)(((long)1)); 
BgL_ozd2fileszd2_2141 = 
PROCEDURE_REF(BgL_envz00_2139, BgL_auxz00_2456); } 
{ 
obj_t BgL_escz00_881;obj_t BgL_objz00_882;obj_t BgL_procz00_883;obj_t BgL_msgz00_884;
BgL_escz00_881 = BgL_escz00_2142; 
BgL_objz00_882 = BgL_objz00_2143; 
BgL_procz00_883 = BgL_procz00_2144; 
BgL_msgz00_884 = BgL_msgz00_2145; 
CELL_SET(BgL_armed3002z00_2140, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
BGl_notifyzd2errorzd2zz__errorz00(BgL_objz00_882, BgL_procz00_883, BgL_msgz00_884); 
FAILURE(BGl_string5097z00zzjvm_ldz00,BGl_string5100z00zzjvm_ldz00,BgL_ozd2fileszd2_2141);} } } 
}



/* <anonymous:3247> */
obj_t BGl_zc3anonymousza33247ze3z83zzjvm_ldz00(obj_t BgL_envz00_2147)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 119 */
{ 

{ /* ./Jvm/jld.scm 120 */
obj_t BgL_ezd2105zd2_902;
BgL_ezd2105zd2_902 = 
BGl_compilerzd2readzd2zzread_readerz00(BNIL); 
{ /* ./Jvm/jld.scm 119 */
bool_t BgL_test3248z00_903;
BgL_test3248z00_903 = 
PAIRP(BgL_ezd2105zd2_902); 
if(BgL_test3248z00_903)
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_cdrzd2109zd2_904;
BgL_cdrzd2109zd2_904 = 
CDR(BgL_ezd2105zd2_902); 
{ /* ./Jvm/jld.scm 119 */
bool_t BgL_test3249z00_905;
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_auxz00_2472;obj_t BgL_auxz00_2470;
BgL_auxz00_2472 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_2470 = 
CAR(BgL_ezd2105zd2_902); 
BgL_test3249z00_905 = 
(BgL_auxz00_2470==BgL_auxz00_2472); } 
if(BgL_test3249z00_905)
{ /* ./Jvm/jld.scm 119 */
bool_t BgL_test3250z00_906;
BgL_test3250z00_906 = 
PAIRP(BgL_cdrzd2109zd2_904); 
if(BgL_test3250z00_906)
{ 
obj_t BgL_gzd2114zd2_909;
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_arg3252z00_908;
BgL_arg3252z00_908 = 
CDR(BgL_cdrzd2109zd2_904); 
BgL_gzd2114zd2_909 = BgL_arg3252z00_908; 
BgL_zc3anonymousza33255ze3z83_910:
{ /* ./Jvm/jld.scm 119 */
bool_t BgL_test3256z00_911;
BgL_test3256z00_911 = 
PAIRP(BgL_gzd2114zd2_909); 
if(BgL_test3256z00_911)
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_carzd2116zd2_912;
BgL_carzd2116zd2_912 = 
CAR(BgL_gzd2114zd2_909); 
{ /* ./Jvm/jld.scm 119 */
bool_t BgL_test3257z00_913;
BgL_test3257z00_913 = 
PAIRP(BgL_carzd2116zd2_912); 
if(BgL_test3257z00_913)
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_cdrzd2119zd2_914;
BgL_cdrzd2119zd2_914 = 
CDR(BgL_carzd2116zd2_912); 
{ /* ./Jvm/jld.scm 119 */
bool_t BgL_test3258z00_915;
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_auxz00_2487;obj_t BgL_auxz00_2485;
BgL_auxz00_2487 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2485 = 
CAR(BgL_carzd2116zd2_912); 
BgL_test3258z00_915 = 
(BgL_auxz00_2485==BgL_auxz00_2487); } 
if(BgL_test3258z00_915)
{ /* ./Jvm/jld.scm 119 */
bool_t BgL_test3259z00_916;
BgL_test3259z00_916 = 
PAIRP(BgL_cdrzd2119zd2_914); 
if(BgL_test3259z00_916)
{ /* ./Jvm/jld.scm 119 */
bool_t BgL_test3260z00_917;
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_auxz00_2493;
BgL_auxz00_2493 = 
CDR(BgL_cdrzd2119zd2_914); 
BgL_test3260z00_917 = 
NULLP(BgL_auxz00_2493); } 
if(BgL_test3260z00_917)
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_arg3262z00_918;
BgL_arg3262z00_918 = 
CAR(BgL_cdrzd2109zd2_904); 
return 
BGl_modulezd2ze3qualifiedzd2typeze3zzread_jvmz00(BgL_arg3262z00_918);}  else 
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_arg3266z00_919;
BgL_arg3266z00_919 = 
CDR(BgL_gzd2114zd2_909); 
{ 
obj_t BgL_gzd2114zd2_2500;
BgL_gzd2114zd2_2500 = BgL_arg3266z00_919; 
BgL_gzd2114zd2_909 = BgL_gzd2114zd2_2500; 
goto BgL_zc3anonymousza33255ze3z83_910;} } }  else 
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_arg3274z00_921;
BgL_arg3274z00_921 = 
CDR(BgL_gzd2114zd2_909); 
{ 
obj_t BgL_gzd2114zd2_2502;
BgL_gzd2114zd2_2502 = BgL_arg3274z00_921; 
BgL_gzd2114zd2_909 = BgL_gzd2114zd2_2502; 
goto BgL_zc3anonymousza33255ze3z83_910;} } }  else 
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_arg3279z00_922;
BgL_arg3279z00_922 = 
CDR(BgL_gzd2114zd2_909); 
{ 
obj_t BgL_gzd2114zd2_2504;
BgL_gzd2114zd2_2504 = BgL_arg3279z00_922; 
BgL_gzd2114zd2_909 = BgL_gzd2114zd2_2504; 
goto BgL_zc3anonymousza33255ze3z83_910;} } } }  else 
{ /* ./Jvm/jld.scm 119 */
obj_t BgL_arg3289z00_925;
BgL_arg3289z00_925 = 
CDR(BgL_gzd2114zd2_909); 
{ 
obj_t BgL_gzd2114zd2_2506;
BgL_gzd2114zd2_2506 = BgL_arg3289z00_925; 
BgL_gzd2114zd2_909 = BgL_gzd2114zd2_2506; 
goto BgL_zc3anonymousza33255ze3z83_910;} } } }  else 
{ /* ./Jvm/jld.scm 119 */
return BFALSE;} } } }  else 
{ /* ./Jvm/jld.scm 119 */
return BFALSE;} }  else 
{ /* ./Jvm/jld.scm 119 */
return BFALSE;} } }  else 
{ /* ./Jvm/jld.scm 119 */
return BFALSE;} } } } } 
}



/* objects->classes */
obj_t BGl_objectszd2ze3classesz31zzjvm_ldz00(obj_t BgL_objectsz00_4)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 133 */
{ 
obj_t BgL_sourcez00_959;
{ 
obj_t BgL_objectsz00_942;obj_t BgL_classesz00_943;
BgL_objectsz00_942 = BgL_objectsz00_4; 
BgL_classesz00_943 = BNIL; 
BgL_loopz00_944:
{ /* ./Jvm/jld.scm 201 */
bool_t BgL_test3326z00_945;
BgL_test3326z00_945 = 
NULLP(BgL_objectsz00_942); 
if(BgL_test3326z00_945)
{ /* ./Jvm/jld.scm 201 */
return BgL_classesz00_943;}  else 
{ /* ./Jvm/jld.scm 203 */
obj_t BgL_objectz00_946;
BgL_objectz00_946 = 
CAR(BgL_objectsz00_942); 
{ /* ./Jvm/jld.scm 203 */
obj_t BgL_prefz00_947;
{ /* ./Jvm/jld.scm 204 */
obj_t BgL_arg3352z00_958;
BgL_arg3352z00_958 = 
BGl_prefixz00zz__osz00(BgL_objectz00_946); 
BgL_prefz00_947 = 
BGl_unprofzd2srczd2namez00zzengine_linkz00(BgL_arg3352z00_958); } 
{ /* ./Jvm/jld.scm 204 */
obj_t BgL_bprefz00_948;
BgL_bprefz00_948 = 
BGl_basenamez00zz__osz00(BgL_prefz00_947); 
{ /* ./Jvm/jld.scm 205 */
obj_t BgL_scmzd2filezd2_949;
BgL_scmzd2filezd2_949 = 
BGl_findzd2srczd2filez00zzengine_linkz00(BgL_prefz00_947, BgL_bprefz00_948); 
{ /* ./Jvm/jld.scm 206 */

{ /* ./Jvm/jld.scm 207 */
bool_t BgL_test3327z00_950;
{ /* ./Jvm/jld.scm 207 */
bool_t BgL_test3346z00_957;
BgL_test3346z00_957 = 
STRINGP(BgL_scmzd2filezd2_949); 
if(BgL_test3346z00_957)
{ /* ./Jvm/jld.scm 207 */
char * BgL_namez00_1934;
BgL_namez00_1934 = 
BSTRING_TO_STRING(BgL_scmzd2filezd2_949); 
BgL_test3327z00_950 = 
fexists(BgL_namez00_1934); }  else 
{ /* ./Jvm/jld.scm 207 */
BgL_test3327z00_950 = ((bool_t)0); } } 
if(BgL_test3327z00_950)
{ /* ./Jvm/jld.scm 208 */
obj_t BgL_arg3329z00_951;obj_t BgL_arg3330z00_952;
BgL_arg3329z00_951 = 
CDR(BgL_objectsz00_942); 
{ /* ./Jvm/jld.scm 210 */
obj_t BgL_arg3334z00_953;
{ /* ./Jvm/jld.scm 210 */
obj_t BgL_arg3337z00_954;
BgL_sourcez00_959 = BgL_scmzd2filezd2_949; 
{ /* ./Jvm/jld.scm 183 */
bool_t BgL_test3358z00_961;
{ /* ./Jvm/jld.scm 183 */
bool_t BgL_test3416z00_1013;
{ /* ./Jvm/jld.scm 183 */
obj_t BgL_arg3419z00_1014;
BgL_arg3419z00_1014 = 
BGl_suffixz00zz__osz00(BgL_sourcez00_959); 
BgL_test3416z00_1013 = 
bigloo_strcmp(BgL_arg3419z00_1014, BGl_string5101z00zzjvm_ldz00); } 
if(BgL_test3416z00_1013)
{ /* ./Jvm/jld.scm 183 */
BgL_test3358z00_961 = ((bool_t)0); }  else 
{ /* ./Jvm/jld.scm 184 */
char * BgL_namez00_1939;
BgL_namez00_1939 = 
BSTRING_TO_STRING(BgL_sourcez00_959); 
BgL_test3358z00_961 = 
fexists(BgL_namez00_1939); } } 
if(BgL_test3358z00_961)
{ /* ./Jvm/jld.scm 183 */
BgL_arg3337z00_954 = 
BGl_withzd2inputzd2fromzd2filezd2zz__r4_ports_6_10_1z00(BgL_sourcez00_959, BGl_proc5102z00zzjvm_ldz00); }  else 
{ /* ./Jvm/jld.scm 183 */
BgL_arg3337z00_954 = BNIL; } } 
BgL_arg3334z00_953 = 
bgl_append2(BgL_arg3337z00_954, BgL_classesz00_943); } 
BgL_arg3330z00_952 = 
MAKE_PAIR(BgL_objectz00_946, BgL_arg3334z00_953); } 
{ 
obj_t BgL_classesz00_2530;obj_t BgL_objectsz00_2529;
BgL_objectsz00_2529 = BgL_arg3329z00_951; 
BgL_classesz00_2530 = BgL_arg3330z00_952; 
BgL_classesz00_943 = BgL_classesz00_2530; 
BgL_objectsz00_942 = BgL_objectsz00_2529; 
goto BgL_loopz00_944;} }  else 
{ /* ./Jvm/jld.scm 211 */
obj_t BgL_arg3341z00_955;obj_t BgL_arg3342z00_956;
BgL_arg3341z00_955 = 
CDR(BgL_objectsz00_942); 
BgL_arg3342z00_956 = 
MAKE_PAIR(BgL_objectz00_946, BgL_classesz00_943); 
{ 
obj_t BgL_classesz00_2534;obj_t BgL_objectsz00_2533;
BgL_objectsz00_2533 = BgL_arg3341z00_955; 
BgL_classesz00_2534 = BgL_arg3342z00_956; 
BgL_classesz00_943 = BgL_classesz00_2534; 
BgL_objectsz00_942 = BgL_objectsz00_2533; 
goto BgL_loopz00_944;} } } } } } } } } } } } 
}



/* <anonymous:3362> */
obj_t BGl_zc3anonymousza33362ze3z83zzjvm_ldz00(obj_t BgL_envz00_2155)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 186 */
{ 

{ 
obj_t BgL_idz00_1068;obj_t BgL_modz00_1016;obj_t BgL_modz00_1023;obj_t BgL_basez00_1024;obj_t BgL_clausesz00_1025;
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_mz00_964;
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_armed3011z00_980;
BgL_armed3011z00_980 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Jvm/jld.scm 189 */
obj_t BgL_zc3anonymousza33406ze3z83_2150;
{ 
int BgL_auxz00_2537;int BgL_auxz00_2535;
BgL_auxz00_2537 = 
(int)(((long)1)); 
BgL_auxz00_2535 = 
(int)(((long)4)); 
BgL_zc3anonymousza33406ze3z83_2150 = 
make_fx_procedure(BGl_zc3anonymousza33406ze3z83zzjvm_ldz00, BgL_auxz00_2535, BgL_auxz00_2537); } 
{ /* ./Jvm/jld.scm 189 */
int BgL_auxz00_2540;
BgL_auxz00_2540 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33406ze3z83_2150, BgL_auxz00_2540, BgL_armed3011z00_980); } 
CELL_SET(BgL_armed3011z00_980, BTRUE); 
BgL_mz00_964 = 
BGl_zc3exitza33390ze3z83zzjvm_ldz00(BGl_proc5105z00zzjvm_ldz00, BgL_zc3anonymousza33406ze3z83_2150, BgL_armed3011z00_980); } } 
{ /* ./Jvm/jld.scm 190 */
bool_t BgL_test3363z00_970;
BgL_test3363z00_970 = 
PAIRP(BgL_mz00_964); 
if(BgL_test3363z00_970)
{ /* ./Jvm/jld.scm 190 */
obj_t BgL_cdrzd2161zd2_971;
BgL_cdrzd2161zd2_971 = 
CDR(BgL_mz00_964); 
{ /* ./Jvm/jld.scm 190 */
bool_t BgL_test3364z00_972;
{ /* ./Jvm/jld.scm 190 */
obj_t BgL_auxz00_2549;obj_t BgL_auxz00_2547;
BgL_auxz00_2549 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_2547 = 
CAR(BgL_mz00_964); 
BgL_test3364z00_972 = 
(BgL_auxz00_2547==BgL_auxz00_2549); } 
if(BgL_test3364z00_972)
{ /* ./Jvm/jld.scm 190 */
bool_t BgL_test3365z00_973;
BgL_test3365z00_973 = 
PAIRP(BgL_cdrzd2161zd2_971); 
if(BgL_test3365z00_973)
{ /* ./Jvm/jld.scm 190 */
obj_t BgL_arg3367z00_974;obj_t BgL_arg3368z00_975;
BgL_arg3367z00_974 = 
CAR(BgL_cdrzd2161zd2_971); 
BgL_arg3368z00_975 = 
CDR(BgL_cdrzd2161zd2_971); 
{ /* ./Jvm/jld.scm 190 */
obj_t BgL_arg3384z00_1952;
{ /* ./Jvm/jld.scm 190 */
obj_t BgL_arg3387z00_1953;
BgL_modz00_1016 = BgL_arg3367z00_974; 
{ /* ./Jvm/jld.scm 175 */
obj_t BgL_dz00_1018;
{ /* ./Jvm/jld.scm 176 */
obj_t BgL_arg3427z00_1020;
{ /* ./Jvm/jld.scm 176 */
obj_t BgL_arg3430z00_1021;obj_t BgL_arg3431z00_1022;
BgL_arg3430z00_1021 = 
BGl_modulezd2ze3qualifiedzd2typeze3zzread_jvmz00(BgL_modz00_1016); 
BgL_arg3431z00_1022 = 
BGl_filezd2separatorzd2zz__osz00(); 
BgL_arg3427z00_1020 = 
BGl_stringzd2replacez12zc0zztools_miscz00(BgL_arg3430z00_1021, 
BCHAR(((unsigned char)'.')), BgL_arg3431z00_1022); } 
BgL_dz00_1018 = 
BGl_dirnamez00zz__osz00(BgL_arg3427z00_1020); } 
{ /* ./Jvm/jld.scm 179 */
bool_t BgL_test3424z00_1019;
BgL_test3424z00_1019 = 
bigloo_strcmp(BgL_dz00_1018, BGl_string5103z00zzjvm_ldz00); 
if(BgL_test3424z00_1019)
{ /* ./Jvm/jld.scm 179 */
BgL_arg3387z00_1953 = BGl_string5104z00zzjvm_ldz00; }  else 
{ /* ./Jvm/jld.scm 179 */
BgL_arg3387z00_1953 = BgL_dz00_1018; } } } 
BgL_arg3384z00_1952 = 
BGl_jvmzd2classzd2withzd2directoryzd2zzread_jvmz00(BgL_arg3387z00_1953); } 
BgL_modz00_1023 = BgL_arg3367z00_974; 
BgL_basez00_1024 = BgL_arg3384z00_1952; 
BgL_clausesz00_1025 = BgL_arg3368z00_975; 
{ 
obj_t BgL_clausesz00_1027;obj_t BgL_classesz00_1028;
BgL_clausesz00_1027 = BgL_clausesz00_1025; 
BgL_classesz00_1028 = BNIL; 
BgL_loopz00_1029:
{ /* ./Jvm/jld.scm 150 */
bool_t BgL_test3437z00_1030;
BgL_test3437z00_1030 = 
NULLP(BgL_clausesz00_1027); 
if(BgL_test3437z00_1030)
{ /* ./Jvm/jld.scm 150 */
return BgL_classesz00_1028;}  else 
{ 
obj_t BgL_statexpz00_1031;
{ /* ./Jvm/jld.scm 152 */
obj_t BgL_ezd2132zd2_1034;
BgL_ezd2132zd2_1034 = 
CAR(BgL_clausesz00_1027); 
{ /* ./Jvm/jld.scm 152 */
bool_t BgL_test3438z00_1035;
BgL_test3438z00_1035 = 
PAIRP(BgL_ezd2132zd2_1034); 
if(BgL_test3438z00_1035)
{ /* ./Jvm/jld.scm 152 */
obj_t BgL_carzd2135zd2_1036;
BgL_carzd2135zd2_1036 = 
CAR(BgL_ezd2132zd2_1034); 
{ 

{ /* ./Jvm/jld.scm 152 */
bool_t BgL_test3439z00_1038;
{ /* ./Jvm/jld.scm 152 */
obj_t BgL_auxz00_2571;
BgL_auxz00_2571 = 
CNST_TABLE_REF(((long)6)); 
BgL_test3439z00_1038 = 
(BgL_carzd2135zd2_1036==BgL_auxz00_2571); } 
if(BgL_test3439z00_1038)
{ /* ./Jvm/jld.scm 152 */
BgL_kapzd2137zd2_1037:
{ /* ./Jvm/jld.scm 152 */
obj_t BgL_arg3447z00_1040;
BgL_arg3447z00_1040 = 
CDR(BgL_ezd2132zd2_1034); 
BgL_statexpz00_1031 = BgL_arg3447z00_1040; 
{ 
obj_t BgL_statexpz00_1041;obj_t BgL_classesz00_1042;
BgL_statexpz00_1041 = BgL_statexpz00_1031; 
BgL_classesz00_1042 = BgL_classesz00_1028; 
BgL_liipz00_1043:
{ /* ./Jvm/jld.scm 156 */
bool_t BgL_test3455z00_1044;
BgL_test3455z00_1044 = 
NULLP(BgL_statexpz00_1041); 
if(BgL_test3455z00_1044)
{ /* ./Jvm/jld.scm 157 */
obj_t BgL_arg3457z00_1045;
BgL_arg3457z00_1045 = 
CDR(BgL_clausesz00_1027); 
{ 
obj_t BgL_classesz00_2580;obj_t BgL_clausesz00_2579;
BgL_clausesz00_2579 = BgL_arg3457z00_1045; 
BgL_classesz00_2580 = BgL_classesz00_1042; 
BgL_classesz00_1028 = BgL_classesz00_2580; 
BgL_clausesz00_1027 = BgL_clausesz00_2579; 
goto BgL_loopz00_1029;} }  else 
{ 
obj_t BgL_identz00_1046;
{ /* ./Jvm/jld.scm 159 */
obj_t BgL_ezd2141zd2_1049;
BgL_ezd2141zd2_1049 = 
CAR(BgL_statexpz00_1041); 
{ /* ./Jvm/jld.scm 159 */
bool_t BgL_test3460z00_1050;
BgL_test3460z00_1050 = 
PAIRP(BgL_ezd2141zd2_1049); 
if(BgL_test3460z00_1050)
{ /* ./Jvm/jld.scm 159 */
obj_t BgL_carzd2144zd2_1051;obj_t BgL_cdrzd2145zd2_1052;
BgL_carzd2144zd2_1051 = 
CAR(BgL_ezd2141zd2_1049); 
BgL_cdrzd2145zd2_1052 = 
CDR(BgL_ezd2141zd2_1049); 
{ 

{ /* ./Jvm/jld.scm 159 */
bool_t BgL_test3461z00_1054;
{ /* ./Jvm/jld.scm 159 */
obj_t BgL_auxz00_2586;
BgL_auxz00_2586 = 
CNST_TABLE_REF(((long)2)); 
BgL_test3461z00_1054 = 
(BgL_carzd2144zd2_1051==BgL_auxz00_2586); } 
if(BgL_test3461z00_1054)
{ /* ./Jvm/jld.scm 159 */
BgL_kapzd2146zd2_1053:
{ /* ./Jvm/jld.scm 159 */
bool_t BgL_test3474z00_1058;
BgL_test3474z00_1058 = 
PAIRP(BgL_cdrzd2145zd2_1052); 
if(BgL_test3474z00_1058)
{ /* ./Jvm/jld.scm 159 */
obj_t BgL_arg3476z00_1059;
BgL_arg3476z00_1059 = 
CAR(BgL_cdrzd2145zd2_1052); 
BgL_identz00_1046 = BgL_arg3476z00_1059; 
{ /* ./Jvm/jld.scm 162 */
obj_t BgL_idz00_1060;
BgL_idz00_1068 = BgL_identz00_1046; 
{ /* ./Jvm/jld.scm 135 */
obj_t BgL_stringz00_1070;
BgL_stringz00_1070 = 
SYMBOL_TO_STRING(BgL_idz00_1068); 
{ /* ./Jvm/jld.scm 135 */
int BgL_lenz00_1071;
BgL_lenz00_1071 = 
STRING_LENGTH(BgL_stringz00_1070); 
{ /* ./Jvm/jld.scm 136 */

{ 
long BgL_walkerz00_1072;
BgL_walkerz00_1072 = ((long)0); 
BgL_loopz00_1073:
{ /* ./Jvm/jld.scm 139 */
bool_t BgL_test3512z00_1074;
{ /* ./Jvm/jld.scm 139 */
long BgL_auxz00_2595;
BgL_auxz00_2595 = 
(long)(BgL_lenz00_1071); 
BgL_test3512z00_1074 = 
(BgL_walkerz00_1072==BgL_auxz00_2595); } 
if(BgL_test3512z00_1074)
{ /* ./Jvm/jld.scm 139 */
BgL_idz00_1060 = BgL_idz00_1068; }  else 
{ /* ./Jvm/jld.scm 141 */
bool_t BgL_test3513z00_1075;
{ /* ./Jvm/jld.scm 141 */
bool_t BgL_testz00_2599;
{ /* ./Jvm/jld.scm 141 */
unsigned char BgL_auxz00_2600;
{ /* ./Jvm/jld.scm 141 */
int BgL_auxz00_2601;
BgL_auxz00_2601 = 
(int)(BgL_walkerz00_1072); 
BgL_auxz00_2600 = 
STRING_REF(BgL_stringz00_1070, BgL_auxz00_2601); } 
BgL_testz00_2599 = 
(BgL_auxz00_2600==((unsigned char)':')); } 
if(BgL_testz00_2599)
{ /* ./Jvm/jld.scm 142 */
bool_t BgL_testz00_2605;
{ /* ./Jvm/jld.scm 142 */
long BgL_auxz00_2606;
{ /* ./Jvm/jld.scm 142 */
long BgL_auxz00_2607;
BgL_auxz00_2607 = 
(long)(BgL_lenz00_1071); 
BgL_auxz00_2606 = 
(BgL_auxz00_2607-((long)1)); } 
BgL_testz00_2605 = 
(BgL_walkerz00_1072<BgL_auxz00_2606); } 
if(BgL_testz00_2605)
{ /* ./Jvm/jld.scm 143 */
unsigned char BgL_auxz00_2611;
{ /* ./Jvm/jld.scm 143 */
int BgL_auxz00_2612;
{ /* ./Jvm/jld.scm 143 */
long BgL_auxz00_2613;
BgL_auxz00_2613 = 
(BgL_walkerz00_1072+((long)1)); 
BgL_auxz00_2612 = 
(int)(BgL_auxz00_2613); } 
BgL_auxz00_2611 = 
STRING_REF(BgL_stringz00_1070, BgL_auxz00_2612); } 
BgL_test3513z00_1075 = 
(BgL_auxz00_2611==((unsigned char)':')); }  else 
{ /* ./Jvm/jld.scm 142 */
BgL_test3513z00_1075 = ((bool_t)0); } }  else 
{ /* ./Jvm/jld.scm 141 */
BgL_test3513z00_1075 = ((bool_t)0); } } 
if(BgL_test3513z00_1075)
{ /* ./Jvm/jld.scm 141 */
{ /* ./Jvm/jld.scm 144 */
obj_t BgL_arg3515z00_1076;
{ /* ./Jvm/jld.scm 144 */
int BgL_startz00_1993;int BgL_endz00_1994;
BgL_startz00_1993 = 
(int)(((long)0)); 
BgL_endz00_1994 = 
(int)(BgL_walkerz00_1072); 
BgL_arg3515z00_1076 = 
c_substring(BgL_stringz00_1070, BgL_startz00_1993, BgL_endz00_1994); } 
{ /* ./Jvm/jld.scm 144 */
char * BgL_auxz00_2622;
BgL_auxz00_2622 = 
BSTRING_TO_STRING(BgL_arg3515z00_1076); 
BgL_idz00_1060 = 
string_to_symbol(BgL_auxz00_2622); } } }  else 
{ /* ./Jvm/jld.scm 141 */
{ /* ./Jvm/jld.scm 146 */
long BgL_arg3520z00_1077;
BgL_arg3520z00_1077 = 
(BgL_walkerz00_1072+((long)1)); 
{ 
long BgL_walkerz00_2626;
BgL_walkerz00_2626 = BgL_arg3520z00_1077; 
BgL_walkerz00_1072 = BgL_walkerz00_2626; 
goto BgL_loopz00_1073;} } } } } } } } } 
{ /* ./Jvm/jld.scm 162 */
obj_t BgL_mglz00_1061;
BgL_mglz00_1061 = 
BGl_classzd2idzd2ze3typezd2namez31zzbackend_cplibz00(BgL_idz00_1060, BgL_modz00_1023); 
{ /* ./Jvm/jld.scm 163 */

{ /* ./Jvm/jld.scm 164 */
obj_t BgL_arg3487z00_1062;obj_t BgL_arg3488z00_1063;
BgL_arg3487z00_1062 = 
CDR(BgL_statexpz00_1041); 
{ /* ./Jvm/jld.scm 167 */
obj_t BgL_arg3492z00_1064;
{ /* ./Jvm/jld.scm 167 */
obj_t BgL_arg3495z00_1065;
BgL_arg3495z00_1065 = 
string_append(BgL_mglz00_1061, BGl_string5089z00zzjvm_ldz00); 
BgL_arg3492z00_1064 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_basez00_1024, BgL_arg3495z00_1065); } 
BgL_arg3488z00_1063 = 
MAKE_PAIR(BgL_arg3492z00_1064, BgL_classesz00_1042); } 
{ 
obj_t BgL_classesz00_2633;obj_t BgL_statexpz00_2632;
BgL_statexpz00_2632 = BgL_arg3487z00_1062; 
BgL_classesz00_2633 = BgL_arg3488z00_1063; 
BgL_classesz00_1042 = BgL_classesz00_2633; 
BgL_statexpz00_1041 = BgL_statexpz00_2632; 
goto BgL_liipz00_1043;} } } } } }  else 
{ /* ./Jvm/jld.scm 159 */
BgL_tagzd2140zd2_1048:
{ /* ./Jvm/jld.scm 170 */
obj_t BgL_arg3501z00_1066;
BgL_arg3501z00_1066 = 
CDR(BgL_statexpz00_1041); 
{ 
obj_t BgL_statexpz00_2635;
BgL_statexpz00_2635 = BgL_arg3501z00_1066; 
BgL_statexpz00_1041 = BgL_statexpz00_2635; 
goto BgL_liipz00_1043;} } } } }  else 
{ /* ./Jvm/jld.scm 159 */
bool_t BgL_test3463z00_1055;
{ /* ./Jvm/jld.scm 159 */
obj_t BgL_auxz00_2636;
BgL_auxz00_2636 = 
CNST_TABLE_REF(((long)3)); 
BgL_test3463z00_1055 = 
(BgL_carzd2144zd2_1051==BgL_auxz00_2636); } 
if(BgL_test3463z00_1055)
{ /* ./Jvm/jld.scm 159 */
goto BgL_kapzd2146zd2_1053;}  else 
{ /* ./Jvm/jld.scm 159 */
bool_t BgL_test3465z00_1056;
{ /* ./Jvm/jld.scm 159 */
obj_t BgL_auxz00_2640;
BgL_auxz00_2640 = 
CNST_TABLE_REF(((long)4)); 
BgL_test3465z00_1056 = 
(BgL_carzd2144zd2_1051==BgL_auxz00_2640); } 
if(BgL_test3465z00_1056)
{ /* ./Jvm/jld.scm 159 */
goto BgL_kapzd2146zd2_1053;}  else 
{ /* ./Jvm/jld.scm 159 */
bool_t BgL_test3467z00_1057;
{ /* ./Jvm/jld.scm 159 */
obj_t BgL_auxz00_2644;
BgL_auxz00_2644 = 
CNST_TABLE_REF(((long)5)); 
BgL_test3467z00_1057 = 
(BgL_carzd2144zd2_1051==BgL_auxz00_2644); } 
if(BgL_test3467z00_1057)
{ /* ./Jvm/jld.scm 159 */
goto BgL_kapzd2146zd2_1053;}  else 
{ /* ./Jvm/jld.scm 159 */
goto BgL_tagzd2140zd2_1048;} } } } } } }  else 
{ /* ./Jvm/jld.scm 159 */
goto BgL_tagzd2140zd2_1048;} } } } } } } }  else 
{ /* ./Jvm/jld.scm 152 */
bool_t BgL_test3441z00_1039;
{ /* ./Jvm/jld.scm 152 */
obj_t BgL_auxz00_2648;
BgL_auxz00_2648 = 
CNST_TABLE_REF(((long)7)); 
BgL_test3441z00_1039 = 
(BgL_carzd2135zd2_1036==BgL_auxz00_2648); } 
if(BgL_test3441z00_1039)
{ /* ./Jvm/jld.scm 152 */
goto BgL_kapzd2137zd2_1037;}  else 
{ /* ./Jvm/jld.scm 152 */
BgL_tagzd2131zd2_1033:
{ /* ./Jvm/jld.scm 173 */
obj_t BgL_arg3506z00_1067;
BgL_arg3506z00_1067 = 
CDR(BgL_clausesz00_1027); 
{ 
obj_t BgL_clausesz00_2653;
BgL_clausesz00_2653 = BgL_arg3506z00_1067; 
BgL_clausesz00_1027 = BgL_clausesz00_2653; 
goto BgL_loopz00_1029;} } } } } } }  else 
{ /* ./Jvm/jld.scm 152 */
goto BgL_tagzd2131zd2_1033;} } } } } } } }  else 
{ /* ./Jvm/jld.scm 190 */
return BNIL;} }  else 
{ /* ./Jvm/jld.scm 190 */
return BNIL;} } }  else 
{ /* ./Jvm/jld.scm 190 */
return BNIL;} } } } } } 
}



/* <exit:3390> */
obj_t BGl_zc3exitza33390ze3z83zzjvm_ldz00(obj_t BgL_zc3anonymousza33409ze3z83_2207, obj_t BgL_zc3anonymousza33406ze3z83_2206, obj_t BgL_armed3011z00_2205)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 187 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit3012z00_985;
if( SET_EXIT(BgL_an_exit3012z00_985) ) { 
return 
_exit_value_;
} else {
BgL_an_exit3012z00_985 = 
(obj_t)jmpbuf; 
{ /* ./Jvm/jld.scm 187 */

PUSH_EXIT(BgL_an_exit3012z00_985, ((bool_t)1)); 
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_an_exitd3013z00_986;
BgL_an_exitd3013z00_986 = 
BGL_EXITD_TOP(); 
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_escapez00_2149;
{ 
int BgL_auxz00_2660;int BgL_auxz00_2658;
BgL_auxz00_2660 = 
(int)(((long)1)); 
BgL_auxz00_2658 = 
(int)(((long)1)); 
BgL_escapez00_2149 = 
make_fx_procedure(BGl_escape_4762z00zzjvm_ldz00, BgL_auxz00_2658, BgL_auxz00_2660); } 
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2663;
BgL_auxz00_2663 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_2149, BgL_auxz00_2663, BgL_an_exitd3013z00_986); } 
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_res3015z00_989;
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_zc3anonymousza33400ze3z83_2153;obj_t BgL_zc3anonymousza33398ze3z83_2151;
{ 
int BgL_auxz00_2668;int BgL_auxz00_2666;
BgL_auxz00_2668 = 
(int)(((long)1)); 
BgL_auxz00_2666 = 
(int)(((long)0)); 
BgL_zc3anonymousza33400ze3z83_2153 = 
make_fx_procedure(BGl_zc3anonymousza33400ze3z83zzjvm_ldz00, BgL_auxz00_2666, BgL_auxz00_2668); } 
{ 
int BgL_auxz00_2673;int BgL_auxz00_2671;
BgL_auxz00_2673 = 
(int)(((long)4)); 
BgL_auxz00_2671 = 
(int)(((long)0)); 
BgL_zc3anonymousza33398ze3z83_2151 = 
make_fx_procedure(BGl_zc3anonymousza33398ze3z83zzjvm_ldz00, BgL_auxz00_2671, BgL_auxz00_2673); } 
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2676;
BgL_auxz00_2676 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33400ze3z83_2153, BgL_auxz00_2676, BgL_armed3011z00_2205); } 
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2679;
BgL_auxz00_2679 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33398ze3z83_2151, BgL_auxz00_2679, BgL_an_exitd3013z00_986); } 
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2682;
BgL_auxz00_2682 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza33398ze3z83_2151, BgL_auxz00_2682, BgL_armed3011z00_2205); } 
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2685;
BgL_auxz00_2685 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza33398ze3z83_2151, BgL_auxz00_2685, BgL_zc3anonymousza33406ze3z83_2206); } 
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2688;
BgL_auxz00_2688 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza33398ze3z83_2151, BgL_auxz00_2688, BgL_escapez00_2149); } 
BgL_res3015z00_989 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza33398ze3z83_2151, BgL_zc3anonymousza33409ze3z83_2207, BgL_zc3anonymousza33400ze3z83_2153); } 
POP_EXIT(); 
return BgL_res3015z00_989;} } } } 
} } 
}



/* <anonymous:3400> */
obj_t BGl_zc3anonymousza33400ze3z83zzjvm_ldz00(obj_t BgL_envz00_2157)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 187 */
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_armed3011z00_2158;
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2693;
BgL_auxz00_2693 = 
(int)(((long)0)); 
BgL_armed3011z00_2158 = 
PROCEDURE_REF(BgL_envz00_2157, BgL_auxz00_2693); } 
{ 

{ /* ./Jvm/jld.scm 187 */
bool_t BgL_testz00_2696;
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_auxz00_2697;
BgL_auxz00_2697 = 
CELL_REF(BgL_armed3011z00_2158); 
BgL_testz00_2696 = 
CBOOL(BgL_auxz00_2697); } 
if(BgL_testz00_2696)
{ /* ./Jvm/jld.scm 187 */
CELL_SET(BgL_armed3011z00_2158, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Jvm/jld.scm 187 */
return BFALSE;} } } } } 
}



/* <anonymous:3409> */
obj_t BGl_zc3anonymousza33409ze3z83zzjvm_ldz00(obj_t BgL_envz00_2160)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 187 */
{ 

{ /* ./Jvm/jld.scm 187 */
obj_t BgL_arg3411z00_1007;
BgL_arg3411z00_1007 = 
BGL_CURRENT_INPUT_PORT(); 
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_list3413z00_1008;
BgL_list3413z00_1008 = 
MAKE_PAIR(BgL_arg3411z00_1007, BNIL); 
return 
BGl_readz00zz__readerz00(BgL_list3413z00_1008);} } } } 
}



/* <anonymous:3398> */
obj_t BGl_zc3anonymousza33398ze3z83zzjvm_ldz00(obj_t BgL_envz00_2161)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 187 */
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_zc3anonymousza33406ze3z83_2164;obj_t BgL_escapez00_2165;
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2703;
BgL_auxz00_2703 = 
(int)(((long)2)); 
BgL_zc3anonymousza33406ze3z83_2164 = 
PROCEDURE_REF(BgL_envz00_2161, BgL_auxz00_2703); } 
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2706;
BgL_auxz00_2706 = 
(int)(((long)3)); 
BgL_escapez00_2165 = 
PROCEDURE_REF(BgL_envz00_2161, BgL_auxz00_2706); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza33406ze3z83_2164, BgL_escapez00_2165);} } } 
}



/* escape_4762 */
obj_t BGl_escape_4762z00zzjvm_ldz00(obj_t BgL_envz00_2166, obj_t BgL_val3014z00_2168)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 187 */
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_an_exitd3013z00_2167;
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2710;
BgL_auxz00_2710 = 
(int)(((long)0)); 
BgL_an_exitd3013z00_2167 = 
PROCEDURE_REF(BgL_envz00_2166, BgL_auxz00_2710); } 
{ 
obj_t BgL_val3014z00_987;
BgL_val3014z00_987 = BgL_val3014z00_2168; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd3013z00_2167, BgL_val3014z00_987);} } } 
}



/* <anonymous:3406> */
obj_t BGl_zc3anonymousza33406ze3z83zzjvm_ldz00(obj_t BgL_envz00_2169, obj_t BgL_escz00_2171, obj_t BgL_objz00_2172, obj_t BgL_procz00_2173, obj_t BgL_msgz00_2174)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 187 */
{ /* ./Jvm/jld.scm 187 */
obj_t BgL_armed3011z00_2170;
{ /* ./Jvm/jld.scm 187 */
int BgL_auxz00_2714;
BgL_auxz00_2714 = 
(int)(((long)0)); 
BgL_armed3011z00_2170 = 
PROCEDURE_REF(BgL_envz00_2169, BgL_auxz00_2714); } 
{ 
obj_t BgL_escz00_1001;obj_t BgL_objz00_1002;obj_t BgL_procz00_1003;obj_t BgL_msgz00_1004;
BgL_escz00_1001 = BgL_escz00_2171; 
BgL_objz00_1002 = BgL_objz00_2172; 
BgL_procz00_1003 = BgL_procz00_2173; 
BgL_msgz00_1004 = BgL_msgz00_2174; 
CELL_SET(BgL_armed3011z00_2170, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
return 
PROCEDURE_ENTRY(BgL_escz00_1001)(BgL_escz00_1001, BNIL, BEOA);} } } 
}



/* unique */
obj_t BGl_uniquez00zzjvm_ldz00(obj_t BgL_lstz00_5)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 217 */
{ /* ./Jvm/jld.scm 218 */
obj_t BgL_tz00_1088;
BgL_tz00_1088 = 
BGl_makezd2hashtablezd2zz__hashz00(BNIL); 
{ 
obj_t BgL_l3016z00_1089;
BgL_l3016z00_1089 = BgL_lstz00_5; 
BgL_forzd2each3017zd2_1090:
{ /* ./Jvm/jld.scm 219 */
bool_t BgL_test3544z00_1091;
BgL_test3544z00_1091 = 
PAIRP(BgL_l3016z00_1089); 
if(BgL_test3544z00_1091)
{ /* ./Jvm/jld.scm 219 */
{ /* ./Jvm/jld.scm 219 */
obj_t BgL_fz00_1092;
BgL_fz00_1092 = 
CAR(BgL_l3016z00_1089); 
BGl_hashtablezd2putz12zc0zz__hashz00(BgL_tz00_1088, BgL_fz00_1092, BgL_fz00_1092); } 
{ /* ./Jvm/jld.scm 219 */
obj_t BgL_arg3548z00_1093;
BgL_arg3548z00_1093 = 
CDR(BgL_l3016z00_1089); 
{ 
obj_t BgL_l3016z00_2726;
BgL_l3016z00_2726 = BgL_arg3548z00_1093; 
BgL_l3016z00_1089 = BgL_l3016z00_2726; 
goto BgL_forzd2each3017zd2_1090;} } }  else 
{ /* ./Jvm/jld.scm 219 */((bool_t)1); } } } 
return 
BGl_hashtablezd2ze3listz31zz__hashz00(BgL_tz00_1088);} } 
}



/* jvm-jar */
obj_t BGl_jvmzd2jarzd2zzjvm_ldz00(obj_t BgL_targetz00_6, obj_t BgL_manifestz00_7, obj_t BgL_objectsz00_8)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 225 */
{ /* ./Jvm/jld.scm 226 */
obj_t BgL_cmdz00_1095;
{ /* ./Jvm/jld.scm 226 */
bool_t BgL_test3587z00_1111;
{ /* ./Jvm/jld.scm 226 */
obj_t BgL_objz00_2001;
BgL_objz00_2001 = BGl_za2jvmzd2directoryza2zd2zzengine_paramz00; 
BgL_test3587z00_1111 = 
STRINGP(BgL_objz00_2001); } 
if(BgL_test3587z00_1111)
{ 
obj_t BgL_objectsz00_1112;obj_t BgL_cmdz00_1113;
BgL_objectsz00_1112 = BgL_objectsz00_8; 
BgL_cmdz00_1113 = BGl_string5104z00zzjvm_ldz00; 
BgL_loopz00_1114:
{ /* ./Jvm/jld.scm 229 */
bool_t BgL_test3589z00_1115;
BgL_test3589z00_1115 = 
NULLP(BgL_objectsz00_1112); 
if(BgL_test3589z00_1115)
{ /* ./Jvm/jld.scm 230 */
obj_t BgL_list3591z00_1116;
{ /* ./Jvm/jld.scm 230 */
obj_t BgL_arg3593z00_1117;
{ /* ./Jvm/jld.scm 230 */
obj_t BgL_arg3597z00_1119;
{ /* ./Jvm/jld.scm 230 */
obj_t BgL_arg3600z00_1120;
{ /* ./Jvm/jld.scm 230 */
obj_t BgL_arg3605z00_1122;
{ /* ./Jvm/jld.scm 230 */
obj_t BgL_arg3608z00_1123;
{ /* ./Jvm/jld.scm 230 */
obj_t BgL_arg3612z00_1125;
BgL_arg3612z00_1125 = 
MAKE_PAIR(BgL_cmdz00_1113, BNIL); 
BgL_arg3608z00_1123 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BgL_arg3612z00_1125); } 
BgL_arg3605z00_1122 = 
MAKE_PAIR(BgL_targetz00_6, BgL_arg3608z00_1123); } 
BgL_arg3600z00_1120 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BgL_arg3605z00_1122); } 
BgL_arg3597z00_1119 = 
MAKE_PAIR(BgL_manifestz00_7, BgL_arg3600z00_1120); } 
BgL_arg3593z00_1117 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BgL_arg3597z00_1119); } 
{ /* ./Jvm/jld.scm 230 */
obj_t BgL_auxz00_2738;
BgL_auxz00_2738 = 
string_to_bstring(BGL_JAR); 
BgL_list3591z00_1116 = 
MAKE_PAIR(BgL_auxz00_2738, BgL_arg3593z00_1117); } } 
BgL_cmdz00_1095 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list3591z00_1116); }  else 
{ /* ./Jvm/jld.scm 234 */
obj_t BgL_arg3616z00_1126;obj_t BgL_arg3617z00_1127;
BgL_arg3616z00_1126 = 
CDR(BgL_objectsz00_1112); 
{ /* ./Jvm/jld.scm 235 */
obj_t BgL_arg3624z00_1130;
{ /* ./Jvm/jld.scm 237 */
obj_t BgL_arg3645z00_1138;
BgL_arg3645z00_1138 = 
CAR(BgL_objectsz00_1112); 
BgL_arg3624z00_1130 = 
BGl_jvmzd2classzd2sanszd2directoryzd2zzread_jvmz00(BgL_arg3645z00_1138); } 
{ /* ./Jvm/jld.scm 235 */
obj_t BgL_list3627z00_1132;
{ /* ./Jvm/jld.scm 235 */
obj_t BgL_arg3629z00_1133;
{ /* ./Jvm/jld.scm 235 */
obj_t BgL_arg3632z00_1134;
{ /* ./Jvm/jld.scm 235 */
obj_t BgL_arg3635z00_1135;
{ /* ./Jvm/jld.scm 235 */
obj_t BgL_arg3638z00_1136;
{ /* ./Jvm/jld.scm 235 */
obj_t BgL_arg3641z00_1137;
BgL_arg3641z00_1137 = 
MAKE_PAIR(BgL_cmdz00_1113, BNIL); 
BgL_arg3638z00_1136 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BgL_arg3641z00_1137); } 
BgL_arg3635z00_1135 = 
MAKE_PAIR(BgL_arg3624z00_1130, BgL_arg3638z00_1136); } 
BgL_arg3632z00_1134 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BgL_arg3635z00_1135); } 
BgL_arg3629z00_1133 = 
MAKE_PAIR(BGl_za2jvmzd2directoryza2zd2zzengine_paramz00, BgL_arg3632z00_1134); } 
BgL_list3627z00_1132 = 
MAKE_PAIR(BGl_string5107z00zzjvm_ldz00, BgL_arg3629z00_1133); } 
BgL_arg3617z00_1127 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list3627z00_1132); } } 
{ 
obj_t BgL_cmdz00_2753;obj_t BgL_objectsz00_2752;
BgL_objectsz00_2752 = BgL_arg3616z00_1126; 
BgL_cmdz00_2753 = BgL_arg3617z00_1127; 
BgL_cmdz00_1113 = BgL_cmdz00_2753; 
BgL_objectsz00_1112 = BgL_objectsz00_2752; 
goto BgL_loopz00_1114;} } } }  else 
{ 
obj_t BgL_objectsz00_1139;obj_t BgL_cmdz00_1140;
BgL_objectsz00_1139 = BgL_objectsz00_8; 
BgL_cmdz00_1140 = BGl_string5104z00zzjvm_ldz00; 
BgL_loopz00_1141:
{ /* ./Jvm/jld.scm 240 */
bool_t BgL_test3650z00_1142;
BgL_test3650z00_1142 = 
NULLP(BgL_objectsz00_1139); 
if(BgL_test3650z00_1142)
{ /* ./Jvm/jld.scm 241 */
obj_t BgL_list3652z00_1143;
{ /* ./Jvm/jld.scm 241 */
obj_t BgL_arg3654z00_1144;
{ /* ./Jvm/jld.scm 241 */
obj_t BgL_arg3658z00_1146;
{ /* ./Jvm/jld.scm 241 */
obj_t BgL_arg3661z00_1147;
{ /* ./Jvm/jld.scm 241 */
obj_t BgL_arg3665z00_1149;
{ /* ./Jvm/jld.scm 241 */
obj_t BgL_arg3668z00_1150;
{ /* ./Jvm/jld.scm 241 */
obj_t BgL_arg3672z00_1152;
BgL_arg3672z00_1152 = 
MAKE_PAIR(BgL_cmdz00_1140, BNIL); 
BgL_arg3668z00_1150 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BgL_arg3672z00_1152); } 
BgL_arg3665z00_1149 = 
MAKE_PAIR(BgL_targetz00_6, BgL_arg3668z00_1150); } 
BgL_arg3661z00_1147 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BgL_arg3665z00_1149); } 
BgL_arg3658z00_1146 = 
MAKE_PAIR(BgL_manifestz00_7, BgL_arg3661z00_1147); } 
BgL_arg3654z00_1144 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BgL_arg3658z00_1146); } 
{ /* ./Jvm/jld.scm 241 */
obj_t BgL_auxz00_2762;
BgL_auxz00_2762 = 
string_to_bstring(BGL_JAR); 
BgL_list3652z00_1143 = 
MAKE_PAIR(BgL_auxz00_2762, BgL_arg3654z00_1144); } } 
BgL_cmdz00_1095 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list3652z00_1143); }  else 
{ /* ./Jvm/jld.scm 245 */
obj_t BgL_arg3676z00_1153;obj_t BgL_arg3677z00_1154;
BgL_arg3676z00_1153 = 
CDR(BgL_objectsz00_1139); 
{ /* ./Jvm/jld.scm 246 */
obj_t BgL_arg3681z00_1155;
BgL_arg3681z00_1155 = 
CAR(BgL_objectsz00_1139); 
BgL_arg3677z00_1154 = 
string_append_3(BgL_arg3681z00_1155, BGl_string5106z00zzjvm_ldz00, BgL_cmdz00_1140); } 
{ 
obj_t BgL_cmdz00_2770;obj_t BgL_objectsz00_2769;
BgL_objectsz00_2769 = BgL_arg3676z00_1153; 
BgL_cmdz00_2770 = BgL_arg3677z00_1154; 
BgL_cmdz00_1140 = BgL_cmdz00_2770; 
BgL_objectsz00_1139 = BgL_objectsz00_2769; 
goto BgL_loopz00_1141;} } } } } 
{ /* ./Jvm/jld.scm 248 */
obj_t BgL_list3556z00_1096;
{ /* ./Jvm/jld.scm 248 */
obj_t BgL_arg3559z00_1098;
{ /* ./Jvm/jld.scm 248 */
obj_t BgL_arg3562z00_1099;
BgL_arg3562z00_1099 = 
MAKE_PAIR(BGl_string5108z00zzjvm_ldz00, BNIL); 
BgL_arg3559z00_1098 = 
MAKE_PAIR(BgL_cmdz00_1095, BgL_arg3562z00_1099); } 
BgL_list3556z00_1096 = 
MAKE_PAIR(BGl_string5109z00zzjvm_ldz00, BgL_arg3559z00_1098); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list3556z00_1096); } 
{ /* ./Jvm/jld.scm 249 */
obj_t BgL_val3018z00_1100;
BgL_val3018z00_1100 = 
BGl_zc3exitza33574ze3z83zzjvm_ldz00(BgL_targetz00_6, BgL_cmdz00_1095); 
{ /* ./Jvm/jld.scm 253 */
char * BgL_stringz00_2013;
BgL_stringz00_2013 = 
BSTRING_TO_STRING(BgL_manifestz00_7); 
unlink(BgL_stringz00_2013); } 
{ /* ./Jvm/jld.scm 253 */
bool_t BgL_test3566z00_1101;
{ /* ./Jvm/jld.scm 253 */
obj_t BgL_auxz00_2779;
BgL_auxz00_2779 = 
BGl_valzd2fromzd2exitzf3zf3zz__bexitz00(BgL_val3018z00_1100); 
BgL_test3566z00_1101 = 
CBOOL(BgL_auxz00_2779); } 
if(BgL_test3566z00_1101)
{ /* ./Jvm/jld.scm 253 */
obj_t BgL_arg3568z00_1102;obj_t BgL_arg3569z00_1103;
BgL_arg3568z00_1102 = 
CAR(BgL_val3018z00_1100); 
BgL_arg3569z00_1103 = 
CDR(BgL_val3018z00_1100); 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_arg3568z00_1102, BgL_arg3569z00_1103);}  else 
{ /* ./Jvm/jld.scm 253 */
return BgL_val3018z00_1100;} } } } } 
}



/* <exit:3574> */
obj_t BGl_zc3exitza33574ze3z83zzjvm_ldz00(obj_t BgL_targetz00_2204, obj_t BgL_cmdz00_2203)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 253 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit3019z00_1105;
if( SET_EXIT(BgL_an_exit3019z00_1105) ) { 
return 
_exit_value_;
} else {
BgL_an_exit3019z00_1105 = 
(obj_t)jmpbuf; 
{ /* ./Jvm/jld.scm 253 */

PUSH_EXIT(BgL_an_exit3019z00_1105, ((bool_t)0)); 
{ /* ./Jvm/jld.scm 250 */
obj_t BgL_val3020z00_1106;
{ /* ./Jvm/jld.scm 250 */
bool_t BgL_test3578z00_1107;
{ /* ./Jvm/jld.scm 250 */
obj_t BgL_arg3581z00_1108;
{ /* ./Jvm/jld.scm 250 */
obj_t BgL_list3585z00_1110;
BgL_list3585z00_1110 = 
MAKE_PAIR(BgL_cmdz00_2203, BNIL); 
BgL_arg3581z00_1108 = 
BGl_systemz00zz__osz00(BgL_list3585z00_1110); } 
{ /* ./Jvm/jld.scm 250 */
long BgL_auxz00_2791;
BgL_auxz00_2791 = 
(long)CINT(BgL_arg3581z00_1108); 
BgL_test3578z00_1107 = 
(BgL_auxz00_2791==((long)0)); } } 
if(BgL_test3578z00_1107)
{ /* ./Jvm/jld.scm 250 */
BgL_val3020z00_1106 = BTRUE; }  else 
{ /* ./Jvm/jld.scm 251 */
obj_t BgL_procz00_2010;
BgL_procz00_2010 = 
string_to_bstring(BGL_JAR); 
FAILURE(BgL_procz00_2010,BGl_string5110z00zzjvm_ldz00,BgL_targetz00_2204);} } 
POP_EXIT(); 
return BgL_val3020z00_1106;} } 
} } 
}



/* make-manifest-name */
obj_t BGl_makezd2manifestzd2namez00zzjvm_ldz00()
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 258 */
{ 
obj_t BgL_namez00_1157;
BgL_namez00_1157 = BGl_string5112z00zzjvm_ldz00; 
BgL_loopz00_1158:
{ /* ./Jvm/jld.scm 260 */
bool_t BgL_test3688z00_1159;
{ /* ./Jvm/jld.scm 260 */
char * BgL_namez00_2016;
BgL_namez00_2016 = 
BSTRING_TO_STRING(BgL_namez00_1157); 
BgL_test3688z00_1159 = 
fexists(BgL_namez00_2016); } 
if(BgL_test3688z00_1159)
{ /* ./Jvm/jld.scm 262 */
obj_t BgL_arg3690z00_1160;
BgL_arg3690z00_1160 = 
string_append(BgL_namez00_1157, BGl_string5111z00zzjvm_ldz00); 
{ 
obj_t BgL_namez00_2802;
BgL_namez00_2802 = BgL_arg3690z00_1160; 
BgL_namez00_1157 = BgL_namez00_2802; 
goto BgL_loopz00_1158;} }  else 
{ /* ./Jvm/jld.scm 260 */
return BgL_namez00_1157;} } } } 
}



/* jvm-bigloo-classpath */
obj_t BGl_jvmzd2bigloozd2classpathz00zzjvm_ldz00()
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 267 */
{ /* ./Jvm/jld.scm 269 */
obj_t BgL_arg3695z00_1161;
{ /* ./Jvm/jld.scm 269 */
bool_t BgL_test3697z00_1162;
{ /* ./Jvm/jld.scm 269 */
obj_t BgL_objz00_2017;
BgL_objz00_2017 = BGl_za2jvmzd2bigloozd2classpathza2z00zzengine_paramz00; 
BgL_test3697z00_1162 = 
STRINGP(BgL_objz00_2017); } 
if(BgL_test3697z00_1162)
{ /* ./Jvm/jld.scm 269 */
BgL_arg3695z00_1161 = BGl_za2jvmzd2bigloozd2classpathza2z00zzengine_paramz00; }  else 
{ /* ./Jvm/jld.scm 269 */
BgL_arg3695z00_1161 = 
string_to_bstring(ZIP_DIRECTORY); } } 
return 
BGl_uncygdrivez00zztools_miscz00(BgL_arg3695z00_1161);} } 
}



/* generate-jvm-manifest */
obj_t BGl_generatezd2jvmzd2manifestz00zzjvm_ldz00(obj_t BgL_fnamez00_10, obj_t BgL_mainz00_11, obj_t BgL_jarnamez00_12, obj_t BgL_za7ipsza7_13)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 284 */
{ /* ./Jvm/jld.scm 286 */
bool_t BgL_test3701z00_1164;
{ /* ./Jvm/jld.scm 286 */
obj_t BgL_string1z00_2020;
BgL_string1z00_2020 = BGl_za2jvmzd2shellza2zd2zzengine_paramz00; 
BgL_test3701z00_1164 = 
bigloo_strcmp(BgL_string1z00_2020, BGl_string5113z00zzjvm_ldz00); } 
if(BgL_test3701z00_1164)
{ /* ./Jvm/jld.scm 286 */
return 
BGl_generatezd2shzd2jvmzd2manifestzd2zzjvm_ldz00(BgL_fnamez00_10, BgL_mainz00_11, BgL_za7ipsza7_13);}  else 
{ /* ./Jvm/jld.scm 288 */
bool_t BgL_test3703z00_1165;
{ /* ./Jvm/jld.scm 288 */
obj_t BgL_string1z00_2022;
BgL_string1z00_2022 = BGl_za2jvmzd2shellza2zd2zzengine_paramz00; 
BgL_test3703z00_1165 = 
bigloo_strcmp(BgL_string1z00_2022, BGl_string5093z00zzjvm_ldz00); } 
if(BgL_test3703z00_1165)
{ /* ./Jvm/jld.scm 288 */
return 
BGl_generatezd2msdoszd2jvmzd2manifestzd2zzjvm_ldz00(BgL_fnamez00_10, BgL_mainz00_11, BgL_jarnamez00_12);}  else 
{ /* ./Jvm/jld.scm 288 */
{ /* ./Jvm/jld.scm 291 */
obj_t BgL_list3706z00_1166;
{ /* ./Jvm/jld.scm 291 */
obj_t BgL_arg3709z00_1168;
{ /* ./Jvm/jld.scm 291 */
obj_t BgL_arg3713z00_1170;
{ /* ./Jvm/jld.scm 291 */
obj_t BgL_arg3717z00_1171;
BgL_arg3717z00_1171 = 
MAKE_PAIR(BGl_string5114z00zzjvm_ldz00, BNIL); 
BgL_arg3713z00_1170 = 
MAKE_PAIR(BGl_za2jvmzd2shellza2zd2zzengine_paramz00, BgL_arg3717z00_1171); } 
BgL_arg3709z00_1168 = 
MAKE_PAIR(BGl_string5115z00zzjvm_ldz00, BgL_arg3713z00_1170); } 
BgL_list3706z00_1166 = 
MAKE_PAIR(BGl_string5116z00zzjvm_ldz00, BgL_arg3709z00_1168); } 
BGl_warningz00zz__errorz00(BgL_list3706z00_1166); } 
return 
BGl_generatezd2shzd2jvmzd2manifestzd2zzjvm_ldz00(BgL_fnamez00_10, BgL_mainz00_11, BgL_za7ipsza7_13);} } } } 
}



/* generate-sh-jvm-manifest */
obj_t BGl_generatezd2shzd2jvmzd2manifestzd2zzjvm_ldz00(obj_t BgL_fnamez00_14, obj_t BgL_mainz00_15, obj_t BgL_za7ipsza7_16)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 298 */
{ /* ./Jvm/jld.scm 301 */
obj_t BgL_zc3anonymousza33726ze3z83_2176;
{ 
int BgL_auxz00_2821;int BgL_auxz00_2819;
BgL_auxz00_2821 = 
(int)(((long)2)); 
BgL_auxz00_2819 = 
(int)(((long)0)); 
BgL_zc3anonymousza33726ze3z83_2176 = 
make_fx_procedure(BGl_zc3anonymousza33726ze3z83zzjvm_ldz00, BgL_auxz00_2819, BgL_auxz00_2821); } 
{ /* ./Jvm/jld.scm 301 */
int BgL_auxz00_2824;
BgL_auxz00_2824 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33726ze3z83_2176, BgL_auxz00_2824, BgL_mainz00_15); } 
{ /* ./Jvm/jld.scm 301 */
int BgL_auxz00_2827;
BgL_auxz00_2827 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza33726ze3z83_2176, BgL_auxz00_2827, BgL_za7ipsza7_16); } 
return 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_fnamez00_14, BgL_zc3anonymousza33726ze3z83_2176);} } 
}



/* <anonymous:3726> */
obj_t BGl_zc3anonymousza33726ze3z83zzjvm_ldz00(obj_t BgL_envz00_2177)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 300 */
{ /* ./Jvm/jld.scm 301 */
obj_t BgL_mainz00_2178;obj_t BgL_za7ipsza7_2179;
{ /* ./Jvm/jld.scm 301 */
int BgL_auxz00_2831;
BgL_auxz00_2831 = 
(int)(((long)0)); 
BgL_mainz00_2178 = 
PROCEDURE_REF(BgL_envz00_2177, BgL_auxz00_2831); } 
{ /* ./Jvm/jld.scm 301 */
int BgL_auxz00_2834;
BgL_auxz00_2834 = 
(int)(((long)1)); 
BgL_za7ipsza7_2179 = 
PROCEDURE_REF(BgL_envz00_2177, BgL_auxz00_2834); } 
{ 

{ /* ./Jvm/jld.scm 301 */
obj_t BgL_port3021z00_1174;
BgL_port3021z00_1174 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5117z00zzjvm_ldz00, BgL_port3021z00_1174); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3021z00_1174); } 
{ /* ./Jvm/jld.scm 302 */
obj_t BgL_port3022z00_1175;
BgL_port3022z00_1175 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5118z00zzjvm_ldz00, BgL_port3022z00_1175); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_mainz00_2178, BgL_port3022z00_1175); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3022z00_1175); } 
{ /* ./Jvm/jld.scm 303 */
obj_t BgL_list3735z00_1176;
{ /* ./Jvm/jld.scm 303 */
obj_t BgL_arg3738z00_1178;
{ /* ./Jvm/jld.scm 303 */
obj_t BgL_arg3741z00_1179;
BgL_arg3741z00_1179 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BNIL); 
BgL_arg3738z00_1178 = 
MAKE_PAIR(BGl_za2jvmzd2classpathza2zd2zzengine_paramz00, BgL_arg3741z00_1179); } 
BgL_list3735z00_1176 = 
MAKE_PAIR(BGl_string5119z00zzjvm_ldz00, BgL_arg3738z00_1178); } 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_list3735z00_1176); } 
{ /* ./Jvm/jld.scm 304 */
obj_t BgL_arg3745z00_1180;obj_t BgL_arg3746z00_1181;
{ /* ./Jvm/jld.scm 304 */
obj_t BgL_arg3749z00_1182;char * BgL_arg3750z00_1183;
BgL_arg3749z00_1182 = 
BGl_jvmzd2bigloozd2classpathz00zzjvm_ldz00(); 
{ /* ./Jvm/jld.scm 305 */
bool_t BgL_test3753z00_1184;
if(
CBOOL(BGl_za2unsafezd2libraryza2zd2zzengine_paramz00))
{ /* ./Jvm/jld.scm 305 */
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/jld.scm 305 */
BgL_test3753z00_1184 = ((bool_t)0); }  else 
{ /* ./Jvm/jld.scm 305 */
BgL_test3753z00_1184 = ((bool_t)1); } }  else 
{ /* ./Jvm/jld.scm 305 */
BgL_test3753z00_1184 = ((bool_t)0); } 
if(BgL_test3753z00_1184)
{ /* ./Jvm/jld.scm 305 */
BgL_arg3750z00_1183 = "bigloo_u.zip"; }  else 
{ /* ./Jvm/jld.scm 305 */
BgL_arg3750z00_1183 = "bigloo_s.zip"; } } 
BgL_arg3745z00_1180 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_arg3749z00_1182, 
string_to_bstring(BgL_arg3750z00_1183)); } 
BgL_arg3746z00_1181 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3745z00_1180, BgL_arg3746z00_1181); } 
{ 
obj_t BgL_l3023z00_1185;
BgL_l3023z00_1185 = BgL_za7ipsza7_2179; 
BgL_forzd2each3024zd2_1186:
{ /* ./Jvm/jld.scm 308 */
bool_t BgL_test3756z00_1187;
BgL_test3756z00_1187 = 
PAIRP(BgL_l3023z00_1185); 
if(BgL_test3756z00_1187)
{ /* ./Jvm/jld.scm 308 */
{ /* ./Jvm/jld.scm 309 */
obj_t BgL_lz00_1188;
BgL_lz00_1188 = 
CAR(BgL_l3023z00_1185); 
{ /* ./Jvm/jld.scm 309 */
obj_t BgL_arg3759z00_1190;
BgL_arg3759z00_1190 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_arg3759z00_1190); } 
{ /* ./Jvm/jld.scm 310 */
obj_t BgL_arg3763z00_1191;obj_t BgL_arg3764z00_1192;
BgL_arg3763z00_1191 = 
BGl_userzd2libraryzd2zzjvm_ldz00(BgL_lz00_1188); 
BgL_arg3764z00_1192 = 
BGL_CURRENT_OUTPUT_PORT(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3763z00_1191, BgL_arg3764z00_1192); } } 
{ /* ./Jvm/jld.scm 308 */
obj_t BgL_arg3770z00_1193;
BgL_arg3770z00_1193 = 
CDR(BgL_l3023z00_1185); 
{ 
obj_t BgL_l3023z00_2867;
BgL_l3023z00_2867 = BgL_arg3770z00_1193; 
BgL_l3023z00_1185 = BgL_l3023z00_2867; 
goto BgL_forzd2each3024zd2_1186;} } }  else 
{ /* ./Jvm/jld.scm 308 */((bool_t)1); } } } 
{ /* ./Jvm/jld.scm 312 */
obj_t BgL_arg3775z00_1194;
BgL_arg3775z00_1194 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg3775z00_1194); } 
{ /* ./Jvm/jld.scm 313 */
obj_t BgL_port3025z00_1195;
BgL_port3025z00_1195 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5120z00zzjvm_ldz00, BgL_port3025z00_1195); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2bigloozd2nameza2zd2zzengine_paramz00, BgL_port3025z00_1195); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3025z00_1195); } 
{ /* ./Jvm/jld.scm 314 */
obj_t BgL_arg3783z00_1196;
BgL_arg3783z00_1196 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg3783z00_1196);} } } } 
}



/* generate-msdos-jvm-manifest */
obj_t BGl_generatezd2msdoszd2jvmzd2manifestzd2zzjvm_ldz00(obj_t BgL_fnamez00_17, obj_t BgL_mainz00_18, obj_t BgL_jarnamez00_19)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 319 */
{ /* ./Jvm/jld.scm 322 */
obj_t BgL_zc3anonymousza33789ze3z83_2180;
{ 
int BgL_auxz00_2878;int BgL_auxz00_2876;
BgL_auxz00_2878 = 
(int)(((long)1)); 
BgL_auxz00_2876 = 
(int)(((long)0)); 
BgL_zc3anonymousza33789ze3z83_2180 = 
make_fx_procedure(BGl_zc3anonymousza33789ze3z83zzjvm_ldz00, BgL_auxz00_2876, BgL_auxz00_2878); } 
{ /* ./Jvm/jld.scm 322 */
int BgL_auxz00_2881;
BgL_auxz00_2881 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33789ze3z83_2180, BgL_auxz00_2881, BgL_mainz00_18); } 
return 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_fnamez00_17, BgL_zc3anonymousza33789ze3z83_2180);} } 
}



/* <anonymous:3789> */
obj_t BGl_zc3anonymousza33789ze3z83zzjvm_ldz00(obj_t BgL_envz00_2181)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 321 */
{ /* ./Jvm/jld.scm 322 */
obj_t BgL_mainz00_2182;
{ /* ./Jvm/jld.scm 322 */
int BgL_auxz00_2885;
BgL_auxz00_2885 = 
(int)(((long)0)); 
BgL_mainz00_2182 = 
PROCEDURE_REF(BgL_envz00_2181, BgL_auxz00_2885); } 
{ 

{ /* ./Jvm/jld.scm 322 */
obj_t BgL_port3026z00_1200;
BgL_port3026z00_1200 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5117z00zzjvm_ldz00, BgL_port3026z00_1200); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3026z00_1200); } 
{ /* ./Jvm/jld.scm 323 */
obj_t BgL_port3027z00_1201;
BgL_port3027z00_1201 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5118z00zzjvm_ldz00, BgL_port3027z00_1201); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_mainz00_2182, BgL_port3027z00_1201); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3027z00_1201); } 
{ /* ./Jvm/jld.scm 324 */
obj_t BgL_port3028z00_1202;
BgL_port3028z00_1202 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5120z00zzjvm_ldz00, BgL_port3028z00_1202); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2bigloozd2nameza2zd2zzengine_paramz00, BgL_port3028z00_1202); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3028z00_1202); } 
{ /* ./Jvm/jld.scm 325 */
obj_t BgL_arg3802z00_1203;
BgL_arg3802z00_1203 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg3802z00_1203);} } } } 
}



/* generate-jvm-sh-script */
bool_t BGl_generatezd2jvmzd2shzd2scriptzd2zzjvm_ldz00(obj_t BgL_targetz00_20, obj_t BgL_mainzd2classzd2_21, obj_t BgL_za7ipsza7_22)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 330 */
{ 

if(
CBOOL(BGl_za2jvmzd2jarzf3za2z21zzengine_paramz00))
{ /* ./Jvm/jld.scm 395 */
{ /* ./Jvm/jld.scm 344 */
obj_t BgL_zc3anonymousza33925ze3z83_2185;
{ 
int BgL_auxz00_2905;int BgL_auxz00_2903;
BgL_auxz00_2905 = 
(int)(((long)1)); 
BgL_auxz00_2903 = 
(int)(((long)0)); 
BgL_zc3anonymousza33925ze3z83_2185 = 
make_fx_procedure(BGl_zc3anonymousza33925ze3z83zzjvm_ldz00, BgL_auxz00_2903, BgL_auxz00_2905); } 
{ /* ./Jvm/jld.scm 344 */
int BgL_auxz00_2908;
BgL_auxz00_2908 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33925ze3z83_2185, BgL_auxz00_2908, BgL_targetz00_20); } 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_targetz00_20, BgL_zc3anonymousza33925ze3z83_2185); } 
{ /* ./Jvm/jld.scm 365 */
obj_t BgL_list3988z00_1276;
{ /* ./Jvm/jld.scm 365 */
obj_t BgL_arg3990z00_1277;obj_t BgL_arg3991z00_1278;
BgL_arg3990z00_1277 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Jvm/jld.scm 365 */
obj_t BgL_arg3994z00_1279;obj_t BgL_arg3995z00_1280;
BgL_arg3994z00_1279 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Jvm/jld.scm 365 */
obj_t BgL_auxz00_2914;
BgL_auxz00_2914 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg3995z00_1280 = 
MAKE_PAIR(BgL_auxz00_2914, BNIL); } 
BgL_arg3991z00_1278 = 
MAKE_PAIR(BgL_arg3994z00_1279, BgL_arg3995z00_1280); } 
BgL_list3988z00_1276 = 
MAKE_PAIR(BgL_arg3990z00_1277, BgL_arg3991z00_1278); } 
return 
BGl_chmodz00zz__osz00(BgL_targetz00_20, BgL_list3988z00_1276);} }  else 
{ /* ./Jvm/jld.scm 395 */
{ /* ./Jvm/jld.scm 369 */
obj_t BgL_zc3anonymousza33811ze3z83_2186;
{ 
int BgL_auxz00_2922;int BgL_auxz00_2920;
BgL_auxz00_2922 = 
(int)(((long)2)); 
BgL_auxz00_2920 = 
(int)(((long)0)); 
BgL_zc3anonymousza33811ze3z83_2186 = 
make_fx_procedure(BGl_zc3anonymousza33811ze3z83zzjvm_ldz00, BgL_auxz00_2920, BgL_auxz00_2922); } 
{ /* ./Jvm/jld.scm 369 */
int BgL_auxz00_2925;
BgL_auxz00_2925 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33811ze3z83_2186, BgL_auxz00_2925, BgL_za7ipsza7_22); } 
{ /* ./Jvm/jld.scm 369 */
int BgL_auxz00_2928;
BgL_auxz00_2928 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza33811ze3z83_2186, BgL_auxz00_2928, BgL_mainzd2classzd2_21); } 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_targetz00_20, BgL_zc3anonymousza33811ze3z83_2186); } 
{ /* ./Jvm/jld.scm 394 */
obj_t BgL_list3911z00_1251;
{ /* ./Jvm/jld.scm 394 */
obj_t BgL_arg3913z00_1252;obj_t BgL_arg3914z00_1253;
BgL_arg3913z00_1252 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Jvm/jld.scm 394 */
obj_t BgL_arg3917z00_1254;obj_t BgL_arg3918z00_1255;
BgL_arg3917z00_1254 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Jvm/jld.scm 394 */
obj_t BgL_auxz00_2934;
BgL_auxz00_2934 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg3918z00_1255 = 
MAKE_PAIR(BgL_auxz00_2934, BNIL); } 
BgL_arg3914z00_1253 = 
MAKE_PAIR(BgL_arg3917z00_1254, BgL_arg3918z00_1255); } 
BgL_list3911z00_1251 = 
MAKE_PAIR(BgL_arg3913z00_1252, BgL_arg3914z00_1253); } 
return 
BGl_chmodz00zz__osz00(BgL_targetz00_20, BgL_list3911z00_1251);} } } } 
}



/* generate-jvm-env */
obj_t BGl_generatezd2jvmzd2envz00zzjvm_ldz00()
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 340 */
return 
BGl_loopz00zzjvm_ldz00(BGl_za2jvmzd2envza2zd2zzengine_paramz00, BGl_string5104z00zzjvm_ldz00);} 
}



/* loop */
obj_t BGl_loopz00zzjvm_ldz00(obj_t BgL_envz00_1282, obj_t BgL_resz00_1283)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 334 */
BGl_loopz00zzjvm_ldz00:
{ /* ./Jvm/jld.scm 336 */
bool_t BgL_test4000z00_1285;
BgL_test4000z00_1285 = 
NULLP(BgL_envz00_1282); 
if(BgL_test4000z00_1285)
{ /* ./Jvm/jld.scm 336 */
return BgL_resz00_1283;}  else 
{ /* ./Jvm/jld.scm 338 */
obj_t BgL_arg4002z00_1286;obj_t BgL_arg4003z00_1287;
BgL_arg4002z00_1286 = 
CDR(BgL_envz00_1282); 
{ /* ./Jvm/jld.scm 339 */
obj_t BgL_arg4008z00_1289;obj_t BgL_arg4010z00_1291;
BgL_arg4008z00_1289 = 
CAR(BgL_envz00_1282); 
BgL_arg4010z00_1291 = 
CAR(BgL_envz00_1282); 
{ /* ./Jvm/jld.scm 339 */
obj_t BgL_list4013z00_1293;
{ /* ./Jvm/jld.scm 339 */
obj_t BgL_arg4015z00_1294;
{ /* ./Jvm/jld.scm 339 */
obj_t BgL_arg4018z00_1295;
{ /* ./Jvm/jld.scm 339 */
obj_t BgL_arg4021z00_1296;
{ /* ./Jvm/jld.scm 339 */
obj_t BgL_arg4024z00_1297;
{ /* ./Jvm/jld.scm 339 */
obj_t BgL_arg4027z00_1298;
BgL_arg4027z00_1298 = 
MAKE_PAIR(BgL_resz00_1283, BNIL); 
BgL_arg4024z00_1297 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BgL_arg4027z00_1298); } 
BgL_arg4021z00_1296 = 
MAKE_PAIR(BgL_arg4010z00_1291, BgL_arg4024z00_1297); } 
BgL_arg4018z00_1295 = 
MAKE_PAIR(BGl_string5121z00zzjvm_ldz00, BgL_arg4021z00_1296); } 
BgL_arg4015z00_1294 = 
MAKE_PAIR(BgL_arg4008z00_1289, BgL_arg4018z00_1295); } 
BgL_list4013z00_1293 = 
MAKE_PAIR(BGl_string5122z00zzjvm_ldz00, BgL_arg4015z00_1294); } 
BgL_arg4003z00_1287 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list4013z00_1293); } } 
{ 
obj_t BgL_resz00_2954;obj_t BgL_envz00_2953;
BgL_envz00_2953 = BgL_arg4002z00_1286; 
BgL_resz00_2954 = BgL_arg4003z00_1287; 
BgL_resz00_1283 = BgL_resz00_2954; 
BgL_envz00_1282 = BgL_envz00_2953; 
goto BGl_loopz00zzjvm_ldz00;} } } } 
}



/* <anonymous:3925> */
obj_t BGl_zc3anonymousza33925ze3z83zzjvm_ldz00(obj_t BgL_envz00_2187)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 343 */
{ /* ./Jvm/jld.scm 344 */
obj_t BgL_targetz00_2188;
{ /* ./Jvm/jld.scm 344 */
int BgL_auxz00_2955;
BgL_auxz00_2955 = 
(int)(((long)0)); 
BgL_targetz00_2188 = 
PROCEDURE_REF(BgL_envz00_2187, BgL_auxz00_2955); } 
{ 

{ /* ./Jvm/jld.scm 344 */
obj_t BgL_port3029z00_1259;
BgL_port3029z00_1259 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5123z00zzjvm_ldz00, BgL_port3029z00_1259); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3029z00_1259); } 
{ /* ./Jvm/jld.scm 345 */
obj_t BgL_arg3930z00_1260;
BgL_arg3930z00_1260 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg3930z00_1260); } 
{ /* ./Jvm/jld.scm 346 */
obj_t BgL_port3030z00_1261;
BgL_port3030z00_1261 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5124z00zzjvm_ldz00, BgL_port3030z00_1261); 
{ /* ./Jvm/jld.scm 348 */
obj_t BgL_arg3935z00_1262;
{ /* ./Jvm/jld.scm 348 */
obj_t BgL_arg3938z00_1263;
{ /* ./Jvm/jld.scm 348 */
obj_t BgL_arg3941z00_1264;
BgL_arg3941z00_1264 = 
MAKE_PAIR(BGl_string5125z00zzjvm_ldz00, BNIL); 
BgL_arg3938z00_1263 = 
MAKE_PAIR(BGl_za2jvmzd2classpathza2zd2zzengine_paramz00, BgL_arg3941z00_1264); } 
BgL_arg3935z00_1262 = 
BGl_listzd2ze3shzd2pathzd2stringz31zzjvm_ldz00(BgL_arg3938z00_1263); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3935z00_1262, BgL_port3030z00_1261); } 
display_string(BGl_string5126z00zzjvm_ldz00, BgL_port3030z00_1261); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3030z00_1261); } 
{ /* ./Jvm/jld.scm 350 */
obj_t BgL_port3031z00_1265;
BgL_port3031z00_1265 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5127z00zzjvm_ldz00, BgL_port3031z00_1265); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3031z00_1265); } 
{ /* ./Jvm/jld.scm 351 */
obj_t BgL_arg3951z00_1266;
BgL_arg3951z00_1266 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg3951z00_1266); } 
{ /* ./Jvm/jld.scm 352 */
obj_t BgL_port3032z00_1267;
BgL_port3032z00_1267 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5128z00zzjvm_ldz00, BgL_port3032z00_1267); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2jvmzd2javaza2zd2zzengine_paramz00, BgL_port3032z00_1267); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3032z00_1267); 
{ /* ./Jvm/jld.scm 353 */
char * BgL_arg3958z00_1268;
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/jld.scm 353 */
BgL_arg3958z00_1268 = ""; }  else 
{ /* ./Jvm/jld.scm 353 */
BgL_arg3958z00_1268 = BGL_JAVA_VOPT; } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg3958z00_1268), BgL_port3032z00_1267); } 
display_string(BGl_string5129z00zzjvm_ldz00, BgL_port3032z00_1267); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BGL_JAVA_OPT), BgL_port3032z00_1267); 
display_string(BGl_string5130z00zzjvm_ldz00, BgL_port3032z00_1267); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2jvmzd2optionsza2zd2zzengine_paramz00, BgL_port3032z00_1267); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3032z00_1267); 
{ /* ./Jvm/jld.scm 357 */
obj_t BgL_arg3966z00_1269;
BgL_arg3966z00_1269 = 
BGl_generatezd2jvmzd2envz00zzjvm_ldz00(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3966z00_1269, BgL_port3032z00_1267); } 
{ /* ./Jvm/jld.scm 358 */
obj_t BgL_arg3970z00_1270;
{ /* ./Jvm/jld.scm 358 */
bool_t BgL_test3972z00_1271;
{ /* ./Jvm/jld.scm 358 */
obj_t BgL_string1z00_2060;
BgL_string1z00_2060 = 
string_to_bstring(DIRNAME_CMD); 
BgL_test3972z00_1271 = 
bigloo_strcmp(BgL_string1z00_2060, BGl_string5104z00zzjvm_ldz00); } 
if(BgL_test3972z00_1271)
{ /* ./Jvm/jld.scm 358 */
BgL_arg3970z00_1270 = 
BGl_prefixz00zz__osz00(BgL_targetz00_2188); }  else 
{ /* ./Jvm/jld.scm 359 */
obj_t BgL_arg3975z00_1272;obj_t BgL_arg3976z00_1273;
{ /* ./Jvm/jld.scm 359 */
obj_t BgL_auxz00_2996;
BgL_auxz00_2996 = 
string_to_bstring(DIRNAME_CMD); 
BgL_arg3975z00_1272 = 
string_append_3(BGl_string5131z00zzjvm_ldz00, BgL_auxz00_2996, BGl_string5132z00zzjvm_ldz00); } 
{ /* ./Jvm/jld.scm 362 */
obj_t BgL_arg3980z00_1274;
BgL_arg3980z00_1274 = 
BGl_basenamez00zz__osz00(BgL_targetz00_2188); 
BgL_arg3976z00_1273 = 
BGl_prefixz00zz__osz00(BgL_arg3980z00_1274); } 
BgL_arg3970z00_1270 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_arg3975z00_1272, BgL_arg3976z00_1273); } } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3970z00_1270, BgL_port3032z00_1267); } 
display_string(BGl_string5133z00zzjvm_ldz00, BgL_port3032z00_1267); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3032z00_1267);} } } } 
}



/* <anonymous:3811> */
obj_t BGl_zc3anonymousza33811ze3z83zzjvm_ldz00(obj_t BgL_envz00_2189)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 368 */
{ /* ./Jvm/jld.scm 369 */
obj_t BgL_za7ipsza7_2190;obj_t BgL_mainzd2classzd2_2191;
{ /* ./Jvm/jld.scm 369 */
int BgL_auxz00_3005;
BgL_auxz00_3005 = 
(int)(((long)0)); 
BgL_za7ipsza7_2190 = 
PROCEDURE_REF(BgL_envz00_2189, BgL_auxz00_3005); } 
{ /* ./Jvm/jld.scm 369 */
int BgL_auxz00_3008;
BgL_auxz00_3008 = 
(int)(((long)1)); 
BgL_mainzd2classzd2_2191 = 
PROCEDURE_REF(BgL_envz00_2189, BgL_auxz00_3008); } 
{ 

{ /* ./Jvm/jld.scm 369 */
obj_t BgL_port3033z00_1212;
BgL_port3033z00_1212 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5123z00zzjvm_ldz00, BgL_port3033z00_1212); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3033z00_1212); } 
{ /* ./Jvm/jld.scm 370 */
obj_t BgL_arg3816z00_1213;
BgL_arg3816z00_1213 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg3816z00_1213); } 
{ /* ./Jvm/jld.scm 371 */
obj_t BgL_port3034z00_1214;
BgL_port3034z00_1214 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5134z00zzjvm_ldz00, BgL_port3034z00_1214); 
{ /* ./Jvm/jld.scm 373 */
obj_t BgL_arg3821z00_1215;
{ /* ./Jvm/jld.scm 373 */
obj_t BgL_arg3824z00_1216;
{ /* ./Jvm/jld.scm 373 */
obj_t BgL_arg3827z00_1217;
{ /* ./Jvm/jld.scm 373 */
obj_t BgL_arg3832z00_1219;
{ /* ./Jvm/jld.scm 373 */
obj_t BgL_arg3836z00_1221;
{ /* ./Jvm/jld.scm 377 */
obj_t BgL_arg3839z00_1222;obj_t BgL_arg3840z00_1223;
{ /* ./Jvm/jld.scm 377 */
obj_t BgL_arg3843z00_1224;
{ /* ./Jvm/jld.scm 377 */
obj_t BgL_arg3846z00_1225;char * BgL_arg3847z00_1226;
BgL_arg3846z00_1225 = 
BGl_jvmzd2bigloozd2classpathz00zzjvm_ldz00(); 
{ /* ./Jvm/jld.scm 378 */
bool_t BgL_test3850z00_1227;
if(
CBOOL(BGl_za2unsafezd2libraryza2zd2zzengine_paramz00))
{ /* ./Jvm/jld.scm 378 */
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/jld.scm 379 */
BgL_test3850z00_1227 = ((bool_t)0); }  else 
{ /* ./Jvm/jld.scm 379 */
BgL_test3850z00_1227 = ((bool_t)1); } }  else 
{ /* ./Jvm/jld.scm 378 */
BgL_test3850z00_1227 = ((bool_t)0); } 
if(BgL_test3850z00_1227)
{ /* ./Jvm/jld.scm 378 */
BgL_arg3847z00_1226 = "bigloo_u.zip"; }  else 
{ /* ./Jvm/jld.scm 378 */
BgL_arg3847z00_1226 = "bigloo_s.zip"; } } 
BgL_arg3843z00_1224 = 
BGl_makezd2filezd2namez00zz__osz00(BgL_arg3846z00_1225, 
string_to_bstring(BgL_arg3847z00_1226)); } 
BgL_arg3839z00_1222 = 
string_append_3(BGl_string5135z00zzjvm_ldz00, BgL_arg3843z00_1224, BGl_string5135z00zzjvm_ldz00); } 
{ /* ./Jvm/jld.scm 382 */
obj_t BgL_arg3852z00_1228;
{ /* ./Jvm/jld.scm 382 */
bool_t BgL_test3855z00_1231;
BgL_test3855z00_1231 = 
NULLP(BgL_za7ipsza7_2190); 
if(BgL_test3855z00_1231)
{ /* ./Jvm/jld.scm 382 */
BgL_arg3852z00_1228 = BNIL; }  else 
{ /* ./Jvm/jld.scm 382 */
obj_t BgL_head3037z00_1232;
BgL_head3037z00_1232 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3035z00_1233;obj_t BgL_tail3038z00_1234;
BgL_l3035z00_1233 = BgL_za7ipsza7_2190; 
BgL_tail3038z00_1234 = BgL_head3037z00_1232; 
BgL_map3036z00_1235:
{ /* ./Jvm/jld.scm 382 */
bool_t BgL_test3857z00_1236;
BgL_test3857z00_1236 = 
NULLP(BgL_l3035z00_1233); 
if(BgL_test3857z00_1236)
{ /* ./Jvm/jld.scm 382 */
BgL_arg3852z00_1228 = 
CDR(BgL_head3037z00_1232); }  else 
{ /* ./Jvm/jld.scm 382 */
obj_t BgL_newtail3039z00_1237;
{ /* ./Jvm/jld.scm 382 */
obj_t BgL_arg3865z00_1239;
{ /* ./Jvm/jld.scm 382 */
obj_t BgL_fz00_1241;
BgL_fz00_1241 = 
CAR(BgL_l3035z00_1233); 
{ /* ./Jvm/jld.scm 382 */
obj_t BgL_arg3869z00_1242;
BgL_arg3869z00_1242 = 
BGl_userzd2libraryzd2zzjvm_ldz00(BgL_fz00_1241); 
BgL_arg3865z00_1239 = 
string_append_3(BGl_string5135z00zzjvm_ldz00, BgL_arg3869z00_1242, BGl_string5135z00zzjvm_ldz00); } } 
BgL_newtail3039z00_1237 = 
MAKE_PAIR(BgL_arg3865z00_1239, BNIL); } 
SET_CDR(BgL_tail3038z00_1234, BgL_newtail3039z00_1237); 
{ /* ./Jvm/jld.scm 382 */
obj_t BgL_arg3861z00_1238;
BgL_arg3861z00_1238 = 
CDR(BgL_l3035z00_1233); 
{ 
obj_t BgL_tail3038z00_3040;obj_t BgL_l3035z00_3039;
BgL_l3035z00_3039 = BgL_arg3861z00_1238; 
BgL_tail3038z00_3040 = BgL_newtail3039z00_1237; 
BgL_tail3038z00_1234 = BgL_tail3038z00_3040; 
BgL_l3035z00_1233 = BgL_l3035z00_3039; 
goto BgL_map3036z00_1235;} } } } } } } 
BgL_arg3840z00_1223 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3852z00_1228, BNIL); } 
BgL_arg3836z00_1221 = 
MAKE_PAIR(BgL_arg3839z00_1222, BgL_arg3840z00_1223); } 
BgL_arg3832z00_1219 = 
MAKE_PAIR(BGl_string5125z00zzjvm_ldz00, BgL_arg3836z00_1221); } 
BgL_arg3827z00_1217 = 
MAKE_PAIR(BGl_string5136z00zzjvm_ldz00, BgL_arg3832z00_1219); } 
BgL_arg3824z00_1216 = 
MAKE_PAIR(BGl_za2jvmzd2classpathza2zd2zzengine_paramz00, BgL_arg3827z00_1217); } 
BgL_arg3821z00_1215 = 
BGl_listzd2ze3shzd2pathzd2stringz31zzjvm_ldz00(BgL_arg3824z00_1216); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3821z00_1215, BgL_port3034z00_1214); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3034z00_1214); } 
{ /* ./Jvm/jld.scm 383 */
obj_t BgL_port3040z00_1243;
BgL_port3040z00_1243 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5127z00zzjvm_ldz00, BgL_port3040z00_1243); 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3040z00_1243); } 
{ /* ./Jvm/jld.scm 384 */
obj_t BgL_arg3882z00_1244;
BgL_arg3882z00_1244 = 
BGL_CURRENT_OUTPUT_PORT(); 
WRITE_CHAR(((unsigned char)'\n'), BgL_arg3882z00_1244); } 
{ /* ./Jvm/jld.scm 385 */
obj_t BgL_port3041z00_1245;
BgL_port3041z00_1245 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5128z00zzjvm_ldz00, BgL_port3041z00_1245); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2jvmzd2javaza2zd2zzengine_paramz00, BgL_port3041z00_1245); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3041z00_1245); 
{ /* ./Jvm/jld.scm 386 */
char * BgL_arg3889z00_1246;
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/jld.scm 386 */
BgL_arg3889z00_1246 = ""; }  else 
{ /* ./Jvm/jld.scm 386 */
BgL_arg3889z00_1246 = BGL_JAVA_VOPT; } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg3889z00_1246), BgL_port3041z00_1245); } 
display_string(BGl_string5129z00zzjvm_ldz00, BgL_port3041z00_1245); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BGL_JAVA_OPT), BgL_port3041z00_1245); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3041z00_1245); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2jvmzd2optionsza2zd2zzengine_paramz00, BgL_port3041z00_1245); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3041z00_1245); 
{ /* ./Jvm/jld.scm 391 */
obj_t BgL_arg3897z00_1247;
BgL_arg3897z00_1247 = 
BGl_generatezd2jvmzd2envz00zzjvm_ldz00(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3897z00_1247, BgL_port3041z00_1245); } 
{ /* ./Jvm/jld.scm 392 */
obj_t BgL_arg3901z00_1248;
{ /* ./Jvm/jld.scm 392 */
obj_t BgL_arg3904z00_1249;
BgL_arg3904z00_1249 = 
BGl_filezd2separatorzd2zz__osz00(); 
BgL_arg3901z00_1248 = 
BGl_stringzd2replacez12zc0zztools_miscz00(BgL_mainzd2classzd2_2191, BgL_arg3904z00_1249, 
BCHAR(((unsigned char)'.'))); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg3901z00_1248, BgL_port3041z00_1245); } 
display_string(BGl_string5137z00zzjvm_ldz00, BgL_port3041z00_1245); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3041z00_1245);} } } } 
}



/* generate-jvm-msdos-script */
bool_t BGl_generatezd2jvmzd2msdoszd2scriptzd2zzjvm_ldz00(obj_t BgL_targetz00_23, obj_t BgL_mainzd2classzd2_24, obj_t BgL_jarnamez00_25, obj_t BgL_za7ipsza7_26)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 402 */
{ 

if(
CBOOL(BGl_za2jvmzd2jarzf3za2z21zzengine_paramz00))
{ /* ./Jvm/jld.scm 467 */
{ /* ./Jvm/jld.scm 414 */
obj_t BgL_zc3anonymousza34134ze3z83_2194;
{ 
int BgL_auxz00_3080;int BgL_auxz00_3078;
BgL_auxz00_3080 = 
(int)(((long)3)); 
BgL_auxz00_3078 = 
(int)(((long)0)); 
BgL_zc3anonymousza34134ze3z83_2194 = 
make_fx_procedure(BGl_zc3anonymousza34134ze3z83zzjvm_ldz00, BgL_auxz00_3078, BgL_auxz00_3080); } 
{ /* ./Jvm/jld.scm 414 */
int BgL_auxz00_3083;
BgL_auxz00_3083 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza34134ze3z83_2194, BgL_auxz00_3083, BgL_jarnamez00_25); } 
{ /* ./Jvm/jld.scm 414 */
int BgL_auxz00_3086;
BgL_auxz00_3086 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza34134ze3z83_2194, BgL_auxz00_3086, BgL_za7ipsza7_26); } 
{ /* ./Jvm/jld.scm 414 */
int BgL_auxz00_3089;
BgL_auxz00_3089 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza34134ze3z83_2194, BgL_auxz00_3089, BgL_mainzd2classzd2_24); } 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_targetz00_23, BgL_zc3anonymousza34134ze3z83_2194); } 
{ /* ./Jvm/jld.scm 439 */
obj_t BgL_list4227z00_1387;
{ /* ./Jvm/jld.scm 439 */
obj_t BgL_arg4229z00_1388;obj_t BgL_arg4230z00_1389;
BgL_arg4229z00_1388 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Jvm/jld.scm 439 */
obj_t BgL_arg4233z00_1390;obj_t BgL_arg4234z00_1391;
BgL_arg4233z00_1390 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Jvm/jld.scm 439 */
obj_t BgL_auxz00_3095;
BgL_auxz00_3095 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg4234z00_1391 = 
MAKE_PAIR(BgL_auxz00_3095, BNIL); } 
BgL_arg4230z00_1389 = 
MAKE_PAIR(BgL_arg4233z00_1390, BgL_arg4234z00_1391); } 
BgL_list4227z00_1387 = 
MAKE_PAIR(BgL_arg4229z00_1388, BgL_arg4230z00_1389); } 
return 
BGl_chmodz00zz__osz00(BgL_targetz00_23, BgL_list4227z00_1387);} }  else 
{ /* ./Jvm/jld.scm 467 */
{ /* ./Jvm/jld.scm 443 */
obj_t BgL_zc3anonymousza34041ze3z83_2195;
{ 
int BgL_auxz00_3103;int BgL_auxz00_3101;
BgL_auxz00_3103 = 
(int)(((long)2)); 
BgL_auxz00_3101 = 
(int)(((long)0)); 
BgL_zc3anonymousza34041ze3z83_2195 = 
make_fx_procedure(BGl_zc3anonymousza34041ze3z83zzjvm_ldz00, BgL_auxz00_3101, BgL_auxz00_3103); } 
{ /* ./Jvm/jld.scm 443 */
int BgL_auxz00_3106;
BgL_auxz00_3106 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza34041ze3z83_2195, BgL_auxz00_3106, BgL_za7ipsza7_26); } 
{ /* ./Jvm/jld.scm 443 */
int BgL_auxz00_3109;
BgL_auxz00_3109 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza34041ze3z83_2195, BgL_auxz00_3109, BgL_mainzd2classzd2_24); } 
BGl_withzd2outputzd2tozd2filezd2zz__r4_ports_6_10_1z00(BgL_targetz00_23, BgL_zc3anonymousza34041ze3z83_2195); } 
{ /* ./Jvm/jld.scm 466 */
obj_t BgL_list4120z00_1342;
{ /* ./Jvm/jld.scm 466 */
obj_t BgL_arg4122z00_1343;obj_t BgL_arg4123z00_1344;
BgL_arg4122z00_1343 = 
CNST_TABLE_REF(((long)8)); 
{ /* ./Jvm/jld.scm 466 */
obj_t BgL_arg4126z00_1345;obj_t BgL_arg4127z00_1346;
BgL_arg4126z00_1345 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Jvm/jld.scm 466 */
obj_t BgL_auxz00_3115;
BgL_auxz00_3115 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg4127z00_1346 = 
MAKE_PAIR(BgL_auxz00_3115, BNIL); } 
BgL_arg4123z00_1344 = 
MAKE_PAIR(BgL_arg4126z00_1345, BgL_arg4127z00_1346); } 
BgL_list4120z00_1342 = 
MAKE_PAIR(BgL_arg4122z00_1343, BgL_arg4123z00_1344); } 
return 
BGl_chmodz00zz__osz00(BgL_targetz00_23, BgL_list4120z00_1342);} } } } 
}



/* generate-jvm-env_4776 */
obj_t BGl_generatezd2jvmzd2env_4776z00zzjvm_ldz00()
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 410 */
return 
BGl_loop_4777z00zzjvm_ldz00(BGl_za2jvmzd2envza2zd2zzengine_paramz00, BGl_string5104z00zzjvm_ldz00);} 
}



/* loop_4777 */
obj_t BGl_loop_4777z00zzjvm_ldz00(obj_t BgL_envz00_1393, obj_t BgL_resz00_1394)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 404 */
BGl_loop_4777z00zzjvm_ldz00:
{ /* ./Jvm/jld.scm 406 */
bool_t BgL_test4239z00_1396;
BgL_test4239z00_1396 = 
NULLP(BgL_envz00_1393); 
if(BgL_test4239z00_1396)
{ /* ./Jvm/jld.scm 406 */
return BgL_resz00_1394;}  else 
{ /* ./Jvm/jld.scm 408 */
obj_t BgL_arg4241z00_1397;obj_t BgL_arg4242z00_1398;
BgL_arg4241z00_1397 = 
CDR(BgL_envz00_1393); 
{ /* ./Jvm/jld.scm 409 */
obj_t BgL_arg4247z00_1400;obj_t BgL_arg4249z00_1402;
BgL_arg4247z00_1400 = 
CAR(BgL_envz00_1393); 
BgL_arg4249z00_1402 = 
CAR(BgL_envz00_1393); 
{ /* ./Jvm/jld.scm 409 */
obj_t BgL_list4252z00_1404;
{ /* ./Jvm/jld.scm 409 */
obj_t BgL_arg4254z00_1405;
{ /* ./Jvm/jld.scm 409 */
obj_t BgL_arg4257z00_1406;
{ /* ./Jvm/jld.scm 409 */
obj_t BgL_arg4260z00_1407;
{ /* ./Jvm/jld.scm 409 */
obj_t BgL_arg4263z00_1408;
{ /* ./Jvm/jld.scm 409 */
obj_t BgL_arg4266z00_1409;
BgL_arg4266z00_1409 = 
MAKE_PAIR(BgL_resz00_1394, BNIL); 
BgL_arg4263z00_1408 = 
MAKE_PAIR(BGl_string5106z00zzjvm_ldz00, BgL_arg4266z00_1409); } 
BgL_arg4260z00_1407 = 
MAKE_PAIR(BgL_arg4249z00_1402, BgL_arg4263z00_1408); } 
BgL_arg4257z00_1406 = 
MAKE_PAIR(BGl_string5121z00zzjvm_ldz00, BgL_arg4260z00_1407); } 
BgL_arg4254z00_1405 = 
MAKE_PAIR(BgL_arg4247z00_1400, BgL_arg4257z00_1406); } 
BgL_list4252z00_1404 = 
MAKE_PAIR(BGl_string5122z00zzjvm_ldz00, BgL_arg4254z00_1405); } 
BgL_arg4242z00_1398 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list4252z00_1404); } } 
{ 
obj_t BgL_resz00_3135;obj_t BgL_envz00_3134;
BgL_envz00_3134 = BgL_arg4241z00_1397; 
BgL_resz00_3135 = BgL_arg4242z00_1398; 
BgL_resz00_1394 = BgL_resz00_3135; 
BgL_envz00_1393 = BgL_envz00_3134; 
goto BGl_loop_4777z00zzjvm_ldz00;} } } } 
}



/* <anonymous:4134> */
obj_t BGl_zc3anonymousza34134ze3z83zzjvm_ldz00(obj_t BgL_envz00_2196)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 413 */
{ /* ./Jvm/jld.scm 414 */
obj_t BgL_jarnamez00_2197;obj_t BgL_za7ipsza7_2198;obj_t BgL_mainzd2classzd2_2199;
{ /* ./Jvm/jld.scm 414 */
int BgL_auxz00_3136;
BgL_auxz00_3136 = 
(int)(((long)0)); 
BgL_jarnamez00_2197 = 
PROCEDURE_REF(BgL_envz00_2196, BgL_auxz00_3136); } 
{ /* ./Jvm/jld.scm 414 */
int BgL_auxz00_3139;
BgL_auxz00_3139 = 
(int)(((long)1)); 
BgL_za7ipsza7_2198 = 
PROCEDURE_REF(BgL_envz00_2196, BgL_auxz00_3139); } 
{ /* ./Jvm/jld.scm 414 */
int BgL_auxz00_3142;
BgL_auxz00_3142 = 
(int)(((long)2)); 
BgL_mainzd2classzd2_2199 = 
PROCEDURE_REF(BgL_envz00_2196, BgL_auxz00_3142); } 
{ 

{ /* ./Jvm/jld.scm 414 */
obj_t BgL_port3042z00_1350;
BgL_port3042z00_1350 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5138z00zzjvm_ldz00, BgL_port3042z00_1350); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2jvmzd2javaza2zd2zzengine_paramz00, BgL_port3042z00_1350); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3042z00_1350); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BGL_JAVA_OPT), BgL_port3042z00_1350); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3042z00_1350); 
{ /* ./Jvm/jld.scm 416 */
char * BgL_arg4141z00_1351;
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/jld.scm 416 */
BgL_arg4141z00_1351 = ""; }  else 
{ /* ./Jvm/jld.scm 416 */
BgL_arg4141z00_1351 = BGL_JAVA_VOPT; } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg4141z00_1351), BgL_port3042z00_1350); } 
display_string(BGl_string5139z00zzjvm_ldz00, BgL_port3042z00_1350); 
{ /* ./Jvm/jld.scm 419 */
obj_t BgL_arg4145z00_1352;
{ /* ./Jvm/jld.scm 419 */
obj_t BgL_arg4148z00_1353;
{ /* ./Jvm/jld.scm 419 */
obj_t BgL_arg4151z00_1354;
{ /* ./Jvm/jld.scm 419 */
obj_t BgL_arg4155z00_1356;
{ /* ./Jvm/jld.scm 421 */
obj_t BgL_arg4158z00_1357;obj_t BgL_arg4159z00_1358;
{ /* ./Jvm/jld.scm 421 */
obj_t BgL_arg4162z00_1359;obj_t BgL_arg4164z00_1361;
{ /* ./Jvm/jld.scm 421 */
obj_t BgL_arg4167z00_1362;
BgL_arg4167z00_1362 = 
BGl_dirnamez00zz__osz00(BgL_jarnamez00_2197); 
{ /* ./Jvm/jld.scm 421 */
bool_t BgL_test3699z00_2080;
{ /* ./Jvm/jld.scm 421 */
obj_t BgL_objz00_2081;
BgL_objz00_2081 = BGl_za2jvmzd2jarpathza2zd2zzengine_paramz00; 
BgL_test3699z00_2080 = 
STRINGP(BgL_objz00_2081); } 
if(BgL_test3699z00_2080)
{ /* ./Jvm/jld.scm 421 */
BgL_arg4162z00_1359 = BGl_za2jvmzd2jarpathza2zd2zzengine_paramz00; }  else 
{ /* ./Jvm/jld.scm 421 */
BgL_arg4162z00_1359 = BgL_arg4167z00_1362; } } } 
BgL_arg4164z00_1361 = 
BGl_basenamez00zz__osz00(BgL_jarnamez00_2197); 
BgL_arg4158z00_1357 = 
string_append_3(BgL_arg4162z00_1359, BGl_string5140z00zzjvm_ldz00, BgL_arg4164z00_1361); } 
{ /* ./Jvm/jld.scm 425 */
obj_t BgL_arg4172z00_1363;obj_t BgL_arg4173z00_1364;
{ /* ./Jvm/jld.scm 425 */
obj_t BgL_arg4176z00_1365;char * BgL_arg4177z00_1366;
{ /* ./Jvm/jld.scm 425 */
obj_t BgL_arg4180z00_1367;
BgL_arg4180z00_1367 = 
BGl_jvmzd2bigloozd2classpathz00zzjvm_ldz00(); 
BgL_arg4176z00_1365 = 
BGl_stringzd2replacezd2zztools_miscz00(BgL_arg4180z00_1367, 
BCHAR(((unsigned char)'/')), 
BCHAR(((unsigned char)'\\'))); } 
if(
CBOOL(BGl_za2unsafezd2libraryza2zd2zzengine_paramz00))
{ /* ./Jvm/jld.scm 427 */
BgL_arg4177z00_1366 = "\\bigloo_u.zip"; }  else 
{ /* ./Jvm/jld.scm 427 */
BgL_arg4177z00_1366 = "\\bigloo_s.zip"; } 
{ /* ./Jvm/jld.scm 424 */
obj_t BgL_auxz00_3168;
BgL_auxz00_3168 = 
string_to_bstring(BgL_arg4177z00_1366); 
BgL_arg4172z00_1363 = 
string_append(BgL_arg4176z00_1365, BgL_auxz00_3168); } } 
{ /* ./Jvm/jld.scm 430 */
obj_t BgL_arg4184z00_1368;
{ /* ./Jvm/jld.scm 430 */
bool_t BgL_test4187z00_1371;
BgL_test4187z00_1371 = 
NULLP(BgL_za7ipsza7_2198); 
if(BgL_test4187z00_1371)
{ /* ./Jvm/jld.scm 430 */
BgL_arg4184z00_1368 = BNIL; }  else 
{ /* ./Jvm/jld.scm 430 */
obj_t BgL_head3045z00_1372;
BgL_head3045z00_1372 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3043z00_1373;obj_t BgL_tail3046z00_1374;
BgL_l3043z00_1373 = BgL_za7ipsza7_2198; 
BgL_tail3046z00_1374 = BgL_head3045z00_1372; 
BgL_map3044z00_1375:
{ /* ./Jvm/jld.scm 430 */
bool_t BgL_test4189z00_1376;
BgL_test4189z00_1376 = 
NULLP(BgL_l3043z00_1373); 
if(BgL_test4189z00_1376)
{ /* ./Jvm/jld.scm 430 */
BgL_arg4184z00_1368 = 
CDR(BgL_head3045z00_1372); }  else 
{ /* ./Jvm/jld.scm 431 */
obj_t BgL_newtail3047z00_1377;
{ /* ./Jvm/jld.scm 431 */
obj_t BgL_arg4197z00_1379;
{ /* ./Jvm/jld.scm 431 */
obj_t BgL_xz00_1381;
BgL_xz00_1381 = 
CAR(BgL_l3043z00_1373); 
{ /* ./Jvm/jld.scm 431 */
obj_t BgL_arg4201z00_1382;
BgL_arg4201z00_1382 = 
BGl_userzd2libraryzd2zzjvm_ldz00(BgL_xz00_1381); 
BgL_arg4197z00_1379 = 
BGl_stringzd2replacez12zc0zztools_miscz00(BgL_arg4201z00_1382, 
BCHAR(((unsigned char)'/')), 
BCHAR(((unsigned char)'\\'))); } } 
BgL_newtail3047z00_1377 = 
MAKE_PAIR(BgL_arg4197z00_1379, BNIL); } 
SET_CDR(BgL_tail3046z00_1374, BgL_newtail3047z00_1377); 
{ /* ./Jvm/jld.scm 430 */
obj_t BgL_arg4193z00_1378;
BgL_arg4193z00_1378 = 
CDR(BgL_l3043z00_1373); 
{ 
obj_t BgL_tail3046z00_3186;obj_t BgL_l3043z00_3185;
BgL_l3043z00_3185 = BgL_arg4193z00_1378; 
BgL_tail3046z00_3186 = BgL_newtail3047z00_1377; 
BgL_tail3046z00_1374 = BgL_tail3046z00_3186; 
BgL_l3043z00_1373 = BgL_l3043z00_3185; 
goto BgL_map3044z00_1375;} } } } } } } 
BgL_arg4173z00_1364 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4184z00_1368, BNIL); } 
BgL_arg4159z00_1358 = 
MAKE_PAIR(BgL_arg4172z00_1363, BgL_arg4173z00_1364); } 
BgL_arg4155z00_1356 = 
MAKE_PAIR(BgL_arg4158z00_1357, BgL_arg4159z00_1358); } 
BgL_arg4151z00_1354 = 
MAKE_PAIR(BGl_string5141z00zzjvm_ldz00, BgL_arg4155z00_1356); } 
BgL_arg4148z00_1353 = 
MAKE_PAIR(BGl_za2jvmzd2classpathza2zd2zzengine_paramz00, BgL_arg4151z00_1354); } 
BgL_arg4145z00_1352 = 
BGl_listzd2ze3msdoszd2pathzd2stringz31zzjvm_ldz00(BgL_arg4148z00_1353); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4145z00_1352, BgL_port3042z00_1350); } 
display_string(BGl_string5142z00zzjvm_ldz00, BgL_port3042z00_1350); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2jvmzd2optionsza2zd2zzengine_paramz00, BgL_port3042z00_1350); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3042z00_1350); 
{ /* ./Jvm/jld.scm 435 */
obj_t BgL_arg4212z00_1383;
BgL_arg4212z00_1383 = 
BGl_generatezd2jvmzd2env_4776z00zzjvm_ldz00(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4212z00_1383, BgL_port3042z00_1350); } 
display_string(BGl_string5143z00zzjvm_ldz00, BgL_port3042z00_1350); 
{ /* ./Jvm/jld.scm 437 */
obj_t BgL_arg4217z00_1384;
{ /* ./Jvm/jld.scm 437 */
obj_t BgL_arg4220z00_1385;
BgL_arg4220z00_1385 = 
BGl_filezd2separatorzd2zz__osz00(); 
BgL_arg4217z00_1384 = 
BGl_stringzd2replacez12zc0zztools_miscz00(BgL_mainzd2classzd2_2199, BgL_arg4220z00_1385, 
BCHAR(((unsigned char)'.'))); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4217z00_1384, BgL_port3042z00_1350); } 
display_string(BGl_string5144z00zzjvm_ldz00, BgL_port3042z00_1350); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3042z00_1350);} } } } 
}



/* <anonymous:4041> */
obj_t BGl_zc3anonymousza34041ze3z83zzjvm_ldz00(obj_t BgL_envz00_2200)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 442 */
{ /* ./Jvm/jld.scm 443 */
obj_t BgL_za7ipsza7_2201;obj_t BgL_mainzd2classzd2_2202;
{ /* ./Jvm/jld.scm 443 */
int BgL_auxz00_3206;
BgL_auxz00_3206 = 
(int)(((long)0)); 
BgL_za7ipsza7_2201 = 
PROCEDURE_REF(BgL_envz00_2200, BgL_auxz00_3206); } 
{ /* ./Jvm/jld.scm 443 */
int BgL_auxz00_3209;
BgL_auxz00_3209 = 
(int)(((long)1)); 
BgL_mainzd2classzd2_2202 = 
PROCEDURE_REF(BgL_envz00_2200, BgL_auxz00_3209); } 
{ 

{ /* ./Jvm/jld.scm 443 */
obj_t BgL_port3048z00_1311;
BgL_port3048z00_1311 = 
BGL_CURRENT_OUTPUT_PORT(); 
display_string(BGl_string5138z00zzjvm_ldz00, BgL_port3048z00_1311); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2jvmzd2javaza2zd2zzengine_paramz00, BgL_port3048z00_1311); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3048z00_1311); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BGL_JAVA_OPT), BgL_port3048z00_1311); 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3048z00_1311); 
{ /* ./Jvm/jld.scm 445 */
char * BgL_arg4048z00_1312;
if(
CBOOL(BGl_za2jvmzd2purifyza2zd2zzengine_paramz00))
{ /* ./Jvm/jld.scm 445 */
BgL_arg4048z00_1312 = ""; }  else 
{ /* ./Jvm/jld.scm 445 */
BgL_arg4048z00_1312 = BGL_JAVA_VOPT; } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg4048z00_1312), BgL_port3048z00_1311); } 
display_string(BGl_string5106z00zzjvm_ldz00, BgL_port3048z00_1311); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BGl_za2jvmzd2optionsza2zd2zzengine_paramz00, BgL_port3048z00_1311); 
display_string(BGl_string5139z00zzjvm_ldz00, BgL_port3048z00_1311); 
{ /* ./Jvm/jld.scm 450 */
obj_t BgL_arg4054z00_1313;
{ /* ./Jvm/jld.scm 450 */
obj_t BgL_arg4057z00_1314;
{ /* ./Jvm/jld.scm 450 */
obj_t BgL_arg4060z00_1315;
{ /* ./Jvm/jld.scm 450 */
obj_t BgL_arg4064z00_1317;
{ /* ./Jvm/jld.scm 453 */
obj_t BgL_arg4067z00_1318;obj_t BgL_arg4068z00_1319;
{ /* ./Jvm/jld.scm 453 */
obj_t BgL_arg4071z00_1320;char * BgL_arg4072z00_1321;
{ /* ./Jvm/jld.scm 453 */
obj_t BgL_arg4075z00_1322;
BgL_arg4075z00_1322 = 
BGl_jvmzd2bigloozd2classpathz00zzjvm_ldz00(); 
BgL_arg4071z00_1320 = 
BGl_stringzd2replacezd2zztools_miscz00(BgL_arg4075z00_1322, 
BCHAR(((unsigned char)'/')), 
BCHAR(((unsigned char)'\\'))); } 
if(
CBOOL(BGl_za2unsafezd2libraryza2zd2zzengine_paramz00))
{ /* ./Jvm/jld.scm 455 */
BgL_arg4072z00_1321 = "\\bigloo_u.zip"; }  else 
{ /* ./Jvm/jld.scm 455 */
BgL_arg4072z00_1321 = "\\bigloo_s.zip"; } 
{ /* ./Jvm/jld.scm 452 */
obj_t BgL_auxz00_3232;
BgL_auxz00_3232 = 
string_to_bstring(BgL_arg4072z00_1321); 
BgL_arg4067z00_1318 = 
string_append(BgL_arg4071z00_1320, BgL_auxz00_3232); } } 
{ /* ./Jvm/jld.scm 458 */
obj_t BgL_arg4079z00_1323;
{ /* ./Jvm/jld.scm 458 */
bool_t BgL_test4082z00_1326;
BgL_test4082z00_1326 = 
NULLP(BgL_za7ipsza7_2201); 
if(BgL_test4082z00_1326)
{ /* ./Jvm/jld.scm 458 */
BgL_arg4079z00_1323 = BNIL; }  else 
{ /* ./Jvm/jld.scm 458 */
obj_t BgL_head3051z00_1327;
BgL_head3051z00_1327 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3049z00_1328;obj_t BgL_tail3052z00_1329;
BgL_l3049z00_1328 = BgL_za7ipsza7_2201; 
BgL_tail3052z00_1329 = BgL_head3051z00_1327; 
BgL_map3050z00_1330:
{ /* ./Jvm/jld.scm 458 */
bool_t BgL_test4084z00_1331;
BgL_test4084z00_1331 = 
NULLP(BgL_l3049z00_1328); 
if(BgL_test4084z00_1331)
{ /* ./Jvm/jld.scm 458 */
BgL_arg4079z00_1323 = 
CDR(BgL_head3051z00_1327); }  else 
{ /* ./Jvm/jld.scm 459 */
obj_t BgL_newtail3053z00_1332;
{ /* ./Jvm/jld.scm 459 */
obj_t BgL_arg4092z00_1334;
{ /* ./Jvm/jld.scm 459 */
obj_t BgL_xz00_1336;
BgL_xz00_1336 = 
CAR(BgL_l3049z00_1328); 
{ /* ./Jvm/jld.scm 459 */
obj_t BgL_arg4096z00_1337;
BgL_arg4096z00_1337 = 
BGl_userzd2libraryzd2zzjvm_ldz00(BgL_xz00_1336); 
BgL_arg4092z00_1334 = 
BGl_stringzd2replacez12zc0zztools_miscz00(BgL_arg4096z00_1337, 
BCHAR(((unsigned char)'/')), 
BCHAR(((unsigned char)'\\'))); } } 
BgL_newtail3053z00_1332 = 
MAKE_PAIR(BgL_arg4092z00_1334, BNIL); } 
SET_CDR(BgL_tail3052z00_1329, BgL_newtail3053z00_1332); 
{ /* ./Jvm/jld.scm 458 */
obj_t BgL_arg4088z00_1333;
BgL_arg4088z00_1333 = 
CDR(BgL_l3049z00_1328); 
{ 
obj_t BgL_tail3052z00_3250;obj_t BgL_l3049z00_3249;
BgL_l3049z00_3249 = BgL_arg4088z00_1333; 
BgL_tail3052z00_3250 = BgL_newtail3053z00_1332; 
BgL_tail3052z00_1329 = BgL_tail3052z00_3250; 
BgL_l3049z00_1328 = BgL_l3049z00_3249; 
goto BgL_map3050z00_1330;} } } } } } } 
BgL_arg4068z00_1319 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4079z00_1323, BNIL); } 
BgL_arg4064z00_1317 = 
MAKE_PAIR(BgL_arg4067z00_1318, BgL_arg4068z00_1319); } 
BgL_arg4060z00_1315 = 
MAKE_PAIR(BGl_string5141z00zzjvm_ldz00, BgL_arg4064z00_1317); } 
BgL_arg4057z00_1314 = 
MAKE_PAIR(BGl_za2jvmzd2classpathza2zd2zzengine_paramz00, BgL_arg4060z00_1315); } 
BgL_arg4054z00_1313 = 
BGl_listzd2ze3msdoszd2pathzd2stringz31zzjvm_ldz00(BgL_arg4057z00_1314); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4054z00_1313, BgL_port3048z00_1311); } 
display_string(BGl_string5142z00zzjvm_ldz00, BgL_port3048z00_1311); 
{ /* ./Jvm/jld.scm 462 */
obj_t BgL_arg4105z00_1338;
BgL_arg4105z00_1338 = 
BGl_generatezd2jvmzd2env_4776z00zzjvm_ldz00(); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4105z00_1338, BgL_port3048z00_1311); } 
display_string(BGl_string5143z00zzjvm_ldz00, BgL_port3048z00_1311); 
{ /* ./Jvm/jld.scm 464 */
obj_t BgL_arg4110z00_1339;
{ /* ./Jvm/jld.scm 464 */
obj_t BgL_arg4113z00_1340;
BgL_arg4113z00_1340 = 
BGl_filezd2separatorzd2zz__osz00(); 
BgL_arg4110z00_1339 = 
BGl_stringzd2replacez12zc0zztools_miscz00(BgL_mainzd2classzd2_2202, BgL_arg4113z00_1340, 
BCHAR(((unsigned char)'.'))); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4110z00_1339, BgL_port3048z00_1311); } 
display_string(BGl_string5144z00zzjvm_ldz00, BgL_port3048z00_1311); 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_port3048z00_1311);} } } } 
}



/* generate-jvm-script */
bool_t BGl_generatezd2jvmzd2scriptz00zzjvm_ldz00(obj_t BgL_targetz00_27, obj_t BgL_mainzd2classzd2_28, obj_t BgL_jarnamez00_29, obj_t BgL_za7ipsza7_30)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 474 */
{ /* ./Jvm/jld.scm 475 */
obj_t BgL_list4273z00_1413;
{ /* ./Jvm/jld.scm 475 */
obj_t BgL_arg4276z00_1415;
BgL_arg4276z00_1415 = 
MAKE_PAIR(BGl_za2jvmzd2shellza2zd2zzengine_paramz00, BNIL); 
BgL_list4273z00_1413 = 
MAKE_PAIR(BGl_string5145z00zzjvm_ldz00, BgL_arg4276z00_1415); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list4273z00_1413); } 
{ /* ./Jvm/jld.scm 476 */
obj_t BgL_list4280z00_1416;
{ /* ./Jvm/jld.scm 476 */
obj_t BgL_arg4283z00_1418;
{ /* ./Jvm/jld.scm 476 */
obj_t BgL_arg4286z00_1419;
BgL_arg4286z00_1419 = 
MAKE_PAIR(BGl_string5087z00zzjvm_ldz00, BNIL); 
BgL_arg4283z00_1418 = 
MAKE_PAIR(BgL_targetz00_27, BgL_arg4286z00_1419); } 
BgL_list4280z00_1416 = 
MAKE_PAIR(BGl_string5088z00zzjvm_ldz00, BgL_arg4283z00_1418); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list4280z00_1416); } 
{ /* ./Jvm/jld.scm 477 */
obj_t BgL_list4290z00_1420;
{ /* ./Jvm/jld.scm 477 */
obj_t BgL_auxz00_3276;
BgL_auxz00_3276 = 
BCHAR(((unsigned char)'\n')); 
BgL_list4290z00_1420 = 
MAKE_PAIR(BgL_auxz00_3276, BNIL); } 
BGl_verbosez00zztools_speekz00(
BINT(((long)1)), BgL_list4290z00_1420); } 
{ /* ./Jvm/jld.scm 479 */
bool_t BgL_test4292z00_1421;
{ /* ./Jvm/jld.scm 479 */
obj_t BgL_string1z00_2098;
BgL_string1z00_2098 = BGl_za2jvmzd2shellza2zd2zzengine_paramz00; 
BgL_test4292z00_1421 = 
bigloo_strcmp(BgL_string1z00_2098, BGl_string5113z00zzjvm_ldz00); } 
if(BgL_test4292z00_1421)
{ /* ./Jvm/jld.scm 479 */
return 
BGl_generatezd2jvmzd2shzd2scriptzd2zzjvm_ldz00(BgL_targetz00_27, BgL_mainzd2classzd2_28, BgL_za7ipsza7_30);}  else 
{ /* ./Jvm/jld.scm 481 */
bool_t BgL_test4294z00_1422;
{ /* ./Jvm/jld.scm 481 */
obj_t BgL_string1z00_2100;
BgL_string1z00_2100 = BGl_za2jvmzd2shellza2zd2zzengine_paramz00; 
BgL_test4294z00_1422 = 
bigloo_strcmp(BgL_string1z00_2100, BGl_string5093z00zzjvm_ldz00); } 
if(BgL_test4294z00_1422)
{ /* ./Jvm/jld.scm 481 */
return 
BGl_generatezd2jvmzd2msdoszd2scriptzd2zzjvm_ldz00(BgL_targetz00_27, BgL_mainzd2classzd2_28, BgL_jarnamez00_29, BgL_za7ipsza7_30);}  else 
{ /* ./Jvm/jld.scm 481 */
{ /* ./Jvm/jld.scm 484 */
obj_t BgL_list4297z00_1423;
{ /* ./Jvm/jld.scm 484 */
obj_t BgL_arg4300z00_1425;
{ /* ./Jvm/jld.scm 484 */
obj_t BgL_arg4304z00_1427;
{ /* ./Jvm/jld.scm 484 */
obj_t BgL_arg4307z00_1428;
BgL_arg4307z00_1428 = 
MAKE_PAIR(BGl_string5114z00zzjvm_ldz00, BNIL); 
BgL_arg4304z00_1427 = 
MAKE_PAIR(BGl_za2jvmzd2shellza2zd2zzengine_paramz00, BgL_arg4307z00_1428); } 
BgL_arg4300z00_1425 = 
MAKE_PAIR(BGl_string5115z00zzjvm_ldz00, BgL_arg4304z00_1427); } 
BgL_list4297z00_1423 = 
MAKE_PAIR(BGl_string5146z00zzjvm_ldz00, BgL_arg4300z00_1425); } 
BGl_warningz00zz__errorz00(BgL_list4297z00_1423); } 
return 
BGl_generatezd2jvmzd2shzd2scriptzd2zzjvm_ldz00(BgL_targetz00_27, BgL_mainzd2classzd2_28, BgL_za7ipsza7_30);} } } } 
}



/* user-library */
obj_t BGl_userzd2libraryzd2zzjvm_ldz00(obj_t BgL_libz00_31)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 491 */
{ 
obj_t BgL_libz00_1432;
{ /* ./Jvm/jld.scm 502 */
bool_t BgL_test4313z00_1430;
BgL_libz00_1432 = BgL_libz00_31; 
{ /* ./Jvm/jld.scm 493 */
int BgL_lenz00_1434;
BgL_lenz00_1434 = 
STRING_LENGTH(BgL_libz00_1432); 
{ 
long BgL_iz00_1435;
BgL_iz00_1435 = ((long)0); 
BgL_loopz00_1436:
{ /* ./Jvm/jld.scm 496 */
bool_t BgL_test4321z00_1437;
{ /* ./Jvm/jld.scm 496 */
long BgL_auxz00_3294;
BgL_auxz00_3294 = 
(long)(BgL_lenz00_1434); 
BgL_test4321z00_1437 = 
(BgL_iz00_1435==BgL_auxz00_3294); } 
if(BgL_test4321z00_1437)
{ /* ./Jvm/jld.scm 496 */
BgL_test4313z00_1430 = ((bool_t)0); }  else 
{ /* ./Jvm/jld.scm 498 */
bool_t BgL_test4322z00_1438;
{ /* ./Jvm/jld.scm 498 */
unsigned char BgL_arg4328z00_1440;obj_t BgL_arg4329z00_1441;
{ /* ./Jvm/jld.scm 498 */
int BgL_auxz00_3298;
BgL_auxz00_3298 = 
(int)(BgL_iz00_1435); 
BgL_arg4328z00_1440 = 
STRING_REF(BgL_libz00_1432, BgL_auxz00_3298); } 
BgL_arg4329z00_1441 = 
BGl_filezd2separatorzd2zz__osz00(); 
{ /* ./Jvm/jld.scm 498 */
unsigned char BgL_auxz00_3302;
BgL_auxz00_3302 = 
(unsigned char)CCHAR(BgL_arg4329z00_1441); 
BgL_test4322z00_1438 = 
(BgL_arg4328z00_1440==BgL_auxz00_3302); } } 
if(BgL_test4322z00_1438)
{ /* ./Jvm/jld.scm 498 */
BgL_test4313z00_1430 = ((bool_t)1); }  else 
{ /* ./Jvm/jld.scm 498 */
{ /* ./Jvm/jld.scm 501 */
long BgL_arg4324z00_1439;
BgL_arg4324z00_1439 = 
(BgL_iz00_1435+((long)1)); 
{ 
long BgL_iz00_3307;
BgL_iz00_3307 = BgL_arg4324z00_1439; 
BgL_iz00_1435 = BgL_iz00_3307; 
goto BgL_loopz00_1436;} } } } } } } 
if(BgL_test4313z00_1430)
{ /* ./Jvm/jld.scm 502 */
return BgL_libz00_31;}  else 
{ /* ./Jvm/jld.scm 504 */
obj_t BgL_arg4315z00_1431;
BgL_arg4315z00_1431 = 
BGl_jvmzd2bigloozd2classpathz00zzjvm_ldz00(); 
return 
BGl_makezd2filezd2namez00zz__osz00(BgL_arg4315z00_1431, BgL_libz00_31);} } } } 
}



/* list->path-string */
obj_t BGl_listzd2ze3pathzd2stringze3zzjvm_ldz00(obj_t BgL_pathz00_32, obj_t BgL_separatorz00_33)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 509 */
{ /* ./Jvm/jld.scm 510 */
obj_t BgL_rpathz00_1443;
BgL_rpathz00_1443 = 
bgl_reverse(BgL_pathz00_32); 
{ 
obj_t BgL_pathz00_1444;obj_t BgL_resz00_1445;
{ /* ./Jvm/jld.scm 511 */
obj_t BgL_arg4336z00_1447;obj_t BgL_arg4337z00_1448;
BgL_arg4336z00_1447 = 
CDR(BgL_rpathz00_1443); 
BgL_arg4337z00_1448 = 
CAR(BgL_rpathz00_1443); 
BgL_pathz00_1444 = BgL_arg4336z00_1447; 
BgL_resz00_1445 = BgL_arg4337z00_1448; 
BgL_loopz00_1446:
{ /* ./Jvm/jld.scm 513 */
bool_t BgL_test4341z00_1449;
BgL_test4341z00_1449 = 
NULLP(BgL_pathz00_1444); 
if(BgL_test4341z00_1449)
{ /* ./Jvm/jld.scm 513 */
return BgL_resz00_1445;}  else 
{ /* ./Jvm/jld.scm 515 */
obj_t BgL_arg4343z00_1450;obj_t BgL_arg4344z00_1451;
BgL_arg4343z00_1450 = 
CDR(BgL_pathz00_1444); 
{ /* ./Jvm/jld.scm 515 */
obj_t BgL_arg4348z00_1452;
BgL_arg4348z00_1452 = 
CAR(BgL_pathz00_1444); 
BgL_arg4344z00_1451 = 
string_append_3(BgL_arg4348z00_1452, BgL_separatorz00_33, BgL_resz00_1445); } 
{ 
obj_t BgL_resz00_3320;obj_t BgL_pathz00_3319;
BgL_pathz00_3319 = BgL_arg4343z00_1450; 
BgL_resz00_3320 = BgL_arg4344z00_1451; 
BgL_resz00_1445 = BgL_resz00_3320; 
BgL_pathz00_1444 = BgL_pathz00_3319; 
goto BgL_loopz00_1446;} } } } } } } 
}



/* list->sh-path-string */
obj_t BGl_listzd2ze3shzd2pathzd2stringz31zzjvm_ldz00(obj_t BgL_pathz00_34)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 520 */
{ /* ./Jvm/jld.scm 522 */
obj_t BgL_arg4354z00_1453;
{ /* ./Jvm/jld.scm 522 */
bool_t BgL_test4356z00_1454;
{ /* ./Jvm/jld.scm 522 */
obj_t BgL_objz00_2116;
BgL_objz00_2116 = BGl_za2jvmzd2pathzd2separatorza2z00zzengine_paramz00; 
BgL_test4356z00_1454 = 
STRINGP(BgL_objz00_2116); } 
if(BgL_test4356z00_1454)
{ /* ./Jvm/jld.scm 522 */
BgL_arg4354z00_1453 = BGl_za2jvmzd2pathzd2separatorza2z00zzengine_paramz00; }  else 
{ /* ./Jvm/jld.scm 522 */
BgL_arg4354z00_1453 = BGl_string5147z00zzjvm_ldz00; } } 
return 
BGl_listzd2ze3pathzd2stringze3zzjvm_ldz00(BgL_pathz00_34, BgL_arg4354z00_1453);} } 
}



/* list->msdos-path-string */
obj_t BGl_listzd2ze3msdoszd2pathzd2stringz31zzjvm_ldz00(obj_t BgL_pathz00_35)
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 529 */
{ /* ./Jvm/jld.scm 531 */
obj_t BgL_arg4359z00_1455;
{ /* ./Jvm/jld.scm 531 */
bool_t BgL_test4361z00_1456;
{ /* ./Jvm/jld.scm 531 */
obj_t BgL_objz00_2117;
BgL_objz00_2117 = BGl_za2jvmzd2pathzd2separatorza2z00zzengine_paramz00; 
BgL_test4361z00_1456 = 
STRINGP(BgL_objz00_2117); } 
if(BgL_test4361z00_1456)
{ /* ./Jvm/jld.scm 531 */
BgL_arg4359z00_1455 = BGl_za2jvmzd2pathzd2separatorza2z00zzengine_paramz00; }  else 
{ /* ./Jvm/jld.scm 531 */
BgL_arg4359z00_1455 = BGl_string5148z00zzjvm_ldz00; } } 
return 
BGl_listzd2ze3pathzd2stringze3zzjvm_ldz00(BgL_pathz00_35, BgL_arg4359z00_1455);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzjvm_ldz00()
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 16 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzjvm_ldz00()
{ AN_OBJECT;
{ /* ./Jvm/jld.scm 16 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zzengine_configurez00(((long)37635), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zzengine_linkz00(((long)202), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zzread_readerz00(((long)38783), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zzbackend_cplibz00(((long)26792), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zzread_jvmz00(((long)16338), "jvm_ld"); 
BGl_modulezd2initializa7ationz75zzobject_classz00(((long)30791), "jvm_ld"); 
return 
BGl_modulezd2initializa7ationz75zzobject_slotsz00(((long)44183), "jvm_ld");} 
}

