/*===========================================================================*/
/*   (Cfa/collect.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/collect.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_ccompz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_idz00;
   obj_t BgL_producerz00;
   obj_t BgL_consumerz00;
   obj_t BgL_finaliza7erza7;
} *BgL_ccompz00_bglt;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_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_nodezd2collectz12zc0zzcfa_collectz00(BgL_nodez00_bglt, BgL_variablez00_bglt);
static obj_t BGl_methodzd2initzd2zzcfa_collectz00();
static obj_t BGl_nodezd2collectz12zd2extern4612z12zzcfa_collectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_wideningzd2prezd2makezd2structzd2appz00zzcfa_info2z00(BgL_variablez00_bglt);
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
extern obj_t BGl_za2optimzd2cfazd2arithmeticzf3za2zf3zzengine_paramz00;
static obj_t BGl__collectzd2allzd2approxz12z12zzcfa_collectz00(obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_collectzd2allzd2approxz12z12zzcfa_collectz00(obj_t);
static obj_t BGl_nodezd2collectz12zd2boxzd2setz124634zd2zzcfa_collectz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl__nodezd2collectz12zd2default4592z12zzcfa_collectz00(obj_t, obj_t, obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
extern obj_t BGl_wideningzd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(BgL_variablez00_bglt);
static obj_t BGl__nodezd2collectz12zc0zzcfa_collectz00(obj_t, obj_t, obj_t);
extern bool_t BGl_vectorzd2optimzf3z21zzcfa_vectorz00();
extern obj_t BGl_scnstz00zzast_varz00;
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
extern obj_t BGl_wideningzd2prezd2procedurezd2refzd2appz00zzcfa_info2z00();
extern obj_t BGl_letzd2varzd2zzast_nodez00;
static obj_t BGl_nodezd2collectz12zd2cast4614z12zzcfa_collectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_arithmeticzd2operatorzf3z21zzcfa_specializa7eza7(BgL_globalz00_bglt);
extern obj_t BGl_za2moduleza2z00zzmodule_modulez00;
extern obj_t BGl_arithmeticzd2speczd2typesz00zzcfa_specializa7eza7(BgL_globalz00_bglt);
static obj_t BGl_nodezd2collectz12zd2conditional4618z12zzcfa_collectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_prezd2makezd2boxz00zzcfa_infoz00;
extern obj_t BGl_kwotez00zzast_nodez00;
extern obj_t BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00;
static obj_t BGl_nodezd2collectz12zd2default4592z12zzcfa_collectz00(BgL_nodez00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_globalz00zzast_varz00;
extern obj_t BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00;
static obj_t BGl_nodezd2collectz12zd2valloc4606z12zzcfa_collectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
extern obj_t BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00;
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzcfa_collectz00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
extern BgL_nodez00_bglt BGl_topzd2levelzd2sexpzd2ze3nodez31zzast_sexpz00(obj_t, obj_t);
extern obj_t BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00;
static obj_t BGl_nodezd2collectz12zd2app4604z12zzcfa_collectz00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_collectz00();
extern obj_t BGl_prezd2arithmeticzd2appz00zzcfa_info2z00;
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
extern obj_t BGl_wideningzd2prezd2makezd2boxzd2zzcfa_infoz00();
extern obj_t BGl_wideningzd2prezd2arithmeticzd2appzd2zzcfa_info2z00(obj_t);
extern obj_t BGl_wideningzd2prezd2structzd2refzd2appz00zzcfa_info2z00();
extern obj_t BGl_wideningzd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00();
extern obj_t BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00;
static obj_t BGl_nodezd2collectz12zd2funcall4610z12zzcfa_collectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_getzd2atypezd2zzcfa_collectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_getzd2allocszd2zzcfa_collectz00();
static obj_t BGl_nodezd2collectz12zd2makezd2box4632zc0zzcfa_collectz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2collectz12zd2fail4620z12zzcfa_collectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
extern obj_t BGl_vallocz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzcfa_collectz00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static bool_t BGl_monomorphiczd2vectorzf3z21zzcfa_collectz00(obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_collectz00(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_modulezd2initializa7ationz75zztype_typeofz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzmodule_modulez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_dumpz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_envz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_sexpz00(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_arithmeticz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_specializa7eza7(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_procedurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_vectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_structz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_boxz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_closurez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
static obj_t BGl_nodezd2collectz12zd2letzd2var4626zc0zzcfa_collectz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2collectz12zd2jumpzd2exzd2it4630z12zzcfa_collectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_wideningzd2prezd2structzd2setz12zd2appz12zzcfa_info2z00();
static obj_t BGl_nodezd2collectz12zd2select4622z12zzcfa_collectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_wideningzd2kwotezf2nodez20zzcfa_infoz00(BgL_nodez00_bglt);
static obj_t BGl_nodezd2collectz12zd2letzd2fun4624zc0zzcfa_collectz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00;
BGL_IMPORT obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_za2usedzd2allocza2zd2zzcfa_collectz00 = BUNSPEC;
extern obj_t BGl_cfunz00zzast_varz00;
static obj_t BGl_nodezd2collectz12zd2atom4596z12zzcfa_collectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_za2optimza2z00zzengine_paramz00;
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
extern obj_t BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00;
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_wideningzd2prezd2valloczf2Cinfozf2zzcfa_info3z00(BgL_variablez00_bglt);
extern obj_t BGl_appz00zzast_nodez00;
extern obj_t BGl_kwotezf2nodezf2zzcfa_infoz00;
static bool_t BGl_nodezd2collectza2z12z62zzcfa_collectz00(obj_t, obj_t);
static obj_t BGl_nodezd2collectz12zd2sequence4602z12zzcfa_collectz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2collectz12zd2var4600z12zzcfa_collectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_addzd2funcallz12zc0zzcfa_closurez00(BgL_nodez00_bglt);
static obj_t BGl_nodezd2collectz12zd2boxzd2ref4636zc0zzcfa_collectz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2collectz12zd2kwote4598z12zzcfa_collectz00(obj_t, obj_t, obj_t);
static obj_t BGl__getzd2allocszd2zzcfa_collectz00(obj_t);
static obj_t BGl_nodezd2collectz12zd2setzd2exzd2it4628z12zzcfa_collectz00(obj_t, obj_t, obj_t);
static obj_t BGl_nodezd2collectz12zd2setq4616z12zzcfa_collectz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzcfa_collectz00 = BUNSPEC;
extern obj_t BGl_wideningzd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(BgL_variablez00_bglt);
static obj_t BGl_nodezd2collectz12zd2appzd2ly4608zc0zzcfa_collectz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_za2warningza2z00zz__errorz00;
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
extern obj_t BGl_za2pragmazf3za2zf3zzengine_paramz00;
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_collectz00();
extern obj_t BGl_setqz00zzast_nodez00;
static obj_t __cnst[ 17 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_collectzd2allzd2approxz12zd2envzc0zzcfa_collectz00, BgL_bgl__collectza7d2allza7d2approxza712za712za7za7cfa_collectza7006759za7, BGl__collectzd2allzd2approxz12z12zzcfa_collectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2allocszd2envz00zzcfa_collectz00, BgL_bgl__getza7d2allocsza7d2za7za7cfa_collectza7006760za7, BGl__getzd2allocszd2zzcfa_collectz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_nodezd2collectz12zd2default4592zd2envzc0zzcfa_collectz00, BgL_bgl__nodeza7d2collectza712za7d2default4592za712za7za7cfa_collectza7006761za7, BGl__nodezd2collectz12zd2default4592z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_GENERIC( BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_bgl__nodeza7d2collectza712za7c0za7za7cfa_collectza7006762z00, BGl__nodezd2collectz12zc0zzcfa_collectz00, 0L, 2 );
DEFINE_STRING( BGl_string6729z00zzcfa_collectz00, BgL_bgl_string6729za700za7za7cfa_collectza7006763z00, "node-collect!-default4592 (pragma::obj \"\") c-struct-set! c-struct-ref c-make-struct (c-vector-ref c-vector-set! c-vector-length c-create-vector) c-make-vector procedure-set! procedure-ref make-va-procedure make-fx-procedure c-eq? real string boolean char integer ", 263 );
DEFINE_STRING( BGl_string6728z00zzcfa_collectz00, BgL_bgl_string6728za700za7za7cfa_collectza7006764z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string6727z00zzcfa_collectz00, BgL_bgl_string6727za700za7za7cfa_collectza7006765z00, "Illegal foreign application", 27 );
DEFINE_STRING( BGl_string6726z00zzcfa_collectz00, BgL_bgl_string6726za700za7za7cfa_collectza7006766z00, "node-collect!", 13 );
DEFINE_STATIC_PROCEDURE( BGl_proc6705z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2atom4596za712za7za7cfa_collectza7006767za7, BGl_nodezd2collectz12zd2atom4596z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6706z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2kwote4598za712za7za7cfa_collectza7006768za7, BGl_nodezd2collectz12zd2kwote4598z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6707z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2var4600za712za7za7cfa_collectza7006769za7, BGl_nodezd2collectz12zd2var4600z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6708z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2sequence4602za712za7za7cfa_collectza7006770za7, BGl_nodezd2collectz12zd2sequence4602z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6710z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2valloc4606za712za7za7cfa_collectza7006771za7, BGl_nodezd2collectz12zd2valloc4606z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6709z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2app4604za712za7za7cfa_collectza7006772za7, BGl_nodezd2collectz12zd2app4604z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6711z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2appza7d2ly4608za7c0za7za7cfa_collectza7006773z00, BGl_nodezd2collectz12zd2appzd2ly4608zc0zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6712z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2funcall4610za712za7za7cfa_collectza7006774za7, BGl_nodezd2collectz12zd2funcall4610z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6713z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2extern4612za712za7za7cfa_collectza7006775za7, BGl_nodezd2collectz12zd2extern4612z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6714z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2cast4614za712za7za7cfa_collectza7006776za7, BGl_nodezd2collectz12zd2cast4614z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6715z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2setq4616za712za7za7cfa_collectza7006777za7, BGl_nodezd2collectz12zd2setq4616z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6716z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2conditional4618za712za7za7cfa_collectza7006778za7, BGl_nodezd2collectz12zd2conditional4618z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6717z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2fail4620za712za7za7cfa_collectza7006779za7, BGl_nodezd2collectz12zd2fail4620z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6718z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2select4622za712za7za7cfa_collectza7006780za7, BGl_nodezd2collectz12zd2select4622z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6720z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2letza7d2var4626za7c0za7za7cfa_collectza7006781z00, BGl_nodezd2collectz12zd2letzd2var4626zc0zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6719z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2letza7d2fun4624za7c0za7za7cfa_collectza7006782z00, BGl_nodezd2collectz12zd2letzd2fun4624zc0zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6721z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2setza7d2exza7d2it4628za712za7za7cfa_collectza7006783za7, BGl_nodezd2collectz12zd2setzd2exzd2it4628z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6722z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2jumpza7d2exza7d2it4630za712za7za7cfa_collectza7006784za7, BGl_nodezd2collectz12zd2jumpzd2exzd2it4630z12zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6723z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2makeza7d2box4632za7c0za7za7cfa_collectza7006785z00, BGl_nodezd2collectz12zd2makezd2box4632zc0zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6724z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2boxza7d2setza7124634za7d2za7za7cfa_collectza7006786za7, BGl_nodezd2collectz12zd2boxzd2setz124634zd2zzcfa_collectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6725z00zzcfa_collectz00, BgL_bgl_nodeza7d2collectza712za7d2boxza7d2ref4636za7c0za7za7cfa_collectza7006787z00, BGl_nodezd2collectz12zd2boxzd2ref4636zc0zzcfa_collectz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_collectz00(long BgL_checksumz00_3031, char * BgL_fromz00_3032)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_collectz00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_collectz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_collectz00(); 
BGl_cnstzd2initzd2zzcfa_collectz00(); 
BGl_importedzd2moduleszd2initz00zzcfa_collectz00(); 
BGl_methodzd2initzd2zzcfa_collectz00(); 
BGl_toplevelzd2initzd2zzcfa_collectz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcfa_collectz00()
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "cfa_collect"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcfa_collectz00()
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 15 */
{ /* ./Cfa/collect.scm 15 */
obj_t BgL_cportz00_3021;
BgL_cportz00_3021 = 
open_input_string(BGl_string6729z00zzcfa_collectz00); 
{ 
long BgL_iz00_3022;
BgL_iz00_3022 = ((long)16); 
BgL_loopz00_3023:
{ /* ./Cfa/collect.scm 15 */
bool_t BgL_test6731z00_3024;
BgL_test6731z00_3024 = 
(BgL_iz00_3022==((long)-1)); 
if(BgL_test6731z00_3024)
{ /* ./Cfa/collect.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cfa/collect.scm 15 */
{ /* ./Cfa/collect.scm 15 */
obj_t BgL_arg6733z00_3025;
{ /* ./Cfa/collect.scm 15 */
obj_t BgL_list6736z00_3026;
BgL_list6736z00_3026 = 
MAKE_PAIR(BgL_cportz00_3021, BNIL); 
BgL_arg6733z00_3025 = 
BGl_readz00zz__readerz00(BgL_list6736z00_3026); } 
{ /* ./Cfa/collect.scm 15 */
int BgL_auxz00_3051;
BgL_auxz00_3051 = 
(int)(BgL_iz00_3022); 
CNST_TABLE_SET(BgL_auxz00_3051, BgL_arg6733z00_3025); } } 
{ /* ./Cfa/collect.scm 15 */
int BgL_auxz00_3027;
{ /* ./Cfa/collect.scm 15 */
long BgL_auxz00_3054;
BgL_auxz00_3054 = 
(BgL_iz00_3022-((long)1)); 
BgL_auxz00_3027 = 
(int)(BgL_auxz00_3054); } 
{ 
long BgL_iz00_3057;
BgL_iz00_3057 = 
(long)(BgL_auxz00_3027); 
BgL_iz00_3022 = BgL_iz00_3057; 
goto BgL_loopz00_3023;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcfa_collectz00()
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 15 */
return ( 
BGl_za2usedzd2allocza2zd2zzcfa_collectz00 = BNIL, BUNSPEC) ;} 
}



/* collect-all-approx! */
BGL_EXPORTED_DEF obj_t BGl_collectzd2allzd2approxz12z12zzcfa_collectz00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 45 */
{ 
obj_t BgL_l4537z00_1064;
{ /* ./Cfa/collect.scm 46 */
bool_t BgL_auxz00_3059;
BgL_l4537z00_1064 = BgL_globalsz00_1; 
BgL_forzd2each4538zd2_1065:
{ /* ./Cfa/collect.scm 46 */
bool_t BgL_test4638z00_1066;
BgL_test4638z00_1066 = 
PAIRP(BgL_l4537z00_1064); 
if(BgL_test4638z00_1066)
{ /* ./Cfa/collect.scm 46 */
{ /* ./Cfa/collect.scm 46 */
obj_t BgL_globalz00_1067;
BgL_globalz00_1067 = 
CAR(BgL_l4537z00_1064); 
{ /* ./Cfa/collect.scm 46 */
BgL_valuez00_bglt BgL_arg4640z00_1068;
{ /* ./Cfa/collect.scm 46 */
BgL_variablez00_bglt BgL_obj1120z00_1952;
BgL_obj1120z00_1952 = 
(BgL_variablez00_bglt)(BgL_globalz00_1067); 
BgL_arg4640z00_1068 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_1952))->BgL_valuez00); } 
{ /* ./Cfa/collect.scm 46 */
BgL_sfunz00_bglt BgL_valuez00_1953;BgL_globalz00_bglt BgL_globalz00_1954;
BgL_valuez00_1953 = 
(BgL_sfunz00_bglt)(BgL_arg4640z00_1068); 
BgL_globalz00_1954 = 
(BgL_globalz00_bglt)(BgL_globalz00_1067); 
{ /* ./Cfa/collect.scm 46 */
obj_t BgL_arg4650z00_1955;
BgL_arg4650z00_1955 = 
(((BgL_sfunz00_bglt)CREF(BgL_valuez00_1953))->BgL_bodyz00); 
BGl_nodezd2collectz12zc0zzcfa_collectz00(
(BgL_nodez00_bglt)(BgL_arg4650z00_1955), 
(BgL_variablez00_bglt)(BgL_globalz00_1954)); } } } } 
{ /* ./Cfa/collect.scm 46 */
obj_t BgL_arg4645z00_1069;
BgL_arg4645z00_1069 = 
CDR(BgL_l4537z00_1064); 
{ 
obj_t BgL_l4537z00_3072;
BgL_l4537z00_3072 = BgL_arg4645z00_1069; 
BgL_l4537z00_1064 = BgL_l4537z00_3072; 
goto BgL_forzd2each4538zd2_1065;} } }  else 
{ /* ./Cfa/collect.scm 46 */
BgL_auxz00_3059 = ((bool_t)1); } } 
return 
BBOOL(BgL_auxz00_3059);} } } 
}



/* _collect-all-approx! */
obj_t BGl__collectzd2allzd2approxz12z12zzcfa_collectz00(obj_t BgL_envz00_2928, obj_t BgL_globalsz00_2929)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 45 */
return 
BGl_collectzd2allzd2approxz12z12zzcfa_collectz00(BgL_globalsz00_2929);} 
}



/* monomorphic-vector? */
bool_t BGl_monomorphiczd2vectorzf3z21zzcfa_collectz00(obj_t BgL_vectorz00_12)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 92 */
{ /* ./Cfa/collect.scm 107 */
int BgL_lenz00_1072;
BgL_lenz00_1072 = 
VECTOR_LENGTH(BgL_vectorz00_12); 
{ /* ./Cfa/collect.scm 108 */
bool_t BgL_test4653z00_1073;
{ /* ./Cfa/collect.scm 108 */
long BgL_auxz00_3076;
BgL_auxz00_3076 = 
(long)(BgL_lenz00_1072); 
BgL_test4653z00_1073 = 
(BgL_auxz00_3076==((long)0)); } 
if(BgL_test4653z00_1073)
{ /* ./Cfa/collect.scm 108 */
return ((bool_t)0);}  else 
{ /* ./Cfa/collect.scm 110 */
obj_t BgL_atypez00_1074;
{ /* ./Cfa/collect.scm 110 */
obj_t BgL_arg4670z00_1082;
{ /* ./Cfa/collect.scm 110 */
int BgL_kz00_1991;
BgL_kz00_1991 = 
(int)(((long)0)); 
BgL_arg4670z00_1082 = 
VECTOR_REF(BgL_vectorz00_12,BgL_kz00_1991); } 
BgL_atypez00_1074 = 
BGl_getzd2atypezd2zzcfa_collectz00(BgL_arg4670z00_1082); } 
{ 
long BgL_iz00_1075;
BgL_iz00_1075 = ((long)1); 
BgL_loopz00_1076:
if(
CBOOL(BgL_atypez00_1074))
{ /* ./Cfa/collect.scm 115 */
bool_t BgL_test4655z00_1077;
{ /* ./Cfa/collect.scm 115 */
long BgL_auxz00_3085;
BgL_auxz00_3085 = 
(long)(BgL_lenz00_1072); 
BgL_test4655z00_1077 = 
(BgL_iz00_1075==BgL_auxz00_3085); } 
if(BgL_test4655z00_1077)
{ /* ./Cfa/collect.scm 115 */
return ((bool_t)1);}  else 
{ /* ./Cfa/collect.scm 117 */
bool_t BgL_test4656z00_1078;
{ /* ./Cfa/collect.scm 117 */
obj_t BgL_arg4662z00_1080;
{ /* ./Cfa/collect.scm 117 */
obj_t BgL_arg4665z00_1081;
{ /* ./Cfa/collect.scm 117 */
int BgL_kz00_1995;
BgL_kz00_1995 = 
(int)(BgL_iz00_1075); 
BgL_arg4665z00_1081 = 
VECTOR_REF(BgL_vectorz00_12,BgL_kz00_1995); } 
BgL_arg4662z00_1080 = 
BGl_getzd2atypezd2zzcfa_collectz00(BgL_arg4665z00_1081); } 
BgL_test4656z00_1078 = 
(BgL_arg4662z00_1080==BgL_atypez00_1074); } 
if(BgL_test4656z00_1078)
{ /* ./Cfa/collect.scm 117 */
{ /* ./Cfa/collect.scm 118 */
long BgL_arg4658z00_1079;
BgL_arg4658z00_1079 = 
(BgL_iz00_1075+((long)1)); 
{ 
long BgL_iz00_3095;
BgL_iz00_3095 = BgL_arg4658z00_1079; 
BgL_iz00_1075 = BgL_iz00_3095; 
goto BgL_loopz00_1076;} } }  else 
{ /* ./Cfa/collect.scm 117 */
return ((bool_t)0);} } }  else 
{ /* ./Cfa/collect.scm 113 */
return ((bool_t)0);} } } } } } 
}



/* get-atype */
obj_t BGl_getzd2atypezd2zzcfa_collectz00(obj_t BgL_valuez00_1083)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 106 */
{ /* ./Cfa/collect.scm 95 */
bool_t BgL_test4676z00_1085;
BgL_test4676z00_1085 = 
INTEGERP(BgL_valuez00_1083); 
if(BgL_test4676z00_1085)
{ /* ./Cfa/collect.scm 95 */
return 
CNST_TABLE_REF(((long)0));}  else 
{ /* ./Cfa/collect.scm 95 */
if(
CHARP(BgL_valuez00_1083))
{ /* ./Cfa/collect.scm 97 */
return 
CNST_TABLE_REF(((long)1));}  else 
{ /* ./Cfa/collect.scm 97 */
if(
BOOLEANP(BgL_valuez00_1083))
{ /* ./Cfa/collect.scm 99 */
return 
CNST_TABLE_REF(((long)2));}  else 
{ /* ./Cfa/collect.scm 99 */
if(
STRINGP(BgL_valuez00_1083))
{ /* ./Cfa/collect.scm 101 */
return 
CNST_TABLE_REF(((long)3));}  else 
{ /* ./Cfa/collect.scm 103 */
bool_t BgL_testz00_3108;
if(BgL_test4676z00_1085)
{ /* ./Cfa/collect.scm 103 */
BgL_testz00_3108 = ((bool_t)1)
; }  else 
{ /* ./Cfa/collect.scm 103 */
BgL_testz00_3108 = 
REALP(BgL_valuez00_1083)
; } 
if(BgL_testz00_3108)
{ /* ./Cfa/collect.scm 103 */
return 
CNST_TABLE_REF(((long)4));}  else 
{ /* ./Cfa/collect.scm 103 */
return BFALSE;} } } } } } } 
}



/* node-collect*! */
bool_t BGl_nodezd2collectza2z12z62zzcfa_collectz00(obj_t BgL_nodeza2za2_51, obj_t BgL_ownerz00_52)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 342 */
{ 
obj_t BgL_l4590z00_1091;
BgL_l4590z00_1091 = BgL_nodeza2za2_51; 
BgL_forzd2each4591zd2_1092:
{ /* ./Cfa/collect.scm 343 */
bool_t BgL_test4687z00_1093;
BgL_test4687z00_1093 = 
PAIRP(BgL_l4590z00_1091); 
if(BgL_test4687z00_1093)
{ /* ./Cfa/collect.scm 343 */
{ /* ./Cfa/collect.scm 343 */
obj_t BgL_nodez00_1094;
BgL_nodez00_1094 = 
CAR(BgL_l4590z00_1091); 
{ /* ./Cfa/collect.scm 343 */
BgL_nodez00_bglt BgL_nodez00_2007;BgL_variablez00_bglt BgL_ownerz00_2008;
BgL_nodez00_2007 = 
(BgL_nodez00_bglt)(BgL_nodez00_1094); 
BgL_ownerz00_2008 = 
(BgL_variablez00_bglt)(BgL_ownerz00_52); 
{ /* ./Cfa/collect.scm 343 */
obj_t BgL_method4594z00_2009;
{ /* ./Cfa/collect.scm 343 */
BgL_objectz00_bglt BgL_objz00_2010;
BgL_objz00_2010 = 
(BgL_objectz00_bglt)(BgL_nodez00_2007); 
{ /* ./Cfa/collect.scm 343 */
long BgL_objzd2classzd2numz00_2011;
BgL_objzd2classzd2numz00_2011 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2010); 
{ /* ./Cfa/collect.scm 343 */
obj_t BgL_arg2017z00_2012;
{ /* ./Cfa/collect.scm 343 */
int BgL_auxz00_3119;
BgL_auxz00_3119 = 
(int)(((long)1)); 
BgL_arg2017z00_2012 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3119); } 
{ /* ./Cfa/collect.scm 343 */
int BgL_offsetz00_2015;
BgL_offsetz00_2015 = 
(int)(BgL_objzd2classzd2numz00_2011); 
{ /* ./Cfa/collect.scm 343 */
long BgL_offsetz00_2016;
{ /* ./Cfa/collect.scm 343 */
long BgL_auxz00_3123;
BgL_auxz00_3123 = 
(long)(BgL_offsetz00_2015); 
BgL_offsetz00_2016 = 
(BgL_auxz00_3123-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 343 */
long BgL_modz00_2017;
{ /* ./Cfa/collect.scm 343 */
int BgL_arg2028z00_2018;
BgL_arg2028z00_2018 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 343 */
long BgL_n2z00_2026;
BgL_n2z00_2026 = 
(long)(BgL_arg2028z00_2018); 
BgL_modz00_2017 = 
(BgL_offsetz00_2016/BgL_n2z00_2026); } } 
{ /* ./Cfa/collect.scm 343 */
long BgL_restz00_2019;
{ /* ./Cfa/collect.scm 343 */
int BgL_arg2024z00_2020;
BgL_arg2024z00_2020 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 343 */
long BgL_n2z00_2029;
BgL_n2z00_2029 = 
(long)(BgL_arg2024z00_2020); 
BgL_restz00_2019 = 
(BgL_offsetz00_2016%BgL_n2z00_2029); } } 
{ /* ./Cfa/collect.scm 343 */

{ /* ./Cfa/collect.scm 343 */
obj_t BgL_bucketz00_2021;
{ /* ./Cfa/collect.scm 343 */
int BgL_kz00_2031;
BgL_kz00_2031 = 
(int)(BgL_modz00_2017); 
BgL_bucketz00_2021 = 
VECTOR_REF(BgL_arg2017z00_2012,BgL_kz00_2031); } 
{ /* ./Cfa/collect.scm 343 */
int BgL_kz00_2033;
BgL_kz00_2033 = 
(int)(BgL_restz00_2019); 
BgL_method4594z00_2009 = 
VECTOR_REF(BgL_bucketz00_2021,BgL_kz00_2033); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2009)(BgL_method4594z00_2009, 
(obj_t)(BgL_nodez00_2007), 
(obj_t)(BgL_ownerz00_2008), BEOA); } } } 
{ /* ./Cfa/collect.scm 343 */
obj_t BgL_arg4691z00_1095;
BgL_arg4691z00_1095 = 
CDR(BgL_l4590z00_1091); 
{ 
obj_t BgL_l4590z00_3141;
BgL_l4590z00_3141 = BgL_arg4691z00_1095; 
BgL_l4590z00_1091 = BgL_l4590z00_3141; 
goto BgL_forzd2each4591zd2_1092;} } }  else 
{ /* ./Cfa/collect.scm 343 */
return ((bool_t)1);} } } } 
}



/* get-allocs */
BGL_EXPORTED_DEF obj_t BGl_getzd2allocszd2zzcfa_collectz00()
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 365 */
return BGl_za2usedzd2allocza2zd2zzcfa_collectz00;} 
}



/* _get-allocs */
obj_t BGl__getzd2allocszd2zzcfa_collectz00(obj_t BgL_envz00_2933)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 365 */
return BGl_za2usedzd2allocza2zd2zzcfa_collectz00;} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_collectz00()
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_nodezd2collectz12zd2default4592zd2envzc0zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_atomz00zzast_nodez00, BGl_proc6705z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_kwotez00zzast_nodez00, BGl_proc6706z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_varz00zzast_nodez00, BGl_proc6707z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_sequencez00zzast_nodez00, BGl_proc6708z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_appz00zzast_nodez00, BGl_proc6709z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_vallocz00zzast_nodez00, BGl_proc6710z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc6711z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_funcallz00zzast_nodez00, BGl_proc6712z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_externz00zzast_nodez00, BGl_proc6713z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_castz00zzast_nodez00, BGl_proc6714z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_setqz00zzast_nodez00, BGl_proc6715z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_conditionalz00zzast_nodez00, BGl_proc6716z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_failz00zzast_nodez00, BGl_proc6717z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_selectz00zzast_nodez00, BGl_proc6718z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_letzd2funzd2zzast_nodez00, BGl_proc6719z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_letzd2varzd2zzast_nodez00, BGl_proc6720z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc6721z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc6722z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc6723z00zzcfa_collectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc6724z00zzcfa_collectz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc6725z00zzcfa_collectz00);} 
}



/* node-collect!-box-ref4636 */
obj_t BGl_nodezd2collectz12zd2boxzd2ref4636zc0zzcfa_collectz00(obj_t BgL_envz00_2955, obj_t BgL_nodez00_2956, obj_t BgL_ownerz00_2957)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 335 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1941;obj_t BgL_ownerz00_1942;
BgL_nodez00_1941 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2956); 
BgL_ownerz00_1942 = BgL_ownerz00_2957; 
{ /* ./Cfa/collect.scm 336 */
BgL_varz00_bglt BgL_arg6037z00_2871;
BgL_arg6037z00_2871 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1941))->BgL_varz00); 
{ /* ./Cfa/collect.scm 336 */
BgL_nodez00_bglt BgL_nodez00_2873;BgL_variablez00_bglt BgL_ownerz00_2874;
BgL_nodez00_2873 = 
(BgL_nodez00_bglt)(BgL_arg6037z00_2871); 
BgL_ownerz00_2874 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1942); 
{ /* ./Cfa/collect.scm 336 */
obj_t BgL_method4594z00_2875;
{ /* ./Cfa/collect.scm 336 */
BgL_objectz00_bglt BgL_objz00_2876;
BgL_objz00_2876 = 
(BgL_objectz00_bglt)(BgL_nodez00_2873); 
{ /* ./Cfa/collect.scm 336 */
long BgL_objzd2classzd2numz00_2877;
BgL_objzd2classzd2numz00_2877 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2876); 
{ /* ./Cfa/collect.scm 336 */
obj_t BgL_arg2017z00_2878;
{ /* ./Cfa/collect.scm 336 */
int BgL_auxz00_3169;
BgL_auxz00_3169 = 
(int)(((long)1)); 
BgL_arg2017z00_2878 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3169); } 
{ /* ./Cfa/collect.scm 336 */
int BgL_offsetz00_2881;
BgL_offsetz00_2881 = 
(int)(BgL_objzd2classzd2numz00_2877); 
{ /* ./Cfa/collect.scm 336 */
long BgL_offsetz00_2882;
{ /* ./Cfa/collect.scm 336 */
long BgL_auxz00_3173;
BgL_auxz00_3173 = 
(long)(BgL_offsetz00_2881); 
BgL_offsetz00_2882 = 
(BgL_auxz00_3173-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 336 */
long BgL_modz00_2883;
{ /* ./Cfa/collect.scm 336 */
int BgL_arg2028z00_2884;
BgL_arg2028z00_2884 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 336 */
long BgL_n2z00_2892;
BgL_n2z00_2892 = 
(long)(BgL_arg2028z00_2884); 
BgL_modz00_2883 = 
(BgL_offsetz00_2882/BgL_n2z00_2892); } } 
{ /* ./Cfa/collect.scm 336 */
long BgL_restz00_2885;
{ /* ./Cfa/collect.scm 336 */
int BgL_arg2024z00_2886;
BgL_arg2024z00_2886 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 336 */
long BgL_n2z00_2895;
BgL_n2z00_2895 = 
(long)(BgL_arg2024z00_2886); 
BgL_restz00_2885 = 
(BgL_offsetz00_2882%BgL_n2z00_2895); } } 
{ /* ./Cfa/collect.scm 336 */

{ /* ./Cfa/collect.scm 336 */
obj_t BgL_bucketz00_2887;
{ /* ./Cfa/collect.scm 336 */
int BgL_kz00_2897;
BgL_kz00_2897 = 
(int)(BgL_modz00_2883); 
BgL_bucketz00_2887 = 
VECTOR_REF(BgL_arg2017z00_2878,BgL_kz00_2897); } 
{ /* ./Cfa/collect.scm 336 */
int BgL_kz00_2899;
BgL_kz00_2899 = 
(int)(BgL_restz00_2885); 
BgL_method4594z00_2875 = 
VECTOR_REF(BgL_bucketz00_2887,BgL_kz00_2899); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2875)(BgL_method4594z00_2875, 
(obj_t)(BgL_nodez00_2873), 
(obj_t)(BgL_ownerz00_2874), BEOA);} } } } } 
}



/* node-collect!-box-set!4634 */
obj_t BGl_nodezd2collectz12zd2boxzd2setz124634zd2zzcfa_collectz00(obj_t BgL_envz00_2958, obj_t BgL_nodez00_2959, obj_t BgL_ownerz00_2960)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 327 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1932;obj_t BgL_ownerz00_1933;
BgL_nodez00_1932 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2959); 
BgL_ownerz00_1933 = BgL_ownerz00_2960; 
{ /* ./Cfa/collect.scm 328 */
BgL_varz00_bglt BgL_arg6023z00_2812;
BgL_arg6023z00_2812 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1932))->BgL_varz00); 
{ /* ./Cfa/collect.scm 328 */
BgL_nodez00_bglt BgL_nodez00_2815;BgL_variablez00_bglt BgL_ownerz00_2816;
BgL_nodez00_2815 = 
(BgL_nodez00_bglt)(BgL_arg6023z00_2812); 
BgL_ownerz00_2816 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1933); 
{ /* ./Cfa/collect.scm 328 */
obj_t BgL_method4594z00_2817;
{ /* ./Cfa/collect.scm 328 */
BgL_objectz00_bglt BgL_objz00_2818;
BgL_objz00_2818 = 
(BgL_objectz00_bglt)(BgL_nodez00_2815); 
{ /* ./Cfa/collect.scm 328 */
long BgL_objzd2classzd2numz00_2819;
BgL_objzd2classzd2numz00_2819 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2818); 
{ /* ./Cfa/collect.scm 328 */
obj_t BgL_arg2017z00_2820;
{ /* ./Cfa/collect.scm 328 */
int BgL_auxz00_3196;
BgL_auxz00_3196 = 
(int)(((long)1)); 
BgL_arg2017z00_2820 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3196); } 
{ /* ./Cfa/collect.scm 328 */
int BgL_offsetz00_2823;
BgL_offsetz00_2823 = 
(int)(BgL_objzd2classzd2numz00_2819); 
{ /* ./Cfa/collect.scm 328 */
long BgL_offsetz00_2824;
{ /* ./Cfa/collect.scm 328 */
long BgL_auxz00_3200;
BgL_auxz00_3200 = 
(long)(BgL_offsetz00_2823); 
BgL_offsetz00_2824 = 
(BgL_auxz00_3200-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 328 */
long BgL_modz00_2825;
{ /* ./Cfa/collect.scm 328 */
int BgL_arg2028z00_2826;
BgL_arg2028z00_2826 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 328 */
long BgL_n2z00_2834;
BgL_n2z00_2834 = 
(long)(BgL_arg2028z00_2826); 
BgL_modz00_2825 = 
(BgL_offsetz00_2824/BgL_n2z00_2834); } } 
{ /* ./Cfa/collect.scm 328 */
long BgL_restz00_2827;
{ /* ./Cfa/collect.scm 328 */
int BgL_arg2024z00_2828;
BgL_arg2024z00_2828 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 328 */
long BgL_n2z00_2837;
BgL_n2z00_2837 = 
(long)(BgL_arg2024z00_2828); 
BgL_restz00_2827 = 
(BgL_offsetz00_2824%BgL_n2z00_2837); } } 
{ /* ./Cfa/collect.scm 328 */

{ /* ./Cfa/collect.scm 328 */
obj_t BgL_bucketz00_2829;
{ /* ./Cfa/collect.scm 328 */
int BgL_kz00_2839;
BgL_kz00_2839 = 
(int)(BgL_modz00_2825); 
BgL_bucketz00_2829 = 
VECTOR_REF(BgL_arg2017z00_2820,BgL_kz00_2839); } 
{ /* ./Cfa/collect.scm 328 */
int BgL_kz00_2841;
BgL_kz00_2841 = 
(int)(BgL_restz00_2827); 
BgL_method4594z00_2817 = 
VECTOR_REF(BgL_bucketz00_2829,BgL_kz00_2841); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2817)(BgL_method4594z00_2817, 
(obj_t)(BgL_nodez00_2815), 
(obj_t)(BgL_ownerz00_2816), BEOA); } } } 
{ /* ./Cfa/collect.scm 328 */
BgL_nodez00_bglt BgL_arg6027z00_2813;
BgL_arg6027z00_2813 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1932))->BgL_valuez00); 
{ /* ./Cfa/collect.scm 328 */
BgL_variablez00_bglt BgL_ownerz00_2844;
BgL_ownerz00_2844 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1933); 
{ /* ./Cfa/collect.scm 328 */
obj_t BgL_method4594z00_2845;
{ /* ./Cfa/collect.scm 328 */
BgL_objectz00_bglt BgL_objz00_2846;
BgL_objz00_2846 = 
(BgL_objectz00_bglt)(BgL_arg6027z00_2813); 
{ /* ./Cfa/collect.scm 328 */
long BgL_objzd2classzd2numz00_2847;
BgL_objzd2classzd2numz00_2847 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2846); 
{ /* ./Cfa/collect.scm 328 */
obj_t BgL_arg2017z00_2848;
{ /* ./Cfa/collect.scm 328 */
int BgL_auxz00_3221;
BgL_auxz00_3221 = 
(int)(((long)1)); 
BgL_arg2017z00_2848 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3221); } 
{ /* ./Cfa/collect.scm 328 */
int BgL_offsetz00_2851;
BgL_offsetz00_2851 = 
(int)(BgL_objzd2classzd2numz00_2847); 
{ /* ./Cfa/collect.scm 328 */
long BgL_offsetz00_2852;
{ /* ./Cfa/collect.scm 328 */
long BgL_auxz00_3225;
BgL_auxz00_3225 = 
(long)(BgL_offsetz00_2851); 
BgL_offsetz00_2852 = 
(BgL_auxz00_3225-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 328 */
long BgL_modz00_2853;
{ /* ./Cfa/collect.scm 328 */
int BgL_arg2028z00_2854;
BgL_arg2028z00_2854 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 328 */
long BgL_n2z00_2862;
BgL_n2z00_2862 = 
(long)(BgL_arg2028z00_2854); 
BgL_modz00_2853 = 
(BgL_offsetz00_2852/BgL_n2z00_2862); } } 
{ /* ./Cfa/collect.scm 328 */
long BgL_restz00_2855;
{ /* ./Cfa/collect.scm 328 */
int BgL_arg2024z00_2856;
BgL_arg2024z00_2856 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 328 */
long BgL_n2z00_2865;
BgL_n2z00_2865 = 
(long)(BgL_arg2024z00_2856); 
BgL_restz00_2855 = 
(BgL_offsetz00_2852%BgL_n2z00_2865); } } 
{ /* ./Cfa/collect.scm 328 */

{ /* ./Cfa/collect.scm 328 */
obj_t BgL_bucketz00_2857;
{ /* ./Cfa/collect.scm 328 */
int BgL_kz00_2867;
BgL_kz00_2867 = 
(int)(BgL_modz00_2853); 
BgL_bucketz00_2857 = 
VECTOR_REF(BgL_arg2017z00_2848,BgL_kz00_2867); } 
{ /* ./Cfa/collect.scm 328 */
int BgL_kz00_2869;
BgL_kz00_2869 = 
(int)(BgL_restz00_2855); 
BgL_method4594z00_2845 = 
VECTOR_REF(BgL_bucketz00_2857,BgL_kz00_2869); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2845)(BgL_method4594z00_2845, 
(obj_t)(BgL_arg6027z00_2813), 
(obj_t)(BgL_ownerz00_2844), BEOA);} } } } } 
}



/* node-collect!-make-box4632 */
obj_t BGl_nodezd2collectz12zd2makezd2box4632zc0zzcfa_collectz00(obj_t BgL_envz00_2961, obj_t BgL_nodez00_2962, obj_t BgL_ownerz00_2963)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 317 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1921;obj_t BgL_ownerz00_1922;
BgL_nodez00_1921 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2962); 
BgL_ownerz00_1922 = BgL_ownerz00_2963; 
{ /* ./Cfa/collect.scm 318 */
BgL_nodez00_bglt BgL_arg6001z00_1925;
BgL_arg6001z00_1925 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1921))->BgL_valuez00); 
{ /* ./Cfa/collect.scm 318 */
BgL_variablez00_bglt BgL_ownerz00_2779;
BgL_ownerz00_2779 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1922); 
{ /* ./Cfa/collect.scm 318 */
obj_t BgL_method4594z00_2780;
{ /* ./Cfa/collect.scm 318 */
BgL_objectz00_bglt BgL_objz00_2781;
BgL_objz00_2781 = 
(BgL_objectz00_bglt)(BgL_arg6001z00_1925); 
{ /* ./Cfa/collect.scm 318 */
long BgL_objzd2classzd2numz00_2782;
BgL_objzd2classzd2numz00_2782 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2781); 
{ /* ./Cfa/collect.scm 318 */
obj_t BgL_arg2017z00_2783;
{ /* ./Cfa/collect.scm 318 */
int BgL_auxz00_3247;
BgL_auxz00_3247 = 
(int)(((long)1)); 
BgL_arg2017z00_2783 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3247); } 
{ /* ./Cfa/collect.scm 318 */
int BgL_offsetz00_2786;
BgL_offsetz00_2786 = 
(int)(BgL_objzd2classzd2numz00_2782); 
{ /* ./Cfa/collect.scm 318 */
long BgL_offsetz00_2787;
{ /* ./Cfa/collect.scm 318 */
long BgL_auxz00_3251;
BgL_auxz00_3251 = 
(long)(BgL_offsetz00_2786); 
BgL_offsetz00_2787 = 
(BgL_auxz00_3251-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 318 */
long BgL_modz00_2788;
{ /* ./Cfa/collect.scm 318 */
int BgL_arg2028z00_2789;
BgL_arg2028z00_2789 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 318 */
long BgL_n2z00_2797;
BgL_n2z00_2797 = 
(long)(BgL_arg2028z00_2789); 
BgL_modz00_2788 = 
(BgL_offsetz00_2787/BgL_n2z00_2797); } } 
{ /* ./Cfa/collect.scm 318 */
long BgL_restz00_2790;
{ /* ./Cfa/collect.scm 318 */
int BgL_arg2024z00_2791;
BgL_arg2024z00_2791 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 318 */
long BgL_n2z00_2800;
BgL_n2z00_2800 = 
(long)(BgL_arg2024z00_2791); 
BgL_restz00_2790 = 
(BgL_offsetz00_2787%BgL_n2z00_2800); } } 
{ /* ./Cfa/collect.scm 318 */

{ /* ./Cfa/collect.scm 318 */
obj_t BgL_bucketz00_2792;
{ /* ./Cfa/collect.scm 318 */
int BgL_kz00_2802;
BgL_kz00_2802 = 
(int)(BgL_modz00_2788); 
BgL_bucketz00_2792 = 
VECTOR_REF(BgL_arg2017z00_2783,BgL_kz00_2802); } 
{ /* ./Cfa/collect.scm 318 */
int BgL_kz00_2804;
BgL_kz00_2804 = 
(int)(BgL_restz00_2790); 
BgL_method4594z00_2780 = 
VECTOR_REF(BgL_bucketz00_2792,BgL_kz00_2804); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2780)(BgL_method4594z00_2780, 
(obj_t)(BgL_arg6001z00_1925), 
(obj_t)(BgL_ownerz00_2779), BEOA); } } } 
{ /* ./Cfa/collect.scm 319 */
bool_t BgL_test6004z00_1926;
{ /* ./Cfa/collect.scm 319 */
long BgL_n1z00_2805;
BgL_n1z00_2805 = 
(long)CINT(BGl_za2optimza2z00zzengine_paramz00); 
BgL_test6004z00_1926 = 
(BgL_n1z00_2805>=((long)1)); } 
if(BgL_test6004z00_1926)
{ /* ./Cfa/collect.scm 319 */
{ /* ./Cfa/collect.scm 321 */
obj_t BgL_auxz00_3271;
BgL_auxz00_3271 = 
(obj_t)(BgL_nodez00_1921); 
BGl_za2usedzd2allocza2zd2zzcfa_collectz00 = 
MAKE_PAIR(BgL_auxz00_3271, BGl_za2usedzd2allocza2zd2zzcfa_collectz00); } 
{ /* ./Cfa/collect.scm 322 */
BgL_makezd2boxzd2_bglt BgL_obj4585z00_1927;
BgL_obj4585z00_1927 = 
((BgL_makezd2boxzd2_bglt)BgL_nodez00_1921); 
{ /* ./Cfa/collect.scm 322 */
obj_t BgL_arg6007z00_1928;
BgL_arg6007z00_1928 = 
BGl_wideningzd2prezd2makezd2boxzd2zzcfa_infoz00(); 
{ /* ./Cfa/collect.scm 322 */
BgL_objectz00_bglt BgL_auxz00_3276;
BgL_auxz00_3276 = 
(BgL_objectz00_bglt)(BgL_obj4585z00_1927); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3276, BgL_arg6007z00_1928); } } 
{ /* ./Cfa/collect.scm 322 */
long BgL_arg6011z00_1929;
BgL_arg6011z00_1929 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2boxz00zzcfa_infoz00); 
{ /* ./Cfa/collect.scm 322 */
BgL_objectz00_bglt BgL_objz00_2808;
BgL_objz00_2808 = 
(BgL_objectz00_bglt)(BgL_obj4585z00_1927); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2808, BgL_arg6011z00_1929); } } 
{ /* ./Cfa/collect.scm 322 */
obj_t BgL_objz00_2810;
BgL_objz00_2810 = 
(obj_t)(BgL_obj4585z00_1927); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2810); BUNSPEC; } 
return 
(obj_t)(BgL_obj4585z00_1927);} }  else 
{ /* ./Cfa/collect.scm 319 */
return BFALSE;} } } } 
}



/* node-collect!-jump-ex-it4630 */
obj_t BGl_nodezd2collectz12zd2jumpzd2exzd2it4630z12zzcfa_collectz00(obj_t BgL_envz00_2964, obj_t BgL_nodez00_2965, obj_t BgL_ownerz00_2966)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 309 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1912;obj_t BgL_ownerz00_1913;
BgL_nodez00_1912 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2965); 
BgL_ownerz00_1913 = BgL_ownerz00_2966; 
{ /* ./Cfa/collect.scm 310 */
BgL_nodez00_bglt BgL_arg5987z00_2719;
BgL_arg5987z00_2719 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1912))->BgL_exitz00); 
{ /* ./Cfa/collect.scm 310 */
BgL_variablez00_bglt BgL_ownerz00_2723;
BgL_ownerz00_2723 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1913); 
{ /* ./Cfa/collect.scm 310 */
obj_t BgL_method4594z00_2724;
{ /* ./Cfa/collect.scm 310 */
BgL_objectz00_bglt BgL_objz00_2725;
BgL_objz00_2725 = 
(BgL_objectz00_bglt)(BgL_arg5987z00_2719); 
{ /* ./Cfa/collect.scm 310 */
long BgL_objzd2classzd2numz00_2726;
BgL_objzd2classzd2numz00_2726 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2725); 
{ /* ./Cfa/collect.scm 310 */
obj_t BgL_arg2017z00_2727;
{ /* ./Cfa/collect.scm 310 */
int BgL_auxz00_3290;
BgL_auxz00_3290 = 
(int)(((long)1)); 
BgL_arg2017z00_2727 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3290); } 
{ /* ./Cfa/collect.scm 310 */
int BgL_offsetz00_2730;
BgL_offsetz00_2730 = 
(int)(BgL_objzd2classzd2numz00_2726); 
{ /* ./Cfa/collect.scm 310 */
long BgL_offsetz00_2731;
{ /* ./Cfa/collect.scm 310 */
long BgL_auxz00_3294;
BgL_auxz00_3294 = 
(long)(BgL_offsetz00_2730); 
BgL_offsetz00_2731 = 
(BgL_auxz00_3294-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 310 */
long BgL_modz00_2732;
{ /* ./Cfa/collect.scm 310 */
int BgL_arg2028z00_2733;
BgL_arg2028z00_2733 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 310 */
long BgL_n2z00_2741;
BgL_n2z00_2741 = 
(long)(BgL_arg2028z00_2733); 
BgL_modz00_2732 = 
(BgL_offsetz00_2731/BgL_n2z00_2741); } } 
{ /* ./Cfa/collect.scm 310 */
long BgL_restz00_2734;
{ /* ./Cfa/collect.scm 310 */
int BgL_arg2024z00_2735;
BgL_arg2024z00_2735 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 310 */
long BgL_n2z00_2744;
BgL_n2z00_2744 = 
(long)(BgL_arg2024z00_2735); 
BgL_restz00_2734 = 
(BgL_offsetz00_2731%BgL_n2z00_2744); } } 
{ /* ./Cfa/collect.scm 310 */

{ /* ./Cfa/collect.scm 310 */
obj_t BgL_bucketz00_2736;
{ /* ./Cfa/collect.scm 310 */
int BgL_kz00_2746;
BgL_kz00_2746 = 
(int)(BgL_modz00_2732); 
BgL_bucketz00_2736 = 
VECTOR_REF(BgL_arg2017z00_2727,BgL_kz00_2746); } 
{ /* ./Cfa/collect.scm 310 */
int BgL_kz00_2748;
BgL_kz00_2748 = 
(int)(BgL_restz00_2734); 
BgL_method4594z00_2724 = 
VECTOR_REF(BgL_bucketz00_2736,BgL_kz00_2748); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2724)(BgL_method4594z00_2724, 
(obj_t)(BgL_arg5987z00_2719), 
(obj_t)(BgL_ownerz00_2723), BEOA); } } } 
{ /* ./Cfa/collect.scm 310 */
BgL_nodez00_bglt BgL_arg5991z00_2720;
BgL_arg5991z00_2720 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1912))->BgL_valuez00); 
{ /* ./Cfa/collect.scm 310 */
BgL_variablez00_bglt BgL_ownerz00_2751;
BgL_ownerz00_2751 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1913); 
{ /* ./Cfa/collect.scm 310 */
obj_t BgL_method4594z00_2752;
{ /* ./Cfa/collect.scm 310 */
BgL_objectz00_bglt BgL_objz00_2753;
BgL_objz00_2753 = 
(BgL_objectz00_bglt)(BgL_arg5991z00_2720); 
{ /* ./Cfa/collect.scm 310 */
long BgL_objzd2classzd2numz00_2754;
BgL_objzd2classzd2numz00_2754 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2753); 
{ /* ./Cfa/collect.scm 310 */
obj_t BgL_arg2017z00_2755;
{ /* ./Cfa/collect.scm 310 */
int BgL_auxz00_3315;
BgL_auxz00_3315 = 
(int)(((long)1)); 
BgL_arg2017z00_2755 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3315); } 
{ /* ./Cfa/collect.scm 310 */
int BgL_offsetz00_2758;
BgL_offsetz00_2758 = 
(int)(BgL_objzd2classzd2numz00_2754); 
{ /* ./Cfa/collect.scm 310 */
long BgL_offsetz00_2759;
{ /* ./Cfa/collect.scm 310 */
long BgL_auxz00_3319;
BgL_auxz00_3319 = 
(long)(BgL_offsetz00_2758); 
BgL_offsetz00_2759 = 
(BgL_auxz00_3319-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 310 */
long BgL_modz00_2760;
{ /* ./Cfa/collect.scm 310 */
int BgL_arg2028z00_2761;
BgL_arg2028z00_2761 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 310 */
long BgL_n2z00_2769;
BgL_n2z00_2769 = 
(long)(BgL_arg2028z00_2761); 
BgL_modz00_2760 = 
(BgL_offsetz00_2759/BgL_n2z00_2769); } } 
{ /* ./Cfa/collect.scm 310 */
long BgL_restz00_2762;
{ /* ./Cfa/collect.scm 310 */
int BgL_arg2024z00_2763;
BgL_arg2024z00_2763 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 310 */
long BgL_n2z00_2772;
BgL_n2z00_2772 = 
(long)(BgL_arg2024z00_2763); 
BgL_restz00_2762 = 
(BgL_offsetz00_2759%BgL_n2z00_2772); } } 
{ /* ./Cfa/collect.scm 310 */

{ /* ./Cfa/collect.scm 310 */
obj_t BgL_bucketz00_2764;
{ /* ./Cfa/collect.scm 310 */
int BgL_kz00_2774;
BgL_kz00_2774 = 
(int)(BgL_modz00_2760); 
BgL_bucketz00_2764 = 
VECTOR_REF(BgL_arg2017z00_2755,BgL_kz00_2774); } 
{ /* ./Cfa/collect.scm 310 */
int BgL_kz00_2776;
BgL_kz00_2776 = 
(int)(BgL_restz00_2762); 
BgL_method4594z00_2752 = 
VECTOR_REF(BgL_bucketz00_2764,BgL_kz00_2776); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2752)(BgL_method4594z00_2752, 
(obj_t)(BgL_arg5991z00_2720), 
(obj_t)(BgL_ownerz00_2751), BEOA);} } } } } 
}



/* node-collect!-set-ex-it4628 */
obj_t BGl_nodezd2collectz12zd2setzd2exzd2it4628z12zzcfa_collectz00(obj_t BgL_envz00_2967, obj_t BgL_nodez00_2968, obj_t BgL_ownerz00_2969)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 302 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1904;obj_t BgL_ownerz00_1905;
BgL_nodez00_1904 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2968); 
BgL_ownerz00_1905 = BgL_ownerz00_2969; 
{ /* ./Cfa/collect.scm 303 */
BgL_nodez00_bglt BgL_arg5977z00_2689;
BgL_arg5977z00_2689 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1904))->BgL_bodyz00); 
{ /* ./Cfa/collect.scm 303 */
BgL_variablez00_bglt BgL_ownerz00_2692;
BgL_ownerz00_2692 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1905); 
{ /* ./Cfa/collect.scm 303 */
obj_t BgL_method4594z00_2693;
{ /* ./Cfa/collect.scm 303 */
BgL_objectz00_bglt BgL_objz00_2694;
BgL_objz00_2694 = 
(BgL_objectz00_bglt)(BgL_arg5977z00_2689); 
{ /* ./Cfa/collect.scm 303 */
long BgL_objzd2classzd2numz00_2695;
BgL_objzd2classzd2numz00_2695 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2694); 
{ /* ./Cfa/collect.scm 303 */
obj_t BgL_arg2017z00_2696;
{ /* ./Cfa/collect.scm 303 */
int BgL_auxz00_3341;
BgL_auxz00_3341 = 
(int)(((long)1)); 
BgL_arg2017z00_2696 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3341); } 
{ /* ./Cfa/collect.scm 303 */
int BgL_offsetz00_2699;
BgL_offsetz00_2699 = 
(int)(BgL_objzd2classzd2numz00_2695); 
{ /* ./Cfa/collect.scm 303 */
long BgL_offsetz00_2700;
{ /* ./Cfa/collect.scm 303 */
long BgL_auxz00_3345;
BgL_auxz00_3345 = 
(long)(BgL_offsetz00_2699); 
BgL_offsetz00_2700 = 
(BgL_auxz00_3345-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 303 */
long BgL_modz00_2701;
{ /* ./Cfa/collect.scm 303 */
int BgL_arg2028z00_2702;
BgL_arg2028z00_2702 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 303 */
long BgL_n2z00_2710;
BgL_n2z00_2710 = 
(long)(BgL_arg2028z00_2702); 
BgL_modz00_2701 = 
(BgL_offsetz00_2700/BgL_n2z00_2710); } } 
{ /* ./Cfa/collect.scm 303 */
long BgL_restz00_2703;
{ /* ./Cfa/collect.scm 303 */
int BgL_arg2024z00_2704;
BgL_arg2024z00_2704 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 303 */
long BgL_n2z00_2713;
BgL_n2z00_2713 = 
(long)(BgL_arg2024z00_2704); 
BgL_restz00_2703 = 
(BgL_offsetz00_2700%BgL_n2z00_2713); } } 
{ /* ./Cfa/collect.scm 303 */

{ /* ./Cfa/collect.scm 303 */
obj_t BgL_bucketz00_2705;
{ /* ./Cfa/collect.scm 303 */
int BgL_kz00_2715;
BgL_kz00_2715 = 
(int)(BgL_modz00_2701); 
BgL_bucketz00_2705 = 
VECTOR_REF(BgL_arg2017z00_2696,BgL_kz00_2715); } 
{ /* ./Cfa/collect.scm 303 */
int BgL_kz00_2717;
BgL_kz00_2717 = 
(int)(BgL_restz00_2703); 
BgL_method4594z00_2693 = 
VECTOR_REF(BgL_bucketz00_2705,BgL_kz00_2717); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2693)(BgL_method4594z00_2693, 
(obj_t)(BgL_arg5977z00_2689), 
(obj_t)(BgL_ownerz00_2692), BEOA);} } } } } 
}



/* node-collect!-let-var4626 */
obj_t BGl_nodezd2collectz12zd2letzd2var4626zc0zzcfa_collectz00(obj_t BgL_envz00_2970, obj_t BgL_nodez00_2971, obj_t BgL_ownerz00_2972)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 292 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1889;obj_t BgL_ownerz00_1890;
BgL_nodez00_1889 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2971); 
BgL_ownerz00_1890 = BgL_ownerz00_2972; 
{ 
obj_t BgL_l4579z00_1894;
{ /* ./Cfa/collect.scm 294 */
obj_t BgL_arg5952z00_1896;
BgL_arg5952z00_1896 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1889))->BgL_bindingsz00); 
BgL_l4579z00_1894 = BgL_arg5952z00_1896; 
BgL_forzd2each4580zd2_1895:
{ /* ./Cfa/collect.scm 294 */
bool_t BgL_test5955z00_1897;
BgL_test5955z00_1897 = 
PAIRP(BgL_l4579z00_1894); 
if(BgL_test5955z00_1897)
{ /* ./Cfa/collect.scm 294 */
{ /* ./Cfa/collect.scm 295 */
obj_t BgL_bindingz00_1898;
BgL_bindingz00_1898 = 
CAR(BgL_l4579z00_1894); 
{ /* ./Cfa/collect.scm 295 */
obj_t BgL_arg5957z00_1899;
BgL_arg5957z00_1899 = 
CDR(BgL_bindingz00_1898); 
{ /* ./Cfa/collect.scm 295 */
BgL_nodez00_bglt BgL_nodez00_2632;BgL_variablez00_bglt BgL_ownerz00_2633;
BgL_nodez00_2632 = 
(BgL_nodez00_bglt)(BgL_arg5957z00_1899); 
BgL_ownerz00_2633 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1890); 
{ /* ./Cfa/collect.scm 295 */
obj_t BgL_method4594z00_2634;
{ /* ./Cfa/collect.scm 295 */
BgL_objectz00_bglt BgL_objz00_2635;
BgL_objz00_2635 = 
(BgL_objectz00_bglt)(BgL_nodez00_2632); 
{ /* ./Cfa/collect.scm 295 */
long BgL_objzd2classzd2numz00_2636;
BgL_objzd2classzd2numz00_2636 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2635); 
{ /* ./Cfa/collect.scm 295 */
obj_t BgL_arg2017z00_2637;
{ /* ./Cfa/collect.scm 295 */
int BgL_auxz00_3372;
BgL_auxz00_3372 = 
(int)(((long)1)); 
BgL_arg2017z00_2637 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3372); } 
{ /* ./Cfa/collect.scm 295 */
int BgL_offsetz00_2640;
BgL_offsetz00_2640 = 
(int)(BgL_objzd2classzd2numz00_2636); 
{ /* ./Cfa/collect.scm 295 */
long BgL_offsetz00_2641;
{ /* ./Cfa/collect.scm 295 */
long BgL_auxz00_3376;
BgL_auxz00_3376 = 
(long)(BgL_offsetz00_2640); 
BgL_offsetz00_2641 = 
(BgL_auxz00_3376-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 295 */
long BgL_modz00_2642;
{ /* ./Cfa/collect.scm 295 */
int BgL_arg2028z00_2643;
BgL_arg2028z00_2643 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 295 */
long BgL_n2z00_2651;
BgL_n2z00_2651 = 
(long)(BgL_arg2028z00_2643); 
BgL_modz00_2642 = 
(BgL_offsetz00_2641/BgL_n2z00_2651); } } 
{ /* ./Cfa/collect.scm 295 */
long BgL_restz00_2644;
{ /* ./Cfa/collect.scm 295 */
int BgL_arg2024z00_2645;
BgL_arg2024z00_2645 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 295 */
long BgL_n2z00_2654;
BgL_n2z00_2654 = 
(long)(BgL_arg2024z00_2645); 
BgL_restz00_2644 = 
(BgL_offsetz00_2641%BgL_n2z00_2654); } } 
{ /* ./Cfa/collect.scm 295 */

{ /* ./Cfa/collect.scm 295 */
obj_t BgL_bucketz00_2646;
{ /* ./Cfa/collect.scm 295 */
int BgL_kz00_2656;
BgL_kz00_2656 = 
(int)(BgL_modz00_2642); 
BgL_bucketz00_2646 = 
VECTOR_REF(BgL_arg2017z00_2637,BgL_kz00_2656); } 
{ /* ./Cfa/collect.scm 295 */
int BgL_kz00_2658;
BgL_kz00_2658 = 
(int)(BgL_restz00_2644); 
BgL_method4594z00_2634 = 
VECTOR_REF(BgL_bucketz00_2646,BgL_kz00_2658); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2634)(BgL_method4594z00_2634, 
(obj_t)(BgL_nodez00_2632), 
(obj_t)(BgL_ownerz00_2633), BEOA); } } } } 
{ /* ./Cfa/collect.scm 294 */
obj_t BgL_arg5962z00_1900;
BgL_arg5962z00_1900 = 
CDR(BgL_l4579z00_1894); 
{ 
obj_t BgL_l4579z00_3394;
BgL_l4579z00_3394 = BgL_arg5962z00_1900; 
BgL_l4579z00_1894 = BgL_l4579z00_3394; 
goto BgL_forzd2each4580zd2_1895;} } }  else 
{ /* ./Cfa/collect.scm 294 */((bool_t)1); } } } } 
{ /* ./Cfa/collect.scm 297 */
BgL_nodez00_bglt BgL_arg5967z00_1901;
BgL_arg5967z00_1901 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1889))->BgL_bodyz00); 
{ /* ./Cfa/collect.scm 297 */
BgL_variablez00_bglt BgL_ownerz00_2662;
BgL_ownerz00_2662 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1890); 
{ /* ./Cfa/collect.scm 297 */
obj_t BgL_method4594z00_2663;
{ /* ./Cfa/collect.scm 297 */
BgL_objectz00_bglt BgL_objz00_2664;
BgL_objz00_2664 = 
(BgL_objectz00_bglt)(BgL_arg5967z00_1901); 
{ /* ./Cfa/collect.scm 297 */
long BgL_objzd2classzd2numz00_2665;
BgL_objzd2classzd2numz00_2665 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2664); 
{ /* ./Cfa/collect.scm 297 */
obj_t BgL_arg2017z00_2666;
{ /* ./Cfa/collect.scm 297 */
int BgL_auxz00_3399;
BgL_auxz00_3399 = 
(int)(((long)1)); 
BgL_arg2017z00_2666 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3399); } 
{ /* ./Cfa/collect.scm 297 */
int BgL_offsetz00_2669;
BgL_offsetz00_2669 = 
(int)(BgL_objzd2classzd2numz00_2665); 
{ /* ./Cfa/collect.scm 297 */
long BgL_offsetz00_2670;
{ /* ./Cfa/collect.scm 297 */
long BgL_auxz00_3403;
BgL_auxz00_3403 = 
(long)(BgL_offsetz00_2669); 
BgL_offsetz00_2670 = 
(BgL_auxz00_3403-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 297 */
long BgL_modz00_2671;
{ /* ./Cfa/collect.scm 297 */
int BgL_arg2028z00_2672;
BgL_arg2028z00_2672 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 297 */
long BgL_n2z00_2680;
BgL_n2z00_2680 = 
(long)(BgL_arg2028z00_2672); 
BgL_modz00_2671 = 
(BgL_offsetz00_2670/BgL_n2z00_2680); } } 
{ /* ./Cfa/collect.scm 297 */
long BgL_restz00_2673;
{ /* ./Cfa/collect.scm 297 */
int BgL_arg2024z00_2674;
BgL_arg2024z00_2674 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 297 */
long BgL_n2z00_2683;
BgL_n2z00_2683 = 
(long)(BgL_arg2024z00_2674); 
BgL_restz00_2673 = 
(BgL_offsetz00_2670%BgL_n2z00_2683); } } 
{ /* ./Cfa/collect.scm 297 */

{ /* ./Cfa/collect.scm 297 */
obj_t BgL_bucketz00_2675;
{ /* ./Cfa/collect.scm 297 */
int BgL_kz00_2685;
BgL_kz00_2685 = 
(int)(BgL_modz00_2671); 
BgL_bucketz00_2675 = 
VECTOR_REF(BgL_arg2017z00_2666,BgL_kz00_2685); } 
{ /* ./Cfa/collect.scm 297 */
int BgL_kz00_2687;
BgL_kz00_2687 = 
(int)(BgL_restz00_2673); 
BgL_method4594z00_2663 = 
VECTOR_REF(BgL_bucketz00_2675,BgL_kz00_2687); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2663)(BgL_method4594z00_2663, 
(obj_t)(BgL_arg5967z00_1901), 
(obj_t)(BgL_ownerz00_2662), BEOA);} } } } } 
}



/* node-collect!-let-fun4624 */
obj_t BGl_nodezd2collectz12zd2letzd2fun4624zc0zzcfa_collectz00(obj_t BgL_envz00_2973, obj_t BgL_nodez00_2974, obj_t BgL_ownerz00_2975)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 281 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1873;obj_t BgL_ownerz00_1874;
BgL_nodez00_1873 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2974); 
BgL_ownerz00_1874 = BgL_ownerz00_2975; 
{ 
obj_t BgL_l4575z00_1878;
{ /* ./Cfa/collect.scm 283 */
obj_t BgL_arg5926z00_1880;
BgL_arg5926z00_1880 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1873))->BgL_localsz00); 
BgL_l4575z00_1878 = BgL_arg5926z00_1880; 
BgL_forzd2each4576zd2_1879:
{ /* ./Cfa/collect.scm 283 */
bool_t BgL_test5929z00_1881;
BgL_test5929z00_1881 = 
PAIRP(BgL_l4575z00_1878); 
if(BgL_test5929z00_1881)
{ /* ./Cfa/collect.scm 283 */
{ /* ./Cfa/collect.scm 284 */
obj_t BgL_lz00_1882;
BgL_lz00_1882 = 
CAR(BgL_l4575z00_1878); 
{ /* ./Cfa/collect.scm 284 */
BgL_valuez00_bglt BgL_fz00_1883;
{ /* ./Cfa/collect.scm 284 */
BgL_variablez00_bglt BgL_obj1120z00_2570;
BgL_obj1120z00_2570 = 
(BgL_variablez00_bglt)(BgL_lz00_1882); 
BgL_fz00_1883 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1120z00_2570))->BgL_valuez00); } 
{ /* ./Cfa/collect.scm 285 */
obj_t BgL_arg5931z00_1884;
{ /* ./Cfa/collect.scm 285 */
BgL_sfunz00_bglt BgL_obj1392z00_2571;
BgL_obj1392z00_2571 = 
(BgL_sfunz00_bglt)(BgL_fz00_1883); 
BgL_arg5931z00_1884 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1392z00_2571))->BgL_bodyz00); } 
{ /* ./Cfa/collect.scm 285 */
BgL_nodez00_bglt BgL_nodez00_2572;BgL_variablez00_bglt BgL_ownerz00_2573;
BgL_nodez00_2572 = 
(BgL_nodez00_bglt)(BgL_arg5931z00_1884); 
BgL_ownerz00_2573 = 
(BgL_variablez00_bglt)(BgL_lz00_1882); 
{ /* ./Cfa/collect.scm 285 */
obj_t BgL_method4594z00_2574;
{ /* ./Cfa/collect.scm 285 */
BgL_objectz00_bglt BgL_objz00_2575;
BgL_objz00_2575 = 
(BgL_objectz00_bglt)(BgL_nodez00_2572); 
{ /* ./Cfa/collect.scm 285 */
long BgL_objzd2classzd2numz00_2576;
BgL_objzd2classzd2numz00_2576 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2575); 
{ /* ./Cfa/collect.scm 285 */
obj_t BgL_arg2017z00_2577;
{ /* ./Cfa/collect.scm 285 */
int BgL_auxz00_3433;
BgL_auxz00_3433 = 
(int)(((long)1)); 
BgL_arg2017z00_2577 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3433); } 
{ /* ./Cfa/collect.scm 285 */
int BgL_offsetz00_2580;
BgL_offsetz00_2580 = 
(int)(BgL_objzd2classzd2numz00_2576); 
{ /* ./Cfa/collect.scm 285 */
long BgL_offsetz00_2581;
{ /* ./Cfa/collect.scm 285 */
long BgL_auxz00_3437;
BgL_auxz00_3437 = 
(long)(BgL_offsetz00_2580); 
BgL_offsetz00_2581 = 
(BgL_auxz00_3437-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 285 */
long BgL_modz00_2582;
{ /* ./Cfa/collect.scm 285 */
int BgL_arg2028z00_2583;
BgL_arg2028z00_2583 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 285 */
long BgL_n2z00_2591;
BgL_n2z00_2591 = 
(long)(BgL_arg2028z00_2583); 
BgL_modz00_2582 = 
(BgL_offsetz00_2581/BgL_n2z00_2591); } } 
{ /* ./Cfa/collect.scm 285 */
long BgL_restz00_2584;
{ /* ./Cfa/collect.scm 285 */
int BgL_arg2024z00_2585;
BgL_arg2024z00_2585 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 285 */
long BgL_n2z00_2594;
BgL_n2z00_2594 = 
(long)(BgL_arg2024z00_2585); 
BgL_restz00_2584 = 
(BgL_offsetz00_2581%BgL_n2z00_2594); } } 
{ /* ./Cfa/collect.scm 285 */

{ /* ./Cfa/collect.scm 285 */
obj_t BgL_bucketz00_2586;
{ /* ./Cfa/collect.scm 285 */
int BgL_kz00_2596;
BgL_kz00_2596 = 
(int)(BgL_modz00_2582); 
BgL_bucketz00_2586 = 
VECTOR_REF(BgL_arg2017z00_2577,BgL_kz00_2596); } 
{ /* ./Cfa/collect.scm 285 */
int BgL_kz00_2598;
BgL_kz00_2598 = 
(int)(BgL_restz00_2584); 
BgL_method4594z00_2574 = 
VECTOR_REF(BgL_bucketz00_2586,BgL_kz00_2598); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2574)(BgL_method4594z00_2574, 
(obj_t)(BgL_nodez00_2572), 
(obj_t)(BgL_ownerz00_2573), BEOA); } } } } } 
{ /* ./Cfa/collect.scm 283 */
obj_t BgL_arg5937z00_1885;
BgL_arg5937z00_1885 = 
CDR(BgL_l4575z00_1878); 
{ 
obj_t BgL_l4575z00_3455;
BgL_l4575z00_3455 = BgL_arg5937z00_1885; 
BgL_l4575z00_1878 = BgL_l4575z00_3455; 
goto BgL_forzd2each4576zd2_1879;} } }  else 
{ /* ./Cfa/collect.scm 283 */((bool_t)1); } } } } 
{ /* ./Cfa/collect.scm 287 */
BgL_nodez00_bglt BgL_arg5942z00_1886;
BgL_arg5942z00_1886 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1873))->BgL_bodyz00); 
{ /* ./Cfa/collect.scm 287 */
BgL_variablez00_bglt BgL_ownerz00_2602;
BgL_ownerz00_2602 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1874); 
{ /* ./Cfa/collect.scm 287 */
obj_t BgL_method4594z00_2603;
{ /* ./Cfa/collect.scm 287 */
BgL_objectz00_bglt BgL_objz00_2604;
BgL_objz00_2604 = 
(BgL_objectz00_bglt)(BgL_arg5942z00_1886); 
{ /* ./Cfa/collect.scm 287 */
long BgL_objzd2classzd2numz00_2605;
BgL_objzd2classzd2numz00_2605 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2604); 
{ /* ./Cfa/collect.scm 287 */
obj_t BgL_arg2017z00_2606;
{ /* ./Cfa/collect.scm 287 */
int BgL_auxz00_3460;
BgL_auxz00_3460 = 
(int)(((long)1)); 
BgL_arg2017z00_2606 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3460); } 
{ /* ./Cfa/collect.scm 287 */
int BgL_offsetz00_2609;
BgL_offsetz00_2609 = 
(int)(BgL_objzd2classzd2numz00_2605); 
{ /* ./Cfa/collect.scm 287 */
long BgL_offsetz00_2610;
{ /* ./Cfa/collect.scm 287 */
long BgL_auxz00_3464;
BgL_auxz00_3464 = 
(long)(BgL_offsetz00_2609); 
BgL_offsetz00_2610 = 
(BgL_auxz00_3464-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 287 */
long BgL_modz00_2611;
{ /* ./Cfa/collect.scm 287 */
int BgL_arg2028z00_2612;
BgL_arg2028z00_2612 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 287 */
long BgL_n2z00_2620;
BgL_n2z00_2620 = 
(long)(BgL_arg2028z00_2612); 
BgL_modz00_2611 = 
(BgL_offsetz00_2610/BgL_n2z00_2620); } } 
{ /* ./Cfa/collect.scm 287 */
long BgL_restz00_2613;
{ /* ./Cfa/collect.scm 287 */
int BgL_arg2024z00_2614;
BgL_arg2024z00_2614 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 287 */
long BgL_n2z00_2623;
BgL_n2z00_2623 = 
(long)(BgL_arg2024z00_2614); 
BgL_restz00_2613 = 
(BgL_offsetz00_2610%BgL_n2z00_2623); } } 
{ /* ./Cfa/collect.scm 287 */

{ /* ./Cfa/collect.scm 287 */
obj_t BgL_bucketz00_2615;
{ /* ./Cfa/collect.scm 287 */
int BgL_kz00_2625;
BgL_kz00_2625 = 
(int)(BgL_modz00_2611); 
BgL_bucketz00_2615 = 
VECTOR_REF(BgL_arg2017z00_2606,BgL_kz00_2625); } 
{ /* ./Cfa/collect.scm 287 */
int BgL_kz00_2627;
BgL_kz00_2627 = 
(int)(BgL_restz00_2613); 
BgL_method4594z00_2603 = 
VECTOR_REF(BgL_bucketz00_2615,BgL_kz00_2627); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2603)(BgL_method4594z00_2603, 
(obj_t)(BgL_arg5942z00_1886), 
(obj_t)(BgL_ownerz00_2602), BEOA);} } } } } 
}



/* node-collect!-select4622 */
obj_t BGl_nodezd2collectz12zd2select4622z12zzcfa_collectz00(obj_t BgL_envz00_2976, obj_t BgL_nodez00_2977, obj_t BgL_ownerz00_2978)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 271 */
{ 
BgL_selectz00_bglt BgL_nodez00_1858;obj_t BgL_ownerz00_1859;
{ /* ./Cfa/collect.scm 272 */
bool_t BgL_auxz00_3482;
BgL_nodez00_1858 = 
(BgL_selectz00_bglt)(BgL_nodez00_2977); 
BgL_ownerz00_1859 = BgL_ownerz00_2978; 
{ /* ./Cfa/collect.scm 273 */
BgL_nodez00_bglt BgL_arg5901z00_1863;
BgL_arg5901z00_1863 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1858))->BgL_testz00); 
{ /* ./Cfa/collect.scm 273 */
BgL_variablez00_bglt BgL_ownerz00_2509;
BgL_ownerz00_2509 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1859); 
{ /* ./Cfa/collect.scm 273 */
obj_t BgL_method4594z00_2510;
{ /* ./Cfa/collect.scm 273 */
BgL_objectz00_bglt BgL_objz00_2511;
BgL_objz00_2511 = 
(BgL_objectz00_bglt)(BgL_arg5901z00_1863); 
{ /* ./Cfa/collect.scm 273 */
long BgL_objzd2classzd2numz00_2512;
BgL_objzd2classzd2numz00_2512 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2511); 
{ /* ./Cfa/collect.scm 273 */
obj_t BgL_arg2017z00_2513;
{ /* ./Cfa/collect.scm 273 */
int BgL_auxz00_3487;
BgL_auxz00_3487 = 
(int)(((long)1)); 
BgL_arg2017z00_2513 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3487); } 
{ /* ./Cfa/collect.scm 273 */
int BgL_offsetz00_2516;
BgL_offsetz00_2516 = 
(int)(BgL_objzd2classzd2numz00_2512); 
{ /* ./Cfa/collect.scm 273 */
long BgL_offsetz00_2517;
{ /* ./Cfa/collect.scm 273 */
long BgL_auxz00_3491;
BgL_auxz00_3491 = 
(long)(BgL_offsetz00_2516); 
BgL_offsetz00_2517 = 
(BgL_auxz00_3491-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 273 */
long BgL_modz00_2518;
{ /* ./Cfa/collect.scm 273 */
int BgL_arg2028z00_2519;
BgL_arg2028z00_2519 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 273 */
long BgL_n2z00_2527;
BgL_n2z00_2527 = 
(long)(BgL_arg2028z00_2519); 
BgL_modz00_2518 = 
(BgL_offsetz00_2517/BgL_n2z00_2527); } } 
{ /* ./Cfa/collect.scm 273 */
long BgL_restz00_2520;
{ /* ./Cfa/collect.scm 273 */
int BgL_arg2024z00_2521;
BgL_arg2024z00_2521 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 273 */
long BgL_n2z00_2530;
BgL_n2z00_2530 = 
(long)(BgL_arg2024z00_2521); 
BgL_restz00_2520 = 
(BgL_offsetz00_2517%BgL_n2z00_2530); } } 
{ /* ./Cfa/collect.scm 273 */

{ /* ./Cfa/collect.scm 273 */
obj_t BgL_bucketz00_2522;
{ /* ./Cfa/collect.scm 273 */
int BgL_kz00_2532;
BgL_kz00_2532 = 
(int)(BgL_modz00_2518); 
BgL_bucketz00_2522 = 
VECTOR_REF(BgL_arg2017z00_2513,BgL_kz00_2532); } 
{ /* ./Cfa/collect.scm 273 */
int BgL_kz00_2534;
BgL_kz00_2534 = 
(int)(BgL_restz00_2520); 
BgL_method4594z00_2510 = 
VECTOR_REF(BgL_bucketz00_2522,BgL_kz00_2534); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2510)(BgL_method4594z00_2510, 
(obj_t)(BgL_arg5901z00_1863), 
(obj_t)(BgL_ownerz00_2509), BEOA); } } } 
{ 
obj_t BgL_l4571z00_1864;
{ /* ./Cfa/collect.scm 274 */
obj_t BgL_arg5905z00_1866;
BgL_arg5905z00_1866 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1858))->BgL_clausesz00); 
BgL_l4571z00_1864 = BgL_arg5905z00_1866; 
BgL_forzd2each4572zd2_1865:
{ /* ./Cfa/collect.scm 274 */
bool_t BgL_test5908z00_1867;
BgL_test5908z00_1867 = 
PAIRP(BgL_l4571z00_1864); 
if(BgL_test5908z00_1867)
{ /* ./Cfa/collect.scm 274 */
{ /* ./Cfa/collect.scm 275 */
obj_t BgL_clausez00_1868;
BgL_clausez00_1868 = 
CAR(BgL_l4571z00_1864); 
{ /* ./Cfa/collect.scm 275 */
obj_t BgL_arg5910z00_1869;
BgL_arg5910z00_1869 = 
CDR(BgL_clausez00_1868); 
{ /* ./Cfa/collect.scm 275 */
BgL_nodez00_bglt BgL_nodez00_2539;BgL_variablez00_bglt BgL_ownerz00_2540;
BgL_nodez00_2539 = 
(BgL_nodez00_bglt)(BgL_arg5910z00_1869); 
BgL_ownerz00_2540 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1859); 
{ /* ./Cfa/collect.scm 275 */
obj_t BgL_method4594z00_2541;
{ /* ./Cfa/collect.scm 275 */
BgL_objectz00_bglt BgL_objz00_2542;
BgL_objz00_2542 = 
(BgL_objectz00_bglt)(BgL_nodez00_2539); 
{ /* ./Cfa/collect.scm 275 */
long BgL_objzd2classzd2numz00_2543;
BgL_objzd2classzd2numz00_2543 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2542); 
{ /* ./Cfa/collect.scm 275 */
obj_t BgL_arg2017z00_2544;
{ /* ./Cfa/collect.scm 275 */
int BgL_auxz00_3517;
BgL_auxz00_3517 = 
(int)(((long)1)); 
BgL_arg2017z00_2544 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3517); } 
{ /* ./Cfa/collect.scm 275 */
int BgL_offsetz00_2547;
BgL_offsetz00_2547 = 
(int)(BgL_objzd2classzd2numz00_2543); 
{ /* ./Cfa/collect.scm 275 */
long BgL_offsetz00_2548;
{ /* ./Cfa/collect.scm 275 */
long BgL_auxz00_3521;
BgL_auxz00_3521 = 
(long)(BgL_offsetz00_2547); 
BgL_offsetz00_2548 = 
(BgL_auxz00_3521-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 275 */
long BgL_modz00_2549;
{ /* ./Cfa/collect.scm 275 */
int BgL_arg2028z00_2550;
BgL_arg2028z00_2550 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 275 */
long BgL_n2z00_2558;
BgL_n2z00_2558 = 
(long)(BgL_arg2028z00_2550); 
BgL_modz00_2549 = 
(BgL_offsetz00_2548/BgL_n2z00_2558); } } 
{ /* ./Cfa/collect.scm 275 */
long BgL_restz00_2551;
{ /* ./Cfa/collect.scm 275 */
int BgL_arg2024z00_2552;
BgL_arg2024z00_2552 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 275 */
long BgL_n2z00_2561;
BgL_n2z00_2561 = 
(long)(BgL_arg2024z00_2552); 
BgL_restz00_2551 = 
(BgL_offsetz00_2548%BgL_n2z00_2561); } } 
{ /* ./Cfa/collect.scm 275 */

{ /* ./Cfa/collect.scm 275 */
obj_t BgL_bucketz00_2553;
{ /* ./Cfa/collect.scm 275 */
int BgL_kz00_2563;
BgL_kz00_2563 = 
(int)(BgL_modz00_2549); 
BgL_bucketz00_2553 = 
VECTOR_REF(BgL_arg2017z00_2544,BgL_kz00_2563); } 
{ /* ./Cfa/collect.scm 275 */
int BgL_kz00_2565;
BgL_kz00_2565 = 
(int)(BgL_restz00_2551); 
BgL_method4594z00_2541 = 
VECTOR_REF(BgL_bucketz00_2553,BgL_kz00_2565); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2541)(BgL_method4594z00_2541, 
(obj_t)(BgL_nodez00_2539), 
(obj_t)(BgL_ownerz00_2540), BEOA); } } } } 
{ /* ./Cfa/collect.scm 274 */
obj_t BgL_arg5915z00_1870;
BgL_arg5915z00_1870 = 
CDR(BgL_l4571z00_1864); 
{ 
obj_t BgL_l4571z00_3539;
BgL_l4571z00_3539 = BgL_arg5915z00_1870; 
BgL_l4571z00_1864 = BgL_l4571z00_3539; 
goto BgL_forzd2each4572zd2_1865;} } }  else 
{ /* ./Cfa/collect.scm 274 */
BgL_auxz00_3482 = ((bool_t)1); } } } } 
return 
BBOOL(BgL_auxz00_3482);} } } 
}



/* node-collect!-fail4620 */
obj_t BGl_nodezd2collectz12zd2fail4620z12zzcfa_collectz00(obj_t BgL_envz00_2979, obj_t BgL_nodez00_2980, obj_t BgL_ownerz00_2981)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 262 */
{ 
BgL_failz00_bglt BgL_nodez00_1848;obj_t BgL_ownerz00_1849;
BgL_nodez00_1848 = 
(BgL_failz00_bglt)(BgL_nodez00_2980); 
BgL_ownerz00_1849 = BgL_ownerz00_2981; 
{ /* ./Cfa/collect.scm 264 */
BgL_nodez00_bglt BgL_arg5883z00_1853;
BgL_arg5883z00_1853 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1848))->BgL_procz00); 
{ /* ./Cfa/collect.scm 264 */
BgL_variablez00_bglt BgL_ownerz00_2425;
BgL_ownerz00_2425 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1849); 
{ /* ./Cfa/collect.scm 264 */
obj_t BgL_method4594z00_2426;
{ /* ./Cfa/collect.scm 264 */
BgL_objectz00_bglt BgL_objz00_2427;
BgL_objz00_2427 = 
(BgL_objectz00_bglt)(BgL_arg5883z00_1853); 
{ /* ./Cfa/collect.scm 264 */
long BgL_objzd2classzd2numz00_2428;
BgL_objzd2classzd2numz00_2428 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2427); 
{ /* ./Cfa/collect.scm 264 */
obj_t BgL_arg2017z00_2429;
{ /* ./Cfa/collect.scm 264 */
int BgL_auxz00_3546;
BgL_auxz00_3546 = 
(int)(((long)1)); 
BgL_arg2017z00_2429 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3546); } 
{ /* ./Cfa/collect.scm 264 */
int BgL_offsetz00_2432;
BgL_offsetz00_2432 = 
(int)(BgL_objzd2classzd2numz00_2428); 
{ /* ./Cfa/collect.scm 264 */
long BgL_offsetz00_2433;
{ /* ./Cfa/collect.scm 264 */
long BgL_auxz00_3550;
BgL_auxz00_3550 = 
(long)(BgL_offsetz00_2432); 
BgL_offsetz00_2433 = 
(BgL_auxz00_3550-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 264 */
long BgL_modz00_2434;
{ /* ./Cfa/collect.scm 264 */
int BgL_arg2028z00_2435;
BgL_arg2028z00_2435 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 264 */
long BgL_n2z00_2443;
BgL_n2z00_2443 = 
(long)(BgL_arg2028z00_2435); 
BgL_modz00_2434 = 
(BgL_offsetz00_2433/BgL_n2z00_2443); } } 
{ /* ./Cfa/collect.scm 264 */
long BgL_restz00_2436;
{ /* ./Cfa/collect.scm 264 */
int BgL_arg2024z00_2437;
BgL_arg2024z00_2437 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 264 */
long BgL_n2z00_2446;
BgL_n2z00_2446 = 
(long)(BgL_arg2024z00_2437); 
BgL_restz00_2436 = 
(BgL_offsetz00_2433%BgL_n2z00_2446); } } 
{ /* ./Cfa/collect.scm 264 */

{ /* ./Cfa/collect.scm 264 */
obj_t BgL_bucketz00_2438;
{ /* ./Cfa/collect.scm 264 */
int BgL_kz00_2448;
BgL_kz00_2448 = 
(int)(BgL_modz00_2434); 
BgL_bucketz00_2438 = 
VECTOR_REF(BgL_arg2017z00_2429,BgL_kz00_2448); } 
{ /* ./Cfa/collect.scm 264 */
int BgL_kz00_2450;
BgL_kz00_2450 = 
(int)(BgL_restz00_2436); 
BgL_method4594z00_2426 = 
VECTOR_REF(BgL_bucketz00_2438,BgL_kz00_2450); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2426)(BgL_method4594z00_2426, 
(obj_t)(BgL_arg5883z00_1853), 
(obj_t)(BgL_ownerz00_2425), BEOA); } } } 
{ /* ./Cfa/collect.scm 265 */
BgL_nodez00_bglt BgL_arg5887z00_1854;
BgL_arg5887z00_1854 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1848))->BgL_msgz00); 
{ /* ./Cfa/collect.scm 265 */
BgL_variablez00_bglt BgL_ownerz00_2453;
BgL_ownerz00_2453 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1849); 
{ /* ./Cfa/collect.scm 265 */
obj_t BgL_method4594z00_2454;
{ /* ./Cfa/collect.scm 265 */
BgL_objectz00_bglt BgL_objz00_2455;
BgL_objz00_2455 = 
(BgL_objectz00_bglt)(BgL_arg5887z00_1854); 
{ /* ./Cfa/collect.scm 265 */
long BgL_objzd2classzd2numz00_2456;
BgL_objzd2classzd2numz00_2456 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2455); 
{ /* ./Cfa/collect.scm 265 */
obj_t BgL_arg2017z00_2457;
{ /* ./Cfa/collect.scm 265 */
int BgL_auxz00_3571;
BgL_auxz00_3571 = 
(int)(((long)1)); 
BgL_arg2017z00_2457 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3571); } 
{ /* ./Cfa/collect.scm 265 */
int BgL_offsetz00_2460;
BgL_offsetz00_2460 = 
(int)(BgL_objzd2classzd2numz00_2456); 
{ /* ./Cfa/collect.scm 265 */
long BgL_offsetz00_2461;
{ /* ./Cfa/collect.scm 265 */
long BgL_auxz00_3575;
BgL_auxz00_3575 = 
(long)(BgL_offsetz00_2460); 
BgL_offsetz00_2461 = 
(BgL_auxz00_3575-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 265 */
long BgL_modz00_2462;
{ /* ./Cfa/collect.scm 265 */
int BgL_arg2028z00_2463;
BgL_arg2028z00_2463 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 265 */
long BgL_n2z00_2471;
BgL_n2z00_2471 = 
(long)(BgL_arg2028z00_2463); 
BgL_modz00_2462 = 
(BgL_offsetz00_2461/BgL_n2z00_2471); } } 
{ /* ./Cfa/collect.scm 265 */
long BgL_restz00_2464;
{ /* ./Cfa/collect.scm 265 */
int BgL_arg2024z00_2465;
BgL_arg2024z00_2465 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 265 */
long BgL_n2z00_2474;
BgL_n2z00_2474 = 
(long)(BgL_arg2024z00_2465); 
BgL_restz00_2464 = 
(BgL_offsetz00_2461%BgL_n2z00_2474); } } 
{ /* ./Cfa/collect.scm 265 */

{ /* ./Cfa/collect.scm 265 */
obj_t BgL_bucketz00_2466;
{ /* ./Cfa/collect.scm 265 */
int BgL_kz00_2476;
BgL_kz00_2476 = 
(int)(BgL_modz00_2462); 
BgL_bucketz00_2466 = 
VECTOR_REF(BgL_arg2017z00_2457,BgL_kz00_2476); } 
{ /* ./Cfa/collect.scm 265 */
int BgL_kz00_2478;
BgL_kz00_2478 = 
(int)(BgL_restz00_2464); 
BgL_method4594z00_2454 = 
VECTOR_REF(BgL_bucketz00_2466,BgL_kz00_2478); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2454)(BgL_method4594z00_2454, 
(obj_t)(BgL_arg5887z00_1854), 
(obj_t)(BgL_ownerz00_2453), BEOA); } } } 
{ /* ./Cfa/collect.scm 266 */
BgL_nodez00_bglt BgL_arg5891z00_1855;
BgL_arg5891z00_1855 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1848))->BgL_objz00); 
{ /* ./Cfa/collect.scm 266 */
BgL_variablez00_bglt BgL_ownerz00_2481;
BgL_ownerz00_2481 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1849); 
{ /* ./Cfa/collect.scm 266 */
obj_t BgL_method4594z00_2482;
{ /* ./Cfa/collect.scm 266 */
BgL_objectz00_bglt BgL_objz00_2483;
BgL_objz00_2483 = 
(BgL_objectz00_bglt)(BgL_arg5891z00_1855); 
{ /* ./Cfa/collect.scm 266 */
long BgL_objzd2classzd2numz00_2484;
BgL_objzd2classzd2numz00_2484 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2483); 
{ /* ./Cfa/collect.scm 266 */
obj_t BgL_arg2017z00_2485;
{ /* ./Cfa/collect.scm 266 */
int BgL_auxz00_3596;
BgL_auxz00_3596 = 
(int)(((long)1)); 
BgL_arg2017z00_2485 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3596); } 
{ /* ./Cfa/collect.scm 266 */
int BgL_offsetz00_2488;
BgL_offsetz00_2488 = 
(int)(BgL_objzd2classzd2numz00_2484); 
{ /* ./Cfa/collect.scm 266 */
long BgL_offsetz00_2489;
{ /* ./Cfa/collect.scm 266 */
long BgL_auxz00_3600;
BgL_auxz00_3600 = 
(long)(BgL_offsetz00_2488); 
BgL_offsetz00_2489 = 
(BgL_auxz00_3600-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 266 */
long BgL_modz00_2490;
{ /* ./Cfa/collect.scm 266 */
int BgL_arg2028z00_2491;
BgL_arg2028z00_2491 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 266 */
long BgL_n2z00_2499;
BgL_n2z00_2499 = 
(long)(BgL_arg2028z00_2491); 
BgL_modz00_2490 = 
(BgL_offsetz00_2489/BgL_n2z00_2499); } } 
{ /* ./Cfa/collect.scm 266 */
long BgL_restz00_2492;
{ /* ./Cfa/collect.scm 266 */
int BgL_arg2024z00_2493;
BgL_arg2024z00_2493 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 266 */
long BgL_n2z00_2502;
BgL_n2z00_2502 = 
(long)(BgL_arg2024z00_2493); 
BgL_restz00_2492 = 
(BgL_offsetz00_2489%BgL_n2z00_2502); } } 
{ /* ./Cfa/collect.scm 266 */

{ /* ./Cfa/collect.scm 266 */
obj_t BgL_bucketz00_2494;
{ /* ./Cfa/collect.scm 266 */
int BgL_kz00_2504;
BgL_kz00_2504 = 
(int)(BgL_modz00_2490); 
BgL_bucketz00_2494 = 
VECTOR_REF(BgL_arg2017z00_2485,BgL_kz00_2504); } 
{ /* ./Cfa/collect.scm 266 */
int BgL_kz00_2506;
BgL_kz00_2506 = 
(int)(BgL_restz00_2492); 
BgL_method4594z00_2482 = 
VECTOR_REF(BgL_bucketz00_2494,BgL_kz00_2506); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2482)(BgL_method4594z00_2482, 
(obj_t)(BgL_arg5891z00_1855), 
(obj_t)(BgL_ownerz00_2481), BEOA);} } } } } 
}



/* node-collect!-conditional4618 */
obj_t BGl_nodezd2collectz12zd2conditional4618z12zzcfa_collectz00(obj_t BgL_envz00_2982, obj_t BgL_nodez00_2983, obj_t BgL_ownerz00_2984)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 253 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1838;obj_t BgL_ownerz00_1839;
BgL_nodez00_1838 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2983); 
BgL_ownerz00_1839 = BgL_ownerz00_2984; 
{ /* ./Cfa/collect.scm 255 */
BgL_nodez00_bglt BgL_arg5865z00_1843;
BgL_arg5865z00_1843 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1838))->BgL_testz00); 
{ /* ./Cfa/collect.scm 255 */
BgL_variablez00_bglt BgL_ownerz00_2341;
BgL_ownerz00_2341 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1839); 
{ /* ./Cfa/collect.scm 255 */
obj_t BgL_method4594z00_2342;
{ /* ./Cfa/collect.scm 255 */
BgL_objectz00_bglt BgL_objz00_2343;
BgL_objz00_2343 = 
(BgL_objectz00_bglt)(BgL_arg5865z00_1843); 
{ /* ./Cfa/collect.scm 255 */
long BgL_objzd2classzd2numz00_2344;
BgL_objzd2classzd2numz00_2344 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2343); 
{ /* ./Cfa/collect.scm 255 */
obj_t BgL_arg2017z00_2345;
{ /* ./Cfa/collect.scm 255 */
int BgL_auxz00_3622;
BgL_auxz00_3622 = 
(int)(((long)1)); 
BgL_arg2017z00_2345 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3622); } 
{ /* ./Cfa/collect.scm 255 */
int BgL_offsetz00_2348;
BgL_offsetz00_2348 = 
(int)(BgL_objzd2classzd2numz00_2344); 
{ /* ./Cfa/collect.scm 255 */
long BgL_offsetz00_2349;
{ /* ./Cfa/collect.scm 255 */
long BgL_auxz00_3626;
BgL_auxz00_3626 = 
(long)(BgL_offsetz00_2348); 
BgL_offsetz00_2349 = 
(BgL_auxz00_3626-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 255 */
long BgL_modz00_2350;
{ /* ./Cfa/collect.scm 255 */
int BgL_arg2028z00_2351;
BgL_arg2028z00_2351 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 255 */
long BgL_n2z00_2359;
BgL_n2z00_2359 = 
(long)(BgL_arg2028z00_2351); 
BgL_modz00_2350 = 
(BgL_offsetz00_2349/BgL_n2z00_2359); } } 
{ /* ./Cfa/collect.scm 255 */
long BgL_restz00_2352;
{ /* ./Cfa/collect.scm 255 */
int BgL_arg2024z00_2353;
BgL_arg2024z00_2353 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 255 */
long BgL_n2z00_2362;
BgL_n2z00_2362 = 
(long)(BgL_arg2024z00_2353); 
BgL_restz00_2352 = 
(BgL_offsetz00_2349%BgL_n2z00_2362); } } 
{ /* ./Cfa/collect.scm 255 */

{ /* ./Cfa/collect.scm 255 */
obj_t BgL_bucketz00_2354;
{ /* ./Cfa/collect.scm 255 */
int BgL_kz00_2364;
BgL_kz00_2364 = 
(int)(BgL_modz00_2350); 
BgL_bucketz00_2354 = 
VECTOR_REF(BgL_arg2017z00_2345,BgL_kz00_2364); } 
{ /* ./Cfa/collect.scm 255 */
int BgL_kz00_2366;
BgL_kz00_2366 = 
(int)(BgL_restz00_2352); 
BgL_method4594z00_2342 = 
VECTOR_REF(BgL_bucketz00_2354,BgL_kz00_2366); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2342)(BgL_method4594z00_2342, 
(obj_t)(BgL_arg5865z00_1843), 
(obj_t)(BgL_ownerz00_2341), BEOA); } } } 
{ /* ./Cfa/collect.scm 256 */
BgL_nodez00_bglt BgL_arg5869z00_1844;
BgL_arg5869z00_1844 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1838))->BgL_truez00); 
{ /* ./Cfa/collect.scm 256 */
BgL_variablez00_bglt BgL_ownerz00_2369;
BgL_ownerz00_2369 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1839); 
{ /* ./Cfa/collect.scm 256 */
obj_t BgL_method4594z00_2370;
{ /* ./Cfa/collect.scm 256 */
BgL_objectz00_bglt BgL_objz00_2371;
BgL_objz00_2371 = 
(BgL_objectz00_bglt)(BgL_arg5869z00_1844); 
{ /* ./Cfa/collect.scm 256 */
long BgL_objzd2classzd2numz00_2372;
BgL_objzd2classzd2numz00_2372 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2371); 
{ /* ./Cfa/collect.scm 256 */
obj_t BgL_arg2017z00_2373;
{ /* ./Cfa/collect.scm 256 */
int BgL_auxz00_3647;
BgL_auxz00_3647 = 
(int)(((long)1)); 
BgL_arg2017z00_2373 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3647); } 
{ /* ./Cfa/collect.scm 256 */
int BgL_offsetz00_2376;
BgL_offsetz00_2376 = 
(int)(BgL_objzd2classzd2numz00_2372); 
{ /* ./Cfa/collect.scm 256 */
long BgL_offsetz00_2377;
{ /* ./Cfa/collect.scm 256 */
long BgL_auxz00_3651;
BgL_auxz00_3651 = 
(long)(BgL_offsetz00_2376); 
BgL_offsetz00_2377 = 
(BgL_auxz00_3651-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 256 */
long BgL_modz00_2378;
{ /* ./Cfa/collect.scm 256 */
int BgL_arg2028z00_2379;
BgL_arg2028z00_2379 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 256 */
long BgL_n2z00_2387;
BgL_n2z00_2387 = 
(long)(BgL_arg2028z00_2379); 
BgL_modz00_2378 = 
(BgL_offsetz00_2377/BgL_n2z00_2387); } } 
{ /* ./Cfa/collect.scm 256 */
long BgL_restz00_2380;
{ /* ./Cfa/collect.scm 256 */
int BgL_arg2024z00_2381;
BgL_arg2024z00_2381 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 256 */
long BgL_n2z00_2390;
BgL_n2z00_2390 = 
(long)(BgL_arg2024z00_2381); 
BgL_restz00_2380 = 
(BgL_offsetz00_2377%BgL_n2z00_2390); } } 
{ /* ./Cfa/collect.scm 256 */

{ /* ./Cfa/collect.scm 256 */
obj_t BgL_bucketz00_2382;
{ /* ./Cfa/collect.scm 256 */
int BgL_kz00_2392;
BgL_kz00_2392 = 
(int)(BgL_modz00_2378); 
BgL_bucketz00_2382 = 
VECTOR_REF(BgL_arg2017z00_2373,BgL_kz00_2392); } 
{ /* ./Cfa/collect.scm 256 */
int BgL_kz00_2394;
BgL_kz00_2394 = 
(int)(BgL_restz00_2380); 
BgL_method4594z00_2370 = 
VECTOR_REF(BgL_bucketz00_2382,BgL_kz00_2394); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2370)(BgL_method4594z00_2370, 
(obj_t)(BgL_arg5869z00_1844), 
(obj_t)(BgL_ownerz00_2369), BEOA); } } } 
{ /* ./Cfa/collect.scm 257 */
BgL_nodez00_bglt BgL_arg5873z00_1845;
BgL_arg5873z00_1845 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1838))->BgL_falsez00); 
{ /* ./Cfa/collect.scm 257 */
BgL_variablez00_bglt BgL_ownerz00_2397;
BgL_ownerz00_2397 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1839); 
{ /* ./Cfa/collect.scm 257 */
obj_t BgL_method4594z00_2398;
{ /* ./Cfa/collect.scm 257 */
BgL_objectz00_bglt BgL_objz00_2399;
BgL_objz00_2399 = 
(BgL_objectz00_bglt)(BgL_arg5873z00_1845); 
{ /* ./Cfa/collect.scm 257 */
long BgL_objzd2classzd2numz00_2400;
BgL_objzd2classzd2numz00_2400 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2399); 
{ /* ./Cfa/collect.scm 257 */
obj_t BgL_arg2017z00_2401;
{ /* ./Cfa/collect.scm 257 */
int BgL_auxz00_3672;
BgL_auxz00_3672 = 
(int)(((long)1)); 
BgL_arg2017z00_2401 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3672); } 
{ /* ./Cfa/collect.scm 257 */
int BgL_offsetz00_2404;
BgL_offsetz00_2404 = 
(int)(BgL_objzd2classzd2numz00_2400); 
{ /* ./Cfa/collect.scm 257 */
long BgL_offsetz00_2405;
{ /* ./Cfa/collect.scm 257 */
long BgL_auxz00_3676;
BgL_auxz00_3676 = 
(long)(BgL_offsetz00_2404); 
BgL_offsetz00_2405 = 
(BgL_auxz00_3676-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 257 */
long BgL_modz00_2406;
{ /* ./Cfa/collect.scm 257 */
int BgL_arg2028z00_2407;
BgL_arg2028z00_2407 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 257 */
long BgL_n2z00_2415;
BgL_n2z00_2415 = 
(long)(BgL_arg2028z00_2407); 
BgL_modz00_2406 = 
(BgL_offsetz00_2405/BgL_n2z00_2415); } } 
{ /* ./Cfa/collect.scm 257 */
long BgL_restz00_2408;
{ /* ./Cfa/collect.scm 257 */
int BgL_arg2024z00_2409;
BgL_arg2024z00_2409 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 257 */
long BgL_n2z00_2418;
BgL_n2z00_2418 = 
(long)(BgL_arg2024z00_2409); 
BgL_restz00_2408 = 
(BgL_offsetz00_2405%BgL_n2z00_2418); } } 
{ /* ./Cfa/collect.scm 257 */

{ /* ./Cfa/collect.scm 257 */
obj_t BgL_bucketz00_2410;
{ /* ./Cfa/collect.scm 257 */
int BgL_kz00_2420;
BgL_kz00_2420 = 
(int)(BgL_modz00_2406); 
BgL_bucketz00_2410 = 
VECTOR_REF(BgL_arg2017z00_2401,BgL_kz00_2420); } 
{ /* ./Cfa/collect.scm 257 */
int BgL_kz00_2422;
BgL_kz00_2422 = 
(int)(BgL_restz00_2408); 
BgL_method4594z00_2398 = 
VECTOR_REF(BgL_bucketz00_2410,BgL_kz00_2422); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2398)(BgL_method4594z00_2398, 
(obj_t)(BgL_arg5873z00_1845), 
(obj_t)(BgL_ownerz00_2397), BEOA);} } } } } 
}



/* node-collect!-setq4616 */
obj_t BGl_nodezd2collectz12zd2setq4616z12zzcfa_collectz00(obj_t BgL_envz00_2985, obj_t BgL_nodez00_2986, obj_t BgL_ownerz00_2987)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 246 */
{ 
BgL_setqz00_bglt BgL_nodez00_1830;obj_t BgL_ownerz00_1831;
BgL_nodez00_1830 = 
(BgL_setqz00_bglt)(BgL_nodez00_2986); 
BgL_ownerz00_1831 = BgL_ownerz00_2987; 
{ /* ./Cfa/collect.scm 247 */
BgL_nodez00_bglt BgL_arg5855z00_2310;
BgL_arg5855z00_2310 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1830))->BgL_valuez00); 
{ /* ./Cfa/collect.scm 247 */
BgL_variablez00_bglt BgL_ownerz00_2313;
BgL_ownerz00_2313 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1831); 
{ /* ./Cfa/collect.scm 247 */
obj_t BgL_method4594z00_2314;
{ /* ./Cfa/collect.scm 247 */
BgL_objectz00_bglt BgL_objz00_2315;
BgL_objz00_2315 = 
(BgL_objectz00_bglt)(BgL_arg5855z00_2310); 
{ /* ./Cfa/collect.scm 247 */
long BgL_objzd2classzd2numz00_2316;
BgL_objzd2classzd2numz00_2316 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2315); 
{ /* ./Cfa/collect.scm 247 */
obj_t BgL_arg2017z00_2317;
{ /* ./Cfa/collect.scm 247 */
int BgL_auxz00_3698;
BgL_auxz00_3698 = 
(int)(((long)1)); 
BgL_arg2017z00_2317 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3698); } 
{ /* ./Cfa/collect.scm 247 */
int BgL_offsetz00_2320;
BgL_offsetz00_2320 = 
(int)(BgL_objzd2classzd2numz00_2316); 
{ /* ./Cfa/collect.scm 247 */
long BgL_offsetz00_2321;
{ /* ./Cfa/collect.scm 247 */
long BgL_auxz00_3702;
BgL_auxz00_3702 = 
(long)(BgL_offsetz00_2320); 
BgL_offsetz00_2321 = 
(BgL_auxz00_3702-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 247 */
long BgL_modz00_2322;
{ /* ./Cfa/collect.scm 247 */
int BgL_arg2028z00_2323;
BgL_arg2028z00_2323 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 247 */
long BgL_n2z00_2331;
BgL_n2z00_2331 = 
(long)(BgL_arg2028z00_2323); 
BgL_modz00_2322 = 
(BgL_offsetz00_2321/BgL_n2z00_2331); } } 
{ /* ./Cfa/collect.scm 247 */
long BgL_restz00_2324;
{ /* ./Cfa/collect.scm 247 */
int BgL_arg2024z00_2325;
BgL_arg2024z00_2325 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 247 */
long BgL_n2z00_2334;
BgL_n2z00_2334 = 
(long)(BgL_arg2024z00_2325); 
BgL_restz00_2324 = 
(BgL_offsetz00_2321%BgL_n2z00_2334); } } 
{ /* ./Cfa/collect.scm 247 */

{ /* ./Cfa/collect.scm 247 */
obj_t BgL_bucketz00_2326;
{ /* ./Cfa/collect.scm 247 */
int BgL_kz00_2336;
BgL_kz00_2336 = 
(int)(BgL_modz00_2322); 
BgL_bucketz00_2326 = 
VECTOR_REF(BgL_arg2017z00_2317,BgL_kz00_2336); } 
{ /* ./Cfa/collect.scm 247 */
int BgL_kz00_2338;
BgL_kz00_2338 = 
(int)(BgL_restz00_2324); 
BgL_method4594z00_2314 = 
VECTOR_REF(BgL_bucketz00_2326,BgL_kz00_2338); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2314)(BgL_method4594z00_2314, 
(obj_t)(BgL_arg5855z00_2310), 
(obj_t)(BgL_ownerz00_2313), BEOA);} } } } } 
}



/* node-collect!-cast4614 */
obj_t BGl_nodezd2collectz12zd2cast4614z12zzcfa_collectz00(obj_t BgL_envz00_2988, obj_t BgL_nodez00_2989, obj_t BgL_ownerz00_2990)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 239 */
{ 
BgL_castz00_bglt BgL_nodez00_1822;obj_t BgL_ownerz00_1823;
BgL_nodez00_1822 = 
(BgL_castz00_bglt)(BgL_nodez00_2989); 
BgL_ownerz00_1823 = BgL_ownerz00_2990; 
{ /* ./Cfa/collect.scm 240 */
BgL_nodez00_bglt BgL_arg5845z00_2280;
BgL_arg5845z00_2280 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1822))->BgL_argz00); 
{ /* ./Cfa/collect.scm 240 */
BgL_variablez00_bglt BgL_ownerz00_2283;
BgL_ownerz00_2283 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1823); 
{ /* ./Cfa/collect.scm 240 */
obj_t BgL_method4594z00_2284;
{ /* ./Cfa/collect.scm 240 */
BgL_objectz00_bglt BgL_objz00_2285;
BgL_objz00_2285 = 
(BgL_objectz00_bglt)(BgL_arg5845z00_2280); 
{ /* ./Cfa/collect.scm 240 */
long BgL_objzd2classzd2numz00_2286;
BgL_objzd2classzd2numz00_2286 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2285); 
{ /* ./Cfa/collect.scm 240 */
obj_t BgL_arg2017z00_2287;
{ /* ./Cfa/collect.scm 240 */
int BgL_auxz00_3724;
BgL_auxz00_3724 = 
(int)(((long)1)); 
BgL_arg2017z00_2287 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3724); } 
{ /* ./Cfa/collect.scm 240 */
int BgL_offsetz00_2290;
BgL_offsetz00_2290 = 
(int)(BgL_objzd2classzd2numz00_2286); 
{ /* ./Cfa/collect.scm 240 */
long BgL_offsetz00_2291;
{ /* ./Cfa/collect.scm 240 */
long BgL_auxz00_3728;
BgL_auxz00_3728 = 
(long)(BgL_offsetz00_2290); 
BgL_offsetz00_2291 = 
(BgL_auxz00_3728-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 240 */
long BgL_modz00_2292;
{ /* ./Cfa/collect.scm 240 */
int BgL_arg2028z00_2293;
BgL_arg2028z00_2293 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 240 */
long BgL_n2z00_2301;
BgL_n2z00_2301 = 
(long)(BgL_arg2028z00_2293); 
BgL_modz00_2292 = 
(BgL_offsetz00_2291/BgL_n2z00_2301); } } 
{ /* ./Cfa/collect.scm 240 */
long BgL_restz00_2294;
{ /* ./Cfa/collect.scm 240 */
int BgL_arg2024z00_2295;
BgL_arg2024z00_2295 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 240 */
long BgL_n2z00_2304;
BgL_n2z00_2304 = 
(long)(BgL_arg2024z00_2295); 
BgL_restz00_2294 = 
(BgL_offsetz00_2291%BgL_n2z00_2304); } } 
{ /* ./Cfa/collect.scm 240 */

{ /* ./Cfa/collect.scm 240 */
obj_t BgL_bucketz00_2296;
{ /* ./Cfa/collect.scm 240 */
int BgL_kz00_2306;
BgL_kz00_2306 = 
(int)(BgL_modz00_2292); 
BgL_bucketz00_2296 = 
VECTOR_REF(BgL_arg2017z00_2287,BgL_kz00_2306); } 
{ /* ./Cfa/collect.scm 240 */
int BgL_kz00_2308;
BgL_kz00_2308 = 
(int)(BgL_restz00_2294); 
BgL_method4594z00_2284 = 
VECTOR_REF(BgL_bucketz00_2296,BgL_kz00_2308); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2284)(BgL_method4594z00_2284, 
(obj_t)(BgL_arg5845z00_2280), 
(obj_t)(BgL_ownerz00_2283), BEOA);} } } } } 
}



/* node-collect!-extern4612 */
obj_t BGl_nodezd2collectz12zd2extern4612z12zzcfa_collectz00(obj_t BgL_envz00_2991, obj_t BgL_nodez00_2992, obj_t BgL_ownerz00_2993)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 232 */
{ 
BgL_externz00_bglt BgL_nodez00_1814;obj_t BgL_ownerz00_1815;
{ /* ./Cfa/collect.scm 233 */
bool_t BgL_auxz00_3746;
BgL_nodez00_1814 = 
(BgL_externz00_bglt)(BgL_nodez00_2992); 
BgL_ownerz00_1815 = BgL_ownerz00_2993; 
{ /* ./Cfa/collect.scm 233 */
obj_t BgL_arg5835z00_2277;
BgL_arg5835z00_2277 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1814))->BgL_exprza2za2); 
BgL_auxz00_3746 = 
BGl_nodezd2collectza2z12z62zzcfa_collectz00(BgL_arg5835z00_2277, BgL_ownerz00_1815); } 
return 
BBOOL(BgL_auxz00_3746);} } } 
}



/* node-collect!-funcall4610 */
obj_t BGl_nodezd2collectz12zd2funcall4610z12zzcfa_collectz00(obj_t BgL_envz00_2994, obj_t BgL_nodez00_2995, obj_t BgL_ownerz00_2996)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 223 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1805;obj_t BgL_ownerz00_1806;
{ /* ./Cfa/collect.scm 224 */
bool_t BgL_auxz00_3751;
BgL_nodez00_1805 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2995); 
BgL_ownerz00_1806 = BgL_ownerz00_2996; 
BGl_addzd2funcallz12zc0zzcfa_closurez00(
(BgL_nodez00_bglt)(BgL_nodez00_1805)); 
{ /* ./Cfa/collect.scm 226 */
BgL_nodez00_bglt BgL_arg5821z00_1810;
BgL_arg5821z00_1810 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1805))->BgL_funz00); 
{ /* ./Cfa/collect.scm 226 */
BgL_variablez00_bglt BgL_ownerz00_2249;
BgL_ownerz00_2249 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1806); 
{ /* ./Cfa/collect.scm 226 */
obj_t BgL_method4594z00_2250;
{ /* ./Cfa/collect.scm 226 */
BgL_objectz00_bglt BgL_objz00_2251;
BgL_objz00_2251 = 
(BgL_objectz00_bglt)(BgL_arg5821z00_1810); 
{ /* ./Cfa/collect.scm 226 */
long BgL_objzd2classzd2numz00_2252;
BgL_objzd2classzd2numz00_2252 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2251); 
{ /* ./Cfa/collect.scm 226 */
obj_t BgL_arg2017z00_2253;
{ /* ./Cfa/collect.scm 226 */
int BgL_auxz00_3758;
BgL_auxz00_3758 = 
(int)(((long)1)); 
BgL_arg2017z00_2253 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3758); } 
{ /* ./Cfa/collect.scm 226 */
int BgL_offsetz00_2256;
BgL_offsetz00_2256 = 
(int)(BgL_objzd2classzd2numz00_2252); 
{ /* ./Cfa/collect.scm 226 */
long BgL_offsetz00_2257;
{ /* ./Cfa/collect.scm 226 */
long BgL_auxz00_3762;
BgL_auxz00_3762 = 
(long)(BgL_offsetz00_2256); 
BgL_offsetz00_2257 = 
(BgL_auxz00_3762-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 226 */
long BgL_modz00_2258;
{ /* ./Cfa/collect.scm 226 */
int BgL_arg2028z00_2259;
BgL_arg2028z00_2259 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 226 */
long BgL_n2z00_2267;
BgL_n2z00_2267 = 
(long)(BgL_arg2028z00_2259); 
BgL_modz00_2258 = 
(BgL_offsetz00_2257/BgL_n2z00_2267); } } 
{ /* ./Cfa/collect.scm 226 */
long BgL_restz00_2260;
{ /* ./Cfa/collect.scm 226 */
int BgL_arg2024z00_2261;
BgL_arg2024z00_2261 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 226 */
long BgL_n2z00_2270;
BgL_n2z00_2270 = 
(long)(BgL_arg2024z00_2261); 
BgL_restz00_2260 = 
(BgL_offsetz00_2257%BgL_n2z00_2270); } } 
{ /* ./Cfa/collect.scm 226 */

{ /* ./Cfa/collect.scm 226 */
obj_t BgL_bucketz00_2262;
{ /* ./Cfa/collect.scm 226 */
int BgL_kz00_2272;
BgL_kz00_2272 = 
(int)(BgL_modz00_2258); 
BgL_bucketz00_2262 = 
VECTOR_REF(BgL_arg2017z00_2253,BgL_kz00_2272); } 
{ /* ./Cfa/collect.scm 226 */
int BgL_kz00_2274;
BgL_kz00_2274 = 
(int)(BgL_restz00_2260); 
BgL_method4594z00_2250 = 
VECTOR_REF(BgL_bucketz00_2262,BgL_kz00_2274); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2250)(BgL_method4594z00_2250, 
(obj_t)(BgL_arg5821z00_1810), 
(obj_t)(BgL_ownerz00_2249), BEOA); } } } 
{ /* ./Cfa/collect.scm 227 */
obj_t BgL_arg5825z00_1811;
BgL_arg5825z00_1811 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1805))->BgL_argsz00); 
BgL_auxz00_3751 = 
BGl_nodezd2collectza2z12z62zzcfa_collectz00(BgL_arg5825z00_1811, BgL_ownerz00_1806); } 
return 
BBOOL(BgL_auxz00_3751);} } } 
}



/* node-collect!-app-ly4608 */
obj_t BGl_nodezd2collectz12zd2appzd2ly4608zc0zzcfa_collectz00(obj_t BgL_envz00_2997, obj_t BgL_nodez00_2998, obj_t BgL_ownerz00_2999)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 215 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1796;obj_t BgL_ownerz00_1797;
BgL_nodez00_1796 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2998); 
BgL_ownerz00_1797 = BgL_ownerz00_2999; 
{ /* ./Cfa/collect.scm 216 */
BgL_nodez00_bglt BgL_arg5806z00_2189;
BgL_arg5806z00_2189 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1796))->BgL_funz00); 
{ /* ./Cfa/collect.scm 216 */
BgL_variablez00_bglt BgL_ownerz00_2193;
BgL_ownerz00_2193 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1797); 
{ /* ./Cfa/collect.scm 216 */
obj_t BgL_method4594z00_2194;
{ /* ./Cfa/collect.scm 216 */
BgL_objectz00_bglt BgL_objz00_2195;
BgL_objz00_2195 = 
(BgL_objectz00_bglt)(BgL_arg5806z00_2189); 
{ /* ./Cfa/collect.scm 216 */
long BgL_objzd2classzd2numz00_2196;
BgL_objzd2classzd2numz00_2196 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2195); 
{ /* ./Cfa/collect.scm 216 */
obj_t BgL_arg2017z00_2197;
{ /* ./Cfa/collect.scm 216 */
int BgL_auxz00_3787;
BgL_auxz00_3787 = 
(int)(((long)1)); 
BgL_arg2017z00_2197 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3787); } 
{ /* ./Cfa/collect.scm 216 */
int BgL_offsetz00_2200;
BgL_offsetz00_2200 = 
(int)(BgL_objzd2classzd2numz00_2196); 
{ /* ./Cfa/collect.scm 216 */
long BgL_offsetz00_2201;
{ /* ./Cfa/collect.scm 216 */
long BgL_auxz00_3791;
BgL_auxz00_3791 = 
(long)(BgL_offsetz00_2200); 
BgL_offsetz00_2201 = 
(BgL_auxz00_3791-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 216 */
long BgL_modz00_2202;
{ /* ./Cfa/collect.scm 216 */
int BgL_arg2028z00_2203;
BgL_arg2028z00_2203 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 216 */
long BgL_n2z00_2211;
BgL_n2z00_2211 = 
(long)(BgL_arg2028z00_2203); 
BgL_modz00_2202 = 
(BgL_offsetz00_2201/BgL_n2z00_2211); } } 
{ /* ./Cfa/collect.scm 216 */
long BgL_restz00_2204;
{ /* ./Cfa/collect.scm 216 */
int BgL_arg2024z00_2205;
BgL_arg2024z00_2205 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 216 */
long BgL_n2z00_2214;
BgL_n2z00_2214 = 
(long)(BgL_arg2024z00_2205); 
BgL_restz00_2204 = 
(BgL_offsetz00_2201%BgL_n2z00_2214); } } 
{ /* ./Cfa/collect.scm 216 */

{ /* ./Cfa/collect.scm 216 */
obj_t BgL_bucketz00_2206;
{ /* ./Cfa/collect.scm 216 */
int BgL_kz00_2216;
BgL_kz00_2216 = 
(int)(BgL_modz00_2202); 
BgL_bucketz00_2206 = 
VECTOR_REF(BgL_arg2017z00_2197,BgL_kz00_2216); } 
{ /* ./Cfa/collect.scm 216 */
int BgL_kz00_2218;
BgL_kz00_2218 = 
(int)(BgL_restz00_2204); 
BgL_method4594z00_2194 = 
VECTOR_REF(BgL_bucketz00_2206,BgL_kz00_2218); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2194)(BgL_method4594z00_2194, 
(obj_t)(BgL_arg5806z00_2189), 
(obj_t)(BgL_ownerz00_2193), BEOA); } } } 
{ /* ./Cfa/collect.scm 216 */
BgL_nodez00_bglt BgL_arg5810z00_2190;
BgL_arg5810z00_2190 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1796))->BgL_argz00); 
{ /* ./Cfa/collect.scm 216 */
BgL_variablez00_bglt BgL_ownerz00_2221;
BgL_ownerz00_2221 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1797); 
{ /* ./Cfa/collect.scm 216 */
obj_t BgL_method4594z00_2222;
{ /* ./Cfa/collect.scm 216 */
BgL_objectz00_bglt BgL_objz00_2223;
BgL_objz00_2223 = 
(BgL_objectz00_bglt)(BgL_arg5810z00_2190); 
{ /* ./Cfa/collect.scm 216 */
long BgL_objzd2classzd2numz00_2224;
BgL_objzd2classzd2numz00_2224 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2223); 
{ /* ./Cfa/collect.scm 216 */
obj_t BgL_arg2017z00_2225;
{ /* ./Cfa/collect.scm 216 */
int BgL_auxz00_3812;
BgL_auxz00_3812 = 
(int)(((long)1)); 
BgL_arg2017z00_2225 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3812); } 
{ /* ./Cfa/collect.scm 216 */
int BgL_offsetz00_2228;
BgL_offsetz00_2228 = 
(int)(BgL_objzd2classzd2numz00_2224); 
{ /* ./Cfa/collect.scm 216 */
long BgL_offsetz00_2229;
{ /* ./Cfa/collect.scm 216 */
long BgL_auxz00_3816;
BgL_auxz00_3816 = 
(long)(BgL_offsetz00_2228); 
BgL_offsetz00_2229 = 
(BgL_auxz00_3816-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 216 */
long BgL_modz00_2230;
{ /* ./Cfa/collect.scm 216 */
int BgL_arg2028z00_2231;
BgL_arg2028z00_2231 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 216 */
long BgL_n2z00_2239;
BgL_n2z00_2239 = 
(long)(BgL_arg2028z00_2231); 
BgL_modz00_2230 = 
(BgL_offsetz00_2229/BgL_n2z00_2239); } } 
{ /* ./Cfa/collect.scm 216 */
long BgL_restz00_2232;
{ /* ./Cfa/collect.scm 216 */
int BgL_arg2024z00_2233;
BgL_arg2024z00_2233 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 216 */
long BgL_n2z00_2242;
BgL_n2z00_2242 = 
(long)(BgL_arg2024z00_2233); 
BgL_restz00_2232 = 
(BgL_offsetz00_2229%BgL_n2z00_2242); } } 
{ /* ./Cfa/collect.scm 216 */

{ /* ./Cfa/collect.scm 216 */
obj_t BgL_bucketz00_2234;
{ /* ./Cfa/collect.scm 216 */
int BgL_kz00_2244;
BgL_kz00_2244 = 
(int)(BgL_modz00_2230); 
BgL_bucketz00_2234 = 
VECTOR_REF(BgL_arg2017z00_2225,BgL_kz00_2244); } 
{ /* ./Cfa/collect.scm 216 */
int BgL_kz00_2246;
BgL_kz00_2246 = 
(int)(BgL_restz00_2232); 
BgL_method4594z00_2222 = 
VECTOR_REF(BgL_bucketz00_2234,BgL_kz00_2246); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2222)(BgL_method4594z00_2222, 
(obj_t)(BgL_arg5810z00_2190), 
(obj_t)(BgL_ownerz00_2221), BEOA);} } } } } 
}



/* node-collect!-valloc4606 */
obj_t BGl_nodezd2collectz12zd2valloc4606z12zzcfa_collectz00(obj_t BgL_envz00_3000, obj_t BgL_nodez00_3001, obj_t BgL_ownerz00_3002)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 204 */
{ 
BgL_vallocz00_bglt BgL_nodez00_1783;obj_t BgL_ownerz00_1784;
BgL_nodez00_1783 = 
(BgL_vallocz00_bglt)(BgL_nodez00_3001); 
BgL_ownerz00_1784 = BgL_ownerz00_3002; 
{ /* ./Cfa/collect.scm 206 */
obj_t BgL_arg5782z00_1788;
{ /* ./Cfa/collect.scm 206 */
BgL_externz00_bglt BgL_obj1836z00_2183;
BgL_obj1836z00_2183 = 
(BgL_externz00_bglt)(BgL_nodez00_1783); 
BgL_arg5782z00_1788 = 
(((BgL_externz00_bglt)CREF(BgL_obj1836z00_2183))->BgL_exprza2za2); } 
BGl_nodezd2collectza2z12z62zzcfa_collectz00(BgL_arg5782z00_1788, BgL_ownerz00_1784); } 
{ /* ./Cfa/collect.scm 207 */
bool_t BgL_test5785z00_1789;
BgL_test5785z00_1789 = 
BGl_vectorzd2optimzf3z21zzcfa_vectorz00(); 
if(BgL_test5785z00_1789)
{ /* ./Cfa/collect.scm 207 */
{ /* ./Cfa/collect.scm 209 */
obj_t BgL_auxz00_3839;
BgL_auxz00_3839 = 
(obj_t)(BgL_nodez00_1783); 
BGl_za2usedzd2allocza2zd2zzcfa_collectz00 = 
MAKE_PAIR(BgL_auxz00_3839, BGl_za2usedzd2allocza2zd2zzcfa_collectz00); } 
{ /* ./Cfa/collect.scm 210 */
BgL_vallocz00_bglt BgL_obj4554z00_1790;
BgL_obj4554z00_1790 = 
((BgL_vallocz00_bglt)BgL_nodez00_1783); 
{ /* ./Cfa/collect.scm 210 */
obj_t BgL_arg5788z00_1791;
{ /* ./Cfa/collect.scm 210 */
obj_t BgL_arg5791z00_1792;
BgL_arg5791z00_1792 = BgL_ownerz00_1784; 
BgL_arg5788z00_1791 = 
BGl_wideningzd2prezd2valloczf2Cinfozf2zzcfa_info3z00(
(BgL_variablez00_bglt)(BgL_arg5791z00_1792)); } 
{ /* ./Cfa/collect.scm 210 */
BgL_objectz00_bglt BgL_auxz00_3845;
BgL_auxz00_3845 = 
(BgL_objectz00_bglt)(BgL_obj4554z00_1790); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3845, BgL_arg5788z00_1791); } } 
{ /* ./Cfa/collect.scm 210 */
long BgL_arg5794z00_1793;
BgL_arg5794z00_1793 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2valloczf2Cinfoz20zzcfa_info3z00); 
{ /* ./Cfa/collect.scm 210 */
BgL_objectz00_bglt BgL_objz00_2185;
BgL_objz00_2185 = 
(BgL_objectz00_bglt)(BgL_obj4554z00_1790); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2185, BgL_arg5794z00_1793); } } 
{ /* ./Cfa/collect.scm 210 */
obj_t BgL_objz00_2187;
BgL_objz00_2187 = 
(obj_t)(BgL_obj4554z00_1790); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2187); BUNSPEC; } 
return 
(obj_t)(BgL_obj4554z00_1790);} }  else 
{ /* ./Cfa/collect.scm 207 */
return BFALSE;} } } } 
}



/* node-collect!-app4604 */
obj_t BGl_nodezd2collectz12zd2app4604z12zzcfa_collectz00(obj_t BgL_envz00_3003, obj_t BgL_nodez00_3004, obj_t BgL_ownerz00_3005)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 148 */
{ 
BgL_appz00_bglt BgL_nodez00_1714;obj_t BgL_ownerz00_1715;
BgL_nodez00_1714 = 
(BgL_appz00_bglt)(BgL_nodez00_3004); 
BgL_ownerz00_1715 = BgL_ownerz00_3005; 
{ /* ./Cfa/collect.scm 150 */
obj_t BgL_arg5614z00_1719;
BgL_arg5614z00_1719 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1714))->BgL_argsz00); 
BGl_nodezd2collectza2z12z62zzcfa_collectz00(BgL_arg5614z00_1719, BgL_ownerz00_1715); } 
{ /* ./Cfa/collect.scm 151 */
BgL_varz00_bglt BgL_arg5618z00_1720;
BgL_arg5618z00_1720 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1714))->BgL_funz00); 
{ /* ./Cfa/collect.scm 151 */
BgL_nodez00_bglt BgL_nodez00_2111;BgL_variablez00_bglt BgL_ownerz00_2112;
BgL_nodez00_2111 = 
(BgL_nodez00_bglt)(BgL_arg5618z00_1720); 
BgL_ownerz00_2112 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1715); 
{ /* ./Cfa/collect.scm 151 */
obj_t BgL_method4594z00_2113;
{ /* ./Cfa/collect.scm 151 */
BgL_objectz00_bglt BgL_objz00_2114;
BgL_objz00_2114 = 
(BgL_objectz00_bglt)(BgL_nodez00_2111); 
{ /* ./Cfa/collect.scm 151 */
long BgL_objzd2classzd2numz00_2115;
BgL_objzd2classzd2numz00_2115 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2114); 
{ /* ./Cfa/collect.scm 151 */
obj_t BgL_arg2017z00_2116;
{ /* ./Cfa/collect.scm 151 */
int BgL_auxz00_3862;
BgL_auxz00_3862 = 
(int)(((long)1)); 
BgL_arg2017z00_2116 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_3862); } 
{ /* ./Cfa/collect.scm 151 */
int BgL_offsetz00_2119;
BgL_offsetz00_2119 = 
(int)(BgL_objzd2classzd2numz00_2115); 
{ /* ./Cfa/collect.scm 151 */
long BgL_offsetz00_2120;
{ /* ./Cfa/collect.scm 151 */
long BgL_auxz00_3866;
BgL_auxz00_3866 = 
(long)(BgL_offsetz00_2119); 
BgL_offsetz00_2120 = 
(BgL_auxz00_3866-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 151 */
long BgL_modz00_2121;
{ /* ./Cfa/collect.scm 151 */
int BgL_arg2028z00_2122;
BgL_arg2028z00_2122 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 151 */
long BgL_n2z00_2130;
BgL_n2z00_2130 = 
(long)(BgL_arg2028z00_2122); 
BgL_modz00_2121 = 
(BgL_offsetz00_2120/BgL_n2z00_2130); } } 
{ /* ./Cfa/collect.scm 151 */
long BgL_restz00_2123;
{ /* ./Cfa/collect.scm 151 */
int BgL_arg2024z00_2124;
BgL_arg2024z00_2124 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 151 */
long BgL_n2z00_2133;
BgL_n2z00_2133 = 
(long)(BgL_arg2024z00_2124); 
BgL_restz00_2123 = 
(BgL_offsetz00_2120%BgL_n2z00_2133); } } 
{ /* ./Cfa/collect.scm 151 */

{ /* ./Cfa/collect.scm 151 */
obj_t BgL_bucketz00_2125;
{ /* ./Cfa/collect.scm 151 */
int BgL_kz00_2135;
BgL_kz00_2135 = 
(int)(BgL_modz00_2121); 
BgL_bucketz00_2125 = 
VECTOR_REF(BgL_arg2017z00_2116,BgL_kz00_2135); } 
{ /* ./Cfa/collect.scm 151 */
int BgL_kz00_2137;
BgL_kz00_2137 = 
(int)(BgL_restz00_2123); 
BgL_method4594z00_2113 = 
VECTOR_REF(BgL_bucketz00_2125,BgL_kz00_2137); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2113)(BgL_method4594z00_2113, 
(obj_t)(BgL_nodez00_2111), 
(obj_t)(BgL_ownerz00_2112), BEOA); } } } 
{ /* ./Cfa/collect.scm 152 */
BgL_variablez00_bglt BgL_vz00_1721;
{ /* ./Cfa/collect.scm 152 */
BgL_varz00_bglt BgL_arg5772z00_1780;
BgL_arg5772z00_1780 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1714))->BgL_funz00); 
BgL_vz00_1721 = 
(((BgL_varz00_bglt)CREF(BgL_arg5772z00_1780))->BgL_variablez00); } 
{ /* ./Cfa/collect.scm 153 */
bool_t BgL_test5621z00_1722;
{ /* ./Cfa/collect.scm 153 */
obj_t BgL_obj1261z00_2140;
BgL_obj1261z00_2140 = 
(obj_t)(BgL_vz00_1721); 
BgL_test5621z00_1722 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1261z00_2140, BGl_globalz00zzast_varz00); } 
if(BgL_test5621z00_1722)
{ /* ./Cfa/collect.scm 154 */
bool_t BgL_test5622z00_1723;
{ /* ./Cfa/collect.scm 154 */
BgL_valuez00_bglt BgL_arg5767z00_1779;
BgL_arg5767z00_1779 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1721))->BgL_valuez00); 
{ /* ./Cfa/collect.scm 154 */
obj_t BgL_obj1511z00_2142;
BgL_obj1511z00_2142 = 
(obj_t)(BgL_arg5767z00_1779); 
BgL_test5622z00_1723 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1511z00_2142, BGl_cfunz00zzast_varz00); } } 
if(BgL_test5622z00_1723)
{ /* ./Cfa/collect.scm 154 */
{ /* ./Cfa/collect.scm 160 */
obj_t BgL_casezd2valuezd2_1724;
BgL_casezd2valuezd2_1724 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1721))->BgL_idz00); 
{ /* ./Cfa/collect.scm 161 */
bool_t BgL_test5623z00_1725;
BgL_test5623z00_1725 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1724, 
CNST_TABLE_REF(((long)5))); 
if(BgL_test5623z00_1725)
{ /* ./Cfa/collect.scm 161 */
if(
CBOOL(BGl_za2optimzd2cfazd2arithmeticzf3za2zf3zzengine_paramz00))
{ /* ./Cfa/collect.scm 163 */
BgL_appz00_bglt BgL_obj4542z00_1726;
BgL_obj4542z00_1726 = 
((BgL_appz00_bglt)BgL_nodez00_1714); 
{ /* ./Cfa/collect.scm 164 */
obj_t BgL_arg5625z00_1727;
{ /* ./Cfa/collect.scm 164 */
obj_t BgL_arg5628z00_1728;
BgL_arg5628z00_1728 = 
BGl_arithmeticzd2speczd2typesz00zzcfa_specializa7eza7(
(BgL_globalz00_bglt)(BgL_vz00_1721)); 
BgL_arg5625z00_1727 = 
BGl_wideningzd2prezd2arithmeticzd2appzd2zzcfa_info2z00(BgL_arg5628z00_1728); } 
{ /* ./Cfa/collect.scm 163 */
BgL_objectz00_bglt BgL_auxz00_3902;
BgL_auxz00_3902 = 
(BgL_objectz00_bglt)(BgL_obj4542z00_1726); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3902, BgL_arg5625z00_1727); } } 
{ /* ./Cfa/collect.scm 163 */
long BgL_arg5632z00_1729;
BgL_arg5632z00_1729 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2arithmeticzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/collect.scm 163 */
BgL_objectz00_bglt BgL_objz00_2144;
BgL_objz00_2144 = 
(BgL_objectz00_bglt)(BgL_obj4542z00_1726); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2144, BgL_arg5632z00_1729); } } 
{ /* ./Cfa/collect.scm 163 */
obj_t BgL_objz00_2146;
BgL_objz00_2146 = 
(obj_t)(BgL_obj4542z00_1726); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2146); BUNSPEC; } 
(obj_t)(BgL_obj4542z00_1726); }  else 
{ /* ./Cfa/collect.scm 162 */BFALSE; } }  else 
{ /* ./Cfa/collect.scm 161 */
bool_t BgL_test5636z00_1730;
BgL_test5636z00_1730 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1724, 
CNST_TABLE_REF(((long)6))); 
if(BgL_test5636z00_1730)
{ /* ./Cfa/collect.scm 161 */
{ /* ./Cfa/collect.scm 166 */
obj_t BgL_auxz00_3914;
BgL_auxz00_3914 = 
(obj_t)(BgL_nodez00_1714); 
BGl_za2usedzd2allocza2zd2zzcfa_collectz00 = 
MAKE_PAIR(BgL_auxz00_3914, BGl_za2usedzd2allocza2zd2zzcfa_collectz00); } 
{ /* ./Cfa/collect.scm 167 */
BgL_appz00_bglt BgL_obj4543z00_1731;
BgL_obj4543z00_1731 = 
((BgL_appz00_bglt)BgL_nodez00_1714); 
{ /* ./Cfa/collect.scm 167 */
obj_t BgL_arg5639z00_1732;
{ /* ./Cfa/collect.scm 167 */
obj_t BgL_arg5642z00_1733;
BgL_arg5642z00_1733 = BgL_ownerz00_1715; 
BgL_arg5639z00_1732 = 
BGl_wideningzd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(
(BgL_variablez00_bglt)(BgL_arg5642z00_1733)); } 
{ /* ./Cfa/collect.scm 167 */
BgL_objectz00_bglt BgL_auxz00_3920;
BgL_auxz00_3920 = 
(BgL_objectz00_bglt)(BgL_obj4543z00_1731); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3920, BgL_arg5639z00_1732); } } 
{ /* ./Cfa/collect.scm 167 */
long BgL_arg5645z00_1734;
BgL_arg5645z00_1734 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/collect.scm 167 */
BgL_objectz00_bglt BgL_objz00_2148;
BgL_objz00_2148 = 
(BgL_objectz00_bglt)(BgL_obj4543z00_1731); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2148, BgL_arg5645z00_1734); } } 
{ /* ./Cfa/collect.scm 167 */
obj_t BgL_objz00_2150;
BgL_objz00_2150 = 
(obj_t)(BgL_obj4543z00_1731); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2150); BUNSPEC; } 
(obj_t)(BgL_obj4543z00_1731); } }  else 
{ /* ./Cfa/collect.scm 161 */
bool_t BgL_test5649z00_1735;
BgL_test5649z00_1735 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1724, 
CNST_TABLE_REF(((long)7))); 
if(BgL_test5649z00_1735)
{ /* ./Cfa/collect.scm 161 */
{ /* ./Cfa/collect.scm 169 */
obj_t BgL_auxz00_3932;
BgL_auxz00_3932 = 
(obj_t)(BgL_nodez00_1714); 
BGl_za2usedzd2allocza2zd2zzcfa_collectz00 = 
MAKE_PAIR(BgL_auxz00_3932, BGl_za2usedzd2allocza2zd2zzcfa_collectz00); } 
{ /* ./Cfa/collect.scm 170 */
BgL_appz00_bglt BgL_obj4544z00_1736;
BgL_obj4544z00_1736 = 
((BgL_appz00_bglt)BgL_nodez00_1714); 
{ /* ./Cfa/collect.scm 170 */
obj_t BgL_arg5652z00_1737;
{ /* ./Cfa/collect.scm 170 */
obj_t BgL_arg5655z00_1738;
BgL_arg5655z00_1738 = BgL_ownerz00_1715; 
BgL_arg5652z00_1737 = 
BGl_wideningzd2prezd2makezd2procedurezd2appz00zzcfa_info2z00(
(BgL_variablez00_bglt)(BgL_arg5655z00_1738)); } 
{ /* ./Cfa/collect.scm 170 */
BgL_objectz00_bglt BgL_auxz00_3938;
BgL_auxz00_3938 = 
(BgL_objectz00_bglt)(BgL_obj4544z00_1736); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3938, BgL_arg5652z00_1737); } } 
{ /* ./Cfa/collect.scm 170 */
long BgL_arg5658z00_1739;
BgL_arg5658z00_1739 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2procedurezd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/collect.scm 170 */
BgL_objectz00_bglt BgL_objz00_2152;
BgL_objz00_2152 = 
(BgL_objectz00_bglt)(BgL_obj4544z00_1736); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2152, BgL_arg5658z00_1739); } } 
{ /* ./Cfa/collect.scm 170 */
obj_t BgL_objz00_2154;
BgL_objz00_2154 = 
(obj_t)(BgL_obj4544z00_1736); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2154); BUNSPEC; } 
(obj_t)(BgL_obj4544z00_1736); } }  else 
{ /* ./Cfa/collect.scm 161 */
bool_t BgL_test5662z00_1740;
BgL_test5662z00_1740 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1724, 
CNST_TABLE_REF(((long)8))); 
if(BgL_test5662z00_1740)
{ /* ./Cfa/collect.scm 172 */
BgL_appz00_bglt BgL_obj4545z00_1741;
BgL_obj4545z00_1741 = 
((BgL_appz00_bglt)BgL_nodez00_1714); 
{ /* ./Cfa/collect.scm 172 */
obj_t BgL_arg5664z00_1742;
BgL_arg5664z00_1742 = 
BGl_wideningzd2prezd2procedurezd2refzd2appz00zzcfa_info2z00(); 
{ /* ./Cfa/collect.scm 172 */
BgL_objectz00_bglt BgL_auxz00_3952;
BgL_auxz00_3952 = 
(BgL_objectz00_bglt)(BgL_obj4545z00_1741); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3952, BgL_arg5664z00_1742); } } 
{ /* ./Cfa/collect.scm 172 */
long BgL_arg5668z00_1743;
BgL_arg5668z00_1743 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2procedurezd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/collect.scm 172 */
BgL_objectz00_bglt BgL_objz00_2155;
BgL_objz00_2155 = 
(BgL_objectz00_bglt)(BgL_obj4545z00_1741); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2155, BgL_arg5668z00_1743); } } 
{ /* ./Cfa/collect.scm 172 */
obj_t BgL_objz00_2157;
BgL_objz00_2157 = 
(obj_t)(BgL_obj4545z00_1741); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2157); BUNSPEC; } 
(obj_t)(BgL_obj4545z00_1741); }  else 
{ /* ./Cfa/collect.scm 161 */
bool_t BgL_test5672z00_1744;
BgL_test5672z00_1744 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1724, 
CNST_TABLE_REF(((long)9))); 
if(BgL_test5672z00_1744)
{ /* ./Cfa/collect.scm 174 */
BgL_appz00_bglt BgL_obj4546z00_1745;
BgL_obj4546z00_1745 = 
((BgL_appz00_bglt)BgL_nodez00_1714); 
{ /* ./Cfa/collect.scm 174 */
obj_t BgL_arg5674z00_1746;
BgL_arg5674z00_1746 = 
BGl_wideningzd2prezd2procedurezd2setz12zd2appz12zzcfa_info2z00(); 
{ /* ./Cfa/collect.scm 174 */
BgL_objectz00_bglt BgL_auxz00_3966;
BgL_auxz00_3966 = 
(BgL_objectz00_bglt)(BgL_obj4546z00_1745); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3966, BgL_arg5674z00_1746); } } 
{ /* ./Cfa/collect.scm 174 */
long BgL_arg5678z00_1747;
BgL_arg5678z00_1747 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2procedurezd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/collect.scm 174 */
BgL_objectz00_bglt BgL_objz00_2158;
BgL_objz00_2158 = 
(BgL_objectz00_bglt)(BgL_obj4546z00_1745); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2158, BgL_arg5678z00_1747); } } 
{ /* ./Cfa/collect.scm 174 */
obj_t BgL_objz00_2160;
BgL_objz00_2160 = 
(obj_t)(BgL_obj4546z00_1745); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2160); BUNSPEC; } 
(obj_t)(BgL_obj4546z00_1745); }  else 
{ /* ./Cfa/collect.scm 161 */BUNSPEC; } } } } } } } 
{ /* ./Cfa/collect.scm 175 */
bool_t BgL_test5688z00_1748;
BgL_test5688z00_1748 = 
BGl_vectorzd2optimzf3z21zzcfa_vectorz00(); 
if(BgL_test5688z00_1748)
{ /* ./Cfa/collect.scm 176 */
obj_t BgL_casezd2valuezd2_1749;
BgL_casezd2valuezd2_1749 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1721))->BgL_idz00); 
{ /* ./Cfa/collect.scm 177 */
bool_t BgL_test5689z00_1750;
BgL_test5689z00_1750 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1749, 
CNST_TABLE_REF(((long)10))); 
if(BgL_test5689z00_1750)
{ /* ./Cfa/collect.scm 177 */
{ /* ./Cfa/collect.scm 178 */
obj_t BgL_auxz00_3981;
BgL_auxz00_3981 = 
(obj_t)(BgL_nodez00_1714); 
BGl_za2usedzd2allocza2zd2zzcfa_collectz00 = 
MAKE_PAIR(BgL_auxz00_3981, BGl_za2usedzd2allocza2zd2zzcfa_collectz00); } 
{ /* ./Cfa/collect.scm 179 */
BgL_appz00_bglt BgL_obj4547z00_1751;
BgL_obj4547z00_1751 = 
((BgL_appz00_bglt)BgL_nodez00_1714); 
{ /* ./Cfa/collect.scm 179 */
obj_t BgL_arg5692z00_1752;
{ /* ./Cfa/collect.scm 179 */
obj_t BgL_arg5695z00_1753;
BgL_arg5695z00_1753 = BgL_ownerz00_1715; 
BgL_arg5692z00_1752 = 
BGl_wideningzd2prezd2makezd2vectorzd2appz00zzcfa_info2z00(
(BgL_variablez00_bglt)(BgL_arg5695z00_1753)); } 
{ /* ./Cfa/collect.scm 179 */
BgL_objectz00_bglt BgL_auxz00_3987;
BgL_auxz00_3987 = 
(BgL_objectz00_bglt)(BgL_obj4547z00_1751); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_3987, BgL_arg5692z00_1752); } } 
{ /* ./Cfa/collect.scm 179 */
long BgL_arg5698z00_1754;
BgL_arg5698z00_1754 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2vectorzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/collect.scm 179 */
BgL_objectz00_bglt BgL_objz00_2163;
BgL_objz00_2163 = 
(BgL_objectz00_bglt)(BgL_obj4547z00_1751); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2163, BgL_arg5698z00_1754); } } 
{ /* ./Cfa/collect.scm 179 */
obj_t BgL_objz00_2165;
BgL_objz00_2165 = 
(obj_t)(BgL_obj4547z00_1751); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2165); BUNSPEC; } 
(obj_t)(BgL_obj4547z00_1751); } }  else 
{ /* ./Cfa/collect.scm 177 */
bool_t BgL_test5702z00_1755;
{ /* ./Cfa/collect.scm 177 */
obj_t BgL_auxz00_3996;
BgL_auxz00_3996 = 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_casezd2valuezd2_1749, 
CNST_TABLE_REF(((long)11))); 
BgL_test5702z00_1755 = 
CBOOL(BgL_auxz00_3996); } 
if(BgL_test5702z00_1755)
{ /* ./Cfa/collect.scm 183 */
obj_t BgL_arg5706z00_1758;
BgL_arg5706z00_1758 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1721))->BgL_idz00); 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string6726z00zzcfa_collectz00, BGl_string6727z00zzcfa_collectz00, BgL_arg5706z00_1758); }  else 
{ /* ./Cfa/collect.scm 177 */BUNSPEC; } } } }  else 
{ /* ./Cfa/collect.scm 175 */BFALSE; } } 
{ /* ./Cfa/collect.scm 186 */
bool_t BgL_test5713z00_1759;
{ /* ./Cfa/collect.scm 186 */
long BgL_n1z00_2167;
BgL_n1z00_2167 = 
(long)CINT(BGl_za2optimza2z00zzengine_paramz00); 
BgL_test5713z00_1759 = 
(BgL_n1z00_2167>=((long)2)); } 
if(BgL_test5713z00_1759)
{ /* ./Cfa/collect.scm 187 */
obj_t BgL_casezd2valuezd2_1760;
BgL_casezd2valuezd2_1760 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1721))->BgL_idz00); 
{ /* ./Cfa/collect.scm 188 */
bool_t BgL_test5714z00_1761;
BgL_test5714z00_1761 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1760, 
CNST_TABLE_REF(((long)12))); 
if(BgL_test5714z00_1761)
{ /* ./Cfa/collect.scm 188 */
{ /* ./Cfa/collect.scm 189 */
obj_t BgL_auxz00_4010;
BgL_auxz00_4010 = 
(obj_t)(BgL_nodez00_1714); 
BGl_za2usedzd2allocza2zd2zzcfa_collectz00 = 
MAKE_PAIR(BgL_auxz00_4010, BGl_za2usedzd2allocza2zd2zzcfa_collectz00); } 
{ /* ./Cfa/collect.scm 190 */
BgL_appz00_bglt BgL_obj4548z00_1762;
BgL_obj4548z00_1762 = 
((BgL_appz00_bglt)BgL_nodez00_1714); 
{ /* ./Cfa/collect.scm 190 */
obj_t BgL_arg5717z00_1763;
{ /* ./Cfa/collect.scm 190 */
obj_t BgL_arg5720z00_1764;
BgL_arg5720z00_1764 = BgL_ownerz00_1715; 
BgL_arg5717z00_1763 = 
BGl_wideningzd2prezd2makezd2structzd2appz00zzcfa_info2z00(
(BgL_variablez00_bglt)(BgL_arg5720z00_1764)); } 
{ /* ./Cfa/collect.scm 190 */
BgL_objectz00_bglt BgL_auxz00_4016;
BgL_auxz00_4016 = 
(BgL_objectz00_bglt)(BgL_obj4548z00_1762); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4016, BgL_arg5717z00_1763); } } 
{ /* ./Cfa/collect.scm 190 */
long BgL_arg5723z00_1765;
BgL_arg5723z00_1765 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2makezd2structzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/collect.scm 190 */
BgL_objectz00_bglt BgL_objz00_2171;
BgL_objz00_2171 = 
(BgL_objectz00_bglt)(BgL_obj4548z00_1762); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2171, BgL_arg5723z00_1765); } } 
{ /* ./Cfa/collect.scm 190 */
obj_t BgL_objz00_2173;
BgL_objz00_2173 = 
(obj_t)(BgL_obj4548z00_1762); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2173); BUNSPEC; } 
return 
(obj_t)(BgL_obj4548z00_1762);} }  else 
{ /* ./Cfa/collect.scm 188 */
bool_t BgL_test5727z00_1766;
BgL_test5727z00_1766 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1760, 
CNST_TABLE_REF(((long)13))); 
if(BgL_test5727z00_1766)
{ /* ./Cfa/collect.scm 192 */
BgL_appz00_bglt BgL_obj4549z00_1767;
BgL_obj4549z00_1767 = 
((BgL_appz00_bglt)BgL_nodez00_1714); 
{ /* ./Cfa/collect.scm 192 */
obj_t BgL_arg5729z00_1768;
BgL_arg5729z00_1768 = 
BGl_wideningzd2prezd2structzd2refzd2appz00zzcfa_info2z00(); 
{ /* ./Cfa/collect.scm 192 */
BgL_objectz00_bglt BgL_auxz00_4030;
BgL_auxz00_4030 = 
(BgL_objectz00_bglt)(BgL_obj4549z00_1767); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4030, BgL_arg5729z00_1768); } } 
{ /* ./Cfa/collect.scm 192 */
long BgL_arg5733z00_1769;
BgL_arg5733z00_1769 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2structzd2refzd2appzd2zzcfa_info2z00); 
{ /* ./Cfa/collect.scm 192 */
BgL_objectz00_bglt BgL_objz00_2174;
BgL_objz00_2174 = 
(BgL_objectz00_bglt)(BgL_obj4549z00_1767); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2174, BgL_arg5733z00_1769); } } 
{ /* ./Cfa/collect.scm 192 */
obj_t BgL_objz00_2176;
BgL_objz00_2176 = 
(obj_t)(BgL_obj4549z00_1767); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2176); BUNSPEC; } 
return 
(obj_t)(BgL_obj4549z00_1767);}  else 
{ /* ./Cfa/collect.scm 188 */
bool_t BgL_test5737z00_1770;
BgL_test5737z00_1770 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_casezd2valuezd2_1760, 
CNST_TABLE_REF(((long)14))); 
if(BgL_test5737z00_1770)
{ /* ./Cfa/collect.scm 194 */
BgL_appz00_bglt BgL_obj4550z00_1771;
BgL_obj4550z00_1771 = 
((BgL_appz00_bglt)BgL_nodez00_1714); 
{ /* ./Cfa/collect.scm 194 */
obj_t BgL_arg5739z00_1772;
BgL_arg5739z00_1772 = 
BGl_wideningzd2prezd2structzd2setz12zd2appz12zzcfa_info2z00(); 
{ /* ./Cfa/collect.scm 194 */
BgL_objectz00_bglt BgL_auxz00_4044;
BgL_auxz00_4044 = 
(BgL_objectz00_bglt)(BgL_obj4550z00_1771); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4044, BgL_arg5739z00_1772); } } 
{ /* ./Cfa/collect.scm 194 */
long BgL_arg5743z00_1773;
BgL_arg5743z00_1773 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2structzd2setz12zd2appzc0zzcfa_info2z00); 
{ /* ./Cfa/collect.scm 194 */
BgL_objectz00_bglt BgL_objz00_2177;
BgL_objz00_2177 = 
(BgL_objectz00_bglt)(BgL_obj4550z00_1771); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2177, BgL_arg5743z00_1773); } } 
{ /* ./Cfa/collect.scm 194 */
obj_t BgL_objz00_2179;
BgL_objz00_2179 = 
(obj_t)(BgL_obj4550z00_1771); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2179); BUNSPEC; } 
return 
(obj_t)(BgL_obj4550z00_1771);}  else 
{ /* ./Cfa/collect.scm 188 */
return BUNSPEC;} } } } }  else 
{ /* ./Cfa/collect.scm 186 */
return BFALSE;} } }  else 
{ /* ./Cfa/collect.scm 154 */
if(
CBOOL(BGl_za2optimzd2cfazd2arithmeticzf3za2zf3zzengine_paramz00))
{ /* ./Cfa/collect.scm 197 */
bool_t BgL_test5752z00_1774;
{ /* ./Cfa/collect.scm 197 */
obj_t BgL_auxz00_4055;
BgL_auxz00_4055 = 
BGl_arithmeticzd2operatorzf3z21zzcfa_specializa7eza7(
(BgL_globalz00_bglt)(BgL_vz00_1721)); 
BgL_test5752z00_1774 = 
CBOOL(BgL_auxz00_4055); } 
if(BgL_test5752z00_1774)
{ /* ./Cfa/collect.scm 198 */
BgL_appz00_bglt BgL_obj4551z00_1775;
BgL_obj4551z00_1775 = 
((BgL_appz00_bglt)BgL_nodez00_1714); 
{ /* ./Cfa/collect.scm 199 */
obj_t BgL_arg5754z00_1776;
{ /* ./Cfa/collect.scm 199 */
obj_t BgL_arg5757z00_1777;
BgL_arg5757z00_1777 = 
BGl_arithmeticzd2speczd2typesz00zzcfa_specializa7eza7(
(BgL_globalz00_bglt)(BgL_vz00_1721)); 
BgL_arg5754z00_1776 = 
BGl_wideningzd2prezd2arithmeticzd2appzd2zzcfa_info2z00(BgL_arg5757z00_1777); } 
{ /* ./Cfa/collect.scm 198 */
BgL_objectz00_bglt BgL_auxz00_4064;
BgL_auxz00_4064 = 
(BgL_objectz00_bglt)(BgL_obj4551z00_1775); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4064, BgL_arg5754z00_1776); } } 
{ /* ./Cfa/collect.scm 198 */
long BgL_arg5761z00_1778;
BgL_arg5761z00_1778 = 
BGl_classzd2numzd2zz__objectz00(BGl_prezd2arithmeticzd2appz00zzcfa_info2z00); 
{ /* ./Cfa/collect.scm 198 */
BgL_objectz00_bglt BgL_objz00_2180;
BgL_objz00_2180 = 
(BgL_objectz00_bglt)(BgL_obj4551z00_1775); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2180, BgL_arg5761z00_1778); } } 
{ /* ./Cfa/collect.scm 198 */
obj_t BgL_objz00_2182;
BgL_objz00_2182 = 
(obj_t)(BgL_obj4551z00_1775); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2182); BUNSPEC; } 
return 
(obj_t)(BgL_obj4551z00_1775);}  else 
{ /* ./Cfa/collect.scm 197 */
return BFALSE;} }  else 
{ /* ./Cfa/collect.scm 196 */
return BFALSE;} } }  else 
{ /* ./Cfa/collect.scm 153 */
return BFALSE;} } } } } 
}



/* node-collect!-sequence4602 */
obj_t BGl_nodezd2collectz12zd2sequence4602z12zzcfa_collectz00(obj_t BgL_envz00_3006, obj_t BgL_nodez00_3007, obj_t BgL_ownerz00_3008)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 142 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1707;obj_t BgL_ownerz00_1708;
{ /* ./Cfa/collect.scm 143 */
bool_t BgL_auxz00_4074;
BgL_nodez00_1707 = 
(BgL_sequencez00_bglt)(BgL_nodez00_3007); 
BgL_ownerz00_1708 = BgL_ownerz00_3008; 
{ /* ./Cfa/collect.scm 143 */
obj_t BgL_arg5604z00_2107;
BgL_arg5604z00_2107 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1707))->BgL_nodesz00); 
BgL_auxz00_4074 = 
BGl_nodezd2collectza2z12z62zzcfa_collectz00(BgL_arg5604z00_2107, BgL_ownerz00_1708); } 
return 
BBOOL(BgL_auxz00_4074);} } } 
}



/* node-collect!-var4600 */
obj_t BGl_nodezd2collectz12zd2var4600z12zzcfa_collectz00(obj_t BgL_envz00_3009, obj_t BgL_nodez00_3010, obj_t BgL_ownerz00_3011)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 125 */
{ 
BgL_varz00_bglt BgL_nodez00_1689;obj_t BgL_ownerz00_1690;
BgL_nodez00_1689 = 
(BgL_varz00_bglt)(BgL_nodez00_3010); 
BgL_ownerz00_1690 = BgL_ownerz00_3011; 
{ /* ./Cfa/collect.scm 126 */
BgL_variablez00_bglt BgL_vz00_1693;
BgL_vz00_1693 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1689))->BgL_variablez00); 
{ /* ./Cfa/collect.scm 127 */
bool_t BgL_test5568z00_1694;
{ /* ./Cfa/collect.scm 127 */
bool_t BgL_test5576z00_1697;
{ /* ./Cfa/collect.scm 127 */
obj_t BgL_obj1261z00_2071;
BgL_obj1261z00_2071 = 
(obj_t)(BgL_vz00_1693); 
BgL_test5576z00_1697 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1261z00_2071, BGl_globalz00zzast_varz00); } 
if(BgL_test5576z00_1697)
{ /* ./Cfa/collect.scm 128 */
bool_t BgL_test5577z00_1698;
{ /* ./Cfa/collect.scm 128 */
obj_t BgL_arg5592z00_1704;
{ /* ./Cfa/collect.scm 128 */
BgL_globalz00_bglt BgL_obj1186z00_2072;
BgL_obj1186z00_2072 = 
(BgL_globalz00_bglt)(BgL_vz00_1693); 
BgL_arg5592z00_1704 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1186z00_2072))->BgL_modulez00); } 
BgL_test5577z00_1698 = 
(BgL_arg5592z00_1704==BGl_za2moduleza2z00zzmodule_modulez00); } 
if(BgL_test5577z00_1698)
{ /* ./Cfa/collect.scm 129 */
bool_t BgL_test5578z00_1699;
{ /* ./Cfa/collect.scm 129 */
BgL_valuez00_bglt BgL_arg5588z00_1703;
BgL_arg5588z00_1703 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1693))->BgL_valuez00); 
{ /* ./Cfa/collect.scm 129 */
obj_t BgL_obj1541z00_2074;
BgL_obj1541z00_2074 = 
(obj_t)(BgL_arg5588z00_1703); 
BgL_test5578z00_1699 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1541z00_2074, BGl_scnstz00zzast_varz00); } } 
if(BgL_test5578z00_1699)
{ /* ./Cfa/collect.scm 130 */
bool_t BgL_test5579z00_1700;
{ /* ./Cfa/collect.scm 130 */
obj_t BgL_arg5581z00_1701;
{ /* ./Cfa/collect.scm 130 */
BgL_scnstz00_bglt BgL_obj1522z00_2076;
{ /* ./Cfa/collect.scm 130 */
BgL_valuez00_bglt BgL_auxz00_4091;
BgL_auxz00_4091 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1693))->BgL_valuez00); 
BgL_obj1522z00_2076 = 
(BgL_scnstz00_bglt)(BgL_auxz00_4091); } 
BgL_arg5581z00_1701 = 
(((BgL_scnstz00_bglt)CREF(BgL_obj1522z00_2076))->BgL_nodez00); } 
{ /* ./Cfa/collect.scm 130 */
obj_t BgL_auxz00_4095;
BgL_auxz00_4095 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_arg5581z00_1701, BGl_za2usedzd2allocza2zd2zzcfa_collectz00); 
BgL_test5579z00_1700 = 
CBOOL(BgL_auxz00_4095); } } 
if(BgL_test5579z00_1700)
{ /* ./Cfa/collect.scm 130 */
BgL_test5568z00_1694 = ((bool_t)0); }  else 
{ /* ./Cfa/collect.scm 130 */
BgL_test5568z00_1694 = ((bool_t)1); } }  else 
{ /* ./Cfa/collect.scm 129 */
BgL_test5568z00_1694 = ((bool_t)0); } }  else 
{ /* ./Cfa/collect.scm 128 */
BgL_test5568z00_1694 = ((bool_t)0); } }  else 
{ /* ./Cfa/collect.scm 127 */
BgL_test5568z00_1694 = ((bool_t)0); } } 
if(BgL_test5568z00_1694)
{ /* ./Cfa/collect.scm 127 */
{ /* ./Cfa/collect.scm 136 */
obj_t BgL_arg5570z00_1695;
{ /* ./Cfa/collect.scm 136 */
BgL_scnstz00_bglt BgL_obj1522z00_2079;
{ /* ./Cfa/collect.scm 136 */
BgL_valuez00_bglt BgL_auxz00_4100;
BgL_auxz00_4100 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1693))->BgL_valuez00); 
BgL_obj1522z00_2079 = 
(BgL_scnstz00_bglt)(BgL_auxz00_4100); } 
BgL_arg5570z00_1695 = 
(((BgL_scnstz00_bglt)CREF(BgL_obj1522z00_2079))->BgL_nodez00); } 
{ /* ./Cfa/collect.scm 136 */
BgL_nodez00_bglt BgL_nodez00_2080;BgL_variablez00_bglt BgL_ownerz00_2081;
BgL_nodez00_2080 = 
(BgL_nodez00_bglt)(BgL_arg5570z00_1695); 
BgL_ownerz00_2081 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1690); 
{ /* ./Cfa/collect.scm 136 */
obj_t BgL_method4594z00_2082;
{ /* ./Cfa/collect.scm 136 */
BgL_objectz00_bglt BgL_objz00_2083;
BgL_objz00_2083 = 
(BgL_objectz00_bglt)(BgL_nodez00_2080); 
{ /* ./Cfa/collect.scm 136 */
long BgL_objzd2classzd2numz00_2084;
BgL_objzd2classzd2numz00_2084 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2083); 
{ /* ./Cfa/collect.scm 136 */
obj_t BgL_arg2017z00_2085;
{ /* ./Cfa/collect.scm 136 */
int BgL_auxz00_4108;
BgL_auxz00_4108 = 
(int)(((long)1)); 
BgL_arg2017z00_2085 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_4108); } 
{ /* ./Cfa/collect.scm 136 */
int BgL_offsetz00_2088;
BgL_offsetz00_2088 = 
(int)(BgL_objzd2classzd2numz00_2084); 
{ /* ./Cfa/collect.scm 136 */
long BgL_offsetz00_2089;
{ /* ./Cfa/collect.scm 136 */
long BgL_auxz00_4112;
BgL_auxz00_4112 = 
(long)(BgL_offsetz00_2088); 
BgL_offsetz00_2089 = 
(BgL_auxz00_4112-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 136 */
long BgL_modz00_2090;
{ /* ./Cfa/collect.scm 136 */
int BgL_arg2028z00_2091;
BgL_arg2028z00_2091 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 136 */
long BgL_n2z00_2099;
BgL_n2z00_2099 = 
(long)(BgL_arg2028z00_2091); 
BgL_modz00_2090 = 
(BgL_offsetz00_2089/BgL_n2z00_2099); } } 
{ /* ./Cfa/collect.scm 136 */
long BgL_restz00_2092;
{ /* ./Cfa/collect.scm 136 */
int BgL_arg2024z00_2093;
BgL_arg2024z00_2093 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 136 */
long BgL_n2z00_2102;
BgL_n2z00_2102 = 
(long)(BgL_arg2024z00_2093); 
BgL_restz00_2092 = 
(BgL_offsetz00_2089%BgL_n2z00_2102); } } 
{ /* ./Cfa/collect.scm 136 */

{ /* ./Cfa/collect.scm 136 */
obj_t BgL_bucketz00_2094;
{ /* ./Cfa/collect.scm 136 */
int BgL_kz00_2104;
BgL_kz00_2104 = 
(int)(BgL_modz00_2090); 
BgL_bucketz00_2094 = 
VECTOR_REF(BgL_arg2017z00_2085,BgL_kz00_2104); } 
{ /* ./Cfa/collect.scm 136 */
int BgL_kz00_2106;
BgL_kz00_2106 = 
(int)(BgL_restz00_2092); 
BgL_method4594z00_2082 = 
VECTOR_REF(BgL_bucketz00_2094,BgL_kz00_2106); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4594z00_2082)(BgL_method4594z00_2082, 
(obj_t)(BgL_nodez00_2080), 
(obj_t)(BgL_ownerz00_2081), BEOA); } } } }  else 
{ /* ./Cfa/collect.scm 127 */BFALSE; } } } 
return BUNSPEC;} } 
}



/* node-collect!-kwote4598 */
obj_t BGl_nodezd2collectz12zd2kwote4598z12zzcfa_collectz00(obj_t BgL_envz00_3012, obj_t BgL_nodez00_3013, obj_t BgL_ownerz00_3014)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 69 */
{ 
BgL_kwotez00_bglt BgL_nodez00_1663;obj_t BgL_ownerz00_1664;
BgL_nodez00_1663 = 
(BgL_kwotez00_bglt)(BgL_nodez00_3013); 
BgL_ownerz00_1664 = BgL_ownerz00_3014; 
{ /* ./Cfa/collect.scm 70 */
obj_t BgL_valuez00_1667;
BgL_valuez00_1667 = 
(((BgL_kwotez00_bglt)CREF(BgL_nodez00_1663))->BgL_valuez00); 
{ /* ./Cfa/collect.scm 71 */
bool_t BgL_test5526z00_1668;
{ /* ./Cfa/collect.scm 71 */
bool_t BgL_test5558z00_1686;
BgL_test5558z00_1686 = 
BGl_vectorzd2optimzf3z21zzcfa_vectorz00(); 
if(BgL_test5558z00_1686)
{ /* ./Cfa/collect.scm 71 */
BgL_test5526z00_1668 = 
VECTORP(BgL_valuez00_1667); }  else 
{ /* ./Cfa/collect.scm 71 */
BgL_test5526z00_1668 = ((bool_t)0); } } 
if(BgL_test5526z00_1668)
{ /* ./Cfa/collect.scm 72 */
obj_t BgL_warningz00_1669;
{ /* ./Cfa/collect.scm 72 */
obj_t BgL_wanz00_1685;
BgL_wanz00_1685 = BGl_za2warningza2z00zz__errorz00; 
BGl_za2warningza2z00zz__errorz00 = BFALSE; 
BgL_warningz00_1669 = BgL_wanz00_1685; } 
{ /* ./Cfa/collect.scm 72 */
obj_t BgL_pragmazf3zf3_1670;
{ /* ./Cfa/collect.scm 75 */
obj_t BgL_tgtz00_1684;
BgL_tgtz00_1684 = BGl_za2pragmazf3za2zf3zzengine_paramz00; 
BGl_za2pragmazf3za2zf3zzengine_paramz00 = BTRUE; 
BgL_pragmazf3zf3_1670 = BgL_tgtz00_1684; } 
{ /* ./Cfa/collect.scm 75 */
BgL_nodez00_bglt BgL_dummyz00_1671;
{ /* ./Cfa/collect.scm 79 */
obj_t BgL_arg5540z00_1676;
{ /* ./Cfa/collect.scm 79 */
obj_t BgL_arg5543z00_1677;obj_t BgL_arg5544z00_1678;
BgL_arg5543z00_1677 = 
CNST_TABLE_REF(((long)10)); 
{ /* ./Cfa/collect.scm 79 */
int BgL_arg5547z00_1679;obj_t BgL_arg5548z00_1680;
BgL_arg5547z00_1679 = 
VECTOR_LENGTH(BgL_valuez00_1667); 
{ /* ./Cfa/collect.scm 80 */
obj_t BgL_arg5552z00_1681;
{ /* ./Cfa/collect.scm 80 */
bool_t BgL_test5555z00_1683;
BgL_test5555z00_1683 = 
BGl_monomorphiczd2vectorzf3z21zzcfa_collectz00(BgL_valuez00_1667); 
if(BgL_test5555z00_1683)
{ /* ./Cfa/collect.scm 81 */
int BgL_kz00_2039;
BgL_kz00_2039 = 
(int)(((long)0)); 
BgL_arg5552z00_1681 = 
VECTOR_REF(BgL_valuez00_1667,BgL_kz00_2039); }  else 
{ /* ./Cfa/collect.scm 80 */
BgL_arg5552z00_1681 = 
CNST_TABLE_REF(((long)15)); } } 
BgL_arg5548z00_1680 = 
MAKE_PAIR(BgL_arg5552z00_1681, BNIL); } 
{ /* ./Cfa/collect.scm 79 */
obj_t BgL_auxz00_4143;
BgL_auxz00_4143 = 
BINT(BgL_arg5547z00_1679); 
BgL_arg5544z00_1678 = 
MAKE_PAIR(BgL_auxz00_4143, BgL_arg5548z00_1680); } } 
BgL_arg5540z00_1676 = 
MAKE_PAIR(BgL_arg5543z00_1677, BgL_arg5544z00_1678); } 
BgL_dummyz00_1671 = 
BGl_topzd2levelzd2sexpzd2ze3nodez31zzast_sexpz00(BgL_arg5540z00_1676, BFALSE); } 
{ /* ./Cfa/collect.scm 78 */

BGl_za2warningza2z00zz__errorz00 = BgL_warningz00_1669; 
BGl_za2pragmazf3za2zf3zzengine_paramz00 = BgL_pragmazf3zf3_1670; 
{ /* ./Cfa/collect.scm 86 */
BgL_kwotez00_bglt BgL_obj4539z00_1672;
BgL_obj4539z00_1672 = 
((BgL_kwotez00_bglt)BgL_nodez00_1663); 
{ /* ./Cfa/collect.scm 86 */
obj_t BgL_arg5528z00_1673;
{ /* ./Cfa/collect.scm 86 */
BgL_nodez00_bglt BgL_arg5531z00_1674;
BgL_arg5531z00_1674 = BgL_dummyz00_1671; 
BgL_arg5528z00_1673 = 
BGl_wideningzd2kwotezf2nodez20zzcfa_infoz00(BgL_arg5531z00_1674); } 
{ /* ./Cfa/collect.scm 86 */
BgL_objectz00_bglt BgL_auxz00_4150;
BgL_auxz00_4150 = 
(BgL_objectz00_bglt)(BgL_obj4539z00_1672); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4150, BgL_arg5528z00_1673); } } 
{ /* ./Cfa/collect.scm 86 */
long BgL_arg5534z00_1675;
BgL_arg5534z00_1675 = 
BGl_classzd2numzd2zz__objectz00(BGl_kwotezf2nodezf2zzcfa_infoz00); 
{ /* ./Cfa/collect.scm 86 */
BgL_objectz00_bglt BgL_objz00_2040;
BgL_objz00_2040 = 
(BgL_objectz00_bglt)(BgL_obj4539z00_1672); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2040, BgL_arg5534z00_1675); } } 
{ /* ./Cfa/collect.scm 86 */
obj_t BgL_objz00_2042;
BgL_objz00_2042 = 
(obj_t)(BgL_obj4539z00_1672); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2042); BUNSPEC; } BgL_obj4539z00_1672; } 
{ /* ./Cfa/collect.scm 87 */
BgL_variablez00_bglt BgL_ownerz00_2044;
BgL_ownerz00_2044 = 
(BgL_variablez00_bglt)(BgL_ownerz00_1664); 
{ /* ./Cfa/collect.scm 87 */
obj_t BgL_method4594z00_2045;
{ /* ./Cfa/collect.scm 87 */
BgL_objectz00_bglt BgL_objz00_2046;
BgL_objz00_2046 = 
(BgL_objectz00_bglt)(BgL_dummyz00_1671); 
{ /* ./Cfa/collect.scm 87 */
long BgL_objzd2classzd2numz00_2047;
BgL_objzd2classzd2numz00_2047 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2046); 
{ /* ./Cfa/collect.scm 87 */
obj_t BgL_arg2017z00_2048;
{ /* ./Cfa/collect.scm 87 */
int BgL_auxz00_4161;
BgL_auxz00_4161 = 
(int)(((long)1)); 
BgL_arg2017z00_2048 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_4161); } 
{ /* ./Cfa/collect.scm 87 */
int BgL_offsetz00_2051;
BgL_offsetz00_2051 = 
(int)(BgL_objzd2classzd2numz00_2047); 
{ /* ./Cfa/collect.scm 87 */
long BgL_offsetz00_2052;
{ /* ./Cfa/collect.scm 87 */
long BgL_auxz00_4165;
BgL_auxz00_4165 = 
(long)(BgL_offsetz00_2051); 
BgL_offsetz00_2052 = 
(BgL_auxz00_4165-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 87 */
long BgL_modz00_2053;
{ /* ./Cfa/collect.scm 87 */
int BgL_arg2028z00_2054;
BgL_arg2028z00_2054 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 87 */
long BgL_n2z00_2062;
BgL_n2z00_2062 = 
(long)(BgL_arg2028z00_2054); 
BgL_modz00_2053 = 
(BgL_offsetz00_2052/BgL_n2z00_2062); } } 
{ /* ./Cfa/collect.scm 87 */
long BgL_restz00_2055;
{ /* ./Cfa/collect.scm 87 */
int BgL_arg2024z00_2056;
BgL_arg2024z00_2056 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 87 */
long BgL_n2z00_2065;
BgL_n2z00_2065 = 
(long)(BgL_arg2024z00_2056); 
BgL_restz00_2055 = 
(BgL_offsetz00_2052%BgL_n2z00_2065); } } 
{ /* ./Cfa/collect.scm 87 */

{ /* ./Cfa/collect.scm 87 */
obj_t BgL_bucketz00_2057;
{ /* ./Cfa/collect.scm 87 */
int BgL_kz00_2067;
BgL_kz00_2067 = 
(int)(BgL_modz00_2053); 
BgL_bucketz00_2057 = 
VECTOR_REF(BgL_arg2017z00_2048,BgL_kz00_2067); } 
{ /* ./Cfa/collect.scm 87 */
int BgL_kz00_2069;
BgL_kz00_2069 = 
(int)(BgL_restz00_2055); 
BgL_method4594z00_2045 = 
VECTOR_REF(BgL_bucketz00_2057,BgL_kz00_2069); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2045)(BgL_method4594z00_2045, 
(obj_t)(BgL_dummyz00_1671), 
(obj_t)(BgL_ownerz00_2044), BEOA);} } } } } }  else 
{ /* ./Cfa/collect.scm 71 */
return BFALSE;} } } } } 
}



/* node-collect!-atom4596 */
obj_t BGl_nodezd2collectz12zd2atom4596z12zzcfa_collectz00(obj_t BgL_envz00_3015, obj_t BgL_nodez00_3016, obj_t BgL_ownerz00_3017)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 63 */
return BUNSPEC;} 
}



/* node-collect! */
obj_t BGl_nodezd2collectz12zc0zzcfa_collectz00(BgL_nodez00_bglt BgL_nodez00_4, BgL_variablez00_bglt BgL_ownerz00_5)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 58 */
{ /* ./Cfa/collect.scm 58 */
obj_t BgL_method4594z00_2900;
{ /* ./Cfa/collect.scm 58 */
BgL_objectz00_bglt BgL_objz00_2901;
BgL_objz00_2901 = 
(BgL_objectz00_bglt)(BgL_nodez00_4); 
{ /* ./Cfa/collect.scm 58 */
long BgL_objzd2classzd2numz00_2902;
BgL_objzd2classzd2numz00_2902 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2901); 
{ /* ./Cfa/collect.scm 58 */
obj_t BgL_arg2017z00_2903;
{ /* ./Cfa/collect.scm 58 */
int BgL_auxz00_4185;
BgL_auxz00_4185 = 
(int)(((long)1)); 
BgL_arg2017z00_2903 = 
PROCEDURE_REF(BGl_nodezd2collectz12zd2envz12zzcfa_collectz00, BgL_auxz00_4185); } 
{ /* ./Cfa/collect.scm 58 */
int BgL_offsetz00_2906;
BgL_offsetz00_2906 = 
(int)(BgL_objzd2classzd2numz00_2902); 
{ /* ./Cfa/collect.scm 58 */
long BgL_offsetz00_2907;
{ /* ./Cfa/collect.scm 58 */
long BgL_auxz00_4189;
BgL_auxz00_4189 = 
(long)(BgL_offsetz00_2906); 
BgL_offsetz00_2907 = 
(BgL_auxz00_4189-OBJECT_TYPE); } 
{ /* ./Cfa/collect.scm 58 */
long BgL_modz00_2908;
{ /* ./Cfa/collect.scm 58 */
int BgL_arg2028z00_2909;
BgL_arg2028z00_2909 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 58 */
long BgL_n2z00_2917;
BgL_n2z00_2917 = 
(long)(BgL_arg2028z00_2909); 
BgL_modz00_2908 = 
(BgL_offsetz00_2907/BgL_n2z00_2917); } } 
{ /* ./Cfa/collect.scm 58 */
long BgL_restz00_2910;
{ /* ./Cfa/collect.scm 58 */
int BgL_arg2024z00_2911;
BgL_arg2024z00_2911 = 
(int)(((long)8)); 
{ /* ./Cfa/collect.scm 58 */
long BgL_n2z00_2920;
BgL_n2z00_2920 = 
(long)(BgL_arg2024z00_2911); 
BgL_restz00_2910 = 
(BgL_offsetz00_2907%BgL_n2z00_2920); } } 
{ /* ./Cfa/collect.scm 58 */

{ /* ./Cfa/collect.scm 58 */
obj_t BgL_bucketz00_2912;
{ /* ./Cfa/collect.scm 58 */
int BgL_kz00_2922;
BgL_kz00_2922 = 
(int)(BgL_modz00_2908); 
BgL_bucketz00_2912 = 
VECTOR_REF(BgL_arg2017z00_2903,BgL_kz00_2922); } 
{ /* ./Cfa/collect.scm 58 */
int BgL_kz00_2924;
BgL_kz00_2924 = 
(int)(BgL_restz00_2910); 
BgL_method4594z00_2900 = 
VECTOR_REF(BgL_bucketz00_2912,BgL_kz00_2924); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4594z00_2900)(BgL_method4594z00_2900, 
(obj_t)(BgL_nodez00_4), 
(obj_t)(BgL_ownerz00_5), BEOA);} } 
}



/* _node-collect! */
obj_t BGl__nodezd2collectz12zc0zzcfa_collectz00(obj_t BgL_envz00_2930, obj_t BgL_nodez00_2931, obj_t BgL_ownerz00_2932)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 58 */
return 
BGl_nodezd2collectz12zc0zzcfa_collectz00(
(BgL_nodez00_bglt)(BgL_nodez00_2931), 
(BgL_variablez00_bglt)(BgL_ownerz00_2932));} 
}



/* node-collect!-default4592 */
obj_t BGl_nodezd2collectz12zd2default4592z12zzcfa_collectz00(BgL_nodez00_bglt BgL_nodez00_6, BgL_variablez00_bglt BgL_ownerz00_7)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 15 */
{ /* ./Cfa/collect.scm 15 */
obj_t BgL_procz00_2925;obj_t BgL_objectz00_2927;
BgL_procz00_2925 = 
CNST_TABLE_REF(((long)16)); 
BgL_objectz00_2927 = 
(obj_t)(BgL_nodez00_6); 
FAILURE(BgL_procz00_2925,BGl_string6728z00zzcfa_collectz00,BgL_objectz00_2927);} } 
}



/* _node-collect!-default4592 */
obj_t BGl__nodezd2collectz12zd2default4592z12zzcfa_collectz00(obj_t BgL_envz00_3018, obj_t BgL_nodez00_3019, obj_t BgL_ownerz00_3020)
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 15 */
return 
BGl_nodezd2collectz12zd2default4592z12zzcfa_collectz00(
(BgL_nodez00_bglt)(BgL_nodez00_3019), 
(BgL_variablez00_bglt)(BgL_ownerz00_3020));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcfa_collectz00()
{ AN_OBJECT;
{ /* ./Cfa/collect.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zztype_typeofz00(((long)852), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzmodule_modulez00(((long)8699), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzast_dumpz00(((long)16128), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzast_envz00(((long)62031), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzast_sexpz00(((long)15705), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzcfa_infoz00(((long)2565), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzcfa_info2z00(((long)0), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzcfa_info3z00(((long)0), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzcfa_arithmeticz00(((long)46256), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzcfa_specializa7eza7(((long)18765), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzcfa_procedurez00(((long)5948), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzcfa_vectorz00(((long)24409), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzcfa_structz00(((long)26961), "cfa_collect"); 
BGl_modulezd2initializa7ationz75zzcfa_boxz00(((long)46845), "cfa_collect"); 
return 
BGl_modulezd2initializa7ationz75zzcfa_closurez00(((long)55906), "cfa_collect");} 
}

