/*===========================================================================*/
/*   (Cfa/show.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/show.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;


static obj_t BGl_shapezd2reshapedzd2local4085z00zzcfa_showz00(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zzcfa_showz00();
extern obj_t BGl_scnstzf2Cinfozf2zzcfa_infoz00;
extern obj_t BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00;
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_showzd2cfazd2resultsz00zzcfa_showz00(obj_t);
static obj_t BGl_cfazd2variablezd2shapez00zzcfa_showz00(obj_t, obj_t);
extern obj_t BGl_za2cfazd2stampza2zd2zzcfa_iteratez00;
static obj_t BGl_shapezd2reshapedzd2global4087z00zzcfa_showz00(obj_t, obj_t);
static obj_t BGl__showzd2cfazd2resultsz00zzcfa_showz00(obj_t, obj_t);
static obj_t BGl__showzd2cfazd2nbzd2iterationszd2zzcfa_showz00(obj_t);
extern obj_t BGl_cvarzf2Cinfozf2zzcfa_infoz00;
BGL_EXPORTED_DECL obj_t BGl_showzd2cfazd2nbzd2iterationszd2zzcfa_showz00();
BGL_IMPORT obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_IMPORT obj_t open_output_string();
static obj_t BGl_importedzd2moduleszd2initz00zzcfa_showz00();
extern obj_t BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00;
extern obj_t BGl_reshapedzd2localzd2zzcfa_infoz00;
BGL_IMPORT obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_getzd2allocszd2zzcfa_collectz00();
static obj_t BGl_toplevelzd2initzd2zzcfa_showz00();
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcfa_showz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_tracez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzwrite_schemez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_infoz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_info2z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_approxz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_collectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzcfa_iteratez00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_reshapedzd2globalzd2zzcfa_infoz00;
extern obj_t BGl_svarzf2Cinfozf2zzcfa_infoz00;
BGL_IMPORT obj_t close_output_port(obj_t);
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
BGL_IMPORT obj_t string_to_symbol(char *);
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
BGL_IMPORT obj_t display_string(obj_t, obj_t);
extern obj_t BGl_cfunzf2Cinfozf2zzcfa_infoz00;
static obj_t BGl_requirezd2initializa7ationz75zzcfa_showz00 = BUNSPEC;
static obj_t BGl_libraryzd2moduleszd2initz00zzcfa_showz00();
BGL_IMPORT obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_STRING( BGl_string4995z00zzcfa_showz00, BgL_bgl_string4995za700za7za7cfa_showza7005008z00, " ", 1 );
DEFINE_STRING( BGl_string4994z00zzcfa_showz00, BgL_bgl_string4994za700za7za7cfa_showza7005009z00, "      (", 7 );
DEFINE_STRING( BGl_string4993z00zzcfa_showz00, BgL_bgl_string4993za700za7za7cfa_showza7005010z00, " Iterations)", 12 );
DEFINE_EXPORT_PROCEDURE( BGl_showzd2cfazd2nbzd2iterationszd2envz00zzcfa_showz00, BgL_bgl__showza7d2cfaza7d2nbza7d2iterationsza7d2za7za7cfa_showza7005011za7, BGl__showzd2cfazd2nbzd2iterationszd2zzcfa_showz00, 0L, 0 );
extern obj_t BGl_shapezd2envzd2zztools_shapez00;
DEFINE_EXPORT_PROCEDURE( BGl_showzd2cfazd2resultszd2envzd2zzcfa_showz00, BgL_bgl__showza7d2cfaza7d2resultsza700za7za7cfa_showza7005012z00, BGl__showzd2cfazd2resultsz00zzcfa_showz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4996z00zzcfa_showz00, BgL_bgl_shapeza7d2reshapedza7d2local4085za700za7za7cfa_showza7005013z00, BGl_shapezd2reshapedzd2local4085z00zzcfa_showz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc4997z00zzcfa_showz00, BgL_bgl_shapeza7d2reshapedza7d2global4087za700za7za7cfa_showza7005014z00, BGl_shapezd2reshapedzd2global4087z00zzcfa_showz00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcfa_showz00(long BgL_checksumz00_1527, char * BgL_fromz00_1528)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcfa_showz00))
{ 
BGl_requirezd2initializa7ationz75zzcfa_showz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcfa_showz00(); 
BGl_importedzd2moduleszd2initz00zzcfa_showz00(); 
BGl_methodzd2initzd2zzcfa_showz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcfa_showz00()
{ AN_OBJECT;
{ /* ./Cfa/show.scm 15 */
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "cfa_show"); 
BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(((long)0), "cfa_show"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "cfa_show"); 
return BUNSPEC;} 
}



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



/* show-cfa-nb-iterations */
BGL_EXPORTED_DEF obj_t BGl_showzd2cfazd2nbzd2iterationszd2zzcfa_showz00()
{ AN_OBJECT;
{ /* ./Cfa/show.scm 35 */
{ /* ./Cfa/show.scm 36 */
long BgL_arg4091z00_932;
{ /* ./Cfa/show.scm 36 */
long BgL_za72za7_1494;
BgL_za72za7_1494 = 
(long)CINT(BGl_za2cfazd2stampza2zd2zzcfa_iteratez00); 
BgL_arg4091z00_932 = 
(((long)1)+BgL_za72za7_1494); } 
{ /* ./Cfa/show.scm 36 */
obj_t BgL_list4094z00_934;
{ /* ./Cfa/show.scm 36 */
obj_t BgL_arg4096z00_935;
{ /* ./Cfa/show.scm 36 */
obj_t BgL_arg4099z00_936;
{ /* ./Cfa/show.scm 36 */
obj_t BgL_arg4102z00_937;
{ /* ./Cfa/show.scm 36 */
obj_t BgL_auxz00_1540;
BgL_auxz00_1540 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg4102z00_937 = 
MAKE_PAIR(BgL_auxz00_1540, BNIL); } 
BgL_arg4099z00_936 = 
MAKE_PAIR(BGl_string4993z00zzcfa_showz00, BgL_arg4102z00_937); } 
{ /* ./Cfa/show.scm 36 */
obj_t BgL_auxz00_1544;
BgL_auxz00_1544 = 
BINT(BgL_arg4091z00_932); 
BgL_arg4096z00_935 = 
MAKE_PAIR(BgL_auxz00_1544, BgL_arg4099z00_936); } } 
BgL_list4094z00_934 = 
MAKE_PAIR(BGl_string4994z00zzcfa_showz00, BgL_arg4096z00_935); } 
return 
BGl_verbosez00zztools_speekz00(
BINT(((long)2)), BgL_list4094z00_934);} } } 
}



/* _show-cfa-nb-iterations */
obj_t BGl__showzd2cfazd2nbzd2iterationszd2zzcfa_showz00(obj_t BgL_envz00_1516)
{ AN_OBJECT;
{ /* ./Cfa/show.scm 35 */
return 
BGl_showzd2cfazd2nbzd2iterationszd2zzcfa_showz00();} 
}



/* show-cfa-results */
BGL_EXPORTED_DEF obj_t BGl_showzd2cfazd2resultsz00zzcfa_showz00(obj_t BgL_globalsz00_1)
{ AN_OBJECT;
{ /* ./Cfa/show.scm 41 */
{ /* ./Cfa/show.scm 46 */
bool_t BgL_test4106z00_938;
{ /* ./Cfa/show.scm 46 */
obj_t BgL_arg4108z00_939;
BgL_arg4108z00_939 = 
BGl_getzd2allocszd2zzcfa_collectz00(); 
BgL_test4106z00_938 = 
PAIRP(BgL_arg4108z00_939); } 
if(BgL_test4106z00_938)
{ /* ./Cfa/show.scm 46 */BNIL; }  else 
{ /* ./Cfa/show.scm 46 */BFALSE; } } 
{ 
obj_t BgL_l4082z00_940;
{ /* ./Cfa/show.scm 49 */
obj_t BgL_arg4112z00_942;
BgL_arg4112z00_942 = 
BGl_getzd2allocszd2zzcfa_collectz00(); 
BgL_l4082z00_940 = BgL_arg4112z00_942; 
BgL_forzd2each4083zd2_941:
if(
PAIRP(BgL_l4082z00_940))
{ /* ./Cfa/show.scm 47 */
{ 
obj_t BgL_l4082z00_1557;
BgL_l4082z00_1557 = 
CDR(BgL_l4082z00_940); 
BgL_l4082z00_940 = BgL_l4082z00_1557; 
goto BgL_forzd2each4083zd2_941;} }  else 
{ /* ./Cfa/show.scm 47 */((bool_t)1); } } } 
return BNIL;} 
}



/* _show-cfa-results */
obj_t BGl__showzd2cfazd2resultsz00zzcfa_showz00(obj_t BgL_envz00_1517, obj_t BgL_globalsz00_1518)
{ AN_OBJECT;
{ /* ./Cfa/show.scm 41 */
return 
BGl_showzd2cfazd2resultsz00zzcfa_showz00(BgL_globalsz00_1518);} 
}



/* cfa-variable-shape */
obj_t BGl_cfazd2variablezd2shapez00zzcfa_showz00(obj_t BgL_variablez00_4, obj_t BgL_portz00_5)
{ AN_OBJECT;
{ /* ./Cfa/show.scm 93 */
{ /* ./Cfa/show.scm 94 */
BgL_valuez00_bglt BgL_valuez00_946;
{ /* ./Cfa/show.scm 94 */
BgL_variablez00_bglt BgL_obj1100z00_1499;
BgL_obj1100z00_1499 = 
(BgL_variablez00_bglt)(BgL_variablez00_4); 
BgL_valuez00_946 = 
(((BgL_variablez00_bglt)CREF(BgL_obj1100z00_1499))->BgL_valuez00); } 
{ /* ./Cfa/show.scm 96 */
bool_t BgL_test4122z00_947;
{ /* ./Cfa/show.scm 96 */
obj_t BgL_obj2901z00_1500;
BgL_obj2901z00_1500 = 
(obj_t)(BgL_valuez00_946); 
BgL_test4122z00_947 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2901z00_1500, BGl_svarzf2Cinfozf2zzcfa_infoz00); } 
if(BgL_test4122z00_947)
{ /* ./Cfa/show.scm 96 */
display_string(BGl_string4995z00zzcfa_showz00, BgL_portz00_5); 
{ /* ./Cfa/show.scm 98 */
obj_t BgL_arg4125z00_948;
{ /* ./Cfa/show.scm 98 */
BgL_approxz00_bglt BgL_arg4128z00_949;
{ /* ./Cfa/show.scm 98 */
BgL_svarzf2cinfozf2_bglt BgL_obj2902z00_1501;
BgL_obj2902z00_1501 = 
(BgL_svarzf2cinfozf2_bglt)(BgL_valuez00_946); 
{ 
obj_t BgL_auxz00_1567;
{ /* ./Cfa/show.scm 98 */
BgL_objectz00_bglt BgL_auxz00_1568;
BgL_auxz00_1568 = 
(BgL_objectz00_bglt)(BgL_obj2902z00_1501); 
BgL_auxz00_1567 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1568); } 
BgL_arg4128z00_949 = 
(((BgL_svarzf2cinfozf2_bglt)CREF(BgL_auxz00_1567))->BgL_approxz00); } } 
BgL_arg4125z00_948 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg4128z00_949)); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4125z00_948, BgL_portz00_5); } }  else 
{ /* ./Cfa/show.scm 99 */
bool_t BgL_test4131z00_950;
{ /* ./Cfa/show.scm 99 */
obj_t BgL_obj2916z00_1502;
BgL_obj2916z00_1502 = 
(obj_t)(BgL_valuez00_946); 
BgL_test4131z00_950 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2916z00_1502, BGl_cvarzf2Cinfozf2zzcfa_infoz00); } 
if(BgL_test4131z00_950)
{ /* ./Cfa/show.scm 99 */
display_string(BGl_string4995z00zzcfa_showz00, BgL_portz00_5); 
{ /* ./Cfa/show.scm 101 */
obj_t BgL_arg4134z00_951;
{ /* ./Cfa/show.scm 101 */
BgL_approxz00_bglt BgL_arg4137z00_952;
{ /* ./Cfa/show.scm 101 */
BgL_cvarzf2cinfozf2_bglt BgL_obj2917z00_1503;
BgL_obj2917z00_1503 = 
(BgL_cvarzf2cinfozf2_bglt)(BgL_valuez00_946); 
{ 
obj_t BgL_auxz00_1580;
{ /* ./Cfa/show.scm 101 */
BgL_objectz00_bglt BgL_auxz00_1581;
BgL_auxz00_1581 = 
(BgL_objectz00_bglt)(BgL_obj2917z00_1503); 
BgL_auxz00_1580 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1581); } 
BgL_arg4137z00_952 = 
(((BgL_cvarzf2cinfozf2_bglt)CREF(BgL_auxz00_1580))->BgL_approxz00); } } 
BgL_arg4134z00_951 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg4137z00_952)); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4134z00_951, BgL_portz00_5); } }  else 
{ /* ./Cfa/show.scm 102 */
bool_t BgL_test4140z00_953;
{ /* ./Cfa/show.scm 102 */
obj_t BgL_obj2872z00_1504;
BgL_obj2872z00_1504 = 
(obj_t)(BgL_valuez00_946); 
BgL_test4140z00_953 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2872z00_1504, BGl_scnstzf2Cinfozf2zzcfa_infoz00); } 
if(BgL_test4140z00_953)
{ /* ./Cfa/show.scm 102 */
display_string(BGl_string4995z00zzcfa_showz00, BgL_portz00_5); 
{ /* ./Cfa/show.scm 104 */
obj_t BgL_arg4143z00_954;
{ /* ./Cfa/show.scm 104 */
BgL_approxz00_bglt BgL_arg4146z00_955;
{ /* ./Cfa/show.scm 104 */
BgL_scnstzf2cinfozf2_bglt BgL_obj2874z00_1505;
BgL_obj2874z00_1505 = 
(BgL_scnstzf2cinfozf2_bglt)(BgL_valuez00_946); 
{ 
obj_t BgL_auxz00_1593;
{ /* ./Cfa/show.scm 104 */
BgL_objectz00_bglt BgL_auxz00_1594;
BgL_auxz00_1594 = 
(BgL_objectz00_bglt)(BgL_obj2874z00_1505); 
BgL_auxz00_1593 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1594); } 
BgL_arg4146z00_955 = 
(((BgL_scnstzf2cinfozf2_bglt)CREF(BgL_auxz00_1593))->BgL_approxz00); } } 
BgL_arg4143z00_954 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg4146z00_955)); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4143z00_954, BgL_portz00_5); } }  else 
{ /* ./Cfa/show.scm 105 */
bool_t BgL_test4149z00_956;
{ /* ./Cfa/show.scm 105 */
obj_t BgL_obj2821z00_1506;
BgL_obj2821z00_1506 = 
(obj_t)(BgL_valuez00_946); 
BgL_test4149z00_956 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2821z00_1506, BGl_internzd2sfunzf2Cinfoz20zzcfa_infoz00); } 
if(BgL_test4149z00_956)
{ /* ./Cfa/show.scm 105 */
display_string(BGl_string4995z00zzcfa_showz00, BgL_portz00_5); 
{ /* ./Cfa/show.scm 107 */
obj_t BgL_arg4152z00_957;
{ /* ./Cfa/show.scm 107 */
BgL_approxz00_bglt BgL_arg4155z00_958;
{ /* ./Cfa/show.scm 107 */
BgL_internzd2sfunzf2cinfoz20_bglt BgL_obj2822z00_1507;
BgL_obj2822z00_1507 = 
(BgL_internzd2sfunzf2cinfoz20_bglt)(BgL_valuez00_946); 
{ 
obj_t BgL_auxz00_1606;
{ /* ./Cfa/show.scm 107 */
BgL_objectz00_bglt BgL_auxz00_1607;
BgL_auxz00_1607 = 
(BgL_objectz00_bglt)(BgL_obj2822z00_1507); 
BgL_auxz00_1606 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1607); } 
BgL_arg4155z00_958 = 
(((BgL_internzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1606))->BgL_approxz00); } } 
BgL_arg4152z00_957 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg4155z00_958)); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4152z00_957, BgL_portz00_5); } }  else 
{ /* ./Cfa/show.scm 108 */
bool_t BgL_test4158z00_959;
{ /* ./Cfa/show.scm 108 */
obj_t BgL_obj2759z00_1508;
BgL_obj2759z00_1508 = 
(obj_t)(BgL_valuez00_946); 
BgL_test4158z00_959 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2759z00_1508, BGl_externzd2sfunzf2Cinfoz20zzcfa_infoz00); } 
if(BgL_test4158z00_959)
{ /* ./Cfa/show.scm 108 */
display_string(BGl_string4995z00zzcfa_showz00, BgL_portz00_5); 
{ /* ./Cfa/show.scm 110 */
obj_t BgL_arg4161z00_960;
{ /* ./Cfa/show.scm 110 */
BgL_approxz00_bglt BgL_arg4164z00_961;
{ /* ./Cfa/show.scm 110 */
BgL_externzd2sfunzf2cinfoz20_bglt BgL_obj2760z00_1509;
BgL_obj2760z00_1509 = 
(BgL_externzd2sfunzf2cinfoz20_bglt)(BgL_valuez00_946); 
{ 
obj_t BgL_auxz00_1619;
{ /* ./Cfa/show.scm 110 */
BgL_objectz00_bglt BgL_auxz00_1620;
BgL_auxz00_1620 = 
(BgL_objectz00_bglt)(BgL_obj2760z00_1509); 
BgL_auxz00_1619 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1620); } 
BgL_arg4164z00_961 = 
(((BgL_externzd2sfunzf2cinfoz20_bglt)CREF(BgL_auxz00_1619))->BgL_approxz00); } } 
BgL_arg4161z00_960 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg4164z00_961)); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4161z00_960, BgL_portz00_5); } }  else 
{ /* ./Cfa/show.scm 111 */
bool_t BgL_test4167z00_962;
{ /* ./Cfa/show.scm 111 */
obj_t BgL_obj2709z00_1510;
BgL_obj2709z00_1510 = 
(obj_t)(BgL_valuez00_946); 
BgL_test4167z00_962 = 
BGl_iszd2azf3z21zz__objectz00(BgL_obj2709z00_1510, BGl_cfunzf2Cinfozf2zzcfa_infoz00); } 
if(BgL_test4167z00_962)
{ /* ./Cfa/show.scm 111 */
display_string(BGl_string4995z00zzcfa_showz00, BgL_portz00_5); 
{ /* ./Cfa/show.scm 113 */
obj_t BgL_arg4170z00_963;
{ /* ./Cfa/show.scm 113 */
BgL_approxz00_bglt BgL_arg4173z00_964;
{ /* ./Cfa/show.scm 113 */
BgL_cfunzf2cinfozf2_bglt BgL_obj2710z00_1511;
BgL_obj2710z00_1511 = 
(BgL_cfunzf2cinfozf2_bglt)(BgL_valuez00_946); 
{ 
obj_t BgL_auxz00_1632;
{ /* ./Cfa/show.scm 113 */
BgL_objectz00_bglt BgL_auxz00_1633;
BgL_auxz00_1633 = 
(BgL_objectz00_bglt)(BgL_obj2710z00_1511); 
BgL_auxz00_1632 = 
BGL_OBJECT_WIDENING(BgL_auxz00_1633); } 
BgL_arg4173z00_964 = 
(((BgL_cfunzf2cinfozf2_bglt)CREF(BgL_auxz00_1632))->BgL_approxz00); } } 
BgL_arg4170z00_963 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_arg4173z00_964)); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4170z00_963, BgL_portz00_5); } }  else 
{ /* ./Cfa/show.scm 111 */BFALSE; } } } } } } } 
{ /* ./Cfa/show.scm 114 */
obj_t BgL_arg4183z00_965;
BgL_arg4183z00_965 = 
close_output_port(BgL_portz00_5); 
{ /* ./Cfa/show.scm 114 */
char * BgL_auxz00_1641;
BgL_auxz00_1641 = 
BSTRING_TO_STRING(BgL_arg4183z00_965); 
return 
string_to_symbol(BgL_auxz00_1641);} } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcfa_showz00()
{ AN_OBJECT;
{ /* ./Cfa/show.scm 15 */
BGl_addzd2methodz12zc0zz__objectz00(BGl_shapezd2envzd2zztools_shapez00, BGl_reshapedzd2localzd2zzcfa_infoz00, BGl_proc4996z00zzcfa_showz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_shapezd2envzd2zztools_shapez00, BGl_reshapedzd2globalzd2zzcfa_infoz00, BGl_proc4997z00zzcfa_showz00);} 
}



/* shape-reshaped-global4087 */
obj_t BGl_shapezd2reshapedzd2global4087z00zzcfa_showz00(obj_t BgL_envz00_1523, obj_t BgL_globalz00_1524)
{ AN_OBJECT;
{ /* ./Cfa/show.scm 85 */
{ 
BgL_reshapedzd2globalzd2_bglt BgL_globalz00_1486;
BgL_globalz00_1486 = 
(BgL_reshapedzd2globalzd2_bglt)(BgL_globalz00_1524); 
{ 

{ /* ./Cfa/show.scm 86 */
obj_t BgL_portz00_1489;
BgL_portz00_1489 = 
open_output_string(); 
{ /* ./Cfa/show.scm 87 */
obj_t BgL_arg4911z00_1490;
{ /* ./Cfa/show.scm 85 */
obj_t BgL_nextzd2method4086zd2_1491;
BgL_nextzd2method4086zd2_1491 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_globalz00_1486), BGl_shapezd2envzd2zztools_shapez00, BGl_reshapedzd2globalzd2zzcfa_infoz00); 
{ /* ./Cfa/show.scm 85 */
bool_t BgL_test4916z00_1492;
BgL_test4916z00_1492 = 
PROCEDUREP(BgL_nextzd2method4086zd2_1491); 
if(BgL_test4916z00_1492)
{ /* ./Cfa/show.scm 85 */
BgL_arg4911z00_1490 = 
PROCEDURE_ENTRY(BgL_nextzd2method4086zd2_1491)(BgL_nextzd2method4086zd2_1491, 
(obj_t)(BgL_globalz00_1486), BEOA); }  else 
{ /* ./Cfa/show.scm 85 */
BgL_arg4911z00_1490 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_globalz00_1486)); } } } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4911z00_1490, BgL_portz00_1489); } 
return 
BGl_cfazd2variablezd2shapez00zzcfa_showz00(
(obj_t)(BgL_globalz00_1486), BgL_portz00_1489);} } } } 
}



/* shape-reshaped-local4085 */
obj_t BGl_shapezd2reshapedzd2local4085z00zzcfa_showz00(obj_t BgL_envz00_1525, obj_t BgL_localz00_1526)
{ AN_OBJECT;
{ /* ./Cfa/show.scm 77 */
{ 
BgL_reshapedzd2localzd2_bglt BgL_localz00_1479;
BgL_localz00_1479 = 
(BgL_reshapedzd2localzd2_bglt)(BgL_localz00_1526); 
{ 

{ /* ./Cfa/show.scm 78 */
obj_t BgL_portz00_1482;
BgL_portz00_1482 = 
open_output_string(); 
{ /* ./Cfa/show.scm 79 */
obj_t BgL_arg4899z00_1483;
{ /* ./Cfa/show.scm 77 */
obj_t BgL_nextzd2method4084zd2_1484;
BgL_nextzd2method4084zd2_1484 = 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_localz00_1479), BGl_shapezd2envzd2zztools_shapez00, BGl_reshapedzd2localzd2zzcfa_infoz00); 
{ /* ./Cfa/show.scm 77 */
bool_t BgL_test4904z00_1485;
BgL_test4904z00_1485 = 
PROCEDUREP(BgL_nextzd2method4084zd2_1484); 
if(BgL_test4904z00_1485)
{ /* ./Cfa/show.scm 77 */
BgL_arg4899z00_1483 = 
PROCEDURE_ENTRY(BgL_nextzd2method4084zd2_1484)(BgL_nextzd2method4084zd2_1484, 
(obj_t)(BgL_localz00_1479), BEOA); }  else 
{ /* ./Cfa/show.scm 77 */
BgL_arg4899z00_1483 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_localz00_1479)); } } } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg4899z00_1483, BgL_portz00_1482); } 
return 
BGl_cfazd2variablezd2shapez00zzcfa_showz00(
(obj_t)(BgL_localz00_1479), BgL_portz00_1482);} } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcfa_showz00()
{ AN_OBJECT;
{ /* ./Cfa/show.scm 15 */
BGl_modulezd2initializa7ationz75zztools_tracez00(((long)59211), "cfa_show"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "cfa_show"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "cfa_show"); 
BGl_modulezd2initializa7ationz75zzwrite_schemez00(((long)49065), "cfa_show"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "cfa_show"); 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "cfa_show"); 
BGl_modulezd2initializa7ationz75zzast_nodez00(((long)50868), "cfa_show"); 
BGl_modulezd2initializa7ationz75zzcfa_infoz00(((long)2565), "cfa_show"); 
BGl_modulezd2initializa7ationz75zzcfa_info2z00(((long)0), "cfa_show"); 
BGl_modulezd2initializa7ationz75zzcfa_approxz00(((long)43477), "cfa_show"); 
BGl_modulezd2initializa7ationz75zzcfa_collectz00(((long)25521), "cfa_show"); 
return 
BGl_modulezd2initializa7ationz75zzcfa_iteratez00(((long)17824), "cfa_show");} 
}

