/*===========================================================================*/
/*   (Coerce/pproto.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 Coerce/pproto.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;


BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzcoerce_pprotoz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_speekz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_pptypez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t make_string(int, unsigned char);
static obj_t BGl_methodzd2initzd2zzcoerce_pprotoz00();
extern obj_t BGl_verbosez00zztools_speekz00(obj_t, obj_t);
static obj_t BGl__resetzd2ppmargez12zc0zzcoerce_pprotoz00(obj_t);
BGL_IMPORT bool_t BGl_zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl__deczd2ppmargez12zc0zzcoerce_pprotoz00(obj_t);
extern obj_t BGl_za2verboseza2z00zzengine_paramz00;
extern obj_t BGl_shapez00zztools_shapez00(obj_t);
static obj_t BGl__pfunctionzd2proto1732zd2zzcoerce_pprotoz00(obj_t, obj_t, obj_t);
static obj_t BGl_oldzd2margezd2stringz00zzcoerce_pprotoz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_deczd2ppmargez12zc0zzcoerce_pprotoz00();
extern obj_t BGl_variablezd2typezd2ze3stringze3zztype_pptypez00(BgL_variablez00_bglt);
static obj_t BGl__pvariablezd2proto1734zd2zzcoerce_pprotoz00(obj_t, obj_t, obj_t);
extern obj_t BGl_functionzd2typezd2ze3stringze3zztype_pptypez00(BgL_variablez00_bglt);
static obj_t BGl__inczd2ppmargez12zc0zzcoerce_pprotoz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_pfunctionzd2protozd2zzcoerce_pprotoz00(long, BgL_variablez00_bglt);
BGL_EXPORTED_DECL obj_t BGl_pvariablezd2protozd2zzcoerce_pprotoz00(long, BgL_variablez00_bglt);
BGL_EXPORTED_DECL obj_t BGl_resetzd2ppmargez12zc0zzcoerce_pprotoz00();
BGL_EXPORTED_DECL obj_t BGl_inczd2ppmargez12zc0zzcoerce_pprotoz00();
static obj_t BGl_importedzd2moduleszd2initz00zzcoerce_pprotoz00();
static obj_t BGl_requirezd2initializa7ationz75zzcoerce_pprotoz00 = BUNSPEC;
static long BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00;
static obj_t BGl_libraryzd2moduleszd2initz00zzcoerce_pprotoz00();
static obj_t BGl_toplevelzd2initzd2zzcoerce_pprotoz00();
static long BGl_oldzd2margezd2zzcoerce_pprotoz00;
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_inczd2ppmargez12zd2envz12zzcoerce_pprotoz00, BgL_bgl__incza7d2ppmargeza712za7c0za7za7coerce_pprotoza7001768z00, BGl__inczd2ppmargez12zc0zzcoerce_pprotoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_resetzd2ppmargez12zd2envz12zzcoerce_pprotoz00, BgL_bgl__resetza7d2ppmargeza712za7c0za7za7coerce_pprotoza7001769z00, BGl__resetzd2ppmargez12zc0zzcoerce_pprotoz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_pfunctionzd2protozd2envz00zzcoerce_pprotoz00, BgL_bgl__pfunctionza7d2proto1732za7d2za7za7coerce_pprotoza7001770za7, BGl__pfunctionzd2proto1732zd2zzcoerce_pprotoz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_pvariablezd2protozd2envz00zzcoerce_pprotoz00, BgL_bgl__pvariableza7d2proto1734za7d2za7za7coerce_pprotoza7001771za7, BGl__pvariablezd2proto1734zd2zzcoerce_pprotoz00, 0L, 2 );
DEFINE_STRING( BGl_string1758z00zzcoerce_pprotoz00, BgL_bgl_string1758za700za7za7coerce_pprotoza7001772z00, " : ", 3 );
DEFINE_STRING( BGl_string1757z00zzcoerce_pprotoz00, BgL_bgl_string1757za700za7za7coerce_pprotoza7001773z00, "", 0 );
DEFINE_EXPORT_PROCEDURE( BGl_deczd2ppmargez12zd2envz12zzcoerce_pprotoz00, BgL_bgl__decza7d2ppmargeza712za7c0za7za7coerce_pprotoza7001774z00, BGl__deczd2ppmargez12zc0zzcoerce_pprotoz00, 0L, 0 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzcoerce_pprotoz00(long BgL_checksumz00_448, char * BgL_fromz00_449)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzcoerce_pprotoz00))
{ 
BGl_requirezd2initializa7ationz75zzcoerce_pprotoz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzcoerce_pprotoz00(); 
BGl_importedzd2moduleszd2initz00zzcoerce_pprotoz00(); 
BGl_toplevelzd2initzd2zzcoerce_pprotoz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzcoerce_pprotoz00()
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "coerce_pproto"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "coerce_pproto"); 
return BUNSPEC;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzcoerce_pprotoz00()
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 15 */
BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00 = ((long)8); 
BGl_oldzd2margezd2zzcoerce_pprotoz00 = ((long)-1); 
return ( 
BGl_oldzd2margezd2stringz00zzcoerce_pprotoz00 = BGl_string1757z00zzcoerce_pprotoz00, BUNSPEC) ;} 
}



/* reset-ppmarge! */
BGL_EXPORTED_DEF obj_t BGl_resetzd2ppmargez12zc0zzcoerce_pprotoz00()
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 31 */
return ( 
BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00 = ((long)8), BUNSPEC) ;} 
}



/* _reset-ppmarge! */
obj_t BGl__resetzd2ppmargez12zc0zzcoerce_pprotoz00(obj_t BgL_envz00_439)
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 31 */
return 
BGl_resetzd2ppmargez12zc0zzcoerce_pprotoz00();} 
}



/* inc-ppmarge! */
BGL_EXPORTED_DEF obj_t BGl_inczd2ppmargez12zc0zzcoerce_pprotoz00()
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 37 */
{ /* ./Coerce/pproto.scm 38 */
long BgL_za72za7_420;
BgL_za72za7_420 = BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00; 
return ( 
BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00 = 
(((long)1)+BgL_za72za7_420), BUNSPEC) ;} } 
}



/* _inc-ppmarge! */
obj_t BGl__inczd2ppmargez12zc0zzcoerce_pprotoz00(obj_t BgL_envz00_440)
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 37 */
return 
BGl_inczd2ppmargez12zc0zzcoerce_pprotoz00();} 
}



/* dec-ppmarge! */
BGL_EXPORTED_DEF obj_t BGl_deczd2ppmargez12zc0zzcoerce_pprotoz00()
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 43 */
{ /* ./Coerce/pproto.scm 44 */
long BgL_za71za7_421;
BgL_za71za7_421 = BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00; 
return ( 
BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00 = 
(BgL_za71za7_421-((long)1)), BUNSPEC) ;} } 
}



/* _dec-ppmarge! */
obj_t BGl__deczd2ppmargez12zc0zzcoerce_pprotoz00(obj_t BgL_envz00_441)
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 43 */
return 
BGl_deczd2ppmargez12zc0zzcoerce_pprotoz00();} 
}



/* pfunction-proto */
BGL_EXPORTED_DEF obj_t BGl_pfunctionzd2protozd2zzcoerce_pprotoz00(long BgL_levelz00_1, BgL_variablez00_bglt BgL_variablez00_2)
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 56 */
{ /* ./Coerce/pproto.scm 57 */
obj_t BgL_margez00_277;
{ /* ./Coerce/pproto.scm 57 */
bool_t BgL_test1593z00_289;
{ /* ./Coerce/pproto.scm 57 */
long BgL_n1z00_423;long BgL_n2z00_424;
BgL_n1z00_423 = BGl_oldzd2margezd2zzcoerce_pprotoz00; 
BgL_n2z00_424 = BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00; 
BgL_test1593z00_289 = 
(BgL_n1z00_423==BgL_n2z00_424); } 
if(BgL_test1593z00_289)
{ /* ./Coerce/pproto.scm 57 */
BgL_margez00_277 = BGl_oldzd2margezd2stringz00zzcoerce_pprotoz00; }  else 
{ /* ./Coerce/pproto.scm 59 */
obj_t BgL_margez00_290;
{ /* ./Coerce/pproto.scm 59 */
obj_t BgL_list1595z00_291;
{ /* ./Coerce/pproto.scm 59 */
obj_t BgL_auxz00_465;
BgL_auxz00_465 = 
BCHAR(((unsigned char)' ')); 
BgL_list1595z00_291 = 
MAKE_PAIR(BgL_auxz00_465, BNIL); } 
{ /* ./Coerce/pproto.scm 59 */
obj_t BgL_res1727z00_431;
{ /* ./Coerce/pproto.scm 59 */
int BgL_kz00_425;
BgL_kz00_425 = 
(int)(BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00); 
{ /* ./Coerce/pproto.scm 59 */
obj_t BgL_arg1236z00_428;
BgL_arg1236z00_428 = 
CAR(BgL_list1595z00_291); 
{ /* ./Coerce/pproto.scm 59 */
unsigned char BgL_auxz00_470;
BgL_auxz00_470 = 
(unsigned char)CCHAR(BgL_arg1236z00_428); 
BgL_res1727z00_431 = 
make_string(BgL_kz00_425, BgL_auxz00_470); } } } 
BgL_margez00_290 = BgL_res1727z00_431; } } 
BGl_oldzd2margezd2zzcoerce_pprotoz00 = BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00; 
BGl_oldzd2margezd2stringz00zzcoerce_pprotoz00 = BgL_margez00_290; 
BgL_margez00_277 = BgL_margez00_290; } } 
{ /* ./Coerce/pproto.scm 63 */
bool_t BgL_test1564z00_279;
BgL_test1564z00_279 = 
BGl_zc3zd3z10zz__r4_numbers_6_5z00(
BINT(BgL_levelz00_1), BGl_za2verboseza2z00zzengine_paramz00, BNIL); 
if(BgL_test1564z00_279)
{ /* ./Coerce/pproto.scm 65 */
obj_t BgL_arg1566z00_280;obj_t BgL_arg1569z00_282;
BgL_arg1566z00_280 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_variablez00_2)); 
BgL_arg1569z00_282 = 
BGl_functionzd2typezd2ze3stringze3zztype_pptypez00(BgL_variablez00_2); 
{ /* ./Coerce/pproto.scm 63 */
obj_t BgL_list1571z00_283;
{ /* ./Coerce/pproto.scm 63 */
obj_t BgL_arg1573z00_284;
{ /* ./Coerce/pproto.scm 63 */
obj_t BgL_arg1576z00_285;
{ /* ./Coerce/pproto.scm 63 */
obj_t BgL_arg1579z00_286;
{ /* ./Coerce/pproto.scm 63 */
obj_t BgL_arg1586z00_287;
{ /* ./Coerce/pproto.scm 63 */
obj_t BgL_auxz00_479;
BgL_auxz00_479 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1586z00_287 = 
MAKE_PAIR(BgL_auxz00_479, BNIL); } 
BgL_arg1579z00_286 = 
MAKE_PAIR(BgL_arg1569z00_282, BgL_arg1586z00_287); } 
BgL_arg1576z00_285 = 
MAKE_PAIR(BGl_string1758z00zzcoerce_pprotoz00, BgL_arg1579z00_286); } 
BgL_arg1573z00_284 = 
MAKE_PAIR(BgL_arg1566z00_280, BgL_arg1576z00_285); } 
BgL_list1571z00_283 = 
MAKE_PAIR(BgL_margez00_277, BgL_arg1573z00_284); } 
return 
BGl_verbosez00zztools_speekz00(
BINT(BgL_levelz00_1), BgL_list1571z00_283);} }  else 
{ /* ./Coerce/pproto.scm 63 */
return BUNSPEC;} } } } 
}



/* _pfunction-proto1732 */
obj_t BGl__pfunctionzd2proto1732zd2zzcoerce_pprotoz00(obj_t BgL_envz00_442, obj_t BgL_levelz00_443, obj_t BgL_variablez00_444)
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 56 */
return 
BGl_pfunctionzd2protozd2zzcoerce_pprotoz00(
(long)CINT(BgL_levelz00_443), 
(BgL_variablez00_bglt)(BgL_variablez00_444));} 
}



/* pvariable-proto */
BGL_EXPORTED_DEF obj_t BGl_pvariablezd2protozd2zzcoerce_pprotoz00(long BgL_levelz00_3, BgL_variablez00_bglt BgL_variablez00_4)
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 72 */
{ /* ./Coerce/pproto.scm 73 */
obj_t BgL_margez00_292;
{ /* ./Coerce/pproto.scm 73 */
obj_t BgL_list1625z00_304;
{ /* ./Coerce/pproto.scm 73 */
obj_t BgL_auxz00_491;
BgL_auxz00_491 = 
BCHAR(((unsigned char)' ')); 
BgL_list1625z00_304 = 
MAKE_PAIR(BgL_auxz00_491, BNIL); } 
{ /* ./Coerce/pproto.scm 73 */
obj_t BgL_res1728z00_438;
{ /* ./Coerce/pproto.scm 73 */
int BgL_kz00_432;
BgL_kz00_432 = 
(int)(BGl_za2ppzd2margeza2zd2zzcoerce_pprotoz00); 
{ /* ./Coerce/pproto.scm 73 */
obj_t BgL_arg1236z00_435;
BgL_arg1236z00_435 = 
CAR(BgL_list1625z00_304); 
{ /* ./Coerce/pproto.scm 73 */
unsigned char BgL_auxz00_496;
BgL_auxz00_496 = 
(unsigned char)CCHAR(BgL_arg1236z00_435); 
BgL_res1728z00_438 = 
make_string(BgL_kz00_432, BgL_auxz00_496); } } } 
BgL_margez00_292 = BgL_res1728z00_438; } } 
{ /* ./Coerce/pproto.scm 74 */
bool_t BgL_test1598z00_294;
BgL_test1598z00_294 = 
BGl_zc3zd3z10zz__r4_numbers_6_5z00(
BINT(BgL_levelz00_3), BGl_za2verboseza2z00zzengine_paramz00, BNIL); 
if(BgL_test1598z00_294)
{ /* ./Coerce/pproto.scm 76 */
obj_t BgL_arg1600z00_295;obj_t BgL_arg1603z00_297;
BgL_arg1600z00_295 = 
BGl_shapez00zztools_shapez00(
(obj_t)(BgL_variablez00_4)); 
BgL_arg1603z00_297 = 
BGl_variablezd2typezd2ze3stringze3zztype_pptypez00(BgL_variablez00_4); 
{ /* ./Coerce/pproto.scm 74 */
obj_t BgL_list1605z00_298;
{ /* ./Coerce/pproto.scm 74 */
obj_t BgL_arg1607z00_299;
{ /* ./Coerce/pproto.scm 74 */
obj_t BgL_arg1610z00_300;
{ /* ./Coerce/pproto.scm 74 */
obj_t BgL_arg1613z00_301;
{ /* ./Coerce/pproto.scm 74 */
obj_t BgL_arg1617z00_302;
{ /* ./Coerce/pproto.scm 74 */
obj_t BgL_auxz00_505;
BgL_auxz00_505 = 
BCHAR(((unsigned char)'\n')); 
BgL_arg1617z00_302 = 
MAKE_PAIR(BgL_auxz00_505, BNIL); } 
BgL_arg1613z00_301 = 
MAKE_PAIR(BgL_arg1603z00_297, BgL_arg1617z00_302); } 
BgL_arg1610z00_300 = 
MAKE_PAIR(BGl_string1758z00zzcoerce_pprotoz00, BgL_arg1613z00_301); } 
BgL_arg1607z00_299 = 
MAKE_PAIR(BgL_arg1600z00_295, BgL_arg1610z00_300); } 
BgL_list1605z00_298 = 
MAKE_PAIR(BgL_margez00_292, BgL_arg1607z00_299); } 
return 
BGl_verbosez00zztools_speekz00(
BINT(BgL_levelz00_3), BgL_list1605z00_298);} }  else 
{ /* ./Coerce/pproto.scm 74 */
return BUNSPEC;} } } } 
}



/* _pvariable-proto1734 */
obj_t BGl__pvariablezd2proto1734zd2zzcoerce_pprotoz00(obj_t BgL_envz00_445, obj_t BgL_levelz00_446, obj_t BgL_variablez00_447)
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 72 */
return 
BGl_pvariablezd2protozd2zzcoerce_pprotoz00(
(long)CINT(BgL_levelz00_446), 
(BgL_variablez00_bglt)(BgL_variablez00_447));} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzcoerce_pprotoz00()
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzcoerce_pprotoz00()
{ AN_OBJECT;
{ /* ./Coerce/pproto.scm 15 */
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "coerce_pproto"); 
BGl_modulezd2initializa7ationz75zztools_speekz00(((long)23537), "coerce_pproto"); 
BGl_modulezd2initializa7ationz75zztools_shapez00(((long)30833), "coerce_pproto"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "coerce_pproto"); 
BGl_modulezd2initializa7ationz75zztype_pptypez00(((long)32803), "coerce_pproto"); 
return 
BGl_modulezd2initializa7ationz75zzast_varz00(((long)44246), "coerce_pproto");} 
}

