/*===========================================================================*/
/*   (Globalize/loc2glo.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 Globalize/loc2glo.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_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_sfunzf2ginfozf2_bgl {
   bool_t BgL_gzf3zf3;
   obj_t BgL_cfromz00;
   obj_t BgL_cfromza2za2;
   obj_t BgL_ctoz00;
   obj_t BgL_ctoza2za2;
   obj_t BgL_cfunctionz00;
   obj_t BgL_integratorz00;
   obj_t BgL_imarkz00;
   obj_t BgL_ownerz00;
   obj_t BgL_integratedz00;
   obj_t BgL_pluggedzd2inzd2;
   long BgL_markz00;
   obj_t BgL_freezd2markzd2;
   obj_t BgL_thezd2globalzd2;
   obj_t BgL_kapturedz00;
   obj_t BgL_newzd2bodyzd2;
   long BgL_bmarkz00;
   long BgL_umarkz00;
   obj_t BgL_freez00;
   obj_t BgL_boundz00;
} *BgL_sfunzf2ginfozf2_bglt;

typedef struct BgL_svarzf2ginfozf2_bgl {
   bool_t BgL_kapturedzf3zf3;
   long BgL_freezd2markzd2;
   long BgL_markz00;
   bool_t BgL_celledzf3zf3;
} *BgL_svarzf2ginfozf2_bglt;

typedef struct BgL_sexitzf2ginfozf2_bgl {
   bool_t BgL_gzf3zf3;
   bool_t BgL_kapturedzf3zf3;
   long BgL_freezd2markzd2;
   long BgL_markz00;
} *BgL_sexitzf2ginfozf2_bglt;

typedef struct BgL_localzf2ginfozf2_bgl {
   bool_t BgL_escapezf3zf3;
} *BgL_localzf2ginfozf2_bglt;

typedef struct BgL_globalzf2ginfozf2_bgl {
   bool_t BgL_escapezf3zf3;
   obj_t BgL_globalzd2closurezd2;
} *BgL_globalzf2ginfozf2_bglt;


static obj_t BGl_methodzd2initzd2zzglobaliza7e_localzd2ze3globalz96();
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern BgL_letzd2varzd2_bglt BGl_makezd2letzd2varz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, BgL_nodez00_bglt, bool_t);
extern obj_t BGl_findzd2globalzf2modulez20zzast_envz00(obj_t, obj_t);
extern obj_t BGl_wideningzd2sfunzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t, obj_t, long, long, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_EXPORTED_DECL BgL_globalz00_bglt BGl_localzd2ze3globalz31zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_bglt);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern BgL_nodez00_bglt BGl_sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t, obj_t, obj_t);
extern BgL_globalz00_bglt BGl_defzd2globalzd2sfunzd2nozd2warningz12z12zzast_glozd2defzd2(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_defaultzd2typezd2zzglobaliza7e_localzd2ze3globalz96();
extern obj_t BGl_thezd2closurezd2zzglobaliza7e_freeza7(BgL_variablez00_bglt, obj_t);
extern obj_t BGl_za2moduleza2z00zzmodule_modulez00;
extern BgL_letzd2funzd2_bglt BGl_makezd2letzd2funz00zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, obj_t, BgL_nodez00_bglt);
extern obj_t BGl_za2_za2z00zztype_cachez00;
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
extern obj_t BGl_globalz00zzast_varz00;
extern obj_t BGl_za2procedureza2z00zztype_cachez00;
static BgL_globalz00_bglt BGl_fixzd2escapingzd2definitionz00zzglobaliza7e_localzd2ze3globalz96(BgL_globalz00_bglt, BgL_localz00_bglt, obj_t, obj_t, obj_t);
extern obj_t BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7;
BGL_IMPORT obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
extern BgL_appz00_bglt BGl_makezd2appzd2zzast_nodez00(obj_t, BgL_typez00_bglt, obj_t, obj_t, BgL_varz00_bglt, obj_t);
static obj_t BGl_cnstzd2initzd2zzglobaliza7e_localzd2ze3globalz96();
static obj_t BGl__thezd2global4101zd2zzglobaliza7e_localzd2ze3globalz96(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_localzd2ze3globalz96();
static BgL_globalz00_bglt BGl_fixzd2nonzd2escapingzd2definitionzd2zzglobaliza7e_localzd2ze3globalz96(BgL_globalz00_bglt, BgL_localz00_bglt, obj_t, obj_t, obj_t);
extern obj_t BGl_zb2zd2arityz60zztools_argsz00(obj_t, obj_t);
extern obj_t BGl_globalzf2Ginfozf2zzglobaliza7e_ginfoza7;
extern obj_t BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7;
extern obj_t BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t, long, long, bool_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_localzd2ze3globalz96(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_argsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_localz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(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_symbols_6_4z00(long, char *);
extern BgL_nodez00_bglt BGl_nodezd2globaliza7ez12z67zzglobaliza7e_nodeza7(BgL_nodez00_bglt, BgL_variablez00_bglt, obj_t);
static obj_t BGl__localzd2ze3global4099z31zzglobaliza7e_localzd2ze3globalz96(obj_t, obj_t);
BGL_IMPORT long bgl_list_length(obj_t);
BGL_IMPORT obj_t bgl_reverse(obj_t);
extern obj_t BGl_za2optimza2z00zzengine_paramz00;
extern obj_t BGl_wideningzd2localzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t);
extern BgL_localz00_bglt BGl_makezd2localzd2svarz00zzast_localz00(obj_t, BgL_typez00_bglt);
extern obj_t BGl_wideningzd2globalzf2Ginfoz20zzglobaliza7e_ginfoza7(bool_t, obj_t);
BGL_IMPORT obj_t BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(obj_t);
extern BgL_varz00_bglt BGl_makezd2varzd2zzast_nodez00(obj_t, BgL_typez00_bglt, BgL_variablez00_bglt);
static BgL_nodez00_bglt BGl_makezd2escapingzd2bodyz00zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_bglt, BgL_globalz00_bglt, obj_t, obj_t, BgL_localz00_bglt, BgL_nodez00_bglt);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
extern obj_t BGl_za2objza2z00zztype_cachez00;
extern BgL_sfunz00_bglt BGl_makezd2sfunzd2zzast_varz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_globalz00_bglt BGl_thezd2globalzd2zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_bglt);
extern obj_t BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7;
static obj_t BGl_requirezd2initializa7ationz75zzglobaliza7e_localzd2ze3globalz96 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_localzd2ze3globalz96();
static obj_t __cnst[ 7 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_localzd2ze3globalzd2envze3zzglobaliza7e_localzd2ze3globalz96, BgL_bgl__localza7d2za7e3global4099za731za7za7globaliza7a7e_localza7d2za7e3globalza7964304za7, BGl__localzd2ze3global4099z31zzglobaliza7e_localzd2ze3globalz96, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_thezd2globalzd2envz00zzglobaliza7e_localzd2ze3globalz96, BgL_bgl__theza7d2global4101za7d2za7za7globaliza7a7e_localza7d2za7e3globalza7964305z00, BGl__thezd2global4101zd2zzglobaliza7e_localzd2ze3globalz96, 0L, 1 );
DEFINE_STRING( BGl_string4277z00zzglobaliza7e_localzd2ze3globalz96, BgL_bgl_string4277za700za7za7globaliza7a7e_localza7d2za7e3globalza7964306za7, "now sfun static _ value procedure-ref env ", 42 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_localzd2ze3globalz96(long BgL_checksumz00_1747, char * BgL_fromz00_1748)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzglobaliza7e_localzd2ze3globalz96))
{ 
BGl_requirezd2initializa7ationz75zzglobaliza7e_localzd2ze3globalz96 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzglobaliza7e_localzd2ze3globalz96(); 
BGl_cnstzd2initzd2zzglobaliza7e_localzd2ze3globalz96(); 
BGl_importedzd2moduleszd2initz00zzglobaliza7e_localzd2ze3globalz96(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_localzd2ze3globalz96()
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "globalize_local->global"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzglobaliza7e_localzd2ze3globalz96()
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 15 */
{ /* ./Globalize/loc2glo.scm 15 */
obj_t BgL_cportz00_1736;
BgL_cportz00_1736 = 
open_input_string(BGl_string4277z00zzglobaliza7e_localzd2ze3globalz96); 
{ 
long BgL_iz00_1737;
BgL_iz00_1737 = ((long)6); 
BgL_loopz00_1738:
{ /* ./Globalize/loc2glo.scm 15 */
bool_t BgL_test4279z00_1739;
BgL_test4279z00_1739 = 
(BgL_iz00_1737==((long)-1)); 
if(BgL_test4279z00_1739)
{ /* ./Globalize/loc2glo.scm 15 */
return BUNSPEC;}  else 
{ /* ./Globalize/loc2glo.scm 15 */
{ /* ./Globalize/loc2glo.scm 15 */
obj_t BgL_arg4281z00_1740;
{ /* ./Globalize/loc2glo.scm 15 */
obj_t BgL_list4284z00_1741;
BgL_list4284z00_1741 = 
MAKE_PAIR(BgL_cportz00_1736, BNIL); 
BgL_arg4281z00_1740 = 
BGl_readz00zz__readerz00(BgL_list4284z00_1741); } 
{ /* ./Globalize/loc2glo.scm 15 */
int BgL_auxz00_1764;
BgL_auxz00_1764 = 
(int)(BgL_iz00_1737); 
CNST_TABLE_SET(BgL_auxz00_1764, BgL_arg4281z00_1740); } } 
{ /* ./Globalize/loc2glo.scm 15 */
int BgL_auxz00_1742;
{ /* ./Globalize/loc2glo.scm 15 */
long BgL_auxz00_1767;
BgL_auxz00_1767 = 
(BgL_iz00_1737-((long)1)); 
BgL_auxz00_1742 = 
(int)(BgL_auxz00_1767); } 
{ 
long BgL_iz00_1770;
BgL_iz00_1770 = 
(long)(BgL_auxz00_1742); 
BgL_iz00_1737 = BgL_iz00_1770; 
goto BgL_loopz00_1738;} } } } } } } 
}



/* default-type */
obj_t BGl_defaultzd2typezd2zzglobaliza7e_localzd2ze3globalz96()
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 38 */
{ /* ./Globalize/loc2glo.scm 39 */
bool_t BgL_test3102z00_820;
{ /* ./Globalize/loc2glo.scm 39 */
long BgL_n1z00_1503;
BgL_n1z00_1503 = 
(long)CINT(BGl_za2optimza2z00zzengine_paramz00); 
BgL_test3102z00_820 = 
(BgL_n1z00_1503<((long)2)); } 
if(BgL_test3102z00_820)
{ /* ./Globalize/loc2glo.scm 39 */
return BGl_za2objza2z00zztype_cachez00;}  else 
{ /* ./Globalize/loc2glo.scm 39 */
return BGl_za2_za2z00zztype_cachez00;} } } 
}



/* local->global */
BGL_EXPORTED_DEF BgL_globalz00_bglt BGl_localzd2ze3globalz31zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_bglt BgL_localz00_1)
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 44 */
{ /* ./Globalize/loc2glo.scm 46 */
BgL_globalz00_bglt BgL_globalz00_821;
BgL_globalz00_821 = 
BGl_thezd2globalzd2zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_1); 
{ /* ./Globalize/loc2glo.scm 46 */
obj_t BgL_argsz00_822;
{ /* ./Globalize/loc2glo.scm 47 */
BgL_sfunz00_bglt BgL_obj1389z00_1506;
{ /* ./Globalize/loc2glo.scm 47 */
BgL_valuez00_bglt BgL_auxz00_1776;
{ /* ./Globalize/loc2glo.scm 47 */
BgL_variablez00_bglt BgL_obj1120z00_1505;
BgL_obj1120z00_1505 = 
(BgL_variablez00_bglt)(BgL_localz00_1); 
BgL_auxz00_1776 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1505))->BgL_valuez00); } 
BgL_obj1389z00_1506 = 
(BgL_sfunz00_bglt)(BgL_auxz00_1776); } 
BgL_argsz00_822 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1389z00_1506))->BgL_argsz00); } 
{ /* ./Globalize/loc2glo.scm 47 */
BgL_valuez00_bglt BgL_infoz00_823;
{ /* ./Globalize/loc2glo.scm 48 */
BgL_variablez00_bglt BgL_obj1120z00_1507;
BgL_obj1120z00_1507 = 
(BgL_variablez00_bglt)(BgL_localz00_1); 
BgL_infoz00_823 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1507))->BgL_valuez00); } 
{ /* ./Globalize/loc2glo.scm 48 */
obj_t BgL_newzd2bodyzd2_824;
{ /* ./Globalize/loc2glo.scm 49 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2802z00_1508;
BgL_obj2802z00_1508 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_823); 
{ 
obj_t BgL_auxz00_1784;
{ /* ./Globalize/loc2glo.scm 49 */
BgL_objectz00_bglt BgL_auxz00_1785;
BgL_auxz00_1785 = 
(BgL_objectz00_bglt)(BgL_obj2802z00_1508); 
BgL_auxz00_1784 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1785); } 
BgL_newzd2bodyzd2_824 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_1784))->BgL_newzd2bodyzd2); } } 
{ /* ./Globalize/loc2glo.scm 49 */
obj_t BgL_kapturedz00_825;
{ /* ./Globalize/loc2glo.scm 50 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2799z00_1509;
BgL_obj2799z00_1509 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_823); 
{ 
obj_t BgL_auxz00_1790;
{ /* ./Globalize/loc2glo.scm 50 */
BgL_objectz00_bglt BgL_auxz00_1791;
BgL_auxz00_1791 = 
(BgL_objectz00_bglt)(BgL_obj2799z00_1509); 
BgL_auxz00_1790 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1791); } 
BgL_kapturedz00_825 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_1790))->BgL_kapturedz00); } } 
{ /* ./Globalize/loc2glo.scm 50 */

{ /* ./Globalize/loc2glo.scm 51 */
bool_t BgL_test3104z00_826;
{ /* ./Globalize/loc2glo.scm 51 */
BgL_localzf2ginfozf2_bglt BgL_obj2940z00_1510;
BgL_obj2940z00_1510 = 
(BgL_localzf2ginfozf2_bglt)(BgL_localz00_1); 
{ 
obj_t BgL_auxz00_1796;
{ /* ./Globalize/loc2glo.scm 51 */
BgL_objectz00_bglt BgL_auxz00_1797;
BgL_auxz00_1797 = 
(BgL_objectz00_bglt)(BgL_obj2940z00_1510); 
BgL_auxz00_1796 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1797); } 
BgL_test3104z00_826 = 
(((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_1796))->BgL_escapezf3zf3); } } 
if(BgL_test3104z00_826)
{ /* ./Globalize/loc2glo.scm 51 */
BGl_fixzd2escapingzd2definitionz00zzglobaliza7e_localzd2ze3globalz96(BgL_globalz00_821, BgL_localz00_1, BgL_argsz00_822, BgL_kapturedz00_825, BgL_newzd2bodyzd2_824); }  else 
{ /* ./Globalize/loc2glo.scm 51 */
BGl_fixzd2nonzd2escapingzd2definitionzd2zzglobaliza7e_localzd2ze3globalz96(BgL_globalz00_821, BgL_localz00_1, BgL_argsz00_822, BgL_kapturedz00_825, BgL_newzd2bodyzd2_824); } } 
return BgL_globalz00_821;} } } } } } } 
}



/* _local->global4099 */
obj_t BGl__localzd2ze3global4099z31zzglobaliza7e_localzd2ze3globalz96(obj_t BgL_envz00_1732, obj_t BgL_localz00_1733)
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 44 */
{ /* ./Globalize/loc2glo.scm 45 */
BgL_globalz00_bglt BgL_auxz00_1804;
BgL_auxz00_1804 = 
BGl_localzd2ze3globalz31zzglobaliza7e_localzd2ze3globalz96(
(BgL_localz00_bglt)(BgL_localz00_1733)); 
return 
(obj_t)(BgL_auxz00_1804);} } 
}



/* fix-escaping-definition */
BgL_globalz00_bglt BGl_fixzd2escapingzd2definitionz00zzglobaliza7e_localzd2ze3globalz96(BgL_globalz00_bglt BgL_globalz00_2, BgL_localz00_bglt BgL_localz00_3, obj_t BgL_argsz00_4, obj_t BgL_kapturedz00_5, obj_t BgL_bodyz00_6)
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 60 */
{ /* ./Globalize/loc2glo.scm 61 */
BgL_localz00_bglt BgL_envz00_828;
BgL_envz00_828 = 
BGl_makezd2localzd2svarz00zzast_localz00(
CNST_TABLE_REF(((long)0)), 
(BgL_typez00_bglt)(BGl_za2procedureza2z00zztype_cachez00)); 
{ /* ./Globalize/loc2glo.scm 61 */
obj_t BgL_newzd2freezd2_829;
{ /* ./Globalize/loc2glo.scm 62 */
bool_t BgL_test3304z00_922;
BgL_test3304z00_922 = 
NULLP(BgL_kapturedz00_5); 
if(BgL_test3304z00_922)
{ /* ./Globalize/loc2glo.scm 62 */
BgL_newzd2freezd2_829 = BNIL; }  else 
{ /* ./Globalize/loc2glo.scm 62 */
obj_t BgL_head3052z00_923;
BgL_head3052z00_923 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3050z00_924;obj_t BgL_tail3053z00_925;
BgL_l3050z00_924 = BgL_kapturedz00_5; 
BgL_tail3053z00_925 = BgL_head3052z00_923; 
BgL_map3051z00_926:
{ /* ./Globalize/loc2glo.scm 62 */
bool_t BgL_test3306z00_927;
BgL_test3306z00_927 = 
NULLP(BgL_l3050z00_924); 
if(BgL_test3306z00_927)
{ /* ./Globalize/loc2glo.scm 62 */
BgL_newzd2freezd2_829 = 
CDR(BgL_head3052z00_923); }  else 
{ /* ./Globalize/loc2glo.scm 63 */
obj_t BgL_newtail3054z00_928;
{ /* ./Globalize/loc2glo.scm 63 */
BgL_localz00_bglt BgL_arg3314z00_930;
{ /* ./Globalize/loc2glo.scm 63 */
obj_t BgL_oldz00_932;
BgL_oldz00_932 = 
CAR(BgL_l3050z00_924); 
{ /* ./Globalize/loc2glo.scm 63 */
BgL_localz00_bglt BgL_newz00_933;
{ /* ./Globalize/loc2glo.scm 63 */
obj_t BgL_arg3350z00_945;obj_t BgL_arg3351z00_946;
{ /* ./Globalize/loc2glo.scm 63 */
BgL_variablez00_bglt BgL_obj1113z00_1517;
BgL_obj1113z00_1517 = 
(BgL_variablez00_bglt)(BgL_oldz00_932); 
BgL_arg3350z00_945 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1113z00_1517))->BgL_idz00); } 
BgL_arg3351z00_946 = 
BGl_defaultzd2typezd2zzglobaliza7e_localzd2ze3globalz96(); 
BgL_newz00_933 = 
BGl_makezd2localzd2svarz00zzast_localz00(BgL_arg3350z00_945, 
(BgL_typez00_bglt)(BgL_arg3351z00_946)); } 
{ /* ./Globalize/loc2glo.scm 65 */
bool_t BgL_arg3319z00_934;
{ /* ./Globalize/loc2glo.scm 65 */
BgL_localz00_bglt BgL_obj1284z00_1518;
BgL_obj1284z00_1518 = 
(BgL_localz00_bglt)(BgL_oldz00_932); 
BgL_arg3319z00_934 = 
(((BgL_localz00_bglt)CREF(BgL_obj1284z00_1518))->BgL_userzf3zf3); } 
{ /* ./Globalize/loc2glo.scm 65 */
BgL_localz00_bglt BgL_obj1286z00_1519;bool_t BgL_val1285z00_1520;
BgL_obj1286z00_1519 = BgL_newz00_933; 
BgL_val1285z00_1520 = BgL_arg3319z00_934; 
((((BgL_localz00_bglt)CREF(BgL_obj1286z00_1519))->BgL_userzf3zf3) = ((bool_t)BgL_val1285z00_1520), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 66 */
BgL_localz00_bglt BgL_obj3055z00_935;
BgL_obj3055z00_935 = 
((BgL_localz00_bglt)BgL_newz00_933); 
{ /* ./Globalize/loc2glo.scm 66 */
obj_t BgL_arg3323z00_936;
BgL_arg3323z00_936 = 
BGl_wideningzd2localzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0)); 
{ /* ./Globalize/loc2glo.scm 66 */
BgL_objectz00_bglt BgL_auxz00_1828;
BgL_auxz00_1828 = 
(BgL_objectz00_bglt)(BgL_obj3055z00_935); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1828, BgL_arg3323z00_936); } } 
{ /* ./Globalize/loc2glo.scm 66 */
long BgL_arg3327z00_937;
BgL_arg3327z00_937 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/loc2glo.scm 66 */
BgL_objectz00_bglt BgL_objz00_1521;
BgL_objz00_1521 = 
(BgL_objectz00_bglt)(BgL_obj3055z00_935); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1521, BgL_arg3327z00_937); } } 
{ /* ./Globalize/loc2glo.scm 66 */
obj_t BgL_objz00_1523;
BgL_objz00_1523 = 
(obj_t)(BgL_obj3055z00_935); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1523); BUNSPEC; } BgL_obj3055z00_935; } 
{ /* ./Globalize/loc2glo.scm 67 */
BgL_svarz00_bglt BgL_obj3056z00_938;
{ 
BgL_svarz00_bglt BgL_auxz00_1836;
{ /* ./Globalize/loc2glo.scm 67 */
BgL_valuez00_bglt BgL_auxz00_1837;
{ /* ./Globalize/loc2glo.scm 67 */
BgL_variablez00_bglt BgL_obj1120z00_1743;
BgL_obj1120z00_1743 = 
(BgL_variablez00_bglt)(BgL_newz00_933); 
BgL_auxz00_1837 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1743))->BgL_valuez00); } 
BgL_auxz00_1836 = 
(BgL_svarz00_bglt)(BgL_auxz00_1837); } 
BgL_obj3056z00_938 = 
((BgL_svarz00_bglt)BgL_auxz00_1836); } 
{ /* ./Globalize/loc2glo.scm 68 */
obj_t BgL_arg3332z00_939;
{ /* ./Globalize/loc2glo.scm 68 */
bool_t BgL_arg3335z00_940;
BgL_arg3335z00_940 = ((bool_t)1); 
BgL_arg3332z00_939 = 
BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(BgL_arg3335z00_940, ((long)-10), ((long)-10), ((bool_t)0)); } 
{ /* ./Globalize/loc2glo.scm 67 */
BgL_objectz00_bglt BgL_auxz00_1843;
BgL_auxz00_1843 = 
(BgL_objectz00_bglt)(BgL_obj3056z00_938); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1843, BgL_arg3332z00_939); } } 
{ /* ./Globalize/loc2glo.scm 67 */
long BgL_arg3340z00_943;
BgL_arg3340z00_943 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/loc2glo.scm 67 */
BgL_objectz00_bglt BgL_objz00_1525;
BgL_objz00_1525 = 
(BgL_objectz00_bglt)(BgL_obj3056z00_938); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1525, BgL_arg3340z00_943); } } 
{ /* ./Globalize/loc2glo.scm 67 */
obj_t BgL_objz00_1527;
BgL_objz00_1527 = 
(obj_t)(BgL_obj3056z00_938); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1527); BUNSPEC; } BgL_obj3056z00_938; } 
{ /* ./Globalize/loc2glo.scm 69 */
obj_t BgL_arg3346z00_944;
{ /* ./Globalize/loc2glo.scm 69 */
BgL_variablez00_bglt BgL_obj1123z00_1528;
BgL_obj1123z00_1528 = 
(BgL_variablez00_bglt)(BgL_oldz00_932); 
BgL_arg3346z00_944 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1123z00_1528))->BgL_accessz00); } 
{ /* ./Globalize/loc2glo.scm 69 */
BgL_variablez00_bglt BgL_obj1125z00_1529;obj_t BgL_val1124z00_1530;
BgL_obj1125z00_1529 = 
(BgL_variablez00_bglt)(BgL_newz00_933); 
BgL_val1124z00_1530 = BgL_arg3346z00_944; 
((((BgL_variablez00_bglt)CREF(BgL_obj1125z00_1529))->BgL_accessz00) = ((obj_t)BgL_val1124z00_1530), BUNSPEC); } } 
BgL_arg3314z00_930 = BgL_newz00_933; } } 
{ /* ./Globalize/loc2glo.scm 62 */
obj_t BgL_obj1z00_1531;
BgL_obj1z00_1531 = 
(obj_t)(BgL_arg3314z00_930); 
BgL_newtail3054z00_928 = 
MAKE_PAIR(BgL_obj1z00_1531, BNIL); } } 
SET_CDR(BgL_tail3053z00_925, BgL_newtail3054z00_928); 
{ /* ./Globalize/loc2glo.scm 62 */
obj_t BgL_arg3310z00_929;
BgL_arg3310z00_929 = 
CDR(BgL_l3050z00_924); 
{ 
obj_t BgL_tail3053z00_1860;obj_t BgL_l3050z00_1859;
BgL_l3050z00_1859 = BgL_arg3310z00_929; 
BgL_tail3053z00_1860 = BgL_newtail3054z00_928; 
BgL_tail3053z00_925 = BgL_tail3053z00_1860; 
BgL_l3050z00_924 = BgL_l3050z00_1859; 
goto BgL_map3051z00_926;} } } } } } } 
{ /* ./Globalize/loc2glo.scm 62 */
obj_t BgL_newzd2argszd2_830;
{ /* ./Globalize/loc2glo.scm 72 */
bool_t BgL_test3245z00_895;
BgL_test3245z00_895 = 
NULLP(BgL_argsz00_4); 
if(BgL_test3245z00_895)
{ /* ./Globalize/loc2glo.scm 72 */
BgL_newzd2argszd2_830 = BNIL; }  else 
{ /* ./Globalize/loc2glo.scm 72 */
obj_t BgL_head3059z00_896;
BgL_head3059z00_896 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3057z00_897;obj_t BgL_tail3060z00_898;
BgL_l3057z00_897 = BgL_argsz00_4; 
BgL_tail3060z00_898 = BgL_head3059z00_896; 
BgL_map3058z00_899:
{ /* ./Globalize/loc2glo.scm 72 */
bool_t BgL_test3247z00_900;
BgL_test3247z00_900 = 
NULLP(BgL_l3057z00_897); 
if(BgL_test3247z00_900)
{ /* ./Globalize/loc2glo.scm 72 */
BgL_newzd2argszd2_830 = 
CDR(BgL_head3059z00_896); }  else 
{ /* ./Globalize/loc2glo.scm 73 */
obj_t BgL_newtail3061z00_901;
{ /* ./Globalize/loc2glo.scm 73 */
BgL_localz00_bglt BgL_arg3255z00_903;
{ /* ./Globalize/loc2glo.scm 73 */
obj_t BgL_oldz00_905;
BgL_oldz00_905 = 
CAR(BgL_l3057z00_897); 
{ /* ./Globalize/loc2glo.scm 73 */
BgL_localz00_bglt BgL_newz00_906;
{ /* ./Globalize/loc2glo.scm 73 */
obj_t BgL_arg3295z00_919;obj_t BgL_arg3296z00_920;
{ /* ./Globalize/loc2glo.scm 73 */
BgL_variablez00_bglt BgL_obj1113z00_1542;
BgL_obj1113z00_1542 = 
(BgL_variablez00_bglt)(BgL_oldz00_905); 
BgL_arg3295z00_919 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1113z00_1542))->BgL_idz00); } 
BgL_arg3296z00_920 = 
BGl_defaultzd2typezd2zzglobaliza7e_localzd2ze3globalz96(); 
BgL_newz00_906 = 
BGl_makezd2localzd2svarz00zzast_localz00(BgL_arg3295z00_919, 
(BgL_typez00_bglt)(BgL_arg3296z00_920)); } 
{ /* ./Globalize/loc2glo.scm 75 */
bool_t BgL_arg3260z00_907;
{ /* ./Globalize/loc2glo.scm 75 */
BgL_localz00_bglt BgL_obj1284z00_1543;
BgL_obj1284z00_1543 = 
(BgL_localz00_bglt)(BgL_oldz00_905); 
BgL_arg3260z00_907 = 
(((BgL_localz00_bglt)CREF(BgL_obj1284z00_1543))->BgL_userzf3zf3); } 
{ /* ./Globalize/loc2glo.scm 75 */
BgL_localz00_bglt BgL_obj1286z00_1544;bool_t BgL_val1285z00_1545;
BgL_obj1286z00_1544 = BgL_newz00_906; 
BgL_val1285z00_1545 = BgL_arg3260z00_907; 
((((BgL_localz00_bglt)CREF(BgL_obj1286z00_1544))->BgL_userzf3zf3) = ((bool_t)BgL_val1285z00_1545), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 76 */
BgL_localz00_bglt BgL_obj3062z00_908;
BgL_obj3062z00_908 = 
((BgL_localz00_bglt)BgL_newz00_906); 
{ /* ./Globalize/loc2glo.scm 76 */
obj_t BgL_arg3264z00_909;
BgL_arg3264z00_909 = 
BGl_wideningzd2localzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0)); 
{ /* ./Globalize/loc2glo.scm 76 */
BgL_objectz00_bglt BgL_auxz00_1878;
BgL_auxz00_1878 = 
(BgL_objectz00_bglt)(BgL_obj3062z00_908); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1878, BgL_arg3264z00_909); } } 
{ /* ./Globalize/loc2glo.scm 76 */
long BgL_arg3268z00_910;
BgL_arg3268z00_910 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/loc2glo.scm 76 */
BgL_objectz00_bglt BgL_objz00_1546;
BgL_objz00_1546 = 
(BgL_objectz00_bglt)(BgL_obj3062z00_908); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1546, BgL_arg3268z00_910); } } 
{ /* ./Globalize/loc2glo.scm 76 */
obj_t BgL_objz00_1548;
BgL_objz00_1548 = 
(obj_t)(BgL_obj3062z00_908); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1548); BUNSPEC; } BgL_obj3062z00_908; } 
{ /* ./Globalize/loc2glo.scm 77 */
BgL_svarz00_bglt BgL_obj3063z00_911;
{ 
BgL_svarz00_bglt BgL_auxz00_1886;
{ /* ./Globalize/loc2glo.scm 77 */
BgL_valuez00_bglt BgL_auxz00_1887;
{ /* ./Globalize/loc2glo.scm 77 */
BgL_variablez00_bglt BgL_obj1120z00_1744;
BgL_obj1120z00_1744 = 
(BgL_variablez00_bglt)(BgL_newz00_906); 
BgL_auxz00_1887 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1744))->BgL_valuez00); } 
BgL_auxz00_1886 = 
(BgL_svarz00_bglt)(BgL_auxz00_1887); } 
BgL_obj3063z00_911 = 
((BgL_svarz00_bglt)BgL_auxz00_1886); } 
{ /* ./Globalize/loc2glo.scm 79 */
obj_t BgL_arg3273z00_912;
{ /* ./Globalize/loc2glo.scm 79 */
bool_t BgL_arg3276z00_913;
{ /* ./Globalize/loc2glo.scm 78 */
BgL_svarzf2ginfozf2_bglt BgL_obj2871z00_1551;
{ /* ./Globalize/loc2glo.scm 79 */
BgL_valuez00_bglt BgL_auxz00_1892;
{ /* ./Globalize/loc2glo.scm 79 */
BgL_variablez00_bglt BgL_obj1120z00_1550;
BgL_obj1120z00_1550 = 
(BgL_variablez00_bglt)(BgL_oldz00_905); 
BgL_auxz00_1892 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1550))->BgL_valuez00); } 
BgL_obj2871z00_1551 = 
(BgL_svarzf2ginfozf2_bglt)(BgL_auxz00_1892); } 
{ 
obj_t BgL_auxz00_1896;
{ /* ./Globalize/loc2glo.scm 78 */
BgL_objectz00_bglt BgL_auxz00_1897;
BgL_auxz00_1897 = 
(BgL_objectz00_bglt)(BgL_obj2871z00_1551); 
BgL_auxz00_1896 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1897); } 
BgL_arg3276z00_913 = 
(((BgL_svarzf2ginfozf2_bglt)CREF(BgL_auxz00_1896))->BgL_kapturedzf3zf3); } } 
BgL_arg3273z00_912 = 
BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(BgL_arg3276z00_913, ((long)-10), ((long)-10), ((bool_t)0)); } 
{ /* ./Globalize/loc2glo.scm 77 */
BgL_objectz00_bglt BgL_auxz00_1902;
BgL_auxz00_1902 = 
(BgL_objectz00_bglt)(BgL_obj3063z00_911); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1902, BgL_arg3273z00_912); } } 
{ /* ./Globalize/loc2glo.scm 77 */
long BgL_arg3285z00_917;
BgL_arg3285z00_917 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/loc2glo.scm 77 */
BgL_objectz00_bglt BgL_objz00_1552;
BgL_objz00_1552 = 
(BgL_objectz00_bglt)(BgL_obj3063z00_911); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1552, BgL_arg3285z00_917); } } 
{ /* ./Globalize/loc2glo.scm 77 */
obj_t BgL_objz00_1554;
BgL_objz00_1554 = 
(obj_t)(BgL_obj3063z00_911); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1554); BUNSPEC; } BgL_obj3063z00_911; } 
{ /* ./Globalize/loc2glo.scm 80 */
obj_t BgL_arg3291z00_918;
{ /* ./Globalize/loc2glo.scm 80 */
BgL_variablez00_bglt BgL_obj1123z00_1555;
BgL_obj1123z00_1555 = 
(BgL_variablez00_bglt)(BgL_oldz00_905); 
BgL_arg3291z00_918 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1123z00_1555))->BgL_accessz00); } 
{ /* ./Globalize/loc2glo.scm 80 */
BgL_variablez00_bglt BgL_obj1125z00_1556;obj_t BgL_val1124z00_1557;
BgL_obj1125z00_1556 = 
(BgL_variablez00_bglt)(BgL_newz00_906); 
BgL_val1124z00_1557 = BgL_arg3291z00_918; 
((((BgL_variablez00_bglt)CREF(BgL_obj1125z00_1556))->BgL_accessz00) = ((obj_t)BgL_val1124z00_1557), BUNSPEC); } } 
BgL_arg3255z00_903 = BgL_newz00_906; } } 
{ /* ./Globalize/loc2glo.scm 72 */
obj_t BgL_obj1z00_1558;
BgL_obj1z00_1558 = 
(obj_t)(BgL_arg3255z00_903); 
BgL_newtail3061z00_901 = 
MAKE_PAIR(BgL_obj1z00_1558, BNIL); } } 
SET_CDR(BgL_tail3060z00_898, BgL_newtail3061z00_901); 
{ /* ./Globalize/loc2glo.scm 72 */
obj_t BgL_arg3251z00_902;
BgL_arg3251z00_902 = 
CDR(BgL_l3057z00_897); 
{ 
obj_t BgL_tail3060z00_1919;obj_t BgL_l3057z00_1918;
BgL_l3057z00_1918 = BgL_arg3251z00_902; 
BgL_tail3060z00_1919 = BgL_newtail3061z00_901; 
BgL_tail3060z00_898 = BgL_tail3060z00_1919; 
BgL_l3057z00_897 = BgL_l3057z00_1918; 
goto BgL_map3058z00_899;} } } } } } } 
{ /* ./Globalize/loc2glo.scm 72 */
BgL_valuez00_bglt BgL_oldzd2funzd2_831;
{ /* ./Globalize/loc2glo.scm 83 */
BgL_variablez00_bglt BgL_obj1120z00_1563;
BgL_obj1120z00_1563 = 
(BgL_variablez00_bglt)(BgL_localz00_3); 
BgL_oldzd2funzd2_831 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1563))->BgL_valuez00); } 
{ /* ./Globalize/loc2glo.scm 83 */
BgL_sfunz00_bglt BgL_newzd2funzd2_832;
{ /* ./Globalize/loc2glo.scm 84 */
BgL_sfunz00_bglt BgL_duplicated3064z00_877;
BgL_duplicated3064z00_877 = 
(BgL_sfunz00_bglt)(BgL_oldzd2funzd2_831); 
{ /* ./Globalize/loc2glo.scm 85 */
BgL_sfunz00_bglt BgL_new3065z00_878;
{ /* ./Globalize/loc2glo.scm 85 */
obj_t BgL_arg3213z00_879;obj_t BgL_arg3214z00_880;obj_t BgL_arg3215z00_881;obj_t BgL_arg3216z00_882;bool_t BgL_arg3217z00_883;obj_t BgL_arg3218z00_884;obj_t BgL_arg3219z00_885;obj_t BgL_arg3220z00_886;obj_t BgL_arg3221z00_887;obj_t BgL_arg3222z00_888;obj_t BgL_arg3223z00_889;obj_t BgL_arg3224z00_890;obj_t BgL_arg3225z00_891;
{ /* ./Globalize/loc2glo.scm 85 */
long BgL_arg3228z00_892;
{ /* ./Globalize/loc2glo.scm 85 */
BgL_funz00_bglt BgL_obj1323z00_1564;
BgL_obj1323z00_1564 = 
(BgL_funz00_bglt)(BgL_oldzd2funzd2_831); 
BgL_arg3228z00_892 = 
(((BgL_funz00_bglt)CREF(BgL_obj1323z00_1564))->BgL_arityz00); } 
BgL_arg3213z00_879 = 
BGl_zb2zd2arityz60zztools_argsz00(
BINT(BgL_arg3228z00_892), 
BINT(((long)1))); } 
{ /* ./Globalize/loc2glo.scm 84 */
BgL_funz00_bglt BgL_obj1324z00_1565;
BgL_obj1324z00_1565 = 
(BgL_funz00_bglt)(BgL_duplicated3064z00_877); 
BgL_arg3214z00_880 = 
(((BgL_funz00_bglt)CREF(BgL_obj1324z00_1565))->BgL_sidezd2effectzf3z21); } 
{ /* ./Globalize/loc2glo.scm 84 */
BgL_funz00_bglt BgL_obj1327z00_1566;
BgL_obj1327z00_1566 = 
(BgL_funz00_bglt)(BgL_duplicated3064z00_877); 
BgL_arg3215z00_881 = 
(((BgL_funz00_bglt)CREF(BgL_obj1327z00_1566))->BgL_predicatezd2ofzd2); } 
{ /* ./Globalize/loc2glo.scm 84 */
BgL_funz00_bglt BgL_obj1330z00_1567;
BgL_obj1330z00_1567 = 
(BgL_funz00_bglt)(BgL_duplicated3064z00_877); 
BgL_arg3216z00_882 = 
(((BgL_funz00_bglt)CREF(BgL_obj1330z00_1567))->BgL_stackzd2allocatorzd2); } 
{ /* ./Globalize/loc2glo.scm 84 */
BgL_funz00_bglt BgL_obj1333z00_1568;
BgL_obj1333z00_1568 = 
(BgL_funz00_bglt)(BgL_duplicated3064z00_877); 
BgL_arg3217z00_883 = 
(((BgL_funz00_bglt)CREF(BgL_obj1333z00_1568))->BgL_topzf3zf3); } 
{ /* ./Globalize/loc2glo.scm 84 */
BgL_funz00_bglt BgL_obj1336z00_1569;
BgL_obj1336z00_1569 = 
(BgL_funz00_bglt)(BgL_duplicated3064z00_877); 
BgL_arg3218z00_884 = 
(((BgL_funz00_bglt)CREF(BgL_obj1336z00_1569))->BgL_thezd2closurezd2); } 
{ /* ./Globalize/loc2glo.scm 84 */
BgL_funz00_bglt BgL_obj1339z00_1570;
BgL_obj1339z00_1570 = 
(BgL_funz00_bglt)(BgL_duplicated3064z00_877); 
BgL_arg3219z00_885 = 
(((BgL_funz00_bglt)CREF(BgL_obj1339z00_1570))->BgL_effectz00); } 
BgL_arg3220z00_886 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated3064z00_877))->BgL_propertyz00); 
{ /* ./Globalize/loc2glo.scm 86 */
obj_t BgL_auxz00_1941;
BgL_auxz00_1941 = 
(obj_t)(BgL_envz00_828); 
BgL_arg3221z00_887 = 
MAKE_PAIR(BgL_auxz00_1941, BgL_newzd2argszd2_830); } 
BgL_arg3222z00_888 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated3064z00_877))->BgL_bodyz00); 
BgL_arg3223z00_889 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated3064z00_877))->BgL_classz00); 
BgL_arg3224z00_890 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated3064z00_877))->BgL_dssslzd2keywordszd2); 
BgL_arg3225z00_891 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated3064z00_877))->BgL_locz00); 
BgL_new3065z00_878 = 
BGl_makezd2sfunzd2zzast_varz00(
(long)CINT(BgL_arg3213z00_879), BgL_arg3214z00_880, BgL_arg3215z00_881, BgL_arg3216z00_882, BgL_arg3217z00_883, BgL_arg3218z00_884, BgL_arg3219z00_885, BgL_arg3220z00_886, BgL_arg3221z00_887, BgL_arg3222z00_888, BgL_arg3223z00_889, BgL_arg3224z00_890, BgL_arg3225z00_891); } 
{ /* ./Globalize/loc2glo.scm 84 */

BgL_newzd2funzd2_832 = BgL_new3065z00_878; } } } 
{ /* ./Globalize/loc2glo.scm 84 */

{ /* ./Globalize/loc2glo.scm 88 */
BgL_globalzf2ginfozf2_bglt BgL_obj2998z00_1576;bool_t BgL_val2997z00_1577;
BgL_obj2998z00_1576 = 
(BgL_globalzf2ginfozf2_bglt)(BgL_globalz00_2); 
BgL_val2997z00_1577 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_1951;
{ /* ./Globalize/loc2glo.scm 88 */
BgL_objectz00_bglt BgL_auxz00_1952;
BgL_auxz00_1952 = 
(BgL_objectz00_bglt)(BgL_obj2998z00_1576); 
BgL_auxz00_1951 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1952); } 
((((BgL_globalzf2ginfozf2_bglt)CREF(BgL_auxz00_1951))->BgL_escapezf3zf3) = ((bool_t)BgL_val2997z00_1577), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 89 */
BgL_sfunz00_bglt BgL_obj3066z00_833;
BgL_obj3066z00_833 = 
((BgL_sfunz00_bglt)BgL_newzd2funzd2_832); 
{ /* ./Globalize/loc2glo.scm 89 */
obj_t BgL_arg3118z00_834;
BgL_arg3118z00_834 = 
BGl_wideningzd2sfunzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0), BNIL, BFALSE, BNIL, BFALSE, BNIL, BUNSPEC, 
BINT(((long)-1)), BFALSE, BNIL, BNIL, ((long)-10), BNIL, BFALSE, BFALSE, BFALSE, ((long)-10), ((long)-10), BUNSPEC, BNIL); 
{ /* ./Globalize/loc2glo.scm 89 */
BgL_objectz00_bglt BgL_auxz00_1959;
BgL_auxz00_1959 = 
(BgL_objectz00_bglt)(BgL_obj3066z00_833); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1959, BgL_arg3118z00_834); } } 
{ /* ./Globalize/loc2glo.scm 89 */
long BgL_arg3122z00_835;
BgL_arg3122z00_835 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/loc2glo.scm 89 */
BgL_objectz00_bglt BgL_objz00_1578;
BgL_objz00_1578 = 
(BgL_objectz00_bglt)(BgL_obj3066z00_833); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1578, BgL_arg3122z00_835); } } 
{ /* ./Globalize/loc2glo.scm 89 */
obj_t BgL_objz00_1580;
BgL_objz00_1580 = 
(obj_t)(BgL_obj3066z00_833); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1580); BUNSPEC; } BgL_obj3066z00_833; } 
{ /* ./Globalize/loc2glo.scm 91 */
BgL_svarz00_bglt BgL_obj3067z00_836;
{ 
BgL_svarz00_bglt BgL_auxz00_1967;
{ /* ./Globalize/loc2glo.scm 91 */
BgL_valuez00_bglt BgL_auxz00_1968;
{ /* ./Globalize/loc2glo.scm 91 */
BgL_variablez00_bglt BgL_obj1120z00_1745;
BgL_obj1120z00_1745 = 
(BgL_variablez00_bglt)(BgL_envz00_828); 
BgL_auxz00_1968 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1745))->BgL_valuez00); } 
BgL_auxz00_1967 = 
(BgL_svarz00_bglt)(BgL_auxz00_1968); } 
BgL_obj3067z00_836 = 
((BgL_svarz00_bglt)BgL_auxz00_1967); } 
{ /* ./Globalize/loc2glo.scm 91 */
obj_t BgL_arg3128z00_837;
{ /* ./Globalize/loc2glo.scm 91 */
bool_t BgL_arg3131z00_838;
BgL_arg3131z00_838 = ((bool_t)0); 
BgL_arg3128z00_837 = 
BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(BgL_arg3131z00_838, ((long)-10), ((long)-10), ((bool_t)0)); } 
{ /* ./Globalize/loc2glo.scm 91 */
BgL_objectz00_bglt BgL_auxz00_1974;
BgL_auxz00_1974 = 
(BgL_objectz00_bglt)(BgL_obj3067z00_836); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_1974, BgL_arg3128z00_837); } } 
{ /* ./Globalize/loc2glo.scm 91 */
long BgL_arg3136z00_841;
BgL_arg3136z00_841 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/loc2glo.scm 91 */
BgL_objectz00_bglt BgL_objz00_1582;
BgL_objz00_1582 = 
(BgL_objectz00_bglt)(BgL_obj3067z00_836); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1582, BgL_arg3136z00_841); } } 
{ /* ./Globalize/loc2glo.scm 91 */
obj_t BgL_objz00_1584;
BgL_objz00_1584 = 
(obj_t)(BgL_obj3067z00_836); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1584); BUNSPEC; } BgL_obj3067z00_836; } 
{ /* ./Globalize/loc2glo.scm 95 */
BgL_variablez00_bglt BgL_obj1119z00_1585;BgL_typez00_bglt BgL_val1118z00_1586;
BgL_obj1119z00_1585 = 
(BgL_variablez00_bglt)(BgL_globalz00_2); 
BgL_val1118z00_1586 = 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00); 
((((BgL_variablez00_bglt)CREF(BgL_obj1119z00_1585))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1118z00_1586), BUNSPEC); } 
{ 
obj_t BgL_l3068z00_842;
{ /* ./Globalize/loc2glo.scm 99 */
obj_t BgL_arg3143z00_844;
{ /* ./Globalize/loc2glo.scm 99 */
obj_t BgL_auxz00_1985;
BgL_auxz00_1985 = 
(((BgL_sfunz00_bglt)CREF(BgL_newzd2funzd2_832))->BgL_argsz00); 
BgL_arg3143z00_844 = 
CDR(BgL_auxz00_1985); } 
BgL_l3068z00_842 = BgL_arg3143z00_844; 
BgL_forzd2each3069zd2_843:
{ /* ./Globalize/loc2glo.scm 98 */
bool_t BgL_test3149z00_846;
BgL_test3149z00_846 = 
PAIRP(BgL_l3068z00_842); 
if(BgL_test3149z00_846)
{ /* ./Globalize/loc2glo.scm 98 */
{ /* ./Globalize/loc2glo.scm 98 */
obj_t BgL_lz00_847;
BgL_lz00_847 = 
CAR(BgL_l3068z00_842); 
{ /* ./Globalize/loc2glo.scm 98 */
BgL_variablez00_bglt BgL_obj1119z00_1591;BgL_typez00_bglt BgL_val1118z00_1592;
BgL_obj1119z00_1591 = 
(BgL_variablez00_bglt)(BgL_lz00_847); 
BgL_val1118z00_1592 = 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00); 
((((BgL_variablez00_bglt)CREF(BgL_obj1119z00_1591))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1118z00_1592), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 98 */
obj_t BgL_arg3153z00_848;
BgL_arg3153z00_848 = 
CDR(BgL_l3068z00_842); 
{ 
obj_t BgL_l3068z00_1995;
BgL_l3068z00_1995 = BgL_arg3153z00_848; 
BgL_l3068z00_842 = BgL_l3068z00_1995; 
goto BgL_forzd2each3069zd2_843;} } }  else 
{ /* ./Globalize/loc2glo.scm 98 */((bool_t)1); } } } } 
{ /* ./Globalize/loc2glo.scm 100 */
BgL_variablez00_bglt BgL_obj1122z00_1594;BgL_valuez00_bglt BgL_val1121z00_1595;
BgL_obj1122z00_1594 = 
(BgL_variablez00_bglt)(BgL_globalz00_2); 
BgL_val1121z00_1595 = 
(BgL_valuez00_bglt)(BgL_newzd2funzd2_832); 
((((BgL_variablez00_bglt)CREF(BgL_obj1122z00_1594))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_val1121z00_1595), BUNSPEC); } 
{ /* ./Globalize/loc2glo.scm 110 */
BgL_nodez00_bglt BgL_arg3159z00_849;
{ /* ./Globalize/loc2glo.scm 110 */
BgL_nodez00_bglt BgL_arg3162z00_850;
{ /* ./Globalize/loc2glo.scm 110 */
obj_t BgL_arg3165z00_851;
{ /* ./Globalize/loc2glo.scm 110 */
obj_t BgL_arg3168z00_852;obj_t BgL_arg3169z00_853;
{ /* ./Globalize/loc2glo.scm 110 */
obj_t BgL_arg3172z00_854;
BgL_arg3172z00_854 = 
BGl_thezd2closurezd2zzglobaliza7e_freeza7(
(BgL_variablez00_bglt)(BgL_localz00_3), BFALSE); 
{ /* ./Globalize/loc2glo.scm 110 */
obj_t BgL_auxz00_2001;
BgL_auxz00_2001 = 
(obj_t)(BgL_envz00_828); 
BgL_arg3168z00_852 = 
MAKE_PAIR(BgL_arg3172z00_854, BgL_auxz00_2001); } } 
{ /* ./Globalize/loc2glo.scm 112 */
bool_t BgL_test3175z00_857;
BgL_test3175z00_857 = 
NULLP(BgL_kapturedz00_5); 
if(BgL_test3175z00_857)
{ /* ./Globalize/loc2glo.scm 112 */
BgL_arg3169z00_853 = BNIL; }  else 
{ /* ./Globalize/loc2glo.scm 112 */
obj_t BgL_head3072z00_858;
{ /* ./Globalize/loc2glo.scm 112 */
obj_t BgL_arg3202z00_873;
{ /* ./Globalize/loc2glo.scm 112 */
obj_t BgL_arg3206z00_875;obj_t BgL_arg3207z00_876;
BgL_arg3206z00_875 = 
CAR(BgL_kapturedz00_5); 
BgL_arg3207z00_876 = 
CAR(BgL_newzd2freezd2_829); 
BgL_arg3202z00_873 = 
MAKE_PAIR(BgL_arg3206z00_875, BgL_arg3207z00_876); } 
BgL_head3072z00_858 = 
MAKE_PAIR(BgL_arg3202z00_873, BNIL); } 
{ 
obj_t BgL_ll3070z00_859;obj_t BgL_ll3071z00_860;obj_t BgL_tail3073z00_861;
{ /* ./Globalize/loc2glo.scm 112 */
obj_t BgL_arg3177z00_863;obj_t BgL_arg3178z00_864;
BgL_arg3177z00_863 = 
CDR(BgL_kapturedz00_5); 
BgL_arg3178z00_864 = 
CDR(BgL_newzd2freezd2_829); 
BgL_ll3070z00_859 = BgL_arg3177z00_863; 
BgL_ll3071z00_860 = BgL_arg3178z00_864; 
BgL_tail3073z00_861 = BgL_head3072z00_858; 
BgL_map3075z00_862:
{ /* ./Globalize/loc2glo.scm 112 */
bool_t BgL_test3182z00_865;
BgL_test3182z00_865 = 
NULLP(BgL_ll3070z00_859); 
if(BgL_test3182z00_865)
{ /* ./Globalize/loc2glo.scm 112 */
BgL_arg3169z00_853 = BgL_head3072z00_858; }  else 
{ /* ./Globalize/loc2glo.scm 112 */
obj_t BgL_newtail3074z00_866;
{ /* ./Globalize/loc2glo.scm 112 */
obj_t BgL_arg3191z00_869;
{ /* ./Globalize/loc2glo.scm 112 */
obj_t BgL_arg3195z00_871;obj_t BgL_arg3196z00_872;
BgL_arg3195z00_871 = 
CAR(BgL_ll3070z00_859); 
BgL_arg3196z00_872 = 
CAR(BgL_ll3071z00_860); 
BgL_arg3191z00_869 = 
MAKE_PAIR(BgL_arg3195z00_871, BgL_arg3196z00_872); } 
BgL_newtail3074z00_866 = 
MAKE_PAIR(BgL_arg3191z00_869, BNIL); } 
SET_CDR(BgL_tail3073z00_861, BgL_newtail3074z00_866); 
{ /* ./Globalize/loc2glo.scm 112 */
obj_t BgL_arg3185z00_867;obj_t BgL_arg3186z00_868;
BgL_arg3185z00_867 = 
CDR(BgL_ll3070z00_859); 
BgL_arg3186z00_868 = 
CDR(BgL_ll3071z00_860); 
{ 
obj_t BgL_tail3073z00_2023;obj_t BgL_ll3071z00_2022;obj_t BgL_ll3070z00_2021;
BgL_ll3070z00_2021 = BgL_arg3185z00_867; 
BgL_ll3071z00_2022 = BgL_arg3186z00_868; 
BgL_tail3073z00_2023 = BgL_newtail3074z00_866; 
BgL_tail3073z00_861 = BgL_tail3073z00_2023; 
BgL_ll3071z00_860 = BgL_ll3071z00_2022; 
BgL_ll3070z00_859 = BgL_ll3070z00_2021; 
goto BgL_map3075z00_862;} } } } } } } } 
BgL_arg3165z00_851 = 
MAKE_PAIR(BgL_arg3168z00_852, BgL_arg3169z00_853); } 
BgL_arg3162z00_850 = 
BGl_nodezd2globaliza7ez12z67zzglobaliza7e_nodeza7(
(BgL_nodez00_bglt)(BgL_bodyz00_6), 
(BgL_variablez00_bglt)(BgL_localz00_3), BgL_arg3165z00_851); } 
BgL_arg3159z00_849 = 
BGl_makezd2escapingzd2bodyz00zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_3, BgL_globalz00_2, BgL_newzd2argszd2_830, BgL_newzd2freezd2_829, BgL_envz00_828, BgL_arg3162z00_850); } 
{ /* ./Globalize/loc2glo.scm 101 */
BgL_sfunz00_bglt BgL_obj1394z00_1612;obj_t BgL_val1393z00_1613;
BgL_obj1394z00_1612 = BgL_newzd2funzd2_832; 
BgL_val1393z00_1613 = 
(obj_t)(BgL_arg3159z00_849); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1394z00_1612))->BgL_bodyz00) = ((obj_t)BgL_val1393z00_1613), BUNSPEC); } } 
return BgL_globalz00_2;} } } } } } } 
}



/* make-escaping-body */
BgL_nodez00_bglt BGl_makezd2escapingzd2bodyz00zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_bglt BgL_localz00_7, BgL_globalz00_bglt BgL_globalz00_8, obj_t BgL_argsz00_9, obj_t BgL_kapturedz00_10, BgL_localz00_bglt BgL_envz00_11, BgL_nodez00_bglt BgL_bodyz00_12)
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 120 */
{ /* ./Globalize/loc2glo.scm 121 */
obj_t BgL_stackz00_947;obj_t BgL_locz00_948;
{ /* ./Globalize/loc2glo.scm 121 */
obj_t BgL_list3449z00_1001;
{ /* ./Globalize/loc2glo.scm 121 */
obj_t BgL_auxz00_2031;
BgL_auxz00_2031 = 
(obj_t)(BgL_envz00_11); 
BgL_list3449z00_1001 = 
MAKE_PAIR(BgL_auxz00_2031, BNIL); } 
BgL_stackz00_947 = BgL_list3449z00_1001; } 
BgL_locz00_948 = 
(((BgL_nodez00_bglt)CREF(BgL_bodyz00_12))->BgL_locz00); 
{ /* ./Globalize/loc2glo.scm 123 */
BgL_valuez00_bglt BgL_arg3362z00_949;
{ /* ./Globalize/loc2glo.scm 123 */
BgL_variablez00_bglt BgL_obj1120z00_1617;
BgL_obj1120z00_1617 = 
(BgL_variablez00_bglt)(BgL_localz00_7); 
BgL_arg3362z00_949 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1617))->BgL_valuez00); } 
{ /* ./Globalize/loc2glo.scm 123 */
BgL_sfunz00_bglt BgL_obj1394z00_1618;obj_t BgL_val1393z00_1619;
BgL_obj1394z00_1618 = 
(BgL_sfunz00_bglt)(BgL_arg3362z00_949); 
BgL_val1393z00_1619 = 
(obj_t)(BgL_bodyz00_12); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1394z00_1618))->BgL_bodyz00) = ((obj_t)BgL_val1393z00_1619), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 125 */
obj_t BgL_arg3366z00_950;obj_t BgL_arg3367z00_951;obj_t BgL_arg3369z00_953;BgL_letzd2funzd2_bglt BgL_arg3370z00_954;
BgL_arg3366z00_950 = BgL_locz00_948; 
BgL_arg3367z00_951 = BGl_za2_za2z00zztype_cachez00; 
{ 
obj_t BgL_kapturedz00_955;long BgL_numz00_956;obj_t BgL_resz00_957;
BgL_kapturedz00_955 = BgL_kapturedz00_10; 
BgL_numz00_956 = ((long)0); 
BgL_resz00_957 = BNIL; 
BgL_loopz00_958:
{ /* ./Globalize/loc2glo.scm 130 */
bool_t BgL_test3373z00_959;
BgL_test3373z00_959 = 
NULLP(BgL_kapturedz00_955); 
if(BgL_test3373z00_959)
{ /* ./Globalize/loc2glo.scm 130 */
BgL_arg3369z00_953 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_resz00_957); }  else 
{ /* ./Globalize/loc2glo.scm 132 */
obj_t BgL_arg3376z00_960;long BgL_arg3377z00_961;obj_t BgL_arg3378z00_962;
BgL_arg3376z00_960 = 
CDR(BgL_kapturedz00_955); 
BgL_arg3377z00_961 = 
(BgL_numz00_956+((long)1)); 
{ /* ./Globalize/loc2glo.scm 134 */
obj_t BgL_arg3383z00_963;
{ /* ./Globalize/loc2glo.scm 134 */
obj_t BgL_arg3386z00_964;BgL_nodez00_bglt BgL_arg3387z00_965;
BgL_arg3386z00_964 = 
CAR(BgL_kapturedz00_955); 
{ /* ./Globalize/loc2glo.scm 136 */
obj_t BgL_arg3391z00_966;obj_t BgL_arg3392z00_967;
{ /* ./Globalize/loc2glo.scm 136 */
obj_t BgL_arg3395z00_968;obj_t BgL_arg3396z00_969;
BgL_arg3395z00_968 = 
CNST_TABLE_REF(((long)1)); 
{ /* ./Globalize/loc2glo.scm 136 */
obj_t BgL_arg3399z00_970;obj_t BgL_arg3400z00_971;
BgL_arg3399z00_970 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Globalize/loc2glo.scm 136 */
obj_t BgL_auxz00_2048;
BgL_auxz00_2048 = 
BINT(BgL_numz00_956); 
BgL_arg3400z00_971 = 
MAKE_PAIR(BgL_auxz00_2048, BNIL); } 
BgL_arg3396z00_969 = 
MAKE_PAIR(BgL_arg3399z00_970, BgL_arg3400z00_971); } 
BgL_arg3391z00_966 = 
MAKE_PAIR(BgL_arg3395z00_968, BgL_arg3396z00_969); } 
BgL_arg3392z00_967 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3387z00_965 = 
BGl_sexpzd2ze3nodez31zzast_sexpz00(BgL_arg3391z00_966, BgL_stackz00_947, BgL_locz00_948, BgL_arg3392z00_967); } 
{ /* ./Globalize/loc2glo.scm 134 */
obj_t BgL_auxz00_2055;
BgL_auxz00_2055 = 
(obj_t)(BgL_arg3387z00_965); 
BgL_arg3383z00_963 = 
MAKE_PAIR(BgL_arg3386z00_964, BgL_auxz00_2055); } } 
BgL_arg3378z00_962 = 
MAKE_PAIR(BgL_arg3383z00_963, BgL_resz00_957); } 
{ 
obj_t BgL_resz00_2061;long BgL_numz00_2060;obj_t BgL_kapturedz00_2059;
BgL_kapturedz00_2059 = BgL_arg3376z00_960; 
BgL_numz00_2060 = BgL_arg3377z00_961; 
BgL_resz00_2061 = BgL_arg3378z00_962; 
BgL_resz00_957 = BgL_resz00_2061; 
BgL_numz00_956 = BgL_numz00_2060; 
BgL_kapturedz00_955 = BgL_kapturedz00_2059; 
goto BgL_loopz00_958;} } } } 
{ /* ./Globalize/loc2glo.scm 142 */
obj_t BgL_arg3405z00_972;obj_t BgL_arg3406z00_973;obj_t BgL_arg3408z00_975;BgL_appz00_bglt BgL_arg3409z00_976;
BgL_arg3405z00_972 = BgL_locz00_948; 
BgL_arg3406z00_973 = BGl_za2_za2z00zztype_cachez00; 
{ /* ./Globalize/loc2glo.scm 144 */
obj_t BgL_list3412z00_977;
{ /* ./Globalize/loc2glo.scm 144 */
obj_t BgL_auxz00_2062;
BgL_auxz00_2062 = 
(obj_t)(BgL_localz00_7); 
BgL_list3412z00_977 = 
MAKE_PAIR(BgL_auxz00_2062, BNIL); } 
BgL_arg3408z00_975 = BgL_list3412z00_977; } 
{ /* ./Globalize/loc2glo.scm 146 */
obj_t BgL_arg3415z00_978;obj_t BgL_arg3416z00_979;BgL_varz00_bglt BgL_arg3418z00_981;obj_t BgL_arg3419z00_982;
BgL_arg3415z00_978 = BgL_locz00_948; 
BgL_arg3416z00_979 = BGl_za2_za2z00zztype_cachez00; 
{ /* ./Globalize/loc2glo.scm 149 */
obj_t BgL_arg3422z00_983;obj_t BgL_arg3423z00_984;BgL_localz00_bglt BgL_arg3424z00_985;
BgL_arg3422z00_983 = BgL_locz00_948; 
BgL_arg3423z00_984 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3424z00_985 = BgL_localz00_7; 
BgL_arg3418z00_981 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3422z00_983, 
(BgL_typez00_bglt)(BgL_arg3423z00_984), 
(BgL_variablez00_bglt)(BgL_arg3424z00_985)); } 
{ /* ./Globalize/loc2glo.scm 152 */
bool_t BgL_test3426z00_987;
BgL_test3426z00_987 = 
NULLP(BgL_argsz00_9); 
if(BgL_test3426z00_987)
{ /* ./Globalize/loc2glo.scm 152 */
BgL_arg3419z00_982 = BNIL; }  else 
{ /* ./Globalize/loc2glo.scm 152 */
obj_t BgL_head3082z00_988;
BgL_head3082z00_988 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3080z00_989;obj_t BgL_tail3083z00_990;
BgL_l3080z00_989 = BgL_argsz00_9; 
BgL_tail3083z00_990 = BgL_head3082z00_988; 
BgL_map3081z00_991:
{ /* ./Globalize/loc2glo.scm 152 */
bool_t BgL_test3428z00_992;
BgL_test3428z00_992 = 
NULLP(BgL_l3080z00_989); 
if(BgL_test3428z00_992)
{ /* ./Globalize/loc2glo.scm 152 */
BgL_arg3419z00_982 = 
CDR(BgL_head3082z00_988); }  else 
{ /* ./Globalize/loc2glo.scm 153 */
obj_t BgL_newtail3084z00_993;
{ /* ./Globalize/loc2glo.scm 153 */
BgL_varz00_bglt BgL_arg3436z00_995;
{ /* ./Globalize/loc2glo.scm 153 */
obj_t BgL_vz00_997;
BgL_vz00_997 = 
CAR(BgL_l3080z00_989); 
{ /* ./Globalize/loc2glo.scm 154 */
obj_t BgL_arg3440z00_998;obj_t BgL_arg3441z00_999;obj_t BgL_arg3442z00_1000;
BgL_arg3440z00_998 = BgL_locz00_948; 
BgL_arg3441z00_999 = BGl_za2_za2z00zztype_cachez00; 
BgL_arg3442z00_1000 = BgL_vz00_997; 
BgL_arg3436z00_995 = 
BGl_makezd2varzd2zzast_nodez00(BgL_arg3440z00_998, 
(BgL_typez00_bglt)(BgL_arg3441z00_999), 
(BgL_variablez00_bglt)(BgL_arg3442z00_1000)); } } 
{ /* ./Globalize/loc2glo.scm 152 */
obj_t BgL_obj1z00_1633;
BgL_obj1z00_1633 = 
(obj_t)(BgL_arg3436z00_995); 
BgL_newtail3084z00_993 = 
MAKE_PAIR(BgL_obj1z00_1633, BNIL); } } 
SET_CDR(BgL_tail3083z00_990, BgL_newtail3084z00_993); 
{ /* ./Globalize/loc2glo.scm 152 */
obj_t BgL_arg3432z00_994;
BgL_arg3432z00_994 = 
CDR(BgL_l3080z00_989); 
{ 
obj_t BgL_tail3083z00_2083;obj_t BgL_l3080z00_2082;
BgL_l3080z00_2082 = BgL_arg3432z00_994; 
BgL_tail3083z00_2083 = BgL_newtail3084z00_993; 
BgL_tail3083z00_990 = BgL_tail3083z00_2083; 
BgL_l3080z00_989 = BgL_l3080z00_2082; 
goto BgL_map3081z00_991;} } } } } } } 
BgL_arg3409z00_976 = 
BGl_makezd2appzd2zzast_nodez00(BgL_arg3415z00_978, 
(BgL_typez00_bglt)(BgL_arg3416z00_979), BUNSPEC, 
BINT(((long)-1)), BgL_arg3418z00_981, BgL_arg3419z00_982); } 
BgL_arg3370z00_954 = 
BGl_makezd2letzd2funz00zzast_nodez00(BgL_arg3405z00_972, 
(BgL_typez00_bglt)(BgL_arg3406z00_973), BUNSPEC, 
BINT(((long)-1)), BgL_arg3408z00_975, 
(BgL_nodez00_bglt)(BgL_arg3409z00_976)); } 
{ /* ./Globalize/loc2glo.scm 124 */
BgL_letzd2varzd2_bglt BgL_auxz00_2091;
BgL_auxz00_2091 = 
BGl_makezd2letzd2varz00zzast_nodez00(BgL_arg3366z00_950, 
(BgL_typez00_bglt)(BgL_arg3367z00_951), BUNSPEC, 
BINT(((long)-1)), BgL_arg3369z00_953, 
(BgL_nodez00_bglt)(BgL_arg3370z00_954), ((bool_t)1)); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_2091);} } } } 
}



/* fix-non-escaping-definition */
BgL_globalz00_bglt BGl_fixzd2nonzd2escapingzd2definitionzd2zzglobaliza7e_localzd2ze3globalz96(BgL_globalz00_bglt BgL_globalz00_13, BgL_localz00_bglt BgL_localz00_14, obj_t BgL_argsz00_15, obj_t BgL_kapturedz00_16, obj_t BgL_bodyz00_17)
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 162 */
{ /* ./Globalize/loc2glo.scm 163 */
obj_t BgL_addzd2argszd2_1002;
{ /* ./Globalize/loc2glo.scm 163 */
bool_t BgL_test3546z00_1051;
BgL_test3546z00_1051 = 
NULLP(BgL_kapturedz00_16); 
if(BgL_test3546z00_1051)
{ /* ./Globalize/loc2glo.scm 163 */
BgL_addzd2argszd2_1002 = BNIL; }  else 
{ /* ./Globalize/loc2glo.scm 163 */
obj_t BgL_head3088z00_1052;
BgL_head3088z00_1052 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l3086z00_1053;obj_t BgL_tail3089z00_1054;
BgL_l3086z00_1053 = BgL_kapturedz00_16; 
BgL_tail3089z00_1054 = BgL_head3088z00_1052; 
BgL_map3087z00_1055:
{ /* ./Globalize/loc2glo.scm 163 */
bool_t BgL_test3548z00_1056;
BgL_test3548z00_1056 = 
NULLP(BgL_l3086z00_1053); 
if(BgL_test3548z00_1056)
{ /* ./Globalize/loc2glo.scm 163 */
BgL_addzd2argszd2_1002 = 
CDR(BgL_head3088z00_1052); }  else 
{ /* ./Globalize/loc2glo.scm 164 */
obj_t BgL_newtail3090z00_1057;
{ /* ./Globalize/loc2glo.scm 164 */
BgL_localz00_bglt BgL_arg3556z00_1059;
{ /* ./Globalize/loc2glo.scm 164 */
obj_t BgL_oldz00_1061;
BgL_oldz00_1061 = 
CAR(BgL_l3086z00_1053); 
{ /* ./Globalize/loc2glo.scm 164 */
BgL_localz00_bglt BgL_newz00_1062;
{ /* ./Globalize/loc2glo.scm 164 */
obj_t BgL_arg3591z00_1074;obj_t BgL_arg3592z00_1075;
{ /* ./Globalize/loc2glo.scm 164 */
BgL_variablez00_bglt BgL_obj1113z00_1644;
BgL_obj1113z00_1644 = 
(BgL_variablez00_bglt)(BgL_oldz00_1061); 
BgL_arg3591z00_1074 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1113z00_1644))->BgL_idz00); } 
BgL_arg3592z00_1075 = 
BGl_defaultzd2typezd2zzglobaliza7e_localzd2ze3globalz96(); 
BgL_newz00_1062 = 
BGl_makezd2localzd2svarz00zzast_localz00(BgL_arg3591z00_1074, 
(BgL_typez00_bglt)(BgL_arg3592z00_1075)); } 
{ /* ./Globalize/loc2glo.scm 166 */
bool_t BgL_arg3560z00_1063;
{ /* ./Globalize/loc2glo.scm 166 */
BgL_localz00_bglt BgL_obj1284z00_1645;
BgL_obj1284z00_1645 = 
(BgL_localz00_bglt)(BgL_oldz00_1061); 
BgL_arg3560z00_1063 = 
(((BgL_localz00_bglt)CREF(BgL_obj1284z00_1645))->BgL_userzf3zf3); } 
{ /* ./Globalize/loc2glo.scm 166 */
BgL_localz00_bglt BgL_obj1286z00_1646;bool_t BgL_val1285z00_1647;
BgL_obj1286z00_1646 = BgL_newz00_1062; 
BgL_val1285z00_1647 = BgL_arg3560z00_1063; 
((((BgL_localz00_bglt)CREF(BgL_obj1286z00_1646))->BgL_userzf3zf3) = ((bool_t)BgL_val1285z00_1647), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 167 */
BgL_localz00_bglt BgL_obj3091z00_1064;
BgL_obj3091z00_1064 = 
((BgL_localz00_bglt)BgL_newz00_1062); 
{ /* ./Globalize/loc2glo.scm 167 */
obj_t BgL_arg3564z00_1065;
BgL_arg3564z00_1065 = 
BGl_wideningzd2localzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0)); 
{ /* ./Globalize/loc2glo.scm 167 */
BgL_objectz00_bglt BgL_auxz00_2114;
BgL_auxz00_2114 = 
(BgL_objectz00_bglt)(BgL_obj3091z00_1064); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2114, BgL_arg3564z00_1065); } } 
{ /* ./Globalize/loc2glo.scm 167 */
long BgL_arg3568z00_1066;
BgL_arg3568z00_1066 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/loc2glo.scm 167 */
BgL_objectz00_bglt BgL_objz00_1648;
BgL_objz00_1648 = 
(BgL_objectz00_bglt)(BgL_obj3091z00_1064); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1648, BgL_arg3568z00_1066); } } 
{ /* ./Globalize/loc2glo.scm 167 */
obj_t BgL_objz00_1650;
BgL_objz00_1650 = 
(obj_t)(BgL_obj3091z00_1064); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1650); BUNSPEC; } BgL_obj3091z00_1064; } 
{ /* ./Globalize/loc2glo.scm 168 */
BgL_svarz00_bglt BgL_obj3092z00_1067;
{ 
BgL_svarz00_bglt BgL_auxz00_2122;
{ /* ./Globalize/loc2glo.scm 168 */
BgL_valuez00_bglt BgL_auxz00_2123;
{ /* ./Globalize/loc2glo.scm 168 */
BgL_variablez00_bglt BgL_obj1120z00_1746;
BgL_obj1120z00_1746 = 
(BgL_variablez00_bglt)(BgL_newz00_1062); 
BgL_auxz00_2123 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1746))->BgL_valuez00); } 
BgL_auxz00_2122 = 
(BgL_svarz00_bglt)(BgL_auxz00_2123); } 
BgL_obj3092z00_1067 = 
((BgL_svarz00_bglt)BgL_auxz00_2122); } 
{ /* ./Globalize/loc2glo.scm 169 */
obj_t BgL_arg3573z00_1068;
{ /* ./Globalize/loc2glo.scm 169 */
bool_t BgL_arg3576z00_1069;
BgL_arg3576z00_1069 = ((bool_t)1); 
BgL_arg3573z00_1068 = 
BGl_wideningzd2svarzf2Ginfoz20zzglobaliza7e_ginfoza7(BgL_arg3576z00_1069, ((long)-10), ((long)-10), ((bool_t)0)); } 
{ /* ./Globalize/loc2glo.scm 168 */
BgL_objectz00_bglt BgL_auxz00_2129;
BgL_auxz00_2129 = 
(BgL_objectz00_bglt)(BgL_obj3092z00_1067); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2129, BgL_arg3573z00_1068); } } 
{ /* ./Globalize/loc2glo.scm 168 */
long BgL_arg3581z00_1072;
BgL_arg3581z00_1072 = 
BGl_classzd2numzd2zz__objectz00(BGl_svarzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/loc2glo.scm 168 */
BgL_objectz00_bglt BgL_objz00_1652;
BgL_objz00_1652 = 
(BgL_objectz00_bglt)(BgL_obj3092z00_1067); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1652, BgL_arg3581z00_1072); } } 
{ /* ./Globalize/loc2glo.scm 168 */
obj_t BgL_objz00_1654;
BgL_objz00_1654 = 
(obj_t)(BgL_obj3092z00_1067); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1654); BUNSPEC; } BgL_obj3092z00_1067; } 
{ /* ./Globalize/loc2glo.scm 170 */
obj_t BgL_arg3587z00_1073;
{ /* ./Globalize/loc2glo.scm 170 */
BgL_variablez00_bglt BgL_obj1123z00_1655;
BgL_obj1123z00_1655 = 
(BgL_variablez00_bglt)(BgL_oldz00_1061); 
BgL_arg3587z00_1073 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1123z00_1655))->BgL_accessz00); } 
{ /* ./Globalize/loc2glo.scm 170 */
BgL_variablez00_bglt BgL_obj1125z00_1656;obj_t BgL_val1124z00_1657;
BgL_obj1125z00_1656 = 
(BgL_variablez00_bglt)(BgL_newz00_1062); 
BgL_val1124z00_1657 = BgL_arg3587z00_1073; 
((((BgL_variablez00_bglt)CREF(BgL_obj1125z00_1656))->BgL_accessz00) = ((obj_t)BgL_val1124z00_1657), BUNSPEC); } } 
BgL_arg3556z00_1059 = BgL_newz00_1062; } } 
{ /* ./Globalize/loc2glo.scm 163 */
obj_t BgL_obj1z00_1658;
BgL_obj1z00_1658 = 
(obj_t)(BgL_arg3556z00_1059); 
BgL_newtail3090z00_1057 = 
MAKE_PAIR(BgL_obj1z00_1658, BNIL); } } 
SET_CDR(BgL_tail3089z00_1054, BgL_newtail3090z00_1057); 
{ /* ./Globalize/loc2glo.scm 163 */
obj_t BgL_arg3552z00_1058;
BgL_arg3552z00_1058 = 
CDR(BgL_l3086z00_1053); 
{ 
obj_t BgL_tail3089z00_2146;obj_t BgL_l3086z00_2145;
BgL_l3086z00_2145 = BgL_arg3552z00_1058; 
BgL_tail3089z00_2146 = BgL_newtail3090z00_1057; 
BgL_tail3089z00_1054 = BgL_tail3089z00_2146; 
BgL_l3086z00_1053 = BgL_l3086z00_2145; 
goto BgL_map3087z00_1055;} } } } } } } 
{ /* ./Globalize/loc2glo.scm 163 */
BgL_valuez00_bglt BgL_oldzd2funzd2_1003;
{ /* ./Globalize/loc2glo.scm 173 */
BgL_variablez00_bglt BgL_obj1120z00_1663;
BgL_obj1120z00_1663 = 
(BgL_variablez00_bglt)(BgL_localz00_14); 
BgL_oldzd2funzd2_1003 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1663))->BgL_valuez00); } 
{ /* ./Globalize/loc2glo.scm 173 */
BgL_sfunz00_bglt BgL_newzd2funzd2_1004;
{ /* ./Globalize/loc2glo.scm 174 */
BgL_sfunz00_bglt BgL_duplicated3093z00_1032;
BgL_duplicated3093z00_1032 = 
(BgL_sfunz00_bglt)(BgL_oldzd2funzd2_1003); 
{ /* ./Globalize/loc2glo.scm 175 */
BgL_sfunz00_bglt BgL_new3094z00_1033;
{ /* ./Globalize/loc2glo.scm 175 */
obj_t BgL_arg3508z00_1034;obj_t BgL_arg3509z00_1035;obj_t BgL_arg3510z00_1036;obj_t BgL_arg3511z00_1037;bool_t BgL_arg3512z00_1038;obj_t BgL_arg3513z00_1039;obj_t BgL_arg3514z00_1040;obj_t BgL_arg3515z00_1041;obj_t BgL_arg3517z00_1042;obj_t BgL_arg3518z00_1043;obj_t BgL_arg3520z00_1044;obj_t BgL_arg3521z00_1045;obj_t BgL_arg3522z00_1046;
{ /* ./Globalize/loc2glo.scm 175 */
long BgL_arg3525z00_1047;long BgL_arg3526z00_1048;
{ /* ./Globalize/loc2glo.scm 175 */
BgL_funz00_bglt BgL_obj1323z00_1664;
BgL_obj1323z00_1664 = 
(BgL_funz00_bglt)(BgL_oldzd2funzd2_1003); 
BgL_arg3525z00_1047 = 
(((BgL_funz00_bglt)CREF(BgL_obj1323z00_1664))->BgL_arityz00); } 
BgL_arg3526z00_1048 = 
bgl_list_length(BgL_kapturedz00_16); 
BgL_arg3508z00_1034 = 
BGl_zb2zd2arityz60zztools_argsz00(
BINT(BgL_arg3525z00_1047), 
BINT(BgL_arg3526z00_1048)); } 
{ /* ./Globalize/loc2glo.scm 174 */
BgL_funz00_bglt BgL_obj1324z00_1665;
BgL_obj1324z00_1665 = 
(BgL_funz00_bglt)(BgL_duplicated3093z00_1032); 
BgL_arg3509z00_1035 = 
(((BgL_funz00_bglt)CREF(BgL_obj1324z00_1665))->BgL_sidezd2effectzf3z21); } 
{ /* ./Globalize/loc2glo.scm 174 */
BgL_funz00_bglt BgL_obj1327z00_1666;
BgL_obj1327z00_1666 = 
(BgL_funz00_bglt)(BgL_duplicated3093z00_1032); 
BgL_arg3510z00_1036 = 
(((BgL_funz00_bglt)CREF(BgL_obj1327z00_1666))->BgL_predicatezd2ofzd2); } 
{ /* ./Globalize/loc2glo.scm 174 */
BgL_funz00_bglt BgL_obj1330z00_1667;
BgL_obj1330z00_1667 = 
(BgL_funz00_bglt)(BgL_duplicated3093z00_1032); 
BgL_arg3511z00_1037 = 
(((BgL_funz00_bglt)CREF(BgL_obj1330z00_1667))->BgL_stackzd2allocatorzd2); } 
{ /* ./Globalize/loc2glo.scm 174 */
BgL_funz00_bglt BgL_obj1333z00_1668;
BgL_obj1333z00_1668 = 
(BgL_funz00_bglt)(BgL_duplicated3093z00_1032); 
BgL_arg3512z00_1038 = 
(((BgL_funz00_bglt)CREF(BgL_obj1333z00_1668))->BgL_topzf3zf3); } 
{ /* ./Globalize/loc2glo.scm 174 */
BgL_funz00_bglt BgL_obj1336z00_1669;
BgL_obj1336z00_1669 = 
(BgL_funz00_bglt)(BgL_duplicated3093z00_1032); 
BgL_arg3513z00_1039 = 
(((BgL_funz00_bglt)CREF(BgL_obj1336z00_1669))->BgL_thezd2closurezd2); } 
{ /* ./Globalize/loc2glo.scm 174 */
BgL_funz00_bglt BgL_obj1339z00_1670;
BgL_obj1339z00_1670 = 
(BgL_funz00_bglt)(BgL_duplicated3093z00_1032); 
BgL_arg3514z00_1040 = 
(((BgL_funz00_bglt)CREF(BgL_obj1339z00_1670))->BgL_effectz00); } 
BgL_arg3515z00_1041 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated3093z00_1032))->BgL_propertyz00); 
BgL_arg3517z00_1042 = 
bgl_append2(
bgl_reverse(BgL_addzd2argszd2_1002), BgL_argsz00_15); 
BgL_arg3518z00_1043 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated3093z00_1032))->BgL_bodyz00); 
BgL_arg3520z00_1044 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated3093z00_1032))->BgL_classz00); 
BgL_arg3521z00_1045 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated3093z00_1032))->BgL_dssslzd2keywordszd2); 
BgL_arg3522z00_1046 = 
(((BgL_sfunz00_bglt)CREF(BgL_duplicated3093z00_1032))->BgL_locz00); 
BgL_new3094z00_1033 = 
BGl_makezd2sfunzd2zzast_varz00(
(long)CINT(BgL_arg3508z00_1034), BgL_arg3509z00_1035, BgL_arg3510z00_1036, BgL_arg3511z00_1037, BgL_arg3512z00_1038, BgL_arg3513z00_1039, BgL_arg3514z00_1040, BgL_arg3515z00_1041, BgL_arg3517z00_1042, BgL_arg3518z00_1043, BgL_arg3520z00_1044, BgL_arg3521z00_1045, BgL_arg3522z00_1046); } 
{ /* ./Globalize/loc2glo.scm 174 */

BgL_newzd2funzd2_1004 = BgL_new3094z00_1033; } } } 
{ /* ./Globalize/loc2glo.scm 174 */

{ /* ./Globalize/loc2glo.scm 177 */
BgL_localzf2ginfozf2_bglt BgL_obj2942z00_1676;bool_t BgL_val2941z00_1677;
BgL_obj2942z00_1676 = 
(BgL_localzf2ginfozf2_bglt)(BgL_localz00_14); 
BgL_val2941z00_1677 = ((bool_t)0); 
{ 
obj_t BgL_auxz00_2178;
{ /* ./Globalize/loc2glo.scm 177 */
BgL_objectz00_bglt BgL_auxz00_2179;
BgL_auxz00_2179 = 
(BgL_objectz00_bglt)(BgL_obj2942z00_1676); 
BgL_auxz00_2178 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2179); } 
((((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_2178))->BgL_escapezf3zf3) = ((bool_t)BgL_val2941z00_1677), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 178 */
BgL_globalzf2ginfozf2_bglt BgL_obj2998z00_1678;bool_t BgL_val2997z00_1679;
BgL_obj2998z00_1678 = 
(BgL_globalzf2ginfozf2_bglt)(BgL_globalz00_13); 
BgL_val2997z00_1679 = ((bool_t)1); 
{ 
obj_t BgL_auxz00_2184;
{ /* ./Globalize/loc2glo.scm 178 */
BgL_objectz00_bglt BgL_auxz00_2185;
BgL_auxz00_2185 = 
(BgL_objectz00_bglt)(BgL_obj2998z00_1678); 
BgL_auxz00_2184 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2185); } 
((((BgL_globalzf2ginfozf2_bglt)CREF(BgL_auxz00_2184))->BgL_escapezf3zf3) = ((bool_t)BgL_val2997z00_1679), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 179 */
BgL_typez00_bglt BgL_arg3455z00_1005;
{ /* ./Globalize/loc2glo.scm 179 */
BgL_variablez00_bglt BgL_obj1117z00_1680;
BgL_obj1117z00_1680 = 
(BgL_variablez00_bglt)(BgL_localz00_14); 
BgL_arg3455z00_1005 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1117z00_1680))->BgL_typez00); } 
{ /* ./Globalize/loc2glo.scm 179 */
BgL_variablez00_bglt BgL_obj1119z00_1681;BgL_typez00_bglt BgL_val1118z00_1682;
BgL_obj1119z00_1681 = 
(BgL_variablez00_bglt)(BgL_globalz00_13); 
BgL_val1118z00_1682 = BgL_arg3455z00_1005; 
((((BgL_variablez00_bglt)CREF(BgL_obj1119z00_1681))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1118z00_1682), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 182 */
BgL_nodez00_bglt BgL_arg3459z00_1006;
{ /* ./Globalize/loc2glo.scm 182 */
obj_t BgL_arg3462z00_1007;obj_t BgL_arg3463z00_1008;
{ /* ./Globalize/loc2glo.scm 181 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2802z00_1684;
{ /* ./Globalize/loc2glo.scm 182 */
BgL_valuez00_bglt BgL_auxz00_2193;
{ /* ./Globalize/loc2glo.scm 182 */
BgL_variablez00_bglt BgL_obj1120z00_1683;
BgL_obj1120z00_1683 = 
(BgL_variablez00_bglt)(BgL_localz00_14); 
BgL_auxz00_2193 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1683))->BgL_valuez00); } 
BgL_obj2802z00_1684 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_2193); } 
{ 
obj_t BgL_auxz00_2197;
{ /* ./Globalize/loc2glo.scm 181 */
BgL_objectz00_bglt BgL_auxz00_2198;
BgL_auxz00_2198 = 
(BgL_objectz00_bglt)(BgL_obj2802z00_1684); 
BgL_auxz00_2197 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2198); } 
BgL_arg3462z00_1007 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2197))->BgL_newzd2bodyzd2); } } 
{ /* ./Globalize/loc2glo.scm 184 */
bool_t BgL_test3469z00_1012;
BgL_test3469z00_1012 = 
NULLP(BgL_kapturedz00_16); 
if(BgL_test3469z00_1012)
{ /* ./Globalize/loc2glo.scm 184 */
BgL_arg3463z00_1008 = BNIL; }  else 
{ /* ./Globalize/loc2glo.scm 184 */
obj_t BgL_head3097z00_1013;
{ /* ./Globalize/loc2glo.scm 184 */
obj_t BgL_arg3496z00_1028;
{ /* ./Globalize/loc2glo.scm 184 */
obj_t BgL_arg3500z00_1030;obj_t BgL_arg3501z00_1031;
BgL_arg3500z00_1030 = 
CAR(BgL_kapturedz00_16); 
BgL_arg3501z00_1031 = 
CAR(BgL_addzd2argszd2_1002); 
BgL_arg3496z00_1028 = 
MAKE_PAIR(BgL_arg3500z00_1030, BgL_arg3501z00_1031); } 
BgL_head3097z00_1013 = 
MAKE_PAIR(BgL_arg3496z00_1028, BNIL); } 
{ 
obj_t BgL_ll3095z00_1014;obj_t BgL_ll3096z00_1015;obj_t BgL_tail3098z00_1016;
{ /* ./Globalize/loc2glo.scm 184 */
obj_t BgL_arg3471z00_1018;obj_t BgL_arg3472z00_1019;
BgL_arg3471z00_1018 = 
CDR(BgL_kapturedz00_16); 
BgL_arg3472z00_1019 = 
CDR(BgL_addzd2argszd2_1002); 
BgL_ll3095z00_1014 = BgL_arg3471z00_1018; 
BgL_ll3096z00_1015 = BgL_arg3472z00_1019; 
BgL_tail3098z00_1016 = BgL_head3097z00_1013; 
BgL_map3100z00_1017:
{ /* ./Globalize/loc2glo.scm 184 */
bool_t BgL_test3476z00_1020;
BgL_test3476z00_1020 = 
NULLP(BgL_ll3095z00_1014); 
if(BgL_test3476z00_1020)
{ /* ./Globalize/loc2glo.scm 184 */
BgL_arg3463z00_1008 = BgL_head3097z00_1013; }  else 
{ /* ./Globalize/loc2glo.scm 184 */
obj_t BgL_newtail3099z00_1021;
{ /* ./Globalize/loc2glo.scm 184 */
obj_t BgL_arg3485z00_1024;
{ /* ./Globalize/loc2glo.scm 184 */
obj_t BgL_arg3489z00_1026;obj_t BgL_arg3490z00_1027;
BgL_arg3489z00_1026 = 
CAR(BgL_ll3095z00_1014); 
BgL_arg3490z00_1027 = 
CAR(BgL_ll3096z00_1015); 
BgL_arg3485z00_1024 = 
MAKE_PAIR(BgL_arg3489z00_1026, BgL_arg3490z00_1027); } 
BgL_newtail3099z00_1021 = 
MAKE_PAIR(BgL_arg3485z00_1024, BNIL); } 
SET_CDR(BgL_tail3098z00_1016, BgL_newtail3099z00_1021); 
{ /* ./Globalize/loc2glo.scm 184 */
obj_t BgL_arg3479z00_1022;obj_t BgL_arg3480z00_1023;
BgL_arg3479z00_1022 = 
CDR(BgL_ll3095z00_1014); 
BgL_arg3480z00_1023 = 
CDR(BgL_ll3096z00_1015); 
{ 
obj_t BgL_tail3098z00_2221;obj_t BgL_ll3096z00_2220;obj_t BgL_ll3095z00_2219;
BgL_ll3095z00_2219 = BgL_arg3479z00_1022; 
BgL_ll3096z00_2220 = BgL_arg3480z00_1023; 
BgL_tail3098z00_2221 = BgL_newtail3099z00_1021; 
BgL_tail3098z00_1016 = BgL_tail3098z00_2221; 
BgL_ll3096z00_1015 = BgL_ll3096z00_2220; 
BgL_ll3095z00_1014 = BgL_ll3095z00_2219; 
goto BgL_map3100z00_1017;} } } } } } } } 
BgL_arg3459z00_1006 = 
BGl_nodezd2globaliza7ez12z67zzglobaliza7e_nodeza7(
(BgL_nodez00_bglt)(BgL_arg3462z00_1007), 
(BgL_variablez00_bglt)(BgL_localz00_14), BgL_arg3463z00_1008); } 
{ /* ./Globalize/loc2glo.scm 180 */
BgL_sfunz00_bglt BgL_obj1394z00_1701;obj_t BgL_val1393z00_1702;
BgL_obj1394z00_1701 = BgL_newzd2funzd2_1004; 
BgL_val1393z00_1702 = 
(obj_t)(BgL_arg3459z00_1006); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1394z00_1701))->BgL_bodyz00) = ((obj_t)BgL_val1393z00_1702), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 185 */
BgL_variablez00_bglt BgL_obj1122z00_1703;BgL_valuez00_bglt BgL_val1121z00_1704;
BgL_obj1122z00_1703 = 
(BgL_variablez00_bglt)(BgL_globalz00_13); 
BgL_val1121z00_1704 = 
(BgL_valuez00_bglt)(BgL_newzd2funzd2_1004); 
((((BgL_variablez00_bglt)CREF(BgL_obj1122z00_1703))->BgL_valuez00) = ((BgL_valuez00_bglt)BgL_val1121z00_1704), BUNSPEC); } 
return BgL_globalz00_13;} } } } } 
}



/* the-global */
BGL_EXPORTED_DEF BgL_globalz00_bglt BGl_thezd2globalzd2zzglobaliza7e_localzd2ze3globalz96(BgL_localz00_bglt BgL_localz00_18)
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 194 */
{ /* ./Globalize/loc2glo.scm 195 */
BgL_valuez00_bglt BgL_valuez00_1076;
{ /* ./Globalize/loc2glo.scm 195 */
BgL_variablez00_bglt BgL_obj1120z00_1705;
BgL_obj1120z00_1705 = 
(BgL_variablez00_bglt)(BgL_localz00_18); 
BgL_valuez00_1076 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1705))->BgL_valuez00); } 
{ /* ./Globalize/loc2glo.scm 196 */
bool_t BgL_test3600z00_1077;
{ /* ./Globalize/loc2glo.scm 196 */
obj_t BgL_arg3657z00_1097;
{ /* ./Globalize/loc2glo.scm 196 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2796z00_1706;
BgL_obj2796z00_1706 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_valuez00_1076); 
{ 
obj_t BgL_auxz00_2233;
{ /* ./Globalize/loc2glo.scm 196 */
BgL_objectz00_bglt BgL_auxz00_2234;
BgL_auxz00_2234 = 
(BgL_objectz00_bglt)(BgL_obj2796z00_1706); 
BgL_auxz00_2233 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2234); } 
BgL_arg3657z00_1097 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2233))->BgL_thezd2globalzd2); } } 
BgL_test3600z00_1077 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg3657z00_1097, BGl_globalz00zzast_varz00); } 
if(BgL_test3600z00_1077)
{ /* ./Globalize/loc2glo.scm 197 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2796z00_1708;
BgL_obj2796z00_1708 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_valuez00_1076); 
{ /* ./Globalize/loc2glo.scm 197 */
obj_t BgL_auxz00_2241;
{ 
obj_t BgL_auxz00_2242;
{ /* ./Globalize/loc2glo.scm 197 */
BgL_objectz00_bglt BgL_auxz00_2243;
BgL_auxz00_2243 = 
(BgL_objectz00_bglt)(BgL_obj2796z00_1708); 
BgL_auxz00_2242 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2243); } 
BgL_auxz00_2241 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2242))->BgL_thezd2globalzd2); } 
return 
(BgL_globalz00_bglt)(BgL_auxz00_2241);} }  else 
{ /* ./Globalize/loc2glo.scm 198 */
obj_t BgL_idz00_1078;
{ /* ./Globalize/loc2glo.scm 198 */
bool_t BgL_test3633z00_1089;
{ /* ./Globalize/loc2glo.scm 198 */
obj_t BgL_arg3650z00_1095;
{ /* ./Globalize/loc2glo.scm 198 */
obj_t BgL_arg3653z00_1096;
{ /* ./Globalize/loc2glo.scm 198 */
BgL_variablez00_bglt BgL_obj1113z00_1709;
BgL_obj1113z00_1709 = 
(BgL_variablez00_bglt)(BgL_localz00_18); 
BgL_arg3653z00_1096 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1113z00_1709))->BgL_idz00); } 
BgL_arg3650z00_1095 = 
BGl_findzd2globalzf2modulez20zzast_envz00(BgL_arg3653z00_1096, BGl_za2moduleza2z00zzmodule_modulez00); } 
BgL_test3633z00_1089 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg3650z00_1095, BGl_globalz00zzast_varz00); } 
if(BgL_test3633z00_1089)
{ /* ./Globalize/loc2glo.scm 200 */
obj_t BgL_arg3635z00_1090;
{ /* ./Globalize/loc2glo.scm 200 */
obj_t BgL_arg3638z00_1091;obj_t BgL_arg3639z00_1092;
{ /* ./Globalize/loc2glo.scm 200 */
BgL_variablez00_bglt BgL_obj1113z00_1711;
BgL_obj1113z00_1711 = 
(BgL_variablez00_bglt)(BgL_localz00_18); 
BgL_arg3638z00_1091 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1113z00_1711))->BgL_idz00); } 
BgL_arg3639z00_1092 = 
CNST_TABLE_REF(((long)3)); 
{ /* ./Globalize/loc2glo.scm 200 */
obj_t BgL_list3641z00_1093;
{ /* ./Globalize/loc2glo.scm 200 */
obj_t BgL_arg3643z00_1094;
BgL_arg3643z00_1094 = 
MAKE_PAIR(BgL_arg3639z00_1092, BNIL); 
BgL_list3641z00_1093 = 
MAKE_PAIR(BgL_arg3638z00_1091, BgL_arg3643z00_1094); } 
BgL_arg3635z00_1090 = 
BGl_symbolzd2appendzd2zz__r4_symbols_6_4z00(BgL_list3641z00_1093); } } 
BgL_idz00_1078 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BgL_arg3635z00_1090, BEOA); }  else 
{ /* ./Globalize/loc2glo.scm 201 */
BgL_variablez00_bglt BgL_obj1113z00_1712;
BgL_obj1113z00_1712 = 
(BgL_variablez00_bglt)(BgL_localz00_18); 
BgL_idz00_1078 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1113z00_1712))->BgL_idz00); } } 
{ /* ./Globalize/loc2glo.scm 198 */
BgL_globalz00_bglt BgL_globalz00_1079;
BgL_globalz00_1079 = 
BGl_defzd2globalzd2sfunzd2nozd2warningz12z12zzast_glozd2defzd2(BgL_idz00_1078, BNIL, BNIL, BGl_za2moduleza2z00zzmodule_modulez00, 
CNST_TABLE_REF(((long)4)), 
CNST_TABLE_REF(((long)5)), 
CNST_TABLE_REF(((long)6)), BUNSPEC); 
{ /* ./Globalize/loc2glo.scm 202 */

{ /* ./Globalize/loc2glo.scm 215 */
BgL_valuez00_bglt BgL_arg3604z00_1080;obj_t BgL_arg3605z00_1081;
{ /* ./Globalize/loc2glo.scm 215 */
BgL_variablez00_bglt BgL_obj1120z00_1713;
BgL_obj1120z00_1713 = 
(BgL_variablez00_bglt)(BgL_globalz00_1079); 
BgL_arg3604z00_1080 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1713))->BgL_valuez00); } 
{ /* ./Globalize/loc2glo.scm 215 */
BgL_sfunz00_bglt BgL_obj1401z00_1714;
BgL_obj1401z00_1714 = 
(BgL_sfunz00_bglt)(BgL_valuez00_1076); 
BgL_arg3605z00_1081 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1401z00_1714))->BgL_locz00); } 
{ /* ./Globalize/loc2glo.scm 215 */
BgL_sfunz00_bglt BgL_obj1403z00_1715;obj_t BgL_val1402z00_1716;
BgL_obj1403z00_1715 = 
(BgL_sfunz00_bglt)(BgL_arg3604z00_1080); 
BgL_val1402z00_1716 = BgL_arg3605z00_1081; 
((((BgL_sfunz00_bglt)CREF(BgL_obj1403z00_1715))->BgL_locz00) = ((obj_t)BgL_val1402z00_1716), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 217 */
BgL_typez00_bglt BgL_arg3610z00_1082;
{ /* ./Globalize/loc2glo.scm 217 */
BgL_variablez00_bglt BgL_obj1117z00_1717;
BgL_obj1117z00_1717 = 
(BgL_variablez00_bglt)(BgL_localz00_18); 
BgL_arg3610z00_1082 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1117z00_1717))->BgL_typez00); } 
{ /* ./Globalize/loc2glo.scm 217 */
BgL_variablez00_bglt BgL_obj1119z00_1718;BgL_typez00_bglt BgL_val1118z00_1719;
BgL_obj1119z00_1718 = 
(BgL_variablez00_bglt)(BgL_globalz00_1079); 
BgL_val1118z00_1719 = BgL_arg3610z00_1082; 
((((BgL_variablez00_bglt)CREF(BgL_obj1119z00_1718))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1118z00_1719), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 219 */
bool_t BgL_test3613z00_1083;
BgL_test3613z00_1083 = 
(((BgL_localz00_bglt)CREF(BgL_localz00_18))->BgL_userzf3zf3); 
if(BgL_test3613z00_1083)
{ /* ./Globalize/loc2glo.scm 219 */BFALSE; }  else 
{ /* ./Globalize/loc2glo.scm 220 */
BgL_globalz00_bglt BgL_obj1200z00_1721;bool_t BgL_val1199z00_1722;
BgL_obj1200z00_1721 = BgL_globalz00_1079; 
BgL_val1199z00_1722 = ((bool_t)0); 
((((BgL_globalz00_bglt)CREF(BgL_obj1200z00_1721))->BgL_userzf3zf3) = ((bool_t)BgL_val1199z00_1722), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 221 */
BgL_globalz00_bglt BgL_obj3101z00_1084;
BgL_obj3101z00_1084 = 
((BgL_globalz00_bglt)BgL_globalz00_1079); 
{ /* ./Globalize/loc2glo.scm 221 */
obj_t BgL_arg3617z00_1085;
BgL_arg3617z00_1085 = 
BGl_wideningzd2globalzf2Ginfoz20zzglobaliza7e_ginfoza7(((bool_t)0), BFALSE); 
{ /* ./Globalize/loc2glo.scm 221 */
BgL_objectz00_bglt BgL_auxz00_2282;
BgL_auxz00_2282 = 
(BgL_objectz00_bglt)(BgL_obj3101z00_1084); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_2282, BgL_arg3617z00_1085); } } 
{ /* ./Globalize/loc2glo.scm 221 */
long BgL_arg3621z00_1086;
BgL_arg3621z00_1086 = 
BGl_classzd2numzd2zz__objectz00(BGl_globalzf2Ginfozf2zzglobaliza7e_ginfoza7); 
{ /* ./Globalize/loc2glo.scm 221 */
BgL_objectz00_bglt BgL_objz00_1723;
BgL_objz00_1723 = 
(BgL_objectz00_bglt)(BgL_obj3101z00_1084); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_1723, BgL_arg3621z00_1086); } } 
{ /* ./Globalize/loc2glo.scm 221 */
obj_t BgL_objz00_1725;
BgL_objz00_1725 = 
(obj_t)(BgL_obj3101z00_1084); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_1725); BUNSPEC; } BgL_obj3101z00_1084; } 
{ /* ./Globalize/loc2glo.scm 222 */
BgL_valuez00_bglt BgL_arg3626z00_1087;obj_t BgL_arg3627z00_1088;
{ /* ./Globalize/loc2glo.scm 222 */
BgL_variablez00_bglt BgL_obj1120z00_1726;
BgL_obj1120z00_1726 = 
(BgL_variablez00_bglt)(BgL_globalz00_1079); 
BgL_arg3626z00_1087 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1726))->BgL_valuez00); } 
{ /* ./Globalize/loc2glo.scm 223 */
BgL_funz00_bglt BgL_obj1324z00_1727;
BgL_obj1324z00_1727 = 
(BgL_funz00_bglt)(BgL_valuez00_1076); 
BgL_arg3627z00_1088 = 
(((BgL_funz00_bglt)CREF(BgL_obj1324z00_1727))->BgL_sidezd2effectzf3z21); } 
{ /* ./Globalize/loc2glo.scm 222 */
BgL_funz00_bglt BgL_obj1326z00_1728;obj_t BgL_val1325z00_1729;
BgL_obj1326z00_1728 = 
(BgL_funz00_bglt)(BgL_arg3626z00_1087); 
BgL_val1325z00_1729 = BgL_arg3627z00_1088; 
((((BgL_funz00_bglt)CREF(BgL_obj1326z00_1728))->BgL_sidezd2effectzf3z21) = ((obj_t)BgL_val1325z00_1729), BUNSPEC); } } 
{ /* ./Globalize/loc2glo.scm 224 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2798z00_1730;obj_t BgL_val2797z00_1731;
BgL_obj2798z00_1730 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_valuez00_1076); 
BgL_val2797z00_1731 = 
(obj_t)(BgL_globalz00_1079); 
{ 
obj_t BgL_auxz00_2298;
{ /* ./Globalize/loc2glo.scm 224 */
BgL_objectz00_bglt BgL_auxz00_2299;
BgL_auxz00_2299 = 
(BgL_objectz00_bglt)(BgL_obj2798z00_1730); 
BgL_auxz00_2298 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2299); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2298))->BgL_thezd2globalzd2) = ((obj_t)BgL_val2797z00_1731), BUNSPEC); } } 
return BgL_globalz00_1079;} } } } } } 
}



/* _the-global4101 */
obj_t BGl__thezd2global4101zd2zzglobaliza7e_localzd2ze3globalz96(obj_t BgL_envz00_1734, obj_t BgL_localz00_1735)
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 194 */
{ /* ./Globalize/loc2glo.scm 195 */
BgL_globalz00_bglt BgL_auxz00_2303;
BgL_auxz00_2303 = 
BGl_thezd2globalzd2zzglobaliza7e_localzd2ze3globalz96(
(BgL_localz00_bglt)(BgL_localz00_1735)); 
return 
(obj_t)(BgL_auxz00_2303);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzglobaliza7e_localzd2ze3globalz96()
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_localzd2ze3globalz96()
{ AN_OBJECT;
{ /* ./Globalize/loc2glo.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zztools_argsz00(((long)42726), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zzast_localz00(((long)28959), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zzast_glozd2defzd2(((long)4795), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(((long)0), "globalize_local->global"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(((long)60835), "globalize_local->global"); 
return 
BGl_modulezd2initializa7ationz75zzglobaliza7e_freeza7(((long)30276), "globalize_local->global");} 
}

