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

#include <bigloo.h>


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_copz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_copz00_bglt;

typedef struct BgL_clabelz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_namez00;
   bool_t BgL_usedzf3zf3;
   obj_t BgL_bodyz00;
} *BgL_clabelz00_bglt;

typedef struct BgL_cgotoz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_clabelz00_bgl * BgL_labelz00;
} *BgL_cgotoz00_bglt;

typedef struct BgL_blockz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_bodyz00;
} *BgL_blockz00_bglt;

typedef struct BgL_creturnz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_creturnz00_bglt;

typedef struct BgL_cvoidz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cvoidz00_bglt;

typedef struct BgL_catomz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_valuez00;
} *BgL_catomz00_bglt;

typedef struct BgL_varcz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_variablez00_bgl * BgL_variablez00;
} *BgL_varcz00_bglt;

typedef struct BgL_cpragmaz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_formatz00;
   obj_t BgL_argsz00;
} *BgL_cpragmaz00_bglt;

typedef struct BgL_ccastz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_typez00_bgl * BgL_typez00;
   struct BgL_copz00_bgl * BgL_argz00;
} *BgL_ccastz00_bglt;

typedef struct BgL_csequencez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   bool_t BgL_czd2expzf3z21;
   obj_t BgL_copsz00;
} *BgL_csequencez00_bglt;

typedef struct BgL_nopz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
} *BgL_nopz00_bglt;

typedef struct BgL_stopz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_stopz00_bglt;

typedef struct BgL_csetqz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_varcz00_bgl * BgL_varz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_csetqz00_bglt;

typedef struct BgL_cifz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_testz00;
   struct BgL_copz00_bgl * BgL_truez00;
   struct BgL_copz00_bgl * BgL_falsez00;
} *BgL_cifz00_bglt;

typedef struct BgL_localzd2varzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   obj_t BgL_varsz00;
} *BgL_localzd2varzd2_bglt;

typedef struct BgL_cfuncallz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
   obj_t BgL_strengthz00;
} *BgL_cfuncallz00_bglt;

typedef struct BgL_capplyz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_funz00;
   struct BgL_copz00_bgl * BgL_argz00;
} *BgL_capplyz00_bglt;

typedef struct BgL_cappz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_funz00;
   obj_t BgL_argsz00;
} *BgL_cappz00_bglt;

typedef struct BgL_cfailz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_procz00;
   struct BgL_copz00_bgl * BgL_msgz00;
   struct BgL_copz00_bgl * BgL_objz00;
} *BgL_cfailz00_bglt;

typedef struct BgL_cswitchz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_testz00;
   obj_t BgL_clausesz00;
} *BgL_cswitchz00_bglt;

typedef struct BgL_cmakezd2boxzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cmakezd2boxzd2_bglt;

typedef struct BgL_cboxzd2refzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_varz00;
} *BgL_cboxzd2refzd2_bglt;

typedef struct BgL_cboxzd2setz12zc0_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_varz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cboxzd2setz12zc0_bglt;

typedef struct BgL_csetzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_exitz00;
   struct BgL_copz00_bgl * BgL_jumpzd2valuezd2;
   struct BgL_copz00_bgl * BgL_bodyz00;
} *BgL_csetzd2exzd2itz00_bglt;

typedef struct BgL_cjumpzd2exzd2itz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_exitz00;
   struct BgL_copz00_bgl * BgL_valuez00;
} *BgL_cjumpzd2exzd2itz00_bglt;

typedef struct BgL_sfunzf2czf2_bgl {
   struct BgL_clabelz00_bgl * BgL_labelz00;
   bool_t BgL_integratedz00;
} *BgL_sfunzf2czf2_bglt;

typedef struct BgL_bdbzd2blockzd2_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_locz00;
   struct BgL_copz00_bgl * BgL_bodyz00;
} *BgL_bdbzd2blockzd2_bglt;


static obj_t BGl__makezd2capply5680zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_capplyz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_blockzf3zf3zzcgen_copz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2creturn3717z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2cfuncallzd2zzcgen_copz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2csetq3681z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2csetzd2exzd2it5645zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cboxzd2setz12zc0_bglt BGl_makezd2cboxzd2setz12z12zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_cgotozf3zf3zzcgen_copz00(obj_t);
static obj_t BGl_methodzd2initzd2zzcgen_copz00();
static obj_t BGl__cfuncallzf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_creturnzf3zf3zzcgen_copz00(obj_t);
static obj_t BGl__cboxzd2setz12zf3z33zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_cboxzd2setz12zc0zzcgen_copz00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2cif3677z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2bdbzd2blockz125631z12zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2clabel3727ze3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_clabelz00_bglt BGl_makezd2clabelzd2zzcgen_copz00(obj_t, obj_t, bool_t, obj_t);
static obj_t BGl__allocatezd2cboxzd2refz00zzcgen_copz00(obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl__makezd2csequencezd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2cswitch3653z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2cgoto5749zd2zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cappz00_bglt BGl_makezd2cappzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, obj_t);
static obj_t BGl__allocatezd2cvoidzd2zzcgen_copz00(obj_t);
static obj_t BGl__allocatezd2bdbzd2blockz00zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_varczf3zf3zzcgen_copz00(obj_t);
BGL_IMPORT long BGl_classzd2numzd2zz__objectz00(obj_t);
static obj_t BGl__fillzd2blockz12zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2cboxzd2ref3645z83zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_capplyzf3zf3zzcgen_copz00(obj_t);
static obj_t BGl__allocatezd2localzd2varz00zzcgen_copz00(obj_t);
extern obj_t BGl_sfunz00zzast_varz00;
static obj_t BGl_structzb2objectzd2ze3objectzd2sfunzf2C3629za3zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2catom3707ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__cjumpzd2exzd2itzf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cfailz00_bglt BGl_makezd2cfailzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt, BgL_copz00_bglt);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_EXPORTED_DECL BgL_csequencez00_bglt BGl_fillzd2csequencez12zc0zzcgen_copz00(BgL_csequencez00_bglt, obj_t, bool_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2stop3683ze3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_catomz00_bglt BGl_makezd2catomzd2zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_localzd2varzd2_bglt BGl_fillzd2localzd2varz12z12zzcgen_copz00(BgL_localzd2varzd2_bglt, obj_t, obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2block3719ze3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_csetzd2exzd2itzf3zf3zzcgen_copz00(obj_t);
static obj_t BGl__localzd2varzf3z21zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__allocatezd2sfunzf2Cz20zzcgen_copz00(obj_t);
static obj_t BGl__clabelzf3zf3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__csequencezf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_cvoidz00zzcgen_copz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl__makezd2ccast5717zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_stopz00zzcgen_copz00 = BUNSPEC;
static obj_t BGl_objectzd2ze3structzd2capp3659ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2cop3733z51zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_nopzf3zf3zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_ccastz00_bglt BGl_makezd2ccastzd2zzcgen_copz00(obj_t, BgL_typez00_bglt, BgL_copz00_bglt);
BGL_EXPORTED_DECL BgL_cvoidz00_bglt BGl_allocatezd2cvoidzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_clabelz00_bglt BGl_allocatezd2clabelzd2zzcgen_copz00();
static obj_t BGl__allocatezd2nopzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_cvoidzf3zf3zzcgen_copz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2cmakezd2box3647z31zzcgen_copz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_objectz00zz__objectz00;
BGL_EXPORTED_DECL BgL_bdbzd2blockzd2_bglt BGl_allocatezd2bdbzd2blockz00zzcgen_copz00();
static obj_t BGl__fillzd2cvoidz125738zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_sfunzf2czf2_bglt BGl_fillzd2sfunzf2Cz12z32zzcgen_copz00(BgL_sfunzf2czf2_bglt, BgL_clabelz00_bglt, bool_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2bdbzd2block3625z83zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cgotoz00_bglt BGl_makezd2cgotozd2zzcgen_copz00(obj_t, BgL_clabelz00_bglt);
BGL_EXPORTED_DECL BgL_blockz00_bglt BGl_makezd2blockzd2zzcgen_copz00(obj_t, BgL_copz00_bglt);
static obj_t BGl__fillzd2cpragmaz125724zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2cfuncallz125687zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cboxzd2setz12zc0_bglt BGl_fillzd2cboxzd2setz12z12z00zzcgen_copz00(BgL_cboxzd2setz12zc0_bglt, obj_t, BgL_copz00_bglt, BgL_copz00_bglt);
static obj_t BGl_objectzd2ze3structzd2creturn3715ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__fillzd2nopz125710zc0zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2cjumpzd2exzd2itz125642zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__csetzd2exzd2itzf3zf3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__fillzd2csetzd2exzd2itz125647zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_cjumpzd2exzd2itzf3zf3zzcgen_copz00(obj_t);
static obj_t BGl__allocatezd2cifzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_cfuncallz00_bglt BGl_allocatezd2cfuncallzd2zzcgen_copz00();
BGL_EXPORTED_DECL bool_t BGl_cboxzd2refzf3z21zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_varcz00_bglt BGl_allocatezd2varczd2zzcgen_copz00();
static obj_t BGl_structzb2objectzd2ze3objectzd2catom3709z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2cswitch3651ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__varczf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cmakezd2boxzd2_bglt BGl_fillzd2cmakezd2boxz12z12zzcgen_copz00(BgL_cmakezd2boxzd2_bglt, obj_t, BgL_copz00_bglt);
static obj_t BGl__allocatezd2cpragmazd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_stopzf3zf3zzcgen_copz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_cboxzd2refzd2zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_cappz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_cboxzd2refzd2_bglt BGl_allocatezd2cboxzd2refz00zzcgen_copz00();
BGL_EXPORTED_DECL BgL_csequencez00_bglt BGl_makezd2csequencezd2zzcgen_copz00(obj_t, bool_t, obj_t);
BGL_EXPORTED_DECL BgL_bdbzd2blockzd2_bglt BGl_fillzd2bdbzd2blockz12z12zzcgen_copz00(BgL_bdbzd2blockzd2_bglt, obj_t, BgL_copz00_bglt);
static obj_t BGl_objectzd2ze3structzd2cjumpzd2exzd2it3631ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__cboxzd2refzf3z21zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__allocatezd2cjumpzd2exzd2itzd2zzcgen_copz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2block3721z51zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_csequencez00zzcgen_copz00 = BUNSPEC;
static obj_t BGl_objectzd2ze3structzd2cfail3655ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2capply3663ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__wideningzd2sfunzf2Cz20zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_cfuncallz00zzcgen_copz00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2varc3705z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2cvoid5736zd2zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2csetzd2exzd2itzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_cappzf3zf3zzcgen_copz00(obj_t);
static obj_t BGl__fillzd2capplyz125682zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_sfunz00_bglt BGl_allocatezd2sfunzf2Cz20zzcgen_copz00();
BGL_EXPORTED_DECL bool_t BGl_cmakezd2boxzf3z21zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_nopz00_bglt BGl_allocatezd2nopzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_csetzd2exzd2itz00_bglt BGl_allocatezd2csetzd2exzd2itzd2zzcgen_copz00();
static obj_t BGl__allocatezd2copzd2zzcgen_copz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2csequence3693z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2cboxzd2ref3643z31zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_csetqz00zzcgen_copz00 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zzcgen_copz00();
static obj_t BGl__creturnzf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_copzf3zf3zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_csetzd2exzd2itz00_bglt BGl_makezd2csetzd2exzd2itzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt, BgL_copz00_bglt);
static obj_t BGl__fillzd2cifz125696zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_nopz00_bglt BGl_makezd2nopzd2zzcgen_copz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2nop3687ze3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_varcz00_bglt BGl_fillzd2varcz12zc0zzcgen_copz00(BgL_varcz00_bglt, obj_t, BgL_variablez00_bglt);
BGL_EXPORTED_DECL bool_t BGl_cboxzd2setz12zf3z33zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_catomz00_bglt BGl_fillzd2catomz12zc0zzcgen_copz00(BgL_catomz00_bglt, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2cboxzd2setz123641z91zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__catomzf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_csetqz00_bglt BGl_allocatezd2csetqzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_clabelz00_bglt BGl_fillzd2clabelz12zc0zzcgen_copz00(BgL_clabelz00_bglt, obj_t, obj_t, bool_t, obj_t);
static obj_t BGl__makezd2cboxzd2ref5655z00zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cifz00_bglt BGl_allocatezd2cifzd2zzcgen_copz00();
static obj_t BGl__fillzd2cswitchz125667zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cfailz00_bglt BGl_fillzd2cfailz12zc0zzcgen_copz00(BgL_cfailz00_bglt, obj_t, BgL_copz00_bglt, BgL_copz00_bglt, BgL_copz00_bglt);
static obj_t BGl__cfailzf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cjumpzd2exzd2itz00_bglt BGl_fillzd2cjumpzd2exzd2itz12zc0zzcgen_copz00(BgL_cjumpzd2exzd2itz00_bglt, obj_t, BgL_copz00_bglt, BgL_copz00_bglt);
static obj_t BGl__makezd2varc5727zd2zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzcgen_copz00();
static obj_t BGl__makezd2localzd2varz00zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t make_struct(obj_t, int, obj_t);
BGL_EXPORTED_DECL BgL_cifz00_bglt BGl_makezd2cifzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt, BgL_copz00_bglt);
BGL_EXPORTED_DECL bool_t BGl_ccastzf3zf3zzcgen_copz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_cswitchz00zzcgen_copz00 = BUNSPEC;
static obj_t BGl__allocatezd2cmakezd2boxz00zzcgen_copz00(obj_t);
static obj_t BGl__makezd2csetq5699zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cfuncallz00_bglt BGl_fillzd2cfuncallz12zc0zzcgen_copz00(BgL_cfuncallz00_bglt, obj_t, BgL_copz00_bglt, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2cif3675ze3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_copz00_bglt BGl_allocatezd2copzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_csetqz00_bglt BGl_fillzd2csetqz12zc0zzcgen_copz00(BgL_csetqz00_bglt, obj_t, BgL_varcz00_bglt, BgL_copz00_bglt);
static obj_t BGl__csetqzf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cifz00_bglt BGl_fillzd2cifz12zc0zzcgen_copz00(BgL_cifz00_bglt, obj_t, BgL_copz00_bglt, BgL_copz00_bglt, BgL_copz00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2cfail3657z51zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_csequencezf3zf3zzcgen_copz00(obj_t);
static obj_t BGl__stopzf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_capplyz00_bglt BGl_makezd2capplyzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt);
BGL_EXPORTED_DECL BgL_csetqz00_bglt BGl_makezd2csetqzd2zzcgen_copz00(obj_t, BgL_varcz00_bglt, BgL_copz00_bglt);
BGL_EXPORTED_DEF obj_t BGl_csetzd2exzd2itz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_creturnz00_bglt BGl_fillzd2creturnz12zc0zzcgen_copz00(BgL_creturnz00_bglt, obj_t, BgL_copz00_bglt);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl__cifzf3zf3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__allocatezd2cappzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_creturnz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_cswitchz00_bglt BGl_allocatezd2cswitchzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_copz00_bglt BGl_makezd2copzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_cfuncallzf3zf3zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_cjumpzd2exzd2itz00_bglt BGl_makezd2cjumpzd2exzd2itzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, BgL_copz00_bglt);
static obj_t BGl__cappzf3zf3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2bdbzd2block3623z31zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_sfunzf2Czf3z01zzcgen_copz00(obj_t);
static obj_t BGl_toplevelzd2initzd2zzcgen_copz00();
BGL_EXPORTED_DECL bool_t BGl_cpragmazf3zf3zzcgen_copz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_sfunzf2Czf2zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_creturnz00_bglt BGl_allocatezd2creturnzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_cmakezd2boxzd2_bglt BGl_allocatezd2cmakezd2boxz00zzcgen_copz00();
BGL_EXPORTED_DECL BgL_stopz00_bglt BGl_fillzd2stopz12zc0zzcgen_copz00(BgL_stopz00_bglt, obj_t, BgL_copz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcgen_copz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
static obj_t BGl__fillzd2cboxzd2refz125657z12zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2cjumpzd2exzd2it3633z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2cboxzd2setz12z12zzcgen_copz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2csetzd2exzd2it3637z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2cop3731ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2cgoto3723ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__makezd2blockzd2zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cpragmaz00_bglt BGl_makezd2cpragmazd2zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2cappz125677zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_csetzd2exzd2itz00_bglt BGl_fillzd2csetzd2exzd2itz12zc0zzcgen_copz00(BgL_csetzd2exzd2itz00_bglt, obj_t, BgL_copz00_bglt, BgL_copz00_bglt, BgL_copz00_bglt);
BGL_EXPORTED_DECL BgL_cappz00_bglt BGl_fillzd2cappz12zc0zzcgen_copz00(BgL_cappz00_bglt, obj_t, BgL_copz00_bglt, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2cfuncall3669z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2cfailzd2zzcgen_copz00(obj_t);
static obj_t BGl__capplyzf3zf3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__allocatezd2catomzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_blockz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_cswitchzf3zf3zzcgen_copz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_cgotoz00zzcgen_copz00 = BUNSPEC;
static obj_t BGl__allocatezd2stopzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_bdbzd2blockzd2_bglt BGl_makezd2bdbzd2blockz00zzcgen_copz00(obj_t, BgL_copz00_bglt);
static obj_t BGl_objectzd2ze3structzd2localzd2var3671z31zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_sfunzf2czf2_bglt BGl_wideningzd2sfunzf2Cz20zzcgen_copz00(BgL_clabelz00_bglt, bool_t);
BGL_EXPORTED_DEF obj_t BGl_cjumpzd2exzd2itz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_blockz00_bglt BGl_allocatezd2blockzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_cgotoz00_bglt BGl_allocatezd2cgotozd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_stopz00_bglt BGl_allocatezd2stopzd2zzcgen_copz00();
BGL_EXPORTED_DEF obj_t BGl_bdbzd2blockzd2zzcgen_copz00 = BUNSPEC;
static obj_t BGl_objectzd2ze3structzd2csequence3691ze3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_localzd2varzd2_bglt BGl_makezd2localzd2varz00zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_localzd2varzf3z21zzcgen_copz00(obj_t);
static obj_t BGl__allocatezd2ccastzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_varcz00_bglt BGl_makezd2varczd2zzcgen_copz00(obj_t, BgL_variablez00_bglt);
static obj_t BGl__fillzd2clabelz125756zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_ccastz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_localzd2varzd2zzcgen_copz00 = BUNSPEC;
static obj_t BGl__makezd2catomzd2zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2nopzd2zzcgen_copz00(obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2ccast3695ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__fillzd2localzd2varz125691z12zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2capplyzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_cvoidz00_bglt BGl_makezd2cvoidzd2zzcgen_copz00(obj_t, BgL_copz00_bglt);
static obj_t BGl_objectzd2ze3structzd2cboxzd2setz123639z23zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cboxzd2setz12zc0_bglt BGl_allocatezd2cboxzd2setz12z12zzcgen_copz00();
BGL_EXPORTED_DECL BgL_ccastz00_bglt BGl_allocatezd2ccastzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_blockz00_bglt BGl_fillzd2blockz12zc0zzcgen_copz00(BgL_blockz00_bglt, obj_t, BgL_copz00_bglt);
static obj_t BGl__blockzf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_IMPORT BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl__fillzd2creturnz125743zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_clabelz00zzcgen_copz00 = BUNSPEC;
static obj_t BGl__fillzd2csequencez125714zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2cgotozd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_cgotoz00_bglt BGl_fillzd2cgotoz12zc0zzcgen_copz00(BgL_cgotoz00_bglt, obj_t, BgL_clabelz00_bglt);
static obj_t BGl__cgotozf3zf3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__allocatezd2blockzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_catomz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_cfailz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_cboxzd2refzd2_bglt BGl_fillzd2cboxzd2refz12z12zzcgen_copz00(BgL_cboxzd2refzd2_bglt, obj_t, BgL_copz00_bglt);
static obj_t BGl__makezd2cswitch5665zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_clabelzf3zf3zzcgen_copz00(obj_t);
static obj_t BGl__fillzd2varcz125729zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_catomz00_bglt BGl_allocatezd2catomzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_cfailz00_bglt BGl_allocatezd2cfailzd2zzcgen_copz00();
static obj_t BGl_structzb2objectzd2ze3objectzd2cgoto3725z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2cboxzd2setz125650z12zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2stop3685z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2clabel3729z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2creturn5741zd2zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2varc3703ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__makezd2cpragma5722zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cappz00_bglt BGl_allocatezd2cappzd2zzcgen_copz00();
static obj_t BGl__fillzd2ccastz125719zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2cboxzd2setz12z125652z00zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2capp3661z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2copz125760zc0zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_cpragmaz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_catomzf3zf3zzcgen_copz00(obj_t);
static obj_t BGl_objectzd2ze3structzd2sfunzf2C3627z11zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__makezd2copzd2zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__makezd2cfuncall5685zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2cvoid3711ze3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_bdbzd2blockzf3z21zzcgen_copz00(obj_t);
static obj_t BGl__allocatezd2csequencezd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_cifzf3zf3zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_cfailzf3zf3zzcgen_copz00(obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2ccast3697z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2clabel5754zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2stop5704zd2zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__cpragmazf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cvoidz00_bglt BGl_fillzd2cvoidz12zc0zzcgen_copz00(BgL_cvoidz00_bglt, obj_t, BgL_copz00_bglt);
static obj_t BGl__cvoidzf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_capplyz00_bglt BGl_allocatezd2capplyzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_cpragmaz00_bglt BGl_allocatezd2cpragmazd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_capplyz00_bglt BGl_fillzd2capplyz12zc0zzcgen_copz00(BgL_capplyz00_bglt, obj_t, BgL_copz00_bglt, BgL_copz00_bglt);
BGL_EXPORTED_DEF obj_t BGl_varcz00zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_nopz00zzcgen_copz00 = BUNSPEC;
static obj_t BGl__fillzd2cgotoz125751zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2cfail5670zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2cjumpzd2exzd2it5640zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2capp5675zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_csetqzf3zf3zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_creturnz00_bglt BGl_makezd2creturnzd2zzcgen_copz00(obj_t, BgL_copz00_bglt);
BGL_EXPORTED_DECL BgL_cjumpzd2exzd2itz00_bglt BGl_allocatezd2cjumpzd2exzd2itzd2zzcgen_copz00();
BGL_EXPORTED_DECL BgL_nopz00_bglt BGl_fillzd2nopz12zc0zzcgen_copz00(BgL_nopz00_bglt, obj_t);
BGL_EXPORTED_DECL BgL_localzd2varzd2_bglt BGl_allocatezd2localzd2varz00zzcgen_copz00();
static obj_t BGl_objectzd2ze3structzd2cpragma3699ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__nopzf3zf3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__makezd2bdbzd2block5629z00zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__fillzd2cmakezd2boxz125662z12zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__cswitchzf3zf3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__fillzd2csetqz125701zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_csequencez00_bglt BGl_allocatezd2csequencezd2zzcgen_copz00();
BGL_EXPORTED_DEF obj_t BGl_cifz00zzcgen_copz00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2localzd2var3673z83zzcgen_copz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cswitchz00_bglt BGl_makezd2cswitchzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, obj_t);
static obj_t BGl_objectzd2ze3structzd2csetq3679ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__fillzd2sfunzf2Cz125637z32zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2csetqzd2zzcgen_copz00(obj_t);
static obj_t BGl_objectzd2initzd2zzcgen_copz00();
static obj_t BGl__makezd2cmakezd2box5660z00zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2cmakezd2box3649z83zzcgen_copz00(obj_t, obj_t, obj_t);
extern BgL_sfunz00_bglt BGl_makezd2sfunzd2zzast_varz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2cvoid3713z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzcgen_copz00 = BUNSPEC;
static obj_t BGl__makezd2cif5694zd2zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cmakezd2boxzd2_bglt BGl_makezd2cmakezd2boxz00zzcgen_copz00(obj_t, BgL_copz00_bglt);
BGL_EXPORTED_DECL BgL_cswitchz00_bglt BGl_fillzd2cswitchz12zc0zzcgen_copz00(BgL_cswitchz00_bglt, obj_t, BgL_copz00_bglt, obj_t);
static obj_t BGl__allocatezd2varczd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DECL BgL_sfunzf2czf2_bglt BGl_makezd2sfunzf2Cz20zzcgen_copz00(long, obj_t, obj_t, obj_t, bool_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, BgL_clabelz00_bglt, bool_t);
static obj_t BGl_objectzd2ze3structzd2cfuncall3667ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl_structzb2objectzd2ze3objectzd2capply3665z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__allocatezd2cswitchzd2zzcgen_copz00(obj_t);
BGL_EXPORTED_DEF obj_t BGl_cmakezd2boxzd2zzcgen_copz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_copz00zzcgen_copz00 = BUNSPEC;
static obj_t BGl__fillzd2stopz125706zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2csetzd2exzd2it3635ze3zzcgen_copz00(obj_t, obj_t);
static obj_t BGl__fillzd2cfailz125672zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_stopz00_bglt BGl_makezd2stopzd2zzcgen_copz00(obj_t, BgL_copz00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2nop3689z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzcgen_copz00();
static obj_t BGl__sfunzf2Czf3z01zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cfuncallz00_bglt BGl_makezd2cfuncallzd2zzcgen_copz00(obj_t, BgL_copz00_bglt, obj_t, obj_t);
static obj_t BGl__allocatezd2creturnzd2zzcgen_copz00(obj_t);
static obj_t BGl__bdbzd2blockzf3z21zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cpragmaz00_bglt BGl_fillzd2cpragmaz12zc0zzcgen_copz00(BgL_cpragmaz00_bglt, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_copz00_bglt BGl_fillzd2copz12zc0zzcgen_copz00(BgL_copz00_bglt, obj_t);
static obj_t BGl__fillzd2catomz125733zc0zzcgen_copz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__makezd2sfunzf2C5635z20zzcgen_copz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__cmakezd2boxzf3z21zzcgen_copz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_cboxzd2refzd2_bglt BGl_makezd2cboxzd2refz00zzcgen_copz00(obj_t, BgL_copz00_bglt);
static obj_t BGl__allocatezd2clabelzd2zzcgen_copz00(obj_t);
static obj_t BGl__copzf3zf3zzcgen_copz00(obj_t, obj_t);
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL BgL_ccastz00_bglt BGl_fillzd2ccastz12zc0zzcgen_copz00(BgL_ccastz00_bglt, obj_t, BgL_typez00_bglt, BgL_copz00_bglt);
static obj_t BGl_structzb2objectzd2ze3objectzd2cpragma3701z51zzcgen_copz00(obj_t, obj_t, obj_t);
static obj_t BGl__ccastzf3zf3zzcgen_copz00(obj_t, obj_t);
static obj_t __cnst[ 28 ] ;


DEFINE_EXPORT_PROCEDURE( BGl_fillzd2sfunzf2Cz12zd2envze0zzcgen_copz00, BgL_bgl__fillza7d2sfunza7f2cza7125637za732za7za7cgen_copza7007019za7, BGl__fillzd2sfunzf2Cz125637z32zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_cifzf3zd2envz21zzcgen_copz00, BgL_bgl__cifza7f3za7f3za7za7cgen_copza7007020za7, BGl__cifzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2clabelzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2clabelza7d2za7za7cgen_copza7007021za7, BGl__allocatezd2clabelzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cswitchz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2cswitchza7125667za7c0za7za7cgen_copza7007022z00, BGl__fillzd2cswitchz125667zc0zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_cfailzf3zd2envz21zzcgen_copz00, BgL_bgl__cfailza7f3za7f3za7za7cgen_copza7007023za7, BGl__cfailzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_catomzf3zd2envz21zzcgen_copz00, BgL_bgl__catomza7f3za7f3za7za7cgen_copza7007024za7, BGl__catomzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_csetzd2exzd2itzf3zd2envz21zzcgen_copz00, BgL_bgl__csetza7d2exza7d2itza7f3za7f3za7za7cgen_copza7007025za7, BGl__csetzd2exzd2itzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2localzd2varz12zd2envzc0zzcgen_copz00, BgL_bgl__fillza7d2localza7d2varza7125691za712za7za7cgen_copza7007026za7, BGl__fillzd2localzd2varz125691z12zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_clabelzf3zd2envz21zzcgen_copz00, BgL_bgl__clabelza7f3za7f3za7za7cgen_copza7007027za7, BGl__clabelzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_wideningzd2sfunzf2Czd2envzf2zzcgen_copz00, BgL_bgl__wideningza7d2sfunza7f2cza720za7za7cgen_copza7007028z00, BGl__wideningzd2sfunzf2Cz20zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2copz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2copza7125760za7c0za7za7cgen_copza7007029z00, BGl__fillzd2copz125760zc0zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cifzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2cifza7d2za7za7cgen_copza7007030za7, BGl__allocatezd2cifzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_cpragmazf3zd2envz21zzcgen_copz00, BgL_bgl__cpragmaza7f3za7f3za7za7cgen_copza7007031za7, BGl__cpragmazf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6880z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2bdbza7d2block3623za731za7za7cgen_copza7007032z00, BGl_objectzd2ze3structzd2bdbzd2block3623z31zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6881z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2bdbza7d2block3625za783za7za7cgen_copza7007033za7, BGl_structzb2objectzd2ze3objectzd2bdbzd2block3625z83zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6882z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2sfunza7f2c3627za711za7za7cgen_copza7007034z00, BGl_objectzd2ze3structzd2sfunzf2C3627z11zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6883z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2sfunza7f2c3629za7a3za7za7cgen_copza7007035za7, BGl_structzb2objectzd2ze3objectzd2sfunzf2C3629za3zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cboxzd2setz12z12zd2envzd2zzcgen_copz00, BgL_bgl__fillza7d2cboxza7d2setza712za7125652za700za7za7cgen_copza7007036z00, BGl__fillzd2cboxzd2setz12z125652z00zzcgen_copz00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc6884z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cjumpza7d2exza7d2it3631za7e3za7za7cgen_copza7007037za7, BGl_objectzd2ze3structzd2cjumpzd2exzd2it3631ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6885z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cjumpza7d2exza7d2it3633za751za7za7cgen_copza7007038z00, BGl_structzb2objectzd2ze3objectzd2cjumpzd2exzd2it3633z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6886z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2csetza7d2exza7d2it3635za7e3za7za7cgen_copza7007039za7, BGl_objectzd2ze3structzd2csetzd2exzd2it3635ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6887z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2csetza7d2exza7d2it3637za751za7za7cgen_copza7007040z00, BGl_structzb2objectzd2ze3objectzd2csetzd2exzd2it3637z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6888z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cboxza7d2setza7123639za723za7za7cgen_copza7007041za7, BGl_objectzd2ze3structzd2cboxzd2setz123639z23zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_nopzf3zd2envz21zzcgen_copz00, BgL_bgl__nopza7f3za7f3za7za7cgen_copza7007042za7, BGl__nopzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6900z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2capply3663za7e3za7za7cgen_copza7007043za7, BGl_objectzd2ze3structzd2capply3663ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6890z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cboxza7d2ref3643za731za7za7cgen_copza7007044z00, BGl_objectzd2ze3structzd2cboxzd2ref3643z31zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6889z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cboxza7d2setza7123641za791za7za7cgen_copza7007045z00, BGl_structzb2objectzd2ze3objectzd2cboxzd2setz123641z91zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6901z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2capply3665za751za7za7cgen_copza7007046z00, BGl_structzb2objectzd2ze3objectzd2capply3665z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6891z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cboxza7d2ref3645za783za7za7cgen_copza7007047za7, BGl_structzb2objectzd2ze3objectzd2cboxzd2ref3645z83zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6902z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cfuncall3667za7e3za7za7cgen_copza7007048za7, BGl_objectzd2ze3structzd2cfuncall3667ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6892z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cmakeza7d2box3647za731za7za7cgen_copza7007049z00, BGl_objectzd2ze3structzd2cmakezd2box3647z31zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6903z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cfuncall3669za751za7za7cgen_copza7007050z00, BGl_structzb2objectzd2ze3objectzd2cfuncall3669z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6893z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cmakeza7d2box3649za783za7za7cgen_copza7007051za7, BGl_structzb2objectzd2ze3objectzd2cmakezd2box3649z83zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6904z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2localza7d2var3671za731za7za7cgen_copza7007052z00, BGl_objectzd2ze3structzd2localzd2var3671z31zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6894z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cswitch3651za7e3za7za7cgen_copza7007053za7, BGl_objectzd2ze3structzd2cswitch3651ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6905z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2localza7d2var3673za783za7za7cgen_copza7007054za7, BGl_structzb2objectzd2ze3objectzd2localzd2var3673z83zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6895z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cswitch3653za751za7za7cgen_copza7007055z00, BGl_structzb2objectzd2ze3objectzd2cswitch3653z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6906z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cif3675za7e3za7za7cgen_copza7007056za7, BGl_objectzd2ze3structzd2cif3675ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6896z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cfail3655za7e3za7za7cgen_copza7007057za7, BGl_objectzd2ze3structzd2cfail3655ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6907z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cif3677za751za7za7cgen_copza7007058z00, BGl_structzb2objectzd2ze3objectzd2cif3677z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6897z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cfail3657za751za7za7cgen_copza7007059z00, BGl_structzb2objectzd2ze3objectzd2cfail3657z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6908z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2csetq3679za7e3za7za7cgen_copza7007060za7, BGl_objectzd2ze3structzd2csetq3679ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6898z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2capp3659za7e3za7za7cgen_copza7007061za7, BGl_objectzd2ze3structzd2capp3659ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6910z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2stop3683za7e3za7za7cgen_copza7007062za7, BGl_objectzd2ze3structzd2stop3683ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6909z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2csetq3681za751za7za7cgen_copza7007063z00, BGl_structzb2objectzd2ze3objectzd2csetq3681z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6899z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2capp3661za751za7za7cgen_copza7007064z00, BGl_structzb2objectzd2ze3objectzd2capp3661z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6911z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2stop3685za751za7za7cgen_copza7007065z00, BGl_structzb2objectzd2ze3objectzd2stop3685z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6912z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2nop3687za7e3za7za7cgen_copza7007066za7, BGl_objectzd2ze3structzd2nop3687ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6913z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2nop3689za751za7za7cgen_copza7007067z00, BGl_structzb2objectzd2ze3objectzd2nop3689z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6914z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2csequence3691za7e3za7za7cgen_copza7007068za7, BGl_objectzd2ze3structzd2csequence3691ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6915z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2csequence3693za751za7za7cgen_copza7007069z00, BGl_structzb2objectzd2ze3objectzd2csequence3693z51zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_varczf3zd2envz21zzcgen_copz00, BgL_bgl__varcza7f3za7f3za7za7cgen_copza7007070za7, BGl__varczf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6916z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2ccast3695za7e3za7za7cgen_copza7007071za7, BGl_objectzd2ze3structzd2ccast3695ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6917z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2ccast3697za751za7za7cgen_copza7007072z00, BGl_structzb2objectzd2ze3objectzd2ccast3697z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6918z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cpragma3699za7e3za7za7cgen_copza7007073za7, BGl_objectzd2ze3structzd2cpragma3699ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6920z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2varc3703za7e3za7za7cgen_copza7007074za7, BGl_objectzd2ze3structzd2varc3703ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6919z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cpragma3701za751za7za7cgen_copza7007075z00, BGl_structzb2objectzd2ze3objectzd2cpragma3701z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6921z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2varc3705za751za7za7cgen_copza7007076z00, BGl_structzb2objectzd2ze3objectzd2varc3705z51zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cpragmaz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2cpragmaza7125724za7c0za7za7cgen_copza7007077z00, BGl__fillzd2cpragmaz125724zc0zzcgen_copz00, 0L, 4 );
DEFINE_STATIC_PROCEDURE( BGl_proc6922z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2catom3707za7e3za7za7cgen_copza7007078za7, BGl_objectzd2ze3structzd2catom3707ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6923z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2catom3709za751za7za7cgen_copza7007079z00, BGl_structzb2objectzd2ze3objectzd2catom3709z51zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cjumpzd2exzd2itzf3zd2envz21zzcgen_copz00, BgL_bgl__cjumpza7d2exza7d2itza7f3za7f3za7za7cgen_copza7007080za7, BGl__cjumpzd2exzd2itzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6924z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cvoid3711za7e3za7za7cgen_copza7007081za7, BGl_objectzd2ze3structzd2cvoid3711ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6925z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cvoid3713za751za7za7cgen_copza7007082z00, BGl_structzb2objectzd2ze3objectzd2cvoid3713z51zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2copzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2copza7d2za7za7cgen_copza7007083za7, BGl__allocatezd2copzd2zzcgen_copz00, 0L, 0 );
DEFINE_STATIC_PROCEDURE( BGl_proc6926z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2creturn3715za7e3za7za7cgen_copza7007084za7, BGl_objectzd2ze3structzd2creturn3715ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6927z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2creturn3717za751za7za7cgen_copza7007085z00, BGl_structzb2objectzd2ze3objectzd2creturn3717z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6928z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2block3719za7e3za7za7cgen_copza7007086za7, BGl_objectzd2ze3structzd2block3719ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6930z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cgoto3723za7e3za7za7cgen_copza7007087za7, BGl_objectzd2ze3structzd2cgoto3723ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6929z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2block3721za751za7za7cgen_copza7007088z00, BGl_structzb2objectzd2ze3objectzd2block3721z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6931z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cgoto3725za751za7za7cgen_copza7007089z00, BGl_structzb2objectzd2ze3objectzd2cgoto3725z51zzcgen_copz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6932z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2clabel3727za7e3za7za7cgen_copza7007090za7, BGl_objectzd2ze3structzd2clabel3727ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6933z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2clabel3729za751za7za7cgen_copza7007091z00, BGl_structzb2objectzd2ze3objectzd2clabel3729z51zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2csetqzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2csetq5699za7d2za7za7cgen_copza7007092za7, BGl__makezd2csetq5699zd2zzcgen_copz00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_proc6934z00zzcgen_copz00, BgL_bgl_objectza7d2za7e3structza7d2cop3731za7e3za7za7cgen_copza7007093za7, BGl_objectzd2ze3structzd2cop3731ze3zzcgen_copz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6935z00zzcgen_copz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2cop3733za751za7za7cgen_copza7007094z00, BGl_structzb2objectzd2ze3objectzd2cop3733z51zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2copzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2copza7d2za7za7cgen_copza7007095za7, BGl__makezd2copzd2zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2csequencez12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2csequenceza7125714za7c0za7za7cgen_copza7007096z00, BGl__fillzd2csequencez125714zc0zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2stopz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2stopza7125706za7c0za7za7cgen_copza7007097z00, BGl__fillzd2stopz125706zc0zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cfailzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2cfailza7d2za7za7cgen_copza7007098za7, BGl__allocatezd2cfailzd2zzcgen_copz00, 0L, 0 );
BGL_IMPORT obj_t BGl_objectzd2ze3structzd2envze3zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_blockzf3zd2envz21zzcgen_copz00, BgL_bgl__blockza7f3za7f3za7za7cgen_copza7007099za7, BGl__blockzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2localzd2varzd2envzd2zzcgen_copz00, BgL_bgl__makeza7d2localza7d2varza700za7za7cgen_copza7007100z00, BGl__makezd2localzd2varz00zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cboxzd2refz12zd2envzc0zzcgen_copz00, BgL_bgl__fillza7d2cboxza7d2refza7125657za712za7za7cgen_copza7007101za7, BGl__fillzd2cboxzd2refz125657z12zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2capplyzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2capplyza7d2za7za7cgen_copza7007102za7, BGl__allocatezd2capplyzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_cswitchzf3zd2envz21zzcgen_copz00, BgL_bgl__cswitchza7f3za7f3za7za7cgen_copza7007103za7, BGl__cswitchzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cifzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2cif5694za7d2za7za7cgen_copza7007104za7, BGl__makezd2cif5694zd2zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_localzd2varzf3zd2envzf3zzcgen_copz00, BgL_bgl__localza7d2varza7f3za721za7za7cgen_copza7007105z00, BGl__localzd2varzf3z21zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2varczd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2varcza7d2za7za7cgen_copza7007106za7, BGl__allocatezd2varczd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cjumpzd2exzd2itz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2cjumpza7d2exza7d2itza7125642za7c0za7za7cgen_copza7007107z00, BGl__fillzd2cjumpzd2exzd2itz125642zc0zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cswitchzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2cswitch5665za7d2za7za7cgen_copza7007108za7, BGl__makezd2cswitch5665zd2zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cmakezd2boxz12zd2envzc0zzcgen_copz00, BgL_bgl__fillza7d2cmakeza7d2boxza7125662za712za7za7cgen_copza7007109za7, BGl__fillzd2cmakezd2boxz125662z12zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_csetqzf3zd2envz21zzcgen_copz00, BgL_bgl__csetqza7f3za7f3za7za7cgen_copza7007110za7, BGl__csetqzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cboxzd2setz12zf3zd2envze1zzcgen_copz00, BgL_bgl__cboxza7d2setza712za7f3za733za7za7cgen_copza7007111za7, BGl__cboxzd2setz12zf3z33zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2csetzd2exzd2itz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2csetza7d2exza7d2itza7125647za7c0za7za7cgen_copza7007112z00, BGl__fillzd2csetzd2exzd2itz125647zc0zzcgen_copz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2nopzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2nopza7d2za7za7cgen_copza7007113za7, BGl__makezd2nopzd2zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cjumpzd2exzd2itzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2cjumpza7d2exza7d2itza7d2za7za7cgen_copza7007114za7, BGl__allocatezd2cjumpzd2exzd2itzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2bdbzd2blockzd2envzd2zzcgen_copz00, BgL_bgl__allocateza7d2bdbza7d2blockza700za7za7cgen_copza7007115z00, BGl__allocatezd2bdbzd2blockz00zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2catomzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2catomza7d2za7za7cgen_copza7007116za7, BGl__makezd2catomzd2zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cappzf3zd2envz21zzcgen_copz00, BgL_bgl__cappza7f3za7f3za7za7cgen_copza7007117za7, BGl__cappzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2blockzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2blockza7d2za7za7cgen_copza7007118za7, BGl__makezd2blockzd2zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cgotozd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2cgotoza7d2za7za7cgen_copza7007119za7, BGl__allocatezd2cgotozd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cfuncallzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2cfuncall5685za7d2za7za7cgen_copza7007120za7, BGl__makezd2cfuncall5685zd2zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_sfunzf2Czf3zd2envzd3zzcgen_copz00, BgL_bgl__sfunza7f2cza7f3za701za7za7cgen_copza7007121z00, BGl__sfunzf2Czf3z01zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2capplyzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2capply5680za7d2za7za7cgen_copza7007122za7, BGl__makezd2capply5680zd2zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cpragmazd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2cpragmaza7d2za7za7cgen_copza7007123za7, BGl__allocatezd2cpragmazd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_cmakezd2boxzf3zd2envzf3zzcgen_copz00, BgL_bgl__cmakeza7d2boxza7f3za721za7za7cgen_copza7007124z00, BGl__cmakezd2boxzf3z21zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_capplyzf3zd2envz21zzcgen_copz00, BgL_bgl__capplyza7f3za7f3za7za7cgen_copza7007125za7, BGl__capplyzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cfuncallzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2cfuncallza7d2za7za7cgen_copza7007126za7, BGl__allocatezd2cfuncallzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2csetqz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2csetqza7125701za7c0za7za7cgen_copza7007127z00, BGl__fillzd2csetqz125701zc0zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_bdbzd2blockzf3zd2envzf3zzcgen_copz00, BgL_bgl__bdbza7d2blockza7f3za721za7za7cgen_copza7007128z00, BGl__bdbzd2blockzf3z21zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cboxzd2setz12zd2envzc0zzcgen_copz00, BgL_bgl__allocateza7d2cboxza7d2setza712za712za7za7cgen_copza7007129za7, BGl__allocatezd2cboxzd2setz12z12zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2ccastzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2ccastza7d2za7za7cgen_copza7007130za7, BGl__allocatezd2ccastzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cappzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2capp5675za7d2za7za7cgen_copza7007131za7, BGl__makezd2capp5675zd2zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cfuncallz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2cfuncallza7125687za7c0za7za7cgen_copza7007132z00, BGl__fillzd2cfuncallz125687zc0zzcgen_copz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2nopz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2nopza7125710za7c0za7za7cgen_copza7007133z00, BGl__fillzd2nopz125710zc0zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2blockz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2blockza712za7c0za7za7cgen_copza7007134z00, BGl__fillzd2blockz12zc0zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2stopzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2stop5704za7d2za7za7cgen_copza7007135za7, BGl__makezd2stop5704zd2zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2clabelz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2clabelza7125756za7c0za7za7cgen_copza7007136z00, BGl__fillzd2clabelz125756zc0zzcgen_copz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_copzf3zd2envz21zzcgen_copz00, BgL_bgl__copza7f3za7f3za7za7cgen_copza7007137za7, BGl__copzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cfailzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2cfail5670za7d2za7za7cgen_copza7007138za7, BGl__makezd2cfail5670zd2zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cmakezd2boxzd2envzd2zzcgen_copz00, BgL_bgl__makeza7d2cmakeza7d2box5660za700za7za7cgen_copza7007139z00, BGl__makezd2cmakezd2box5660z00zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2sfunzf2Czd2envzf2zzcgen_copz00, BgL_bgl__makeza7d2sfunza7f2c5635za720za7za7cgen_copza7007140z00, BGl__makezd2sfunzf2C5635z20zzcgen_copz00, 0L, 15 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2clabelzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2clabel5754za7d2za7za7cgen_copza7007141za7, BGl__makezd2clabel5754zd2zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cvoidzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2cvoidza7d2za7za7cgen_copza7007142za7, BGl__allocatezd2cvoidzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cswitchzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2cswitchza7d2za7za7cgen_copza7007143za7, BGl__allocatezd2cswitchzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2csequencezd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2csequenceza7d2za7za7cgen_copza7007144za7, BGl__allocatezd2csequencezd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2csetzd2exzd2itzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2csetza7d2exza7d2itza7d2za7za7cgen_copza7007145za7, BGl__allocatezd2csetzd2exzd2itzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2csetzd2exzd2itzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2csetza7d2exza7d2it5645za7d2za7za7cgen_copza7007146za7, BGl__makezd2csetzd2exzd2it5645zd2zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2creturnzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2creturnza7d2za7za7cgen_copza7007147za7, BGl__allocatezd2creturnzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cifz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2cifza7125696za7c0za7za7cgen_copza7007148z00, BGl__fillzd2cifz125696zc0zzcgen_copz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_cboxzd2refzf3zd2envzf3zzcgen_copz00, BgL_bgl__cboxza7d2refza7f3za721za7za7cgen_copza7007149z00, BGl__cboxzd2refzf3z21zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2bdbzd2blockz12zd2envzc0zzcgen_copz00, BgL_bgl__fillza7d2bdbza7d2blockza7125631za712za7za7cgen_copza7007150za7, BGl__fillzd2bdbzd2blockz125631z12zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_cfuncallzf3zd2envz21zzcgen_copz00, BgL_bgl__cfuncallza7f3za7f3za7za7cgen_copza7007151za7, BGl__cfuncallzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2catomz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2catomza7125733za7c0za7za7cgen_copza7007152z00, BGl__fillzd2catomz125733zc0zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cjumpzd2exzd2itzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2cjumpza7d2exza7d2it5640za7d2za7za7cgen_copza7007153za7, BGl__makezd2cjumpzd2exzd2it5640zd2zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cfailz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2cfailza7125672za7c0za7za7cgen_copza7007154z00, BGl__fillzd2cfailz125672zc0zzcgen_copz00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cappz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2cappza7125677za7c0za7za7cgen_copza7007155z00, BGl__fillzd2cappz125677zc0zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_creturnzf3zd2envz21zzcgen_copz00, BgL_bgl__creturnza7f3za7f3za7za7cgen_copza7007156za7, BGl__creturnzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_STRING( BGl_string6936z00zzcgen_copz00, BgL_bgl_string6936za700za7za7cgen_copza7007157z00, "bdb-block sfun/C cjump-ex-it cset-ex-it cbox-set! cbox-ref cmake-box cswitch cfail capp capply cfuncall local-var cif csetq stop nop csequence ccast cpragma varc catom cvoid creturn block cgoto clabel cop ", 205 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2creturnzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2creturn5741za7d2za7za7cgen_copza7007158za7, BGl__makezd2creturn5741zd2zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2localzd2varzd2envzd2zzcgen_copz00, BgL_bgl__allocateza7d2localza7d2varza700za7za7cgen_copza7007159z00, BGl__allocatezd2localzd2varz00zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2csetqzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2csetqza7d2za7za7cgen_copza7007160za7, BGl__allocatezd2csetqzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cappzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2cappza7d2za7za7cgen_copza7007161za7, BGl__allocatezd2cappzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cpragmazd2envz00zzcgen_copz00, BgL_bgl__makeza7d2cpragma5722za7d2za7za7cgen_copza7007162za7, BGl__makezd2cpragma5722zd2zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cgotozd2envz00zzcgen_copz00, BgL_bgl__makeza7d2cgoto5749za7d2za7za7cgen_copza7007163za7, BGl__makezd2cgoto5749zd2zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ccastzf3zd2envz21zzcgen_copz00, BgL_bgl__ccastza7f3za7f3za7za7cgen_copza7007164za7, BGl__ccastzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cvoidz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2cvoidza7125738za7c0za7za7cgen_copza7007165z00, BGl__fillzd2cvoidz125738zc0zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2stopzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2stopza7d2za7za7cgen_copza7007166za7, BGl__allocatezd2stopzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2capplyz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2capplyza7125682za7c0za7za7cgen_copza7007167z00, BGl__fillzd2capplyz125682zc0zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2sfunzf2Czd2envzf2zzcgen_copz00, BgL_bgl__allocateza7d2sfunza7f2cza720za7za7cgen_copza7007168z00, BGl__allocatezd2sfunzf2Cz20zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_cgotozf3zd2envz21zzcgen_copz00, BgL_bgl__cgotoza7f3za7f3za7za7cgen_copza7007169za7, BGl__cgotozf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cboxzd2refzd2envzd2zzcgen_copz00, BgL_bgl__allocateza7d2cboxza7d2refza700za7za7cgen_copza7007170z00, BGl__allocatezd2cboxzd2refz00zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2cgotoz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2cgotoza7125751za7c0za7za7cgen_copza7007171z00, BGl__fillzd2cgotoz125751zc0zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2ccastzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2ccast5717za7d2za7za7cgen_copza7007172za7, BGl__makezd2ccast5717zd2zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stopzf3zd2envz21zzcgen_copz00, BgL_bgl__stopza7f3za7f3za7za7cgen_copza7007173za7, BGl__stopzf3zf3zzcgen_copz00, 0L, 1 );
BGL_IMPORT obj_t BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00;
DEFINE_EXPORT_PROCEDURE( BGl_makezd2bdbzd2blockzd2envzd2zzcgen_copz00, BgL_bgl__makeza7d2bdbza7d2block5629za700za7za7cgen_copza7007174z00, BGl__makezd2bdbzd2block5629z00zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cvoidzf3zd2envz21zzcgen_copz00, BgL_bgl__cvoidza7f3za7f3za7za7cgen_copza7007175za7, BGl__cvoidzf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2varcz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2varcza7125729za7c0za7za7cgen_copza7007176z00, BGl__fillzd2varcz125729zc0zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2ccastz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2ccastza7125719za7c0za7za7cgen_copza7007177z00, BGl__fillzd2ccastz125719zc0zzcgen_copz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2creturnz12zd2envz12zzcgen_copz00, BgL_bgl__fillza7d2creturnza7125743za7c0za7za7cgen_copza7007178z00, BGl__fillzd2creturnz125743zc0zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2catomzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2catomza7d2za7za7cgen_copza7007179za7, BGl__allocatezd2catomzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2csequencezd2envz00zzcgen_copz00, BgL_bgl__makeza7d2csequenceza7d2za7za7cgen_copza7007180za7, BGl__makezd2csequencezd2zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2varczd2envz00zzcgen_copz00, BgL_bgl__makeza7d2varc5727za7d2za7za7cgen_copza7007181za7, BGl__makezd2varc5727zd2zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2blockzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2blockza7d2za7za7cgen_copza7007182za7, BGl__allocatezd2blockzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cboxzd2refzd2envzd2zzcgen_copz00, BgL_bgl__makeza7d2cboxza7d2ref5655za700za7za7cgen_copza7007183z00, BGl__makezd2cboxzd2ref5655z00zzcgen_copz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cboxzd2setz12zd2envzc0zzcgen_copz00, BgL_bgl__makeza7d2cboxza7d2setza7125650za712za7za7cgen_copza7007184za7, BGl__makezd2cboxzd2setz125650z12zzcgen_copz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2nopzd2envz00zzcgen_copz00, BgL_bgl__allocateza7d2nopza7d2za7za7cgen_copza7007185za7, BGl__allocatezd2nopzd2zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2cmakezd2boxzd2envzd2zzcgen_copz00, BgL_bgl__allocateza7d2cmakeza7d2boxza700za7za7cgen_copza7007186z00, BGl__allocatezd2cmakezd2boxz00zzcgen_copz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_csequencezf3zd2envz21zzcgen_copz00, BgL_bgl__csequenceza7f3za7f3za7za7cgen_copza7007187za7, BGl__csequencezf3zf3zzcgen_copz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2cvoidzd2envz00zzcgen_copz00, BgL_bgl__makeza7d2cvoid5736za7d2za7za7cgen_copza7007188za7, BGl__makezd2cvoid5736zd2zzcgen_copz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcgen_copz00(long BgL_checksumz00_4716, char * BgL_fromz00_4717)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcgen_copz00))
{ 
BGl_requirezd2initializa7ationz75zzcgen_copz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcgen_copz00(); 
BGl_cnstzd2initzd2zzcgen_copz00(); 
BGl_importedzd2moduleszd2initz00zzcgen_copz00(); 
BGl_objectzd2initzd2zzcgen_copz00(); 
BGl_methodzd2initzd2zzcgen_copz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cgen_cop"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cgen_cop"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 15 */
{ /* ./Cgen/cop.scm 15 */
obj_t BgL_cportz00_4154;
BgL_cportz00_4154 = 
open_input_string(BGl_string6936z00zzcgen_copz00); 
{ 
long BgL_iz00_4155;
BgL_iz00_4155 = ((long)27); 
BgL_loopz00_4156:
{ /* ./Cgen/cop.scm 15 */
bool_t BgL_test6938z00_4157;
BgL_test6938z00_4157 = 
(BgL_iz00_4155==((long)-1)); 
if(BgL_test6938z00_4157)
{ /* ./Cgen/cop.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cgen/cop.scm 15 */
{ /* ./Cgen/cop.scm 15 */
obj_t BgL_arg6940z00_4158;
{ /* ./Cgen/cop.scm 15 */
obj_t BgL_list6943z00_4159;
BgL_list6943z00_4159 = 
MAKE_PAIR(BgL_cportz00_4154, BNIL); 
BgL_arg6940z00_4158 = 
BGl_readz00zz__readerz00(BgL_list6943z00_4159); } 
{ /* ./Cgen/cop.scm 15 */
int BgL_auxz00_4733;
BgL_auxz00_4733 = 
(int)(BgL_iz00_4155); 
CNST_TABLE_SET(BgL_auxz00_4733, BgL_arg6940z00_4158); } } 
{ /* ./Cgen/cop.scm 15 */
int BgL_auxz00_4160;
{ /* ./Cgen/cop.scm 15 */
long BgL_auxz00_4736;
BgL_auxz00_4736 = 
(BgL_iz00_4155-((long)1)); 
BgL_auxz00_4160 = 
(int)(BgL_auxz00_4736); } 
{ 
long BgL_iz00_4739;
BgL_iz00_4739 = 
(long)(BgL_auxz00_4160); 
BgL_iz00_4155 = BgL_iz00_4739; 
goto BgL_loopz00_4156;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 15 */
return BUNSPEC;} 
}



/* object-init */
obj_t BGl_objectzd2initzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 15 */
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_arg3735z00_1014;obj_t BgL_arg3736z00_1015;obj_t BgL_arg3740z00_1019;
BgL_arg3735z00_1014 = 
CNST_TABLE_REF(((long)0)); 
BgL_arg3736z00_1015 = BGl_objectz00zz__objectz00; 
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_v3594z00_1020;
{ 
int BgL_auxz00_4742;
BgL_auxz00_4742 = 
(int)(((long)0)); 
BgL_v3594z00_1020 = 
create_vector(BgL_auxz00_4742); } 
BgL_arg3740z00_1019 = BgL_v3594z00_1020; } 
BGl_copz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3735z00_1014, BgL_arg3736z00_1015, BFALSE, BGl_allocatezd2copzd2envz00zzcgen_copz00, ((long)8495), BNIL, BFALSE, BgL_arg3740z00_1019); } 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_arg3744z00_1021;obj_t BgL_arg3745z00_1022;obj_t BgL_arg3749z00_1026;
BgL_arg3744z00_1021 = 
CNST_TABLE_REF(((long)1)); 
BgL_arg3745z00_1022 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_v3595z00_1027;
{ 
int BgL_auxz00_4747;
BgL_auxz00_4747 = 
(int)(((long)0)); 
BgL_v3595z00_1027 = 
create_vector(BgL_auxz00_4747); } 
BgL_arg3749z00_1026 = BgL_v3595z00_1027; } 
BGl_clabelz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3744z00_1021, BgL_arg3745z00_1022, BFALSE, BGl_allocatezd2clabelzd2envz00zzcgen_copz00, ((long)42707), BNIL, BFALSE, BgL_arg3749z00_1026); } 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_arg3753z00_1028;obj_t BgL_arg3754z00_1029;obj_t BgL_arg3758z00_1033;
BgL_arg3753z00_1028 = 
CNST_TABLE_REF(((long)2)); 
BgL_arg3754z00_1029 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_v3596z00_1034;
{ 
int BgL_auxz00_4752;
BgL_auxz00_4752 = 
(int)(((long)0)); 
BgL_v3596z00_1034 = 
create_vector(BgL_auxz00_4752); } 
BgL_arg3758z00_1033 = BgL_v3596z00_1034; } 
BGl_cgotoz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3753z00_1028, BgL_arg3754z00_1029, BFALSE, BGl_allocatezd2cgotozd2envz00zzcgen_copz00, ((long)427), BNIL, BFALSE, BgL_arg3758z00_1033); } 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_arg3762z00_1035;obj_t BgL_arg3763z00_1036;obj_t BgL_arg3767z00_1040;
BgL_arg3762z00_1035 = 
CNST_TABLE_REF(((long)3)); 
BgL_arg3763z00_1036 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_v3597z00_1041;
{ 
int BgL_auxz00_4757;
BgL_auxz00_4757 = 
(int)(((long)0)); 
BgL_v3597z00_1041 = 
create_vector(BgL_auxz00_4757); } 
BgL_arg3767z00_1040 = BgL_v3597z00_1041; } 
BGl_blockz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3762z00_1035, BgL_arg3763z00_1036, BFALSE, BGl_allocatezd2blockzd2envz00zzcgen_copz00, ((long)56735), BNIL, BFALSE, BgL_arg3767z00_1040); } 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_arg3771z00_1042;obj_t BgL_arg3773z00_1043;obj_t BgL_arg3778z00_1047;
BgL_arg3771z00_1042 = 
CNST_TABLE_REF(((long)4)); 
BgL_arg3773z00_1043 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_v3598z00_1048;
{ 
int BgL_auxz00_4762;
BgL_auxz00_4762 = 
(int)(((long)0)); 
BgL_v3598z00_1048 = 
create_vector(BgL_auxz00_4762); } 
BgL_arg3778z00_1047 = BgL_v3598z00_1048; } 
BGl_creturnz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3771z00_1042, BgL_arg3773z00_1043, BFALSE, BGl_allocatezd2creturnzd2envz00zzcgen_copz00, ((long)61104), BNIL, BFALSE, BgL_arg3778z00_1047); } 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_arg3782z00_1049;obj_t BgL_arg3783z00_1050;obj_t BgL_arg3787z00_1054;
BgL_arg3782z00_1049 = 
CNST_TABLE_REF(((long)5)); 
BgL_arg3783z00_1050 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_v3599z00_1055;
{ 
int BgL_auxz00_4767;
BgL_auxz00_4767 = 
(int)(((long)0)); 
BgL_v3599z00_1055 = 
create_vector(BgL_auxz00_4767); } 
BgL_arg3787z00_1054 = BgL_v3599z00_1055; } 
BGl_cvoidz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3782z00_1049, BgL_arg3783z00_1050, BFALSE, BGl_allocatezd2cvoidzd2envz00zzcgen_copz00, ((long)39694), BNIL, BFALSE, BgL_arg3787z00_1054); } 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_arg3791z00_1056;obj_t BgL_arg3792z00_1057;obj_t BgL_arg3796z00_1061;
BgL_arg3791z00_1056 = 
CNST_TABLE_REF(((long)6)); 
BgL_arg3792z00_1057 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_v3600z00_1062;
{ 
int BgL_auxz00_4772;
BgL_auxz00_4772 = 
(int)(((long)0)); 
BgL_v3600z00_1062 = 
create_vector(BgL_auxz00_4772); } 
BgL_arg3796z00_1061 = BgL_v3600z00_1062; } 
BGl_catomz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3791z00_1056, BgL_arg3792z00_1057, BFALSE, BGl_allocatezd2catomzd2envz00zzcgen_copz00, ((long)11673), BNIL, BFALSE, BgL_arg3796z00_1061); } 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_arg3800z00_1063;obj_t BgL_arg3801z00_1064;obj_t BgL_arg3805z00_1068;
BgL_arg3800z00_1063 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg3801z00_1064 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_v3601z00_1069;
{ 
int BgL_auxz00_4777;
BgL_auxz00_4777 = 
(int)(((long)0)); 
BgL_v3601z00_1069 = 
create_vector(BgL_auxz00_4777); } 
BgL_arg3805z00_1068 = BgL_v3601z00_1069; } 
BGl_varcz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3800z00_1063, BgL_arg3801z00_1064, BFALSE, BGl_allocatezd2varczd2envz00zzcgen_copz00, ((long)9180), BNIL, BFALSE, BgL_arg3805z00_1068); } 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_arg3809z00_1070;obj_t BgL_arg3810z00_1071;obj_t BgL_arg3814z00_1075;
BgL_arg3809z00_1070 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg3810z00_1071 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_v3602z00_1076;
{ 
int BgL_auxz00_4782;
BgL_auxz00_4782 = 
(int)(((long)0)); 
BgL_v3602z00_1076 = 
create_vector(BgL_auxz00_4782); } 
BgL_arg3814z00_1075 = BgL_v3602z00_1076; } 
BGl_cpragmaz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3809z00_1070, BgL_arg3810z00_1071, BFALSE, BGl_allocatezd2cpragmazd2envz00zzcgen_copz00, ((long)4168), BNIL, BFALSE, BgL_arg3814z00_1075); } 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_arg3818z00_1077;obj_t BgL_arg3819z00_1078;obj_t BgL_arg3823z00_1082;
BgL_arg3818z00_1077 = 
CNST_TABLE_REF(((long)9)); 
BgL_arg3819z00_1078 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_v3603z00_1083;
{ 
int BgL_auxz00_4787;
BgL_auxz00_4787 = 
(int)(((long)0)); 
BgL_v3603z00_1083 = 
create_vector(BgL_auxz00_4787); } 
BgL_arg3823z00_1082 = BgL_v3603z00_1083; } 
BGl_ccastz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3818z00_1077, BgL_arg3819z00_1078, BFALSE, BGl_allocatezd2ccastzd2envz00zzcgen_copz00, ((long)6830), BNIL, BFALSE, BgL_arg3823z00_1082); } 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_arg3827z00_1084;obj_t BgL_arg3828z00_1085;obj_t BgL_arg3834z00_1089;
BgL_arg3827z00_1084 = 
CNST_TABLE_REF(((long)10)); 
BgL_arg3828z00_1085 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_v3604z00_1090;
{ 
int BgL_auxz00_4792;
BgL_auxz00_4792 = 
(int)(((long)0)); 
BgL_v3604z00_1090 = 
create_vector(BgL_auxz00_4792); } 
BgL_arg3834z00_1089 = BgL_v3604z00_1090; } 
BGl_csequencez00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3827z00_1084, BgL_arg3828z00_1085, BFALSE, BGl_allocatezd2csequencezd2envz00zzcgen_copz00, ((long)32405), BNIL, BFALSE, BgL_arg3834z00_1089); } 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_arg3838z00_1091;obj_t BgL_arg3839z00_1092;obj_t BgL_arg3843z00_1096;
BgL_arg3838z00_1091 = 
CNST_TABLE_REF(((long)11)); 
BgL_arg3839z00_1092 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_v3605z00_1097;
{ 
int BgL_auxz00_4797;
BgL_auxz00_4797 = 
(int)(((long)0)); 
BgL_v3605z00_1097 = 
create_vector(BgL_auxz00_4797); } 
BgL_arg3843z00_1096 = BgL_v3605z00_1097; } 
BGl_nopz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3838z00_1091, BgL_arg3839z00_1092, BFALSE, BGl_allocatezd2nopzd2envz00zzcgen_copz00, ((long)10021), BNIL, BFALSE, BgL_arg3843z00_1096); } 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_arg3847z00_1098;obj_t BgL_arg3848z00_1099;obj_t BgL_arg3852z00_1103;
BgL_arg3847z00_1098 = 
CNST_TABLE_REF(((long)12)); 
BgL_arg3848z00_1099 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_v3606z00_1104;
{ 
int BgL_auxz00_4802;
BgL_auxz00_4802 = 
(int)(((long)0)); 
BgL_v3606z00_1104 = 
create_vector(BgL_auxz00_4802); } 
BgL_arg3852z00_1103 = BgL_v3606z00_1104; } 
BGl_stopz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3847z00_1098, BgL_arg3848z00_1099, BFALSE, BGl_allocatezd2stopzd2envz00zzcgen_copz00, ((long)35829), BNIL, BFALSE, BgL_arg3852z00_1103); } 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_arg3856z00_1105;obj_t BgL_arg3857z00_1106;obj_t BgL_arg3861z00_1110;
BgL_arg3856z00_1105 = 
CNST_TABLE_REF(((long)13)); 
BgL_arg3857z00_1106 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_v3607z00_1111;
{ 
int BgL_auxz00_4807;
BgL_auxz00_4807 = 
(int)(((long)0)); 
BgL_v3607z00_1111 = 
create_vector(BgL_auxz00_4807); } 
BgL_arg3861z00_1110 = BgL_v3607z00_1111; } 
BGl_csetqz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3856z00_1105, BgL_arg3857z00_1106, BFALSE, BGl_allocatezd2csetqzd2envz00zzcgen_copz00, ((long)55370), BNIL, BFALSE, BgL_arg3861z00_1110); } 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_arg3865z00_1112;obj_t BgL_arg3866z00_1113;obj_t BgL_arg3870z00_1117;
BgL_arg3865z00_1112 = 
CNST_TABLE_REF(((long)14)); 
BgL_arg3866z00_1113 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_v3608z00_1118;
{ 
int BgL_auxz00_4812;
BgL_auxz00_4812 = 
(int)(((long)0)); 
BgL_v3608z00_1118 = 
create_vector(BgL_auxz00_4812); } 
BgL_arg3870z00_1117 = BgL_v3608z00_1118; } 
BGl_cifz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3865z00_1112, BgL_arg3866z00_1113, BFALSE, BGl_allocatezd2cifzd2envz00zzcgen_copz00, ((long)1867), BNIL, BFALSE, BgL_arg3870z00_1117); } 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_arg3874z00_1119;obj_t BgL_arg3875z00_1120;obj_t BgL_arg3880z00_1124;
BgL_arg3874z00_1119 = 
CNST_TABLE_REF(((long)15)); 
BgL_arg3875z00_1120 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_v3609z00_1125;
{ 
int BgL_auxz00_4817;
BgL_auxz00_4817 = 
(int)(((long)0)); 
BgL_v3609z00_1125 = 
create_vector(BgL_auxz00_4817); } 
BgL_arg3880z00_1124 = BgL_v3609z00_1125; } 
BGl_localzd2varzd2zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3874z00_1119, BgL_arg3875z00_1120, BFALSE, BGl_allocatezd2localzd2varzd2envzd2zzcgen_copz00, ((long)62797), BNIL, BFALSE, BgL_arg3880z00_1124); } 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_arg3885z00_1126;obj_t BgL_arg3886z00_1127;obj_t BgL_arg3890z00_1131;
BgL_arg3885z00_1126 = 
CNST_TABLE_REF(((long)16)); 
BgL_arg3886z00_1127 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_v3610z00_1132;
{ 
int BgL_auxz00_4822;
BgL_auxz00_4822 = 
(int)(((long)0)); 
BgL_v3610z00_1132 = 
create_vector(BgL_auxz00_4822); } 
BgL_arg3890z00_1131 = BgL_v3610z00_1132; } 
BGl_cfuncallz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3885z00_1126, BgL_arg3886z00_1127, BFALSE, BGl_allocatezd2cfuncallzd2envz00zzcgen_copz00, ((long)47651), BNIL, BFALSE, BgL_arg3890z00_1131); } 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_arg3894z00_1133;obj_t BgL_arg3895z00_1134;obj_t BgL_arg3899z00_1138;
BgL_arg3894z00_1133 = 
CNST_TABLE_REF(((long)17)); 
BgL_arg3895z00_1134 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_v3611z00_1139;
{ 
int BgL_auxz00_4827;
BgL_auxz00_4827 = 
(int)(((long)0)); 
BgL_v3611z00_1139 = 
create_vector(BgL_auxz00_4827); } 
BgL_arg3899z00_1138 = BgL_v3611z00_1139; } 
BGl_capplyz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3894z00_1133, BgL_arg3895z00_1134, BFALSE, BGl_allocatezd2capplyzd2envz00zzcgen_copz00, ((long)58430), BNIL, BFALSE, BgL_arg3899z00_1138); } 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_arg3903z00_1140;obj_t BgL_arg3904z00_1141;obj_t BgL_arg3908z00_1145;
BgL_arg3903z00_1140 = 
CNST_TABLE_REF(((long)18)); 
BgL_arg3904z00_1141 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_v3612z00_1146;
{ 
int BgL_auxz00_4832;
BgL_auxz00_4832 = 
(int)(((long)0)); 
BgL_v3612z00_1146 = 
create_vector(BgL_auxz00_4832); } 
BgL_arg3908z00_1145 = BgL_v3612z00_1146; } 
BGl_cappz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3903z00_1140, BgL_arg3904z00_1141, BFALSE, BGl_allocatezd2cappzd2envz00zzcgen_copz00, ((long)44006), BNIL, BFALSE, BgL_arg3908z00_1145); } 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_arg3912z00_1147;obj_t BgL_arg3913z00_1148;obj_t BgL_arg3917z00_1152;
BgL_arg3912z00_1147 = 
CNST_TABLE_REF(((long)19)); 
BgL_arg3913z00_1148 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_v3613z00_1153;
{ 
int BgL_auxz00_4837;
BgL_auxz00_4837 = 
(int)(((long)0)); 
BgL_v3613z00_1153 = 
create_vector(BgL_auxz00_4837); } 
BgL_arg3917z00_1152 = BgL_v3613z00_1153; } 
BGl_cfailz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3912z00_1147, BgL_arg3913z00_1148, BFALSE, BGl_allocatezd2cfailzd2envz00zzcgen_copz00, ((long)61161), BNIL, BFALSE, BgL_arg3917z00_1152); } 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_arg3921z00_1154;obj_t BgL_arg3922z00_1155;obj_t BgL_arg3926z00_1159;
BgL_arg3921z00_1154 = 
CNST_TABLE_REF(((long)20)); 
BgL_arg3922z00_1155 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_v3614z00_1160;
{ 
int BgL_auxz00_4842;
BgL_auxz00_4842 = 
(int)(((long)0)); 
BgL_v3614z00_1160 = 
create_vector(BgL_auxz00_4842); } 
BgL_arg3926z00_1159 = BgL_v3614z00_1160; } 
BGl_cswitchz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3921z00_1154, BgL_arg3922z00_1155, BFALSE, BGl_allocatezd2cswitchzd2envz00zzcgen_copz00, ((long)35275), BNIL, BFALSE, BgL_arg3926z00_1159); } 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_arg3930z00_1161;obj_t BgL_arg3931z00_1162;obj_t BgL_arg3935z00_1166;
BgL_arg3930z00_1161 = 
CNST_TABLE_REF(((long)21)); 
BgL_arg3931z00_1162 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_v3615z00_1167;
{ 
int BgL_auxz00_4847;
BgL_auxz00_4847 = 
(int)(((long)0)); 
BgL_v3615z00_1167 = 
create_vector(BgL_auxz00_4847); } 
BgL_arg3935z00_1166 = BgL_v3615z00_1167; } 
BGl_cmakezd2boxzd2zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3930z00_1161, BgL_arg3931z00_1162, BFALSE, BGl_allocatezd2cmakezd2boxzd2envzd2zzcgen_copz00, ((long)62676), BNIL, BFALSE, BgL_arg3935z00_1166); } 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_arg3939z00_1168;obj_t BgL_arg3940z00_1169;obj_t BgL_arg3945z00_1173;
BgL_arg3939z00_1168 = 
CNST_TABLE_REF(((long)22)); 
BgL_arg3940z00_1169 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_v3616z00_1174;
{ 
int BgL_auxz00_4852;
BgL_auxz00_4852 = 
(int)(((long)0)); 
BgL_v3616z00_1174 = 
create_vector(BgL_auxz00_4852); } 
BgL_arg3945z00_1173 = BgL_v3616z00_1174; } 
BGl_cboxzd2refzd2zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3939z00_1168, BgL_arg3940z00_1169, BFALSE, BGl_allocatezd2cboxzd2refzd2envzd2zzcgen_copz00, ((long)28241), BNIL, BFALSE, BgL_arg3945z00_1173); } 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_arg3949z00_1175;obj_t BgL_arg3950z00_1176;obj_t BgL_arg3954z00_1180;
BgL_arg3949z00_1175 = 
CNST_TABLE_REF(((long)23)); 
BgL_arg3950z00_1176 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_v3617z00_1181;
{ 
int BgL_auxz00_4857;
BgL_auxz00_4857 = 
(int)(((long)0)); 
BgL_v3617z00_1181 = 
create_vector(BgL_auxz00_4857); } 
BgL_arg3954z00_1180 = BgL_v3617z00_1181; } 
BGl_cboxzd2setz12zc0zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3949z00_1175, BgL_arg3950z00_1176, BFALSE, BGl_allocatezd2cboxzd2setz12zd2envzc0zzcgen_copz00, ((long)39370), BNIL, BFALSE, BgL_arg3954z00_1180); } 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_arg3958z00_1182;obj_t BgL_arg3959z00_1183;obj_t BgL_arg3963z00_1187;
BgL_arg3958z00_1182 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg3959z00_1183 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_v3618z00_1188;
{ 
int BgL_auxz00_4862;
BgL_auxz00_4862 = 
(int)(((long)0)); 
BgL_v3618z00_1188 = 
create_vector(BgL_auxz00_4862); } 
BgL_arg3963z00_1187 = BgL_v3618z00_1188; } 
BGl_csetzd2exzd2itz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3958z00_1182, BgL_arg3959z00_1183, BFALSE, BGl_allocatezd2csetzd2exzd2itzd2envz00zzcgen_copz00, ((long)20339), BNIL, BFALSE, BgL_arg3963z00_1187); } 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_arg3967z00_1189;obj_t BgL_arg3968z00_1190;obj_t BgL_arg3972z00_1194;
BgL_arg3967z00_1189 = 
CNST_TABLE_REF(((long)25)); 
BgL_arg3968z00_1190 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_v3619z00_1195;
{ 
int BgL_auxz00_4867;
BgL_auxz00_4867 = 
(int)(((long)0)); 
BgL_v3619z00_1195 = 
create_vector(BgL_auxz00_4867); } 
BgL_arg3972z00_1194 = BgL_v3619z00_1195; } 
BGl_cjumpzd2exzd2itz00zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3967z00_1189, BgL_arg3968z00_1190, BFALSE, BGl_allocatezd2cjumpzd2exzd2itzd2envz00zzcgen_copz00, ((long)10784), BNIL, BFALSE, BgL_arg3972z00_1194); } 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_arg3976z00_1196;obj_t BgL_arg3978z00_1197;obj_t BgL_arg3982z00_1201;
BgL_arg3976z00_1196 = 
CNST_TABLE_REF(((long)26)); 
BgL_arg3978z00_1197 = BGl_sfunz00zzast_varz00; 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_v3620z00_1202;
{ 
int BgL_auxz00_4872;
BgL_auxz00_4872 = 
(int)(((long)0)); 
BgL_v3620z00_1202 = 
create_vector(BgL_auxz00_4872); } 
BgL_arg3982z00_1201 = BgL_v3620z00_1202; } 
BGl_sfunzf2Czf2zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3976z00_1196, BgL_arg3978z00_1197, BFALSE, BGl_allocatezd2sfunzf2Czd2envzf2zzcgen_copz00, ((long)16966), BNIL, BFALSE, BgL_arg3982z00_1201); } 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_arg3986z00_1203;obj_t BgL_arg3987z00_1204;obj_t BgL_arg3991z00_1208;
BgL_arg3986z00_1203 = 
CNST_TABLE_REF(((long)27)); 
BgL_arg3987z00_1204 = BGl_copz00zzcgen_copz00; 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_v3621z00_1209;
{ 
int BgL_auxz00_4877;
BgL_auxz00_4877 = 
(int)(((long)0)); 
BgL_v3621z00_1209 = 
create_vector(BgL_auxz00_4877); } 
BgL_arg3991z00_1208 = BgL_v3621z00_1209; } 
BGl_bdbzd2blockzd2zzcgen_copz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg3986z00_1203, BgL_arg3987z00_1204, BFALSE, BGl_allocatezd2bdbzd2blockzd2envzd2zzcgen_copz00, ((long)65020), BNIL, BFALSE, BgL_arg3991z00_1208); } 
return BUNSPEC;} 
}



/* bdb-block? */
BGL_EXPORTED_DEF bool_t BGl_bdbzd2blockzf3z21zzcgen_copz00(obj_t BgL_obj3593z00_1)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 122 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3593z00_1, BGl_bdbzd2blockzd2zzcgen_copz00);} 
}



/* _bdb-block? */
obj_t BGl__bdbzd2blockzf3z21zzcgen_copz00(obj_t BgL_envz00_3651, obj_t BgL_obj3593z00_3652)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 122 */
{ /* ./Cgen/cop.scm 122 */
bool_t BgL_auxz00_4882;
BgL_auxz00_4882 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3593z00_3652, BGl_bdbzd2blockzd2zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_4882);} } 
}



/* make-bdb-block */
BGL_EXPORTED_DEF BgL_bdbzd2blockzd2_bglt BGl_makezd2bdbzd2blockz00zzcgen_copz00(obj_t BgL_loc3572z00_5, BgL_copz00_bglt BgL_body3573z00_6)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 122 */
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_new3574z00_2318;
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_res5540z00_2324;
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_new3582z00_2319;
BgL_new3582z00_2319 = 
((BgL_bdbzd2blockzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_bdbzd2blockzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 122 */
long BgL_arg3998z00_2320;
BgL_arg3998z00_2320 = 
BGl_classzd2numzd2zz__objectz00(BGl_bdbzd2blockzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 122 */
BgL_objectz00_bglt BgL_objz00_2321;
BgL_objz00_2321 = 
(BgL_objectz00_bglt)(BgL_new3582z00_2319); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2321, BgL_arg3998z00_2320); } } 
{ /* ./Cgen/cop.scm 122 */
BgL_objectz00_bglt BgL_auxz00_4889;
BgL_auxz00_4889 = 
(BgL_objectz00_bglt)(BgL_new3582z00_2319); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4889, BFALSE); } 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_objz00_2323;
BgL_objz00_2323 = 
(obj_t)(BgL_new3582z00_2319); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2323); BUNSPEC; } 
BgL_res5540z00_2324 = BgL_new3582z00_2319; } 
BgL_new3574z00_2318 = BgL_res5540z00_2324; } 
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_res5541z00_2330;
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_new3578z00_2325;
BgL_new3578z00_2325 = BgL_new3574z00_2318; 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_loc3576z00_2328;BgL_copz00_bglt BgL_body3577z00_2329;
BgL_loc3576z00_2328 = BgL_loc3572z00_5; 
BgL_body3577z00_2329 = BgL_body3573z00_6; 
((((BgL_bdbzd2blockzd2_bglt)CREF(BgL_new3578z00_2325))->BgL_locz00) = ((obj_t)BgL_loc3576z00_2328), BUNSPEC); 
((((BgL_bdbzd2blockzd2_bglt)CREF(BgL_new3578z00_2325))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_body3577z00_2329), BUNSPEC); 
BgL_res5541z00_2330 = BgL_new3578z00_2325; } } BgL_res5541z00_2330; } 
return BgL_new3574z00_2318;} } 
}



/* _make-bdb-block5629 */
obj_t BGl__makezd2bdbzd2block5629z00zzcgen_copz00(obj_t BgL_envz00_3653, obj_t BgL_loc3572z00_3654, obj_t BgL_body3573z00_3655)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 122 */
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_auxz00_4896;
BgL_auxz00_4896 = 
BGl_makezd2bdbzd2blockz00zzcgen_copz00(BgL_loc3572z00_3654, 
(BgL_copz00_bglt)(BgL_body3573z00_3655)); 
return 
(obj_t)(BgL_auxz00_4896);} } 
}



/* fill-bdb-block! */
BGL_EXPORTED_DEF BgL_bdbzd2blockzd2_bglt BGl_fillzd2bdbzd2blockz12z12zzcgen_copz00(BgL_bdbzd2blockzd2_bglt BgL_new3578z00_7, obj_t BgL_loc3576z00_8, BgL_copz00_bglt BgL_body3577z00_9)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 122 */
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_loc3576z00_4162;BgL_copz00_bglt BgL_body3577z00_4163;
BgL_loc3576z00_4162 = BgL_loc3576z00_8; 
BgL_body3577z00_4163 = BgL_body3577z00_9; 
((((BgL_bdbzd2blockzd2_bglt)CREF(BgL_new3578z00_7))->BgL_locz00) = ((obj_t)BgL_loc3576z00_4162), BUNSPEC); 
((((BgL_bdbzd2blockzd2_bglt)CREF(BgL_new3578z00_7))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_body3577z00_4163), BUNSPEC); 
return BgL_new3578z00_7;} } 
}



/* _fill-bdb-block!5631 */
obj_t BGl__fillzd2bdbzd2blockz125631z12zzcgen_copz00(obj_t BgL_envz00_3656, obj_t BgL_new3578z00_3657, obj_t BgL_loc3576z00_3658, obj_t BgL_body3577z00_3659)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 122 */
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_auxz00_4902;
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_res6952z00_4169;
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_new3578z00_4164;BgL_copz00_bglt BgL_body3577z00_4166;
BgL_new3578z00_4164 = 
(BgL_bdbzd2blockzd2_bglt)(BgL_new3578z00_3657); 
BgL_body3577z00_4166 = 
(BgL_copz00_bglt)(BgL_body3577z00_3659); 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_loc3576z00_4167;BgL_copz00_bglt BgL_body3577z00_4168;
BgL_loc3576z00_4167 = BgL_loc3576z00_3658; 
BgL_body3577z00_4168 = BgL_body3577z00_4166; 
((((BgL_bdbzd2blockzd2_bglt)CREF(BgL_new3578z00_4164))->BgL_locz00) = ((obj_t)BgL_loc3576z00_4167), BUNSPEC); 
((((BgL_bdbzd2blockzd2_bglt)CREF(BgL_new3578z00_4164))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_body3577z00_4168), BUNSPEC); 
BgL_res6952z00_4169 = BgL_new3578z00_4164; } } 
BgL_auxz00_4902 = BgL_res6952z00_4169; } 
return 
(obj_t)(BgL_auxz00_4902);} } 
}



/* allocate-bdb-block */
BGL_EXPORTED_DEF BgL_bdbzd2blockzd2_bglt BGl_allocatezd2bdbzd2blockz00zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 122 */
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_new3582z00_4170;
BgL_new3582z00_4170 = 
((BgL_bdbzd2blockzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_bdbzd2blockzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 122 */
long BgL_arg3998z00_4171;
BgL_arg3998z00_4171 = 
BGl_classzd2numzd2zz__objectz00(BGl_bdbzd2blockzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 122 */
BgL_objectz00_bglt BgL_objz00_4172;
BgL_objz00_4172 = 
(BgL_objectz00_bglt)(BgL_new3582z00_4170); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4172, BgL_arg3998z00_4171); } } 
{ /* ./Cgen/cop.scm 122 */
BgL_objectz00_bglt BgL_auxz00_4912;
BgL_auxz00_4912 = 
(BgL_objectz00_bglt)(BgL_new3582z00_4170); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4912, BFALSE); } 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_objz00_4173;
BgL_objz00_4173 = 
(obj_t)(BgL_new3582z00_4170); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4173); BUNSPEC; } 
return BgL_new3582z00_4170;} } 
}



/* _allocate-bdb-block */
obj_t BGl__allocatezd2bdbzd2blockz00zzcgen_copz00(obj_t BgL_envz00_3650)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 122 */
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_auxz00_4917;
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_res6953z00_4178;
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_new3582z00_4174;
BgL_new3582z00_4174 = 
((BgL_bdbzd2blockzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_bdbzd2blockzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 122 */
long BgL_arg3998z00_4175;
BgL_arg3998z00_4175 = 
BGl_classzd2numzd2zz__objectz00(BGl_bdbzd2blockzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 122 */
BgL_objectz00_bglt BgL_objz00_4176;
BgL_objz00_4176 = 
(BgL_objectz00_bglt)(BgL_new3582z00_4174); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4176, BgL_arg3998z00_4175); } } 
{ /* ./Cgen/cop.scm 122 */
BgL_objectz00_bglt BgL_auxz00_4922;
BgL_auxz00_4922 = 
(BgL_objectz00_bglt)(BgL_new3582z00_4174); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4922, BFALSE); } 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_objz00_4177;
BgL_objz00_4177 = 
(obj_t)(BgL_new3582z00_4174); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4177); BUNSPEC; } 
BgL_res6953z00_4178 = BgL_new3582z00_4174; } 
BgL_auxz00_4917 = BgL_res6953z00_4178; } 
return 
(obj_t)(BgL_auxz00_4917);} } 
}



/* sfun/C? */
BGL_EXPORTED_DEF bool_t BGl_sfunzf2Czf3z01zzcgen_copz00(obj_t BgL_obj3523z00_11)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3523z00_11, BGl_sfunzf2Czf2zzcgen_copz00);} 
}



/* _sfun/C? */
obj_t BGl__sfunzf2Czf3z01zzcgen_copz00(obj_t BgL_envz00_3660, obj_t BgL_obj3523z00_3661)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ /* ./Cgen/cop.scm 118 */
bool_t BgL_auxz00_4929;
BgL_auxz00_4929 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3523z00_3661, BGl_sfunzf2Czf2zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_4929);} } 
}



/* widening-sfun/C */
BGL_EXPORTED_DEF BgL_sfunzf2czf2_bglt BGl_wideningzd2sfunzf2Cz20zzcgen_copz00(BgL_clabelz00_bglt BgL_label3489z00_15, bool_t BgL_integrated3490z00_16)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_new3491z00_2338;
BgL_new3491z00_2338 = 
((BgL_sfunzf2czf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_sfunzf2czf2_bgl)))); 
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_res5542z00_2344;
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_new3512z00_2339;
BgL_new3512z00_2339 = BgL_new3491z00_2338; 
{ /* ./Cgen/cop.scm 118 */
BgL_clabelz00_bglt BgL_label3510z00_2342;bool_t BgL_integrated3511z00_2343;
BgL_label3510z00_2342 = BgL_label3489z00_15; 
BgL_integrated3511z00_2343 = BgL_integrated3490z00_16; 
((((BgL_sfunzf2czf2_bglt)CREF(BgL_new3512z00_2339))->BgL_labelz00) = ((BgL_clabelz00_bglt)BgL_label3510z00_2342), BUNSPEC); 
((((BgL_sfunzf2czf2_bglt)CREF(BgL_new3512z00_2339))->BgL_integratedz00) = ((bool_t)BgL_integrated3511z00_2343), BUNSPEC); 
BgL_res5542z00_2344 = BgL_new3512z00_2339; } } BgL_res5542z00_2344; } 
return BgL_new3491z00_2338;} } 
}



/* _widening-sfun/C */
obj_t BGl__wideningzd2sfunzf2Cz20zzcgen_copz00(obj_t BgL_envz00_3662, obj_t BgL_label3489z00_3663, obj_t BgL_integrated3490z00_3664)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_auxz00_4935;
BgL_auxz00_4935 = 
BGl_wideningzd2sfunzf2Cz20zzcgen_copz00(
(BgL_clabelz00_bglt)(BgL_label3489z00_3663), 
CBOOL(BgL_integrated3490z00_3664)); 
return 
(obj_t)(BgL_auxz00_4935);} } 
}



/* make-sfun/C */
BGL_EXPORTED_DEF BgL_sfunzf2czf2_bglt BGl_makezd2sfunzf2Cz20zzcgen_copz00(long BgL_arity3495z00_17, obj_t BgL_sidezd2effectzf33496z21_18, obj_t BgL_predicatezd2of3497zd2_19, obj_t BgL_stackzd2allocator3498zd2_20, bool_t BgL_topzf33499zf3_21, obj_t BgL_thezd2closure3500zd2_22, obj_t BgL_effect3501z00_23, obj_t BgL_property3502z00_24, obj_t BgL_args3503z00_25, obj_t BgL_body3504z00_26, obj_t BgL_class3505z00_27, obj_t BgL_dssslzd2keywords3506zd2_28, obj_t BgL_loc3507z00_29, BgL_clabelz00_bglt BgL_label3493z00_30, bool_t BgL_integrated3494z00_31)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ /* ./Cgen/cop.scm 118 */
BgL_sfunz00_bglt BgL_aux3508z00_2345;
BgL_aux3508z00_2345 = 
BGl_makezd2sfunzd2zzast_varz00(BgL_arity3495z00_17, BgL_sidezd2effectzf33496z21_18, BgL_predicatezd2of3497zd2_19, BgL_stackzd2allocator3498zd2_20, BgL_topzf33499zf3_21, BgL_thezd2closure3500zd2_22, BgL_effect3501z00_23, BgL_property3502z00_24, BgL_args3503z00_25, BgL_body3504z00_26, BgL_class3505z00_27, BgL_dssslzd2keywords3506zd2_28, BgL_loc3507z00_29); 
{ /* ./Cgen/cop.scm 118 */
long BgL_arg4006z00_2346;
BgL_arg4006z00_2346 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunzf2Czf2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 118 */
BgL_objectz00_bglt BgL_objz00_2349;
BgL_objz00_2349 = 
(BgL_objectz00_bglt)(BgL_aux3508z00_2345); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2349, BgL_arg4006z00_2346); } } 
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_arg4010z00_2347;
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_res5544z00_2360;
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_new3491z00_2353;
BgL_new3491z00_2353 = 
((BgL_sfunzf2czf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_sfunzf2czf2_bgl)))); 
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_res5543z00_2359;
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_new3512z00_2354;
BgL_new3512z00_2354 = BgL_new3491z00_2353; 
{ /* ./Cgen/cop.scm 118 */
BgL_clabelz00_bglt BgL_label3510z00_2357;bool_t BgL_integrated3511z00_2358;
BgL_label3510z00_2357 = BgL_label3493z00_30; 
BgL_integrated3511z00_2358 = BgL_integrated3494z00_31; 
((((BgL_sfunzf2czf2_bglt)CREF(BgL_new3512z00_2354))->BgL_labelz00) = ((BgL_clabelz00_bglt)BgL_label3510z00_2357), BUNSPEC); 
((((BgL_sfunzf2czf2_bglt)CREF(BgL_new3512z00_2354))->BgL_integratedz00) = ((bool_t)BgL_integrated3511z00_2358), BUNSPEC); 
BgL_res5543z00_2359 = BgL_new3512z00_2354; } } BgL_res5543z00_2359; } 
BgL_res5544z00_2360 = BgL_new3491z00_2353; } 
BgL_arg4010z00_2347 = BgL_res5544z00_2360; } 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_auxz00_4949;BgL_objectz00_bglt BgL_auxz00_4947;
BgL_auxz00_4949 = 
(obj_t)(BgL_arg4010z00_2347); 
BgL_auxz00_4947 = 
(BgL_objectz00_bglt)(BgL_aux3508z00_2345); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4947, BgL_auxz00_4949); } } 
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_new3509z00_2348;
{ 
BgL_sfunzf2czf2_bglt BgL_auxz00_4952;
BgL_auxz00_4952 = 
(BgL_sfunzf2czf2_bglt)(BgL_aux3508z00_2345); 
BgL_new3509z00_2348 = 
((BgL_sfunzf2czf2_bglt)BgL_auxz00_4952); } 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_objz00_2361;
BgL_objz00_2361 = 
(obj_t)(BgL_new3509z00_2348); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2361); BUNSPEC; } 
return BgL_new3509z00_2348;} } } 
}



/* _make-sfun/C5635 */
obj_t BGl__makezd2sfunzf2C5635z20zzcgen_copz00(obj_t BgL_envz00_3665, obj_t BgL_arity3495z00_3666, obj_t BgL_sidezd2effectzf33496z21_3667, obj_t BgL_predicatezd2of3497zd2_3668, obj_t BgL_stackzd2allocator3498zd2_3669, obj_t BgL_topzf33499zf3_3670, obj_t BgL_thezd2closure3500zd2_3671, obj_t BgL_effect3501z00_3672, obj_t BgL_property3502z00_3673, obj_t BgL_args3503z00_3674, obj_t BgL_body3504z00_3675, obj_t BgL_class3505z00_3676, obj_t BgL_dssslzd2keywords3506zd2_3677, obj_t BgL_loc3507z00_3678, obj_t BgL_label3493z00_3679, obj_t BgL_integrated3494z00_3680)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_auxz00_4957;
BgL_auxz00_4957 = 
BGl_makezd2sfunzf2Cz20zzcgen_copz00(
(long)CINT(BgL_arity3495z00_3666), BgL_sidezd2effectzf33496z21_3667, BgL_predicatezd2of3497zd2_3668, BgL_stackzd2allocator3498zd2_3669, 
CBOOL(BgL_topzf33499zf3_3670), BgL_thezd2closure3500zd2_3671, BgL_effect3501z00_3672, BgL_property3502z00_3673, BgL_args3503z00_3674, BgL_body3504z00_3675, BgL_class3505z00_3676, BgL_dssslzd2keywords3506zd2_3677, BgL_loc3507z00_3678, 
(BgL_clabelz00_bglt)(BgL_label3493z00_3679), 
CBOOL(BgL_integrated3494z00_3680)); 
return 
(obj_t)(BgL_auxz00_4957);} } 
}



/* fill-sfun/C! */
BGL_EXPORTED_DEF BgL_sfunzf2czf2_bglt BGl_fillzd2sfunzf2Cz12z32zzcgen_copz00(BgL_sfunzf2czf2_bglt BgL_new3512z00_32, BgL_clabelz00_bglt BgL_label3510z00_33, bool_t BgL_integrated3511z00_34)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ /* ./Cgen/cop.scm 118 */
BgL_clabelz00_bglt BgL_label3510z00_4180;bool_t BgL_integrated3511z00_4181;
BgL_label3510z00_4180 = BgL_label3510z00_33; 
BgL_integrated3511z00_4181 = BgL_integrated3511z00_34; 
((((BgL_sfunzf2czf2_bglt)CREF(BgL_new3512z00_32))->BgL_labelz00) = ((BgL_clabelz00_bglt)BgL_label3510z00_4180), BUNSPEC); 
((((BgL_sfunzf2czf2_bglt)CREF(BgL_new3512z00_32))->BgL_integratedz00) = ((bool_t)BgL_integrated3511z00_4181), BUNSPEC); 
return BgL_new3512z00_32;} } 
}



/* _fill-sfun/C!5637 */
obj_t BGl__fillzd2sfunzf2Cz125637z32zzcgen_copz00(obj_t BgL_envz00_3681, obj_t BgL_new3512z00_3682, obj_t BgL_label3510z00_3683, obj_t BgL_integrated3511z00_3684)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_auxz00_4966;
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_res6954z00_4187;
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_new3512z00_4182;BgL_clabelz00_bglt BgL_label3510z00_4183;bool_t BgL_integrated3511z00_4184;
BgL_new3512z00_4182 = 
(BgL_sfunzf2czf2_bglt)(BgL_new3512z00_3682); 
BgL_label3510z00_4183 = 
(BgL_clabelz00_bglt)(BgL_label3510z00_3683); 
BgL_integrated3511z00_4184 = 
CBOOL(BgL_integrated3511z00_3684); 
{ /* ./Cgen/cop.scm 118 */
BgL_clabelz00_bglt BgL_label3510z00_4185;bool_t BgL_integrated3511z00_4186;
BgL_label3510z00_4185 = BgL_label3510z00_4183; 
BgL_integrated3511z00_4186 = BgL_integrated3511z00_4184; 
((((BgL_sfunzf2czf2_bglt)CREF(BgL_new3512z00_4182))->BgL_labelz00) = ((BgL_clabelz00_bglt)BgL_label3510z00_4185), BUNSPEC); 
((((BgL_sfunzf2czf2_bglt)CREF(BgL_new3512z00_4182))->BgL_integratedz00) = ((bool_t)BgL_integrated3511z00_4186), BUNSPEC); 
BgL_res6954z00_4187 = BgL_new3512z00_4182; } } 
BgL_auxz00_4966 = BgL_res6954z00_4187; } 
return 
(obj_t)(BgL_auxz00_4966);} } 
}



/* allocate-sfun/C */
BGL_EXPORTED_DEF BgL_sfunz00_bglt BGl_allocatezd2sfunzf2Cz20zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ /* ./Cgen/cop.scm 118 */
BgL_sfunz00_bglt BgL_new3516z00_4188;
BgL_new3516z00_4188 = 
((BgL_sfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sfunz00_bgl) ))); 
{ /* ./Cgen/cop.scm 118 */
long BgL_arg4016z00_4189;
BgL_arg4016z00_4189 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunzf2Czf2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 118 */
BgL_objectz00_bglt BgL_objz00_4190;
BgL_objz00_4190 = 
(BgL_objectz00_bglt)(BgL_new3516z00_4188); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4190, BgL_arg4016z00_4189); } } 
{ /* ./Cgen/cop.scm 118 */
BgL_objectz00_bglt BgL_auxz00_4977;
BgL_auxz00_4977 = 
(BgL_objectz00_bglt)(BgL_new3516z00_4188); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4977, BFALSE); } 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_objz00_4191;
BgL_objz00_4191 = 
(obj_t)(BgL_new3516z00_4188); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4191); BUNSPEC; } 
return BgL_new3516z00_4188;} } 
}



/* _allocate-sfun/C */
obj_t BGl__allocatezd2sfunzf2Cz20zzcgen_copz00(obj_t BgL_envz00_3649)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ /* ./Cgen/cop.scm 118 */
BgL_sfunz00_bglt BgL_auxz00_4982;
{ /* ./Cgen/cop.scm 118 */
BgL_sfunz00_bglt BgL_res6955z00_4196;
{ /* ./Cgen/cop.scm 118 */
BgL_sfunz00_bglt BgL_new3516z00_4192;
BgL_new3516z00_4192 = 
((BgL_sfunz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_sfunz00_bgl) ))); 
{ /* ./Cgen/cop.scm 118 */
long BgL_arg4016z00_4193;
BgL_arg4016z00_4193 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunzf2Czf2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 118 */
BgL_objectz00_bglt BgL_objz00_4194;
BgL_objz00_4194 = 
(BgL_objectz00_bglt)(BgL_new3516z00_4192); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4194, BgL_arg4016z00_4193); } } 
{ /* ./Cgen/cop.scm 118 */
BgL_objectz00_bglt BgL_auxz00_4987;
BgL_auxz00_4987 = 
(BgL_objectz00_bglt)(BgL_new3516z00_4192); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_4987, BFALSE); } 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_objz00_4195;
BgL_objz00_4195 = 
(obj_t)(BgL_new3516z00_4192); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4195); BUNSPEC; } 
BgL_res6955z00_4196 = BgL_new3516z00_4192; } 
BgL_auxz00_4982 = BgL_res6955z00_4196; } 
return 
(obj_t)(BgL_auxz00_4982);} } 
}



/* cjump-ex-it? */
BGL_EXPORTED_DEF bool_t BGl_cjumpzd2exzd2itzf3zf3zzcgen_copz00(obj_t BgL_obj3488z00_39)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 114 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3488z00_39, BGl_cjumpzd2exzd2itz00zzcgen_copz00);} 
}



/* _cjump-ex-it? */
obj_t BGl__cjumpzd2exzd2itzf3zf3zzcgen_copz00(obj_t BgL_envz00_3685, obj_t BgL_obj3488z00_3686)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 114 */
{ /* ./Cgen/cop.scm 114 */
bool_t BgL_auxz00_4994;
BgL_auxz00_4994 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3488z00_3686, BGl_cjumpzd2exzd2itz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_4994);} } 
}



/* make-cjump-ex-it */
BGL_EXPORTED_DEF BgL_cjumpzd2exzd2itz00_bglt BGl_makezd2cjumpzd2exzd2itzd2zzcgen_copz00(obj_t BgL_loc3460z00_43, BgL_copz00_bglt BgL_exit3461z00_44, BgL_copz00_bglt BgL_value3462z00_45)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 114 */
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_new3463z00_2369;
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_res5545z00_2375;
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_new3473z00_2370;
BgL_new3473z00_2370 = 
((BgL_cjumpzd2exzd2itz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cjumpzd2exzd2itz00_bgl) ))); 
{ /* ./Cgen/cop.scm 114 */
long BgL_arg4028z00_2371;
BgL_arg4028z00_2371 = 
BGl_classzd2numzd2zz__objectz00(BGl_cjumpzd2exzd2itz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 114 */
BgL_objectz00_bglt BgL_objz00_2372;
BgL_objz00_2372 = 
(BgL_objectz00_bglt)(BgL_new3473z00_2370); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2372, BgL_arg4028z00_2371); } } 
{ /* ./Cgen/cop.scm 114 */
BgL_objectz00_bglt BgL_auxz00_5001;
BgL_auxz00_5001 = 
(BgL_objectz00_bglt)(BgL_new3473z00_2370); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5001, BFALSE); } 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_objz00_2374;
BgL_objz00_2374 = 
(obj_t)(BgL_new3473z00_2370); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2374); BUNSPEC; } 
BgL_res5545z00_2375 = BgL_new3473z00_2370; } 
BgL_new3463z00_2369 = BgL_res5545z00_2375; } 
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_res5546z00_2383;
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_new3468z00_2376;
BgL_new3468z00_2376 = BgL_new3463z00_2369; 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_loc3465z00_2380;BgL_copz00_bglt BgL_exit3466z00_2381;BgL_copz00_bglt BgL_value3467z00_2382;
BgL_loc3465z00_2380 = BgL_loc3460z00_43; 
BgL_exit3466z00_2381 = BgL_exit3461z00_44; 
BgL_value3467z00_2382 = BgL_value3462z00_45; 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_new3468z00_2376))->BgL_locz00) = ((obj_t)BgL_loc3465z00_2380), BUNSPEC); 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_new3468z00_2376))->BgL_exitz00) = ((BgL_copz00_bglt)BgL_exit3466z00_2381), BUNSPEC); 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_new3468z00_2376))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3467z00_2382), BUNSPEC); 
BgL_res5546z00_2383 = BgL_new3468z00_2376; } } BgL_res5546z00_2383; } 
return BgL_new3463z00_2369;} } 
}



/* _make-cjump-ex-it5640 */
obj_t BGl__makezd2cjumpzd2exzd2it5640zd2zzcgen_copz00(obj_t BgL_envz00_3687, obj_t BgL_loc3460z00_3688, obj_t BgL_exit3461z00_3689, obj_t BgL_value3462z00_3690)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 114 */
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_auxz00_5009;
BgL_auxz00_5009 = 
BGl_makezd2cjumpzd2exzd2itzd2zzcgen_copz00(BgL_loc3460z00_3688, 
(BgL_copz00_bglt)(BgL_exit3461z00_3689), 
(BgL_copz00_bglt)(BgL_value3462z00_3690)); 
return 
(obj_t)(BgL_auxz00_5009);} } 
}



/* fill-cjump-ex-it! */
BGL_EXPORTED_DEF BgL_cjumpzd2exzd2itz00_bglt BGl_fillzd2cjumpzd2exzd2itz12zc0zzcgen_copz00(BgL_cjumpzd2exzd2itz00_bglt BgL_new3468z00_46, obj_t BgL_loc3465z00_47, BgL_copz00_bglt BgL_exit3466z00_48, BgL_copz00_bglt BgL_value3467z00_49)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 114 */
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_loc3465z00_4198;BgL_copz00_bglt BgL_exit3466z00_4199;BgL_copz00_bglt BgL_value3467z00_4200;
BgL_loc3465z00_4198 = BgL_loc3465z00_47; 
BgL_exit3466z00_4199 = BgL_exit3466z00_48; 
BgL_value3467z00_4200 = BgL_value3467z00_49; 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_new3468z00_46))->BgL_locz00) = ((obj_t)BgL_loc3465z00_4198), BUNSPEC); 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_new3468z00_46))->BgL_exitz00) = ((BgL_copz00_bglt)BgL_exit3466z00_4199), BUNSPEC); 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_new3468z00_46))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3467z00_4200), BUNSPEC); 
return BgL_new3468z00_46;} } 
}



/* _fill-cjump-ex-it!5642 */
obj_t BGl__fillzd2cjumpzd2exzd2itz125642zc0zzcgen_copz00(obj_t BgL_envz00_3691, obj_t BgL_new3468z00_3692, obj_t BgL_loc3465z00_3693, obj_t BgL_exit3466z00_3694, obj_t BgL_value3467z00_3695)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 114 */
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_auxz00_5017;
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_res6956z00_4208;
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_new3468z00_4201;BgL_copz00_bglt BgL_exit3466z00_4203;BgL_copz00_bglt BgL_value3467z00_4204;
BgL_new3468z00_4201 = 
(BgL_cjumpzd2exzd2itz00_bglt)(BgL_new3468z00_3692); 
BgL_exit3466z00_4203 = 
(BgL_copz00_bglt)(BgL_exit3466z00_3694); 
BgL_value3467z00_4204 = 
(BgL_copz00_bglt)(BgL_value3467z00_3695); 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_loc3465z00_4205;BgL_copz00_bglt BgL_exit3466z00_4206;BgL_copz00_bglt BgL_value3467z00_4207;
BgL_loc3465z00_4205 = BgL_loc3465z00_3693; 
BgL_exit3466z00_4206 = BgL_exit3466z00_4203; 
BgL_value3467z00_4207 = BgL_value3467z00_4204; 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_new3468z00_4201))->BgL_locz00) = ((obj_t)BgL_loc3465z00_4205), BUNSPEC); 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_new3468z00_4201))->BgL_exitz00) = ((BgL_copz00_bglt)BgL_exit3466z00_4206), BUNSPEC); 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_new3468z00_4201))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3467z00_4207), BUNSPEC); 
BgL_res6956z00_4208 = BgL_new3468z00_4201; } } 
BgL_auxz00_5017 = BgL_res6956z00_4208; } 
return 
(obj_t)(BgL_auxz00_5017);} } 
}



/* allocate-cjump-ex-it */
BGL_EXPORTED_DEF BgL_cjumpzd2exzd2itz00_bglt BGl_allocatezd2cjumpzd2exzd2itzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 114 */
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_new3473z00_4209;
BgL_new3473z00_4209 = 
((BgL_cjumpzd2exzd2itz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cjumpzd2exzd2itz00_bgl) ))); 
{ /* ./Cgen/cop.scm 114 */
long BgL_arg4028z00_4210;
BgL_arg4028z00_4210 = 
BGl_classzd2numzd2zz__objectz00(BGl_cjumpzd2exzd2itz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 114 */
BgL_objectz00_bglt BgL_objz00_4211;
BgL_objz00_4211 = 
(BgL_objectz00_bglt)(BgL_new3473z00_4209); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4211, BgL_arg4028z00_4210); } } 
{ /* ./Cgen/cop.scm 114 */
BgL_objectz00_bglt BgL_auxz00_5029;
BgL_auxz00_5029 = 
(BgL_objectz00_bglt)(BgL_new3473z00_4209); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5029, BFALSE); } 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_objz00_4212;
BgL_objz00_4212 = 
(obj_t)(BgL_new3473z00_4209); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4212); BUNSPEC; } 
return BgL_new3473z00_4209;} } 
}



/* _allocate-cjump-ex-it */
obj_t BGl__allocatezd2cjumpzd2exzd2itzd2zzcgen_copz00(obj_t BgL_envz00_3648)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 114 */
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_auxz00_5034;
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_res6957z00_4217;
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_new3473z00_4213;
BgL_new3473z00_4213 = 
((BgL_cjumpzd2exzd2itz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cjumpzd2exzd2itz00_bgl) ))); 
{ /* ./Cgen/cop.scm 114 */
long BgL_arg4028z00_4214;
BgL_arg4028z00_4214 = 
BGl_classzd2numzd2zz__objectz00(BGl_cjumpzd2exzd2itz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 114 */
BgL_objectz00_bglt BgL_objz00_4215;
BgL_objz00_4215 = 
(BgL_objectz00_bglt)(BgL_new3473z00_4213); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4215, BgL_arg4028z00_4214); } } 
{ /* ./Cgen/cop.scm 114 */
BgL_objectz00_bglt BgL_auxz00_5039;
BgL_auxz00_5039 = 
(BgL_objectz00_bglt)(BgL_new3473z00_4213); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5039, BFALSE); } 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_objz00_4216;
BgL_objz00_4216 = 
(obj_t)(BgL_new3473z00_4213); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4216); BUNSPEC; } 
BgL_res6957z00_4217 = BgL_new3473z00_4213; } 
BgL_auxz00_5034 = BgL_res6957z00_4217; } 
return 
(obj_t)(BgL_auxz00_5034);} } 
}



/* cset-ex-it? */
BGL_EXPORTED_DEF bool_t BGl_csetzd2exzd2itzf3zf3zzcgen_copz00(obj_t BgL_obj3454z00_52)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 109 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3454z00_52, BGl_csetzd2exzd2itz00zzcgen_copz00);} 
}



/* _cset-ex-it? */
obj_t BGl__csetzd2exzd2itzf3zf3zzcgen_copz00(obj_t BgL_envz00_3696, obj_t BgL_obj3454z00_3697)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 109 */
{ /* ./Cgen/cop.scm 109 */
bool_t BgL_auxz00_5046;
BgL_auxz00_5046 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3454z00_3697, BGl_csetzd2exzd2itz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5046);} } 
}



/* make-cset-ex-it */
BGL_EXPORTED_DEF BgL_csetzd2exzd2itz00_bglt BGl_makezd2csetzd2exzd2itzd2zzcgen_copz00(obj_t BgL_loc3419z00_56, BgL_copz00_bglt BgL_exit3420z00_57, BgL_copz00_bglt BgL_jumpzd2value3421zd2_58, BgL_copz00_bglt BgL_body3422z00_59)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 109 */
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_new3423z00_2392;
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_res5547z00_2398;
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_new3435z00_2393;
BgL_new3435z00_2393 = 
((BgL_csetzd2exzd2itz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_csetzd2exzd2itz00_bgl) ))); 
{ /* ./Cgen/cop.scm 109 */
long BgL_arg4037z00_2394;
BgL_arg4037z00_2394 = 
BGl_classzd2numzd2zz__objectz00(BGl_csetzd2exzd2itz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 109 */
BgL_objectz00_bglt BgL_objz00_2395;
BgL_objz00_2395 = 
(BgL_objectz00_bglt)(BgL_new3435z00_2393); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2395, BgL_arg4037z00_2394); } } 
{ /* ./Cgen/cop.scm 109 */
BgL_objectz00_bglt BgL_auxz00_5053;
BgL_auxz00_5053 = 
(BgL_objectz00_bglt)(BgL_new3435z00_2393); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5053, BFALSE); } 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_objz00_2397;
BgL_objz00_2397 = 
(obj_t)(BgL_new3435z00_2393); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2397); BUNSPEC; } 
BgL_res5547z00_2398 = BgL_new3435z00_2393; } 
BgL_new3423z00_2392 = BgL_res5547z00_2398; } 
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_res5548z00_2408;
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_new3429z00_2399;
BgL_new3429z00_2399 = BgL_new3423z00_2392; 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_loc3425z00_2404;BgL_copz00_bglt BgL_exit3426z00_2405;BgL_copz00_bglt BgL_jumpzd2value3427zd2_2406;BgL_copz00_bglt BgL_body3428z00_2407;
BgL_loc3425z00_2404 = BgL_loc3419z00_56; 
BgL_exit3426z00_2405 = BgL_exit3420z00_57; 
BgL_jumpzd2value3427zd2_2406 = BgL_jumpzd2value3421zd2_58; 
BgL_body3428z00_2407 = BgL_body3422z00_59; 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_2399))->BgL_locz00) = ((obj_t)BgL_loc3425z00_2404), BUNSPEC); 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_2399))->BgL_exitz00) = ((BgL_copz00_bglt)BgL_exit3426z00_2405), BUNSPEC); 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_2399))->BgL_jumpzd2valuezd2) = ((BgL_copz00_bglt)BgL_jumpzd2value3427zd2_2406), BUNSPEC); 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_2399))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_body3428z00_2407), BUNSPEC); 
BgL_res5548z00_2408 = BgL_new3429z00_2399; } } BgL_res5548z00_2408; } 
return BgL_new3423z00_2392;} } 
}



/* _make-cset-ex-it5645 */
obj_t BGl__makezd2csetzd2exzd2it5645zd2zzcgen_copz00(obj_t BgL_envz00_3698, obj_t BgL_loc3419z00_3699, obj_t BgL_exit3420z00_3700, obj_t BgL_jumpzd2value3421zd2_3701, obj_t BgL_body3422z00_3702)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 109 */
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_auxz00_5062;
BgL_auxz00_5062 = 
BGl_makezd2csetzd2exzd2itzd2zzcgen_copz00(BgL_loc3419z00_3699, 
(BgL_copz00_bglt)(BgL_exit3420z00_3700), 
(BgL_copz00_bglt)(BgL_jumpzd2value3421zd2_3701), 
(BgL_copz00_bglt)(BgL_body3422z00_3702)); 
return 
(obj_t)(BgL_auxz00_5062);} } 
}



/* fill-cset-ex-it! */
BGL_EXPORTED_DEF BgL_csetzd2exzd2itz00_bglt BGl_fillzd2csetzd2exzd2itz12zc0zzcgen_copz00(BgL_csetzd2exzd2itz00_bglt BgL_new3429z00_60, obj_t BgL_loc3425z00_61, BgL_copz00_bglt BgL_exit3426z00_62, BgL_copz00_bglt BgL_jumpzd2value3427zd2_63, BgL_copz00_bglt BgL_body3428z00_64)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 109 */
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_loc3425z00_4219;BgL_copz00_bglt BgL_exit3426z00_4220;BgL_copz00_bglt BgL_jumpzd2value3427zd2_4221;BgL_copz00_bglt BgL_body3428z00_4222;
BgL_loc3425z00_4219 = BgL_loc3425z00_61; 
BgL_exit3426z00_4220 = BgL_exit3426z00_62; 
BgL_jumpzd2value3427zd2_4221 = BgL_jumpzd2value3427zd2_63; 
BgL_body3428z00_4222 = BgL_body3428z00_64; 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_60))->BgL_locz00) = ((obj_t)BgL_loc3425z00_4219), BUNSPEC); 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_60))->BgL_exitz00) = ((BgL_copz00_bglt)BgL_exit3426z00_4220), BUNSPEC); 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_60))->BgL_jumpzd2valuezd2) = ((BgL_copz00_bglt)BgL_jumpzd2value3427zd2_4221), BUNSPEC); 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_60))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_body3428z00_4222), BUNSPEC); 
return BgL_new3429z00_60;} } 
}



/* _fill-cset-ex-it!5647 */
obj_t BGl__fillzd2csetzd2exzd2itz125647zc0zzcgen_copz00(obj_t BgL_envz00_3703, obj_t BgL_new3429z00_3704, obj_t BgL_loc3425z00_3705, obj_t BgL_exit3426z00_3706, obj_t BgL_jumpzd2value3427zd2_3707, obj_t BgL_body3428z00_3708)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 109 */
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_auxz00_5072;
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_res6958z00_4232;
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_new3429z00_4223;BgL_copz00_bglt BgL_exit3426z00_4225;BgL_copz00_bglt BgL_jumpzd2value3427zd2_4226;BgL_copz00_bglt BgL_body3428z00_4227;
BgL_new3429z00_4223 = 
(BgL_csetzd2exzd2itz00_bglt)(BgL_new3429z00_3704); 
BgL_exit3426z00_4225 = 
(BgL_copz00_bglt)(BgL_exit3426z00_3706); 
BgL_jumpzd2value3427zd2_4226 = 
(BgL_copz00_bglt)(BgL_jumpzd2value3427zd2_3707); 
BgL_body3428z00_4227 = 
(BgL_copz00_bglt)(BgL_body3428z00_3708); 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_loc3425z00_4228;BgL_copz00_bglt BgL_exit3426z00_4229;BgL_copz00_bglt BgL_jumpzd2value3427zd2_4230;BgL_copz00_bglt BgL_body3428z00_4231;
BgL_loc3425z00_4228 = BgL_loc3425z00_3705; 
BgL_exit3426z00_4229 = BgL_exit3426z00_4225; 
BgL_jumpzd2value3427zd2_4230 = BgL_jumpzd2value3427zd2_4226; 
BgL_body3428z00_4231 = BgL_body3428z00_4227; 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_4223))->BgL_locz00) = ((obj_t)BgL_loc3425z00_4228), BUNSPEC); 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_4223))->BgL_exitz00) = ((BgL_copz00_bglt)BgL_exit3426z00_4229), BUNSPEC); 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_4223))->BgL_jumpzd2valuezd2) = ((BgL_copz00_bglt)BgL_jumpzd2value3427zd2_4230), BUNSPEC); 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_new3429z00_4223))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_body3428z00_4231), BUNSPEC); 
BgL_res6958z00_4232 = BgL_new3429z00_4223; } } 
BgL_auxz00_5072 = BgL_res6958z00_4232; } 
return 
(obj_t)(BgL_auxz00_5072);} } 
}



/* allocate-cset-ex-it */
BGL_EXPORTED_DEF BgL_csetzd2exzd2itz00_bglt BGl_allocatezd2csetzd2exzd2itzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 109 */
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_new3435z00_4233;
BgL_new3435z00_4233 = 
((BgL_csetzd2exzd2itz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_csetzd2exzd2itz00_bgl) ))); 
{ /* ./Cgen/cop.scm 109 */
long BgL_arg4037z00_4234;
BgL_arg4037z00_4234 = 
BGl_classzd2numzd2zz__objectz00(BGl_csetzd2exzd2itz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 109 */
BgL_objectz00_bglt BgL_objz00_4235;
BgL_objz00_4235 = 
(BgL_objectz00_bglt)(BgL_new3435z00_4233); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4235, BgL_arg4037z00_4234); } } 
{ /* ./Cgen/cop.scm 109 */
BgL_objectz00_bglt BgL_auxz00_5086;
BgL_auxz00_5086 = 
(BgL_objectz00_bglt)(BgL_new3435z00_4233); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5086, BFALSE); } 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_objz00_4236;
BgL_objz00_4236 = 
(obj_t)(BgL_new3435z00_4233); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4236); BUNSPEC; } 
return BgL_new3435z00_4233;} } 
}



/* _allocate-cset-ex-it */
obj_t BGl__allocatezd2csetzd2exzd2itzd2zzcgen_copz00(obj_t BgL_envz00_3647)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 109 */
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_auxz00_5091;
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_res6959z00_4241;
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_new3435z00_4237;
BgL_new3435z00_4237 = 
((BgL_csetzd2exzd2itz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_csetzd2exzd2itz00_bgl) ))); 
{ /* ./Cgen/cop.scm 109 */
long BgL_arg4037z00_4238;
BgL_arg4037z00_4238 = 
BGl_classzd2numzd2zz__objectz00(BGl_csetzd2exzd2itz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 109 */
BgL_objectz00_bglt BgL_objz00_4239;
BgL_objz00_4239 = 
(BgL_objectz00_bglt)(BgL_new3435z00_4237); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4239, BgL_arg4037z00_4238); } } 
{ /* ./Cgen/cop.scm 109 */
BgL_objectz00_bglt BgL_auxz00_5096;
BgL_auxz00_5096 = 
(BgL_objectz00_bglt)(BgL_new3435z00_4237); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5096, BFALSE); } 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_objz00_4240;
BgL_objz00_4240 = 
(obj_t)(BgL_new3435z00_4237); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4240); BUNSPEC; } 
BgL_res6959z00_4241 = BgL_new3435z00_4237; } 
BgL_auxz00_5091 = BgL_res6959z00_4241; } 
return 
(obj_t)(BgL_auxz00_5091);} } 
}



/* cbox-set!? */
BGL_EXPORTED_DEF bool_t BGl_cboxzd2setz12zf3z33zzcgen_copz00(obj_t BgL_obj3412z00_68)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 105 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3412z00_68, BGl_cboxzd2setz12zc0zzcgen_copz00);} 
}



/* _cbox-set!? */
obj_t BGl__cboxzd2setz12zf3z33zzcgen_copz00(obj_t BgL_envz00_3709, obj_t BgL_obj3412z00_3710)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 105 */
{ /* ./Cgen/cop.scm 105 */
bool_t BgL_auxz00_5103;
BgL_auxz00_5103 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3412z00_3710, BGl_cboxzd2setz12zc0zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5103);} } 
}



/* make-cbox-set! */
BGL_EXPORTED_DEF BgL_cboxzd2setz12zc0_bglt BGl_makezd2cboxzd2setz12z12zzcgen_copz00(obj_t BgL_loc3384z00_72, BgL_copz00_bglt BgL_var3385z00_73, BgL_copz00_bglt BgL_value3386z00_74)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 105 */
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_new3387z00_2418;
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_res5549z00_2424;
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_new3397z00_2419;
BgL_new3397z00_2419 = 
((BgL_cboxzd2setz12zc0_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cboxzd2setz12zc0_bgl) ))); 
{ /* ./Cgen/cop.scm 105 */
long BgL_arg4046z00_2420;
BgL_arg4046z00_2420 = 
BGl_classzd2numzd2zz__objectz00(BGl_cboxzd2setz12zc0zzcgen_copz00); 
{ /* ./Cgen/cop.scm 105 */
BgL_objectz00_bglt BgL_objz00_2421;
BgL_objz00_2421 = 
(BgL_objectz00_bglt)(BgL_new3397z00_2419); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2421, BgL_arg4046z00_2420); } } 
{ /* ./Cgen/cop.scm 105 */
BgL_objectz00_bglt BgL_auxz00_5110;
BgL_auxz00_5110 = 
(BgL_objectz00_bglt)(BgL_new3397z00_2419); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5110, BFALSE); } 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_objz00_2423;
BgL_objz00_2423 = 
(obj_t)(BgL_new3397z00_2419); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2423); BUNSPEC; } 
BgL_res5549z00_2424 = BgL_new3397z00_2419; } 
BgL_new3387z00_2418 = BgL_res5549z00_2424; } 
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_res5550z00_2432;
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_new3392z00_2425;
BgL_new3392z00_2425 = BgL_new3387z00_2418; 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_loc3389z00_2429;BgL_copz00_bglt BgL_var3390z00_2430;BgL_copz00_bglt BgL_value3391z00_2431;
BgL_loc3389z00_2429 = BgL_loc3384z00_72; 
BgL_var3390z00_2430 = BgL_var3385z00_73; 
BgL_value3391z00_2431 = BgL_value3386z00_74; 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_new3392z00_2425))->BgL_locz00) = ((obj_t)BgL_loc3389z00_2429), BUNSPEC); 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_new3392z00_2425))->BgL_varz00) = ((BgL_copz00_bglt)BgL_var3390z00_2430), BUNSPEC); 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_new3392z00_2425))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3391z00_2431), BUNSPEC); 
BgL_res5550z00_2432 = BgL_new3392z00_2425; } } BgL_res5550z00_2432; } 
return BgL_new3387z00_2418;} } 
}



/* _make-cbox-set!5650 */
obj_t BGl__makezd2cboxzd2setz125650z12zzcgen_copz00(obj_t BgL_envz00_3711, obj_t BgL_loc3384z00_3712, obj_t BgL_var3385z00_3713, obj_t BgL_value3386z00_3714)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 105 */
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_auxz00_5118;
BgL_auxz00_5118 = 
BGl_makezd2cboxzd2setz12z12zzcgen_copz00(BgL_loc3384z00_3712, 
(BgL_copz00_bglt)(BgL_var3385z00_3713), 
(BgL_copz00_bglt)(BgL_value3386z00_3714)); 
return 
(obj_t)(BgL_auxz00_5118);} } 
}



/* fill-cbox-set!! */
BGL_EXPORTED_DEF BgL_cboxzd2setz12zc0_bglt BGl_fillzd2cboxzd2setz12z12z00zzcgen_copz00(BgL_cboxzd2setz12zc0_bglt BgL_new3392z00_75, obj_t BgL_loc3389z00_76, BgL_copz00_bglt BgL_var3390z00_77, BgL_copz00_bglt BgL_value3391z00_78)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 105 */
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_loc3389z00_4243;BgL_copz00_bglt BgL_var3390z00_4244;BgL_copz00_bglt BgL_value3391z00_4245;
BgL_loc3389z00_4243 = BgL_loc3389z00_76; 
BgL_var3390z00_4244 = BgL_var3390z00_77; 
BgL_value3391z00_4245 = BgL_value3391z00_78; 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_new3392z00_75))->BgL_locz00) = ((obj_t)BgL_loc3389z00_4243), BUNSPEC); 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_new3392z00_75))->BgL_varz00) = ((BgL_copz00_bglt)BgL_var3390z00_4244), BUNSPEC); 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_new3392z00_75))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3391z00_4245), BUNSPEC); 
return BgL_new3392z00_75;} } 
}



/* _fill-cbox-set!!5652 */
obj_t BGl__fillzd2cboxzd2setz12z125652z00zzcgen_copz00(obj_t BgL_envz00_3715, obj_t BgL_new3392z00_3716, obj_t BgL_loc3389z00_3717, obj_t BgL_var3390z00_3718, obj_t BgL_value3391z00_3719)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 105 */
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_auxz00_5126;
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_res6960z00_4253;
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_new3392z00_4246;BgL_copz00_bglt BgL_var3390z00_4248;BgL_copz00_bglt BgL_value3391z00_4249;
BgL_new3392z00_4246 = 
(BgL_cboxzd2setz12zc0_bglt)(BgL_new3392z00_3716); 
BgL_var3390z00_4248 = 
(BgL_copz00_bglt)(BgL_var3390z00_3718); 
BgL_value3391z00_4249 = 
(BgL_copz00_bglt)(BgL_value3391z00_3719); 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_loc3389z00_4250;BgL_copz00_bglt BgL_var3390z00_4251;BgL_copz00_bglt BgL_value3391z00_4252;
BgL_loc3389z00_4250 = BgL_loc3389z00_3717; 
BgL_var3390z00_4251 = BgL_var3390z00_4248; 
BgL_value3391z00_4252 = BgL_value3391z00_4249; 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_new3392z00_4246))->BgL_locz00) = ((obj_t)BgL_loc3389z00_4250), BUNSPEC); 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_new3392z00_4246))->BgL_varz00) = ((BgL_copz00_bglt)BgL_var3390z00_4251), BUNSPEC); 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_new3392z00_4246))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3391z00_4252), BUNSPEC); 
BgL_res6960z00_4253 = BgL_new3392z00_4246; } } 
BgL_auxz00_5126 = BgL_res6960z00_4253; } 
return 
(obj_t)(BgL_auxz00_5126);} } 
}



/* allocate-cbox-set! */
BGL_EXPORTED_DEF BgL_cboxzd2setz12zc0_bglt BGl_allocatezd2cboxzd2setz12z12zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 105 */
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_new3397z00_4254;
BgL_new3397z00_4254 = 
((BgL_cboxzd2setz12zc0_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cboxzd2setz12zc0_bgl) ))); 
{ /* ./Cgen/cop.scm 105 */
long BgL_arg4046z00_4255;
BgL_arg4046z00_4255 = 
BGl_classzd2numzd2zz__objectz00(BGl_cboxzd2setz12zc0zzcgen_copz00); 
{ /* ./Cgen/cop.scm 105 */
BgL_objectz00_bglt BgL_objz00_4256;
BgL_objz00_4256 = 
(BgL_objectz00_bglt)(BgL_new3397z00_4254); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4256, BgL_arg4046z00_4255); } } 
{ /* ./Cgen/cop.scm 105 */
BgL_objectz00_bglt BgL_auxz00_5138;
BgL_auxz00_5138 = 
(BgL_objectz00_bglt)(BgL_new3397z00_4254); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5138, BFALSE); } 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_objz00_4257;
BgL_objz00_4257 = 
(obj_t)(BgL_new3397z00_4254); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4257); BUNSPEC; } 
return BgL_new3397z00_4254;} } 
}



/* _allocate-cbox-set! */
obj_t BGl__allocatezd2cboxzd2setz12z12zzcgen_copz00(obj_t BgL_envz00_3646)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 105 */
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_auxz00_5143;
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_res6961z00_4262;
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_new3397z00_4258;
BgL_new3397z00_4258 = 
((BgL_cboxzd2setz12zc0_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cboxzd2setz12zc0_bgl) ))); 
{ /* ./Cgen/cop.scm 105 */
long BgL_arg4046z00_4259;
BgL_arg4046z00_4259 = 
BGl_classzd2numzd2zz__objectz00(BGl_cboxzd2setz12zc0zzcgen_copz00); 
{ /* ./Cgen/cop.scm 105 */
BgL_objectz00_bglt BgL_objz00_4260;
BgL_objz00_4260 = 
(BgL_objectz00_bglt)(BgL_new3397z00_4258); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4260, BgL_arg4046z00_4259); } } 
{ /* ./Cgen/cop.scm 105 */
BgL_objectz00_bglt BgL_auxz00_5148;
BgL_auxz00_5148 = 
(BgL_objectz00_bglt)(BgL_new3397z00_4258); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5148, BFALSE); } 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_objz00_4261;
BgL_objz00_4261 = 
(obj_t)(BgL_new3397z00_4258); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4261); BUNSPEC; } 
BgL_res6961z00_4262 = BgL_new3397z00_4258; } 
BgL_auxz00_5143 = BgL_res6961z00_4262; } 
return 
(obj_t)(BgL_auxz00_5143);} } 
}



/* cbox-ref? */
BGL_EXPORTED_DEF bool_t BGl_cboxzd2refzf3z21zzcgen_copz00(obj_t BgL_obj3378z00_81)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 102 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3378z00_81, BGl_cboxzd2refzd2zzcgen_copz00);} 
}



/* _cbox-ref? */
obj_t BGl__cboxzd2refzf3z21zzcgen_copz00(obj_t BgL_envz00_3720, obj_t BgL_obj3378z00_3721)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 102 */
{ /* ./Cgen/cop.scm 102 */
bool_t BgL_auxz00_5155;
BgL_auxz00_5155 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3378z00_3721, BGl_cboxzd2refzd2zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5155);} } 
}



/* make-cbox-ref */
BGL_EXPORTED_DEF BgL_cboxzd2refzd2_bglt BGl_makezd2cboxzd2refz00zzcgen_copz00(obj_t BgL_loc3357z00_85, BgL_copz00_bglt BgL_var3358z00_86)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 102 */
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_new3359z00_2441;
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_res5551z00_2447;
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_new3367z00_2442;
BgL_new3367z00_2442 = 
((BgL_cboxzd2refzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cboxzd2refzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 102 */
long BgL_arg4055z00_2443;
BgL_arg4055z00_2443 = 
BGl_classzd2numzd2zz__objectz00(BGl_cboxzd2refzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 102 */
BgL_objectz00_bglt BgL_objz00_2444;
BgL_objz00_2444 = 
(BgL_objectz00_bglt)(BgL_new3367z00_2442); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2444, BgL_arg4055z00_2443); } } 
{ /* ./Cgen/cop.scm 102 */
BgL_objectz00_bglt BgL_auxz00_5162;
BgL_auxz00_5162 = 
(BgL_objectz00_bglt)(BgL_new3367z00_2442); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5162, BFALSE); } 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_objz00_2446;
BgL_objz00_2446 = 
(obj_t)(BgL_new3367z00_2442); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2446); BUNSPEC; } 
BgL_res5551z00_2447 = BgL_new3367z00_2442; } 
BgL_new3359z00_2441 = BgL_res5551z00_2447; } 
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_res5552z00_2453;
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_new3363z00_2448;
BgL_new3363z00_2448 = BgL_new3359z00_2441; 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_loc3361z00_2451;BgL_copz00_bglt BgL_var3362z00_2452;
BgL_loc3361z00_2451 = BgL_loc3357z00_85; 
BgL_var3362z00_2452 = BgL_var3358z00_86; 
((((BgL_cboxzd2refzd2_bglt)CREF(BgL_new3363z00_2448))->BgL_locz00) = ((obj_t)BgL_loc3361z00_2451), BUNSPEC); 
((((BgL_cboxzd2refzd2_bglt)CREF(BgL_new3363z00_2448))->BgL_varz00) = ((BgL_copz00_bglt)BgL_var3362z00_2452), BUNSPEC); 
BgL_res5552z00_2453 = BgL_new3363z00_2448; } } BgL_res5552z00_2453; } 
return BgL_new3359z00_2441;} } 
}



/* _make-cbox-ref5655 */
obj_t BGl__makezd2cboxzd2ref5655z00zzcgen_copz00(obj_t BgL_envz00_3722, obj_t BgL_loc3357z00_3723, obj_t BgL_var3358z00_3724)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 102 */
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_auxz00_5169;
BgL_auxz00_5169 = 
BGl_makezd2cboxzd2refz00zzcgen_copz00(BgL_loc3357z00_3723, 
(BgL_copz00_bglt)(BgL_var3358z00_3724)); 
return 
(obj_t)(BgL_auxz00_5169);} } 
}



/* fill-cbox-ref! */
BGL_EXPORTED_DEF BgL_cboxzd2refzd2_bglt BGl_fillzd2cboxzd2refz12z12zzcgen_copz00(BgL_cboxzd2refzd2_bglt BgL_new3363z00_87, obj_t BgL_loc3361z00_88, BgL_copz00_bglt BgL_var3362z00_89)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 102 */
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_loc3361z00_4264;BgL_copz00_bglt BgL_var3362z00_4265;
BgL_loc3361z00_4264 = BgL_loc3361z00_88; 
BgL_var3362z00_4265 = BgL_var3362z00_89; 
((((BgL_cboxzd2refzd2_bglt)CREF(BgL_new3363z00_87))->BgL_locz00) = ((obj_t)BgL_loc3361z00_4264), BUNSPEC); 
((((BgL_cboxzd2refzd2_bglt)CREF(BgL_new3363z00_87))->BgL_varz00) = ((BgL_copz00_bglt)BgL_var3362z00_4265), BUNSPEC); 
return BgL_new3363z00_87;} } 
}



/* _fill-cbox-ref!5657 */
obj_t BGl__fillzd2cboxzd2refz125657z12zzcgen_copz00(obj_t BgL_envz00_3725, obj_t BgL_new3363z00_3726, obj_t BgL_loc3361z00_3727, obj_t BgL_var3362z00_3728)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 102 */
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_auxz00_5175;
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_res6962z00_4271;
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_new3363z00_4266;BgL_copz00_bglt BgL_var3362z00_4268;
BgL_new3363z00_4266 = 
(BgL_cboxzd2refzd2_bglt)(BgL_new3363z00_3726); 
BgL_var3362z00_4268 = 
(BgL_copz00_bglt)(BgL_var3362z00_3728); 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_loc3361z00_4269;BgL_copz00_bglt BgL_var3362z00_4270;
BgL_loc3361z00_4269 = BgL_loc3361z00_3727; 
BgL_var3362z00_4270 = BgL_var3362z00_4268; 
((((BgL_cboxzd2refzd2_bglt)CREF(BgL_new3363z00_4266))->BgL_locz00) = ((obj_t)BgL_loc3361z00_4269), BUNSPEC); 
((((BgL_cboxzd2refzd2_bglt)CREF(BgL_new3363z00_4266))->BgL_varz00) = ((BgL_copz00_bglt)BgL_var3362z00_4270), BUNSPEC); 
BgL_res6962z00_4271 = BgL_new3363z00_4266; } } 
BgL_auxz00_5175 = BgL_res6962z00_4271; } 
return 
(obj_t)(BgL_auxz00_5175);} } 
}



/* allocate-cbox-ref */
BGL_EXPORTED_DEF BgL_cboxzd2refzd2_bglt BGl_allocatezd2cboxzd2refz00zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 102 */
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_new3367z00_4272;
BgL_new3367z00_4272 = 
((BgL_cboxzd2refzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cboxzd2refzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 102 */
long BgL_arg4055z00_4273;
BgL_arg4055z00_4273 = 
BGl_classzd2numzd2zz__objectz00(BGl_cboxzd2refzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 102 */
BgL_objectz00_bglt BgL_objz00_4274;
BgL_objz00_4274 = 
(BgL_objectz00_bglt)(BgL_new3367z00_4272); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4274, BgL_arg4055z00_4273); } } 
{ /* ./Cgen/cop.scm 102 */
BgL_objectz00_bglt BgL_auxz00_5185;
BgL_auxz00_5185 = 
(BgL_objectz00_bglt)(BgL_new3367z00_4272); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5185, BFALSE); } 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_objz00_4275;
BgL_objz00_4275 = 
(obj_t)(BgL_new3367z00_4272); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4275); BUNSPEC; } 
return BgL_new3367z00_4272;} } 
}



/* _allocate-cbox-ref */
obj_t BGl__allocatezd2cboxzd2refz00zzcgen_copz00(obj_t BgL_envz00_3645)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 102 */
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_auxz00_5190;
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_res6963z00_4280;
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_new3367z00_4276;
BgL_new3367z00_4276 = 
((BgL_cboxzd2refzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cboxzd2refzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 102 */
long BgL_arg4055z00_4277;
BgL_arg4055z00_4277 = 
BGl_classzd2numzd2zz__objectz00(BGl_cboxzd2refzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 102 */
BgL_objectz00_bglt BgL_objz00_4278;
BgL_objz00_4278 = 
(BgL_objectz00_bglt)(BgL_new3367z00_4276); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4278, BgL_arg4055z00_4277); } } 
{ /* ./Cgen/cop.scm 102 */
BgL_objectz00_bglt BgL_auxz00_5195;
BgL_auxz00_5195 = 
(BgL_objectz00_bglt)(BgL_new3367z00_4276); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5195, BFALSE); } 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_objz00_4279;
BgL_objz00_4279 = 
(obj_t)(BgL_new3367z00_4276); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4279); BUNSPEC; } 
BgL_res6963z00_4280 = BgL_new3367z00_4276; } 
BgL_auxz00_5190 = BgL_res6963z00_4280; } 
return 
(obj_t)(BgL_auxz00_5190);} } 
}



/* cmake-box? */
BGL_EXPORTED_DEF bool_t BGl_cmakezd2boxzf3z21zzcgen_copz00(obj_t BgL_obj3352z00_91)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 99 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3352z00_91, BGl_cmakezd2boxzd2zzcgen_copz00);} 
}



/* _cmake-box? */
obj_t BGl__cmakezd2boxzf3z21zzcgen_copz00(obj_t BgL_envz00_3729, obj_t BgL_obj3352z00_3730)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 99 */
{ /* ./Cgen/cop.scm 99 */
bool_t BgL_auxz00_5202;
BgL_auxz00_5202 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3352z00_3730, BGl_cmakezd2boxzd2zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5202);} } 
}



/* make-cmake-box */
BGL_EXPORTED_DEF BgL_cmakezd2boxzd2_bglt BGl_makezd2cmakezd2boxz00zzcgen_copz00(obj_t BgL_loc3331z00_95, BgL_copz00_bglt BgL_value3332z00_96)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 99 */
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_new3333z00_2461;
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_res5553z00_2467;
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_new3341z00_2462;
BgL_new3341z00_2462 = 
((BgL_cmakezd2boxzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cmakezd2boxzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 99 */
long BgL_arg4064z00_2463;
BgL_arg4064z00_2463 = 
BGl_classzd2numzd2zz__objectz00(BGl_cmakezd2boxzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 99 */
BgL_objectz00_bglt BgL_objz00_2464;
BgL_objz00_2464 = 
(BgL_objectz00_bglt)(BgL_new3341z00_2462); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2464, BgL_arg4064z00_2463); } } 
{ /* ./Cgen/cop.scm 99 */
BgL_objectz00_bglt BgL_auxz00_5209;
BgL_auxz00_5209 = 
(BgL_objectz00_bglt)(BgL_new3341z00_2462); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5209, BFALSE); } 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_objz00_2466;
BgL_objz00_2466 = 
(obj_t)(BgL_new3341z00_2462); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2466); BUNSPEC; } 
BgL_res5553z00_2467 = BgL_new3341z00_2462; } 
BgL_new3333z00_2461 = BgL_res5553z00_2467; } 
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_res5554z00_2473;
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_new3337z00_2468;
BgL_new3337z00_2468 = BgL_new3333z00_2461; 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_loc3335z00_2471;BgL_copz00_bglt BgL_value3336z00_2472;
BgL_loc3335z00_2471 = BgL_loc3331z00_95; 
BgL_value3336z00_2472 = BgL_value3332z00_96; 
((((BgL_cmakezd2boxzd2_bglt)CREF(BgL_new3337z00_2468))->BgL_locz00) = ((obj_t)BgL_loc3335z00_2471), BUNSPEC); 
((((BgL_cmakezd2boxzd2_bglt)CREF(BgL_new3337z00_2468))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3336z00_2472), BUNSPEC); 
BgL_res5554z00_2473 = BgL_new3337z00_2468; } } BgL_res5554z00_2473; } 
return BgL_new3333z00_2461;} } 
}



/* _make-cmake-box5660 */
obj_t BGl__makezd2cmakezd2box5660z00zzcgen_copz00(obj_t BgL_envz00_3731, obj_t BgL_loc3331z00_3732, obj_t BgL_value3332z00_3733)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 99 */
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_auxz00_5216;
BgL_auxz00_5216 = 
BGl_makezd2cmakezd2boxz00zzcgen_copz00(BgL_loc3331z00_3732, 
(BgL_copz00_bglt)(BgL_value3332z00_3733)); 
return 
(obj_t)(BgL_auxz00_5216);} } 
}



/* fill-cmake-box! */
BGL_EXPORTED_DEF BgL_cmakezd2boxzd2_bglt BGl_fillzd2cmakezd2boxz12z12zzcgen_copz00(BgL_cmakezd2boxzd2_bglt BgL_new3337z00_97, obj_t BgL_loc3335z00_98, BgL_copz00_bglt BgL_value3336z00_99)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 99 */
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_loc3335z00_4282;BgL_copz00_bglt BgL_value3336z00_4283;
BgL_loc3335z00_4282 = BgL_loc3335z00_98; 
BgL_value3336z00_4283 = BgL_value3336z00_99; 
((((BgL_cmakezd2boxzd2_bglt)CREF(BgL_new3337z00_97))->BgL_locz00) = ((obj_t)BgL_loc3335z00_4282), BUNSPEC); 
((((BgL_cmakezd2boxzd2_bglt)CREF(BgL_new3337z00_97))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3336z00_4283), BUNSPEC); 
return BgL_new3337z00_97;} } 
}



/* _fill-cmake-box!5662 */
obj_t BGl__fillzd2cmakezd2boxz125662z12zzcgen_copz00(obj_t BgL_envz00_3734, obj_t BgL_new3337z00_3735, obj_t BgL_loc3335z00_3736, obj_t BgL_value3336z00_3737)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 99 */
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_auxz00_5222;
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_res6964z00_4289;
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_new3337z00_4284;BgL_copz00_bglt BgL_value3336z00_4286;
BgL_new3337z00_4284 = 
(BgL_cmakezd2boxzd2_bglt)(BgL_new3337z00_3735); 
BgL_value3336z00_4286 = 
(BgL_copz00_bglt)(BgL_value3336z00_3737); 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_loc3335z00_4287;BgL_copz00_bglt BgL_value3336z00_4288;
BgL_loc3335z00_4287 = BgL_loc3335z00_3736; 
BgL_value3336z00_4288 = BgL_value3336z00_4286; 
((((BgL_cmakezd2boxzd2_bglt)CREF(BgL_new3337z00_4284))->BgL_locz00) = ((obj_t)BgL_loc3335z00_4287), BUNSPEC); 
((((BgL_cmakezd2boxzd2_bglt)CREF(BgL_new3337z00_4284))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3336z00_4288), BUNSPEC); 
BgL_res6964z00_4289 = BgL_new3337z00_4284; } } 
BgL_auxz00_5222 = BgL_res6964z00_4289; } 
return 
(obj_t)(BgL_auxz00_5222);} } 
}



/* allocate-cmake-box */
BGL_EXPORTED_DEF BgL_cmakezd2boxzd2_bglt BGl_allocatezd2cmakezd2boxz00zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 99 */
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_new3341z00_4290;
BgL_new3341z00_4290 = 
((BgL_cmakezd2boxzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cmakezd2boxzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 99 */
long BgL_arg4064z00_4291;
BgL_arg4064z00_4291 = 
BGl_classzd2numzd2zz__objectz00(BGl_cmakezd2boxzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 99 */
BgL_objectz00_bglt BgL_objz00_4292;
BgL_objz00_4292 = 
(BgL_objectz00_bglt)(BgL_new3341z00_4290); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4292, BgL_arg4064z00_4291); } } 
{ /* ./Cgen/cop.scm 99 */
BgL_objectz00_bglt BgL_auxz00_5232;
BgL_auxz00_5232 = 
(BgL_objectz00_bglt)(BgL_new3341z00_4290); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5232, BFALSE); } 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_objz00_4293;
BgL_objz00_4293 = 
(obj_t)(BgL_new3341z00_4290); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4293); BUNSPEC; } 
return BgL_new3341z00_4290;} } 
}



/* _allocate-cmake-box */
obj_t BGl__allocatezd2cmakezd2boxz00zzcgen_copz00(obj_t BgL_envz00_3644)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 99 */
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_auxz00_5237;
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_res6965z00_4298;
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_new3341z00_4294;
BgL_new3341z00_4294 = 
((BgL_cmakezd2boxzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cmakezd2boxzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 99 */
long BgL_arg4064z00_4295;
BgL_arg4064z00_4295 = 
BGl_classzd2numzd2zz__objectz00(BGl_cmakezd2boxzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 99 */
BgL_objectz00_bglt BgL_objz00_4296;
BgL_objz00_4296 = 
(BgL_objectz00_bglt)(BgL_new3341z00_4294); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4296, BgL_arg4064z00_4295); } } 
{ /* ./Cgen/cop.scm 99 */
BgL_objectz00_bglt BgL_auxz00_5242;
BgL_auxz00_5242 = 
(BgL_objectz00_bglt)(BgL_new3341z00_4294); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5242, BFALSE); } 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_objz00_4297;
BgL_objz00_4297 = 
(obj_t)(BgL_new3341z00_4294); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4297); BUNSPEC; } 
BgL_res6965z00_4298 = BgL_new3341z00_4294; } 
BgL_auxz00_5237 = BgL_res6965z00_4298; } 
return 
(obj_t)(BgL_auxz00_5237);} } 
}



/* cswitch? */
BGL_EXPORTED_DEF bool_t BGl_cswitchzf3zf3zzcgen_copz00(obj_t BgL_obj3326z00_101)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 95 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3326z00_101, BGl_cswitchz00zzcgen_copz00);} 
}



/* _cswitch? */
obj_t BGl__cswitchzf3zf3zzcgen_copz00(obj_t BgL_envz00_3738, obj_t BgL_obj3326z00_3739)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 95 */
{ /* ./Cgen/cop.scm 95 */
bool_t BgL_auxz00_5249;
BgL_auxz00_5249 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3326z00_3739, BGl_cswitchz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5249);} } 
}



/* make-cswitch */
BGL_EXPORTED_DEF BgL_cswitchz00_bglt BGl_makezd2cswitchzd2zzcgen_copz00(obj_t BgL_loc3298z00_105, BgL_copz00_bglt BgL_test3299z00_106, obj_t BgL_clauses3300z00_107)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 95 */
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_new3301z00_2481;
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_res5555z00_2487;
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_new3311z00_2482;
BgL_new3311z00_2482 = 
((BgL_cswitchz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cswitchz00_bgl) ))); 
{ /* ./Cgen/cop.scm 95 */
long BgL_arg4073z00_2483;
BgL_arg4073z00_2483 = 
BGl_classzd2numzd2zz__objectz00(BGl_cswitchz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 95 */
BgL_objectz00_bglt BgL_objz00_2484;
BgL_objz00_2484 = 
(BgL_objectz00_bglt)(BgL_new3311z00_2482); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2484, BgL_arg4073z00_2483); } } 
{ /* ./Cgen/cop.scm 95 */
BgL_objectz00_bglt BgL_auxz00_5256;
BgL_auxz00_5256 = 
(BgL_objectz00_bglt)(BgL_new3311z00_2482); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5256, BFALSE); } 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_objz00_2486;
BgL_objz00_2486 = 
(obj_t)(BgL_new3311z00_2482); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2486); BUNSPEC; } 
BgL_res5555z00_2487 = BgL_new3311z00_2482; } 
BgL_new3301z00_2481 = BgL_res5555z00_2487; } 
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_res5556z00_2495;
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_new3306z00_2488;
BgL_new3306z00_2488 = BgL_new3301z00_2481; 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_loc3303z00_2492;BgL_copz00_bglt BgL_test3304z00_2493;obj_t BgL_clauses3305z00_2494;
BgL_loc3303z00_2492 = BgL_loc3298z00_105; 
BgL_test3304z00_2493 = BgL_test3299z00_106; 
BgL_clauses3305z00_2494 = BgL_clauses3300z00_107; 
((((BgL_cswitchz00_bglt)CREF(BgL_new3306z00_2488))->BgL_locz00) = ((obj_t)BgL_loc3303z00_2492), BUNSPEC); 
((((BgL_cswitchz00_bglt)CREF(BgL_new3306z00_2488))->BgL_testz00) = ((BgL_copz00_bglt)BgL_test3304z00_2493), BUNSPEC); 
((((BgL_cswitchz00_bglt)CREF(BgL_new3306z00_2488))->BgL_clausesz00) = ((obj_t)BgL_clauses3305z00_2494), BUNSPEC); 
BgL_res5556z00_2495 = BgL_new3306z00_2488; } } BgL_res5556z00_2495; } 
return BgL_new3301z00_2481;} } 
}



/* _make-cswitch5665 */
obj_t BGl__makezd2cswitch5665zd2zzcgen_copz00(obj_t BgL_envz00_3740, obj_t BgL_loc3298z00_3741, obj_t BgL_test3299z00_3742, obj_t BgL_clauses3300z00_3743)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 95 */
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_auxz00_5264;
BgL_auxz00_5264 = 
BGl_makezd2cswitchzd2zzcgen_copz00(BgL_loc3298z00_3741, 
(BgL_copz00_bglt)(BgL_test3299z00_3742), BgL_clauses3300z00_3743); 
return 
(obj_t)(BgL_auxz00_5264);} } 
}



/* fill-cswitch! */
BGL_EXPORTED_DEF BgL_cswitchz00_bglt BGl_fillzd2cswitchz12zc0zzcgen_copz00(BgL_cswitchz00_bglt BgL_new3306z00_108, obj_t BgL_loc3303z00_109, BgL_copz00_bglt BgL_test3304z00_110, obj_t BgL_clauses3305z00_111)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 95 */
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_loc3303z00_4300;BgL_copz00_bglt BgL_test3304z00_4301;obj_t BgL_clauses3305z00_4302;
BgL_loc3303z00_4300 = BgL_loc3303z00_109; 
BgL_test3304z00_4301 = BgL_test3304z00_110; 
BgL_clauses3305z00_4302 = BgL_clauses3305z00_111; 
((((BgL_cswitchz00_bglt)CREF(BgL_new3306z00_108))->BgL_locz00) = ((obj_t)BgL_loc3303z00_4300), BUNSPEC); 
((((BgL_cswitchz00_bglt)CREF(BgL_new3306z00_108))->BgL_testz00) = ((BgL_copz00_bglt)BgL_test3304z00_4301), BUNSPEC); 
((((BgL_cswitchz00_bglt)CREF(BgL_new3306z00_108))->BgL_clausesz00) = ((obj_t)BgL_clauses3305z00_4302), BUNSPEC); 
return BgL_new3306z00_108;} } 
}



/* _fill-cswitch!5667 */
obj_t BGl__fillzd2cswitchz125667zc0zzcgen_copz00(obj_t BgL_envz00_3744, obj_t BgL_new3306z00_3745, obj_t BgL_loc3303z00_3746, obj_t BgL_test3304z00_3747, obj_t BgL_clauses3305z00_3748)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 95 */
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_auxz00_5271;
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_res6966z00_4310;
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_new3306z00_4303;BgL_copz00_bglt BgL_test3304z00_4305;
BgL_new3306z00_4303 = 
(BgL_cswitchz00_bglt)(BgL_new3306z00_3745); 
BgL_test3304z00_4305 = 
(BgL_copz00_bglt)(BgL_test3304z00_3747); 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_loc3303z00_4307;BgL_copz00_bglt BgL_test3304z00_4308;obj_t BgL_clauses3305z00_4309;
BgL_loc3303z00_4307 = BgL_loc3303z00_3746; 
BgL_test3304z00_4308 = BgL_test3304z00_4305; 
BgL_clauses3305z00_4309 = BgL_clauses3305z00_3748; 
((((BgL_cswitchz00_bglt)CREF(BgL_new3306z00_4303))->BgL_locz00) = ((obj_t)BgL_loc3303z00_4307), BUNSPEC); 
((((BgL_cswitchz00_bglt)CREF(BgL_new3306z00_4303))->BgL_testz00) = ((BgL_copz00_bglt)BgL_test3304z00_4308), BUNSPEC); 
((((BgL_cswitchz00_bglt)CREF(BgL_new3306z00_4303))->BgL_clausesz00) = ((obj_t)BgL_clauses3305z00_4309), BUNSPEC); 
BgL_res6966z00_4310 = BgL_new3306z00_4303; } } 
BgL_auxz00_5271 = BgL_res6966z00_4310; } 
return 
(obj_t)(BgL_auxz00_5271);} } 
}



/* allocate-cswitch */
BGL_EXPORTED_DEF BgL_cswitchz00_bglt BGl_allocatezd2cswitchzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 95 */
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_new3311z00_4311;
BgL_new3311z00_4311 = 
((BgL_cswitchz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cswitchz00_bgl) ))); 
{ /* ./Cgen/cop.scm 95 */
long BgL_arg4073z00_4312;
BgL_arg4073z00_4312 = 
BGl_classzd2numzd2zz__objectz00(BGl_cswitchz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 95 */
BgL_objectz00_bglt BgL_objz00_4313;
BgL_objz00_4313 = 
(BgL_objectz00_bglt)(BgL_new3311z00_4311); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4313, BgL_arg4073z00_4312); } } 
{ /* ./Cgen/cop.scm 95 */
BgL_objectz00_bglt BgL_auxz00_5282;
BgL_auxz00_5282 = 
(BgL_objectz00_bglt)(BgL_new3311z00_4311); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5282, BFALSE); } 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_objz00_4314;
BgL_objz00_4314 = 
(obj_t)(BgL_new3311z00_4311); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4314); BUNSPEC; } 
return BgL_new3311z00_4311;} } 
}



/* _allocate-cswitch */
obj_t BGl__allocatezd2cswitchzd2zzcgen_copz00(obj_t BgL_envz00_3643)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 95 */
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_auxz00_5287;
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_res6967z00_4319;
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_new3311z00_4315;
BgL_new3311z00_4315 = 
((BgL_cswitchz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cswitchz00_bgl) ))); 
{ /* ./Cgen/cop.scm 95 */
long BgL_arg4073z00_4316;
BgL_arg4073z00_4316 = 
BGl_classzd2numzd2zz__objectz00(BGl_cswitchz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 95 */
BgL_objectz00_bglt BgL_objz00_4317;
BgL_objz00_4317 = 
(BgL_objectz00_bglt)(BgL_new3311z00_4315); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4317, BgL_arg4073z00_4316); } } 
{ /* ./Cgen/cop.scm 95 */
BgL_objectz00_bglt BgL_auxz00_5292;
BgL_auxz00_5292 = 
(BgL_objectz00_bglt)(BgL_new3311z00_4315); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5292, BFALSE); } 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_objz00_4318;
BgL_objz00_4318 = 
(obj_t)(BgL_new3311z00_4315); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4318); BUNSPEC; } 
BgL_res6967z00_4319 = BgL_new3311z00_4315; } 
BgL_auxz00_5287 = BgL_res6967z00_4319; } 
return 
(obj_t)(BgL_auxz00_5287);} } 
}



/* cfail? */
BGL_EXPORTED_DEF bool_t BGl_cfailzf3zf3zzcgen_copz00(obj_t BgL_obj3292z00_114)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 90 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3292z00_114, BGl_cfailz00zzcgen_copz00);} 
}



/* _cfail? */
obj_t BGl__cfailzf3zf3zzcgen_copz00(obj_t BgL_envz00_3749, obj_t BgL_obj3292z00_3750)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 90 */
{ /* ./Cgen/cop.scm 90 */
bool_t BgL_auxz00_5299;
BgL_auxz00_5299 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3292z00_3750, BGl_cfailz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5299);} } 
}



/* make-cfail */
BGL_EXPORTED_DEF BgL_cfailz00_bglt BGl_makezd2cfailzd2zzcgen_copz00(obj_t BgL_loc3257z00_118, BgL_copz00_bglt BgL_proc3258z00_119, BgL_copz00_bglt BgL_msg3259z00_120, BgL_copz00_bglt BgL_obj3260z00_121)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 90 */
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_new3261z00_2504;
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_res5557z00_2510;
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_new3273z00_2505;
BgL_new3273z00_2505 = 
((BgL_cfailz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfailz00_bgl) ))); 
{ /* ./Cgen/cop.scm 90 */
long BgL_arg4082z00_2506;
BgL_arg4082z00_2506 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfailz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 90 */
BgL_objectz00_bglt BgL_objz00_2507;
BgL_objz00_2507 = 
(BgL_objectz00_bglt)(BgL_new3273z00_2505); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2507, BgL_arg4082z00_2506); } } 
{ /* ./Cgen/cop.scm 90 */
BgL_objectz00_bglt BgL_auxz00_5306;
BgL_auxz00_5306 = 
(BgL_objectz00_bglt)(BgL_new3273z00_2505); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5306, BFALSE); } 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_objz00_2509;
BgL_objz00_2509 = 
(obj_t)(BgL_new3273z00_2505); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2509); BUNSPEC; } 
BgL_res5557z00_2510 = BgL_new3273z00_2505; } 
BgL_new3261z00_2504 = BgL_res5557z00_2510; } 
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_res5558z00_2520;
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_new3267z00_2511;
BgL_new3267z00_2511 = BgL_new3261z00_2504; 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_loc3263z00_2516;BgL_copz00_bglt BgL_proc3264z00_2517;BgL_copz00_bglt BgL_msg3265z00_2518;BgL_copz00_bglt BgL_obj3266z00_2519;
BgL_loc3263z00_2516 = BgL_loc3257z00_118; 
BgL_proc3264z00_2517 = BgL_proc3258z00_119; 
BgL_msg3265z00_2518 = BgL_msg3259z00_120; 
BgL_obj3266z00_2519 = BgL_obj3260z00_121; 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_2511))->BgL_locz00) = ((obj_t)BgL_loc3263z00_2516), BUNSPEC); 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_2511))->BgL_procz00) = ((BgL_copz00_bglt)BgL_proc3264z00_2517), BUNSPEC); 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_2511))->BgL_msgz00) = ((BgL_copz00_bglt)BgL_msg3265z00_2518), BUNSPEC); 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_2511))->BgL_objz00) = ((BgL_copz00_bglt)BgL_obj3266z00_2519), BUNSPEC); 
BgL_res5558z00_2520 = BgL_new3267z00_2511; } } BgL_res5558z00_2520; } 
return BgL_new3261z00_2504;} } 
}



/* _make-cfail5670 */
obj_t BGl__makezd2cfail5670zd2zzcgen_copz00(obj_t BgL_envz00_3751, obj_t BgL_loc3257z00_3752, obj_t BgL_proc3258z00_3753, obj_t BgL_msg3259z00_3754, obj_t BgL_obj3260z00_3755)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 90 */
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_auxz00_5315;
BgL_auxz00_5315 = 
BGl_makezd2cfailzd2zzcgen_copz00(BgL_loc3257z00_3752, 
(BgL_copz00_bglt)(BgL_proc3258z00_3753), 
(BgL_copz00_bglt)(BgL_msg3259z00_3754), 
(BgL_copz00_bglt)(BgL_obj3260z00_3755)); 
return 
(obj_t)(BgL_auxz00_5315);} } 
}



/* fill-cfail! */
BGL_EXPORTED_DEF BgL_cfailz00_bglt BGl_fillzd2cfailz12zc0zzcgen_copz00(BgL_cfailz00_bglt BgL_new3267z00_122, obj_t BgL_loc3263z00_123, BgL_copz00_bglt BgL_proc3264z00_124, BgL_copz00_bglt BgL_msg3265z00_125, BgL_copz00_bglt BgL_obj3266z00_126)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 90 */
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_loc3263z00_4321;BgL_copz00_bglt BgL_proc3264z00_4322;BgL_copz00_bglt BgL_msg3265z00_4323;BgL_copz00_bglt BgL_obj3266z00_4324;
BgL_loc3263z00_4321 = BgL_loc3263z00_123; 
BgL_proc3264z00_4322 = BgL_proc3264z00_124; 
BgL_msg3265z00_4323 = BgL_msg3265z00_125; 
BgL_obj3266z00_4324 = BgL_obj3266z00_126; 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_122))->BgL_locz00) = ((obj_t)BgL_loc3263z00_4321), BUNSPEC); 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_122))->BgL_procz00) = ((BgL_copz00_bglt)BgL_proc3264z00_4322), BUNSPEC); 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_122))->BgL_msgz00) = ((BgL_copz00_bglt)BgL_msg3265z00_4323), BUNSPEC); 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_122))->BgL_objz00) = ((BgL_copz00_bglt)BgL_obj3266z00_4324), BUNSPEC); 
return BgL_new3267z00_122;} } 
}



/* _fill-cfail!5672 */
obj_t BGl__fillzd2cfailz125672zc0zzcgen_copz00(obj_t BgL_envz00_3756, obj_t BgL_new3267z00_3757, obj_t BgL_loc3263z00_3758, obj_t BgL_proc3264z00_3759, obj_t BgL_msg3265z00_3760, obj_t BgL_obj3266z00_3761)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 90 */
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_auxz00_5325;
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_res6968z00_4334;
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_new3267z00_4325;BgL_copz00_bglt BgL_proc3264z00_4327;BgL_copz00_bglt BgL_msg3265z00_4328;BgL_copz00_bglt BgL_obj3266z00_4329;
BgL_new3267z00_4325 = 
(BgL_cfailz00_bglt)(BgL_new3267z00_3757); 
BgL_proc3264z00_4327 = 
(BgL_copz00_bglt)(BgL_proc3264z00_3759); 
BgL_msg3265z00_4328 = 
(BgL_copz00_bglt)(BgL_msg3265z00_3760); 
BgL_obj3266z00_4329 = 
(BgL_copz00_bglt)(BgL_obj3266z00_3761); 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_loc3263z00_4330;BgL_copz00_bglt BgL_proc3264z00_4331;BgL_copz00_bglt BgL_msg3265z00_4332;BgL_copz00_bglt BgL_obj3266z00_4333;
BgL_loc3263z00_4330 = BgL_loc3263z00_3758; 
BgL_proc3264z00_4331 = BgL_proc3264z00_4327; 
BgL_msg3265z00_4332 = BgL_msg3265z00_4328; 
BgL_obj3266z00_4333 = BgL_obj3266z00_4329; 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_4325))->BgL_locz00) = ((obj_t)BgL_loc3263z00_4330), BUNSPEC); 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_4325))->BgL_procz00) = ((BgL_copz00_bglt)BgL_proc3264z00_4331), BUNSPEC); 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_4325))->BgL_msgz00) = ((BgL_copz00_bglt)BgL_msg3265z00_4332), BUNSPEC); 
((((BgL_cfailz00_bglt)CREF(BgL_new3267z00_4325))->BgL_objz00) = ((BgL_copz00_bglt)BgL_obj3266z00_4333), BUNSPEC); 
BgL_res6968z00_4334 = BgL_new3267z00_4325; } } 
BgL_auxz00_5325 = BgL_res6968z00_4334; } 
return 
(obj_t)(BgL_auxz00_5325);} } 
}



/* allocate-cfail */
BGL_EXPORTED_DEF BgL_cfailz00_bglt BGl_allocatezd2cfailzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 90 */
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_new3273z00_4335;
BgL_new3273z00_4335 = 
((BgL_cfailz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfailz00_bgl) ))); 
{ /* ./Cgen/cop.scm 90 */
long BgL_arg4082z00_4336;
BgL_arg4082z00_4336 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfailz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 90 */
BgL_objectz00_bglt BgL_objz00_4337;
BgL_objz00_4337 = 
(BgL_objectz00_bglt)(BgL_new3273z00_4335); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4337, BgL_arg4082z00_4336); } } 
{ /* ./Cgen/cop.scm 90 */
BgL_objectz00_bglt BgL_auxz00_5339;
BgL_auxz00_5339 = 
(BgL_objectz00_bglt)(BgL_new3273z00_4335); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5339, BFALSE); } 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_objz00_4338;
BgL_objz00_4338 = 
(obj_t)(BgL_new3273z00_4335); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4338); BUNSPEC; } 
return BgL_new3273z00_4335;} } 
}



/* _allocate-cfail */
obj_t BGl__allocatezd2cfailzd2zzcgen_copz00(obj_t BgL_envz00_3642)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 90 */
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_auxz00_5344;
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_res6969z00_4343;
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_new3273z00_4339;
BgL_new3273z00_4339 = 
((BgL_cfailz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfailz00_bgl) ))); 
{ /* ./Cgen/cop.scm 90 */
long BgL_arg4082z00_4340;
BgL_arg4082z00_4340 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfailz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 90 */
BgL_objectz00_bglt BgL_objz00_4341;
BgL_objz00_4341 = 
(BgL_objectz00_bglt)(BgL_new3273z00_4339); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4341, BgL_arg4082z00_4340); } } 
{ /* ./Cgen/cop.scm 90 */
BgL_objectz00_bglt BgL_auxz00_5349;
BgL_auxz00_5349 = 
(BgL_objectz00_bglt)(BgL_new3273z00_4339); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5349, BFALSE); } 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_objz00_4342;
BgL_objz00_4342 = 
(obj_t)(BgL_new3273z00_4339); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4342); BUNSPEC; } 
BgL_res6969z00_4343 = BgL_new3273z00_4339; } 
BgL_auxz00_5344 = BgL_res6969z00_4343; } 
return 
(obj_t)(BgL_auxz00_5344);} } 
}



/* capp? */
BGL_EXPORTED_DEF bool_t BGl_cappzf3zf3zzcgen_copz00(obj_t BgL_obj3248z00_130)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 86 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3248z00_130, BGl_cappz00zzcgen_copz00);} 
}



/* _capp? */
obj_t BGl__cappzf3zf3zzcgen_copz00(obj_t BgL_envz00_3762, obj_t BgL_obj3248z00_3763)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 86 */
{ /* ./Cgen/cop.scm 86 */
bool_t BgL_auxz00_5356;
BgL_auxz00_5356 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3248z00_3763, BGl_cappz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5356);} } 
}



/* make-capp */
BGL_EXPORTED_DEF BgL_cappz00_bglt BGl_makezd2cappzd2zzcgen_copz00(obj_t BgL_loc3220z00_134, BgL_copz00_bglt BgL_fun3221z00_135, obj_t BgL_args3222z00_136)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 86 */
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_new3223z00_2530;
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_res5559z00_2536;
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_new3233z00_2531;
BgL_new3233z00_2531 = 
((BgL_cappz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cappz00_bgl) ))); 
{ /* ./Cgen/cop.scm 86 */
long BgL_arg4091z00_2532;
BgL_arg4091z00_2532 = 
BGl_classzd2numzd2zz__objectz00(BGl_cappz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 86 */
BgL_objectz00_bglt BgL_objz00_2533;
BgL_objz00_2533 = 
(BgL_objectz00_bglt)(BgL_new3233z00_2531); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2533, BgL_arg4091z00_2532); } } 
{ /* ./Cgen/cop.scm 86 */
BgL_objectz00_bglt BgL_auxz00_5363;
BgL_auxz00_5363 = 
(BgL_objectz00_bglt)(BgL_new3233z00_2531); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5363, BFALSE); } 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_objz00_2535;
BgL_objz00_2535 = 
(obj_t)(BgL_new3233z00_2531); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2535); BUNSPEC; } 
BgL_res5559z00_2536 = BgL_new3233z00_2531; } 
BgL_new3223z00_2530 = BgL_res5559z00_2536; } 
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_res5560z00_2544;
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_new3228z00_2537;
BgL_new3228z00_2537 = BgL_new3223z00_2530; 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_loc3225z00_2541;BgL_copz00_bglt BgL_fun3226z00_2542;obj_t BgL_args3227z00_2543;
BgL_loc3225z00_2541 = BgL_loc3220z00_134; 
BgL_fun3226z00_2542 = BgL_fun3221z00_135; 
BgL_args3227z00_2543 = BgL_args3222z00_136; 
((((BgL_cappz00_bglt)CREF(BgL_new3228z00_2537))->BgL_locz00) = ((obj_t)BgL_loc3225z00_2541), BUNSPEC); 
((((BgL_cappz00_bglt)CREF(BgL_new3228z00_2537))->BgL_funz00) = ((BgL_copz00_bglt)BgL_fun3226z00_2542), BUNSPEC); 
((((BgL_cappz00_bglt)CREF(BgL_new3228z00_2537))->BgL_argsz00) = ((obj_t)BgL_args3227z00_2543), BUNSPEC); 
BgL_res5560z00_2544 = BgL_new3228z00_2537; } } BgL_res5560z00_2544; } 
return BgL_new3223z00_2530;} } 
}



/* _make-capp5675 */
obj_t BGl__makezd2capp5675zd2zzcgen_copz00(obj_t BgL_envz00_3764, obj_t BgL_loc3220z00_3765, obj_t BgL_fun3221z00_3766, obj_t BgL_args3222z00_3767)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 86 */
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_auxz00_5371;
BgL_auxz00_5371 = 
BGl_makezd2cappzd2zzcgen_copz00(BgL_loc3220z00_3765, 
(BgL_copz00_bglt)(BgL_fun3221z00_3766), BgL_args3222z00_3767); 
return 
(obj_t)(BgL_auxz00_5371);} } 
}



/* fill-capp! */
BGL_EXPORTED_DEF BgL_cappz00_bglt BGl_fillzd2cappz12zc0zzcgen_copz00(BgL_cappz00_bglt BgL_new3228z00_137, obj_t BgL_loc3225z00_138, BgL_copz00_bglt BgL_fun3226z00_139, obj_t BgL_args3227z00_140)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 86 */
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_loc3225z00_4345;BgL_copz00_bglt BgL_fun3226z00_4346;obj_t BgL_args3227z00_4347;
BgL_loc3225z00_4345 = BgL_loc3225z00_138; 
BgL_fun3226z00_4346 = BgL_fun3226z00_139; 
BgL_args3227z00_4347 = BgL_args3227z00_140; 
((((BgL_cappz00_bglt)CREF(BgL_new3228z00_137))->BgL_locz00) = ((obj_t)BgL_loc3225z00_4345), BUNSPEC); 
((((BgL_cappz00_bglt)CREF(BgL_new3228z00_137))->BgL_funz00) = ((BgL_copz00_bglt)BgL_fun3226z00_4346), BUNSPEC); 
((((BgL_cappz00_bglt)CREF(BgL_new3228z00_137))->BgL_argsz00) = ((obj_t)BgL_args3227z00_4347), BUNSPEC); 
return BgL_new3228z00_137;} } 
}



/* _fill-capp!5677 */
obj_t BGl__fillzd2cappz125677zc0zzcgen_copz00(obj_t BgL_envz00_3768, obj_t BgL_new3228z00_3769, obj_t BgL_loc3225z00_3770, obj_t BgL_fun3226z00_3771, obj_t BgL_args3227z00_3772)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 86 */
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_auxz00_5378;
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_res6970z00_4355;
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_new3228z00_4348;BgL_copz00_bglt BgL_fun3226z00_4350;
BgL_new3228z00_4348 = 
(BgL_cappz00_bglt)(BgL_new3228z00_3769); 
BgL_fun3226z00_4350 = 
(BgL_copz00_bglt)(BgL_fun3226z00_3771); 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_loc3225z00_4352;BgL_copz00_bglt BgL_fun3226z00_4353;obj_t BgL_args3227z00_4354;
BgL_loc3225z00_4352 = BgL_loc3225z00_3770; 
BgL_fun3226z00_4353 = BgL_fun3226z00_4350; 
BgL_args3227z00_4354 = BgL_args3227z00_3772; 
((((BgL_cappz00_bglt)CREF(BgL_new3228z00_4348))->BgL_locz00) = ((obj_t)BgL_loc3225z00_4352), BUNSPEC); 
((((BgL_cappz00_bglt)CREF(BgL_new3228z00_4348))->BgL_funz00) = ((BgL_copz00_bglt)BgL_fun3226z00_4353), BUNSPEC); 
((((BgL_cappz00_bglt)CREF(BgL_new3228z00_4348))->BgL_argsz00) = ((obj_t)BgL_args3227z00_4354), BUNSPEC); 
BgL_res6970z00_4355 = BgL_new3228z00_4348; } } 
BgL_auxz00_5378 = BgL_res6970z00_4355; } 
return 
(obj_t)(BgL_auxz00_5378);} } 
}



/* allocate-capp */
BGL_EXPORTED_DEF BgL_cappz00_bglt BGl_allocatezd2cappzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 86 */
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_new3233z00_4356;
BgL_new3233z00_4356 = 
((BgL_cappz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cappz00_bgl) ))); 
{ /* ./Cgen/cop.scm 86 */
long BgL_arg4091z00_4357;
BgL_arg4091z00_4357 = 
BGl_classzd2numzd2zz__objectz00(BGl_cappz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 86 */
BgL_objectz00_bglt BgL_objz00_4358;
BgL_objz00_4358 = 
(BgL_objectz00_bglt)(BgL_new3233z00_4356); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4358, BgL_arg4091z00_4357); } } 
{ /* ./Cgen/cop.scm 86 */
BgL_objectz00_bglt BgL_auxz00_5389;
BgL_auxz00_5389 = 
(BgL_objectz00_bglt)(BgL_new3233z00_4356); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5389, BFALSE); } 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_objz00_4359;
BgL_objz00_4359 = 
(obj_t)(BgL_new3233z00_4356); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4359); BUNSPEC; } 
return BgL_new3233z00_4356;} } 
}



/* _allocate-capp */
obj_t BGl__allocatezd2cappzd2zzcgen_copz00(obj_t BgL_envz00_3641)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 86 */
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_auxz00_5394;
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_res6971z00_4364;
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_new3233z00_4360;
BgL_new3233z00_4360 = 
((BgL_cappz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cappz00_bgl) ))); 
{ /* ./Cgen/cop.scm 86 */
long BgL_arg4091z00_4361;
BgL_arg4091z00_4361 = 
BGl_classzd2numzd2zz__objectz00(BGl_cappz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 86 */
BgL_objectz00_bglt BgL_objz00_4362;
BgL_objz00_4362 = 
(BgL_objectz00_bglt)(BgL_new3233z00_4360); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4362, BgL_arg4091z00_4361); } } 
{ /* ./Cgen/cop.scm 86 */
BgL_objectz00_bglt BgL_auxz00_5399;
BgL_auxz00_5399 = 
(BgL_objectz00_bglt)(BgL_new3233z00_4360); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5399, BFALSE); } 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_objz00_4363;
BgL_objz00_4363 = 
(obj_t)(BgL_new3233z00_4360); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4363); BUNSPEC; } 
BgL_res6971z00_4364 = BgL_new3233z00_4360; } 
BgL_auxz00_5394 = BgL_res6971z00_4364; } 
return 
(obj_t)(BgL_auxz00_5394);} } 
}



/* capply? */
BGL_EXPORTED_DEF bool_t BGl_capplyzf3zf3zzcgen_copz00(obj_t BgL_obj3214z00_143)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 82 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3214z00_143, BGl_capplyz00zzcgen_copz00);} 
}



/* _capply? */
obj_t BGl__capplyzf3zf3zzcgen_copz00(obj_t BgL_envz00_3773, obj_t BgL_obj3214z00_3774)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 82 */
{ /* ./Cgen/cop.scm 82 */
bool_t BgL_auxz00_5406;
BgL_auxz00_5406 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3214z00_3774, BGl_capplyz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5406);} } 
}



/* make-capply */
BGL_EXPORTED_DEF BgL_capplyz00_bglt BGl_makezd2capplyzd2zzcgen_copz00(obj_t BgL_loc3186z00_147, BgL_copz00_bglt BgL_fun3187z00_148, BgL_copz00_bglt BgL_arg3188z00_149)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 82 */
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_new3189z00_2553;
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_res5561z00_2559;
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_new3199z00_2554;
BgL_new3199z00_2554 = 
((BgL_capplyz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_capplyz00_bgl) ))); 
{ /* ./Cgen/cop.scm 82 */
long BgL_arg4100z00_2555;
BgL_arg4100z00_2555 = 
BGl_classzd2numzd2zz__objectz00(BGl_capplyz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 82 */
BgL_objectz00_bglt BgL_objz00_2556;
BgL_objz00_2556 = 
(BgL_objectz00_bglt)(BgL_new3199z00_2554); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2556, BgL_arg4100z00_2555); } } 
{ /* ./Cgen/cop.scm 82 */
BgL_objectz00_bglt BgL_auxz00_5413;
BgL_auxz00_5413 = 
(BgL_objectz00_bglt)(BgL_new3199z00_2554); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5413, BFALSE); } 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_objz00_2558;
BgL_objz00_2558 = 
(obj_t)(BgL_new3199z00_2554); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2558); BUNSPEC; } 
BgL_res5561z00_2559 = BgL_new3199z00_2554; } 
BgL_new3189z00_2553 = BgL_res5561z00_2559; } 
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_res5562z00_2567;
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_new3194z00_2560;
BgL_new3194z00_2560 = BgL_new3189z00_2553; 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_loc3191z00_2564;BgL_copz00_bglt BgL_fun3192z00_2565;BgL_copz00_bglt BgL_arg3193z00_2566;
BgL_loc3191z00_2564 = BgL_loc3186z00_147; 
BgL_fun3192z00_2565 = BgL_fun3187z00_148; 
BgL_arg3193z00_2566 = BgL_arg3188z00_149; 
((((BgL_capplyz00_bglt)CREF(BgL_new3194z00_2560))->BgL_locz00) = ((obj_t)BgL_loc3191z00_2564), BUNSPEC); 
((((BgL_capplyz00_bglt)CREF(BgL_new3194z00_2560))->BgL_funz00) = ((BgL_copz00_bglt)BgL_fun3192z00_2565), BUNSPEC); 
((((BgL_capplyz00_bglt)CREF(BgL_new3194z00_2560))->BgL_argz00) = ((BgL_copz00_bglt)BgL_arg3193z00_2566), BUNSPEC); 
BgL_res5562z00_2567 = BgL_new3194z00_2560; } } BgL_res5562z00_2567; } 
return BgL_new3189z00_2553;} } 
}



/* _make-capply5680 */
obj_t BGl__makezd2capply5680zd2zzcgen_copz00(obj_t BgL_envz00_3775, obj_t BgL_loc3186z00_3776, obj_t BgL_fun3187z00_3777, obj_t BgL_arg3188z00_3778)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 82 */
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_auxz00_5421;
BgL_auxz00_5421 = 
BGl_makezd2capplyzd2zzcgen_copz00(BgL_loc3186z00_3776, 
(BgL_copz00_bglt)(BgL_fun3187z00_3777), 
(BgL_copz00_bglt)(BgL_arg3188z00_3778)); 
return 
(obj_t)(BgL_auxz00_5421);} } 
}



/* fill-capply! */
BGL_EXPORTED_DEF BgL_capplyz00_bglt BGl_fillzd2capplyz12zc0zzcgen_copz00(BgL_capplyz00_bglt BgL_new3194z00_150, obj_t BgL_loc3191z00_151, BgL_copz00_bglt BgL_fun3192z00_152, BgL_copz00_bglt BgL_arg3193z00_153)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 82 */
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_loc3191z00_4366;BgL_copz00_bglt BgL_fun3192z00_4367;BgL_copz00_bglt BgL_arg3193z00_4368;
BgL_loc3191z00_4366 = BgL_loc3191z00_151; 
BgL_fun3192z00_4367 = BgL_fun3192z00_152; 
BgL_arg3193z00_4368 = BgL_arg3193z00_153; 
((((BgL_capplyz00_bglt)CREF(BgL_new3194z00_150))->BgL_locz00) = ((obj_t)BgL_loc3191z00_4366), BUNSPEC); 
((((BgL_capplyz00_bglt)CREF(BgL_new3194z00_150))->BgL_funz00) = ((BgL_copz00_bglt)BgL_fun3192z00_4367), BUNSPEC); 
((((BgL_capplyz00_bglt)CREF(BgL_new3194z00_150))->BgL_argz00) = ((BgL_copz00_bglt)BgL_arg3193z00_4368), BUNSPEC); 
return BgL_new3194z00_150;} } 
}



/* _fill-capply!5682 */
obj_t BGl__fillzd2capplyz125682zc0zzcgen_copz00(obj_t BgL_envz00_3779, obj_t BgL_new3194z00_3780, obj_t BgL_loc3191z00_3781, obj_t BgL_fun3192z00_3782, obj_t BgL_arg3193z00_3783)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 82 */
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_auxz00_5429;
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_res6972z00_4376;
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_new3194z00_4369;BgL_copz00_bglt BgL_fun3192z00_4371;BgL_copz00_bglt BgL_arg3193z00_4372;
BgL_new3194z00_4369 = 
(BgL_capplyz00_bglt)(BgL_new3194z00_3780); 
BgL_fun3192z00_4371 = 
(BgL_copz00_bglt)(BgL_fun3192z00_3782); 
BgL_arg3193z00_4372 = 
(BgL_copz00_bglt)(BgL_arg3193z00_3783); 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_loc3191z00_4373;BgL_copz00_bglt BgL_fun3192z00_4374;BgL_copz00_bglt BgL_arg3193z00_4375;
BgL_loc3191z00_4373 = BgL_loc3191z00_3781; 
BgL_fun3192z00_4374 = BgL_fun3192z00_4371; 
BgL_arg3193z00_4375 = BgL_arg3193z00_4372; 
((((BgL_capplyz00_bglt)CREF(BgL_new3194z00_4369))->BgL_locz00) = ((obj_t)BgL_loc3191z00_4373), BUNSPEC); 
((((BgL_capplyz00_bglt)CREF(BgL_new3194z00_4369))->BgL_funz00) = ((BgL_copz00_bglt)BgL_fun3192z00_4374), BUNSPEC); 
((((BgL_capplyz00_bglt)CREF(BgL_new3194z00_4369))->BgL_argz00) = ((BgL_copz00_bglt)BgL_arg3193z00_4375), BUNSPEC); 
BgL_res6972z00_4376 = BgL_new3194z00_4369; } } 
BgL_auxz00_5429 = BgL_res6972z00_4376; } 
return 
(obj_t)(BgL_auxz00_5429);} } 
}



/* allocate-capply */
BGL_EXPORTED_DEF BgL_capplyz00_bglt BGl_allocatezd2capplyzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 82 */
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_new3199z00_4377;
BgL_new3199z00_4377 = 
((BgL_capplyz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_capplyz00_bgl) ))); 
{ /* ./Cgen/cop.scm 82 */
long BgL_arg4100z00_4378;
BgL_arg4100z00_4378 = 
BGl_classzd2numzd2zz__objectz00(BGl_capplyz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 82 */
BgL_objectz00_bglt BgL_objz00_4379;
BgL_objz00_4379 = 
(BgL_objectz00_bglt)(BgL_new3199z00_4377); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4379, BgL_arg4100z00_4378); } } 
{ /* ./Cgen/cop.scm 82 */
BgL_objectz00_bglt BgL_auxz00_5441;
BgL_auxz00_5441 = 
(BgL_objectz00_bglt)(BgL_new3199z00_4377); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5441, BFALSE); } 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_objz00_4380;
BgL_objz00_4380 = 
(obj_t)(BgL_new3199z00_4377); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4380); BUNSPEC; } 
return BgL_new3199z00_4377;} } 
}



/* _allocate-capply */
obj_t BGl__allocatezd2capplyzd2zzcgen_copz00(obj_t BgL_envz00_3640)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 82 */
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_auxz00_5446;
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_res6973z00_4385;
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_new3199z00_4381;
BgL_new3199z00_4381 = 
((BgL_capplyz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_capplyz00_bgl) ))); 
{ /* ./Cgen/cop.scm 82 */
long BgL_arg4100z00_4382;
BgL_arg4100z00_4382 = 
BGl_classzd2numzd2zz__objectz00(BGl_capplyz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 82 */
BgL_objectz00_bglt BgL_objz00_4383;
BgL_objz00_4383 = 
(BgL_objectz00_bglt)(BgL_new3199z00_4381); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4383, BgL_arg4100z00_4382); } } 
{ /* ./Cgen/cop.scm 82 */
BgL_objectz00_bglt BgL_auxz00_5451;
BgL_auxz00_5451 = 
(BgL_objectz00_bglt)(BgL_new3199z00_4381); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5451, BFALSE); } 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_objz00_4384;
BgL_objz00_4384 = 
(obj_t)(BgL_new3199z00_4381); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4384); BUNSPEC; } 
BgL_res6973z00_4385 = BgL_new3199z00_4381; } 
BgL_auxz00_5446 = BgL_res6973z00_4385; } 
return 
(obj_t)(BgL_auxz00_5446);} } 
}



/* cfuncall? */
BGL_EXPORTED_DEF bool_t BGl_cfuncallzf3zf3zzcgen_copz00(obj_t BgL_obj3180z00_156)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 77 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3180z00_156, BGl_cfuncallz00zzcgen_copz00);} 
}



/* _cfuncall? */
obj_t BGl__cfuncallzf3zf3zzcgen_copz00(obj_t BgL_envz00_3784, obj_t BgL_obj3180z00_3785)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 77 */
{ /* ./Cgen/cop.scm 77 */
bool_t BgL_auxz00_5458;
BgL_auxz00_5458 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3180z00_3785, BGl_cfuncallz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5458);} } 
}



/* make-cfuncall */
BGL_EXPORTED_DEF BgL_cfuncallz00_bglt BGl_makezd2cfuncallzd2zzcgen_copz00(obj_t BgL_loc3145z00_160, BgL_copz00_bglt BgL_fun3146z00_161, obj_t BgL_args3147z00_162, obj_t BgL_strength3148z00_163)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 77 */
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_new3149z00_2576;
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_res5563z00_2582;
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_new3161z00_2577;
BgL_new3161z00_2577 = 
((BgL_cfuncallz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfuncallz00_bgl) ))); 
{ /* ./Cgen/cop.scm 77 */
long BgL_arg4109z00_2578;
BgL_arg4109z00_2578 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfuncallz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 77 */
BgL_objectz00_bglt BgL_objz00_2579;
BgL_objz00_2579 = 
(BgL_objectz00_bglt)(BgL_new3161z00_2577); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2579, BgL_arg4109z00_2578); } } 
{ /* ./Cgen/cop.scm 77 */
BgL_objectz00_bglt BgL_auxz00_5465;
BgL_auxz00_5465 = 
(BgL_objectz00_bglt)(BgL_new3161z00_2577); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5465, BFALSE); } 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_objz00_2581;
BgL_objz00_2581 = 
(obj_t)(BgL_new3161z00_2577); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2581); BUNSPEC; } 
BgL_res5563z00_2582 = BgL_new3161z00_2577; } 
BgL_new3149z00_2576 = BgL_res5563z00_2582; } 
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_res5564z00_2592;
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_new3155z00_2583;
BgL_new3155z00_2583 = BgL_new3149z00_2576; 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_loc3151z00_2588;BgL_copz00_bglt BgL_fun3152z00_2589;obj_t BgL_args3153z00_2590;obj_t BgL_strength3154z00_2591;
BgL_loc3151z00_2588 = BgL_loc3145z00_160; 
BgL_fun3152z00_2589 = BgL_fun3146z00_161; 
BgL_args3153z00_2590 = BgL_args3147z00_162; 
BgL_strength3154z00_2591 = BgL_strength3148z00_163; 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_2583))->BgL_locz00) = ((obj_t)BgL_loc3151z00_2588), BUNSPEC); 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_2583))->BgL_funz00) = ((BgL_copz00_bglt)BgL_fun3152z00_2589), BUNSPEC); 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_2583))->BgL_argsz00) = ((obj_t)BgL_args3153z00_2590), BUNSPEC); 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_2583))->BgL_strengthz00) = ((obj_t)BgL_strength3154z00_2591), BUNSPEC); 
BgL_res5564z00_2592 = BgL_new3155z00_2583; } } BgL_res5564z00_2592; } 
return BgL_new3149z00_2576;} } 
}



/* _make-cfuncall5685 */
obj_t BGl__makezd2cfuncall5685zd2zzcgen_copz00(obj_t BgL_envz00_3786, obj_t BgL_loc3145z00_3787, obj_t BgL_fun3146z00_3788, obj_t BgL_args3147z00_3789, obj_t BgL_strength3148z00_3790)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 77 */
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_auxz00_5474;
BgL_auxz00_5474 = 
BGl_makezd2cfuncallzd2zzcgen_copz00(BgL_loc3145z00_3787, 
(BgL_copz00_bglt)(BgL_fun3146z00_3788), BgL_args3147z00_3789, BgL_strength3148z00_3790); 
return 
(obj_t)(BgL_auxz00_5474);} } 
}



/* fill-cfuncall! */
BGL_EXPORTED_DEF BgL_cfuncallz00_bglt BGl_fillzd2cfuncallz12zc0zzcgen_copz00(BgL_cfuncallz00_bglt BgL_new3155z00_164, obj_t BgL_loc3151z00_165, BgL_copz00_bglt BgL_fun3152z00_166, obj_t BgL_args3153z00_167, obj_t BgL_strength3154z00_168)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 77 */
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_loc3151z00_4387;BgL_copz00_bglt BgL_fun3152z00_4388;obj_t BgL_args3153z00_4389;obj_t BgL_strength3154z00_4390;
BgL_loc3151z00_4387 = BgL_loc3151z00_165; 
BgL_fun3152z00_4388 = BgL_fun3152z00_166; 
BgL_args3153z00_4389 = BgL_args3153z00_167; 
BgL_strength3154z00_4390 = BgL_strength3154z00_168; 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_164))->BgL_locz00) = ((obj_t)BgL_loc3151z00_4387), BUNSPEC); 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_164))->BgL_funz00) = ((BgL_copz00_bglt)BgL_fun3152z00_4388), BUNSPEC); 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_164))->BgL_argsz00) = ((obj_t)BgL_args3153z00_4389), BUNSPEC); 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_164))->BgL_strengthz00) = ((obj_t)BgL_strength3154z00_4390), BUNSPEC); 
return BgL_new3155z00_164;} } 
}



/* _fill-cfuncall!5687 */
obj_t BGl__fillzd2cfuncallz125687zc0zzcgen_copz00(obj_t BgL_envz00_3791, obj_t BgL_new3155z00_3792, obj_t BgL_loc3151z00_3793, obj_t BgL_fun3152z00_3794, obj_t BgL_args3153z00_3795, obj_t BgL_strength3154z00_3796)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 77 */
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_auxz00_5482;
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_res6974z00_4400;
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_new3155z00_4391;BgL_copz00_bglt BgL_fun3152z00_4393;
BgL_new3155z00_4391 = 
(BgL_cfuncallz00_bglt)(BgL_new3155z00_3792); 
BgL_fun3152z00_4393 = 
(BgL_copz00_bglt)(BgL_fun3152z00_3794); 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_loc3151z00_4396;BgL_copz00_bglt BgL_fun3152z00_4397;obj_t BgL_args3153z00_4398;obj_t BgL_strength3154z00_4399;
BgL_loc3151z00_4396 = BgL_loc3151z00_3793; 
BgL_fun3152z00_4397 = BgL_fun3152z00_4393; 
BgL_args3153z00_4398 = BgL_args3153z00_3795; 
BgL_strength3154z00_4399 = BgL_strength3154z00_3796; 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_4391))->BgL_locz00) = ((obj_t)BgL_loc3151z00_4396), BUNSPEC); 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_4391))->BgL_funz00) = ((BgL_copz00_bglt)BgL_fun3152z00_4397), BUNSPEC); 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_4391))->BgL_argsz00) = ((obj_t)BgL_args3153z00_4398), BUNSPEC); 
((((BgL_cfuncallz00_bglt)CREF(BgL_new3155z00_4391))->BgL_strengthz00) = ((obj_t)BgL_strength3154z00_4399), BUNSPEC); 
BgL_res6974z00_4400 = BgL_new3155z00_4391; } } 
BgL_auxz00_5482 = BgL_res6974z00_4400; } 
return 
(obj_t)(BgL_auxz00_5482);} } 
}



/* allocate-cfuncall */
BGL_EXPORTED_DEF BgL_cfuncallz00_bglt BGl_allocatezd2cfuncallzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 77 */
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_new3161z00_4401;
BgL_new3161z00_4401 = 
((BgL_cfuncallz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfuncallz00_bgl) ))); 
{ /* ./Cgen/cop.scm 77 */
long BgL_arg4109z00_4402;
BgL_arg4109z00_4402 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfuncallz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 77 */
BgL_objectz00_bglt BgL_objz00_4403;
BgL_objz00_4403 = 
(BgL_objectz00_bglt)(BgL_new3161z00_4401); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4403, BgL_arg4109z00_4402); } } 
{ /* ./Cgen/cop.scm 77 */
BgL_objectz00_bglt BgL_auxz00_5494;
BgL_auxz00_5494 = 
(BgL_objectz00_bglt)(BgL_new3161z00_4401); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5494, BFALSE); } 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_objz00_4404;
BgL_objz00_4404 = 
(obj_t)(BgL_new3161z00_4401); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4404); BUNSPEC; } 
return BgL_new3161z00_4401;} } 
}



/* _allocate-cfuncall */
obj_t BGl__allocatezd2cfuncallzd2zzcgen_copz00(obj_t BgL_envz00_3639)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 77 */
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_auxz00_5499;
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_res6975z00_4409;
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_new3161z00_4405;
BgL_new3161z00_4405 = 
((BgL_cfuncallz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cfuncallz00_bgl) ))); 
{ /* ./Cgen/cop.scm 77 */
long BgL_arg4109z00_4406;
BgL_arg4109z00_4406 = 
BGl_classzd2numzd2zz__objectz00(BGl_cfuncallz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 77 */
BgL_objectz00_bglt BgL_objz00_4407;
BgL_objz00_4407 = 
(BgL_objectz00_bglt)(BgL_new3161z00_4405); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4407, BgL_arg4109z00_4406); } } 
{ /* ./Cgen/cop.scm 77 */
BgL_objectz00_bglt BgL_auxz00_5504;
BgL_auxz00_5504 = 
(BgL_objectz00_bglt)(BgL_new3161z00_4405); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5504, BFALSE); } 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_objz00_4408;
BgL_objz00_4408 = 
(obj_t)(BgL_new3161z00_4405); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4408); BUNSPEC; } 
BgL_res6975z00_4409 = BgL_new3161z00_4405; } 
BgL_auxz00_5499 = BgL_res6975z00_4409; } 
return 
(obj_t)(BgL_auxz00_5499);} } 
}



/* local-var? */
BGL_EXPORTED_DEF bool_t BGl_localzd2varzf3z21zzcgen_copz00(obj_t BgL_obj3138z00_172)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 74 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3138z00_172, BGl_localzd2varzd2zzcgen_copz00);} 
}



/* _local-var? */
obj_t BGl__localzd2varzf3z21zzcgen_copz00(obj_t BgL_envz00_3797, obj_t BgL_obj3138z00_3798)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 74 */
{ /* ./Cgen/cop.scm 74 */
bool_t BgL_auxz00_5511;
BgL_auxz00_5511 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3138z00_3798, BGl_localzd2varzd2zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5511);} } 
}



/* make-local-var */
BGL_EXPORTED_DEF BgL_localzd2varzd2_bglt BGl_makezd2localzd2varz00zzcgen_copz00(obj_t BgL_loc3116z00_176, obj_t BgL_vars3117z00_177)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 74 */
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_new3118z00_2602;
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_res5565z00_2608;
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_new3126z00_2603;
BgL_new3126z00_2603 = 
((BgL_localzd2varzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_localzd2varzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 74 */
long BgL_arg4118z00_2604;
BgL_arg4118z00_2604 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzd2varzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 74 */
BgL_objectz00_bglt BgL_objz00_2605;
BgL_objz00_2605 = 
(BgL_objectz00_bglt)(BgL_new3126z00_2603); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2605, BgL_arg4118z00_2604); } } 
{ /* ./Cgen/cop.scm 74 */
BgL_objectz00_bglt BgL_auxz00_5518;
BgL_auxz00_5518 = 
(BgL_objectz00_bglt)(BgL_new3126z00_2603); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5518, BFALSE); } 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_objz00_2607;
BgL_objz00_2607 = 
(obj_t)(BgL_new3126z00_2603); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2607); BUNSPEC; } 
BgL_res5565z00_2608 = BgL_new3126z00_2603; } 
BgL_new3118z00_2602 = BgL_res5565z00_2608; } 
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_res5566z00_2614;
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_new3122z00_2609;
BgL_new3122z00_2609 = BgL_new3118z00_2602; 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_loc3120z00_2612;obj_t BgL_vars3121z00_2613;
BgL_loc3120z00_2612 = BgL_loc3116z00_176; 
BgL_vars3121z00_2613 = BgL_vars3117z00_177; 
((((BgL_localzd2varzd2_bglt)CREF(BgL_new3122z00_2609))->BgL_locz00) = ((obj_t)BgL_loc3120z00_2612), BUNSPEC); 
((((BgL_localzd2varzd2_bglt)CREF(BgL_new3122z00_2609))->BgL_varsz00) = ((obj_t)BgL_vars3121z00_2613), BUNSPEC); 
BgL_res5566z00_2614 = BgL_new3122z00_2609; } } BgL_res5566z00_2614; } 
return BgL_new3118z00_2602;} } 
}



/* _make-local-var */
obj_t BGl__makezd2localzd2varz00zzcgen_copz00(obj_t BgL_envz00_3799, obj_t BgL_loc3116z00_3800, obj_t BgL_vars3117z00_3801)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 74 */
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_auxz00_5525;
BgL_auxz00_5525 = 
BGl_makezd2localzd2varz00zzcgen_copz00(BgL_loc3116z00_3800, BgL_vars3117z00_3801); 
return 
(obj_t)(BgL_auxz00_5525);} } 
}



/* fill-local-var! */
BGL_EXPORTED_DEF BgL_localzd2varzd2_bglt BGl_fillzd2localzd2varz12z12zzcgen_copz00(BgL_localzd2varzd2_bglt BgL_new3122z00_178, obj_t BgL_loc3120z00_179, obj_t BgL_vars3121z00_180)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 74 */
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_loc3120z00_4411;obj_t BgL_vars3121z00_4412;
BgL_loc3120z00_4411 = BgL_loc3120z00_179; 
BgL_vars3121z00_4412 = BgL_vars3121z00_180; 
((((BgL_localzd2varzd2_bglt)CREF(BgL_new3122z00_178))->BgL_locz00) = ((obj_t)BgL_loc3120z00_4411), BUNSPEC); 
((((BgL_localzd2varzd2_bglt)CREF(BgL_new3122z00_178))->BgL_varsz00) = ((obj_t)BgL_vars3121z00_4412), BUNSPEC); 
return BgL_new3122z00_178;} } 
}



/* _fill-local-var!5691 */
obj_t BGl__fillzd2localzd2varz125691z12zzcgen_copz00(obj_t BgL_envz00_3802, obj_t BgL_new3122z00_3803, obj_t BgL_loc3120z00_3804, obj_t BgL_vars3121z00_3805)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 74 */
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_auxz00_5530;
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_res6976z00_4418;
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_new3122z00_4413;
BgL_new3122z00_4413 = 
(BgL_localzd2varzd2_bglt)(BgL_new3122z00_3803); 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_loc3120z00_4416;obj_t BgL_vars3121z00_4417;
BgL_loc3120z00_4416 = BgL_loc3120z00_3804; 
BgL_vars3121z00_4417 = BgL_vars3121z00_3805; 
((((BgL_localzd2varzd2_bglt)CREF(BgL_new3122z00_4413))->BgL_locz00) = ((obj_t)BgL_loc3120z00_4416), BUNSPEC); 
((((BgL_localzd2varzd2_bglt)CREF(BgL_new3122z00_4413))->BgL_varsz00) = ((obj_t)BgL_vars3121z00_4417), BUNSPEC); 
BgL_res6976z00_4418 = BgL_new3122z00_4413; } } 
BgL_auxz00_5530 = BgL_res6976z00_4418; } 
return 
(obj_t)(BgL_auxz00_5530);} } 
}



/* allocate-local-var */
BGL_EXPORTED_DEF BgL_localzd2varzd2_bglt BGl_allocatezd2localzd2varz00zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 74 */
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_new3126z00_4419;
BgL_new3126z00_4419 = 
((BgL_localzd2varzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_localzd2varzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 74 */
long BgL_arg4118z00_4420;
BgL_arg4118z00_4420 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzd2varzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 74 */
BgL_objectz00_bglt BgL_objz00_4421;
BgL_objz00_4421 = 
(BgL_objectz00_bglt)(BgL_new3126z00_4419); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4421, BgL_arg4118z00_4420); } } 
{ /* ./Cgen/cop.scm 74 */
BgL_objectz00_bglt BgL_auxz00_5539;
BgL_auxz00_5539 = 
(BgL_objectz00_bglt)(BgL_new3126z00_4419); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5539, BFALSE); } 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_objz00_4422;
BgL_objz00_4422 = 
(obj_t)(BgL_new3126z00_4419); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4422); BUNSPEC; } 
return BgL_new3126z00_4419;} } 
}



/* _allocate-local-var */
obj_t BGl__allocatezd2localzd2varz00zzcgen_copz00(obj_t BgL_envz00_3638)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 74 */
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_auxz00_5544;
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_res6977z00_4427;
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_new3126z00_4423;
BgL_new3126z00_4423 = 
((BgL_localzd2varzd2_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_localzd2varzd2_bgl) ))); 
{ /* ./Cgen/cop.scm 74 */
long BgL_arg4118z00_4424;
BgL_arg4118z00_4424 = 
BGl_classzd2numzd2zz__objectz00(BGl_localzd2varzd2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 74 */
BgL_objectz00_bglt BgL_objz00_4425;
BgL_objz00_4425 = 
(BgL_objectz00_bglt)(BgL_new3126z00_4423); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4425, BgL_arg4118z00_4424); } } 
{ /* ./Cgen/cop.scm 74 */
BgL_objectz00_bglt BgL_auxz00_5549;
BgL_auxz00_5549 = 
(BgL_objectz00_bglt)(BgL_new3126z00_4423); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5549, BFALSE); } 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_objz00_4426;
BgL_objz00_4426 = 
(obj_t)(BgL_new3126z00_4423); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4426); BUNSPEC; } 
BgL_res6977z00_4427 = BgL_new3126z00_4423; } 
BgL_auxz00_5544 = BgL_res6977z00_4427; } 
return 
(obj_t)(BgL_auxz00_5544);} } 
}



/* cif? */
BGL_EXPORTED_DEF bool_t BGl_cifzf3zf3zzcgen_copz00(obj_t BgL_obj3111z00_182)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 69 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3111z00_182, BGl_cifz00zzcgen_copz00);} 
}



/* _cif? */
obj_t BGl__cifzf3zf3zzcgen_copz00(obj_t BgL_envz00_3806, obj_t BgL_obj3111z00_3807)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 69 */
{ /* ./Cgen/cop.scm 69 */
bool_t BgL_auxz00_5556;
BgL_auxz00_5556 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3111z00_3807, BGl_cifz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5556);} } 
}



/* make-cif */
BGL_EXPORTED_DEF BgL_cifz00_bglt BGl_makezd2cifzd2zzcgen_copz00(obj_t BgL_loc3076z00_186, BgL_copz00_bglt BgL_test3077z00_187, BgL_copz00_bglt BgL_true3078z00_188, BgL_copz00_bglt BgL_false3079z00_189)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 69 */
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_new3080z00_2622;
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_res5567z00_2628;
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_new3092z00_2623;
BgL_new3092z00_2623 = 
((BgL_cifz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cifz00_bgl) ))); 
{ /* ./Cgen/cop.scm 69 */
long BgL_arg4127z00_2624;
BgL_arg4127z00_2624 = 
BGl_classzd2numzd2zz__objectz00(BGl_cifz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 69 */
BgL_objectz00_bglt BgL_objz00_2625;
BgL_objz00_2625 = 
(BgL_objectz00_bglt)(BgL_new3092z00_2623); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2625, BgL_arg4127z00_2624); } } 
{ /* ./Cgen/cop.scm 69 */
BgL_objectz00_bglt BgL_auxz00_5563;
BgL_auxz00_5563 = 
(BgL_objectz00_bglt)(BgL_new3092z00_2623); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5563, BFALSE); } 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_objz00_2627;
BgL_objz00_2627 = 
(obj_t)(BgL_new3092z00_2623); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2627); BUNSPEC; } 
BgL_res5567z00_2628 = BgL_new3092z00_2623; } 
BgL_new3080z00_2622 = BgL_res5567z00_2628; } 
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_res5568z00_2638;
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_new3086z00_2629;
BgL_new3086z00_2629 = BgL_new3080z00_2622; 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_loc3082z00_2634;BgL_copz00_bglt BgL_test3083z00_2635;BgL_copz00_bglt BgL_true3084z00_2636;BgL_copz00_bglt BgL_false3085z00_2637;
BgL_loc3082z00_2634 = BgL_loc3076z00_186; 
BgL_test3083z00_2635 = BgL_test3077z00_187; 
BgL_true3084z00_2636 = BgL_true3078z00_188; 
BgL_false3085z00_2637 = BgL_false3079z00_189; 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_2629))->BgL_locz00) = ((obj_t)BgL_loc3082z00_2634), BUNSPEC); 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_2629))->BgL_testz00) = ((BgL_copz00_bglt)BgL_test3083z00_2635), BUNSPEC); 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_2629))->BgL_truez00) = ((BgL_copz00_bglt)BgL_true3084z00_2636), BUNSPEC); 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_2629))->BgL_falsez00) = ((BgL_copz00_bglt)BgL_false3085z00_2637), BUNSPEC); 
BgL_res5568z00_2638 = BgL_new3086z00_2629; } } BgL_res5568z00_2638; } 
return BgL_new3080z00_2622;} } 
}



/* _make-cif5694 */
obj_t BGl__makezd2cif5694zd2zzcgen_copz00(obj_t BgL_envz00_3808, obj_t BgL_loc3076z00_3809, obj_t BgL_test3077z00_3810, obj_t BgL_true3078z00_3811, obj_t BgL_false3079z00_3812)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 69 */
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_auxz00_5572;
BgL_auxz00_5572 = 
BGl_makezd2cifzd2zzcgen_copz00(BgL_loc3076z00_3809, 
(BgL_copz00_bglt)(BgL_test3077z00_3810), 
(BgL_copz00_bglt)(BgL_true3078z00_3811), 
(BgL_copz00_bglt)(BgL_false3079z00_3812)); 
return 
(obj_t)(BgL_auxz00_5572);} } 
}



/* fill-cif! */
BGL_EXPORTED_DEF BgL_cifz00_bglt BGl_fillzd2cifz12zc0zzcgen_copz00(BgL_cifz00_bglt BgL_new3086z00_190, obj_t BgL_loc3082z00_191, BgL_copz00_bglt BgL_test3083z00_192, BgL_copz00_bglt BgL_true3084z00_193, BgL_copz00_bglt BgL_false3085z00_194)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 69 */
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_loc3082z00_4429;BgL_copz00_bglt BgL_test3083z00_4430;BgL_copz00_bglt BgL_true3084z00_4431;BgL_copz00_bglt BgL_false3085z00_4432;
BgL_loc3082z00_4429 = BgL_loc3082z00_191; 
BgL_test3083z00_4430 = BgL_test3083z00_192; 
BgL_true3084z00_4431 = BgL_true3084z00_193; 
BgL_false3085z00_4432 = BgL_false3085z00_194; 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_190))->BgL_locz00) = ((obj_t)BgL_loc3082z00_4429), BUNSPEC); 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_190))->BgL_testz00) = ((BgL_copz00_bglt)BgL_test3083z00_4430), BUNSPEC); 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_190))->BgL_truez00) = ((BgL_copz00_bglt)BgL_true3084z00_4431), BUNSPEC); 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_190))->BgL_falsez00) = ((BgL_copz00_bglt)BgL_false3085z00_4432), BUNSPEC); 
return BgL_new3086z00_190;} } 
}



/* _fill-cif!5696 */
obj_t BGl__fillzd2cifz125696zc0zzcgen_copz00(obj_t BgL_envz00_3813, obj_t BgL_new3086z00_3814, obj_t BgL_loc3082z00_3815, obj_t BgL_test3083z00_3816, obj_t BgL_true3084z00_3817, obj_t BgL_false3085z00_3818)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 69 */
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_auxz00_5582;
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_res6978z00_4442;
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_new3086z00_4433;BgL_copz00_bglt BgL_test3083z00_4435;BgL_copz00_bglt BgL_true3084z00_4436;BgL_copz00_bglt BgL_false3085z00_4437;
BgL_new3086z00_4433 = 
(BgL_cifz00_bglt)(BgL_new3086z00_3814); 
BgL_test3083z00_4435 = 
(BgL_copz00_bglt)(BgL_test3083z00_3816); 
BgL_true3084z00_4436 = 
(BgL_copz00_bglt)(BgL_true3084z00_3817); 
BgL_false3085z00_4437 = 
(BgL_copz00_bglt)(BgL_false3085z00_3818); 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_loc3082z00_4438;BgL_copz00_bglt BgL_test3083z00_4439;BgL_copz00_bglt BgL_true3084z00_4440;BgL_copz00_bglt BgL_false3085z00_4441;
BgL_loc3082z00_4438 = BgL_loc3082z00_3815; 
BgL_test3083z00_4439 = BgL_test3083z00_4435; 
BgL_true3084z00_4440 = BgL_true3084z00_4436; 
BgL_false3085z00_4441 = BgL_false3085z00_4437; 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_4433))->BgL_locz00) = ((obj_t)BgL_loc3082z00_4438), BUNSPEC); 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_4433))->BgL_testz00) = ((BgL_copz00_bglt)BgL_test3083z00_4439), BUNSPEC); 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_4433))->BgL_truez00) = ((BgL_copz00_bglt)BgL_true3084z00_4440), BUNSPEC); 
((((BgL_cifz00_bglt)CREF(BgL_new3086z00_4433))->BgL_falsez00) = ((BgL_copz00_bglt)BgL_false3085z00_4441), BUNSPEC); 
BgL_res6978z00_4442 = BgL_new3086z00_4433; } } 
BgL_auxz00_5582 = BgL_res6978z00_4442; } 
return 
(obj_t)(BgL_auxz00_5582);} } 
}



/* allocate-cif */
BGL_EXPORTED_DEF BgL_cifz00_bglt BGl_allocatezd2cifzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 69 */
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_new3092z00_4443;
BgL_new3092z00_4443 = 
((BgL_cifz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cifz00_bgl) ))); 
{ /* ./Cgen/cop.scm 69 */
long BgL_arg4127z00_4444;
BgL_arg4127z00_4444 = 
BGl_classzd2numzd2zz__objectz00(BGl_cifz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 69 */
BgL_objectz00_bglt BgL_objz00_4445;
BgL_objz00_4445 = 
(BgL_objectz00_bglt)(BgL_new3092z00_4443); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4445, BgL_arg4127z00_4444); } } 
{ /* ./Cgen/cop.scm 69 */
BgL_objectz00_bglt BgL_auxz00_5596;
BgL_auxz00_5596 = 
(BgL_objectz00_bglt)(BgL_new3092z00_4443); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5596, BFALSE); } 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_objz00_4446;
BgL_objz00_4446 = 
(obj_t)(BgL_new3092z00_4443); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4446); BUNSPEC; } 
return BgL_new3092z00_4443;} } 
}



/* _allocate-cif */
obj_t BGl__allocatezd2cifzd2zzcgen_copz00(obj_t BgL_envz00_3637)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 69 */
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_auxz00_5601;
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_res6979z00_4451;
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_new3092z00_4447;
BgL_new3092z00_4447 = 
((BgL_cifz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cifz00_bgl) ))); 
{ /* ./Cgen/cop.scm 69 */
long BgL_arg4127z00_4448;
BgL_arg4127z00_4448 = 
BGl_classzd2numzd2zz__objectz00(BGl_cifz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 69 */
BgL_objectz00_bglt BgL_objz00_4449;
BgL_objz00_4449 = 
(BgL_objectz00_bglt)(BgL_new3092z00_4447); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4449, BgL_arg4127z00_4448); } } 
{ /* ./Cgen/cop.scm 69 */
BgL_objectz00_bglt BgL_auxz00_5606;
BgL_auxz00_5606 = 
(BgL_objectz00_bglt)(BgL_new3092z00_4447); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5606, BFALSE); } 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_objz00_4450;
BgL_objz00_4450 = 
(obj_t)(BgL_new3092z00_4447); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4450); BUNSPEC; } 
BgL_res6979z00_4451 = BgL_new3092z00_4447; } 
BgL_auxz00_5601 = BgL_res6979z00_4451; } 
return 
(obj_t)(BgL_auxz00_5601);} } 
}



/* csetq? */
BGL_EXPORTED_DEF bool_t BGl_csetqzf3zf3zzcgen_copz00(obj_t BgL_obj3069z00_198)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 65 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3069z00_198, BGl_csetqz00zzcgen_copz00);} 
}



/* _csetq? */
obj_t BGl__csetqzf3zf3zzcgen_copz00(obj_t BgL_envz00_3819, obj_t BgL_obj3069z00_3820)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 65 */
{ /* ./Cgen/cop.scm 65 */
bool_t BgL_auxz00_5613;
BgL_auxz00_5613 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3069z00_3820, BGl_csetqz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5613);} } 
}



/* make-csetq */
BGL_EXPORTED_DEF BgL_csetqz00_bglt BGl_makezd2csetqzd2zzcgen_copz00(obj_t BgL_loc3041z00_202, BgL_varcz00_bglt BgL_var3042z00_203, BgL_copz00_bglt BgL_value3043z00_204)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 65 */
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_new3044z00_2648;
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_res5569z00_2654;
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_new3054z00_2649;
BgL_new3054z00_2649 = 
((BgL_csetqz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_csetqz00_bgl) ))); 
{ /* ./Cgen/cop.scm 65 */
long BgL_arg4136z00_2650;
BgL_arg4136z00_2650 = 
BGl_classzd2numzd2zz__objectz00(BGl_csetqz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 65 */
BgL_objectz00_bglt BgL_objz00_2651;
BgL_objz00_2651 = 
(BgL_objectz00_bglt)(BgL_new3054z00_2649); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2651, BgL_arg4136z00_2650); } } 
{ /* ./Cgen/cop.scm 65 */
BgL_objectz00_bglt BgL_auxz00_5620;
BgL_auxz00_5620 = 
(BgL_objectz00_bglt)(BgL_new3054z00_2649); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5620, BFALSE); } 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_objz00_2653;
BgL_objz00_2653 = 
(obj_t)(BgL_new3054z00_2649); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2653); BUNSPEC; } 
BgL_res5569z00_2654 = BgL_new3054z00_2649; } 
BgL_new3044z00_2648 = BgL_res5569z00_2654; } 
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_res5570z00_2662;
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_new3049z00_2655;
BgL_new3049z00_2655 = BgL_new3044z00_2648; 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_loc3046z00_2659;BgL_varcz00_bglt BgL_var3047z00_2660;BgL_copz00_bglt BgL_value3048z00_2661;
BgL_loc3046z00_2659 = BgL_loc3041z00_202; 
BgL_var3047z00_2660 = BgL_var3042z00_203; 
BgL_value3048z00_2661 = BgL_value3043z00_204; 
((((BgL_csetqz00_bglt)CREF(BgL_new3049z00_2655))->BgL_locz00) = ((obj_t)BgL_loc3046z00_2659), BUNSPEC); 
((((BgL_csetqz00_bglt)CREF(BgL_new3049z00_2655))->BgL_varz00) = ((BgL_varcz00_bglt)BgL_var3047z00_2660), BUNSPEC); 
((((BgL_csetqz00_bglt)CREF(BgL_new3049z00_2655))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3048z00_2661), BUNSPEC); 
BgL_res5570z00_2662 = BgL_new3049z00_2655; } } BgL_res5570z00_2662; } 
return BgL_new3044z00_2648;} } 
}



/* _make-csetq5699 */
obj_t BGl__makezd2csetq5699zd2zzcgen_copz00(obj_t BgL_envz00_3821, obj_t BgL_loc3041z00_3822, obj_t BgL_var3042z00_3823, obj_t BgL_value3043z00_3824)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 65 */
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_auxz00_5628;
BgL_auxz00_5628 = 
BGl_makezd2csetqzd2zzcgen_copz00(BgL_loc3041z00_3822, 
(BgL_varcz00_bglt)(BgL_var3042z00_3823), 
(BgL_copz00_bglt)(BgL_value3043z00_3824)); 
return 
(obj_t)(BgL_auxz00_5628);} } 
}



/* fill-csetq! */
BGL_EXPORTED_DEF BgL_csetqz00_bglt BGl_fillzd2csetqz12zc0zzcgen_copz00(BgL_csetqz00_bglt BgL_new3049z00_205, obj_t BgL_loc3046z00_206, BgL_varcz00_bglt BgL_var3047z00_207, BgL_copz00_bglt BgL_value3048z00_208)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 65 */
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_loc3046z00_4453;BgL_varcz00_bglt BgL_var3047z00_4454;BgL_copz00_bglt BgL_value3048z00_4455;
BgL_loc3046z00_4453 = BgL_loc3046z00_206; 
BgL_var3047z00_4454 = BgL_var3047z00_207; 
BgL_value3048z00_4455 = BgL_value3048z00_208; 
((((BgL_csetqz00_bglt)CREF(BgL_new3049z00_205))->BgL_locz00) = ((obj_t)BgL_loc3046z00_4453), BUNSPEC); 
((((BgL_csetqz00_bglt)CREF(BgL_new3049z00_205))->BgL_varz00) = ((BgL_varcz00_bglt)BgL_var3047z00_4454), BUNSPEC); 
((((BgL_csetqz00_bglt)CREF(BgL_new3049z00_205))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3048z00_4455), BUNSPEC); 
return BgL_new3049z00_205;} } 
}



/* _fill-csetq!5701 */
obj_t BGl__fillzd2csetqz125701zc0zzcgen_copz00(obj_t BgL_envz00_3825, obj_t BgL_new3049z00_3826, obj_t BgL_loc3046z00_3827, obj_t BgL_var3047z00_3828, obj_t BgL_value3048z00_3829)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 65 */
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_auxz00_5636;
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_res6980z00_4463;
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_new3049z00_4456;BgL_varcz00_bglt BgL_var3047z00_4458;BgL_copz00_bglt BgL_value3048z00_4459;
BgL_new3049z00_4456 = 
(BgL_csetqz00_bglt)(BgL_new3049z00_3826); 
BgL_var3047z00_4458 = 
(BgL_varcz00_bglt)(BgL_var3047z00_3828); 
BgL_value3048z00_4459 = 
(BgL_copz00_bglt)(BgL_value3048z00_3829); 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_loc3046z00_4460;BgL_varcz00_bglt BgL_var3047z00_4461;BgL_copz00_bglt BgL_value3048z00_4462;
BgL_loc3046z00_4460 = BgL_loc3046z00_3827; 
BgL_var3047z00_4461 = BgL_var3047z00_4458; 
BgL_value3048z00_4462 = BgL_value3048z00_4459; 
((((BgL_csetqz00_bglt)CREF(BgL_new3049z00_4456))->BgL_locz00) = ((obj_t)BgL_loc3046z00_4460), BUNSPEC); 
((((BgL_csetqz00_bglt)CREF(BgL_new3049z00_4456))->BgL_varz00) = ((BgL_varcz00_bglt)BgL_var3047z00_4461), BUNSPEC); 
((((BgL_csetqz00_bglt)CREF(BgL_new3049z00_4456))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3048z00_4462), BUNSPEC); 
BgL_res6980z00_4463 = BgL_new3049z00_4456; } } 
BgL_auxz00_5636 = BgL_res6980z00_4463; } 
return 
(obj_t)(BgL_auxz00_5636);} } 
}



/* allocate-csetq */
BGL_EXPORTED_DEF BgL_csetqz00_bglt BGl_allocatezd2csetqzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 65 */
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_new3054z00_4464;
BgL_new3054z00_4464 = 
((BgL_csetqz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_csetqz00_bgl) ))); 
{ /* ./Cgen/cop.scm 65 */
long BgL_arg4136z00_4465;
BgL_arg4136z00_4465 = 
BGl_classzd2numzd2zz__objectz00(BGl_csetqz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 65 */
BgL_objectz00_bglt BgL_objz00_4466;
BgL_objz00_4466 = 
(BgL_objectz00_bglt)(BgL_new3054z00_4464); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4466, BgL_arg4136z00_4465); } } 
{ /* ./Cgen/cop.scm 65 */
BgL_objectz00_bglt BgL_auxz00_5648;
BgL_auxz00_5648 = 
(BgL_objectz00_bglt)(BgL_new3054z00_4464); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5648, BFALSE); } 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_objz00_4467;
BgL_objz00_4467 = 
(obj_t)(BgL_new3054z00_4464); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4467); BUNSPEC; } 
return BgL_new3054z00_4464;} } 
}



/* _allocate-csetq */
obj_t BGl__allocatezd2csetqzd2zzcgen_copz00(obj_t BgL_envz00_3636)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 65 */
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_auxz00_5653;
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_res6981z00_4472;
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_new3054z00_4468;
BgL_new3054z00_4468 = 
((BgL_csetqz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_csetqz00_bgl) ))); 
{ /* ./Cgen/cop.scm 65 */
long BgL_arg4136z00_4469;
BgL_arg4136z00_4469 = 
BGl_classzd2numzd2zz__objectz00(BGl_csetqz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 65 */
BgL_objectz00_bglt BgL_objz00_4470;
BgL_objz00_4470 = 
(BgL_objectz00_bglt)(BgL_new3054z00_4468); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4470, BgL_arg4136z00_4469); } } 
{ /* ./Cgen/cop.scm 65 */
BgL_objectz00_bglt BgL_auxz00_5658;
BgL_auxz00_5658 = 
(BgL_objectz00_bglt)(BgL_new3054z00_4468); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5658, BFALSE); } 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_objz00_4471;
BgL_objz00_4471 = 
(obj_t)(BgL_new3054z00_4468); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4471); BUNSPEC; } 
BgL_res6981z00_4472 = BgL_new3054z00_4468; } 
BgL_auxz00_5653 = BgL_res6981z00_4472; } 
return 
(obj_t)(BgL_auxz00_5653);} } 
}



/* stop? */
BGL_EXPORTED_DEF bool_t BGl_stopzf3zf3zzcgen_copz00(obj_t BgL_obj3035z00_211)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 62 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3035z00_211, BGl_stopz00zzcgen_copz00);} 
}



/* _stop? */
obj_t BGl__stopzf3zf3zzcgen_copz00(obj_t BgL_envz00_3830, obj_t BgL_obj3035z00_3831)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 62 */
{ /* ./Cgen/cop.scm 62 */
bool_t BgL_auxz00_5665;
BgL_auxz00_5665 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3035z00_3831, BGl_stopz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5665);} } 
}



/* make-stop */
BGL_EXPORTED_DEF BgL_stopz00_bglt BGl_makezd2stopzd2zzcgen_copz00(obj_t BgL_loc3014z00_215, BgL_copz00_bglt BgL_value3015z00_216)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 62 */
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_new3016z00_2671;
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_res5571z00_2677;
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_new3024z00_2672;
BgL_new3024z00_2672 = 
((BgL_stopz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_stopz00_bgl) ))); 
{ /* ./Cgen/cop.scm 62 */
long BgL_arg4145z00_2673;
BgL_arg4145z00_2673 = 
BGl_classzd2numzd2zz__objectz00(BGl_stopz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 62 */
BgL_objectz00_bglt BgL_objz00_2674;
BgL_objz00_2674 = 
(BgL_objectz00_bglt)(BgL_new3024z00_2672); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2674, BgL_arg4145z00_2673); } } 
{ /* ./Cgen/cop.scm 62 */
BgL_objectz00_bglt BgL_auxz00_5672;
BgL_auxz00_5672 = 
(BgL_objectz00_bglt)(BgL_new3024z00_2672); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5672, BFALSE); } 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_objz00_2676;
BgL_objz00_2676 = 
(obj_t)(BgL_new3024z00_2672); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2676); BUNSPEC; } 
BgL_res5571z00_2677 = BgL_new3024z00_2672; } 
BgL_new3016z00_2671 = BgL_res5571z00_2677; } 
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_res5572z00_2683;
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_new3020z00_2678;
BgL_new3020z00_2678 = BgL_new3016z00_2671; 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_loc3018z00_2681;BgL_copz00_bglt BgL_value3019z00_2682;
BgL_loc3018z00_2681 = BgL_loc3014z00_215; 
BgL_value3019z00_2682 = BgL_value3015z00_216; 
((((BgL_stopz00_bglt)CREF(BgL_new3020z00_2678))->BgL_locz00) = ((obj_t)BgL_loc3018z00_2681), BUNSPEC); 
((((BgL_stopz00_bglt)CREF(BgL_new3020z00_2678))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3019z00_2682), BUNSPEC); 
BgL_res5572z00_2683 = BgL_new3020z00_2678; } } BgL_res5572z00_2683; } 
return BgL_new3016z00_2671;} } 
}



/* _make-stop5704 */
obj_t BGl__makezd2stop5704zd2zzcgen_copz00(obj_t BgL_envz00_3832, obj_t BgL_loc3014z00_3833, obj_t BgL_value3015z00_3834)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 62 */
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_auxz00_5679;
BgL_auxz00_5679 = 
BGl_makezd2stopzd2zzcgen_copz00(BgL_loc3014z00_3833, 
(BgL_copz00_bglt)(BgL_value3015z00_3834)); 
return 
(obj_t)(BgL_auxz00_5679);} } 
}



/* fill-stop! */
BGL_EXPORTED_DEF BgL_stopz00_bglt BGl_fillzd2stopz12zc0zzcgen_copz00(BgL_stopz00_bglt BgL_new3020z00_217, obj_t BgL_loc3018z00_218, BgL_copz00_bglt BgL_value3019z00_219)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 62 */
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_loc3018z00_4474;BgL_copz00_bglt BgL_value3019z00_4475;
BgL_loc3018z00_4474 = BgL_loc3018z00_218; 
BgL_value3019z00_4475 = BgL_value3019z00_219; 
((((BgL_stopz00_bglt)CREF(BgL_new3020z00_217))->BgL_locz00) = ((obj_t)BgL_loc3018z00_4474), BUNSPEC); 
((((BgL_stopz00_bglt)CREF(BgL_new3020z00_217))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3019z00_4475), BUNSPEC); 
return BgL_new3020z00_217;} } 
}



/* _fill-stop!5706 */
obj_t BGl__fillzd2stopz125706zc0zzcgen_copz00(obj_t BgL_envz00_3835, obj_t BgL_new3020z00_3836, obj_t BgL_loc3018z00_3837, obj_t BgL_value3019z00_3838)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 62 */
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_auxz00_5685;
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_res6982z00_4481;
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_new3020z00_4476;BgL_copz00_bglt BgL_value3019z00_4478;
BgL_new3020z00_4476 = 
(BgL_stopz00_bglt)(BgL_new3020z00_3836); 
BgL_value3019z00_4478 = 
(BgL_copz00_bglt)(BgL_value3019z00_3838); 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_loc3018z00_4479;BgL_copz00_bglt BgL_value3019z00_4480;
BgL_loc3018z00_4479 = BgL_loc3018z00_3837; 
BgL_value3019z00_4480 = BgL_value3019z00_4478; 
((((BgL_stopz00_bglt)CREF(BgL_new3020z00_4476))->BgL_locz00) = ((obj_t)BgL_loc3018z00_4479), BUNSPEC); 
((((BgL_stopz00_bglt)CREF(BgL_new3020z00_4476))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value3019z00_4480), BUNSPEC); 
BgL_res6982z00_4481 = BgL_new3020z00_4476; } } 
BgL_auxz00_5685 = BgL_res6982z00_4481; } 
return 
(obj_t)(BgL_auxz00_5685);} } 
}



/* allocate-stop */
BGL_EXPORTED_DEF BgL_stopz00_bglt BGl_allocatezd2stopzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 62 */
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_new3024z00_4482;
BgL_new3024z00_4482 = 
((BgL_stopz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_stopz00_bgl) ))); 
{ /* ./Cgen/cop.scm 62 */
long BgL_arg4145z00_4483;
BgL_arg4145z00_4483 = 
BGl_classzd2numzd2zz__objectz00(BGl_stopz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 62 */
BgL_objectz00_bglt BgL_objz00_4484;
BgL_objz00_4484 = 
(BgL_objectz00_bglt)(BgL_new3024z00_4482); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4484, BgL_arg4145z00_4483); } } 
{ /* ./Cgen/cop.scm 62 */
BgL_objectz00_bglt BgL_auxz00_5695;
BgL_auxz00_5695 = 
(BgL_objectz00_bglt)(BgL_new3024z00_4482); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5695, BFALSE); } 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_objz00_4485;
BgL_objz00_4485 = 
(obj_t)(BgL_new3024z00_4482); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4485); BUNSPEC; } 
return BgL_new3024z00_4482;} } 
}



/* _allocate-stop */
obj_t BGl__allocatezd2stopzd2zzcgen_copz00(obj_t BgL_envz00_3635)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 62 */
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_auxz00_5700;
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_res6983z00_4490;
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_new3024z00_4486;
BgL_new3024z00_4486 = 
((BgL_stopz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_stopz00_bgl) ))); 
{ /* ./Cgen/cop.scm 62 */
long BgL_arg4145z00_4487;
BgL_arg4145z00_4487 = 
BGl_classzd2numzd2zz__objectz00(BGl_stopz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 62 */
BgL_objectz00_bglt BgL_objz00_4488;
BgL_objz00_4488 = 
(BgL_objectz00_bglt)(BgL_new3024z00_4486); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4488, BgL_arg4145z00_4487); } } 
{ /* ./Cgen/cop.scm 62 */
BgL_objectz00_bglt BgL_auxz00_5705;
BgL_auxz00_5705 = 
(BgL_objectz00_bglt)(BgL_new3024z00_4486); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5705, BFALSE); } 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_objz00_4489;
BgL_objz00_4489 = 
(obj_t)(BgL_new3024z00_4486); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4489); BUNSPEC; } 
BgL_res6983z00_4490 = BgL_new3024z00_4486; } 
BgL_auxz00_5700 = BgL_res6983z00_4490; } 
return 
(obj_t)(BgL_auxz00_5700);} } 
}



/* nop? */
BGL_EXPORTED_DEF bool_t BGl_nopzf3zf3zzcgen_copz00(obj_t BgL_obj3008z00_221)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 60 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3008z00_221, BGl_nopz00zzcgen_copz00);} 
}



/* _nop? */
obj_t BGl__nopzf3zf3zzcgen_copz00(obj_t BgL_envz00_3839, obj_t BgL_obj3008z00_3840)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 60 */
{ /* ./Cgen/cop.scm 60 */
bool_t BgL_auxz00_5712;
BgL_auxz00_5712 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj3008z00_3840, BGl_nopz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5712);} } 
}



/* make-nop */
BGL_EXPORTED_DEF BgL_nopz00_bglt BGl_makezd2nopzd2zzcgen_copz00(obj_t BgL_loc2994z00_225)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 60 */
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_new2995z00_2691;
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_res5573z00_2697;
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_new3001z00_2692;
BgL_new3001z00_2692 = 
((BgL_nopz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_nopz00_bgl) ))); 
{ /* ./Cgen/cop.scm 60 */
long BgL_arg4154z00_2693;
BgL_arg4154z00_2693 = 
BGl_classzd2numzd2zz__objectz00(BGl_nopz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 60 */
BgL_objectz00_bglt BgL_objz00_2694;
BgL_objz00_2694 = 
(BgL_objectz00_bglt)(BgL_new3001z00_2692); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2694, BgL_arg4154z00_2693); } } 
{ /* ./Cgen/cop.scm 60 */
BgL_objectz00_bglt BgL_auxz00_5719;
BgL_auxz00_5719 = 
(BgL_objectz00_bglt)(BgL_new3001z00_2692); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5719, BFALSE); } 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_objz00_2696;
BgL_objz00_2696 = 
(obj_t)(BgL_new3001z00_2692); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2696); BUNSPEC; } 
BgL_res5573z00_2697 = BgL_new3001z00_2692; } 
BgL_new2995z00_2691 = BgL_res5573z00_2697; } 
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_res5574z00_2701;
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_new2998z00_2698;
BgL_new2998z00_2698 = BgL_new2995z00_2691; 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_loc2997z00_2700;
BgL_loc2997z00_2700 = BgL_loc2994z00_225; 
((((BgL_nopz00_bglt)CREF(BgL_new2998z00_2698))->BgL_locz00) = ((obj_t)BgL_loc2997z00_2700), BUNSPEC); 
BgL_res5574z00_2701 = BgL_new2998z00_2698; } } BgL_res5574z00_2701; } 
return BgL_new2995z00_2691;} } 
}



/* _make-nop */
obj_t BGl__makezd2nopzd2zzcgen_copz00(obj_t BgL_envz00_3841, obj_t BgL_loc2994z00_3842)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 60 */
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_auxz00_5725;
BgL_auxz00_5725 = 
BGl_makezd2nopzd2zzcgen_copz00(BgL_loc2994z00_3842); 
return 
(obj_t)(BgL_auxz00_5725);} } 
}



/* fill-nop! */
BGL_EXPORTED_DEF BgL_nopz00_bglt BGl_fillzd2nopz12zc0zzcgen_copz00(BgL_nopz00_bglt BgL_new2998z00_226, obj_t BgL_loc2997z00_227)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 60 */
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_loc2997z00_4492;
BgL_loc2997z00_4492 = BgL_loc2997z00_227; 
((((BgL_nopz00_bglt)CREF(BgL_new2998z00_226))->BgL_locz00) = ((obj_t)BgL_loc2997z00_4492), BUNSPEC); 
return BgL_new2998z00_226;} } 
}



/* _fill-nop!5710 */
obj_t BGl__fillzd2nopz125710zc0zzcgen_copz00(obj_t BgL_envz00_3843, obj_t BgL_new2998z00_3844, obj_t BgL_loc2997z00_3845)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 60 */
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_auxz00_5729;
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_res6984z00_4496;
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_new2998z00_4493;
BgL_new2998z00_4493 = 
(BgL_nopz00_bglt)(BgL_new2998z00_3844); 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_loc2997z00_4495;
BgL_loc2997z00_4495 = BgL_loc2997z00_3845; 
((((BgL_nopz00_bglt)CREF(BgL_new2998z00_4493))->BgL_locz00) = ((obj_t)BgL_loc2997z00_4495), BUNSPEC); 
BgL_res6984z00_4496 = BgL_new2998z00_4493; } } 
BgL_auxz00_5729 = BgL_res6984z00_4496; } 
return 
(obj_t)(BgL_auxz00_5729);} } 
}



/* allocate-nop */
BGL_EXPORTED_DEF BgL_nopz00_bglt BGl_allocatezd2nopzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 60 */
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_new3001z00_4497;
BgL_new3001z00_4497 = 
((BgL_nopz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_nopz00_bgl) ))); 
{ /* ./Cgen/cop.scm 60 */
long BgL_arg4154z00_4498;
BgL_arg4154z00_4498 = 
BGl_classzd2numzd2zz__objectz00(BGl_nopz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 60 */
BgL_objectz00_bglt BgL_objz00_4499;
BgL_objz00_4499 = 
(BgL_objectz00_bglt)(BgL_new3001z00_4497); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4499, BgL_arg4154z00_4498); } } 
{ /* ./Cgen/cop.scm 60 */
BgL_objectz00_bglt BgL_auxz00_5737;
BgL_auxz00_5737 = 
(BgL_objectz00_bglt)(BgL_new3001z00_4497); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5737, BFALSE); } 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_objz00_4500;
BgL_objz00_4500 = 
(obj_t)(BgL_new3001z00_4497); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4500); BUNSPEC; } 
return BgL_new3001z00_4497;} } 
}



/* _allocate-nop */
obj_t BGl__allocatezd2nopzd2zzcgen_copz00(obj_t BgL_envz00_3634)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 60 */
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_auxz00_5742;
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_res6985z00_4505;
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_new3001z00_4501;
BgL_new3001z00_4501 = 
((BgL_nopz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_nopz00_bgl) ))); 
{ /* ./Cgen/cop.scm 60 */
long BgL_arg4154z00_4502;
BgL_arg4154z00_4502 = 
BGl_classzd2numzd2zz__objectz00(BGl_nopz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 60 */
BgL_objectz00_bglt BgL_objz00_4503;
BgL_objz00_4503 = 
(BgL_objectz00_bglt)(BgL_new3001z00_4501); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4503, BgL_arg4154z00_4502); } } 
{ /* ./Cgen/cop.scm 60 */
BgL_objectz00_bglt BgL_auxz00_5747;
BgL_auxz00_5747 = 
(BgL_objectz00_bglt)(BgL_new3001z00_4501); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5747, BFALSE); } 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_objz00_4504;
BgL_objz00_4504 = 
(obj_t)(BgL_new3001z00_4501); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4504); BUNSPEC; } 
BgL_res6985z00_4505 = BgL_new3001z00_4501; } 
BgL_auxz00_5742 = BgL_res6985z00_4505; } 
return 
(obj_t)(BgL_auxz00_5742);} } 
}



/* csequence? */
BGL_EXPORTED_DEF bool_t BGl_csequencezf3zf3zzcgen_copz00(obj_t BgL_obj2990z00_228)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 56 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2990z00_228, BGl_csequencez00zzcgen_copz00);} 
}



/* _csequence? */
obj_t BGl__csequencezf3zf3zzcgen_copz00(obj_t BgL_envz00_3846, obj_t BgL_obj2990z00_3847)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 56 */
{ /* ./Cgen/cop.scm 56 */
bool_t BgL_auxz00_5754;
BgL_auxz00_5754 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2990z00_3847, BGl_csequencez00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5754);} } 
}



/* make-csequence */
BGL_EXPORTED_DEF BgL_csequencez00_bglt BGl_makezd2csequencezd2zzcgen_copz00(obj_t BgL_loc2962z00_232, bool_t BgL_czd2expzf32963z21_233, obj_t BgL_cops2964z00_234)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 56 */
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_new2965z00_2708;
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_res5575z00_2714;
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_new2975z00_2709;
BgL_new2975z00_2709 = 
((BgL_csequencez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_csequencez00_bgl) ))); 
{ /* ./Cgen/cop.scm 56 */
long BgL_arg4163z00_2710;
BgL_arg4163z00_2710 = 
BGl_classzd2numzd2zz__objectz00(BGl_csequencez00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 56 */
BgL_objectz00_bglt BgL_objz00_2711;
BgL_objz00_2711 = 
(BgL_objectz00_bglt)(BgL_new2975z00_2709); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2711, BgL_arg4163z00_2710); } } 
{ /* ./Cgen/cop.scm 56 */
BgL_objectz00_bglt BgL_auxz00_5761;
BgL_auxz00_5761 = 
(BgL_objectz00_bglt)(BgL_new2975z00_2709); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5761, BFALSE); } 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_objz00_2713;
BgL_objz00_2713 = 
(obj_t)(BgL_new2975z00_2709); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2713); BUNSPEC; } 
BgL_res5575z00_2714 = BgL_new2975z00_2709; } 
BgL_new2965z00_2708 = BgL_res5575z00_2714; } 
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_res5576z00_2722;
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_new2970z00_2715;
BgL_new2970z00_2715 = BgL_new2965z00_2708; 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_loc2967z00_2719;bool_t BgL_czd2expzf32968z21_2720;obj_t BgL_cops2969z00_2721;
BgL_loc2967z00_2719 = BgL_loc2962z00_232; 
BgL_czd2expzf32968z21_2720 = BgL_czd2expzf32963z21_233; 
BgL_cops2969z00_2721 = BgL_cops2964z00_234; 
((((BgL_csequencez00_bglt)CREF(BgL_new2970z00_2715))->BgL_locz00) = ((obj_t)BgL_loc2967z00_2719), BUNSPEC); 
((((BgL_csequencez00_bglt)CREF(BgL_new2970z00_2715))->BgL_czd2expzf3z21) = ((bool_t)BgL_czd2expzf32968z21_2720), BUNSPEC); 
((((BgL_csequencez00_bglt)CREF(BgL_new2970z00_2715))->BgL_copsz00) = ((obj_t)BgL_cops2969z00_2721), BUNSPEC); 
BgL_res5576z00_2722 = BgL_new2970z00_2715; } } BgL_res5576z00_2722; } 
return BgL_new2965z00_2708;} } 
}



/* _make-csequence */
obj_t BGl__makezd2csequencezd2zzcgen_copz00(obj_t BgL_envz00_3848, obj_t BgL_loc2962z00_3849, obj_t BgL_czd2expzf32963z21_3850, obj_t BgL_cops2964z00_3851)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 56 */
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_auxz00_5769;
BgL_auxz00_5769 = 
BGl_makezd2csequencezd2zzcgen_copz00(BgL_loc2962z00_3849, 
CBOOL(BgL_czd2expzf32963z21_3850), BgL_cops2964z00_3851); 
return 
(obj_t)(BgL_auxz00_5769);} } 
}



/* fill-csequence! */
BGL_EXPORTED_DEF BgL_csequencez00_bglt BGl_fillzd2csequencez12zc0zzcgen_copz00(BgL_csequencez00_bglt BgL_new2970z00_235, obj_t BgL_loc2967z00_236, bool_t BgL_czd2expzf32968z21_237, obj_t BgL_cops2969z00_238)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 56 */
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_loc2967z00_4507;bool_t BgL_czd2expzf32968z21_4508;obj_t BgL_cops2969z00_4509;
BgL_loc2967z00_4507 = BgL_loc2967z00_236; 
BgL_czd2expzf32968z21_4508 = BgL_czd2expzf32968z21_237; 
BgL_cops2969z00_4509 = BgL_cops2969z00_238; 
((((BgL_csequencez00_bglt)CREF(BgL_new2970z00_235))->BgL_locz00) = ((obj_t)BgL_loc2967z00_4507), BUNSPEC); 
((((BgL_csequencez00_bglt)CREF(BgL_new2970z00_235))->BgL_czd2expzf3z21) = ((bool_t)BgL_czd2expzf32968z21_4508), BUNSPEC); 
((((BgL_csequencez00_bglt)CREF(BgL_new2970z00_235))->BgL_copsz00) = ((obj_t)BgL_cops2969z00_4509), BUNSPEC); 
return BgL_new2970z00_235;} } 
}



/* _fill-csequence!5714 */
obj_t BGl__fillzd2csequencez125714zc0zzcgen_copz00(obj_t BgL_envz00_3852, obj_t BgL_new2970z00_3853, obj_t BgL_loc2967z00_3854, obj_t BgL_czd2expzf32968z21_3855, obj_t BgL_cops2969z00_3856)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 56 */
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_auxz00_5776;
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_res6986z00_4517;
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_new2970z00_4510;bool_t BgL_czd2expzf32968z21_4512;
BgL_new2970z00_4510 = 
(BgL_csequencez00_bglt)(BgL_new2970z00_3853); 
BgL_czd2expzf32968z21_4512 = 
CBOOL(BgL_czd2expzf32968z21_3855); 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_loc2967z00_4514;bool_t BgL_czd2expzf32968z21_4515;obj_t BgL_cops2969z00_4516;
BgL_loc2967z00_4514 = BgL_loc2967z00_3854; 
BgL_czd2expzf32968z21_4515 = BgL_czd2expzf32968z21_4512; 
BgL_cops2969z00_4516 = BgL_cops2969z00_3856; 
((((BgL_csequencez00_bglt)CREF(BgL_new2970z00_4510))->BgL_locz00) = ((obj_t)BgL_loc2967z00_4514), BUNSPEC); 
((((BgL_csequencez00_bglt)CREF(BgL_new2970z00_4510))->BgL_czd2expzf3z21) = ((bool_t)BgL_czd2expzf32968z21_4515), BUNSPEC); 
((((BgL_csequencez00_bglt)CREF(BgL_new2970z00_4510))->BgL_copsz00) = ((obj_t)BgL_cops2969z00_4516), BUNSPEC); 
BgL_res6986z00_4517 = BgL_new2970z00_4510; } } 
BgL_auxz00_5776 = BgL_res6986z00_4517; } 
return 
(obj_t)(BgL_auxz00_5776);} } 
}



/* allocate-csequence */
BGL_EXPORTED_DEF BgL_csequencez00_bglt BGl_allocatezd2csequencezd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 56 */
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_new2975z00_4518;
BgL_new2975z00_4518 = 
((BgL_csequencez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_csequencez00_bgl) ))); 
{ /* ./Cgen/cop.scm 56 */
long BgL_arg4163z00_4519;
BgL_arg4163z00_4519 = 
BGl_classzd2numzd2zz__objectz00(BGl_csequencez00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 56 */
BgL_objectz00_bglt BgL_objz00_4520;
BgL_objz00_4520 = 
(BgL_objectz00_bglt)(BgL_new2975z00_4518); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4520, BgL_arg4163z00_4519); } } 
{ /* ./Cgen/cop.scm 56 */
BgL_objectz00_bglt BgL_auxz00_5787;
BgL_auxz00_5787 = 
(BgL_objectz00_bglt)(BgL_new2975z00_4518); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5787, BFALSE); } 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_objz00_4521;
BgL_objz00_4521 = 
(obj_t)(BgL_new2975z00_4518); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4521); BUNSPEC; } 
return BgL_new2975z00_4518;} } 
}



/* _allocate-csequence */
obj_t BGl__allocatezd2csequencezd2zzcgen_copz00(obj_t BgL_envz00_3633)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 56 */
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_auxz00_5792;
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_res6987z00_4526;
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_new2975z00_4522;
BgL_new2975z00_4522 = 
((BgL_csequencez00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_csequencez00_bgl) ))); 
{ /* ./Cgen/cop.scm 56 */
long BgL_arg4163z00_4523;
BgL_arg4163z00_4523 = 
BGl_classzd2numzd2zz__objectz00(BGl_csequencez00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 56 */
BgL_objectz00_bglt BgL_objz00_4524;
BgL_objz00_4524 = 
(BgL_objectz00_bglt)(BgL_new2975z00_4522); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4524, BgL_arg4163z00_4523); } } 
{ /* ./Cgen/cop.scm 56 */
BgL_objectz00_bglt BgL_auxz00_5797;
BgL_auxz00_5797 = 
(BgL_objectz00_bglt)(BgL_new2975z00_4522); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5797, BFALSE); } 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_objz00_4525;
BgL_objz00_4525 = 
(obj_t)(BgL_new2975z00_4522); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4525); BUNSPEC; } 
BgL_res6987z00_4526 = BgL_new2975z00_4522; } 
BgL_auxz00_5792 = BgL_res6987z00_4526; } 
return 
(obj_t)(BgL_auxz00_5792);} } 
}



/* ccast? */
BGL_EXPORTED_DEF bool_t BGl_ccastzf3zf3zzcgen_copz00(obj_t BgL_obj2955z00_241)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 52 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2955z00_241, BGl_ccastz00zzcgen_copz00);} 
}



/* _ccast? */
obj_t BGl__ccastzf3zf3zzcgen_copz00(obj_t BgL_envz00_3857, obj_t BgL_obj2955z00_3858)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 52 */
{ /* ./Cgen/cop.scm 52 */
bool_t BgL_auxz00_5804;
BgL_auxz00_5804 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2955z00_3858, BGl_ccastz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5804);} } 
}



/* make-ccast */
BGL_EXPORTED_DEF BgL_ccastz00_bglt BGl_makezd2ccastzd2zzcgen_copz00(obj_t BgL_loc2927z00_245, BgL_typez00_bglt BgL_type2928z00_246, BgL_copz00_bglt BgL_arg2929z00_247)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 52 */
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_new2930z00_2731;
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_res5577z00_2737;
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_new2940z00_2732;
BgL_new2940z00_2732 = 
((BgL_ccastz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_ccastz00_bgl) ))); 
{ /* ./Cgen/cop.scm 52 */
long BgL_arg4172z00_2733;
BgL_arg4172z00_2733 = 
BGl_classzd2numzd2zz__objectz00(BGl_ccastz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 52 */
BgL_objectz00_bglt BgL_objz00_2734;
BgL_objz00_2734 = 
(BgL_objectz00_bglt)(BgL_new2940z00_2732); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2734, BgL_arg4172z00_2733); } } 
{ /* ./Cgen/cop.scm 52 */
BgL_objectz00_bglt BgL_auxz00_5811;
BgL_auxz00_5811 = 
(BgL_objectz00_bglt)(BgL_new2940z00_2732); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5811, BFALSE); } 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_objz00_2736;
BgL_objz00_2736 = 
(obj_t)(BgL_new2940z00_2732); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2736); BUNSPEC; } 
BgL_res5577z00_2737 = BgL_new2940z00_2732; } 
BgL_new2930z00_2731 = BgL_res5577z00_2737; } 
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_res5578z00_2745;
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_new2935z00_2738;
BgL_new2935z00_2738 = BgL_new2930z00_2731; 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_loc2932z00_2742;BgL_typez00_bglt BgL_type2933z00_2743;BgL_copz00_bglt BgL_arg2934z00_2744;
BgL_loc2932z00_2742 = BgL_loc2927z00_245; 
BgL_type2933z00_2743 = BgL_type2928z00_246; 
BgL_arg2934z00_2744 = BgL_arg2929z00_247; 
((((BgL_ccastz00_bglt)CREF(BgL_new2935z00_2738))->BgL_locz00) = ((obj_t)BgL_loc2932z00_2742), BUNSPEC); 
((((BgL_ccastz00_bglt)CREF(BgL_new2935z00_2738))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type2933z00_2743), BUNSPEC); 
((((BgL_ccastz00_bglt)CREF(BgL_new2935z00_2738))->BgL_argz00) = ((BgL_copz00_bglt)BgL_arg2934z00_2744), BUNSPEC); 
BgL_res5578z00_2745 = BgL_new2935z00_2738; } } BgL_res5578z00_2745; } 
return BgL_new2930z00_2731;} } 
}



/* _make-ccast5717 */
obj_t BGl__makezd2ccast5717zd2zzcgen_copz00(obj_t BgL_envz00_3859, obj_t BgL_loc2927z00_3860, obj_t BgL_type2928z00_3861, obj_t BgL_arg2929z00_3862)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 52 */
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_auxz00_5819;
BgL_auxz00_5819 = 
BGl_makezd2ccastzd2zzcgen_copz00(BgL_loc2927z00_3860, 
(BgL_typez00_bglt)(BgL_type2928z00_3861), 
(BgL_copz00_bglt)(BgL_arg2929z00_3862)); 
return 
(obj_t)(BgL_auxz00_5819);} } 
}



/* fill-ccast! */
BGL_EXPORTED_DEF BgL_ccastz00_bglt BGl_fillzd2ccastz12zc0zzcgen_copz00(BgL_ccastz00_bglt BgL_new2935z00_248, obj_t BgL_loc2932z00_249, BgL_typez00_bglt BgL_type2933z00_250, BgL_copz00_bglt BgL_arg2934z00_251)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 52 */
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_loc2932z00_4528;BgL_typez00_bglt BgL_type2933z00_4529;BgL_copz00_bglt BgL_arg2934z00_4530;
BgL_loc2932z00_4528 = BgL_loc2932z00_249; 
BgL_type2933z00_4529 = BgL_type2933z00_250; 
BgL_arg2934z00_4530 = BgL_arg2934z00_251; 
((((BgL_ccastz00_bglt)CREF(BgL_new2935z00_248))->BgL_locz00) = ((obj_t)BgL_loc2932z00_4528), BUNSPEC); 
((((BgL_ccastz00_bglt)CREF(BgL_new2935z00_248))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type2933z00_4529), BUNSPEC); 
((((BgL_ccastz00_bglt)CREF(BgL_new2935z00_248))->BgL_argz00) = ((BgL_copz00_bglt)BgL_arg2934z00_4530), BUNSPEC); 
return BgL_new2935z00_248;} } 
}



/* _fill-ccast!5719 */
obj_t BGl__fillzd2ccastz125719zc0zzcgen_copz00(obj_t BgL_envz00_3863, obj_t BgL_new2935z00_3864, obj_t BgL_loc2932z00_3865, obj_t BgL_type2933z00_3866, obj_t BgL_arg2934z00_3867)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 52 */
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_auxz00_5827;
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_res6988z00_4538;
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_new2935z00_4531;BgL_typez00_bglt BgL_type2933z00_4533;BgL_copz00_bglt BgL_arg2934z00_4534;
BgL_new2935z00_4531 = 
(BgL_ccastz00_bglt)(BgL_new2935z00_3864); 
BgL_type2933z00_4533 = 
(BgL_typez00_bglt)(BgL_type2933z00_3866); 
BgL_arg2934z00_4534 = 
(BgL_copz00_bglt)(BgL_arg2934z00_3867); 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_loc2932z00_4535;BgL_typez00_bglt BgL_type2933z00_4536;BgL_copz00_bglt BgL_arg2934z00_4537;
BgL_loc2932z00_4535 = BgL_loc2932z00_3865; 
BgL_type2933z00_4536 = BgL_type2933z00_4533; 
BgL_arg2934z00_4537 = BgL_arg2934z00_4534; 
((((BgL_ccastz00_bglt)CREF(BgL_new2935z00_4531))->BgL_locz00) = ((obj_t)BgL_loc2932z00_4535), BUNSPEC); 
((((BgL_ccastz00_bglt)CREF(BgL_new2935z00_4531))->BgL_typez00) = ((BgL_typez00_bglt)BgL_type2933z00_4536), BUNSPEC); 
((((BgL_ccastz00_bglt)CREF(BgL_new2935z00_4531))->BgL_argz00) = ((BgL_copz00_bglt)BgL_arg2934z00_4537), BUNSPEC); 
BgL_res6988z00_4538 = BgL_new2935z00_4531; } } 
BgL_auxz00_5827 = BgL_res6988z00_4538; } 
return 
(obj_t)(BgL_auxz00_5827);} } 
}



/* allocate-ccast */
BGL_EXPORTED_DEF BgL_ccastz00_bglt BGl_allocatezd2ccastzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 52 */
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_new2940z00_4539;
BgL_new2940z00_4539 = 
((BgL_ccastz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_ccastz00_bgl) ))); 
{ /* ./Cgen/cop.scm 52 */
long BgL_arg4172z00_4540;
BgL_arg4172z00_4540 = 
BGl_classzd2numzd2zz__objectz00(BGl_ccastz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 52 */
BgL_objectz00_bglt BgL_objz00_4541;
BgL_objz00_4541 = 
(BgL_objectz00_bglt)(BgL_new2940z00_4539); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4541, BgL_arg4172z00_4540); } } 
{ /* ./Cgen/cop.scm 52 */
BgL_objectz00_bglt BgL_auxz00_5839;
BgL_auxz00_5839 = 
(BgL_objectz00_bglt)(BgL_new2940z00_4539); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5839, BFALSE); } 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_objz00_4542;
BgL_objz00_4542 = 
(obj_t)(BgL_new2940z00_4539); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4542); BUNSPEC; } 
return BgL_new2940z00_4539;} } 
}



/* _allocate-ccast */
obj_t BGl__allocatezd2ccastzd2zzcgen_copz00(obj_t BgL_envz00_3632)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 52 */
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_auxz00_5844;
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_res6989z00_4547;
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_new2940z00_4543;
BgL_new2940z00_4543 = 
((BgL_ccastz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_ccastz00_bgl) ))); 
{ /* ./Cgen/cop.scm 52 */
long BgL_arg4172z00_4544;
BgL_arg4172z00_4544 = 
BGl_classzd2numzd2zz__objectz00(BGl_ccastz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 52 */
BgL_objectz00_bglt BgL_objz00_4545;
BgL_objz00_4545 = 
(BgL_objectz00_bglt)(BgL_new2940z00_4543); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4545, BgL_arg4172z00_4544); } } 
{ /* ./Cgen/cop.scm 52 */
BgL_objectz00_bglt BgL_auxz00_5849;
BgL_auxz00_5849 = 
(BgL_objectz00_bglt)(BgL_new2940z00_4543); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5849, BFALSE); } 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_objz00_4546;
BgL_objz00_4546 = 
(obj_t)(BgL_new2940z00_4543); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4546); BUNSPEC; } 
BgL_res6989z00_4547 = BgL_new2940z00_4543; } 
BgL_auxz00_5844 = BgL_res6989z00_4547; } 
return 
(obj_t)(BgL_auxz00_5844);} } 
}



/* cpragma? */
BGL_EXPORTED_DEF bool_t BGl_cpragmazf3zf3zzcgen_copz00(obj_t BgL_obj2921z00_254)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 48 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2921z00_254, BGl_cpragmaz00zzcgen_copz00);} 
}



/* _cpragma? */
obj_t BGl__cpragmazf3zf3zzcgen_copz00(obj_t BgL_envz00_3868, obj_t BgL_obj2921z00_3869)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 48 */
{ /* ./Cgen/cop.scm 48 */
bool_t BgL_auxz00_5856;
BgL_auxz00_5856 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2921z00_3869, BGl_cpragmaz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5856);} } 
}



/* make-cpragma */
BGL_EXPORTED_DEF BgL_cpragmaz00_bglt BGl_makezd2cpragmazd2zzcgen_copz00(obj_t BgL_loc2893z00_258, obj_t BgL_format2894z00_259, obj_t BgL_args2895z00_260)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 48 */
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_new2896z00_2754;
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_res5579z00_2760;
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_new2906z00_2755;
BgL_new2906z00_2755 = 
((BgL_cpragmaz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cpragmaz00_bgl) ))); 
{ /* ./Cgen/cop.scm 48 */
long BgL_arg4181z00_2756;
BgL_arg4181z00_2756 = 
BGl_classzd2numzd2zz__objectz00(BGl_cpragmaz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 48 */
BgL_objectz00_bglt BgL_objz00_2757;
BgL_objz00_2757 = 
(BgL_objectz00_bglt)(BgL_new2906z00_2755); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2757, BgL_arg4181z00_2756); } } 
{ /* ./Cgen/cop.scm 48 */
BgL_objectz00_bglt BgL_auxz00_5863;
BgL_auxz00_5863 = 
(BgL_objectz00_bglt)(BgL_new2906z00_2755); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5863, BFALSE); } 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_objz00_2759;
BgL_objz00_2759 = 
(obj_t)(BgL_new2906z00_2755); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2759); BUNSPEC; } 
BgL_res5579z00_2760 = BgL_new2906z00_2755; } 
BgL_new2896z00_2754 = BgL_res5579z00_2760; } 
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_res5580z00_2768;
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_new2901z00_2761;
BgL_new2901z00_2761 = BgL_new2896z00_2754; 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_loc2898z00_2765;obj_t BgL_format2899z00_2766;obj_t BgL_args2900z00_2767;
BgL_loc2898z00_2765 = BgL_loc2893z00_258; 
BgL_format2899z00_2766 = BgL_format2894z00_259; 
BgL_args2900z00_2767 = BgL_args2895z00_260; 
((((BgL_cpragmaz00_bglt)CREF(BgL_new2901z00_2761))->BgL_locz00) = ((obj_t)BgL_loc2898z00_2765), BUNSPEC); 
((((BgL_cpragmaz00_bglt)CREF(BgL_new2901z00_2761))->BgL_formatz00) = ((obj_t)BgL_format2899z00_2766), BUNSPEC); 
((((BgL_cpragmaz00_bglt)CREF(BgL_new2901z00_2761))->BgL_argsz00) = ((obj_t)BgL_args2900z00_2767), BUNSPEC); 
BgL_res5580z00_2768 = BgL_new2901z00_2761; } } BgL_res5580z00_2768; } 
return BgL_new2896z00_2754;} } 
}



/* _make-cpragma5722 */
obj_t BGl__makezd2cpragma5722zd2zzcgen_copz00(obj_t BgL_envz00_3870, obj_t BgL_loc2893z00_3871, obj_t BgL_format2894z00_3872, obj_t BgL_args2895z00_3873)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 48 */
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_auxz00_5871;
BgL_auxz00_5871 = 
BGl_makezd2cpragmazd2zzcgen_copz00(BgL_loc2893z00_3871, BgL_format2894z00_3872, BgL_args2895z00_3873); 
return 
(obj_t)(BgL_auxz00_5871);} } 
}



/* fill-cpragma! */
BGL_EXPORTED_DEF BgL_cpragmaz00_bglt BGl_fillzd2cpragmaz12zc0zzcgen_copz00(BgL_cpragmaz00_bglt BgL_new2901z00_261, obj_t BgL_loc2898z00_262, obj_t BgL_format2899z00_263, obj_t BgL_args2900z00_264)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 48 */
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_loc2898z00_4549;obj_t BgL_format2899z00_4550;obj_t BgL_args2900z00_4551;
BgL_loc2898z00_4549 = BgL_loc2898z00_262; 
BgL_format2899z00_4550 = BgL_format2899z00_263; 
BgL_args2900z00_4551 = BgL_args2900z00_264; 
((((BgL_cpragmaz00_bglt)CREF(BgL_new2901z00_261))->BgL_locz00) = ((obj_t)BgL_loc2898z00_4549), BUNSPEC); 
((((BgL_cpragmaz00_bglt)CREF(BgL_new2901z00_261))->BgL_formatz00) = ((obj_t)BgL_format2899z00_4550), BUNSPEC); 
((((BgL_cpragmaz00_bglt)CREF(BgL_new2901z00_261))->BgL_argsz00) = ((obj_t)BgL_args2900z00_4551), BUNSPEC); 
return BgL_new2901z00_261;} } 
}



/* _fill-cpragma!5724 */
obj_t BGl__fillzd2cpragmaz125724zc0zzcgen_copz00(obj_t BgL_envz00_3874, obj_t BgL_new2901z00_3875, obj_t BgL_loc2898z00_3876, obj_t BgL_format2899z00_3877, obj_t BgL_args2900z00_3878)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 48 */
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_auxz00_5877;
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_res6990z00_4559;
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_new2901z00_4552;
BgL_new2901z00_4552 = 
(BgL_cpragmaz00_bglt)(BgL_new2901z00_3875); 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_loc2898z00_4556;obj_t BgL_format2899z00_4557;obj_t BgL_args2900z00_4558;
BgL_loc2898z00_4556 = BgL_loc2898z00_3876; 
BgL_format2899z00_4557 = BgL_format2899z00_3877; 
BgL_args2900z00_4558 = BgL_args2900z00_3878; 
((((BgL_cpragmaz00_bglt)CREF(BgL_new2901z00_4552))->BgL_locz00) = ((obj_t)BgL_loc2898z00_4556), BUNSPEC); 
((((BgL_cpragmaz00_bglt)CREF(BgL_new2901z00_4552))->BgL_formatz00) = ((obj_t)BgL_format2899z00_4557), BUNSPEC); 
((((BgL_cpragmaz00_bglt)CREF(BgL_new2901z00_4552))->BgL_argsz00) = ((obj_t)BgL_args2900z00_4558), BUNSPEC); 
BgL_res6990z00_4559 = BgL_new2901z00_4552; } } 
BgL_auxz00_5877 = BgL_res6990z00_4559; } 
return 
(obj_t)(BgL_auxz00_5877);} } 
}



/* allocate-cpragma */
BGL_EXPORTED_DEF BgL_cpragmaz00_bglt BGl_allocatezd2cpragmazd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 48 */
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_new2906z00_4560;
BgL_new2906z00_4560 = 
((BgL_cpragmaz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cpragmaz00_bgl) ))); 
{ /* ./Cgen/cop.scm 48 */
long BgL_arg4181z00_4561;
BgL_arg4181z00_4561 = 
BGl_classzd2numzd2zz__objectz00(BGl_cpragmaz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 48 */
BgL_objectz00_bglt BgL_objz00_4562;
BgL_objz00_4562 = 
(BgL_objectz00_bglt)(BgL_new2906z00_4560); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4562, BgL_arg4181z00_4561); } } 
{ /* ./Cgen/cop.scm 48 */
BgL_objectz00_bglt BgL_auxz00_5887;
BgL_auxz00_5887 = 
(BgL_objectz00_bglt)(BgL_new2906z00_4560); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5887, BFALSE); } 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_objz00_4563;
BgL_objz00_4563 = 
(obj_t)(BgL_new2906z00_4560); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4563); BUNSPEC; } 
return BgL_new2906z00_4560;} } 
}



/* _allocate-cpragma */
obj_t BGl__allocatezd2cpragmazd2zzcgen_copz00(obj_t BgL_envz00_3631)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 48 */
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_auxz00_5892;
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_res6991z00_4568;
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_new2906z00_4564;
BgL_new2906z00_4564 = 
((BgL_cpragmaz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cpragmaz00_bgl) ))); 
{ /* ./Cgen/cop.scm 48 */
long BgL_arg4181z00_4565;
BgL_arg4181z00_4565 = 
BGl_classzd2numzd2zz__objectz00(BGl_cpragmaz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 48 */
BgL_objectz00_bglt BgL_objz00_4566;
BgL_objz00_4566 = 
(BgL_objectz00_bglt)(BgL_new2906z00_4564); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4566, BgL_arg4181z00_4565); } } 
{ /* ./Cgen/cop.scm 48 */
BgL_objectz00_bglt BgL_auxz00_5897;
BgL_auxz00_5897 = 
(BgL_objectz00_bglt)(BgL_new2906z00_4564); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5897, BFALSE); } 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_objz00_4567;
BgL_objz00_4567 = 
(obj_t)(BgL_new2906z00_4564); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4567); BUNSPEC; } 
BgL_res6991z00_4568 = BgL_new2906z00_4564; } 
BgL_auxz00_5892 = BgL_res6991z00_4568; } 
return 
(obj_t)(BgL_auxz00_5892);} } 
}



/* varc? */
BGL_EXPORTED_DEF bool_t BGl_varczf3zf3zzcgen_copz00(obj_t BgL_obj2886z00_267)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 45 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2886z00_267, BGl_varcz00zzcgen_copz00);} 
}



/* _varc? */
obj_t BGl__varczf3zf3zzcgen_copz00(obj_t BgL_envz00_3879, obj_t BgL_obj2886z00_3880)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 45 */
{ /* ./Cgen/cop.scm 45 */
bool_t BgL_auxz00_5904;
BgL_auxz00_5904 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2886z00_3880, BGl_varcz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5904);} } 
}



/* make-varc */
BGL_EXPORTED_DEF BgL_varcz00_bglt BGl_makezd2varczd2zzcgen_copz00(obj_t BgL_loc2865z00_271, BgL_variablez00_bglt BgL_variable2866z00_272)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 45 */
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_new2867z00_2777;
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_res5581z00_2783;
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_new2875z00_2778;
BgL_new2875z00_2778 = 
((BgL_varcz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_varcz00_bgl) ))); 
{ /* ./Cgen/cop.scm 45 */
long BgL_arg4190z00_2779;
BgL_arg4190z00_2779 = 
BGl_classzd2numzd2zz__objectz00(BGl_varcz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 45 */
BgL_objectz00_bglt BgL_objz00_2780;
BgL_objz00_2780 = 
(BgL_objectz00_bglt)(BgL_new2875z00_2778); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2780, BgL_arg4190z00_2779); } } 
{ /* ./Cgen/cop.scm 45 */
BgL_objectz00_bglt BgL_auxz00_5911;
BgL_auxz00_5911 = 
(BgL_objectz00_bglt)(BgL_new2875z00_2778); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5911, BFALSE); } 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_objz00_2782;
BgL_objz00_2782 = 
(obj_t)(BgL_new2875z00_2778); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2782); BUNSPEC; } 
BgL_res5581z00_2783 = BgL_new2875z00_2778; } 
BgL_new2867z00_2777 = BgL_res5581z00_2783; } 
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_res5582z00_2789;
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_new2871z00_2784;
BgL_new2871z00_2784 = BgL_new2867z00_2777; 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_loc2869z00_2787;BgL_variablez00_bglt BgL_variable2870z00_2788;
BgL_loc2869z00_2787 = BgL_loc2865z00_271; 
BgL_variable2870z00_2788 = BgL_variable2866z00_272; 
((((BgL_varcz00_bglt)CREF(BgL_new2871z00_2784))->BgL_locz00) = ((obj_t)BgL_loc2869z00_2787), BUNSPEC); 
((((BgL_varcz00_bglt)CREF(BgL_new2871z00_2784))->BgL_variablez00) = ((BgL_variablez00_bglt)BgL_variable2870z00_2788), BUNSPEC); 
BgL_res5582z00_2789 = BgL_new2871z00_2784; } } BgL_res5582z00_2789; } 
return BgL_new2867z00_2777;} } 
}



/* _make-varc5727 */
obj_t BGl__makezd2varc5727zd2zzcgen_copz00(obj_t BgL_envz00_3881, obj_t BgL_loc2865z00_3882, obj_t BgL_variable2866z00_3883)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 45 */
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_auxz00_5918;
BgL_auxz00_5918 = 
BGl_makezd2varczd2zzcgen_copz00(BgL_loc2865z00_3882, 
(BgL_variablez00_bglt)(BgL_variable2866z00_3883)); 
return 
(obj_t)(BgL_auxz00_5918);} } 
}



/* fill-varc! */
BGL_EXPORTED_DEF BgL_varcz00_bglt BGl_fillzd2varcz12zc0zzcgen_copz00(BgL_varcz00_bglt BgL_new2871z00_273, obj_t BgL_loc2869z00_274, BgL_variablez00_bglt BgL_variable2870z00_275)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 45 */
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_loc2869z00_4570;BgL_variablez00_bglt BgL_variable2870z00_4571;
BgL_loc2869z00_4570 = BgL_loc2869z00_274; 
BgL_variable2870z00_4571 = BgL_variable2870z00_275; 
((((BgL_varcz00_bglt)CREF(BgL_new2871z00_273))->BgL_locz00) = ((obj_t)BgL_loc2869z00_4570), BUNSPEC); 
((((BgL_varcz00_bglt)CREF(BgL_new2871z00_273))->BgL_variablez00) = ((BgL_variablez00_bglt)BgL_variable2870z00_4571), BUNSPEC); 
return BgL_new2871z00_273;} } 
}



/* _fill-varc!5729 */
obj_t BGl__fillzd2varcz125729zc0zzcgen_copz00(obj_t BgL_envz00_3884, obj_t BgL_new2871z00_3885, obj_t BgL_loc2869z00_3886, obj_t BgL_variable2870z00_3887)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 45 */
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_auxz00_5924;
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_res6992z00_4577;
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_new2871z00_4572;BgL_variablez00_bglt BgL_variable2870z00_4574;
BgL_new2871z00_4572 = 
(BgL_varcz00_bglt)(BgL_new2871z00_3885); 
BgL_variable2870z00_4574 = 
(BgL_variablez00_bglt)(BgL_variable2870z00_3887); 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_loc2869z00_4575;BgL_variablez00_bglt BgL_variable2870z00_4576;
BgL_loc2869z00_4575 = BgL_loc2869z00_3886; 
BgL_variable2870z00_4576 = BgL_variable2870z00_4574; 
((((BgL_varcz00_bglt)CREF(BgL_new2871z00_4572))->BgL_locz00) = ((obj_t)BgL_loc2869z00_4575), BUNSPEC); 
((((BgL_varcz00_bglt)CREF(BgL_new2871z00_4572))->BgL_variablez00) = ((BgL_variablez00_bglt)BgL_variable2870z00_4576), BUNSPEC); 
BgL_res6992z00_4577 = BgL_new2871z00_4572; } } 
BgL_auxz00_5924 = BgL_res6992z00_4577; } 
return 
(obj_t)(BgL_auxz00_5924);} } 
}



/* allocate-varc */
BGL_EXPORTED_DEF BgL_varcz00_bglt BGl_allocatezd2varczd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 45 */
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_new2875z00_4578;
BgL_new2875z00_4578 = 
((BgL_varcz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_varcz00_bgl) ))); 
{ /* ./Cgen/cop.scm 45 */
long BgL_arg4190z00_4579;
BgL_arg4190z00_4579 = 
BGl_classzd2numzd2zz__objectz00(BGl_varcz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 45 */
BgL_objectz00_bglt BgL_objz00_4580;
BgL_objz00_4580 = 
(BgL_objectz00_bglt)(BgL_new2875z00_4578); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4580, BgL_arg4190z00_4579); } } 
{ /* ./Cgen/cop.scm 45 */
BgL_objectz00_bglt BgL_auxz00_5934;
BgL_auxz00_5934 = 
(BgL_objectz00_bglt)(BgL_new2875z00_4578); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5934, BFALSE); } 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_objz00_4581;
BgL_objz00_4581 = 
(obj_t)(BgL_new2875z00_4578); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4581); BUNSPEC; } 
return BgL_new2875z00_4578;} } 
}



/* _allocate-varc */
obj_t BGl__allocatezd2varczd2zzcgen_copz00(obj_t BgL_envz00_3630)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 45 */
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_auxz00_5939;
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_res6993z00_4586;
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_new2875z00_4582;
BgL_new2875z00_4582 = 
((BgL_varcz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_varcz00_bgl) ))); 
{ /* ./Cgen/cop.scm 45 */
long BgL_arg4190z00_4583;
BgL_arg4190z00_4583 = 
BGl_classzd2numzd2zz__objectz00(BGl_varcz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 45 */
BgL_objectz00_bglt BgL_objz00_4584;
BgL_objz00_4584 = 
(BgL_objectz00_bglt)(BgL_new2875z00_4582); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4584, BgL_arg4190z00_4583); } } 
{ /* ./Cgen/cop.scm 45 */
BgL_objectz00_bglt BgL_auxz00_5944;
BgL_auxz00_5944 = 
(BgL_objectz00_bglt)(BgL_new2875z00_4582); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5944, BFALSE); } 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_objz00_4585;
BgL_objz00_4585 = 
(obj_t)(BgL_new2875z00_4582); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4585); BUNSPEC; } 
BgL_res6993z00_4586 = BgL_new2875z00_4582; } 
BgL_auxz00_5939 = BgL_res6993z00_4586; } 
return 
(obj_t)(BgL_auxz00_5939);} } 
}



/* catom? */
BGL_EXPORTED_DEF bool_t BGl_catomzf3zf3zzcgen_copz00(obj_t BgL_obj2860z00_277)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 42 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2860z00_277, BGl_catomz00zzcgen_copz00);} 
}



/* _catom? */
obj_t BGl__catomzf3zf3zzcgen_copz00(obj_t BgL_envz00_3888, obj_t BgL_obj2860z00_3889)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 42 */
{ /* ./Cgen/cop.scm 42 */
bool_t BgL_auxz00_5951;
BgL_auxz00_5951 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2860z00_3889, BGl_catomz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5951);} } 
}



/* make-catom */
BGL_EXPORTED_DEF BgL_catomz00_bglt BGl_makezd2catomzd2zzcgen_copz00(obj_t BgL_loc2839z00_281, obj_t BgL_value2840z00_282)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 42 */
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_new2841z00_2797;
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_res5583z00_2803;
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_new2849z00_2798;
BgL_new2849z00_2798 = 
((BgL_catomz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_catomz00_bgl) ))); 
{ /* ./Cgen/cop.scm 42 */
long BgL_arg4199z00_2799;
BgL_arg4199z00_2799 = 
BGl_classzd2numzd2zz__objectz00(BGl_catomz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 42 */
BgL_objectz00_bglt BgL_objz00_2800;
BgL_objz00_2800 = 
(BgL_objectz00_bglt)(BgL_new2849z00_2798); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2800, BgL_arg4199z00_2799); } } 
{ /* ./Cgen/cop.scm 42 */
BgL_objectz00_bglt BgL_auxz00_5958;
BgL_auxz00_5958 = 
(BgL_objectz00_bglt)(BgL_new2849z00_2798); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5958, BFALSE); } 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_objz00_2802;
BgL_objz00_2802 = 
(obj_t)(BgL_new2849z00_2798); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2802); BUNSPEC; } 
BgL_res5583z00_2803 = BgL_new2849z00_2798; } 
BgL_new2841z00_2797 = BgL_res5583z00_2803; } 
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_res5584z00_2809;
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_new2845z00_2804;
BgL_new2845z00_2804 = BgL_new2841z00_2797; 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_loc2843z00_2807;obj_t BgL_value2844z00_2808;
BgL_loc2843z00_2807 = BgL_loc2839z00_281; 
BgL_value2844z00_2808 = BgL_value2840z00_282; 
((((BgL_catomz00_bglt)CREF(BgL_new2845z00_2804))->BgL_locz00) = ((obj_t)BgL_loc2843z00_2807), BUNSPEC); 
((((BgL_catomz00_bglt)CREF(BgL_new2845z00_2804))->BgL_valuez00) = ((obj_t)BgL_value2844z00_2808), BUNSPEC); 
BgL_res5584z00_2809 = BgL_new2845z00_2804; } } BgL_res5584z00_2809; } 
return BgL_new2841z00_2797;} } 
}



/* _make-catom */
obj_t BGl__makezd2catomzd2zzcgen_copz00(obj_t BgL_envz00_3890, obj_t BgL_loc2839z00_3891, obj_t BgL_value2840z00_3892)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 42 */
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_auxz00_5965;
BgL_auxz00_5965 = 
BGl_makezd2catomzd2zzcgen_copz00(BgL_loc2839z00_3891, BgL_value2840z00_3892); 
return 
(obj_t)(BgL_auxz00_5965);} } 
}



/* fill-catom! */
BGL_EXPORTED_DEF BgL_catomz00_bglt BGl_fillzd2catomz12zc0zzcgen_copz00(BgL_catomz00_bglt BgL_new2845z00_283, obj_t BgL_loc2843z00_284, obj_t BgL_value2844z00_285)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 42 */
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_loc2843z00_4588;obj_t BgL_value2844z00_4589;
BgL_loc2843z00_4588 = BgL_loc2843z00_284; 
BgL_value2844z00_4589 = BgL_value2844z00_285; 
((((BgL_catomz00_bglt)CREF(BgL_new2845z00_283))->BgL_locz00) = ((obj_t)BgL_loc2843z00_4588), BUNSPEC); 
((((BgL_catomz00_bglt)CREF(BgL_new2845z00_283))->BgL_valuez00) = ((obj_t)BgL_value2844z00_4589), BUNSPEC); 
return BgL_new2845z00_283;} } 
}



/* _fill-catom!5733 */
obj_t BGl__fillzd2catomz125733zc0zzcgen_copz00(obj_t BgL_envz00_3893, obj_t BgL_new2845z00_3894, obj_t BgL_loc2843z00_3895, obj_t BgL_value2844z00_3896)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 42 */
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_auxz00_5970;
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_res6994z00_4595;
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_new2845z00_4590;
BgL_new2845z00_4590 = 
(BgL_catomz00_bglt)(BgL_new2845z00_3894); 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_loc2843z00_4593;obj_t BgL_value2844z00_4594;
BgL_loc2843z00_4593 = BgL_loc2843z00_3895; 
BgL_value2844z00_4594 = BgL_value2844z00_3896; 
((((BgL_catomz00_bglt)CREF(BgL_new2845z00_4590))->BgL_locz00) = ((obj_t)BgL_loc2843z00_4593), BUNSPEC); 
((((BgL_catomz00_bglt)CREF(BgL_new2845z00_4590))->BgL_valuez00) = ((obj_t)BgL_value2844z00_4594), BUNSPEC); 
BgL_res6994z00_4595 = BgL_new2845z00_4590; } } 
BgL_auxz00_5970 = BgL_res6994z00_4595; } 
return 
(obj_t)(BgL_auxz00_5970);} } 
}



/* allocate-catom */
BGL_EXPORTED_DEF BgL_catomz00_bglt BGl_allocatezd2catomzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 42 */
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_new2849z00_4596;
BgL_new2849z00_4596 = 
((BgL_catomz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_catomz00_bgl) ))); 
{ /* ./Cgen/cop.scm 42 */
long BgL_arg4199z00_4597;
BgL_arg4199z00_4597 = 
BGl_classzd2numzd2zz__objectz00(BGl_catomz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 42 */
BgL_objectz00_bglt BgL_objz00_4598;
BgL_objz00_4598 = 
(BgL_objectz00_bglt)(BgL_new2849z00_4596); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4598, BgL_arg4199z00_4597); } } 
{ /* ./Cgen/cop.scm 42 */
BgL_objectz00_bglt BgL_auxz00_5979;
BgL_auxz00_5979 = 
(BgL_objectz00_bglt)(BgL_new2849z00_4596); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5979, BFALSE); } 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_objz00_4599;
BgL_objz00_4599 = 
(obj_t)(BgL_new2849z00_4596); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4599); BUNSPEC; } 
return BgL_new2849z00_4596;} } 
}



/* _allocate-catom */
obj_t BGl__allocatezd2catomzd2zzcgen_copz00(obj_t BgL_envz00_3629)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 42 */
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_auxz00_5984;
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_res6995z00_4604;
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_new2849z00_4600;
BgL_new2849z00_4600 = 
((BgL_catomz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_catomz00_bgl) ))); 
{ /* ./Cgen/cop.scm 42 */
long BgL_arg4199z00_4601;
BgL_arg4199z00_4601 = 
BGl_classzd2numzd2zz__objectz00(BGl_catomz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 42 */
BgL_objectz00_bglt BgL_objz00_4602;
BgL_objz00_4602 = 
(BgL_objectz00_bglt)(BgL_new2849z00_4600); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4602, BgL_arg4199z00_4601); } } 
{ /* ./Cgen/cop.scm 42 */
BgL_objectz00_bglt BgL_auxz00_5989;
BgL_auxz00_5989 = 
(BgL_objectz00_bglt)(BgL_new2849z00_4600); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_5989, BFALSE); } 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_objz00_4603;
BgL_objz00_4603 = 
(obj_t)(BgL_new2849z00_4600); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4603); BUNSPEC; } 
BgL_res6995z00_4604 = BgL_new2849z00_4600; } 
BgL_auxz00_5984 = BgL_res6995z00_4604; } 
return 
(obj_t)(BgL_auxz00_5984);} } 
}



/* cvoid? */
BGL_EXPORTED_DEF bool_t BGl_cvoidzf3zf3zzcgen_copz00(obj_t BgL_obj2834z00_287)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 39 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2834z00_287, BGl_cvoidz00zzcgen_copz00);} 
}



/* _cvoid? */
obj_t BGl__cvoidzf3zf3zzcgen_copz00(obj_t BgL_envz00_3897, obj_t BgL_obj2834z00_3898)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 39 */
{ /* ./Cgen/cop.scm 39 */
bool_t BgL_auxz00_5996;
BgL_auxz00_5996 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2834z00_3898, BGl_cvoidz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_5996);} } 
}



/* make-cvoid */
BGL_EXPORTED_DEF BgL_cvoidz00_bglt BGl_makezd2cvoidzd2zzcgen_copz00(obj_t BgL_loc2813z00_291, BgL_copz00_bglt BgL_value2814z00_292)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 39 */
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_new2815z00_2817;
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_res5585z00_2823;
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_new2823z00_2818;
BgL_new2823z00_2818 = 
((BgL_cvoidz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cvoidz00_bgl) ))); 
{ /* ./Cgen/cop.scm 39 */
long BgL_arg4208z00_2819;
BgL_arg4208z00_2819 = 
BGl_classzd2numzd2zz__objectz00(BGl_cvoidz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 39 */
BgL_objectz00_bglt BgL_objz00_2820;
BgL_objz00_2820 = 
(BgL_objectz00_bglt)(BgL_new2823z00_2818); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2820, BgL_arg4208z00_2819); } } 
{ /* ./Cgen/cop.scm 39 */
BgL_objectz00_bglt BgL_auxz00_6003;
BgL_auxz00_6003 = 
(BgL_objectz00_bglt)(BgL_new2823z00_2818); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6003, BFALSE); } 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_objz00_2822;
BgL_objz00_2822 = 
(obj_t)(BgL_new2823z00_2818); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2822); BUNSPEC; } 
BgL_res5585z00_2823 = BgL_new2823z00_2818; } 
BgL_new2815z00_2817 = BgL_res5585z00_2823; } 
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_res5586z00_2829;
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_new2819z00_2824;
BgL_new2819z00_2824 = BgL_new2815z00_2817; 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_loc2817z00_2827;BgL_copz00_bglt BgL_value2818z00_2828;
BgL_loc2817z00_2827 = BgL_loc2813z00_291; 
BgL_value2818z00_2828 = BgL_value2814z00_292; 
((((BgL_cvoidz00_bglt)CREF(BgL_new2819z00_2824))->BgL_locz00) = ((obj_t)BgL_loc2817z00_2827), BUNSPEC); 
((((BgL_cvoidz00_bglt)CREF(BgL_new2819z00_2824))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value2818z00_2828), BUNSPEC); 
BgL_res5586z00_2829 = BgL_new2819z00_2824; } } BgL_res5586z00_2829; } 
return BgL_new2815z00_2817;} } 
}



/* _make-cvoid5736 */
obj_t BGl__makezd2cvoid5736zd2zzcgen_copz00(obj_t BgL_envz00_3899, obj_t BgL_loc2813z00_3900, obj_t BgL_value2814z00_3901)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 39 */
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_auxz00_6010;
BgL_auxz00_6010 = 
BGl_makezd2cvoidzd2zzcgen_copz00(BgL_loc2813z00_3900, 
(BgL_copz00_bglt)(BgL_value2814z00_3901)); 
return 
(obj_t)(BgL_auxz00_6010);} } 
}



/* fill-cvoid! */
BGL_EXPORTED_DEF BgL_cvoidz00_bglt BGl_fillzd2cvoidz12zc0zzcgen_copz00(BgL_cvoidz00_bglt BgL_new2819z00_293, obj_t BgL_loc2817z00_294, BgL_copz00_bglt BgL_value2818z00_295)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 39 */
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_loc2817z00_4606;BgL_copz00_bglt BgL_value2818z00_4607;
BgL_loc2817z00_4606 = BgL_loc2817z00_294; 
BgL_value2818z00_4607 = BgL_value2818z00_295; 
((((BgL_cvoidz00_bglt)CREF(BgL_new2819z00_293))->BgL_locz00) = ((obj_t)BgL_loc2817z00_4606), BUNSPEC); 
((((BgL_cvoidz00_bglt)CREF(BgL_new2819z00_293))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value2818z00_4607), BUNSPEC); 
return BgL_new2819z00_293;} } 
}



/* _fill-cvoid!5738 */
obj_t BGl__fillzd2cvoidz125738zc0zzcgen_copz00(obj_t BgL_envz00_3902, obj_t BgL_new2819z00_3903, obj_t BgL_loc2817z00_3904, obj_t BgL_value2818z00_3905)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 39 */
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_auxz00_6016;
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_res6996z00_4613;
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_new2819z00_4608;BgL_copz00_bglt BgL_value2818z00_4610;
BgL_new2819z00_4608 = 
(BgL_cvoidz00_bglt)(BgL_new2819z00_3903); 
BgL_value2818z00_4610 = 
(BgL_copz00_bglt)(BgL_value2818z00_3905); 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_loc2817z00_4611;BgL_copz00_bglt BgL_value2818z00_4612;
BgL_loc2817z00_4611 = BgL_loc2817z00_3904; 
BgL_value2818z00_4612 = BgL_value2818z00_4610; 
((((BgL_cvoidz00_bglt)CREF(BgL_new2819z00_4608))->BgL_locz00) = ((obj_t)BgL_loc2817z00_4611), BUNSPEC); 
((((BgL_cvoidz00_bglt)CREF(BgL_new2819z00_4608))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value2818z00_4612), BUNSPEC); 
BgL_res6996z00_4613 = BgL_new2819z00_4608; } } 
BgL_auxz00_6016 = BgL_res6996z00_4613; } 
return 
(obj_t)(BgL_auxz00_6016);} } 
}



/* allocate-cvoid */
BGL_EXPORTED_DEF BgL_cvoidz00_bglt BGl_allocatezd2cvoidzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 39 */
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_new2823z00_4614;
BgL_new2823z00_4614 = 
((BgL_cvoidz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cvoidz00_bgl) ))); 
{ /* ./Cgen/cop.scm 39 */
long BgL_arg4208z00_4615;
BgL_arg4208z00_4615 = 
BGl_classzd2numzd2zz__objectz00(BGl_cvoidz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 39 */
BgL_objectz00_bglt BgL_objz00_4616;
BgL_objz00_4616 = 
(BgL_objectz00_bglt)(BgL_new2823z00_4614); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4616, BgL_arg4208z00_4615); } } 
{ /* ./Cgen/cop.scm 39 */
BgL_objectz00_bglt BgL_auxz00_6026;
BgL_auxz00_6026 = 
(BgL_objectz00_bglt)(BgL_new2823z00_4614); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6026, BFALSE); } 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_objz00_4617;
BgL_objz00_4617 = 
(obj_t)(BgL_new2823z00_4614); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4617); BUNSPEC; } 
return BgL_new2823z00_4614;} } 
}



/* _allocate-cvoid */
obj_t BGl__allocatezd2cvoidzd2zzcgen_copz00(obj_t BgL_envz00_3628)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 39 */
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_auxz00_6031;
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_res6997z00_4622;
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_new2823z00_4618;
BgL_new2823z00_4618 = 
((BgL_cvoidz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cvoidz00_bgl) ))); 
{ /* ./Cgen/cop.scm 39 */
long BgL_arg4208z00_4619;
BgL_arg4208z00_4619 = 
BGl_classzd2numzd2zz__objectz00(BGl_cvoidz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 39 */
BgL_objectz00_bglt BgL_objz00_4620;
BgL_objz00_4620 = 
(BgL_objectz00_bglt)(BgL_new2823z00_4618); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4620, BgL_arg4208z00_4619); } } 
{ /* ./Cgen/cop.scm 39 */
BgL_objectz00_bglt BgL_auxz00_6036;
BgL_auxz00_6036 = 
(BgL_objectz00_bglt)(BgL_new2823z00_4618); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6036, BFALSE); } 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_objz00_4621;
BgL_objz00_4621 = 
(obj_t)(BgL_new2823z00_4618); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4621); BUNSPEC; } 
BgL_res6997z00_4622 = BgL_new2823z00_4618; } 
BgL_auxz00_6031 = BgL_res6997z00_4622; } 
return 
(obj_t)(BgL_auxz00_6031);} } 
}



/* creturn? */
BGL_EXPORTED_DEF bool_t BGl_creturnzf3zf3zzcgen_copz00(obj_t BgL_obj2808z00_297)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 36 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2808z00_297, BGl_creturnz00zzcgen_copz00);} 
}



/* _creturn? */
obj_t BGl__creturnzf3zf3zzcgen_copz00(obj_t BgL_envz00_3906, obj_t BgL_obj2808z00_3907)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 36 */
{ /* ./Cgen/cop.scm 36 */
bool_t BgL_auxz00_6043;
BgL_auxz00_6043 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2808z00_3907, BGl_creturnz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_6043);} } 
}



/* make-creturn */
BGL_EXPORTED_DEF BgL_creturnz00_bglt BGl_makezd2creturnzd2zzcgen_copz00(obj_t BgL_loc2787z00_301, BgL_copz00_bglt BgL_value2788z00_302)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 36 */
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_new2789z00_2837;
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_res5587z00_2843;
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_new2797z00_2838;
BgL_new2797z00_2838 = 
((BgL_creturnz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_creturnz00_bgl) ))); 
{ /* ./Cgen/cop.scm 36 */
long BgL_arg4217z00_2839;
BgL_arg4217z00_2839 = 
BGl_classzd2numzd2zz__objectz00(BGl_creturnz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 36 */
BgL_objectz00_bglt BgL_objz00_2840;
BgL_objz00_2840 = 
(BgL_objectz00_bglt)(BgL_new2797z00_2838); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2840, BgL_arg4217z00_2839); } } 
{ /* ./Cgen/cop.scm 36 */
BgL_objectz00_bglt BgL_auxz00_6050;
BgL_auxz00_6050 = 
(BgL_objectz00_bglt)(BgL_new2797z00_2838); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6050, BFALSE); } 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_objz00_2842;
BgL_objz00_2842 = 
(obj_t)(BgL_new2797z00_2838); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2842); BUNSPEC; } 
BgL_res5587z00_2843 = BgL_new2797z00_2838; } 
BgL_new2789z00_2837 = BgL_res5587z00_2843; } 
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_res5588z00_2849;
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_new2793z00_2844;
BgL_new2793z00_2844 = BgL_new2789z00_2837; 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_loc2791z00_2847;BgL_copz00_bglt BgL_value2792z00_2848;
BgL_loc2791z00_2847 = BgL_loc2787z00_301; 
BgL_value2792z00_2848 = BgL_value2788z00_302; 
((((BgL_creturnz00_bglt)CREF(BgL_new2793z00_2844))->BgL_locz00) = ((obj_t)BgL_loc2791z00_2847), BUNSPEC); 
((((BgL_creturnz00_bglt)CREF(BgL_new2793z00_2844))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value2792z00_2848), BUNSPEC); 
BgL_res5588z00_2849 = BgL_new2793z00_2844; } } BgL_res5588z00_2849; } 
return BgL_new2789z00_2837;} } 
}



/* _make-creturn5741 */
obj_t BGl__makezd2creturn5741zd2zzcgen_copz00(obj_t BgL_envz00_3908, obj_t BgL_loc2787z00_3909, obj_t BgL_value2788z00_3910)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 36 */
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_auxz00_6057;
BgL_auxz00_6057 = 
BGl_makezd2creturnzd2zzcgen_copz00(BgL_loc2787z00_3909, 
(BgL_copz00_bglt)(BgL_value2788z00_3910)); 
return 
(obj_t)(BgL_auxz00_6057);} } 
}



/* fill-creturn! */
BGL_EXPORTED_DEF BgL_creturnz00_bglt BGl_fillzd2creturnz12zc0zzcgen_copz00(BgL_creturnz00_bglt BgL_new2793z00_303, obj_t BgL_loc2791z00_304, BgL_copz00_bglt BgL_value2792z00_305)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 36 */
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_loc2791z00_4624;BgL_copz00_bglt BgL_value2792z00_4625;
BgL_loc2791z00_4624 = BgL_loc2791z00_304; 
BgL_value2792z00_4625 = BgL_value2792z00_305; 
((((BgL_creturnz00_bglt)CREF(BgL_new2793z00_303))->BgL_locz00) = ((obj_t)BgL_loc2791z00_4624), BUNSPEC); 
((((BgL_creturnz00_bglt)CREF(BgL_new2793z00_303))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value2792z00_4625), BUNSPEC); 
return BgL_new2793z00_303;} } 
}



/* _fill-creturn!5743 */
obj_t BGl__fillzd2creturnz125743zc0zzcgen_copz00(obj_t BgL_envz00_3911, obj_t BgL_new2793z00_3912, obj_t BgL_loc2791z00_3913, obj_t BgL_value2792z00_3914)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 36 */
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_auxz00_6063;
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_res6998z00_4631;
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_new2793z00_4626;BgL_copz00_bglt BgL_value2792z00_4628;
BgL_new2793z00_4626 = 
(BgL_creturnz00_bglt)(BgL_new2793z00_3912); 
BgL_value2792z00_4628 = 
(BgL_copz00_bglt)(BgL_value2792z00_3914); 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_loc2791z00_4629;BgL_copz00_bglt BgL_value2792z00_4630;
BgL_loc2791z00_4629 = BgL_loc2791z00_3913; 
BgL_value2792z00_4630 = BgL_value2792z00_4628; 
((((BgL_creturnz00_bglt)CREF(BgL_new2793z00_4626))->BgL_locz00) = ((obj_t)BgL_loc2791z00_4629), BUNSPEC); 
((((BgL_creturnz00_bglt)CREF(BgL_new2793z00_4626))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_value2792z00_4630), BUNSPEC); 
BgL_res6998z00_4631 = BgL_new2793z00_4626; } } 
BgL_auxz00_6063 = BgL_res6998z00_4631; } 
return 
(obj_t)(BgL_auxz00_6063);} } 
}



/* allocate-creturn */
BGL_EXPORTED_DEF BgL_creturnz00_bglt BGl_allocatezd2creturnzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 36 */
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_new2797z00_4632;
BgL_new2797z00_4632 = 
((BgL_creturnz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_creturnz00_bgl) ))); 
{ /* ./Cgen/cop.scm 36 */
long BgL_arg4217z00_4633;
BgL_arg4217z00_4633 = 
BGl_classzd2numzd2zz__objectz00(BGl_creturnz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 36 */
BgL_objectz00_bglt BgL_objz00_4634;
BgL_objz00_4634 = 
(BgL_objectz00_bglt)(BgL_new2797z00_4632); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4634, BgL_arg4217z00_4633); } } 
{ /* ./Cgen/cop.scm 36 */
BgL_objectz00_bglt BgL_auxz00_6073;
BgL_auxz00_6073 = 
(BgL_objectz00_bglt)(BgL_new2797z00_4632); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6073, BFALSE); } 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_objz00_4635;
BgL_objz00_4635 = 
(obj_t)(BgL_new2797z00_4632); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4635); BUNSPEC; } 
return BgL_new2797z00_4632;} } 
}



/* _allocate-creturn */
obj_t BGl__allocatezd2creturnzd2zzcgen_copz00(obj_t BgL_envz00_3627)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 36 */
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_auxz00_6078;
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_res6999z00_4640;
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_new2797z00_4636;
BgL_new2797z00_4636 = 
((BgL_creturnz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_creturnz00_bgl) ))); 
{ /* ./Cgen/cop.scm 36 */
long BgL_arg4217z00_4637;
BgL_arg4217z00_4637 = 
BGl_classzd2numzd2zz__objectz00(BGl_creturnz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 36 */
BgL_objectz00_bglt BgL_objz00_4638;
BgL_objz00_4638 = 
(BgL_objectz00_bglt)(BgL_new2797z00_4636); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4638, BgL_arg4217z00_4637); } } 
{ /* ./Cgen/cop.scm 36 */
BgL_objectz00_bglt BgL_auxz00_6083;
BgL_auxz00_6083 = 
(BgL_objectz00_bglt)(BgL_new2797z00_4636); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6083, BFALSE); } 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_objz00_4639;
BgL_objz00_4639 = 
(obj_t)(BgL_new2797z00_4636); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4639); BUNSPEC; } 
BgL_res6999z00_4640 = BgL_new2797z00_4636; } 
BgL_auxz00_6078 = BgL_res6999z00_4640; } 
return 
(obj_t)(BgL_auxz00_6078);} } 
}



/* block? */
BGL_EXPORTED_DEF bool_t BGl_blockzf3zf3zzcgen_copz00(obj_t BgL_obj2782z00_307)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 33 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2782z00_307, BGl_blockz00zzcgen_copz00);} 
}



/* _block? */
obj_t BGl__blockzf3zf3zzcgen_copz00(obj_t BgL_envz00_3915, obj_t BgL_obj2782z00_3916)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 33 */
{ /* ./Cgen/cop.scm 33 */
bool_t BgL_auxz00_6090;
BgL_auxz00_6090 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2782z00_3916, BGl_blockz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_6090);} } 
}



/* make-block */
BGL_EXPORTED_DEF BgL_blockz00_bglt BGl_makezd2blockzd2zzcgen_copz00(obj_t BgL_loc2761z00_311, BgL_copz00_bglt BgL_body2762z00_312)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 33 */
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_new2763z00_2857;
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_res5589z00_2863;
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_new2771z00_2858;
BgL_new2771z00_2858 = 
((BgL_blockz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_blockz00_bgl) ))); 
{ /* ./Cgen/cop.scm 33 */
long BgL_arg4226z00_2859;
BgL_arg4226z00_2859 = 
BGl_classzd2numzd2zz__objectz00(BGl_blockz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 33 */
BgL_objectz00_bglt BgL_objz00_2860;
BgL_objz00_2860 = 
(BgL_objectz00_bglt)(BgL_new2771z00_2858); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2860, BgL_arg4226z00_2859); } } 
{ /* ./Cgen/cop.scm 33 */
BgL_objectz00_bglt BgL_auxz00_6097;
BgL_auxz00_6097 = 
(BgL_objectz00_bglt)(BgL_new2771z00_2858); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6097, BFALSE); } 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_objz00_2862;
BgL_objz00_2862 = 
(obj_t)(BgL_new2771z00_2858); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2862); BUNSPEC; } 
BgL_res5589z00_2863 = BgL_new2771z00_2858; } 
BgL_new2763z00_2857 = BgL_res5589z00_2863; } 
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_res5590z00_2869;
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_new2767z00_2864;
BgL_new2767z00_2864 = BgL_new2763z00_2857; 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_loc2765z00_2867;BgL_copz00_bglt BgL_body2766z00_2868;
BgL_loc2765z00_2867 = BgL_loc2761z00_311; 
BgL_body2766z00_2868 = BgL_body2762z00_312; 
((((BgL_blockz00_bglt)CREF(BgL_new2767z00_2864))->BgL_locz00) = ((obj_t)BgL_loc2765z00_2867), BUNSPEC); 
((((BgL_blockz00_bglt)CREF(BgL_new2767z00_2864))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_body2766z00_2868), BUNSPEC); 
BgL_res5590z00_2869 = BgL_new2767z00_2864; } } BgL_res5590z00_2869; } 
return BgL_new2763z00_2857;} } 
}



/* _make-block */
obj_t BGl__makezd2blockzd2zzcgen_copz00(obj_t BgL_envz00_3917, obj_t BgL_loc2761z00_3918, obj_t BgL_body2762z00_3919)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 33 */
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_auxz00_6104;
BgL_auxz00_6104 = 
BGl_makezd2blockzd2zzcgen_copz00(BgL_loc2761z00_3918, 
(BgL_copz00_bglt)(BgL_body2762z00_3919)); 
return 
(obj_t)(BgL_auxz00_6104);} } 
}



/* fill-block! */
BGL_EXPORTED_DEF BgL_blockz00_bglt BGl_fillzd2blockz12zc0zzcgen_copz00(BgL_blockz00_bglt BgL_new2767z00_313, obj_t BgL_loc2765z00_314, BgL_copz00_bglt BgL_body2766z00_315)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 33 */
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_loc2765z00_4642;BgL_copz00_bglt BgL_body2766z00_4643;
BgL_loc2765z00_4642 = BgL_loc2765z00_314; 
BgL_body2766z00_4643 = BgL_body2766z00_315; 
((((BgL_blockz00_bglt)CREF(BgL_new2767z00_313))->BgL_locz00) = ((obj_t)BgL_loc2765z00_4642), BUNSPEC); 
((((BgL_blockz00_bglt)CREF(BgL_new2767z00_313))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_body2766z00_4643), BUNSPEC); 
return BgL_new2767z00_313;} } 
}



/* _fill-block! */
obj_t BGl__fillzd2blockz12zc0zzcgen_copz00(obj_t BgL_envz00_3920, obj_t BgL_new2767z00_3921, obj_t BgL_loc2765z00_3922, obj_t BgL_body2766z00_3923)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 33 */
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_auxz00_6110;
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_res7000z00_4649;
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_new2767z00_4644;BgL_copz00_bglt BgL_body2766z00_4646;
BgL_new2767z00_4644 = 
(BgL_blockz00_bglt)(BgL_new2767z00_3921); 
BgL_body2766z00_4646 = 
(BgL_copz00_bglt)(BgL_body2766z00_3923); 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_loc2765z00_4647;BgL_copz00_bglt BgL_body2766z00_4648;
BgL_loc2765z00_4647 = BgL_loc2765z00_3922; 
BgL_body2766z00_4648 = BgL_body2766z00_4646; 
((((BgL_blockz00_bglt)CREF(BgL_new2767z00_4644))->BgL_locz00) = ((obj_t)BgL_loc2765z00_4647), BUNSPEC); 
((((BgL_blockz00_bglt)CREF(BgL_new2767z00_4644))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_body2766z00_4648), BUNSPEC); 
BgL_res7000z00_4649 = BgL_new2767z00_4644; } } 
BgL_auxz00_6110 = BgL_res7000z00_4649; } 
return 
(obj_t)(BgL_auxz00_6110);} } 
}



/* allocate-block */
BGL_EXPORTED_DEF BgL_blockz00_bglt BGl_allocatezd2blockzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 33 */
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_new2771z00_4650;
BgL_new2771z00_4650 = 
((BgL_blockz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_blockz00_bgl) ))); 
{ /* ./Cgen/cop.scm 33 */
long BgL_arg4226z00_4651;
BgL_arg4226z00_4651 = 
BGl_classzd2numzd2zz__objectz00(BGl_blockz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 33 */
BgL_objectz00_bglt BgL_objz00_4652;
BgL_objz00_4652 = 
(BgL_objectz00_bglt)(BgL_new2771z00_4650); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4652, BgL_arg4226z00_4651); } } 
{ /* ./Cgen/cop.scm 33 */
BgL_objectz00_bglt BgL_auxz00_6120;
BgL_auxz00_6120 = 
(BgL_objectz00_bglt)(BgL_new2771z00_4650); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6120, BFALSE); } 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_objz00_4653;
BgL_objz00_4653 = 
(obj_t)(BgL_new2771z00_4650); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4653); BUNSPEC; } 
return BgL_new2771z00_4650;} } 
}



/* _allocate-block */
obj_t BGl__allocatezd2blockzd2zzcgen_copz00(obj_t BgL_envz00_3626)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 33 */
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_auxz00_6125;
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_res7001z00_4658;
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_new2771z00_4654;
BgL_new2771z00_4654 = 
((BgL_blockz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_blockz00_bgl) ))); 
{ /* ./Cgen/cop.scm 33 */
long BgL_arg4226z00_4655;
BgL_arg4226z00_4655 = 
BGl_classzd2numzd2zz__objectz00(BGl_blockz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 33 */
BgL_objectz00_bglt BgL_objz00_4656;
BgL_objz00_4656 = 
(BgL_objectz00_bglt)(BgL_new2771z00_4654); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4656, BgL_arg4226z00_4655); } } 
{ /* ./Cgen/cop.scm 33 */
BgL_objectz00_bglt BgL_auxz00_6130;
BgL_auxz00_6130 = 
(BgL_objectz00_bglt)(BgL_new2771z00_4654); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6130, BFALSE); } 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_objz00_4657;
BgL_objz00_4657 = 
(obj_t)(BgL_new2771z00_4654); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4657); BUNSPEC; } 
BgL_res7001z00_4658 = BgL_new2771z00_4654; } 
BgL_auxz00_6125 = BgL_res7001z00_4658; } 
return 
(obj_t)(BgL_auxz00_6125);} } 
}



/* cgoto? */
BGL_EXPORTED_DEF bool_t BGl_cgotozf3zf3zzcgen_copz00(obj_t BgL_obj2754z00_317)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 30 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2754z00_317, BGl_cgotoz00zzcgen_copz00);} 
}



/* _cgoto? */
obj_t BGl__cgotozf3zf3zzcgen_copz00(obj_t BgL_envz00_3924, obj_t BgL_obj2754z00_3925)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 30 */
{ /* ./Cgen/cop.scm 30 */
bool_t BgL_auxz00_6137;
BgL_auxz00_6137 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2754z00_3925, BGl_cgotoz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_6137);} } 
}



/* make-cgoto */
BGL_EXPORTED_DEF BgL_cgotoz00_bglt BGl_makezd2cgotozd2zzcgen_copz00(obj_t BgL_loc2733z00_321, BgL_clabelz00_bglt BgL_label2734z00_322)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 30 */
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_new2735z00_2877;
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_res5591z00_2883;
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_new2743z00_2878;
BgL_new2743z00_2878 = 
((BgL_cgotoz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cgotoz00_bgl) ))); 
{ /* ./Cgen/cop.scm 30 */
long BgL_arg4235z00_2879;
BgL_arg4235z00_2879 = 
BGl_classzd2numzd2zz__objectz00(BGl_cgotoz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 30 */
BgL_objectz00_bglt BgL_objz00_2880;
BgL_objz00_2880 = 
(BgL_objectz00_bglt)(BgL_new2743z00_2878); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2880, BgL_arg4235z00_2879); } } 
{ /* ./Cgen/cop.scm 30 */
BgL_objectz00_bglt BgL_auxz00_6144;
BgL_auxz00_6144 = 
(BgL_objectz00_bglt)(BgL_new2743z00_2878); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6144, BFALSE); } 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_objz00_2882;
BgL_objz00_2882 = 
(obj_t)(BgL_new2743z00_2878); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2882); BUNSPEC; } 
BgL_res5591z00_2883 = BgL_new2743z00_2878; } 
BgL_new2735z00_2877 = BgL_res5591z00_2883; } 
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_res5592z00_2889;
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_new2739z00_2884;
BgL_new2739z00_2884 = BgL_new2735z00_2877; 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_loc2737z00_2887;BgL_clabelz00_bglt BgL_label2738z00_2888;
BgL_loc2737z00_2887 = BgL_loc2733z00_321; 
BgL_label2738z00_2888 = BgL_label2734z00_322; 
((((BgL_cgotoz00_bglt)CREF(BgL_new2739z00_2884))->BgL_locz00) = ((obj_t)BgL_loc2737z00_2887), BUNSPEC); 
((((BgL_cgotoz00_bglt)CREF(BgL_new2739z00_2884))->BgL_labelz00) = ((BgL_clabelz00_bglt)BgL_label2738z00_2888), BUNSPEC); 
BgL_res5592z00_2889 = BgL_new2739z00_2884; } } BgL_res5592z00_2889; } 
return BgL_new2735z00_2877;} } 
}



/* _make-cgoto5749 */
obj_t BGl__makezd2cgoto5749zd2zzcgen_copz00(obj_t BgL_envz00_3926, obj_t BgL_loc2733z00_3927, obj_t BgL_label2734z00_3928)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 30 */
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_auxz00_6151;
BgL_auxz00_6151 = 
BGl_makezd2cgotozd2zzcgen_copz00(BgL_loc2733z00_3927, 
(BgL_clabelz00_bglt)(BgL_label2734z00_3928)); 
return 
(obj_t)(BgL_auxz00_6151);} } 
}



/* fill-cgoto! */
BGL_EXPORTED_DEF BgL_cgotoz00_bglt BGl_fillzd2cgotoz12zc0zzcgen_copz00(BgL_cgotoz00_bglt BgL_new2739z00_323, obj_t BgL_loc2737z00_324, BgL_clabelz00_bglt BgL_label2738z00_325)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 30 */
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_loc2737z00_4660;BgL_clabelz00_bglt BgL_label2738z00_4661;
BgL_loc2737z00_4660 = BgL_loc2737z00_324; 
BgL_label2738z00_4661 = BgL_label2738z00_325; 
((((BgL_cgotoz00_bglt)CREF(BgL_new2739z00_323))->BgL_locz00) = ((obj_t)BgL_loc2737z00_4660), BUNSPEC); 
((((BgL_cgotoz00_bglt)CREF(BgL_new2739z00_323))->BgL_labelz00) = ((BgL_clabelz00_bglt)BgL_label2738z00_4661), BUNSPEC); 
return BgL_new2739z00_323;} } 
}



/* _fill-cgoto!5751 */
obj_t BGl__fillzd2cgotoz125751zc0zzcgen_copz00(obj_t BgL_envz00_3929, obj_t BgL_new2739z00_3930, obj_t BgL_loc2737z00_3931, obj_t BgL_label2738z00_3932)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 30 */
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_auxz00_6157;
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_res7002z00_4667;
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_new2739z00_4662;BgL_clabelz00_bglt BgL_label2738z00_4664;
BgL_new2739z00_4662 = 
(BgL_cgotoz00_bglt)(BgL_new2739z00_3930); 
BgL_label2738z00_4664 = 
(BgL_clabelz00_bglt)(BgL_label2738z00_3932); 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_loc2737z00_4665;BgL_clabelz00_bglt BgL_label2738z00_4666;
BgL_loc2737z00_4665 = BgL_loc2737z00_3931; 
BgL_label2738z00_4666 = BgL_label2738z00_4664; 
((((BgL_cgotoz00_bglt)CREF(BgL_new2739z00_4662))->BgL_locz00) = ((obj_t)BgL_loc2737z00_4665), BUNSPEC); 
((((BgL_cgotoz00_bglt)CREF(BgL_new2739z00_4662))->BgL_labelz00) = ((BgL_clabelz00_bglt)BgL_label2738z00_4666), BUNSPEC); 
BgL_res7002z00_4667 = BgL_new2739z00_4662; } } 
BgL_auxz00_6157 = BgL_res7002z00_4667; } 
return 
(obj_t)(BgL_auxz00_6157);} } 
}



/* allocate-cgoto */
BGL_EXPORTED_DEF BgL_cgotoz00_bglt BGl_allocatezd2cgotozd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 30 */
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_new2743z00_4668;
BgL_new2743z00_4668 = 
((BgL_cgotoz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cgotoz00_bgl) ))); 
{ /* ./Cgen/cop.scm 30 */
long BgL_arg4235z00_4669;
BgL_arg4235z00_4669 = 
BGl_classzd2numzd2zz__objectz00(BGl_cgotoz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 30 */
BgL_objectz00_bglt BgL_objz00_4670;
BgL_objz00_4670 = 
(BgL_objectz00_bglt)(BgL_new2743z00_4668); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4670, BgL_arg4235z00_4669); } } 
{ /* ./Cgen/cop.scm 30 */
BgL_objectz00_bglt BgL_auxz00_6167;
BgL_auxz00_6167 = 
(BgL_objectz00_bglt)(BgL_new2743z00_4668); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6167, BFALSE); } 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_objz00_4671;
BgL_objz00_4671 = 
(obj_t)(BgL_new2743z00_4668); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4671); BUNSPEC; } 
return BgL_new2743z00_4668;} } 
}



/* _allocate-cgoto */
obj_t BGl__allocatezd2cgotozd2zzcgen_copz00(obj_t BgL_envz00_3625)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 30 */
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_auxz00_6172;
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_res7003z00_4676;
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_new2743z00_4672;
BgL_new2743z00_4672 = 
((BgL_cgotoz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_cgotoz00_bgl) ))); 
{ /* ./Cgen/cop.scm 30 */
long BgL_arg4235z00_4673;
BgL_arg4235z00_4673 = 
BGl_classzd2numzd2zz__objectz00(BGl_cgotoz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 30 */
BgL_objectz00_bglt BgL_objz00_4674;
BgL_objz00_4674 = 
(BgL_objectz00_bglt)(BgL_new2743z00_4672); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4674, BgL_arg4235z00_4673); } } 
{ /* ./Cgen/cop.scm 30 */
BgL_objectz00_bglt BgL_auxz00_6177;
BgL_auxz00_6177 = 
(BgL_objectz00_bglt)(BgL_new2743z00_4672); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6177, BFALSE); } 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_objz00_4675;
BgL_objz00_4675 = 
(obj_t)(BgL_new2743z00_4672); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4675); BUNSPEC; } 
BgL_res7003z00_4676 = BgL_new2743z00_4672; } 
BgL_auxz00_6172 = BgL_res7003z00_4676; } 
return 
(obj_t)(BgL_auxz00_6172);} } 
}



/* clabel? */
BGL_EXPORTED_DEF bool_t BGl_clabelzf3zf3zzcgen_copz00(obj_t BgL_obj2728z00_327)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 25 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2728z00_327, BGl_clabelz00zzcgen_copz00);} 
}



/* _clabel? */
obj_t BGl__clabelzf3zf3zzcgen_copz00(obj_t BgL_envz00_3933, obj_t BgL_obj2728z00_3934)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 25 */
{ /* ./Cgen/cop.scm 25 */
bool_t BgL_auxz00_6184;
BgL_auxz00_6184 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2728z00_3934, BGl_clabelz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_6184);} } 
}



/* make-clabel */
BGL_EXPORTED_DEF BgL_clabelz00_bglt BGl_makezd2clabelzd2zzcgen_copz00(obj_t BgL_loc2693z00_331, obj_t BgL_name2694z00_332, bool_t BgL_usedzf32695zf3_333, obj_t BgL_body2696z00_334)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 25 */
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_new2697z00_2897;
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_res5593z00_2903;
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_new2709z00_2898;
BgL_new2709z00_2898 = 
((BgL_clabelz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_clabelz00_bgl) ))); 
{ /* ./Cgen/cop.scm 25 */
long BgL_arg4244z00_2899;
BgL_arg4244z00_2899 = 
BGl_classzd2numzd2zz__objectz00(BGl_clabelz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 25 */
BgL_objectz00_bglt BgL_objz00_2900;
BgL_objz00_2900 = 
(BgL_objectz00_bglt)(BgL_new2709z00_2898); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2900, BgL_arg4244z00_2899); } } 
{ /* ./Cgen/cop.scm 25 */
BgL_objectz00_bglt BgL_auxz00_6191;
BgL_auxz00_6191 = 
(BgL_objectz00_bglt)(BgL_new2709z00_2898); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6191, BFALSE); } 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_objz00_2902;
BgL_objz00_2902 = 
(obj_t)(BgL_new2709z00_2898); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2902); BUNSPEC; } 
BgL_res5593z00_2903 = BgL_new2709z00_2898; } 
BgL_new2697z00_2897 = BgL_res5593z00_2903; } 
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_res5594z00_2913;
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_new2703z00_2904;
BgL_new2703z00_2904 = BgL_new2697z00_2897; 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_loc2699z00_2909;obj_t BgL_name2700z00_2910;bool_t BgL_usedzf32701zf3_2911;obj_t BgL_body2702z00_2912;
BgL_loc2699z00_2909 = BgL_loc2693z00_331; 
BgL_name2700z00_2910 = BgL_name2694z00_332; 
BgL_usedzf32701zf3_2911 = BgL_usedzf32695zf3_333; 
BgL_body2702z00_2912 = BgL_body2696z00_334; 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_2904))->BgL_locz00) = ((obj_t)BgL_loc2699z00_2909), BUNSPEC); 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_2904))->BgL_namez00) = ((obj_t)BgL_name2700z00_2910), BUNSPEC); 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_2904))->BgL_usedzf3zf3) = ((bool_t)BgL_usedzf32701zf3_2911), BUNSPEC); 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_2904))->BgL_bodyz00) = ((obj_t)BgL_body2702z00_2912), BUNSPEC); 
BgL_res5594z00_2913 = BgL_new2703z00_2904; } } BgL_res5594z00_2913; } 
return BgL_new2697z00_2897;} } 
}



/* _make-clabel5754 */
obj_t BGl__makezd2clabel5754zd2zzcgen_copz00(obj_t BgL_envz00_3935, obj_t BgL_loc2693z00_3936, obj_t BgL_name2694z00_3937, obj_t BgL_usedzf32695zf3_3938, obj_t BgL_body2696z00_3939)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 25 */
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_auxz00_6200;
BgL_auxz00_6200 = 
BGl_makezd2clabelzd2zzcgen_copz00(BgL_loc2693z00_3936, BgL_name2694z00_3937, 
CBOOL(BgL_usedzf32695zf3_3938), BgL_body2696z00_3939); 
return 
(obj_t)(BgL_auxz00_6200);} } 
}



/* fill-clabel! */
BGL_EXPORTED_DEF BgL_clabelz00_bglt BGl_fillzd2clabelz12zc0zzcgen_copz00(BgL_clabelz00_bglt BgL_new2703z00_335, obj_t BgL_loc2699z00_336, obj_t BgL_name2700z00_337, bool_t BgL_usedzf32701zf3_338, obj_t BgL_body2702z00_339)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 25 */
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_loc2699z00_4678;obj_t BgL_name2700z00_4679;bool_t BgL_usedzf32701zf3_4680;obj_t BgL_body2702z00_4681;
BgL_loc2699z00_4678 = BgL_loc2699z00_336; 
BgL_name2700z00_4679 = BgL_name2700z00_337; 
BgL_usedzf32701zf3_4680 = BgL_usedzf32701zf3_338; 
BgL_body2702z00_4681 = BgL_body2702z00_339; 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_335))->BgL_locz00) = ((obj_t)BgL_loc2699z00_4678), BUNSPEC); 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_335))->BgL_namez00) = ((obj_t)BgL_name2700z00_4679), BUNSPEC); 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_335))->BgL_usedzf3zf3) = ((bool_t)BgL_usedzf32701zf3_4680), BUNSPEC); 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_335))->BgL_bodyz00) = ((obj_t)BgL_body2702z00_4681), BUNSPEC); 
return BgL_new2703z00_335;} } 
}



/* _fill-clabel!5756 */
obj_t BGl__fillzd2clabelz125756zc0zzcgen_copz00(obj_t BgL_envz00_3940, obj_t BgL_new2703z00_3941, obj_t BgL_loc2699z00_3942, obj_t BgL_name2700z00_3943, obj_t BgL_usedzf32701zf3_3944, obj_t BgL_body2702z00_3945)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 25 */
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_auxz00_6208;
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_res7004z00_4691;
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_new2703z00_4682;bool_t BgL_usedzf32701zf3_4685;
BgL_new2703z00_4682 = 
(BgL_clabelz00_bglt)(BgL_new2703z00_3941); 
BgL_usedzf32701zf3_4685 = 
CBOOL(BgL_usedzf32701zf3_3944); 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_loc2699z00_4687;obj_t BgL_name2700z00_4688;bool_t BgL_usedzf32701zf3_4689;obj_t BgL_body2702z00_4690;
BgL_loc2699z00_4687 = BgL_loc2699z00_3942; 
BgL_name2700z00_4688 = BgL_name2700z00_3943; 
BgL_usedzf32701zf3_4689 = BgL_usedzf32701zf3_4685; 
BgL_body2702z00_4690 = BgL_body2702z00_3945; 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_4682))->BgL_locz00) = ((obj_t)BgL_loc2699z00_4687), BUNSPEC); 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_4682))->BgL_namez00) = ((obj_t)BgL_name2700z00_4688), BUNSPEC); 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_4682))->BgL_usedzf3zf3) = ((bool_t)BgL_usedzf32701zf3_4689), BUNSPEC); 
((((BgL_clabelz00_bglt)CREF(BgL_new2703z00_4682))->BgL_bodyz00) = ((obj_t)BgL_body2702z00_4690), BUNSPEC); 
BgL_res7004z00_4691 = BgL_new2703z00_4682; } } 
BgL_auxz00_6208 = BgL_res7004z00_4691; } 
return 
(obj_t)(BgL_auxz00_6208);} } 
}



/* allocate-clabel */
BGL_EXPORTED_DEF BgL_clabelz00_bglt BGl_allocatezd2clabelzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 25 */
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_new2709z00_4692;
BgL_new2709z00_4692 = 
((BgL_clabelz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_clabelz00_bgl) ))); 
{ /* ./Cgen/cop.scm 25 */
long BgL_arg4244z00_4693;
BgL_arg4244z00_4693 = 
BGl_classzd2numzd2zz__objectz00(BGl_clabelz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 25 */
BgL_objectz00_bglt BgL_objz00_4694;
BgL_objz00_4694 = 
(BgL_objectz00_bglt)(BgL_new2709z00_4692); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4694, BgL_arg4244z00_4693); } } 
{ /* ./Cgen/cop.scm 25 */
BgL_objectz00_bglt BgL_auxz00_6220;
BgL_auxz00_6220 = 
(BgL_objectz00_bglt)(BgL_new2709z00_4692); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6220, BFALSE); } 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_objz00_4695;
BgL_objz00_4695 = 
(obj_t)(BgL_new2709z00_4692); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4695); BUNSPEC; } 
return BgL_new2709z00_4692;} } 
}



/* _allocate-clabel */
obj_t BGl__allocatezd2clabelzd2zzcgen_copz00(obj_t BgL_envz00_3624)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 25 */
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_auxz00_6225;
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_res7005z00_4700;
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_new2709z00_4696;
BgL_new2709z00_4696 = 
((BgL_clabelz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_clabelz00_bgl) ))); 
{ /* ./Cgen/cop.scm 25 */
long BgL_arg4244z00_4697;
BgL_arg4244z00_4697 = 
BGl_classzd2numzd2zz__objectz00(BGl_clabelz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 25 */
BgL_objectz00_bglt BgL_objz00_4698;
BgL_objz00_4698 = 
(BgL_objectz00_bglt)(BgL_new2709z00_4696); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4698, BgL_arg4244z00_4697); } } 
{ /* ./Cgen/cop.scm 25 */
BgL_objectz00_bglt BgL_auxz00_6230;
BgL_auxz00_6230 = 
(BgL_objectz00_bglt)(BgL_new2709z00_4696); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6230, BFALSE); } 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_objz00_4699;
BgL_objz00_4699 = 
(obj_t)(BgL_new2709z00_4696); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4699); BUNSPEC; } 
BgL_res7005z00_4700 = BgL_new2709z00_4696; } 
BgL_auxz00_6225 = BgL_res7005z00_4700; } 
return 
(obj_t)(BgL_auxz00_6225);} } 
}



/* cop? */
BGL_EXPORTED_DEF bool_t BGl_copzf3zf3zzcgen_copz00(obj_t BgL_obj2679z00_347)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 21 */
return 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2679z00_347, BGl_copz00zzcgen_copz00);} 
}



/* _cop? */
obj_t BGl__copzf3zf3zzcgen_copz00(obj_t BgL_envz00_3946, obj_t BgL_obj2679z00_3947)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 21 */
{ /* ./Cgen/cop.scm 21 */
bool_t BgL_auxz00_6237;
BgL_auxz00_6237 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2679z00_3947, BGl_copz00zzcgen_copz00); 
return 
BBOOL(BgL_auxz00_6237);} } 
}



/* make-cop */
BGL_EXPORTED_DEF BgL_copz00_bglt BGl_makezd2copzd2zzcgen_copz00(obj_t BgL_loc2665z00_351)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 21 */
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_new2666z00_2923;
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_res5595z00_2929;
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_new2672z00_2924;
BgL_new2672z00_2924 = 
((BgL_copz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_copz00_bgl) ))); 
{ /* ./Cgen/cop.scm 21 */
long BgL_arg4253z00_2925;
BgL_arg4253z00_2925 = 
BGl_classzd2numzd2zz__objectz00(BGl_copz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 21 */
BgL_objectz00_bglt BgL_objz00_2926;
BgL_objz00_2926 = 
(BgL_objectz00_bglt)(BgL_new2672z00_2924); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2926, BgL_arg4253z00_2925); } } 
{ /* ./Cgen/cop.scm 21 */
BgL_objectz00_bglt BgL_auxz00_6244;
BgL_auxz00_6244 = 
(BgL_objectz00_bglt)(BgL_new2672z00_2924); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6244, BFALSE); } 
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_objz00_2928;
BgL_objz00_2928 = 
(obj_t)(BgL_new2672z00_2924); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2928); BUNSPEC; } 
BgL_res5595z00_2929 = BgL_new2672z00_2924; } 
BgL_new2666z00_2923 = BgL_res5595z00_2929; } 
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_res5596z00_2933;
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_new2669z00_2930;
BgL_new2669z00_2930 = BgL_new2666z00_2923; 
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_loc2668z00_2932;
BgL_loc2668z00_2932 = BgL_loc2665z00_351; 
((((BgL_copz00_bglt)CREF(BgL_new2669z00_2930))->BgL_locz00) = ((obj_t)BgL_loc2668z00_2932), BUNSPEC); 
BgL_res5596z00_2933 = BgL_new2669z00_2930; } } BgL_res5596z00_2933; } 
return BgL_new2666z00_2923;} } 
}



/* _make-cop */
obj_t BGl__makezd2copzd2zzcgen_copz00(obj_t BgL_envz00_3948, obj_t BgL_loc2665z00_3949)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 21 */
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_auxz00_6250;
BgL_auxz00_6250 = 
BGl_makezd2copzd2zzcgen_copz00(BgL_loc2665z00_3949); 
return 
(obj_t)(BgL_auxz00_6250);} } 
}



/* fill-cop! */
BGL_EXPORTED_DEF BgL_copz00_bglt BGl_fillzd2copz12zc0zzcgen_copz00(BgL_copz00_bglt BgL_new2669z00_352, obj_t BgL_loc2668z00_353)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 21 */
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_loc2668z00_4702;
BgL_loc2668z00_4702 = BgL_loc2668z00_353; 
((((BgL_copz00_bglt)CREF(BgL_new2669z00_352))->BgL_locz00) = ((obj_t)BgL_loc2668z00_4702), BUNSPEC); 
return BgL_new2669z00_352;} } 
}



/* _fill-cop!5760 */
obj_t BGl__fillzd2copz125760zc0zzcgen_copz00(obj_t BgL_envz00_3950, obj_t BgL_new2669z00_3951, obj_t BgL_loc2668z00_3952)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 21 */
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_auxz00_6254;
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_res7006z00_4706;
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_new2669z00_4703;
BgL_new2669z00_4703 = 
(BgL_copz00_bglt)(BgL_new2669z00_3951); 
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_loc2668z00_4705;
BgL_loc2668z00_4705 = BgL_loc2668z00_3952; 
((((BgL_copz00_bglt)CREF(BgL_new2669z00_4703))->BgL_locz00) = ((obj_t)BgL_loc2668z00_4705), BUNSPEC); 
BgL_res7006z00_4706 = BgL_new2669z00_4703; } } 
BgL_auxz00_6254 = BgL_res7006z00_4706; } 
return 
(obj_t)(BgL_auxz00_6254);} } 
}



/* allocate-cop */
BGL_EXPORTED_DEF BgL_copz00_bglt BGl_allocatezd2copzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 21 */
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_new2672z00_4707;
BgL_new2672z00_4707 = 
((BgL_copz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_copz00_bgl) ))); 
{ /* ./Cgen/cop.scm 21 */
long BgL_arg4253z00_4708;
BgL_arg4253z00_4708 = 
BGl_classzd2numzd2zz__objectz00(BGl_copz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 21 */
BgL_objectz00_bglt BgL_objz00_4709;
BgL_objz00_4709 = 
(BgL_objectz00_bglt)(BgL_new2672z00_4707); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4709, BgL_arg4253z00_4708); } } 
{ /* ./Cgen/cop.scm 21 */
BgL_objectz00_bglt BgL_auxz00_6262;
BgL_auxz00_6262 = 
(BgL_objectz00_bglt)(BgL_new2672z00_4707); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6262, BFALSE); } 
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_objz00_4710;
BgL_objz00_4710 = 
(obj_t)(BgL_new2672z00_4707); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4710); BUNSPEC; } 
return BgL_new2672z00_4707;} } 
}



/* _allocate-cop */
obj_t BGl__allocatezd2copzd2zzcgen_copz00(obj_t BgL_envz00_3623)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 21 */
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_auxz00_6267;
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_res7007z00_4715;
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_new2672z00_4711;
BgL_new2672z00_4711 = 
((BgL_copz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_copz00_bgl) ))); 
{ /* ./Cgen/cop.scm 21 */
long BgL_arg4253z00_4712;
BgL_arg4253z00_4712 = 
BGl_classzd2numzd2zz__objectz00(BGl_copz00zzcgen_copz00); 
{ /* ./Cgen/cop.scm 21 */
BgL_objectz00_bglt BgL_objz00_4713;
BgL_objz00_4713 = 
(BgL_objectz00_bglt)(BgL_new2672z00_4711); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_4713, BgL_arg4253z00_4712); } } 
{ /* ./Cgen/cop.scm 21 */
BgL_objectz00_bglt BgL_auxz00_6272;
BgL_auxz00_6272 = 
(BgL_objectz00_bglt)(BgL_new2672z00_4711); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6272, BFALSE); } 
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_objz00_4714;
BgL_objz00_4714 = 
(obj_t)(BgL_new2672z00_4711); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_4714); BUNSPEC; } 
BgL_res7007z00_4715 = BgL_new2672z00_4711; } 
BgL_auxz00_6267 = BgL_res7007z00_4715; } 
return 
(obj_t)(BgL_auxz00_6267);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 15 */
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_bdbzd2blockzd2zzcgen_copz00, BGl_proc6880z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_bdbzd2blockzd2zzcgen_copz00, BGl_proc6881z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_sfunzf2Czf2zzcgen_copz00, BGl_proc6882z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_sfunzf2Czf2zzcgen_copz00, BGl_proc6883z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cjumpzd2exzd2itz00zzcgen_copz00, BGl_proc6884z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cjumpzd2exzd2itz00zzcgen_copz00, BGl_proc6885z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_csetzd2exzd2itz00zzcgen_copz00, BGl_proc6886z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_csetzd2exzd2itz00zzcgen_copz00, BGl_proc6887z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cboxzd2setz12zc0zzcgen_copz00, BGl_proc6888z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cboxzd2setz12zc0zzcgen_copz00, BGl_proc6889z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cboxzd2refzd2zzcgen_copz00, BGl_proc6890z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cboxzd2refzd2zzcgen_copz00, BGl_proc6891z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cmakezd2boxzd2zzcgen_copz00, BGl_proc6892z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cmakezd2boxzd2zzcgen_copz00, BGl_proc6893z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cswitchz00zzcgen_copz00, BGl_proc6894z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cswitchz00zzcgen_copz00, BGl_proc6895z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cfailz00zzcgen_copz00, BGl_proc6896z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cfailz00zzcgen_copz00, BGl_proc6897z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cappz00zzcgen_copz00, BGl_proc6898z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cappz00zzcgen_copz00, BGl_proc6899z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_capplyz00zzcgen_copz00, BGl_proc6900z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_capplyz00zzcgen_copz00, BGl_proc6901z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cfuncallz00zzcgen_copz00, BGl_proc6902z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cfuncallz00zzcgen_copz00, BGl_proc6903z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_localzd2varzd2zzcgen_copz00, BGl_proc6904z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_localzd2varzd2zzcgen_copz00, BGl_proc6905z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cifz00zzcgen_copz00, BGl_proc6906z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cifz00zzcgen_copz00, BGl_proc6907z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_csetqz00zzcgen_copz00, BGl_proc6908z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_csetqz00zzcgen_copz00, BGl_proc6909z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_stopz00zzcgen_copz00, BGl_proc6910z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_stopz00zzcgen_copz00, BGl_proc6911z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_nopz00zzcgen_copz00, BGl_proc6912z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_nopz00zzcgen_copz00, BGl_proc6913z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_csequencez00zzcgen_copz00, BGl_proc6914z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_csequencez00zzcgen_copz00, BGl_proc6915z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_ccastz00zzcgen_copz00, BGl_proc6916z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_ccastz00zzcgen_copz00, BGl_proc6917z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cpragmaz00zzcgen_copz00, BGl_proc6918z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cpragmaz00zzcgen_copz00, BGl_proc6919z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_varcz00zzcgen_copz00, BGl_proc6920z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_varcz00zzcgen_copz00, BGl_proc6921z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_catomz00zzcgen_copz00, BGl_proc6922z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_catomz00zzcgen_copz00, BGl_proc6923z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cvoidz00zzcgen_copz00, BGl_proc6924z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cvoidz00zzcgen_copz00, BGl_proc6925z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_creturnz00zzcgen_copz00, BGl_proc6926z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_creturnz00zzcgen_copz00, BGl_proc6927z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_blockz00zzcgen_copz00, BGl_proc6928z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_blockz00zzcgen_copz00, BGl_proc6929z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_cgotoz00zzcgen_copz00, BGl_proc6930z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_cgotoz00zzcgen_copz00, BGl_proc6931z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_clabelz00zzcgen_copz00, BGl_proc6932z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_clabelz00zzcgen_copz00, BGl_proc6933z00zzcgen_copz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_copz00zzcgen_copz00, BGl_proc6934z00zzcgen_copz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_copz00zzcgen_copz00, BGl_proc6935z00zzcgen_copz00);} 
}



/* struct+object->object-cop3733 */
obj_t BGl_structzb2objectzd2ze3objectzd2cop3733z51zzcgen_copz00(obj_t BgL_envz00_4014, obj_t BgL_oz00_4015, obj_t BgL_sz00_4016)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 21 */
{ 
BgL_copz00_bglt BgL_oz00_2310;obj_t BgL_sz00_2311;
{ /* ./Cgen/cop.scm 21 */
BgL_copz00_bglt BgL_auxz00_6334;
BgL_oz00_2310 = 
(BgL_copz00_bglt)(BgL_oz00_4015); 
BgL_sz00_2311 = BgL_sz00_4016; 
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_arg5528z00_2314;
{ /* ./Cgen/cop.scm 21 */
int BgL_auxz00_6335;
BgL_auxz00_6335 = 
(int)(((long)0)); 
BgL_arg5528z00_2314 = 
STRUCT_REF(BgL_sz00_2311, BgL_auxz00_6335); } 
{ /* ./Cgen/cop.scm 21 */
BgL_objectz00_bglt BgL_auxz00_6338;
BgL_auxz00_6338 = 
(BgL_objectz00_bglt)(BgL_oz00_2310); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6338, BgL_arg5528z00_2314); } } 
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_v2677z00_2315;
{ /* ./Cgen/cop.scm 21 */
int BgL_auxz00_6341;
BgL_auxz00_6341 = 
(int)(((long)1)); 
BgL_v2677z00_2315 = 
STRUCT_REF(BgL_sz00_2311, BgL_auxz00_6341); } 
((((BgL_copz00_bglt)CREF(BgL_oz00_2310))->BgL_locz00) = ((obj_t)BgL_v2677z00_2315), BUNSPEC); } 
BgL_auxz00_6334 = BgL_oz00_2310; 
return 
(obj_t)(BgL_auxz00_6334);} } } 
}



/* object->struct-cop3731 */
obj_t BGl_objectzd2ze3structzd2cop3731ze3zzcgen_copz00(obj_t BgL_envz00_4017, obj_t BgL_obj2673z00_4018)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 21 */
{ 
BgL_copz00_bglt BgL_obj2673z00_2302;
BgL_obj2673z00_2302 = 
(BgL_copz00_bglt)(BgL_obj2673z00_4018); 
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_res2674z00_2305;
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_keyz00_3609;int BgL_lenz00_3610;
BgL_keyz00_3609 = 
CNST_TABLE_REF(((long)0)); 
BgL_lenz00_3610 = 
(int)(((long)2)); 
BgL_res2674z00_2305 = 
make_struct(BgL_keyz00_3609, BgL_lenz00_3610, BUNSPEC); } 
{ /* ./Cgen/cop.scm 21 */
int BgL_kz00_3613;
BgL_kz00_3613 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2674z00_2305, BgL_kz00_3613, BFALSE); } 
{ /* ./Cgen/cop.scm 21 */
obj_t BgL_arg5517z00_2307;
BgL_arg5517z00_2307 = 
(((BgL_copz00_bglt)CREF(BgL_obj2673z00_2302))->BgL_locz00); 
{ /* ./Cgen/cop.scm 21 */
int BgL_kz00_3617;
BgL_kz00_3617 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2674z00_2305, BgL_kz00_3617, BgL_arg5517z00_2307); } } 
return BgL_res2674z00_2305;} } } 
}



/* struct+object->object-clabel3729 */
obj_t BGl_structzb2objectzd2ze3objectzd2clabel3729z51zzcgen_copz00(obj_t BgL_envz00_4019, obj_t BgL_oz00_4020, obj_t BgL_sz00_4021)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 25 */
{ 
BgL_clabelz00_bglt BgL_oz00_2291;obj_t BgL_sz00_2292;
{ /* ./Cgen/cop.scm 25 */
BgL_clabelz00_bglt BgL_auxz00_6356;
BgL_oz00_2291 = 
(BgL_clabelz00_bglt)(BgL_oz00_4020); 
BgL_sz00_2292 = BgL_sz00_4021; 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_arg5501z00_2295;
{ /* ./Cgen/cop.scm 25 */
int BgL_auxz00_6357;
BgL_auxz00_6357 = 
(int)(((long)0)); 
BgL_arg5501z00_2295 = 
STRUCT_REF(BgL_sz00_2292, BgL_auxz00_6357); } 
{ /* ./Cgen/cop.scm 25 */
BgL_objectz00_bglt BgL_auxz00_6360;
BgL_auxz00_6360 = 
(BgL_objectz00_bglt)(BgL_oz00_2291); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6360, BgL_arg5501z00_2295); } } 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_v2714z00_2296;
{ /* ./Cgen/cop.scm 25 */
int BgL_auxz00_6363;
BgL_auxz00_6363 = 
(int)(((long)1)); 
BgL_v2714z00_2296 = 
STRUCT_REF(BgL_sz00_2292, BgL_auxz00_6363); } 
((((BgL_clabelz00_bglt)CREF(BgL_oz00_2291))->BgL_locz00) = ((obj_t)BgL_v2714z00_2296), BUNSPEC); } 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_v2718z00_2297;
{ /* ./Cgen/cop.scm 25 */
int BgL_auxz00_6367;
BgL_auxz00_6367 = 
(int)(((long)2)); 
BgL_v2718z00_2297 = 
STRUCT_REF(BgL_sz00_2292, BgL_auxz00_6367); } 
((((BgL_clabelz00_bglt)CREF(BgL_oz00_2291))->BgL_namez00) = ((obj_t)BgL_v2718z00_2297), BUNSPEC); } 
{ /* ./Cgen/cop.scm 25 */
bool_t BgL_v2722z00_2298;
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_auxz00_6371;
{ /* ./Cgen/cop.scm 25 */
int BgL_auxz00_6372;
BgL_auxz00_6372 = 
(int)(((long)3)); 
BgL_auxz00_6371 = 
STRUCT_REF(BgL_sz00_2292, BgL_auxz00_6372); } 
BgL_v2722z00_2298 = 
CBOOL(BgL_auxz00_6371); } 
((((BgL_clabelz00_bglt)CREF(BgL_oz00_2291))->BgL_usedzf3zf3) = ((bool_t)BgL_v2722z00_2298), BUNSPEC); } 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_v2726z00_2299;
{ /* ./Cgen/cop.scm 25 */
int BgL_auxz00_6377;
BgL_auxz00_6377 = 
(int)(((long)4)); 
BgL_v2726z00_2299 = 
STRUCT_REF(BgL_sz00_2292, BgL_auxz00_6377); } 
((((BgL_clabelz00_bglt)CREF(BgL_oz00_2291))->BgL_bodyz00) = ((obj_t)BgL_v2726z00_2299), BUNSPEC); } 
BgL_auxz00_6356 = BgL_oz00_2291; 
return 
(obj_t)(BgL_auxz00_6356);} } } 
}



/* object->struct-clabel3727 */
obj_t BGl_objectzd2ze3structzd2clabel3727ze3zzcgen_copz00(obj_t BgL_envz00_4022, obj_t BgL_obj2710z00_4023)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 25 */
{ 
BgL_clabelz00_bglt BgL_obj2710z00_2277;
BgL_obj2710z00_2277 = 
(BgL_clabelz00_bglt)(BgL_obj2710z00_4023); 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_res2711z00_2280;
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_keyz00_3577;int BgL_lenz00_3578;
BgL_keyz00_3577 = 
CNST_TABLE_REF(((long)1)); 
BgL_lenz00_3578 = 
(int)(((long)5)); 
BgL_res2711z00_2280 = 
make_struct(BgL_keyz00_3577, BgL_lenz00_3578, BUNSPEC); } 
{ /* ./Cgen/cop.scm 25 */
int BgL_kz00_3581;
BgL_kz00_3581 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2711z00_2280, BgL_kz00_3581, BFALSE); } 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_arg5475z00_2282;
{ /* ./Cgen/cop.scm 25 */
BgL_copz00_bglt BgL_obj2662z00_3583;
BgL_obj2662z00_3583 = 
(BgL_copz00_bglt)(BgL_obj2710z00_2277); 
BgL_arg5475z00_2282 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3583))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 25 */
int BgL_kz00_3585;
BgL_kz00_3585 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2711z00_2280, BgL_kz00_3585, BgL_arg5475z00_2282); } } 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_arg5480z00_2284;
BgL_arg5480z00_2284 = 
(((BgL_clabelz00_bglt)CREF(BgL_obj2710z00_2277))->BgL_namez00); 
{ /* ./Cgen/cop.scm 25 */
int BgL_kz00_3589;
BgL_kz00_3589 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res2711z00_2280, BgL_kz00_3589, BgL_arg5480z00_2284); } } 
{ /* ./Cgen/cop.scm 25 */
bool_t BgL_arg5485z00_2286;
BgL_arg5485z00_2286 = 
(((BgL_clabelz00_bglt)CREF(BgL_obj2710z00_2277))->BgL_usedzf3zf3); 
{ /* ./Cgen/cop.scm 25 */
int BgL_kz00_3593;obj_t BgL_oz00_3594;
BgL_kz00_3593 = 
(int)(((long)3)); 
BgL_oz00_3594 = 
BBOOL(BgL_arg5485z00_2286); 
STRUCT_SET(BgL_res2711z00_2280, BgL_kz00_3593, BgL_oz00_3594); } } 
{ /* ./Cgen/cop.scm 25 */
obj_t BgL_arg5490z00_2288;
BgL_arg5490z00_2288 = 
(((BgL_clabelz00_bglt)CREF(BgL_obj2710z00_2277))->BgL_bodyz00); 
{ /* ./Cgen/cop.scm 25 */
int BgL_kz00_3597;
BgL_kz00_3597 = 
(int)(((long)4)); 
STRUCT_SET(BgL_res2711z00_2280, BgL_kz00_3597, BgL_arg5490z00_2288); } } 
return BgL_res2711z00_2280;} } } 
}



/* struct+object->object-cgoto3725 */
obj_t BGl_structzb2objectzd2ze3objectzd2cgoto3725z51zzcgen_copz00(obj_t BgL_envz00_4024, obj_t BgL_oz00_4025, obj_t BgL_sz00_4026)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 30 */
{ 
BgL_cgotoz00_bglt BgL_oz00_2268;obj_t BgL_sz00_2269;
{ /* ./Cgen/cop.scm 30 */
BgL_cgotoz00_bglt BgL_auxz00_6403;
BgL_oz00_2268 = 
(BgL_cgotoz00_bglt)(BgL_oz00_4025); 
BgL_sz00_2269 = BgL_sz00_4026; 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_arg5461z00_2272;
{ /* ./Cgen/cop.scm 30 */
int BgL_auxz00_6404;
BgL_auxz00_6404 = 
(int)(((long)0)); 
BgL_arg5461z00_2272 = 
STRUCT_REF(BgL_sz00_2269, BgL_auxz00_6404); } 
{ /* ./Cgen/cop.scm 30 */
BgL_objectz00_bglt BgL_auxz00_6407;
BgL_auxz00_6407 = 
(BgL_objectz00_bglt)(BgL_oz00_2268); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6407, BgL_arg5461z00_2272); } } 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_v2748z00_2273;
{ /* ./Cgen/cop.scm 30 */
int BgL_auxz00_6410;
BgL_auxz00_6410 = 
(int)(((long)1)); 
BgL_v2748z00_2273 = 
STRUCT_REF(BgL_sz00_2269, BgL_auxz00_6410); } 
((((BgL_cgotoz00_bglt)CREF(BgL_oz00_2268))->BgL_locz00) = ((obj_t)BgL_v2748z00_2273), BUNSPEC); } 
{ /* ./Cgen/cop.scm 30 */
BgL_clabelz00_bglt BgL_v2752z00_2274;
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_auxz00_6414;
{ /* ./Cgen/cop.scm 30 */
int BgL_auxz00_6415;
BgL_auxz00_6415 = 
(int)(((long)2)); 
BgL_auxz00_6414 = 
STRUCT_REF(BgL_sz00_2269, BgL_auxz00_6415); } 
BgL_v2752z00_2274 = 
(BgL_clabelz00_bglt)(BgL_auxz00_6414); } 
((((BgL_cgotoz00_bglt)CREF(BgL_oz00_2268))->BgL_labelz00) = ((BgL_clabelz00_bglt)BgL_v2752z00_2274), BUNSPEC); } 
BgL_auxz00_6403 = BgL_oz00_2268; 
return 
(obj_t)(BgL_auxz00_6403);} } } 
}



/* object->struct-cgoto3723 */
obj_t BGl_objectzd2ze3structzd2cgoto3723ze3zzcgen_copz00(obj_t BgL_envz00_4027, obj_t BgL_obj2744z00_4028)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 30 */
{ 
BgL_cgotoz00_bglt BgL_obj2744z00_2258;
BgL_obj2744z00_2258 = 
(BgL_cgotoz00_bglt)(BgL_obj2744z00_4028); 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_res2745z00_2261;
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_keyz00_3557;int BgL_lenz00_3558;
BgL_keyz00_3557 = 
CNST_TABLE_REF(((long)2)); 
BgL_lenz00_3558 = 
(int)(((long)3)); 
BgL_res2745z00_2261 = 
make_struct(BgL_keyz00_3557, BgL_lenz00_3558, BUNSPEC); } 
{ /* ./Cgen/cop.scm 30 */
int BgL_kz00_3561;
BgL_kz00_3561 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2745z00_2261, BgL_kz00_3561, BFALSE); } 
{ /* ./Cgen/cop.scm 30 */
obj_t BgL_arg5445z00_2263;
{ /* ./Cgen/cop.scm 30 */
BgL_copz00_bglt BgL_obj2662z00_3563;
BgL_obj2662z00_3563 = 
(BgL_copz00_bglt)(BgL_obj2744z00_2258); 
BgL_arg5445z00_2263 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3563))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 30 */
int BgL_kz00_3565;
BgL_kz00_3565 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2745z00_2261, BgL_kz00_3565, BgL_arg5445z00_2263); } } 
{ /* ./Cgen/cop.scm 30 */
BgL_clabelz00_bglt BgL_arg5450z00_2265;
BgL_arg5450z00_2265 = 
(((BgL_cgotoz00_bglt)CREF(BgL_obj2744z00_2258))->BgL_labelz00); 
{ /* ./Cgen/cop.scm 30 */
int BgL_kz00_3569;obj_t BgL_oz00_3570;
BgL_kz00_3569 = 
(int)(((long)2)); 
BgL_oz00_3570 = 
(obj_t)(BgL_arg5450z00_2265); 
STRUCT_SET(BgL_res2745z00_2261, BgL_kz00_3569, BgL_oz00_3570); } } 
return BgL_res2745z00_2261;} } } 
}



/* struct+object->object-block3721 */
obj_t BGl_structzb2objectzd2ze3objectzd2block3721z51zzcgen_copz00(obj_t BgL_envz00_4029, obj_t BgL_oz00_4030, obj_t BgL_sz00_4031)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 33 */
{ 
BgL_blockz00_bglt BgL_oz00_2249;obj_t BgL_sz00_2250;
{ /* ./Cgen/cop.scm 33 */
BgL_blockz00_bglt BgL_auxz00_6436;
BgL_oz00_2249 = 
(BgL_blockz00_bglt)(BgL_oz00_4030); 
BgL_sz00_2250 = BgL_sz00_4031; 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_arg5431z00_2253;
{ /* ./Cgen/cop.scm 33 */
int BgL_auxz00_6437;
BgL_auxz00_6437 = 
(int)(((long)0)); 
BgL_arg5431z00_2253 = 
STRUCT_REF(BgL_sz00_2250, BgL_auxz00_6437); } 
{ /* ./Cgen/cop.scm 33 */
BgL_objectz00_bglt BgL_auxz00_6440;
BgL_auxz00_6440 = 
(BgL_objectz00_bglt)(BgL_oz00_2249); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6440, BgL_arg5431z00_2253); } } 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_v2776z00_2254;
{ /* ./Cgen/cop.scm 33 */
int BgL_auxz00_6443;
BgL_auxz00_6443 = 
(int)(((long)1)); 
BgL_v2776z00_2254 = 
STRUCT_REF(BgL_sz00_2250, BgL_auxz00_6443); } 
((((BgL_blockz00_bglt)CREF(BgL_oz00_2249))->BgL_locz00) = ((obj_t)BgL_v2776z00_2254), BUNSPEC); } 
{ /* ./Cgen/cop.scm 33 */
BgL_copz00_bglt BgL_v2780z00_2255;
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_auxz00_6447;
{ /* ./Cgen/cop.scm 33 */
int BgL_auxz00_6448;
BgL_auxz00_6448 = 
(int)(((long)2)); 
BgL_auxz00_6447 = 
STRUCT_REF(BgL_sz00_2250, BgL_auxz00_6448); } 
BgL_v2780z00_2255 = 
(BgL_copz00_bglt)(BgL_auxz00_6447); } 
((((BgL_blockz00_bglt)CREF(BgL_oz00_2249))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_v2780z00_2255), BUNSPEC); } 
BgL_auxz00_6436 = BgL_oz00_2249; 
return 
(obj_t)(BgL_auxz00_6436);} } } 
}



/* object->struct-block3719 */
obj_t BGl_objectzd2ze3structzd2block3719ze3zzcgen_copz00(obj_t BgL_envz00_4032, obj_t BgL_obj2772z00_4033)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 33 */
{ 
BgL_blockz00_bglt BgL_obj2772z00_2239;
BgL_obj2772z00_2239 = 
(BgL_blockz00_bglt)(BgL_obj2772z00_4033); 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_res2773z00_2242;
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_keyz00_3537;int BgL_lenz00_3538;
BgL_keyz00_3537 = 
CNST_TABLE_REF(((long)3)); 
BgL_lenz00_3538 = 
(int)(((long)3)); 
BgL_res2773z00_2242 = 
make_struct(BgL_keyz00_3537, BgL_lenz00_3538, BUNSPEC); } 
{ /* ./Cgen/cop.scm 33 */
int BgL_kz00_3541;
BgL_kz00_3541 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2773z00_2242, BgL_kz00_3541, BFALSE); } 
{ /* ./Cgen/cop.scm 33 */
obj_t BgL_arg5415z00_2244;
{ /* ./Cgen/cop.scm 33 */
BgL_copz00_bglt BgL_obj2662z00_3543;
BgL_obj2662z00_3543 = 
(BgL_copz00_bglt)(BgL_obj2772z00_2239); 
BgL_arg5415z00_2244 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3543))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 33 */
int BgL_kz00_3545;
BgL_kz00_3545 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2773z00_2242, BgL_kz00_3545, BgL_arg5415z00_2244); } } 
{ /* ./Cgen/cop.scm 33 */
BgL_copz00_bglt BgL_arg5420z00_2246;
BgL_arg5420z00_2246 = 
(((BgL_blockz00_bglt)CREF(BgL_obj2772z00_2239))->BgL_bodyz00); 
{ /* ./Cgen/cop.scm 33 */
int BgL_kz00_3549;obj_t BgL_oz00_3550;
BgL_kz00_3549 = 
(int)(((long)2)); 
BgL_oz00_3550 = 
(obj_t)(BgL_arg5420z00_2246); 
STRUCT_SET(BgL_res2773z00_2242, BgL_kz00_3549, BgL_oz00_3550); } } 
return BgL_res2773z00_2242;} } } 
}



/* struct+object->object-creturn3717 */
obj_t BGl_structzb2objectzd2ze3objectzd2creturn3717z51zzcgen_copz00(obj_t BgL_envz00_4034, obj_t BgL_oz00_4035, obj_t BgL_sz00_4036)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 36 */
{ 
BgL_creturnz00_bglt BgL_oz00_2230;obj_t BgL_sz00_2231;
{ /* ./Cgen/cop.scm 36 */
BgL_creturnz00_bglt BgL_auxz00_6469;
BgL_oz00_2230 = 
(BgL_creturnz00_bglt)(BgL_oz00_4035); 
BgL_sz00_2231 = BgL_sz00_4036; 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_arg5401z00_2234;
{ /* ./Cgen/cop.scm 36 */
int BgL_auxz00_6470;
BgL_auxz00_6470 = 
(int)(((long)0)); 
BgL_arg5401z00_2234 = 
STRUCT_REF(BgL_sz00_2231, BgL_auxz00_6470); } 
{ /* ./Cgen/cop.scm 36 */
BgL_objectz00_bglt BgL_auxz00_6473;
BgL_auxz00_6473 = 
(BgL_objectz00_bglt)(BgL_oz00_2230); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6473, BgL_arg5401z00_2234); } } 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_v2802z00_2235;
{ /* ./Cgen/cop.scm 36 */
int BgL_auxz00_6476;
BgL_auxz00_6476 = 
(int)(((long)1)); 
BgL_v2802z00_2235 = 
STRUCT_REF(BgL_sz00_2231, BgL_auxz00_6476); } 
((((BgL_creturnz00_bglt)CREF(BgL_oz00_2230))->BgL_locz00) = ((obj_t)BgL_v2802z00_2235), BUNSPEC); } 
{ /* ./Cgen/cop.scm 36 */
BgL_copz00_bglt BgL_v2806z00_2236;
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_auxz00_6480;
{ /* ./Cgen/cop.scm 36 */
int BgL_auxz00_6481;
BgL_auxz00_6481 = 
(int)(((long)2)); 
BgL_auxz00_6480 = 
STRUCT_REF(BgL_sz00_2231, BgL_auxz00_6481); } 
BgL_v2806z00_2236 = 
(BgL_copz00_bglt)(BgL_auxz00_6480); } 
((((BgL_creturnz00_bglt)CREF(BgL_oz00_2230))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_v2806z00_2236), BUNSPEC); } 
BgL_auxz00_6469 = BgL_oz00_2230; 
return 
(obj_t)(BgL_auxz00_6469);} } } 
}



/* object->struct-creturn3715 */
obj_t BGl_objectzd2ze3structzd2creturn3715ze3zzcgen_copz00(obj_t BgL_envz00_4037, obj_t BgL_obj2798z00_4038)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 36 */
{ 
BgL_creturnz00_bglt BgL_obj2798z00_2220;
BgL_obj2798z00_2220 = 
(BgL_creturnz00_bglt)(BgL_obj2798z00_4038); 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_res2799z00_2223;
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_keyz00_3517;int BgL_lenz00_3518;
BgL_keyz00_3517 = 
CNST_TABLE_REF(((long)4)); 
BgL_lenz00_3518 = 
(int)(((long)3)); 
BgL_res2799z00_2223 = 
make_struct(BgL_keyz00_3517, BgL_lenz00_3518, BUNSPEC); } 
{ /* ./Cgen/cop.scm 36 */
int BgL_kz00_3521;
BgL_kz00_3521 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2799z00_2223, BgL_kz00_3521, BFALSE); } 
{ /* ./Cgen/cop.scm 36 */
obj_t BgL_arg5385z00_2225;
{ /* ./Cgen/cop.scm 36 */
BgL_copz00_bglt BgL_obj2662z00_3523;
BgL_obj2662z00_3523 = 
(BgL_copz00_bglt)(BgL_obj2798z00_2220); 
BgL_arg5385z00_2225 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3523))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 36 */
int BgL_kz00_3525;
BgL_kz00_3525 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2799z00_2223, BgL_kz00_3525, BgL_arg5385z00_2225); } } 
{ /* ./Cgen/cop.scm 36 */
BgL_copz00_bglt BgL_arg5390z00_2227;
BgL_arg5390z00_2227 = 
(((BgL_creturnz00_bglt)CREF(BgL_obj2798z00_2220))->BgL_valuez00); 
{ /* ./Cgen/cop.scm 36 */
int BgL_kz00_3529;obj_t BgL_oz00_3530;
BgL_kz00_3529 = 
(int)(((long)2)); 
BgL_oz00_3530 = 
(obj_t)(BgL_arg5390z00_2227); 
STRUCT_SET(BgL_res2799z00_2223, BgL_kz00_3529, BgL_oz00_3530); } } 
return BgL_res2799z00_2223;} } } 
}



/* struct+object->object-cvoid3713 */
obj_t BGl_structzb2objectzd2ze3objectzd2cvoid3713z51zzcgen_copz00(obj_t BgL_envz00_4039, obj_t BgL_oz00_4040, obj_t BgL_sz00_4041)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 39 */
{ 
BgL_cvoidz00_bglt BgL_oz00_2211;obj_t BgL_sz00_2212;
{ /* ./Cgen/cop.scm 39 */
BgL_cvoidz00_bglt BgL_auxz00_6502;
BgL_oz00_2211 = 
(BgL_cvoidz00_bglt)(BgL_oz00_4040); 
BgL_sz00_2212 = BgL_sz00_4041; 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_arg5371z00_2215;
{ /* ./Cgen/cop.scm 39 */
int BgL_auxz00_6503;
BgL_auxz00_6503 = 
(int)(((long)0)); 
BgL_arg5371z00_2215 = 
STRUCT_REF(BgL_sz00_2212, BgL_auxz00_6503); } 
{ /* ./Cgen/cop.scm 39 */
BgL_objectz00_bglt BgL_auxz00_6506;
BgL_auxz00_6506 = 
(BgL_objectz00_bglt)(BgL_oz00_2211); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6506, BgL_arg5371z00_2215); } } 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_v2828z00_2216;
{ /* ./Cgen/cop.scm 39 */
int BgL_auxz00_6509;
BgL_auxz00_6509 = 
(int)(((long)1)); 
BgL_v2828z00_2216 = 
STRUCT_REF(BgL_sz00_2212, BgL_auxz00_6509); } 
((((BgL_cvoidz00_bglt)CREF(BgL_oz00_2211))->BgL_locz00) = ((obj_t)BgL_v2828z00_2216), BUNSPEC); } 
{ /* ./Cgen/cop.scm 39 */
BgL_copz00_bglt BgL_v2832z00_2217;
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_auxz00_6513;
{ /* ./Cgen/cop.scm 39 */
int BgL_auxz00_6514;
BgL_auxz00_6514 = 
(int)(((long)2)); 
BgL_auxz00_6513 = 
STRUCT_REF(BgL_sz00_2212, BgL_auxz00_6514); } 
BgL_v2832z00_2217 = 
(BgL_copz00_bglt)(BgL_auxz00_6513); } 
((((BgL_cvoidz00_bglt)CREF(BgL_oz00_2211))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_v2832z00_2217), BUNSPEC); } 
BgL_auxz00_6502 = BgL_oz00_2211; 
return 
(obj_t)(BgL_auxz00_6502);} } } 
}



/* object->struct-cvoid3711 */
obj_t BGl_objectzd2ze3structzd2cvoid3711ze3zzcgen_copz00(obj_t BgL_envz00_4042, obj_t BgL_obj2824z00_4043)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 39 */
{ 
BgL_cvoidz00_bglt BgL_obj2824z00_2201;
BgL_obj2824z00_2201 = 
(BgL_cvoidz00_bglt)(BgL_obj2824z00_4043); 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_res2825z00_2204;
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_keyz00_3497;int BgL_lenz00_3498;
BgL_keyz00_3497 = 
CNST_TABLE_REF(((long)5)); 
BgL_lenz00_3498 = 
(int)(((long)3)); 
BgL_res2825z00_2204 = 
make_struct(BgL_keyz00_3497, BgL_lenz00_3498, BUNSPEC); } 
{ /* ./Cgen/cop.scm 39 */
int BgL_kz00_3501;
BgL_kz00_3501 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2825z00_2204, BgL_kz00_3501, BFALSE); } 
{ /* ./Cgen/cop.scm 39 */
obj_t BgL_arg5355z00_2206;
{ /* ./Cgen/cop.scm 39 */
BgL_copz00_bglt BgL_obj2662z00_3503;
BgL_obj2662z00_3503 = 
(BgL_copz00_bglt)(BgL_obj2824z00_2201); 
BgL_arg5355z00_2206 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3503))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 39 */
int BgL_kz00_3505;
BgL_kz00_3505 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2825z00_2204, BgL_kz00_3505, BgL_arg5355z00_2206); } } 
{ /* ./Cgen/cop.scm 39 */
BgL_copz00_bglt BgL_arg5360z00_2208;
BgL_arg5360z00_2208 = 
(((BgL_cvoidz00_bglt)CREF(BgL_obj2824z00_2201))->BgL_valuez00); 
{ /* ./Cgen/cop.scm 39 */
int BgL_kz00_3509;obj_t BgL_oz00_3510;
BgL_kz00_3509 = 
(int)(((long)2)); 
BgL_oz00_3510 = 
(obj_t)(BgL_arg5360z00_2208); 
STRUCT_SET(BgL_res2825z00_2204, BgL_kz00_3509, BgL_oz00_3510); } } 
return BgL_res2825z00_2204;} } } 
}



/* struct+object->object-catom3709 */
obj_t BGl_structzb2objectzd2ze3objectzd2catom3709z51zzcgen_copz00(obj_t BgL_envz00_4044, obj_t BgL_oz00_4045, obj_t BgL_sz00_4046)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 42 */
{ 
BgL_catomz00_bglt BgL_oz00_2192;obj_t BgL_sz00_2193;
{ /* ./Cgen/cop.scm 42 */
BgL_catomz00_bglt BgL_auxz00_6535;
BgL_oz00_2192 = 
(BgL_catomz00_bglt)(BgL_oz00_4045); 
BgL_sz00_2193 = BgL_sz00_4046; 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_arg5341z00_2196;
{ /* ./Cgen/cop.scm 42 */
int BgL_auxz00_6536;
BgL_auxz00_6536 = 
(int)(((long)0)); 
BgL_arg5341z00_2196 = 
STRUCT_REF(BgL_sz00_2193, BgL_auxz00_6536); } 
{ /* ./Cgen/cop.scm 42 */
BgL_objectz00_bglt BgL_auxz00_6539;
BgL_auxz00_6539 = 
(BgL_objectz00_bglt)(BgL_oz00_2192); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6539, BgL_arg5341z00_2196); } } 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_v2854z00_2197;
{ /* ./Cgen/cop.scm 42 */
int BgL_auxz00_6542;
BgL_auxz00_6542 = 
(int)(((long)1)); 
BgL_v2854z00_2197 = 
STRUCT_REF(BgL_sz00_2193, BgL_auxz00_6542); } 
((((BgL_catomz00_bglt)CREF(BgL_oz00_2192))->BgL_locz00) = ((obj_t)BgL_v2854z00_2197), BUNSPEC); } 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_v2858z00_2198;
{ /* ./Cgen/cop.scm 42 */
int BgL_auxz00_6546;
BgL_auxz00_6546 = 
(int)(((long)2)); 
BgL_v2858z00_2198 = 
STRUCT_REF(BgL_sz00_2193, BgL_auxz00_6546); } 
((((BgL_catomz00_bglt)CREF(BgL_oz00_2192))->BgL_valuez00) = ((obj_t)BgL_v2858z00_2198), BUNSPEC); } 
BgL_auxz00_6535 = BgL_oz00_2192; 
return 
(obj_t)(BgL_auxz00_6535);} } } 
}



/* object->struct-catom3707 */
obj_t BGl_objectzd2ze3structzd2catom3707ze3zzcgen_copz00(obj_t BgL_envz00_4047, obj_t BgL_obj2850z00_4048)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 42 */
{ 
BgL_catomz00_bglt BgL_obj2850z00_2182;
BgL_obj2850z00_2182 = 
(BgL_catomz00_bglt)(BgL_obj2850z00_4048); 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_res2851z00_2185;
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_keyz00_3477;int BgL_lenz00_3478;
BgL_keyz00_3477 = 
CNST_TABLE_REF(((long)6)); 
BgL_lenz00_3478 = 
(int)(((long)3)); 
BgL_res2851z00_2185 = 
make_struct(BgL_keyz00_3477, BgL_lenz00_3478, BUNSPEC); } 
{ /* ./Cgen/cop.scm 42 */
int BgL_kz00_3481;
BgL_kz00_3481 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2851z00_2185, BgL_kz00_3481, BFALSE); } 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_arg5325z00_2187;
{ /* ./Cgen/cop.scm 42 */
BgL_copz00_bglt BgL_obj2662z00_3483;
BgL_obj2662z00_3483 = 
(BgL_copz00_bglt)(BgL_obj2850z00_2182); 
BgL_arg5325z00_2187 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3483))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 42 */
int BgL_kz00_3485;
BgL_kz00_3485 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2851z00_2185, BgL_kz00_3485, BgL_arg5325z00_2187); } } 
{ /* ./Cgen/cop.scm 42 */
obj_t BgL_arg5330z00_2189;
BgL_arg5330z00_2189 = 
(((BgL_catomz00_bglt)CREF(BgL_obj2850z00_2182))->BgL_valuez00); 
{ /* ./Cgen/cop.scm 42 */
int BgL_kz00_3489;
BgL_kz00_3489 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res2851z00_2185, BgL_kz00_3489, BgL_arg5330z00_2189); } } 
return BgL_res2851z00_2185;} } } 
}



/* struct+object->object-varc3705 */
obj_t BGl_structzb2objectzd2ze3objectzd2varc3705z51zzcgen_copz00(obj_t BgL_envz00_4049, obj_t BgL_oz00_4050, obj_t BgL_sz00_4051)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 45 */
{ 
BgL_varcz00_bglt BgL_oz00_2173;obj_t BgL_sz00_2174;
{ /* ./Cgen/cop.scm 45 */
BgL_varcz00_bglt BgL_auxz00_6565;
BgL_oz00_2173 = 
(BgL_varcz00_bglt)(BgL_oz00_4050); 
BgL_sz00_2174 = BgL_sz00_4051; 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_arg5311z00_2177;
{ /* ./Cgen/cop.scm 45 */
int BgL_auxz00_6566;
BgL_auxz00_6566 = 
(int)(((long)0)); 
BgL_arg5311z00_2177 = 
STRUCT_REF(BgL_sz00_2174, BgL_auxz00_6566); } 
{ /* ./Cgen/cop.scm 45 */
BgL_objectz00_bglt BgL_auxz00_6569;
BgL_auxz00_6569 = 
(BgL_objectz00_bglt)(BgL_oz00_2173); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6569, BgL_arg5311z00_2177); } } 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_v2880z00_2178;
{ /* ./Cgen/cop.scm 45 */
int BgL_auxz00_6572;
BgL_auxz00_6572 = 
(int)(((long)1)); 
BgL_v2880z00_2178 = 
STRUCT_REF(BgL_sz00_2174, BgL_auxz00_6572); } 
((((BgL_varcz00_bglt)CREF(BgL_oz00_2173))->BgL_locz00) = ((obj_t)BgL_v2880z00_2178), BUNSPEC); } 
{ /* ./Cgen/cop.scm 45 */
BgL_variablez00_bglt BgL_v2884z00_2179;
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_auxz00_6576;
{ /* ./Cgen/cop.scm 45 */
int BgL_auxz00_6577;
BgL_auxz00_6577 = 
(int)(((long)2)); 
BgL_auxz00_6576 = 
STRUCT_REF(BgL_sz00_2174, BgL_auxz00_6577); } 
BgL_v2884z00_2179 = 
(BgL_variablez00_bglt)(BgL_auxz00_6576); } 
((((BgL_varcz00_bglt)CREF(BgL_oz00_2173))->BgL_variablez00) = ((BgL_variablez00_bglt)BgL_v2884z00_2179), BUNSPEC); } 
BgL_auxz00_6565 = BgL_oz00_2173; 
return 
(obj_t)(BgL_auxz00_6565);} } } 
}



/* object->struct-varc3703 */
obj_t BGl_objectzd2ze3structzd2varc3703ze3zzcgen_copz00(obj_t BgL_envz00_4052, obj_t BgL_obj2876z00_4053)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 45 */
{ 
BgL_varcz00_bglt BgL_obj2876z00_2163;
BgL_obj2876z00_2163 = 
(BgL_varcz00_bglt)(BgL_obj2876z00_4053); 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_res2877z00_2166;
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_keyz00_3457;int BgL_lenz00_3458;
BgL_keyz00_3457 = 
CNST_TABLE_REF(((long)7)); 
BgL_lenz00_3458 = 
(int)(((long)3)); 
BgL_res2877z00_2166 = 
make_struct(BgL_keyz00_3457, BgL_lenz00_3458, BUNSPEC); } 
{ /* ./Cgen/cop.scm 45 */
int BgL_kz00_3461;
BgL_kz00_3461 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2877z00_2166, BgL_kz00_3461, BFALSE); } 
{ /* ./Cgen/cop.scm 45 */
obj_t BgL_arg5295z00_2168;
{ /* ./Cgen/cop.scm 45 */
BgL_copz00_bglt BgL_obj2662z00_3463;
BgL_obj2662z00_3463 = 
(BgL_copz00_bglt)(BgL_obj2876z00_2163); 
BgL_arg5295z00_2168 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3463))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 45 */
int BgL_kz00_3465;
BgL_kz00_3465 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2877z00_2166, BgL_kz00_3465, BgL_arg5295z00_2168); } } 
{ /* ./Cgen/cop.scm 45 */
BgL_variablez00_bglt BgL_arg5300z00_2170;
BgL_arg5300z00_2170 = 
(((BgL_varcz00_bglt)CREF(BgL_obj2876z00_2163))->BgL_variablez00); 
{ /* ./Cgen/cop.scm 45 */
int BgL_kz00_3469;obj_t BgL_oz00_3470;
BgL_kz00_3469 = 
(int)(((long)2)); 
BgL_oz00_3470 = 
(obj_t)(BgL_arg5300z00_2170); 
STRUCT_SET(BgL_res2877z00_2166, BgL_kz00_3469, BgL_oz00_3470); } } 
return BgL_res2877z00_2166;} } } 
}



/* struct+object->object-cpragma3701 */
obj_t BGl_structzb2objectzd2ze3objectzd2cpragma3701z51zzcgen_copz00(obj_t BgL_envz00_4054, obj_t BgL_oz00_4055, obj_t BgL_sz00_4056)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 48 */
{ 
BgL_cpragmaz00_bglt BgL_oz00_2153;obj_t BgL_sz00_2154;
{ /* ./Cgen/cop.scm 48 */
BgL_cpragmaz00_bglt BgL_auxz00_6598;
BgL_oz00_2153 = 
(BgL_cpragmaz00_bglt)(BgL_oz00_4055); 
BgL_sz00_2154 = BgL_sz00_4056; 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_arg5280z00_2157;
{ /* ./Cgen/cop.scm 48 */
int BgL_auxz00_6599;
BgL_auxz00_6599 = 
(int)(((long)0)); 
BgL_arg5280z00_2157 = 
STRUCT_REF(BgL_sz00_2154, BgL_auxz00_6599); } 
{ /* ./Cgen/cop.scm 48 */
BgL_objectz00_bglt BgL_auxz00_6602;
BgL_auxz00_6602 = 
(BgL_objectz00_bglt)(BgL_oz00_2153); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6602, BgL_arg5280z00_2157); } } 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_v2911z00_2158;
{ /* ./Cgen/cop.scm 48 */
int BgL_auxz00_6605;
BgL_auxz00_6605 = 
(int)(((long)1)); 
BgL_v2911z00_2158 = 
STRUCT_REF(BgL_sz00_2154, BgL_auxz00_6605); } 
((((BgL_cpragmaz00_bglt)CREF(BgL_oz00_2153))->BgL_locz00) = ((obj_t)BgL_v2911z00_2158), BUNSPEC); } 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_v2915z00_2159;
{ /* ./Cgen/cop.scm 48 */
int BgL_auxz00_6609;
BgL_auxz00_6609 = 
(int)(((long)2)); 
BgL_v2915z00_2159 = 
STRUCT_REF(BgL_sz00_2154, BgL_auxz00_6609); } 
((((BgL_cpragmaz00_bglt)CREF(BgL_oz00_2153))->BgL_formatz00) = ((obj_t)BgL_v2915z00_2159), BUNSPEC); } 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_v2919z00_2160;
{ /* ./Cgen/cop.scm 48 */
int BgL_auxz00_6613;
BgL_auxz00_6613 = 
(int)(((long)3)); 
BgL_v2919z00_2160 = 
STRUCT_REF(BgL_sz00_2154, BgL_auxz00_6613); } 
((((BgL_cpragmaz00_bglt)CREF(BgL_oz00_2153))->BgL_argsz00) = ((obj_t)BgL_v2919z00_2160), BUNSPEC); } 
BgL_auxz00_6598 = BgL_oz00_2153; 
return 
(obj_t)(BgL_auxz00_6598);} } } 
}



/* object->struct-cpragma3699 */
obj_t BGl_objectzd2ze3structzd2cpragma3699ze3zzcgen_copz00(obj_t BgL_envz00_4057, obj_t BgL_obj2907z00_4058)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 48 */
{ 
BgL_cpragmaz00_bglt BgL_obj2907z00_2141;
BgL_obj2907z00_2141 = 
(BgL_cpragmaz00_bglt)(BgL_obj2907z00_4058); 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_res2908z00_2144;
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_keyz00_3431;int BgL_lenz00_3432;
BgL_keyz00_3431 = 
CNST_TABLE_REF(((long)8)); 
BgL_lenz00_3432 = 
(int)(((long)4)); 
BgL_res2908z00_2144 = 
make_struct(BgL_keyz00_3431, BgL_lenz00_3432, BUNSPEC); } 
{ /* ./Cgen/cop.scm 48 */
int BgL_kz00_3435;
BgL_kz00_3435 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2908z00_2144, BgL_kz00_3435, BFALSE); } 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_arg5259z00_2146;
{ /* ./Cgen/cop.scm 48 */
BgL_copz00_bglt BgL_obj2662z00_3437;
BgL_obj2662z00_3437 = 
(BgL_copz00_bglt)(BgL_obj2907z00_2141); 
BgL_arg5259z00_2146 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3437))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 48 */
int BgL_kz00_3439;
BgL_kz00_3439 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2908z00_2144, BgL_kz00_3439, BgL_arg5259z00_2146); } } 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_arg5264z00_2148;
BgL_arg5264z00_2148 = 
(((BgL_cpragmaz00_bglt)CREF(BgL_obj2907z00_2141))->BgL_formatz00); 
{ /* ./Cgen/cop.scm 48 */
int BgL_kz00_3443;
BgL_kz00_3443 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res2908z00_2144, BgL_kz00_3443, BgL_arg5264z00_2148); } } 
{ /* ./Cgen/cop.scm 48 */
obj_t BgL_arg5269z00_2150;
BgL_arg5269z00_2150 = 
(((BgL_cpragmaz00_bglt)CREF(BgL_obj2907z00_2141))->BgL_argsz00); 
{ /* ./Cgen/cop.scm 48 */
int BgL_kz00_3447;
BgL_kz00_3447 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res2908z00_2144, BgL_kz00_3447, BgL_arg5269z00_2150); } } 
return BgL_res2908z00_2144;} } } 
}



/* struct+object->object-ccast3697 */
obj_t BGl_structzb2objectzd2ze3objectzd2ccast3697z51zzcgen_copz00(obj_t BgL_envz00_4059, obj_t BgL_oz00_4060, obj_t BgL_sz00_4061)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 52 */
{ 
BgL_ccastz00_bglt BgL_oz00_2131;obj_t BgL_sz00_2132;
{ /* ./Cgen/cop.scm 52 */
BgL_ccastz00_bglt BgL_auxz00_6635;
BgL_oz00_2131 = 
(BgL_ccastz00_bglt)(BgL_oz00_4060); 
BgL_sz00_2132 = BgL_sz00_4061; 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_arg5244z00_2135;
{ /* ./Cgen/cop.scm 52 */
int BgL_auxz00_6636;
BgL_auxz00_6636 = 
(int)(((long)0)); 
BgL_arg5244z00_2135 = 
STRUCT_REF(BgL_sz00_2132, BgL_auxz00_6636); } 
{ /* ./Cgen/cop.scm 52 */
BgL_objectz00_bglt BgL_auxz00_6639;
BgL_auxz00_6639 = 
(BgL_objectz00_bglt)(BgL_oz00_2131); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6639, BgL_arg5244z00_2135); } } 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_v2945z00_2136;
{ /* ./Cgen/cop.scm 52 */
int BgL_auxz00_6642;
BgL_auxz00_6642 = 
(int)(((long)1)); 
BgL_v2945z00_2136 = 
STRUCT_REF(BgL_sz00_2132, BgL_auxz00_6642); } 
((((BgL_ccastz00_bglt)CREF(BgL_oz00_2131))->BgL_locz00) = ((obj_t)BgL_v2945z00_2136), BUNSPEC); } 
{ /* ./Cgen/cop.scm 52 */
BgL_typez00_bglt BgL_v2949z00_2137;
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_auxz00_6646;
{ /* ./Cgen/cop.scm 52 */
int BgL_auxz00_6647;
BgL_auxz00_6647 = 
(int)(((long)2)); 
BgL_auxz00_6646 = 
STRUCT_REF(BgL_sz00_2132, BgL_auxz00_6647); } 
BgL_v2949z00_2137 = 
(BgL_typez00_bglt)(BgL_auxz00_6646); } 
((((BgL_ccastz00_bglt)CREF(BgL_oz00_2131))->BgL_typez00) = ((BgL_typez00_bglt)BgL_v2949z00_2137), BUNSPEC); } 
{ /* ./Cgen/cop.scm 52 */
BgL_copz00_bglt BgL_v2953z00_2138;
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_auxz00_6652;
{ /* ./Cgen/cop.scm 52 */
int BgL_auxz00_6653;
BgL_auxz00_6653 = 
(int)(((long)3)); 
BgL_auxz00_6652 = 
STRUCT_REF(BgL_sz00_2132, BgL_auxz00_6653); } 
BgL_v2953z00_2138 = 
(BgL_copz00_bglt)(BgL_auxz00_6652); } 
((((BgL_ccastz00_bglt)CREF(BgL_oz00_2131))->BgL_argz00) = ((BgL_copz00_bglt)BgL_v2953z00_2138), BUNSPEC); } 
BgL_auxz00_6635 = BgL_oz00_2131; 
return 
(obj_t)(BgL_auxz00_6635);} } } 
}



/* object->struct-ccast3695 */
obj_t BGl_objectzd2ze3structzd2ccast3695ze3zzcgen_copz00(obj_t BgL_envz00_4062, obj_t BgL_obj2941z00_4063)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 52 */
{ 
BgL_ccastz00_bglt BgL_obj2941z00_2119;
BgL_obj2941z00_2119 = 
(BgL_ccastz00_bglt)(BgL_obj2941z00_4063); 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_res2942z00_2122;
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_keyz00_3405;int BgL_lenz00_3406;
BgL_keyz00_3405 = 
CNST_TABLE_REF(((long)9)); 
BgL_lenz00_3406 = 
(int)(((long)4)); 
BgL_res2942z00_2122 = 
make_struct(BgL_keyz00_3405, BgL_lenz00_3406, BUNSPEC); } 
{ /* ./Cgen/cop.scm 52 */
int BgL_kz00_3409;
BgL_kz00_3409 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2942z00_2122, BgL_kz00_3409, BFALSE); } 
{ /* ./Cgen/cop.scm 52 */
obj_t BgL_arg5223z00_2124;
{ /* ./Cgen/cop.scm 52 */
BgL_copz00_bglt BgL_obj2662z00_3411;
BgL_obj2662z00_3411 = 
(BgL_copz00_bglt)(BgL_obj2941z00_2119); 
BgL_arg5223z00_2124 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3411))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 52 */
int BgL_kz00_3413;
BgL_kz00_3413 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2942z00_2122, BgL_kz00_3413, BgL_arg5223z00_2124); } } 
{ /* ./Cgen/cop.scm 52 */
BgL_typez00_bglt BgL_arg5228z00_2126;
BgL_arg5228z00_2126 = 
(((BgL_ccastz00_bglt)CREF(BgL_obj2941z00_2119))->BgL_typez00); 
{ /* ./Cgen/cop.scm 52 */
int BgL_kz00_3417;obj_t BgL_oz00_3418;
BgL_kz00_3417 = 
(int)(((long)2)); 
BgL_oz00_3418 = 
(obj_t)(BgL_arg5228z00_2126); 
STRUCT_SET(BgL_res2942z00_2122, BgL_kz00_3417, BgL_oz00_3418); } } 
{ /* ./Cgen/cop.scm 52 */
BgL_copz00_bglt BgL_arg5233z00_2128;
BgL_arg5233z00_2128 = 
(((BgL_ccastz00_bglt)CREF(BgL_obj2941z00_2119))->BgL_argz00); 
{ /* ./Cgen/cop.scm 52 */
int BgL_kz00_3421;obj_t BgL_oz00_3422;
BgL_kz00_3421 = 
(int)(((long)3)); 
BgL_oz00_3422 = 
(obj_t)(BgL_arg5233z00_2128); 
STRUCT_SET(BgL_res2942z00_2122, BgL_kz00_3421, BgL_oz00_3422); } } 
return BgL_res2942z00_2122;} } } 
}



/* struct+object->object-csequence3693 */
obj_t BGl_structzb2objectzd2ze3objectzd2csequence3693z51zzcgen_copz00(obj_t BgL_envz00_4064, obj_t BgL_oz00_4065, obj_t BgL_sz00_4066)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 56 */
{ 
BgL_csequencez00_bglt BgL_oz00_2109;obj_t BgL_sz00_2110;
{ /* ./Cgen/cop.scm 56 */
BgL_csequencez00_bglt BgL_auxz00_6678;
BgL_oz00_2109 = 
(BgL_csequencez00_bglt)(BgL_oz00_4065); 
BgL_sz00_2110 = BgL_sz00_4066; 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_arg5208z00_2113;
{ /* ./Cgen/cop.scm 56 */
int BgL_auxz00_6679;
BgL_auxz00_6679 = 
(int)(((long)0)); 
BgL_arg5208z00_2113 = 
STRUCT_REF(BgL_sz00_2110, BgL_auxz00_6679); } 
{ /* ./Cgen/cop.scm 56 */
BgL_objectz00_bglt BgL_auxz00_6682;
BgL_auxz00_6682 = 
(BgL_objectz00_bglt)(BgL_oz00_2109); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6682, BgL_arg5208z00_2113); } } 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_v2980z00_2114;
{ /* ./Cgen/cop.scm 56 */
int BgL_auxz00_6685;
BgL_auxz00_6685 = 
(int)(((long)1)); 
BgL_v2980z00_2114 = 
STRUCT_REF(BgL_sz00_2110, BgL_auxz00_6685); } 
((((BgL_csequencez00_bglt)CREF(BgL_oz00_2109))->BgL_locz00) = ((obj_t)BgL_v2980z00_2114), BUNSPEC); } 
{ /* ./Cgen/cop.scm 56 */
bool_t BgL_v2984z00_2115;
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_auxz00_6689;
{ /* ./Cgen/cop.scm 56 */
int BgL_auxz00_6690;
BgL_auxz00_6690 = 
(int)(((long)2)); 
BgL_auxz00_6689 = 
STRUCT_REF(BgL_sz00_2110, BgL_auxz00_6690); } 
BgL_v2984z00_2115 = 
CBOOL(BgL_auxz00_6689); } 
((((BgL_csequencez00_bglt)CREF(BgL_oz00_2109))->BgL_czd2expzf3z21) = ((bool_t)BgL_v2984z00_2115), BUNSPEC); } 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_v2988z00_2116;
{ /* ./Cgen/cop.scm 56 */
int BgL_auxz00_6695;
BgL_auxz00_6695 = 
(int)(((long)3)); 
BgL_v2988z00_2116 = 
STRUCT_REF(BgL_sz00_2110, BgL_auxz00_6695); } 
((((BgL_csequencez00_bglt)CREF(BgL_oz00_2109))->BgL_copsz00) = ((obj_t)BgL_v2988z00_2116), BUNSPEC); } 
BgL_auxz00_6678 = BgL_oz00_2109; 
return 
(obj_t)(BgL_auxz00_6678);} } } 
}



/* object->struct-csequence3691 */
obj_t BGl_objectzd2ze3structzd2csequence3691ze3zzcgen_copz00(obj_t BgL_envz00_4067, obj_t BgL_obj2976z00_4068)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 56 */
{ 
BgL_csequencez00_bglt BgL_obj2976z00_2097;
BgL_obj2976z00_2097 = 
(BgL_csequencez00_bglt)(BgL_obj2976z00_4068); 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_res2977z00_2100;
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_keyz00_3379;int BgL_lenz00_3380;
BgL_keyz00_3379 = 
CNST_TABLE_REF(((long)10)); 
BgL_lenz00_3380 = 
(int)(((long)4)); 
BgL_res2977z00_2100 = 
make_struct(BgL_keyz00_3379, BgL_lenz00_3380, BUNSPEC); } 
{ /* ./Cgen/cop.scm 56 */
int BgL_kz00_3383;
BgL_kz00_3383 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res2977z00_2100, BgL_kz00_3383, BFALSE); } 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_arg5187z00_2102;
{ /* ./Cgen/cop.scm 56 */
BgL_copz00_bglt BgL_obj2662z00_3385;
BgL_obj2662z00_3385 = 
(BgL_copz00_bglt)(BgL_obj2976z00_2097); 
BgL_arg5187z00_2102 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3385))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 56 */
int BgL_kz00_3387;
BgL_kz00_3387 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res2977z00_2100, BgL_kz00_3387, BgL_arg5187z00_2102); } } 
{ /* ./Cgen/cop.scm 56 */
bool_t BgL_arg5192z00_2104;
BgL_arg5192z00_2104 = 
(((BgL_csequencez00_bglt)CREF(BgL_obj2976z00_2097))->BgL_czd2expzf3z21); 
{ /* ./Cgen/cop.scm 56 */
int BgL_kz00_3391;obj_t BgL_oz00_3392;
BgL_kz00_3391 = 
(int)(((long)2)); 
BgL_oz00_3392 = 
BBOOL(BgL_arg5192z00_2104); 
STRUCT_SET(BgL_res2977z00_2100, BgL_kz00_3391, BgL_oz00_3392); } } 
{ /* ./Cgen/cop.scm 56 */
obj_t BgL_arg5197z00_2106;
BgL_arg5197z00_2106 = 
(((BgL_csequencez00_bglt)CREF(BgL_obj2976z00_2097))->BgL_copsz00); 
{ /* ./Cgen/cop.scm 56 */
int BgL_kz00_3395;
BgL_kz00_3395 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res2977z00_2100, BgL_kz00_3395, BgL_arg5197z00_2106); } } 
return BgL_res2977z00_2100;} } } 
}



/* struct+object->object-nop3689 */
obj_t BGl_structzb2objectzd2ze3objectzd2nop3689z51zzcgen_copz00(obj_t BgL_envz00_4069, obj_t BgL_oz00_4070, obj_t BgL_sz00_4071)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 60 */
{ 
BgL_nopz00_bglt BgL_oz00_2089;obj_t BgL_sz00_2090;
{ /* ./Cgen/cop.scm 60 */
BgL_nopz00_bglt BgL_auxz00_6718;
BgL_oz00_2089 = 
(BgL_nopz00_bglt)(BgL_oz00_4070); 
BgL_sz00_2090 = BgL_sz00_4071; 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_arg5174z00_2093;
{ /* ./Cgen/cop.scm 60 */
int BgL_auxz00_6719;
BgL_auxz00_6719 = 
(int)(((long)0)); 
BgL_arg5174z00_2093 = 
STRUCT_REF(BgL_sz00_2090, BgL_auxz00_6719); } 
{ /* ./Cgen/cop.scm 60 */
BgL_objectz00_bglt BgL_auxz00_6722;
BgL_auxz00_6722 = 
(BgL_objectz00_bglt)(BgL_oz00_2089); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6722, BgL_arg5174z00_2093); } } 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_v3006z00_2094;
{ /* ./Cgen/cop.scm 60 */
int BgL_auxz00_6725;
BgL_auxz00_6725 = 
(int)(((long)1)); 
BgL_v3006z00_2094 = 
STRUCT_REF(BgL_sz00_2090, BgL_auxz00_6725); } 
((((BgL_nopz00_bglt)CREF(BgL_oz00_2089))->BgL_locz00) = ((obj_t)BgL_v3006z00_2094), BUNSPEC); } 
BgL_auxz00_6718 = BgL_oz00_2089; 
return 
(obj_t)(BgL_auxz00_6718);} } } 
}



/* object->struct-nop3687 */
obj_t BGl_objectzd2ze3structzd2nop3687ze3zzcgen_copz00(obj_t BgL_envz00_4072, obj_t BgL_obj3002z00_4073)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 60 */
{ 
BgL_nopz00_bglt BgL_obj3002z00_2081;
BgL_obj3002z00_2081 = 
(BgL_nopz00_bglt)(BgL_obj3002z00_4073); 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_res3003z00_2084;
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_keyz00_3365;int BgL_lenz00_3366;
BgL_keyz00_3365 = 
CNST_TABLE_REF(((long)11)); 
BgL_lenz00_3366 = 
(int)(((long)2)); 
BgL_res3003z00_2084 = 
make_struct(BgL_keyz00_3365, BgL_lenz00_3366, BUNSPEC); } 
{ /* ./Cgen/cop.scm 60 */
int BgL_kz00_3369;
BgL_kz00_3369 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3003z00_2084, BgL_kz00_3369, BFALSE); } 
{ /* ./Cgen/cop.scm 60 */
obj_t BgL_arg5163z00_2086;
{ /* ./Cgen/cop.scm 60 */
BgL_copz00_bglt BgL_obj2662z00_3371;
BgL_obj2662z00_3371 = 
(BgL_copz00_bglt)(BgL_obj3002z00_2081); 
BgL_arg5163z00_2086 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3371))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 60 */
int BgL_kz00_3373;
BgL_kz00_3373 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3003z00_2084, BgL_kz00_3373, BgL_arg5163z00_2086); } } 
return BgL_res3003z00_2084;} } } 
}



/* struct+object->object-stop3685 */
obj_t BGl_structzb2objectzd2ze3objectzd2stop3685z51zzcgen_copz00(obj_t BgL_envz00_4074, obj_t BgL_oz00_4075, obj_t BgL_sz00_4076)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 62 */
{ 
BgL_stopz00_bglt BgL_oz00_2072;obj_t BgL_sz00_2073;
{ /* ./Cgen/cop.scm 62 */
BgL_stopz00_bglt BgL_auxz00_6741;
BgL_oz00_2072 = 
(BgL_stopz00_bglt)(BgL_oz00_4075); 
BgL_sz00_2073 = BgL_sz00_4076; 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_arg5149z00_2076;
{ /* ./Cgen/cop.scm 62 */
int BgL_auxz00_6742;
BgL_auxz00_6742 = 
(int)(((long)0)); 
BgL_arg5149z00_2076 = 
STRUCT_REF(BgL_sz00_2073, BgL_auxz00_6742); } 
{ /* ./Cgen/cop.scm 62 */
BgL_objectz00_bglt BgL_auxz00_6745;
BgL_auxz00_6745 = 
(BgL_objectz00_bglt)(BgL_oz00_2072); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6745, BgL_arg5149z00_2076); } } 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_v3029z00_2077;
{ /* ./Cgen/cop.scm 62 */
int BgL_auxz00_6748;
BgL_auxz00_6748 = 
(int)(((long)1)); 
BgL_v3029z00_2077 = 
STRUCT_REF(BgL_sz00_2073, BgL_auxz00_6748); } 
((((BgL_stopz00_bglt)CREF(BgL_oz00_2072))->BgL_locz00) = ((obj_t)BgL_v3029z00_2077), BUNSPEC); } 
{ /* ./Cgen/cop.scm 62 */
BgL_copz00_bglt BgL_v3033z00_2078;
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_auxz00_6752;
{ /* ./Cgen/cop.scm 62 */
int BgL_auxz00_6753;
BgL_auxz00_6753 = 
(int)(((long)2)); 
BgL_auxz00_6752 = 
STRUCT_REF(BgL_sz00_2073, BgL_auxz00_6753); } 
BgL_v3033z00_2078 = 
(BgL_copz00_bglt)(BgL_auxz00_6752); } 
((((BgL_stopz00_bglt)CREF(BgL_oz00_2072))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_v3033z00_2078), BUNSPEC); } 
BgL_auxz00_6741 = BgL_oz00_2072; 
return 
(obj_t)(BgL_auxz00_6741);} } } 
}



/* object->struct-stop3683 */
obj_t BGl_objectzd2ze3structzd2stop3683ze3zzcgen_copz00(obj_t BgL_envz00_4077, obj_t BgL_obj3025z00_4078)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 62 */
{ 
BgL_stopz00_bglt BgL_obj3025z00_2062;
BgL_obj3025z00_2062 = 
(BgL_stopz00_bglt)(BgL_obj3025z00_4078); 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_res3026z00_2065;
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_keyz00_3345;int BgL_lenz00_3346;
BgL_keyz00_3345 = 
CNST_TABLE_REF(((long)12)); 
BgL_lenz00_3346 = 
(int)(((long)3)); 
BgL_res3026z00_2065 = 
make_struct(BgL_keyz00_3345, BgL_lenz00_3346, BUNSPEC); } 
{ /* ./Cgen/cop.scm 62 */
int BgL_kz00_3349;
BgL_kz00_3349 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3026z00_2065, BgL_kz00_3349, BFALSE); } 
{ /* ./Cgen/cop.scm 62 */
obj_t BgL_arg5133z00_2067;
{ /* ./Cgen/cop.scm 62 */
BgL_copz00_bglt BgL_obj2662z00_3351;
BgL_obj2662z00_3351 = 
(BgL_copz00_bglt)(BgL_obj3025z00_2062); 
BgL_arg5133z00_2067 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3351))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 62 */
int BgL_kz00_3353;
BgL_kz00_3353 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3026z00_2065, BgL_kz00_3353, BgL_arg5133z00_2067); } } 
{ /* ./Cgen/cop.scm 62 */
BgL_copz00_bglt BgL_arg5138z00_2069;
BgL_arg5138z00_2069 = 
(((BgL_stopz00_bglt)CREF(BgL_obj3025z00_2062))->BgL_valuez00); 
{ /* ./Cgen/cop.scm 62 */
int BgL_kz00_3357;obj_t BgL_oz00_3358;
BgL_kz00_3357 = 
(int)(((long)2)); 
BgL_oz00_3358 = 
(obj_t)(BgL_arg5138z00_2069); 
STRUCT_SET(BgL_res3026z00_2065, BgL_kz00_3357, BgL_oz00_3358); } } 
return BgL_res3026z00_2065;} } } 
}



/* struct+object->object-csetq3681 */
obj_t BGl_structzb2objectzd2ze3objectzd2csetq3681z51zzcgen_copz00(obj_t BgL_envz00_4079, obj_t BgL_oz00_4080, obj_t BgL_sz00_4081)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 65 */
{ 
BgL_csetqz00_bglt BgL_oz00_2052;obj_t BgL_sz00_2053;
{ /* ./Cgen/cop.scm 65 */
BgL_csetqz00_bglt BgL_auxz00_6774;
BgL_oz00_2052 = 
(BgL_csetqz00_bglt)(BgL_oz00_4080); 
BgL_sz00_2053 = BgL_sz00_4081; 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_arg5118z00_2056;
{ /* ./Cgen/cop.scm 65 */
int BgL_auxz00_6775;
BgL_auxz00_6775 = 
(int)(((long)0)); 
BgL_arg5118z00_2056 = 
STRUCT_REF(BgL_sz00_2053, BgL_auxz00_6775); } 
{ /* ./Cgen/cop.scm 65 */
BgL_objectz00_bglt BgL_auxz00_6778;
BgL_auxz00_6778 = 
(BgL_objectz00_bglt)(BgL_oz00_2052); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6778, BgL_arg5118z00_2056); } } 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_v3059z00_2057;
{ /* ./Cgen/cop.scm 65 */
int BgL_auxz00_6781;
BgL_auxz00_6781 = 
(int)(((long)1)); 
BgL_v3059z00_2057 = 
STRUCT_REF(BgL_sz00_2053, BgL_auxz00_6781); } 
((((BgL_csetqz00_bglt)CREF(BgL_oz00_2052))->BgL_locz00) = ((obj_t)BgL_v3059z00_2057), BUNSPEC); } 
{ /* ./Cgen/cop.scm 65 */
BgL_varcz00_bglt BgL_v3063z00_2058;
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_auxz00_6785;
{ /* ./Cgen/cop.scm 65 */
int BgL_auxz00_6786;
BgL_auxz00_6786 = 
(int)(((long)2)); 
BgL_auxz00_6785 = 
STRUCT_REF(BgL_sz00_2053, BgL_auxz00_6786); } 
BgL_v3063z00_2058 = 
(BgL_varcz00_bglt)(BgL_auxz00_6785); } 
((((BgL_csetqz00_bglt)CREF(BgL_oz00_2052))->BgL_varz00) = ((BgL_varcz00_bglt)BgL_v3063z00_2058), BUNSPEC); } 
{ /* ./Cgen/cop.scm 65 */
BgL_copz00_bglt BgL_v3067z00_2059;
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_auxz00_6791;
{ /* ./Cgen/cop.scm 65 */
int BgL_auxz00_6792;
BgL_auxz00_6792 = 
(int)(((long)3)); 
BgL_auxz00_6791 = 
STRUCT_REF(BgL_sz00_2053, BgL_auxz00_6792); } 
BgL_v3067z00_2059 = 
(BgL_copz00_bglt)(BgL_auxz00_6791); } 
((((BgL_csetqz00_bglt)CREF(BgL_oz00_2052))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_v3067z00_2059), BUNSPEC); } 
BgL_auxz00_6774 = BgL_oz00_2052; 
return 
(obj_t)(BgL_auxz00_6774);} } } 
}



/* object->struct-csetq3679 */
obj_t BGl_objectzd2ze3structzd2csetq3679ze3zzcgen_copz00(obj_t BgL_envz00_4082, obj_t BgL_obj3055z00_4083)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 65 */
{ 
BgL_csetqz00_bglt BgL_obj3055z00_2040;
BgL_obj3055z00_2040 = 
(BgL_csetqz00_bglt)(BgL_obj3055z00_4083); 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_res3056z00_2043;
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_keyz00_3319;int BgL_lenz00_3320;
BgL_keyz00_3319 = 
CNST_TABLE_REF(((long)13)); 
BgL_lenz00_3320 = 
(int)(((long)4)); 
BgL_res3056z00_2043 = 
make_struct(BgL_keyz00_3319, BgL_lenz00_3320, BUNSPEC); } 
{ /* ./Cgen/cop.scm 65 */
int BgL_kz00_3323;
BgL_kz00_3323 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3056z00_2043, BgL_kz00_3323, BFALSE); } 
{ /* ./Cgen/cop.scm 65 */
obj_t BgL_arg5097z00_2045;
{ /* ./Cgen/cop.scm 65 */
BgL_copz00_bglt BgL_obj2662z00_3325;
BgL_obj2662z00_3325 = 
(BgL_copz00_bglt)(BgL_obj3055z00_2040); 
BgL_arg5097z00_2045 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3325))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 65 */
int BgL_kz00_3327;
BgL_kz00_3327 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3056z00_2043, BgL_kz00_3327, BgL_arg5097z00_2045); } } 
{ /* ./Cgen/cop.scm 65 */
BgL_varcz00_bglt BgL_arg5102z00_2047;
BgL_arg5102z00_2047 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj3055z00_2040))->BgL_varz00); 
{ /* ./Cgen/cop.scm 65 */
int BgL_kz00_3331;obj_t BgL_oz00_3332;
BgL_kz00_3331 = 
(int)(((long)2)); 
BgL_oz00_3332 = 
(obj_t)(BgL_arg5102z00_2047); 
STRUCT_SET(BgL_res3056z00_2043, BgL_kz00_3331, BgL_oz00_3332); } } 
{ /* ./Cgen/cop.scm 65 */
BgL_copz00_bglt BgL_arg5107z00_2049;
BgL_arg5107z00_2049 = 
(((BgL_csetqz00_bglt)CREF(BgL_obj3055z00_2040))->BgL_valuez00); 
{ /* ./Cgen/cop.scm 65 */
int BgL_kz00_3335;obj_t BgL_oz00_3336;
BgL_kz00_3335 = 
(int)(((long)3)); 
BgL_oz00_3336 = 
(obj_t)(BgL_arg5107z00_2049); 
STRUCT_SET(BgL_res3056z00_2043, BgL_kz00_3335, BgL_oz00_3336); } } 
return BgL_res3056z00_2043;} } } 
}



/* struct+object->object-cif3677 */
obj_t BGl_structzb2objectzd2ze3objectzd2cif3677z51zzcgen_copz00(obj_t BgL_envz00_4084, obj_t BgL_oz00_4085, obj_t BgL_sz00_4086)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 69 */
{ 
BgL_cifz00_bglt BgL_oz00_2029;obj_t BgL_sz00_2030;
{ /* ./Cgen/cop.scm 69 */
BgL_cifz00_bglt BgL_auxz00_6817;
BgL_oz00_2029 = 
(BgL_cifz00_bglt)(BgL_oz00_4085); 
BgL_sz00_2030 = BgL_sz00_4086; 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_arg5081z00_2033;
{ /* ./Cgen/cop.scm 69 */
int BgL_auxz00_6818;
BgL_auxz00_6818 = 
(int)(((long)0)); 
BgL_arg5081z00_2033 = 
STRUCT_REF(BgL_sz00_2030, BgL_auxz00_6818); } 
{ /* ./Cgen/cop.scm 69 */
BgL_objectz00_bglt BgL_auxz00_6821;
BgL_auxz00_6821 = 
(BgL_objectz00_bglt)(BgL_oz00_2029); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6821, BgL_arg5081z00_2033); } } 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_v3097z00_2034;
{ /* ./Cgen/cop.scm 69 */
int BgL_auxz00_6824;
BgL_auxz00_6824 = 
(int)(((long)1)); 
BgL_v3097z00_2034 = 
STRUCT_REF(BgL_sz00_2030, BgL_auxz00_6824); } 
((((BgL_cifz00_bglt)CREF(BgL_oz00_2029))->BgL_locz00) = ((obj_t)BgL_v3097z00_2034), BUNSPEC); } 
{ /* ./Cgen/cop.scm 69 */
BgL_copz00_bglt BgL_v3101z00_2035;
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_auxz00_6828;
{ /* ./Cgen/cop.scm 69 */
int BgL_auxz00_6829;
BgL_auxz00_6829 = 
(int)(((long)2)); 
BgL_auxz00_6828 = 
STRUCT_REF(BgL_sz00_2030, BgL_auxz00_6829); } 
BgL_v3101z00_2035 = 
(BgL_copz00_bglt)(BgL_auxz00_6828); } 
((((BgL_cifz00_bglt)CREF(BgL_oz00_2029))->BgL_testz00) = ((BgL_copz00_bglt)BgL_v3101z00_2035), BUNSPEC); } 
{ /* ./Cgen/cop.scm 69 */
BgL_copz00_bglt BgL_v3105z00_2036;
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_auxz00_6834;
{ /* ./Cgen/cop.scm 69 */
int BgL_auxz00_6835;
BgL_auxz00_6835 = 
(int)(((long)3)); 
BgL_auxz00_6834 = 
STRUCT_REF(BgL_sz00_2030, BgL_auxz00_6835); } 
BgL_v3105z00_2036 = 
(BgL_copz00_bglt)(BgL_auxz00_6834); } 
((((BgL_cifz00_bglt)CREF(BgL_oz00_2029))->BgL_truez00) = ((BgL_copz00_bglt)BgL_v3105z00_2036), BUNSPEC); } 
{ /* ./Cgen/cop.scm 69 */
BgL_copz00_bglt BgL_v3109z00_2037;
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_auxz00_6840;
{ /* ./Cgen/cop.scm 69 */
int BgL_auxz00_6841;
BgL_auxz00_6841 = 
(int)(((long)4)); 
BgL_auxz00_6840 = 
STRUCT_REF(BgL_sz00_2030, BgL_auxz00_6841); } 
BgL_v3109z00_2037 = 
(BgL_copz00_bglt)(BgL_auxz00_6840); } 
((((BgL_cifz00_bglt)CREF(BgL_oz00_2029))->BgL_falsez00) = ((BgL_copz00_bglt)BgL_v3109z00_2037), BUNSPEC); } 
BgL_auxz00_6817 = BgL_oz00_2029; 
return 
(obj_t)(BgL_auxz00_6817);} } } 
}



/* object->struct-cif3675 */
obj_t BGl_objectzd2ze3structzd2cif3675ze3zzcgen_copz00(obj_t BgL_envz00_4087, obj_t BgL_obj3093z00_4088)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 69 */
{ 
BgL_cifz00_bglt BgL_obj3093z00_2015;
BgL_obj3093z00_2015 = 
(BgL_cifz00_bglt)(BgL_obj3093z00_4088); 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_res3094z00_2018;
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_keyz00_3287;int BgL_lenz00_3288;
BgL_keyz00_3287 = 
CNST_TABLE_REF(((long)14)); 
BgL_lenz00_3288 = 
(int)(((long)5)); 
BgL_res3094z00_2018 = 
make_struct(BgL_keyz00_3287, BgL_lenz00_3288, BUNSPEC); } 
{ /* ./Cgen/cop.scm 69 */
int BgL_kz00_3291;
BgL_kz00_3291 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3094z00_2018, BgL_kz00_3291, BFALSE); } 
{ /* ./Cgen/cop.scm 69 */
obj_t BgL_arg5055z00_2020;
{ /* ./Cgen/cop.scm 69 */
BgL_copz00_bglt BgL_obj2662z00_3293;
BgL_obj2662z00_3293 = 
(BgL_copz00_bglt)(BgL_obj3093z00_2015); 
BgL_arg5055z00_2020 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3293))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 69 */
int BgL_kz00_3295;
BgL_kz00_3295 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3094z00_2018, BgL_kz00_3295, BgL_arg5055z00_2020); } } 
{ /* ./Cgen/cop.scm 69 */
BgL_copz00_bglt BgL_arg5060z00_2022;
BgL_arg5060z00_2022 = 
(((BgL_cifz00_bglt)CREF(BgL_obj3093z00_2015))->BgL_testz00); 
{ /* ./Cgen/cop.scm 69 */
int BgL_kz00_3299;obj_t BgL_oz00_3300;
BgL_kz00_3299 = 
(int)(((long)2)); 
BgL_oz00_3300 = 
(obj_t)(BgL_arg5060z00_2022); 
STRUCT_SET(BgL_res3094z00_2018, BgL_kz00_3299, BgL_oz00_3300); } } 
{ /* ./Cgen/cop.scm 69 */
BgL_copz00_bglt BgL_arg5065z00_2024;
BgL_arg5065z00_2024 = 
(((BgL_cifz00_bglt)CREF(BgL_obj3093z00_2015))->BgL_truez00); 
{ /* ./Cgen/cop.scm 69 */
int BgL_kz00_3303;obj_t BgL_oz00_3304;
BgL_kz00_3303 = 
(int)(((long)3)); 
BgL_oz00_3304 = 
(obj_t)(BgL_arg5065z00_2024); 
STRUCT_SET(BgL_res3094z00_2018, BgL_kz00_3303, BgL_oz00_3304); } } 
{ /* ./Cgen/cop.scm 69 */
BgL_copz00_bglt BgL_arg5070z00_2026;
BgL_arg5070z00_2026 = 
(((BgL_cifz00_bglt)CREF(BgL_obj3093z00_2015))->BgL_falsez00); 
{ /* ./Cgen/cop.scm 69 */
int BgL_kz00_3307;obj_t BgL_oz00_3308;
BgL_kz00_3307 = 
(int)(((long)4)); 
BgL_oz00_3308 = 
(obj_t)(BgL_arg5070z00_2026); 
STRUCT_SET(BgL_res3094z00_2018, BgL_kz00_3307, BgL_oz00_3308); } } 
return BgL_res3094z00_2018;} } } 
}



/* struct+object->object-local-var3673 */
obj_t BGl_structzb2objectzd2ze3objectzd2localzd2var3673z83zzcgen_copz00(obj_t BgL_envz00_4089, obj_t BgL_oz00_4090, obj_t BgL_sz00_4091)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 74 */
{ 
BgL_localzd2varzd2_bglt BgL_oz00_2006;obj_t BgL_sz00_2007;
{ /* ./Cgen/cop.scm 74 */
BgL_localzd2varzd2_bglt BgL_auxz00_6870;
BgL_oz00_2006 = 
(BgL_localzd2varzd2_bglt)(BgL_oz00_4090); 
BgL_sz00_2007 = BgL_sz00_4091; 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_arg5041z00_2010;
{ /* ./Cgen/cop.scm 74 */
int BgL_auxz00_6871;
BgL_auxz00_6871 = 
(int)(((long)0)); 
BgL_arg5041z00_2010 = 
STRUCT_REF(BgL_sz00_2007, BgL_auxz00_6871); } 
{ /* ./Cgen/cop.scm 74 */
BgL_objectz00_bglt BgL_auxz00_6874;
BgL_auxz00_6874 = 
(BgL_objectz00_bglt)(BgL_oz00_2006); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6874, BgL_arg5041z00_2010); } } 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_v3132z00_2011;
{ /* ./Cgen/cop.scm 74 */
int BgL_auxz00_6877;
BgL_auxz00_6877 = 
(int)(((long)1)); 
BgL_v3132z00_2011 = 
STRUCT_REF(BgL_sz00_2007, BgL_auxz00_6877); } 
((((BgL_localzd2varzd2_bglt)CREF(BgL_oz00_2006))->BgL_locz00) = ((obj_t)BgL_v3132z00_2011), BUNSPEC); } 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_v3136z00_2012;
{ /* ./Cgen/cop.scm 74 */
int BgL_auxz00_6881;
BgL_auxz00_6881 = 
(int)(((long)2)); 
BgL_v3136z00_2012 = 
STRUCT_REF(BgL_sz00_2007, BgL_auxz00_6881); } 
((((BgL_localzd2varzd2_bglt)CREF(BgL_oz00_2006))->BgL_varsz00) = ((obj_t)BgL_v3136z00_2012), BUNSPEC); } 
BgL_auxz00_6870 = BgL_oz00_2006; 
return 
(obj_t)(BgL_auxz00_6870);} } } 
}



/* object->struct-local-var3671 */
obj_t BGl_objectzd2ze3structzd2localzd2var3671z31zzcgen_copz00(obj_t BgL_envz00_4092, obj_t BgL_obj3128z00_4093)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 74 */
{ 
BgL_localzd2varzd2_bglt BgL_obj3128z00_1996;
BgL_obj3128z00_1996 = 
(BgL_localzd2varzd2_bglt)(BgL_obj3128z00_4093); 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_res3129z00_1999;
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_keyz00_3267;int BgL_lenz00_3268;
BgL_keyz00_3267 = 
CNST_TABLE_REF(((long)15)); 
BgL_lenz00_3268 = 
(int)(((long)3)); 
BgL_res3129z00_1999 = 
make_struct(BgL_keyz00_3267, BgL_lenz00_3268, BUNSPEC); } 
{ /* ./Cgen/cop.scm 74 */
int BgL_kz00_3271;
BgL_kz00_3271 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3129z00_1999, BgL_kz00_3271, BFALSE); } 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_arg5024z00_2001;
{ /* ./Cgen/cop.scm 74 */
BgL_copz00_bglt BgL_obj2662z00_3273;
BgL_obj2662z00_3273 = 
(BgL_copz00_bglt)(BgL_obj3128z00_1996); 
BgL_arg5024z00_2001 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3273))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 74 */
int BgL_kz00_3275;
BgL_kz00_3275 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3129z00_1999, BgL_kz00_3275, BgL_arg5024z00_2001); } } 
{ /* ./Cgen/cop.scm 74 */
obj_t BgL_arg5030z00_2003;
BgL_arg5030z00_2003 = 
(((BgL_localzd2varzd2_bglt)CREF(BgL_obj3128z00_1996))->BgL_varsz00); 
{ /* ./Cgen/cop.scm 74 */
int BgL_kz00_3279;
BgL_kz00_3279 = 
(int)(((long)2)); 
STRUCT_SET(BgL_res3129z00_1999, BgL_kz00_3279, BgL_arg5030z00_2003); } } 
return BgL_res3129z00_1999;} } } 
}



/* struct+object->object-cfuncall3669 */
obj_t BGl_structzb2objectzd2ze3objectzd2cfuncall3669z51zzcgen_copz00(obj_t BgL_envz00_4094, obj_t BgL_oz00_4095, obj_t BgL_sz00_4096)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 77 */
{ 
BgL_cfuncallz00_bglt BgL_oz00_1985;obj_t BgL_sz00_1986;
{ /* ./Cgen/cop.scm 77 */
BgL_cfuncallz00_bglt BgL_auxz00_6900;
BgL_oz00_1985 = 
(BgL_cfuncallz00_bglt)(BgL_oz00_4095); 
BgL_sz00_1986 = BgL_sz00_4096; 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_arg5008z00_1989;
{ /* ./Cgen/cop.scm 77 */
int BgL_auxz00_6901;
BgL_auxz00_6901 = 
(int)(((long)0)); 
BgL_arg5008z00_1989 = 
STRUCT_REF(BgL_sz00_1986, BgL_auxz00_6901); } 
{ /* ./Cgen/cop.scm 77 */
BgL_objectz00_bglt BgL_auxz00_6904;
BgL_auxz00_6904 = 
(BgL_objectz00_bglt)(BgL_oz00_1985); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6904, BgL_arg5008z00_1989); } } 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_v3166z00_1990;
{ /* ./Cgen/cop.scm 77 */
int BgL_auxz00_6907;
BgL_auxz00_6907 = 
(int)(((long)1)); 
BgL_v3166z00_1990 = 
STRUCT_REF(BgL_sz00_1986, BgL_auxz00_6907); } 
((((BgL_cfuncallz00_bglt)CREF(BgL_oz00_1985))->BgL_locz00) = ((obj_t)BgL_v3166z00_1990), BUNSPEC); } 
{ /* ./Cgen/cop.scm 77 */
BgL_copz00_bglt BgL_v3170z00_1991;
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_auxz00_6911;
{ /* ./Cgen/cop.scm 77 */
int BgL_auxz00_6912;
BgL_auxz00_6912 = 
(int)(((long)2)); 
BgL_auxz00_6911 = 
STRUCT_REF(BgL_sz00_1986, BgL_auxz00_6912); } 
BgL_v3170z00_1991 = 
(BgL_copz00_bglt)(BgL_auxz00_6911); } 
((((BgL_cfuncallz00_bglt)CREF(BgL_oz00_1985))->BgL_funz00) = ((BgL_copz00_bglt)BgL_v3170z00_1991), BUNSPEC); } 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_v3174z00_1992;
{ /* ./Cgen/cop.scm 77 */
int BgL_auxz00_6917;
BgL_auxz00_6917 = 
(int)(((long)3)); 
BgL_v3174z00_1992 = 
STRUCT_REF(BgL_sz00_1986, BgL_auxz00_6917); } 
((((BgL_cfuncallz00_bglt)CREF(BgL_oz00_1985))->BgL_argsz00) = ((obj_t)BgL_v3174z00_1992), BUNSPEC); } 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_v3178z00_1993;
{ /* ./Cgen/cop.scm 77 */
int BgL_auxz00_6921;
BgL_auxz00_6921 = 
(int)(((long)4)); 
BgL_v3178z00_1993 = 
STRUCT_REF(BgL_sz00_1986, BgL_auxz00_6921); } 
((((BgL_cfuncallz00_bglt)CREF(BgL_oz00_1985))->BgL_strengthz00) = ((obj_t)BgL_v3178z00_1993), BUNSPEC); } 
BgL_auxz00_6900 = BgL_oz00_1985; 
return 
(obj_t)(BgL_auxz00_6900);} } } 
}



/* object->struct-cfuncall3667 */
obj_t BGl_objectzd2ze3structzd2cfuncall3667ze3zzcgen_copz00(obj_t BgL_envz00_4097, obj_t BgL_obj3162z00_4098)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 77 */
{ 
BgL_cfuncallz00_bglt BgL_obj3162z00_1971;
BgL_obj3162z00_1971 = 
(BgL_cfuncallz00_bglt)(BgL_obj3162z00_4098); 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_res3163z00_1974;
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_keyz00_3235;int BgL_lenz00_3236;
BgL_keyz00_3235 = 
CNST_TABLE_REF(((long)16)); 
BgL_lenz00_3236 = 
(int)(((long)5)); 
BgL_res3163z00_1974 = 
make_struct(BgL_keyz00_3235, BgL_lenz00_3236, BUNSPEC); } 
{ /* ./Cgen/cop.scm 77 */
int BgL_kz00_3239;
BgL_kz00_3239 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3163z00_1974, BgL_kz00_3239, BFALSE); } 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_arg4982z00_1976;
{ /* ./Cgen/cop.scm 77 */
BgL_copz00_bglt BgL_obj2662z00_3241;
BgL_obj2662z00_3241 = 
(BgL_copz00_bglt)(BgL_obj3162z00_1971); 
BgL_arg4982z00_1976 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3241))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 77 */
int BgL_kz00_3243;
BgL_kz00_3243 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3163z00_1974, BgL_kz00_3243, BgL_arg4982z00_1976); } } 
{ /* ./Cgen/cop.scm 77 */
BgL_copz00_bglt BgL_arg4987z00_1978;
BgL_arg4987z00_1978 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_obj3162z00_1971))->BgL_funz00); 
{ /* ./Cgen/cop.scm 77 */
int BgL_kz00_3247;obj_t BgL_oz00_3248;
BgL_kz00_3247 = 
(int)(((long)2)); 
BgL_oz00_3248 = 
(obj_t)(BgL_arg4987z00_1978); 
STRUCT_SET(BgL_res3163z00_1974, BgL_kz00_3247, BgL_oz00_3248); } } 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_arg4992z00_1980;
BgL_arg4992z00_1980 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_obj3162z00_1971))->BgL_argsz00); 
{ /* ./Cgen/cop.scm 77 */
int BgL_kz00_3251;
BgL_kz00_3251 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res3163z00_1974, BgL_kz00_3251, BgL_arg4992z00_1980); } } 
{ /* ./Cgen/cop.scm 77 */
obj_t BgL_arg4997z00_1982;
BgL_arg4997z00_1982 = 
(((BgL_cfuncallz00_bglt)CREF(BgL_obj3162z00_1971))->BgL_strengthz00); 
{ /* ./Cgen/cop.scm 77 */
int BgL_kz00_3255;
BgL_kz00_3255 = 
(int)(((long)4)); 
STRUCT_SET(BgL_res3163z00_1974, BgL_kz00_3255, BgL_arg4997z00_1982); } } 
return BgL_res3163z00_1974;} } } 
}



/* struct+object->object-capply3665 */
obj_t BGl_structzb2objectzd2ze3objectzd2capply3665z51zzcgen_copz00(obj_t BgL_envz00_4099, obj_t BgL_oz00_4100, obj_t BgL_sz00_4101)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 82 */
{ 
BgL_capplyz00_bglt BgL_oz00_1961;obj_t BgL_sz00_1962;
{ /* ./Cgen/cop.scm 82 */
BgL_capplyz00_bglt BgL_auxz00_6947;
BgL_oz00_1961 = 
(BgL_capplyz00_bglt)(BgL_oz00_4100); 
BgL_sz00_1962 = BgL_sz00_4101; 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_arg4967z00_1965;
{ /* ./Cgen/cop.scm 82 */
int BgL_auxz00_6948;
BgL_auxz00_6948 = 
(int)(((long)0)); 
BgL_arg4967z00_1965 = 
STRUCT_REF(BgL_sz00_1962, BgL_auxz00_6948); } 
{ /* ./Cgen/cop.scm 82 */
BgL_objectz00_bglt BgL_auxz00_6951;
BgL_auxz00_6951 = 
(BgL_objectz00_bglt)(BgL_oz00_1961); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6951, BgL_arg4967z00_1965); } } 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_v3204z00_1966;
{ /* ./Cgen/cop.scm 82 */
int BgL_auxz00_6954;
BgL_auxz00_6954 = 
(int)(((long)1)); 
BgL_v3204z00_1966 = 
STRUCT_REF(BgL_sz00_1962, BgL_auxz00_6954); } 
((((BgL_capplyz00_bglt)CREF(BgL_oz00_1961))->BgL_locz00) = ((obj_t)BgL_v3204z00_1966), BUNSPEC); } 
{ /* ./Cgen/cop.scm 82 */
BgL_copz00_bglt BgL_v3208z00_1967;
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_auxz00_6958;
{ /* ./Cgen/cop.scm 82 */
int BgL_auxz00_6959;
BgL_auxz00_6959 = 
(int)(((long)2)); 
BgL_auxz00_6958 = 
STRUCT_REF(BgL_sz00_1962, BgL_auxz00_6959); } 
BgL_v3208z00_1967 = 
(BgL_copz00_bglt)(BgL_auxz00_6958); } 
((((BgL_capplyz00_bglt)CREF(BgL_oz00_1961))->BgL_funz00) = ((BgL_copz00_bglt)BgL_v3208z00_1967), BUNSPEC); } 
{ /* ./Cgen/cop.scm 82 */
BgL_copz00_bglt BgL_v3212z00_1968;
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_auxz00_6964;
{ /* ./Cgen/cop.scm 82 */
int BgL_auxz00_6965;
BgL_auxz00_6965 = 
(int)(((long)3)); 
BgL_auxz00_6964 = 
STRUCT_REF(BgL_sz00_1962, BgL_auxz00_6965); } 
BgL_v3212z00_1968 = 
(BgL_copz00_bglt)(BgL_auxz00_6964); } 
((((BgL_capplyz00_bglt)CREF(BgL_oz00_1961))->BgL_argz00) = ((BgL_copz00_bglt)BgL_v3212z00_1968), BUNSPEC); } 
BgL_auxz00_6947 = BgL_oz00_1961; 
return 
(obj_t)(BgL_auxz00_6947);} } } 
}



/* object->struct-capply3663 */
obj_t BGl_objectzd2ze3structzd2capply3663ze3zzcgen_copz00(obj_t BgL_envz00_4102, obj_t BgL_obj3200z00_4103)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 82 */
{ 
BgL_capplyz00_bglt BgL_obj3200z00_1949;
BgL_obj3200z00_1949 = 
(BgL_capplyz00_bglt)(BgL_obj3200z00_4103); 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_res3201z00_1952;
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_keyz00_3209;int BgL_lenz00_3210;
BgL_keyz00_3209 = 
CNST_TABLE_REF(((long)17)); 
BgL_lenz00_3210 = 
(int)(((long)4)); 
BgL_res3201z00_1952 = 
make_struct(BgL_keyz00_3209, BgL_lenz00_3210, BUNSPEC); } 
{ /* ./Cgen/cop.scm 82 */
int BgL_kz00_3213;
BgL_kz00_3213 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3201z00_1952, BgL_kz00_3213, BFALSE); } 
{ /* ./Cgen/cop.scm 82 */
obj_t BgL_arg4946z00_1954;
{ /* ./Cgen/cop.scm 82 */
BgL_copz00_bglt BgL_obj2662z00_3215;
BgL_obj2662z00_3215 = 
(BgL_copz00_bglt)(BgL_obj3200z00_1949); 
BgL_arg4946z00_1954 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3215))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 82 */
int BgL_kz00_3217;
BgL_kz00_3217 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3201z00_1952, BgL_kz00_3217, BgL_arg4946z00_1954); } } 
{ /* ./Cgen/cop.scm 82 */
BgL_copz00_bglt BgL_arg4951z00_1956;
BgL_arg4951z00_1956 = 
(((BgL_capplyz00_bglt)CREF(BgL_obj3200z00_1949))->BgL_funz00); 
{ /* ./Cgen/cop.scm 82 */
int BgL_kz00_3221;obj_t BgL_oz00_3222;
BgL_kz00_3221 = 
(int)(((long)2)); 
BgL_oz00_3222 = 
(obj_t)(BgL_arg4951z00_1956); 
STRUCT_SET(BgL_res3201z00_1952, BgL_kz00_3221, BgL_oz00_3222); } } 
{ /* ./Cgen/cop.scm 82 */
BgL_copz00_bglt BgL_arg4956z00_1958;
BgL_arg4956z00_1958 = 
(((BgL_capplyz00_bglt)CREF(BgL_obj3200z00_1949))->BgL_argz00); 
{ /* ./Cgen/cop.scm 82 */
int BgL_kz00_3225;obj_t BgL_oz00_3226;
BgL_kz00_3225 = 
(int)(((long)3)); 
BgL_oz00_3226 = 
(obj_t)(BgL_arg4956z00_1958); 
STRUCT_SET(BgL_res3201z00_1952, BgL_kz00_3225, BgL_oz00_3226); } } 
return BgL_res3201z00_1952;} } } 
}



/* struct+object->object-capp3661 */
obj_t BGl_structzb2objectzd2ze3objectzd2capp3661z51zzcgen_copz00(obj_t BgL_envz00_4104, obj_t BgL_oz00_4105, obj_t BgL_sz00_4106)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 86 */
{ 
BgL_cappz00_bglt BgL_oz00_1939;obj_t BgL_sz00_1940;
{ /* ./Cgen/cop.scm 86 */
BgL_cappz00_bglt BgL_auxz00_6990;
BgL_oz00_1939 = 
(BgL_cappz00_bglt)(BgL_oz00_4105); 
BgL_sz00_1940 = BgL_sz00_4106; 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_arg4931z00_1943;
{ /* ./Cgen/cop.scm 86 */
int BgL_auxz00_6991;
BgL_auxz00_6991 = 
(int)(((long)0)); 
BgL_arg4931z00_1943 = 
STRUCT_REF(BgL_sz00_1940, BgL_auxz00_6991); } 
{ /* ./Cgen/cop.scm 86 */
BgL_objectz00_bglt BgL_auxz00_6994;
BgL_auxz00_6994 = 
(BgL_objectz00_bglt)(BgL_oz00_1939); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_6994, BgL_arg4931z00_1943); } } 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_v3238z00_1944;
{ /* ./Cgen/cop.scm 86 */
int BgL_auxz00_6997;
BgL_auxz00_6997 = 
(int)(((long)1)); 
BgL_v3238z00_1944 = 
STRUCT_REF(BgL_sz00_1940, BgL_auxz00_6997); } 
((((BgL_cappz00_bglt)CREF(BgL_oz00_1939))->BgL_locz00) = ((obj_t)BgL_v3238z00_1944), BUNSPEC); } 
{ /* ./Cgen/cop.scm 86 */
BgL_copz00_bglt BgL_v3242z00_1945;
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_auxz00_7001;
{ /* ./Cgen/cop.scm 86 */
int BgL_auxz00_7002;
BgL_auxz00_7002 = 
(int)(((long)2)); 
BgL_auxz00_7001 = 
STRUCT_REF(BgL_sz00_1940, BgL_auxz00_7002); } 
BgL_v3242z00_1945 = 
(BgL_copz00_bglt)(BgL_auxz00_7001); } 
((((BgL_cappz00_bglt)CREF(BgL_oz00_1939))->BgL_funz00) = ((BgL_copz00_bglt)BgL_v3242z00_1945), BUNSPEC); } 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_v3246z00_1946;
{ /* ./Cgen/cop.scm 86 */
int BgL_auxz00_7007;
BgL_auxz00_7007 = 
(int)(((long)3)); 
BgL_v3246z00_1946 = 
STRUCT_REF(BgL_sz00_1940, BgL_auxz00_7007); } 
((((BgL_cappz00_bglt)CREF(BgL_oz00_1939))->BgL_argsz00) = ((obj_t)BgL_v3246z00_1946), BUNSPEC); } 
BgL_auxz00_6990 = BgL_oz00_1939; 
return 
(obj_t)(BgL_auxz00_6990);} } } 
}



/* object->struct-capp3659 */
obj_t BGl_objectzd2ze3structzd2capp3659ze3zzcgen_copz00(obj_t BgL_envz00_4107, obj_t BgL_obj3234z00_4108)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 86 */
{ 
BgL_cappz00_bglt BgL_obj3234z00_1927;
BgL_obj3234z00_1927 = 
(BgL_cappz00_bglt)(BgL_obj3234z00_4108); 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_res3235z00_1930;
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_keyz00_3183;int BgL_lenz00_3184;
BgL_keyz00_3183 = 
CNST_TABLE_REF(((long)18)); 
BgL_lenz00_3184 = 
(int)(((long)4)); 
BgL_res3235z00_1930 = 
make_struct(BgL_keyz00_3183, BgL_lenz00_3184, BUNSPEC); } 
{ /* ./Cgen/cop.scm 86 */
int BgL_kz00_3187;
BgL_kz00_3187 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3235z00_1930, BgL_kz00_3187, BFALSE); } 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_arg4910z00_1932;
{ /* ./Cgen/cop.scm 86 */
BgL_copz00_bglt BgL_obj2662z00_3189;
BgL_obj2662z00_3189 = 
(BgL_copz00_bglt)(BgL_obj3234z00_1927); 
BgL_arg4910z00_1932 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3189))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 86 */
int BgL_kz00_3191;
BgL_kz00_3191 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3235z00_1930, BgL_kz00_3191, BgL_arg4910z00_1932); } } 
{ /* ./Cgen/cop.scm 86 */
BgL_copz00_bglt BgL_arg4915z00_1934;
BgL_arg4915z00_1934 = 
(((BgL_cappz00_bglt)CREF(BgL_obj3234z00_1927))->BgL_funz00); 
{ /* ./Cgen/cop.scm 86 */
int BgL_kz00_3195;obj_t BgL_oz00_3196;
BgL_kz00_3195 = 
(int)(((long)2)); 
BgL_oz00_3196 = 
(obj_t)(BgL_arg4915z00_1934); 
STRUCT_SET(BgL_res3235z00_1930, BgL_kz00_3195, BgL_oz00_3196); } } 
{ /* ./Cgen/cop.scm 86 */
obj_t BgL_arg4920z00_1936;
BgL_arg4920z00_1936 = 
(((BgL_cappz00_bglt)CREF(BgL_obj3234z00_1927))->BgL_argsz00); 
{ /* ./Cgen/cop.scm 86 */
int BgL_kz00_3199;
BgL_kz00_3199 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res3235z00_1930, BgL_kz00_3199, BgL_arg4920z00_1936); } } 
return BgL_res3235z00_1930;} } } 
}



/* struct+object->object-cfail3657 */
obj_t BGl_structzb2objectzd2ze3objectzd2cfail3657z51zzcgen_copz00(obj_t BgL_envz00_4109, obj_t BgL_oz00_4110, obj_t BgL_sz00_4111)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 90 */
{ 
BgL_cfailz00_bglt BgL_oz00_1916;obj_t BgL_sz00_1917;
{ /* ./Cgen/cop.scm 90 */
BgL_cfailz00_bglt BgL_auxz00_7030;
BgL_oz00_1916 = 
(BgL_cfailz00_bglt)(BgL_oz00_4110); 
BgL_sz00_1917 = BgL_sz00_4111; 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_arg4894z00_1920;
{ /* ./Cgen/cop.scm 90 */
int BgL_auxz00_7031;
BgL_auxz00_7031 = 
(int)(((long)0)); 
BgL_arg4894z00_1920 = 
STRUCT_REF(BgL_sz00_1917, BgL_auxz00_7031); } 
{ /* ./Cgen/cop.scm 90 */
BgL_objectz00_bglt BgL_auxz00_7034;
BgL_auxz00_7034 = 
(BgL_objectz00_bglt)(BgL_oz00_1916); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7034, BgL_arg4894z00_1920); } } 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_v3278z00_1921;
{ /* ./Cgen/cop.scm 90 */
int BgL_auxz00_7037;
BgL_auxz00_7037 = 
(int)(((long)1)); 
BgL_v3278z00_1921 = 
STRUCT_REF(BgL_sz00_1917, BgL_auxz00_7037); } 
((((BgL_cfailz00_bglt)CREF(BgL_oz00_1916))->BgL_locz00) = ((obj_t)BgL_v3278z00_1921), BUNSPEC); } 
{ /* ./Cgen/cop.scm 90 */
BgL_copz00_bglt BgL_v3282z00_1922;
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_auxz00_7041;
{ /* ./Cgen/cop.scm 90 */
int BgL_auxz00_7042;
BgL_auxz00_7042 = 
(int)(((long)2)); 
BgL_auxz00_7041 = 
STRUCT_REF(BgL_sz00_1917, BgL_auxz00_7042); } 
BgL_v3282z00_1922 = 
(BgL_copz00_bglt)(BgL_auxz00_7041); } 
((((BgL_cfailz00_bglt)CREF(BgL_oz00_1916))->BgL_procz00) = ((BgL_copz00_bglt)BgL_v3282z00_1922), BUNSPEC); } 
{ /* ./Cgen/cop.scm 90 */
BgL_copz00_bglt BgL_v3286z00_1923;
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_auxz00_7047;
{ /* ./Cgen/cop.scm 90 */
int BgL_auxz00_7048;
BgL_auxz00_7048 = 
(int)(((long)3)); 
BgL_auxz00_7047 = 
STRUCT_REF(BgL_sz00_1917, BgL_auxz00_7048); } 
BgL_v3286z00_1923 = 
(BgL_copz00_bglt)(BgL_auxz00_7047); } 
((((BgL_cfailz00_bglt)CREF(BgL_oz00_1916))->BgL_msgz00) = ((BgL_copz00_bglt)BgL_v3286z00_1923), BUNSPEC); } 
{ /* ./Cgen/cop.scm 90 */
BgL_copz00_bglt BgL_v3290z00_1924;
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_auxz00_7053;
{ /* ./Cgen/cop.scm 90 */
int BgL_auxz00_7054;
BgL_auxz00_7054 = 
(int)(((long)4)); 
BgL_auxz00_7053 = 
STRUCT_REF(BgL_sz00_1917, BgL_auxz00_7054); } 
BgL_v3290z00_1924 = 
(BgL_copz00_bglt)(BgL_auxz00_7053); } 
((((BgL_cfailz00_bglt)CREF(BgL_oz00_1916))->BgL_objz00) = ((BgL_copz00_bglt)BgL_v3290z00_1924), BUNSPEC); } 
BgL_auxz00_7030 = BgL_oz00_1916; 
return 
(obj_t)(BgL_auxz00_7030);} } } 
}



/* object->struct-cfail3655 */
obj_t BGl_objectzd2ze3structzd2cfail3655ze3zzcgen_copz00(obj_t BgL_envz00_4112, obj_t BgL_obj3274z00_4113)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 90 */
{ 
BgL_cfailz00_bglt BgL_obj3274z00_1902;
BgL_obj3274z00_1902 = 
(BgL_cfailz00_bglt)(BgL_obj3274z00_4113); 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_res3275z00_1905;
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_keyz00_3151;int BgL_lenz00_3152;
BgL_keyz00_3151 = 
CNST_TABLE_REF(((long)19)); 
BgL_lenz00_3152 = 
(int)(((long)5)); 
BgL_res3275z00_1905 = 
make_struct(BgL_keyz00_3151, BgL_lenz00_3152, BUNSPEC); } 
{ /* ./Cgen/cop.scm 90 */
int BgL_kz00_3155;
BgL_kz00_3155 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3275z00_1905, BgL_kz00_3155, BFALSE); } 
{ /* ./Cgen/cop.scm 90 */
obj_t BgL_arg4868z00_1907;
{ /* ./Cgen/cop.scm 90 */
BgL_copz00_bglt BgL_obj2662z00_3157;
BgL_obj2662z00_3157 = 
(BgL_copz00_bglt)(BgL_obj3274z00_1902); 
BgL_arg4868z00_1907 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3157))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 90 */
int BgL_kz00_3159;
BgL_kz00_3159 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3275z00_1905, BgL_kz00_3159, BgL_arg4868z00_1907); } } 
{ /* ./Cgen/cop.scm 90 */
BgL_copz00_bglt BgL_arg4873z00_1909;
BgL_arg4873z00_1909 = 
(((BgL_cfailz00_bglt)CREF(BgL_obj3274z00_1902))->BgL_procz00); 
{ /* ./Cgen/cop.scm 90 */
int BgL_kz00_3163;obj_t BgL_oz00_3164;
BgL_kz00_3163 = 
(int)(((long)2)); 
BgL_oz00_3164 = 
(obj_t)(BgL_arg4873z00_1909); 
STRUCT_SET(BgL_res3275z00_1905, BgL_kz00_3163, BgL_oz00_3164); } } 
{ /* ./Cgen/cop.scm 90 */
BgL_copz00_bglt BgL_arg4878z00_1911;
BgL_arg4878z00_1911 = 
(((BgL_cfailz00_bglt)CREF(BgL_obj3274z00_1902))->BgL_msgz00); 
{ /* ./Cgen/cop.scm 90 */
int BgL_kz00_3167;obj_t BgL_oz00_3168;
BgL_kz00_3167 = 
(int)(((long)3)); 
BgL_oz00_3168 = 
(obj_t)(BgL_arg4878z00_1911); 
STRUCT_SET(BgL_res3275z00_1905, BgL_kz00_3167, BgL_oz00_3168); } } 
{ /* ./Cgen/cop.scm 90 */
BgL_copz00_bglt BgL_arg4883z00_1913;
BgL_arg4883z00_1913 = 
(((BgL_cfailz00_bglt)CREF(BgL_obj3274z00_1902))->BgL_objz00); 
{ /* ./Cgen/cop.scm 90 */
int BgL_kz00_3171;obj_t BgL_oz00_3172;
BgL_kz00_3171 = 
(int)(((long)4)); 
BgL_oz00_3172 = 
(obj_t)(BgL_arg4883z00_1913); 
STRUCT_SET(BgL_res3275z00_1905, BgL_kz00_3171, BgL_oz00_3172); } } 
return BgL_res3275z00_1905;} } } 
}



/* struct+object->object-cswitch3653 */
obj_t BGl_structzb2objectzd2ze3objectzd2cswitch3653z51zzcgen_copz00(obj_t BgL_envz00_4114, obj_t BgL_oz00_4115, obj_t BgL_sz00_4116)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 95 */
{ 
BgL_cswitchz00_bglt BgL_oz00_1892;obj_t BgL_sz00_1893;
{ /* ./Cgen/cop.scm 95 */
BgL_cswitchz00_bglt BgL_auxz00_7083;
BgL_oz00_1892 = 
(BgL_cswitchz00_bglt)(BgL_oz00_4115); 
BgL_sz00_1893 = BgL_sz00_4116; 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_arg4853z00_1896;
{ /* ./Cgen/cop.scm 95 */
int BgL_auxz00_7084;
BgL_auxz00_7084 = 
(int)(((long)0)); 
BgL_arg4853z00_1896 = 
STRUCT_REF(BgL_sz00_1893, BgL_auxz00_7084); } 
{ /* ./Cgen/cop.scm 95 */
BgL_objectz00_bglt BgL_auxz00_7087;
BgL_auxz00_7087 = 
(BgL_objectz00_bglt)(BgL_oz00_1892); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7087, BgL_arg4853z00_1896); } } 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_v3316z00_1897;
{ /* ./Cgen/cop.scm 95 */
int BgL_auxz00_7090;
BgL_auxz00_7090 = 
(int)(((long)1)); 
BgL_v3316z00_1897 = 
STRUCT_REF(BgL_sz00_1893, BgL_auxz00_7090); } 
((((BgL_cswitchz00_bglt)CREF(BgL_oz00_1892))->BgL_locz00) = ((obj_t)BgL_v3316z00_1897), BUNSPEC); } 
{ /* ./Cgen/cop.scm 95 */
BgL_copz00_bglt BgL_v3320z00_1898;
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_auxz00_7094;
{ /* ./Cgen/cop.scm 95 */
int BgL_auxz00_7095;
BgL_auxz00_7095 = 
(int)(((long)2)); 
BgL_auxz00_7094 = 
STRUCT_REF(BgL_sz00_1893, BgL_auxz00_7095); } 
BgL_v3320z00_1898 = 
(BgL_copz00_bglt)(BgL_auxz00_7094); } 
((((BgL_cswitchz00_bglt)CREF(BgL_oz00_1892))->BgL_testz00) = ((BgL_copz00_bglt)BgL_v3320z00_1898), BUNSPEC); } 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_v3324z00_1899;
{ /* ./Cgen/cop.scm 95 */
int BgL_auxz00_7100;
BgL_auxz00_7100 = 
(int)(((long)3)); 
BgL_v3324z00_1899 = 
STRUCT_REF(BgL_sz00_1893, BgL_auxz00_7100); } 
((((BgL_cswitchz00_bglt)CREF(BgL_oz00_1892))->BgL_clausesz00) = ((obj_t)BgL_v3324z00_1899), BUNSPEC); } 
BgL_auxz00_7083 = BgL_oz00_1892; 
return 
(obj_t)(BgL_auxz00_7083);} } } 
}



/* object->struct-cswitch3651 */
obj_t BGl_objectzd2ze3structzd2cswitch3651ze3zzcgen_copz00(obj_t BgL_envz00_4117, obj_t BgL_obj3312z00_4118)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 95 */
{ 
BgL_cswitchz00_bglt BgL_obj3312z00_1880;
BgL_obj3312z00_1880 = 
(BgL_cswitchz00_bglt)(BgL_obj3312z00_4118); 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_res3313z00_1883;
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_keyz00_3125;int BgL_lenz00_3126;
BgL_keyz00_3125 = 
CNST_TABLE_REF(((long)20)); 
BgL_lenz00_3126 = 
(int)(((long)4)); 
BgL_res3313z00_1883 = 
make_struct(BgL_keyz00_3125, BgL_lenz00_3126, BUNSPEC); } 
{ /* ./Cgen/cop.scm 95 */
int BgL_kz00_3129;
BgL_kz00_3129 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3313z00_1883, BgL_kz00_3129, BFALSE); } 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_arg4831z00_1885;
{ /* ./Cgen/cop.scm 95 */
BgL_copz00_bglt BgL_obj2662z00_3131;
BgL_obj2662z00_3131 = 
(BgL_copz00_bglt)(BgL_obj3312z00_1880); 
BgL_arg4831z00_1885 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3131))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 95 */
int BgL_kz00_3133;
BgL_kz00_3133 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3313z00_1883, BgL_kz00_3133, BgL_arg4831z00_1885); } } 
{ /* ./Cgen/cop.scm 95 */
BgL_copz00_bglt BgL_arg4836z00_1887;
BgL_arg4836z00_1887 = 
(((BgL_cswitchz00_bglt)CREF(BgL_obj3312z00_1880))->BgL_testz00); 
{ /* ./Cgen/cop.scm 95 */
int BgL_kz00_3137;obj_t BgL_oz00_3138;
BgL_kz00_3137 = 
(int)(((long)2)); 
BgL_oz00_3138 = 
(obj_t)(BgL_arg4836z00_1887); 
STRUCT_SET(BgL_res3313z00_1883, BgL_kz00_3137, BgL_oz00_3138); } } 
{ /* ./Cgen/cop.scm 95 */
obj_t BgL_arg4842z00_1889;
BgL_arg4842z00_1889 = 
(((BgL_cswitchz00_bglt)CREF(BgL_obj3312z00_1880))->BgL_clausesz00); 
{ /* ./Cgen/cop.scm 95 */
int BgL_kz00_3141;
BgL_kz00_3141 = 
(int)(((long)3)); 
STRUCT_SET(BgL_res3313z00_1883, BgL_kz00_3141, BgL_arg4842z00_1889); } } 
return BgL_res3313z00_1883;} } } 
}



/* struct+object->object-cmake-box3649 */
obj_t BGl_structzb2objectzd2ze3objectzd2cmakezd2box3649z83zzcgen_copz00(obj_t BgL_envz00_4119, obj_t BgL_oz00_4120, obj_t BgL_sz00_4121)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 99 */
{ 
BgL_cmakezd2boxzd2_bglt BgL_oz00_1871;obj_t BgL_sz00_1872;
{ /* ./Cgen/cop.scm 99 */
BgL_cmakezd2boxzd2_bglt BgL_auxz00_7123;
BgL_oz00_1871 = 
(BgL_cmakezd2boxzd2_bglt)(BgL_oz00_4120); 
BgL_sz00_1872 = BgL_sz00_4121; 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_arg4817z00_1875;
{ /* ./Cgen/cop.scm 99 */
int BgL_auxz00_7124;
BgL_auxz00_7124 = 
(int)(((long)0)); 
BgL_arg4817z00_1875 = 
STRUCT_REF(BgL_sz00_1872, BgL_auxz00_7124); } 
{ /* ./Cgen/cop.scm 99 */
BgL_objectz00_bglt BgL_auxz00_7127;
BgL_auxz00_7127 = 
(BgL_objectz00_bglt)(BgL_oz00_1871); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7127, BgL_arg4817z00_1875); } } 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_v3346z00_1876;
{ /* ./Cgen/cop.scm 99 */
int BgL_auxz00_7130;
BgL_auxz00_7130 = 
(int)(((long)1)); 
BgL_v3346z00_1876 = 
STRUCT_REF(BgL_sz00_1872, BgL_auxz00_7130); } 
((((BgL_cmakezd2boxzd2_bglt)CREF(BgL_oz00_1871))->BgL_locz00) = ((obj_t)BgL_v3346z00_1876), BUNSPEC); } 
{ /* ./Cgen/cop.scm 99 */
BgL_copz00_bglt BgL_v3350z00_1877;
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_auxz00_7134;
{ /* ./Cgen/cop.scm 99 */
int BgL_auxz00_7135;
BgL_auxz00_7135 = 
(int)(((long)2)); 
BgL_auxz00_7134 = 
STRUCT_REF(BgL_sz00_1872, BgL_auxz00_7135); } 
BgL_v3350z00_1877 = 
(BgL_copz00_bglt)(BgL_auxz00_7134); } 
((((BgL_cmakezd2boxzd2_bglt)CREF(BgL_oz00_1871))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_v3350z00_1877), BUNSPEC); } 
BgL_auxz00_7123 = BgL_oz00_1871; 
return 
(obj_t)(BgL_auxz00_7123);} } } 
}



/* object->struct-cmake-box3647 */
obj_t BGl_objectzd2ze3structzd2cmakezd2box3647z31zzcgen_copz00(obj_t BgL_envz00_4122, obj_t BgL_obj3342z00_4123)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 99 */
{ 
BgL_cmakezd2boxzd2_bglt BgL_obj3342z00_1861;
BgL_obj3342z00_1861 = 
(BgL_cmakezd2boxzd2_bglt)(BgL_obj3342z00_4123); 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_res3343z00_1864;
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_keyz00_3105;int BgL_lenz00_3106;
BgL_keyz00_3105 = 
CNST_TABLE_REF(((long)21)); 
BgL_lenz00_3106 = 
(int)(((long)3)); 
BgL_res3343z00_1864 = 
make_struct(BgL_keyz00_3105, BgL_lenz00_3106, BUNSPEC); } 
{ /* ./Cgen/cop.scm 99 */
int BgL_kz00_3109;
BgL_kz00_3109 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3343z00_1864, BgL_kz00_3109, BFALSE); } 
{ /* ./Cgen/cop.scm 99 */
obj_t BgL_arg4801z00_1866;
{ /* ./Cgen/cop.scm 99 */
BgL_copz00_bglt BgL_obj2662z00_3111;
BgL_obj2662z00_3111 = 
(BgL_copz00_bglt)(BgL_obj3342z00_1861); 
BgL_arg4801z00_1866 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3111))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 99 */
int BgL_kz00_3113;
BgL_kz00_3113 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3343z00_1864, BgL_kz00_3113, BgL_arg4801z00_1866); } } 
{ /* ./Cgen/cop.scm 99 */
BgL_copz00_bglt BgL_arg4806z00_1868;
BgL_arg4806z00_1868 = 
(((BgL_cmakezd2boxzd2_bglt)CREF(BgL_obj3342z00_1861))->BgL_valuez00); 
{ /* ./Cgen/cop.scm 99 */
int BgL_kz00_3117;obj_t BgL_oz00_3118;
BgL_kz00_3117 = 
(int)(((long)2)); 
BgL_oz00_3118 = 
(obj_t)(BgL_arg4806z00_1868); 
STRUCT_SET(BgL_res3343z00_1864, BgL_kz00_3117, BgL_oz00_3118); } } 
return BgL_res3343z00_1864;} } } 
}



/* struct+object->object-cbox-ref3645 */
obj_t BGl_structzb2objectzd2ze3objectzd2cboxzd2ref3645z83zzcgen_copz00(obj_t BgL_envz00_4124, obj_t BgL_oz00_4125, obj_t BgL_sz00_4126)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 102 */
{ 
BgL_cboxzd2refzd2_bglt BgL_oz00_1852;obj_t BgL_sz00_1853;
{ /* ./Cgen/cop.scm 102 */
BgL_cboxzd2refzd2_bglt BgL_auxz00_7156;
BgL_oz00_1852 = 
(BgL_cboxzd2refzd2_bglt)(BgL_oz00_4125); 
BgL_sz00_1853 = BgL_sz00_4126; 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_arg4787z00_1856;
{ /* ./Cgen/cop.scm 102 */
int BgL_auxz00_7157;
BgL_auxz00_7157 = 
(int)(((long)0)); 
BgL_arg4787z00_1856 = 
STRUCT_REF(BgL_sz00_1853, BgL_auxz00_7157); } 
{ /* ./Cgen/cop.scm 102 */
BgL_objectz00_bglt BgL_auxz00_7160;
BgL_auxz00_7160 = 
(BgL_objectz00_bglt)(BgL_oz00_1852); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7160, BgL_arg4787z00_1856); } } 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_v3372z00_1857;
{ /* ./Cgen/cop.scm 102 */
int BgL_auxz00_7163;
BgL_auxz00_7163 = 
(int)(((long)1)); 
BgL_v3372z00_1857 = 
STRUCT_REF(BgL_sz00_1853, BgL_auxz00_7163); } 
((((BgL_cboxzd2refzd2_bglt)CREF(BgL_oz00_1852))->BgL_locz00) = ((obj_t)BgL_v3372z00_1857), BUNSPEC); } 
{ /* ./Cgen/cop.scm 102 */
BgL_copz00_bglt BgL_v3376z00_1858;
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_auxz00_7167;
{ /* ./Cgen/cop.scm 102 */
int BgL_auxz00_7168;
BgL_auxz00_7168 = 
(int)(((long)2)); 
BgL_auxz00_7167 = 
STRUCT_REF(BgL_sz00_1853, BgL_auxz00_7168); } 
BgL_v3376z00_1858 = 
(BgL_copz00_bglt)(BgL_auxz00_7167); } 
((((BgL_cboxzd2refzd2_bglt)CREF(BgL_oz00_1852))->BgL_varz00) = ((BgL_copz00_bglt)BgL_v3376z00_1858), BUNSPEC); } 
BgL_auxz00_7156 = BgL_oz00_1852; 
return 
(obj_t)(BgL_auxz00_7156);} } } 
}



/* object->struct-cbox-ref3643 */
obj_t BGl_objectzd2ze3structzd2cboxzd2ref3643z31zzcgen_copz00(obj_t BgL_envz00_4127, obj_t BgL_obj3368z00_4128)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 102 */
{ 
BgL_cboxzd2refzd2_bglt BgL_obj3368z00_1842;
BgL_obj3368z00_1842 = 
(BgL_cboxzd2refzd2_bglt)(BgL_obj3368z00_4128); 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_res3369z00_1845;
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_keyz00_3085;int BgL_lenz00_3086;
BgL_keyz00_3085 = 
CNST_TABLE_REF(((long)22)); 
BgL_lenz00_3086 = 
(int)(((long)3)); 
BgL_res3369z00_1845 = 
make_struct(BgL_keyz00_3085, BgL_lenz00_3086, BUNSPEC); } 
{ /* ./Cgen/cop.scm 102 */
int BgL_kz00_3089;
BgL_kz00_3089 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3369z00_1845, BgL_kz00_3089, BFALSE); } 
{ /* ./Cgen/cop.scm 102 */
obj_t BgL_arg4771z00_1847;
{ /* ./Cgen/cop.scm 102 */
BgL_copz00_bglt BgL_obj2662z00_3091;
BgL_obj2662z00_3091 = 
(BgL_copz00_bglt)(BgL_obj3368z00_1842); 
BgL_arg4771z00_1847 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3091))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 102 */
int BgL_kz00_3093;
BgL_kz00_3093 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3369z00_1845, BgL_kz00_3093, BgL_arg4771z00_1847); } } 
{ /* ./Cgen/cop.scm 102 */
BgL_copz00_bglt BgL_arg4776z00_1849;
BgL_arg4776z00_1849 = 
(((BgL_cboxzd2refzd2_bglt)CREF(BgL_obj3368z00_1842))->BgL_varz00); 
{ /* ./Cgen/cop.scm 102 */
int BgL_kz00_3097;obj_t BgL_oz00_3098;
BgL_kz00_3097 = 
(int)(((long)2)); 
BgL_oz00_3098 = 
(obj_t)(BgL_arg4776z00_1849); 
STRUCT_SET(BgL_res3369z00_1845, BgL_kz00_3097, BgL_oz00_3098); } } 
return BgL_res3369z00_1845;} } } 
}



/* struct+object->object-cbox-set!3641 */
obj_t BGl_structzb2objectzd2ze3objectzd2cboxzd2setz123641z91zzcgen_copz00(obj_t BgL_envz00_4129, obj_t BgL_oz00_4130, obj_t BgL_sz00_4131)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 105 */
{ 
BgL_cboxzd2setz12zc0_bglt BgL_oz00_1832;obj_t BgL_sz00_1833;
{ /* ./Cgen/cop.scm 105 */
BgL_cboxzd2setz12zc0_bglt BgL_auxz00_7189;
BgL_oz00_1832 = 
(BgL_cboxzd2setz12zc0_bglt)(BgL_oz00_4130); 
BgL_sz00_1833 = BgL_sz00_4131; 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_arg4756z00_1836;
{ /* ./Cgen/cop.scm 105 */
int BgL_auxz00_7190;
BgL_auxz00_7190 = 
(int)(((long)0)); 
BgL_arg4756z00_1836 = 
STRUCT_REF(BgL_sz00_1833, BgL_auxz00_7190); } 
{ /* ./Cgen/cop.scm 105 */
BgL_objectz00_bglt BgL_auxz00_7193;
BgL_auxz00_7193 = 
(BgL_objectz00_bglt)(BgL_oz00_1832); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7193, BgL_arg4756z00_1836); } } 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_v3402z00_1837;
{ /* ./Cgen/cop.scm 105 */
int BgL_auxz00_7196;
BgL_auxz00_7196 = 
(int)(((long)1)); 
BgL_v3402z00_1837 = 
STRUCT_REF(BgL_sz00_1833, BgL_auxz00_7196); } 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_oz00_1832))->BgL_locz00) = ((obj_t)BgL_v3402z00_1837), BUNSPEC); } 
{ /* ./Cgen/cop.scm 105 */
BgL_copz00_bglt BgL_v3406z00_1838;
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_auxz00_7200;
{ /* ./Cgen/cop.scm 105 */
int BgL_auxz00_7201;
BgL_auxz00_7201 = 
(int)(((long)2)); 
BgL_auxz00_7200 = 
STRUCT_REF(BgL_sz00_1833, BgL_auxz00_7201); } 
BgL_v3406z00_1838 = 
(BgL_copz00_bglt)(BgL_auxz00_7200); } 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_oz00_1832))->BgL_varz00) = ((BgL_copz00_bglt)BgL_v3406z00_1838), BUNSPEC); } 
{ /* ./Cgen/cop.scm 105 */
BgL_copz00_bglt BgL_v3410z00_1839;
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_auxz00_7206;
{ /* ./Cgen/cop.scm 105 */
int BgL_auxz00_7207;
BgL_auxz00_7207 = 
(int)(((long)3)); 
BgL_auxz00_7206 = 
STRUCT_REF(BgL_sz00_1833, BgL_auxz00_7207); } 
BgL_v3410z00_1839 = 
(BgL_copz00_bglt)(BgL_auxz00_7206); } 
((((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_oz00_1832))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_v3410z00_1839), BUNSPEC); } 
BgL_auxz00_7189 = BgL_oz00_1832; 
return 
(obj_t)(BgL_auxz00_7189);} } } 
}



/* object->struct-cbox-set!3639 */
obj_t BGl_objectzd2ze3structzd2cboxzd2setz123639z23zzcgen_copz00(obj_t BgL_envz00_4132, obj_t BgL_obj3398z00_4133)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 105 */
{ 
BgL_cboxzd2setz12zc0_bglt BgL_obj3398z00_1820;
BgL_obj3398z00_1820 = 
(BgL_cboxzd2setz12zc0_bglt)(BgL_obj3398z00_4133); 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_res3399z00_1823;
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_keyz00_3059;int BgL_lenz00_3060;
BgL_keyz00_3059 = 
CNST_TABLE_REF(((long)23)); 
BgL_lenz00_3060 = 
(int)(((long)4)); 
BgL_res3399z00_1823 = 
make_struct(BgL_keyz00_3059, BgL_lenz00_3060, BUNSPEC); } 
{ /* ./Cgen/cop.scm 105 */
int BgL_kz00_3063;
BgL_kz00_3063 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3399z00_1823, BgL_kz00_3063, BFALSE); } 
{ /* ./Cgen/cop.scm 105 */
obj_t BgL_arg4735z00_1825;
{ /* ./Cgen/cop.scm 105 */
BgL_copz00_bglt BgL_obj2662z00_3065;
BgL_obj2662z00_3065 = 
(BgL_copz00_bglt)(BgL_obj3398z00_1820); 
BgL_arg4735z00_1825 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3065))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 105 */
int BgL_kz00_3067;
BgL_kz00_3067 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3399z00_1823, BgL_kz00_3067, BgL_arg4735z00_1825); } } 
{ /* ./Cgen/cop.scm 105 */
BgL_copz00_bglt BgL_arg4740z00_1827;
BgL_arg4740z00_1827 = 
(((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_obj3398z00_1820))->BgL_varz00); 
{ /* ./Cgen/cop.scm 105 */
int BgL_kz00_3071;obj_t BgL_oz00_3072;
BgL_kz00_3071 = 
(int)(((long)2)); 
BgL_oz00_3072 = 
(obj_t)(BgL_arg4740z00_1827); 
STRUCT_SET(BgL_res3399z00_1823, BgL_kz00_3071, BgL_oz00_3072); } } 
{ /* ./Cgen/cop.scm 105 */
BgL_copz00_bglt BgL_arg4745z00_1829;
BgL_arg4745z00_1829 = 
(((BgL_cboxzd2setz12zc0_bglt)CREF(BgL_obj3398z00_1820))->BgL_valuez00); 
{ /* ./Cgen/cop.scm 105 */
int BgL_kz00_3075;obj_t BgL_oz00_3076;
BgL_kz00_3075 = 
(int)(((long)3)); 
BgL_oz00_3076 = 
(obj_t)(BgL_arg4745z00_1829); 
STRUCT_SET(BgL_res3399z00_1823, BgL_kz00_3075, BgL_oz00_3076); } } 
return BgL_res3399z00_1823;} } } 
}



/* struct+object->object-cset-ex-it3637 */
obj_t BGl_structzb2objectzd2ze3objectzd2csetzd2exzd2it3637z51zzcgen_copz00(obj_t BgL_envz00_4134, obj_t BgL_oz00_4135, obj_t BgL_sz00_4136)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 109 */
{ 
BgL_csetzd2exzd2itz00_bglt BgL_oz00_1809;obj_t BgL_sz00_1810;
{ /* ./Cgen/cop.scm 109 */
BgL_csetzd2exzd2itz00_bglt BgL_auxz00_7232;
BgL_oz00_1809 = 
(BgL_csetzd2exzd2itz00_bglt)(BgL_oz00_4135); 
BgL_sz00_1810 = BgL_sz00_4136; 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_arg4719z00_1813;
{ /* ./Cgen/cop.scm 109 */
int BgL_auxz00_7233;
BgL_auxz00_7233 = 
(int)(((long)0)); 
BgL_arg4719z00_1813 = 
STRUCT_REF(BgL_sz00_1810, BgL_auxz00_7233); } 
{ /* ./Cgen/cop.scm 109 */
BgL_objectz00_bglt BgL_auxz00_7236;
BgL_auxz00_7236 = 
(BgL_objectz00_bglt)(BgL_oz00_1809); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7236, BgL_arg4719z00_1813); } } 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_v3440z00_1814;
{ /* ./Cgen/cop.scm 109 */
int BgL_auxz00_7239;
BgL_auxz00_7239 = 
(int)(((long)1)); 
BgL_v3440z00_1814 = 
STRUCT_REF(BgL_sz00_1810, BgL_auxz00_7239); } 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_oz00_1809))->BgL_locz00) = ((obj_t)BgL_v3440z00_1814), BUNSPEC); } 
{ /* ./Cgen/cop.scm 109 */
BgL_copz00_bglt BgL_v3444z00_1815;
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_auxz00_7243;
{ /* ./Cgen/cop.scm 109 */
int BgL_auxz00_7244;
BgL_auxz00_7244 = 
(int)(((long)2)); 
BgL_auxz00_7243 = 
STRUCT_REF(BgL_sz00_1810, BgL_auxz00_7244); } 
BgL_v3444z00_1815 = 
(BgL_copz00_bglt)(BgL_auxz00_7243); } 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_oz00_1809))->BgL_exitz00) = ((BgL_copz00_bglt)BgL_v3444z00_1815), BUNSPEC); } 
{ /* ./Cgen/cop.scm 109 */
BgL_copz00_bglt BgL_v3448z00_1816;
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_auxz00_7249;
{ /* ./Cgen/cop.scm 109 */
int BgL_auxz00_7250;
BgL_auxz00_7250 = 
(int)(((long)3)); 
BgL_auxz00_7249 = 
STRUCT_REF(BgL_sz00_1810, BgL_auxz00_7250); } 
BgL_v3448z00_1816 = 
(BgL_copz00_bglt)(BgL_auxz00_7249); } 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_oz00_1809))->BgL_jumpzd2valuezd2) = ((BgL_copz00_bglt)BgL_v3448z00_1816), BUNSPEC); } 
{ /* ./Cgen/cop.scm 109 */
BgL_copz00_bglt BgL_v3452z00_1817;
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_auxz00_7255;
{ /* ./Cgen/cop.scm 109 */
int BgL_auxz00_7256;
BgL_auxz00_7256 = 
(int)(((long)4)); 
BgL_auxz00_7255 = 
STRUCT_REF(BgL_sz00_1810, BgL_auxz00_7256); } 
BgL_v3452z00_1817 = 
(BgL_copz00_bglt)(BgL_auxz00_7255); } 
((((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_oz00_1809))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_v3452z00_1817), BUNSPEC); } 
BgL_auxz00_7232 = BgL_oz00_1809; 
return 
(obj_t)(BgL_auxz00_7232);} } } 
}



/* object->struct-cset-ex-it3635 */
obj_t BGl_objectzd2ze3structzd2csetzd2exzd2it3635ze3zzcgen_copz00(obj_t BgL_envz00_4137, obj_t BgL_obj3436z00_4138)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 109 */
{ 
BgL_csetzd2exzd2itz00_bglt BgL_obj3436z00_1795;
BgL_obj3436z00_1795 = 
(BgL_csetzd2exzd2itz00_bglt)(BgL_obj3436z00_4138); 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_res3437z00_1798;
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_keyz00_3027;int BgL_lenz00_3028;
BgL_keyz00_3027 = 
CNST_TABLE_REF(((long)24)); 
BgL_lenz00_3028 = 
(int)(((long)5)); 
BgL_res3437z00_1798 = 
make_struct(BgL_keyz00_3027, BgL_lenz00_3028, BUNSPEC); } 
{ /* ./Cgen/cop.scm 109 */
int BgL_kz00_3031;
BgL_kz00_3031 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3437z00_1798, BgL_kz00_3031, BFALSE); } 
{ /* ./Cgen/cop.scm 109 */
obj_t BgL_arg4693z00_1800;
{ /* ./Cgen/cop.scm 109 */
BgL_copz00_bglt BgL_obj2662z00_3033;
BgL_obj2662z00_3033 = 
(BgL_copz00_bglt)(BgL_obj3436z00_1795); 
BgL_arg4693z00_1800 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3033))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 109 */
int BgL_kz00_3035;
BgL_kz00_3035 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3437z00_1798, BgL_kz00_3035, BgL_arg4693z00_1800); } } 
{ /* ./Cgen/cop.scm 109 */
BgL_copz00_bglt BgL_arg4698z00_1802;
BgL_arg4698z00_1802 = 
(((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_obj3436z00_1795))->BgL_exitz00); 
{ /* ./Cgen/cop.scm 109 */
int BgL_kz00_3039;obj_t BgL_oz00_3040;
BgL_kz00_3039 = 
(int)(((long)2)); 
BgL_oz00_3040 = 
(obj_t)(BgL_arg4698z00_1802); 
STRUCT_SET(BgL_res3437z00_1798, BgL_kz00_3039, BgL_oz00_3040); } } 
{ /* ./Cgen/cop.scm 109 */
BgL_copz00_bglt BgL_arg4703z00_1804;
BgL_arg4703z00_1804 = 
(((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_obj3436z00_1795))->BgL_jumpzd2valuezd2); 
{ /* ./Cgen/cop.scm 109 */
int BgL_kz00_3043;obj_t BgL_oz00_3044;
BgL_kz00_3043 = 
(int)(((long)3)); 
BgL_oz00_3044 = 
(obj_t)(BgL_arg4703z00_1804); 
STRUCT_SET(BgL_res3437z00_1798, BgL_kz00_3043, BgL_oz00_3044); } } 
{ /* ./Cgen/cop.scm 109 */
BgL_copz00_bglt BgL_arg4708z00_1806;
BgL_arg4708z00_1806 = 
(((BgL_csetzd2exzd2itz00_bglt)CREF(BgL_obj3436z00_1795))->BgL_bodyz00); 
{ /* ./Cgen/cop.scm 109 */
int BgL_kz00_3047;obj_t BgL_oz00_3048;
BgL_kz00_3047 = 
(int)(((long)4)); 
BgL_oz00_3048 = 
(obj_t)(BgL_arg4708z00_1806); 
STRUCT_SET(BgL_res3437z00_1798, BgL_kz00_3047, BgL_oz00_3048); } } 
return BgL_res3437z00_1798;} } } 
}



/* struct+object->object-cjump-ex-it3633 */
obj_t BGl_structzb2objectzd2ze3objectzd2cjumpzd2exzd2it3633z51zzcgen_copz00(obj_t BgL_envz00_4139, obj_t BgL_oz00_4140, obj_t BgL_sz00_4141)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 114 */
{ 
BgL_cjumpzd2exzd2itz00_bglt BgL_oz00_1785;obj_t BgL_sz00_1786;
{ /* ./Cgen/cop.scm 114 */
BgL_cjumpzd2exzd2itz00_bglt BgL_auxz00_7285;
BgL_oz00_1785 = 
(BgL_cjumpzd2exzd2itz00_bglt)(BgL_oz00_4140); 
BgL_sz00_1786 = BgL_sz00_4141; 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_arg4678z00_1789;
{ /* ./Cgen/cop.scm 114 */
int BgL_auxz00_7286;
BgL_auxz00_7286 = 
(int)(((long)0)); 
BgL_arg4678z00_1789 = 
STRUCT_REF(BgL_sz00_1786, BgL_auxz00_7286); } 
{ /* ./Cgen/cop.scm 114 */
BgL_objectz00_bglt BgL_auxz00_7289;
BgL_auxz00_7289 = 
(BgL_objectz00_bglt)(BgL_oz00_1785); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7289, BgL_arg4678z00_1789); } } 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_v3478z00_1790;
{ /* ./Cgen/cop.scm 114 */
int BgL_auxz00_7292;
BgL_auxz00_7292 = 
(int)(((long)1)); 
BgL_v3478z00_1790 = 
STRUCT_REF(BgL_sz00_1786, BgL_auxz00_7292); } 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_oz00_1785))->BgL_locz00) = ((obj_t)BgL_v3478z00_1790), BUNSPEC); } 
{ /* ./Cgen/cop.scm 114 */
BgL_copz00_bglt BgL_v3482z00_1791;
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_auxz00_7296;
{ /* ./Cgen/cop.scm 114 */
int BgL_auxz00_7297;
BgL_auxz00_7297 = 
(int)(((long)2)); 
BgL_auxz00_7296 = 
STRUCT_REF(BgL_sz00_1786, BgL_auxz00_7297); } 
BgL_v3482z00_1791 = 
(BgL_copz00_bglt)(BgL_auxz00_7296); } 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_oz00_1785))->BgL_exitz00) = ((BgL_copz00_bglt)BgL_v3482z00_1791), BUNSPEC); } 
{ /* ./Cgen/cop.scm 114 */
BgL_copz00_bglt BgL_v3486z00_1792;
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_auxz00_7302;
{ /* ./Cgen/cop.scm 114 */
int BgL_auxz00_7303;
BgL_auxz00_7303 = 
(int)(((long)3)); 
BgL_auxz00_7302 = 
STRUCT_REF(BgL_sz00_1786, BgL_auxz00_7303); } 
BgL_v3486z00_1792 = 
(BgL_copz00_bglt)(BgL_auxz00_7302); } 
((((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_oz00_1785))->BgL_valuez00) = ((BgL_copz00_bglt)BgL_v3486z00_1792), BUNSPEC); } 
BgL_auxz00_7285 = BgL_oz00_1785; 
return 
(obj_t)(BgL_auxz00_7285);} } } 
}



/* object->struct-cjump-ex-it3631 */
obj_t BGl_objectzd2ze3structzd2cjumpzd2exzd2it3631ze3zzcgen_copz00(obj_t BgL_envz00_4142, obj_t BgL_obj3474z00_4143)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 114 */
{ 
BgL_cjumpzd2exzd2itz00_bglt BgL_obj3474z00_1773;
BgL_obj3474z00_1773 = 
(BgL_cjumpzd2exzd2itz00_bglt)(BgL_obj3474z00_4143); 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_res3475z00_1776;
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_keyz00_3001;int BgL_lenz00_3002;
BgL_keyz00_3001 = 
CNST_TABLE_REF(((long)25)); 
BgL_lenz00_3002 = 
(int)(((long)4)); 
BgL_res3475z00_1776 = 
make_struct(BgL_keyz00_3001, BgL_lenz00_3002, BUNSPEC); } 
{ /* ./Cgen/cop.scm 114 */
int BgL_kz00_3005;
BgL_kz00_3005 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3475z00_1776, BgL_kz00_3005, BFALSE); } 
{ /* ./Cgen/cop.scm 114 */
obj_t BgL_arg4657z00_1778;
{ /* ./Cgen/cop.scm 114 */
BgL_copz00_bglt BgL_obj2662z00_3007;
BgL_obj2662z00_3007 = 
(BgL_copz00_bglt)(BgL_obj3474z00_1773); 
BgL_arg4657z00_1778 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_3007))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 114 */
int BgL_kz00_3009;
BgL_kz00_3009 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3475z00_1776, BgL_kz00_3009, BgL_arg4657z00_1778); } } 
{ /* ./Cgen/cop.scm 114 */
BgL_copz00_bglt BgL_arg4662z00_1780;
BgL_arg4662z00_1780 = 
(((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_obj3474z00_1773))->BgL_exitz00); 
{ /* ./Cgen/cop.scm 114 */
int BgL_kz00_3013;obj_t BgL_oz00_3014;
BgL_kz00_3013 = 
(int)(((long)2)); 
BgL_oz00_3014 = 
(obj_t)(BgL_arg4662z00_1780); 
STRUCT_SET(BgL_res3475z00_1776, BgL_kz00_3013, BgL_oz00_3014); } } 
{ /* ./Cgen/cop.scm 114 */
BgL_copz00_bglt BgL_arg4667z00_1782;
BgL_arg4667z00_1782 = 
(((BgL_cjumpzd2exzd2itz00_bglt)CREF(BgL_obj3474z00_1773))->BgL_valuez00); 
{ /* ./Cgen/cop.scm 114 */
int BgL_kz00_3017;obj_t BgL_oz00_3018;
BgL_kz00_3017 = 
(int)(((long)3)); 
BgL_oz00_3018 = 
(obj_t)(BgL_arg4667z00_1782); 
STRUCT_SET(BgL_res3475z00_1776, BgL_kz00_3017, BgL_oz00_3018); } } 
return BgL_res3475z00_1776;} } } 
}



/* struct+object->object-sfun/C3629 */
obj_t BGl_structzb2objectzd2ze3objectzd2sfunzf2C3629za3zzcgen_copz00(obj_t BgL_envz00_4144, obj_t BgL_oz00_4145, obj_t BgL_sz00_4146)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ 
BgL_sfunzf2czf2_bglt BgL_oz00_1760;obj_t BgL_sz00_1761;
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_auxz00_7328;
BgL_oz00_1760 = 
(BgL_sfunzf2czf2_bglt)(BgL_oz00_4145); 
BgL_sz00_1761 = BgL_sz00_4146; 
{ 

{ /* ./Cgen/cop.scm 118 */
obj_t BgL_old3520z00_1764;obj_t BgL_aux3521z00_1765;
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_nextzd2method3628zd2_1771;
BgL_nextzd2method3628zd2_1771 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1760), BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_sfunzf2Czf2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 118 */
bool_t BgL_test4648z00_1772;
BgL_test4648z00_1772 = 
PROCEDUREP(BgL_nextzd2method3628zd2_1771); 
if(BgL_test4648z00_1772)
{ /* ./Cgen/cop.scm 118 */
BgL_old3520z00_1764 = 
PROCEDURE_ENTRY(BgL_nextzd2method3628zd2_1771)(BgL_nextzd2method3628zd2_1771, 
(obj_t)(BgL_oz00_1760), BgL_sz00_1761, BEOA); }  else 
{ /* ./Cgen/cop.scm 118 */
{ /* ./Cgen/cop.scm 118 */
BgL_objectz00_bglt BgL_auxz00_7336;
BgL_auxz00_7336 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_oz00_1760), BgL_sz00_1761); 
BgL_old3520z00_1764 = 
(obj_t)(BgL_auxz00_7336); } } } } 
{ /* ./Cgen/cop.scm 118 */
int BgL_auxz00_7340;
BgL_auxz00_7340 = 
(int)(((long)0)); 
BgL_aux3521z00_1765 = 
STRUCT_REF(BgL_sz00_1761, BgL_auxz00_7340); } 
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_new3522z00_1766;
BgL_new3522z00_1766 = 
((BgL_sfunzf2czf2_bglt)(BgL_old3520z00_1764)); 
{ /* ./Cgen/cop.scm 118 */
long BgL_arg4632z00_1767;
BgL_arg4632z00_1767 = 
BGl_classzd2numzd2zz__objectz00(BGl_sfunzf2Czf2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 118 */
BgL_objectz00_bglt BgL_objz00_2983;
BgL_objz00_2983 = 
(BgL_objectz00_bglt)(BgL_new3522z00_1766); 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2983, BgL_arg4632z00_1767); } } 
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_arg4637z00_1768;
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_arg4640z00_1769;obj_t BgL_arg4641z00_1770;
{ /* ./Cgen/cop.scm 118 */
int BgL_auxz00_7347;
BgL_auxz00_7347 = 
(int)(((long)0)); 
BgL_arg4640z00_1769 = 
STRUCT_REF(BgL_aux3521z00_1765, BgL_auxz00_7347); } 
{ /* ./Cgen/cop.scm 118 */
int BgL_auxz00_7350;
BgL_auxz00_7350 = 
(int)(((long)1)); 
BgL_arg4641z00_1770 = 
STRUCT_REF(BgL_aux3521z00_1765, BgL_auxz00_7350); } 
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_res5599z00_2998;
{ /* ./Cgen/cop.scm 118 */
BgL_clabelz00_bglt BgL_label3489z00_2989;bool_t BgL_integrated3490z00_2990;
BgL_label3489z00_2989 = 
(BgL_clabelz00_bglt)(BgL_arg4640z00_1769); 
BgL_integrated3490z00_2990 = 
CBOOL(BgL_arg4641z00_1770); 
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_new3491z00_2991;
BgL_new3491z00_2991 = 
((BgL_sfunzf2czf2_bglt)BREF( GC_MALLOC (sizeof(struct BgL_sfunzf2czf2_bgl)))); 
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_res5598z00_2997;
{ /* ./Cgen/cop.scm 118 */
BgL_sfunzf2czf2_bglt BgL_new3512z00_2992;
BgL_new3512z00_2992 = BgL_new3491z00_2991; 
{ /* ./Cgen/cop.scm 118 */
BgL_clabelz00_bglt BgL_label3510z00_2995;bool_t BgL_integrated3511z00_2996;
BgL_label3510z00_2995 = BgL_label3489z00_2989; 
BgL_integrated3511z00_2996 = BgL_integrated3490z00_2990; 
((((BgL_sfunzf2czf2_bglt)CREF(BgL_new3512z00_2992))->BgL_labelz00) = ((BgL_clabelz00_bglt)BgL_label3510z00_2995), BUNSPEC); 
((((BgL_sfunzf2czf2_bglt)CREF(BgL_new3512z00_2992))->BgL_integratedz00) = ((bool_t)BgL_integrated3511z00_2996), BUNSPEC); 
BgL_res5598z00_2997 = BgL_new3512z00_2992; } } BgL_res5598z00_2997; } 
BgL_res5599z00_2998 = BgL_new3491z00_2991; } } 
BgL_arg4637z00_1768 = BgL_res5599z00_2998; } } 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_auxz00_7360;BgL_objectz00_bglt BgL_auxz00_7358;
BgL_auxz00_7360 = 
(obj_t)(BgL_arg4637z00_1768); 
BgL_auxz00_7358 = 
(BgL_objectz00_bglt)(BgL_new3522z00_1766); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7358, BgL_auxz00_7360); } } 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_objz00_2999;
BgL_objz00_2999 = 
(obj_t)(BgL_new3522z00_1766); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2999); BUNSPEC; } 
BgL_auxz00_7328 = BgL_new3522z00_1766; } } } 
return 
(obj_t)(BgL_auxz00_7328);} } } 
}



/* object->struct-sfun/C3627 */
obj_t BGl_objectzd2ze3structzd2sfunzf2C3627z11zzcgen_copz00(obj_t BgL_envz00_4147, obj_t BgL_obj3517z00_4148)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 118 */
{ 
BgL_sfunzf2czf2_bglt BgL_obj3517z00_1748;
BgL_obj3517z00_1748 = 
(BgL_sfunzf2czf2_bglt)(BgL_obj3517z00_4148); 
{ 

{ /* ./Cgen/cop.scm 118 */
obj_t BgL_res3518z00_1751;
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_nextzd2method3626zd2_1758;
BgL_nextzd2method3626zd2_1758 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3517z00_1748), BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_sfunzf2Czf2zzcgen_copz00); 
{ /* ./Cgen/cop.scm 118 */
bool_t BgL_test4625z00_1759;
BgL_test4625z00_1759 = 
PROCEDUREP(BgL_nextzd2method3626zd2_1758); 
if(BgL_test4625z00_1759)
{ /* ./Cgen/cop.scm 118 */
BgL_res3518z00_1751 = 
PROCEDURE_ENTRY(BgL_nextzd2method3626zd2_1758)(BgL_nextzd2method3626zd2_1758, 
(obj_t)(BgL_obj3517z00_1748), BEOA); }  else 
{ /* ./Cgen/cop.scm 118 */
BgL_res3518z00_1751 = 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj3517z00_1748)); } } } 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_aux3519z00_1752;
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_keyz00_2960;int BgL_lenz00_2961;
BgL_keyz00_2960 = 
CNST_TABLE_REF(((long)26)); 
BgL_lenz00_2961 = 
(int)(((long)2)); 
BgL_aux3519z00_1752 = 
make_struct(BgL_keyz00_2960, BgL_lenz00_2961, BUNSPEC); } 
{ /* ./Cgen/cop.scm 118 */
BgL_clabelz00_bglt BgL_arg4609z00_1754;
{ 
obj_t BgL_auxz00_7379;
{ /* ./Cgen/cop.scm 118 */
BgL_objectz00_bglt BgL_auxz00_7380;
BgL_auxz00_7380 = 
(BgL_objectz00_bglt)(BgL_obj3517z00_1748); 
BgL_auxz00_7379 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7380); } 
BgL_arg4609z00_1754 = 
(((BgL_sfunzf2czf2_bglt)CREF(BgL_auxz00_7379))->BgL_labelz00); } 
{ /* ./Cgen/cop.scm 118 */
int BgL_kz00_2965;obj_t BgL_oz00_2966;
BgL_kz00_2965 = 
(int)(((long)0)); 
BgL_oz00_2966 = 
(obj_t)(BgL_arg4609z00_1754); 
STRUCT_SET(BgL_aux3519z00_1752, BgL_kz00_2965, BgL_oz00_2966); } } 
{ /* ./Cgen/cop.scm 118 */
bool_t BgL_arg4614z00_1756;
{ 
obj_t BgL_auxz00_7387;
{ /* ./Cgen/cop.scm 118 */
BgL_objectz00_bglt BgL_auxz00_7388;
BgL_auxz00_7388 = 
(BgL_objectz00_bglt)(BgL_obj3517z00_1748); 
BgL_auxz00_7387 = 
BGL_OBJECT_WIDENING(BgL_auxz00_7388); } 
BgL_arg4614z00_1756 = 
(((BgL_sfunzf2czf2_bglt)CREF(BgL_auxz00_7387))->BgL_integratedz00); } 
{ /* ./Cgen/cop.scm 118 */
int BgL_kz00_2969;obj_t BgL_oz00_2970;
BgL_kz00_2969 = 
(int)(((long)1)); 
BgL_oz00_2970 = 
BBOOL(BgL_arg4614z00_1756); 
STRUCT_SET(BgL_aux3519z00_1752, BgL_kz00_2969, BgL_oz00_2970); } } 
{ /* ./Cgen/cop.scm 118 */
int BgL_kz00_2972;
BgL_kz00_2972 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3518z00_1751, BgL_kz00_2972, BgL_aux3519z00_1752); } 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_arg4619z00_1757;
BgL_arg4619z00_1757 = 
STRUCT_KEY(BgL_res3518z00_1751); 
STRUCT_KEY_SET(BgL_aux3519z00_1752, BgL_arg4619z00_1757); } 
{ /* ./Cgen/cop.scm 118 */
obj_t BgL_kz00_2979;
BgL_kz00_2979 = 
CNST_TABLE_REF(((long)26)); 
STRUCT_KEY_SET(BgL_res3518z00_1751, BgL_kz00_2979); } 
return BgL_res3518z00_1751;} } } } } 
}



/* struct+object->object-bdb-block3625 */
obj_t BGl_structzb2objectzd2ze3objectzd2bdbzd2block3625z83zzcgen_copz00(obj_t BgL_envz00_4149, obj_t BgL_oz00_4150, obj_t BgL_sz00_4151)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 122 */
{ 
BgL_bdbzd2blockzd2_bglt BgL_oz00_1739;obj_t BgL_sz00_1740;
{ /* ./Cgen/cop.scm 122 */
BgL_bdbzd2blockzd2_bglt BgL_auxz00_7402;
BgL_oz00_1739 = 
(BgL_bdbzd2blockzd2_bglt)(BgL_oz00_4150); 
BgL_sz00_1740 = BgL_sz00_4151; 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_arg4596z00_1743;
{ /* ./Cgen/cop.scm 122 */
int BgL_auxz00_7403;
BgL_auxz00_7403 = 
(int)(((long)0)); 
BgL_arg4596z00_1743 = 
STRUCT_REF(BgL_sz00_1740, BgL_auxz00_7403); } 
{ /* ./Cgen/cop.scm 122 */
BgL_objectz00_bglt BgL_auxz00_7406;
BgL_auxz00_7406 = 
(BgL_objectz00_bglt)(BgL_oz00_1739); 
BGL_OBJECT_WIDENING_SET(BgL_auxz00_7406, BgL_arg4596z00_1743); } } 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_v3587z00_1744;
{ /* ./Cgen/cop.scm 122 */
int BgL_auxz00_7409;
BgL_auxz00_7409 = 
(int)(((long)1)); 
BgL_v3587z00_1744 = 
STRUCT_REF(BgL_sz00_1740, BgL_auxz00_7409); } 
((((BgL_bdbzd2blockzd2_bglt)CREF(BgL_oz00_1739))->BgL_locz00) = ((obj_t)BgL_v3587z00_1744), BUNSPEC); } 
{ /* ./Cgen/cop.scm 122 */
BgL_copz00_bglt BgL_v3591z00_1745;
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_auxz00_7413;
{ /* ./Cgen/cop.scm 122 */
int BgL_auxz00_7414;
BgL_auxz00_7414 = 
(int)(((long)2)); 
BgL_auxz00_7413 = 
STRUCT_REF(BgL_sz00_1740, BgL_auxz00_7414); } 
BgL_v3591z00_1745 = 
(BgL_copz00_bglt)(BgL_auxz00_7413); } 
((((BgL_bdbzd2blockzd2_bglt)CREF(BgL_oz00_1739))->BgL_bodyz00) = ((BgL_copz00_bglt)BgL_v3591z00_1745), BUNSPEC); } 
BgL_auxz00_7402 = BgL_oz00_1739; 
return 
(obj_t)(BgL_auxz00_7402);} } } 
}



/* object->struct-bdb-block3623 */
obj_t BGl_objectzd2ze3structzd2bdbzd2block3623z31zzcgen_copz00(obj_t BgL_envz00_4152, obj_t BgL_obj3583z00_4153)
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 122 */
{ 
BgL_bdbzd2blockzd2_bglt BgL_obj3583z00_1729;
BgL_obj3583z00_1729 = 
(BgL_bdbzd2blockzd2_bglt)(BgL_obj3583z00_4153); 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_res3584z00_1732;
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_keyz00_2940;int BgL_lenz00_2941;
BgL_keyz00_2940 = 
CNST_TABLE_REF(((long)27)); 
BgL_lenz00_2941 = 
(int)(((long)3)); 
BgL_res3584z00_1732 = 
make_struct(BgL_keyz00_2940, BgL_lenz00_2941, BUNSPEC); } 
{ /* ./Cgen/cop.scm 122 */
int BgL_kz00_2944;
BgL_kz00_2944 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res3584z00_1732, BgL_kz00_2944, BFALSE); } 
{ /* ./Cgen/cop.scm 122 */
obj_t BgL_arg4580z00_1734;
{ /* ./Cgen/cop.scm 122 */
BgL_copz00_bglt BgL_obj2662z00_2946;
BgL_obj2662z00_2946 = 
(BgL_copz00_bglt)(BgL_obj3583z00_1729); 
BgL_arg4580z00_1734 = 
(((BgL_copz00_bglt)CREF(BgL_obj2662z00_2946))->BgL_locz00); } 
{ /* ./Cgen/cop.scm 122 */
int BgL_kz00_2948;
BgL_kz00_2948 = 
(int)(((long)1)); 
STRUCT_SET(BgL_res3584z00_1732, BgL_kz00_2948, BgL_arg4580z00_1734); } } 
{ /* ./Cgen/cop.scm 122 */
BgL_copz00_bglt BgL_arg4585z00_1736;
BgL_arg4585z00_1736 = 
(((BgL_bdbzd2blockzd2_bglt)CREF(BgL_obj3583z00_1729))->BgL_bodyz00); 
{ /* ./Cgen/cop.scm 122 */
int BgL_kz00_2952;obj_t BgL_oz00_2953;
BgL_kz00_2952 = 
(int)(((long)2)); 
BgL_oz00_2953 = 
(obj_t)(BgL_arg4585z00_1736); 
STRUCT_SET(BgL_res3584z00_1732, BgL_kz00_2952, BgL_oz00_2953); } } 
return BgL_res3584z00_1732;} } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcgen_copz00()
{ AN_OBJECT;
{ /* ./Cgen/cop.scm 15 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cgen_cop"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cgen_cop"); 
return 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cgen_cop");} 
}

