/*===========================================================================*/
/*   (Cfa/ltype.scm)                                                         */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Cfa/ltype.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_approxz00_bgl {
   header_t header;
   obj_t widening;
   struct BgL_typez00_bgl * BgL_typez00;
   bool_t BgL_typezd2lockedzf3z21;
   obj_t BgL_allocsz00;
   bool_t BgL_topzf3zf3;
   long BgL_lostzd2stampzd2;
} *BgL_approxz00_bglt;

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

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

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

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

typedef struct BgL_prezd2clozd2envz00_bgl {
   char dummy;
} *BgL_prezd2clozd2envz00_bglt;

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

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

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

typedef struct BgL_reshapedzd2localzd2_bgl {
   obj_t BgL_bindingzd2valuezd2;
} *BgL_reshapedzd2localzd2_bglt;

typedef struct BgL_reshapedzd2globalzd2_bgl {
   char dummy;
} *BgL_reshapedzd2globalzd2_bglt;

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_prezd2makezd2boxz00_bgl {
   char dummy;
} *BgL_prezd2makezd2boxz00_bglt;

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

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

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

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

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

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

typedef struct BgL_prezd2arithmeticzd2appz00_bgl {
   obj_t BgL_speczd2typeszd2;
} *BgL_prezd2arithmeticzd2appz00_bglt;

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

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

typedef struct BgL_prezd2procedurezd2refzd2appzd2_bgl {
   char dummy;
} *BgL_prezd2procedurezd2refzd2appzd2_bglt;

typedef struct BgL_prezd2procedurezd2setz12zd2appzc0_bgl {
   char dummy;
} *BgL_prezd2procedurezd2setz12zd2appzc0_bglt;

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

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

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

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

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

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

typedef struct BgL_prezd2structzd2refzd2appzd2_bgl {
   char dummy;
} *BgL_prezd2structzd2refzd2appzd2_bglt;

typedef struct BgL_prezd2structzd2setz12zd2appzc0_bgl {
   char dummy;
} *BgL_prezd2structzd2setz12zd2appzc0_bglt;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

typedef struct BgL_tvecz00_bgl {
   struct BgL_typez00_bgl * BgL_itemzd2typezd2;
} *BgL_tvecz00_bglt;


extern obj_t BGl_vrefz00zzast_nodez00;
static obj_t BGl_methodzd2initzd2zzcfa_ltypez00();
static obj_t BGl_typezd2nodez12zd2kwote4660z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2fail4686z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2variablez12zd2sexitzf2Cinfo4652ze0zzcfa_ltypez00(obj_t, obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2vsetz124678z00zzcfa_ltypez00(obj_t, obj_t);
extern obj_t BGl_scnstzf2Cinfozf2zzcfa_infoz00;
BGL_IMPORT obj_t open_input_string(obj_t);
static obj_t BGl_typezd2variablez12zd2internzd2sfunzf2Cinfo4654z32zzcfa_ltypez00(obj_t, obj_t, obj_t);
extern obj_t BGl_letzd2funzd2zzast_nodez00;
extern bool_t BGl_approxzd2procedurezd2elzf3zf3zzcfa_closurez00(BgL_approxz00_bglt);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_typezd2variablez12zd2scnstzf2Cinfo4648ze0zzcfa_ltypez00(obj_t, obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2setzd2exzd2it4694z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2variablez12zd2svarzf2Cinfo4646ze0zzcfa_ltypez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2closure4664z12zzcfa_ltypez00(obj_t, obj_t);
extern obj_t BGl_letzd2varzd2zzast_nodez00;
extern obj_t BGl_kwotez00zzast_nodez00;
extern obj_t BGl_za2_za2z00zztype_cachez00;
extern obj_t BGl_globalz00zzast_varz00;
static obj_t BGl__typezd2nodez126070zc0zzcfa_ltypez00(obj_t, obj_t);
extern obj_t BGl_za2procedureza2z00zztype_cachez00;
static obj_t BGl_typezd2nodez12zd2jumpzd2exzd2it4696z12zzcfa_ltypez00(obj_t, obj_t);
extern obj_t BGl_castz00zzast_nodez00;
static obj_t BGl_typezd2nodez12zd2boxzd2ref4702zc0zzcfa_ltypez00(obj_t, obj_t);
extern obj_t BGl_boxzd2refzd2zzast_nodez00;
extern obj_t BGl_varz00zzast_nodez00;
static obj_t BGl_cnstzd2initzd2zzcfa_ltypez00();
extern obj_t BGl_atomz00zzast_nodez00;
extern obj_t BGl_failz00zzast_nodez00;
extern obj_t BGl_funcallz00zzast_nodez00;
static obj_t BGl_typezd2variablez12zc0zzcfa_ltypez00(BgL_valuez00_bglt, BgL_variablez00_bglt);
static obj_t BGl_typezd2nodez12zd2cast4680z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2variablez12zd2default4643z12zzcfa_ltypez00(BgL_valuez00_bglt, BgL_variablez00_bglt);
extern obj_t BGl_cvarzf2Cinfozf2zzcfa_infoz00;
static obj_t BGl_typezd2nodez12zd2default4655z12zzcfa_ltypez00(BgL_nodez00_bglt);
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_ltypez00();
extern obj_t BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00;
static bool_t BGl_typezd2nodeza2z12z62zzcfa_ltypez00(obj_t);
extern obj_t BGl_makezd2boxzd2zzast_nodez00;
static obj_t BGl_typezd2nodez12zd2extern4674z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl__typezd2variablez126068zc0zzcfa_ltypez00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_selectz00zzast_nodez00;
static obj_t BGl_toplevelzd2initzd2zzcfa_ltypez00();
extern obj_t BGl_appzd2lyzd2zzast_nodez00;
static obj_t BGl_typezd2nodez12zd2boxzd2setz124700zd2zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2var4662z12zzcfa_ltypez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_lightzd2typez12zc0zzcfa_ltypez00(obj_t);
extern obj_t BGl_boxzd2setz12zc0zzast_nodez00;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_ltypez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_infoz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_setz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_closurez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztvector_tvectorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcnst_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_typezd2variablez12zd2cvarzf2Cinfo4650ze0zzcfa_ltypez00(obj_t, obj_t, obj_t);
extern obj_t BGl_svarzf2Cinfozf2zzcfa_infoz00;
extern obj_t BGl_za2procedurezd2elza2zd2zztype_cachez00;
static obj_t BGl_typezd2nodez12zd2vref4676z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2sequence4666z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2setq4682z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2conditional4684z12zzcfa_ltypez00(obj_t, obj_t);
extern obj_t BGl_setzd2exzd2itz00zzast_nodez00;
static obj_t BGl_typezd2nodez12zd2appzd2ly4670zc0zzcfa_ltypez00(obj_t, obj_t);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
static obj_t BGl__typezd2nodez12zd2default4655z12zzcfa_ltypez00(obj_t, obj_t);
extern bool_t BGl_approxzd2procedurezd2el1zf3zf3zzcfa_closurez00(BgL_approxz00_bglt);
extern obj_t BGl_jumpzd2exzd2itz00zzast_nodez00;
extern obj_t BGl_externz00zzast_nodez00;
extern obj_t BGl_conditionalz00zzast_nodez00;
extern obj_t BGl_sequencez00zzast_nodez00;
static obj_t BGl__typezd2variablez12zd2default4643z12zzcfa_ltypez00(obj_t, obj_t, obj_t);
extern obj_t BGl_internalzd2errorzd2zztools_errorz00(obj_t, obj_t, obj_t);
extern obj_t BGl_appz00zzast_nodez00;
static obj_t BGl_typezd2nodez12zd2atom4658z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_getzd2approxzd2typez00zzcfa_ltypez00(BgL_approxz00_bglt);
extern obj_t BGl_closurez00zzast_nodez00;
static obj_t BGl__lightzd2typez12zc0zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2letzd2fun4690zc0zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2select4688z12zzcfa_ltypez00(obj_t, obj_t);
extern obj_t BGl_za2objza2z00zztype_cachez00;
extern obj_t BGl_za2procedurezd2el1za2zd2zztype_cachez00;
static obj_t BGl_typezd2nodez12zd2funcall4672z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzcfa_ltypez00 = BUNSPEC;
static obj_t BGl_typezd2nodez12zd2letzd2var4692zc0zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2nodez12zd2makezd2box4698zc0zzcfa_ltypez00(obj_t, obj_t);
extern obj_t BGl_sexitzf2Cinfozf2zzcfa_infoz00;
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_ltypez00();
extern obj_t BGl_vsetz12z12zzast_nodez00;
static obj_t BGl_typezd2nodez12zd2app4668z12zzcfa_ltypez00(obj_t, obj_t);
static obj_t BGl_typezd2nodez12zc0zzcfa_ltypez00(BgL_nodez00_bglt);
extern obj_t BGl_setqz00zzast_nodez00;
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t BGl_lightzd2typezd2funz12z12zzcfa_ltypez00(BgL_variablez00_bglt);
static obj_t __cnst[ 3 ] ;


DEFINE_STATIC_PROCEDURE( BGl_typezd2nodez12zd2default4655zd2envzc0zzcfa_ltypez00, BgL_bgl__typeza7d2nodeza712za7d2default4655za712za7za7cfa_ltypeza7006679za7, BGl__typezd2nodez12zd2default4655z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_typezd2variablez12zd2default4643zd2envzc0zzcfa_ltypez00, BgL_bgl__typeza7d2variableza712za7d2default4643za712za7za7cfa_ltypeza7006680za7, BGl__typezd2variablez12zd2default4643z12zzcfa_ltypez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_lightzd2typez12zd2envz12zzcfa_ltypez00, BgL_bgl__lightza7d2typeza712za7c0za7za7cfa_ltypeza7006681z00, BGl__lightzd2typez12zc0zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_GENERIC( BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_bgl__typeza7d2nodeza7126070za7c0za7za7cfa_ltypeza7006682z00, BGl__typezd2nodez126070zc0zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_GENERIC( BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BgL_bgl__typeza7d2variableza7126068za7c0za7za7cfa_ltypeza7006683z00, BGl__typezd2variablez126068zc0zzcfa_ltypez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6616z00zzcfa_ltypez00, BgL_bgl_typeza7d2variableza712za7d2svarza7f2cinfo4646za7e0za7za7cfa_ltypeza7006684z00, BGl_typezd2variablez12zd2svarzf2Cinfo4646ze0zzcfa_ltypez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6617z00zzcfa_ltypez00, BgL_bgl_typeza7d2variableza712za7d2scnstza7f2cinfo4648za7e0za7za7cfa_ltypeza7006685z00, BGl_typezd2variablez12zd2scnstzf2Cinfo4648ze0zzcfa_ltypez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6618z00zzcfa_ltypez00, BgL_bgl_typeza7d2variableza712za7d2cvarza7f2cinfo4650za7e0za7za7cfa_ltypeza7006686z00, BGl_typezd2variablez12zd2cvarzf2Cinfo4650ze0zzcfa_ltypez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6620z00zzcfa_ltypez00, BgL_bgl_typeza7d2variableza712za7d2internza7d2sfunza7f2cinfo4654za732za7za7cfa_ltypeza7006687za7, BGl_typezd2variablez12zd2internzd2sfunzf2Cinfo4654z32zzcfa_ltypez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6619z00zzcfa_ltypez00, BgL_bgl_typeza7d2variableza712za7d2sexitza7f2cinfo4652za7e0za7za7cfa_ltypeza7006688z00, BGl_typezd2variablez12zd2sexitzf2Cinfo4652ze0zzcfa_ltypez00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6621z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2atom4658za712za7za7cfa_ltypeza7006689za7, BGl_typezd2nodez12zd2atom4658z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6622z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2kwote4660za712za7za7cfa_ltypeza7006690za7, BGl_typezd2nodez12zd2kwote4660z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6623z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2var4662za712za7za7cfa_ltypeza7006691za7, BGl_typezd2nodez12zd2var4662z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6624z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2closure4664za712za7za7cfa_ltypeza7006692za7, BGl_typezd2nodez12zd2closure4664z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6625z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2sequence4666za712za7za7cfa_ltypeza7006693za7, BGl_typezd2nodez12zd2sequence4666z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6626z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2app4668za712za7za7cfa_ltypeza7006694za7, BGl_typezd2nodez12zd2app4668z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6627z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2appza7d2ly4670za7c0za7za7cfa_ltypeza7006695z00, BGl_typezd2nodez12zd2appzd2ly4670zc0zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6628z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2funcall4672za712za7za7cfa_ltypeza7006696za7, BGl_typezd2nodez12zd2funcall4672z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6630z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2vref4676za712za7za7cfa_ltypeza7006697za7, BGl_typezd2nodez12zd2vref4676z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6629z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2extern4674za712za7za7cfa_ltypeza7006698za7, BGl_typezd2nodez12zd2extern4674z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6631z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2vsetza7124678za700za7za7cfa_ltypeza7006699z00, BGl_typezd2nodez12zd2vsetz124678z00zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6632z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2cast4680za712za7za7cfa_ltypeza7006700za7, BGl_typezd2nodez12zd2cast4680z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6633z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2setq4682za712za7za7cfa_ltypeza7006701za7, BGl_typezd2nodez12zd2setq4682z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6634z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2conditional4684za712za7za7cfa_ltypeza7006702za7, BGl_typezd2nodez12zd2conditional4684z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6635z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2fail4686za712za7za7cfa_ltypeza7006703za7, BGl_typezd2nodez12zd2fail4686z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6636z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2select4688za712za7za7cfa_ltypeza7006704za7, BGl_typezd2nodez12zd2select4688z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6637z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2letza7d2fun4690za7c0za7za7cfa_ltypeza7006705z00, BGl_typezd2nodez12zd2letzd2fun4690zc0zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6638z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2letza7d2var4692za7c0za7za7cfa_ltypeza7006706z00, BGl_typezd2nodez12zd2letzd2var4692zc0zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6640z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2jumpza7d2exza7d2it4696za712za7za7cfa_ltypeza7006707za7, BGl_typezd2nodez12zd2jumpzd2exzd2it4696z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6639z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2setza7d2exza7d2it4694za712za7za7cfa_ltypeza7006708za7, BGl_typezd2nodez12zd2setzd2exzd2it4694z12zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6641z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2makeza7d2box4698za7c0za7za7cfa_ltypeza7006709z00, BGl_typezd2nodez12zd2makezd2box4698zc0zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6642z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2boxza7d2setza7124700za7d2za7za7cfa_ltypeza7006710za7, BGl_typezd2nodez12zd2boxzd2setz124700zd2zzcfa_ltypez00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc6643z00zzcfa_ltypez00, BgL_bgl_typeza7d2nodeza712za7d2boxza7d2ref4702za7c0za7za7cfa_ltypeza7006711z00, BGl_typezd2nodez12zd2boxzd2ref4702zc0zzcfa_ltypez00, 0L, 1 );
DEFINE_STRING( BGl_string6647z00zzcfa_ltypez00, BgL_bgl_string6647za700za7za7cfa_ltypeza7006712z00, "type-node!-default4655 nothing static ", 38 );
DEFINE_STRING( BGl_string6646z00zzcfa_ltypez00, BgL_bgl_string6646za700za7za7cfa_ltypeza7006713z00, "No method for this object", 25 );
DEFINE_STRING( BGl_string6645z00zzcfa_ltypez00, BgL_bgl_string6645za700za7za7cfa_ltypeza7006714z00, "Unexpected closure", 18 );
DEFINE_STRING( BGl_string6644z00zzcfa_ltypez00, BgL_bgl_string6644za700za7za7cfa_ltypeza7006715z00, "type-node!", 10 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_ltypez00(long BgL_checksumz00_3034, char * BgL_fromz00_3035)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_ltypez00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_ltypez00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_ltypez00(); 
BGl_cnstzd2initzd2zzcfa_ltypez00(); 
BGl_importedzd2moduleszd2initz00zzcfa_ltypez00(); 
BGl_methodzd2initzd2zzcfa_ltypez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



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



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzcfa_ltypez00()
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 15 */
{ /* ./Cfa/ltype.scm 15 */
obj_t BgL_cportz00_3014;
BgL_cportz00_3014 = 
open_input_string(BGl_string6647z00zzcfa_ltypez00); 
{ 
long BgL_iz00_3015;
BgL_iz00_3015 = ((long)2); 
BgL_loopz00_3016:
{ /* ./Cfa/ltype.scm 15 */
bool_t BgL_test6649z00_3017;
BgL_test6649z00_3017 = 
(BgL_iz00_3015==((long)-1)); 
if(BgL_test6649z00_3017)
{ /* ./Cfa/ltype.scm 15 */
return BUNSPEC;}  else 
{ /* ./Cfa/ltype.scm 15 */
{ /* ./Cfa/ltype.scm 15 */
obj_t BgL_arg6652z00_3018;
{ /* ./Cfa/ltype.scm 15 */
obj_t BgL_list6655z00_3019;
BgL_list6655z00_3019 = 
MAKE_PAIR(BgL_cportz00_3014, BNIL); 
BgL_arg6652z00_3018 = 
BGl_readz00zz__readerz00(BgL_list6655z00_3019); } 
{ /* ./Cfa/ltype.scm 15 */
int BgL_auxz00_3050;
BgL_auxz00_3050 = 
(int)(BgL_iz00_3015); 
CNST_TABLE_SET(BgL_auxz00_3050, BgL_arg6652z00_3018); } } 
{ /* ./Cfa/ltype.scm 15 */
int BgL_auxz00_3020;
{ /* ./Cfa/ltype.scm 15 */
long BgL_auxz00_3053;
BgL_auxz00_3053 = 
(BgL_iz00_3015-((long)1)); 
BgL_auxz00_3020 = 
(int)(BgL_auxz00_3053); } 
{ 
long BgL_iz00_3056;
BgL_iz00_3056 = 
(long)(BgL_auxz00_3020); 
BgL_iz00_3015 = BgL_iz00_3056; 
goto BgL_loopz00_3016;} } } } } } } 
}



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



/* light-type! */
BGL_EXPORTED_DEF obj_t BGl_lightzd2typez12zc0zzcfa_ltypez00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 37 */
{ 
obj_t BgL_l4585z00_1049;
{ /* ./Cfa/ltype.scm 38 */
bool_t BgL_auxz00_3058;
BgL_l4585z00_1049 = BgL_globalsz00_1; 
BgL_forzd2each4586zd2_1050:
{ /* ./Cfa/ltype.scm 38 */
bool_t BgL_test4704z00_1051;
BgL_test4704z00_1051 = 
PAIRP(BgL_l4585z00_1049); 
if(BgL_test4704z00_1051)
{ /* ./Cfa/ltype.scm 38 */
{ /* ./Cfa/ltype.scm 38 */
obj_t BgL_arg4706z00_1052;
BgL_arg4706z00_1052 = 
CAR(BgL_l4585z00_1049); 
BGl_lightzd2typezd2funz12z12zzcfa_ltypez00(
(BgL_variablez00_bglt)(BgL_arg4706z00_1052)); } 
{ /* ./Cfa/ltype.scm 38 */
obj_t BgL_arg4710z00_1053;
BgL_arg4710z00_1053 = 
CDR(BgL_l4585z00_1049); 
{ 
obj_t BgL_l4585z00_3065;
BgL_l4585z00_3065 = BgL_arg4710z00_1053; 
BgL_l4585z00_1049 = BgL_l4585z00_3065; 
goto BgL_forzd2each4586zd2_1050;} } }  else 
{ /* ./Cfa/ltype.scm 38 */
BgL_auxz00_3058 = ((bool_t)1); } } 
return 
BBOOL(BgL_auxz00_3058);} } } 
}



/* _light-type! */
obj_t BGl__lightzd2typez12zc0zzcfa_ltypez00(obj_t BgL_envz00_2913, obj_t BgL_globalsz00_2914)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 37 */
return 
BGl_lightzd2typez12zc0zzcfa_ltypez00(BgL_globalsz00_2914);} 
}



/* light-type-fun! */
obj_t BGl_lightzd2typezd2funz12z12zzcfa_ltypez00(BgL_variablez00_bglt BgL_varz00_2)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 43 */
{ /* ./Cfa/ltype.scm 44 */
BgL_valuez00_bglt BgL_funz00_1054;
BgL_funz00_1054 = 
(((BgL_variablez00_bglt)CREF(BgL_varz00_2))->BgL_valuez00); 
{ /* ./Cfa/ltype.scm 45 */
bool_t BgL_test4714z00_1055;
{ /* ./Cfa/ltype.scm 45 */
obj_t BgL_obj2821z00_1880;
BgL_obj2821z00_1880 = 
(obj_t)(BgL_funz00_1054); 
BgL_test4714z00_1055 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2821z00_1880, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00); } 
if(BgL_test4714z00_1055)
{ /* ./Cfa/ltype.scm 45 */
{ 
obj_t BgL_l4589z00_1057;
{ /* ./Cfa/ltype.scm 50 */
obj_t BgL_arg4716z00_1059;
{ /* ./Cfa/ltype.scm 50 */
BgL_sfunz00_bglt BgL_obj1367z00_1881;
BgL_obj1367z00_1881 = 
(BgL_sfunz00_bglt)(BgL_funz00_1054); 
BgL_arg4716z00_1059 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1367z00_1881))->BgL_argsz00); } 
BgL_l4589z00_1057 = BgL_arg4716z00_1059; 
BgL_forzd2each4590zd2_1058:
{ /* ./Cfa/ltype.scm 50 */
bool_t BgL_test4719z00_1060;
BgL_test4719z00_1060 = 
PAIRP(BgL_l4589z00_1057); 
if(BgL_test4719z00_1060)
{ /* ./Cfa/ltype.scm 50 */
{ /* ./Cfa/ltype.scm 51 */
obj_t BgL_varz00_1061;
BgL_varz00_1061 = 
CAR(BgL_l4589z00_1057); 
{ /* ./Cfa/ltype.scm 51 */
BgL_valuez00_bglt BgL_arg4721z00_1062;
{ /* ./Cfa/ltype.scm 51 */
BgL_variablez00_bglt BgL_obj1100z00_1884;
BgL_obj1100z00_1884 = 
(BgL_variablez00_bglt)(BgL_varz00_1061); 
BgL_arg4721z00_1062 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1884))->BgL_valuez00); } 
{ /* ./Cfa/ltype.scm 51 */
BgL_variablez00_bglt BgL_variablez00_1886;
BgL_variablez00_1886 = 
(BgL_variablez00_bglt)(BgL_varz00_1061); 
{ /* ./Cfa/ltype.scm 51 */
obj_t BgL_method4644z00_1887;
{ /* ./Cfa/ltype.scm 51 */
BgL_objectz00_bglt BgL_objz00_1888;
BgL_objz00_1888 = 
(BgL_objectz00_bglt)(BgL_arg4721z00_1062); 
{ /* ./Cfa/ltype.scm 51 */
long BgL_objzd2classzd2numz00_1889;
BgL_objzd2classzd2numz00_1889 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1888); 
{ /* ./Cfa/ltype.scm 51 */
obj_t BgL_arg2017z00_1890;
{ /* ./Cfa/ltype.scm 51 */
int BgL_auxz00_3082;
BgL_auxz00_3082 = 
(int)(((long)1)); 
BgL_arg2017z00_1890 = 
PROCEDURE_REF(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3082); } 
{ /* ./Cfa/ltype.scm 51 */
int BgL_offsetz00_1893;
BgL_offsetz00_1893 = 
(int)(BgL_objzd2classzd2numz00_1889); 
{ /* ./Cfa/ltype.scm 51 */
long BgL_offsetz00_1894;
{ /* ./Cfa/ltype.scm 51 */
long BgL_auxz00_3086;
BgL_auxz00_3086 = 
(long)(BgL_offsetz00_1893); 
BgL_offsetz00_1894 = 
(BgL_auxz00_3086-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 51 */
long BgL_modz00_1895;
{ /* ./Cfa/ltype.scm 51 */
int BgL_arg2028z00_1896;
BgL_arg2028z00_1896 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 51 */
long BgL_n2z00_1904;
BgL_n2z00_1904 = 
(long)(BgL_arg2028z00_1896); 
BgL_modz00_1895 = 
(BgL_offsetz00_1894/BgL_n2z00_1904); } } 
{ /* ./Cfa/ltype.scm 51 */
long BgL_restz00_1897;
{ /* ./Cfa/ltype.scm 51 */
int BgL_arg2024z00_1898;
BgL_arg2024z00_1898 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 51 */
long BgL_n2z00_1907;
BgL_n2z00_1907 = 
(long)(BgL_arg2024z00_1898); 
BgL_restz00_1897 = 
(BgL_offsetz00_1894%BgL_n2z00_1907); } } 
{ /* ./Cfa/ltype.scm 51 */

{ /* ./Cfa/ltype.scm 51 */
obj_t BgL_bucketz00_1899;
{ /* ./Cfa/ltype.scm 51 */
int BgL_kz00_1909;
BgL_kz00_1909 = 
(int)(BgL_modz00_1895); 
BgL_bucketz00_1899 = 
VECTOR_REF(BgL_arg2017z00_1890,BgL_kz00_1909); } 
{ /* ./Cfa/ltype.scm 51 */
int BgL_kz00_1911;
BgL_kz00_1911 = 
(int)(BgL_restz00_1897); 
BgL_method4644z00_1887 = 
VECTOR_REF(BgL_bucketz00_1899,BgL_kz00_1911); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4644z00_1887)(BgL_method4644z00_1887, 
(obj_t)(BgL_arg4721z00_1062), 
(obj_t)(BgL_variablez00_1886), BEOA); } } } } 
{ /* ./Cfa/ltype.scm 50 */
obj_t BgL_arg4726z00_1063;
BgL_arg4726z00_1063 = 
CDR(BgL_l4589z00_1057); 
{ 
obj_t BgL_l4589z00_3104;
BgL_l4589z00_3104 = BgL_arg4726z00_1063; 
BgL_l4589z00_1057 = BgL_l4589z00_3104; 
goto BgL_forzd2each4590zd2_1058;} } }  else 
{ /* ./Cfa/ltype.scm 50 */((bool_t)1); } } } } 
{ /* ./Cfa/ltype.scm 54 */
obj_t BgL_arg4731z00_1064;
{ /* ./Cfa/ltype.scm 54 */
BgL_sfunz00_bglt BgL_obj1370z00_1913;
BgL_obj1370z00_1913 = 
(BgL_sfunz00_bglt)(BgL_funz00_1054); 
BgL_arg4731z00_1064 = 
(((BgL_sfunz00_bglt)CREF(BgL_obj1370z00_1913))->BgL_bodyz00); } 
{ /* ./Cfa/ltype.scm 54 */
BgL_nodez00_bglt BgL_nodez00_1914;
BgL_nodez00_1914 = 
(BgL_nodez00_bglt)(BgL_arg4731z00_1064); 
{ /* ./Cfa/ltype.scm 54 */
obj_t BgL_method4656z00_1915;
{ /* ./Cfa/ltype.scm 54 */
BgL_objectz00_bglt BgL_objz00_1916;
BgL_objz00_1916 = 
(BgL_objectz00_bglt)(BgL_nodez00_1914); 
{ /* ./Cfa/ltype.scm 54 */
long BgL_objzd2classzd2numz00_1917;
BgL_objzd2classzd2numz00_1917 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1916); 
{ /* ./Cfa/ltype.scm 54 */
obj_t BgL_arg2017z00_1918;
{ /* ./Cfa/ltype.scm 54 */
int BgL_auxz00_3110;
BgL_auxz00_3110 = 
(int)(((long)1)); 
BgL_arg2017z00_1918 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3110); } 
{ /* ./Cfa/ltype.scm 54 */
int BgL_offsetz00_1921;
BgL_offsetz00_1921 = 
(int)(BgL_objzd2classzd2numz00_1917); 
{ /* ./Cfa/ltype.scm 54 */
long BgL_offsetz00_1922;
{ /* ./Cfa/ltype.scm 54 */
long BgL_auxz00_3114;
BgL_auxz00_3114 = 
(long)(BgL_offsetz00_1921); 
BgL_offsetz00_1922 = 
(BgL_auxz00_3114-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 54 */
long BgL_modz00_1923;
{ /* ./Cfa/ltype.scm 54 */
int BgL_arg2028z00_1924;
BgL_arg2028z00_1924 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 54 */
long BgL_n2z00_1932;
BgL_n2z00_1932 = 
(long)(BgL_arg2028z00_1924); 
BgL_modz00_1923 = 
(BgL_offsetz00_1922/BgL_n2z00_1932); } } 
{ /* ./Cfa/ltype.scm 54 */
long BgL_restz00_1925;
{ /* ./Cfa/ltype.scm 54 */
int BgL_arg2024z00_1926;
BgL_arg2024z00_1926 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 54 */
long BgL_n2z00_1935;
BgL_n2z00_1935 = 
(long)(BgL_arg2024z00_1926); 
BgL_restz00_1925 = 
(BgL_offsetz00_1922%BgL_n2z00_1935); } } 
{ /* ./Cfa/ltype.scm 54 */

{ /* ./Cfa/ltype.scm 54 */
obj_t BgL_bucketz00_1927;
{ /* ./Cfa/ltype.scm 54 */
int BgL_kz00_1937;
BgL_kz00_1937 = 
(int)(BgL_modz00_1923); 
BgL_bucketz00_1927 = 
VECTOR_REF(BgL_arg2017z00_1918,BgL_kz00_1937); } 
{ /* ./Cfa/ltype.scm 54 */
int BgL_kz00_1939;
BgL_kz00_1939 = 
(int)(BgL_restz00_1925); 
BgL_method4656z00_1915 = 
VECTOR_REF(BgL_bucketz00_1927,BgL_kz00_1939); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_1915)(BgL_method4656z00_1915, 
(obj_t)(BgL_nodez00_1914), BEOA); } } } 
{ /* ./Cfa/ltype.scm 56 */
obj_t BgL_arg4735z00_1065;
{ /* ./Cfa/ltype.scm 56 */
BgL_approxz00_bglt BgL_arg4738z00_1066;
{ /* ./Cfa/ltype.scm 56 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_obj2822z00_1940;
BgL_obj2822z00_1940 = 
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_funz00_1054); 
{ 
obj_t BgL_auxz00_3131;
{ /* ./Cfa/ltype.scm 56 */
BgL_objectz00_bglt BgL_auxz00_3132;
BgL_auxz00_3132 = 
(BgL_objectz00_bglt)(BgL_obj2822z00_1940); 
BgL_auxz00_3131 = 
BGL_OBJECT_WIDENING(BgL_auxz00_3132); } 
BgL_arg4738z00_1066 = 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_3131))->BgL_approxz00); } } 
BgL_arg4735z00_1065 = 
BGl_getzd2approxzd2typez00zzcfa_ltypez00(BgL_arg4738z00_1066); } 
{ /* ./Cfa/ltype.scm 56 */
BgL_typez00_bglt BgL_typez00_1942;
BgL_typez00_1942 = 
(BgL_typez00_bglt)(BgL_arg4735z00_1065); 
{ /* ./Cfa/ltype.scm 56 */
bool_t BgL_test4747z00_1943;
{ /* ./Cfa/ltype.scm 56 */
obj_t BgL_auxz00_3138;
BgL_auxz00_3138 = 
(obj_t)(BgL_typez00_1942); 
BgL_test4747z00_1943 = 
(BgL_auxz00_3138==BGl_za2_za2z00zztype_cachez00); } 
if(BgL_test4747z00_1943)
{ /* ./Cfa/ltype.scm 56 */
return BFALSE;}  else 
{ /* ./Cfa/ltype.scm 56 */
BgL_variablez00_bglt BgL_obj1099z00_1944;BgL_typez00_bglt BgL_val1098z00_1945;
BgL_obj1099z00_1944 = BgL_varz00_2; 
BgL_val1098z00_1945 = BgL_typez00_1942; 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1099z00_1944))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1098z00_1945), BUNSPEC);} } } } }  else 
{ /* ./Cfa/ltype.scm 45 */
return BFALSE;} } } } 
}



/* get-approx-type */
obj_t BGl_getzd2approxzd2typez00zzcfa_ltypez00(BgL_approxz00_bglt BgL_approxz00_3)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 61 */
{ /* ./Cfa/ltype.scm 62 */
bool_t BgL_test4743z00_1067;
BgL_test4743z00_1067 = 
BGl_approxzd2procedurezd2elzf3zf3zzcfa_closurez00(BgL_approxz00_3); 
if(BgL_test4743z00_1067)
{ /* ./Cfa/ltype.scm 63 */
bool_t BgL_test4744z00_1068;
BgL_test4744z00_1068 = 
BGl_approxzd2procedurezd2el1zf3zf3zzcfa_closurez00(BgL_approxz00_3); 
if(BgL_test4744z00_1068)
{ /* ./Cfa/ltype.scm 63 */
return BGl_za2procedurezd2el1za2zd2zztype_cachez00;}  else 
{ /* ./Cfa/ltype.scm 63 */
return BGl_za2procedurezd2elza2zd2zztype_cachez00;} }  else 
{ /* ./Cfa/ltype.scm 62 */
return BGl_za2_za2z00zztype_cachez00;} } } 
}



/* type-node*! */
bool_t BGl_typezd2nodeza2z12z62zzcfa_ltypez00(obj_t BgL_nodeza2za2_45)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 314 */
{ 
obj_t BgL_l4641z00_1070;
BgL_l4641z00_1070 = BgL_nodeza2za2_45; 
BgL_forzd2each4642zd2_1071:
{ /* ./Cfa/ltype.scm 315 */
bool_t BgL_test4751z00_1072;
BgL_test4751z00_1072 = 
PAIRP(BgL_l4641z00_1070); 
if(BgL_test4751z00_1072)
{ /* ./Cfa/ltype.scm 315 */
{ /* ./Cfa/ltype.scm 315 */
obj_t BgL_arg4753z00_1073;
BgL_arg4753z00_1073 = 
CAR(BgL_l4641z00_1070); 
{ /* ./Cfa/ltype.scm 315 */
BgL_nodez00_bglt BgL_nodez00_1951;
BgL_nodez00_1951 = 
(BgL_nodez00_bglt)(BgL_arg4753z00_1073); 
{ /* ./Cfa/ltype.scm 315 */
obj_t BgL_method4656z00_1952;
{ /* ./Cfa/ltype.scm 315 */
BgL_objectz00_bglt BgL_objz00_1953;
BgL_objz00_1953 = 
(BgL_objectz00_bglt)(BgL_nodez00_1951); 
{ /* ./Cfa/ltype.scm 315 */
long BgL_objzd2classzd2numz00_1954;
BgL_objzd2classzd2numz00_1954 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_1953); 
{ /* ./Cfa/ltype.scm 315 */
obj_t BgL_arg2017z00_1955;
{ /* ./Cfa/ltype.scm 315 */
int BgL_auxz00_3153;
BgL_auxz00_3153 = 
(int)(((long)1)); 
BgL_arg2017z00_1955 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3153); } 
{ /* ./Cfa/ltype.scm 315 */
int BgL_offsetz00_1958;
BgL_offsetz00_1958 = 
(int)(BgL_objzd2classzd2numz00_1954); 
{ /* ./Cfa/ltype.scm 315 */
long BgL_offsetz00_1959;
{ /* ./Cfa/ltype.scm 315 */
long BgL_auxz00_3157;
BgL_auxz00_3157 = 
(long)(BgL_offsetz00_1958); 
BgL_offsetz00_1959 = 
(BgL_auxz00_3157-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 315 */
long BgL_modz00_1960;
{ /* ./Cfa/ltype.scm 315 */
int BgL_arg2028z00_1961;
BgL_arg2028z00_1961 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 315 */
long BgL_n2z00_1969;
BgL_n2z00_1969 = 
(long)(BgL_arg2028z00_1961); 
BgL_modz00_1960 = 
(BgL_offsetz00_1959/BgL_n2z00_1969); } } 
{ /* ./Cfa/ltype.scm 315 */
long BgL_restz00_1962;
{ /* ./Cfa/ltype.scm 315 */
int BgL_arg2024z00_1963;
BgL_arg2024z00_1963 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 315 */
long BgL_n2z00_1972;
BgL_n2z00_1972 = 
(long)(BgL_arg2024z00_1963); 
BgL_restz00_1962 = 
(BgL_offsetz00_1959%BgL_n2z00_1972); } } 
{ /* ./Cfa/ltype.scm 315 */

{ /* ./Cfa/ltype.scm 315 */
obj_t BgL_bucketz00_1964;
{ /* ./Cfa/ltype.scm 315 */
int BgL_kz00_1974;
BgL_kz00_1974 = 
(int)(BgL_modz00_1960); 
BgL_bucketz00_1964 = 
VECTOR_REF(BgL_arg2017z00_1955,BgL_kz00_1974); } 
{ /* ./Cfa/ltype.scm 315 */
int BgL_kz00_1976;
BgL_kz00_1976 = 
(int)(BgL_restz00_1962); 
BgL_method4656z00_1952 = 
VECTOR_REF(BgL_bucketz00_1964,BgL_kz00_1976); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_1952)(BgL_method4656z00_1952, 
(obj_t)(BgL_nodez00_1951), BEOA); } } } 
{ /* ./Cfa/ltype.scm 315 */
obj_t BgL_arg4757z00_1074;
BgL_arg4757z00_1074 = 
CDR(BgL_l4641z00_1070); 
{ 
obj_t BgL_l4641z00_3174;
BgL_l4641z00_3174 = BgL_arg4757z00_1074; 
BgL_l4641z00_1070 = BgL_l4641z00_3174; 
goto BgL_forzd2each4642zd2_1071;} } }  else 
{ /* ./Cfa/ltype.scm 315 */
return ((bool_t)1);} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_ltypez00()
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 15 */
BGl_addzd2genericz12zc0zz__objectz00(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BGl_typezd2variablez12zd2default4643zd2envzc0zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BGl_svarzf2Cinfozf2zzcfa_infoz00, BGl_proc6616z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BGl_scnstzf2Cinfozf2zzcfa_infoz00, BGl_proc6617z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BGl_cvarzf2Cinfozf2zzcfa_infoz00, BGl_proc6618z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BGl_sexitzf2Cinfozf2zzcfa_infoz00, BGl_proc6619z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00, BGl_proc6620z00zzcfa_ltypez00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_typezd2nodez12zd2default4655zd2envzc0zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_atomz00zzast_nodez00, BGl_proc6621z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_kwotez00zzast_nodez00, BGl_proc6622z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_varz00zzast_nodez00, BGl_proc6623z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_closurez00zzast_nodez00, BGl_proc6624z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_sequencez00zzast_nodez00, BGl_proc6625z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_appz00zzast_nodez00, BGl_proc6626z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_appzd2lyzd2zzast_nodez00, BGl_proc6627z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_funcallz00zzast_nodez00, BGl_proc6628z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_externz00zzast_nodez00, BGl_proc6629z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_vrefz00zzast_nodez00, BGl_proc6630z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_vsetz12z12zzast_nodez00, BGl_proc6631z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_castz00zzast_nodez00, BGl_proc6632z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_setqz00zzast_nodez00, BGl_proc6633z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_conditionalz00zzast_nodez00, BGl_proc6634z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_failz00zzast_nodez00, BGl_proc6635z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_selectz00zzast_nodez00, BGl_proc6636z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_letzd2funzd2zzast_nodez00, BGl_proc6637z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_letzd2varzd2zzast_nodez00, BGl_proc6638z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_setzd2exzd2itz00zzast_nodez00, BGl_proc6639z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_jumpzd2exzd2itz00zzast_nodez00, BGl_proc6640z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_makezd2boxzd2zzast_nodez00, BGl_proc6641z00zzcfa_ltypez00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_boxzd2setz12zc0zzast_nodez00, BGl_proc6642z00zzcfa_ltypez00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_boxzd2refzd2zzast_nodez00, BGl_proc6643z00zzcfa_ltypez00);} 
}



/* type-node!-box-ref4702 */
obj_t BGl_typezd2nodez12zd2boxzd2ref4702zc0zzcfa_ltypez00(obj_t BgL_envz00_2948, obj_t BgL_nodez00_2949)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 307 */
{ 
BgL_boxzd2refzd2_bglt BgL_nodez00_1865;
BgL_nodez00_1865 = 
(BgL_boxzd2refzd2_bglt)(BgL_nodez00_2949); 
{ /* ./Cfa/ltype.scm 308 */
BgL_varz00_bglt BgL_arg5965z00_2824;
BgL_arg5965z00_2824 = 
(((BgL_boxzd2refzd2_bglt)CREF(BgL_nodez00_1865))->BgL_varz00); 
{ /* ./Cfa/ltype.scm 308 */
BgL_nodez00_bglt BgL_nodez00_2826;
BgL_nodez00_2826 = 
(BgL_nodez00_bglt)(BgL_arg5965z00_2824); 
{ /* ./Cfa/ltype.scm 308 */
obj_t BgL_method4656z00_2827;
{ /* ./Cfa/ltype.scm 308 */
BgL_objectz00_bglt BgL_objz00_2828;
BgL_objz00_2828 = 
(BgL_objectz00_bglt)(BgL_nodez00_2826); 
{ /* ./Cfa/ltype.scm 308 */
long BgL_objzd2classzd2numz00_2829;
BgL_objzd2classzd2numz00_2829 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2828); 
{ /* ./Cfa/ltype.scm 308 */
obj_t BgL_arg2017z00_2830;
{ /* ./Cfa/ltype.scm 308 */
int BgL_auxz00_3209;
BgL_auxz00_3209 = 
(int)(((long)1)); 
BgL_arg2017z00_2830 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3209); } 
{ /* ./Cfa/ltype.scm 308 */
int BgL_offsetz00_2833;
BgL_offsetz00_2833 = 
(int)(BgL_objzd2classzd2numz00_2829); 
{ /* ./Cfa/ltype.scm 308 */
long BgL_offsetz00_2834;
{ /* ./Cfa/ltype.scm 308 */
long BgL_auxz00_3213;
BgL_auxz00_3213 = 
(long)(BgL_offsetz00_2833); 
BgL_offsetz00_2834 = 
(BgL_auxz00_3213-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 308 */
long BgL_modz00_2835;
{ /* ./Cfa/ltype.scm 308 */
int BgL_arg2028z00_2836;
BgL_arg2028z00_2836 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 308 */
long BgL_n2z00_2844;
BgL_n2z00_2844 = 
(long)(BgL_arg2028z00_2836); 
BgL_modz00_2835 = 
(BgL_offsetz00_2834/BgL_n2z00_2844); } } 
{ /* ./Cfa/ltype.scm 308 */
long BgL_restz00_2837;
{ /* ./Cfa/ltype.scm 308 */
int BgL_arg2024z00_2838;
BgL_arg2024z00_2838 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 308 */
long BgL_n2z00_2847;
BgL_n2z00_2847 = 
(long)(BgL_arg2024z00_2838); 
BgL_restz00_2837 = 
(BgL_offsetz00_2834%BgL_n2z00_2847); } } 
{ /* ./Cfa/ltype.scm 308 */

{ /* ./Cfa/ltype.scm 308 */
obj_t BgL_bucketz00_2839;
{ /* ./Cfa/ltype.scm 308 */
int BgL_kz00_2849;
BgL_kz00_2849 = 
(int)(BgL_modz00_2835); 
BgL_bucketz00_2839 = 
VECTOR_REF(BgL_arg2017z00_2830,BgL_kz00_2849); } 
{ /* ./Cfa/ltype.scm 308 */
int BgL_kz00_2851;
BgL_kz00_2851 = 
(int)(BgL_restz00_2837); 
BgL_method4656z00_2827 = 
VECTOR_REF(BgL_bucketz00_2839,BgL_kz00_2851); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2827)(BgL_method4656z00_2827, 
(obj_t)(BgL_nodez00_2826), BEOA);} } } } } 
}



/* type-node!-box-set!4700 */
obj_t BGl_typezd2nodez12zd2boxzd2setz124700zd2zzcfa_ltypez00(obj_t BgL_envz00_2950, obj_t BgL_nodez00_2951)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 299 */
{ 
BgL_boxzd2setz12zc0_bglt BgL_nodez00_1857;
BgL_nodez00_1857 = 
(BgL_boxzd2setz12zc0_bglt)(BgL_nodez00_2951); 
{ /* ./Cfa/ltype.scm 301 */
BgL_varz00_bglt BgL_arg5951z00_1861;
BgL_arg5951z00_1861 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1857))->BgL_varz00); 
{ /* ./Cfa/ltype.scm 301 */
BgL_nodez00_bglt BgL_nodez00_2770;
BgL_nodez00_2770 = 
(BgL_nodez00_bglt)(BgL_arg5951z00_1861); 
{ /* ./Cfa/ltype.scm 301 */
obj_t BgL_method4656z00_2771;
{ /* ./Cfa/ltype.scm 301 */
BgL_objectz00_bglt BgL_objz00_2772;
BgL_objz00_2772 = 
(BgL_objectz00_bglt)(BgL_nodez00_2770); 
{ /* ./Cfa/ltype.scm 301 */
long BgL_objzd2classzd2numz00_2773;
BgL_objzd2classzd2numz00_2773 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2772); 
{ /* ./Cfa/ltype.scm 301 */
obj_t BgL_arg2017z00_2774;
{ /* ./Cfa/ltype.scm 301 */
int BgL_auxz00_3234;
BgL_auxz00_3234 = 
(int)(((long)1)); 
BgL_arg2017z00_2774 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3234); } 
{ /* ./Cfa/ltype.scm 301 */
int BgL_offsetz00_2777;
BgL_offsetz00_2777 = 
(int)(BgL_objzd2classzd2numz00_2773); 
{ /* ./Cfa/ltype.scm 301 */
long BgL_offsetz00_2778;
{ /* ./Cfa/ltype.scm 301 */
long BgL_auxz00_3238;
BgL_auxz00_3238 = 
(long)(BgL_offsetz00_2777); 
BgL_offsetz00_2778 = 
(BgL_auxz00_3238-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 301 */
long BgL_modz00_2779;
{ /* ./Cfa/ltype.scm 301 */
int BgL_arg2028z00_2780;
BgL_arg2028z00_2780 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 301 */
long BgL_n2z00_2788;
BgL_n2z00_2788 = 
(long)(BgL_arg2028z00_2780); 
BgL_modz00_2779 = 
(BgL_offsetz00_2778/BgL_n2z00_2788); } } 
{ /* ./Cfa/ltype.scm 301 */
long BgL_restz00_2781;
{ /* ./Cfa/ltype.scm 301 */
int BgL_arg2024z00_2782;
BgL_arg2024z00_2782 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 301 */
long BgL_n2z00_2791;
BgL_n2z00_2791 = 
(long)(BgL_arg2024z00_2782); 
BgL_restz00_2781 = 
(BgL_offsetz00_2778%BgL_n2z00_2791); } } 
{ /* ./Cfa/ltype.scm 301 */

{ /* ./Cfa/ltype.scm 301 */
obj_t BgL_bucketz00_2783;
{ /* ./Cfa/ltype.scm 301 */
int BgL_kz00_2793;
BgL_kz00_2793 = 
(int)(BgL_modz00_2779); 
BgL_bucketz00_2783 = 
VECTOR_REF(BgL_arg2017z00_2774,BgL_kz00_2793); } 
{ /* ./Cfa/ltype.scm 301 */
int BgL_kz00_2795;
BgL_kz00_2795 = 
(int)(BgL_restz00_2781); 
BgL_method4656z00_2771 = 
VECTOR_REF(BgL_bucketz00_2783,BgL_kz00_2795); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2771)(BgL_method4656z00_2771, 
(obj_t)(BgL_nodez00_2770), BEOA); } } } 
{ /* ./Cfa/ltype.scm 302 */
BgL_nodez00_bglt BgL_arg5955z00_1862;
BgL_arg5955z00_1862 = 
(((BgL_boxzd2setz12zc0_bglt)CREF(BgL_nodez00_1857))->BgL_valuez00); 
{ /* ./Cfa/ltype.scm 302 */
obj_t BgL_method4656z00_2798;
{ /* ./Cfa/ltype.scm 302 */
BgL_objectz00_bglt BgL_objz00_2799;
BgL_objz00_2799 = 
(BgL_objectz00_bglt)(BgL_arg5955z00_1862); 
{ /* ./Cfa/ltype.scm 302 */
long BgL_objzd2classzd2numz00_2800;
BgL_objzd2classzd2numz00_2800 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2799); 
{ /* ./Cfa/ltype.scm 302 */
obj_t BgL_arg2017z00_2801;
{ /* ./Cfa/ltype.scm 302 */
int BgL_auxz00_3257;
BgL_auxz00_3257 = 
(int)(((long)1)); 
BgL_arg2017z00_2801 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3257); } 
{ /* ./Cfa/ltype.scm 302 */
int BgL_offsetz00_2804;
BgL_offsetz00_2804 = 
(int)(BgL_objzd2classzd2numz00_2800); 
{ /* ./Cfa/ltype.scm 302 */
long BgL_offsetz00_2805;
{ /* ./Cfa/ltype.scm 302 */
long BgL_auxz00_3261;
BgL_auxz00_3261 = 
(long)(BgL_offsetz00_2804); 
BgL_offsetz00_2805 = 
(BgL_auxz00_3261-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 302 */
long BgL_modz00_2806;
{ /* ./Cfa/ltype.scm 302 */
int BgL_arg2028z00_2807;
BgL_arg2028z00_2807 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 302 */
long BgL_n2z00_2815;
BgL_n2z00_2815 = 
(long)(BgL_arg2028z00_2807); 
BgL_modz00_2806 = 
(BgL_offsetz00_2805/BgL_n2z00_2815); } } 
{ /* ./Cfa/ltype.scm 302 */
long BgL_restz00_2808;
{ /* ./Cfa/ltype.scm 302 */
int BgL_arg2024z00_2809;
BgL_arg2024z00_2809 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 302 */
long BgL_n2z00_2818;
BgL_n2z00_2818 = 
(long)(BgL_arg2024z00_2809); 
BgL_restz00_2808 = 
(BgL_offsetz00_2805%BgL_n2z00_2818); } } 
{ /* ./Cfa/ltype.scm 302 */

{ /* ./Cfa/ltype.scm 302 */
obj_t BgL_bucketz00_2810;
{ /* ./Cfa/ltype.scm 302 */
int BgL_kz00_2820;
BgL_kz00_2820 = 
(int)(BgL_modz00_2806); 
BgL_bucketz00_2810 = 
VECTOR_REF(BgL_arg2017z00_2801,BgL_kz00_2820); } 
{ /* ./Cfa/ltype.scm 302 */
int BgL_kz00_2822;
BgL_kz00_2822 = 
(int)(BgL_restz00_2808); 
BgL_method4656z00_2798 = 
VECTOR_REF(BgL_bucketz00_2810,BgL_kz00_2822); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2798)(BgL_method4656z00_2798, 
(obj_t)(BgL_arg5955z00_1862), BEOA);} } } } 
}



/* type-node!-make-box4698 */
obj_t BGl_typezd2nodez12zd2makezd2box4698zc0zzcfa_ltypez00(obj_t BgL_envz00_2952, obj_t BgL_nodez00_2953)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 292 */
{ 
BgL_makezd2boxzd2_bglt BgL_nodez00_1850;
BgL_nodez00_1850 = 
(BgL_makezd2boxzd2_bglt)(BgL_nodez00_2953); 
{ /* ./Cfa/ltype.scm 293 */
BgL_nodez00_bglt BgL_arg5941z00_2741;
BgL_arg5941z00_2741 = 
(((BgL_makezd2boxzd2_bglt)CREF(BgL_nodez00_1850))->BgL_valuez00); 
{ /* ./Cfa/ltype.scm 293 */
obj_t BgL_method4656z00_2744;
{ /* ./Cfa/ltype.scm 293 */
BgL_objectz00_bglt BgL_objz00_2745;
BgL_objz00_2745 = 
(BgL_objectz00_bglt)(BgL_arg5941z00_2741); 
{ /* ./Cfa/ltype.scm 293 */
long BgL_objzd2classzd2numz00_2746;
BgL_objzd2classzd2numz00_2746 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2745); 
{ /* ./Cfa/ltype.scm 293 */
obj_t BgL_arg2017z00_2747;
{ /* ./Cfa/ltype.scm 293 */
int BgL_auxz00_3281;
BgL_auxz00_3281 = 
(int)(((long)1)); 
BgL_arg2017z00_2747 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3281); } 
{ /* ./Cfa/ltype.scm 293 */
int BgL_offsetz00_2750;
BgL_offsetz00_2750 = 
(int)(BgL_objzd2classzd2numz00_2746); 
{ /* ./Cfa/ltype.scm 293 */
long BgL_offsetz00_2751;
{ /* ./Cfa/ltype.scm 293 */
long BgL_auxz00_3285;
BgL_auxz00_3285 = 
(long)(BgL_offsetz00_2750); 
BgL_offsetz00_2751 = 
(BgL_auxz00_3285-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 293 */
long BgL_modz00_2752;
{ /* ./Cfa/ltype.scm 293 */
int BgL_arg2028z00_2753;
BgL_arg2028z00_2753 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 293 */
long BgL_n2z00_2761;
BgL_n2z00_2761 = 
(long)(BgL_arg2028z00_2753); 
BgL_modz00_2752 = 
(BgL_offsetz00_2751/BgL_n2z00_2761); } } 
{ /* ./Cfa/ltype.scm 293 */
long BgL_restz00_2754;
{ /* ./Cfa/ltype.scm 293 */
int BgL_arg2024z00_2755;
BgL_arg2024z00_2755 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 293 */
long BgL_n2z00_2764;
BgL_n2z00_2764 = 
(long)(BgL_arg2024z00_2755); 
BgL_restz00_2754 = 
(BgL_offsetz00_2751%BgL_n2z00_2764); } } 
{ /* ./Cfa/ltype.scm 293 */

{ /* ./Cfa/ltype.scm 293 */
obj_t BgL_bucketz00_2756;
{ /* ./Cfa/ltype.scm 293 */
int BgL_kz00_2766;
BgL_kz00_2766 = 
(int)(BgL_modz00_2752); 
BgL_bucketz00_2756 = 
VECTOR_REF(BgL_arg2017z00_2747,BgL_kz00_2766); } 
{ /* ./Cfa/ltype.scm 293 */
int BgL_kz00_2768;
BgL_kz00_2768 = 
(int)(BgL_restz00_2754); 
BgL_method4656z00_2744 = 
VECTOR_REF(BgL_bucketz00_2756,BgL_kz00_2768); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2744)(BgL_method4656z00_2744, 
(obj_t)(BgL_arg5941z00_2741), BEOA);} } } } 
}



/* type-node!-jump-ex-it4696 */
obj_t BGl_typezd2nodez12zd2jumpzd2exzd2it4696z12zzcfa_ltypez00(obj_t BgL_envz00_2954, obj_t BgL_nodez00_2955)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 284 */
{ 
BgL_jumpzd2exzd2itz00_bglt BgL_nodez00_1842;
BgL_nodez00_1842 = 
(BgL_jumpzd2exzd2itz00_bglt)(BgL_nodez00_2955); 
{ /* ./Cfa/ltype.scm 286 */
BgL_nodez00_bglt BgL_arg5927z00_1846;
BgL_arg5927z00_1846 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1842))->BgL_exitz00); 
{ /* ./Cfa/ltype.scm 286 */
obj_t BgL_method4656z00_2688;
{ /* ./Cfa/ltype.scm 286 */
BgL_objectz00_bglt BgL_objz00_2689;
BgL_objz00_2689 = 
(BgL_objectz00_bglt)(BgL_arg5927z00_1846); 
{ /* ./Cfa/ltype.scm 286 */
long BgL_objzd2classzd2numz00_2690;
BgL_objzd2classzd2numz00_2690 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2689); 
{ /* ./Cfa/ltype.scm 286 */
obj_t BgL_arg2017z00_2691;
{ /* ./Cfa/ltype.scm 286 */
int BgL_auxz00_3305;
BgL_auxz00_3305 = 
(int)(((long)1)); 
BgL_arg2017z00_2691 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3305); } 
{ /* ./Cfa/ltype.scm 286 */
int BgL_offsetz00_2694;
BgL_offsetz00_2694 = 
(int)(BgL_objzd2classzd2numz00_2690); 
{ /* ./Cfa/ltype.scm 286 */
long BgL_offsetz00_2695;
{ /* ./Cfa/ltype.scm 286 */
long BgL_auxz00_3309;
BgL_auxz00_3309 = 
(long)(BgL_offsetz00_2694); 
BgL_offsetz00_2695 = 
(BgL_auxz00_3309-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 286 */
long BgL_modz00_2696;
{ /* ./Cfa/ltype.scm 286 */
int BgL_arg2028z00_2697;
BgL_arg2028z00_2697 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 286 */
long BgL_n2z00_2705;
BgL_n2z00_2705 = 
(long)(BgL_arg2028z00_2697); 
BgL_modz00_2696 = 
(BgL_offsetz00_2695/BgL_n2z00_2705); } } 
{ /* ./Cfa/ltype.scm 286 */
long BgL_restz00_2698;
{ /* ./Cfa/ltype.scm 286 */
int BgL_arg2024z00_2699;
BgL_arg2024z00_2699 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 286 */
long BgL_n2z00_2708;
BgL_n2z00_2708 = 
(long)(BgL_arg2024z00_2699); 
BgL_restz00_2698 = 
(BgL_offsetz00_2695%BgL_n2z00_2708); } } 
{ /* ./Cfa/ltype.scm 286 */

{ /* ./Cfa/ltype.scm 286 */
obj_t BgL_bucketz00_2700;
{ /* ./Cfa/ltype.scm 286 */
int BgL_kz00_2710;
BgL_kz00_2710 = 
(int)(BgL_modz00_2696); 
BgL_bucketz00_2700 = 
VECTOR_REF(BgL_arg2017z00_2691,BgL_kz00_2710); } 
{ /* ./Cfa/ltype.scm 286 */
int BgL_kz00_2712;
BgL_kz00_2712 = 
(int)(BgL_restz00_2698); 
BgL_method4656z00_2688 = 
VECTOR_REF(BgL_bucketz00_2700,BgL_kz00_2712); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2688)(BgL_method4656z00_2688, 
(obj_t)(BgL_arg5927z00_1846), BEOA); } } 
{ /* ./Cfa/ltype.scm 287 */
BgL_nodez00_bglt BgL_arg5931z00_1847;
BgL_arg5931z00_1847 = 
(((BgL_jumpzd2exzd2itz00_bglt)CREF(BgL_nodez00_1842))->BgL_valuez00); 
{ /* ./Cfa/ltype.scm 287 */
obj_t BgL_method4656z00_2715;
{ /* ./Cfa/ltype.scm 287 */
BgL_objectz00_bglt BgL_objz00_2716;
BgL_objz00_2716 = 
(BgL_objectz00_bglt)(BgL_arg5931z00_1847); 
{ /* ./Cfa/ltype.scm 287 */
long BgL_objzd2classzd2numz00_2717;
BgL_objzd2classzd2numz00_2717 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2716); 
{ /* ./Cfa/ltype.scm 287 */
obj_t BgL_arg2017z00_2718;
{ /* ./Cfa/ltype.scm 287 */
int BgL_auxz00_3328;
BgL_auxz00_3328 = 
(int)(((long)1)); 
BgL_arg2017z00_2718 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3328); } 
{ /* ./Cfa/ltype.scm 287 */
int BgL_offsetz00_2721;
BgL_offsetz00_2721 = 
(int)(BgL_objzd2classzd2numz00_2717); 
{ /* ./Cfa/ltype.scm 287 */
long BgL_offsetz00_2722;
{ /* ./Cfa/ltype.scm 287 */
long BgL_auxz00_3332;
BgL_auxz00_3332 = 
(long)(BgL_offsetz00_2721); 
BgL_offsetz00_2722 = 
(BgL_auxz00_3332-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 287 */
long BgL_modz00_2723;
{ /* ./Cfa/ltype.scm 287 */
int BgL_arg2028z00_2724;
BgL_arg2028z00_2724 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 287 */
long BgL_n2z00_2732;
BgL_n2z00_2732 = 
(long)(BgL_arg2028z00_2724); 
BgL_modz00_2723 = 
(BgL_offsetz00_2722/BgL_n2z00_2732); } } 
{ /* ./Cfa/ltype.scm 287 */
long BgL_restz00_2725;
{ /* ./Cfa/ltype.scm 287 */
int BgL_arg2024z00_2726;
BgL_arg2024z00_2726 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 287 */
long BgL_n2z00_2735;
BgL_n2z00_2735 = 
(long)(BgL_arg2024z00_2726); 
BgL_restz00_2725 = 
(BgL_offsetz00_2722%BgL_n2z00_2735); } } 
{ /* ./Cfa/ltype.scm 287 */

{ /* ./Cfa/ltype.scm 287 */
obj_t BgL_bucketz00_2727;
{ /* ./Cfa/ltype.scm 287 */
int BgL_kz00_2737;
BgL_kz00_2737 = 
(int)(BgL_modz00_2723); 
BgL_bucketz00_2727 = 
VECTOR_REF(BgL_arg2017z00_2718,BgL_kz00_2737); } 
{ /* ./Cfa/ltype.scm 287 */
int BgL_kz00_2739;
BgL_kz00_2739 = 
(int)(BgL_restz00_2725); 
BgL_method4656z00_2715 = 
VECTOR_REF(BgL_bucketz00_2727,BgL_kz00_2739); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2715)(BgL_method4656z00_2715, 
(obj_t)(BgL_arg5931z00_1847), BEOA);} } } } 
}



/* type-node!-set-ex-it4694 */
obj_t BGl_typezd2nodez12zd2setzd2exzd2it4694z12zzcfa_ltypez00(obj_t BgL_envz00_2956, obj_t BgL_nodez00_2957)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 274 */
{ 
BgL_setzd2exzd2itz00_bglt BgL_nodez00_1831;
BgL_nodez00_1831 = 
(BgL_setzd2exzd2itz00_bglt)(BgL_nodez00_2957); 
{ /* ./Cfa/ltype.scm 276 */
BgL_variablez00_bglt BgL_vz00_1835;
{ /* ./Cfa/ltype.scm 276 */
BgL_varz00_bglt BgL_arg5909z00_1837;
BgL_arg5909z00_1837 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1831))->BgL_varz00); 
BgL_vz00_1835 = 
(((BgL_varz00_bglt)CREF(BgL_arg5909z00_1837))->BgL_variablez00); } 
{ /* ./Cfa/ltype.scm 277 */
BgL_valuez00_bglt BgL_arg5905z00_1836;
BgL_arg5905z00_1836 = 
(((BgL_variablez00_bglt)CREF(BgL_vz00_1835))->BgL_valuez00); 
{ /* ./Cfa/ltype.scm 277 */
obj_t BgL_method4644z00_2607;
{ /* ./Cfa/ltype.scm 277 */
BgL_objectz00_bglt BgL_objz00_2608;
BgL_objz00_2608 = 
(BgL_objectz00_bglt)(BgL_arg5905z00_1836); 
{ /* ./Cfa/ltype.scm 277 */
long BgL_objzd2classzd2numz00_2609;
BgL_objzd2classzd2numz00_2609 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2608); 
{ /* ./Cfa/ltype.scm 277 */
obj_t BgL_arg2017z00_2610;
{ /* ./Cfa/ltype.scm 277 */
int BgL_auxz00_3354;
BgL_auxz00_3354 = 
(int)(((long)1)); 
BgL_arg2017z00_2610 = 
PROCEDURE_REF(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3354); } 
{ /* ./Cfa/ltype.scm 277 */
int BgL_offsetz00_2613;
BgL_offsetz00_2613 = 
(int)(BgL_objzd2classzd2numz00_2609); 
{ /* ./Cfa/ltype.scm 277 */
long BgL_offsetz00_2614;
{ /* ./Cfa/ltype.scm 277 */
long BgL_auxz00_3358;
BgL_auxz00_3358 = 
(long)(BgL_offsetz00_2613); 
BgL_offsetz00_2614 = 
(BgL_auxz00_3358-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 277 */
long BgL_modz00_2615;
{ /* ./Cfa/ltype.scm 277 */
int BgL_arg2028z00_2616;
BgL_arg2028z00_2616 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 277 */
long BgL_n2z00_2624;
BgL_n2z00_2624 = 
(long)(BgL_arg2028z00_2616); 
BgL_modz00_2615 = 
(BgL_offsetz00_2614/BgL_n2z00_2624); } } 
{ /* ./Cfa/ltype.scm 277 */
long BgL_restz00_2617;
{ /* ./Cfa/ltype.scm 277 */
int BgL_arg2024z00_2618;
BgL_arg2024z00_2618 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 277 */
long BgL_n2z00_2627;
BgL_n2z00_2627 = 
(long)(BgL_arg2024z00_2618); 
BgL_restz00_2617 = 
(BgL_offsetz00_2614%BgL_n2z00_2627); } } 
{ /* ./Cfa/ltype.scm 277 */

{ /* ./Cfa/ltype.scm 277 */
obj_t BgL_bucketz00_2619;
{ /* ./Cfa/ltype.scm 277 */
int BgL_kz00_2629;
BgL_kz00_2629 = 
(int)(BgL_modz00_2615); 
BgL_bucketz00_2619 = 
VECTOR_REF(BgL_arg2017z00_2610,BgL_kz00_2629); } 
{ /* ./Cfa/ltype.scm 277 */
int BgL_kz00_2631;
BgL_kz00_2631 = 
(int)(BgL_restz00_2617); 
BgL_method4644z00_2607 = 
VECTOR_REF(BgL_bucketz00_2619,BgL_kz00_2631); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4644z00_2607)(BgL_method4644z00_2607, 
(obj_t)(BgL_arg5905z00_1836), 
(obj_t)(BgL_vz00_1835), BEOA); } } } 
{ /* ./Cfa/ltype.scm 278 */
BgL_nodez00_bglt BgL_arg5913z00_1838;
BgL_arg5913z00_1838 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1831))->BgL_bodyz00); 
{ /* ./Cfa/ltype.scm 278 */
obj_t BgL_method4656z00_2634;
{ /* ./Cfa/ltype.scm 278 */
BgL_objectz00_bglt BgL_objz00_2635;
BgL_objz00_2635 = 
(BgL_objectz00_bglt)(BgL_arg5913z00_1838); 
{ /* ./Cfa/ltype.scm 278 */
long BgL_objzd2classzd2numz00_2636;
BgL_objzd2classzd2numz00_2636 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2635); 
{ /* ./Cfa/ltype.scm 278 */
obj_t BgL_arg2017z00_2637;
{ /* ./Cfa/ltype.scm 278 */
int BgL_auxz00_3378;
BgL_auxz00_3378 = 
(int)(((long)1)); 
BgL_arg2017z00_2637 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3378); } 
{ /* ./Cfa/ltype.scm 278 */
int BgL_offsetz00_2640;
BgL_offsetz00_2640 = 
(int)(BgL_objzd2classzd2numz00_2636); 
{ /* ./Cfa/ltype.scm 278 */
long BgL_offsetz00_2641;
{ /* ./Cfa/ltype.scm 278 */
long BgL_auxz00_3382;
BgL_auxz00_3382 = 
(long)(BgL_offsetz00_2640); 
BgL_offsetz00_2641 = 
(BgL_auxz00_3382-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 278 */
long BgL_modz00_2642;
{ /* ./Cfa/ltype.scm 278 */
int BgL_arg2028z00_2643;
BgL_arg2028z00_2643 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 278 */
long BgL_n2z00_2651;
BgL_n2z00_2651 = 
(long)(BgL_arg2028z00_2643); 
BgL_modz00_2642 = 
(BgL_offsetz00_2641/BgL_n2z00_2651); } } 
{ /* ./Cfa/ltype.scm 278 */
long BgL_restz00_2644;
{ /* ./Cfa/ltype.scm 278 */
int BgL_arg2024z00_2645;
BgL_arg2024z00_2645 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 278 */
long BgL_n2z00_2654;
BgL_n2z00_2654 = 
(long)(BgL_arg2024z00_2645); 
BgL_restz00_2644 = 
(BgL_offsetz00_2641%BgL_n2z00_2654); } } 
{ /* ./Cfa/ltype.scm 278 */

{ /* ./Cfa/ltype.scm 278 */
obj_t BgL_bucketz00_2646;
{ /* ./Cfa/ltype.scm 278 */
int BgL_kz00_2656;
BgL_kz00_2656 = 
(int)(BgL_modz00_2642); 
BgL_bucketz00_2646 = 
VECTOR_REF(BgL_arg2017z00_2637,BgL_kz00_2656); } 
{ /* ./Cfa/ltype.scm 278 */
int BgL_kz00_2658;
BgL_kz00_2658 = 
(int)(BgL_restz00_2644); 
BgL_method4656z00_2634 = 
VECTOR_REF(BgL_bucketz00_2646,BgL_kz00_2658); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2634)(BgL_method4656z00_2634, 
(obj_t)(BgL_arg5913z00_1838), BEOA); } } 
{ /* ./Cfa/ltype.scm 279 */
BgL_varz00_bglt BgL_arg5917z00_1839;
BgL_arg5917z00_1839 = 
(((BgL_setzd2exzd2itz00_bglt)CREF(BgL_nodez00_1831))->BgL_varz00); 
{ /* ./Cfa/ltype.scm 279 */
BgL_nodez00_bglt BgL_nodez00_2660;
BgL_nodez00_2660 = 
(BgL_nodez00_bglt)(BgL_arg5917z00_1839); 
{ /* ./Cfa/ltype.scm 279 */
obj_t BgL_method4656z00_2661;
{ /* ./Cfa/ltype.scm 279 */
BgL_objectz00_bglt BgL_objz00_2662;
BgL_objz00_2662 = 
(BgL_objectz00_bglt)(BgL_nodez00_2660); 
{ /* ./Cfa/ltype.scm 279 */
long BgL_objzd2classzd2numz00_2663;
BgL_objzd2classzd2numz00_2663 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2662); 
{ /* ./Cfa/ltype.scm 279 */
obj_t BgL_arg2017z00_2664;
{ /* ./Cfa/ltype.scm 279 */
int BgL_auxz00_3402;
BgL_auxz00_3402 = 
(int)(((long)1)); 
BgL_arg2017z00_2664 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3402); } 
{ /* ./Cfa/ltype.scm 279 */
int BgL_offsetz00_2667;
BgL_offsetz00_2667 = 
(int)(BgL_objzd2classzd2numz00_2663); 
{ /* ./Cfa/ltype.scm 279 */
long BgL_offsetz00_2668;
{ /* ./Cfa/ltype.scm 279 */
long BgL_auxz00_3406;
BgL_auxz00_3406 = 
(long)(BgL_offsetz00_2667); 
BgL_offsetz00_2668 = 
(BgL_auxz00_3406-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 279 */
long BgL_modz00_2669;
{ /* ./Cfa/ltype.scm 279 */
int BgL_arg2028z00_2670;
BgL_arg2028z00_2670 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 279 */
long BgL_n2z00_2678;
BgL_n2z00_2678 = 
(long)(BgL_arg2028z00_2670); 
BgL_modz00_2669 = 
(BgL_offsetz00_2668/BgL_n2z00_2678); } } 
{ /* ./Cfa/ltype.scm 279 */
long BgL_restz00_2671;
{ /* ./Cfa/ltype.scm 279 */
int BgL_arg2024z00_2672;
BgL_arg2024z00_2672 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 279 */
long BgL_n2z00_2681;
BgL_n2z00_2681 = 
(long)(BgL_arg2024z00_2672); 
BgL_restz00_2671 = 
(BgL_offsetz00_2668%BgL_n2z00_2681); } } 
{ /* ./Cfa/ltype.scm 279 */

{ /* ./Cfa/ltype.scm 279 */
obj_t BgL_bucketz00_2673;
{ /* ./Cfa/ltype.scm 279 */
int BgL_kz00_2683;
BgL_kz00_2683 = 
(int)(BgL_modz00_2669); 
BgL_bucketz00_2673 = 
VECTOR_REF(BgL_arg2017z00_2664,BgL_kz00_2683); } 
{ /* ./Cfa/ltype.scm 279 */
int BgL_kz00_2685;
BgL_kz00_2685 = 
(int)(BgL_restz00_2671); 
BgL_method4656z00_2661 = 
VECTOR_REF(BgL_bucketz00_2673,BgL_kz00_2685); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2661)(BgL_method4656z00_2661, 
(obj_t)(BgL_nodez00_2660), BEOA);} } } } } 
}



/* type-node!-let-var4692 */
obj_t BGl_typezd2nodez12zd2letzd2var4692zc0zzcfa_ltypez00(obj_t BgL_envz00_2958, obj_t BgL_nodez00_2959)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 261 */
{ 
BgL_letzd2varzd2_bglt BgL_nodez00_1815;
BgL_nodez00_1815 = 
(BgL_letzd2varzd2_bglt)(BgL_nodez00_2959); 
{ 
obj_t BgL_l4629z00_1819;
{ /* ./Cfa/ltype.scm 263 */
obj_t BgL_arg5877z00_1821;
BgL_arg5877z00_1821 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1815))->BgL_bindingsz00); 
BgL_l4629z00_1819 = BgL_arg5877z00_1821; 
BgL_forzd2each4630zd2_1820:
{ /* ./Cfa/ltype.scm 263 */
bool_t BgL_test5880z00_1822;
BgL_test5880z00_1822 = 
PAIRP(BgL_l4629z00_1819); 
if(BgL_test5880z00_1822)
{ /* ./Cfa/ltype.scm 263 */
{ /* ./Cfa/ltype.scm 264 */
obj_t BgL_bindingz00_1823;
BgL_bindingz00_1823 = 
CAR(BgL_l4629z00_1819); 
{ /* ./Cfa/ltype.scm 264 */
obj_t BgL_varz00_1824;obj_t BgL_valz00_1825;
BgL_varz00_1824 = 
CAR(BgL_bindingz00_1823); 
BgL_valz00_1825 = 
CDR(BgL_bindingz00_1823); 
{ /* ./Cfa/ltype.scm 266 */
BgL_nodez00_bglt BgL_nodez00_2520;
BgL_nodez00_2520 = 
(BgL_nodez00_bglt)(BgL_valz00_1825); 
{ /* ./Cfa/ltype.scm 266 */
obj_t BgL_method4656z00_2521;
{ /* ./Cfa/ltype.scm 266 */
BgL_objectz00_bglt BgL_objz00_2522;
BgL_objz00_2522 = 
(BgL_objectz00_bglt)(BgL_nodez00_2520); 
{ /* ./Cfa/ltype.scm 266 */
long BgL_objzd2classzd2numz00_2523;
BgL_objzd2classzd2numz00_2523 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2522); 
{ /* ./Cfa/ltype.scm 266 */
obj_t BgL_arg2017z00_2524;
{ /* ./Cfa/ltype.scm 266 */
int BgL_auxz00_3432;
BgL_auxz00_3432 = 
(int)(((long)1)); 
BgL_arg2017z00_2524 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3432); } 
{ /* ./Cfa/ltype.scm 266 */
int BgL_offsetz00_2527;
BgL_offsetz00_2527 = 
(int)(BgL_objzd2classzd2numz00_2523); 
{ /* ./Cfa/ltype.scm 266 */
long BgL_offsetz00_2528;
{ /* ./Cfa/ltype.scm 266 */
long BgL_auxz00_3436;
BgL_auxz00_3436 = 
(long)(BgL_offsetz00_2527); 
BgL_offsetz00_2528 = 
(BgL_auxz00_3436-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 266 */
long BgL_modz00_2529;
{ /* ./Cfa/ltype.scm 266 */
int BgL_arg2028z00_2530;
BgL_arg2028z00_2530 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 266 */
long BgL_n2z00_2538;
BgL_n2z00_2538 = 
(long)(BgL_arg2028z00_2530); 
BgL_modz00_2529 = 
(BgL_offsetz00_2528/BgL_n2z00_2538); } } 
{ /* ./Cfa/ltype.scm 266 */
long BgL_restz00_2531;
{ /* ./Cfa/ltype.scm 266 */
int BgL_arg2024z00_2532;
BgL_arg2024z00_2532 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 266 */
long BgL_n2z00_2541;
BgL_n2z00_2541 = 
(long)(BgL_arg2024z00_2532); 
BgL_restz00_2531 = 
(BgL_offsetz00_2528%BgL_n2z00_2541); } } 
{ /* ./Cfa/ltype.scm 266 */

{ /* ./Cfa/ltype.scm 266 */
obj_t BgL_bucketz00_2533;
{ /* ./Cfa/ltype.scm 266 */
int BgL_kz00_2543;
BgL_kz00_2543 = 
(int)(BgL_modz00_2529); 
BgL_bucketz00_2533 = 
VECTOR_REF(BgL_arg2017z00_2524,BgL_kz00_2543); } 
{ /* ./Cfa/ltype.scm 266 */
int BgL_kz00_2545;
BgL_kz00_2545 = 
(int)(BgL_restz00_2531); 
BgL_method4656z00_2521 = 
VECTOR_REF(BgL_bucketz00_2533,BgL_kz00_2545); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2521)(BgL_method4656z00_2521, 
(obj_t)(BgL_nodez00_2520), BEOA); } } 
{ /* ./Cfa/ltype.scm 267 */
BgL_valuez00_bglt BgL_arg5883z00_1826;
{ /* ./Cfa/ltype.scm 267 */
BgL_variablez00_bglt BgL_obj1100z00_2546;
BgL_obj1100z00_2546 = 
(BgL_variablez00_bglt)(BgL_varz00_1824); 
BgL_arg5883z00_1826 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_2546))->BgL_valuez00); } 
{ /* ./Cfa/ltype.scm 267 */
BgL_variablez00_bglt BgL_variablez00_2548;
BgL_variablez00_2548 = 
(BgL_variablez00_bglt)(BgL_varz00_1824); 
{ /* ./Cfa/ltype.scm 267 */
obj_t BgL_method4644z00_2549;
{ /* ./Cfa/ltype.scm 267 */
BgL_objectz00_bglt BgL_objz00_2550;
BgL_objz00_2550 = 
(BgL_objectz00_bglt)(BgL_arg5883z00_1826); 
{ /* ./Cfa/ltype.scm 267 */
long BgL_objzd2classzd2numz00_2551;
BgL_objzd2classzd2numz00_2551 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2550); 
{ /* ./Cfa/ltype.scm 267 */
obj_t BgL_arg2017z00_2552;
{ /* ./Cfa/ltype.scm 267 */
int BgL_auxz00_3457;
BgL_auxz00_3457 = 
(int)(((long)1)); 
BgL_arg2017z00_2552 = 
PROCEDURE_REF(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3457); } 
{ /* ./Cfa/ltype.scm 267 */
int BgL_offsetz00_2555;
BgL_offsetz00_2555 = 
(int)(BgL_objzd2classzd2numz00_2551); 
{ /* ./Cfa/ltype.scm 267 */
long BgL_offsetz00_2556;
{ /* ./Cfa/ltype.scm 267 */
long BgL_auxz00_3461;
BgL_auxz00_3461 = 
(long)(BgL_offsetz00_2555); 
BgL_offsetz00_2556 = 
(BgL_auxz00_3461-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 267 */
long BgL_modz00_2557;
{ /* ./Cfa/ltype.scm 267 */
int BgL_arg2028z00_2558;
BgL_arg2028z00_2558 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 267 */
long BgL_n2z00_2566;
BgL_n2z00_2566 = 
(long)(BgL_arg2028z00_2558); 
BgL_modz00_2557 = 
(BgL_offsetz00_2556/BgL_n2z00_2566); } } 
{ /* ./Cfa/ltype.scm 267 */
long BgL_restz00_2559;
{ /* ./Cfa/ltype.scm 267 */
int BgL_arg2024z00_2560;
BgL_arg2024z00_2560 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 267 */
long BgL_n2z00_2569;
BgL_n2z00_2569 = 
(long)(BgL_arg2024z00_2560); 
BgL_restz00_2559 = 
(BgL_offsetz00_2556%BgL_n2z00_2569); } } 
{ /* ./Cfa/ltype.scm 267 */

{ /* ./Cfa/ltype.scm 267 */
obj_t BgL_bucketz00_2561;
{ /* ./Cfa/ltype.scm 267 */
int BgL_kz00_2571;
BgL_kz00_2571 = 
(int)(BgL_modz00_2557); 
BgL_bucketz00_2561 = 
VECTOR_REF(BgL_arg2017z00_2552,BgL_kz00_2571); } 
{ /* ./Cfa/ltype.scm 267 */
int BgL_kz00_2573;
BgL_kz00_2573 = 
(int)(BgL_restz00_2559); 
BgL_method4644z00_2549 = 
VECTOR_REF(BgL_bucketz00_2561,BgL_kz00_2573); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4644z00_2549)(BgL_method4644z00_2549, 
(obj_t)(BgL_arg5883z00_1826), 
(obj_t)(BgL_variablez00_2548), BEOA); } } } } } 
{ /* ./Cfa/ltype.scm 263 */
obj_t BgL_arg5890z00_1827;
BgL_arg5890z00_1827 = 
CDR(BgL_l4629z00_1819); 
{ 
obj_t BgL_l4629z00_3479;
BgL_l4629z00_3479 = BgL_arg5890z00_1827; 
BgL_l4629z00_1819 = BgL_l4629z00_3479; 
goto BgL_forzd2each4630zd2_1820;} } }  else 
{ /* ./Cfa/ltype.scm 263 */((bool_t)1); } } } } 
{ /* ./Cfa/ltype.scm 269 */
BgL_nodez00_bglt BgL_arg5895z00_1828;
BgL_arg5895z00_1828 = 
(((BgL_letzd2varzd2_bglt)CREF(BgL_nodez00_1815))->BgL_bodyz00); 
{ /* ./Cfa/ltype.scm 269 */
obj_t BgL_method4656z00_2577;
{ /* ./Cfa/ltype.scm 269 */
BgL_objectz00_bglt BgL_objz00_2578;
BgL_objz00_2578 = 
(BgL_objectz00_bglt)(BgL_arg5895z00_1828); 
{ /* ./Cfa/ltype.scm 269 */
long BgL_objzd2classzd2numz00_2579;
BgL_objzd2classzd2numz00_2579 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2578); 
{ /* ./Cfa/ltype.scm 269 */
obj_t BgL_arg2017z00_2580;
{ /* ./Cfa/ltype.scm 269 */
int BgL_auxz00_3483;
BgL_auxz00_3483 = 
(int)(((long)1)); 
BgL_arg2017z00_2580 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3483); } 
{ /* ./Cfa/ltype.scm 269 */
int BgL_offsetz00_2583;
BgL_offsetz00_2583 = 
(int)(BgL_objzd2classzd2numz00_2579); 
{ /* ./Cfa/ltype.scm 269 */
long BgL_offsetz00_2584;
{ /* ./Cfa/ltype.scm 269 */
long BgL_auxz00_3487;
BgL_auxz00_3487 = 
(long)(BgL_offsetz00_2583); 
BgL_offsetz00_2584 = 
(BgL_auxz00_3487-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 269 */
long BgL_modz00_2585;
{ /* ./Cfa/ltype.scm 269 */
int BgL_arg2028z00_2586;
BgL_arg2028z00_2586 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 269 */
long BgL_n2z00_2594;
BgL_n2z00_2594 = 
(long)(BgL_arg2028z00_2586); 
BgL_modz00_2585 = 
(BgL_offsetz00_2584/BgL_n2z00_2594); } } 
{ /* ./Cfa/ltype.scm 269 */
long BgL_restz00_2587;
{ /* ./Cfa/ltype.scm 269 */
int BgL_arg2024z00_2588;
BgL_arg2024z00_2588 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 269 */
long BgL_n2z00_2597;
BgL_n2z00_2597 = 
(long)(BgL_arg2024z00_2588); 
BgL_restz00_2587 = 
(BgL_offsetz00_2584%BgL_n2z00_2597); } } 
{ /* ./Cfa/ltype.scm 269 */

{ /* ./Cfa/ltype.scm 269 */
obj_t BgL_bucketz00_2589;
{ /* ./Cfa/ltype.scm 269 */
int BgL_kz00_2599;
BgL_kz00_2599 = 
(int)(BgL_modz00_2585); 
BgL_bucketz00_2589 = 
VECTOR_REF(BgL_arg2017z00_2580,BgL_kz00_2599); } 
{ /* ./Cfa/ltype.scm 269 */
int BgL_kz00_2601;
BgL_kz00_2601 = 
(int)(BgL_restz00_2587); 
BgL_method4656z00_2577 = 
VECTOR_REF(BgL_bucketz00_2589,BgL_kz00_2601); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2577)(BgL_method4656z00_2577, 
(obj_t)(BgL_arg5895z00_1828), BEOA);} } } } 
}



/* type-node!-let-fun4690 */
obj_t BGl_typezd2nodez12zd2letzd2fun4690zc0zzcfa_ltypez00(obj_t BgL_envz00_2960, obj_t BgL_nodez00_2961)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 253 */
{ 
BgL_letzd2funzd2_bglt BgL_nodez00_1802;
BgL_nodez00_1802 = 
(BgL_letzd2funzd2_bglt)(BgL_nodez00_2961); 
{ 
obj_t BgL_l4625z00_1806;
{ /* ./Cfa/ltype.scm 255 */
obj_t BgL_arg5853z00_1808;
BgL_arg5853z00_1808 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1802))->BgL_localsz00); 
BgL_l4625z00_1806 = BgL_arg5853z00_1808; 
BgL_forzd2each4626zd2_1807:
{ /* ./Cfa/ltype.scm 255 */
bool_t BgL_test5856z00_1809;
BgL_test5856z00_1809 = 
PAIRP(BgL_l4625z00_1806); 
if(BgL_test5856z00_1809)
{ /* ./Cfa/ltype.scm 255 */
{ /* ./Cfa/ltype.scm 255 */
obj_t BgL_arg5858z00_1810;
BgL_arg5858z00_1810 = 
CAR(BgL_l4625z00_1806); 
BGl_lightzd2typezd2funz12z12zzcfa_ltypez00(
(BgL_variablez00_bglt)(BgL_arg5858z00_1810)); } 
{ /* ./Cfa/ltype.scm 255 */
obj_t BgL_arg5862z00_1811;
BgL_arg5862z00_1811 = 
CDR(BgL_l4625z00_1806); 
{ 
obj_t BgL_l4625z00_3511;
BgL_l4625z00_3511 = BgL_arg5862z00_1811; 
BgL_l4625z00_1806 = BgL_l4625z00_3511; 
goto BgL_forzd2each4626zd2_1807;} } }  else 
{ /* ./Cfa/ltype.scm 255 */((bool_t)1); } } } } 
{ /* ./Cfa/ltype.scm 256 */
BgL_nodez00_bglt BgL_arg5867z00_1812;
BgL_arg5867z00_1812 = 
(((BgL_letzd2funzd2_bglt)CREF(BgL_nodez00_1802))->BgL_bodyz00); 
{ /* ./Cfa/ltype.scm 256 */
obj_t BgL_method4656z00_2490;
{ /* ./Cfa/ltype.scm 256 */
BgL_objectz00_bglt BgL_objz00_2491;
BgL_objz00_2491 = 
(BgL_objectz00_bglt)(BgL_arg5867z00_1812); 
{ /* ./Cfa/ltype.scm 256 */
long BgL_objzd2classzd2numz00_2492;
BgL_objzd2classzd2numz00_2492 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2491); 
{ /* ./Cfa/ltype.scm 256 */
obj_t BgL_arg2017z00_2493;
{ /* ./Cfa/ltype.scm 256 */
int BgL_auxz00_3515;
BgL_auxz00_3515 = 
(int)(((long)1)); 
BgL_arg2017z00_2493 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3515); } 
{ /* ./Cfa/ltype.scm 256 */
int BgL_offsetz00_2496;
BgL_offsetz00_2496 = 
(int)(BgL_objzd2classzd2numz00_2492); 
{ /* ./Cfa/ltype.scm 256 */
long BgL_offsetz00_2497;
{ /* ./Cfa/ltype.scm 256 */
long BgL_auxz00_3519;
BgL_auxz00_3519 = 
(long)(BgL_offsetz00_2496); 
BgL_offsetz00_2497 = 
(BgL_auxz00_3519-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 256 */
long BgL_modz00_2498;
{ /* ./Cfa/ltype.scm 256 */
int BgL_arg2028z00_2499;
BgL_arg2028z00_2499 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 256 */
long BgL_n2z00_2507;
BgL_n2z00_2507 = 
(long)(BgL_arg2028z00_2499); 
BgL_modz00_2498 = 
(BgL_offsetz00_2497/BgL_n2z00_2507); } } 
{ /* ./Cfa/ltype.scm 256 */
long BgL_restz00_2500;
{ /* ./Cfa/ltype.scm 256 */
int BgL_arg2024z00_2501;
BgL_arg2024z00_2501 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 256 */
long BgL_n2z00_2510;
BgL_n2z00_2510 = 
(long)(BgL_arg2024z00_2501); 
BgL_restz00_2500 = 
(BgL_offsetz00_2497%BgL_n2z00_2510); } } 
{ /* ./Cfa/ltype.scm 256 */

{ /* ./Cfa/ltype.scm 256 */
obj_t BgL_bucketz00_2502;
{ /* ./Cfa/ltype.scm 256 */
int BgL_kz00_2512;
BgL_kz00_2512 = 
(int)(BgL_modz00_2498); 
BgL_bucketz00_2502 = 
VECTOR_REF(BgL_arg2017z00_2493,BgL_kz00_2512); } 
{ /* ./Cfa/ltype.scm 256 */
int BgL_kz00_2514;
BgL_kz00_2514 = 
(int)(BgL_restz00_2500); 
BgL_method4656z00_2490 = 
VECTOR_REF(BgL_bucketz00_2502,BgL_kz00_2514); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2490)(BgL_method4656z00_2490, 
(obj_t)(BgL_arg5867z00_1812), BEOA);} } } } 
}



/* type-node!-select4688 */
obj_t BGl_typezd2nodez12zd2select4688z12zzcfa_ltypez00(obj_t BgL_envz00_2962, obj_t BgL_nodez00_2963)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 243 */
{ 
BgL_selectz00_bglt BgL_nodez00_1788;
{ /* ./Cfa/ltype.scm 244 */
bool_t BgL_auxz00_3536;
BgL_nodez00_1788 = 
(BgL_selectz00_bglt)(BgL_nodez00_2963); 
{ /* ./Cfa/ltype.scm 245 */
BgL_nodez00_bglt BgL_arg5828z00_1792;
BgL_arg5828z00_1792 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1788))->BgL_testz00); 
{ /* ./Cfa/ltype.scm 245 */
obj_t BgL_method4656z00_2428;
{ /* ./Cfa/ltype.scm 245 */
BgL_objectz00_bglt BgL_objz00_2429;
BgL_objz00_2429 = 
(BgL_objectz00_bglt)(BgL_arg5828z00_1792); 
{ /* ./Cfa/ltype.scm 245 */
long BgL_objzd2classzd2numz00_2430;
BgL_objzd2classzd2numz00_2430 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2429); 
{ /* ./Cfa/ltype.scm 245 */
obj_t BgL_arg2017z00_2431;
{ /* ./Cfa/ltype.scm 245 */
int BgL_auxz00_3540;
BgL_auxz00_3540 = 
(int)(((long)1)); 
BgL_arg2017z00_2431 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3540); } 
{ /* ./Cfa/ltype.scm 245 */
int BgL_offsetz00_2434;
BgL_offsetz00_2434 = 
(int)(BgL_objzd2classzd2numz00_2430); 
{ /* ./Cfa/ltype.scm 245 */
long BgL_offsetz00_2435;
{ /* ./Cfa/ltype.scm 245 */
long BgL_auxz00_3544;
BgL_auxz00_3544 = 
(long)(BgL_offsetz00_2434); 
BgL_offsetz00_2435 = 
(BgL_auxz00_3544-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 245 */
long BgL_modz00_2436;
{ /* ./Cfa/ltype.scm 245 */
int BgL_arg2028z00_2437;
BgL_arg2028z00_2437 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 245 */
long BgL_n2z00_2445;
BgL_n2z00_2445 = 
(long)(BgL_arg2028z00_2437); 
BgL_modz00_2436 = 
(BgL_offsetz00_2435/BgL_n2z00_2445); } } 
{ /* ./Cfa/ltype.scm 245 */
long BgL_restz00_2438;
{ /* ./Cfa/ltype.scm 245 */
int BgL_arg2024z00_2439;
BgL_arg2024z00_2439 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 245 */
long BgL_n2z00_2448;
BgL_n2z00_2448 = 
(long)(BgL_arg2024z00_2439); 
BgL_restz00_2438 = 
(BgL_offsetz00_2435%BgL_n2z00_2448); } } 
{ /* ./Cfa/ltype.scm 245 */

{ /* ./Cfa/ltype.scm 245 */
obj_t BgL_bucketz00_2440;
{ /* ./Cfa/ltype.scm 245 */
int BgL_kz00_2450;
BgL_kz00_2450 = 
(int)(BgL_modz00_2436); 
BgL_bucketz00_2440 = 
VECTOR_REF(BgL_arg2017z00_2431,BgL_kz00_2450); } 
{ /* ./Cfa/ltype.scm 245 */
int BgL_kz00_2452;
BgL_kz00_2452 = 
(int)(BgL_restz00_2438); 
BgL_method4656z00_2428 = 
VECTOR_REF(BgL_bucketz00_2440,BgL_kz00_2452); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2428)(BgL_method4656z00_2428, 
(obj_t)(BgL_arg5828z00_1792), BEOA); } } 
{ 
obj_t BgL_l4621z00_1793;
{ /* ./Cfa/ltype.scm 246 */
obj_t BgL_arg5832z00_1795;
BgL_arg5832z00_1795 = 
(((BgL_selectz00_bglt)CREF(BgL_nodez00_1788))->BgL_clausesz00); 
BgL_l4621z00_1793 = BgL_arg5832z00_1795; 
BgL_forzd2each4622zd2_1794:
{ /* ./Cfa/ltype.scm 246 */
bool_t BgL_test5835z00_1796;
BgL_test5835z00_1796 = 
PAIRP(BgL_l4621z00_1793); 
if(BgL_test5835z00_1796)
{ /* ./Cfa/ltype.scm 246 */
{ /* ./Cfa/ltype.scm 247 */
obj_t BgL_clausez00_1797;
BgL_clausez00_1797 = 
CAR(BgL_l4621z00_1793); 
{ /* ./Cfa/ltype.scm 247 */
obj_t BgL_arg5837z00_1798;
BgL_arg5837z00_1798 = 
CDR(BgL_clausez00_1797); 
{ /* ./Cfa/ltype.scm 247 */
BgL_nodez00_bglt BgL_nodez00_2457;
BgL_nodez00_2457 = 
(BgL_nodez00_bglt)(BgL_arg5837z00_1798); 
{ /* ./Cfa/ltype.scm 247 */
obj_t BgL_method4656z00_2458;
{ /* ./Cfa/ltype.scm 247 */
BgL_objectz00_bglt BgL_objz00_2459;
BgL_objz00_2459 = 
(BgL_objectz00_bglt)(BgL_nodez00_2457); 
{ /* ./Cfa/ltype.scm 247 */
long BgL_objzd2classzd2numz00_2460;
BgL_objzd2classzd2numz00_2460 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2459); 
{ /* ./Cfa/ltype.scm 247 */
obj_t BgL_arg2017z00_2461;
{ /* ./Cfa/ltype.scm 247 */
int BgL_auxz00_3568;
BgL_auxz00_3568 = 
(int)(((long)1)); 
BgL_arg2017z00_2461 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3568); } 
{ /* ./Cfa/ltype.scm 247 */
int BgL_offsetz00_2464;
BgL_offsetz00_2464 = 
(int)(BgL_objzd2classzd2numz00_2460); 
{ /* ./Cfa/ltype.scm 247 */
long BgL_offsetz00_2465;
{ /* ./Cfa/ltype.scm 247 */
long BgL_auxz00_3572;
BgL_auxz00_3572 = 
(long)(BgL_offsetz00_2464); 
BgL_offsetz00_2465 = 
(BgL_auxz00_3572-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 247 */
long BgL_modz00_2466;
{ /* ./Cfa/ltype.scm 247 */
int BgL_arg2028z00_2467;
BgL_arg2028z00_2467 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 247 */
long BgL_n2z00_2475;
BgL_n2z00_2475 = 
(long)(BgL_arg2028z00_2467); 
BgL_modz00_2466 = 
(BgL_offsetz00_2465/BgL_n2z00_2475); } } 
{ /* ./Cfa/ltype.scm 247 */
long BgL_restz00_2468;
{ /* ./Cfa/ltype.scm 247 */
int BgL_arg2024z00_2469;
BgL_arg2024z00_2469 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 247 */
long BgL_n2z00_2478;
BgL_n2z00_2478 = 
(long)(BgL_arg2024z00_2469); 
BgL_restz00_2468 = 
(BgL_offsetz00_2465%BgL_n2z00_2478); } } 
{ /* ./Cfa/ltype.scm 247 */

{ /* ./Cfa/ltype.scm 247 */
obj_t BgL_bucketz00_2470;
{ /* ./Cfa/ltype.scm 247 */
int BgL_kz00_2480;
BgL_kz00_2480 = 
(int)(BgL_modz00_2466); 
BgL_bucketz00_2470 = 
VECTOR_REF(BgL_arg2017z00_2461,BgL_kz00_2480); } 
{ /* ./Cfa/ltype.scm 247 */
int BgL_kz00_2482;
BgL_kz00_2482 = 
(int)(BgL_restz00_2468); 
BgL_method4656z00_2458 = 
VECTOR_REF(BgL_bucketz00_2470,BgL_kz00_2482); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2458)(BgL_method4656z00_2458, 
(obj_t)(BgL_nodez00_2457), BEOA); } } } } 
{ /* ./Cfa/ltype.scm 246 */
obj_t BgL_arg5842z00_1799;
BgL_arg5842z00_1799 = 
CDR(BgL_l4621z00_1793); 
{ 
obj_t BgL_l4621z00_3589;
BgL_l4621z00_3589 = BgL_arg5842z00_1799; 
BgL_l4621z00_1793 = BgL_l4621z00_3589; 
goto BgL_forzd2each4622zd2_1794;} } }  else 
{ /* ./Cfa/ltype.scm 246 */
BgL_auxz00_3536 = ((bool_t)1); } } } } 
return 
BBOOL(BgL_auxz00_3536);} } } 
}



/* type-node!-fail4686 */
obj_t BGl_typezd2nodez12zd2fail4686z12zzcfa_ltypez00(obj_t BgL_envz00_2964, obj_t BgL_nodez00_2965)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 234 */
{ 
BgL_failz00_bglt BgL_nodez00_1779;
BgL_nodez00_1779 = 
(BgL_failz00_bglt)(BgL_nodez00_2965); 
{ /* ./Cfa/ltype.scm 236 */
BgL_nodez00_bglt BgL_arg5810z00_1783;
BgL_arg5810z00_1783 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1779))->BgL_procz00); 
{ /* ./Cfa/ltype.scm 236 */
obj_t BgL_method4656z00_2347;
{ /* ./Cfa/ltype.scm 236 */
BgL_objectz00_bglt BgL_objz00_2348;
BgL_objz00_2348 = 
(BgL_objectz00_bglt)(BgL_arg5810z00_1783); 
{ /* ./Cfa/ltype.scm 236 */
long BgL_objzd2classzd2numz00_2349;
BgL_objzd2classzd2numz00_2349 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2348); 
{ /* ./Cfa/ltype.scm 236 */
obj_t BgL_arg2017z00_2350;
{ /* ./Cfa/ltype.scm 236 */
int BgL_auxz00_3595;
BgL_auxz00_3595 = 
(int)(((long)1)); 
BgL_arg2017z00_2350 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3595); } 
{ /* ./Cfa/ltype.scm 236 */
int BgL_offsetz00_2353;
BgL_offsetz00_2353 = 
(int)(BgL_objzd2classzd2numz00_2349); 
{ /* ./Cfa/ltype.scm 236 */
long BgL_offsetz00_2354;
{ /* ./Cfa/ltype.scm 236 */
long BgL_auxz00_3599;
BgL_auxz00_3599 = 
(long)(BgL_offsetz00_2353); 
BgL_offsetz00_2354 = 
(BgL_auxz00_3599-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 236 */
long BgL_modz00_2355;
{ /* ./Cfa/ltype.scm 236 */
int BgL_arg2028z00_2356;
BgL_arg2028z00_2356 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 236 */
long BgL_n2z00_2364;
BgL_n2z00_2364 = 
(long)(BgL_arg2028z00_2356); 
BgL_modz00_2355 = 
(BgL_offsetz00_2354/BgL_n2z00_2364); } } 
{ /* ./Cfa/ltype.scm 236 */
long BgL_restz00_2357;
{ /* ./Cfa/ltype.scm 236 */
int BgL_arg2024z00_2358;
BgL_arg2024z00_2358 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 236 */
long BgL_n2z00_2367;
BgL_n2z00_2367 = 
(long)(BgL_arg2024z00_2358); 
BgL_restz00_2357 = 
(BgL_offsetz00_2354%BgL_n2z00_2367); } } 
{ /* ./Cfa/ltype.scm 236 */

{ /* ./Cfa/ltype.scm 236 */
obj_t BgL_bucketz00_2359;
{ /* ./Cfa/ltype.scm 236 */
int BgL_kz00_2369;
BgL_kz00_2369 = 
(int)(BgL_modz00_2355); 
BgL_bucketz00_2359 = 
VECTOR_REF(BgL_arg2017z00_2350,BgL_kz00_2369); } 
{ /* ./Cfa/ltype.scm 236 */
int BgL_kz00_2371;
BgL_kz00_2371 = 
(int)(BgL_restz00_2357); 
BgL_method4656z00_2347 = 
VECTOR_REF(BgL_bucketz00_2359,BgL_kz00_2371); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2347)(BgL_method4656z00_2347, 
(obj_t)(BgL_arg5810z00_1783), BEOA); } } 
{ /* ./Cfa/ltype.scm 237 */
BgL_nodez00_bglt BgL_arg5814z00_1784;
BgL_arg5814z00_1784 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1779))->BgL_msgz00); 
{ /* ./Cfa/ltype.scm 237 */
obj_t BgL_method4656z00_2374;
{ /* ./Cfa/ltype.scm 237 */
BgL_objectz00_bglt BgL_objz00_2375;
BgL_objz00_2375 = 
(BgL_objectz00_bglt)(BgL_arg5814z00_1784); 
{ /* ./Cfa/ltype.scm 237 */
long BgL_objzd2classzd2numz00_2376;
BgL_objzd2classzd2numz00_2376 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2375); 
{ /* ./Cfa/ltype.scm 237 */
obj_t BgL_arg2017z00_2377;
{ /* ./Cfa/ltype.scm 237 */
int BgL_auxz00_3618;
BgL_auxz00_3618 = 
(int)(((long)1)); 
BgL_arg2017z00_2377 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3618); } 
{ /* ./Cfa/ltype.scm 237 */
int BgL_offsetz00_2380;
BgL_offsetz00_2380 = 
(int)(BgL_objzd2classzd2numz00_2376); 
{ /* ./Cfa/ltype.scm 237 */
long BgL_offsetz00_2381;
{ /* ./Cfa/ltype.scm 237 */
long BgL_auxz00_3622;
BgL_auxz00_3622 = 
(long)(BgL_offsetz00_2380); 
BgL_offsetz00_2381 = 
(BgL_auxz00_3622-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 237 */
long BgL_modz00_2382;
{ /* ./Cfa/ltype.scm 237 */
int BgL_arg2028z00_2383;
BgL_arg2028z00_2383 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 237 */
long BgL_n2z00_2391;
BgL_n2z00_2391 = 
(long)(BgL_arg2028z00_2383); 
BgL_modz00_2382 = 
(BgL_offsetz00_2381/BgL_n2z00_2391); } } 
{ /* ./Cfa/ltype.scm 237 */
long BgL_restz00_2384;
{ /* ./Cfa/ltype.scm 237 */
int BgL_arg2024z00_2385;
BgL_arg2024z00_2385 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 237 */
long BgL_n2z00_2394;
BgL_n2z00_2394 = 
(long)(BgL_arg2024z00_2385); 
BgL_restz00_2384 = 
(BgL_offsetz00_2381%BgL_n2z00_2394); } } 
{ /* ./Cfa/ltype.scm 237 */

{ /* ./Cfa/ltype.scm 237 */
obj_t BgL_bucketz00_2386;
{ /* ./Cfa/ltype.scm 237 */
int BgL_kz00_2396;
BgL_kz00_2396 = 
(int)(BgL_modz00_2382); 
BgL_bucketz00_2386 = 
VECTOR_REF(BgL_arg2017z00_2377,BgL_kz00_2396); } 
{ /* ./Cfa/ltype.scm 237 */
int BgL_kz00_2398;
BgL_kz00_2398 = 
(int)(BgL_restz00_2384); 
BgL_method4656z00_2374 = 
VECTOR_REF(BgL_bucketz00_2386,BgL_kz00_2398); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2374)(BgL_method4656z00_2374, 
(obj_t)(BgL_arg5814z00_1784), BEOA); } } 
{ /* ./Cfa/ltype.scm 238 */
BgL_nodez00_bglt BgL_arg5818z00_1785;
BgL_arg5818z00_1785 = 
(((BgL_failz00_bglt)CREF(BgL_nodez00_1779))->BgL_objz00); 
{ /* ./Cfa/ltype.scm 238 */
obj_t BgL_method4656z00_2401;
{ /* ./Cfa/ltype.scm 238 */
BgL_objectz00_bglt BgL_objz00_2402;
BgL_objz00_2402 = 
(BgL_objectz00_bglt)(BgL_arg5818z00_1785); 
{ /* ./Cfa/ltype.scm 238 */
long BgL_objzd2classzd2numz00_2403;
BgL_objzd2classzd2numz00_2403 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2402); 
{ /* ./Cfa/ltype.scm 238 */
obj_t BgL_arg2017z00_2404;
{ /* ./Cfa/ltype.scm 238 */
int BgL_auxz00_3641;
BgL_auxz00_3641 = 
(int)(((long)1)); 
BgL_arg2017z00_2404 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3641); } 
{ /* ./Cfa/ltype.scm 238 */
int BgL_offsetz00_2407;
BgL_offsetz00_2407 = 
(int)(BgL_objzd2classzd2numz00_2403); 
{ /* ./Cfa/ltype.scm 238 */
long BgL_offsetz00_2408;
{ /* ./Cfa/ltype.scm 238 */
long BgL_auxz00_3645;
BgL_auxz00_3645 = 
(long)(BgL_offsetz00_2407); 
BgL_offsetz00_2408 = 
(BgL_auxz00_3645-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 238 */
long BgL_modz00_2409;
{ /* ./Cfa/ltype.scm 238 */
int BgL_arg2028z00_2410;
BgL_arg2028z00_2410 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 238 */
long BgL_n2z00_2418;
BgL_n2z00_2418 = 
(long)(BgL_arg2028z00_2410); 
BgL_modz00_2409 = 
(BgL_offsetz00_2408/BgL_n2z00_2418); } } 
{ /* ./Cfa/ltype.scm 238 */
long BgL_restz00_2411;
{ /* ./Cfa/ltype.scm 238 */
int BgL_arg2024z00_2412;
BgL_arg2024z00_2412 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 238 */
long BgL_n2z00_2421;
BgL_n2z00_2421 = 
(long)(BgL_arg2024z00_2412); 
BgL_restz00_2411 = 
(BgL_offsetz00_2408%BgL_n2z00_2421); } } 
{ /* ./Cfa/ltype.scm 238 */

{ /* ./Cfa/ltype.scm 238 */
obj_t BgL_bucketz00_2413;
{ /* ./Cfa/ltype.scm 238 */
int BgL_kz00_2423;
BgL_kz00_2423 = 
(int)(BgL_modz00_2409); 
BgL_bucketz00_2413 = 
VECTOR_REF(BgL_arg2017z00_2404,BgL_kz00_2423); } 
{ /* ./Cfa/ltype.scm 238 */
int BgL_kz00_2425;
BgL_kz00_2425 = 
(int)(BgL_restz00_2411); 
BgL_method4656z00_2401 = 
VECTOR_REF(BgL_bucketz00_2413,BgL_kz00_2425); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2401)(BgL_method4656z00_2401, 
(obj_t)(BgL_arg5818z00_1785), BEOA);} } } } 
}



/* type-node!-conditional4684 */
obj_t BGl_typezd2nodez12zd2conditional4684z12zzcfa_ltypez00(obj_t BgL_envz00_2966, obj_t BgL_nodez00_2967)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 225 */
{ 
BgL_conditionalz00_bglt BgL_nodez00_1770;
BgL_nodez00_1770 = 
(BgL_conditionalz00_bglt)(BgL_nodez00_2967); 
{ /* ./Cfa/ltype.scm 227 */
BgL_nodez00_bglt BgL_arg5792z00_1774;
BgL_arg5792z00_1774 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1770))->BgL_testz00); 
{ /* ./Cfa/ltype.scm 227 */
obj_t BgL_method4656z00_2266;
{ /* ./Cfa/ltype.scm 227 */
BgL_objectz00_bglt BgL_objz00_2267;
BgL_objz00_2267 = 
(BgL_objectz00_bglt)(BgL_arg5792z00_1774); 
{ /* ./Cfa/ltype.scm 227 */
long BgL_objzd2classzd2numz00_2268;
BgL_objzd2classzd2numz00_2268 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2267); 
{ /* ./Cfa/ltype.scm 227 */
obj_t BgL_arg2017z00_2269;
{ /* ./Cfa/ltype.scm 227 */
int BgL_auxz00_3665;
BgL_auxz00_3665 = 
(int)(((long)1)); 
BgL_arg2017z00_2269 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3665); } 
{ /* ./Cfa/ltype.scm 227 */
int BgL_offsetz00_2272;
BgL_offsetz00_2272 = 
(int)(BgL_objzd2classzd2numz00_2268); 
{ /* ./Cfa/ltype.scm 227 */
long BgL_offsetz00_2273;
{ /* ./Cfa/ltype.scm 227 */
long BgL_auxz00_3669;
BgL_auxz00_3669 = 
(long)(BgL_offsetz00_2272); 
BgL_offsetz00_2273 = 
(BgL_auxz00_3669-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 227 */
long BgL_modz00_2274;
{ /* ./Cfa/ltype.scm 227 */
int BgL_arg2028z00_2275;
BgL_arg2028z00_2275 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 227 */
long BgL_n2z00_2283;
BgL_n2z00_2283 = 
(long)(BgL_arg2028z00_2275); 
BgL_modz00_2274 = 
(BgL_offsetz00_2273/BgL_n2z00_2283); } } 
{ /* ./Cfa/ltype.scm 227 */
long BgL_restz00_2276;
{ /* ./Cfa/ltype.scm 227 */
int BgL_arg2024z00_2277;
BgL_arg2024z00_2277 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 227 */
long BgL_n2z00_2286;
BgL_n2z00_2286 = 
(long)(BgL_arg2024z00_2277); 
BgL_restz00_2276 = 
(BgL_offsetz00_2273%BgL_n2z00_2286); } } 
{ /* ./Cfa/ltype.scm 227 */

{ /* ./Cfa/ltype.scm 227 */
obj_t BgL_bucketz00_2278;
{ /* ./Cfa/ltype.scm 227 */
int BgL_kz00_2288;
BgL_kz00_2288 = 
(int)(BgL_modz00_2274); 
BgL_bucketz00_2278 = 
VECTOR_REF(BgL_arg2017z00_2269,BgL_kz00_2288); } 
{ /* ./Cfa/ltype.scm 227 */
int BgL_kz00_2290;
BgL_kz00_2290 = 
(int)(BgL_restz00_2276); 
BgL_method4656z00_2266 = 
VECTOR_REF(BgL_bucketz00_2278,BgL_kz00_2290); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2266)(BgL_method4656z00_2266, 
(obj_t)(BgL_arg5792z00_1774), BEOA); } } 
{ /* ./Cfa/ltype.scm 228 */
BgL_nodez00_bglt BgL_arg5796z00_1775;
BgL_arg5796z00_1775 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1770))->BgL_truez00); 
{ /* ./Cfa/ltype.scm 228 */
obj_t BgL_method4656z00_2293;
{ /* ./Cfa/ltype.scm 228 */
BgL_objectz00_bglt BgL_objz00_2294;
BgL_objz00_2294 = 
(BgL_objectz00_bglt)(BgL_arg5796z00_1775); 
{ /* ./Cfa/ltype.scm 228 */
long BgL_objzd2classzd2numz00_2295;
BgL_objzd2classzd2numz00_2295 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2294); 
{ /* ./Cfa/ltype.scm 228 */
obj_t BgL_arg2017z00_2296;
{ /* ./Cfa/ltype.scm 228 */
int BgL_auxz00_3688;
BgL_auxz00_3688 = 
(int)(((long)1)); 
BgL_arg2017z00_2296 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3688); } 
{ /* ./Cfa/ltype.scm 228 */
int BgL_offsetz00_2299;
BgL_offsetz00_2299 = 
(int)(BgL_objzd2classzd2numz00_2295); 
{ /* ./Cfa/ltype.scm 228 */
long BgL_offsetz00_2300;
{ /* ./Cfa/ltype.scm 228 */
long BgL_auxz00_3692;
BgL_auxz00_3692 = 
(long)(BgL_offsetz00_2299); 
BgL_offsetz00_2300 = 
(BgL_auxz00_3692-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 228 */
long BgL_modz00_2301;
{ /* ./Cfa/ltype.scm 228 */
int BgL_arg2028z00_2302;
BgL_arg2028z00_2302 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 228 */
long BgL_n2z00_2310;
BgL_n2z00_2310 = 
(long)(BgL_arg2028z00_2302); 
BgL_modz00_2301 = 
(BgL_offsetz00_2300/BgL_n2z00_2310); } } 
{ /* ./Cfa/ltype.scm 228 */
long BgL_restz00_2303;
{ /* ./Cfa/ltype.scm 228 */
int BgL_arg2024z00_2304;
BgL_arg2024z00_2304 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 228 */
long BgL_n2z00_2313;
BgL_n2z00_2313 = 
(long)(BgL_arg2024z00_2304); 
BgL_restz00_2303 = 
(BgL_offsetz00_2300%BgL_n2z00_2313); } } 
{ /* ./Cfa/ltype.scm 228 */

{ /* ./Cfa/ltype.scm 228 */
obj_t BgL_bucketz00_2305;
{ /* ./Cfa/ltype.scm 228 */
int BgL_kz00_2315;
BgL_kz00_2315 = 
(int)(BgL_modz00_2301); 
BgL_bucketz00_2305 = 
VECTOR_REF(BgL_arg2017z00_2296,BgL_kz00_2315); } 
{ /* ./Cfa/ltype.scm 228 */
int BgL_kz00_2317;
BgL_kz00_2317 = 
(int)(BgL_restz00_2303); 
BgL_method4656z00_2293 = 
VECTOR_REF(BgL_bucketz00_2305,BgL_kz00_2317); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2293)(BgL_method4656z00_2293, 
(obj_t)(BgL_arg5796z00_1775), BEOA); } } 
{ /* ./Cfa/ltype.scm 229 */
BgL_nodez00_bglt BgL_arg5800z00_1776;
BgL_arg5800z00_1776 = 
(((BgL_conditionalz00_bglt)CREF(BgL_nodez00_1770))->BgL_falsez00); 
{ /* ./Cfa/ltype.scm 229 */
obj_t BgL_method4656z00_2320;
{ /* ./Cfa/ltype.scm 229 */
BgL_objectz00_bglt BgL_objz00_2321;
BgL_objz00_2321 = 
(BgL_objectz00_bglt)(BgL_arg5800z00_1776); 
{ /* ./Cfa/ltype.scm 229 */
long BgL_objzd2classzd2numz00_2322;
BgL_objzd2classzd2numz00_2322 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2321); 
{ /* ./Cfa/ltype.scm 229 */
obj_t BgL_arg2017z00_2323;
{ /* ./Cfa/ltype.scm 229 */
int BgL_auxz00_3711;
BgL_auxz00_3711 = 
(int)(((long)1)); 
BgL_arg2017z00_2323 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3711); } 
{ /* ./Cfa/ltype.scm 229 */
int BgL_offsetz00_2326;
BgL_offsetz00_2326 = 
(int)(BgL_objzd2classzd2numz00_2322); 
{ /* ./Cfa/ltype.scm 229 */
long BgL_offsetz00_2327;
{ /* ./Cfa/ltype.scm 229 */
long BgL_auxz00_3715;
BgL_auxz00_3715 = 
(long)(BgL_offsetz00_2326); 
BgL_offsetz00_2327 = 
(BgL_auxz00_3715-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 229 */
long BgL_modz00_2328;
{ /* ./Cfa/ltype.scm 229 */
int BgL_arg2028z00_2329;
BgL_arg2028z00_2329 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 229 */
long BgL_n2z00_2337;
BgL_n2z00_2337 = 
(long)(BgL_arg2028z00_2329); 
BgL_modz00_2328 = 
(BgL_offsetz00_2327/BgL_n2z00_2337); } } 
{ /* ./Cfa/ltype.scm 229 */
long BgL_restz00_2330;
{ /* ./Cfa/ltype.scm 229 */
int BgL_arg2024z00_2331;
BgL_arg2024z00_2331 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 229 */
long BgL_n2z00_2340;
BgL_n2z00_2340 = 
(long)(BgL_arg2024z00_2331); 
BgL_restz00_2330 = 
(BgL_offsetz00_2327%BgL_n2z00_2340); } } 
{ /* ./Cfa/ltype.scm 229 */

{ /* ./Cfa/ltype.scm 229 */
obj_t BgL_bucketz00_2332;
{ /* ./Cfa/ltype.scm 229 */
int BgL_kz00_2342;
BgL_kz00_2342 = 
(int)(BgL_modz00_2328); 
BgL_bucketz00_2332 = 
VECTOR_REF(BgL_arg2017z00_2323,BgL_kz00_2342); } 
{ /* ./Cfa/ltype.scm 229 */
int BgL_kz00_2344;
BgL_kz00_2344 = 
(int)(BgL_restz00_2330); 
BgL_method4656z00_2320 = 
VECTOR_REF(BgL_bucketz00_2332,BgL_kz00_2344); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2320)(BgL_method4656z00_2320, 
(obj_t)(BgL_arg5800z00_1776), BEOA);} } } } 
}



/* type-node!-setq4682 */
obj_t BGl_typezd2nodez12zd2setq4682z12zzcfa_ltypez00(obj_t BgL_envz00_2968, obj_t BgL_nodez00_2969)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 217 */
{ 
BgL_setqz00_bglt BgL_nodez00_1762;
BgL_nodez00_1762 = 
(BgL_setqz00_bglt)(BgL_nodez00_2969); 
{ /* ./Cfa/ltype.scm 219 */
BgL_nodez00_bglt BgL_arg5778z00_1766;
BgL_arg5778z00_1766 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1762))->BgL_valuez00); 
{ /* ./Cfa/ltype.scm 219 */
obj_t BgL_method4656z00_2212;
{ /* ./Cfa/ltype.scm 219 */
BgL_objectz00_bglt BgL_objz00_2213;
BgL_objz00_2213 = 
(BgL_objectz00_bglt)(BgL_arg5778z00_1766); 
{ /* ./Cfa/ltype.scm 219 */
long BgL_objzd2classzd2numz00_2214;
BgL_objzd2classzd2numz00_2214 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2213); 
{ /* ./Cfa/ltype.scm 219 */
obj_t BgL_arg2017z00_2215;
{ /* ./Cfa/ltype.scm 219 */
int BgL_auxz00_3735;
BgL_auxz00_3735 = 
(int)(((long)1)); 
BgL_arg2017z00_2215 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3735); } 
{ /* ./Cfa/ltype.scm 219 */
int BgL_offsetz00_2218;
BgL_offsetz00_2218 = 
(int)(BgL_objzd2classzd2numz00_2214); 
{ /* ./Cfa/ltype.scm 219 */
long BgL_offsetz00_2219;
{ /* ./Cfa/ltype.scm 219 */
long BgL_auxz00_3739;
BgL_auxz00_3739 = 
(long)(BgL_offsetz00_2218); 
BgL_offsetz00_2219 = 
(BgL_auxz00_3739-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 219 */
long BgL_modz00_2220;
{ /* ./Cfa/ltype.scm 219 */
int BgL_arg2028z00_2221;
BgL_arg2028z00_2221 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 219 */
long BgL_n2z00_2229;
BgL_n2z00_2229 = 
(long)(BgL_arg2028z00_2221); 
BgL_modz00_2220 = 
(BgL_offsetz00_2219/BgL_n2z00_2229); } } 
{ /* ./Cfa/ltype.scm 219 */
long BgL_restz00_2222;
{ /* ./Cfa/ltype.scm 219 */
int BgL_arg2024z00_2223;
BgL_arg2024z00_2223 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 219 */
long BgL_n2z00_2232;
BgL_n2z00_2232 = 
(long)(BgL_arg2024z00_2223); 
BgL_restz00_2222 = 
(BgL_offsetz00_2219%BgL_n2z00_2232); } } 
{ /* ./Cfa/ltype.scm 219 */

{ /* ./Cfa/ltype.scm 219 */
obj_t BgL_bucketz00_2224;
{ /* ./Cfa/ltype.scm 219 */
int BgL_kz00_2234;
BgL_kz00_2234 = 
(int)(BgL_modz00_2220); 
BgL_bucketz00_2224 = 
VECTOR_REF(BgL_arg2017z00_2215,BgL_kz00_2234); } 
{ /* ./Cfa/ltype.scm 219 */
int BgL_kz00_2236;
BgL_kz00_2236 = 
(int)(BgL_restz00_2222); 
BgL_method4656z00_2212 = 
VECTOR_REF(BgL_bucketz00_2224,BgL_kz00_2236); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2212)(BgL_method4656z00_2212, 
(obj_t)(BgL_arg5778z00_1766), BEOA); } } 
{ /* ./Cfa/ltype.scm 220 */
BgL_varz00_bglt BgL_arg5782z00_1767;
BgL_arg5782z00_1767 = 
(((BgL_setqz00_bglt)CREF(BgL_nodez00_1762))->BgL_varz00); 
{ /* ./Cfa/ltype.scm 220 */
BgL_nodez00_bglt BgL_nodez00_2238;
BgL_nodez00_2238 = 
(BgL_nodez00_bglt)(BgL_arg5782z00_1767); 
{ /* ./Cfa/ltype.scm 220 */
obj_t BgL_method4656z00_2239;
{ /* ./Cfa/ltype.scm 220 */
BgL_objectz00_bglt BgL_objz00_2240;
BgL_objz00_2240 = 
(BgL_objectz00_bglt)(BgL_nodez00_2238); 
{ /* ./Cfa/ltype.scm 220 */
long BgL_objzd2classzd2numz00_2241;
BgL_objzd2classzd2numz00_2241 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2240); 
{ /* ./Cfa/ltype.scm 220 */
obj_t BgL_arg2017z00_2242;
{ /* ./Cfa/ltype.scm 220 */
int BgL_auxz00_3759;
BgL_auxz00_3759 = 
(int)(((long)1)); 
BgL_arg2017z00_2242 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3759); } 
{ /* ./Cfa/ltype.scm 220 */
int BgL_offsetz00_2245;
BgL_offsetz00_2245 = 
(int)(BgL_objzd2classzd2numz00_2241); 
{ /* ./Cfa/ltype.scm 220 */
long BgL_offsetz00_2246;
{ /* ./Cfa/ltype.scm 220 */
long BgL_auxz00_3763;
BgL_auxz00_3763 = 
(long)(BgL_offsetz00_2245); 
BgL_offsetz00_2246 = 
(BgL_auxz00_3763-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 220 */
long BgL_modz00_2247;
{ /* ./Cfa/ltype.scm 220 */
int BgL_arg2028z00_2248;
BgL_arg2028z00_2248 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 220 */
long BgL_n2z00_2256;
BgL_n2z00_2256 = 
(long)(BgL_arg2028z00_2248); 
BgL_modz00_2247 = 
(BgL_offsetz00_2246/BgL_n2z00_2256); } } 
{ /* ./Cfa/ltype.scm 220 */
long BgL_restz00_2249;
{ /* ./Cfa/ltype.scm 220 */
int BgL_arg2024z00_2250;
BgL_arg2024z00_2250 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 220 */
long BgL_n2z00_2259;
BgL_n2z00_2259 = 
(long)(BgL_arg2024z00_2250); 
BgL_restz00_2249 = 
(BgL_offsetz00_2246%BgL_n2z00_2259); } } 
{ /* ./Cfa/ltype.scm 220 */

{ /* ./Cfa/ltype.scm 220 */
obj_t BgL_bucketz00_2251;
{ /* ./Cfa/ltype.scm 220 */
int BgL_kz00_2261;
BgL_kz00_2261 = 
(int)(BgL_modz00_2247); 
BgL_bucketz00_2251 = 
VECTOR_REF(BgL_arg2017z00_2242,BgL_kz00_2261); } 
{ /* ./Cfa/ltype.scm 220 */
int BgL_kz00_2263;
BgL_kz00_2263 = 
(int)(BgL_restz00_2249); 
BgL_method4656z00_2239 = 
VECTOR_REF(BgL_bucketz00_2251,BgL_kz00_2263); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2239)(BgL_method4656z00_2239, 
(obj_t)(BgL_nodez00_2238), BEOA);} } } } } 
}



/* type-node!-cast4680 */
obj_t BGl_typezd2nodez12zd2cast4680z12zzcfa_ltypez00(obj_t BgL_envz00_2970, obj_t BgL_nodez00_2971)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 210 */
{ 
BgL_castz00_bglt BgL_nodez00_1755;
BgL_nodez00_1755 = 
(BgL_castz00_bglt)(BgL_nodez00_2971); 
{ /* ./Cfa/ltype.scm 211 */
BgL_nodez00_bglt BgL_arg5768z00_2182;
BgL_arg5768z00_2182 = 
(((BgL_castz00_bglt)CREF(BgL_nodez00_1755))->BgL_argz00); 
{ /* ./Cfa/ltype.scm 211 */
obj_t BgL_method4656z00_2185;
{ /* ./Cfa/ltype.scm 211 */
BgL_objectz00_bglt BgL_objz00_2186;
BgL_objz00_2186 = 
(BgL_objectz00_bglt)(BgL_arg5768z00_2182); 
{ /* ./Cfa/ltype.scm 211 */
long BgL_objzd2classzd2numz00_2187;
BgL_objzd2classzd2numz00_2187 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2186); 
{ /* ./Cfa/ltype.scm 211 */
obj_t BgL_arg2017z00_2188;
{ /* ./Cfa/ltype.scm 211 */
int BgL_auxz00_3783;
BgL_auxz00_3783 = 
(int)(((long)1)); 
BgL_arg2017z00_2188 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3783); } 
{ /* ./Cfa/ltype.scm 211 */
int BgL_offsetz00_2191;
BgL_offsetz00_2191 = 
(int)(BgL_objzd2classzd2numz00_2187); 
{ /* ./Cfa/ltype.scm 211 */
long BgL_offsetz00_2192;
{ /* ./Cfa/ltype.scm 211 */
long BgL_auxz00_3787;
BgL_auxz00_3787 = 
(long)(BgL_offsetz00_2191); 
BgL_offsetz00_2192 = 
(BgL_auxz00_3787-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 211 */
long BgL_modz00_2193;
{ /* ./Cfa/ltype.scm 211 */
int BgL_arg2028z00_2194;
BgL_arg2028z00_2194 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 211 */
long BgL_n2z00_2202;
BgL_n2z00_2202 = 
(long)(BgL_arg2028z00_2194); 
BgL_modz00_2193 = 
(BgL_offsetz00_2192/BgL_n2z00_2202); } } 
{ /* ./Cfa/ltype.scm 211 */
long BgL_restz00_2195;
{ /* ./Cfa/ltype.scm 211 */
int BgL_arg2024z00_2196;
BgL_arg2024z00_2196 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 211 */
long BgL_n2z00_2205;
BgL_n2z00_2205 = 
(long)(BgL_arg2024z00_2196); 
BgL_restz00_2195 = 
(BgL_offsetz00_2192%BgL_n2z00_2205); } } 
{ /* ./Cfa/ltype.scm 211 */

{ /* ./Cfa/ltype.scm 211 */
obj_t BgL_bucketz00_2197;
{ /* ./Cfa/ltype.scm 211 */
int BgL_kz00_2207;
BgL_kz00_2207 = 
(int)(BgL_modz00_2193); 
BgL_bucketz00_2197 = 
VECTOR_REF(BgL_arg2017z00_2188,BgL_kz00_2207); } 
{ /* ./Cfa/ltype.scm 211 */
int BgL_kz00_2209;
BgL_kz00_2209 = 
(int)(BgL_restz00_2195); 
BgL_method4656z00_2185 = 
VECTOR_REF(BgL_bucketz00_2197,BgL_kz00_2209); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2185)(BgL_method4656z00_2185, 
(obj_t)(BgL_arg5768z00_2182), BEOA);} } } } 
}



/* type-node!-vset!4678 */
obj_t BGl_typezd2nodez12zd2vsetz124678z00zzcfa_ltypez00(obj_t BgL_envz00_2972, obj_t BgL_nodez00_2973)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 201 */
{ 
BgL_vsetz12z12_bglt BgL_nodez00_1747;
BgL_nodez00_1747 = 
(BgL_vsetz12z12_bglt)(BgL_nodez00_2973); 
{ 

{ /* ./Cfa/ltype.scm 201 */
obj_t BgL_nextzd2method4677zd2_1753;
BgL_nextzd2method4677zd2_1753 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_nodez00_1747), BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_vsetz12z12zzast_nodez00); 
{ /* ./Cfa/ltype.scm 201 */
bool_t BgL_test5761z00_1754;
BgL_test5761z00_1754 = 
PROCEDUREP(BgL_nextzd2method4677zd2_1753); 
if(BgL_test5761z00_1754)
{ /* ./Cfa/ltype.scm 201 */
PROCEDURE_ENTRY(BgL_nextzd2method4677zd2_1753)(BgL_nextzd2method4677zd2_1753, 
(obj_t)(BgL_nodez00_1747), BEOA); }  else 
{ /* ./Cfa/ltype.scm 201 */
{ /* ./Cfa/ltype.scm 201 */
BgL_nodez00_bglt BgL_nodez00_2155;
BgL_nodez00_2155 = 
(BgL_nodez00_bglt)(BgL_nodez00_1747); 
{ /* ./Cfa/ltype.scm 201 */
obj_t BgL_method4656z00_2156;
{ /* ./Cfa/ltype.scm 201 */
BgL_objectz00_bglt BgL_objz00_2157;
BgL_objz00_2157 = 
(BgL_objectz00_bglt)(BgL_nodez00_2155); 
{ /* ./Cfa/ltype.scm 201 */
long BgL_objzd2classzd2numz00_2158;
BgL_objzd2classzd2numz00_2158 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2157); 
{ /* ./Cfa/ltype.scm 201 */
obj_t BgL_arg2017z00_2159;
{ /* ./Cfa/ltype.scm 201 */
int BgL_auxz00_3814;
BgL_auxz00_3814 = 
(int)(((long)1)); 
BgL_arg2017z00_2159 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3814); } 
{ /* ./Cfa/ltype.scm 201 */
int BgL_offsetz00_2162;
BgL_offsetz00_2162 = 
(int)(BgL_objzd2classzd2numz00_2158); 
{ /* ./Cfa/ltype.scm 201 */
long BgL_offsetz00_2163;
{ /* ./Cfa/ltype.scm 201 */
long BgL_auxz00_3818;
BgL_auxz00_3818 = 
(long)(BgL_offsetz00_2162); 
BgL_offsetz00_2163 = 
(BgL_auxz00_3818-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 201 */
long BgL_modz00_2164;
{ /* ./Cfa/ltype.scm 201 */
int BgL_arg2028z00_2165;
BgL_arg2028z00_2165 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 201 */
long BgL_n2z00_2173;
BgL_n2z00_2173 = 
(long)(BgL_arg2028z00_2165); 
BgL_modz00_2164 = 
(BgL_offsetz00_2163/BgL_n2z00_2173); } } 
{ /* ./Cfa/ltype.scm 201 */
long BgL_restz00_2166;
{ /* ./Cfa/ltype.scm 201 */
int BgL_arg2024z00_2167;
BgL_arg2024z00_2167 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 201 */
long BgL_n2z00_2176;
BgL_n2z00_2176 = 
(long)(BgL_arg2024z00_2167); 
BgL_restz00_2166 = 
(BgL_offsetz00_2163%BgL_n2z00_2176); } } 
{ /* ./Cfa/ltype.scm 201 */

{ /* ./Cfa/ltype.scm 201 */
obj_t BgL_bucketz00_2168;
{ /* ./Cfa/ltype.scm 201 */
int BgL_kz00_2178;
BgL_kz00_2178 = 
(int)(BgL_modz00_2164); 
BgL_bucketz00_2168 = 
VECTOR_REF(BgL_arg2017z00_2159,BgL_kz00_2178); } 
{ /* ./Cfa/ltype.scm 201 */
int BgL_kz00_2180;
BgL_kz00_2180 = 
(int)(BgL_restz00_2166); 
BgL_method4656z00_2156 = 
VECTOR_REF(BgL_bucketz00_2168,BgL_kz00_2180); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2156)(BgL_method4656z00_2156, 
(obj_t)(BgL_nodez00_2155), BEOA); } } } } } 
{ /* ./Cfa/ltype.scm 204 */
bool_t BgL_test5755z00_1751;
{ /* ./Cfa/ltype.scm 204 */
BgL_typez00_bglt BgL_arg5758z00_1752;
BgL_arg5758z00_1752 = 
(((BgL_vsetz12z12_bglt)CREF(BgL_nodez00_1747))->BgL_ftypez00); 
{ /* ./Cfa/ltype.scm 204 */
obj_t BgL_auxz00_3835;
BgL_auxz00_3835 = 
(obj_t)(BgL_arg5758z00_1752); 
BgL_test5755z00_1751 = 
(BgL_auxz00_3835==BGl_za2_za2z00zztype_cachez00); } } 
if(BgL_test5755z00_1751)
{ /* ./Cfa/ltype.scm 205 */
BgL_vsetz12z12_bglt BgL_obj2151z00_2152;BgL_typez00_bglt BgL_val2150z00_2153;
BgL_obj2151z00_2152 = BgL_nodez00_1747; 
BgL_val2150z00_2153 = 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00); 
return 
((((BgL_vsetz12z12_bglt)CREF(BgL_obj2151z00_2152))->BgL_ftypez00) = ((BgL_typez00_bglt)BgL_val2150z00_2153), BUNSPEC);}  else 
{ /* ./Cfa/ltype.scm 204 */
return BFALSE;} } } } } 
}



/* type-node!-vref4676 */
obj_t BGl_typezd2nodez12zd2vref4676z12zzcfa_ltypez00(obj_t BgL_envz00_2974, obj_t BgL_nodez00_2975)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 192 */
{ 
BgL_vrefz00_bglt BgL_nodez00_1739;
BgL_nodez00_1739 = 
(BgL_vrefz00_bglt)(BgL_nodez00_2975); 
{ 

{ /* ./Cfa/ltype.scm 192 */
obj_t BgL_nextzd2method4675zd2_1745;
BgL_nextzd2method4675zd2_1745 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_nodez00_1739), BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BGl_vrefz00zzast_nodez00); 
{ /* ./Cfa/ltype.scm 192 */
bool_t BgL_test5748z00_1746;
BgL_test5748z00_1746 = 
PROCEDUREP(BgL_nextzd2method4675zd2_1745); 
if(BgL_test5748z00_1746)
{ /* ./Cfa/ltype.scm 192 */
PROCEDURE_ENTRY(BgL_nextzd2method4675zd2_1745)(BgL_nextzd2method4675zd2_1745, 
(obj_t)(BgL_nodez00_1739), BEOA); }  else 
{ /* ./Cfa/ltype.scm 192 */
{ /* ./Cfa/ltype.scm 192 */
BgL_nodez00_bglt BgL_nodez00_2125;
BgL_nodez00_2125 = 
(BgL_nodez00_bglt)(BgL_nodez00_1739); 
{ /* ./Cfa/ltype.scm 192 */
obj_t BgL_method4656z00_2126;
{ /* ./Cfa/ltype.scm 192 */
BgL_objectz00_bglt BgL_objz00_2127;
BgL_objz00_2127 = 
(BgL_objectz00_bglt)(BgL_nodez00_2125); 
{ /* ./Cfa/ltype.scm 192 */
long BgL_objzd2classzd2numz00_2128;
BgL_objzd2classzd2numz00_2128 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2127); 
{ /* ./Cfa/ltype.scm 192 */
obj_t BgL_arg2017z00_2129;
{ /* ./Cfa/ltype.scm 192 */
int BgL_auxz00_3852;
BgL_auxz00_3852 = 
(int)(((long)1)); 
BgL_arg2017z00_2129 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3852); } 
{ /* ./Cfa/ltype.scm 192 */
int BgL_offsetz00_2132;
BgL_offsetz00_2132 = 
(int)(BgL_objzd2classzd2numz00_2128); 
{ /* ./Cfa/ltype.scm 192 */
long BgL_offsetz00_2133;
{ /* ./Cfa/ltype.scm 192 */
long BgL_auxz00_3856;
BgL_auxz00_3856 = 
(long)(BgL_offsetz00_2132); 
BgL_offsetz00_2133 = 
(BgL_auxz00_3856-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 192 */
long BgL_modz00_2134;
{ /* ./Cfa/ltype.scm 192 */
int BgL_arg2028z00_2135;
BgL_arg2028z00_2135 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 192 */
long BgL_n2z00_2143;
BgL_n2z00_2143 = 
(long)(BgL_arg2028z00_2135); 
BgL_modz00_2134 = 
(BgL_offsetz00_2133/BgL_n2z00_2143); } } 
{ /* ./Cfa/ltype.scm 192 */
long BgL_restz00_2136;
{ /* ./Cfa/ltype.scm 192 */
int BgL_arg2024z00_2137;
BgL_arg2024z00_2137 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 192 */
long BgL_n2z00_2146;
BgL_n2z00_2146 = 
(long)(BgL_arg2024z00_2137); 
BgL_restz00_2136 = 
(BgL_offsetz00_2133%BgL_n2z00_2146); } } 
{ /* ./Cfa/ltype.scm 192 */

{ /* ./Cfa/ltype.scm 192 */
obj_t BgL_bucketz00_2138;
{ /* ./Cfa/ltype.scm 192 */
int BgL_kz00_2148;
BgL_kz00_2148 = 
(int)(BgL_modz00_2134); 
BgL_bucketz00_2138 = 
VECTOR_REF(BgL_arg2017z00_2129,BgL_kz00_2148); } 
{ /* ./Cfa/ltype.scm 192 */
int BgL_kz00_2150;
BgL_kz00_2150 = 
(int)(BgL_restz00_2136); 
BgL_method4656z00_2126 = 
VECTOR_REF(BgL_bucketz00_2138,BgL_kz00_2150); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2126)(BgL_method4656z00_2126, 
(obj_t)(BgL_nodez00_2125), BEOA); } } } } } 
{ /* ./Cfa/ltype.scm 195 */
bool_t BgL_test5742z00_1743;
{ /* ./Cfa/ltype.scm 195 */
BgL_typez00_bglt BgL_arg5745z00_1744;
BgL_arg5745z00_1744 = 
(((BgL_vrefz00_bglt)CREF(BgL_nodez00_1739))->BgL_ftypez00); 
{ /* ./Cfa/ltype.scm 195 */
obj_t BgL_auxz00_3873;
BgL_auxz00_3873 = 
(obj_t)(BgL_arg5745z00_1744); 
BgL_test5742z00_1743 = 
(BgL_auxz00_3873==BGl_za2_za2z00zztype_cachez00); } } 
if(BgL_test5742z00_1743)
{ /* ./Cfa/ltype.scm 196 */
BgL_vrefz00_bglt BgL_obj2095z00_2122;BgL_typez00_bglt BgL_val2094z00_2123;
BgL_obj2095z00_2122 = BgL_nodez00_1739; 
BgL_val2094z00_2123 = 
(BgL_typez00_bglt)(BGl_za2objza2z00zztype_cachez00); 
return 
((((BgL_vrefz00_bglt)CREF(BgL_obj2095z00_2122))->BgL_ftypez00) = ((BgL_typez00_bglt)BgL_val2094z00_2123), BUNSPEC);}  else 
{ /* ./Cfa/ltype.scm 195 */
return BFALSE;} } } } } 
}



/* type-node!-extern4674 */
obj_t BGl_typezd2nodez12zd2extern4674z12zzcfa_ltypez00(obj_t BgL_envz00_2976, obj_t BgL_nodez00_2977)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 185 */
{ 
BgL_externz00_bglt BgL_nodez00_1732;
{ /* ./Cfa/ltype.scm 186 */
bool_t BgL_auxz00_3880;
BgL_nodez00_1732 = 
(BgL_externz00_bglt)(BgL_nodez00_2977); 
{ /* ./Cfa/ltype.scm 186 */
obj_t BgL_arg5732z00_2119;
BgL_arg5732z00_2119 = 
(((BgL_externz00_bglt)CREF(BgL_nodez00_1732))->BgL_exprza2za2); 
BgL_auxz00_3880 = 
BGl_typezd2nodeza2z12z62zzcfa_ltypez00(BgL_arg5732z00_2119); } 
return 
BBOOL(BgL_auxz00_3880);} } } 
}



/* type-node!-funcall4672 */
obj_t BGl_typezd2nodez12zd2funcall4672z12zzcfa_ltypez00(obj_t BgL_envz00_2978, obj_t BgL_nodez00_2979)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 177 */
{ 
BgL_funcallz00_bglt BgL_nodez00_1724;
{ /* ./Cfa/ltype.scm 178 */
bool_t BgL_auxz00_3885;
BgL_nodez00_1724 = 
(BgL_funcallz00_bglt)(BgL_nodez00_2979); 
{ /* ./Cfa/ltype.scm 179 */
BgL_nodez00_bglt BgL_arg5718z00_1728;
BgL_arg5718z00_1728 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1724))->BgL_funz00); 
{ /* ./Cfa/ltype.scm 179 */
obj_t BgL_method4656z00_2092;
{ /* ./Cfa/ltype.scm 179 */
BgL_objectz00_bglt BgL_objz00_2093;
BgL_objz00_2093 = 
(BgL_objectz00_bglt)(BgL_arg5718z00_1728); 
{ /* ./Cfa/ltype.scm 179 */
long BgL_objzd2classzd2numz00_2094;
BgL_objzd2classzd2numz00_2094 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2093); 
{ /* ./Cfa/ltype.scm 179 */
obj_t BgL_arg2017z00_2095;
{ /* ./Cfa/ltype.scm 179 */
int BgL_auxz00_3889;
BgL_auxz00_3889 = 
(int)(((long)1)); 
BgL_arg2017z00_2095 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3889); } 
{ /* ./Cfa/ltype.scm 179 */
int BgL_offsetz00_2098;
BgL_offsetz00_2098 = 
(int)(BgL_objzd2classzd2numz00_2094); 
{ /* ./Cfa/ltype.scm 179 */
long BgL_offsetz00_2099;
{ /* ./Cfa/ltype.scm 179 */
long BgL_auxz00_3893;
BgL_auxz00_3893 = 
(long)(BgL_offsetz00_2098); 
BgL_offsetz00_2099 = 
(BgL_auxz00_3893-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 179 */
long BgL_modz00_2100;
{ /* ./Cfa/ltype.scm 179 */
int BgL_arg2028z00_2101;
BgL_arg2028z00_2101 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 179 */
long BgL_n2z00_2109;
BgL_n2z00_2109 = 
(long)(BgL_arg2028z00_2101); 
BgL_modz00_2100 = 
(BgL_offsetz00_2099/BgL_n2z00_2109); } } 
{ /* ./Cfa/ltype.scm 179 */
long BgL_restz00_2102;
{ /* ./Cfa/ltype.scm 179 */
int BgL_arg2024z00_2103;
BgL_arg2024z00_2103 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 179 */
long BgL_n2z00_2112;
BgL_n2z00_2112 = 
(long)(BgL_arg2024z00_2103); 
BgL_restz00_2102 = 
(BgL_offsetz00_2099%BgL_n2z00_2112); } } 
{ /* ./Cfa/ltype.scm 179 */

{ /* ./Cfa/ltype.scm 179 */
obj_t BgL_bucketz00_2104;
{ /* ./Cfa/ltype.scm 179 */
int BgL_kz00_2114;
BgL_kz00_2114 = 
(int)(BgL_modz00_2100); 
BgL_bucketz00_2104 = 
VECTOR_REF(BgL_arg2017z00_2095,BgL_kz00_2114); } 
{ /* ./Cfa/ltype.scm 179 */
int BgL_kz00_2116;
BgL_kz00_2116 = 
(int)(BgL_restz00_2102); 
BgL_method4656z00_2092 = 
VECTOR_REF(BgL_bucketz00_2104,BgL_kz00_2116); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2092)(BgL_method4656z00_2092, 
(obj_t)(BgL_arg5718z00_1728), BEOA); } } 
{ /* ./Cfa/ltype.scm 180 */
obj_t BgL_arg5722z00_1729;
BgL_arg5722z00_1729 = 
(((BgL_funcallz00_bglt)CREF(BgL_nodez00_1724))->BgL_argsz00); 
BgL_auxz00_3885 = 
BGl_typezd2nodeza2z12z62zzcfa_ltypez00(BgL_arg5722z00_1729); } 
return 
BBOOL(BgL_auxz00_3885);} } } 
}



/* type-node!-app-ly4670 */
obj_t BGl_typezd2nodez12zd2appzd2ly4670zc0zzcfa_ltypez00(obj_t BgL_envz00_2980, obj_t BgL_nodez00_2981)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 169 */
{ 
BgL_appzd2lyzd2_bglt BgL_nodez00_1716;
BgL_nodez00_1716 = 
(BgL_appzd2lyzd2_bglt)(BgL_nodez00_2981); 
{ /* ./Cfa/ltype.scm 171 */
BgL_nodez00_bglt BgL_arg5704z00_1720;
BgL_arg5704z00_1720 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1716))->BgL_funz00); 
{ /* ./Cfa/ltype.scm 171 */
obj_t BgL_method4656z00_2038;
{ /* ./Cfa/ltype.scm 171 */
BgL_objectz00_bglt BgL_objz00_2039;
BgL_objz00_2039 = 
(BgL_objectz00_bglt)(BgL_arg5704z00_1720); 
{ /* ./Cfa/ltype.scm 171 */
long BgL_objzd2classzd2numz00_2040;
BgL_objzd2classzd2numz00_2040 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2039); 
{ /* ./Cfa/ltype.scm 171 */
obj_t BgL_arg2017z00_2041;
{ /* ./Cfa/ltype.scm 171 */
int BgL_auxz00_3916;
BgL_auxz00_3916 = 
(int)(((long)1)); 
BgL_arg2017z00_2041 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3916); } 
{ /* ./Cfa/ltype.scm 171 */
int BgL_offsetz00_2044;
BgL_offsetz00_2044 = 
(int)(BgL_objzd2classzd2numz00_2040); 
{ /* ./Cfa/ltype.scm 171 */
long BgL_offsetz00_2045;
{ /* ./Cfa/ltype.scm 171 */
long BgL_auxz00_3920;
BgL_auxz00_3920 = 
(long)(BgL_offsetz00_2044); 
BgL_offsetz00_2045 = 
(BgL_auxz00_3920-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 171 */
long BgL_modz00_2046;
{ /* ./Cfa/ltype.scm 171 */
int BgL_arg2028z00_2047;
BgL_arg2028z00_2047 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 171 */
long BgL_n2z00_2055;
BgL_n2z00_2055 = 
(long)(BgL_arg2028z00_2047); 
BgL_modz00_2046 = 
(BgL_offsetz00_2045/BgL_n2z00_2055); } } 
{ /* ./Cfa/ltype.scm 171 */
long BgL_restz00_2048;
{ /* ./Cfa/ltype.scm 171 */
int BgL_arg2024z00_2049;
BgL_arg2024z00_2049 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 171 */
long BgL_n2z00_2058;
BgL_n2z00_2058 = 
(long)(BgL_arg2024z00_2049); 
BgL_restz00_2048 = 
(BgL_offsetz00_2045%BgL_n2z00_2058); } } 
{ /* ./Cfa/ltype.scm 171 */

{ /* ./Cfa/ltype.scm 171 */
obj_t BgL_bucketz00_2050;
{ /* ./Cfa/ltype.scm 171 */
int BgL_kz00_2060;
BgL_kz00_2060 = 
(int)(BgL_modz00_2046); 
BgL_bucketz00_2050 = 
VECTOR_REF(BgL_arg2017z00_2041,BgL_kz00_2060); } 
{ /* ./Cfa/ltype.scm 171 */
int BgL_kz00_2062;
BgL_kz00_2062 = 
(int)(BgL_restz00_2048); 
BgL_method4656z00_2038 = 
VECTOR_REF(BgL_bucketz00_2050,BgL_kz00_2062); } } } } } } } } } } 
PROCEDURE_ENTRY(BgL_method4656z00_2038)(BgL_method4656z00_2038, 
(obj_t)(BgL_arg5704z00_1720), BEOA); } } 
{ /* ./Cfa/ltype.scm 172 */
BgL_nodez00_bglt BgL_arg5708z00_1721;
BgL_arg5708z00_1721 = 
(((BgL_appzd2lyzd2_bglt)CREF(BgL_nodez00_1716))->BgL_argz00); 
{ /* ./Cfa/ltype.scm 172 */
obj_t BgL_method4656z00_2065;
{ /* ./Cfa/ltype.scm 172 */
BgL_objectz00_bglt BgL_objz00_2066;
BgL_objz00_2066 = 
(BgL_objectz00_bglt)(BgL_arg5708z00_1721); 
{ /* ./Cfa/ltype.scm 172 */
long BgL_objzd2classzd2numz00_2067;
BgL_objzd2classzd2numz00_2067 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2066); 
{ /* ./Cfa/ltype.scm 172 */
obj_t BgL_arg2017z00_2068;
{ /* ./Cfa/ltype.scm 172 */
int BgL_auxz00_3939;
BgL_auxz00_3939 = 
(int)(((long)1)); 
BgL_arg2017z00_2068 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3939); } 
{ /* ./Cfa/ltype.scm 172 */
int BgL_offsetz00_2071;
BgL_offsetz00_2071 = 
(int)(BgL_objzd2classzd2numz00_2067); 
{ /* ./Cfa/ltype.scm 172 */
long BgL_offsetz00_2072;
{ /* ./Cfa/ltype.scm 172 */
long BgL_auxz00_3943;
BgL_auxz00_3943 = 
(long)(BgL_offsetz00_2071); 
BgL_offsetz00_2072 = 
(BgL_auxz00_3943-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 172 */
long BgL_modz00_2073;
{ /* ./Cfa/ltype.scm 172 */
int BgL_arg2028z00_2074;
BgL_arg2028z00_2074 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 172 */
long BgL_n2z00_2082;
BgL_n2z00_2082 = 
(long)(BgL_arg2028z00_2074); 
BgL_modz00_2073 = 
(BgL_offsetz00_2072/BgL_n2z00_2082); } } 
{ /* ./Cfa/ltype.scm 172 */
long BgL_restz00_2075;
{ /* ./Cfa/ltype.scm 172 */
int BgL_arg2024z00_2076;
BgL_arg2024z00_2076 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 172 */
long BgL_n2z00_2085;
BgL_n2z00_2085 = 
(long)(BgL_arg2024z00_2076); 
BgL_restz00_2075 = 
(BgL_offsetz00_2072%BgL_n2z00_2085); } } 
{ /* ./Cfa/ltype.scm 172 */

{ /* ./Cfa/ltype.scm 172 */
obj_t BgL_bucketz00_2077;
{ /* ./Cfa/ltype.scm 172 */
int BgL_kz00_2087;
BgL_kz00_2087 = 
(int)(BgL_modz00_2073); 
BgL_bucketz00_2077 = 
VECTOR_REF(BgL_arg2017z00_2068,BgL_kz00_2087); } 
{ /* ./Cfa/ltype.scm 172 */
int BgL_kz00_2089;
BgL_kz00_2089 = 
(int)(BgL_restz00_2075); 
BgL_method4656z00_2065 = 
VECTOR_REF(BgL_bucketz00_2077,BgL_kz00_2089); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2065)(BgL_method4656z00_2065, 
(obj_t)(BgL_arg5708z00_1721), BEOA);} } } } 
}



/* type-node!-app4668 */
obj_t BGl_typezd2nodez12zd2app4668z12zzcfa_ltypez00(obj_t BgL_envz00_2982, obj_t BgL_nodez00_2983)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 162 */
{ 
BgL_appz00_bglt BgL_nodez00_1709;
{ /* ./Cfa/ltype.scm 163 */
bool_t BgL_auxz00_3960;
BgL_nodez00_1709 = 
(BgL_appz00_bglt)(BgL_nodez00_2983); 
{ /* ./Cfa/ltype.scm 163 */
obj_t BgL_arg5694z00_2034;
BgL_arg5694z00_2034 = 
(((BgL_appz00_bglt)CREF(BgL_nodez00_1709))->BgL_argsz00); 
BgL_auxz00_3960 = 
BGl_typezd2nodeza2z12z62zzcfa_ltypez00(BgL_arg5694z00_2034); } 
return 
BBOOL(BgL_auxz00_3960);} } } 
}



/* type-node!-sequence4666 */
obj_t BGl_typezd2nodez12zd2sequence4666z12zzcfa_ltypez00(obj_t BgL_envz00_2984, obj_t BgL_nodez00_2985)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 155 */
{ 
BgL_sequencez00_bglt BgL_nodez00_1702;
{ /* ./Cfa/ltype.scm 156 */
bool_t BgL_auxz00_3965;
BgL_nodez00_1702 = 
(BgL_sequencez00_bglt)(BgL_nodez00_2985); 
{ /* ./Cfa/ltype.scm 156 */
obj_t BgL_arg5684z00_2031;
BgL_arg5684z00_2031 = 
(((BgL_sequencez00_bglt)CREF(BgL_nodez00_1702))->BgL_nodesz00); 
BgL_auxz00_3965 = 
BGl_typezd2nodeza2z12z62zzcfa_ltypez00(BgL_arg5684z00_2031); } 
return 
BBOOL(BgL_auxz00_3965);} } } 
}



/* type-node!-closure4664 */
obj_t BGl_typezd2nodez12zd2closure4664z12zzcfa_ltypez00(obj_t BgL_envz00_2986, obj_t BgL_nodez00_2987)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 149 */
{ 
BgL_closurez00_bglt BgL_nodez00_1694;
BgL_nodez00_1694 = 
(BgL_closurez00_bglt)(BgL_nodez00_2987); 
{ /* ./Cfa/ltype.scm 150 */
obj_t BgL_arg5674z00_1699;
BgL_arg5674z00_1699 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_nodez00_1694)); 
return 
BGl_internalzd2errorzd2zztools_errorz00(BGl_string6644z00zzcfa_ltypez00, BGl_string6645z00zzcfa_ltypez00, BgL_arg5674z00_1699);} } } 
}



/* type-node!-var4662 */
obj_t BGl_typezd2nodez12zd2var4662z12zzcfa_ltypez00(obj_t BgL_envz00_2988, obj_t BgL_nodez00_2989)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 141 */
{ 
BgL_varz00_bglt BgL_nodez00_1679;
BgL_nodez00_1679 = 
(BgL_varz00_bglt)(BgL_nodez00_2989); 
{ /* ./Cfa/ltype.scm 143 */
bool_t BgL_test5642z00_1683;
{ /* ./Cfa/ltype.scm 143 */
bool_t BgL_test5652z00_1687;
{ /* ./Cfa/ltype.scm 143 */
BgL_variablez00_bglt BgL_arg5662z00_1691;
BgL_arg5662z00_1691 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1679))->BgL_variablez00); 
{ /* ./Cfa/ltype.scm 143 */
obj_t BgL_obj1240z00_1997;
BgL_obj1240z00_1997 = 
(obj_t)(BgL_arg5662z00_1691); 
BgL_test5652z00_1687 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj1240z00_1997, BGl_globalz00zzast_varz00); } } 
if(BgL_test5652z00_1687)
{ /* ./Cfa/ltype.scm 143 */
obj_t BgL_auxz00_3983;obj_t BgL_auxz00_3978;
BgL_auxz00_3983 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Cfa/ltype.scm 143 */
BgL_globalz00_bglt BgL_obj1168z00_1999;
{ /* ./Cfa/ltype.scm 143 */
BgL_variablez00_bglt BgL_auxz00_3979;
BgL_auxz00_3979 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1679))->BgL_variablez00); 
BgL_obj1168z00_1999 = 
(BgL_globalz00_bglt)(BgL_auxz00_3979); } 
BgL_auxz00_3978 = 
(((BgL_globalz00_bglt)CREF(BgL_obj1168z00_1999))->BgL_importz00); } 
BgL_test5642z00_1683 = 
(BgL_auxz00_3978==BgL_auxz00_3983); }  else 
{ /* ./Cfa/ltype.scm 143 */
BgL_test5642z00_1683 = ((bool_t)0); } } 
if(BgL_test5642z00_1683)
{ /* ./Cfa/ltype.scm 144 */
BgL_valuez00_bglt BgL_arg5644z00_1684;BgL_variablez00_bglt BgL_arg5645z00_1685;
{ /* ./Cfa/ltype.scm 144 */
BgL_variablez00_bglt BgL_arg5648z00_1686;
BgL_arg5648z00_1686 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1679))->BgL_variablez00); 
BgL_arg5644z00_1684 = 
(((BgL_variablez00_bglt)CREF(BgL_arg5648z00_1686))->BgL_valuez00); } 
BgL_arg5645z00_1685 = 
(((BgL_varz00_bglt)CREF(BgL_nodez00_1679))->BgL_variablez00); 
{ /* ./Cfa/ltype.scm 144 */
obj_t BgL_method4644z00_2005;
{ /* ./Cfa/ltype.scm 144 */
BgL_objectz00_bglt BgL_objz00_2006;
BgL_objz00_2006 = 
(BgL_objectz00_bglt)(BgL_arg5644z00_1684); 
{ /* ./Cfa/ltype.scm 144 */
long BgL_objzd2classzd2numz00_2007;
BgL_objzd2classzd2numz00_2007 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2006); 
{ /* ./Cfa/ltype.scm 144 */
obj_t BgL_arg2017z00_2008;
{ /* ./Cfa/ltype.scm 144 */
int BgL_auxz00_3992;
BgL_auxz00_3992 = 
(int)(((long)1)); 
BgL_arg2017z00_2008 = 
PROCEDURE_REF(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BgL_auxz00_3992); } 
{ /* ./Cfa/ltype.scm 144 */
int BgL_offsetz00_2011;
BgL_offsetz00_2011 = 
(int)(BgL_objzd2classzd2numz00_2007); 
{ /* ./Cfa/ltype.scm 144 */
long BgL_offsetz00_2012;
{ /* ./Cfa/ltype.scm 144 */
long BgL_auxz00_3996;
BgL_auxz00_3996 = 
(long)(BgL_offsetz00_2011); 
BgL_offsetz00_2012 = 
(BgL_auxz00_3996-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 144 */
long BgL_modz00_2013;
{ /* ./Cfa/ltype.scm 144 */
int BgL_arg2028z00_2014;
BgL_arg2028z00_2014 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 144 */
long BgL_n2z00_2022;
BgL_n2z00_2022 = 
(long)(BgL_arg2028z00_2014); 
BgL_modz00_2013 = 
(BgL_offsetz00_2012/BgL_n2z00_2022); } } 
{ /* ./Cfa/ltype.scm 144 */
long BgL_restz00_2015;
{ /* ./Cfa/ltype.scm 144 */
int BgL_arg2024z00_2016;
BgL_arg2024z00_2016 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 144 */
long BgL_n2z00_2025;
BgL_n2z00_2025 = 
(long)(BgL_arg2024z00_2016); 
BgL_restz00_2015 = 
(BgL_offsetz00_2012%BgL_n2z00_2025); } } 
{ /* ./Cfa/ltype.scm 144 */

{ /* ./Cfa/ltype.scm 144 */
obj_t BgL_bucketz00_2017;
{ /* ./Cfa/ltype.scm 144 */
int BgL_kz00_2027;
BgL_kz00_2027 = 
(int)(BgL_modz00_2013); 
BgL_bucketz00_2017 = 
VECTOR_REF(BgL_arg2017z00_2008,BgL_kz00_2027); } 
{ /* ./Cfa/ltype.scm 144 */
int BgL_kz00_2029;
BgL_kz00_2029 = 
(int)(BgL_restz00_2015); 
BgL_method4644z00_2005 = 
VECTOR_REF(BgL_bucketz00_2017,BgL_kz00_2029); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4644z00_2005)(BgL_method4644z00_2005, 
(obj_t)(BgL_arg5644z00_1684), 
(obj_t)(BgL_arg5645z00_1685), BEOA);} }  else 
{ /* ./Cfa/ltype.scm 143 */
return BFALSE;} } } } 
}



/* type-node!-kwote4660 */
obj_t BGl_typezd2nodez12zd2kwote4660z12zzcfa_ltypez00(obj_t BgL_envz00_2990, obj_t BgL_nodez00_2991)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 135 */
return BUNSPEC;} 
}



/* type-node!-atom4658 */
obj_t BGl_typezd2nodez12zd2atom4658z12zzcfa_ltypez00(obj_t BgL_envz00_2992, obj_t BgL_nodez00_2993)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 129 */
return BUNSPEC;} 
}



/* type-variable!-intern-sfun/Cinfo4654 */
obj_t BGl_typezd2variablez12zd2internzd2sfunzf2Cinfo4654z32zzcfa_ltypez00(obj_t BgL_envz00_2994, obj_t BgL_valuez00_2995, obj_t BgL_variablez00_2996)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 110 */
{ /* ./Cfa/ltype.scm 111 */
obj_t BgL_res6666z00_3027;
BgL_res6666z00_3027 = 
CNST_TABLE_REF(((long)1)); 
return BgL_res6666z00_3027;} } 
}



/* type-variable!-sexit/Cinfo4652 */
obj_t BGl_typezd2variablez12zd2sexitzf2Cinfo4652ze0zzcfa_ltypez00(obj_t BgL_envz00_2997, obj_t BgL_valuez00_2998, obj_t BgL_variablez00_2999)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 100 */
{ /* ./Cfa/ltype.scm 101 */
obj_t BgL_res6667z00_3030;
BgL_res6667z00_3030 = 
CNST_TABLE_REF(((long)1)); 
return BgL_res6667z00_3030;} } 
}



/* type-variable!-cvar/Cinfo4650 */
obj_t BGl_typezd2variablez12zd2cvarzf2Cinfo4650ze0zzcfa_ltypez00(obj_t BgL_envz00_3000, obj_t BgL_valuez00_3001, obj_t BgL_variablez00_3002)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 93 */
{ 
BgL_cvarzf2cinfozf2_bglt BgL_valuez00_1648;obj_t BgL_variablez00_1649;
BgL_valuez00_1648 = 
(BgL_cvarzf2cinfozf2_bglt)(BgL_valuez00_3001); 
BgL_variablez00_1649 = BgL_variablez00_3002; 
{ /* ./Cfa/ltype.scm 94 */
obj_t BgL_arg5605z00_1988;
{ /* ./Cfa/ltype.scm 94 */
BgL_approxz00_bglt BgL_arg5608z00_1989;
{ 
obj_t BgL_auxz00_4016;
{ /* ./Cfa/ltype.scm 94 */
BgL_objectz00_bglt BgL_auxz00_4017;
BgL_auxz00_4017 = 
(BgL_objectz00_bglt)(BgL_valuez00_1648); 
BgL_auxz00_4016 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4017); } 
BgL_arg5608z00_1989 = 
(((BgL_cvarzf2cinfozf2_bglt)CREF(BgL_auxz00_4016))->BgL_approxz00); } 
BgL_arg5605z00_1988 = 
BGl_getzd2approxzd2typez00zzcfa_ltypez00(BgL_arg5608z00_1989); } 
{ /* ./Cfa/ltype.scm 94 */
BgL_variablez00_bglt BgL_variablez00_1991;BgL_typez00_bglt BgL_typez00_1992;
BgL_variablez00_1991 = 
(BgL_variablez00_bglt)(BgL_variablez00_1649); 
BgL_typez00_1992 = 
(BgL_typez00_bglt)(BgL_arg5605z00_1988); 
{ /* ./Cfa/ltype.scm 94 */
bool_t BgL_test4747z00_1993;
{ /* ./Cfa/ltype.scm 94 */
obj_t BgL_auxz00_4024;
BgL_auxz00_4024 = 
(obj_t)(BgL_typez00_1992); 
BgL_test4747z00_1993 = 
(BgL_auxz00_4024==BGl_za2_za2z00zztype_cachez00); } 
if(BgL_test4747z00_1993)
{ /* ./Cfa/ltype.scm 94 */
return BFALSE;}  else 
{ /* ./Cfa/ltype.scm 94 */
BgL_variablez00_bglt BgL_obj1099z00_1994;BgL_typez00_bglt BgL_val1098z00_1995;
BgL_obj1099z00_1994 = BgL_variablez00_1991; 
BgL_val1098z00_1995 = BgL_typez00_1992; 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1099z00_1994))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1098z00_1995), BUNSPEC);} } } } } } 
}



/* type-variable!-scnst/Cinfo4648 */
obj_t BGl_typezd2variablez12zd2scnstzf2Cinfo4648ze0zzcfa_ltypez00(obj_t BgL_envz00_3003, obj_t BgL_valuez00_3004, obj_t BgL_variablez00_3005)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 87 */
{ /* ./Cfa/ltype.scm 88 */
obj_t BgL_res6668z00_3033;
BgL_res6668z00_3033 = 
CNST_TABLE_REF(((long)1)); 
return BgL_res6668z00_3033;} } 
}



/* type-variable!-svar/Cinfo4646 */
obj_t BGl_typezd2variablez12zd2svarzf2Cinfo4646ze0zzcfa_ltypez00(obj_t BgL_envz00_3006, obj_t BgL_valuez00_3007, obj_t BgL_variablez00_3008)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 80 */
{ 
BgL_svarzf2cinfozf2_bglt BgL_valuez00_1633;obj_t BgL_variablez00_1634;
BgL_valuez00_1633 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_valuez00_3007); 
BgL_variablez00_1634 = BgL_variablez00_3008; 
{ /* ./Cfa/ltype.scm 81 */
obj_t BgL_arg5586z00_1979;
{ /* ./Cfa/ltype.scm 81 */
BgL_approxz00_bglt BgL_arg5589z00_1980;
{ 
obj_t BgL_auxz00_4031;
{ /* ./Cfa/ltype.scm 81 */
BgL_objectz00_bglt BgL_auxz00_4032;
BgL_auxz00_4032 = 
(BgL_objectz00_bglt)(BgL_valuez00_1633); 
BgL_auxz00_4031 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4032); } 
BgL_arg5589z00_1980 = 
(((BgL_svarzf2cinfozf2_bglt)CREF(BgL_auxz00_4031))->BgL_approxz00); } 
BgL_arg5586z00_1979 = 
BGl_getzd2approxzd2typez00zzcfa_ltypez00(BgL_arg5589z00_1980); } 
{ /* ./Cfa/ltype.scm 81 */
BgL_variablez00_bglt BgL_variablez00_1982;BgL_typez00_bglt BgL_typez00_1983;
BgL_variablez00_1982 = 
(BgL_variablez00_bglt)(BgL_variablez00_1634); 
BgL_typez00_1983 = 
(BgL_typez00_bglt)(BgL_arg5586z00_1979); 
{ /* ./Cfa/ltype.scm 81 */
bool_t BgL_test4747z00_1984;
{ /* ./Cfa/ltype.scm 81 */
obj_t BgL_auxz00_4039;
BgL_auxz00_4039 = 
(obj_t)(BgL_typez00_1983); 
BgL_test4747z00_1984 = 
(BgL_auxz00_4039==BGl_za2_za2z00zztype_cachez00); } 
if(BgL_test4747z00_1984)
{ /* ./Cfa/ltype.scm 81 */
return BFALSE;}  else 
{ /* ./Cfa/ltype.scm 81 */
BgL_variablez00_bglt BgL_obj1099z00_1985;BgL_typez00_bglt BgL_val1098z00_1986;
BgL_obj1099z00_1985 = BgL_variablez00_1982; 
BgL_val1098z00_1986 = BgL_typez00_1983; 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1099z00_1985))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1098z00_1986), BUNSPEC);} } } } } } 
}



/* type-variable! */
obj_t BGl_typezd2variablez12zc0zzcfa_ltypez00(BgL_valuez00_bglt BgL_valuez00_4, BgL_variablez00_bglt BgL_variablez00_5)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 71 */
{ /* ./Cfa/ltype.scm 71 */
obj_t BgL_method4644z00_2852;
{ /* ./Cfa/ltype.scm 71 */
BgL_objectz00_bglt BgL_objz00_2853;
BgL_objz00_2853 = 
(BgL_objectz00_bglt)(BgL_valuez00_4); 
{ /* ./Cfa/ltype.scm 71 */
long BgL_objzd2classzd2numz00_2854;
BgL_objzd2classzd2numz00_2854 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2853); 
{ /* ./Cfa/ltype.scm 71 */
obj_t BgL_arg2017z00_2855;
{ /* ./Cfa/ltype.scm 71 */
int BgL_auxz00_4047;
BgL_auxz00_4047 = 
(int)(((long)1)); 
BgL_arg2017z00_2855 = 
PROCEDURE_REF(BGl_typezd2variablez12zd2envz12zzcfa_ltypez00, BgL_auxz00_4047); } 
{ /* ./Cfa/ltype.scm 71 */
int BgL_offsetz00_2858;
BgL_offsetz00_2858 = 
(int)(BgL_objzd2classzd2numz00_2854); 
{ /* ./Cfa/ltype.scm 71 */
long BgL_offsetz00_2859;
{ /* ./Cfa/ltype.scm 71 */
long BgL_auxz00_4051;
BgL_auxz00_4051 = 
(long)(BgL_offsetz00_2858); 
BgL_offsetz00_2859 = 
(BgL_auxz00_4051-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 71 */
long BgL_modz00_2860;
{ /* ./Cfa/ltype.scm 71 */
int BgL_arg2028z00_2861;
BgL_arg2028z00_2861 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 71 */
long BgL_n2z00_2869;
BgL_n2z00_2869 = 
(long)(BgL_arg2028z00_2861); 
BgL_modz00_2860 = 
(BgL_offsetz00_2859/BgL_n2z00_2869); } } 
{ /* ./Cfa/ltype.scm 71 */
long BgL_restz00_2862;
{ /* ./Cfa/ltype.scm 71 */
int BgL_arg2024z00_2863;
BgL_arg2024z00_2863 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 71 */
long BgL_n2z00_2872;
BgL_n2z00_2872 = 
(long)(BgL_arg2024z00_2863); 
BgL_restz00_2862 = 
(BgL_offsetz00_2859%BgL_n2z00_2872); } } 
{ /* ./Cfa/ltype.scm 71 */

{ /* ./Cfa/ltype.scm 71 */
obj_t BgL_bucketz00_2864;
{ /* ./Cfa/ltype.scm 71 */
int BgL_kz00_2874;
BgL_kz00_2874 = 
(int)(BgL_modz00_2860); 
BgL_bucketz00_2864 = 
VECTOR_REF(BgL_arg2017z00_2855,BgL_kz00_2874); } 
{ /* ./Cfa/ltype.scm 71 */
int BgL_kz00_2876;
BgL_kz00_2876 = 
(int)(BgL_restz00_2862); 
BgL_method4644z00_2852 = 
VECTOR_REF(BgL_bucketz00_2864,BgL_kz00_2876); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4644z00_2852)(BgL_method4644z00_2852, 
(obj_t)(BgL_valuez00_4), 
(obj_t)(BgL_variablez00_5), BEOA);} } 
}



/* _type-variable!6068 */
obj_t BGl__typezd2variablez126068zc0zzcfa_ltypez00(obj_t BgL_envz00_2915, obj_t BgL_valuez00_2916, obj_t BgL_variablez00_2917)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 71 */
return 
BGl_typezd2variablez12zc0zzcfa_ltypez00(
(BgL_valuez00_bglt)(BgL_valuez00_2916), 
(BgL_variablez00_bglt)(BgL_variablez00_2917));} 
}



/* type-variable!-default4643 */
obj_t BGl_typezd2variablez12zd2default4643z12zzcfa_ltypez00(BgL_valuez00_bglt BgL_valuez00_6, BgL_variablez00_bglt BgL_variablez00_7)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 15 */
{ /* ./Cfa/ltype.scm 72 */
BgL_typez00_bglt BgL_typez00_2877;
BgL_typez00_2877 = 
(((BgL_variablez00_bglt)CREF(BgL_variablez00_7))->BgL_typez00); 
{ /* ./Cfa/ltype.scm 72 */
bool_t BgL_test5975z00_2878;
{ /* ./Cfa/ltype.scm 72 */
obj_t BgL_auxz00_4072;
BgL_auxz00_4072 = 
(obj_t)(BgL_typez00_2877); 
BgL_test5975z00_2878 = 
(BgL_auxz00_4072==BGl_za2procedureza2z00zztype_cachez00); } 
if(BgL_test5975z00_2878)
{ /* ./Cfa/ltype.scm 72 */
bool_t BgL_test4747z00_2882;
{ /* ./Cfa/ltype.scm 72 */
obj_t BgL_auxz00_4076;
BgL_auxz00_4076 = 
(obj_t)(BgL_typez00_2877); 
BgL_test4747z00_2882 = 
(BgL_auxz00_4076==BGl_za2_za2z00zztype_cachez00); } 
if(BgL_test4747z00_2882)
{ /* ./Cfa/ltype.scm 72 */
return BFALSE;}  else 
{ /* ./Cfa/ltype.scm 72 */
BgL_variablez00_bglt BgL_obj1099z00_2883;BgL_typez00_bglt BgL_val1098z00_2884;
BgL_obj1099z00_2883 = BgL_variablez00_7; 
BgL_val1098z00_2884 = BgL_typez00_2877; 
return 
((((BgL_variablez00_bglt)CREF(BgL_obj1099z00_2883))->BgL_typez00) = ((BgL_typez00_bglt)BgL_val1098z00_2884), BUNSPEC);} }  else 
{ /* ./Cfa/ltype.scm 72 */
return 
CNST_TABLE_REF(((long)1));} } } } 
}



/* _type-variable!-default4643 */
obj_t BGl__typezd2variablez12zd2default4643z12zzcfa_ltypez00(obj_t BgL_envz00_3009, obj_t BgL_valuez00_3010, obj_t BgL_variablez00_3011)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 15 */
return 
BGl_typezd2variablez12zd2default4643z12zzcfa_ltypez00(
(BgL_valuez00_bglt)(BgL_valuez00_3010), 
(BgL_variablez00_bglt)(BgL_variablez00_3011));} 
}



/* type-node! */
obj_t BGl_typezd2nodez12zc0zzcfa_ltypez00(BgL_nodez00_bglt BgL_nodez00_20)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 124 */
{ /* ./Cfa/ltype.scm 124 */
obj_t BgL_method4656z00_2885;
{ /* ./Cfa/ltype.scm 124 */
BgL_objectz00_bglt BgL_objz00_2886;
BgL_objz00_2886 = 
(BgL_objectz00_bglt)(BgL_nodez00_20); 
{ /* ./Cfa/ltype.scm 124 */
long BgL_objzd2classzd2numz00_2887;
BgL_objzd2classzd2numz00_2887 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2886); 
{ /* ./Cfa/ltype.scm 124 */
obj_t BgL_arg2017z00_2888;
{ /* ./Cfa/ltype.scm 124 */
int BgL_auxz00_4087;
BgL_auxz00_4087 = 
(int)(((long)1)); 
BgL_arg2017z00_2888 = 
PROCEDURE_REF(BGl_typezd2nodez12zd2envz12zzcfa_ltypez00, BgL_auxz00_4087); } 
{ /* ./Cfa/ltype.scm 124 */
int BgL_offsetz00_2891;
BgL_offsetz00_2891 = 
(int)(BgL_objzd2classzd2numz00_2887); 
{ /* ./Cfa/ltype.scm 124 */
long BgL_offsetz00_2892;
{ /* ./Cfa/ltype.scm 124 */
long BgL_auxz00_4091;
BgL_auxz00_4091 = 
(long)(BgL_offsetz00_2891); 
BgL_offsetz00_2892 = 
(BgL_auxz00_4091-OBJECT_TYPE); } 
{ /* ./Cfa/ltype.scm 124 */
long BgL_modz00_2893;
{ /* ./Cfa/ltype.scm 124 */
int BgL_arg2028z00_2894;
BgL_arg2028z00_2894 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 124 */
long BgL_n2z00_2902;
BgL_n2z00_2902 = 
(long)(BgL_arg2028z00_2894); 
BgL_modz00_2893 = 
(BgL_offsetz00_2892/BgL_n2z00_2902); } } 
{ /* ./Cfa/ltype.scm 124 */
long BgL_restz00_2895;
{ /* ./Cfa/ltype.scm 124 */
int BgL_arg2024z00_2896;
BgL_arg2024z00_2896 = 
(int)(((long)8)); 
{ /* ./Cfa/ltype.scm 124 */
long BgL_n2z00_2905;
BgL_n2z00_2905 = 
(long)(BgL_arg2024z00_2896); 
BgL_restz00_2895 = 
(BgL_offsetz00_2892%BgL_n2z00_2905); } } 
{ /* ./Cfa/ltype.scm 124 */

{ /* ./Cfa/ltype.scm 124 */
obj_t BgL_bucketz00_2897;
{ /* ./Cfa/ltype.scm 124 */
int BgL_kz00_2907;
BgL_kz00_2907 = 
(int)(BgL_modz00_2893); 
BgL_bucketz00_2897 = 
VECTOR_REF(BgL_arg2017z00_2888,BgL_kz00_2907); } 
{ /* ./Cfa/ltype.scm 124 */
int BgL_kz00_2909;
BgL_kz00_2909 = 
(int)(BgL_restz00_2895); 
BgL_method4656z00_2885 = 
VECTOR_REF(BgL_bucketz00_2897,BgL_kz00_2909); } } } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method4656z00_2885)(BgL_method4656z00_2885, 
(obj_t)(BgL_nodez00_20), BEOA);} } 
}



/* _type-node!6070 */
obj_t BGl__typezd2nodez126070zc0zzcfa_ltypez00(obj_t BgL_envz00_2918, obj_t BgL_nodez00_2919)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 124 */
return 
BGl_typezd2nodez12zc0zzcfa_ltypez00(
(BgL_nodez00_bglt)(BgL_nodez00_2919));} 
}



/* type-node!-default4655 */
obj_t BGl_typezd2nodez12zd2default4655z12zzcfa_ltypez00(BgL_nodez00_bglt BgL_nodez00_21)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 15 */
{ /* ./Cfa/ltype.scm 15 */
obj_t BgL_procz00_2910;obj_t BgL_objectz00_2912;
BgL_procz00_2910 = 
CNST_TABLE_REF(((long)2)); 
BgL_objectz00_2912 = 
(obj_t)(BgL_nodez00_21); 
FAILURE(BgL_procz00_2910,BGl_string6646z00zzcfa_ltypez00,BgL_objectz00_2912);} } 
}



/* _type-node!-default4655 */
obj_t BGl__typezd2nodez12zd2default4655z12zzcfa_ltypez00(obj_t BgL_envz00_3012, obj_t BgL_nodez00_3013)
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 15 */
return 
BGl_typezd2nodez12zd2default4655z12zzcfa_ltypez00(
(BgL_nodez00_bglt)(BgL_nodez00_3013));} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcfa_ltypez00()
{ AN_OBJECT;
{ /* ./Cfa/ltype.scm 15 */
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zztype_cachez00(((long)25848), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zztools_errorz00(((long)25566), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zzcfa_infoz00(((long)2565), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zzcfa_info2z00(((long)0), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zzcfa_info3z00(((long)0), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zzcfa_setz00(((long)21480), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zzcfa_tvectorz00(((long)20474), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zzcfa_closurez00(((long)55906), "cfa_ltype"); 
BGl_modulezd2initializa7ationz75zztvector_tvectorz00(((long)32501), "cfa_ltype"); 
return 
BGl_modulezd2initializa7ationz75zzcnst_nodez00(((long)44711), "cfa_ltype");} 
}

