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

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_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_newzd2bodyz75();
static obj_t BGl_remz12zd2letzd2fun3107z12zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static bool_t BGl_iszd2inzf3z21zzglobaliza7e_newzd2bodyz75(obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
static obj_t BGl_remz12zd2setq3099zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_remz12zd2app3089zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_remz12zd2jumpzd2exzd2it3113zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_remz12zd2letzd2var3109z12zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static BgL_nodez00_bglt BGl_remz12zd2default3078zc0zzglobaliza7e_newzd2bodyz75(BgL_nodez00_bglt, obj_t, obj_t);
static BgL_nodez00_bglt BGl_remz12z12zzglobaliza7e_newzd2bodyz75(BgL_nodez00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_remz12zd2appzd2ly3091z12zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__remz124238z12zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
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_kwotez00zzast_nodez00;
static obj_t BGl_remz12zd2sequence3087zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_remz12zd2atom3081zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzglobaliza7e_newzd2bodyz75();
static obj_t BGl_remz12zd2select3105zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_atomz00zzast_nodez00;
static long BGl_za2roundza2z00zzglobaliza7e_newzd2bodyz75;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl__remz12zd2default3078zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_remza2z12zb0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_newzd2bodyz75();
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl__setzd2globaliza7edzd2newzd2bodiesz124236z67zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzglobaliza7e_newzd2bodyz75();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_remz12zd2boxzd2ref3117z12zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_newzd2bodyz75(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(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_sexpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(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_control_features_6_9z00(long, char *);
static obj_t BGl_remz12zd2fail3103zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_remz12zd2setzd2exzd2it3111zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33252ze3z83zzglobaliza7e_newzd2bodyz75(obj_t, obj_t);
static obj_t BGl_setzd2globaliza7edzd2newzd2bodyz12z67zzglobaliza7e_newzd2bodyz75(obj_t);
static obj_t BGl_remz12zd2makezd2box3115z12zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_remz12zd2var3085zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_filterz00zz__r4_control_features_6_9z00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
static obj_t BGl_remz12zd2conditional3101zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
extern obj_t BGl_appz00zzast_nodez00;
extern obj_t BGl_localz00zzast_varz00;
static obj_t BGl_remz12zd2cast3097zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_remz12zd2kwote3083zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_remz12zd2boxzd2setz123119z00zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_remz12zd2extern3095zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzglobaliza7e_newzd2bodyz75 = BUNSPEC;
static obj_t BGl_remz12zd2funcall3093zc0zzglobaliza7e_newzd2bodyz75(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_newzd2bodyz75();
BGL_EXPORTED_DECL obj_t BGl_setzd2globaliza7edzd2newzd2bodiesz12z67zzglobaliza7e_newzd2bodyz75(BgL_globalz00_bglt, obj_t);
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 2 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_setzd2globaliza7edzd2newzd2bodiesz12zd2envzb5zzglobaliza7e_newzd2bodyz75, BgL_bgl__setza7d2globaliza7a7edza7d2newza7d2bodiesza7124236za767za7za7globaliza7a7e_newza7d2bodyza7754830za7, BGl__setzd2globaliza7edzd2newzd2bodiesz124236z67zzglobaliza7e_newzd2bodyz75, 0L, 2 );
DEFINE_STRING( BGl_string4799z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_string4799za700za7za7globaliza7a7e_newza7d2bodyza7754831z00, "rem!-default3078 done ", 22 );
DEFINE_STRING( BGl_string4798z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_string4798za700za7za7globaliza7a7e_newza7d2bodyza7754832z00, "No method for this object", 25 );
DEFINE_STATIC_GENERIC( BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_bgl__remza7124238za712za7za7globaliza7a7e_newza7d2bodyza7754833za7, BGl__remz124238z12zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4778z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2atom3081za7c0za7za7globaliza7a7e_newza7d2bodyza7754834z00, BGl_remz12zd2atom3081zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4780z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2var3085za7c0za7za7globaliza7a7e_newza7d2bodyza7754835z00, BGl_remz12zd2var3085zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4779z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2kwote3083za7c0za7za7globaliza7a7e_newza7d2bodyza7754836z00, BGl_remz12zd2kwote3083zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4781z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2sequence3087za7c0za7za7globaliza7a7e_newza7d2bodyza7754837z00, BGl_remz12zd2sequence3087zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4782z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2app3089za7c0za7za7globaliza7a7e_newza7d2bodyza7754838z00, BGl_remz12zd2app3089zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4783z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2appza7d2ly3091za712za7za7globaliza7a7e_newza7d2bodyza7754839za7, BGl_remz12zd2appzd2ly3091z12zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4784z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2funcall3093za7c0za7za7globaliza7a7e_newza7d2bodyza7754840z00, BGl_remz12zd2funcall3093zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4785z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2extern3095za7c0za7za7globaliza7a7e_newza7d2bodyza7754841z00, BGl_remz12zd2extern3095zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4786z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2cast3097za7c0za7za7globaliza7a7e_newza7d2bodyza7754842z00, BGl_remz12zd2cast3097zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4787z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2setq3099za7c0za7za7globaliza7a7e_newza7d2bodyza7754843z00, BGl_remz12zd2setq3099zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4788z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2conditional3101za7c0za7za7globaliza7a7e_newza7d2bodyza7754844z00, BGl_remz12zd2conditional3101zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4790z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2select3105za7c0za7za7globaliza7a7e_newza7d2bodyza7754845z00, BGl_remz12zd2select3105zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4789z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2fail3103za7c0za7za7globaliza7a7e_newza7d2bodyza7754846z00, BGl_remz12zd2fail3103zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4791z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2letza7d2fun3107za712za7za7globaliza7a7e_newza7d2bodyza7754847za7, BGl_remz12zd2letzd2fun3107z12zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4792z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2letza7d2var3109za712za7za7globaliza7a7e_newza7d2bodyza7754848za7, BGl_remz12zd2letzd2var3109z12zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4793z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2setza7d2exza7d2it3111za7c0za7za7globaliza7a7e_newza7d2bodyza7754849z00, BGl_remz12zd2setzd2exzd2it3111zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4794z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2jumpza7d2exza7d2it3113za7c0za7za7globaliza7a7e_newza7d2bodyza7754850z00, BGl_remz12zd2jumpzd2exzd2it3113zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4795z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2makeza7d2box3115za712za7za7globaliza7a7e_newza7d2bodyza7754851za7, BGl_remz12zd2makezd2box3115z12zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4796z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2boxza7d2ref3117za712za7za7globaliza7a7e_newza7d2bodyza7754852za7, BGl_remz12zd2boxzd2ref3117z12zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc4797z00zzglobaliza7e_newzd2bodyz75, BgL_bgl_remza712za7d2boxza7d2setza7123119za700za7za7globaliza7a7e_newza7d2bodyza7754853z00, BGl_remz12zd2boxzd2setz123119z00zzglobaliza7e_newzd2bodyz75, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_remz12zd2default3078zd2envz12zzglobaliza7e_newzd2bodyz75, BgL_bgl__remza712za7d2default3078za7c0za7za7globaliza7a7e_newza7d2bodyza7754854z00, BGl__remz12zd2default3078zc0zzglobaliza7e_newzd2bodyz75, 0L, 3 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzglobaliza7e_newzd2bodyz75(long BgL_checksumz00_2813, char * BgL_fromz00_2814)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzglobaliza7e_newzd2bodyz75))
{ 
BGl_requirezd2initializa7ationz75zzglobaliza7e_newzd2bodyz75 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzglobaliza7e_newzd2bodyz75(); 
BGl_cnstzd2initzd2zzglobaliza7e_newzd2bodyz75(); 
BGl_importedzd2moduleszd2initz00zzglobaliza7e_newzd2bodyz75(); 
BGl_methodzd2initzd2zzglobaliza7e_newzd2bodyz75(); 
BGl_toplevelzd2initzd2zzglobaliza7e_newzd2bodyz75(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzglobaliza7e_newzd2bodyz75()
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)0), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "globalize_new-body"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzglobaliza7e_newzd2bodyz75()
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 15 */
{ /* ./Globalize/new-body.scm 15 */
obj_t BgL_cportz00_2794;
BgL_cportz00_2794 = 
open_input_string(BGl_string4799z00zzglobaliza7e_newzd2bodyz75); 
{ 
long BgL_iz00_2795;
BgL_iz00_2795 = ((long)1); 
BgL_loopz00_2796:
{ /* ./Globalize/new-body.scm 15 */
bool_t BgL_test4801z00_2797;
BgL_test4801z00_2797 = 
(BgL_iz00_2795==((long)-1)); 
if(BgL_test4801z00_2797)
{ /* ./Globalize/new-body.scm 15 */
return BUNSPEC;}  else 
{ /* ./Globalize/new-body.scm 15 */
{ /* ./Globalize/new-body.scm 15 */
obj_t BgL_arg4803z00_2798;
{ /* ./Globalize/new-body.scm 15 */
obj_t BgL_list4806z00_2799;
BgL_list4806z00_2799 = 
MAKE_PAIR(BgL_cportz00_2794, BNIL); 
BgL_arg4803z00_2798 = 
BGl_readz00zz__readerz00(BgL_list4806z00_2799); } 
{ /* ./Globalize/new-body.scm 15 */
int BgL_auxz00_2832;
BgL_auxz00_2832 = 
(int)(BgL_iz00_2795); 
CNST_TABLE_SET(BgL_auxz00_2832, BgL_arg4803z00_2798); } } 
{ /* ./Globalize/new-body.scm 15 */
int BgL_auxz00_2800;
{ /* ./Globalize/new-body.scm 15 */
long BgL_auxz00_2835;
BgL_auxz00_2835 = 
(BgL_iz00_2795-((long)1)); 
BgL_auxz00_2800 = 
(int)(BgL_auxz00_2835); } 
{ 
long BgL_iz00_2838;
BgL_iz00_2838 = 
(long)(BgL_auxz00_2800); 
BgL_iz00_2795 = BgL_iz00_2838; 
goto BgL_loopz00_2796;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzglobaliza7e_newzd2bodyz75()
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 15 */
BGl_za2roundza2z00zzglobaliza7e_newzd2bodyz75 = ((long)0); 
return BUNSPEC;} 
}



/* set-globalized-new-bodies! */
BGL_EXPORTED_DEF obj_t BGl_setzd2globaliza7edzd2newzd2bodiesz12z67zzglobaliza7e_newzd2bodyz75(BgL_globalz00_bglt BgL_globalz00_1, obj_t BgL_localsz00_2)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 31 */
{ /* ./Globalize/new-body.scm 32 */
long BgL_za71za7_1608;
BgL_za71za7_1608 = BGl_za2roundza2z00zzglobaliza7e_newzd2bodyz75; 
BGl_za2roundza2z00zzglobaliza7e_newzd2bodyz75 = 
(BgL_za71za7_1608+((long)1)); } 
{ /* ./Globalize/new-body.scm 34 */
BgL_valuez00_bglt BgL_funz00_866;
{ /* ./Globalize/new-body.scm 34 */
BgL_variablez00_bglt BgL_obj1100z00_1610;
BgL_obj1100z00_1610 = 
(BgL_variablez00_bglt)(BgL_globalz00_1); 
BgL_funz00_866 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1610))->BgL_valuez00); } 
{ /* ./Globalize/new-body.scm 35 */
BgL_nodez00_bglt BgL_arg3122z00_867;
{ /* ./Globalize/new-body.scm 35 */
obj_t BgL_arg3125z00_868;
{ /* ./Globalize/new-body.scm 35 */
BgL_sfunz00_bglt BgL_obj1370z00_1611;
BgL_obj1370z00_1611 = 
(BgL_sfunz00_bglt)(BgL_funz00_866); 
BgL_arg3125z00_868 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1611))->BgL_bodyz00); } 
{ /* ./Globalize/new-body.scm 35 */
BgL_nodez00_bglt BgL_res4149z00_1640;
{ /* ./Globalize/new-body.scm 35 */
BgL_nodez00_bglt BgL_nodez00_1612;
BgL_nodez00_1612 = 
(BgL_nodez00_bglt)(BgL_arg3125z00_868); 
{ /* ./Globalize/new-body.scm 35 */
obj_t BgL_method3079z00_1615;
{ /* ./Globalize/new-body.scm 35 */
BgL_objectz00_bglt BgL_objz00_1616;
BgL_objz00_1616 = 
(BgL_objectz00_bglt)(BgL_nodez00_1612); 
{ /* ./Globalize/new-body.scm 35 */
long BgL_objzd2classzd2numz00_1617;
BgL_objzd2classzd2numz00_1617 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1616); 
{ /* ./Globalize/new-body.scm 35 */
obj_t BgL_arg2017z00_1618;
{ /* ./Globalize/new-body.scm 35 */
int BgL_auxz00_2848;
BgL_auxz00_2848 = 
(int)(((long)1)); 
BgL_arg2017z00_1618 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_2848); } 
{ /* ./Globalize/new-body.scm 35 */
int BgL_offsetz00_1621;
BgL_offsetz00_1621 = 
(int)(BgL_objzd2classzd2numz00_1617); 
{ /* ./Globalize/new-body.scm 35 */
long BgL_offsetz00_1622;
{ /* ./Globalize/new-body.scm 35 */
long BgL_auxz00_2852;
BgL_auxz00_2852 = 
(long)(BgL_offsetz00_1621); 
BgL_offsetz00_1622 = 
(BgL_auxz00_2852-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 35 */
long BgL_modz00_1623;
{ /* ./Globalize/new-body.scm 35 */
int BgL_arg2028z00_1624;
BgL_arg2028z00_1624 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 35 */
long BgL_n2z00_1632;
BgL_n2z00_1632 = 
(long)(BgL_arg2028z00_1624); 
BgL_modz00_1623 = 
(BgL_offsetz00_1622/BgL_n2z00_1632); } } 
{ /* ./Globalize/new-body.scm 35 */
long BgL_restz00_1625;
{ /* ./Globalize/new-body.scm 35 */
int BgL_arg2024z00_1626;
BgL_arg2024z00_1626 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 35 */
long BgL_n2z00_1635;
BgL_n2z00_1635 = 
(long)(BgL_arg2024z00_1626); 
BgL_restz00_1625 = 
(BgL_offsetz00_1622%BgL_n2z00_1635); } } 
{ /* ./Globalize/new-body.scm 35 */

{ /* ./Globalize/new-body.scm 35 */
obj_t BgL_bucketz00_1627;
{ /* ./Globalize/new-body.scm 35 */
int BgL_kz00_1637;
BgL_kz00_1637 = 
(int)(BgL_modz00_1623); 
BgL_bucketz00_1627 = 
VECTOR_REF(BgL_arg2017z00_1618,BgL_kz00_1637); } 
{ /* ./Globalize/new-body.scm 35 */
int BgL_kz00_1639;
BgL_kz00_1639 = 
(int)(BgL_restz00_1625); 
BgL_method3079z00_1615 = 
VECTOR_REF(BgL_bucketz00_1627,BgL_kz00_1639); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 35 */
obj_t BgL_auxz00_2865;
BgL_auxz00_2865 = 
PROCEDURE_ENTRY(BgL_method3079z00_1615)(BgL_method3079z00_1615, 
(obj_t)(BgL_nodez00_1612), 
(obj_t)(BgL_globalz00_1), 
(obj_t)(BgL_globalz00_1), BEOA); 
BgL_res4149z00_1640 = 
(BgL_nodez00_bglt)(BgL_auxz00_2865); } } } 
BgL_arg3122z00_867 = BgL_res4149z00_1640; } } 
{ /* ./Globalize/new-body.scm 35 */
BgL_sfunz00_bglt BgL_obj1373z00_1641;obj_t BgL_val1371z00_1642;
BgL_obj1373z00_1641 = 
(BgL_sfunz00_bglt)(BgL_funz00_866); 
BgL_val1371z00_1642 = 
(obj_t)(BgL_arg3122z00_867); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1641))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1642), BUNSPEC); } } } 
{ 
obj_t BgL_l3035z00_869;
{ /* ./Globalize/new-body.scm 37 */
bool_t BgL_auxz00_2875;
BgL_l3035z00_869 = BgL_localsz00_2; 
BgL_forzd2each3036zd2_870:
{ /* ./Globalize/new-body.scm 37 */
bool_t BgL_test3130z00_871;
BgL_test3130z00_871 = 
PAIRP(BgL_l3035z00_869); 
if(BgL_test3130z00_871)
{ /* ./Globalize/new-body.scm 37 */
{ /* ./Globalize/new-body.scm 37 */
obj_t BgL_arg3132z00_872;
BgL_arg3132z00_872 = 
CAR(BgL_l3035z00_869); 
BGl_setzd2globaliza7edzd2newzd2bodyz12z67zzglobaliza7e_newzd2bodyz75(BgL_arg3132z00_872); } 
{ /* ./Globalize/new-body.scm 37 */
obj_t BgL_arg3136z00_873;
BgL_arg3136z00_873 = 
CDR(BgL_l3035z00_869); 
{ 
obj_t BgL_l3035z00_2881;
BgL_l3035z00_2881 = BgL_arg3136z00_873; 
BgL_l3035z00_869 = BgL_l3035z00_2881; 
goto BgL_forzd2each3036zd2_870;} } }  else 
{ /* ./Globalize/new-body.scm 37 */
BgL_auxz00_2875 = ((bool_t)1); } } 
return 
BBOOL(BgL_auxz00_2875);} } } 
}



/* _set-globalized-new-bodies!4236 */
obj_t BGl__setzd2globaliza7edzd2newzd2bodiesz124236z67zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2679, obj_t BgL_globalz00_2680, obj_t BgL_localsz00_2681)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 31 */
return 
BGl_setzd2globaliza7edzd2newzd2bodiesz12z67zzglobaliza7e_newzd2bodyz75(
(BgL_globalz00_bglt)(BgL_globalz00_2680), BgL_localsz00_2681);} 
}



/* set-globalized-new-body! */
obj_t BGl_setzd2globaliza7edzd2newzd2bodyz12z67zzglobaliza7e_newzd2bodyz75(obj_t BgL_localz00_3)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 42 */
{ /* ./Globalize/new-body.scm 48 */
long BgL_za71za7_1646;
BgL_za71za7_1646 = BGl_za2roundza2z00zzglobaliza7e_newzd2bodyz75; 
BGl_za2roundza2z00zzglobaliza7e_newzd2bodyz75 = 
(BgL_za71za7_1646+((long)1)); } 
{ /* ./Globalize/new-body.scm 50 */
BgL_valuez00_bglt BgL_funz00_874;
{ /* ./Globalize/new-body.scm 50 */
BgL_variablez00_bglt BgL_obj1100z00_1648;
BgL_obj1100z00_1648 = 
(BgL_variablez00_bglt)(BgL_localz00_3); 
BgL_funz00_874 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1648))->BgL_valuez00); } 
{ /* ./Globalize/new-body.scm 51 */
obj_t BgL_oldzd2bodyzd2_876;
{ /* ./Globalize/new-body.scm 52 */
BgL_sfunz00_bglt BgL_obj1370z00_1650;
BgL_obj1370z00_1650 = 
(BgL_sfunz00_bglt)(BgL_funz00_874); 
BgL_oldzd2bodyzd2_876 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1650))->BgL_bodyz00); } 
{ /* ./Globalize/new-body.scm 52 */
obj_t BgL_obindingsz00_877;
{ /* ./Globalize/new-body.scm 53 */
obj_t BgL_arg3250z00_931;
{ /* ./Globalize/new-body.scm 56 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2769z00_1651;
BgL_obj2769z00_1651 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_funz00_874); 
{ 
obj_t BgL_auxz00_2891;
{ /* ./Globalize/new-body.scm 56 */
BgL_objectz00_bglt BgL_auxz00_2892;
BgL_auxz00_2892 = 
(BgL_objectz00_bglt)(BgL_obj2769z00_1651); 
BgL_auxz00_2891 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2892); } 
BgL_arg3250z00_931 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2891))->BgL_integratedz00); } } 
{ /* ./Globalize/new-body.scm 54 */
obj_t BgL_zc3anonymousza33252ze3z83_2686;
{ 
int BgL_auxz00_2898;int BgL_auxz00_2896;
BgL_auxz00_2898 = 
(int)(((long)1)); 
BgL_auxz00_2896 = 
(int)(((long)1)); 
BgL_zc3anonymousza33252ze3z83_2686 = 
make_fx_procedure(BGl_zc3anonymousza33252ze3z83zzglobaliza7e_newzd2bodyz75, BgL_auxz00_2896, BgL_auxz00_2898); } 
{ /* ./Globalize/new-body.scm 54 */
int BgL_auxz00_2901;
BgL_auxz00_2901 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza33252ze3z83_2686, BgL_auxz00_2901, BgL_localz00_3); } 
BgL_obindingsz00_877 = 
BGl_filterz00zz__r4_control_features_6_9z00(BgL_zc3anonymousza33252ze3z83_2686, BgL_arg3250z00_931); } } 
{ /* ./Globalize/new-body.scm 53 */
BgL_nodez00_bglt BgL_newzd2bodyzd2_878;
{ /* ./Globalize/new-body.scm 57 */
BgL_nodez00_bglt BgL_res4152z00_1682;
{ /* ./Globalize/new-body.scm 57 */
BgL_nodez00_bglt BgL_nodez00_1654;
BgL_nodez00_1654 = 
(BgL_nodez00_bglt)(BgL_oldzd2bodyzd2_876); 
{ /* ./Globalize/new-body.scm 57 */
obj_t BgL_method3079z00_1657;
{ /* ./Globalize/new-body.scm 57 */
BgL_objectz00_bglt BgL_objz00_1658;
BgL_objz00_1658 = 
(BgL_objectz00_bglt)(BgL_nodez00_1654); 
{ /* ./Globalize/new-body.scm 57 */
long BgL_objzd2classzd2numz00_1659;
BgL_objzd2classzd2numz00_1659 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1658); 
{ /* ./Globalize/new-body.scm 57 */
obj_t BgL_arg2017z00_1660;
{ /* ./Globalize/new-body.scm 57 */
int BgL_auxz00_2908;
BgL_auxz00_2908 = 
(int)(((long)1)); 
BgL_arg2017z00_1660 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_2908); } 
{ /* ./Globalize/new-body.scm 57 */
int BgL_offsetz00_1663;
BgL_offsetz00_1663 = 
(int)(BgL_objzd2classzd2numz00_1659); 
{ /* ./Globalize/new-body.scm 57 */
long BgL_offsetz00_1664;
{ /* ./Globalize/new-body.scm 57 */
long BgL_auxz00_2912;
BgL_auxz00_2912 = 
(long)(BgL_offsetz00_1663); 
BgL_offsetz00_1664 = 
(BgL_auxz00_2912-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 57 */
long BgL_modz00_1665;
{ /* ./Globalize/new-body.scm 57 */
int BgL_arg2028z00_1666;
BgL_arg2028z00_1666 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 57 */
long BgL_n2z00_1674;
BgL_n2z00_1674 = 
(long)(BgL_arg2028z00_1666); 
BgL_modz00_1665 = 
(BgL_offsetz00_1664/BgL_n2z00_1674); } } 
{ /* ./Globalize/new-body.scm 57 */
long BgL_restz00_1667;
{ /* ./Globalize/new-body.scm 57 */
int BgL_arg2024z00_1668;
BgL_arg2024z00_1668 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 57 */
long BgL_n2z00_1677;
BgL_n2z00_1677 = 
(long)(BgL_arg2024z00_1668); 
BgL_restz00_1667 = 
(BgL_offsetz00_1664%BgL_n2z00_1677); } } 
{ /* ./Globalize/new-body.scm 57 */

{ /* ./Globalize/new-body.scm 57 */
obj_t BgL_bucketz00_1669;
{ /* ./Globalize/new-body.scm 57 */
int BgL_kz00_1679;
BgL_kz00_1679 = 
(int)(BgL_modz00_1665); 
BgL_bucketz00_1669 = 
VECTOR_REF(BgL_arg2017z00_1660,BgL_kz00_1679); } 
{ /* ./Globalize/new-body.scm 57 */
int BgL_kz00_1681;
BgL_kz00_1681 = 
(int)(BgL_restz00_1667); 
BgL_method3079z00_1657 = 
VECTOR_REF(BgL_bucketz00_1669,BgL_kz00_1681); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 57 */
obj_t BgL_auxz00_2925;
BgL_auxz00_2925 = 
PROCEDURE_ENTRY(BgL_method3079z00_1657)(BgL_method3079z00_1657, 
(obj_t)(BgL_nodez00_1654), BgL_localz00_3, BgL_localz00_3, BEOA); 
BgL_res4152z00_1682 = 
(BgL_nodez00_bglt)(BgL_auxz00_2925); } } } 
BgL_newzd2bodyzd2_878 = BgL_res4152z00_1682; } 
{ /* ./Globalize/new-body.scm 57 */

{ 
obj_t BgL_l3037z00_879;
BgL_l3037z00_879 = BgL_obindingsz00_877; 
BgL_forzd2each3038zd2_880:
{ /* ./Globalize/new-body.scm 61 */
bool_t BgL_test3142z00_881;
BgL_test3142z00_881 = 
PAIRP(BgL_l3037z00_879); 
if(BgL_test3142z00_881)
{ /* ./Globalize/new-body.scm 61 */
{ /* ./Globalize/new-body.scm 62 */
obj_t BgL_fz00_882;
BgL_fz00_882 = 
CAR(BgL_l3037z00_879); 
{ /* ./Globalize/new-body.scm 63 */
bool_t BgL_test3143z00_883;
{ /* ./Globalize/new-body.scm 63 */
long BgL_arg3151z00_887;
{ /* ./Globalize/new-body.scm 63 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2790z00_1686;
{ /* ./Globalize/new-body.scm 63 */
BgL_valuez00_bglt BgL_auxz00_2933;
{ /* ./Globalize/new-body.scm 63 */
BgL_variablez00_bglt BgL_obj1100z00_1685;
BgL_obj1100z00_1685 = 
(BgL_variablez00_bglt)(BgL_fz00_882); 
BgL_auxz00_2933 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1685))->BgL_valuez00); } 
BgL_obj2790z00_1686 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_2933); } 
{ 
obj_t BgL_auxz00_2937;
{ /* ./Globalize/new-body.scm 63 */
BgL_objectz00_bglt BgL_auxz00_2938;
BgL_auxz00_2938 = 
(BgL_objectz00_bglt)(BgL_obj2790z00_1686); 
BgL_auxz00_2937 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2938); } 
BgL_arg3151z00_887 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2937))->BgL_bmarkz00); } } 
{ /* ./Globalize/new-body.scm 63 */
long BgL_n2z00_1688;
BgL_n2z00_1688 = BGl_za2roundza2z00zzglobaliza7e_newzd2bodyz75; 
BgL_test3143z00_883 = 
(BgL_arg3151z00_887==BgL_n2z00_1688); } } 
if(BgL_test3143z00_883)
{ /* ./Globalize/new-body.scm 63 */BFALSE; }  else 
{ /* ./Globalize/new-body.scm 64 */
BgL_valuez00_bglt BgL_funz00_884;
{ /* ./Globalize/new-body.scm 64 */
BgL_variablez00_bglt BgL_obj1100z00_1689;
BgL_obj1100z00_1689 = 
(BgL_variablez00_bglt)(BgL_fz00_882); 
BgL_funz00_884 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1689))->BgL_valuez00); } 
{ /* ./Globalize/new-body.scm 64 */
obj_t BgL_bodyz00_885;
{ /* ./Globalize/new-body.scm 65 */
BgL_sfunz00_bglt BgL_obj1370z00_1690;
BgL_obj1370z00_1690 = 
(BgL_sfunz00_bglt)(BgL_funz00_884); 
BgL_bodyz00_885 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1690))->BgL_bodyz00); } 
{ /* ./Globalize/new-body.scm 65 */

{ /* ./Globalize/new-body.scm 66 */
BgL_nodez00_bglt BgL_arg3145z00_886;
{ /* ./Globalize/new-body.scm 66 */
BgL_nodez00_bglt BgL_res4155z00_1719;
{ /* ./Globalize/new-body.scm 66 */
BgL_nodez00_bglt BgL_nodez00_1691;
BgL_nodez00_1691 = 
(BgL_nodez00_bglt)(BgL_bodyz00_885); 
{ /* ./Globalize/new-body.scm 66 */
obj_t BgL_method3079z00_1694;
{ /* ./Globalize/new-body.scm 66 */
BgL_objectz00_bglt BgL_objz00_1695;
BgL_objz00_1695 = 
(BgL_objectz00_bglt)(BgL_nodez00_1691); 
{ /* ./Globalize/new-body.scm 66 */
long BgL_objzd2classzd2numz00_1696;
BgL_objzd2classzd2numz00_1696 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1695); 
{ /* ./Globalize/new-body.scm 66 */
obj_t BgL_arg2017z00_1697;
{ /* ./Globalize/new-body.scm 66 */
int BgL_auxz00_2951;
BgL_auxz00_2951 = 
(int)(((long)1)); 
BgL_arg2017z00_1697 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_2951); } 
{ /* ./Globalize/new-body.scm 66 */
int BgL_offsetz00_1700;
BgL_offsetz00_1700 = 
(int)(BgL_objzd2classzd2numz00_1696); 
{ /* ./Globalize/new-body.scm 66 */
long BgL_offsetz00_1701;
{ /* ./Globalize/new-body.scm 66 */
long BgL_auxz00_2955;
BgL_auxz00_2955 = 
(long)(BgL_offsetz00_1700); 
BgL_offsetz00_1701 = 
(BgL_auxz00_2955-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 66 */
long BgL_modz00_1702;
{ /* ./Globalize/new-body.scm 66 */
int BgL_arg2028z00_1703;
BgL_arg2028z00_1703 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 66 */
long BgL_n2z00_1711;
BgL_n2z00_1711 = 
(long)(BgL_arg2028z00_1703); 
BgL_modz00_1702 = 
(BgL_offsetz00_1701/BgL_n2z00_1711); } } 
{ /* ./Globalize/new-body.scm 66 */
long BgL_restz00_1704;
{ /* ./Globalize/new-body.scm 66 */
int BgL_arg2024z00_1705;
BgL_arg2024z00_1705 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 66 */
long BgL_n2z00_1714;
BgL_n2z00_1714 = 
(long)(BgL_arg2024z00_1705); 
BgL_restz00_1704 = 
(BgL_offsetz00_1701%BgL_n2z00_1714); } } 
{ /* ./Globalize/new-body.scm 66 */

{ /* ./Globalize/new-body.scm 66 */
obj_t BgL_bucketz00_1706;
{ /* ./Globalize/new-body.scm 66 */
int BgL_kz00_1716;
BgL_kz00_1716 = 
(int)(BgL_modz00_1702); 
BgL_bucketz00_1706 = 
VECTOR_REF(BgL_arg2017z00_1697,BgL_kz00_1716); } 
{ /* ./Globalize/new-body.scm 66 */
int BgL_kz00_1718;
BgL_kz00_1718 = 
(int)(BgL_restz00_1704); 
BgL_method3079z00_1694 = 
VECTOR_REF(BgL_bucketz00_1706,BgL_kz00_1718); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 66 */
obj_t BgL_auxz00_2968;
BgL_auxz00_2968 = 
PROCEDURE_ENTRY(BgL_method3079z00_1694)(BgL_method3079z00_1694, 
(obj_t)(BgL_nodez00_1691), BgL_localz00_3, BgL_fz00_882, BEOA); 
BgL_res4155z00_1719 = 
(BgL_nodez00_bglt)(BgL_auxz00_2968); } } } 
BgL_arg3145z00_886 = BgL_res4155z00_1719; } 
{ /* ./Globalize/new-body.scm 66 */
BgL_sfunz00_bglt BgL_obj1373z00_1720;obj_t BgL_val1371z00_1721;
BgL_obj1373z00_1720 = 
(BgL_sfunz00_bglt)(BgL_funz00_884); 
BgL_val1371z00_1721 = 
(obj_t)(BgL_arg3145z00_886); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_1720))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_1721), BUNSPEC); } } } } } } } 
{ /* ./Globalize/new-body.scm 61 */
obj_t BgL_arg3159z00_889;
BgL_arg3159z00_889 = 
CDR(BgL_l3037z00_879); 
{ 
obj_t BgL_l3037z00_2977;
BgL_l3037z00_2977 = BgL_arg3159z00_889; 
BgL_l3037z00_879 = BgL_l3037z00_2977; 
goto BgL_forzd2each3038zd2_880;} } }  else 
{ /* ./Globalize/new-body.scm 61 */((bool_t)1); } } } 
{ /* ./Globalize/new-body.scm 69 */
obj_t BgL_nbindingsz00_890;
{ 
obj_t BgL_nbdingsz00_918;obj_t BgL_obdingsz00_919;
BgL_nbdingsz00_918 = BNIL; 
BgL_obdingsz00_919 = BgL_obindingsz00_877; 
BgL_loopz00_920:
{ /* ./Globalize/new-body.scm 72 */
bool_t BgL_test3221z00_921;
BgL_test3221z00_921 = 
NULLP(BgL_obdingsz00_919); 
if(BgL_test3221z00_921)
{ /* ./Globalize/new-body.scm 72 */
BgL_nbindingsz00_890 = BgL_nbdingsz00_918; }  else 
{ /* ./Globalize/new-body.scm 74 */
bool_t BgL_test3222z00_922;
{ /* ./Globalize/new-body.scm 75 */
long BgL_arg3237z00_927;
{ /* ./Globalize/new-body.scm 74 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2790z00_1726;
{ /* ./Globalize/new-body.scm 75 */
BgL_valuez00_bglt BgL_auxz00_2980;
{ /* ./Globalize/new-body.scm 74 */
BgL_variablez00_bglt BgL_obj1100z00_1725;
{ /* ./Globalize/new-body.scm 75 */
obj_t BgL_auxz00_2981;
BgL_auxz00_2981 = 
CAR(BgL_obdingsz00_919); 
BgL_obj1100z00_1725 = 
(BgL_variablez00_bglt)(BgL_auxz00_2981); } 
BgL_auxz00_2980 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1725))->BgL_valuez00); } 
BgL_obj2790z00_1726 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_2980); } 
{ 
obj_t BgL_auxz00_2986;
{ /* ./Globalize/new-body.scm 74 */
BgL_objectz00_bglt BgL_auxz00_2987;
BgL_auxz00_2987 = 
(BgL_objectz00_bglt)(BgL_obj2790z00_1726); 
BgL_auxz00_2986 = 
BGL_OBJECT_WIDENING(BgL_auxz00_2987); } 
BgL_arg3237z00_927 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_2986))->BgL_bmarkz00); } } 
{ /* ./Globalize/new-body.scm 74 */
long BgL_n2z00_1728;
BgL_n2z00_1728 = BGl_za2roundza2z00zzglobaliza7e_newzd2bodyz75; 
BgL_test3222z00_922 = 
(BgL_arg3237z00_927==BgL_n2z00_1728); } } 
if(BgL_test3222z00_922)
{ /* ./Globalize/new-body.scm 74 */
{ /* ./Globalize/new-body.scm 78 */
obj_t BgL_arg3224z00_923;
BgL_arg3224z00_923 = 
CDR(BgL_obdingsz00_919); 
{ 
obj_t BgL_obdingsz00_2994;
BgL_obdingsz00_2994 = BgL_arg3224z00_923; 
BgL_obdingsz00_919 = BgL_obdingsz00_2994; 
goto BgL_loopz00_920;} } }  else 
{ /* ./Globalize/new-body.scm 74 */
{ /* ./Globalize/new-body.scm 80 */
obj_t BgL_arg3228z00_924;obj_t BgL_arg3229z00_925;
{ /* ./Globalize/new-body.scm 80 */
obj_t BgL_arg3232z00_926;
BgL_arg3232z00_926 = 
CAR(BgL_obdingsz00_919); 
BgL_arg3228z00_924 = 
MAKE_PAIR(BgL_arg3232z00_926, BgL_nbdingsz00_918); } 
BgL_arg3229z00_925 = 
CDR(BgL_obdingsz00_919); 
{ 
obj_t BgL_obdingsz00_2999;obj_t BgL_nbdingsz00_2998;
BgL_nbdingsz00_2998 = BgL_arg3228z00_924; 
BgL_obdingsz00_2999 = BgL_arg3229z00_925; 
BgL_obdingsz00_919 = BgL_obdingsz00_2999; 
BgL_nbdingsz00_918 = BgL_nbdingsz00_2998; 
goto BgL_loopz00_920;} } } } } } 
{ /* ./Globalize/new-body.scm 82 */
obj_t BgL_new2zd2bodyzd2_891;
{ /* ./Globalize/new-body.scm 82 */
bool_t BgL_test3208z00_912;
BgL_test3208z00_912 = 
NULLP(BgL_nbindingsz00_890); 
if(BgL_test3208z00_912)
{ /* ./Globalize/new-body.scm 82 */
BgL_new2zd2bodyzd2_891 = 
(obj_t)(BgL_newzd2bodyzd2_878); }  else 
{ /* ./Globalize/new-body.scm 85 */
obj_t BgL_arg3210z00_913;BgL_typez00_bglt BgL_arg3211z00_914;obj_t BgL_arg3214z00_916;BgL_nodez00_bglt BgL_arg3215z00_917;
{ /* ./Globalize/new-body.scm 85 */
BgL_nodez00_bglt BgL_obj1560z00_1733;
BgL_obj1560z00_1733 = 
(BgL_nodez00_bglt)(BgL_oldzd2bodyzd2_876); 
BgL_arg3210z00_913 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1560z00_1733))->BgL_locz00); } 
{ /* ./Globalize/new-body.scm 86 */
BgL_nodez00_bglt BgL_obj1561z00_1734;
BgL_obj1561z00_1734 = 
(BgL_nodez00_bglt)(BgL_oldzd2bodyzd2_876); 
BgL_arg3211z00_914 = 
(((BgL_nodez00_bglt)CREF(BgL_obj1561z00_1734))->BgL_typez00); } 
BgL_arg3214z00_916 = BgL_nbindingsz00_890; 
BgL_arg3215z00_917 = BgL_newzd2bodyzd2_878; 
{ /* ./Globalize/new-body.scm 84 */
BgL_letzd2funzd2_bglt BgL_auxz00_3007;
BgL_auxz00_3007 = 
BGl_makezd2letzd2funz00zzast_nodez00(BgL_arg3210z00_913, BgL_arg3211z00_914, BUNSPEC, 
BINT(((long)-1)), BgL_arg3214z00_916, BgL_arg3215z00_917); 
BgL_new2zd2bodyzd2_891 = 
(obj_t)(BgL_auxz00_3007); } } } 
{ 
obj_t BgL_nctoz00_892;obj_t BgL_nbindingsz00_893;
{ /* ./Globalize/new-body.scm 92 */
obj_t BgL_arg3164z00_895;
{ /* ./Globalize/new-body.scm 92 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2750z00_1735;
BgL_obj2750z00_1735 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_funz00_874); 
{ 
obj_t BgL_auxz00_3012;
{ /* ./Globalize/new-body.scm 92 */
BgL_objectz00_bglt BgL_auxz00_3013;
BgL_auxz00_3013 = 
(BgL_objectz00_bglt)(BgL_obj2750z00_1735); 
BgL_auxz00_3012 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3013); } 
BgL_arg3164z00_895 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3012))->BgL_ctoz00); } } 
BgL_nctoz00_892 = BgL_arg3164z00_895; 
BgL_nbindingsz00_893 = BgL_nbindingsz00_890; 
BgL_loopz00_894:
{ /* ./Globalize/new-body.scm 94 */
bool_t BgL_test3167z00_896;
BgL_test3167z00_896 = 
NULLP(BgL_nbindingsz00_893); 
if(BgL_test3167z00_896)
{ /* ./Globalize/new-body.scm 95 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2752z00_1737;obj_t BgL_val2751z00_1738;
BgL_obj2752z00_1737 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_funz00_874); 
BgL_val2751z00_1738 = BgL_nctoz00_892; 
{ 
obj_t BgL_auxz00_3020;
{ /* ./Globalize/new-body.scm 95 */
BgL_objectz00_bglt BgL_auxz00_3021;
BgL_auxz00_3021 = 
(BgL_objectz00_bglt)(BgL_obj2752z00_1737); 
BgL_auxz00_3020 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3021); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3020))->BgL_ctoz00) = ((obj_t)BgL_val2751z00_1738), BUNSPEC); } }  else 
{ 
obj_t BgL_nctoz00_897;obj_t BgL_lctoz00_898;
{ /* ./Globalize/new-body.scm 98 */
obj_t BgL_arg3170z00_900;
{ /* ./Globalize/new-body.scm 97 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2750z00_1741;
{ /* ./Globalize/new-body.scm 98 */
BgL_valuez00_bglt BgL_auxz00_3025;
{ /* ./Globalize/new-body.scm 97 */
BgL_variablez00_bglt BgL_obj1100z00_1740;
{ /* ./Globalize/new-body.scm 98 */
obj_t BgL_auxz00_3026;
BgL_auxz00_3026 = 
CAR(BgL_nbindingsz00_893); 
BgL_obj1100z00_1740 = 
(BgL_variablez00_bglt)(BgL_auxz00_3026); } 
BgL_auxz00_3025 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1740))->BgL_valuez00); } 
BgL_obj2750z00_1741 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_3025); } 
{ 
obj_t BgL_auxz00_3031;
{ /* ./Globalize/new-body.scm 97 */
BgL_objectz00_bglt BgL_auxz00_3032;
BgL_auxz00_3032 = 
(BgL_objectz00_bglt)(BgL_obj2750z00_1741); 
BgL_auxz00_3031 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3032); } 
BgL_arg3170z00_900 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3031))->BgL_ctoz00); } } 
BgL_nctoz00_897 = BgL_nctoz00_892; 
BgL_lctoz00_898 = BgL_arg3170z00_900; 
BgL_liipz00_899:
{ /* ./Globalize/new-body.scm 100 */
bool_t BgL_test3179z00_903;
BgL_test3179z00_903 = 
NULLP(BgL_lctoz00_898); 
if(BgL_test3179z00_903)
{ /* ./Globalize/new-body.scm 100 */
{ /* ./Globalize/new-body.scm 101 */
obj_t BgL_arg3181z00_904;
BgL_arg3181z00_904 = 
CDR(BgL_nbindingsz00_893); 
{ 
obj_t BgL_nbindingsz00_3040;obj_t BgL_nctoz00_3039;
BgL_nctoz00_3039 = BgL_nctoz00_897; 
BgL_nbindingsz00_3040 = BgL_arg3181z00_904; 
BgL_nbindingsz00_893 = BgL_nbindingsz00_3040; 
BgL_nctoz00_892 = BgL_nctoz00_3039; 
goto BgL_loopz00_894;} } }  else 
{ /* ./Globalize/new-body.scm 102 */
bool_t BgL_test3184z00_905;
{ /* ./Globalize/new-body.scm 102 */
obj_t BgL_auxz00_3041;
BgL_auxz00_3041 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_lctoz00_898), BgL_nctoz00_897); 
BgL_test3184z00_905 = 
CBOOL(BgL_auxz00_3041); } 
if(BgL_test3184z00_905)
{ /* ./Globalize/new-body.scm 102 */
{ /* ./Globalize/new-body.scm 103 */
obj_t BgL_arg3186z00_906;
BgL_arg3186z00_906 = 
CDR(BgL_lctoz00_898); 
{ 
obj_t BgL_lctoz00_3047;
BgL_lctoz00_3047 = BgL_arg3186z00_906; 
BgL_lctoz00_898 = BgL_lctoz00_3047; 
goto BgL_liipz00_899;} } }  else 
{ /* ./Globalize/new-body.scm 102 */
{ /* ./Globalize/new-body.scm 105 */
obj_t BgL_arg3190z00_907;obj_t BgL_arg3191z00_908;
{ /* ./Globalize/new-body.scm 105 */
obj_t BgL_arg3194z00_909;
BgL_arg3194z00_909 = 
CAR(BgL_lctoz00_898); 
BgL_arg3190z00_907 = 
MAKE_PAIR(BgL_arg3194z00_909, BgL_nctoz00_897); } 
BgL_arg3191z00_908 = 
CDR(BgL_lctoz00_898); 
{ 
obj_t BgL_lctoz00_3052;obj_t BgL_nctoz00_3051;
BgL_nctoz00_3051 = BgL_arg3190z00_907; 
BgL_lctoz00_3052 = BgL_arg3191z00_908; 
BgL_lctoz00_898 = BgL_lctoz00_3052; 
BgL_nctoz00_897 = BgL_nctoz00_3051; 
goto BgL_liipz00_899;} } } } } } } } } } 
{ /* ./Globalize/new-body.scm 116 */
BgL_nodez00_bglt BgL_arg3205z00_911;
{ /* ./Globalize/new-body.scm 116 */
BgL_nodez00_bglt BgL_res4158z00_1776;
{ /* ./Globalize/new-body.scm 116 */
BgL_nodez00_bglt BgL_nodez00_1748;
BgL_nodez00_1748 = 
(BgL_nodez00_bglt)(BgL_new2zd2bodyzd2_891); 
{ /* ./Globalize/new-body.scm 116 */
obj_t BgL_method3079z00_1751;
{ /* ./Globalize/new-body.scm 116 */
BgL_objectz00_bglt BgL_objz00_1752;
BgL_objz00_1752 = 
(BgL_objectz00_bglt)(BgL_nodez00_1748); 
{ /* ./Globalize/new-body.scm 116 */
long BgL_objzd2classzd2numz00_1753;
BgL_objzd2classzd2numz00_1753 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1752); 
{ /* ./Globalize/new-body.scm 116 */
obj_t BgL_arg2017z00_1754;
{ /* ./Globalize/new-body.scm 116 */
int BgL_auxz00_3056;
BgL_auxz00_3056 = 
(int)(((long)1)); 
BgL_arg2017z00_1754 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3056); } 
{ /* ./Globalize/new-body.scm 116 */
int BgL_offsetz00_1757;
BgL_offsetz00_1757 = 
(int)(BgL_objzd2classzd2numz00_1753); 
{ /* ./Globalize/new-body.scm 116 */
long BgL_offsetz00_1758;
{ /* ./Globalize/new-body.scm 116 */
long BgL_auxz00_3060;
BgL_auxz00_3060 = 
(long)(BgL_offsetz00_1757); 
BgL_offsetz00_1758 = 
(BgL_auxz00_3060-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 116 */
long BgL_modz00_1759;
{ /* ./Globalize/new-body.scm 116 */
int BgL_arg2028z00_1760;
BgL_arg2028z00_1760 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 116 */
long BgL_n2z00_1768;
BgL_n2z00_1768 = 
(long)(BgL_arg2028z00_1760); 
BgL_modz00_1759 = 
(BgL_offsetz00_1758/BgL_n2z00_1768); } } 
{ /* ./Globalize/new-body.scm 116 */
long BgL_restz00_1761;
{ /* ./Globalize/new-body.scm 116 */
int BgL_arg2024z00_1762;
BgL_arg2024z00_1762 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 116 */
long BgL_n2z00_1771;
BgL_n2z00_1771 = 
(long)(BgL_arg2024z00_1762); 
BgL_restz00_1761 = 
(BgL_offsetz00_1758%BgL_n2z00_1771); } } 
{ /* ./Globalize/new-body.scm 116 */

{ /* ./Globalize/new-body.scm 116 */
obj_t BgL_bucketz00_1763;
{ /* ./Globalize/new-body.scm 116 */
int BgL_kz00_1773;
BgL_kz00_1773 = 
(int)(BgL_modz00_1759); 
BgL_bucketz00_1763 = 
VECTOR_REF(BgL_arg2017z00_1754,BgL_kz00_1773); } 
{ /* ./Globalize/new-body.scm 116 */
int BgL_kz00_1775;
BgL_kz00_1775 = 
(int)(BgL_restz00_1761); 
BgL_method3079z00_1751 = 
VECTOR_REF(BgL_bucketz00_1763,BgL_kz00_1775); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 116 */
obj_t BgL_auxz00_3073;
BgL_auxz00_3073 = 
PROCEDURE_ENTRY(BgL_method3079z00_1751)(BgL_method3079z00_1751, 
(obj_t)(BgL_nodez00_1748), BgL_localz00_3, BgL_localz00_3, BEOA); 
BgL_res4158z00_1776 = 
(BgL_nodez00_bglt)(BgL_auxz00_3073); } } } 
BgL_arg3205z00_911 = BgL_res4158z00_1776; } 
{ /* ./Globalize/new-body.scm 116 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2789z00_1777;obj_t BgL_val2788z00_1778;
BgL_obj2789z00_1777 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_funz00_874); 
BgL_val2788z00_1778 = 
(obj_t)(BgL_arg3205z00_911); 
{ 
obj_t BgL_auxz00_3080;
{ /* ./Globalize/new-body.scm 116 */
BgL_objectz00_bglt BgL_auxz00_3081;
BgL_auxz00_3081 = 
(BgL_objectz00_bglt)(BgL_obj2789z00_1777); 
BgL_auxz00_3080 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3081); } 
return 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3080))->BgL_newzd2bodyzd2) = ((obj_t)BgL_val2788z00_1778), BUNSPEC);} } } } } } } } } } } 
}



/* <anonymous:3252> */
obj_t BGl_zc3anonymousza33252ze3z83zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2687, obj_t BgL_gz00_2689)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 53 */
{ /* ./Globalize/new-body.scm 54 */
obj_t BgL_localz00_2688;
{ /* ./Globalize/new-body.scm 54 */
int BgL_auxz00_3085;
BgL_auxz00_3085 = 
(int)(((long)0)); 
BgL_localz00_2688 = 
PROCEDURE_REF(BgL_envz00_2687, BgL_auxz00_3085); } 
{ 
obj_t BgL_gz00_932;
{ /* ./Globalize/new-body.scm 54 */
bool_t BgL_auxz00_3088;
BgL_gz00_932 = BgL_gz00_2689; 
{ /* ./Globalize/new-body.scm 54 */
bool_t BgL_testz00_3089;
{ /* ./Globalize/new-body.scm 54 */
obj_t BgL_auxz00_3090;
{ /* ./Globalize/new-body.scm 54 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2766z00_1653;
{ /* ./Globalize/new-body.scm 54 */
BgL_valuez00_bglt BgL_auxz00_3091;
{ /* ./Globalize/new-body.scm 54 */
BgL_variablez00_bglt BgL_obj1100z00_1652;
BgL_obj1100z00_1652 = 
(BgL_variablez00_bglt)(BgL_gz00_932); 
BgL_auxz00_3091 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1652))->BgL_valuez00); } 
BgL_obj2766z00_1653 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_3091); } 
{ 
obj_t BgL_auxz00_3095;
{ /* ./Globalize/new-body.scm 54 */
BgL_objectz00_bglt BgL_auxz00_3096;
BgL_auxz00_3096 = 
(BgL_objectz00_bglt)(BgL_obj2766z00_1653); 
BgL_auxz00_3095 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3096); } 
BgL_auxz00_3090 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3095))->BgL_ownerz00); } } 
BgL_testz00_3089 = 
(BgL_auxz00_3090==BgL_localz00_2688); } 
if(BgL_testz00_3089)
{ /* ./Globalize/new-body.scm 54 */
BgL_auxz00_3088 = ((bool_t)0)
; }  else 
{ /* ./Globalize/new-body.scm 54 */
BgL_auxz00_3088 = ((bool_t)1)
; } } 
return 
BBOOL(BgL_auxz00_3088);} } } } 
}



/* is-in? */
bool_t BGl_iszd2inzf3z21zzglobaliza7e_newzd2bodyz75(obj_t BgL_f1z00_4, obj_t BgL_f2z00_5)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 123 */
{ /* ./Globalize/new-body.scm 124 */
BgL_valuez00_bglt BgL_infoz00_938;
{ /* ./Globalize/new-body.scm 124 */
BgL_variablez00_bglt BgL_obj1100z00_1779;
BgL_obj1100z00_1779 = 
(BgL_variablez00_bglt)(BgL_f1z00_4); 
BgL_infoz00_938 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1779))->BgL_valuez00); } 
{ /* ./Globalize/new-body.scm 126 */
bool_t BgL_test3266z00_939;
{ /* ./Globalize/new-body.scm 126 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2740z00_1780;
BgL_obj2740z00_1780 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_938); 
{ 
obj_t BgL_auxz00_3105;
{ /* ./Globalize/new-body.scm 126 */
BgL_objectz00_bglt BgL_auxz00_3106;
BgL_auxz00_3106 = 
(BgL_objectz00_bglt)(BgL_obj2740z00_1780); 
BgL_auxz00_3105 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3106); } 
BgL_test3266z00_939 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3105))->BgL_gzf3zf3); } } 
if(BgL_test3266z00_939)
{ /* ./Globalize/new-body.scm 126 */
return ((bool_t)0);}  else 
{ /* ./Globalize/new-body.scm 128 */
bool_t BgL_test3267z00_940;
{ /* ./Globalize/new-body.scm 128 */
obj_t BgL_arg3280z00_945;
{ /* ./Globalize/new-body.scm 128 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2760z00_1781;
BgL_obj2760z00_1781 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_938); 
{ 
obj_t BgL_auxz00_3112;
{ /* ./Globalize/new-body.scm 128 */
BgL_objectz00_bglt BgL_auxz00_3113;
BgL_auxz00_3113 = 
(BgL_objectz00_bglt)(BgL_obj2760z00_1781); 
BgL_auxz00_3112 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3113); } 
BgL_arg3280z00_945 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3112))->BgL_integratorz00); } } 
BgL_test3267z00_940 = 
BGl_iszd2azf3z21zz__objectz00(BgL_arg3280z00_945, BGl_localz00zzast_varz00); } 
if(BgL_test3267z00_940)
{ /* ./Globalize/new-body.scm 130 */
bool_t BgL_testz00_3119;
{ /* ./Globalize/new-body.scm 130 */
obj_t BgL_auxz00_3120;
{ /* ./Globalize/new-body.scm 130 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2760z00_1783;
BgL_obj2760z00_1783 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_938); 
{ 
obj_t BgL_auxz00_3122;
{ /* ./Globalize/new-body.scm 130 */
BgL_objectz00_bglt BgL_auxz00_3123;
BgL_auxz00_3123 = 
(BgL_objectz00_bglt)(BgL_obj2760z00_1783); 
BgL_auxz00_3122 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3123); } 
BgL_auxz00_3120 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3122))->BgL_integratorz00); } } 
BgL_testz00_3119 = 
(BgL_auxz00_3120==BgL_f2z00_5); } 
if(BgL_testz00_3119)
{ /* ./Globalize/new-body.scm 130 */
return ((bool_t)1);}  else 
{ /* ./Globalize/new-body.scm 132 */
bool_t BgL_testz00_3128;
{ /* ./Globalize/new-body.scm 132 */
obj_t BgL_auxz00_3129;
{ /* ./Globalize/new-body.scm 132 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2760z00_1784;
BgL_obj2760z00_1784 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_infoz00_938); 
{ 
obj_t BgL_auxz00_3131;
{ /* ./Globalize/new-body.scm 132 */
BgL_objectz00_bglt BgL_auxz00_3132;
BgL_auxz00_3132 = 
(BgL_objectz00_bglt)(BgL_obj2760z00_1784); 
BgL_auxz00_3131 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3132); } 
BgL_auxz00_3129 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3131))->BgL_integratorz00); } } 
BgL_testz00_3128 = 
BGl_iszd2inzf3z21zzglobaliza7e_newzd2bodyz75(BgL_auxz00_3129, BgL_f2z00_5); } 
if(BgL_testz00_3128)
{ /* ./Globalize/new-body.scm 132 */
return ((bool_t)1);}  else 
{ /* ./Globalize/new-body.scm 132 */
return ((bool_t)0);} } }  else 
{ /* ./Globalize/new-body.scm 128 */
return ((bool_t)1);} } } } } 
}



/* rem*! */
obj_t BGl_remza2z12zb0zzglobaliza7e_newzd2bodyz75(obj_t BgL_nodeza2za2_72, obj_t BgL_ownerz00_73, obj_t BgL_currentz00_74)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 363 */
{ 
obj_t BgL_nodeza2za2_946;
BgL_nodeza2za2_946 = BgL_nodeza2za2_72; 
BgL_loopz00_947:
{ /* ./Globalize/new-body.scm 365 */
bool_t BgL_test3286z00_948;
BgL_test3286z00_948 = 
NULLP(BgL_nodeza2za2_946); 
if(BgL_test3286z00_948)
{ /* ./Globalize/new-body.scm 365 */
return 
CNST_TABLE_REF(((long)0));}  else 
{ /* ./Globalize/new-body.scm 365 */
{ /* ./Globalize/new-body.scm 368 */
BgL_nodez00_bglt BgL_arg3288z00_949;
{ /* ./Globalize/new-body.scm 368 */
obj_t BgL_arg3291z00_950;
BgL_arg3291z00_950 = 
CAR(BgL_nodeza2za2_946); 
{ /* ./Globalize/new-body.scm 368 */
BgL_nodez00_bglt BgL_res4161z00_1815;
{ /* ./Globalize/new-body.scm 368 */
BgL_nodez00_bglt BgL_nodez00_1787;
BgL_nodez00_1787 = 
(BgL_nodez00_bglt)(BgL_arg3291z00_950); 
{ /* ./Globalize/new-body.scm 368 */
obj_t BgL_method3079z00_1790;
{ /* ./Globalize/new-body.scm 368 */
BgL_objectz00_bglt BgL_objz00_1791;
BgL_objz00_1791 = 
(BgL_objectz00_bglt)(BgL_nodez00_1787); 
{ /* ./Globalize/new-body.scm 368 */
long BgL_objzd2classzd2numz00_1792;
BgL_objzd2classzd2numz00_1792 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1791); 
{ /* ./Globalize/new-body.scm 368 */
obj_t BgL_arg2017z00_1793;
{ /* ./Globalize/new-body.scm 368 */
int BgL_auxz00_3144;
BgL_auxz00_3144 = 
(int)(((long)1)); 
BgL_arg2017z00_1793 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3144); } 
{ /* ./Globalize/new-body.scm 368 */
int BgL_offsetz00_1796;
BgL_offsetz00_1796 = 
(int)(BgL_objzd2classzd2numz00_1792); 
{ /* ./Globalize/new-body.scm 368 */
long BgL_offsetz00_1797;
{ /* ./Globalize/new-body.scm 368 */
long BgL_auxz00_3148;
BgL_auxz00_3148 = 
(long)(BgL_offsetz00_1796); 
BgL_offsetz00_1797 = 
(BgL_auxz00_3148-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 368 */
long BgL_modz00_1798;
{ /* ./Globalize/new-body.scm 368 */
int BgL_arg2028z00_1799;
BgL_arg2028z00_1799 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 368 */
long BgL_n2z00_1807;
BgL_n2z00_1807 = 
(long)(BgL_arg2028z00_1799); 
BgL_modz00_1798 = 
(BgL_offsetz00_1797/BgL_n2z00_1807); } } 
{ /* ./Globalize/new-body.scm 368 */
long BgL_restz00_1800;
{ /* ./Globalize/new-body.scm 368 */
int BgL_arg2024z00_1801;
BgL_arg2024z00_1801 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 368 */
long BgL_n2z00_1810;
BgL_n2z00_1810 = 
(long)(BgL_arg2024z00_1801); 
BgL_restz00_1800 = 
(BgL_offsetz00_1797%BgL_n2z00_1810); } } 
{ /* ./Globalize/new-body.scm 368 */

{ /* ./Globalize/new-body.scm 368 */
obj_t BgL_bucketz00_1802;
{ /* ./Globalize/new-body.scm 368 */
int BgL_kz00_1812;
BgL_kz00_1812 = 
(int)(BgL_modz00_1798); 
BgL_bucketz00_1802 = 
VECTOR_REF(BgL_arg2017z00_1793,BgL_kz00_1812); } 
{ /* ./Globalize/new-body.scm 368 */
int BgL_kz00_1814;
BgL_kz00_1814 = 
(int)(BgL_restz00_1800); 
BgL_method3079z00_1790 = 
VECTOR_REF(BgL_bucketz00_1802,BgL_kz00_1814); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 368 */
obj_t BgL_auxz00_3161;
BgL_auxz00_3161 = 
PROCEDURE_ENTRY(BgL_method3079z00_1790)(BgL_method3079z00_1790, 
(obj_t)(BgL_nodez00_1787), BgL_ownerz00_73, BgL_currentz00_74, BEOA); 
BgL_res4161z00_1815 = 
(BgL_nodez00_bglt)(BgL_auxz00_3161); } } } 
BgL_arg3288z00_949 = BgL_res4161z00_1815; } } 
{ /* ./Globalize/new-body.scm 368 */
obj_t BgL_objz00_1817;
BgL_objz00_1817 = 
(obj_t)(BgL_arg3288z00_949); 
SET_CAR(BgL_nodeza2za2_946, BgL_objz00_1817); } } 
{ /* ./Globalize/new-body.scm 369 */
obj_t BgL_arg3295z00_951;
BgL_arg3295z00_951 = 
CDR(BgL_nodeza2za2_946); 
{ 
obj_t BgL_nodeza2za2_3169;
BgL_nodeza2za2_3169 = BgL_arg3295z00_951; 
BgL_nodeza2za2_946 = BgL_nodeza2za2_3169; 
goto BgL_loopz00_947;} } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzglobaliza7e_newzd2bodyz75()
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_remz12zd2default3078zd2envz12zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_atomz00zzast_nodez00, BGl_proc4778z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_kwotez00zzast_nodez00, BGl_proc4779z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_varz00zzast_nodez00, BGl_proc4780z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_sequencez00zzast_nodez00, BGl_proc4781z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_appz00zzast_nodez00, BGl_proc4782z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_appzd2lyzd2zzast_nodez00, BGl_proc4783z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_funcallz00zzast_nodez00, BGl_proc4784z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_externz00zzast_nodez00, BGl_proc4785z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_castz00zzast_nodez00, BGl_proc4786z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_setqz00zzast_nodez00, BGl_proc4787z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_conditionalz00zzast_nodez00, BGl_proc4788z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_failz00zzast_nodez00, BGl_proc4789z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_selectz00zzast_nodez00, BGl_proc4790z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_letzd2funzd2zzast_nodez00, BGl_proc4791z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_letzd2varzd2zzast_nodez00, BGl_proc4792z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc4793z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc4794z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_makezd2boxzd2zzast_nodez00, BGl_proc4795z00zzglobaliza7e_newzd2bodyz75); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_boxzd2refzd2zzast_nodez00, BGl_proc4796z00zzglobaliza7e_newzd2bodyz75); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc4797z00zzglobaliza7e_newzd2bodyz75);} 
}



/* rem!-box-set!3119 */
obj_t BGl_remz12zd2boxzd2setz123119z00zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2710, obj_t BgL_nodez00_2711, obj_t BgL_ownerz00_2712, obj_t BgL_currentz00_2713)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 354 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1595;obj_t BgL_ownerz00_1596;obj_t BgL_currentz00_1597;
{ /* ./Globalize/new-body.scm 355 */
BgL_boxzd2setz12zc0_bglt BgL_auxz00_3191;
BgL_nodez00_1595 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2711); 
BgL_ownerz00_1596 = BgL_ownerz00_2712; 
BgL_currentz00_1597 = BgL_currentz00_2713; 
{ /* ./Globalize/new-body.scm 356 */
BgL_nodez00_bglt BgL_arg4116z00_1601;
{ /* ./Globalize/new-body.scm 356 */
BgL_varz00_bglt BgL_arg4119z00_1602;
BgL_arg4119z00_1602 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1595))->BgL_varz00); 
{ /* ./Globalize/new-body.scm 356 */
BgL_nodez00_bglt BgL_res4230z00_2616;
{ /* ./Globalize/new-body.scm 356 */
BgL_nodez00_bglt BgL_nodez00_2588;
BgL_nodez00_2588 = 
(BgL_nodez00_bglt)(BgL_arg4119z00_1602); 
{ /* ./Globalize/new-body.scm 356 */
obj_t BgL_method3079z00_2591;
{ /* ./Globalize/new-body.scm 356 */
BgL_objectz00_bglt BgL_objz00_2592;
BgL_objz00_2592 = 
(BgL_objectz00_bglt)(BgL_nodez00_2588); 
{ /* ./Globalize/new-body.scm 356 */
long BgL_objzd2classzd2numz00_2593;
BgL_objzd2classzd2numz00_2593 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2592); 
{ /* ./Globalize/new-body.scm 356 */
obj_t BgL_arg2017z00_2594;
{ /* ./Globalize/new-body.scm 356 */
int BgL_auxz00_3196;
BgL_auxz00_3196 = 
(int)(((long)1)); 
BgL_arg2017z00_2594 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3196); } 
{ /* ./Globalize/new-body.scm 356 */
int BgL_offsetz00_2597;
BgL_offsetz00_2597 = 
(int)(BgL_objzd2classzd2numz00_2593); 
{ /* ./Globalize/new-body.scm 356 */
long BgL_offsetz00_2598;
{ /* ./Globalize/new-body.scm 356 */
long BgL_auxz00_3200;
BgL_auxz00_3200 = 
(long)(BgL_offsetz00_2597); 
BgL_offsetz00_2598 = 
(BgL_auxz00_3200-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 356 */
long BgL_modz00_2599;
{ /* ./Globalize/new-body.scm 356 */
int BgL_arg2028z00_2600;
BgL_arg2028z00_2600 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 356 */
long BgL_n2z00_2608;
BgL_n2z00_2608 = 
(long)(BgL_arg2028z00_2600); 
BgL_modz00_2599 = 
(BgL_offsetz00_2598/BgL_n2z00_2608); } } 
{ /* ./Globalize/new-body.scm 356 */
long BgL_restz00_2601;
{ /* ./Globalize/new-body.scm 356 */
int BgL_arg2024z00_2602;
BgL_arg2024z00_2602 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 356 */
long BgL_n2z00_2611;
BgL_n2z00_2611 = 
(long)(BgL_arg2024z00_2602); 
BgL_restz00_2601 = 
(BgL_offsetz00_2598%BgL_n2z00_2611); } } 
{ /* ./Globalize/new-body.scm 356 */

{ /* ./Globalize/new-body.scm 356 */
obj_t BgL_bucketz00_2603;
{ /* ./Globalize/new-body.scm 356 */
int BgL_kz00_2613;
BgL_kz00_2613 = 
(int)(BgL_modz00_2599); 
BgL_bucketz00_2603 = 
VECTOR_REF(BgL_arg2017z00_2594,BgL_kz00_2613); } 
{ /* ./Globalize/new-body.scm 356 */
int BgL_kz00_2615;
BgL_kz00_2615 = 
(int)(BgL_restz00_2601); 
BgL_method3079z00_2591 = 
VECTOR_REF(BgL_bucketz00_2603,BgL_kz00_2615); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 356 */
obj_t BgL_auxz00_3213;
BgL_auxz00_3213 = 
PROCEDURE_ENTRY(BgL_method3079z00_2591)(BgL_method3079z00_2591, 
(obj_t)(BgL_nodez00_2588), BgL_ownerz00_1596, BgL_currentz00_1597, BEOA); 
BgL_res4230z00_2616 = 
(BgL_nodez00_bglt)(BgL_auxz00_3213); } } } 
BgL_arg4116z00_1601 = BgL_res4230z00_2616; } } 
{ /* ./Globalize/new-body.scm 356 */
BgL_boxzd2setz12zc0_bglt BgL_obj2642z00_2617;BgL_varz00_bglt BgL_val2641z00_2618;
BgL_obj2642z00_2617 = BgL_nodez00_1595; 
BgL_val2641z00_2618 = 
(BgL_varz00_bglt)(BgL_arg4116z00_1601); 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2642z00_2617))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2641z00_2618), BUNSPEC); } } 
{ /* ./Globalize/new-body.scm 357 */
BgL_nodez00_bglt BgL_arg4123z00_1603;
{ /* ./Globalize/new-body.scm 357 */
BgL_nodez00_bglt BgL_arg4126z00_1604;
BgL_arg4126z00_1604 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1595))->BgL_valuez00); 
{ /* ./Globalize/new-body.scm 357 */
BgL_nodez00_bglt BgL_res4233z00_2648;
{ /* ./Globalize/new-body.scm 357 */
obj_t BgL_method3079z00_2623;
{ /* ./Globalize/new-body.scm 357 */
BgL_objectz00_bglt BgL_objz00_2624;
BgL_objz00_2624 = 
(BgL_objectz00_bglt)(BgL_arg4126z00_1604); 
{ /* ./Globalize/new-body.scm 357 */
long BgL_objzd2classzd2numz00_2625;
BgL_objzd2classzd2numz00_2625 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2624); 
{ /* ./Globalize/new-body.scm 357 */
obj_t BgL_arg2017z00_2626;
{ /* ./Globalize/new-body.scm 357 */
int BgL_auxz00_3223;
BgL_auxz00_3223 = 
(int)(((long)1)); 
BgL_arg2017z00_2626 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3223); } 
{ /* ./Globalize/new-body.scm 357 */
int BgL_offsetz00_2629;
BgL_offsetz00_2629 = 
(int)(BgL_objzd2classzd2numz00_2625); 
{ /* ./Globalize/new-body.scm 357 */
long BgL_offsetz00_2630;
{ /* ./Globalize/new-body.scm 357 */
long BgL_auxz00_3227;
BgL_auxz00_3227 = 
(long)(BgL_offsetz00_2629); 
BgL_offsetz00_2630 = 
(BgL_auxz00_3227-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 357 */
long BgL_modz00_2631;
{ /* ./Globalize/new-body.scm 357 */
int BgL_arg2028z00_2632;
BgL_arg2028z00_2632 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 357 */
long BgL_n2z00_2640;
BgL_n2z00_2640 = 
(long)(BgL_arg2028z00_2632); 
BgL_modz00_2631 = 
(BgL_offsetz00_2630/BgL_n2z00_2640); } } 
{ /* ./Globalize/new-body.scm 357 */
long BgL_restz00_2633;
{ /* ./Globalize/new-body.scm 357 */
int BgL_arg2024z00_2634;
BgL_arg2024z00_2634 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 357 */
long BgL_n2z00_2643;
BgL_n2z00_2643 = 
(long)(BgL_arg2024z00_2634); 
BgL_restz00_2633 = 
(BgL_offsetz00_2630%BgL_n2z00_2643); } } 
{ /* ./Globalize/new-body.scm 357 */

{ /* ./Globalize/new-body.scm 357 */
obj_t BgL_bucketz00_2635;
{ /* ./Globalize/new-body.scm 357 */
int BgL_kz00_2645;
BgL_kz00_2645 = 
(int)(BgL_modz00_2631); 
BgL_bucketz00_2635 = 
VECTOR_REF(BgL_arg2017z00_2626,BgL_kz00_2645); } 
{ /* ./Globalize/new-body.scm 357 */
int BgL_kz00_2647;
BgL_kz00_2647 = 
(int)(BgL_restz00_2633); 
BgL_method3079z00_2623 = 
VECTOR_REF(BgL_bucketz00_2635,BgL_kz00_2647); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 357 */
obj_t BgL_auxz00_3240;
BgL_auxz00_3240 = 
PROCEDURE_ENTRY(BgL_method3079z00_2623)(BgL_method3079z00_2623, 
(obj_t)(BgL_arg4126z00_1604), BgL_ownerz00_1596, BgL_currentz00_1597, BEOA); 
BgL_res4233z00_2648 = 
(BgL_nodez00_bglt)(BgL_auxz00_3240); } } 
BgL_arg4123z00_1603 = BgL_res4233z00_2648; } } 
{ /* ./Globalize/new-body.scm 357 */
BgL_boxzd2setz12zc0_bglt BgL_obj2645z00_2649;BgL_nodez00_bglt BgL_val2644z00_2650;
BgL_obj2645z00_2649 = BgL_nodez00_1595; 
BgL_val2644z00_2650 = BgL_arg4123z00_1603; 
((((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2645z00_2649))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2644z00_2650), BUNSPEC); } } 
BgL_auxz00_3191 = BgL_nodez00_1595; 
return 
(obj_t)(BgL_auxz00_3191);} } } 
}



/* rem!-box-ref3117 */
obj_t BGl_remz12zd2boxzd2ref3117z12zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2714, obj_t BgL_nodez00_2715, obj_t BgL_ownerz00_2716, obj_t BgL_currentz00_2717)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 346 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1585;obj_t BgL_ownerz00_1586;obj_t BgL_currentz00_1587;
{ /* ./Globalize/new-body.scm 347 */
BgL_boxzd2refzd2_bglt BgL_auxz00_3248;
BgL_nodez00_1585 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2715); 
BgL_ownerz00_1586 = BgL_ownerz00_2716; 
BgL_currentz00_1587 = BgL_currentz00_2717; 
{ /* ./Globalize/new-body.scm 347 */
BgL_nodez00_bglt BgL_arg4103z00_2553;
{ /* ./Globalize/new-body.scm 347 */
BgL_varz00_bglt BgL_arg4106z00_2554;
BgL_arg4106z00_2554 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1585))->BgL_varz00); 
{ /* ./Globalize/new-body.scm 347 */
BgL_nodez00_bglt BgL_res4227z00_2584;
{ /* ./Globalize/new-body.scm 347 */
BgL_nodez00_bglt BgL_nodez00_2556;
BgL_nodez00_2556 = 
(BgL_nodez00_bglt)(BgL_arg4106z00_2554); 
{ /* ./Globalize/new-body.scm 347 */
obj_t BgL_method3079z00_2559;
{ /* ./Globalize/new-body.scm 347 */
BgL_objectz00_bglt BgL_objz00_2560;
BgL_objz00_2560 = 
(BgL_objectz00_bglt)(BgL_nodez00_2556); 
{ /* ./Globalize/new-body.scm 347 */
long BgL_objzd2classzd2numz00_2561;
BgL_objzd2classzd2numz00_2561 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2560); 
{ /* ./Globalize/new-body.scm 347 */
obj_t BgL_arg2017z00_2562;
{ /* ./Globalize/new-body.scm 347 */
int BgL_auxz00_3253;
BgL_auxz00_3253 = 
(int)(((long)1)); 
BgL_arg2017z00_2562 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3253); } 
{ /* ./Globalize/new-body.scm 347 */
int BgL_offsetz00_2565;
BgL_offsetz00_2565 = 
(int)(BgL_objzd2classzd2numz00_2561); 
{ /* ./Globalize/new-body.scm 347 */
long BgL_offsetz00_2566;
{ /* ./Globalize/new-body.scm 347 */
long BgL_auxz00_3257;
BgL_auxz00_3257 = 
(long)(BgL_offsetz00_2565); 
BgL_offsetz00_2566 = 
(BgL_auxz00_3257-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 347 */
long BgL_modz00_2567;
{ /* ./Globalize/new-body.scm 347 */
int BgL_arg2028z00_2568;
BgL_arg2028z00_2568 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 347 */
long BgL_n2z00_2576;
BgL_n2z00_2576 = 
(long)(BgL_arg2028z00_2568); 
BgL_modz00_2567 = 
(BgL_offsetz00_2566/BgL_n2z00_2576); } } 
{ /* ./Globalize/new-body.scm 347 */
long BgL_restz00_2569;
{ /* ./Globalize/new-body.scm 347 */
int BgL_arg2024z00_2570;
BgL_arg2024z00_2570 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 347 */
long BgL_n2z00_2579;
BgL_n2z00_2579 = 
(long)(BgL_arg2024z00_2570); 
BgL_restz00_2569 = 
(BgL_offsetz00_2566%BgL_n2z00_2579); } } 
{ /* ./Globalize/new-body.scm 347 */

{ /* ./Globalize/new-body.scm 347 */
obj_t BgL_bucketz00_2571;
{ /* ./Globalize/new-body.scm 347 */
int BgL_kz00_2581;
BgL_kz00_2581 = 
(int)(BgL_modz00_2567); 
BgL_bucketz00_2571 = 
VECTOR_REF(BgL_arg2017z00_2562,BgL_kz00_2581); } 
{ /* ./Globalize/new-body.scm 347 */
int BgL_kz00_2583;
BgL_kz00_2583 = 
(int)(BgL_restz00_2569); 
BgL_method3079z00_2559 = 
VECTOR_REF(BgL_bucketz00_2571,BgL_kz00_2583); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 347 */
obj_t BgL_auxz00_3270;
BgL_auxz00_3270 = 
PROCEDURE_ENTRY(BgL_method3079z00_2559)(BgL_method3079z00_2559, 
(obj_t)(BgL_nodez00_2556), BgL_ownerz00_1586, BgL_currentz00_1587, BEOA); 
BgL_res4227z00_2584 = 
(BgL_nodez00_bglt)(BgL_auxz00_3270); } } } 
BgL_arg4103z00_2553 = BgL_res4227z00_2584; } } 
{ /* ./Globalize/new-body.scm 347 */
BgL_boxzd2refzd2_bglt BgL_obj2616z00_2585;BgL_varz00_bglt BgL_val2615z00_2586;
BgL_obj2616z00_2585 = BgL_nodez00_1585; 
BgL_val2615z00_2586 = 
(BgL_varz00_bglt)(BgL_arg4103z00_2553); 
((((BgL_boxzd2refzd2_bglt)CREF(BgL_obj2616z00_2585))->BgL_varz00) = ((BgL_varz00_bglt)BgL_val2615z00_2586), BUNSPEC); } } 
BgL_auxz00_3248 = BgL_nodez00_1585; 
return 
(obj_t)(BgL_auxz00_3248);} } } 
}



/* rem!-make-box3115 */
obj_t BGl_remz12zd2makezd2box3115z12zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2718, obj_t BgL_nodez00_2719, obj_t BgL_ownerz00_2720, obj_t BgL_currentz00_2721)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 338 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1575;obj_t BgL_ownerz00_1576;obj_t BgL_currentz00_1577;
{ /* ./Globalize/new-body.scm 339 */
BgL_makezd2boxzd2_bglt BgL_auxz00_3279;
BgL_nodez00_1575 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2719); 
BgL_ownerz00_1576 = BgL_ownerz00_2720; 
BgL_currentz00_1577 = BgL_currentz00_2721; 
{ /* ./Globalize/new-body.scm 339 */
BgL_nodez00_bglt BgL_arg4090z00_2518;
{ /* ./Globalize/new-body.scm 339 */
BgL_nodez00_bglt BgL_arg4093z00_2519;
BgL_arg4093z00_2519 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1575))->BgL_valuez00); 
{ /* ./Globalize/new-body.scm 339 */
BgL_nodez00_bglt BgL_res4224z00_2549;
{ /* ./Globalize/new-body.scm 339 */
obj_t BgL_method3079z00_2524;
{ /* ./Globalize/new-body.scm 339 */
BgL_objectz00_bglt BgL_objz00_2525;
BgL_objz00_2525 = 
(BgL_objectz00_bglt)(BgL_arg4093z00_2519); 
{ /* ./Globalize/new-body.scm 339 */
long BgL_objzd2classzd2numz00_2526;
BgL_objzd2classzd2numz00_2526 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2525); 
{ /* ./Globalize/new-body.scm 339 */
obj_t BgL_arg2017z00_2527;
{ /* ./Globalize/new-body.scm 339 */
int BgL_auxz00_3283;
BgL_auxz00_3283 = 
(int)(((long)1)); 
BgL_arg2017z00_2527 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3283); } 
{ /* ./Globalize/new-body.scm 339 */
int BgL_offsetz00_2530;
BgL_offsetz00_2530 = 
(int)(BgL_objzd2classzd2numz00_2526); 
{ /* ./Globalize/new-body.scm 339 */
long BgL_offsetz00_2531;
{ /* ./Globalize/new-body.scm 339 */
long BgL_auxz00_3287;
BgL_auxz00_3287 = 
(long)(BgL_offsetz00_2530); 
BgL_offsetz00_2531 = 
(BgL_auxz00_3287-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 339 */
long BgL_modz00_2532;
{ /* ./Globalize/new-body.scm 339 */
int BgL_arg2028z00_2533;
BgL_arg2028z00_2533 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 339 */
long BgL_n2z00_2541;
BgL_n2z00_2541 = 
(long)(BgL_arg2028z00_2533); 
BgL_modz00_2532 = 
(BgL_offsetz00_2531/BgL_n2z00_2541); } } 
{ /* ./Globalize/new-body.scm 339 */
long BgL_restz00_2534;
{ /* ./Globalize/new-body.scm 339 */
int BgL_arg2024z00_2535;
BgL_arg2024z00_2535 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 339 */
long BgL_n2z00_2544;
BgL_n2z00_2544 = 
(long)(BgL_arg2024z00_2535); 
BgL_restz00_2534 = 
(BgL_offsetz00_2531%BgL_n2z00_2544); } } 
{ /* ./Globalize/new-body.scm 339 */

{ /* ./Globalize/new-body.scm 339 */
obj_t BgL_bucketz00_2536;
{ /* ./Globalize/new-body.scm 339 */
int BgL_kz00_2546;
BgL_kz00_2546 = 
(int)(BgL_modz00_2532); 
BgL_bucketz00_2536 = 
VECTOR_REF(BgL_arg2017z00_2527,BgL_kz00_2546); } 
{ /* ./Globalize/new-body.scm 339 */
int BgL_kz00_2548;
BgL_kz00_2548 = 
(int)(BgL_restz00_2534); 
BgL_method3079z00_2524 = 
VECTOR_REF(BgL_bucketz00_2536,BgL_kz00_2548); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 339 */
obj_t BgL_auxz00_3300;
BgL_auxz00_3300 = 
PROCEDURE_ENTRY(BgL_method3079z00_2524)(BgL_method3079z00_2524, 
(obj_t)(BgL_arg4093z00_2519), BgL_ownerz00_1576, BgL_currentz00_1577, BEOA); 
BgL_res4224z00_2549 = 
(BgL_nodez00_bglt)(BgL_auxz00_3300); } } 
BgL_arg4090z00_2518 = BgL_res4224z00_2549; } } 
{ /* ./Globalize/new-body.scm 339 */
BgL_makezd2boxzd2_bglt BgL_obj2584z00_2550;BgL_nodez00_bglt BgL_val2583z00_2551;
BgL_obj2584z00_2550 = BgL_nodez00_1575; 
BgL_val2583z00_2551 = BgL_arg4090z00_2518; 
((((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2584z00_2550))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2583z00_2551), BUNSPEC); } } 
BgL_auxz00_3279 = BgL_nodez00_1575; 
return 
(obj_t)(BgL_auxz00_3279);} } } 
}



/* rem!-jump-ex-it3113 */
obj_t BGl_remz12zd2jumpzd2exzd2it3113zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2722, obj_t BgL_nodez00_2723, obj_t BgL_ownerz00_2724, obj_t BgL_currentz00_2725)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 329 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1563;obj_t BgL_ownerz00_1564;obj_t BgL_currentz00_1565;
{ /* ./Globalize/new-body.scm 330 */
BgL_jumpzd2exzd2itz00_bglt BgL_auxz00_3308;
BgL_nodez00_1563 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2723); 
BgL_ownerz00_1564 = BgL_ownerz00_2724; 
BgL_currentz00_1565 = BgL_currentz00_2725; 
{ /* ./Globalize/new-body.scm 331 */
BgL_nodez00_bglt BgL_arg4070z00_1569;
{ /* ./Globalize/new-body.scm 331 */
BgL_nodez00_bglt BgL_arg4073z00_1570;
BgL_arg4073z00_1570 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1563))->BgL_exitz00); 
{ /* ./Globalize/new-body.scm 331 */
BgL_nodez00_bglt BgL_res4218z00_2482;
{ /* ./Globalize/new-body.scm 331 */
obj_t BgL_method3079z00_2457;
{ /* ./Globalize/new-body.scm 331 */
BgL_objectz00_bglt BgL_objz00_2458;
BgL_objz00_2458 = 
(BgL_objectz00_bglt)(BgL_arg4073z00_1570); 
{ /* ./Globalize/new-body.scm 331 */
long BgL_objzd2classzd2numz00_2459;
BgL_objzd2classzd2numz00_2459 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2458); 
{ /* ./Globalize/new-body.scm 331 */
obj_t BgL_arg2017z00_2460;
{ /* ./Globalize/new-body.scm 331 */
int BgL_auxz00_3312;
BgL_auxz00_3312 = 
(int)(((long)1)); 
BgL_arg2017z00_2460 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3312); } 
{ /* ./Globalize/new-body.scm 331 */
int BgL_offsetz00_2463;
BgL_offsetz00_2463 = 
(int)(BgL_objzd2classzd2numz00_2459); 
{ /* ./Globalize/new-body.scm 331 */
long BgL_offsetz00_2464;
{ /* ./Globalize/new-body.scm 331 */
long BgL_auxz00_3316;
BgL_auxz00_3316 = 
(long)(BgL_offsetz00_2463); 
BgL_offsetz00_2464 = 
(BgL_auxz00_3316-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 331 */
long BgL_modz00_2465;
{ /* ./Globalize/new-body.scm 331 */
int BgL_arg2028z00_2466;
BgL_arg2028z00_2466 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 331 */
long BgL_n2z00_2474;
BgL_n2z00_2474 = 
(long)(BgL_arg2028z00_2466); 
BgL_modz00_2465 = 
(BgL_offsetz00_2464/BgL_n2z00_2474); } } 
{ /* ./Globalize/new-body.scm 331 */
long BgL_restz00_2467;
{ /* ./Globalize/new-body.scm 331 */
int BgL_arg2024z00_2468;
BgL_arg2024z00_2468 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 331 */
long BgL_n2z00_2477;
BgL_n2z00_2477 = 
(long)(BgL_arg2024z00_2468); 
BgL_restz00_2467 = 
(BgL_offsetz00_2464%BgL_n2z00_2477); } } 
{ /* ./Globalize/new-body.scm 331 */

{ /* ./Globalize/new-body.scm 331 */
obj_t BgL_bucketz00_2469;
{ /* ./Globalize/new-body.scm 331 */
int BgL_kz00_2479;
BgL_kz00_2479 = 
(int)(BgL_modz00_2465); 
BgL_bucketz00_2469 = 
VECTOR_REF(BgL_arg2017z00_2460,BgL_kz00_2479); } 
{ /* ./Globalize/new-body.scm 331 */
int BgL_kz00_2481;
BgL_kz00_2481 = 
(int)(BgL_restz00_2467); 
BgL_method3079z00_2457 = 
VECTOR_REF(BgL_bucketz00_2469,BgL_kz00_2481); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 331 */
obj_t BgL_auxz00_3329;
BgL_auxz00_3329 = 
PROCEDURE_ENTRY(BgL_method3079z00_2457)(BgL_method3079z00_2457, 
(obj_t)(BgL_arg4073z00_1570), BgL_ownerz00_1564, BgL_currentz00_1565, BEOA); 
BgL_res4218z00_2482 = 
(BgL_nodez00_bglt)(BgL_auxz00_3329); } } 
BgL_arg4070z00_1569 = BgL_res4218z00_2482; } } 
{ /* ./Globalize/new-body.scm 331 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2552z00_2483;BgL_nodez00_bglt BgL_val2551z00_2484;
BgL_obj2552z00_2483 = BgL_nodez00_1563; 
BgL_val2551z00_2484 = BgL_arg4070z00_1569; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2552z00_2483))->BgL_exitz00) = ((BgL_nodez00_bglt)BgL_val2551z00_2484), BUNSPEC); } } 
{ /* ./Globalize/new-body.scm 332 */
BgL_nodez00_bglt BgL_arg4077z00_1571;
{ /* ./Globalize/new-body.scm 332 */
BgL_nodez00_bglt BgL_arg4080z00_1572;
BgL_arg4080z00_1572 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1563))->BgL_valuez00); 
{ /* ./Globalize/new-body.scm 332 */
BgL_nodez00_bglt BgL_res4221z00_2514;
{ /* ./Globalize/new-body.scm 332 */
obj_t BgL_method3079z00_2489;
{ /* ./Globalize/new-body.scm 332 */
BgL_objectz00_bglt BgL_objz00_2490;
BgL_objz00_2490 = 
(BgL_objectz00_bglt)(BgL_arg4080z00_1572); 
{ /* ./Globalize/new-body.scm 332 */
long BgL_objzd2classzd2numz00_2491;
BgL_objzd2classzd2numz00_2491 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2490); 
{ /* ./Globalize/new-body.scm 332 */
obj_t BgL_arg2017z00_2492;
{ /* ./Globalize/new-body.scm 332 */
int BgL_auxz00_3338;
BgL_auxz00_3338 = 
(int)(((long)1)); 
BgL_arg2017z00_2492 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3338); } 
{ /* ./Globalize/new-body.scm 332 */
int BgL_offsetz00_2495;
BgL_offsetz00_2495 = 
(int)(BgL_objzd2classzd2numz00_2491); 
{ /* ./Globalize/new-body.scm 332 */
long BgL_offsetz00_2496;
{ /* ./Globalize/new-body.scm 332 */
long BgL_auxz00_3342;
BgL_auxz00_3342 = 
(long)(BgL_offsetz00_2495); 
BgL_offsetz00_2496 = 
(BgL_auxz00_3342-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 332 */
long BgL_modz00_2497;
{ /* ./Globalize/new-body.scm 332 */
int BgL_arg2028z00_2498;
BgL_arg2028z00_2498 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 332 */
long BgL_n2z00_2506;
BgL_n2z00_2506 = 
(long)(BgL_arg2028z00_2498); 
BgL_modz00_2497 = 
(BgL_offsetz00_2496/BgL_n2z00_2506); } } 
{ /* ./Globalize/new-body.scm 332 */
long BgL_restz00_2499;
{ /* ./Globalize/new-body.scm 332 */
int BgL_arg2024z00_2500;
BgL_arg2024z00_2500 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 332 */
long BgL_n2z00_2509;
BgL_n2z00_2509 = 
(long)(BgL_arg2024z00_2500); 
BgL_restz00_2499 = 
(BgL_offsetz00_2496%BgL_n2z00_2509); } } 
{ /* ./Globalize/new-body.scm 332 */

{ /* ./Globalize/new-body.scm 332 */
obj_t BgL_bucketz00_2501;
{ /* ./Globalize/new-body.scm 332 */
int BgL_kz00_2511;
BgL_kz00_2511 = 
(int)(BgL_modz00_2497); 
BgL_bucketz00_2501 = 
VECTOR_REF(BgL_arg2017z00_2492,BgL_kz00_2511); } 
{ /* ./Globalize/new-body.scm 332 */
int BgL_kz00_2513;
BgL_kz00_2513 = 
(int)(BgL_restz00_2499); 
BgL_method3079z00_2489 = 
VECTOR_REF(BgL_bucketz00_2501,BgL_kz00_2513); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 332 */
obj_t BgL_auxz00_3355;
BgL_auxz00_3355 = 
PROCEDURE_ENTRY(BgL_method3079z00_2489)(BgL_method3079z00_2489, 
(obj_t)(BgL_arg4080z00_1572), BgL_ownerz00_1564, BgL_currentz00_1565, BEOA); 
BgL_res4221z00_2514 = 
(BgL_nodez00_bglt)(BgL_auxz00_3355); } } 
BgL_arg4077z00_1571 = BgL_res4221z00_2514; } } 
{ /* ./Globalize/new-body.scm 332 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2555z00_2515;BgL_nodez00_bglt BgL_val2554z00_2516;
BgL_obj2555z00_2515 = BgL_nodez00_1563; 
BgL_val2554z00_2516 = BgL_arg4077z00_1571; 
((((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2555z00_2515))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2554z00_2516), BUNSPEC); } } 
BgL_auxz00_3308 = BgL_nodez00_1563; 
return 
(obj_t)(BgL_auxz00_3308);} } } 
}



/* rem!-set-ex-it3111 */
obj_t BGl_remz12zd2setzd2exzd2it3111zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2726, obj_t BgL_nodez00_2727, obj_t BgL_ownerz00_2728, obj_t BgL_currentz00_2729)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 321 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1553;obj_t BgL_ownerz00_1554;obj_t BgL_currentz00_1555;
{ /* ./Globalize/new-body.scm 322 */
BgL_setzd2exzd2itz00_bglt BgL_auxz00_3363;
BgL_nodez00_1553 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2727); 
BgL_ownerz00_1554 = BgL_ownerz00_2728; 
BgL_currentz00_1555 = BgL_currentz00_2729; 
{ /* ./Globalize/new-body.scm 322 */
BgL_nodez00_bglt BgL_arg4057z00_2419;
{ /* ./Globalize/new-body.scm 322 */
BgL_nodez00_bglt BgL_arg4060z00_2420;
BgL_arg4060z00_2420 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1553))->BgL_bodyz00); 
{ /* ./Globalize/new-body.scm 322 */
BgL_nodez00_bglt BgL_res4215z00_2450;
{ /* ./Globalize/new-body.scm 322 */
obj_t BgL_method3079z00_2425;
{ /* ./Globalize/new-body.scm 322 */
BgL_objectz00_bglt BgL_objz00_2426;
BgL_objz00_2426 = 
(BgL_objectz00_bglt)(BgL_arg4060z00_2420); 
{ /* ./Globalize/new-body.scm 322 */
long BgL_objzd2classzd2numz00_2427;
BgL_objzd2classzd2numz00_2427 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2426); 
{ /* ./Globalize/new-body.scm 322 */
obj_t BgL_arg2017z00_2428;
{ /* ./Globalize/new-body.scm 322 */
int BgL_auxz00_3367;
BgL_auxz00_3367 = 
(int)(((long)1)); 
BgL_arg2017z00_2428 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3367); } 
{ /* ./Globalize/new-body.scm 322 */
int BgL_offsetz00_2431;
BgL_offsetz00_2431 = 
(int)(BgL_objzd2classzd2numz00_2427); 
{ /* ./Globalize/new-body.scm 322 */
long BgL_offsetz00_2432;
{ /* ./Globalize/new-body.scm 322 */
long BgL_auxz00_3371;
BgL_auxz00_3371 = 
(long)(BgL_offsetz00_2431); 
BgL_offsetz00_2432 = 
(BgL_auxz00_3371-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 322 */
long BgL_modz00_2433;
{ /* ./Globalize/new-body.scm 322 */
int BgL_arg2028z00_2434;
BgL_arg2028z00_2434 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 322 */
long BgL_n2z00_2442;
BgL_n2z00_2442 = 
(long)(BgL_arg2028z00_2434); 
BgL_modz00_2433 = 
(BgL_offsetz00_2432/BgL_n2z00_2442); } } 
{ /* ./Globalize/new-body.scm 322 */
long BgL_restz00_2435;
{ /* ./Globalize/new-body.scm 322 */
int BgL_arg2024z00_2436;
BgL_arg2024z00_2436 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 322 */
long BgL_n2z00_2445;
BgL_n2z00_2445 = 
(long)(BgL_arg2024z00_2436); 
BgL_restz00_2435 = 
(BgL_offsetz00_2432%BgL_n2z00_2445); } } 
{ /* ./Globalize/new-body.scm 322 */

{ /* ./Globalize/new-body.scm 322 */
obj_t BgL_bucketz00_2437;
{ /* ./Globalize/new-body.scm 322 */
int BgL_kz00_2447;
BgL_kz00_2447 = 
(int)(BgL_modz00_2433); 
BgL_bucketz00_2437 = 
VECTOR_REF(BgL_arg2017z00_2428,BgL_kz00_2447); } 
{ /* ./Globalize/new-body.scm 322 */
int BgL_kz00_2449;
BgL_kz00_2449 = 
(int)(BgL_restz00_2435); 
BgL_method3079z00_2425 = 
VECTOR_REF(BgL_bucketz00_2437,BgL_kz00_2449); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 322 */
obj_t BgL_auxz00_3384;
BgL_auxz00_3384 = 
PROCEDURE_ENTRY(BgL_method3079z00_2425)(BgL_method3079z00_2425, 
(obj_t)(BgL_arg4060z00_2420), BgL_ownerz00_1554, BgL_currentz00_1555, BEOA); 
BgL_res4215z00_2450 = 
(BgL_nodez00_bglt)(BgL_auxz00_3384); } } 
BgL_arg4057z00_2419 = BgL_res4215z00_2450; } } 
{ /* ./Globalize/new-body.scm 322 */
BgL_setzd2exzd2itz00_bglt BgL_obj2529z00_2451;BgL_nodez00_bglt BgL_val2528z00_2452;
BgL_obj2529z00_2451 = BgL_nodez00_1553; 
BgL_val2528z00_2452 = BgL_arg4057z00_2419; 
((((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2529z00_2451))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2528z00_2452), BUNSPEC); } } 
BgL_auxz00_3363 = BgL_nodez00_1553; 
return 
(obj_t)(BgL_auxz00_3363);} } } 
}



/* rem!-let-var3109 */
obj_t BGl_remz12zd2letzd2var3109z12zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2730, obj_t BgL_nodez00_2731, obj_t BgL_ownerz00_2732, obj_t BgL_currentz00_2733)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 310 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1535;obj_t BgL_ownerz00_1536;obj_t BgL_currentz00_1537;
{ /* ./Globalize/new-body.scm 311 */
BgL_letzd2varzd2_bglt BgL_auxz00_3392;
BgL_nodez00_1535 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2731); 
BgL_ownerz00_1536 = BgL_ownerz00_2732; 
BgL_currentz00_1537 = BgL_currentz00_2733; 
{ /* ./Globalize/new-body.scm 312 */
BgL_nodez00_bglt BgL_arg4026z00_1541;
{ /* ./Globalize/new-body.scm 312 */
BgL_nodez00_bglt BgL_arg4029z00_1542;
BgL_arg4029z00_1542 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1535))->BgL_bodyz00); 
{ /* ./Globalize/new-body.scm 312 */
BgL_nodez00_bglt BgL_res4209z00_2379;
{ /* ./Globalize/new-body.scm 312 */
obj_t BgL_method3079z00_2354;
{ /* ./Globalize/new-body.scm 312 */
BgL_objectz00_bglt BgL_objz00_2355;
BgL_objz00_2355 = 
(BgL_objectz00_bglt)(BgL_arg4029z00_1542); 
{ /* ./Globalize/new-body.scm 312 */
long BgL_objzd2classzd2numz00_2356;
BgL_objzd2classzd2numz00_2356 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2355); 
{ /* ./Globalize/new-body.scm 312 */
obj_t BgL_arg2017z00_2357;
{ /* ./Globalize/new-body.scm 312 */
int BgL_auxz00_3396;
BgL_auxz00_3396 = 
(int)(((long)1)); 
BgL_arg2017z00_2357 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3396); } 
{ /* ./Globalize/new-body.scm 312 */
int BgL_offsetz00_2360;
BgL_offsetz00_2360 = 
(int)(BgL_objzd2classzd2numz00_2356); 
{ /* ./Globalize/new-body.scm 312 */
long BgL_offsetz00_2361;
{ /* ./Globalize/new-body.scm 312 */
long BgL_auxz00_3400;
BgL_auxz00_3400 = 
(long)(BgL_offsetz00_2360); 
BgL_offsetz00_2361 = 
(BgL_auxz00_3400-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 312 */
long BgL_modz00_2362;
{ /* ./Globalize/new-body.scm 312 */
int BgL_arg2028z00_2363;
BgL_arg2028z00_2363 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 312 */
long BgL_n2z00_2371;
BgL_n2z00_2371 = 
(long)(BgL_arg2028z00_2363); 
BgL_modz00_2362 = 
(BgL_offsetz00_2361/BgL_n2z00_2371); } } 
{ /* ./Globalize/new-body.scm 312 */
long BgL_restz00_2364;
{ /* ./Globalize/new-body.scm 312 */
int BgL_arg2024z00_2365;
BgL_arg2024z00_2365 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 312 */
long BgL_n2z00_2374;
BgL_n2z00_2374 = 
(long)(BgL_arg2024z00_2365); 
BgL_restz00_2364 = 
(BgL_offsetz00_2361%BgL_n2z00_2374); } } 
{ /* ./Globalize/new-body.scm 312 */

{ /* ./Globalize/new-body.scm 312 */
obj_t BgL_bucketz00_2366;
{ /* ./Globalize/new-body.scm 312 */
int BgL_kz00_2376;
BgL_kz00_2376 = 
(int)(BgL_modz00_2362); 
BgL_bucketz00_2366 = 
VECTOR_REF(BgL_arg2017z00_2357,BgL_kz00_2376); } 
{ /* ./Globalize/new-body.scm 312 */
int BgL_kz00_2378;
BgL_kz00_2378 = 
(int)(BgL_restz00_2364); 
BgL_method3079z00_2354 = 
VECTOR_REF(BgL_bucketz00_2366,BgL_kz00_2378); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 312 */
obj_t BgL_auxz00_3413;
BgL_auxz00_3413 = 
PROCEDURE_ENTRY(BgL_method3079z00_2354)(BgL_method3079z00_2354, 
(obj_t)(BgL_arg4029z00_1542), BgL_ownerz00_1536, BgL_currentz00_1537, BEOA); 
BgL_res4209z00_2379 = 
(BgL_nodez00_bglt)(BgL_auxz00_3413); } } 
BgL_arg4026z00_1541 = BgL_res4209z00_2379; } } 
{ /* ./Globalize/new-body.scm 312 */
BgL_letzd2varzd2_bglt BgL_obj2491z00_2380;BgL_nodez00_bglt BgL_val2490z00_2381;
BgL_obj2491z00_2380 = BgL_nodez00_1535; 
BgL_val2490z00_2381 = BgL_arg4026z00_1541; 
((((BgL_letzd2varzd2_bglt)CREF(BgL_obj2491z00_2380))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2490z00_2381), BUNSPEC); } } 
{ 
obj_t BgL_l3066z00_1543;
{ /* ./Globalize/new-body.scm 313 */
obj_t BgL_arg4033z00_1545;
BgL_arg4033z00_1545 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1535))->BgL_bindingsz00); 
BgL_l3066z00_1543 = BgL_arg4033z00_1545; 
BgL_forzd2each3067zd2_1544:
{ /* ./Globalize/new-body.scm 313 */
bool_t BgL_test4036z00_1546;
BgL_test4036z00_1546 = 
PAIRP(BgL_l3066z00_1543); 
if(BgL_test4036z00_1546)
{ /* ./Globalize/new-body.scm 313 */
{ /* ./Globalize/new-body.scm 314 */
obj_t BgL_bindingz00_1547;
BgL_bindingz00_1547 = 
CAR(BgL_l3066z00_1543); 
{ /* ./Globalize/new-body.scm 314 */
BgL_nodez00_bglt BgL_arg4038z00_1548;
{ /* ./Globalize/new-body.scm 314 */
obj_t BgL_arg4041z00_1549;
BgL_arg4041z00_1549 = 
CDR(BgL_bindingz00_1547); 
{ /* ./Globalize/new-body.scm 314 */
BgL_nodez00_bglt BgL_res4212z00_2414;
{ /* ./Globalize/new-body.scm 314 */
BgL_nodez00_bglt BgL_nodez00_2386;
BgL_nodez00_2386 = 
(BgL_nodez00_bglt)(BgL_arg4041z00_1549); 
{ /* ./Globalize/new-body.scm 314 */
obj_t BgL_method3079z00_2389;
{ /* ./Globalize/new-body.scm 314 */
BgL_objectz00_bglt BgL_objz00_2390;
BgL_objz00_2390 = 
(BgL_objectz00_bglt)(BgL_nodez00_2386); 
{ /* ./Globalize/new-body.scm 314 */
long BgL_objzd2classzd2numz00_2391;
BgL_objzd2classzd2numz00_2391 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2390); 
{ /* ./Globalize/new-body.scm 314 */
obj_t BgL_arg2017z00_2392;
{ /* ./Globalize/new-body.scm 314 */
int BgL_auxz00_3427;
BgL_auxz00_3427 = 
(int)(((long)1)); 
BgL_arg2017z00_2392 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3427); } 
{ /* ./Globalize/new-body.scm 314 */
int BgL_offsetz00_2395;
BgL_offsetz00_2395 = 
(int)(BgL_objzd2classzd2numz00_2391); 
{ /* ./Globalize/new-body.scm 314 */
long BgL_offsetz00_2396;
{ /* ./Globalize/new-body.scm 314 */
long BgL_auxz00_3431;
BgL_auxz00_3431 = 
(long)(BgL_offsetz00_2395); 
BgL_offsetz00_2396 = 
(BgL_auxz00_3431-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 314 */
long BgL_modz00_2397;
{ /* ./Globalize/new-body.scm 314 */
int BgL_arg2028z00_2398;
BgL_arg2028z00_2398 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 314 */
long BgL_n2z00_2406;
BgL_n2z00_2406 = 
(long)(BgL_arg2028z00_2398); 
BgL_modz00_2397 = 
(BgL_offsetz00_2396/BgL_n2z00_2406); } } 
{ /* ./Globalize/new-body.scm 314 */
long BgL_restz00_2399;
{ /* ./Globalize/new-body.scm 314 */
int BgL_arg2024z00_2400;
BgL_arg2024z00_2400 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 314 */
long BgL_n2z00_2409;
BgL_n2z00_2409 = 
(long)(BgL_arg2024z00_2400); 
BgL_restz00_2399 = 
(BgL_offsetz00_2396%BgL_n2z00_2409); } } 
{ /* ./Globalize/new-body.scm 314 */

{ /* ./Globalize/new-body.scm 314 */
obj_t BgL_bucketz00_2401;
{ /* ./Globalize/new-body.scm 314 */
int BgL_kz00_2411;
BgL_kz00_2411 = 
(int)(BgL_modz00_2397); 
BgL_bucketz00_2401 = 
VECTOR_REF(BgL_arg2017z00_2392,BgL_kz00_2411); } 
{ /* ./Globalize/new-body.scm 314 */
int BgL_kz00_2413;
BgL_kz00_2413 = 
(int)(BgL_restz00_2399); 
BgL_method3079z00_2389 = 
VECTOR_REF(BgL_bucketz00_2401,BgL_kz00_2413); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 314 */
obj_t BgL_auxz00_3444;
BgL_auxz00_3444 = 
PROCEDURE_ENTRY(BgL_method3079z00_2389)(BgL_method3079z00_2389, 
(obj_t)(BgL_nodez00_2386), BgL_ownerz00_1536, BgL_currentz00_1537, BEOA); 
BgL_res4212z00_2414 = 
(BgL_nodez00_bglt)(BgL_auxz00_3444); } } } 
BgL_arg4038z00_1548 = BgL_res4212z00_2414; } } 
{ /* ./Globalize/new-body.scm 314 */
obj_t BgL_objz00_2416;
BgL_objz00_2416 = 
(obj_t)(BgL_arg4038z00_1548); 
SET_CDR(BgL_bindingz00_1547, BgL_objz00_2416); } } } 
{ /* ./Globalize/new-body.scm 313 */
obj_t BgL_arg4046z00_1550;
BgL_arg4046z00_1550 = 
CDR(BgL_l3066z00_1543); 
{ 
obj_t BgL_l3066z00_3452;
BgL_l3066z00_3452 = BgL_arg4046z00_1550; 
BgL_l3066z00_1543 = BgL_l3066z00_3452; 
goto BgL_forzd2each3067zd2_1544;} } }  else 
{ /* ./Globalize/new-body.scm 313 */((bool_t)1); } } } } 
BgL_auxz00_3392 = BgL_nodez00_1535; 
return 
(obj_t)(BgL_auxz00_3392);} } } 
}



/* rem!-let-fun3107 */
obj_t BGl_remz12zd2letzd2fun3107z12zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2734, obj_t BgL_nodez00_2735, obj_t BgL_ownerz00_2736, obj_t BgL_currentz00_2737)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 257 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1487;obj_t BgL_ownerz00_1488;obj_t BgL_currentz00_1489;
{ /* ./Globalize/new-body.scm 258 */
BgL_letzd2funzd2_bglt BgL_auxz00_3455;
BgL_nodez00_1487 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2735); 
BgL_ownerz00_1488 = BgL_ownerz00_2736; 
BgL_currentz00_1489 = BgL_currentz00_2737; 
{ /* ./Globalize/new-body.scm 259 */
BgL_nodez00_bglt BgL_arg3910z00_1493;
{ /* ./Globalize/new-body.scm 259 */
BgL_nodez00_bglt BgL_arg3913z00_1494;
BgL_arg3913z00_1494 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1487))->BgL_bodyz00); 
{ /* ./Globalize/new-body.scm 259 */
BgL_nodez00_bglt BgL_res4203z00_2281;
{ /* ./Globalize/new-body.scm 259 */
obj_t BgL_method3079z00_2256;
{ /* ./Globalize/new-body.scm 259 */
BgL_objectz00_bglt BgL_objz00_2257;
BgL_objz00_2257 = 
(BgL_objectz00_bglt)(BgL_arg3913z00_1494); 
{ /* ./Globalize/new-body.scm 259 */
long BgL_objzd2classzd2numz00_2258;
BgL_objzd2classzd2numz00_2258 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2257); 
{ /* ./Globalize/new-body.scm 259 */
obj_t BgL_arg2017z00_2259;
{ /* ./Globalize/new-body.scm 259 */
int BgL_auxz00_3459;
BgL_auxz00_3459 = 
(int)(((long)1)); 
BgL_arg2017z00_2259 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3459); } 
{ /* ./Globalize/new-body.scm 259 */
int BgL_offsetz00_2262;
BgL_offsetz00_2262 = 
(int)(BgL_objzd2classzd2numz00_2258); 
{ /* ./Globalize/new-body.scm 259 */
long BgL_offsetz00_2263;
{ /* ./Globalize/new-body.scm 259 */
long BgL_auxz00_3463;
BgL_auxz00_3463 = 
(long)(BgL_offsetz00_2262); 
BgL_offsetz00_2263 = 
(BgL_auxz00_3463-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 259 */
long BgL_modz00_2264;
{ /* ./Globalize/new-body.scm 259 */
int BgL_arg2028z00_2265;
BgL_arg2028z00_2265 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 259 */
long BgL_n2z00_2273;
BgL_n2z00_2273 = 
(long)(BgL_arg2028z00_2265); 
BgL_modz00_2264 = 
(BgL_offsetz00_2263/BgL_n2z00_2273); } } 
{ /* ./Globalize/new-body.scm 259 */
long BgL_restz00_2266;
{ /* ./Globalize/new-body.scm 259 */
int BgL_arg2024z00_2267;
BgL_arg2024z00_2267 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 259 */
long BgL_n2z00_2276;
BgL_n2z00_2276 = 
(long)(BgL_arg2024z00_2267); 
BgL_restz00_2266 = 
(BgL_offsetz00_2263%BgL_n2z00_2276); } } 
{ /* ./Globalize/new-body.scm 259 */

{ /* ./Globalize/new-body.scm 259 */
obj_t BgL_bucketz00_2268;
{ /* ./Globalize/new-body.scm 259 */
int BgL_kz00_2278;
BgL_kz00_2278 = 
(int)(BgL_modz00_2264); 
BgL_bucketz00_2268 = 
VECTOR_REF(BgL_arg2017z00_2259,BgL_kz00_2278); } 
{ /* ./Globalize/new-body.scm 259 */
int BgL_kz00_2280;
BgL_kz00_2280 = 
(int)(BgL_restz00_2266); 
BgL_method3079z00_2256 = 
VECTOR_REF(BgL_bucketz00_2268,BgL_kz00_2280); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 259 */
obj_t BgL_auxz00_3476;
BgL_auxz00_3476 = 
PROCEDURE_ENTRY(BgL_method3079z00_2256)(BgL_method3079z00_2256, 
(obj_t)(BgL_arg3913z00_1494), BgL_ownerz00_1488, BgL_currentz00_1489, BEOA); 
BgL_res4203z00_2281 = 
(BgL_nodez00_bglt)(BgL_auxz00_3476); } } 
BgL_arg3910z00_1493 = BgL_res4203z00_2281; } } 
{ /* ./Globalize/new-body.scm 259 */
BgL_letzd2funzd2_bglt BgL_obj2453z00_2282;BgL_nodez00_bglt BgL_val2452z00_2283;
BgL_obj2453z00_2282 = BgL_nodez00_1487; 
BgL_val2452z00_2283 = BgL_arg3910z00_1493; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2453z00_2282))->BgL_bodyz00) = ((BgL_nodez00_bglt)BgL_val2452z00_2283), BUNSPEC); } } 
{ 
obj_t BgL_obindingsz00_1495;obj_t BgL_nbindingsz00_1496;
{ /* ./Globalize/new-body.scm 260 */
obj_t BgL_arg3917z00_1498;
BgL_arg3917z00_1498 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1487))->BgL_localsz00); 
BgL_obindingsz00_1495 = BgL_arg3917z00_1498; 
BgL_nbindingsz00_1496 = BNIL; 
BgL_liipz00_1497:
{ /* ./Globalize/new-body.scm 263 */
bool_t BgL_test3921z00_1500;
BgL_test3921z00_1500 = 
NULLP(BgL_obindingsz00_1495); 
if(BgL_test3921z00_1500)
{ /* ./Globalize/new-body.scm 263 */
{ /* ./Globalize/new-body.scm 264 */
BgL_letzd2funzd2_bglt BgL_obj2450z00_2286;obj_t BgL_val2449z00_2287;
BgL_obj2450z00_2286 = BgL_nodez00_1487; 
BgL_val2449z00_2287 = BgL_nbindingsz00_1496; 
((((BgL_letzd2funzd2_bglt)CREF(BgL_obj2450z00_2286))->BgL_localsz00) = ((obj_t)BgL_val2449z00_2287), BUNSPEC); } 
BgL_auxz00_3455 = BgL_nodez00_1487; }  else 
{ /* ./Globalize/new-body.scm 266 */
bool_t BgL_test3923z00_1501;
{ /* ./Globalize/new-body.scm 266 */
long BgL_arg4009z00_1530;
{ /* ./Globalize/new-body.scm 266 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2790z00_2290;
{ /* ./Globalize/new-body.scm 266 */
BgL_valuez00_bglt BgL_auxz00_3486;
{ /* ./Globalize/new-body.scm 266 */
BgL_variablez00_bglt BgL_obj1100z00_2289;
{ /* ./Globalize/new-body.scm 266 */
obj_t BgL_auxz00_3487;
BgL_auxz00_3487 = 
CAR(BgL_obindingsz00_1495); 
BgL_obj1100z00_2289 = 
(BgL_variablez00_bglt)(BgL_auxz00_3487); } 
BgL_auxz00_3486 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2289))->BgL_valuez00); } 
BgL_obj2790z00_2290 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_3486); } 
{ 
obj_t BgL_auxz00_3492;
{ /* ./Globalize/new-body.scm 266 */
BgL_objectz00_bglt BgL_auxz00_3493;
BgL_auxz00_3493 = 
(BgL_objectz00_bglt)(BgL_obj2790z00_2290); 
BgL_auxz00_3492 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3493); } 
BgL_arg4009z00_1530 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3492))->BgL_bmarkz00); } } 
{ /* ./Globalize/new-body.scm 266 */
long BgL_n2z00_2292;
BgL_n2z00_2292 = BGl_za2roundza2z00zzglobaliza7e_newzd2bodyz75; 
BgL_test3923z00_1501 = 
(BgL_arg4009z00_1530==BgL_n2z00_2292); } } 
if(BgL_test3923z00_1501)
{ /* ./Globalize/new-body.scm 266 */
{ /* ./Globalize/new-body.scm 273 */
bool_t BgL_test3924z00_1502;
{ /* ./Globalize/new-body.scm 273 */
obj_t BgL_auxz00_3499;
{ /* ./Globalize/new-body.scm 274 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2772z00_2295;
{ /* ./Globalize/new-body.scm 274 */
BgL_valuez00_bglt BgL_auxz00_3500;
{ /* ./Globalize/new-body.scm 274 */
BgL_variablez00_bglt BgL_obj1100z00_2294;
{ /* ./Globalize/new-body.scm 274 */
obj_t BgL_auxz00_3501;
BgL_auxz00_3501 = 
CAR(BgL_obindingsz00_1495); 
BgL_obj1100z00_2294 = 
(BgL_variablez00_bglt)(BgL_auxz00_3501); } 
BgL_auxz00_3500 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2294))->BgL_valuez00); } 
BgL_obj2772z00_2295 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_auxz00_3500); } 
{ 
obj_t BgL_auxz00_3506;
{ /* ./Globalize/new-body.scm 274 */
BgL_objectz00_bglt BgL_auxz00_3507;
BgL_auxz00_3507 = 
(BgL_objectz00_bglt)(BgL_obj2772z00_2295); 
BgL_auxz00_3506 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3507); } 
BgL_auxz00_3499 = 
(((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3506))->BgL_pluggedzd2inzd2); } } 
BgL_test3924z00_1502 = 
(BgL_currentz00_1489==BgL_auxz00_3499); } 
if(BgL_test3924z00_1502)
{ /* ./Globalize/new-body.scm 276 */
obj_t BgL_arg3926z00_1503;obj_t BgL_arg3927z00_1504;
BgL_arg3926z00_1503 = 
CDR(BgL_obindingsz00_1495); 
{ /* ./Globalize/new-body.scm 276 */
obj_t BgL_arg3931z00_1505;
BgL_arg3931z00_1505 = 
CAR(BgL_obindingsz00_1495); 
BgL_arg3927z00_1504 = 
MAKE_PAIR(BgL_arg3931z00_1505, BgL_nbindingsz00_1496); } 
{ 
obj_t BgL_nbindingsz00_3517;obj_t BgL_obindingsz00_3516;
BgL_obindingsz00_3516 = BgL_arg3926z00_1503; 
BgL_nbindingsz00_3517 = BgL_arg3927z00_1504; 
BgL_nbindingsz00_1496 = BgL_nbindingsz00_3517; 
BgL_obindingsz00_1495 = BgL_obindingsz00_3516; 
goto BgL_liipz00_1497;} }  else 
{ /* ./Globalize/new-body.scm 278 */
obj_t BgL_arg3935z00_1506;
BgL_arg3935z00_1506 = 
CDR(BgL_obindingsz00_1495); 
{ 
obj_t BgL_obindingsz00_3519;
BgL_obindingsz00_3519 = BgL_arg3935z00_1506; 
BgL_obindingsz00_1495 = BgL_obindingsz00_3519; 
goto BgL_liipz00_1497;} } } }  else 
{ /* ./Globalize/new-body.scm 280 */
bool_t BgL_test3949z00_1510;
BgL_test3949z00_1510 = 
BGl_iszd2inzf3z21zzglobaliza7e_newzd2bodyz75(
CAR(BgL_obindingsz00_1495), BgL_ownerz00_1488); 
if(BgL_test3949z00_1510)
{ /* ./Globalize/new-body.scm 280 */
{ /* ./Globalize/new-body.scm 286 */
BgL_valuez00_bglt BgL_arg3951z00_1511;
{ /* ./Globalize/new-body.scm 286 */
BgL_variablez00_bglt BgL_obj1100z00_2301;
{ /* ./Globalize/new-body.scm 286 */
obj_t BgL_auxz00_3523;
BgL_auxz00_3523 = 
CAR(BgL_obindingsz00_1495); 
BgL_obj1100z00_2301 = 
(BgL_variablez00_bglt)(BgL_auxz00_3523); } 
BgL_arg3951z00_1511 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2301))->BgL_valuez00); } 
{ /* ./Globalize/new-body.scm 286 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2792z00_2302;long BgL_val2791z00_2303;
BgL_obj2792z00_2302 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_arg3951z00_1511); 
BgL_val2791z00_2303 = BGl_za2roundza2z00zzglobaliza7e_newzd2bodyz75; 
{ 
obj_t BgL_auxz00_3528;
{ /* ./Globalize/new-body.scm 286 */
BgL_objectz00_bglt BgL_auxz00_3529;
BgL_auxz00_3529 = 
(BgL_objectz00_bglt)(BgL_obj2792z00_2302); 
BgL_auxz00_3528 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3529); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3528))->BgL_bmarkz00) = ((long)BgL_val2791z00_2303), BUNSPEC); } } } 
{ /* ./Globalize/new-body.scm 288 */
BgL_valuez00_bglt BgL_arg3958z00_1513;
{ /* ./Globalize/new-body.scm 288 */
BgL_variablez00_bglt BgL_obj1100z00_2305;
{ /* ./Globalize/new-body.scm 288 */
obj_t BgL_auxz00_3533;
BgL_auxz00_3533 = 
CAR(BgL_obindingsz00_1495); 
BgL_obj1100z00_2305 = 
(BgL_variablez00_bglt)(BgL_auxz00_3533); } 
BgL_arg3958z00_1513 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2305))->BgL_valuez00); } 
{ /* ./Globalize/new-body.scm 288 */
BgL_sfunzf2ginfozf2_bglt BgL_obj2774z00_2306;obj_t BgL_val2773z00_2307;
BgL_obj2774z00_2306 = 
(BgL_sfunzf2ginfozf2_bglt)(BgL_arg3958z00_1513); 
BgL_val2773z00_2307 = BgL_currentz00_1489; 
{ 
obj_t BgL_auxz00_3538;
{ /* ./Globalize/new-body.scm 288 */
BgL_objectz00_bglt BgL_auxz00_3539;
BgL_auxz00_3539 = 
(BgL_objectz00_bglt)(BgL_obj2774z00_2306); 
BgL_auxz00_3538 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3539); } 
((((BgL_sfunzf2ginfozf2_bglt)CREF(BgL_auxz00_3538))->BgL_pluggedzd2inzd2) = ((obj_t)BgL_val2773z00_2307), BUNSPEC); } } } 
{ /* ./Globalize/new-body.scm 290 */
BgL_valuez00_bglt BgL_funz00_1515;
{ /* ./Globalize/new-body.scm 290 */
BgL_variablez00_bglt BgL_obj1100z00_2309;
{ /* ./Globalize/new-body.scm 290 */
obj_t BgL_auxz00_3543;
BgL_auxz00_3543 = 
CAR(BgL_obindingsz00_1495); 
BgL_obj1100z00_2309 = 
(BgL_variablez00_bglt)(BgL_auxz00_3543); } 
BgL_funz00_1515 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2309))->BgL_valuez00); } 
{ /* ./Globalize/new-body.scm 290 */
obj_t BgL_bodz00_1516;
{ /* ./Globalize/new-body.scm 291 */
BgL_sfunz00_bglt BgL_obj1370z00_2310;
BgL_obj1370z00_2310 = 
(BgL_sfunz00_bglt)(BgL_funz00_1515); 
BgL_bodz00_1516 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_2310))->BgL_bodyz00); } 
{ /* ./Globalize/new-body.scm 291 */

{ /* ./Globalize/new-body.scm 292 */
BgL_nodez00_bglt BgL_arg3965z00_1517;
{ /* ./Globalize/new-body.scm 292 */
obj_t BgL_arg3968z00_1518;
BgL_arg3968z00_1518 = 
CAR(BgL_obindingsz00_1495); 
{ /* ./Globalize/new-body.scm 292 */
BgL_nodez00_bglt BgL_res4206z00_2340;
{ /* ./Globalize/new-body.scm 292 */
BgL_nodez00_bglt BgL_nodez00_2312;
BgL_nodez00_2312 = 
(BgL_nodez00_bglt)(BgL_bodz00_1516); 
{ /* ./Globalize/new-body.scm 292 */
obj_t BgL_method3079z00_2315;
{ /* ./Globalize/new-body.scm 292 */
BgL_objectz00_bglt BgL_objz00_2316;
BgL_objz00_2316 = 
(BgL_objectz00_bglt)(BgL_nodez00_2312); 
{ /* ./Globalize/new-body.scm 292 */
long BgL_objzd2classzd2numz00_2317;
BgL_objzd2classzd2numz00_2317 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2316); 
{ /* ./Globalize/new-body.scm 292 */
obj_t BgL_arg2017z00_2318;
{ /* ./Globalize/new-body.scm 292 */
int BgL_auxz00_3553;
BgL_auxz00_3553 = 
(int)(((long)1)); 
BgL_arg2017z00_2318 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3553); } 
{ /* ./Globalize/new-body.scm 292 */
int BgL_offsetz00_2321;
BgL_offsetz00_2321 = 
(int)(BgL_objzd2classzd2numz00_2317); 
{ /* ./Globalize/new-body.scm 292 */
long BgL_offsetz00_2322;
{ /* ./Globalize/new-body.scm 292 */
long BgL_auxz00_3557;
BgL_auxz00_3557 = 
(long)(BgL_offsetz00_2321); 
BgL_offsetz00_2322 = 
(BgL_auxz00_3557-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 292 */
long BgL_modz00_2323;
{ /* ./Globalize/new-body.scm 292 */
int BgL_arg2028z00_2324;
BgL_arg2028z00_2324 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 292 */
long BgL_n2z00_2332;
BgL_n2z00_2332 = 
(long)(BgL_arg2028z00_2324); 
BgL_modz00_2323 = 
(BgL_offsetz00_2322/BgL_n2z00_2332); } } 
{ /* ./Globalize/new-body.scm 292 */
long BgL_restz00_2325;
{ /* ./Globalize/new-body.scm 292 */
int BgL_arg2024z00_2326;
BgL_arg2024z00_2326 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 292 */
long BgL_n2z00_2335;
BgL_n2z00_2335 = 
(long)(BgL_arg2024z00_2326); 
BgL_restz00_2325 = 
(BgL_offsetz00_2322%BgL_n2z00_2335); } } 
{ /* ./Globalize/new-body.scm 292 */

{ /* ./Globalize/new-body.scm 292 */
obj_t BgL_bucketz00_2327;
{ /* ./Globalize/new-body.scm 292 */
int BgL_kz00_2337;
BgL_kz00_2337 = 
(int)(BgL_modz00_2323); 
BgL_bucketz00_2327 = 
VECTOR_REF(BgL_arg2017z00_2318,BgL_kz00_2337); } 
{ /* ./Globalize/new-body.scm 292 */
int BgL_kz00_2339;
BgL_kz00_2339 = 
(int)(BgL_restz00_2325); 
BgL_method3079z00_2315 = 
VECTOR_REF(BgL_bucketz00_2327,BgL_kz00_2339); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 292 */
obj_t BgL_auxz00_3570;
BgL_auxz00_3570 = 
PROCEDURE_ENTRY(BgL_method3079z00_2315)(BgL_method3079z00_2315, 
(obj_t)(BgL_nodez00_2312), BgL_ownerz00_1488, BgL_arg3968z00_1518, BEOA); 
BgL_res4206z00_2340 = 
(BgL_nodez00_bglt)(BgL_auxz00_3570); } } } 
BgL_arg3965z00_1517 = BgL_res4206z00_2340; } } 
{ /* ./Globalize/new-body.scm 292 */
BgL_sfunz00_bglt BgL_obj1373z00_2341;obj_t BgL_val1371z00_2342;
BgL_obj1373z00_2341 = 
(BgL_sfunz00_bglt)(BgL_funz00_1515); 
BgL_val1371z00_2342 = 
(obj_t)(BgL_arg3965z00_1517); 
((((BgL_sfunz00_bglt)CREF(BgL_obj1373z00_2341))->BgL_bodyz00) = ((obj_t)BgL_val1371z00_2342), BUNSPEC); } } 
{ /* ./Globalize/new-body.scm 293 */
obj_t BgL_arg3972z00_1519;obj_t BgL_arg3973z00_1520;
BgL_arg3972z00_1519 = 
CDR(BgL_obindingsz00_1495); 
{ /* ./Globalize/new-body.scm 294 */
obj_t BgL_arg3978z00_1521;
BgL_arg3978z00_1521 = 
CAR(BgL_obindingsz00_1495); 
BgL_arg3973z00_1520 = 
MAKE_PAIR(BgL_arg3978z00_1521, BgL_nbindingsz00_1496); } 
{ 
obj_t BgL_nbindingsz00_3582;obj_t BgL_obindingsz00_3581;
BgL_obindingsz00_3581 = BgL_arg3972z00_1519; 
BgL_nbindingsz00_3582 = BgL_arg3973z00_1520; 
BgL_nbindingsz00_1496 = BgL_nbindingsz00_3582; 
BgL_obindingsz00_1495 = BgL_obindingsz00_3581; 
goto BgL_liipz00_1497;} } } } } }  else 
{ /* ./Globalize/new-body.scm 295 */
bool_t BgL_test3986z00_1523;
{ /* ./Globalize/new-body.scm 295 */
BgL_localzf2ginfozf2_bglt BgL_obj2925z00_2346;
{ /* ./Globalize/new-body.scm 295 */
obj_t BgL_auxz00_3583;
BgL_auxz00_3583 = 
CAR(BgL_obindingsz00_1495); 
BgL_obj2925z00_2346 = 
(BgL_localzf2ginfozf2_bglt)(BgL_auxz00_3583); } 
{ 
obj_t BgL_auxz00_3586;
{ /* ./Globalize/new-body.scm 295 */
BgL_objectz00_bglt BgL_auxz00_3587;
BgL_auxz00_3587 = 
(BgL_objectz00_bglt)(BgL_obj2925z00_2346); 
BgL_auxz00_3586 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3587); } 
BgL_test3986z00_1523 = 
(((BgL_localzf2ginfozf2_bglt)CREF(BgL_auxz00_3586))->BgL_escapezf3zf3); } } 
if(BgL_test3986z00_1523)
{ /* ./Globalize/new-body.scm 295 */
{ /* ./Globalize/new-body.scm 299 */
obj_t BgL_arg3988z00_1524;obj_t BgL_arg3989z00_1525;
BgL_arg3988z00_1524 = 
CDR(BgL_obindingsz00_1495); 
{ /* ./Globalize/new-body.scm 300 */
obj_t BgL_arg3993z00_1526;
BgL_arg3993z00_1526 = 
CAR(BgL_obindingsz00_1495); 
BgL_arg3989z00_1525 = 
MAKE_PAIR(BgL_arg3993z00_1526, BgL_nbindingsz00_1496); } 
{ 
obj_t BgL_nbindingsz00_3596;obj_t BgL_obindingsz00_3595;
BgL_obindingsz00_3595 = BgL_arg3988z00_1524; 
BgL_nbindingsz00_3596 = BgL_arg3989z00_1525; 
BgL_nbindingsz00_1496 = BgL_nbindingsz00_3596; 
BgL_obindingsz00_1495 = BgL_obindingsz00_3595; 
goto BgL_liipz00_1497;} } }  else 
{ /* ./Globalize/new-body.scm 295 */
{ /* ./Globalize/new-body.scm 304 */
obj_t BgL_arg3997z00_1527;
BgL_arg3997z00_1527 = 
CDR(BgL_obindingsz00_1495); 
{ 
obj_t BgL_obindingsz00_3598;
BgL_obindingsz00_3598 = BgL_arg3997z00_1527; 
BgL_obindingsz00_1495 = BgL_obindingsz00_3598; 
goto BgL_liipz00_1497;} } } } } } } } } 
return 
(obj_t)(BgL_auxz00_3455);} } } 
}



/* rem!-select3105 */
obj_t BGl_remz12zd2select3105zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2738, obj_t BgL_nodez00_2739, obj_t BgL_ownerz00_2740, obj_t BgL_currentz00_2741)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 246 */
{ 
BgL_selectz00_bglt BgL_nodez00_1469;obj_t BgL_ownerz00_1470;obj_t BgL_currentz00_1471;
{ /* ./Globalize/new-body.scm 247 */
BgL_selectz00_bglt BgL_auxz00_3601;
BgL_nodez00_1469 = 
(BgL_selectz00_bglt)(BgL_nodez00_2739); 
BgL_ownerz00_1470 = BgL_ownerz00_2740; 
BgL_currentz00_1471 = BgL_currentz00_2741; 
{ /* ./Globalize/new-body.scm 248 */
BgL_nodez00_bglt BgL_arg3879z00_1475;
{ /* ./Globalize/new-body.scm 248 */
BgL_nodez00_bglt BgL_arg3882z00_1476;
BgL_arg3882z00_1476 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1469))->BgL_testz00); 
{ /* ./Globalize/new-body.scm 248 */
BgL_nodez00_bglt BgL_res4197z00_2213;
{ /* ./Globalize/new-body.scm 248 */
obj_t BgL_method3079z00_2188;
{ /* ./Globalize/new-body.scm 248 */
BgL_objectz00_bglt BgL_objz00_2189;
BgL_objz00_2189 = 
(BgL_objectz00_bglt)(BgL_arg3882z00_1476); 
{ /* ./Globalize/new-body.scm 248 */
long BgL_objzd2classzd2numz00_2190;
BgL_objzd2classzd2numz00_2190 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2189); 
{ /* ./Globalize/new-body.scm 248 */
obj_t BgL_arg2017z00_2191;
{ /* ./Globalize/new-body.scm 248 */
int BgL_auxz00_3605;
BgL_auxz00_3605 = 
(int)(((long)1)); 
BgL_arg2017z00_2191 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3605); } 
{ /* ./Globalize/new-body.scm 248 */
int BgL_offsetz00_2194;
BgL_offsetz00_2194 = 
(int)(BgL_objzd2classzd2numz00_2190); 
{ /* ./Globalize/new-body.scm 248 */
long BgL_offsetz00_2195;
{ /* ./Globalize/new-body.scm 248 */
long BgL_auxz00_3609;
BgL_auxz00_3609 = 
(long)(BgL_offsetz00_2194); 
BgL_offsetz00_2195 = 
(BgL_auxz00_3609-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 248 */
long BgL_modz00_2196;
{ /* ./Globalize/new-body.scm 248 */
int BgL_arg2028z00_2197;
BgL_arg2028z00_2197 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 248 */
long BgL_n2z00_2205;
BgL_n2z00_2205 = 
(long)(BgL_arg2028z00_2197); 
BgL_modz00_2196 = 
(BgL_offsetz00_2195/BgL_n2z00_2205); } } 
{ /* ./Globalize/new-body.scm 248 */
long BgL_restz00_2198;
{ /* ./Globalize/new-body.scm 248 */
int BgL_arg2024z00_2199;
BgL_arg2024z00_2199 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 248 */
long BgL_n2z00_2208;
BgL_n2z00_2208 = 
(long)(BgL_arg2024z00_2199); 
BgL_restz00_2198 = 
(BgL_offsetz00_2195%BgL_n2z00_2208); } } 
{ /* ./Globalize/new-body.scm 248 */

{ /* ./Globalize/new-body.scm 248 */
obj_t BgL_bucketz00_2200;
{ /* ./Globalize/new-body.scm 248 */
int BgL_kz00_2210;
BgL_kz00_2210 = 
(int)(BgL_modz00_2196); 
BgL_bucketz00_2200 = 
VECTOR_REF(BgL_arg2017z00_2191,BgL_kz00_2210); } 
{ /* ./Globalize/new-body.scm 248 */
int BgL_kz00_2212;
BgL_kz00_2212 = 
(int)(BgL_restz00_2198); 
BgL_method3079z00_2188 = 
VECTOR_REF(BgL_bucketz00_2200,BgL_kz00_2212); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 248 */
obj_t BgL_auxz00_3622;
BgL_auxz00_3622 = 
PROCEDURE_ENTRY(BgL_method3079z00_2188)(BgL_method3079z00_2188, 
(obj_t)(BgL_arg3882z00_1476), BgL_ownerz00_1470, BgL_currentz00_1471, BEOA); 
BgL_res4197z00_2213 = 
(BgL_nodez00_bglt)(BgL_auxz00_3622); } } 
BgL_arg3879z00_1475 = BgL_res4197z00_2213; } } 
{ /* ./Globalize/new-body.scm 248 */
BgL_selectz00_bglt BgL_obj2410z00_2214;BgL_nodez00_bglt BgL_val2409z00_2215;
BgL_obj2410z00_2214 = BgL_nodez00_1469; 
BgL_val2409z00_2215 = BgL_arg3879z00_1475; 
((((BgL_selectz00_bglt)CREF(BgL_obj2410z00_2214))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2409z00_2215), BUNSPEC); } } 
{ 
obj_t BgL_l3060z00_1477;
{ /* ./Globalize/new-body.scm 249 */
obj_t BgL_arg3886z00_1479;
BgL_arg3886z00_1479 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1469))->BgL_clausesz00); 
BgL_l3060z00_1477 = BgL_arg3886z00_1479; 
BgL_forzd2each3061zd2_1478:
{ /* ./Globalize/new-body.scm 249 */
bool_t BgL_test3889z00_1480;
BgL_test3889z00_1480 = 
PAIRP(BgL_l3060z00_1477); 
if(BgL_test3889z00_1480)
{ /* ./Globalize/new-body.scm 249 */
{ /* ./Globalize/new-body.scm 250 */
obj_t BgL_clausez00_1481;
BgL_clausez00_1481 = 
CAR(BgL_l3060z00_1477); 
{ /* ./Globalize/new-body.scm 250 */
BgL_nodez00_bglt BgL_arg3891z00_1482;
{ /* ./Globalize/new-body.scm 250 */
obj_t BgL_arg3894z00_1483;
BgL_arg3894z00_1483 = 
CDR(BgL_clausez00_1481); 
{ /* ./Globalize/new-body.scm 250 */
BgL_nodez00_bglt BgL_res4200z00_2248;
{ /* ./Globalize/new-body.scm 250 */
BgL_nodez00_bglt BgL_nodez00_2220;
BgL_nodez00_2220 = 
(BgL_nodez00_bglt)(BgL_arg3894z00_1483); 
{ /* ./Globalize/new-body.scm 250 */
obj_t BgL_method3079z00_2223;
{ /* ./Globalize/new-body.scm 250 */
BgL_objectz00_bglt BgL_objz00_2224;
BgL_objz00_2224 = 
(BgL_objectz00_bglt)(BgL_nodez00_2220); 
{ /* ./Globalize/new-body.scm 250 */
long BgL_objzd2classzd2numz00_2225;
BgL_objzd2classzd2numz00_2225 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2224); 
{ /* ./Globalize/new-body.scm 250 */
obj_t BgL_arg2017z00_2226;
{ /* ./Globalize/new-body.scm 250 */
int BgL_auxz00_3636;
BgL_auxz00_3636 = 
(int)(((long)1)); 
BgL_arg2017z00_2226 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3636); } 
{ /* ./Globalize/new-body.scm 250 */
int BgL_offsetz00_2229;
BgL_offsetz00_2229 = 
(int)(BgL_objzd2classzd2numz00_2225); 
{ /* ./Globalize/new-body.scm 250 */
long BgL_offsetz00_2230;
{ /* ./Globalize/new-body.scm 250 */
long BgL_auxz00_3640;
BgL_auxz00_3640 = 
(long)(BgL_offsetz00_2229); 
BgL_offsetz00_2230 = 
(BgL_auxz00_3640-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 250 */
long BgL_modz00_2231;
{ /* ./Globalize/new-body.scm 250 */
int BgL_arg2028z00_2232;
BgL_arg2028z00_2232 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 250 */
long BgL_n2z00_2240;
BgL_n2z00_2240 = 
(long)(BgL_arg2028z00_2232); 
BgL_modz00_2231 = 
(BgL_offsetz00_2230/BgL_n2z00_2240); } } 
{ /* ./Globalize/new-body.scm 250 */
long BgL_restz00_2233;
{ /* ./Globalize/new-body.scm 250 */
int BgL_arg2024z00_2234;
BgL_arg2024z00_2234 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 250 */
long BgL_n2z00_2243;
BgL_n2z00_2243 = 
(long)(BgL_arg2024z00_2234); 
BgL_restz00_2233 = 
(BgL_offsetz00_2230%BgL_n2z00_2243); } } 
{ /* ./Globalize/new-body.scm 250 */

{ /* ./Globalize/new-body.scm 250 */
obj_t BgL_bucketz00_2235;
{ /* ./Globalize/new-body.scm 250 */
int BgL_kz00_2245;
BgL_kz00_2245 = 
(int)(BgL_modz00_2231); 
BgL_bucketz00_2235 = 
VECTOR_REF(BgL_arg2017z00_2226,BgL_kz00_2245); } 
{ /* ./Globalize/new-body.scm 250 */
int BgL_kz00_2247;
BgL_kz00_2247 = 
(int)(BgL_restz00_2233); 
BgL_method3079z00_2223 = 
VECTOR_REF(BgL_bucketz00_2235,BgL_kz00_2247); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 250 */
obj_t BgL_auxz00_3653;
BgL_auxz00_3653 = 
PROCEDURE_ENTRY(BgL_method3079z00_2223)(BgL_method3079z00_2223, 
(obj_t)(BgL_nodez00_2220), BgL_ownerz00_1470, BgL_currentz00_1471, BEOA); 
BgL_res4200z00_2248 = 
(BgL_nodez00_bglt)(BgL_auxz00_3653); } } } 
BgL_arg3891z00_1482 = BgL_res4200z00_2248; } } 
{ /* ./Globalize/new-body.scm 250 */
obj_t BgL_objz00_2250;
BgL_objz00_2250 = 
(obj_t)(BgL_arg3891z00_1482); 
SET_CDR(BgL_clausez00_1481, BgL_objz00_2250); } } } 
{ /* ./Globalize/new-body.scm 249 */
obj_t BgL_arg3899z00_1484;
BgL_arg3899z00_1484 = 
CDR(BgL_l3060z00_1477); 
{ 
obj_t BgL_l3060z00_3661;
BgL_l3060z00_3661 = BgL_arg3899z00_1484; 
BgL_l3060z00_1477 = BgL_l3060z00_3661; 
goto BgL_forzd2each3061zd2_1478;} } }  else 
{ /* ./Globalize/new-body.scm 249 */((bool_t)1); } } } } 
BgL_auxz00_3601 = BgL_nodez00_1469; 
return 
(obj_t)(BgL_auxz00_3601);} } } 
}



/* rem!-fail3103 */
obj_t BGl_remz12zd2fail3103zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2742, obj_t BgL_nodez00_2743, obj_t BgL_ownerz00_2744, obj_t BgL_currentz00_2745)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 236 */
{ 
BgL_failz00_bglt BgL_nodez00_1455;obj_t BgL_ownerz00_1456;obj_t BgL_currentz00_1457;
{ /* ./Globalize/new-body.scm 237 */
BgL_failz00_bglt BgL_auxz00_3664;
BgL_nodez00_1455 = 
(BgL_failz00_bglt)(BgL_nodez00_2743); 
BgL_ownerz00_1456 = BgL_ownerz00_2744; 
BgL_currentz00_1457 = BgL_currentz00_2745; 
{ /* ./Globalize/new-body.scm 238 */
BgL_nodez00_bglt BgL_arg3852z00_1461;
{ /* ./Globalize/new-body.scm 238 */
BgL_nodez00_bglt BgL_arg3855z00_1462;
BgL_arg3855z00_1462 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1455))->BgL_procz00); 
{ /* ./Globalize/new-body.scm 238 */
BgL_nodez00_bglt BgL_res4188z00_2117;
{ /* ./Globalize/new-body.scm 238 */
obj_t BgL_method3079z00_2092;
{ /* ./Globalize/new-body.scm 238 */
BgL_objectz00_bglt BgL_objz00_2093;
BgL_objz00_2093 = 
(BgL_objectz00_bglt)(BgL_arg3855z00_1462); 
{ /* ./Globalize/new-body.scm 238 */
long BgL_objzd2classzd2numz00_2094;
BgL_objzd2classzd2numz00_2094 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2093); 
{ /* ./Globalize/new-body.scm 238 */
obj_t BgL_arg2017z00_2095;
{ /* ./Globalize/new-body.scm 238 */
int BgL_auxz00_3668;
BgL_auxz00_3668 = 
(int)(((long)1)); 
BgL_arg2017z00_2095 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3668); } 
{ /* ./Globalize/new-body.scm 238 */
int BgL_offsetz00_2098;
BgL_offsetz00_2098 = 
(int)(BgL_objzd2classzd2numz00_2094); 
{ /* ./Globalize/new-body.scm 238 */
long BgL_offsetz00_2099;
{ /* ./Globalize/new-body.scm 238 */
long BgL_auxz00_3672;
BgL_auxz00_3672 = 
(long)(BgL_offsetz00_2098); 
BgL_offsetz00_2099 = 
(BgL_auxz00_3672-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 238 */
long BgL_modz00_2100;
{ /* ./Globalize/new-body.scm 238 */
int BgL_arg2028z00_2101;
BgL_arg2028z00_2101 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 238 */
long BgL_n2z00_2109;
BgL_n2z00_2109 = 
(long)(BgL_arg2028z00_2101); 
BgL_modz00_2100 = 
(BgL_offsetz00_2099/BgL_n2z00_2109); } } 
{ /* ./Globalize/new-body.scm 238 */
long BgL_restz00_2102;
{ /* ./Globalize/new-body.scm 238 */
int BgL_arg2024z00_2103;
BgL_arg2024z00_2103 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 238 */
long BgL_n2z00_2112;
BgL_n2z00_2112 = 
(long)(BgL_arg2024z00_2103); 
BgL_restz00_2102 = 
(BgL_offsetz00_2099%BgL_n2z00_2112); } } 
{ /* ./Globalize/new-body.scm 238 */

{ /* ./Globalize/new-body.scm 238 */
obj_t BgL_bucketz00_2104;
{ /* ./Globalize/new-body.scm 238 */
int BgL_kz00_2114;
BgL_kz00_2114 = 
(int)(BgL_modz00_2100); 
BgL_bucketz00_2104 = 
VECTOR_REF(BgL_arg2017z00_2095,BgL_kz00_2114); } 
{ /* ./Globalize/new-body.scm 238 */
int BgL_kz00_2116;
BgL_kz00_2116 = 
(int)(BgL_restz00_2102); 
BgL_method3079z00_2092 = 
VECTOR_REF(BgL_bucketz00_2104,BgL_kz00_2116); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 238 */
obj_t BgL_auxz00_3685;
BgL_auxz00_3685 = 
PROCEDURE_ENTRY(BgL_method3079z00_2092)(BgL_method3079z00_2092, 
(obj_t)(BgL_arg3855z00_1462), BgL_ownerz00_1456, BgL_currentz00_1457, BEOA); 
BgL_res4188z00_2117 = 
(BgL_nodez00_bglt)(BgL_auxz00_3685); } } 
BgL_arg3852z00_1461 = BgL_res4188z00_2117; } } 
{ /* ./Globalize/new-body.scm 238 */
BgL_failz00_bglt BgL_obj2372z00_2118;BgL_nodez00_bglt BgL_val2371z00_2119;
BgL_obj2372z00_2118 = BgL_nodez00_1455; 
BgL_val2371z00_2119 = BgL_arg3852z00_1461; 
((((BgL_failz00_bglt)CREF(BgL_obj2372z00_2118))->BgL_procz00) = ((BgL_nodez00_bglt)BgL_val2371z00_2119), BUNSPEC); } } 
{ /* ./Globalize/new-body.scm 239 */
BgL_nodez00_bglt BgL_arg3859z00_1463;
{ /* ./Globalize/new-body.scm 239 */
BgL_nodez00_bglt BgL_arg3862z00_1464;
BgL_arg3862z00_1464 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1455))->BgL_msgz00); 
{ /* ./Globalize/new-body.scm 239 */
BgL_nodez00_bglt BgL_res4191z00_2149;
{ /* ./Globalize/new-body.scm 239 */
obj_t BgL_method3079z00_2124;
{ /* ./Globalize/new-body.scm 239 */
BgL_objectz00_bglt BgL_objz00_2125;
BgL_objz00_2125 = 
(BgL_objectz00_bglt)(BgL_arg3862z00_1464); 
{ /* ./Globalize/new-body.scm 239 */
long BgL_objzd2classzd2numz00_2126;
BgL_objzd2classzd2numz00_2126 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2125); 
{ /* ./Globalize/new-body.scm 239 */
obj_t BgL_arg2017z00_2127;
{ /* ./Globalize/new-body.scm 239 */
int BgL_auxz00_3694;
BgL_auxz00_3694 = 
(int)(((long)1)); 
BgL_arg2017z00_2127 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3694); } 
{ /* ./Globalize/new-body.scm 239 */
int BgL_offsetz00_2130;
BgL_offsetz00_2130 = 
(int)(BgL_objzd2classzd2numz00_2126); 
{ /* ./Globalize/new-body.scm 239 */
long BgL_offsetz00_2131;
{ /* ./Globalize/new-body.scm 239 */
long BgL_auxz00_3698;
BgL_auxz00_3698 = 
(long)(BgL_offsetz00_2130); 
BgL_offsetz00_2131 = 
(BgL_auxz00_3698-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 239 */
long BgL_modz00_2132;
{ /* ./Globalize/new-body.scm 239 */
int BgL_arg2028z00_2133;
BgL_arg2028z00_2133 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 239 */
long BgL_n2z00_2141;
BgL_n2z00_2141 = 
(long)(BgL_arg2028z00_2133); 
BgL_modz00_2132 = 
(BgL_offsetz00_2131/BgL_n2z00_2141); } } 
{ /* ./Globalize/new-body.scm 239 */
long BgL_restz00_2134;
{ /* ./Globalize/new-body.scm 239 */
int BgL_arg2024z00_2135;
BgL_arg2024z00_2135 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 239 */
long BgL_n2z00_2144;
BgL_n2z00_2144 = 
(long)(BgL_arg2024z00_2135); 
BgL_restz00_2134 = 
(BgL_offsetz00_2131%BgL_n2z00_2144); } } 
{ /* ./Globalize/new-body.scm 239 */

{ /* ./Globalize/new-body.scm 239 */
obj_t BgL_bucketz00_2136;
{ /* ./Globalize/new-body.scm 239 */
int BgL_kz00_2146;
BgL_kz00_2146 = 
(int)(BgL_modz00_2132); 
BgL_bucketz00_2136 = 
VECTOR_REF(BgL_arg2017z00_2127,BgL_kz00_2146); } 
{ /* ./Globalize/new-body.scm 239 */
int BgL_kz00_2148;
BgL_kz00_2148 = 
(int)(BgL_restz00_2134); 
BgL_method3079z00_2124 = 
VECTOR_REF(BgL_bucketz00_2136,BgL_kz00_2148); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 239 */
obj_t BgL_auxz00_3711;
BgL_auxz00_3711 = 
PROCEDURE_ENTRY(BgL_method3079z00_2124)(BgL_method3079z00_2124, 
(obj_t)(BgL_arg3862z00_1464), BgL_ownerz00_1456, BgL_currentz00_1457, BEOA); 
BgL_res4191z00_2149 = 
(BgL_nodez00_bglt)(BgL_auxz00_3711); } } 
BgL_arg3859z00_1463 = BgL_res4191z00_2149; } } 
{ /* ./Globalize/new-body.scm 239 */
BgL_failz00_bglt BgL_obj2375z00_2150;BgL_nodez00_bglt BgL_val2374z00_2151;
BgL_obj2375z00_2150 = BgL_nodez00_1455; 
BgL_val2374z00_2151 = BgL_arg3859z00_1463; 
((((BgL_failz00_bglt)CREF(BgL_obj2375z00_2150))->BgL_msgz00) = ((BgL_nodez00_bglt)BgL_val2374z00_2151), BUNSPEC); } } 
{ /* ./Globalize/new-body.scm 240 */
BgL_nodez00_bglt BgL_arg3866z00_1465;
{ /* ./Globalize/new-body.scm 240 */
BgL_nodez00_bglt BgL_arg3869z00_1466;
BgL_arg3869z00_1466 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1455))->BgL_objz00); 
{ /* ./Globalize/new-body.scm 240 */
BgL_nodez00_bglt BgL_res4194z00_2181;
{ /* ./Globalize/new-body.scm 240 */
obj_t BgL_method3079z00_2156;
{ /* ./Globalize/new-body.scm 240 */
BgL_objectz00_bglt BgL_objz00_2157;
BgL_objz00_2157 = 
(BgL_objectz00_bglt)(BgL_arg3869z00_1466); 
{ /* ./Globalize/new-body.scm 240 */
long BgL_objzd2classzd2numz00_2158;
BgL_objzd2classzd2numz00_2158 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2157); 
{ /* ./Globalize/new-body.scm 240 */
obj_t BgL_arg2017z00_2159;
{ /* ./Globalize/new-body.scm 240 */
int BgL_auxz00_3720;
BgL_auxz00_3720 = 
(int)(((long)1)); 
BgL_arg2017z00_2159 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3720); } 
{ /* ./Globalize/new-body.scm 240 */
int BgL_offsetz00_2162;
BgL_offsetz00_2162 = 
(int)(BgL_objzd2classzd2numz00_2158); 
{ /* ./Globalize/new-body.scm 240 */
long BgL_offsetz00_2163;
{ /* ./Globalize/new-body.scm 240 */
long BgL_auxz00_3724;
BgL_auxz00_3724 = 
(long)(BgL_offsetz00_2162); 
BgL_offsetz00_2163 = 
(BgL_auxz00_3724-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 240 */
long BgL_modz00_2164;
{ /* ./Globalize/new-body.scm 240 */
int BgL_arg2028z00_2165;
BgL_arg2028z00_2165 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 240 */
long BgL_n2z00_2173;
BgL_n2z00_2173 = 
(long)(BgL_arg2028z00_2165); 
BgL_modz00_2164 = 
(BgL_offsetz00_2163/BgL_n2z00_2173); } } 
{ /* ./Globalize/new-body.scm 240 */
long BgL_restz00_2166;
{ /* ./Globalize/new-body.scm 240 */
int BgL_arg2024z00_2167;
BgL_arg2024z00_2167 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 240 */
long BgL_n2z00_2176;
BgL_n2z00_2176 = 
(long)(BgL_arg2024z00_2167); 
BgL_restz00_2166 = 
(BgL_offsetz00_2163%BgL_n2z00_2176); } } 
{ /* ./Globalize/new-body.scm 240 */

{ /* ./Globalize/new-body.scm 240 */
obj_t BgL_bucketz00_2168;
{ /* ./Globalize/new-body.scm 240 */
int BgL_kz00_2178;
BgL_kz00_2178 = 
(int)(BgL_modz00_2164); 
BgL_bucketz00_2168 = 
VECTOR_REF(BgL_arg2017z00_2159,BgL_kz00_2178); } 
{ /* ./Globalize/new-body.scm 240 */
int BgL_kz00_2180;
BgL_kz00_2180 = 
(int)(BgL_restz00_2166); 
BgL_method3079z00_2156 = 
VECTOR_REF(BgL_bucketz00_2168,BgL_kz00_2180); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 240 */
obj_t BgL_auxz00_3737;
BgL_auxz00_3737 = 
PROCEDURE_ENTRY(BgL_method3079z00_2156)(BgL_method3079z00_2156, 
(obj_t)(BgL_arg3869z00_1466), BgL_ownerz00_1456, BgL_currentz00_1457, BEOA); 
BgL_res4194z00_2181 = 
(BgL_nodez00_bglt)(BgL_auxz00_3737); } } 
BgL_arg3866z00_1465 = BgL_res4194z00_2181; } } 
{ /* ./Globalize/new-body.scm 240 */
BgL_failz00_bglt BgL_obj2378z00_2182;BgL_nodez00_bglt BgL_val2377z00_2183;
BgL_obj2378z00_2182 = BgL_nodez00_1455; 
BgL_val2377z00_2183 = BgL_arg3866z00_1465; 
((((BgL_failz00_bglt)CREF(BgL_obj2378z00_2182))->BgL_objz00) = ((BgL_nodez00_bglt)BgL_val2377z00_2183), BUNSPEC); } } 
BgL_auxz00_3664 = BgL_nodez00_1455; 
return 
(obj_t)(BgL_auxz00_3664);} } } 
}



/* rem!-conditional3101 */
obj_t BGl_remz12zd2conditional3101zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2746, obj_t BgL_nodez00_2747, obj_t BgL_ownerz00_2748, obj_t BgL_currentz00_2749)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 226 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1441;obj_t BgL_ownerz00_1442;obj_t BgL_currentz00_1443;
{ /* ./Globalize/new-body.scm 227 */
BgL_conditionalz00_bglt BgL_auxz00_3745;
BgL_nodez00_1441 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2747); 
BgL_ownerz00_1442 = BgL_ownerz00_2748; 
BgL_currentz00_1443 = BgL_currentz00_2749; 
{ /* ./Globalize/new-body.scm 228 */
BgL_nodez00_bglt BgL_arg3824z00_1447;
{ /* ./Globalize/new-body.scm 228 */
BgL_nodez00_bglt BgL_arg3827z00_1448;
BgL_arg3827z00_1448 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1441))->BgL_testz00); 
{ /* ./Globalize/new-body.scm 228 */
BgL_nodez00_bglt BgL_res4179z00_2021;
{ /* ./Globalize/new-body.scm 228 */
obj_t BgL_method3079z00_1996;
{ /* ./Globalize/new-body.scm 228 */
BgL_objectz00_bglt BgL_objz00_1997;
BgL_objz00_1997 = 
(BgL_objectz00_bglt)(BgL_arg3827z00_1448); 
{ /* ./Globalize/new-body.scm 228 */
long BgL_objzd2classzd2numz00_1998;
BgL_objzd2classzd2numz00_1998 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1997); 
{ /* ./Globalize/new-body.scm 228 */
obj_t BgL_arg2017z00_1999;
{ /* ./Globalize/new-body.scm 228 */
int BgL_auxz00_3749;
BgL_auxz00_3749 = 
(int)(((long)1)); 
BgL_arg2017z00_1999 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3749); } 
{ /* ./Globalize/new-body.scm 228 */
int BgL_offsetz00_2002;
BgL_offsetz00_2002 = 
(int)(BgL_objzd2classzd2numz00_1998); 
{ /* ./Globalize/new-body.scm 228 */
long BgL_offsetz00_2003;
{ /* ./Globalize/new-body.scm 228 */
long BgL_auxz00_3753;
BgL_auxz00_3753 = 
(long)(BgL_offsetz00_2002); 
BgL_offsetz00_2003 = 
(BgL_auxz00_3753-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 228 */
long BgL_modz00_2004;
{ /* ./Globalize/new-body.scm 228 */
int BgL_arg2028z00_2005;
BgL_arg2028z00_2005 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 228 */
long BgL_n2z00_2013;
BgL_n2z00_2013 = 
(long)(BgL_arg2028z00_2005); 
BgL_modz00_2004 = 
(BgL_offsetz00_2003/BgL_n2z00_2013); } } 
{ /* ./Globalize/new-body.scm 228 */
long BgL_restz00_2006;
{ /* ./Globalize/new-body.scm 228 */
int BgL_arg2024z00_2007;
BgL_arg2024z00_2007 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 228 */
long BgL_n2z00_2016;
BgL_n2z00_2016 = 
(long)(BgL_arg2024z00_2007); 
BgL_restz00_2006 = 
(BgL_offsetz00_2003%BgL_n2z00_2016); } } 
{ /* ./Globalize/new-body.scm 228 */

{ /* ./Globalize/new-body.scm 228 */
obj_t BgL_bucketz00_2008;
{ /* ./Globalize/new-body.scm 228 */
int BgL_kz00_2018;
BgL_kz00_2018 = 
(int)(BgL_modz00_2004); 
BgL_bucketz00_2008 = 
VECTOR_REF(BgL_arg2017z00_1999,BgL_kz00_2018); } 
{ /* ./Globalize/new-body.scm 228 */
int BgL_kz00_2020;
BgL_kz00_2020 = 
(int)(BgL_restz00_2006); 
BgL_method3079z00_1996 = 
VECTOR_REF(BgL_bucketz00_2008,BgL_kz00_2020); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 228 */
obj_t BgL_auxz00_3766;
BgL_auxz00_3766 = 
PROCEDURE_ENTRY(BgL_method3079z00_1996)(BgL_method3079z00_1996, 
(obj_t)(BgL_arg3827z00_1448), BgL_ownerz00_1442, BgL_currentz00_1443, BEOA); 
BgL_res4179z00_2021 = 
(BgL_nodez00_bglt)(BgL_auxz00_3766); } } 
BgL_arg3824z00_1447 = BgL_res4179z00_2021; } } 
{ /* ./Globalize/new-body.scm 228 */
BgL_conditionalz00_bglt BgL_obj2334z00_2022;BgL_nodez00_bglt BgL_val2333z00_2023;
BgL_obj2334z00_2022 = BgL_nodez00_1441; 
BgL_val2333z00_2023 = BgL_arg3824z00_1447; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2334z00_2022))->BgL_testz00) = ((BgL_nodez00_bglt)BgL_val2333z00_2023), BUNSPEC); } } 
{ /* ./Globalize/new-body.scm 229 */
BgL_nodez00_bglt BgL_arg3832z00_1449;
{ /* ./Globalize/new-body.scm 229 */
BgL_nodez00_bglt BgL_arg3835z00_1450;
BgL_arg3835z00_1450 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1441))->BgL_truez00); 
{ /* ./Globalize/new-body.scm 229 */
BgL_nodez00_bglt BgL_res4182z00_2053;
{ /* ./Globalize/new-body.scm 229 */
obj_t BgL_method3079z00_2028;
{ /* ./Globalize/new-body.scm 229 */
BgL_objectz00_bglt BgL_objz00_2029;
BgL_objz00_2029 = 
(BgL_objectz00_bglt)(BgL_arg3835z00_1450); 
{ /* ./Globalize/new-body.scm 229 */
long BgL_objzd2classzd2numz00_2030;
BgL_objzd2classzd2numz00_2030 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2029); 
{ /* ./Globalize/new-body.scm 229 */
obj_t BgL_arg2017z00_2031;
{ /* ./Globalize/new-body.scm 229 */
int BgL_auxz00_3775;
BgL_auxz00_3775 = 
(int)(((long)1)); 
BgL_arg2017z00_2031 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3775); } 
{ /* ./Globalize/new-body.scm 229 */
int BgL_offsetz00_2034;
BgL_offsetz00_2034 = 
(int)(BgL_objzd2classzd2numz00_2030); 
{ /* ./Globalize/new-body.scm 229 */
long BgL_offsetz00_2035;
{ /* ./Globalize/new-body.scm 229 */
long BgL_auxz00_3779;
BgL_auxz00_3779 = 
(long)(BgL_offsetz00_2034); 
BgL_offsetz00_2035 = 
(BgL_auxz00_3779-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 229 */
long BgL_modz00_2036;
{ /* ./Globalize/new-body.scm 229 */
int BgL_arg2028z00_2037;
BgL_arg2028z00_2037 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 229 */
long BgL_n2z00_2045;
BgL_n2z00_2045 = 
(long)(BgL_arg2028z00_2037); 
BgL_modz00_2036 = 
(BgL_offsetz00_2035/BgL_n2z00_2045); } } 
{ /* ./Globalize/new-body.scm 229 */
long BgL_restz00_2038;
{ /* ./Globalize/new-body.scm 229 */
int BgL_arg2024z00_2039;
BgL_arg2024z00_2039 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 229 */
long BgL_n2z00_2048;
BgL_n2z00_2048 = 
(long)(BgL_arg2024z00_2039); 
BgL_restz00_2038 = 
(BgL_offsetz00_2035%BgL_n2z00_2048); } } 
{ /* ./Globalize/new-body.scm 229 */

{ /* ./Globalize/new-body.scm 229 */
obj_t BgL_bucketz00_2040;
{ /* ./Globalize/new-body.scm 229 */
int BgL_kz00_2050;
BgL_kz00_2050 = 
(int)(BgL_modz00_2036); 
BgL_bucketz00_2040 = 
VECTOR_REF(BgL_arg2017z00_2031,BgL_kz00_2050); } 
{ /* ./Globalize/new-body.scm 229 */
int BgL_kz00_2052;
BgL_kz00_2052 = 
(int)(BgL_restz00_2038); 
BgL_method3079z00_2028 = 
VECTOR_REF(BgL_bucketz00_2040,BgL_kz00_2052); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 229 */
obj_t BgL_auxz00_3792;
BgL_auxz00_3792 = 
PROCEDURE_ENTRY(BgL_method3079z00_2028)(BgL_method3079z00_2028, 
(obj_t)(BgL_arg3835z00_1450), BgL_ownerz00_1442, BgL_currentz00_1443, BEOA); 
BgL_res4182z00_2053 = 
(BgL_nodez00_bglt)(BgL_auxz00_3792); } } 
BgL_arg3832z00_1449 = BgL_res4182z00_2053; } } 
{ /* ./Globalize/new-body.scm 229 */
BgL_conditionalz00_bglt BgL_obj2337z00_2054;BgL_nodez00_bglt BgL_val2336z00_2055;
BgL_obj2337z00_2054 = BgL_nodez00_1441; 
BgL_val2336z00_2055 = BgL_arg3832z00_1449; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2337z00_2054))->BgL_truez00) = ((BgL_nodez00_bglt)BgL_val2336z00_2055), BUNSPEC); } } 
{ /* ./Globalize/new-body.scm 230 */
BgL_nodez00_bglt BgL_arg3839z00_1451;
{ /* ./Globalize/new-body.scm 230 */
BgL_nodez00_bglt BgL_arg3842z00_1452;
BgL_arg3842z00_1452 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1441))->BgL_falsez00); 
{ /* ./Globalize/new-body.scm 230 */
BgL_nodez00_bglt BgL_res4185z00_2085;
{ /* ./Globalize/new-body.scm 230 */
obj_t BgL_method3079z00_2060;
{ /* ./Globalize/new-body.scm 230 */
BgL_objectz00_bglt BgL_objz00_2061;
BgL_objz00_2061 = 
(BgL_objectz00_bglt)(BgL_arg3842z00_1452); 
{ /* ./Globalize/new-body.scm 230 */
long BgL_objzd2classzd2numz00_2062;
BgL_objzd2classzd2numz00_2062 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2061); 
{ /* ./Globalize/new-body.scm 230 */
obj_t BgL_arg2017z00_2063;
{ /* ./Globalize/new-body.scm 230 */
int BgL_auxz00_3801;
BgL_auxz00_3801 = 
(int)(((long)1)); 
BgL_arg2017z00_2063 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3801); } 
{ /* ./Globalize/new-body.scm 230 */
int BgL_offsetz00_2066;
BgL_offsetz00_2066 = 
(int)(BgL_objzd2classzd2numz00_2062); 
{ /* ./Globalize/new-body.scm 230 */
long BgL_offsetz00_2067;
{ /* ./Globalize/new-body.scm 230 */
long BgL_auxz00_3805;
BgL_auxz00_3805 = 
(long)(BgL_offsetz00_2066); 
BgL_offsetz00_2067 = 
(BgL_auxz00_3805-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 230 */
long BgL_modz00_2068;
{ /* ./Globalize/new-body.scm 230 */
int BgL_arg2028z00_2069;
BgL_arg2028z00_2069 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 230 */
long BgL_n2z00_2077;
BgL_n2z00_2077 = 
(long)(BgL_arg2028z00_2069); 
BgL_modz00_2068 = 
(BgL_offsetz00_2067/BgL_n2z00_2077); } } 
{ /* ./Globalize/new-body.scm 230 */
long BgL_restz00_2070;
{ /* ./Globalize/new-body.scm 230 */
int BgL_arg2024z00_2071;
BgL_arg2024z00_2071 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 230 */
long BgL_n2z00_2080;
BgL_n2z00_2080 = 
(long)(BgL_arg2024z00_2071); 
BgL_restz00_2070 = 
(BgL_offsetz00_2067%BgL_n2z00_2080); } } 
{ /* ./Globalize/new-body.scm 230 */

{ /* ./Globalize/new-body.scm 230 */
obj_t BgL_bucketz00_2072;
{ /* ./Globalize/new-body.scm 230 */
int BgL_kz00_2082;
BgL_kz00_2082 = 
(int)(BgL_modz00_2068); 
BgL_bucketz00_2072 = 
VECTOR_REF(BgL_arg2017z00_2063,BgL_kz00_2082); } 
{ /* ./Globalize/new-body.scm 230 */
int BgL_kz00_2084;
BgL_kz00_2084 = 
(int)(BgL_restz00_2070); 
BgL_method3079z00_2060 = 
VECTOR_REF(BgL_bucketz00_2072,BgL_kz00_2084); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 230 */
obj_t BgL_auxz00_3818;
BgL_auxz00_3818 = 
PROCEDURE_ENTRY(BgL_method3079z00_2060)(BgL_method3079z00_2060, 
(obj_t)(BgL_arg3842z00_1452), BgL_ownerz00_1442, BgL_currentz00_1443, BEOA); 
BgL_res4185z00_2085 = 
(BgL_nodez00_bglt)(BgL_auxz00_3818); } } 
BgL_arg3839z00_1451 = BgL_res4185z00_2085; } } 
{ /* ./Globalize/new-body.scm 230 */
BgL_conditionalz00_bglt BgL_obj2340z00_2086;BgL_nodez00_bglt BgL_val2339z00_2087;
BgL_obj2340z00_2086 = BgL_nodez00_1441; 
BgL_val2339z00_2087 = BgL_arg3839z00_1451; 
((((BgL_conditionalz00_bglt)CREF(BgL_obj2340z00_2086))->BgL_falsez00) = ((BgL_nodez00_bglt)BgL_val2339z00_2087), BUNSPEC); } } 
BgL_auxz00_3745 = BgL_nodez00_1441; 
return 
(obj_t)(BgL_auxz00_3745);} } } 
}



/* rem!-setq3099 */
obj_t BGl_remz12zd2setq3099zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2750, obj_t BgL_nodez00_2751, obj_t BgL_ownerz00_2752, obj_t BgL_currentz00_2753)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 218 */
{ 
BgL_setqz00_bglt BgL_nodez00_1431;obj_t BgL_ownerz00_1432;obj_t BgL_currentz00_1433;
{ /* ./Globalize/new-body.scm 219 */
BgL_setqz00_bglt BgL_auxz00_3826;
BgL_nodez00_1431 = 
(BgL_setqz00_bglt)(BgL_nodez00_2751); 
BgL_ownerz00_1432 = BgL_ownerz00_2752; 
BgL_currentz00_1433 = BgL_currentz00_2753; 
{ /* ./Globalize/new-body.scm 219 */
BgL_nodez00_bglt BgL_arg3811z00_1958;
{ /* ./Globalize/new-body.scm 219 */
BgL_nodez00_bglt BgL_arg3814z00_1959;
BgL_arg3814z00_1959 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1431))->BgL_valuez00); 
{ /* ./Globalize/new-body.scm 219 */
BgL_nodez00_bglt BgL_res4176z00_1989;
{ /* ./Globalize/new-body.scm 219 */
obj_t BgL_method3079z00_1964;
{ /* ./Globalize/new-body.scm 219 */
BgL_objectz00_bglt BgL_objz00_1965;
BgL_objz00_1965 = 
(BgL_objectz00_bglt)(BgL_arg3814z00_1959); 
{ /* ./Globalize/new-body.scm 219 */
long BgL_objzd2classzd2numz00_1966;
BgL_objzd2classzd2numz00_1966 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1965); 
{ /* ./Globalize/new-body.scm 219 */
obj_t BgL_arg2017z00_1967;
{ /* ./Globalize/new-body.scm 219 */
int BgL_auxz00_3830;
BgL_auxz00_3830 = 
(int)(((long)1)); 
BgL_arg2017z00_1967 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3830); } 
{ /* ./Globalize/new-body.scm 219 */
int BgL_offsetz00_1970;
BgL_offsetz00_1970 = 
(int)(BgL_objzd2classzd2numz00_1966); 
{ /* ./Globalize/new-body.scm 219 */
long BgL_offsetz00_1971;
{ /* ./Globalize/new-body.scm 219 */
long BgL_auxz00_3834;
BgL_auxz00_3834 = 
(long)(BgL_offsetz00_1970); 
BgL_offsetz00_1971 = 
(BgL_auxz00_3834-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 219 */
long BgL_modz00_1972;
{ /* ./Globalize/new-body.scm 219 */
int BgL_arg2028z00_1973;
BgL_arg2028z00_1973 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 219 */
long BgL_n2z00_1981;
BgL_n2z00_1981 = 
(long)(BgL_arg2028z00_1973); 
BgL_modz00_1972 = 
(BgL_offsetz00_1971/BgL_n2z00_1981); } } 
{ /* ./Globalize/new-body.scm 219 */
long BgL_restz00_1974;
{ /* ./Globalize/new-body.scm 219 */
int BgL_arg2024z00_1975;
BgL_arg2024z00_1975 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 219 */
long BgL_n2z00_1984;
BgL_n2z00_1984 = 
(long)(BgL_arg2024z00_1975); 
BgL_restz00_1974 = 
(BgL_offsetz00_1971%BgL_n2z00_1984); } } 
{ /* ./Globalize/new-body.scm 219 */

{ /* ./Globalize/new-body.scm 219 */
obj_t BgL_bucketz00_1976;
{ /* ./Globalize/new-body.scm 219 */
int BgL_kz00_1986;
BgL_kz00_1986 = 
(int)(BgL_modz00_1972); 
BgL_bucketz00_1976 = 
VECTOR_REF(BgL_arg2017z00_1967,BgL_kz00_1986); } 
{ /* ./Globalize/new-body.scm 219 */
int BgL_kz00_1988;
BgL_kz00_1988 = 
(int)(BgL_restz00_1974); 
BgL_method3079z00_1964 = 
VECTOR_REF(BgL_bucketz00_1976,BgL_kz00_1988); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 219 */
obj_t BgL_auxz00_3847;
BgL_auxz00_3847 = 
PROCEDURE_ENTRY(BgL_method3079z00_1964)(BgL_method3079z00_1964, 
(obj_t)(BgL_arg3814z00_1959), BgL_ownerz00_1432, BgL_currentz00_1433, BEOA); 
BgL_res4176z00_1989 = 
(BgL_nodez00_bglt)(BgL_auxz00_3847); } } 
BgL_arg3811z00_1958 = BgL_res4176z00_1989; } } 
{ /* ./Globalize/new-body.scm 219 */
BgL_setqz00_bglt BgL_obj2305z00_1990;BgL_nodez00_bglt BgL_val2304z00_1991;
BgL_obj2305z00_1990 = BgL_nodez00_1431; 
BgL_val2304z00_1991 = BgL_arg3811z00_1958; 
((((BgL_setqz00_bglt)CREF(BgL_obj2305z00_1990))->BgL_valuez00) = ((BgL_nodez00_bglt)BgL_val2304z00_1991), BUNSPEC); } } 
BgL_auxz00_3826 = BgL_nodez00_1431; 
return 
(obj_t)(BgL_auxz00_3826);} } } 
}



/* rem!-cast3097 */
obj_t BGl_remz12zd2cast3097zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2754, obj_t BgL_nodez00_2755, obj_t BgL_ownerz00_2756, obj_t BgL_currentz00_2757)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 210 */
{ 
BgL_castz00_bglt BgL_nodez00_1422;obj_t BgL_ownerz00_1423;obj_t BgL_currentz00_1424;
{ /* ./Globalize/new-body.scm 211 */
BgL_castz00_bglt BgL_auxz00_3855;
BgL_nodez00_1422 = 
(BgL_castz00_bglt)(BgL_nodez00_2755); 
BgL_ownerz00_1423 = BgL_ownerz00_2756; 
BgL_currentz00_1424 = BgL_currentz00_2757; 
{ /* ./Globalize/new-body.scm 211 */
BgL_nodez00_bglt BgL_arg3801z00_1926;
BgL_arg3801z00_1926 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1422))->BgL_argz00); 
{ /* ./Globalize/new-body.scm 211 */
BgL_nodez00_bglt BgL_res4173z00_1956;
{ /* ./Globalize/new-body.scm 211 */
obj_t BgL_method3079z00_1931;
{ /* ./Globalize/new-body.scm 211 */
BgL_objectz00_bglt BgL_objz00_1932;
BgL_objz00_1932 = 
(BgL_objectz00_bglt)(BgL_arg3801z00_1926); 
{ /* ./Globalize/new-body.scm 211 */
long BgL_objzd2classzd2numz00_1933;
BgL_objzd2classzd2numz00_1933 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1932); 
{ /* ./Globalize/new-body.scm 211 */
obj_t BgL_arg2017z00_1934;
{ /* ./Globalize/new-body.scm 211 */
int BgL_auxz00_3859;
BgL_auxz00_3859 = 
(int)(((long)1)); 
BgL_arg2017z00_1934 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3859); } 
{ /* ./Globalize/new-body.scm 211 */
int BgL_offsetz00_1937;
BgL_offsetz00_1937 = 
(int)(BgL_objzd2classzd2numz00_1933); 
{ /* ./Globalize/new-body.scm 211 */
long BgL_offsetz00_1938;
{ /* ./Globalize/new-body.scm 211 */
long BgL_auxz00_3863;
BgL_auxz00_3863 = 
(long)(BgL_offsetz00_1937); 
BgL_offsetz00_1938 = 
(BgL_auxz00_3863-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 211 */
long BgL_modz00_1939;
{ /* ./Globalize/new-body.scm 211 */
int BgL_arg2028z00_1940;
BgL_arg2028z00_1940 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 211 */
long BgL_n2z00_1948;
BgL_n2z00_1948 = 
(long)(BgL_arg2028z00_1940); 
BgL_modz00_1939 = 
(BgL_offsetz00_1938/BgL_n2z00_1948); } } 
{ /* ./Globalize/new-body.scm 211 */
long BgL_restz00_1941;
{ /* ./Globalize/new-body.scm 211 */
int BgL_arg2024z00_1942;
BgL_arg2024z00_1942 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 211 */
long BgL_n2z00_1951;
BgL_n2z00_1951 = 
(long)(BgL_arg2024z00_1942); 
BgL_restz00_1941 = 
(BgL_offsetz00_1938%BgL_n2z00_1951); } } 
{ /* ./Globalize/new-body.scm 211 */

{ /* ./Globalize/new-body.scm 211 */
obj_t BgL_bucketz00_1943;
{ /* ./Globalize/new-body.scm 211 */
int BgL_kz00_1953;
BgL_kz00_1953 = 
(int)(BgL_modz00_1939); 
BgL_bucketz00_1943 = 
VECTOR_REF(BgL_arg2017z00_1934,BgL_kz00_1953); } 
{ /* ./Globalize/new-body.scm 211 */
int BgL_kz00_1955;
BgL_kz00_1955 = 
(int)(BgL_restz00_1941); 
BgL_method3079z00_1931 = 
VECTOR_REF(BgL_bucketz00_1943,BgL_kz00_1955); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 211 */
obj_t BgL_auxz00_3876;
BgL_auxz00_3876 = 
PROCEDURE_ENTRY(BgL_method3079z00_1931)(BgL_method3079z00_1931, 
(obj_t)(BgL_arg3801z00_1926), BgL_ownerz00_1423, BgL_currentz00_1424, BEOA); 
BgL_res4173z00_1956 = 
(BgL_nodez00_bglt)(BgL_auxz00_3876); } } BgL_res4173z00_1956; } } 
BgL_auxz00_3855 = BgL_nodez00_1422; 
return 
(obj_t)(BgL_auxz00_3855);} } } 
}



/* rem!-extern3095 */
obj_t BGl_remz12zd2extern3095zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2758, obj_t BgL_nodez00_2759, obj_t BgL_ownerz00_2760, obj_t BgL_currentz00_2761)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 202 */
{ 
BgL_externz00_bglt BgL_nodez00_1413;obj_t BgL_ownerz00_1414;obj_t BgL_currentz00_1415;
{ /* ./Globalize/new-body.scm 203 */
BgL_externz00_bglt BgL_auxz00_3883;
BgL_nodez00_1413 = 
(BgL_externz00_bglt)(BgL_nodez00_2759); 
BgL_ownerz00_1414 = BgL_ownerz00_2760; 
BgL_currentz00_1415 = BgL_currentz00_2761; 
{ /* ./Globalize/new-body.scm 203 */
obj_t BgL_arg3791z00_1923;
BgL_arg3791z00_1923 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1413))->BgL_exprza2za2); 
BGl_remza2z12zb0zzglobaliza7e_newzd2bodyz75(BgL_arg3791z00_1923, BgL_ownerz00_1414, BgL_currentz00_1415); } 
BgL_auxz00_3883 = BgL_nodez00_1413; 
return 
(obj_t)(BgL_auxz00_3883);} } } 
}



/* rem!-funcall3093 */
obj_t BGl_remz12zd2funcall3093zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2762, obj_t BgL_nodez00_2763, obj_t BgL_ownerz00_2764, obj_t BgL_currentz00_2765)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 193 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1402;obj_t BgL_ownerz00_1403;obj_t BgL_currentz00_1404;
{ /* ./Globalize/new-body.scm 194 */
BgL_funcallz00_bglt BgL_auxz00_3888;
BgL_nodez00_1402 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2763); 
BgL_ownerz00_1403 = BgL_ownerz00_2764; 
BgL_currentz00_1404 = BgL_currentz00_2765; 
{ /* ./Globalize/new-body.scm 195 */
BgL_nodez00_bglt BgL_arg3774z00_1408;
{ /* ./Globalize/new-body.scm 195 */
BgL_nodez00_bglt BgL_arg3777z00_1409;
BgL_arg3777z00_1409 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1402))->BgL_funz00); 
{ /* ./Globalize/new-body.scm 195 */
BgL_nodez00_bglt BgL_res4170z00_1918;
{ /* ./Globalize/new-body.scm 195 */
obj_t BgL_method3079z00_1893;
{ /* ./Globalize/new-body.scm 195 */
BgL_objectz00_bglt BgL_objz00_1894;
BgL_objz00_1894 = 
(BgL_objectz00_bglt)(BgL_arg3777z00_1409); 
{ /* ./Globalize/new-body.scm 195 */
long BgL_objzd2classzd2numz00_1895;
BgL_objzd2classzd2numz00_1895 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1894); 
{ /* ./Globalize/new-body.scm 195 */
obj_t BgL_arg2017z00_1896;
{ /* ./Globalize/new-body.scm 195 */
int BgL_auxz00_3892;
BgL_auxz00_3892 = 
(int)(((long)1)); 
BgL_arg2017z00_1896 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3892); } 
{ /* ./Globalize/new-body.scm 195 */
int BgL_offsetz00_1899;
BgL_offsetz00_1899 = 
(int)(BgL_objzd2classzd2numz00_1895); 
{ /* ./Globalize/new-body.scm 195 */
long BgL_offsetz00_1900;
{ /* ./Globalize/new-body.scm 195 */
long BgL_auxz00_3896;
BgL_auxz00_3896 = 
(long)(BgL_offsetz00_1899); 
BgL_offsetz00_1900 = 
(BgL_auxz00_3896-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 195 */
long BgL_modz00_1901;
{ /* ./Globalize/new-body.scm 195 */
int BgL_arg2028z00_1902;
BgL_arg2028z00_1902 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 195 */
long BgL_n2z00_1910;
BgL_n2z00_1910 = 
(long)(BgL_arg2028z00_1902); 
BgL_modz00_1901 = 
(BgL_offsetz00_1900/BgL_n2z00_1910); } } 
{ /* ./Globalize/new-body.scm 195 */
long BgL_restz00_1903;
{ /* ./Globalize/new-body.scm 195 */
int BgL_arg2024z00_1904;
BgL_arg2024z00_1904 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 195 */
long BgL_n2z00_1913;
BgL_n2z00_1913 = 
(long)(BgL_arg2024z00_1904); 
BgL_restz00_1903 = 
(BgL_offsetz00_1900%BgL_n2z00_1913); } } 
{ /* ./Globalize/new-body.scm 195 */

{ /* ./Globalize/new-body.scm 195 */
obj_t BgL_bucketz00_1905;
{ /* ./Globalize/new-body.scm 195 */
int BgL_kz00_1915;
BgL_kz00_1915 = 
(int)(BgL_modz00_1901); 
BgL_bucketz00_1905 = 
VECTOR_REF(BgL_arg2017z00_1896,BgL_kz00_1915); } 
{ /* ./Globalize/new-body.scm 195 */
int BgL_kz00_1917;
BgL_kz00_1917 = 
(int)(BgL_restz00_1903); 
BgL_method3079z00_1893 = 
VECTOR_REF(BgL_bucketz00_1905,BgL_kz00_1917); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 195 */
obj_t BgL_auxz00_3909;
BgL_auxz00_3909 = 
PROCEDURE_ENTRY(BgL_method3079z00_1893)(BgL_method3079z00_1893, 
(obj_t)(BgL_arg3777z00_1409), BgL_ownerz00_1403, BgL_currentz00_1404, BEOA); 
BgL_res4170z00_1918 = 
(BgL_nodez00_bglt)(BgL_auxz00_3909); } } 
BgL_arg3774z00_1408 = BgL_res4170z00_1918; } } 
{ /* ./Globalize/new-body.scm 195 */
BgL_funcallz00_bglt BgL_obj1781z00_1919;BgL_nodez00_bglt BgL_val1780z00_1920;
BgL_obj1781z00_1919 = BgL_nodez00_1402; 
BgL_val1780z00_1920 = BgL_arg3774z00_1408; 
((((BgL_funcallz00_bglt)CREF(BgL_obj1781z00_1919))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1780z00_1920), BUNSPEC); } } 
{ /* ./Globalize/new-body.scm 196 */
obj_t BgL_arg3781z00_1410;
BgL_arg3781z00_1410 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1402))->BgL_argsz00); 
BGl_remza2z12zb0zzglobaliza7e_newzd2bodyz75(BgL_arg3781z00_1410, BgL_ownerz00_1403, BgL_currentz00_1404); } 
BgL_auxz00_3888 = BgL_nodez00_1402; 
return 
(obj_t)(BgL_auxz00_3888);} } } 
}



/* rem!-app-ly3091 */
obj_t BGl_remz12zd2appzd2ly3091z12zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2766, obj_t BgL_nodez00_2767, obj_t BgL_ownerz00_2768, obj_t BgL_currentz00_2769)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 184 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1390;obj_t BgL_ownerz00_1391;obj_t BgL_currentz00_1392;
{ /* ./Globalize/new-body.scm 185 */
BgL_appzd2lyzd2_bglt BgL_auxz00_3919;
BgL_nodez00_1390 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2767); 
BgL_ownerz00_1391 = BgL_ownerz00_2768; 
BgL_currentz00_1392 = BgL_currentz00_2769; 
{ /* ./Globalize/new-body.scm 186 */
BgL_nodez00_bglt BgL_arg3754z00_1396;
{ /* ./Globalize/new-body.scm 186 */
BgL_nodez00_bglt BgL_arg3757z00_1397;
BgL_arg3757z00_1397 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1390))->BgL_funz00); 
{ /* ./Globalize/new-body.scm 186 */
BgL_nodez00_bglt BgL_res4164z00_1854;
{ /* ./Globalize/new-body.scm 186 */
obj_t BgL_method3079z00_1829;
{ /* ./Globalize/new-body.scm 186 */
BgL_objectz00_bglt BgL_objz00_1830;
BgL_objz00_1830 = 
(BgL_objectz00_bglt)(BgL_arg3757z00_1397); 
{ /* ./Globalize/new-body.scm 186 */
long BgL_objzd2classzd2numz00_1831;
BgL_objzd2classzd2numz00_1831 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1830); 
{ /* ./Globalize/new-body.scm 186 */
obj_t BgL_arg2017z00_1832;
{ /* ./Globalize/new-body.scm 186 */
int BgL_auxz00_3923;
BgL_auxz00_3923 = 
(int)(((long)1)); 
BgL_arg2017z00_1832 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3923); } 
{ /* ./Globalize/new-body.scm 186 */
int BgL_offsetz00_1835;
BgL_offsetz00_1835 = 
(int)(BgL_objzd2classzd2numz00_1831); 
{ /* ./Globalize/new-body.scm 186 */
long BgL_offsetz00_1836;
{ /* ./Globalize/new-body.scm 186 */
long BgL_auxz00_3927;
BgL_auxz00_3927 = 
(long)(BgL_offsetz00_1835); 
BgL_offsetz00_1836 = 
(BgL_auxz00_3927-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 186 */
long BgL_modz00_1837;
{ /* ./Globalize/new-body.scm 186 */
int BgL_arg2028z00_1838;
BgL_arg2028z00_1838 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 186 */
long BgL_n2z00_1846;
BgL_n2z00_1846 = 
(long)(BgL_arg2028z00_1838); 
BgL_modz00_1837 = 
(BgL_offsetz00_1836/BgL_n2z00_1846); } } 
{ /* ./Globalize/new-body.scm 186 */
long BgL_restz00_1839;
{ /* ./Globalize/new-body.scm 186 */
int BgL_arg2024z00_1840;
BgL_arg2024z00_1840 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 186 */
long BgL_n2z00_1849;
BgL_n2z00_1849 = 
(long)(BgL_arg2024z00_1840); 
BgL_restz00_1839 = 
(BgL_offsetz00_1836%BgL_n2z00_1849); } } 
{ /* ./Globalize/new-body.scm 186 */

{ /* ./Globalize/new-body.scm 186 */
obj_t BgL_bucketz00_1841;
{ /* ./Globalize/new-body.scm 186 */
int BgL_kz00_1851;
BgL_kz00_1851 = 
(int)(BgL_modz00_1837); 
BgL_bucketz00_1841 = 
VECTOR_REF(BgL_arg2017z00_1832,BgL_kz00_1851); } 
{ /* ./Globalize/new-body.scm 186 */
int BgL_kz00_1853;
BgL_kz00_1853 = 
(int)(BgL_restz00_1839); 
BgL_method3079z00_1829 = 
VECTOR_REF(BgL_bucketz00_1841,BgL_kz00_1853); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 186 */
obj_t BgL_auxz00_3940;
BgL_auxz00_3940 = 
PROCEDURE_ENTRY(BgL_method3079z00_1829)(BgL_method3079z00_1829, 
(obj_t)(BgL_arg3757z00_1397), BgL_ownerz00_1391, BgL_currentz00_1392, BEOA); 
BgL_res4164z00_1854 = 
(BgL_nodez00_bglt)(BgL_auxz00_3940); } } 
BgL_arg3754z00_1396 = BgL_res4164z00_1854; } } 
{ /* ./Globalize/new-body.scm 186 */
BgL_appzd2lyzd2_bglt BgL_obj1753z00_1855;BgL_nodez00_bglt BgL_val1752z00_1856;
BgL_obj1753z00_1855 = BgL_nodez00_1390; 
BgL_val1752z00_1856 = BgL_arg3754z00_1396; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1753z00_1855))->BgL_funz00) = ((BgL_nodez00_bglt)BgL_val1752z00_1856), BUNSPEC); } } 
{ /* ./Globalize/new-body.scm 187 */
BgL_nodez00_bglt BgL_arg3761z00_1398;
{ /* ./Globalize/new-body.scm 187 */
BgL_nodez00_bglt BgL_arg3764z00_1399;
BgL_arg3764z00_1399 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1390))->BgL_argz00); 
{ /* ./Globalize/new-body.scm 187 */
BgL_nodez00_bglt BgL_res4167z00_1886;
{ /* ./Globalize/new-body.scm 187 */
obj_t BgL_method3079z00_1861;
{ /* ./Globalize/new-body.scm 187 */
BgL_objectz00_bglt BgL_objz00_1862;
BgL_objz00_1862 = 
(BgL_objectz00_bglt)(BgL_arg3764z00_1399); 
{ /* ./Globalize/new-body.scm 187 */
long BgL_objzd2classzd2numz00_1863;
BgL_objzd2classzd2numz00_1863 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1862); 
{ /* ./Globalize/new-body.scm 187 */
obj_t BgL_arg2017z00_1864;
{ /* ./Globalize/new-body.scm 187 */
int BgL_auxz00_3949;
BgL_auxz00_3949 = 
(int)(((long)1)); 
BgL_arg2017z00_1864 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3949); } 
{ /* ./Globalize/new-body.scm 187 */
int BgL_offsetz00_1867;
BgL_offsetz00_1867 = 
(int)(BgL_objzd2classzd2numz00_1863); 
{ /* ./Globalize/new-body.scm 187 */
long BgL_offsetz00_1868;
{ /* ./Globalize/new-body.scm 187 */
long BgL_auxz00_3953;
BgL_auxz00_3953 = 
(long)(BgL_offsetz00_1867); 
BgL_offsetz00_1868 = 
(BgL_auxz00_3953-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 187 */
long BgL_modz00_1869;
{ /* ./Globalize/new-body.scm 187 */
int BgL_arg2028z00_1870;
BgL_arg2028z00_1870 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 187 */
long BgL_n2z00_1878;
BgL_n2z00_1878 = 
(long)(BgL_arg2028z00_1870); 
BgL_modz00_1869 = 
(BgL_offsetz00_1868/BgL_n2z00_1878); } } 
{ /* ./Globalize/new-body.scm 187 */
long BgL_restz00_1871;
{ /* ./Globalize/new-body.scm 187 */
int BgL_arg2024z00_1872;
BgL_arg2024z00_1872 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 187 */
long BgL_n2z00_1881;
BgL_n2z00_1881 = 
(long)(BgL_arg2024z00_1872); 
BgL_restz00_1871 = 
(BgL_offsetz00_1868%BgL_n2z00_1881); } } 
{ /* ./Globalize/new-body.scm 187 */

{ /* ./Globalize/new-body.scm 187 */
obj_t BgL_bucketz00_1873;
{ /* ./Globalize/new-body.scm 187 */
int BgL_kz00_1883;
BgL_kz00_1883 = 
(int)(BgL_modz00_1869); 
BgL_bucketz00_1873 = 
VECTOR_REF(BgL_arg2017z00_1864,BgL_kz00_1883); } 
{ /* ./Globalize/new-body.scm 187 */
int BgL_kz00_1885;
BgL_kz00_1885 = 
(int)(BgL_restz00_1871); 
BgL_method3079z00_1861 = 
VECTOR_REF(BgL_bucketz00_1873,BgL_kz00_1885); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 187 */
obj_t BgL_auxz00_3966;
BgL_auxz00_3966 = 
PROCEDURE_ENTRY(BgL_method3079z00_1861)(BgL_method3079z00_1861, 
(obj_t)(BgL_arg3764z00_1399), BgL_ownerz00_1391, BgL_currentz00_1392, BEOA); 
BgL_res4167z00_1886 = 
(BgL_nodez00_bglt)(BgL_auxz00_3966); } } 
BgL_arg3761z00_1398 = BgL_res4167z00_1886; } } 
{ /* ./Globalize/new-body.scm 187 */
BgL_appzd2lyzd2_bglt BgL_obj1756z00_1887;BgL_nodez00_bglt BgL_val1755z00_1888;
BgL_obj1756z00_1887 = BgL_nodez00_1390; 
BgL_val1755z00_1888 = BgL_arg3761z00_1398; 
((((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1756z00_1887))->BgL_argz00) = ((BgL_nodez00_bglt)BgL_val1755z00_1888), BUNSPEC); } } 
BgL_auxz00_3919 = BgL_nodez00_1390; 
return 
(obj_t)(BgL_auxz00_3919);} } } 
}



/* rem!-app3089 */
obj_t BGl_remz12zd2app3089zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2770, obj_t BgL_nodez00_2771, obj_t BgL_ownerz00_2772, obj_t BgL_currentz00_2773)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 176 */
{ 
BgL_appz00_bglt BgL_nodez00_1381;obj_t BgL_ownerz00_1382;obj_t BgL_currentz00_1383;
{ /* ./Globalize/new-body.scm 177 */
BgL_appz00_bglt BgL_auxz00_3974;
BgL_nodez00_1381 = 
(BgL_appz00_bglt)(BgL_nodez00_2771); 
BgL_ownerz00_1382 = BgL_ownerz00_2772; 
BgL_currentz00_1383 = BgL_currentz00_2773; 
{ /* ./Globalize/new-body.scm 177 */
obj_t BgL_arg3744z00_1823;
BgL_arg3744z00_1823 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1381))->BgL_argsz00); 
BGl_remza2z12zb0zzglobaliza7e_newzd2bodyz75(BgL_arg3744z00_1823, BgL_ownerz00_1382, BgL_currentz00_1383); } 
BgL_auxz00_3974 = BgL_nodez00_1381; 
return 
(obj_t)(BgL_auxz00_3974);} } } 
}



/* rem!-sequence3087 */
obj_t BGl_remz12zd2sequence3087zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2774, obj_t BgL_nodez00_2775, obj_t BgL_ownerz00_2776, obj_t BgL_currentz00_2777)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 168 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1372;obj_t BgL_ownerz00_1373;obj_t BgL_currentz00_1374;
{ /* ./Globalize/new-body.scm 169 */
BgL_sequencez00_bglt BgL_auxz00_3979;
BgL_nodez00_1372 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2775); 
BgL_ownerz00_1373 = BgL_ownerz00_2776; 
BgL_currentz00_1374 = BgL_currentz00_2777; 
{ /* ./Globalize/new-body.scm 169 */
obj_t BgL_arg3734z00_1820;
BgL_arg3734z00_1820 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1372))->BgL_nodesz00); 
BGl_remza2z12zb0zzglobaliza7e_newzd2bodyz75(BgL_arg3734z00_1820, BgL_ownerz00_1373, BgL_currentz00_1374); } 
BgL_auxz00_3979 = BgL_nodez00_1372; 
return 
(obj_t)(BgL_auxz00_3979);} } } 
}



/* rem!-var3085 */
obj_t BGl_remz12zd2var3085zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2778, obj_t BgL_nodez00_2779, obj_t BgL_ownerz00_2780, obj_t BgL_currentz00_2781)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 162 */
{ /* ./Globalize/new-body.scm 163 */
BgL_varz00_bglt BgL_auxz00_3984;
BgL_auxz00_3984 = 
(BgL_varz00_bglt)(BgL_nodez00_2779); 
return 
(obj_t)(BgL_auxz00_3984);} } 
}



/* rem!-kwote3083 */
obj_t BGl_remz12zd2kwote3083zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2782, obj_t BgL_nodez00_2783, obj_t BgL_ownerz00_2784, obj_t BgL_currentz00_2785)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 156 */
{ /* ./Globalize/new-body.scm 157 */
BgL_kwotez00_bglt BgL_auxz00_3987;
BgL_auxz00_3987 = 
(BgL_kwotez00_bglt)(BgL_nodez00_2783); 
return 
(obj_t)(BgL_auxz00_3987);} } 
}



/* rem!-atom3081 */
obj_t BGl_remz12zd2atom3081zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2786, obj_t BgL_nodez00_2787, obj_t BgL_ownerz00_2788, obj_t BgL_currentz00_2789)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 150 */
{ /* ./Globalize/new-body.scm 151 */
BgL_atomz00_bglt BgL_auxz00_3990;
BgL_auxz00_3990 = 
(BgL_atomz00_bglt)(BgL_nodez00_2787); 
return 
(obj_t)(BgL_auxz00_3990);} } 
}



/* rem! */
BgL_nodez00_bglt BGl_remz12z12zzglobaliza7e_newzd2bodyz75(BgL_nodez00_bglt BgL_nodez00_6, obj_t BgL_ownerz00_7, obj_t BgL_currentz00_8)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 145 */
{ /* ./Globalize/new-body.scm 145 */
obj_t BgL_method3079z00_2651;
{ /* ./Globalize/new-body.scm 145 */
BgL_objectz00_bglt BgL_objz00_2652;
BgL_objz00_2652 = 
(BgL_objectz00_bglt)(BgL_nodez00_6); 
{ /* ./Globalize/new-body.scm 145 */
long BgL_objzd2classzd2numz00_2653;
BgL_objzd2classzd2numz00_2653 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2652); 
{ /* ./Globalize/new-body.scm 145 */
obj_t BgL_arg2017z00_2654;
{ /* ./Globalize/new-body.scm 145 */
int BgL_auxz00_3995;
BgL_auxz00_3995 = 
(int)(((long)1)); 
BgL_arg2017z00_2654 = 
PROCEDURE_REF(BGl_remz12zd2envzc0zzglobaliza7e_newzd2bodyz75, BgL_auxz00_3995); } 
{ /* ./Globalize/new-body.scm 145 */
int BgL_offsetz00_2657;
BgL_offsetz00_2657 = 
(int)(BgL_objzd2classzd2numz00_2653); 
{ /* ./Globalize/new-body.scm 145 */
long BgL_offsetz00_2658;
{ /* ./Globalize/new-body.scm 145 */
long BgL_auxz00_3999;
BgL_auxz00_3999 = 
(long)(BgL_offsetz00_2657); 
BgL_offsetz00_2658 = 
(BgL_auxz00_3999-OBJECT_TYPE); } 
{ /* ./Globalize/new-body.scm 145 */
long BgL_modz00_2659;
{ /* ./Globalize/new-body.scm 145 */
int BgL_arg2028z00_2660;
BgL_arg2028z00_2660 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 145 */
long BgL_n2z00_2668;
BgL_n2z00_2668 = 
(long)(BgL_arg2028z00_2660); 
BgL_modz00_2659 = 
(BgL_offsetz00_2658/BgL_n2z00_2668); } } 
{ /* ./Globalize/new-body.scm 145 */
long BgL_restz00_2661;
{ /* ./Globalize/new-body.scm 145 */
int BgL_arg2024z00_2662;
BgL_arg2024z00_2662 = 
(int)(((long)8)); 
{ /* ./Globalize/new-body.scm 145 */
long BgL_n2z00_2671;
BgL_n2z00_2671 = 
(long)(BgL_arg2024z00_2662); 
BgL_restz00_2661 = 
(BgL_offsetz00_2658%BgL_n2z00_2671); } } 
{ /* ./Globalize/new-body.scm 145 */

{ /* ./Globalize/new-body.scm 145 */
obj_t BgL_bucketz00_2663;
{ /* ./Globalize/new-body.scm 145 */
int BgL_kz00_2673;
BgL_kz00_2673 = 
(int)(BgL_modz00_2659); 
BgL_bucketz00_2663 = 
VECTOR_REF(BgL_arg2017z00_2654,BgL_kz00_2673); } 
{ /* ./Globalize/new-body.scm 145 */
int BgL_kz00_2675;
BgL_kz00_2675 = 
(int)(BgL_restz00_2661); 
BgL_method3079z00_2651 = 
VECTOR_REF(BgL_bucketz00_2663,BgL_kz00_2675); } } } } } } } } } } 
{ /* ./Globalize/new-body.scm 145 */
obj_t BgL_auxz00_4012;
BgL_auxz00_4012 = 
PROCEDURE_ENTRY(BgL_method3079z00_2651)(BgL_method3079z00_2651, 
(obj_t)(BgL_nodez00_6), BgL_ownerz00_7, BgL_currentz00_8, BEOA); 
return 
(BgL_nodez00_bglt)(BgL_auxz00_4012);} } } 
}



/* _rem!4238 */
obj_t BGl__remz124238z12zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2682, obj_t BgL_nodez00_2683, obj_t BgL_ownerz00_2684, obj_t BgL_currentz00_2685)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 145 */
{ /* ./Globalize/new-body.scm 145 */
BgL_nodez00_bglt BgL_auxz00_4017;
BgL_auxz00_4017 = 
BGl_remz12z12zzglobaliza7e_newzd2bodyz75(
(BgL_nodez00_bglt)(BgL_nodez00_2683), BgL_ownerz00_2684, BgL_currentz00_2685); 
return 
(obj_t)(BgL_auxz00_4017);} } 
}



/* rem!-default3078 */
BgL_nodez00_bglt BGl_remz12zd2default3078zc0zzglobaliza7e_newzd2bodyz75(BgL_nodez00_bglt BgL_nodez00_9, obj_t BgL_ownerz00_10, obj_t BgL_currentz00_11)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 15 */
{ /* ./Globalize/new-body.scm 15 */
obj_t BgL_procz00_2676;obj_t BgL_objectz00_2678;
BgL_procz00_2676 = 
CNST_TABLE_REF(((long)1)); 
BgL_objectz00_2678 = 
(obj_t)(BgL_nodez00_9); 
FAILURE(BgL_procz00_2676,BGl_string4798z00zzglobaliza7e_newzd2bodyz75,BgL_objectz00_2678);} } 
}



/* _rem!-default3078 */
obj_t BGl__remz12zd2default3078zc0zzglobaliza7e_newzd2bodyz75(obj_t BgL_envz00_2790, obj_t BgL_nodez00_2791, obj_t BgL_ownerz00_2792, obj_t BgL_currentz00_2793)
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 15 */
{ /* ./Globalize/new-body.scm 15 */
BgL_nodez00_bglt BgL_auxz00_4024;
BgL_auxz00_4024 = 
BGl_remz12zd2default3078zc0zzglobaliza7e_newzd2bodyz75(
(BgL_nodez00_bglt)(BgL_nodez00_2791), BgL_ownerz00_2792, BgL_currentz00_2793); 
return 
(obj_t)(BgL_auxz00_4024);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzglobaliza7e_newzd2bodyz75()
{ AN_OBJECT;
{ /* ./Globalize/new-body.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "globalize_new-body"); 
BGl_modulezd2initializa7ationz75zzglobaliza7e_ginfoza7(((long)0), "globalize_new-body"); 
return 
BGl_modulezd2initializa7ationz75zzglobaliza7e_nodeza7(((long)60835), "globalize_new-body");} 
}

