/*===========================================================================*/
/*   (Cfa/cfa.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 Cfa/cfa.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_approxz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   bool_t BgL_typezd2lockedzf3z21;
   obj_t BgL_allocsz00;
   bool_t BgL_topzf3zf3;
   long BgL_lostzd2stampzd2;
} *BgL_approxz00_bglt;

typedef struct BgL_cfunzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_cfunzf2cinfozf2_bglt;

typedef struct BgL_externzd2sfunzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_externzd2sfunzf2cinfoz20_bglt;

typedef struct BgL_internzd2sfunzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   long BgL_stampz00;
} *BgL_internzd2sfunzf2cinfoz20_bglt;

typedef struct BgL_scnstzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_scnstzf2cinfozf2_bglt;

typedef struct BgL_prezd2clozd2envz00_bgl {
   char dummy;
} *BgL_prezd2clozd2envz00_bglt;

typedef struct BgL_svarzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   bool_t BgL_clozd2envzf3z21;
} *BgL_svarzf2cinfozf2_bglt;

typedef struct BgL_cvarzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_cvarzf2cinfozf2_bglt;

typedef struct BgL_sexitzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_sexitzf2cinfozf2_bglt;

typedef struct BgL_reshapedzd2localzd2_bgl {
   obj_t BgL_bindingzd2valuezd2;
} *BgL_reshapedzd2localzd2_bglt;

typedef struct BgL_reshapedzd2globalzd2_bgl {
   char dummy;
} *BgL_reshapedzd2globalzd2_bglt;

typedef struct BgL_atomzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_atomzf2cinfozf2_bglt;

typedef struct BgL_kwotezf2nodezf2_bgl {
   struct BgL_nodez00_bgl * BgL_nodez00;
} *BgL_kwotezf2nodezf2_bglt;

typedef struct BgL_kwotezf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_kwotezf2cinfozf2_bglt;

typedef struct BgL_appzd2lyzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_appzd2lyzf2cinfoz20_bglt;

typedef struct BgL_funcallzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_vazd2approxzd2;
   bool_t BgL_arityzd2errorzd2noticedzf3zf3;
   bool_t BgL_typezd2errorzd2noticedzf3zf3;
} *BgL_funcallzf2cinfozf2_bglt;

typedef struct BgL_setqzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_setqzf2cinfozf2_bglt;

typedef struct BgL_conditionalzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_conditionalzf2cinfozf2_bglt;

typedef struct BgL_failzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_failzf2cinfozf2_bglt;

typedef struct BgL_selectzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_selectzf2cinfozf2_bglt;

typedef struct BgL_setzd2exzd2itzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_setzd2exzd2itzf2cinfozf2_bglt;

typedef struct BgL_jumpzd2exzd2itzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_jumpzd2exzd2itzf2cinfozf2_bglt;

typedef struct BgL_prezd2makezd2boxz00_bgl {
   char dummy;
} *BgL_prezd2makezd2boxz00_bglt;

typedef struct BgL_makezd2boxzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_makezd2boxzf2cinfoz20_bglt;

typedef struct BgL_makezd2boxzf2ozd2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
} *BgL_makezd2boxzf2ozd2cinfozf2_bglt;

typedef struct BgL_boxzd2setz12zf2cinfoz32_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2setz12zf2cinfoz32_bglt;

typedef struct BgL_boxzd2refzf2cinfoz20_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2refzf2cinfoz20_bglt;

typedef struct BgL_boxzd2setz12zf2ozd2cinfoze0_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2setz12zf2ozd2cinfoze0_bglt;

typedef struct BgL_boxzd2refzf2ozd2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_boxzd2refzf2ozd2cinfozf2_bglt;

typedef struct BgL_prezd2arithmeticzd2appz00_bgl {
   obj_t BgL_speczd2typeszd2;
} *BgL_prezd2arithmeticzd2appz00_bglt;

typedef struct BgL_arithmeticzd2appzd2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   obj_t BgL_speczd2typeszd2;
} *BgL_arithmeticzd2appzd2_bglt;

typedef struct BgL_prezd2makezd2procedurezd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2procedurezd2appzd2_bglt;

typedef struct BgL_prezd2procedurezd2refzd2appzd2_bgl {
   char dummy;
} *BgL_prezd2procedurezd2refzd2appzd2_bglt;

typedef struct BgL_prezd2procedurezd2setz12zd2appzc0_bgl {
   char dummy;
} *BgL_prezd2procedurezd2setz12zd2appzc0_bglt;

typedef struct BgL_makezd2procedurezd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   obj_t BgL_valueszd2approxzd2;
   long BgL_lostzd2stampzd2;
   bool_t BgL_xzd2tzf3z21;
   bool_t BgL_xz00;
   bool_t BgL_tz00;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
} *BgL_makezd2procedurezd2appz00_bglt;

typedef struct BgL_procedurezd2refzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_procedurezd2refzd2appz00_bglt;

typedef struct BgL_procedurezd2setz12zd2appz12_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_procedurezd2setz12zd2appz12_bglt;

typedef struct BgL_prezd2makezd2vectorzd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2vectorzd2appzd2_bglt;

typedef struct BgL_makezd2vectorzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
   long BgL_lostzd2stampzd2;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
   bool_t BgL_seenzf3zf3;
} *BgL_makezd2vectorzd2appz00_bglt;

typedef struct BgL_prezd2makezd2structzd2appzd2_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2makezd2structzd2appzd2_bglt;

typedef struct BgL_prezd2structzd2refzd2appzd2_bgl {
   char dummy;
} *BgL_prezd2structzd2refzd2appzd2_bglt;

typedef struct BgL_prezd2structzd2setz12zd2appzc0_bgl {
   char dummy;
} *BgL_prezd2structzd2setz12zd2appzc0_bglt;

typedef struct BgL_makezd2structzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
   long BgL_lostzd2stampzd2;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   obj_t BgL_stackzd2stampzd2;
} *BgL_makezd2structzd2appz00_bglt;

typedef struct BgL_structzd2refzd2appz00_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_structzd2refzd2appz00_bglt;

typedef struct BgL_structzd2setz12zd2appz12_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_structzd2setz12zd2appz12_bglt;

typedef struct BgL_pragmazf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_pragmazf2cinfozf2_bglt;

typedef struct BgL_getfieldzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_getfieldzf2cinfozf2_bglt;

typedef struct BgL_setfieldzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_setfieldzf2cinfozf2_bglt;

typedef struct BgL_newzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_newzf2cinfozf2_bglt;

typedef struct BgL_isazf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_isazf2cinfozf2_bglt;

typedef struct BgL_vrefzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   bool_t BgL_tvectorzf3zf3;
} *BgL_vrefzf2cinfozf2_bglt;

typedef struct BgL_vsetz12zf2cinfoze0_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   bool_t BgL_tvectorzf3zf3;
} *BgL_vsetz12zf2cinfoze0_bglt;

typedef struct BgL_vlengthzf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   bool_t BgL_tvectorzf3zf3;
} *BgL_vlengthzf2cinfozf2_bglt;

typedef struct BgL_prezd2valloczf2cinfoz20_bgl {
   struct BgL_variablez00_bgl * BgL_ownerz00;
} *BgL_prezd2valloczf2cinfoz20_bglt;

typedef struct BgL_valloczf2cinfozf2_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
} *BgL_valloczf2cinfozf2_bglt;

typedef struct BgL_valloczf2cinfozb2optimz40_bgl {
   struct BgL_approxz00_bgl * BgL_approxz00;
   struct BgL_approxz00_bgl * BgL_valuezd2approxzd2;
   long BgL_lostzd2stampzd2;
   struct BgL_variablez00_bgl * BgL_ownerz00;
   bool_t BgL_stackablezf3zf3;
   obj_t BgL_stackzd2stampzd2;
   bool_t BgL_seenzf3zf3;
} *BgL_valloczf2cinfozb2optimz40_bglt;


static obj_t BGl_cfaz12zd2boxzd2refzf2Cinfo4650ze0zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_cfaz12zd2setfieldzf2Cinfo4622z32zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzcfa_cfaz00();
static obj_t BGl_cfaz12zd2cast4628zc0zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_scnstzf2Cinfozf2zzcfa_infoz00;
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
extern BgL_approxz00_bglt BGl_loosez12z12zzcfa_loosez00(BgL_approxz00_bglt, obj_t);
extern BgL_approxz00_bglt BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_approxz00_bglt, BgL_approxz00_bglt);
static obj_t BGl_cfaz12zd2atomzf2Cinfo4592z32zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_cfaz12zd2sequence4614zc0zzcfa_cfaz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_cfaz12zd2setqzf2Cinfo4630z32zzcfa_cfaz00(obj_t, obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_cfaz12zd2selectzf2Cinfo4636z32zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_cfaz12zd2makezd2boxzf2Cinfo4646ze0zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_cfaz12zd2newzf2Cinfo4624z32zzcfa_cfaz00(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__cfaz12zd2default4589zc0zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_za2_za2z00zztype_cachez00;
extern obj_t BGl_globalz00zzast_varz00;
static obj_t BGl_cfaz12zd2kwotezf2node4596z32zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_cfaz12zd2isazf2Cinfo4626z32zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_failzf2Cinfozf2zzcfa_infoz00;
extern obj_t BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00;
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_atomzf2Cinfozf2zzcfa_infoz00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzcfa_cfaz00();
static obj_t BGl_cfaz12zd2pragmazf2Cinfo4618z32zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00;
extern obj_t BGl_cvarzf2Cinfozf2zzcfa_infoz00;
static obj_t BGl__cfazd2variablezd2valuezd2approx6065zd2zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_cfazd2variablezd2valuezd2approxzd2svarzf2Cinfo4604zf2zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_cfaz00();
static obj_t BGl_cfaz12zd2conditionalzf2Cinfo4632z32zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00;
static obj_t BGl_cfaz12zd2var4598zc0zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_newzf2Cinfozf2zzcfa_info3z00;
extern obj_t BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_approxz00_bglt BGl_cfaz12z12zzcfa_cfaz00(BgL_nodez00_bglt);
static obj_t BGl__cfaz126063z12zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_pragmazf2Cinfozf2zzcfa_info3z00;
static obj_t BGl_cfaz12zd2closure4600zc0zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_cfazd2variablezd2valuezd2approxzd2default4601z00zzcfa_cfaz00(BgL_valuez00_bglt);
static obj_t BGl_toplevelzd2initzd2zzcfa_cfaz00();
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_cfaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(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_modulezd2initializa7ationz75zzcfa_infoz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_loosez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_approxz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_appz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_funcallz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
static obj_t BGl_cfaz12zd2letzd2fun4638z12zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_svarzf2Cinfozf2zzcfa_infoz00;
static obj_t BGl_cfazd2variablezd2valuezd2approxzd2scnstzf2Cinfo4606zf2zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl__cfazd2variablezd2valuezd2approxzd2default4601z00zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00;
extern obj_t BGl_setfieldzf2Cinfozf2zzcfa_info3z00;
extern obj_t BGl_approxzd2setzd2topz12z12zzcfa_approxz00(BgL_approxz00_bglt);
static obj_t BGl_cfaz12zd2letzd2var4640z12zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_cfazd2variablezd2valuezd2approxzd2sexitzf2Cinfo4610zf2zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00;
static obj_t BGl_cfaz12zd2getfieldzf2Cinfo4620z32zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
static obj_t BGl_cfaz12zd2kwotezf2Cinfo4594z32zzcfa_cfaz00(obj_t, obj_t);
static BgL_approxz00_bglt BGl_cfaz12zd2default4589zc0zzcfa_cfaz00(BgL_nodez00_bglt);
static obj_t BGl_cfaz12zd2appzd2lyzf2Cinfo4616ze0zzcfa_cfaz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cfazd2variablezd2valuezd2approxzd2zzcfa_cfaz00(BgL_valuez00_bglt);
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl_cfazd2variablezd2valuezd2approxzd2cvarzf2Cinfo4608zf2zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_kwotezf2nodezf2zzcfa_infoz00;
static obj_t BGl_cfaz12zd2failzf2Cinfo4634z32zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_globalzd2loosez12zc0zzcfa_loosez00(BgL_globalz00_bglt, BgL_approxz00_bglt);
extern obj_t BGl_closurez00zzast_nodez00;
extern obj_t BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00;
extern obj_t BGl_isazf2Cinfozf2zzcfa_info3z00;
extern obj_t BGl_conditionalzf2Cinfozf2zzcfa_infoz00;
extern obj_t BGl_setqzf2Cinfozf2zzcfa_infoz00;
extern obj_t BGl_kwotezf2Cinfozf2zzcfa_infoz00;
static obj_t BGl_cfazd2variablezd2valuezd2approxzd2internzd2sfunzf2Cinfo4612z20zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_getfieldzf2Cinfozf2zzcfa_info3z00;
extern obj_t BGl_za2objza2z00zztype_cachez00;
static obj_t BGl_requirezd2initializa7ationz75zzcfa_cfaz00 = BUNSPEC;
static obj_t BGl_cfaz12zd2jumpzd2exzd2itzf2Cinfo4644z32zzcfa_cfaz00(obj_t, obj_t);
static obj_t BGl_cfaz12zd2setzd2exzd2itzf2Cinfo4642z32zzcfa_cfaz00(obj_t, obj_t);
extern obj_t BGl_sexitzf2Cinfozf2zzcfa_infoz00;
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_cfaz00();
extern obj_t BGl_selectzf2Cinfozf2zzcfa_infoz00;
static obj_t BGl_cfaz12zd2boxzd2setz12zf2Cinfo4648zf2zzcfa_cfaz00(obj_t, obj_t);
static obj_t __cnst[ 2 ] ;


DEFINE_STATIC_PROCEDURE( BGl_cfaz12zd2default4589zd2envz12zzcfa_cfaz00, BgL_bgl__cfaza712za7d2default4589za7c0za7za7cfa_cfaza7006712z00, BGl__cfaz12zd2default4589zc0zzcfa_cfaz00, 0L, 1 );
DEFINE_EXPORT_GENERIC( BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_bgl__cfaza7126063za712za7za7cfa_cfaza7006713za7, BGl__cfaz126063z12zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_cfazd2variablezd2valuezd2approxzd2default4601zd2envzd2zzcfa_cfaz00, BgL_bgl__cfaza7d2variableza7d2valueza7d2approxza7d2default4601za700za7za7cfa_cfaza7006714z00, BGl__cfazd2variablezd2valuezd2approxzd2default4601z00zzcfa_cfaz00, 0L, 1 );
DEFINE_EXPORT_GENERIC( BGl_cfazd2variablezd2valuezd2approxzd2envz00zzcfa_cfaz00, BgL_bgl__cfaza7d2variableza7d2valueza7d2approx6065za7d2za7za7cfa_cfaza7006715za7, BGl__cfazd2variablezd2valuezd2approx6065zd2zzcfa_cfaz00, 0L, 1 );
DEFINE_STRING( BGl_string6686z00zzcfa_cfaz00, BgL_bgl_string6686za700za7za7cfa_cfaza7006716z00, "cfa-variable-value-approx-default4601 all ", 42 );
DEFINE_STRING( BGl_string6685z00zzcfa_cfaz00, BgL_bgl_string6685za700za7za7cfa_cfaza7006717z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string6684z00zzcfa_cfaz00, BgL_bgl_string6684za700za7za7cfa_cfaza7006718z00, "cfa!:no method for this ast", 27 );
DEFINE_STRING( BGl_string6683z00zzcfa_cfaz00, BgL_bgl_string6683za700za7za7cfa_cfaza7006719z00, "Unexpected closure", 18 );
DEFINE_STRING( BGl_string6682z00zzcfa_cfaz00, BgL_bgl_string6682za700za7za7cfa_cfaza7006720z00, "cfa!", 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc6653z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2atomza7f2cinfo4592za732za7za7cfa_cfaza7006721za7, BGl_cfaz12zd2atomzf2Cinfo4592z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6654z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2kwoteza7f2cinfo4594za732za7za7cfa_cfaza7006722za7, BGl_cfaz12zd2kwotezf2Cinfo4594z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6655z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2kwoteza7f2node4596za732za7za7cfa_cfaza7006723za7, BGl_cfaz12zd2kwotezf2node4596z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6656z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2var4598za7c0za7za7cfa_cfaza7006724z00, BGl_cfaz12zd2var4598zc0zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6657z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2closure4600za7c0za7za7cfa_cfaza7006725z00, BGl_cfaz12zd2closure4600zc0zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6658z00zzcfa_cfaz00, BgL_bgl_cfaza7d2variableza7d2valueza7d2approxza7d2svarza7f2cinfo4604za7f2za7za7cfa_cfaza7006726za7, BGl_cfazd2variablezd2valuezd2approxzd2svarzf2Cinfo4604zf2zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6660z00zzcfa_cfaz00, BgL_bgl_cfaza7d2variableza7d2valueza7d2approxza7d2cvarza7f2cinfo4608za7f2za7za7cfa_cfaza7006727za7, BGl_cfazd2variablezd2valuezd2approxzd2cvarzf2Cinfo4608zf2zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6659z00zzcfa_cfaz00, BgL_bgl_cfaza7d2variableza7d2valueza7d2approxza7d2scnstza7f2cinfo4606za7f2za7za7cfa_cfaza7006728za7, BGl_cfazd2variablezd2valuezd2approxzd2scnstzf2Cinfo4606zf2zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6661z00zzcfa_cfaz00, BgL_bgl_cfaza7d2variableza7d2valueza7d2approxza7d2sexitza7f2cinfo4610za7f2za7za7cfa_cfaza7006729za7, BGl_cfazd2variablezd2valuezd2approxzd2sexitzf2Cinfo4610zf2zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6662z00zzcfa_cfaz00, BgL_bgl_cfaza7d2variableza7d2valueza7d2approxza7d2internza7d2sfunza7f2cinfo4612za720za7za7cfa_cfaza7006730z00, BGl_cfazd2variablezd2valuezd2approxzd2internzd2sfunzf2Cinfo4612z20zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6663z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2sequence4614za7c0za7za7cfa_cfaza7006731z00, BGl_cfaz12zd2sequence4614zc0zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6664z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2appza7d2lyza7f2cinfo4616za7e0za7za7cfa_cfaza7006732z00, BGl_cfaz12zd2appzd2lyzf2Cinfo4616ze0zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6665z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2pragmaza7f2cinfo4618za732za7za7cfa_cfaza7006733za7, BGl_cfaz12zd2pragmazf2Cinfo4618z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6666z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2getfieldza7f2cinfo4620za732za7za7cfa_cfaza7006734za7, BGl_cfaz12zd2getfieldzf2Cinfo4620z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6667z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2setfieldza7f2cinfo4622za732za7za7cfa_cfaza7006735za7, BGl_cfaz12zd2setfieldzf2Cinfo4622z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6668z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2newza7f2cinfo4624za732za7za7cfa_cfaza7006736za7, BGl_cfaz12zd2newzf2Cinfo4624z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6670z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2cast4628za7c0za7za7cfa_cfaza7006737z00, BGl_cfaz12zd2cast4628zc0zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6669z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2isaza7f2cinfo4626za732za7za7cfa_cfaza7006738za7, BGl_cfaz12zd2isazf2Cinfo4626z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6671z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2setqza7f2cinfo4630za732za7za7cfa_cfaza7006739za7, BGl_cfaz12zd2setqzf2Cinfo4630z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6672z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2conditionalza7f2cinfo4632za732za7za7cfa_cfaza7006740za7, BGl_cfaz12zd2conditionalzf2Cinfo4632z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6673z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2failza7f2cinfo4634za732za7za7cfa_cfaza7006741za7, BGl_cfaz12zd2failzf2Cinfo4634z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6674z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2selectza7f2cinfo4636za732za7za7cfa_cfaza7006742za7, BGl_cfaz12zd2selectzf2Cinfo4636z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6675z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2letza7d2fun4638za712za7za7cfa_cfaza7006743za7, BGl_cfaz12zd2letzd2fun4638z12zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6676z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2letza7d2var4640za712za7za7cfa_cfaza7006744za7, BGl_cfaz12zd2letzd2var4640z12zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6677z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2setza7d2exza7d2itza7f2cinfo4642za732za7za7cfa_cfaza7006745za7, BGl_cfaz12zd2setzd2exzd2itzf2Cinfo4642z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6678z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2jumpza7d2exza7d2itza7f2cinfo4644za732za7za7cfa_cfaza7006746za7, BGl_cfaz12zd2jumpzd2exzd2itzf2Cinfo4644z32zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6680z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2boxza7d2setza712za7f2cinfo4648za7f2za7za7cfa_cfaza7006747za7, BGl_cfaz12zd2boxzd2setz12zf2Cinfo4648zf2zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6679z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2makeza7d2boxza7f2cinfo4646za7e0za7za7cfa_cfaza7006748z00, BGl_cfaz12zd2makezd2boxzf2Cinfo4646ze0zzcfa_cfaz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6681z00zzcfa_cfaz00, BgL_bgl_cfaza712za7d2boxza7d2refza7f2cinfo4650za7e0za7za7cfa_cfaza7006749z00, BGl_cfaz12zd2boxzd2refzf2Cinfo4650ze0zzcfa_cfaz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_cfaz00(long BgL_checksumz00_2959, char * BgL_fromz00_2960)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_cfaz00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_cfaz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_cfaz00(); 
BGl_cnstzd2initzd2zzcfa_cfaz00(); 
BGl_importedzd2moduleszd2initz00zzcfa_cfaz00(); 
BGl_methodzd2initzd2zzcfa_cfaz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcfa_cfaz00()
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 15 */
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cfa_cfa"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcfa_cfaz00()
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 15 */
{ /* ./Cfa/cfa.scm 15 */
obj_t BgL_cportz00_2952;
BgL_cportz00_2952 = 
open_input_string(BGl_string6686z00zzcfa_cfaz00); 
{ 
long BgL_iz00_2953;
BgL_iz00_2953 = ((long)1); 
BgL_loopz00_2954:
{ /* ./Cfa/cfa.scm 15 */
bool_t BgL_test6688z00_2955;
BgL_test6688z00_2955 = 
(BgL_iz00_2953==((long)-1)); 
if(BgL_test6688z00_2955)
{ /* ./Cfa/cfa.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cfa/cfa.scm 15 */
{ /* ./Cfa/cfa.scm 15 */
obj_t BgL_arg6690z00_2956;
{ /* ./Cfa/cfa.scm 15 */
obj_t BgL_list6693z00_2957;
BgL_list6693z00_2957 = 
MAKE_PAIR(BgL_cportz00_2952, BNIL); 
BgL_arg6690z00_2956 = 
BGl_readz00zz__readerz00(BgL_list6693z00_2957); } 
{ /* ./Cfa/cfa.scm 15 */
int BgL_auxz00_2975;
BgL_auxz00_2975 = 
(int)(BgL_iz00_2953); 
CNST_TABLE_SET(BgL_auxz00_2975, BgL_arg6690z00_2956); } } 
{ /* ./Cfa/cfa.scm 15 */
int BgL_auxz00_2958;
{ /* ./Cfa/cfa.scm 15 */
long BgL_auxz00_2978;
BgL_auxz00_2978 = 
(BgL_iz00_2953-((long)1)); 
BgL_auxz00_2958 = 
(int)(BgL_auxz00_2978); } 
{ 
long BgL_iz00_2981;
BgL_iz00_2981 = 
(long)(BgL_auxz00_2958); 
BgL_iz00_2953 = BgL_iz00_2981; 
goto BgL_loopz00_2954;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcfa_cfaz00()
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 15 */
return BUNSPEC;} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_cfaz00()
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_cfaz12zd2default4589zd2envz12zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_atomzf2Cinfozf2zzcfa_infoz00, BGl_proc6653z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_kwotezf2Cinfozf2zzcfa_infoz00, BGl_proc6654z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_kwotezf2nodezf2zzcfa_infoz00, BGl_proc6655z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_varz00zzast_nodez00, BGl_proc6656z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_closurez00zzast_nodez00, BGl_proc6657z00zzcfa_cfaz00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_cfazd2variablezd2valuezd2approxzd2envz00zzcfa_cfaz00, BGl_cfazd2variablezd2valuezd2approxzd2default4601zd2envzd2zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfazd2variablezd2valuezd2approxzd2envz00zzcfa_cfaz00, BGl_svarzf2Cinfozf2zzcfa_infoz00, BGl_proc6658z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfazd2variablezd2valuezd2approxzd2envz00zzcfa_cfaz00, BGl_scnstzf2Cinfozf2zzcfa_infoz00, BGl_proc6659z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfazd2variablezd2valuezd2approxzd2envz00zzcfa_cfaz00, BGl_cvarzf2Cinfozf2zzcfa_infoz00, BGl_proc6660z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfazd2variablezd2valuezd2approxzd2envz00zzcfa_cfaz00, BGl_sexitzf2Cinfozf2zzcfa_infoz00, BGl_proc6661z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfazd2variablezd2valuezd2approxzd2envz00zzcfa_cfaz00, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00, BGl_proc6662z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_sequencez00zzast_nodez00, BGl_proc6663z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_appzd2lyzf2Cinfoz20zzcfa_infoz00, BGl_proc6664z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_pragmazf2Cinfozf2zzcfa_info3z00, BGl_proc6665z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_getfieldzf2Cinfozf2zzcfa_info3z00, BGl_proc6666z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_setfieldzf2Cinfozf2zzcfa_info3z00, BGl_proc6667z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_newzf2Cinfozf2zzcfa_info3z00, BGl_proc6668z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_isazf2Cinfozf2zzcfa_info3z00, BGl_proc6669z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_castz00zzast_nodez00, BGl_proc6670z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_setqzf2Cinfozf2zzcfa_infoz00, BGl_proc6671z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_conditionalzf2Cinfozf2zzcfa_infoz00, BGl_proc6672z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_failzf2Cinfozf2zzcfa_infoz00, BGl_proc6673z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_selectzf2Cinfozf2zzcfa_infoz00, BGl_proc6674z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc6675z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc6676z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_setzd2exzd2itzf2Cinfozf2zzcfa_infoz00, BGl_proc6677z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_jumpzd2exzd2itzf2Cinfozf2zzcfa_infoz00, BGl_proc6678z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_makezd2boxzf2Cinfoz20zzcfa_infoz00, BGl_proc6679z00zzcfa_cfaz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_boxzd2setz12zf2Cinfoz32zzcfa_infoz00, BGl_proc6680z00zzcfa_cfaz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BGl_boxzd2refzf2Cinfoz20zzcfa_infoz00, BGl_proc6681z00zzcfa_cfaz00);} 
}



/* cfa!-box-ref/Cinfo4650 */
obj_t BGl_cfaz12zd2boxzd2refzf2Cinfo4650ze0zzcfa_cfaz00(obj_t BgL_envz00_2890, obj_t BgL_nodez00_2891)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 312 */
{ 
BgL_boxzd2refzf2cinfoz20_bglt BgL_nodez00_1877;
{ /* ./Cfa/cfa.scm 313 */
BgL_approxz00_bglt BgL_auxz00_3014;
BgL_nodez00_1877 = 
(BgL_boxzd2refzf2cinfoz20_bglt)(BgL_nodez00_2891); 
{ /* ./Cfa/cfa.scm 313 */
BgL_varz00_bglt BgL_arg5935z00_2772;
{ /* ./Cfa/cfa.scm 313 */
BgL_boxzd2refzd2_bglt BgL_obj2614z00_2773;
BgL_obj2614z00_2773 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_1877); 
BgL_arg5935z00_2772 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_obj2614z00_2773))->BgL_varz00); } 
{ /* ./Cfa/cfa.scm 313 */
BgL_approxz00_bglt BgL_res6058z00_2800;
{ /* ./Cfa/cfa.scm 313 */
BgL_nodez00_bglt BgL_nodez00_2774;
BgL_nodez00_2774 = 
(BgL_nodez00_bglt)(BgL_arg5935z00_2772); 
{ /* ./Cfa/cfa.scm 313 */
obj_t BgL_method4590z00_2775;
{ /* ./Cfa/cfa.scm 313 */
BgL_objectz00_bglt BgL_objz00_2776;
BgL_objz00_2776 = 
(BgL_objectz00_bglt)(BgL_nodez00_2774); 
{ /* ./Cfa/cfa.scm 313 */
long BgL_objzd2classzd2numz00_2777;
BgL_objzd2classzd2numz00_2777 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2776); 
{ /* ./Cfa/cfa.scm 313 */
obj_t BgL_arg2017z00_2778;
{ /* ./Cfa/cfa.scm 313 */
int BgL_auxz00_3020;
BgL_auxz00_3020 = 
(int)(((long)1)); 
BgL_arg2017z00_2778 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3020); } 
{ /* ./Cfa/cfa.scm 313 */
int BgL_offsetz00_2781;
BgL_offsetz00_2781 = 
(int)(BgL_objzd2classzd2numz00_2777); 
{ /* ./Cfa/cfa.scm 313 */
long BgL_offsetz00_2782;
{ /* ./Cfa/cfa.scm 313 */
long BgL_auxz00_3024;
BgL_auxz00_3024 = 
(long)(BgL_offsetz00_2781); 
BgL_offsetz00_2782 = 
(BgL_auxz00_3024-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 313 */
long BgL_modz00_2783;
{ /* ./Cfa/cfa.scm 313 */
int BgL_arg2028z00_2784;
BgL_arg2028z00_2784 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 313 */
long BgL_n2z00_2792;
BgL_n2z00_2792 = 
(long)(BgL_arg2028z00_2784); 
BgL_modz00_2783 = 
(BgL_offsetz00_2782/BgL_n2z00_2792); } } 
{ /* ./Cfa/cfa.scm 313 */
long BgL_restz00_2785;
{ /* ./Cfa/cfa.scm 313 */
int BgL_arg2024z00_2786;
BgL_arg2024z00_2786 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 313 */
long BgL_n2z00_2795;
BgL_n2z00_2795 = 
(long)(BgL_arg2024z00_2786); 
BgL_restz00_2785 = 
(BgL_offsetz00_2782%BgL_n2z00_2795); } } 
{ /* ./Cfa/cfa.scm 313 */

{ /* ./Cfa/cfa.scm 313 */
obj_t BgL_bucketz00_2787;
{ /* ./Cfa/cfa.scm 313 */
int BgL_kz00_2797;
BgL_kz00_2797 = 
(int)(BgL_modz00_2783); 
BgL_bucketz00_2787 = 
VECTOR_REF(BgL_arg2017z00_2778,BgL_kz00_2797); } 
{ /* ./Cfa/cfa.scm 313 */
int BgL_kz00_2799;
BgL_kz00_2799 = 
(int)(BgL_restz00_2785); 
BgL_method4590z00_2775 = 
VECTOR_REF(BgL_bucketz00_2787,BgL_kz00_2799); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 313 */
obj_t BgL_auxz00_3037;
BgL_auxz00_3037 = 
PROCEDURE_ENTRY(BgL_method4590z00_2775)(BgL_method4590z00_2775, 
(obj_t)(BgL_nodez00_2774), BEOA); 
BgL_res6058z00_2800 = 
(BgL_approxz00_bglt)(BgL_auxz00_3037); } } } BgL_res6058z00_2800; } } 
{ 
obj_t BgL_auxz00_3042;
{ /* ./Cfa/cfa.scm 313 */
BgL_objectz00_bglt BgL_auxz00_3043;
BgL_auxz00_3043 = 
(BgL_objectz00_bglt)(BgL_nodez00_1877); 
BgL_auxz00_3042 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3043); } 
BgL_auxz00_3014 = 
(((BgL_boxzd2refzf2cinfoz20_bglt)CREF(BgL_auxz00_3042))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3014);} } } 
}



/* cfa!-box-set!/Cinfo4648 */
obj_t BGl_cfaz12zd2boxzd2setz12zf2Cinfo4648zf2zzcfa_cfaz00(obj_t BgL_envz00_2892, obj_t BgL_nodez00_2893)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 303 */
{ 
BgL_boxzd2setz12zf2cinfoz32_bglt BgL_nodez00_1867;
{ /* ./Cfa/cfa.scm 304 */
BgL_approxz00_bglt BgL_auxz00_3049;
BgL_nodez00_1867 = 
(BgL_boxzd2setz12zf2cinfoz32_bglt)(BgL_nodez00_2893); 
{ /* ./Cfa/cfa.scm 305 */
BgL_varz00_bglt BgL_arg5916z00_1871;
{ /* ./Cfa/cfa.scm 305 */
BgL_boxzd2setz12zc0_bglt BgL_obj2640z00_2714;
BgL_obj2640z00_2714 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_1867); 
BgL_arg5916z00_1871 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2640z00_2714))->BgL_varz00); } 
{ /* ./Cfa/cfa.scm 305 */
BgL_approxz00_bglt BgL_res6052z00_2741;
{ /* ./Cfa/cfa.scm 305 */
BgL_nodez00_bglt BgL_nodez00_2715;
BgL_nodez00_2715 = 
(BgL_nodez00_bglt)(BgL_arg5916z00_1871); 
{ /* ./Cfa/cfa.scm 305 */
obj_t BgL_method4590z00_2716;
{ /* ./Cfa/cfa.scm 305 */
BgL_objectz00_bglt BgL_objz00_2717;
BgL_objz00_2717 = 
(BgL_objectz00_bglt)(BgL_nodez00_2715); 
{ /* ./Cfa/cfa.scm 305 */
long BgL_objzd2classzd2numz00_2718;
BgL_objzd2classzd2numz00_2718 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2717); 
{ /* ./Cfa/cfa.scm 305 */
obj_t BgL_arg2017z00_2719;
{ /* ./Cfa/cfa.scm 305 */
int BgL_auxz00_3055;
BgL_auxz00_3055 = 
(int)(((long)1)); 
BgL_arg2017z00_2719 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3055); } 
{ /* ./Cfa/cfa.scm 305 */
int BgL_offsetz00_2722;
BgL_offsetz00_2722 = 
(int)(BgL_objzd2classzd2numz00_2718); 
{ /* ./Cfa/cfa.scm 305 */
long BgL_offsetz00_2723;
{ /* ./Cfa/cfa.scm 305 */
long BgL_auxz00_3059;
BgL_auxz00_3059 = 
(long)(BgL_offsetz00_2722); 
BgL_offsetz00_2723 = 
(BgL_auxz00_3059-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 305 */
long BgL_modz00_2724;
{ /* ./Cfa/cfa.scm 305 */
int BgL_arg2028z00_2725;
BgL_arg2028z00_2725 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 305 */
long BgL_n2z00_2733;
BgL_n2z00_2733 = 
(long)(BgL_arg2028z00_2725); 
BgL_modz00_2724 = 
(BgL_offsetz00_2723/BgL_n2z00_2733); } } 
{ /* ./Cfa/cfa.scm 305 */
long BgL_restz00_2726;
{ /* ./Cfa/cfa.scm 305 */
int BgL_arg2024z00_2727;
BgL_arg2024z00_2727 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 305 */
long BgL_n2z00_2736;
BgL_n2z00_2736 = 
(long)(BgL_arg2024z00_2727); 
BgL_restz00_2726 = 
(BgL_offsetz00_2723%BgL_n2z00_2736); } } 
{ /* ./Cfa/cfa.scm 305 */

{ /* ./Cfa/cfa.scm 305 */
obj_t BgL_bucketz00_2728;
{ /* ./Cfa/cfa.scm 305 */
int BgL_kz00_2738;
BgL_kz00_2738 = 
(int)(BgL_modz00_2724); 
BgL_bucketz00_2728 = 
VECTOR_REF(BgL_arg2017z00_2719,BgL_kz00_2738); } 
{ /* ./Cfa/cfa.scm 305 */
int BgL_kz00_2740;
BgL_kz00_2740 = 
(int)(BgL_restz00_2726); 
BgL_method4590z00_2716 = 
VECTOR_REF(BgL_bucketz00_2728,BgL_kz00_2740); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 305 */
obj_t BgL_auxz00_3072;
BgL_auxz00_3072 = 
PROCEDURE_ENTRY(BgL_method4590z00_2716)(BgL_method4590z00_2716, 
(obj_t)(BgL_nodez00_2715), BEOA); 
BgL_res6052z00_2741 = 
(BgL_approxz00_bglt)(BgL_auxz00_3072); } } } BgL_res6052z00_2741; } } 
{ /* ./Cfa/cfa.scm 306 */
BgL_approxz00_bglt BgL_arg5920z00_1872;obj_t BgL_arg5921z00_1873;
{ /* ./Cfa/cfa.scm 306 */
BgL_nodez00_bglt BgL_arg5924z00_1874;
{ /* ./Cfa/cfa.scm 306 */
BgL_boxzd2setz12zc0_bglt BgL_obj2643z00_2742;
BgL_obj2643z00_2742 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_1867); 
BgL_arg5924z00_1874 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_obj2643z00_2742))->BgL_valuez00); } 
{ /* ./Cfa/cfa.scm 306 */
BgL_approxz00_bglt BgL_res6055z00_2769;
{ /* ./Cfa/cfa.scm 306 */
obj_t BgL_method4590z00_2744;
{ /* ./Cfa/cfa.scm 306 */
BgL_objectz00_bglt BgL_objz00_2745;
BgL_objz00_2745 = 
(BgL_objectz00_bglt)(BgL_arg5924z00_1874); 
{ /* ./Cfa/cfa.scm 306 */
long BgL_objzd2classzd2numz00_2746;
BgL_objzd2classzd2numz00_2746 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2745); 
{ /* ./Cfa/cfa.scm 306 */
obj_t BgL_arg2017z00_2747;
{ /* ./Cfa/cfa.scm 306 */
int BgL_auxz00_3081;
BgL_auxz00_3081 = 
(int)(((long)1)); 
BgL_arg2017z00_2747 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3081); } 
{ /* ./Cfa/cfa.scm 306 */
int BgL_offsetz00_2750;
BgL_offsetz00_2750 = 
(int)(BgL_objzd2classzd2numz00_2746); 
{ /* ./Cfa/cfa.scm 306 */
long BgL_offsetz00_2751;
{ /* ./Cfa/cfa.scm 306 */
long BgL_auxz00_3085;
BgL_auxz00_3085 = 
(long)(BgL_offsetz00_2750); 
BgL_offsetz00_2751 = 
(BgL_auxz00_3085-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 306 */
long BgL_modz00_2752;
{ /* ./Cfa/cfa.scm 306 */
int BgL_arg2028z00_2753;
BgL_arg2028z00_2753 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 306 */
long BgL_n2z00_2761;
BgL_n2z00_2761 = 
(long)(BgL_arg2028z00_2753); 
BgL_modz00_2752 = 
(BgL_offsetz00_2751/BgL_n2z00_2761); } } 
{ /* ./Cfa/cfa.scm 306 */
long BgL_restz00_2754;
{ /* ./Cfa/cfa.scm 306 */
int BgL_arg2024z00_2755;
BgL_arg2024z00_2755 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 306 */
long BgL_n2z00_2764;
BgL_n2z00_2764 = 
(long)(BgL_arg2024z00_2755); 
BgL_restz00_2754 = 
(BgL_offsetz00_2751%BgL_n2z00_2764); } } 
{ /* ./Cfa/cfa.scm 306 */

{ /* ./Cfa/cfa.scm 306 */
obj_t BgL_bucketz00_2756;
{ /* ./Cfa/cfa.scm 306 */
int BgL_kz00_2766;
BgL_kz00_2766 = 
(int)(BgL_modz00_2752); 
BgL_bucketz00_2756 = 
VECTOR_REF(BgL_arg2017z00_2747,BgL_kz00_2766); } 
{ /* ./Cfa/cfa.scm 306 */
int BgL_kz00_2768;
BgL_kz00_2768 = 
(int)(BgL_restz00_2754); 
BgL_method4590z00_2744 = 
VECTOR_REF(BgL_bucketz00_2756,BgL_kz00_2768); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 306 */
obj_t BgL_auxz00_3098;
BgL_auxz00_3098 = 
PROCEDURE_ENTRY(BgL_method4590z00_2744)(BgL_method4590z00_2744, 
(obj_t)(BgL_arg5924z00_1874), BEOA); 
BgL_res6055z00_2769 = 
(BgL_approxz00_bglt)(BgL_auxz00_3098); } } 
BgL_arg5920z00_1872 = BgL_res6055z00_2769; } } 
BgL_arg5921z00_1873 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5920z00_1872, BgL_arg5921z00_1873); } 
{ 
obj_t BgL_auxz00_3105;
{ /* ./Cfa/cfa.scm 307 */
BgL_objectz00_bglt BgL_auxz00_3106;
BgL_auxz00_3106 = 
(BgL_objectz00_bglt)(BgL_nodez00_1867); 
BgL_auxz00_3105 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3106); } 
BgL_auxz00_3049 = 
(((BgL_boxzd2setz12zf2cinfoz32_bglt)CREF(BgL_auxz00_3105))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3049);} } } 
}



/* cfa!-make-box/Cinfo4646 */
obj_t BGl_cfaz12zd2makezd2boxzf2Cinfo4646ze0zzcfa_cfaz00(obj_t BgL_envz00_2894, obj_t BgL_nodez00_2895)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 294 */
{ 
BgL_makezd2boxzf2cinfoz20_bglt BgL_nodez00_1858;
{ /* ./Cfa/cfa.scm 295 */
BgL_approxz00_bglt BgL_auxz00_3112;
BgL_nodez00_1858 = 
(BgL_makezd2boxzf2cinfoz20_bglt)(BgL_nodez00_2895); 
{ /* ./Cfa/cfa.scm 297 */
BgL_approxz00_bglt BgL_arg5901z00_1862;obj_t BgL_arg5902z00_1863;
{ /* ./Cfa/cfa.scm 297 */
BgL_nodez00_bglt BgL_arg5905z00_1864;
{ /* ./Cfa/cfa.scm 297 */
BgL_makezd2boxzd2_bglt BgL_obj2582z00_2685;
BgL_obj2582z00_2685 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_1858); 
BgL_arg5905z00_1864 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_obj2582z00_2685))->BgL_valuez00); } 
{ /* ./Cfa/cfa.scm 297 */
BgL_approxz00_bglt BgL_res6049z00_2712;
{ /* ./Cfa/cfa.scm 297 */
obj_t BgL_method4590z00_2687;
{ /* ./Cfa/cfa.scm 297 */
BgL_objectz00_bglt BgL_objz00_2688;
BgL_objz00_2688 = 
(BgL_objectz00_bglt)(BgL_arg5905z00_1864); 
{ /* ./Cfa/cfa.scm 297 */
long BgL_objzd2classzd2numz00_2689;
BgL_objzd2classzd2numz00_2689 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2688); 
{ /* ./Cfa/cfa.scm 297 */
obj_t BgL_arg2017z00_2690;
{ /* ./Cfa/cfa.scm 297 */
int BgL_auxz00_3117;
BgL_auxz00_3117 = 
(int)(((long)1)); 
BgL_arg2017z00_2690 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3117); } 
{ /* ./Cfa/cfa.scm 297 */
int BgL_offsetz00_2693;
BgL_offsetz00_2693 = 
(int)(BgL_objzd2classzd2numz00_2689); 
{ /* ./Cfa/cfa.scm 297 */
long BgL_offsetz00_2694;
{ /* ./Cfa/cfa.scm 297 */
long BgL_auxz00_3121;
BgL_auxz00_3121 = 
(long)(BgL_offsetz00_2693); 
BgL_offsetz00_2694 = 
(BgL_auxz00_3121-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 297 */
long BgL_modz00_2695;
{ /* ./Cfa/cfa.scm 297 */
int BgL_arg2028z00_2696;
BgL_arg2028z00_2696 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 297 */
long BgL_n2z00_2704;
BgL_n2z00_2704 = 
(long)(BgL_arg2028z00_2696); 
BgL_modz00_2695 = 
(BgL_offsetz00_2694/BgL_n2z00_2704); } } 
{ /* ./Cfa/cfa.scm 297 */
long BgL_restz00_2697;
{ /* ./Cfa/cfa.scm 297 */
int BgL_arg2024z00_2698;
BgL_arg2024z00_2698 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 297 */
long BgL_n2z00_2707;
BgL_n2z00_2707 = 
(long)(BgL_arg2024z00_2698); 
BgL_restz00_2697 = 
(BgL_offsetz00_2694%BgL_n2z00_2707); } } 
{ /* ./Cfa/cfa.scm 297 */

{ /* ./Cfa/cfa.scm 297 */
obj_t BgL_bucketz00_2699;
{ /* ./Cfa/cfa.scm 297 */
int BgL_kz00_2709;
BgL_kz00_2709 = 
(int)(BgL_modz00_2695); 
BgL_bucketz00_2699 = 
VECTOR_REF(BgL_arg2017z00_2690,BgL_kz00_2709); } 
{ /* ./Cfa/cfa.scm 297 */
int BgL_kz00_2711;
BgL_kz00_2711 = 
(int)(BgL_restz00_2697); 
BgL_method4590z00_2687 = 
VECTOR_REF(BgL_bucketz00_2699,BgL_kz00_2711); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 297 */
obj_t BgL_auxz00_3134;
BgL_auxz00_3134 = 
PROCEDURE_ENTRY(BgL_method4590z00_2687)(BgL_method4590z00_2687, 
(obj_t)(BgL_arg5905z00_1864), BEOA); 
BgL_res6049z00_2712 = 
(BgL_approxz00_bglt)(BgL_auxz00_3134); } } 
BgL_arg5901z00_1862 = BgL_res6049z00_2712; } } 
BgL_arg5902z00_1863 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5901z00_1862, BgL_arg5902z00_1863); } 
{ 
obj_t BgL_auxz00_3141;
{ /* ./Cfa/cfa.scm 298 */
BgL_objectz00_bglt BgL_auxz00_3142;
BgL_auxz00_3142 = 
(BgL_objectz00_bglt)(BgL_nodez00_1858); 
BgL_auxz00_3141 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3142); } 
BgL_auxz00_3112 = 
(((BgL_makezd2boxzf2cinfoz20_bglt)CREF(BgL_auxz00_3141))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3112);} } } 
}



/* cfa!-jump-ex-it/Cinfo4644 */
obj_t BGl_cfaz12zd2jumpzd2exzd2itzf2Cinfo4644z32zzcfa_cfaz00(obj_t BgL_envz00_2896, obj_t BgL_nodez00_2897)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 284 */
{ 
BgL_jumpzd2exzd2itzf2cinfozf2_bglt BgL_nodez00_1849;
{ /* ./Cfa/cfa.scm 285 */
BgL_approxz00_bglt BgL_auxz00_3148;
BgL_nodez00_1849 = 
(BgL_jumpzd2exzd2itzf2cinfozf2_bglt)(BgL_nodez00_2897); 
{ /* ./Cfa/cfa.scm 286 */
BgL_nodez00_bglt BgL_arg5885z00_1853;
{ /* ./Cfa/cfa.scm 286 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2550z00_2628;
BgL_obj2550z00_2628 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_1849); 
BgL_arg5885z00_1853 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2550z00_2628))->BgL_exitz00); } 
{ /* ./Cfa/cfa.scm 286 */
BgL_approxz00_bglt BgL_res6043z00_2655;
{ /* ./Cfa/cfa.scm 286 */
obj_t BgL_method4590z00_2630;
{ /* ./Cfa/cfa.scm 286 */
BgL_objectz00_bglt BgL_objz00_2631;
BgL_objz00_2631 = 
(BgL_objectz00_bglt)(BgL_arg5885z00_1853); 
{ /* ./Cfa/cfa.scm 286 */
long BgL_objzd2classzd2numz00_2632;
BgL_objzd2classzd2numz00_2632 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2631); 
{ /* ./Cfa/cfa.scm 286 */
obj_t BgL_arg2017z00_2633;
{ /* ./Cfa/cfa.scm 286 */
int BgL_auxz00_3153;
BgL_auxz00_3153 = 
(int)(((long)1)); 
BgL_arg2017z00_2633 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3153); } 
{ /* ./Cfa/cfa.scm 286 */
int BgL_offsetz00_2636;
BgL_offsetz00_2636 = 
(int)(BgL_objzd2classzd2numz00_2632); 
{ /* ./Cfa/cfa.scm 286 */
long BgL_offsetz00_2637;
{ /* ./Cfa/cfa.scm 286 */
long BgL_auxz00_3157;
BgL_auxz00_3157 = 
(long)(BgL_offsetz00_2636); 
BgL_offsetz00_2637 = 
(BgL_auxz00_3157-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 286 */
long BgL_modz00_2638;
{ /* ./Cfa/cfa.scm 286 */
int BgL_arg2028z00_2639;
BgL_arg2028z00_2639 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 286 */
long BgL_n2z00_2647;
BgL_n2z00_2647 = 
(long)(BgL_arg2028z00_2639); 
BgL_modz00_2638 = 
(BgL_offsetz00_2637/BgL_n2z00_2647); } } 
{ /* ./Cfa/cfa.scm 286 */
long BgL_restz00_2640;
{ /* ./Cfa/cfa.scm 286 */
int BgL_arg2024z00_2641;
BgL_arg2024z00_2641 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 286 */
long BgL_n2z00_2650;
BgL_n2z00_2650 = 
(long)(BgL_arg2024z00_2641); 
BgL_restz00_2640 = 
(BgL_offsetz00_2637%BgL_n2z00_2650); } } 
{ /* ./Cfa/cfa.scm 286 */

{ /* ./Cfa/cfa.scm 286 */
obj_t BgL_bucketz00_2642;
{ /* ./Cfa/cfa.scm 286 */
int BgL_kz00_2652;
BgL_kz00_2652 = 
(int)(BgL_modz00_2638); 
BgL_bucketz00_2642 = 
VECTOR_REF(BgL_arg2017z00_2633,BgL_kz00_2652); } 
{ /* ./Cfa/cfa.scm 286 */
int BgL_kz00_2654;
BgL_kz00_2654 = 
(int)(BgL_restz00_2640); 
BgL_method4590z00_2630 = 
VECTOR_REF(BgL_bucketz00_2642,BgL_kz00_2654); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 286 */
obj_t BgL_auxz00_3170;
BgL_auxz00_3170 = 
PROCEDURE_ENTRY(BgL_method4590z00_2630)(BgL_method4590z00_2630, 
(obj_t)(BgL_arg5885z00_1853), BEOA); 
BgL_res6043z00_2655 = 
(BgL_approxz00_bglt)(BgL_auxz00_3170); } } BgL_res6043z00_2655; } } 
{ /* ./Cfa/cfa.scm 287 */
BgL_approxz00_bglt BgL_valzd2approxzd2_1854;
{ /* ./Cfa/cfa.scm 287 */
BgL_nodez00_bglt BgL_arg5891z00_1855;
{ /* ./Cfa/cfa.scm 287 */
BgL_jumpzd2exzd2itz00_bglt BgL_obj2553z00_2656;
BgL_obj2553z00_2656 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_1849); 
BgL_arg5891z00_1855 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_obj2553z00_2656))->BgL_valuez00); } 
{ /* ./Cfa/cfa.scm 287 */
BgL_approxz00_bglt BgL_res6046z00_2683;
{ /* ./Cfa/cfa.scm 287 */
obj_t BgL_method4590z00_2658;
{ /* ./Cfa/cfa.scm 287 */
BgL_objectz00_bglt BgL_objz00_2659;
BgL_objz00_2659 = 
(BgL_objectz00_bglt)(BgL_arg5891z00_1855); 
{ /* ./Cfa/cfa.scm 287 */
long BgL_objzd2classzd2numz00_2660;
BgL_objzd2classzd2numz00_2660 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2659); 
{ /* ./Cfa/cfa.scm 287 */
obj_t BgL_arg2017z00_2661;
{ /* ./Cfa/cfa.scm 287 */
int BgL_auxz00_3179;
BgL_auxz00_3179 = 
(int)(((long)1)); 
BgL_arg2017z00_2661 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3179); } 
{ /* ./Cfa/cfa.scm 287 */
int BgL_offsetz00_2664;
BgL_offsetz00_2664 = 
(int)(BgL_objzd2classzd2numz00_2660); 
{ /* ./Cfa/cfa.scm 287 */
long BgL_offsetz00_2665;
{ /* ./Cfa/cfa.scm 287 */
long BgL_auxz00_3183;
BgL_auxz00_3183 = 
(long)(BgL_offsetz00_2664); 
BgL_offsetz00_2665 = 
(BgL_auxz00_3183-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 287 */
long BgL_modz00_2666;
{ /* ./Cfa/cfa.scm 287 */
int BgL_arg2028z00_2667;
BgL_arg2028z00_2667 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 287 */
long BgL_n2z00_2675;
BgL_n2z00_2675 = 
(long)(BgL_arg2028z00_2667); 
BgL_modz00_2666 = 
(BgL_offsetz00_2665/BgL_n2z00_2675); } } 
{ /* ./Cfa/cfa.scm 287 */
long BgL_restz00_2668;
{ /* ./Cfa/cfa.scm 287 */
int BgL_arg2024z00_2669;
BgL_arg2024z00_2669 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 287 */
long BgL_n2z00_2678;
BgL_n2z00_2678 = 
(long)(BgL_arg2024z00_2669); 
BgL_restz00_2668 = 
(BgL_offsetz00_2665%BgL_n2z00_2678); } } 
{ /* ./Cfa/cfa.scm 287 */

{ /* ./Cfa/cfa.scm 287 */
obj_t BgL_bucketz00_2670;
{ /* ./Cfa/cfa.scm 287 */
int BgL_kz00_2680;
BgL_kz00_2680 = 
(int)(BgL_modz00_2666); 
BgL_bucketz00_2670 = 
VECTOR_REF(BgL_arg2017z00_2661,BgL_kz00_2680); } 
{ /* ./Cfa/cfa.scm 287 */
int BgL_kz00_2682;
BgL_kz00_2682 = 
(int)(BgL_restz00_2668); 
BgL_method4590z00_2658 = 
VECTOR_REF(BgL_bucketz00_2670,BgL_kz00_2682); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 287 */
obj_t BgL_auxz00_3196;
BgL_auxz00_3196 = 
PROCEDURE_ENTRY(BgL_method4590z00_2658)(BgL_method4590z00_2658, 
(obj_t)(BgL_arg5891z00_1855), BEOA); 
BgL_res6046z00_2683 = 
(BgL_approxz00_bglt)(BgL_auxz00_3196); } } 
BgL_valzd2approxzd2_1854 = BgL_res6046z00_2683; } } 
BGl_loosez12z12zzcfa_loosez00(BgL_valzd2approxzd2_1854, 
CNST_TABLE_REF(((long)0))); 
{ 
obj_t BgL_auxz00_3203;
{ /* ./Cfa/cfa.scm 289 */
BgL_objectz00_bglt BgL_auxz00_3204;
BgL_auxz00_3204 = 
(BgL_objectz00_bglt)(BgL_nodez00_1849); 
BgL_auxz00_3203 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3204); } 
BgL_auxz00_3148 = 
(((BgL_jumpzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_auxz00_3203))->BgL_approxz00); } } 
return 
(obj_t)(BgL_auxz00_3148);} } } 
}



/* cfa!-set-ex-it/Cinfo4642 */
obj_t BGl_cfaz12zd2setzd2exzd2itzf2Cinfo4642z32zzcfa_cfaz00(obj_t BgL_envz00_2898, obj_t BgL_nodez00_2899)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 276 */
{ 
BgL_setzd2exzd2itzf2cinfozf2_bglt BgL_nodez00_1840;
{ /* ./Cfa/cfa.scm 277 */
BgL_approxz00_bglt BgL_auxz00_3210;
BgL_nodez00_1840 = 
(BgL_setzd2exzd2itzf2cinfozf2_bglt)(BgL_nodez00_2899); 
{ /* ./Cfa/cfa.scm 278 */
BgL_approxz00_bglt BgL_arg5870z00_1844;obj_t BgL_arg5871z00_1845;
{ /* ./Cfa/cfa.scm 278 */
BgL_nodez00_bglt BgL_arg5874z00_1846;
{ /* ./Cfa/cfa.scm 278 */
BgL_setzd2exzd2itz00_bglt BgL_obj2527z00_2599;
BgL_obj2527z00_2599 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_1840); 
BgL_arg5874z00_1846 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_obj2527z00_2599))->BgL_bodyz00); } 
{ /* ./Cfa/cfa.scm 278 */
BgL_approxz00_bglt BgL_res6040z00_2626;
{ /* ./Cfa/cfa.scm 278 */
obj_t BgL_method4590z00_2601;
{ /* ./Cfa/cfa.scm 278 */
BgL_objectz00_bglt BgL_objz00_2602;
BgL_objz00_2602 = 
(BgL_objectz00_bglt)(BgL_arg5874z00_1846); 
{ /* ./Cfa/cfa.scm 278 */
long BgL_objzd2classzd2numz00_2603;
BgL_objzd2classzd2numz00_2603 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2602); 
{ /* ./Cfa/cfa.scm 278 */
obj_t BgL_arg2017z00_2604;
{ /* ./Cfa/cfa.scm 278 */
int BgL_auxz00_3215;
BgL_auxz00_3215 = 
(int)(((long)1)); 
BgL_arg2017z00_2604 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3215); } 
{ /* ./Cfa/cfa.scm 278 */
int BgL_offsetz00_2607;
BgL_offsetz00_2607 = 
(int)(BgL_objzd2classzd2numz00_2603); 
{ /* ./Cfa/cfa.scm 278 */
long BgL_offsetz00_2608;
{ /* ./Cfa/cfa.scm 278 */
long BgL_auxz00_3219;
BgL_auxz00_3219 = 
(long)(BgL_offsetz00_2607); 
BgL_offsetz00_2608 = 
(BgL_auxz00_3219-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 278 */
long BgL_modz00_2609;
{ /* ./Cfa/cfa.scm 278 */
int BgL_arg2028z00_2610;
BgL_arg2028z00_2610 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 278 */
long BgL_n2z00_2618;
BgL_n2z00_2618 = 
(long)(BgL_arg2028z00_2610); 
BgL_modz00_2609 = 
(BgL_offsetz00_2608/BgL_n2z00_2618); } } 
{ /* ./Cfa/cfa.scm 278 */
long BgL_restz00_2611;
{ /* ./Cfa/cfa.scm 278 */
int BgL_arg2024z00_2612;
BgL_arg2024z00_2612 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 278 */
long BgL_n2z00_2621;
BgL_n2z00_2621 = 
(long)(BgL_arg2024z00_2612); 
BgL_restz00_2611 = 
(BgL_offsetz00_2608%BgL_n2z00_2621); } } 
{ /* ./Cfa/cfa.scm 278 */

{ /* ./Cfa/cfa.scm 278 */
obj_t BgL_bucketz00_2613;
{ /* ./Cfa/cfa.scm 278 */
int BgL_kz00_2623;
BgL_kz00_2623 = 
(int)(BgL_modz00_2609); 
BgL_bucketz00_2613 = 
VECTOR_REF(BgL_arg2017z00_2604,BgL_kz00_2623); } 
{ /* ./Cfa/cfa.scm 278 */
int BgL_kz00_2625;
BgL_kz00_2625 = 
(int)(BgL_restz00_2611); 
BgL_method4590z00_2601 = 
VECTOR_REF(BgL_bucketz00_2613,BgL_kz00_2625); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 278 */
obj_t BgL_auxz00_3232;
BgL_auxz00_3232 = 
PROCEDURE_ENTRY(BgL_method4590z00_2601)(BgL_method4590z00_2601, 
(obj_t)(BgL_arg5874z00_1846), BEOA); 
BgL_res6040z00_2626 = 
(BgL_approxz00_bglt)(BgL_auxz00_3232); } } 
BgL_arg5870z00_1844 = BgL_res6040z00_2626; } } 
BgL_arg5871z00_1845 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5870z00_1844, BgL_arg5871z00_1845); } 
{ 
obj_t BgL_auxz00_3239;
{ /* ./Cfa/cfa.scm 279 */
BgL_objectz00_bglt BgL_auxz00_3240;
BgL_auxz00_3240 = 
(BgL_objectz00_bglt)(BgL_nodez00_1840); 
BgL_auxz00_3239 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3240); } 
BgL_auxz00_3210 = 
(((BgL_setzd2exzd2itzf2cinfozf2_bglt)CREF(BgL_auxz00_3239))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3210);} } } 
}



/* cfa!-let-var4640 */
obj_t BGl_cfaz12zd2letzd2var4640z12zzcfa_cfaz00(obj_t BgL_envz00_2900, obj_t BgL_nodez00_2901)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 245 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1815;
{ /* ./Cfa/cfa.scm 246 */
BgL_approxz00_bglt BgL_auxz00_3246;
BgL_nodez00_1815 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2901); 
{ 
obj_t BgL_l4577z00_1819;
{ /* ./Cfa/cfa.scm 248 */
obj_t BgL_arg5826z00_1821;
BgL_arg5826z00_1821 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1815))->BgL_bindingsz00); 
BgL_l4577z00_1819 = BgL_arg5826z00_1821; 
BgL_forzd2each4578zd2_1820:
{ /* ./Cfa/cfa.scm 248 */
bool_t BgL_test5829z00_1822;
BgL_test5829z00_1822 = 
PAIRP(BgL_l4577z00_1819); 
if(BgL_test5829z00_1822)
{ /* ./Cfa/cfa.scm 248 */
{ /* ./Cfa/cfa.scm 249 */
obj_t BgL_bindingz00_1823;
BgL_bindingz00_1823 = 
CAR(BgL_l4577z00_1819); 
{ /* ./Cfa/cfa.scm 249 */
obj_t BgL_varz00_1824;
BgL_varz00_1824 = 
CAR(BgL_bindingz00_1823); 
{ /* ./Cfa/cfa.scm 249 */
BgL_approxz00_bglt BgL_varzd2approxzd2_1825;
{ /* ./Cfa/cfa.scm 250 */
BgL_svarzf2cinfozf2_bglt BgL_obj2902z00_2539;
{ /* ./Cfa/cfa.scm 250 */
BgL_valuez00_bglt BgL_auxz00_3252;
{ /* ./Cfa/cfa.scm 250 */
BgL_variablez00_bglt BgL_obj1100z00_2538;
BgL_obj1100z00_2538 = 
(BgL_variablez00_bglt)(BgL_varz00_1824); 
BgL_auxz00_3252 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2538))->BgL_valuez00); } 
BgL_obj2902z00_2539 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_auxz00_3252); } 
{ 
obj_t BgL_auxz00_3256;
{ /* ./Cfa/cfa.scm 250 */
BgL_objectz00_bglt BgL_auxz00_3257;
BgL_auxz00_3257 = 
(BgL_objectz00_bglt)(BgL_obj2902z00_2539); 
BgL_auxz00_3256 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3257); } 
BgL_varzd2approxzd2_1825 = 
(((BgL_svarzf2cinfozf2_bglt)CREF(BgL_auxz00_3256))->BgL_approxz00); } } 
{ /* ./Cfa/cfa.scm 250 */
BgL_approxz00_bglt BgL_valzd2approxzd2_1826;
{ /* ./Cfa/cfa.scm 251 */
obj_t BgL_arg5845z00_1834;
BgL_arg5845z00_1834 = 
CDR(BgL_bindingz00_1823); 
{ /* ./Cfa/cfa.scm 251 */
BgL_approxz00_bglt BgL_res6034z00_2567;
{ /* ./Cfa/cfa.scm 251 */
BgL_nodez00_bglt BgL_nodez00_2541;
BgL_nodez00_2541 = 
(BgL_nodez00_bglt)(BgL_arg5845z00_1834); 
{ /* ./Cfa/cfa.scm 251 */
obj_t BgL_method4590z00_2542;
{ /* ./Cfa/cfa.scm 251 */
BgL_objectz00_bglt BgL_objz00_2543;
BgL_objz00_2543 = 
(BgL_objectz00_bglt)(BgL_nodez00_2541); 
{ /* ./Cfa/cfa.scm 251 */
long BgL_objzd2classzd2numz00_2544;
BgL_objzd2classzd2numz00_2544 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2543); 
{ /* ./Cfa/cfa.scm 251 */
obj_t BgL_arg2017z00_2545;
{ /* ./Cfa/cfa.scm 251 */
int BgL_auxz00_3265;
BgL_auxz00_3265 = 
(int)(((long)1)); 
BgL_arg2017z00_2545 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3265); } 
{ /* ./Cfa/cfa.scm 251 */
int BgL_offsetz00_2548;
BgL_offsetz00_2548 = 
(int)(BgL_objzd2classzd2numz00_2544); 
{ /* ./Cfa/cfa.scm 251 */
long BgL_offsetz00_2549;
{ /* ./Cfa/cfa.scm 251 */
long BgL_auxz00_3269;
BgL_auxz00_3269 = 
(long)(BgL_offsetz00_2548); 
BgL_offsetz00_2549 = 
(BgL_auxz00_3269-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 251 */
long BgL_modz00_2550;
{ /* ./Cfa/cfa.scm 251 */
int BgL_arg2028z00_2551;
BgL_arg2028z00_2551 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 251 */
long BgL_n2z00_2559;
BgL_n2z00_2559 = 
(long)(BgL_arg2028z00_2551); 
BgL_modz00_2550 = 
(BgL_offsetz00_2549/BgL_n2z00_2559); } } 
{ /* ./Cfa/cfa.scm 251 */
long BgL_restz00_2552;
{ /* ./Cfa/cfa.scm 251 */
int BgL_arg2024z00_2553;
BgL_arg2024z00_2553 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 251 */
long BgL_n2z00_2562;
BgL_n2z00_2562 = 
(long)(BgL_arg2024z00_2553); 
BgL_restz00_2552 = 
(BgL_offsetz00_2549%BgL_n2z00_2562); } } 
{ /* ./Cfa/cfa.scm 251 */

{ /* ./Cfa/cfa.scm 251 */
obj_t BgL_bucketz00_2554;
{ /* ./Cfa/cfa.scm 251 */
int BgL_kz00_2564;
BgL_kz00_2564 = 
(int)(BgL_modz00_2550); 
BgL_bucketz00_2554 = 
VECTOR_REF(BgL_arg2017z00_2545,BgL_kz00_2564); } 
{ /* ./Cfa/cfa.scm 251 */
int BgL_kz00_2566;
BgL_kz00_2566 = 
(int)(BgL_restz00_2552); 
BgL_method4590z00_2542 = 
VECTOR_REF(BgL_bucketz00_2554,BgL_kz00_2566); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 251 */
obj_t BgL_auxz00_3282;
BgL_auxz00_3282 = 
PROCEDURE_ENTRY(BgL_method4590z00_2542)(BgL_method4590z00_2542, 
(obj_t)(BgL_nodez00_2541), BEOA); 
BgL_res6034z00_2567 = 
(BgL_approxz00_bglt)(BgL_auxz00_3282); } } } 
BgL_valzd2approxzd2_1826 = BgL_res6034z00_2567; } } 
{ /* ./Cfa/cfa.scm 251 */

{ /* ./Cfa/cfa.scm 252 */
BgL_typez00_bglt BgL_vtypez00_1827;BgL_typez00_bglt BgL_atypez00_1828;
{ /* ./Cfa/cfa.scm 252 */
BgL_variablez00_bglt BgL_obj1097z00_2568;
BgL_obj1097z00_2568 = 
(BgL_variablez00_bglt)(BgL_varz00_1824); 
BgL_vtypez00_1827 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1097z00_2568))->BgL_typez00); } 
BgL_atypez00_1828 = 
(((BgL_approxz00_bglt)CREF(BgL_valzd2approxzd2_1826))->BgL_typez00); 
BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_varzd2approxzd2_1825, BgL_valzd2approxzd2_1826); 
{ /* ./Cfa/cfa.scm 263 */
bool_t BgL_test5831z00_1829;
{ /* ./Cfa/cfa.scm 263 */
bool_t BgL_test5834z00_1830;
{ /* ./Cfa/cfa.scm 263 */
obj_t BgL_auxz00_3291;
BgL_auxz00_3291 = 
(obj_t)(BgL_vtypez00_1827); 
BgL_test5834z00_1830 = 
(BgL_auxz00_3291==BGl_za2_za2z00zztype_cachez00); } 
if(BgL_test5834z00_1830)
{ /* ./Cfa/cfa.scm 263 */
BgL_test5831z00_1829 = ((bool_t)0); }  else 
{ /* ./Cfa/cfa.scm 264 */
bool_t BgL_test5835z00_1831;
{ /* ./Cfa/cfa.scm 264 */
obj_t BgL_auxz00_3295;
BgL_auxz00_3295 = 
(obj_t)(BgL_vtypez00_1827); 
BgL_test5835z00_1831 = 
(BgL_auxz00_3295==BGl_za2objza2z00zztype_cachez00); } 
if(BgL_test5835z00_1831)
{ /* ./Cfa/cfa.scm 264 */
BgL_test5831z00_1829 = ((bool_t)0); }  else 
{ /* ./Cfa/cfa.scm 265 */
bool_t BgL_test5836z00_1832;
{ /* ./Cfa/cfa.scm 265 */
obj_t BgL_auxz00_3299;
BgL_auxz00_3299 = 
(obj_t)(BgL_atypez00_1828); 
BgL_test5836z00_1832 = 
(BgL_auxz00_3299==BGl_za2_za2z00zztype_cachez00); } 
if(BgL_test5836z00_1832)
{ /* ./Cfa/cfa.scm 265 */
BgL_test5831z00_1829 = ((bool_t)0); }  else 
{ /* ./Cfa/cfa.scm 266 */
bool_t BgL_testz00_3303;
{ /* ./Cfa/cfa.scm 266 */
obj_t BgL_auxz00_3306;obj_t BgL_auxz00_3304;
BgL_auxz00_3306 = 
(obj_t)(BgL_vtypez00_1827); 
BgL_auxz00_3304 = 
(obj_t)(BgL_atypez00_1828); 
BgL_testz00_3303 = 
(BgL_auxz00_3304==BgL_auxz00_3306); } 
if(BgL_testz00_3303)
{ /* ./Cfa/cfa.scm 266 */
BgL_test5831z00_1829 = ((bool_t)0); }  else 
{ /* ./Cfa/cfa.scm 266 */
BgL_test5831z00_1829 = ((bool_t)1); } } } } } 
if(BgL_test5831z00_1829)
{ /* ./Cfa/cfa.scm 263 */
BGl_approxzd2setzd2topz12z12zzcfa_approxz00(BgL_valzd2approxzd2_1826); 
{ /* ./Cfa/cfa.scm 269 */
BgL_approxz00_bglt BgL_auxz00_3311;
BgL_auxz00_3311 = 
BGl_loosez12z12zzcfa_loosez00(BgL_valzd2approxzd2_1826, 
CNST_TABLE_REF(((long)0))); 
(obj_t)(BgL_auxz00_3311); } }  else 
{ /* ./Cfa/cfa.scm 263 */BFALSE; } } } } } } } } 
{ /* ./Cfa/cfa.scm 248 */
obj_t BgL_arg5855z00_1836;
BgL_arg5855z00_1836 = 
CDR(BgL_l4577z00_1819); 
{ 
obj_t BgL_l4577z00_3316;
BgL_l4577z00_3316 = BgL_arg5855z00_1836; 
BgL_l4577z00_1819 = BgL_l4577z00_3316; 
goto BgL_forzd2each4578zd2_1820;} } }  else 
{ /* ./Cfa/cfa.scm 248 */((bool_t)1); } } } } 
{ /* ./Cfa/cfa.scm 271 */
BgL_nodez00_bglt BgL_arg5860z00_1837;
BgL_arg5860z00_1837 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1815))->BgL_bodyz00); 
{ /* ./Cfa/cfa.scm 271 */
BgL_approxz00_bglt BgL_res6037z00_2598;
{ /* ./Cfa/cfa.scm 271 */
obj_t BgL_method4590z00_2573;
{ /* ./Cfa/cfa.scm 271 */
BgL_objectz00_bglt BgL_objz00_2574;
BgL_objz00_2574 = 
(BgL_objectz00_bglt)(BgL_arg5860z00_1837); 
{ /* ./Cfa/cfa.scm 271 */
long BgL_objzd2classzd2numz00_2575;
BgL_objzd2classzd2numz00_2575 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2574); 
{ /* ./Cfa/cfa.scm 271 */
obj_t BgL_arg2017z00_2576;
{ /* ./Cfa/cfa.scm 271 */
int BgL_auxz00_3320;
BgL_auxz00_3320 = 
(int)(((long)1)); 
BgL_arg2017z00_2576 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3320); } 
{ /* ./Cfa/cfa.scm 271 */
int BgL_offsetz00_2579;
BgL_offsetz00_2579 = 
(int)(BgL_objzd2classzd2numz00_2575); 
{ /* ./Cfa/cfa.scm 271 */
long BgL_offsetz00_2580;
{ /* ./Cfa/cfa.scm 271 */
long BgL_auxz00_3324;
BgL_auxz00_3324 = 
(long)(BgL_offsetz00_2579); 
BgL_offsetz00_2580 = 
(BgL_auxz00_3324-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 271 */
long BgL_modz00_2581;
{ /* ./Cfa/cfa.scm 271 */
int BgL_arg2028z00_2582;
BgL_arg2028z00_2582 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 271 */
long BgL_n2z00_2590;
BgL_n2z00_2590 = 
(long)(BgL_arg2028z00_2582); 
BgL_modz00_2581 = 
(BgL_offsetz00_2580/BgL_n2z00_2590); } } 
{ /* ./Cfa/cfa.scm 271 */
long BgL_restz00_2583;
{ /* ./Cfa/cfa.scm 271 */
int BgL_arg2024z00_2584;
BgL_arg2024z00_2584 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 271 */
long BgL_n2z00_2593;
BgL_n2z00_2593 = 
(long)(BgL_arg2024z00_2584); 
BgL_restz00_2583 = 
(BgL_offsetz00_2580%BgL_n2z00_2593); } } 
{ /* ./Cfa/cfa.scm 271 */

{ /* ./Cfa/cfa.scm 271 */
obj_t BgL_bucketz00_2585;
{ /* ./Cfa/cfa.scm 271 */
int BgL_kz00_2595;
BgL_kz00_2595 = 
(int)(BgL_modz00_2581); 
BgL_bucketz00_2585 = 
VECTOR_REF(BgL_arg2017z00_2576,BgL_kz00_2595); } 
{ /* ./Cfa/cfa.scm 271 */
int BgL_kz00_2597;
BgL_kz00_2597 = 
(int)(BgL_restz00_2583); 
BgL_method4590z00_2573 = 
VECTOR_REF(BgL_bucketz00_2585,BgL_kz00_2597); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 271 */
obj_t BgL_auxz00_3337;
BgL_auxz00_3337 = 
PROCEDURE_ENTRY(BgL_method4590z00_2573)(BgL_method4590z00_2573, 
(obj_t)(BgL_arg5860z00_1837), BEOA); 
BgL_res6037z00_2598 = 
(BgL_approxz00_bglt)(BgL_auxz00_3337); } } 
BgL_auxz00_3246 = BgL_res6037z00_2598; } } 
return 
(obj_t)(BgL_auxz00_3246);} } } 
}



/* cfa!-let-fun4638 */
obj_t BGl_cfaz12zd2letzd2fun4638z12zzcfa_cfaz00(obj_t BgL_envz00_2902, obj_t BgL_nodez00_2903)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 238 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1808;
{ /* ./Cfa/cfa.scm 239 */
BgL_approxz00_bglt BgL_auxz00_3344;
BgL_nodez00_1808 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2903); 
{ /* ./Cfa/cfa.scm 239 */
BgL_nodez00_bglt BgL_arg5816z00_2505;
BgL_arg5816z00_2505 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1808))->BgL_bodyz00); 
{ /* ./Cfa/cfa.scm 239 */
BgL_approxz00_bglt BgL_res6031z00_2533;
{ /* ./Cfa/cfa.scm 239 */
obj_t BgL_method4590z00_2508;
{ /* ./Cfa/cfa.scm 239 */
BgL_objectz00_bglt BgL_objz00_2509;
BgL_objz00_2509 = 
(BgL_objectz00_bglt)(BgL_arg5816z00_2505); 
{ /* ./Cfa/cfa.scm 239 */
long BgL_objzd2classzd2numz00_2510;
BgL_objzd2classzd2numz00_2510 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2509); 
{ /* ./Cfa/cfa.scm 239 */
obj_t BgL_arg2017z00_2511;
{ /* ./Cfa/cfa.scm 239 */
int BgL_auxz00_3348;
BgL_auxz00_3348 = 
(int)(((long)1)); 
BgL_arg2017z00_2511 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3348); } 
{ /* ./Cfa/cfa.scm 239 */
int BgL_offsetz00_2514;
BgL_offsetz00_2514 = 
(int)(BgL_objzd2classzd2numz00_2510); 
{ /* ./Cfa/cfa.scm 239 */
long BgL_offsetz00_2515;
{ /* ./Cfa/cfa.scm 239 */
long BgL_auxz00_3352;
BgL_auxz00_3352 = 
(long)(BgL_offsetz00_2514); 
BgL_offsetz00_2515 = 
(BgL_auxz00_3352-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 239 */
long BgL_modz00_2516;
{ /* ./Cfa/cfa.scm 239 */
int BgL_arg2028z00_2517;
BgL_arg2028z00_2517 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 239 */
long BgL_n2z00_2525;
BgL_n2z00_2525 = 
(long)(BgL_arg2028z00_2517); 
BgL_modz00_2516 = 
(BgL_offsetz00_2515/BgL_n2z00_2525); } } 
{ /* ./Cfa/cfa.scm 239 */
long BgL_restz00_2518;
{ /* ./Cfa/cfa.scm 239 */
int BgL_arg2024z00_2519;
BgL_arg2024z00_2519 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 239 */
long BgL_n2z00_2528;
BgL_n2z00_2528 = 
(long)(BgL_arg2024z00_2519); 
BgL_restz00_2518 = 
(BgL_offsetz00_2515%BgL_n2z00_2528); } } 
{ /* ./Cfa/cfa.scm 239 */

{ /* ./Cfa/cfa.scm 239 */
obj_t BgL_bucketz00_2520;
{ /* ./Cfa/cfa.scm 239 */
int BgL_kz00_2530;
BgL_kz00_2530 = 
(int)(BgL_modz00_2516); 
BgL_bucketz00_2520 = 
VECTOR_REF(BgL_arg2017z00_2511,BgL_kz00_2530); } 
{ /* ./Cfa/cfa.scm 239 */
int BgL_kz00_2532;
BgL_kz00_2532 = 
(int)(BgL_restz00_2518); 
BgL_method4590z00_2508 = 
VECTOR_REF(BgL_bucketz00_2520,BgL_kz00_2532); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 239 */
obj_t BgL_auxz00_3365;
BgL_auxz00_3365 = 
PROCEDURE_ENTRY(BgL_method4590z00_2508)(BgL_method4590z00_2508, 
(obj_t)(BgL_arg5816z00_2505), BEOA); 
BgL_res6031z00_2533 = 
(BgL_approxz00_bglt)(BgL_auxz00_3365); } } 
BgL_auxz00_3344 = BgL_res6031z00_2533; } } 
return 
(obj_t)(BgL_auxz00_3344);} } } 
}



/* cfa!-select/Cinfo4636 */
obj_t BGl_cfaz12zd2selectzf2Cinfo4636z32zzcfa_cfaz00(obj_t BgL_envz00_2904, obj_t BgL_nodez00_2905)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 224 */
{ 
BgL_selectzf2cinfozf2_bglt BgL_nodez00_1792;
{ /* ./Cfa/cfa.scm 225 */
BgL_approxz00_bglt BgL_auxz00_3372;
BgL_nodez00_1792 = 
(BgL_selectzf2cinfozf2_bglt)(BgL_nodez00_2905); 
{ /* ./Cfa/cfa.scm 226 */
BgL_nodez00_bglt BgL_arg5787z00_1796;
{ /* ./Cfa/cfa.scm 226 */
BgL_selectz00_bglt BgL_obj2408z00_2443;
BgL_obj2408z00_2443 = 
(BgL_selectz00_bglt)(BgL_nodez00_1792); 
BgL_arg5787z00_1796 = 
(((BgL_selectz00_bglt)CREF(BgL_obj2408z00_2443))->BgL_testz00); } 
{ /* ./Cfa/cfa.scm 226 */
BgL_approxz00_bglt BgL_res6025z00_2470;
{ /* ./Cfa/cfa.scm 226 */
obj_t BgL_method4590z00_2445;
{ /* ./Cfa/cfa.scm 226 */
BgL_objectz00_bglt BgL_objz00_2446;
BgL_objz00_2446 = 
(BgL_objectz00_bglt)(BgL_arg5787z00_1796); 
{ /* ./Cfa/cfa.scm 226 */
long BgL_objzd2classzd2numz00_2447;
BgL_objzd2classzd2numz00_2447 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2446); 
{ /* ./Cfa/cfa.scm 226 */
obj_t BgL_arg2017z00_2448;
{ /* ./Cfa/cfa.scm 226 */
int BgL_auxz00_3377;
BgL_auxz00_3377 = 
(int)(((long)1)); 
BgL_arg2017z00_2448 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3377); } 
{ /* ./Cfa/cfa.scm 226 */
int BgL_offsetz00_2451;
BgL_offsetz00_2451 = 
(int)(BgL_objzd2classzd2numz00_2447); 
{ /* ./Cfa/cfa.scm 226 */
long BgL_offsetz00_2452;
{ /* ./Cfa/cfa.scm 226 */
long BgL_auxz00_3381;
BgL_auxz00_3381 = 
(long)(BgL_offsetz00_2451); 
BgL_offsetz00_2452 = 
(BgL_auxz00_3381-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 226 */
long BgL_modz00_2453;
{ /* ./Cfa/cfa.scm 226 */
int BgL_arg2028z00_2454;
BgL_arg2028z00_2454 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 226 */
long BgL_n2z00_2462;
BgL_n2z00_2462 = 
(long)(BgL_arg2028z00_2454); 
BgL_modz00_2453 = 
(BgL_offsetz00_2452/BgL_n2z00_2462); } } 
{ /* ./Cfa/cfa.scm 226 */
long BgL_restz00_2455;
{ /* ./Cfa/cfa.scm 226 */
int BgL_arg2024z00_2456;
BgL_arg2024z00_2456 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 226 */
long BgL_n2z00_2465;
BgL_n2z00_2465 = 
(long)(BgL_arg2024z00_2456); 
BgL_restz00_2455 = 
(BgL_offsetz00_2452%BgL_n2z00_2465); } } 
{ /* ./Cfa/cfa.scm 226 */

{ /* ./Cfa/cfa.scm 226 */
obj_t BgL_bucketz00_2457;
{ /* ./Cfa/cfa.scm 226 */
int BgL_kz00_2467;
BgL_kz00_2467 = 
(int)(BgL_modz00_2453); 
BgL_bucketz00_2457 = 
VECTOR_REF(BgL_arg2017z00_2448,BgL_kz00_2467); } 
{ /* ./Cfa/cfa.scm 226 */
int BgL_kz00_2469;
BgL_kz00_2469 = 
(int)(BgL_restz00_2455); 
BgL_method4590z00_2445 = 
VECTOR_REF(BgL_bucketz00_2457,BgL_kz00_2469); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 226 */
obj_t BgL_auxz00_3394;
BgL_auxz00_3394 = 
PROCEDURE_ENTRY(BgL_method4590z00_2445)(BgL_method4590z00_2445, 
(obj_t)(BgL_arg5787z00_1796), BEOA); 
BgL_res6025z00_2470 = 
(BgL_approxz00_bglt)(BgL_auxz00_3394); } } BgL_res6025z00_2470; } } 
{ /* ./Cfa/cfa.scm 227 */
BgL_approxz00_bglt BgL_reszd2approxzd2_1797;
{ 
obj_t BgL_auxz00_3399;
{ /* ./Cfa/cfa.scm 227 */
BgL_objectz00_bglt BgL_auxz00_3400;
BgL_auxz00_3400 = 
(BgL_objectz00_bglt)(BgL_nodez00_1792); 
BgL_auxz00_3399 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3400); } 
BgL_reszd2approxzd2_1797 = 
(((BgL_selectzf2cinfozf2_bglt)CREF(BgL_auxz00_3399))->BgL_approxz00); } 
{ 
obj_t BgL_clsz00_1798;
{ /* ./Cfa/cfa.scm 228 */
obj_t BgL_arg5791z00_1800;
{ /* ./Cfa/cfa.scm 228 */
BgL_selectz00_bglt BgL_obj2411z00_2472;
BgL_obj2411z00_2472 = 
(BgL_selectz00_bglt)(BgL_nodez00_1792); 
BgL_arg5791z00_1800 = 
(((BgL_selectz00_bglt)CREF(BgL_obj2411z00_2472))->BgL_clausesz00); } 
BgL_clsz00_1798 = BgL_arg5791z00_1800; 
BgL_loopz00_1799:
{ /* ./Cfa/cfa.scm 229 */
bool_t BgL_test5794z00_1801;
BgL_test5794z00_1801 = 
NULLP(BgL_clsz00_1798); 
if(BgL_test5794z00_1801)
{ /* ./Cfa/cfa.scm 229 */
BgL_auxz00_3372 = BgL_reszd2approxzd2_1797
; }  else 
{ /* ./Cfa/cfa.scm 231 */
BgL_approxz00_bglt BgL_newzd2approxzd2_1802;
{ /* ./Cfa/cfa.scm 231 */
obj_t BgL_arg5801z00_1804;
{ /* ./Cfa/cfa.scm 231 */
obj_t BgL_auxz00_3408;
BgL_auxz00_3408 = 
CAR(BgL_clsz00_1798); 
BgL_arg5801z00_1804 = 
CDR(BgL_auxz00_3408); } 
{ /* ./Cfa/cfa.scm 231 */
BgL_approxz00_bglt BgL_res6028z00_2502;
{ /* ./Cfa/cfa.scm 231 */
BgL_nodez00_bglt BgL_nodez00_2476;
BgL_nodez00_2476 = 
(BgL_nodez00_bglt)(BgL_arg5801z00_1804); 
{ /* ./Cfa/cfa.scm 231 */
obj_t BgL_method4590z00_2477;
{ /* ./Cfa/cfa.scm 231 */
BgL_objectz00_bglt BgL_objz00_2478;
BgL_objz00_2478 = 
(BgL_objectz00_bglt)(BgL_nodez00_2476); 
{ /* ./Cfa/cfa.scm 231 */
long BgL_objzd2classzd2numz00_2479;
BgL_objzd2classzd2numz00_2479 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2478); 
{ /* ./Cfa/cfa.scm 231 */
obj_t BgL_arg2017z00_2480;
{ /* ./Cfa/cfa.scm 231 */
int BgL_auxz00_3414;
BgL_auxz00_3414 = 
(int)(((long)1)); 
BgL_arg2017z00_2480 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3414); } 
{ /* ./Cfa/cfa.scm 231 */
int BgL_offsetz00_2483;
BgL_offsetz00_2483 = 
(int)(BgL_objzd2classzd2numz00_2479); 
{ /* ./Cfa/cfa.scm 231 */
long BgL_offsetz00_2484;
{ /* ./Cfa/cfa.scm 231 */
long BgL_auxz00_3418;
BgL_auxz00_3418 = 
(long)(BgL_offsetz00_2483); 
BgL_offsetz00_2484 = 
(BgL_auxz00_3418-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 231 */
long BgL_modz00_2485;
{ /* ./Cfa/cfa.scm 231 */
int BgL_arg2028z00_2486;
BgL_arg2028z00_2486 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 231 */
long BgL_n2z00_2494;
BgL_n2z00_2494 = 
(long)(BgL_arg2028z00_2486); 
BgL_modz00_2485 = 
(BgL_offsetz00_2484/BgL_n2z00_2494); } } 
{ /* ./Cfa/cfa.scm 231 */
long BgL_restz00_2487;
{ /* ./Cfa/cfa.scm 231 */
int BgL_arg2024z00_2488;
BgL_arg2024z00_2488 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 231 */
long BgL_n2z00_2497;
BgL_n2z00_2497 = 
(long)(BgL_arg2024z00_2488); 
BgL_restz00_2487 = 
(BgL_offsetz00_2484%BgL_n2z00_2497); } } 
{ /* ./Cfa/cfa.scm 231 */

{ /* ./Cfa/cfa.scm 231 */
obj_t BgL_bucketz00_2489;
{ /* ./Cfa/cfa.scm 231 */
int BgL_kz00_2499;
BgL_kz00_2499 = 
(int)(BgL_modz00_2485); 
BgL_bucketz00_2489 = 
VECTOR_REF(BgL_arg2017z00_2480,BgL_kz00_2499); } 
{ /* ./Cfa/cfa.scm 231 */
int BgL_kz00_2501;
BgL_kz00_2501 = 
(int)(BgL_restz00_2487); 
BgL_method4590z00_2477 = 
VECTOR_REF(BgL_bucketz00_2489,BgL_kz00_2501); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 231 */
obj_t BgL_auxz00_3431;
BgL_auxz00_3431 = 
PROCEDURE_ENTRY(BgL_method4590z00_2477)(BgL_method4590z00_2477, 
(obj_t)(BgL_nodez00_2476), BEOA); 
BgL_res6028z00_2502 = 
(BgL_approxz00_bglt)(BgL_auxz00_3431); } } } 
BgL_newzd2approxzd2_1802 = BgL_res6028z00_2502; } } 
BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_reszd2approxzd2_1797, BgL_newzd2approxzd2_1802); 
{ /* ./Cfa/cfa.scm 233 */
obj_t BgL_arg5797z00_1803;
BgL_arg5797z00_1803 = 
CDR(BgL_clsz00_1798); 
{ 
obj_t BgL_clsz00_3438;
BgL_clsz00_3438 = BgL_arg5797z00_1803; 
BgL_clsz00_1798 = BgL_clsz00_3438; 
goto BgL_loopz00_1799;} } } } } } } 
return 
(obj_t)(BgL_auxz00_3372);} } } 
}



/* cfa!-fail/Cinfo4634 */
obj_t BGl_cfaz12zd2failzf2Cinfo4634z32zzcfa_cfaz00(obj_t BgL_envz00_2906, obj_t BgL_nodez00_2907)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 214 */
{ 
BgL_failzf2cinfozf2_bglt BgL_nodez00_1777;
{ /* ./Cfa/cfa.scm 215 */
BgL_approxz00_bglt BgL_auxz00_3441;
BgL_nodez00_1777 = 
(BgL_failzf2cinfozf2_bglt)(BgL_nodez00_2907); 
{ /* ./Cfa/cfa.scm 216 */
BgL_approxz00_bglt BgL_arg5756z00_1781;obj_t BgL_arg5757z00_1782;
{ /* ./Cfa/cfa.scm 216 */
BgL_nodez00_bglt BgL_arg5760z00_1783;
{ /* ./Cfa/cfa.scm 216 */
BgL_failz00_bglt BgL_obj2370z00_2358;
BgL_obj2370z00_2358 = 
(BgL_failz00_bglt)(BgL_nodez00_1777); 
BgL_arg5760z00_1783 = 
(((BgL_failz00_bglt)CREF(BgL_obj2370z00_2358))->BgL_procz00); } 
{ /* ./Cfa/cfa.scm 216 */
BgL_approxz00_bglt BgL_res6016z00_2385;
{ /* ./Cfa/cfa.scm 216 */
obj_t BgL_method4590z00_2360;
{ /* ./Cfa/cfa.scm 216 */
BgL_objectz00_bglt BgL_objz00_2361;
BgL_objz00_2361 = 
(BgL_objectz00_bglt)(BgL_arg5760z00_1783); 
{ /* ./Cfa/cfa.scm 216 */
long BgL_objzd2classzd2numz00_2362;
BgL_objzd2classzd2numz00_2362 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2361); 
{ /* ./Cfa/cfa.scm 216 */
obj_t BgL_arg2017z00_2363;
{ /* ./Cfa/cfa.scm 216 */
int BgL_auxz00_3446;
BgL_auxz00_3446 = 
(int)(((long)1)); 
BgL_arg2017z00_2363 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3446); } 
{ /* ./Cfa/cfa.scm 216 */
int BgL_offsetz00_2366;
BgL_offsetz00_2366 = 
(int)(BgL_objzd2classzd2numz00_2362); 
{ /* ./Cfa/cfa.scm 216 */
long BgL_offsetz00_2367;
{ /* ./Cfa/cfa.scm 216 */
long BgL_auxz00_3450;
BgL_auxz00_3450 = 
(long)(BgL_offsetz00_2366); 
BgL_offsetz00_2367 = 
(BgL_auxz00_3450-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 216 */
long BgL_modz00_2368;
{ /* ./Cfa/cfa.scm 216 */
int BgL_arg2028z00_2369;
BgL_arg2028z00_2369 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 216 */
long BgL_n2z00_2377;
BgL_n2z00_2377 = 
(long)(BgL_arg2028z00_2369); 
BgL_modz00_2368 = 
(BgL_offsetz00_2367/BgL_n2z00_2377); } } 
{ /* ./Cfa/cfa.scm 216 */
long BgL_restz00_2370;
{ /* ./Cfa/cfa.scm 216 */
int BgL_arg2024z00_2371;
BgL_arg2024z00_2371 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 216 */
long BgL_n2z00_2380;
BgL_n2z00_2380 = 
(long)(BgL_arg2024z00_2371); 
BgL_restz00_2370 = 
(BgL_offsetz00_2367%BgL_n2z00_2380); } } 
{ /* ./Cfa/cfa.scm 216 */

{ /* ./Cfa/cfa.scm 216 */
obj_t BgL_bucketz00_2372;
{ /* ./Cfa/cfa.scm 216 */
int BgL_kz00_2382;
BgL_kz00_2382 = 
(int)(BgL_modz00_2368); 
BgL_bucketz00_2372 = 
VECTOR_REF(BgL_arg2017z00_2363,BgL_kz00_2382); } 
{ /* ./Cfa/cfa.scm 216 */
int BgL_kz00_2384;
BgL_kz00_2384 = 
(int)(BgL_restz00_2370); 
BgL_method4590z00_2360 = 
VECTOR_REF(BgL_bucketz00_2372,BgL_kz00_2384); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 216 */
obj_t BgL_auxz00_3463;
BgL_auxz00_3463 = 
PROCEDURE_ENTRY(BgL_method4590z00_2360)(BgL_method4590z00_2360, 
(obj_t)(BgL_arg5760z00_1783), BEOA); 
BgL_res6016z00_2385 = 
(BgL_approxz00_bglt)(BgL_auxz00_3463); } } 
BgL_arg5756z00_1781 = BgL_res6016z00_2385; } } 
BgL_arg5757z00_1782 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5756z00_1781, BgL_arg5757z00_1782); } 
{ /* ./Cfa/cfa.scm 217 */
BgL_approxz00_bglt BgL_arg5764z00_1784;obj_t BgL_arg5765z00_1785;
{ /* ./Cfa/cfa.scm 217 */
BgL_nodez00_bglt BgL_arg5768z00_1786;
{ /* ./Cfa/cfa.scm 217 */
BgL_failz00_bglt BgL_obj2373z00_2386;
BgL_obj2373z00_2386 = 
(BgL_failz00_bglt)(BgL_nodez00_1777); 
BgL_arg5768z00_1786 = 
(((BgL_failz00_bglt)CREF(BgL_obj2373z00_2386))->BgL_msgz00); } 
{ /* ./Cfa/cfa.scm 217 */
BgL_approxz00_bglt BgL_res6019z00_2413;
{ /* ./Cfa/cfa.scm 217 */
obj_t BgL_method4590z00_2388;
{ /* ./Cfa/cfa.scm 217 */
BgL_objectz00_bglt BgL_objz00_2389;
BgL_objz00_2389 = 
(BgL_objectz00_bglt)(BgL_arg5768z00_1786); 
{ /* ./Cfa/cfa.scm 217 */
long BgL_objzd2classzd2numz00_2390;
BgL_objzd2classzd2numz00_2390 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2389); 
{ /* ./Cfa/cfa.scm 217 */
obj_t BgL_arg2017z00_2391;
{ /* ./Cfa/cfa.scm 217 */
int BgL_auxz00_3474;
BgL_auxz00_3474 = 
(int)(((long)1)); 
BgL_arg2017z00_2391 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3474); } 
{ /* ./Cfa/cfa.scm 217 */
int BgL_offsetz00_2394;
BgL_offsetz00_2394 = 
(int)(BgL_objzd2classzd2numz00_2390); 
{ /* ./Cfa/cfa.scm 217 */
long BgL_offsetz00_2395;
{ /* ./Cfa/cfa.scm 217 */
long BgL_auxz00_3478;
BgL_auxz00_3478 = 
(long)(BgL_offsetz00_2394); 
BgL_offsetz00_2395 = 
(BgL_auxz00_3478-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 217 */
long BgL_modz00_2396;
{ /* ./Cfa/cfa.scm 217 */
int BgL_arg2028z00_2397;
BgL_arg2028z00_2397 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 217 */
long BgL_n2z00_2405;
BgL_n2z00_2405 = 
(long)(BgL_arg2028z00_2397); 
BgL_modz00_2396 = 
(BgL_offsetz00_2395/BgL_n2z00_2405); } } 
{ /* ./Cfa/cfa.scm 217 */
long BgL_restz00_2398;
{ /* ./Cfa/cfa.scm 217 */
int BgL_arg2024z00_2399;
BgL_arg2024z00_2399 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 217 */
long BgL_n2z00_2408;
BgL_n2z00_2408 = 
(long)(BgL_arg2024z00_2399); 
BgL_restz00_2398 = 
(BgL_offsetz00_2395%BgL_n2z00_2408); } } 
{ /* ./Cfa/cfa.scm 217 */

{ /* ./Cfa/cfa.scm 217 */
obj_t BgL_bucketz00_2400;
{ /* ./Cfa/cfa.scm 217 */
int BgL_kz00_2410;
BgL_kz00_2410 = 
(int)(BgL_modz00_2396); 
BgL_bucketz00_2400 = 
VECTOR_REF(BgL_arg2017z00_2391,BgL_kz00_2410); } 
{ /* ./Cfa/cfa.scm 217 */
int BgL_kz00_2412;
BgL_kz00_2412 = 
(int)(BgL_restz00_2398); 
BgL_method4590z00_2388 = 
VECTOR_REF(BgL_bucketz00_2400,BgL_kz00_2412); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 217 */
obj_t BgL_auxz00_3491;
BgL_auxz00_3491 = 
PROCEDURE_ENTRY(BgL_method4590z00_2388)(BgL_method4590z00_2388, 
(obj_t)(BgL_arg5768z00_1786), BEOA); 
BgL_res6019z00_2413 = 
(BgL_approxz00_bglt)(BgL_auxz00_3491); } } 
BgL_arg5764z00_1784 = BgL_res6019z00_2413; } } 
BgL_arg5765z00_1785 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5764z00_1784, BgL_arg5765z00_1785); } 
{ /* ./Cfa/cfa.scm 218 */
BgL_approxz00_bglt BgL_arg5772z00_1787;obj_t BgL_arg5773z00_1788;
{ /* ./Cfa/cfa.scm 218 */
BgL_nodez00_bglt BgL_arg5776z00_1789;
{ /* ./Cfa/cfa.scm 218 */
BgL_failz00_bglt BgL_obj2376z00_2414;
BgL_obj2376z00_2414 = 
(BgL_failz00_bglt)(BgL_nodez00_1777); 
BgL_arg5776z00_1789 = 
(((BgL_failz00_bglt)CREF(BgL_obj2376z00_2414))->BgL_objz00); } 
{ /* ./Cfa/cfa.scm 218 */
BgL_approxz00_bglt BgL_res6022z00_2441;
{ /* ./Cfa/cfa.scm 218 */
obj_t BgL_method4590z00_2416;
{ /* ./Cfa/cfa.scm 218 */
BgL_objectz00_bglt BgL_objz00_2417;
BgL_objz00_2417 = 
(BgL_objectz00_bglt)(BgL_arg5776z00_1789); 
{ /* ./Cfa/cfa.scm 218 */
long BgL_objzd2classzd2numz00_2418;
BgL_objzd2classzd2numz00_2418 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2417); 
{ /* ./Cfa/cfa.scm 218 */
obj_t BgL_arg2017z00_2419;
{ /* ./Cfa/cfa.scm 218 */
int BgL_auxz00_3502;
BgL_auxz00_3502 = 
(int)(((long)1)); 
BgL_arg2017z00_2419 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3502); } 
{ /* ./Cfa/cfa.scm 218 */
int BgL_offsetz00_2422;
BgL_offsetz00_2422 = 
(int)(BgL_objzd2classzd2numz00_2418); 
{ /* ./Cfa/cfa.scm 218 */
long BgL_offsetz00_2423;
{ /* ./Cfa/cfa.scm 218 */
long BgL_auxz00_3506;
BgL_auxz00_3506 = 
(long)(BgL_offsetz00_2422); 
BgL_offsetz00_2423 = 
(BgL_auxz00_3506-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 218 */
long BgL_modz00_2424;
{ /* ./Cfa/cfa.scm 218 */
int BgL_arg2028z00_2425;
BgL_arg2028z00_2425 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 218 */
long BgL_n2z00_2433;
BgL_n2z00_2433 = 
(long)(BgL_arg2028z00_2425); 
BgL_modz00_2424 = 
(BgL_offsetz00_2423/BgL_n2z00_2433); } } 
{ /* ./Cfa/cfa.scm 218 */
long BgL_restz00_2426;
{ /* ./Cfa/cfa.scm 218 */
int BgL_arg2024z00_2427;
BgL_arg2024z00_2427 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 218 */
long BgL_n2z00_2436;
BgL_n2z00_2436 = 
(long)(BgL_arg2024z00_2427); 
BgL_restz00_2426 = 
(BgL_offsetz00_2423%BgL_n2z00_2436); } } 
{ /* ./Cfa/cfa.scm 218 */

{ /* ./Cfa/cfa.scm 218 */
obj_t BgL_bucketz00_2428;
{ /* ./Cfa/cfa.scm 218 */
int BgL_kz00_2438;
BgL_kz00_2438 = 
(int)(BgL_modz00_2424); 
BgL_bucketz00_2428 = 
VECTOR_REF(BgL_arg2017z00_2419,BgL_kz00_2438); } 
{ /* ./Cfa/cfa.scm 218 */
int BgL_kz00_2440;
BgL_kz00_2440 = 
(int)(BgL_restz00_2426); 
BgL_method4590z00_2416 = 
VECTOR_REF(BgL_bucketz00_2428,BgL_kz00_2440); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 218 */
obj_t BgL_auxz00_3519;
BgL_auxz00_3519 = 
PROCEDURE_ENTRY(BgL_method4590z00_2416)(BgL_method4590z00_2416, 
(obj_t)(BgL_arg5776z00_1789), BEOA); 
BgL_res6022z00_2441 = 
(BgL_approxz00_bglt)(BgL_auxz00_3519); } } 
BgL_arg5772z00_1787 = BgL_res6022z00_2441; } } 
BgL_arg5773z00_1788 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5772z00_1787, BgL_arg5773z00_1788); } 
{ 
obj_t BgL_auxz00_3526;
{ /* ./Cfa/cfa.scm 219 */
BgL_objectz00_bglt BgL_auxz00_3527;
BgL_auxz00_3527 = 
(BgL_objectz00_bglt)(BgL_nodez00_1777); 
BgL_auxz00_3526 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3527); } 
BgL_auxz00_3441 = 
(((BgL_failzf2cinfozf2_bglt)CREF(BgL_auxz00_3526))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3441);} } } 
}



/* cfa!-conditional/Cinfo4632 */
obj_t BGl_cfaz12zd2conditionalzf2Cinfo4632z32zzcfa_cfaz00(obj_t BgL_envz00_2908, obj_t BgL_nodez00_2909)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 202 */
{ 
BgL_conditionalzf2cinfozf2_bglt BgL_nodez00_1764;
{ /* ./Cfa/cfa.scm 203 */
BgL_approxz00_bglt BgL_auxz00_3533;
BgL_nodez00_1764 = 
(BgL_conditionalzf2cinfozf2_bglt)(BgL_nodez00_2909); 
{ /* ./Cfa/cfa.scm 204 */
BgL_nodez00_bglt BgL_arg5729z00_1768;
{ /* ./Cfa/cfa.scm 204 */
BgL_conditionalz00_bglt BgL_obj2332z00_2271;
BgL_obj2332z00_2271 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_1764); 
BgL_arg5729z00_1768 = 
(((BgL_conditionalz00_bglt)CREF(BgL_obj2332z00_2271))->BgL_testz00); } 
{ /* ./Cfa/cfa.scm 204 */
BgL_approxz00_bglt BgL_res6007z00_2298;
{ /* ./Cfa/cfa.scm 204 */
obj_t BgL_method4590z00_2273;
{ /* ./Cfa/cfa.scm 204 */
BgL_objectz00_bglt BgL_objz00_2274;
BgL_objz00_2274 = 
(BgL_objectz00_bglt)(BgL_arg5729z00_1768); 
{ /* ./Cfa/cfa.scm 204 */
long BgL_objzd2classzd2numz00_2275;
BgL_objzd2classzd2numz00_2275 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2274); 
{ /* ./Cfa/cfa.scm 204 */
obj_t BgL_arg2017z00_2276;
{ /* ./Cfa/cfa.scm 204 */
int BgL_auxz00_3538;
BgL_auxz00_3538 = 
(int)(((long)1)); 
BgL_arg2017z00_2276 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3538); } 
{ /* ./Cfa/cfa.scm 204 */
int BgL_offsetz00_2279;
BgL_offsetz00_2279 = 
(int)(BgL_objzd2classzd2numz00_2275); 
{ /* ./Cfa/cfa.scm 204 */
long BgL_offsetz00_2280;
{ /* ./Cfa/cfa.scm 204 */
long BgL_auxz00_3542;
BgL_auxz00_3542 = 
(long)(BgL_offsetz00_2279); 
BgL_offsetz00_2280 = 
(BgL_auxz00_3542-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 204 */
long BgL_modz00_2281;
{ /* ./Cfa/cfa.scm 204 */
int BgL_arg2028z00_2282;
BgL_arg2028z00_2282 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 204 */
long BgL_n2z00_2290;
BgL_n2z00_2290 = 
(long)(BgL_arg2028z00_2282); 
BgL_modz00_2281 = 
(BgL_offsetz00_2280/BgL_n2z00_2290); } } 
{ /* ./Cfa/cfa.scm 204 */
long BgL_restz00_2283;
{ /* ./Cfa/cfa.scm 204 */
int BgL_arg2024z00_2284;
BgL_arg2024z00_2284 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 204 */
long BgL_n2z00_2293;
BgL_n2z00_2293 = 
(long)(BgL_arg2024z00_2284); 
BgL_restz00_2283 = 
(BgL_offsetz00_2280%BgL_n2z00_2293); } } 
{ /* ./Cfa/cfa.scm 204 */

{ /* ./Cfa/cfa.scm 204 */
obj_t BgL_bucketz00_2285;
{ /* ./Cfa/cfa.scm 204 */
int BgL_kz00_2295;
BgL_kz00_2295 = 
(int)(BgL_modz00_2281); 
BgL_bucketz00_2285 = 
VECTOR_REF(BgL_arg2017z00_2276,BgL_kz00_2295); } 
{ /* ./Cfa/cfa.scm 204 */
int BgL_kz00_2297;
BgL_kz00_2297 = 
(int)(BgL_restz00_2283); 
BgL_method4590z00_2273 = 
VECTOR_REF(BgL_bucketz00_2285,BgL_kz00_2297); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 204 */
obj_t BgL_auxz00_3555;
BgL_auxz00_3555 = 
PROCEDURE_ENTRY(BgL_method4590z00_2273)(BgL_method4590z00_2273, 
(obj_t)(BgL_arg5729z00_1768), BEOA); 
BgL_res6007z00_2298 = 
(BgL_approxz00_bglt)(BgL_auxz00_3555); } } BgL_res6007z00_2298; } } 
{ /* ./Cfa/cfa.scm 205 */
BgL_approxz00_bglt BgL_thenzd2approxzd2_1769;BgL_approxz00_bglt BgL_elsezd2approxzd2_1770;
{ /* ./Cfa/cfa.scm 205 */
BgL_nodez00_bglt BgL_arg5742z00_1773;
{ /* ./Cfa/cfa.scm 205 */
BgL_conditionalz00_bglt BgL_obj2335z00_2299;
BgL_obj2335z00_2299 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_1764); 
BgL_arg5742z00_1773 = 
(((BgL_conditionalz00_bglt)CREF(BgL_obj2335z00_2299))->BgL_truez00); } 
{ /* ./Cfa/cfa.scm 205 */
BgL_approxz00_bglt BgL_res6010z00_2326;
{ /* ./Cfa/cfa.scm 205 */
obj_t BgL_method4590z00_2301;
{ /* ./Cfa/cfa.scm 205 */
BgL_objectz00_bglt BgL_objz00_2302;
BgL_objz00_2302 = 
(BgL_objectz00_bglt)(BgL_arg5742z00_1773); 
{ /* ./Cfa/cfa.scm 205 */
long BgL_objzd2classzd2numz00_2303;
BgL_objzd2classzd2numz00_2303 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2302); 
{ /* ./Cfa/cfa.scm 205 */
obj_t BgL_arg2017z00_2304;
{ /* ./Cfa/cfa.scm 205 */
int BgL_auxz00_3564;
BgL_auxz00_3564 = 
(int)(((long)1)); 
BgL_arg2017z00_2304 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3564); } 
{ /* ./Cfa/cfa.scm 205 */
int BgL_offsetz00_2307;
BgL_offsetz00_2307 = 
(int)(BgL_objzd2classzd2numz00_2303); 
{ /* ./Cfa/cfa.scm 205 */
long BgL_offsetz00_2308;
{ /* ./Cfa/cfa.scm 205 */
long BgL_auxz00_3568;
BgL_auxz00_3568 = 
(long)(BgL_offsetz00_2307); 
BgL_offsetz00_2308 = 
(BgL_auxz00_3568-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 205 */
long BgL_modz00_2309;
{ /* ./Cfa/cfa.scm 205 */
int BgL_arg2028z00_2310;
BgL_arg2028z00_2310 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 205 */
long BgL_n2z00_2318;
BgL_n2z00_2318 = 
(long)(BgL_arg2028z00_2310); 
BgL_modz00_2309 = 
(BgL_offsetz00_2308/BgL_n2z00_2318); } } 
{ /* ./Cfa/cfa.scm 205 */
long BgL_restz00_2311;
{ /* ./Cfa/cfa.scm 205 */
int BgL_arg2024z00_2312;
BgL_arg2024z00_2312 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 205 */
long BgL_n2z00_2321;
BgL_n2z00_2321 = 
(long)(BgL_arg2024z00_2312); 
BgL_restz00_2311 = 
(BgL_offsetz00_2308%BgL_n2z00_2321); } } 
{ /* ./Cfa/cfa.scm 205 */

{ /* ./Cfa/cfa.scm 205 */
obj_t BgL_bucketz00_2313;
{ /* ./Cfa/cfa.scm 205 */
int BgL_kz00_2323;
BgL_kz00_2323 = 
(int)(BgL_modz00_2309); 
BgL_bucketz00_2313 = 
VECTOR_REF(BgL_arg2017z00_2304,BgL_kz00_2323); } 
{ /* ./Cfa/cfa.scm 205 */
int BgL_kz00_2325;
BgL_kz00_2325 = 
(int)(BgL_restz00_2311); 
BgL_method4590z00_2301 = 
VECTOR_REF(BgL_bucketz00_2313,BgL_kz00_2325); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 205 */
obj_t BgL_auxz00_3581;
BgL_auxz00_3581 = 
PROCEDURE_ENTRY(BgL_method4590z00_2301)(BgL_method4590z00_2301, 
(obj_t)(BgL_arg5742z00_1773), BEOA); 
BgL_res6010z00_2326 = 
(BgL_approxz00_bglt)(BgL_auxz00_3581); } } 
BgL_thenzd2approxzd2_1769 = BgL_res6010z00_2326; } } 
{ /* ./Cfa/cfa.scm 206 */
BgL_nodez00_bglt BgL_arg5746z00_1774;
{ /* ./Cfa/cfa.scm 206 */
BgL_conditionalz00_bglt BgL_obj2338z00_2327;
BgL_obj2338z00_2327 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_1764); 
BgL_arg5746z00_1774 = 
(((BgL_conditionalz00_bglt)CREF(BgL_obj2338z00_2327))->BgL_falsez00); } 
{ /* ./Cfa/cfa.scm 206 */
BgL_approxz00_bglt BgL_res6013z00_2354;
{ /* ./Cfa/cfa.scm 206 */
obj_t BgL_method4590z00_2329;
{ /* ./Cfa/cfa.scm 206 */
BgL_objectz00_bglt BgL_objz00_2330;
BgL_objz00_2330 = 
(BgL_objectz00_bglt)(BgL_arg5746z00_1774); 
{ /* ./Cfa/cfa.scm 206 */
long BgL_objzd2classzd2numz00_2331;
BgL_objzd2classzd2numz00_2331 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2330); 
{ /* ./Cfa/cfa.scm 206 */
obj_t BgL_arg2017z00_2332;
{ /* ./Cfa/cfa.scm 206 */
int BgL_auxz00_3590;
BgL_auxz00_3590 = 
(int)(((long)1)); 
BgL_arg2017z00_2332 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3590); } 
{ /* ./Cfa/cfa.scm 206 */
int BgL_offsetz00_2335;
BgL_offsetz00_2335 = 
(int)(BgL_objzd2classzd2numz00_2331); 
{ /* ./Cfa/cfa.scm 206 */
long BgL_offsetz00_2336;
{ /* ./Cfa/cfa.scm 206 */
long BgL_auxz00_3594;
BgL_auxz00_3594 = 
(long)(BgL_offsetz00_2335); 
BgL_offsetz00_2336 = 
(BgL_auxz00_3594-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 206 */
long BgL_modz00_2337;
{ /* ./Cfa/cfa.scm 206 */
int BgL_arg2028z00_2338;
BgL_arg2028z00_2338 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 206 */
long BgL_n2z00_2346;
BgL_n2z00_2346 = 
(long)(BgL_arg2028z00_2338); 
BgL_modz00_2337 = 
(BgL_offsetz00_2336/BgL_n2z00_2346); } } 
{ /* ./Cfa/cfa.scm 206 */
long BgL_restz00_2339;
{ /* ./Cfa/cfa.scm 206 */
int BgL_arg2024z00_2340;
BgL_arg2024z00_2340 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 206 */
long BgL_n2z00_2349;
BgL_n2z00_2349 = 
(long)(BgL_arg2024z00_2340); 
BgL_restz00_2339 = 
(BgL_offsetz00_2336%BgL_n2z00_2349); } } 
{ /* ./Cfa/cfa.scm 206 */

{ /* ./Cfa/cfa.scm 206 */
obj_t BgL_bucketz00_2341;
{ /* ./Cfa/cfa.scm 206 */
int BgL_kz00_2351;
BgL_kz00_2351 = 
(int)(BgL_modz00_2337); 
BgL_bucketz00_2341 = 
VECTOR_REF(BgL_arg2017z00_2332,BgL_kz00_2351); } 
{ /* ./Cfa/cfa.scm 206 */
int BgL_kz00_2353;
BgL_kz00_2353 = 
(int)(BgL_restz00_2339); 
BgL_method4590z00_2329 = 
VECTOR_REF(BgL_bucketz00_2341,BgL_kz00_2353); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 206 */
obj_t BgL_auxz00_3607;
BgL_auxz00_3607 = 
PROCEDURE_ENTRY(BgL_method4590z00_2329)(BgL_method4590z00_2329, 
(obj_t)(BgL_arg5746z00_1774), BEOA); 
BgL_res6013z00_2354 = 
(BgL_approxz00_bglt)(BgL_auxz00_3607); } } 
BgL_elsezd2approxzd2_1770 = BgL_res6013z00_2354; } } 
{ /* ./Cfa/cfa.scm 207 */
BgL_approxz00_bglt BgL_arg5733z00_1771;
{ 
obj_t BgL_auxz00_3612;
{ /* ./Cfa/cfa.scm 207 */
BgL_objectz00_bglt BgL_auxz00_3613;
BgL_auxz00_3613 = 
(BgL_objectz00_bglt)(BgL_nodez00_1764); 
BgL_auxz00_3612 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3613); } 
BgL_arg5733z00_1771 = 
(((BgL_conditionalzf2cinfozf2_bglt)CREF(BgL_auxz00_3612))->BgL_approxz00); } 
BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_arg5733z00_1771, BgL_thenzd2approxzd2_1769); } 
{ /* ./Cfa/cfa.scm 208 */
BgL_approxz00_bglt BgL_arg5737z00_1772;
{ 
obj_t BgL_auxz00_3618;
{ /* ./Cfa/cfa.scm 208 */
BgL_objectz00_bglt BgL_auxz00_3619;
BgL_auxz00_3619 = 
(BgL_objectz00_bglt)(BgL_nodez00_1764); 
BgL_auxz00_3618 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3619); } 
BgL_arg5737z00_1772 = 
(((BgL_conditionalzf2cinfozf2_bglt)CREF(BgL_auxz00_3618))->BgL_approxz00); } 
BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_arg5737z00_1772, BgL_elsezd2approxzd2_1770); } 
{ 
obj_t BgL_auxz00_3624;
{ /* ./Cfa/cfa.scm 209 */
BgL_objectz00_bglt BgL_auxz00_3625;
BgL_auxz00_3625 = 
(BgL_objectz00_bglt)(BgL_nodez00_1764); 
BgL_auxz00_3624 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3625); } 
BgL_auxz00_3533 = 
(((BgL_conditionalzf2cinfozf2_bglt)CREF(BgL_auxz00_3624))->BgL_approxz00); } } 
return 
(obj_t)(BgL_auxz00_3533);} } } 
}



/* cfa!-setq/Cinfo4630 */
obj_t BGl_cfaz12zd2setqzf2Cinfo4630z32zzcfa_cfaz00(obj_t BgL_envz00_2910, obj_t BgL_nodez00_2911)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 188 */
{ 
BgL_setqzf2cinfozf2_bglt BgL_nodez00_1751;
{ /* ./Cfa/cfa.scm 189 */
BgL_approxz00_bglt BgL_auxz00_3631;
BgL_nodez00_1751 = 
(BgL_setqzf2cinfozf2_bglt)(BgL_nodez00_2911); 
{ /* ./Cfa/cfa.scm 190 */
BgL_approxz00_bglt BgL_varzd2approxzd2_1755;
{ /* ./Cfa/cfa.scm 190 */
BgL_varz00_bglt BgL_arg5719z00_1761;
{ /* ./Cfa/cfa.scm 190 */
BgL_setqz00_bglt BgL_obj2300z00_2211;
BgL_obj2300z00_2211 = 
(BgL_setqz00_bglt)(BgL_nodez00_1751); 
BgL_arg5719z00_1761 = 
(((BgL_setqz00_bglt)CREF(BgL_obj2300z00_2211))->BgL_varz00); } 
{ /* ./Cfa/cfa.scm 190 */
BgL_approxz00_bglt BgL_res6001z00_2238;
{ /* ./Cfa/cfa.scm 190 */
BgL_nodez00_bglt BgL_nodez00_2212;
BgL_nodez00_2212 = 
(BgL_nodez00_bglt)(BgL_arg5719z00_1761); 
{ /* ./Cfa/cfa.scm 190 */
obj_t BgL_method4590z00_2213;
{ /* ./Cfa/cfa.scm 190 */
BgL_objectz00_bglt BgL_objz00_2214;
BgL_objz00_2214 = 
(BgL_objectz00_bglt)(BgL_nodez00_2212); 
{ /* ./Cfa/cfa.scm 190 */
long BgL_objzd2classzd2numz00_2215;
BgL_objzd2classzd2numz00_2215 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2214); 
{ /* ./Cfa/cfa.scm 190 */
obj_t BgL_arg2017z00_2216;
{ /* ./Cfa/cfa.scm 190 */
int BgL_auxz00_3637;
BgL_auxz00_3637 = 
(int)(((long)1)); 
BgL_arg2017z00_2216 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3637); } 
{ /* ./Cfa/cfa.scm 190 */
int BgL_offsetz00_2219;
BgL_offsetz00_2219 = 
(int)(BgL_objzd2classzd2numz00_2215); 
{ /* ./Cfa/cfa.scm 190 */
long BgL_offsetz00_2220;
{ /* ./Cfa/cfa.scm 190 */
long BgL_auxz00_3641;
BgL_auxz00_3641 = 
(long)(BgL_offsetz00_2219); 
BgL_offsetz00_2220 = 
(BgL_auxz00_3641-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 190 */
long BgL_modz00_2221;
{ /* ./Cfa/cfa.scm 190 */
int BgL_arg2028z00_2222;
BgL_arg2028z00_2222 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 190 */
long BgL_n2z00_2230;
BgL_n2z00_2230 = 
(long)(BgL_arg2028z00_2222); 
BgL_modz00_2221 = 
(BgL_offsetz00_2220/BgL_n2z00_2230); } } 
{ /* ./Cfa/cfa.scm 190 */
long BgL_restz00_2223;
{ /* ./Cfa/cfa.scm 190 */
int BgL_arg2024z00_2224;
BgL_arg2024z00_2224 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 190 */
long BgL_n2z00_2233;
BgL_n2z00_2233 = 
(long)(BgL_arg2024z00_2224); 
BgL_restz00_2223 = 
(BgL_offsetz00_2220%BgL_n2z00_2233); } } 
{ /* ./Cfa/cfa.scm 190 */

{ /* ./Cfa/cfa.scm 190 */
obj_t BgL_bucketz00_2225;
{ /* ./Cfa/cfa.scm 190 */
int BgL_kz00_2235;
BgL_kz00_2235 = 
(int)(BgL_modz00_2221); 
BgL_bucketz00_2225 = 
VECTOR_REF(BgL_arg2017z00_2216,BgL_kz00_2235); } 
{ /* ./Cfa/cfa.scm 190 */
int BgL_kz00_2237;
BgL_kz00_2237 = 
(int)(BgL_restz00_2223); 
BgL_method4590z00_2213 = 
VECTOR_REF(BgL_bucketz00_2225,BgL_kz00_2237); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 190 */
obj_t BgL_auxz00_3654;
BgL_auxz00_3654 = 
PROCEDURE_ENTRY(BgL_method4590z00_2213)(BgL_method4590z00_2213, 
(obj_t)(BgL_nodez00_2212), BEOA); 
BgL_res6001z00_2238 = 
(BgL_approxz00_bglt)(BgL_auxz00_3654); } } } 
BgL_varzd2approxzd2_1755 = BgL_res6001z00_2238; } } 
{ /* ./Cfa/cfa.scm 190 */
BgL_approxz00_bglt BgL_valzd2approxzd2_1756;
{ /* ./Cfa/cfa.scm 191 */
BgL_nodez00_bglt BgL_arg5715z00_1760;
{ /* ./Cfa/cfa.scm 191 */
BgL_setqz00_bglt BgL_obj2303z00_2239;
BgL_obj2303z00_2239 = 
(BgL_setqz00_bglt)(BgL_nodez00_1751); 
BgL_arg5715z00_1760 = 
(((BgL_setqz00_bglt)CREF(BgL_obj2303z00_2239))->BgL_valuez00); } 
{ /* ./Cfa/cfa.scm 191 */
BgL_approxz00_bglt BgL_res6004z00_2266;
{ /* ./Cfa/cfa.scm 191 */
obj_t BgL_method4590z00_2241;
{ /* ./Cfa/cfa.scm 191 */
BgL_objectz00_bglt BgL_objz00_2242;
BgL_objz00_2242 = 
(BgL_objectz00_bglt)(BgL_arg5715z00_1760); 
{ /* ./Cfa/cfa.scm 191 */
long BgL_objzd2classzd2numz00_2243;
BgL_objzd2classzd2numz00_2243 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2242); 
{ /* ./Cfa/cfa.scm 191 */
obj_t BgL_arg2017z00_2244;
{ /* ./Cfa/cfa.scm 191 */
int BgL_auxz00_3663;
BgL_auxz00_3663 = 
(int)(((long)1)); 
BgL_arg2017z00_2244 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3663); } 
{ /* ./Cfa/cfa.scm 191 */
int BgL_offsetz00_2247;
BgL_offsetz00_2247 = 
(int)(BgL_objzd2classzd2numz00_2243); 
{ /* ./Cfa/cfa.scm 191 */
long BgL_offsetz00_2248;
{ /* ./Cfa/cfa.scm 191 */
long BgL_auxz00_3667;
BgL_auxz00_3667 = 
(long)(BgL_offsetz00_2247); 
BgL_offsetz00_2248 = 
(BgL_auxz00_3667-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 191 */
long BgL_modz00_2249;
{ /* ./Cfa/cfa.scm 191 */
int BgL_arg2028z00_2250;
BgL_arg2028z00_2250 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 191 */
long BgL_n2z00_2258;
BgL_n2z00_2258 = 
(long)(BgL_arg2028z00_2250); 
BgL_modz00_2249 = 
(BgL_offsetz00_2248/BgL_n2z00_2258); } } 
{ /* ./Cfa/cfa.scm 191 */
long BgL_restz00_2251;
{ /* ./Cfa/cfa.scm 191 */
int BgL_arg2024z00_2252;
BgL_arg2024z00_2252 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 191 */
long BgL_n2z00_2261;
BgL_n2z00_2261 = 
(long)(BgL_arg2024z00_2252); 
BgL_restz00_2251 = 
(BgL_offsetz00_2248%BgL_n2z00_2261); } } 
{ /* ./Cfa/cfa.scm 191 */

{ /* ./Cfa/cfa.scm 191 */
obj_t BgL_bucketz00_2253;
{ /* ./Cfa/cfa.scm 191 */
int BgL_kz00_2263;
BgL_kz00_2263 = 
(int)(BgL_modz00_2249); 
BgL_bucketz00_2253 = 
VECTOR_REF(BgL_arg2017z00_2244,BgL_kz00_2263); } 
{ /* ./Cfa/cfa.scm 191 */
int BgL_kz00_2265;
BgL_kz00_2265 = 
(int)(BgL_restz00_2251); 
BgL_method4590z00_2241 = 
VECTOR_REF(BgL_bucketz00_2253,BgL_kz00_2265); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 191 */
obj_t BgL_auxz00_3680;
BgL_auxz00_3680 = 
PROCEDURE_ENTRY(BgL_method4590z00_2241)(BgL_method4590z00_2241, 
(obj_t)(BgL_arg5715z00_1760), BEOA); 
BgL_res6004z00_2266 = 
(BgL_approxz00_bglt)(BgL_auxz00_3680); } } 
BgL_valzd2approxzd2_1756 = BgL_res6004z00_2266; } } 
{ /* ./Cfa/cfa.scm 191 */
BgL_variablez00_bglt BgL_vz00_1757;
{ /* ./Cfa/cfa.scm 192 */
BgL_varz00_bglt BgL_arg5711z00_1759;
{ /* ./Cfa/cfa.scm 192 */
BgL_setqz00_bglt BgL_obj2300z00_2267;
BgL_obj2300z00_2267 = 
(BgL_setqz00_bglt)(BgL_nodez00_1751); 
BgL_arg5711z00_1759 = 
(((BgL_setqz00_bglt)CREF(BgL_obj2300z00_2267))->BgL_varz00); } 
BgL_vz00_1757 = 
(((BgL_varz00_bglt)CREF(BgL_arg5711z00_1759))->BgL_variablez00); } 
{ /* ./Cfa/cfa.scm 192 */

BGl_unionzd2approxz12zc0zzcfa_approxz00(BgL_varzd2approxzd2_1755, BgL_valzd2approxzd2_1756); 
{ /* ./Cfa/cfa.scm 196 */
bool_t BgL_test5706z00_1758;
{ /* ./Cfa/cfa.scm 196 */
obj_t BgL_obj1240z00_2269;
BgL_obj1240z00_2269 = 
(obj_t)(BgL_vz00_1757); 
BgL_test5706z00_1758 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_2269, BGl_globalz00zzast_varz00); } 
if(BgL_test5706z00_1758)
{ /* ./Cfa/cfa.scm 196 */
BGl_globalzd2loosez12zc0zzcfa_loosez00(
(BgL_globalz00_bglt)(BgL_vz00_1757), BgL_varzd2approxzd2_1755); }  else 
{ /* ./Cfa/cfa.scm 196 */BFALSE; } } 
{ 
obj_t BgL_auxz00_3694;
{ /* ./Cfa/cfa.scm 197 */
BgL_objectz00_bglt BgL_auxz00_3695;
BgL_auxz00_3695 = 
(BgL_objectz00_bglt)(BgL_nodez00_1751); 
BgL_auxz00_3694 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3695); } 
BgL_auxz00_3631 = 
(((BgL_setqzf2cinfozf2_bglt)CREF(BgL_auxz00_3694))->BgL_approxz00); } } } } } 
return 
(obj_t)(BgL_auxz00_3631);} } } 
}



/* cfa!-cast4628 */
obj_t BGl_cfaz12zd2cast4628zc0zzcfa_cfaz00(obj_t BgL_envz00_2912, obj_t BgL_nodez00_2913)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 181 */
{ 
BgL_castz00_bglt BgL_nodez00_1744;
{ /* ./Cfa/cfa.scm 182 */
BgL_approxz00_bglt BgL_auxz00_3701;
BgL_nodez00_1744 = 
(BgL_castz00_bglt)(BgL_nodez00_2913); 
{ /* ./Cfa/cfa.scm 182 */
BgL_nodez00_bglt BgL_arg5696z00_2182;
BgL_arg5696z00_2182 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1744))->BgL_argz00); 
{ /* ./Cfa/cfa.scm 182 */
BgL_approxz00_bglt BgL_res5998z00_2210;
{ /* ./Cfa/cfa.scm 182 */
obj_t BgL_method4590z00_2185;
{ /* ./Cfa/cfa.scm 182 */
BgL_objectz00_bglt BgL_objz00_2186;
BgL_objz00_2186 = 
(BgL_objectz00_bglt)(BgL_arg5696z00_2182); 
{ /* ./Cfa/cfa.scm 182 */
long BgL_objzd2classzd2numz00_2187;
BgL_objzd2classzd2numz00_2187 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2186); 
{ /* ./Cfa/cfa.scm 182 */
obj_t BgL_arg2017z00_2188;
{ /* ./Cfa/cfa.scm 182 */
int BgL_auxz00_3705;
BgL_auxz00_3705 = 
(int)(((long)1)); 
BgL_arg2017z00_2188 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3705); } 
{ /* ./Cfa/cfa.scm 182 */
int BgL_offsetz00_2191;
BgL_offsetz00_2191 = 
(int)(BgL_objzd2classzd2numz00_2187); 
{ /* ./Cfa/cfa.scm 182 */
long BgL_offsetz00_2192;
{ /* ./Cfa/cfa.scm 182 */
long BgL_auxz00_3709;
BgL_auxz00_3709 = 
(long)(BgL_offsetz00_2191); 
BgL_offsetz00_2192 = 
(BgL_auxz00_3709-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 182 */
long BgL_modz00_2193;
{ /* ./Cfa/cfa.scm 182 */
int BgL_arg2028z00_2194;
BgL_arg2028z00_2194 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 182 */
long BgL_n2z00_2202;
BgL_n2z00_2202 = 
(long)(BgL_arg2028z00_2194); 
BgL_modz00_2193 = 
(BgL_offsetz00_2192/BgL_n2z00_2202); } } 
{ /* ./Cfa/cfa.scm 182 */
long BgL_restz00_2195;
{ /* ./Cfa/cfa.scm 182 */
int BgL_arg2024z00_2196;
BgL_arg2024z00_2196 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 182 */
long BgL_n2z00_2205;
BgL_n2z00_2205 = 
(long)(BgL_arg2024z00_2196); 
BgL_restz00_2195 = 
(BgL_offsetz00_2192%BgL_n2z00_2205); } } 
{ /* ./Cfa/cfa.scm 182 */

{ /* ./Cfa/cfa.scm 182 */
obj_t BgL_bucketz00_2197;
{ /* ./Cfa/cfa.scm 182 */
int BgL_kz00_2207;
BgL_kz00_2207 = 
(int)(BgL_modz00_2193); 
BgL_bucketz00_2197 = 
VECTOR_REF(BgL_arg2017z00_2188,BgL_kz00_2207); } 
{ /* ./Cfa/cfa.scm 182 */
int BgL_kz00_2209;
BgL_kz00_2209 = 
(int)(BgL_restz00_2195); 
BgL_method4590z00_2185 = 
VECTOR_REF(BgL_bucketz00_2197,BgL_kz00_2209); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 182 */
obj_t BgL_auxz00_3722;
BgL_auxz00_3722 = 
PROCEDURE_ENTRY(BgL_method4590z00_2185)(BgL_method4590z00_2185, 
(obj_t)(BgL_arg5696z00_2182), BEOA); 
BgL_res5998z00_2210 = 
(BgL_approxz00_bglt)(BgL_auxz00_3722); } } 
BgL_auxz00_3701 = BgL_res5998z00_2210; } } 
return 
(obj_t)(BgL_auxz00_3701);} } } 
}



/* cfa!-isa/Cinfo4626 */
obj_t BGl_cfaz12zd2isazf2Cinfo4626z32zzcfa_cfaz00(obj_t BgL_envz00_2914, obj_t BgL_nodez00_2915)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 174 */
{ 
BgL_isazf2cinfozf2_bglt BgL_nodez00_1738;
{ /* ./Cfa/cfa.scm 175 */
BgL_approxz00_bglt BgL_auxz00_3729;
BgL_nodez00_1738 = 
(BgL_isazf2cinfozf2_bglt)(BgL_nodez00_2915); 
{ 
obj_t BgL_auxz00_3730;
{ /* ./Cfa/cfa.scm 175 */
BgL_objectz00_bglt BgL_auxz00_3731;
BgL_auxz00_3731 = 
(BgL_objectz00_bglt)(BgL_nodez00_1738); 
BgL_auxz00_3730 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3731); } 
BgL_auxz00_3729 = 
(((BgL_isazf2cinfozf2_bglt)CREF(BgL_auxz00_3730))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3729);} } } 
}



/* cfa!-new/Cinfo4624 */
obj_t BGl_cfaz12zd2newzf2Cinfo4624z32zzcfa_cfaz00(obj_t BgL_envz00_2916, obj_t BgL_nodez00_2917)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 166 */
{ 
BgL_newzf2cinfozf2_bglt BgL_nodez00_1724;
{ /* ./Cfa/cfa.scm 167 */
BgL_approxz00_bglt BgL_auxz00_3737;
BgL_nodez00_1724 = 
(BgL_newzf2cinfozf2_bglt)(BgL_nodez00_2917); 
{ 
obj_t BgL_l4559z00_1728;
{ /* ./Cfa/cfa.scm 168 */
obj_t BgL_arg5666z00_1730;
{ /* ./Cfa/cfa.scm 168 */
BgL_externz00_bglt BgL_obj1817z00_2147;
BgL_obj1817z00_2147 = 
(BgL_externz00_bglt)(BgL_nodez00_1724); 
BgL_arg5666z00_1730 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2147))->BgL_exprza2za2); } 
BgL_l4559z00_1728 = BgL_arg5666z00_1730; 
BgL_forzd2each4560zd2_1729:
{ /* ./Cfa/cfa.scm 168 */
bool_t BgL_test5669z00_1731;
BgL_test5669z00_1731 = 
PAIRP(BgL_l4559z00_1728); 
if(BgL_test5669z00_1731)
{ /* ./Cfa/cfa.scm 168 */
{ /* ./Cfa/cfa.scm 168 */
obj_t BgL_az00_1732;
BgL_az00_1732 = 
CAR(BgL_l4559z00_1728); 
{ /* ./Cfa/cfa.scm 168 */
BgL_approxz00_bglt BgL_arg5671z00_1733;obj_t BgL_arg5672z00_1734;
{ /* ./Cfa/cfa.scm 168 */
BgL_approxz00_bglt BgL_res5995z00_2176;
{ /* ./Cfa/cfa.scm 168 */
BgL_nodez00_bglt BgL_nodez00_2150;
BgL_nodez00_2150 = 
(BgL_nodez00_bglt)(BgL_az00_1732); 
{ /* ./Cfa/cfa.scm 168 */
obj_t BgL_method4590z00_2151;
{ /* ./Cfa/cfa.scm 168 */
BgL_objectz00_bglt BgL_objz00_2152;
BgL_objz00_2152 = 
(BgL_objectz00_bglt)(BgL_nodez00_2150); 
{ /* ./Cfa/cfa.scm 168 */
long BgL_objzd2classzd2numz00_2153;
BgL_objzd2classzd2numz00_2153 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2152); 
{ /* ./Cfa/cfa.scm 168 */
obj_t BgL_arg2017z00_2154;
{ /* ./Cfa/cfa.scm 168 */
int BgL_auxz00_3746;
BgL_auxz00_3746 = 
(int)(((long)1)); 
BgL_arg2017z00_2154 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3746); } 
{ /* ./Cfa/cfa.scm 168 */
int BgL_offsetz00_2157;
BgL_offsetz00_2157 = 
(int)(BgL_objzd2classzd2numz00_2153); 
{ /* ./Cfa/cfa.scm 168 */
long BgL_offsetz00_2158;
{ /* ./Cfa/cfa.scm 168 */
long BgL_auxz00_3750;
BgL_auxz00_3750 = 
(long)(BgL_offsetz00_2157); 
BgL_offsetz00_2158 = 
(BgL_auxz00_3750-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 168 */
long BgL_modz00_2159;
{ /* ./Cfa/cfa.scm 168 */
int BgL_arg2028z00_2160;
BgL_arg2028z00_2160 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 168 */
long BgL_n2z00_2168;
BgL_n2z00_2168 = 
(long)(BgL_arg2028z00_2160); 
BgL_modz00_2159 = 
(BgL_offsetz00_2158/BgL_n2z00_2168); } } 
{ /* ./Cfa/cfa.scm 168 */
long BgL_restz00_2161;
{ /* ./Cfa/cfa.scm 168 */
int BgL_arg2024z00_2162;
BgL_arg2024z00_2162 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 168 */
long BgL_n2z00_2171;
BgL_n2z00_2171 = 
(long)(BgL_arg2024z00_2162); 
BgL_restz00_2161 = 
(BgL_offsetz00_2158%BgL_n2z00_2171); } } 
{ /* ./Cfa/cfa.scm 168 */

{ /* ./Cfa/cfa.scm 168 */
obj_t BgL_bucketz00_2163;
{ /* ./Cfa/cfa.scm 168 */
int BgL_kz00_2173;
BgL_kz00_2173 = 
(int)(BgL_modz00_2159); 
BgL_bucketz00_2163 = 
VECTOR_REF(BgL_arg2017z00_2154,BgL_kz00_2173); } 
{ /* ./Cfa/cfa.scm 168 */
int BgL_kz00_2175;
BgL_kz00_2175 = 
(int)(BgL_restz00_2161); 
BgL_method4590z00_2151 = 
VECTOR_REF(BgL_bucketz00_2163,BgL_kz00_2175); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 168 */
obj_t BgL_auxz00_3763;
BgL_auxz00_3763 = 
PROCEDURE_ENTRY(BgL_method4590z00_2151)(BgL_method4590z00_2151, 
(obj_t)(BgL_nodez00_2150), BEOA); 
BgL_res5995z00_2176 = 
(BgL_approxz00_bglt)(BgL_auxz00_3763); } } } 
BgL_arg5671z00_1733 = BgL_res5995z00_2176; } 
BgL_arg5672z00_1734 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5671z00_1733, BgL_arg5672z00_1734); } } 
{ /* ./Cfa/cfa.scm 168 */
obj_t BgL_arg5677z00_1735;
BgL_arg5677z00_1735 = 
CDR(BgL_l4559z00_1728); 
{ 
obj_t BgL_l4559z00_3771;
BgL_l4559z00_3771 = BgL_arg5677z00_1735; 
BgL_l4559z00_1728 = BgL_l4559z00_3771; 
goto BgL_forzd2each4560zd2_1729;} } }  else 
{ /* ./Cfa/cfa.scm 168 */((bool_t)1); } } } } 
{ 
obj_t BgL_auxz00_3772;
{ /* ./Cfa/cfa.scm 169 */
BgL_objectz00_bglt BgL_auxz00_3773;
BgL_auxz00_3773 = 
(BgL_objectz00_bglt)(BgL_nodez00_1724); 
BgL_auxz00_3772 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3773); } 
BgL_auxz00_3737 = 
(((BgL_newzf2cinfozf2_bglt)CREF(BgL_auxz00_3772))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3737);} } } 
}



/* cfa!-setfield/Cinfo4622 */
obj_t BGl_cfaz12zd2setfieldzf2Cinfo4622z32zzcfa_cfaz00(obj_t BgL_envz00_2918, obj_t BgL_nodez00_2919)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 158 */
{ 
BgL_setfieldzf2cinfozf2_bglt BgL_nodez00_1710;
{ /* ./Cfa/cfa.scm 159 */
BgL_approxz00_bglt BgL_auxz00_3779;
BgL_nodez00_1710 = 
(BgL_setfieldzf2cinfozf2_bglt)(BgL_nodez00_2919); 
{ 
obj_t BgL_l4555z00_1714;
{ /* ./Cfa/cfa.scm 160 */
obj_t BgL_arg5643z00_1716;
{ /* ./Cfa/cfa.scm 160 */
BgL_externz00_bglt BgL_obj1817z00_2115;
BgL_obj1817z00_2115 = 
(BgL_externz00_bglt)(BgL_nodez00_1710); 
BgL_arg5643z00_1716 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2115))->BgL_exprza2za2); } 
BgL_l4555z00_1714 = BgL_arg5643z00_1716; 
BgL_forzd2each4556zd2_1715:
{ /* ./Cfa/cfa.scm 160 */
bool_t BgL_test5646z00_1717;
BgL_test5646z00_1717 = 
PAIRP(BgL_l4555z00_1714); 
if(BgL_test5646z00_1717)
{ /* ./Cfa/cfa.scm 160 */
{ /* ./Cfa/cfa.scm 160 */
obj_t BgL_az00_1718;
BgL_az00_1718 = 
CAR(BgL_l4555z00_1714); 
{ /* ./Cfa/cfa.scm 160 */
BgL_approxz00_bglt BgL_arg5648z00_1719;obj_t BgL_arg5649z00_1720;
{ /* ./Cfa/cfa.scm 160 */
BgL_approxz00_bglt BgL_res5992z00_2144;
{ /* ./Cfa/cfa.scm 160 */
BgL_nodez00_bglt BgL_nodez00_2118;
BgL_nodez00_2118 = 
(BgL_nodez00_bglt)(BgL_az00_1718); 
{ /* ./Cfa/cfa.scm 160 */
obj_t BgL_method4590z00_2119;
{ /* ./Cfa/cfa.scm 160 */
BgL_objectz00_bglt BgL_objz00_2120;
BgL_objz00_2120 = 
(BgL_objectz00_bglt)(BgL_nodez00_2118); 
{ /* ./Cfa/cfa.scm 160 */
long BgL_objzd2classzd2numz00_2121;
BgL_objzd2classzd2numz00_2121 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2120); 
{ /* ./Cfa/cfa.scm 160 */
obj_t BgL_arg2017z00_2122;
{ /* ./Cfa/cfa.scm 160 */
int BgL_auxz00_3788;
BgL_auxz00_3788 = 
(int)(((long)1)); 
BgL_arg2017z00_2122 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3788); } 
{ /* ./Cfa/cfa.scm 160 */
int BgL_offsetz00_2125;
BgL_offsetz00_2125 = 
(int)(BgL_objzd2classzd2numz00_2121); 
{ /* ./Cfa/cfa.scm 160 */
long BgL_offsetz00_2126;
{ /* ./Cfa/cfa.scm 160 */
long BgL_auxz00_3792;
BgL_auxz00_3792 = 
(long)(BgL_offsetz00_2125); 
BgL_offsetz00_2126 = 
(BgL_auxz00_3792-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 160 */
long BgL_modz00_2127;
{ /* ./Cfa/cfa.scm 160 */
int BgL_arg2028z00_2128;
BgL_arg2028z00_2128 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 160 */
long BgL_n2z00_2136;
BgL_n2z00_2136 = 
(long)(BgL_arg2028z00_2128); 
BgL_modz00_2127 = 
(BgL_offsetz00_2126/BgL_n2z00_2136); } } 
{ /* ./Cfa/cfa.scm 160 */
long BgL_restz00_2129;
{ /* ./Cfa/cfa.scm 160 */
int BgL_arg2024z00_2130;
BgL_arg2024z00_2130 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 160 */
long BgL_n2z00_2139;
BgL_n2z00_2139 = 
(long)(BgL_arg2024z00_2130); 
BgL_restz00_2129 = 
(BgL_offsetz00_2126%BgL_n2z00_2139); } } 
{ /* ./Cfa/cfa.scm 160 */

{ /* ./Cfa/cfa.scm 160 */
obj_t BgL_bucketz00_2131;
{ /* ./Cfa/cfa.scm 160 */
int BgL_kz00_2141;
BgL_kz00_2141 = 
(int)(BgL_modz00_2127); 
BgL_bucketz00_2131 = 
VECTOR_REF(BgL_arg2017z00_2122,BgL_kz00_2141); } 
{ /* ./Cfa/cfa.scm 160 */
int BgL_kz00_2143;
BgL_kz00_2143 = 
(int)(BgL_restz00_2129); 
BgL_method4590z00_2119 = 
VECTOR_REF(BgL_bucketz00_2131,BgL_kz00_2143); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 160 */
obj_t BgL_auxz00_3805;
BgL_auxz00_3805 = 
PROCEDURE_ENTRY(BgL_method4590z00_2119)(BgL_method4590z00_2119, 
(obj_t)(BgL_nodez00_2118), BEOA); 
BgL_res5992z00_2144 = 
(BgL_approxz00_bglt)(BgL_auxz00_3805); } } } 
BgL_arg5648z00_1719 = BgL_res5992z00_2144; } 
BgL_arg5649z00_1720 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5648z00_1719, BgL_arg5649z00_1720); } } 
{ /* ./Cfa/cfa.scm 160 */
obj_t BgL_arg5654z00_1721;
BgL_arg5654z00_1721 = 
CDR(BgL_l4555z00_1714); 
{ 
obj_t BgL_l4555z00_3813;
BgL_l4555z00_3813 = BgL_arg5654z00_1721; 
BgL_l4555z00_1714 = BgL_l4555z00_3813; 
goto BgL_forzd2each4556zd2_1715;} } }  else 
{ /* ./Cfa/cfa.scm 160 */((bool_t)1); } } } } 
{ 
obj_t BgL_auxz00_3814;
{ /* ./Cfa/cfa.scm 161 */
BgL_objectz00_bglt BgL_auxz00_3815;
BgL_auxz00_3815 = 
(BgL_objectz00_bglt)(BgL_nodez00_1710); 
BgL_auxz00_3814 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3815); } 
BgL_auxz00_3779 = 
(((BgL_setfieldzf2cinfozf2_bglt)CREF(BgL_auxz00_3814))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3779);} } } 
}



/* cfa!-getfield/Cinfo4620 */
obj_t BGl_cfaz12zd2getfieldzf2Cinfo4620z32zzcfa_cfaz00(obj_t BgL_envz00_2920, obj_t BgL_nodez00_2921)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 150 */
{ 
BgL_getfieldzf2cinfozf2_bglt BgL_nodez00_1696;
{ /* ./Cfa/cfa.scm 151 */
BgL_approxz00_bglt BgL_auxz00_3821;
BgL_nodez00_1696 = 
(BgL_getfieldzf2cinfozf2_bglt)(BgL_nodez00_2921); 
{ 
obj_t BgL_l4551z00_1700;
{ /* ./Cfa/cfa.scm 152 */
obj_t BgL_arg5620z00_1702;
{ /* ./Cfa/cfa.scm 152 */
BgL_externz00_bglt BgL_obj1817z00_2083;
BgL_obj1817z00_2083 = 
(BgL_externz00_bglt)(BgL_nodez00_1696); 
BgL_arg5620z00_1702 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2083))->BgL_exprza2za2); } 
BgL_l4551z00_1700 = BgL_arg5620z00_1702; 
BgL_forzd2each4552zd2_1701:
{ /* ./Cfa/cfa.scm 152 */
bool_t BgL_test5623z00_1703;
BgL_test5623z00_1703 = 
PAIRP(BgL_l4551z00_1700); 
if(BgL_test5623z00_1703)
{ /* ./Cfa/cfa.scm 152 */
{ /* ./Cfa/cfa.scm 152 */
obj_t BgL_az00_1704;
BgL_az00_1704 = 
CAR(BgL_l4551z00_1700); 
{ /* ./Cfa/cfa.scm 152 */
BgL_approxz00_bglt BgL_arg5625z00_1705;obj_t BgL_arg5626z00_1706;
{ /* ./Cfa/cfa.scm 152 */
BgL_approxz00_bglt BgL_res5989z00_2112;
{ /* ./Cfa/cfa.scm 152 */
BgL_nodez00_bglt BgL_nodez00_2086;
BgL_nodez00_2086 = 
(BgL_nodez00_bglt)(BgL_az00_1704); 
{ /* ./Cfa/cfa.scm 152 */
obj_t BgL_method4590z00_2087;
{ /* ./Cfa/cfa.scm 152 */
BgL_objectz00_bglt BgL_objz00_2088;
BgL_objz00_2088 = 
(BgL_objectz00_bglt)(BgL_nodez00_2086); 
{ /* ./Cfa/cfa.scm 152 */
long BgL_objzd2classzd2numz00_2089;
BgL_objzd2classzd2numz00_2089 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2088); 
{ /* ./Cfa/cfa.scm 152 */
obj_t BgL_arg2017z00_2090;
{ /* ./Cfa/cfa.scm 152 */
int BgL_auxz00_3830;
BgL_auxz00_3830 = 
(int)(((long)1)); 
BgL_arg2017z00_2090 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3830); } 
{ /* ./Cfa/cfa.scm 152 */
int BgL_offsetz00_2093;
BgL_offsetz00_2093 = 
(int)(BgL_objzd2classzd2numz00_2089); 
{ /* ./Cfa/cfa.scm 152 */
long BgL_offsetz00_2094;
{ /* ./Cfa/cfa.scm 152 */
long BgL_auxz00_3834;
BgL_auxz00_3834 = 
(long)(BgL_offsetz00_2093); 
BgL_offsetz00_2094 = 
(BgL_auxz00_3834-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 152 */
long BgL_modz00_2095;
{ /* ./Cfa/cfa.scm 152 */
int BgL_arg2028z00_2096;
BgL_arg2028z00_2096 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 152 */
long BgL_n2z00_2104;
BgL_n2z00_2104 = 
(long)(BgL_arg2028z00_2096); 
BgL_modz00_2095 = 
(BgL_offsetz00_2094/BgL_n2z00_2104); } } 
{ /* ./Cfa/cfa.scm 152 */
long BgL_restz00_2097;
{ /* ./Cfa/cfa.scm 152 */
int BgL_arg2024z00_2098;
BgL_arg2024z00_2098 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 152 */
long BgL_n2z00_2107;
BgL_n2z00_2107 = 
(long)(BgL_arg2024z00_2098); 
BgL_restz00_2097 = 
(BgL_offsetz00_2094%BgL_n2z00_2107); } } 
{ /* ./Cfa/cfa.scm 152 */

{ /* ./Cfa/cfa.scm 152 */
obj_t BgL_bucketz00_2099;
{ /* ./Cfa/cfa.scm 152 */
int BgL_kz00_2109;
BgL_kz00_2109 = 
(int)(BgL_modz00_2095); 
BgL_bucketz00_2099 = 
VECTOR_REF(BgL_arg2017z00_2090,BgL_kz00_2109); } 
{ /* ./Cfa/cfa.scm 152 */
int BgL_kz00_2111;
BgL_kz00_2111 = 
(int)(BgL_restz00_2097); 
BgL_method4590z00_2087 = 
VECTOR_REF(BgL_bucketz00_2099,BgL_kz00_2111); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 152 */
obj_t BgL_auxz00_3847;
BgL_auxz00_3847 = 
PROCEDURE_ENTRY(BgL_method4590z00_2087)(BgL_method4590z00_2087, 
(obj_t)(BgL_nodez00_2086), BEOA); 
BgL_res5989z00_2112 = 
(BgL_approxz00_bglt)(BgL_auxz00_3847); } } } 
BgL_arg5625z00_1705 = BgL_res5989z00_2112; } 
BgL_arg5626z00_1706 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5625z00_1705, BgL_arg5626z00_1706); } } 
{ /* ./Cfa/cfa.scm 152 */
obj_t BgL_arg5631z00_1707;
BgL_arg5631z00_1707 = 
CDR(BgL_l4551z00_1700); 
{ 
obj_t BgL_l4551z00_3855;
BgL_l4551z00_3855 = BgL_arg5631z00_1707; 
BgL_l4551z00_1700 = BgL_l4551z00_3855; 
goto BgL_forzd2each4552zd2_1701;} } }  else 
{ /* ./Cfa/cfa.scm 152 */((bool_t)1); } } } } 
{ 
obj_t BgL_auxz00_3856;
{ /* ./Cfa/cfa.scm 153 */
BgL_objectz00_bglt BgL_auxz00_3857;
BgL_auxz00_3857 = 
(BgL_objectz00_bglt)(BgL_nodez00_1696); 
BgL_auxz00_3856 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3857); } 
BgL_auxz00_3821 = 
(((BgL_getfieldzf2cinfozf2_bglt)CREF(BgL_auxz00_3856))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3821);} } } 
}



/* cfa!-pragma/Cinfo4618 */
obj_t BGl_cfaz12zd2pragmazf2Cinfo4618z32zzcfa_cfaz00(obj_t BgL_envz00_2922, obj_t BgL_nodez00_2923)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 142 */
{ 
BgL_pragmazf2cinfozf2_bglt BgL_nodez00_1682;
{ /* ./Cfa/cfa.scm 143 */
BgL_approxz00_bglt BgL_auxz00_3863;
BgL_nodez00_1682 = 
(BgL_pragmazf2cinfozf2_bglt)(BgL_nodez00_2923); 
{ 
obj_t BgL_l4547z00_1686;
{ /* ./Cfa/cfa.scm 144 */
obj_t BgL_arg5597z00_1688;
{ /* ./Cfa/cfa.scm 144 */
BgL_externz00_bglt BgL_obj1817z00_2051;
BgL_obj1817z00_2051 = 
(BgL_externz00_bglt)(BgL_nodez00_1682); 
BgL_arg5597z00_1688 = 
(((BgL_externz00_bglt)CREF(BgL_obj1817z00_2051))->BgL_exprza2za2); } 
BgL_l4547z00_1686 = BgL_arg5597z00_1688; 
BgL_forzd2each4548zd2_1687:
{ /* ./Cfa/cfa.scm 144 */
bool_t BgL_test5600z00_1689;
BgL_test5600z00_1689 = 
PAIRP(BgL_l4547z00_1686); 
if(BgL_test5600z00_1689)
{ /* ./Cfa/cfa.scm 144 */
{ /* ./Cfa/cfa.scm 144 */
obj_t BgL_az00_1690;
BgL_az00_1690 = 
CAR(BgL_l4547z00_1686); 
{ /* ./Cfa/cfa.scm 144 */
BgL_approxz00_bglt BgL_arg5602z00_1691;obj_t BgL_arg5603z00_1692;
{ /* ./Cfa/cfa.scm 144 */
BgL_approxz00_bglt BgL_res5986z00_2080;
{ /* ./Cfa/cfa.scm 144 */
BgL_nodez00_bglt BgL_nodez00_2054;
BgL_nodez00_2054 = 
(BgL_nodez00_bglt)(BgL_az00_1690); 
{ /* ./Cfa/cfa.scm 144 */
obj_t BgL_method4590z00_2055;
{ /* ./Cfa/cfa.scm 144 */
BgL_objectz00_bglt BgL_objz00_2056;
BgL_objz00_2056 = 
(BgL_objectz00_bglt)(BgL_nodez00_2054); 
{ /* ./Cfa/cfa.scm 144 */
long BgL_objzd2classzd2numz00_2057;
BgL_objzd2classzd2numz00_2057 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2056); 
{ /* ./Cfa/cfa.scm 144 */
obj_t BgL_arg2017z00_2058;
{ /* ./Cfa/cfa.scm 144 */
int BgL_auxz00_3872;
BgL_auxz00_3872 = 
(int)(((long)1)); 
BgL_arg2017z00_2058 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3872); } 
{ /* ./Cfa/cfa.scm 144 */
int BgL_offsetz00_2061;
BgL_offsetz00_2061 = 
(int)(BgL_objzd2classzd2numz00_2057); 
{ /* ./Cfa/cfa.scm 144 */
long BgL_offsetz00_2062;
{ /* ./Cfa/cfa.scm 144 */
long BgL_auxz00_3876;
BgL_auxz00_3876 = 
(long)(BgL_offsetz00_2061); 
BgL_offsetz00_2062 = 
(BgL_auxz00_3876-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 144 */
long BgL_modz00_2063;
{ /* ./Cfa/cfa.scm 144 */
int BgL_arg2028z00_2064;
BgL_arg2028z00_2064 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 144 */
long BgL_n2z00_2072;
BgL_n2z00_2072 = 
(long)(BgL_arg2028z00_2064); 
BgL_modz00_2063 = 
(BgL_offsetz00_2062/BgL_n2z00_2072); } } 
{ /* ./Cfa/cfa.scm 144 */
long BgL_restz00_2065;
{ /* ./Cfa/cfa.scm 144 */
int BgL_arg2024z00_2066;
BgL_arg2024z00_2066 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 144 */
long BgL_n2z00_2075;
BgL_n2z00_2075 = 
(long)(BgL_arg2024z00_2066); 
BgL_restz00_2065 = 
(BgL_offsetz00_2062%BgL_n2z00_2075); } } 
{ /* ./Cfa/cfa.scm 144 */

{ /* ./Cfa/cfa.scm 144 */
obj_t BgL_bucketz00_2067;
{ /* ./Cfa/cfa.scm 144 */
int BgL_kz00_2077;
BgL_kz00_2077 = 
(int)(BgL_modz00_2063); 
BgL_bucketz00_2067 = 
VECTOR_REF(BgL_arg2017z00_2058,BgL_kz00_2077); } 
{ /* ./Cfa/cfa.scm 144 */
int BgL_kz00_2079;
BgL_kz00_2079 = 
(int)(BgL_restz00_2065); 
BgL_method4590z00_2055 = 
VECTOR_REF(BgL_bucketz00_2067,BgL_kz00_2079); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 144 */
obj_t BgL_auxz00_3889;
BgL_auxz00_3889 = 
PROCEDURE_ENTRY(BgL_method4590z00_2055)(BgL_method4590z00_2055, 
(obj_t)(BgL_nodez00_2054), BEOA); 
BgL_res5986z00_2080 = 
(BgL_approxz00_bglt)(BgL_auxz00_3889); } } } 
BgL_arg5602z00_1691 = BgL_res5986z00_2080; } 
BgL_arg5603z00_1692 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5602z00_1691, BgL_arg5603z00_1692); } } 
{ /* ./Cfa/cfa.scm 144 */
obj_t BgL_arg5608z00_1693;
BgL_arg5608z00_1693 = 
CDR(BgL_l4547z00_1686); 
{ 
obj_t BgL_l4547z00_3897;
BgL_l4547z00_3897 = BgL_arg5608z00_1693; 
BgL_l4547z00_1686 = BgL_l4547z00_3897; 
goto BgL_forzd2each4548zd2_1687;} } }  else 
{ /* ./Cfa/cfa.scm 144 */((bool_t)1); } } } } 
{ 
obj_t BgL_auxz00_3898;
{ /* ./Cfa/cfa.scm 145 */
BgL_objectz00_bglt BgL_auxz00_3899;
BgL_auxz00_3899 = 
(BgL_objectz00_bglt)(BgL_nodez00_1682); 
BgL_auxz00_3898 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3899); } 
BgL_auxz00_3863 = 
(((BgL_pragmazf2cinfozf2_bglt)CREF(BgL_auxz00_3898))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3863);} } } 
}



/* cfa!-app-ly/Cinfo4616 */
obj_t BGl_cfaz12zd2appzd2lyzf2Cinfo4616ze0zzcfa_cfaz00(obj_t BgL_envz00_2924, obj_t BgL_nodez00_2925)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 133 */
{ 
BgL_appzd2lyzf2cinfoz20_bglt BgL_nodez00_1670;
{ /* ./Cfa/cfa.scm 134 */
BgL_approxz00_bglt BgL_auxz00_3905;
BgL_nodez00_1670 = 
(BgL_appzd2lyzf2cinfoz20_bglt)(BgL_nodez00_2925); 
{ /* ./Cfa/cfa.scm 135 */
BgL_approxz00_bglt BgL_arg5574z00_1674;obj_t BgL_arg5575z00_1675;
{ /* ./Cfa/cfa.scm 135 */
BgL_nodez00_bglt BgL_arg5578z00_1676;
{ /* ./Cfa/cfa.scm 135 */
BgL_appzd2lyzd2_bglt BgL_obj1754z00_1994;
BgL_obj1754z00_1994 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_1670); 
BgL_arg5578z00_1676 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1754z00_1994))->BgL_argz00); } 
{ /* ./Cfa/cfa.scm 135 */
BgL_approxz00_bglt BgL_res5980z00_2021;
{ /* ./Cfa/cfa.scm 135 */
obj_t BgL_method4590z00_1996;
{ /* ./Cfa/cfa.scm 135 */
BgL_objectz00_bglt BgL_objz00_1997;
BgL_objz00_1997 = 
(BgL_objectz00_bglt)(BgL_arg5578z00_1676); 
{ /* ./Cfa/cfa.scm 135 */
long BgL_objzd2classzd2numz00_1998;
BgL_objzd2classzd2numz00_1998 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1997); 
{ /* ./Cfa/cfa.scm 135 */
obj_t BgL_arg2017z00_1999;
{ /* ./Cfa/cfa.scm 135 */
int BgL_auxz00_3910;
BgL_auxz00_3910 = 
(int)(((long)1)); 
BgL_arg2017z00_1999 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3910); } 
{ /* ./Cfa/cfa.scm 135 */
int BgL_offsetz00_2002;
BgL_offsetz00_2002 = 
(int)(BgL_objzd2classzd2numz00_1998); 
{ /* ./Cfa/cfa.scm 135 */
long BgL_offsetz00_2003;
{ /* ./Cfa/cfa.scm 135 */
long BgL_auxz00_3914;
BgL_auxz00_3914 = 
(long)(BgL_offsetz00_2002); 
BgL_offsetz00_2003 = 
(BgL_auxz00_3914-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 135 */
long BgL_modz00_2004;
{ /* ./Cfa/cfa.scm 135 */
int BgL_arg2028z00_2005;
BgL_arg2028z00_2005 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 135 */
long BgL_n2z00_2013;
BgL_n2z00_2013 = 
(long)(BgL_arg2028z00_2005); 
BgL_modz00_2004 = 
(BgL_offsetz00_2003/BgL_n2z00_2013); } } 
{ /* ./Cfa/cfa.scm 135 */
long BgL_restz00_2006;
{ /* ./Cfa/cfa.scm 135 */
int BgL_arg2024z00_2007;
BgL_arg2024z00_2007 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 135 */
long BgL_n2z00_2016;
BgL_n2z00_2016 = 
(long)(BgL_arg2024z00_2007); 
BgL_restz00_2006 = 
(BgL_offsetz00_2003%BgL_n2z00_2016); } } 
{ /* ./Cfa/cfa.scm 135 */

{ /* ./Cfa/cfa.scm 135 */
obj_t BgL_bucketz00_2008;
{ /* ./Cfa/cfa.scm 135 */
int BgL_kz00_2018;
BgL_kz00_2018 = 
(int)(BgL_modz00_2004); 
BgL_bucketz00_2008 = 
VECTOR_REF(BgL_arg2017z00_1999,BgL_kz00_2018); } 
{ /* ./Cfa/cfa.scm 135 */
int BgL_kz00_2020;
BgL_kz00_2020 = 
(int)(BgL_restz00_2006); 
BgL_method4590z00_1996 = 
VECTOR_REF(BgL_bucketz00_2008,BgL_kz00_2020); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 135 */
obj_t BgL_auxz00_3927;
BgL_auxz00_3927 = 
PROCEDURE_ENTRY(BgL_method4590z00_1996)(BgL_method4590z00_1996, 
(obj_t)(BgL_arg5578z00_1676), BEOA); 
BgL_res5980z00_2021 = 
(BgL_approxz00_bglt)(BgL_auxz00_3927); } } 
BgL_arg5574z00_1674 = BgL_res5980z00_2021; } } 
BgL_arg5575z00_1675 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5574z00_1674, BgL_arg5575z00_1675); } 
{ /* ./Cfa/cfa.scm 136 */
BgL_approxz00_bglt BgL_arg5582z00_1677;obj_t BgL_arg5583z00_1678;
{ /* ./Cfa/cfa.scm 136 */
BgL_nodez00_bglt BgL_arg5586z00_1679;
{ /* ./Cfa/cfa.scm 136 */
BgL_appzd2lyzd2_bglt BgL_obj1751z00_2022;
BgL_obj1751z00_2022 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_1670); 
BgL_arg5586z00_1679 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_obj1751z00_2022))->BgL_funz00); } 
{ /* ./Cfa/cfa.scm 136 */
BgL_approxz00_bglt BgL_res5983z00_2049;
{ /* ./Cfa/cfa.scm 136 */
obj_t BgL_method4590z00_2024;
{ /* ./Cfa/cfa.scm 136 */
BgL_objectz00_bglt BgL_objz00_2025;
BgL_objz00_2025 = 
(BgL_objectz00_bglt)(BgL_arg5586z00_1679); 
{ /* ./Cfa/cfa.scm 136 */
long BgL_objzd2classzd2numz00_2026;
BgL_objzd2classzd2numz00_2026 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2025); 
{ /* ./Cfa/cfa.scm 136 */
obj_t BgL_arg2017z00_2027;
{ /* ./Cfa/cfa.scm 136 */
int BgL_auxz00_3938;
BgL_auxz00_3938 = 
(int)(((long)1)); 
BgL_arg2017z00_2027 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3938); } 
{ /* ./Cfa/cfa.scm 136 */
int BgL_offsetz00_2030;
BgL_offsetz00_2030 = 
(int)(BgL_objzd2classzd2numz00_2026); 
{ /* ./Cfa/cfa.scm 136 */
long BgL_offsetz00_2031;
{ /* ./Cfa/cfa.scm 136 */
long BgL_auxz00_3942;
BgL_auxz00_3942 = 
(long)(BgL_offsetz00_2030); 
BgL_offsetz00_2031 = 
(BgL_auxz00_3942-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 136 */
long BgL_modz00_2032;
{ /* ./Cfa/cfa.scm 136 */
int BgL_arg2028z00_2033;
BgL_arg2028z00_2033 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 136 */
long BgL_n2z00_2041;
BgL_n2z00_2041 = 
(long)(BgL_arg2028z00_2033); 
BgL_modz00_2032 = 
(BgL_offsetz00_2031/BgL_n2z00_2041); } } 
{ /* ./Cfa/cfa.scm 136 */
long BgL_restz00_2034;
{ /* ./Cfa/cfa.scm 136 */
int BgL_arg2024z00_2035;
BgL_arg2024z00_2035 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 136 */
long BgL_n2z00_2044;
BgL_n2z00_2044 = 
(long)(BgL_arg2024z00_2035); 
BgL_restz00_2034 = 
(BgL_offsetz00_2031%BgL_n2z00_2044); } } 
{ /* ./Cfa/cfa.scm 136 */

{ /* ./Cfa/cfa.scm 136 */
obj_t BgL_bucketz00_2036;
{ /* ./Cfa/cfa.scm 136 */
int BgL_kz00_2046;
BgL_kz00_2046 = 
(int)(BgL_modz00_2032); 
BgL_bucketz00_2036 = 
VECTOR_REF(BgL_arg2017z00_2027,BgL_kz00_2046); } 
{ /* ./Cfa/cfa.scm 136 */
int BgL_kz00_2048;
BgL_kz00_2048 = 
(int)(BgL_restz00_2034); 
BgL_method4590z00_2024 = 
VECTOR_REF(BgL_bucketz00_2036,BgL_kz00_2048); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 136 */
obj_t BgL_auxz00_3955;
BgL_auxz00_3955 = 
PROCEDURE_ENTRY(BgL_method4590z00_2024)(BgL_method4590z00_2024, 
(obj_t)(BgL_arg5586z00_1679), BEOA); 
BgL_res5983z00_2049 = 
(BgL_approxz00_bglt)(BgL_auxz00_3955); } } 
BgL_arg5582z00_1677 = BgL_res5983z00_2049; } } 
BgL_arg5583z00_1678 = 
CNST_TABLE_REF(((long)0)); 
BGl_loosez12z12zzcfa_loosez00(BgL_arg5582z00_1677, BgL_arg5583z00_1678); } 
{ 
obj_t BgL_auxz00_3962;
{ /* ./Cfa/cfa.scm 137 */
BgL_objectz00_bglt BgL_auxz00_3963;
BgL_auxz00_3963 = 
(BgL_objectz00_bglt)(BgL_nodez00_1670); 
BgL_auxz00_3962 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3963); } 
BgL_auxz00_3905 = 
(((BgL_appzd2lyzf2cinfoz20_bglt)CREF(BgL_auxz00_3962))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_3905);} } } 
}



/* cfa!-sequence4614 */
obj_t BGl_cfaz12zd2sequence4614zc0zzcfa_cfaz00(obj_t BgL_envz00_2926, obj_t BgL_nodez00_2927)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 122 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1656;
BgL_nodez00_1656 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2927); 
{ 
obj_t BgL_nz00_1660;obj_t BgL_approxz00_1661;
{ /* ./Cfa/cfa.scm 124 */
obj_t BgL_arg5553z00_1663;
BgL_arg5553z00_1663 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1656))->BgL_nodesz00); 
BgL_nz00_1660 = BgL_arg5553z00_1663; 
BgL_approxz00_1661 = BUNSPEC; 
BgL_loopz00_1662:
{ /* ./Cfa/cfa.scm 126 */
bool_t BgL_test5556z00_1664;
BgL_test5556z00_1664 = 
NULLP(BgL_nz00_1660); 
if(BgL_test5556z00_1664)
{ /* ./Cfa/cfa.scm 126 */
return BgL_approxz00_1661;}  else 
{ /* ./Cfa/cfa.scm 128 */
obj_t BgL_arg5558z00_1665;BgL_approxz00_bglt BgL_arg5559z00_1666;
BgL_arg5558z00_1665 = 
CDR(BgL_nz00_1660); 
{ /* ./Cfa/cfa.scm 128 */
obj_t BgL_arg5563z00_1667;
BgL_arg5563z00_1667 = 
CAR(BgL_nz00_1660); 
{ /* ./Cfa/cfa.scm 128 */
BgL_approxz00_bglt BgL_res5977z00_1993;
{ /* ./Cfa/cfa.scm 128 */
BgL_nodez00_bglt BgL_nodez00_1967;
BgL_nodez00_1967 = 
(BgL_nodez00_bglt)(BgL_arg5563z00_1667); 
{ /* ./Cfa/cfa.scm 128 */
obj_t BgL_method4590z00_1968;
{ /* ./Cfa/cfa.scm 128 */
BgL_objectz00_bglt BgL_objz00_1969;
BgL_objz00_1969 = 
(BgL_objectz00_bglt)(BgL_nodez00_1967); 
{ /* ./Cfa/cfa.scm 128 */
long BgL_objzd2classzd2numz00_1970;
BgL_objzd2classzd2numz00_1970 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1969); 
{ /* ./Cfa/cfa.scm 128 */
obj_t BgL_arg2017z00_1971;
{ /* ./Cfa/cfa.scm 128 */
int BgL_auxz00_3977;
BgL_auxz00_3977 = 
(int)(((long)1)); 
BgL_arg2017z00_1971 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_3977); } 
{ /* ./Cfa/cfa.scm 128 */
int BgL_offsetz00_1974;
BgL_offsetz00_1974 = 
(int)(BgL_objzd2classzd2numz00_1970); 
{ /* ./Cfa/cfa.scm 128 */
long BgL_offsetz00_1975;
{ /* ./Cfa/cfa.scm 128 */
long BgL_auxz00_3981;
BgL_auxz00_3981 = 
(long)(BgL_offsetz00_1974); 
BgL_offsetz00_1975 = 
(BgL_auxz00_3981-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 128 */
long BgL_modz00_1976;
{ /* ./Cfa/cfa.scm 128 */
int BgL_arg2028z00_1977;
BgL_arg2028z00_1977 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 128 */
long BgL_n2z00_1985;
BgL_n2z00_1985 = 
(long)(BgL_arg2028z00_1977); 
BgL_modz00_1976 = 
(BgL_offsetz00_1975/BgL_n2z00_1985); } } 
{ /* ./Cfa/cfa.scm 128 */
long BgL_restz00_1978;
{ /* ./Cfa/cfa.scm 128 */
int BgL_arg2024z00_1979;
BgL_arg2024z00_1979 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 128 */
long BgL_n2z00_1988;
BgL_n2z00_1988 = 
(long)(BgL_arg2024z00_1979); 
BgL_restz00_1978 = 
(BgL_offsetz00_1975%BgL_n2z00_1988); } } 
{ /* ./Cfa/cfa.scm 128 */

{ /* ./Cfa/cfa.scm 128 */
obj_t BgL_bucketz00_1980;
{ /* ./Cfa/cfa.scm 128 */
int BgL_kz00_1990;
BgL_kz00_1990 = 
(int)(BgL_modz00_1976); 
BgL_bucketz00_1980 = 
VECTOR_REF(BgL_arg2017z00_1971,BgL_kz00_1990); } 
{ /* ./Cfa/cfa.scm 128 */
int BgL_kz00_1992;
BgL_kz00_1992 = 
(int)(BgL_restz00_1978); 
BgL_method4590z00_1968 = 
VECTOR_REF(BgL_bucketz00_1980,BgL_kz00_1992); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 128 */
obj_t BgL_auxz00_3994;
BgL_auxz00_3994 = 
PROCEDURE_ENTRY(BgL_method4590z00_1968)(BgL_method4590z00_1968, 
(obj_t)(BgL_nodez00_1967), BEOA); 
BgL_res5977z00_1993 = 
(BgL_approxz00_bglt)(BgL_auxz00_3994); } } } 
BgL_arg5559z00_1666 = BgL_res5977z00_1993; } } 
{ 
obj_t BgL_approxz00_4000;obj_t BgL_nz00_3999;
BgL_nz00_3999 = BgL_arg5558z00_1665; 
BgL_approxz00_4000 = 
(obj_t)(BgL_arg5559z00_1666); 
BgL_approxz00_1661 = BgL_approxz00_4000; 
BgL_nz00_1660 = BgL_nz00_3999; 
goto BgL_loopz00_1662;} } } } } } } 
}



/* cfa-variable-value-approx-intern-sfun/Cinfo4612 */
obj_t BGl_cfazd2variablezd2valuezd2approxzd2internzd2sfunzf2Cinfo4612z20zzcfa_cfaz00(obj_t BgL_envz00_2928, obj_t BgL_valuez00_2929)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 115 */
{ 
BgL_internzd2sfunzf2cinfoz20_bglt BgL_valuez00_1650;
{ /* ./Cfa/cfa.scm 116 */
BgL_approxz00_bglt BgL_auxz00_4003;
BgL_valuez00_1650 = 
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_valuez00_2929); 
{ 
obj_t BgL_auxz00_4004;
{ /* ./Cfa/cfa.scm 116 */
BgL_objectz00_bglt BgL_auxz00_4005;
BgL_auxz00_4005 = 
(BgL_objectz00_bglt)(BgL_valuez00_1650); 
BgL_auxz00_4004 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4005); } 
BgL_auxz00_4003 = 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_4004))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_4003);} } } 
}



/* cfa-variable-value-approx-sexit/Cinfo4610 */
obj_t BGl_cfazd2variablezd2valuezd2approxzd2sexitzf2Cinfo4610zf2zzcfa_cfaz00(obj_t BgL_envz00_2930, obj_t BgL_valuez00_2931)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 104 */
{ 
BgL_sexitzf2cinfozf2_bglt BgL_valuez00_1644;
{ /* ./Cfa/cfa.scm 105 */
BgL_approxz00_bglt BgL_auxz00_4011;
BgL_valuez00_1644 = 
(BgL_sexitzf2cinfozf2_bglt)(BgL_valuez00_2931); 
{ 
obj_t BgL_auxz00_4012;
{ /* ./Cfa/cfa.scm 105 */
BgL_objectz00_bglt BgL_auxz00_4013;
BgL_auxz00_4013 = 
(BgL_objectz00_bglt)(BgL_valuez00_1644); 
BgL_auxz00_4012 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4013); } 
BgL_auxz00_4011 = 
(((BgL_sexitzf2cinfozf2_bglt)CREF(BgL_auxz00_4012))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_4011);} } } 
}



/* cfa-variable-value-approx-cvar/Cinfo4608 */
obj_t BGl_cfazd2variablezd2valuezd2approxzd2cvarzf2Cinfo4608zf2zzcfa_cfaz00(obj_t BgL_envz00_2932, obj_t BgL_valuez00_2933)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 97 */
{ 
BgL_cvarzf2cinfozf2_bglt BgL_valuez00_1638;
{ /* ./Cfa/cfa.scm 98 */
BgL_approxz00_bglt BgL_auxz00_4019;
BgL_valuez00_1638 = 
(BgL_cvarzf2cinfozf2_bglt)(BgL_valuez00_2933); 
{ 
obj_t BgL_auxz00_4020;
{ /* ./Cfa/cfa.scm 98 */
BgL_objectz00_bglt BgL_auxz00_4021;
BgL_auxz00_4021 = 
(BgL_objectz00_bglt)(BgL_valuez00_1638); 
BgL_auxz00_4020 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4021); } 
BgL_auxz00_4019 = 
(((BgL_cvarzf2cinfozf2_bglt)CREF(BgL_auxz00_4020))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_4019);} } } 
}



/* cfa-variable-value-approx-scnst/Cinfo4606 */
obj_t BGl_cfazd2variablezd2valuezd2approxzd2scnstzf2Cinfo4606zf2zzcfa_cfaz00(obj_t BgL_envz00_2934, obj_t BgL_valuez00_2935)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 90 */
{ 
BgL_scnstzf2cinfozf2_bglt BgL_valuez00_1632;
{ /* ./Cfa/cfa.scm 91 */
BgL_approxz00_bglt BgL_auxz00_4027;
BgL_valuez00_1632 = 
(BgL_scnstzf2cinfozf2_bglt)(BgL_valuez00_2935); 
{ 
obj_t BgL_auxz00_4028;
{ /* ./Cfa/cfa.scm 91 */
BgL_objectz00_bglt BgL_auxz00_4029;
BgL_auxz00_4029 = 
(BgL_objectz00_bglt)(BgL_valuez00_1632); 
BgL_auxz00_4028 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4029); } 
BgL_auxz00_4027 = 
(((BgL_scnstzf2cinfozf2_bglt)CREF(BgL_auxz00_4028))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_4027);} } } 
}



/* cfa-variable-value-approx-svar/Cinfo4604 */
obj_t BGl_cfazd2variablezd2valuezd2approxzd2svarzf2Cinfo4604zf2zzcfa_cfaz00(obj_t BgL_envz00_2936, obj_t BgL_valuez00_2937)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 83 */
{ 
BgL_svarzf2cinfozf2_bglt BgL_valuez00_1626;
{ /* ./Cfa/cfa.scm 84 */
BgL_approxz00_bglt BgL_auxz00_4035;
BgL_valuez00_1626 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_valuez00_2937); 
{ 
obj_t BgL_auxz00_4036;
{ /* ./Cfa/cfa.scm 84 */
BgL_objectz00_bglt BgL_auxz00_4037;
BgL_auxz00_4037 = 
(BgL_objectz00_bglt)(BgL_valuez00_1626); 
BgL_auxz00_4036 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4037); } 
BgL_auxz00_4035 = 
(((BgL_svarzf2cinfozf2_bglt)CREF(BgL_auxz00_4036))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_4035);} } } 
}



/* cfa!-closure4600 */
obj_t BGl_cfaz12zd2closure4600zc0zzcfa_cfaz00(obj_t BgL_envz00_2938, obj_t BgL_nodez00_2939)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 72 */
{ 
BgL_closurez00_bglt BgL_nodez00_1618;
BgL_nodez00_1618 = 
(BgL_closurez00_bglt)(BgL_nodez00_2939); 
{ /* ./Cfa/cfa.scm 73 */
obj_t BgL_arg5507z00_1623;
BgL_arg5507z00_1623 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1618)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string6682z00zzcfa_cfaz00, BGl_string6683z00zzcfa_cfaz00, BgL_arg5507z00_1623);} } } 
}



/* cfa!-var4598 */
obj_t BGl_cfaz12zd2var4598zc0zzcfa_cfaz00(obj_t BgL_envz00_2940, obj_t BgL_nodez00_2941)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 65 */
{ 
BgL_varz00_bglt BgL_nodez00_1610;
BgL_nodez00_1610 = 
(BgL_varz00_bglt)(BgL_nodez00_2941); 
{ /* ./Cfa/cfa.scm 66 */
BgL_valuez00_bglt BgL_arg5492z00_1923;
{ /* ./Cfa/cfa.scm 66 */
BgL_variablez00_bglt BgL_arg5495z00_1924;
BgL_arg5495z00_1924 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1610))->BgL_variablez00); 
BgL_arg5492z00_1923 = 
(((BgL_variablez00_bglt)CREF(BgL_arg5495z00_1924))->BgL_valuez00); } 
{ /* ./Cfa/cfa.scm 66 */
obj_t BgL_method4602z00_1928;
{ /* ./Cfa/cfa.scm 66 */
BgL_objectz00_bglt BgL_objz00_1929;
BgL_objz00_1929 = 
(BgL_objectz00_bglt)(BgL_arg5492z00_1923); 
{ /* ./Cfa/cfa.scm 66 */
long BgL_objzd2classzd2numz00_1930;
BgL_objzd2classzd2numz00_1930 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1929); 
{ /* ./Cfa/cfa.scm 66 */
obj_t BgL_arg2017z00_1931;
{ /* ./Cfa/cfa.scm 66 */
int BgL_auxz00_4051;
BgL_auxz00_4051 = 
(int)(((long)1)); 
BgL_arg2017z00_1931 = 
PROCEDURE_REF(BGl_cfazd2variablezd2valuezd2approxzd2envz00zzcfa_cfaz00, BgL_auxz00_4051); } 
{ /* ./Cfa/cfa.scm 66 */
int BgL_offsetz00_1934;
BgL_offsetz00_1934 = 
(int)(BgL_objzd2classzd2numz00_1930); 
{ /* ./Cfa/cfa.scm 66 */
long BgL_offsetz00_1935;
{ /* ./Cfa/cfa.scm 66 */
long BgL_auxz00_4055;
BgL_auxz00_4055 = 
(long)(BgL_offsetz00_1934); 
BgL_offsetz00_1935 = 
(BgL_auxz00_4055-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 66 */
long BgL_modz00_1936;
{ /* ./Cfa/cfa.scm 66 */
int BgL_arg2028z00_1937;
BgL_arg2028z00_1937 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 66 */
long BgL_n2z00_1945;
BgL_n2z00_1945 = 
(long)(BgL_arg2028z00_1937); 
BgL_modz00_1936 = 
(BgL_offsetz00_1935/BgL_n2z00_1945); } } 
{ /* ./Cfa/cfa.scm 66 */
long BgL_restz00_1938;
{ /* ./Cfa/cfa.scm 66 */
int BgL_arg2024z00_1939;
BgL_arg2024z00_1939 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 66 */
long BgL_n2z00_1948;
BgL_n2z00_1948 = 
(long)(BgL_arg2024z00_1939); 
BgL_restz00_1938 = 
(BgL_offsetz00_1935%BgL_n2z00_1948); } } 
{ /* ./Cfa/cfa.scm 66 */

{ /* ./Cfa/cfa.scm 66 */
obj_t BgL_bucketz00_1940;
{ /* ./Cfa/cfa.scm 66 */
int BgL_kz00_1950;
BgL_kz00_1950 = 
(int)(BgL_modz00_1936); 
BgL_bucketz00_1940 = 
VECTOR_REF(BgL_arg2017z00_1931,BgL_kz00_1950); } 
{ /* ./Cfa/cfa.scm 66 */
int BgL_kz00_1952;
BgL_kz00_1952 = 
(int)(BgL_restz00_1938); 
BgL_method4602z00_1928 = 
VECTOR_REF(BgL_bucketz00_1940,BgL_kz00_1952); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4602z00_1928)(BgL_method4602z00_1928, 
(obj_t)(BgL_arg5492z00_1923), BEOA);} } } } 
}



/* cfa!-kwote/node4596 */
obj_t BGl_cfaz12zd2kwotezf2node4596z32zzcfa_cfaz00(obj_t BgL_envz00_2942, obj_t BgL_knodez00_2943)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 56 */
{ 
BgL_kwotezf2nodezf2_bglt BgL_knodez00_1603;
{ /* ./Cfa/cfa.scm 57 */
BgL_approxz00_bglt BgL_auxz00_4072;
BgL_knodez00_1603 = 
(BgL_kwotezf2nodezf2_bglt)(BgL_knodez00_2943); 
{ /* ./Cfa/cfa.scm 57 */
BgL_nodez00_bglt BgL_arg5482z00_1893;
{ 
obj_t BgL_auxz00_4073;
{ /* ./Cfa/cfa.scm 57 */
BgL_objectz00_bglt BgL_auxz00_4074;
BgL_auxz00_4074 = 
(BgL_objectz00_bglt)(BgL_knodez00_1603); 
BgL_auxz00_4073 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4074); } 
BgL_arg5482z00_1893 = 
(((BgL_kwotezf2nodezf2_bglt)CREF(BgL_auxz00_4073))->BgL_nodez00); } 
{ /* ./Cfa/cfa.scm 57 */
BgL_approxz00_bglt BgL_res5972z00_1921;
{ /* ./Cfa/cfa.scm 57 */
obj_t BgL_method4590z00_1896;
{ /* ./Cfa/cfa.scm 57 */
BgL_objectz00_bglt BgL_objz00_1897;
BgL_objz00_1897 = 
(BgL_objectz00_bglt)(BgL_arg5482z00_1893); 
{ /* ./Cfa/cfa.scm 57 */
long BgL_objzd2classzd2numz00_1898;
BgL_objzd2classzd2numz00_1898 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1897); 
{ /* ./Cfa/cfa.scm 57 */
obj_t BgL_arg2017z00_1899;
{ /* ./Cfa/cfa.scm 57 */
int BgL_auxz00_4080;
BgL_auxz00_4080 = 
(int)(((long)1)); 
BgL_arg2017z00_1899 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_4080); } 
{ /* ./Cfa/cfa.scm 57 */
int BgL_offsetz00_1902;
BgL_offsetz00_1902 = 
(int)(BgL_objzd2classzd2numz00_1898); 
{ /* ./Cfa/cfa.scm 57 */
long BgL_offsetz00_1903;
{ /* ./Cfa/cfa.scm 57 */
long BgL_auxz00_4084;
BgL_auxz00_4084 = 
(long)(BgL_offsetz00_1902); 
BgL_offsetz00_1903 = 
(BgL_auxz00_4084-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 57 */
long BgL_modz00_1904;
{ /* ./Cfa/cfa.scm 57 */
int BgL_arg2028z00_1905;
BgL_arg2028z00_1905 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 57 */
long BgL_n2z00_1913;
BgL_n2z00_1913 = 
(long)(BgL_arg2028z00_1905); 
BgL_modz00_1904 = 
(BgL_offsetz00_1903/BgL_n2z00_1913); } } 
{ /* ./Cfa/cfa.scm 57 */
long BgL_restz00_1906;
{ /* ./Cfa/cfa.scm 57 */
int BgL_arg2024z00_1907;
BgL_arg2024z00_1907 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 57 */
long BgL_n2z00_1916;
BgL_n2z00_1916 = 
(long)(BgL_arg2024z00_1907); 
BgL_restz00_1906 = 
(BgL_offsetz00_1903%BgL_n2z00_1916); } } 
{ /* ./Cfa/cfa.scm 57 */

{ /* ./Cfa/cfa.scm 57 */
obj_t BgL_bucketz00_1908;
{ /* ./Cfa/cfa.scm 57 */
int BgL_kz00_1918;
BgL_kz00_1918 = 
(int)(BgL_modz00_1904); 
BgL_bucketz00_1908 = 
VECTOR_REF(BgL_arg2017z00_1899,BgL_kz00_1918); } 
{ /* ./Cfa/cfa.scm 57 */
int BgL_kz00_1920;
BgL_kz00_1920 = 
(int)(BgL_restz00_1906); 
BgL_method4590z00_1896 = 
VECTOR_REF(BgL_bucketz00_1908,BgL_kz00_1920); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 57 */
obj_t BgL_auxz00_4097;
BgL_auxz00_4097 = 
PROCEDURE_ENTRY(BgL_method4590z00_1896)(BgL_method4590z00_1896, 
(obj_t)(BgL_arg5482z00_1893), BEOA); 
BgL_res5972z00_1921 = 
(BgL_approxz00_bglt)(BgL_auxz00_4097); } } 
BgL_auxz00_4072 = BgL_res5972z00_1921; } } 
return 
(obj_t)(BgL_auxz00_4072);} } } 
}



/* cfa!-kwote/Cinfo4594 */
obj_t BGl_cfaz12zd2kwotezf2Cinfo4594z32zzcfa_cfaz00(obj_t BgL_envz00_2944, obj_t BgL_nodez00_2945)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 49 */
{ 
BgL_kwotezf2cinfozf2_bglt BgL_nodez00_1597;
{ /* ./Cfa/cfa.scm 50 */
BgL_approxz00_bglt BgL_auxz00_4104;
BgL_nodez00_1597 = 
(BgL_kwotezf2cinfozf2_bglt)(BgL_nodez00_2945); 
{ 
obj_t BgL_auxz00_4105;
{ /* ./Cfa/cfa.scm 50 */
BgL_objectz00_bglt BgL_auxz00_4106;
BgL_auxz00_4106 = 
(BgL_objectz00_bglt)(BgL_nodez00_1597); 
BgL_auxz00_4105 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4106); } 
BgL_auxz00_4104 = 
(((BgL_kwotezf2cinfozf2_bglt)CREF(BgL_auxz00_4105))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_4104);} } } 
}



/* cfa!-atom/Cinfo4592 */
obj_t BGl_cfaz12zd2atomzf2Cinfo4592z32zzcfa_cfaz00(obj_t BgL_envz00_2946, obj_t BgL_nodez00_2947)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 42 */
{ 
BgL_atomzf2cinfozf2_bglt BgL_nodez00_1591;
{ /* ./Cfa/cfa.scm 43 */
BgL_approxz00_bglt BgL_auxz00_4112;
BgL_nodez00_1591 = 
(BgL_atomzf2cinfozf2_bglt)(BgL_nodez00_2947); 
{ 
obj_t BgL_auxz00_4113;
{ /* ./Cfa/cfa.scm 43 */
BgL_objectz00_bglt BgL_auxz00_4114;
BgL_auxz00_4114 = 
(BgL_objectz00_bglt)(BgL_nodez00_1591); 
BgL_auxz00_4113 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4114); } 
BgL_auxz00_4112 = 
(((BgL_atomzf2cinfozf2_bglt)CREF(BgL_auxz00_4113))->BgL_approxz00); } 
return 
(obj_t)(BgL_auxz00_4112);} } } 
}



/* cfa! */
BGL_EXPORTED_DEF BgL_approxz00_bglt BGl_cfaz12z12zzcfa_cfaz00(BgL_nodez00_bglt BgL_nodez00_1)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 36 */
{ /* ./Cfa/cfa.scm 36 */
obj_t BgL_method4590z00_2802;
{ /* ./Cfa/cfa.scm 36 */
BgL_objectz00_bglt BgL_objz00_2803;
BgL_objz00_2803 = 
(BgL_objectz00_bglt)(BgL_nodez00_1); 
{ /* ./Cfa/cfa.scm 36 */
long BgL_objzd2classzd2numz00_2804;
BgL_objzd2classzd2numz00_2804 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2803); 
{ /* ./Cfa/cfa.scm 36 */
obj_t BgL_arg2017z00_2805;
{ /* ./Cfa/cfa.scm 36 */
int BgL_auxz00_4122;
BgL_auxz00_4122 = 
(int)(((long)1)); 
BgL_arg2017z00_2805 = 
PROCEDURE_REF(BGl_cfaz12zd2envzc0zzcfa_cfaz00, BgL_auxz00_4122); } 
{ /* ./Cfa/cfa.scm 36 */
int BgL_offsetz00_2808;
BgL_offsetz00_2808 = 
(int)(BgL_objzd2classzd2numz00_2804); 
{ /* ./Cfa/cfa.scm 36 */
long BgL_offsetz00_2809;
{ /* ./Cfa/cfa.scm 36 */
long BgL_auxz00_4126;
BgL_auxz00_4126 = 
(long)(BgL_offsetz00_2808); 
BgL_offsetz00_2809 = 
(BgL_auxz00_4126-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 36 */
long BgL_modz00_2810;
{ /* ./Cfa/cfa.scm 36 */
int BgL_arg2028z00_2811;
BgL_arg2028z00_2811 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 36 */
long BgL_n2z00_2819;
BgL_n2z00_2819 = 
(long)(BgL_arg2028z00_2811); 
BgL_modz00_2810 = 
(BgL_offsetz00_2809/BgL_n2z00_2819); } } 
{ /* ./Cfa/cfa.scm 36 */
long BgL_restz00_2812;
{ /* ./Cfa/cfa.scm 36 */
int BgL_arg2024z00_2813;
BgL_arg2024z00_2813 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 36 */
long BgL_n2z00_2822;
BgL_n2z00_2822 = 
(long)(BgL_arg2024z00_2813); 
BgL_restz00_2812 = 
(BgL_offsetz00_2809%BgL_n2z00_2822); } } 
{ /* ./Cfa/cfa.scm 36 */

{ /* ./Cfa/cfa.scm 36 */
obj_t BgL_bucketz00_2814;
{ /* ./Cfa/cfa.scm 36 */
int BgL_kz00_2824;
BgL_kz00_2824 = 
(int)(BgL_modz00_2810); 
BgL_bucketz00_2814 = 
VECTOR_REF(BgL_arg2017z00_2805,BgL_kz00_2824); } 
{ /* ./Cfa/cfa.scm 36 */
int BgL_kz00_2826;
BgL_kz00_2826 = 
(int)(BgL_restz00_2812); 
BgL_method4590z00_2802 = 
VECTOR_REF(BgL_bucketz00_2814,BgL_kz00_2826); } } } } } } } } } } 
{ /* ./Cfa/cfa.scm 36 */
obj_t BgL_auxz00_4139;
BgL_auxz00_4139 = 
PROCEDURE_ENTRY(BgL_method4590z00_2802)(BgL_method4590z00_2802, 
(obj_t)(BgL_nodez00_1), BEOA); 
return 
(BgL_approxz00_bglt)(BgL_auxz00_4139);} } } 
}



/* _cfa!6063 */
obj_t BGl__cfaz126063z12zzcfa_cfaz00(obj_t BgL_envz00_2858, obj_t BgL_nodez00_2859)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 36 */
{ /* ./Cfa/cfa.scm 36 */
BgL_approxz00_bglt BgL_auxz00_4144;
BgL_auxz00_4144 = 
BGl_cfaz12z12zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_nodez00_2859)); 
return 
(obj_t)(BgL_auxz00_4144);} } 
}



/* cfa!-default4589 */
BgL_approxz00_bglt BGl_cfaz12zd2default4589zc0zzcfa_cfaz00(BgL_nodez00_bglt BgL_nodez00_2)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 15 */
{ /* ./Cfa/cfa.scm 37 */
obj_t BgL_arg5948z00_2828;
BgL_arg5948z00_2828 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_2)); 
{ /* ./Cfa/cfa.scm 37 */
obj_t BgL_auxz00_4150;
BgL_auxz00_4150 = 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string6684z00zzcfa_cfaz00, 
(obj_t)(BgL_nodez00_2), BgL_arg5948z00_2828); 
return 
(BgL_approxz00_bglt)(BgL_auxz00_4150);} } } 
}



/* _cfa!-default4589 */
obj_t BGl__cfaz12zd2default4589zc0zzcfa_cfaz00(obj_t BgL_envz00_2948, obj_t BgL_nodez00_2949)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 15 */
{ /* ./Cfa/cfa.scm 37 */
BgL_approxz00_bglt BgL_auxz00_4154;
BgL_auxz00_4154 = 
BGl_cfaz12zd2default4589zc0zzcfa_cfaz00(
(BgL_nodez00_bglt)(BgL_nodez00_2949)); 
return 
(obj_t)(BgL_auxz00_4154);} } 
}



/* cfa-variable-value-approx */
BGL_EXPORTED_DEF obj_t BGl_cfazd2variablezd2valuezd2approxzd2zzcfa_cfaz00(BgL_valuez00_bglt BgL_valuez00_8)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 78 */
{ /* ./Cfa/cfa.scm 78 */
obj_t BgL_method4602z00_2829;
{ /* ./Cfa/cfa.scm 78 */
BgL_objectz00_bglt BgL_objz00_2830;
BgL_objz00_2830 = 
(BgL_objectz00_bglt)(BgL_valuez00_8); 
{ /* ./Cfa/cfa.scm 78 */
long BgL_objzd2classzd2numz00_2831;
BgL_objzd2classzd2numz00_2831 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2830); 
{ /* ./Cfa/cfa.scm 78 */
obj_t BgL_arg2017z00_2832;
{ /* ./Cfa/cfa.scm 78 */
int BgL_auxz00_4160;
BgL_auxz00_4160 = 
(int)(((long)1)); 
BgL_arg2017z00_2832 = 
PROCEDURE_REF(BGl_cfazd2variablezd2valuezd2approxzd2envz00zzcfa_cfaz00, BgL_auxz00_4160); } 
{ /* ./Cfa/cfa.scm 78 */
int BgL_offsetz00_2835;
BgL_offsetz00_2835 = 
(int)(BgL_objzd2classzd2numz00_2831); 
{ /* ./Cfa/cfa.scm 78 */
long BgL_offsetz00_2836;
{ /* ./Cfa/cfa.scm 78 */
long BgL_auxz00_4164;
BgL_auxz00_4164 = 
(long)(BgL_offsetz00_2835); 
BgL_offsetz00_2836 = 
(BgL_auxz00_4164-OBJECT_TYPE); } 
{ /* ./Cfa/cfa.scm 78 */
long BgL_modz00_2837;
{ /* ./Cfa/cfa.scm 78 */
int BgL_arg2028z00_2838;
BgL_arg2028z00_2838 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 78 */
long BgL_n2z00_2846;
BgL_n2z00_2846 = 
(long)(BgL_arg2028z00_2838); 
BgL_modz00_2837 = 
(BgL_offsetz00_2836/BgL_n2z00_2846); } } 
{ /* ./Cfa/cfa.scm 78 */
long BgL_restz00_2839;
{ /* ./Cfa/cfa.scm 78 */
int BgL_arg2024z00_2840;
BgL_arg2024z00_2840 = 
(int)(((long)8)); 
{ /* ./Cfa/cfa.scm 78 */
long BgL_n2z00_2849;
BgL_n2z00_2849 = 
(long)(BgL_arg2024z00_2840); 
BgL_restz00_2839 = 
(BgL_offsetz00_2836%BgL_n2z00_2849); } } 
{ /* ./Cfa/cfa.scm 78 */

{ /* ./Cfa/cfa.scm 78 */
obj_t BgL_bucketz00_2841;
{ /* ./Cfa/cfa.scm 78 */
int BgL_kz00_2851;
BgL_kz00_2851 = 
(int)(BgL_modz00_2837); 
BgL_bucketz00_2841 = 
VECTOR_REF(BgL_arg2017z00_2832,BgL_kz00_2851); } 
{ /* ./Cfa/cfa.scm 78 */
int BgL_kz00_2853;
BgL_kz00_2853 = 
(int)(BgL_restz00_2839); 
BgL_method4602z00_2829 = 
VECTOR_REF(BgL_bucketz00_2841,BgL_kz00_2853); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4602z00_2829)(BgL_method4602z00_2829, 
(obj_t)(BgL_valuez00_8), BEOA);} } 
}



/* _cfa-variable-value-approx6065 */
obj_t BGl__cfazd2variablezd2valuezd2approx6065zd2zzcfa_cfaz00(obj_t BgL_envz00_2885, obj_t BgL_valuez00_2886)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 78 */
return 
BGl_cfazd2variablezd2valuezd2approxzd2zzcfa_cfaz00(
(BgL_valuez00_bglt)(BgL_valuez00_2886));} 
}



/* cfa-variable-value-approx-default4601 */
obj_t BGl_cfazd2variablezd2valuezd2approxzd2default4601z00zzcfa_cfaz00(BgL_valuez00_bglt BgL_valuez00_9)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 15 */
{ /* ./Cfa/cfa.scm 15 */
obj_t BgL_procz00_2854;obj_t BgL_objectz00_2856;
BgL_procz00_2854 = 
CNST_TABLE_REF(((long)1)); 
BgL_objectz00_2856 = 
(obj_t)(BgL_valuez00_9); 
FAILURE(BgL_procz00_2854,BGl_string6685z00zzcfa_cfaz00,BgL_objectz00_2856);} } 
}



/* _cfa-variable-value-approx-default4601 */
obj_t BGl__cfazd2variablezd2valuezd2approxzd2default4601z00zzcfa_cfaz00(obj_t BgL_envz00_2950, obj_t BgL_valuez00_2951)
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 15 */
return 
BGl_cfazd2variablezd2valuezd2approxzd2default4601z00zzcfa_cfaz00(
(BgL_valuez00_bglt)(BgL_valuez00_2951));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcfa_cfaz00()
{ AN_OBJECT;
{ /* ./Cfa/cfa.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zzcfa_infoz00(((long)2565), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zzcfa_info2z00(((long)0), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zzcfa_info3z00(((long)0), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zzcfa_loosez00(((long)78579), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zzcfa_approxz00(((long)43477), "cfa_cfa"); 
BGl_modulezd2initializa7ationz75zzcfa_appz00(((long)12326), "cfa_cfa"); 
return 
BGl_modulezd2initializa7ationz75zzcfa_funcallz00(((long)4473), "cfa_cfa");} 
}

