/*===========================================================================*/
/*   (Ieee/char.scm)                                                         */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Ieee/char.scm -indent -o objs/obj_s/Ieee/char.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

#include <bigloo.h>
#include <signal.h>

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__charzd2ze3integer1709z31zz__r4_characters_6_6z00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_charzd2ze3integerz31zz__r4_characters_6_6z00(unsigned char);
static obj_t BGl__charzf3zf3zz__r4_characters_6_6z00(obj_t, obj_t);
BGL_EXPORTED_DECL unsigned char BGl_charzd2orzd2zz__r4_characters_6_6z00(unsigned char, unsigned char);
static obj_t BGl__charzd2whitespacezf31703z21zz__r4_characters_6_6z00(obj_t, obj_t);
static obj_t BGl__charzd2upperzd2casezf31705zf3zz__r4_characters_6_6z00(obj_t, obj_t);
static obj_t BGl__charzd2cizd3zf31689zf2zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_charzd2cizc3zd3zf3z31zz__r4_characters_6_6z00(unsigned char, unsigned char);
static obj_t BGl__integerzd2ze3char1711z31zz__r4_characters_6_6z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r4_characters_6_6z00();
static obj_t BGl__charzd2or1719zd2zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
static obj_t BGl__charzd3zf31679z20zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
extern obj_t string_to_symbol(char *);
static obj_t BGl__charzc3zd3zf31685ze3zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
static obj_t BGl__charzd2downcase1717zd2zz__r4_characters_6_6z00(obj_t, obj_t);
static obj_t BGl__charzd2and1721zd2zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_charzd2whitespacezf3z21zz__r4_characters_6_6z00(unsigned char);
BGL_EXPORTED_DECL bool_t BGl_charzf3zf3zz__r4_characters_6_6z00(obj_t);
static obj_t BGl__charzd2not1723zd2zz__r4_characters_6_6z00(obj_t, obj_t);
static obj_t BGl_symbol2199z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2198z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2197z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2206z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2196z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2205z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2195z00zz__r4_characters_6_6z00 = BUNSPEC;
BGL_EXPORTED_DECL unsigned char BGl_charzd2downcasezd2zz__r4_characters_6_6z00(unsigned char);
static obj_t BGl_symbol2204z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2194z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2203z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl__charze3zd3zf31687zc3zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_charzc3zf3z30zz__r4_characters_6_6z00(unsigned char, unsigned char);
static obj_t BGl_symbol2202z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2192z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2201z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2200z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2189z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2188z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2187z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2186z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2185z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2184z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2183z00zz__r4_characters_6_6z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_charzd3zf3z20zz__r4_characters_6_6z00(unsigned char, unsigned char);
static obj_t BGl_symbol2182z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl__charzd2cizc3zd3zf31695z31zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2181z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2180z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2179z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2178z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2177z00zz__r4_characters_6_6z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_charzd2alphabeticzf3z21zz__r4_characters_6_6z00(unsigned char);
static obj_t BGl_symbol2176z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl__charzd2cize3zf31693zc2zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2175z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2174z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2173z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_characters_6_6z00();
BGL_EXPORTED_DECL bool_t BGl_charze3zf3z10zz__r4_characters_6_6z00(unsigned char, unsigned char);
static obj_t BGl_symbol2172z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2171z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2170z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2169z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2168z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2167z00zz__r4_characters_6_6z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_charze3zd3zf3zc3zz__r4_characters_6_6z00(unsigned char, unsigned char);
static obj_t BGl_symbol2166z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2165z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2164z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2163z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2162z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2161z00zz__r4_characters_6_6z00 = BUNSPEC;
BGL_EXPORTED_DECL unsigned char BGl_charzd2andzd2zz__r4_characters_6_6z00(unsigned char, unsigned char);
static obj_t BGl_symbol2160z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2159z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2156z00zz__r4_characters_6_6z00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2155z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl_symbol2154z00zz__r4_characters_6_6z00 = BUNSPEC;
static obj_t BGl__charzd2cize3zd3zf31697z11zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_characters_6_6z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_charzd2upperzd2casezf3zf3zz__r4_characters_6_6z00(unsigned char);
static obj_t BGl__charzd2lowerzd2casezf31707zf3zz__r4_characters_6_6z00(obj_t, obj_t);
static obj_t BGl__charzc3zf31681z30zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
static obj_t BGl__charzd2upcase1715zd2zz__r4_characters_6_6z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_charzd2cizc3zf3ze2zz__r4_characters_6_6z00(unsigned char, unsigned char);
BGL_EXPORTED_DECL unsigned char BGl_charzd2upcasezd2zz__r4_characters_6_6z00(unsigned char);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
BGL_EXPORTED_DECL bool_t BGl_charzd2cizd3zf3zf2zz__r4_characters_6_6z00(unsigned char, unsigned char);
BGL_EXPORTED_DECL bool_t BGl_charzd2cize3zf3zc2zz__r4_characters_6_6z00(unsigned char, unsigned char);
BGL_EXPORTED_DECL unsigned char BGl_charzd2notzd2zz__r4_characters_6_6z00(unsigned char);
BGL_EXPORTED_DECL bool_t BGl_charzd2numericzf3z21zz__r4_characters_6_6z00(unsigned char);
BGL_EXPORTED_DECL bool_t BGl_charzd2cize3zd3zf3z11zz__r4_characters_6_6z00(unsigned char, unsigned char);
static obj_t BGl__charzd2cizc3zf31691ze2zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_charzd2lowerzd2casezf3zf3zz__r4_characters_6_6z00(unsigned char);
BGL_EXPORTED_DECL bool_t BGl_charzc3zd3zf3ze3zz__r4_characters_6_6z00(unsigned char, unsigned char);
BGL_EXPORTED_DECL unsigned char BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(long);
BGL_EXPORTED_DECL unsigned char BGl_integerzd2ze3charzd2urze3zz__r4_characters_6_6z00(long);
static obj_t BGl__charzd2alphabeticzf31699z21zz__r4_characters_6_6z00(obj_t, obj_t);
static obj_t BGl__integerzd2ze3charzd2ur1713ze3zz__r4_characters_6_6z00(obj_t, obj_t);
static obj_t BGl__charze3zf31683z10zz__r4_characters_6_6z00(obj_t, obj_t, obj_t);
static obj_t BGl__charzd2numericzf31701z21zz__r4_characters_6_6z00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_charzd2cizc3zd3zf3zd2envze3zz__r4_characters_6_6z00, BgL_bgl__charza7d2ciza7c3za7d3za7f31695za731za7za7__r4_characters_6_6za7002235z00, BGl__charzd2cizc3zd3zf31695z31zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_charze3zd3zf3zd2envz11zz__r4_characters_6_6z00, BgL_bgl__charza7e3za7d3za7f31687za7c3za7za7__r4_characters_6_6za7002236za7, BGl__charze3zd3zf31687zc3zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd3zf3zd2envzf2zz__r4_characters_6_6z00, BgL_bgl__charza7d3za7f31679za720za7za7__r4_characters_6_6za7002237z00, BGl__charzd3zf31679z20zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2cize3zd3zf3zd2envzc3zz__r4_characters_6_6z00, BgL_bgl__charza7d2ciza7e3za7d3za7f31697za711za7za7__r4_characters_6_6za7002238z00, BGl__charzd2cize3zd3zf31697z11zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2andzd2envz00zz__r4_characters_6_6z00, BgL_bgl__charza7d2and1721za7d2za7za7__r4_characters_6_6za7002239za7, BGl__charzd2and1721zd2zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2notzd2envz00zz__r4_characters_6_6z00, BgL_bgl__charza7d2not1723za7d2za7za7__r4_characters_6_6za7002240za7, BGl__charzd2not1723zd2zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2cize3zf3zd2envz10zz__r4_characters_6_6z00, BgL_bgl__charza7d2ciza7e3za7f31693za7c2za7za7__r4_characters_6_6za7002241za7, BGl__charzd2cize3zf31693zc2zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_integerzd2ze3charzd2urzd2envz31zz__r4_characters_6_6z00, BgL_bgl__integerza7d2za7e3charza7d2ur1713za7e3za7za7__r4_characters_6_6za7002242za7, BGl__integerzd2ze3charzd2ur1713ze3zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2downcasezd2envz00zz__r4_characters_6_6z00, BgL_bgl__charza7d2downcase1717za7d2za7za7__r4_characters_6_6za7002243za7, BGl__charzd2downcase1717zd2zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_charzc3zf3zd2envze2zz__r4_characters_6_6z00, BgL_bgl__charza7c3za7f31681za730za7za7__r4_characters_6_6za7002244z00, BGl__charzc3zf31681z30zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_STRING( BGl_string2193z00zz__r4_characters_6_6z00, BgL_bgl_string2193za700za7za7__r4_characters_6_6za7002245z00, "long", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2whitespacezf3zd2envzf3zz__r4_characters_6_6z00, BgL_bgl__charza7d2whitespaceza7f31703za721za7za7__r4_characters_6_6za7002246z00, BGl__charzd2whitespacezf31703z21zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_STRING( BGl_string2191z00zz__r4_characters_6_6z00, BgL_bgl_string2191za700za7za7__r4_characters_6_6za7002247z00, "integer out of range", 20 );
DEFINE_STRING( BGl_string2190z00zz__r4_characters_6_6z00, BgL_bgl_string2190za700za7za7__r4_characters_6_6za7002248z00, "integer->char", 13 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2cizc3zf3zd2envz30zz__r4_characters_6_6z00, BgL_bgl__charza7d2ciza7c3za7f31691za7e2za7za7__r4_characters_6_6za7002249za7, BGl__charzd2cizc3zf31691ze2zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_STRING( BGl_string2158z00zz__r4_characters_6_6z00, BgL_bgl_string2158za700za7za7__r4_characters_6_6za7002250z00, "/tmp/bigloo/runtime/./Ieee/char.scm", 35 );
DEFINE_STRING( BGl_string2157z00zz__r4_characters_6_6z00, BgL_bgl_string2157za700za7za7__r4_characters_6_6za7002251z00, "uchar", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2alphabeticzf3zd2envzf3zz__r4_characters_6_6z00, BgL_bgl__charza7d2alphabeticza7f31699za721za7za7__r4_characters_6_6za7002252z00, BGl__charzd2alphabeticzf31699z21zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2lowerzd2casezf3zd2envz21zz__r4_characters_6_6z00, BgL_bgl__charza7d2lowerza7d2caseza7f31707za7f3za7za7__r4_characters_6_6za7002253za7, BGl__charzd2lowerzd2casezf31707zf3zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2upcasezd2envz00zz__r4_characters_6_6z00, BgL_bgl__charza7d2upcase1715za7d2za7za7__r4_characters_6_6za7002254za7, BGl__charzd2upcase1715zd2zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2ze3integerzd2envze3zz__r4_characters_6_6z00, BgL_bgl__charza7d2za7e3integer1709za731za7za7__r4_characters_6_6za7002255z00, BGl__charzd2ze3integer1709z31zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2upperzd2casezf3zd2envz21zz__r4_characters_6_6z00, BgL_bgl__charza7d2upperza7d2caseza7f31705za7f3za7za7__r4_characters_6_6za7002256za7, BGl__charzd2upperzd2casezf31705zf3zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_charze3zf3zd2envzc2zz__r4_characters_6_6z00, BgL_bgl__charza7e3za7f31683za710za7za7__r4_characters_6_6za7002257z00, BGl__charze3zf31683z10zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2numericzf3zd2envzf3zz__r4_characters_6_6z00, BgL_bgl__charza7d2numericza7f31701za721za7za7__r4_characters_6_6za7002258z00, BGl__charzd2numericzf31701z21zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_charzf3zd2envz21zz__r4_characters_6_6z00, BgL_bgl__charza7f3za7f3za7za7__r4_characters_6_6za7002259za7, BGl__charzf3zf3zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_integerzd2ze3charzd2envze3zz__r4_characters_6_6z00, BgL_bgl__integerza7d2za7e3char1711za731za7za7__r4_characters_6_6za7002260z00, BGl__integerzd2ze3char1711z31zz__r4_characters_6_6z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_charzc3zd3zf3zd2envz31zz__r4_characters_6_6z00, BgL_bgl__charza7c3za7d3za7f31685za7e3za7za7__r4_characters_6_6za7002261za7, BGl__charzc3zd3zf31685ze3zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2orzd2envz00zz__r4_characters_6_6z00, BgL_bgl__charza7d2or1719za7d2za7za7__r4_characters_6_6za7002262za7, BGl__charzd2or1719zd2zz__r4_characters_6_6z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_charzd2cizd3zf3zd2envz20zz__r4_characters_6_6z00, BgL_bgl__charza7d2ciza7d3za7f31689za7f2za7za7__r4_characters_6_6za7002263za7, BGl__charzd2cizd3zf31689zf2zz__r4_characters_6_6z00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long BgL_checksumz00_783, char * BgL_fromz00_784)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_characters_6_6z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_characters_6_6z00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__r4_characters_6_6z00(); 
BGl_importedzd2moduleszd2initz00zz__r4_characters_6_6z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_characters_6_6z00()
{ AN_OBJECT;
{ /* ./Ieee/char.scm 14 */
BGl_symbol2154z00zz__r4_characters_6_6z00 = 
string_to_symbol("char?"); 
BGl_symbol2155z00zz__r4_characters_6_6z00 = 
string_to_symbol("char=?"); 
BGl_symbol2156z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char=?1679"); 
BGl_symbol2159z00zz__r4_characters_6_6z00 = 
string_to_symbol("char<?"); 
BGl_symbol2160z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char<?1681"); 
BGl_symbol2161z00zz__r4_characters_6_6z00 = 
string_to_symbol("char>?"); 
BGl_symbol2162z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char>?1683"); 
BGl_symbol2163z00zz__r4_characters_6_6z00 = 
string_to_symbol("char<=?"); 
BGl_symbol2164z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char<=?1685"); 
BGl_symbol2165z00zz__r4_characters_6_6z00 = 
string_to_symbol("char>=?"); 
BGl_symbol2166z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char>=?1687"); 
BGl_symbol2167z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-ci=?"); 
BGl_symbol2168z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-ci=?1689"); 
BGl_symbol2169z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-ci<?"); 
BGl_symbol2170z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-ci<?1691"); 
BGl_symbol2171z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-ci>?"); 
BGl_symbol2172z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-ci>?1693"); 
BGl_symbol2173z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-ci<=?"); 
BGl_symbol2174z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-ci<=?1695"); 
BGl_symbol2175z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-ci>=?"); 
BGl_symbol2176z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-ci>=?1697"); 
BGl_symbol2177z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-alphabetic?"); 
BGl_symbol2178z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-alphabetic?1699"); 
BGl_symbol2179z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-numeric?"); 
BGl_symbol2180z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-numeric?1701"); 
BGl_symbol2181z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-whitespace?"); 
BGl_symbol2182z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-whitespace?1703"); 
BGl_symbol2183z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-upper-case?"); 
BGl_symbol2184z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-upper-case?1705"); 
BGl_symbol2185z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-lower-case?"); 
BGl_symbol2186z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-lower-case?1707"); 
BGl_symbol2187z00zz__r4_characters_6_6z00 = 
string_to_symbol("char->integer"); 
BGl_symbol2188z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char->integer1709"); 
BGl_symbol2189z00zz__r4_characters_6_6z00 = 
string_to_symbol("integer->char"); 
BGl_symbol2192z00zz__r4_characters_6_6z00 = 
string_to_symbol("_integer->char1711"); 
BGl_symbol2194z00zz__r4_characters_6_6z00 = 
string_to_symbol("integer->char-ur"); 
BGl_symbol2195z00zz__r4_characters_6_6z00 = 
string_to_symbol("_integer->char-ur1713"); 
BGl_symbol2196z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-upcase"); 
BGl_symbol2197z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-upcase1715"); 
BGl_symbol2198z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-downcase"); 
BGl_symbol2199z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-downcase1717"); 
BGl_symbol2200z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-or"); 
BGl_symbol2201z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-or1719"); 
BGl_symbol2202z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-and"); 
BGl_symbol2203z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-and1721"); 
BGl_symbol2204z00zz__r4_characters_6_6z00 = 
string_to_symbol("char-not"); 
BGl_symbol2205z00zz__r4_characters_6_6z00 = 
string_to_symbol("_char-not1723"); 
return ( 
BGl_symbol2206z00zz__r4_characters_6_6z00 = 
string_to_symbol("%import@__r4_characters_6_6"), BUNSPEC) ;} 
}



/* char? */
BGL_EXPORTED_DEF bool_t BGl_charzf3zf3zz__r4_characters_6_6z00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 129 */
{ /* ./Ieee/char.scm 130 */
obj_t BgL_symbol1578z00_633;
BgL_symbol1578z00_633 = BGl_symbol2154z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 130 */

PUSH_TRACE(BgL_symbol1578z00_633); BUNSPEC; 
{ /* ./Ieee/char.scm 130 */
bool_t BgL_aux1577z00_634;
BgL_aux1577z00_634 = 
CHARP(BgL_objz00_1); 
POP_TRACE(); 
return BgL_aux1577z00_634;} } } } 
}



/* _char? */
obj_t BGl__charzf3zf3zz__r4_characters_6_6z00(obj_t BgL_envz00_501, obj_t BgL_objz00_502)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 129 */
{ /* ./Ieee/char.scm 130 */
bool_t BgL_auxz00_841;
{ /* ./Ieee/char.scm 130 */
bool_t BgL_res2207z00_638;
{ /* ./Ieee/char.scm 130 */
obj_t BgL_symbol1578z00_636;
BgL_symbol1578z00_636 = BGl_symbol2154z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 130 */

PUSH_TRACE(BgL_symbol1578z00_636); BUNSPEC; 
{ /* ./Ieee/char.scm 130 */
bool_t BgL_aux1577z00_637;
BgL_aux1577z00_637 = 
CHARP(BgL_objz00_502); 
POP_TRACE(); 
BgL_res2207z00_638 = BgL_aux1577z00_637; } } } 
BgL_auxz00_841 = BgL_res2207z00_638; } 
return 
BBOOL(BgL_auxz00_841);} } 
}



/* char=? */
BGL_EXPORTED_DEF bool_t BGl_charzd3zf3z20zz__r4_characters_6_6z00(unsigned char BgL_char1z00_2, unsigned char BgL_char2z00_3)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 135 */
{ /* ./Ieee/char.scm 136 */
obj_t BgL_symbol1582z00_639;
BgL_symbol1582z00_639 = BGl_symbol2155z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 136 */

PUSH_TRACE(BgL_symbol1582z00_639); BUNSPEC; 
{ /* ./Ieee/char.scm 136 */
bool_t BgL_aux1581z00_640;
BgL_aux1581z00_640 = 
(BgL_char1z00_2==BgL_char2z00_3); 
POP_TRACE(); 
return BgL_aux1581z00_640;} } } } 
}



/* _char=?1679 */
obj_t BGl__charzd3zf31679z20zz__r4_characters_6_6z00(obj_t BgL_envz00_503, obj_t BgL_char1z00_504, obj_t BgL_char2z00_505)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 135 */
{ /* ./Ieee/char.scm 136 */
bool_t BgL_auxz00_849;
{ /* ./Ieee/char.scm 136 */
bool_t BgL_res2208z00_645;
{ /* ./Ieee/char.scm 136 */
unsigned char BgL_char1z00_641;unsigned char BgL_char2z00_642;
{ /* ./Ieee/char.scm 136 */
obj_t BgL_auxz00_850;
if(
CHARP(BgL_char1z00_504))
{ /* ./Ieee/char.scm 136 */
BgL_auxz00_850 = BgL_char1z00_504
; }  else 
{ /* ./Ieee/char.scm 136 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2156z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_504, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)6498))); 
exit( -1 );} 
BgL_char1z00_641 = 
(unsigned char)CCHAR(BgL_auxz00_850); } 
{ /* ./Ieee/char.scm 136 */
obj_t BgL_auxz00_857;
if(
CHARP(BgL_char2z00_505))
{ /* ./Ieee/char.scm 136 */
BgL_auxz00_857 = BgL_char2z00_505
; }  else 
{ /* ./Ieee/char.scm 136 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2156z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_505, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)6498))); 
exit( -1 );} 
BgL_char2z00_642 = 
(unsigned char)CCHAR(BgL_auxz00_857); } 
{ /* ./Ieee/char.scm 136 */
obj_t BgL_symbol1582z00_643;
BgL_symbol1582z00_643 = BGl_symbol2155z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 136 */

PUSH_TRACE(BgL_symbol1582z00_643); BUNSPEC; 
{ /* ./Ieee/char.scm 136 */
bool_t BgL_aux1581z00_644;
BgL_aux1581z00_644 = 
(BgL_char1z00_641==BgL_char2z00_642); 
POP_TRACE(); 
BgL_res2208z00_645 = BgL_aux1581z00_644; } } } } 
BgL_auxz00_849 = BgL_res2208z00_645; } 
return 
BBOOL(BgL_auxz00_849);} } 
}



/* char<? */
BGL_EXPORTED_DEF bool_t BGl_charzc3zf3z30zz__r4_characters_6_6z00(unsigned char BgL_char1z00_4, unsigned char BgL_char2z00_5)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 141 */
{ /* ./Ieee/char.scm 142 */
obj_t BgL_symbol1586z00_646;
BgL_symbol1586z00_646 = BGl_symbol2159z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 142 */

PUSH_TRACE(BgL_symbol1586z00_646); BUNSPEC; 
{ /* ./Ieee/char.scm 142 */
bool_t BgL_aux1585z00_647;
BgL_aux1585z00_647 = 
(BgL_char1z00_4<BgL_char2z00_5); 
POP_TRACE(); 
return BgL_aux1585z00_647;} } } } 
}



/* _char<?1681 */
obj_t BGl__charzc3zf31681z30zz__r4_characters_6_6z00(obj_t BgL_envz00_506, obj_t BgL_char1z00_507, obj_t BgL_char2z00_508)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 141 */
{ /* ./Ieee/char.scm 142 */
bool_t BgL_auxz00_871;
{ /* ./Ieee/char.scm 142 */
bool_t BgL_res2209z00_652;
{ /* ./Ieee/char.scm 142 */
unsigned char BgL_char1z00_648;unsigned char BgL_char2z00_649;
{ /* ./Ieee/char.scm 142 */
obj_t BgL_auxz00_872;
if(
CHARP(BgL_char1z00_507))
{ /* ./Ieee/char.scm 142 */
BgL_auxz00_872 = BgL_char1z00_507
; }  else 
{ /* ./Ieee/char.scm 142 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2160z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_507, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)6784))); 
exit( -1 );} 
BgL_char1z00_648 = 
(unsigned char)CCHAR(BgL_auxz00_872); } 
{ /* ./Ieee/char.scm 142 */
obj_t BgL_auxz00_879;
if(
CHARP(BgL_char2z00_508))
{ /* ./Ieee/char.scm 142 */
BgL_auxz00_879 = BgL_char2z00_508
; }  else 
{ /* ./Ieee/char.scm 142 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2160z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_508, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)6784))); 
exit( -1 );} 
BgL_char2z00_649 = 
(unsigned char)CCHAR(BgL_auxz00_879); } 
{ /* ./Ieee/char.scm 142 */
obj_t BgL_symbol1586z00_650;
BgL_symbol1586z00_650 = BGl_symbol2159z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 142 */

PUSH_TRACE(BgL_symbol1586z00_650); BUNSPEC; 
{ /* ./Ieee/char.scm 142 */
bool_t BgL_aux1585z00_651;
BgL_aux1585z00_651 = 
(BgL_char1z00_648<BgL_char2z00_649); 
POP_TRACE(); 
BgL_res2209z00_652 = BgL_aux1585z00_651; } } } } 
BgL_auxz00_871 = BgL_res2209z00_652; } 
return 
BBOOL(BgL_auxz00_871);} } 
}



/* char>? */
BGL_EXPORTED_DEF bool_t BGl_charze3zf3z10zz__r4_characters_6_6z00(unsigned char BgL_char1z00_6, unsigned char BgL_char2z00_7)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 147 */
{ /* ./Ieee/char.scm 148 */
obj_t BgL_symbol1590z00_653;
BgL_symbol1590z00_653 = BGl_symbol2161z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 148 */

PUSH_TRACE(BgL_symbol1590z00_653); BUNSPEC; 
{ /* ./Ieee/char.scm 148 */
bool_t BgL_aux1589z00_654;
BgL_aux1589z00_654 = 
(BgL_char1z00_6>BgL_char2z00_7); 
POP_TRACE(); 
return BgL_aux1589z00_654;} } } } 
}



/* _char>?1683 */
obj_t BGl__charze3zf31683z10zz__r4_characters_6_6z00(obj_t BgL_envz00_509, obj_t BgL_char1z00_510, obj_t BgL_char2z00_511)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 147 */
{ /* ./Ieee/char.scm 148 */
bool_t BgL_auxz00_893;
{ /* ./Ieee/char.scm 148 */
bool_t BgL_res2210z00_659;
{ /* ./Ieee/char.scm 148 */
unsigned char BgL_char1z00_655;unsigned char BgL_char2z00_656;
{ /* ./Ieee/char.scm 148 */
obj_t BgL_auxz00_894;
if(
CHARP(BgL_char1z00_510))
{ /* ./Ieee/char.scm 148 */
BgL_auxz00_894 = BgL_char1z00_510
; }  else 
{ /* ./Ieee/char.scm 148 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2162z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_510, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)7071))); 
exit( -1 );} 
BgL_char1z00_655 = 
(unsigned char)CCHAR(BgL_auxz00_894); } 
{ /* ./Ieee/char.scm 148 */
obj_t BgL_auxz00_901;
if(
CHARP(BgL_char2z00_511))
{ /* ./Ieee/char.scm 148 */
BgL_auxz00_901 = BgL_char2z00_511
; }  else 
{ /* ./Ieee/char.scm 148 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2162z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_511, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)7071))); 
exit( -1 );} 
BgL_char2z00_656 = 
(unsigned char)CCHAR(BgL_auxz00_901); } 
{ /* ./Ieee/char.scm 148 */
obj_t BgL_symbol1590z00_657;
BgL_symbol1590z00_657 = BGl_symbol2161z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 148 */

PUSH_TRACE(BgL_symbol1590z00_657); BUNSPEC; 
{ /* ./Ieee/char.scm 148 */
bool_t BgL_aux1589z00_658;
BgL_aux1589z00_658 = 
(BgL_char1z00_655>BgL_char2z00_656); 
POP_TRACE(); 
BgL_res2210z00_659 = BgL_aux1589z00_658; } } } } 
BgL_auxz00_893 = BgL_res2210z00_659; } 
return 
BBOOL(BgL_auxz00_893);} } 
}



/* char<=? */
BGL_EXPORTED_DEF bool_t BGl_charzc3zd3zf3ze3zz__r4_characters_6_6z00(unsigned char BgL_char1z00_8, unsigned char BgL_char2z00_9)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 153 */
{ /* ./Ieee/char.scm 154 */
obj_t BgL_symbol1594z00_660;
BgL_symbol1594z00_660 = BGl_symbol2163z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 154 */

PUSH_TRACE(BgL_symbol1594z00_660); BUNSPEC; 
{ /* ./Ieee/char.scm 154 */
bool_t BgL_aux1593z00_661;
BgL_aux1593z00_661 = 
(BgL_char1z00_8<=BgL_char2z00_9); 
POP_TRACE(); 
return BgL_aux1593z00_661;} } } } 
}



/* _char<=?1685 */
obj_t BGl__charzc3zd3zf31685ze3zz__r4_characters_6_6z00(obj_t BgL_envz00_512, obj_t BgL_char1z00_513, obj_t BgL_char2z00_514)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 153 */
{ /* ./Ieee/char.scm 154 */
bool_t BgL_auxz00_915;
{ /* ./Ieee/char.scm 154 */
bool_t BgL_res2211z00_666;
{ /* ./Ieee/char.scm 154 */
unsigned char BgL_char1z00_662;unsigned char BgL_char2z00_663;
{ /* ./Ieee/char.scm 154 */
obj_t BgL_auxz00_916;
if(
CHARP(BgL_char1z00_513))
{ /* ./Ieee/char.scm 154 */
BgL_auxz00_916 = BgL_char1z00_513
; }  else 
{ /* ./Ieee/char.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2164z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_513, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)7358))); 
exit( -1 );} 
BgL_char1z00_662 = 
(unsigned char)CCHAR(BgL_auxz00_916); } 
{ /* ./Ieee/char.scm 154 */
obj_t BgL_auxz00_923;
if(
CHARP(BgL_char2z00_514))
{ /* ./Ieee/char.scm 154 */
BgL_auxz00_923 = BgL_char2z00_514
; }  else 
{ /* ./Ieee/char.scm 154 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2164z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_514, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)7358))); 
exit( -1 );} 
BgL_char2z00_663 = 
(unsigned char)CCHAR(BgL_auxz00_923); } 
{ /* ./Ieee/char.scm 154 */
obj_t BgL_symbol1594z00_664;
BgL_symbol1594z00_664 = BGl_symbol2163z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 154 */

PUSH_TRACE(BgL_symbol1594z00_664); BUNSPEC; 
{ /* ./Ieee/char.scm 154 */
bool_t BgL_aux1593z00_665;
BgL_aux1593z00_665 = 
(BgL_char1z00_662<=BgL_char2z00_663); 
POP_TRACE(); 
BgL_res2211z00_666 = BgL_aux1593z00_665; } } } } 
BgL_auxz00_915 = BgL_res2211z00_666; } 
return 
BBOOL(BgL_auxz00_915);} } 
}



/* char>=? */
BGL_EXPORTED_DEF bool_t BGl_charze3zd3zf3zc3zz__r4_characters_6_6z00(unsigned char BgL_char1z00_10, unsigned char BgL_char2z00_11)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 159 */
{ /* ./Ieee/char.scm 160 */
obj_t BgL_symbol1598z00_667;
BgL_symbol1598z00_667 = BGl_symbol2165z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 160 */

PUSH_TRACE(BgL_symbol1598z00_667); BUNSPEC; 
{ /* ./Ieee/char.scm 160 */
bool_t BgL_aux1597z00_668;
BgL_aux1597z00_668 = 
(BgL_char1z00_10>=BgL_char2z00_11); 
POP_TRACE(); 
return BgL_aux1597z00_668;} } } } 
}



/* _char>=?1687 */
obj_t BGl__charze3zd3zf31687zc3zz__r4_characters_6_6z00(obj_t BgL_envz00_515, obj_t BgL_char1z00_516, obj_t BgL_char2z00_517)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 159 */
{ /* ./Ieee/char.scm 160 */
bool_t BgL_auxz00_937;
{ /* ./Ieee/char.scm 160 */
bool_t BgL_res2212z00_673;
{ /* ./Ieee/char.scm 160 */
unsigned char BgL_char1z00_669;unsigned char BgL_char2z00_670;
{ /* ./Ieee/char.scm 160 */
obj_t BgL_auxz00_938;
if(
CHARP(BgL_char1z00_516))
{ /* ./Ieee/char.scm 160 */
BgL_auxz00_938 = BgL_char1z00_516
; }  else 
{ /* ./Ieee/char.scm 160 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2166z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_516, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)7646))); 
exit( -1 );} 
BgL_char1z00_669 = 
(unsigned char)CCHAR(BgL_auxz00_938); } 
{ /* ./Ieee/char.scm 160 */
obj_t BgL_auxz00_945;
if(
CHARP(BgL_char2z00_517))
{ /* ./Ieee/char.scm 160 */
BgL_auxz00_945 = BgL_char2z00_517
; }  else 
{ /* ./Ieee/char.scm 160 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2166z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_517, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)7646))); 
exit( -1 );} 
BgL_char2z00_670 = 
(unsigned char)CCHAR(BgL_auxz00_945); } 
{ /* ./Ieee/char.scm 160 */
obj_t BgL_symbol1598z00_671;
BgL_symbol1598z00_671 = BGl_symbol2165z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 160 */

PUSH_TRACE(BgL_symbol1598z00_671); BUNSPEC; 
{ /* ./Ieee/char.scm 160 */
bool_t BgL_aux1597z00_672;
BgL_aux1597z00_672 = 
(BgL_char1z00_669>=BgL_char2z00_670); 
POP_TRACE(); 
BgL_res2212z00_673 = BgL_aux1597z00_672; } } } } 
BgL_auxz00_937 = BgL_res2212z00_673; } 
return 
BBOOL(BgL_auxz00_937);} } 
}



/* char-ci=? */
BGL_EXPORTED_DEF bool_t BGl_charzd2cizd3zf3zf2zz__r4_characters_6_6z00(unsigned char BgL_char1z00_12, unsigned char BgL_char2z00_13)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 165 */
{ /* ./Ieee/char.scm 166 */
obj_t BgL_symbol1602z00_674;
BgL_symbol1602z00_674 = BGl_symbol2167z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 166 */

PUSH_TRACE(BgL_symbol1602z00_674); BUNSPEC; 
{ /* ./Ieee/char.scm 166 */
bool_t BgL_aux1601z00_675;
{ /* ./Ieee/char.scm 166 */
unsigned char BgL_auxz00_959;unsigned char BgL_auxz00_957;
BgL_auxz00_959 = 
toupper(BgL_char2z00_13); 
BgL_auxz00_957 = 
toupper(BgL_char1z00_12); 
BgL_aux1601z00_675 = 
(BgL_auxz00_957==BgL_auxz00_959); } 
POP_TRACE(); 
return BgL_aux1601z00_675;} } } } 
}



/* _char-ci=?1689 */
obj_t BGl__charzd2cizd3zf31689zf2zz__r4_characters_6_6z00(obj_t BgL_envz00_518, obj_t BgL_char1z00_519, obj_t BgL_char2z00_520)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 165 */
{ /* ./Ieee/char.scm 166 */
bool_t BgL_auxz00_963;
{ /* ./Ieee/char.scm 166 */
bool_t BgL_res2213z00_680;
{ /* ./Ieee/char.scm 166 */
unsigned char BgL_char1z00_676;unsigned char BgL_char2z00_677;
{ /* ./Ieee/char.scm 166 */
obj_t BgL_auxz00_964;
if(
CHARP(BgL_char1z00_519))
{ /* ./Ieee/char.scm 166 */
BgL_auxz00_964 = BgL_char1z00_519
; }  else 
{ /* ./Ieee/char.scm 166 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2168z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_519, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)7944))); 
exit( -1 );} 
BgL_char1z00_676 = 
(unsigned char)CCHAR(BgL_auxz00_964); } 
{ /* ./Ieee/char.scm 166 */
obj_t BgL_auxz00_971;
if(
CHARP(BgL_char2z00_520))
{ /* ./Ieee/char.scm 166 */
BgL_auxz00_971 = BgL_char2z00_520
; }  else 
{ /* ./Ieee/char.scm 166 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2168z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_520, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)7944))); 
exit( -1 );} 
BgL_char2z00_677 = 
(unsigned char)CCHAR(BgL_auxz00_971); } 
{ /* ./Ieee/char.scm 166 */
obj_t BgL_symbol1602z00_678;
BgL_symbol1602z00_678 = BGl_symbol2167z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 166 */

PUSH_TRACE(BgL_symbol1602z00_678); BUNSPEC; 
{ /* ./Ieee/char.scm 166 */
bool_t BgL_aux1601z00_679;
{ /* ./Ieee/char.scm 166 */
unsigned char BgL_auxz00_981;unsigned char BgL_auxz00_979;
BgL_auxz00_981 = 
toupper(BgL_char2z00_677); 
BgL_auxz00_979 = 
toupper(BgL_char1z00_676); 
BgL_aux1601z00_679 = 
(BgL_auxz00_979==BgL_auxz00_981); } 
POP_TRACE(); 
BgL_res2213z00_680 = BgL_aux1601z00_679; } } } } 
BgL_auxz00_963 = BgL_res2213z00_680; } 
return 
BBOOL(BgL_auxz00_963);} } 
}



/* char-ci<? */
BGL_EXPORTED_DEF bool_t BGl_charzd2cizc3zf3ze2zz__r4_characters_6_6z00(unsigned char BgL_char1z00_14, unsigned char BgL_char2z00_15)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 171 */
{ /* ./Ieee/char.scm 172 */
obj_t BgL_symbol1606z00_681;
BgL_symbol1606z00_681 = BGl_symbol2169z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 172 */

PUSH_TRACE(BgL_symbol1606z00_681); BUNSPEC; 
{ /* ./Ieee/char.scm 172 */
bool_t BgL_aux1605z00_682;
{ /* ./Ieee/char.scm 172 */
unsigned char BgL_auxz00_989;unsigned char BgL_auxz00_987;
BgL_auxz00_989 = 
toupper(BgL_char2z00_15); 
BgL_auxz00_987 = 
toupper(BgL_char1z00_14); 
BgL_aux1605z00_682 = 
(BgL_auxz00_987<BgL_auxz00_989); } 
POP_TRACE(); 
return BgL_aux1605z00_682;} } } } 
}



/* _char-ci<?1691 */
obj_t BGl__charzd2cizc3zf31691ze2zz__r4_characters_6_6z00(obj_t BgL_envz00_521, obj_t BgL_char1z00_522, obj_t BgL_char2z00_523)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 171 */
{ /* ./Ieee/char.scm 172 */
bool_t BgL_auxz00_993;
{ /* ./Ieee/char.scm 172 */
bool_t BgL_res2214z00_687;
{ /* ./Ieee/char.scm 172 */
unsigned char BgL_char1z00_683;unsigned char BgL_char2z00_684;
{ /* ./Ieee/char.scm 172 */
obj_t BgL_auxz00_994;
if(
CHARP(BgL_char1z00_522))
{ /* ./Ieee/char.scm 172 */
BgL_auxz00_994 = BgL_char1z00_522
; }  else 
{ /* ./Ieee/char.scm 172 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2170z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_522, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)8261))); 
exit( -1 );} 
BgL_char1z00_683 = 
(unsigned char)CCHAR(BgL_auxz00_994); } 
{ /* ./Ieee/char.scm 172 */
obj_t BgL_auxz00_1001;
if(
CHARP(BgL_char2z00_523))
{ /* ./Ieee/char.scm 172 */
BgL_auxz00_1001 = BgL_char2z00_523
; }  else 
{ /* ./Ieee/char.scm 172 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2170z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_523, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)8261))); 
exit( -1 );} 
BgL_char2z00_684 = 
(unsigned char)CCHAR(BgL_auxz00_1001); } 
{ /* ./Ieee/char.scm 172 */
obj_t BgL_symbol1606z00_685;
BgL_symbol1606z00_685 = BGl_symbol2169z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 172 */

PUSH_TRACE(BgL_symbol1606z00_685); BUNSPEC; 
{ /* ./Ieee/char.scm 172 */
bool_t BgL_aux1605z00_686;
{ /* ./Ieee/char.scm 172 */
unsigned char BgL_auxz00_1011;unsigned char BgL_auxz00_1009;
BgL_auxz00_1011 = 
toupper(BgL_char2z00_684); 
BgL_auxz00_1009 = 
toupper(BgL_char1z00_683); 
BgL_aux1605z00_686 = 
(BgL_auxz00_1009<BgL_auxz00_1011); } 
POP_TRACE(); 
BgL_res2214z00_687 = BgL_aux1605z00_686; } } } } 
BgL_auxz00_993 = BgL_res2214z00_687; } 
return 
BBOOL(BgL_auxz00_993);} } 
}



/* char-ci>? */
BGL_EXPORTED_DEF bool_t BGl_charzd2cize3zf3zc2zz__r4_characters_6_6z00(unsigned char BgL_char1z00_16, unsigned char BgL_char2z00_17)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 177 */
{ /* ./Ieee/char.scm 178 */
obj_t BgL_symbol1610z00_688;
BgL_symbol1610z00_688 = BGl_symbol2171z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 178 */

PUSH_TRACE(BgL_symbol1610z00_688); BUNSPEC; 
{ /* ./Ieee/char.scm 178 */
bool_t BgL_aux1609z00_689;
{ /* ./Ieee/char.scm 178 */
unsigned char BgL_auxz00_1019;unsigned char BgL_auxz00_1017;
BgL_auxz00_1019 = 
toupper(BgL_char2z00_17); 
BgL_auxz00_1017 = 
toupper(BgL_char1z00_16); 
BgL_aux1609z00_689 = 
(BgL_auxz00_1017>BgL_auxz00_1019); } 
POP_TRACE(); 
return BgL_aux1609z00_689;} } } } 
}



/* _char-ci>?1693 */
obj_t BGl__charzd2cize3zf31693zc2zz__r4_characters_6_6z00(obj_t BgL_envz00_524, obj_t BgL_char1z00_525, obj_t BgL_char2z00_526)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 177 */
{ /* ./Ieee/char.scm 178 */
bool_t BgL_auxz00_1023;
{ /* ./Ieee/char.scm 178 */
bool_t BgL_res2215z00_694;
{ /* ./Ieee/char.scm 178 */
unsigned char BgL_char1z00_690;unsigned char BgL_char2z00_691;
{ /* ./Ieee/char.scm 178 */
obj_t BgL_auxz00_1024;
if(
CHARP(BgL_char1z00_525))
{ /* ./Ieee/char.scm 178 */
BgL_auxz00_1024 = BgL_char1z00_525
; }  else 
{ /* ./Ieee/char.scm 178 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2172z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_525, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)8580))); 
exit( -1 );} 
BgL_char1z00_690 = 
(unsigned char)CCHAR(BgL_auxz00_1024); } 
{ /* ./Ieee/char.scm 178 */
obj_t BgL_auxz00_1031;
if(
CHARP(BgL_char2z00_526))
{ /* ./Ieee/char.scm 178 */
BgL_auxz00_1031 = BgL_char2z00_526
; }  else 
{ /* ./Ieee/char.scm 178 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2172z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_526, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)8580))); 
exit( -1 );} 
BgL_char2z00_691 = 
(unsigned char)CCHAR(BgL_auxz00_1031); } 
{ /* ./Ieee/char.scm 178 */
obj_t BgL_symbol1610z00_692;
BgL_symbol1610z00_692 = BGl_symbol2171z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 178 */

PUSH_TRACE(BgL_symbol1610z00_692); BUNSPEC; 
{ /* ./Ieee/char.scm 178 */
bool_t BgL_aux1609z00_693;
{ /* ./Ieee/char.scm 178 */
unsigned char BgL_auxz00_1041;unsigned char BgL_auxz00_1039;
BgL_auxz00_1041 = 
toupper(BgL_char2z00_691); 
BgL_auxz00_1039 = 
toupper(BgL_char1z00_690); 
BgL_aux1609z00_693 = 
(BgL_auxz00_1039>BgL_auxz00_1041); } 
POP_TRACE(); 
BgL_res2215z00_694 = BgL_aux1609z00_693; } } } } 
BgL_auxz00_1023 = BgL_res2215z00_694; } 
return 
BBOOL(BgL_auxz00_1023);} } 
}



/* char-ci<=? */
BGL_EXPORTED_DEF bool_t BGl_charzd2cizc3zd3zf3z31zz__r4_characters_6_6z00(unsigned char BgL_char1z00_18, unsigned char BgL_char2z00_19)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 183 */
{ /* ./Ieee/char.scm 184 */
obj_t BgL_symbol1614z00_695;
BgL_symbol1614z00_695 = BGl_symbol2173z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 184 */

PUSH_TRACE(BgL_symbol1614z00_695); BUNSPEC; 
{ /* ./Ieee/char.scm 184 */
bool_t BgL_aux1613z00_696;
{ /* ./Ieee/char.scm 184 */
unsigned char BgL_auxz00_1049;unsigned char BgL_auxz00_1047;
BgL_auxz00_1049 = 
toupper(BgL_char2z00_19); 
BgL_auxz00_1047 = 
toupper(BgL_char1z00_18); 
BgL_aux1613z00_696 = 
(BgL_auxz00_1047<=BgL_auxz00_1049); } 
POP_TRACE(); 
return BgL_aux1613z00_696;} } } } 
}



/* _char-ci<=?1695 */
obj_t BGl__charzd2cizc3zd3zf31695z31zz__r4_characters_6_6z00(obj_t BgL_envz00_527, obj_t BgL_char1z00_528, obj_t BgL_char2z00_529)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 183 */
{ /* ./Ieee/char.scm 184 */
bool_t BgL_auxz00_1053;
{ /* ./Ieee/char.scm 184 */
bool_t BgL_res2216z00_701;
{ /* ./Ieee/char.scm 184 */
unsigned char BgL_char1z00_697;unsigned char BgL_char2z00_698;
{ /* ./Ieee/char.scm 184 */
obj_t BgL_auxz00_1054;
if(
CHARP(BgL_char1z00_528))
{ /* ./Ieee/char.scm 184 */
BgL_auxz00_1054 = BgL_char1z00_528
; }  else 
{ /* ./Ieee/char.scm 184 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2174z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_528, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)8899))); 
exit( -1 );} 
BgL_char1z00_697 = 
(unsigned char)CCHAR(BgL_auxz00_1054); } 
{ /* ./Ieee/char.scm 184 */
obj_t BgL_auxz00_1061;
if(
CHARP(BgL_char2z00_529))
{ /* ./Ieee/char.scm 184 */
BgL_auxz00_1061 = BgL_char2z00_529
; }  else 
{ /* ./Ieee/char.scm 184 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2174z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_529, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)8899))); 
exit( -1 );} 
BgL_char2z00_698 = 
(unsigned char)CCHAR(BgL_auxz00_1061); } 
{ /* ./Ieee/char.scm 184 */
obj_t BgL_symbol1614z00_699;
BgL_symbol1614z00_699 = BGl_symbol2173z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 184 */

PUSH_TRACE(BgL_symbol1614z00_699); BUNSPEC; 
{ /* ./Ieee/char.scm 184 */
bool_t BgL_aux1613z00_700;
{ /* ./Ieee/char.scm 184 */
unsigned char BgL_auxz00_1071;unsigned char BgL_auxz00_1069;
BgL_auxz00_1071 = 
toupper(BgL_char2z00_698); 
BgL_auxz00_1069 = 
toupper(BgL_char1z00_697); 
BgL_aux1613z00_700 = 
(BgL_auxz00_1069<=BgL_auxz00_1071); } 
POP_TRACE(); 
BgL_res2216z00_701 = BgL_aux1613z00_700; } } } } 
BgL_auxz00_1053 = BgL_res2216z00_701; } 
return 
BBOOL(BgL_auxz00_1053);} } 
}



/* char-ci>=? */
BGL_EXPORTED_DEF bool_t BGl_charzd2cize3zd3zf3z11zz__r4_characters_6_6z00(unsigned char BgL_char1z00_20, unsigned char BgL_char2z00_21)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 189 */
{ /* ./Ieee/char.scm 190 */
obj_t BgL_symbol1618z00_702;
BgL_symbol1618z00_702 = BGl_symbol2175z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 190 */

PUSH_TRACE(BgL_symbol1618z00_702); BUNSPEC; 
{ /* ./Ieee/char.scm 190 */
bool_t BgL_aux1617z00_703;
{ /* ./Ieee/char.scm 190 */
unsigned char BgL_auxz00_1079;unsigned char BgL_auxz00_1077;
BgL_auxz00_1079 = 
toupper(BgL_char2z00_21); 
BgL_auxz00_1077 = 
toupper(BgL_char1z00_20); 
BgL_aux1617z00_703 = 
(BgL_auxz00_1077>=BgL_auxz00_1079); } 
POP_TRACE(); 
return BgL_aux1617z00_703;} } } } 
}



/* _char-ci>=?1697 */
obj_t BGl__charzd2cize3zd3zf31697z11zz__r4_characters_6_6z00(obj_t BgL_envz00_530, obj_t BgL_char1z00_531, obj_t BgL_char2z00_532)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 189 */
{ /* ./Ieee/char.scm 190 */
bool_t BgL_auxz00_1083;
{ /* ./Ieee/char.scm 190 */
bool_t BgL_res2217z00_708;
{ /* ./Ieee/char.scm 190 */
unsigned char BgL_char1z00_704;unsigned char BgL_char2z00_705;
{ /* ./Ieee/char.scm 190 */
obj_t BgL_auxz00_1084;
if(
CHARP(BgL_char1z00_531))
{ /* ./Ieee/char.scm 190 */
BgL_auxz00_1084 = BgL_char1z00_531
; }  else 
{ /* ./Ieee/char.scm 190 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2176z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_531, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)9218))); 
exit( -1 );} 
BgL_char1z00_704 = 
(unsigned char)CCHAR(BgL_auxz00_1084); } 
{ /* ./Ieee/char.scm 190 */
obj_t BgL_auxz00_1091;
if(
CHARP(BgL_char2z00_532))
{ /* ./Ieee/char.scm 190 */
BgL_auxz00_1091 = BgL_char2z00_532
; }  else 
{ /* ./Ieee/char.scm 190 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2176z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_532, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)9218))); 
exit( -1 );} 
BgL_char2z00_705 = 
(unsigned char)CCHAR(BgL_auxz00_1091); } 
{ /* ./Ieee/char.scm 190 */
obj_t BgL_symbol1618z00_706;
BgL_symbol1618z00_706 = BGl_symbol2175z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 190 */

PUSH_TRACE(BgL_symbol1618z00_706); BUNSPEC; 
{ /* ./Ieee/char.scm 190 */
bool_t BgL_aux1617z00_707;
{ /* ./Ieee/char.scm 190 */
unsigned char BgL_auxz00_1101;unsigned char BgL_auxz00_1099;
BgL_auxz00_1101 = 
toupper(BgL_char2z00_705); 
BgL_auxz00_1099 = 
toupper(BgL_char1z00_704); 
BgL_aux1617z00_707 = 
(BgL_auxz00_1099>=BgL_auxz00_1101); } 
POP_TRACE(); 
BgL_res2217z00_708 = BgL_aux1617z00_707; } } } } 
BgL_auxz00_1083 = BgL_res2217z00_708; } 
return 
BBOOL(BgL_auxz00_1083);} } 
}



/* char-alphabetic? */
BGL_EXPORTED_DEF bool_t BGl_charzd2alphabeticzf3z21zz__r4_characters_6_6z00(unsigned char BgL_charz00_22)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 195 */
{ /* ./Ieee/char.scm 196 */
obj_t BgL_symbol1622z00_709;
BgL_symbol1622z00_709 = BGl_symbol2177z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 196 */

PUSH_TRACE(BgL_symbol1622z00_709); BUNSPEC; 
{ /* ./Ieee/char.scm 196 */
bool_t BgL_aux1621z00_710;
BgL_aux1621z00_710 = 
isalpha(BgL_charz00_22); 
POP_TRACE(); 
return BgL_aux1621z00_710;} } } } 
}



/* _char-alphabetic?1699 */
obj_t BGl__charzd2alphabeticzf31699z21zz__r4_characters_6_6z00(obj_t BgL_envz00_533, obj_t BgL_charz00_534)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 195 */
{ /* ./Ieee/char.scm 196 */
bool_t BgL_auxz00_1109;
{ /* ./Ieee/char.scm 196 */
bool_t BgL_res2218z00_714;
{ /* ./Ieee/char.scm 196 */
unsigned char BgL_charz00_711;
{ /* ./Ieee/char.scm 196 */
obj_t BgL_auxz00_1110;
if(
CHARP(BgL_charz00_534))
{ /* ./Ieee/char.scm 196 */
BgL_auxz00_1110 = BgL_charz00_534
; }  else 
{ /* ./Ieee/char.scm 196 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2178z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_charz00_534, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)9525))); 
exit( -1 );} 
BgL_charz00_711 = 
(unsigned char)CCHAR(BgL_auxz00_1110); } 
{ /* ./Ieee/char.scm 196 */
obj_t BgL_symbol1622z00_712;
BgL_symbol1622z00_712 = BGl_symbol2177z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 196 */

PUSH_TRACE(BgL_symbol1622z00_712); BUNSPEC; 
{ /* ./Ieee/char.scm 196 */
bool_t BgL_aux1621z00_713;
BgL_aux1621z00_713 = 
isalpha(BgL_charz00_711); 
POP_TRACE(); 
BgL_res2218z00_714 = BgL_aux1621z00_713; } } } } 
BgL_auxz00_1109 = BgL_res2218z00_714; } 
return 
BBOOL(BgL_auxz00_1109);} } 
}



/* char-numeric? */
BGL_EXPORTED_DEF bool_t BGl_charzd2numericzf3z21zz__r4_characters_6_6z00(unsigned char BgL_charz00_23)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 206 */
{ /* ./Ieee/char.scm 207 */
obj_t BgL_symbol1626z00_715;
BgL_symbol1626z00_715 = BGl_symbol2179z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 207 */

PUSH_TRACE(BgL_symbol1626z00_715); BUNSPEC; 
{ /* ./Ieee/char.scm 207 */
bool_t BgL_aux1625z00_716;
BgL_aux1625z00_716 = 
isdigit(BgL_charz00_23); 
POP_TRACE(); 
return BgL_aux1625z00_716;} } } } 
}



/* _char-numeric?1701 */
obj_t BGl__charzd2numericzf31701z21zz__r4_characters_6_6z00(obj_t BgL_envz00_535, obj_t BgL_charz00_536)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 206 */
{ /* ./Ieee/char.scm 207 */
bool_t BgL_auxz00_1124;
{ /* ./Ieee/char.scm 207 */
bool_t BgL_res2219z00_720;
{ /* ./Ieee/char.scm 207 */
unsigned char BgL_charz00_717;
{ /* ./Ieee/char.scm 207 */
obj_t BgL_auxz00_1125;
if(
CHARP(BgL_charz00_536))
{ /* ./Ieee/char.scm 207 */
BgL_auxz00_1125 = BgL_charz00_536
; }  else 
{ /* ./Ieee/char.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2180z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_charz00_536, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)9967))); 
exit( -1 );} 
BgL_charz00_717 = 
(unsigned char)CCHAR(BgL_auxz00_1125); } 
{ /* ./Ieee/char.scm 207 */
obj_t BgL_symbol1626z00_718;
BgL_symbol1626z00_718 = BGl_symbol2179z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 207 */

PUSH_TRACE(BgL_symbol1626z00_718); BUNSPEC; 
{ /* ./Ieee/char.scm 207 */
bool_t BgL_aux1625z00_719;
BgL_aux1625z00_719 = 
isdigit(BgL_charz00_717); 
POP_TRACE(); 
BgL_res2219z00_720 = BgL_aux1625z00_719; } } } } 
BgL_auxz00_1124 = BgL_res2219z00_720; } 
return 
BBOOL(BgL_auxz00_1124);} } 
}



/* char-whitespace? */
BGL_EXPORTED_DEF bool_t BGl_charzd2whitespacezf3z21zz__r4_characters_6_6z00(unsigned char BgL_charz00_24)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 216 */
{ /* ./Ieee/char.scm 217 */
obj_t BgL_symbol1630z00_721;
BgL_symbol1630z00_721 = BGl_symbol2181z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 217 */

PUSH_TRACE(BgL_symbol1630z00_721); BUNSPEC; 
{ /* ./Ieee/char.scm 217 */
bool_t BgL_aux1629z00_722;
BgL_aux1629z00_722 = 
isspace(BgL_charz00_24); 
POP_TRACE(); 
return BgL_aux1629z00_722;} } } } 
}



/* _char-whitespace?1703 */
obj_t BGl__charzd2whitespacezf31703z21zz__r4_characters_6_6z00(obj_t BgL_envz00_537, obj_t BgL_charz00_538)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 216 */
{ /* ./Ieee/char.scm 217 */
bool_t BgL_auxz00_1139;
{ /* ./Ieee/char.scm 217 */
bool_t BgL_res2220z00_726;
{ /* ./Ieee/char.scm 217 */
unsigned char BgL_charz00_723;
{ /* ./Ieee/char.scm 217 */
obj_t BgL_auxz00_1140;
if(
CHARP(BgL_charz00_538))
{ /* ./Ieee/char.scm 217 */
BgL_auxz00_1140 = BgL_charz00_538
; }  else 
{ /* ./Ieee/char.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2182z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_charz00_538, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)10350))); 
exit( -1 );} 
BgL_charz00_723 = 
(unsigned char)CCHAR(BgL_auxz00_1140); } 
{ /* ./Ieee/char.scm 217 */
obj_t BgL_symbol1630z00_724;
BgL_symbol1630z00_724 = BGl_symbol2181z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 217 */

PUSH_TRACE(BgL_symbol1630z00_724); BUNSPEC; 
{ /* ./Ieee/char.scm 217 */
bool_t BgL_aux1629z00_725;
BgL_aux1629z00_725 = 
isspace(BgL_charz00_723); 
POP_TRACE(); 
BgL_res2220z00_726 = BgL_aux1629z00_725; } } } } 
BgL_auxz00_1139 = BgL_res2220z00_726; } 
return 
BBOOL(BgL_auxz00_1139);} } 
}



/* char-upper-case? */
BGL_EXPORTED_DEF bool_t BGl_charzd2upperzd2casezf3zf3zz__r4_characters_6_6z00(unsigned char BgL_charz00_25)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 227 */
{ /* ./Ieee/char.scm 228 */
obj_t BgL_symbol1634z00_727;
BgL_symbol1634z00_727 = BGl_symbol2183z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 228 */

PUSH_TRACE(BgL_symbol1634z00_727); BUNSPEC; 
{ /* ./Ieee/char.scm 228 */
bool_t BgL_aux1633z00_728;
BgL_aux1633z00_728 = 
isupper(BgL_charz00_25); 
POP_TRACE(); 
return BgL_aux1633z00_728;} } } } 
}



/* _char-upper-case?1705 */
obj_t BGl__charzd2upperzd2casezf31705zf3zz__r4_characters_6_6z00(obj_t BgL_envz00_539, obj_t BgL_charz00_540)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 227 */
{ /* ./Ieee/char.scm 228 */
bool_t BgL_auxz00_1154;
{ /* ./Ieee/char.scm 228 */
bool_t BgL_res2221z00_732;
{ /* ./Ieee/char.scm 228 */
unsigned char BgL_charz00_729;
{ /* ./Ieee/char.scm 228 */
obj_t BgL_auxz00_1155;
if(
CHARP(BgL_charz00_540))
{ /* ./Ieee/char.scm 228 */
BgL_auxz00_1155 = BgL_charz00_540
; }  else 
{ /* ./Ieee/char.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2184z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_charz00_540, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)10786))); 
exit( -1 );} 
BgL_charz00_729 = 
(unsigned char)CCHAR(BgL_auxz00_1155); } 
{ /* ./Ieee/char.scm 228 */
obj_t BgL_symbol1634z00_730;
BgL_symbol1634z00_730 = BGl_symbol2183z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 228 */

PUSH_TRACE(BgL_symbol1634z00_730); BUNSPEC; 
{ /* ./Ieee/char.scm 228 */
bool_t BgL_aux1633z00_731;
BgL_aux1633z00_731 = 
isupper(BgL_charz00_729); 
POP_TRACE(); 
BgL_res2221z00_732 = BgL_aux1633z00_731; } } } } 
BgL_auxz00_1154 = BgL_res2221z00_732; } 
return 
BBOOL(BgL_auxz00_1154);} } 
}



/* char-lower-case? */
BGL_EXPORTED_DEF bool_t BGl_charzd2lowerzd2casezf3zf3zz__r4_characters_6_6z00(unsigned char BgL_charz00_26)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 237 */
{ /* ./Ieee/char.scm 238 */
obj_t BgL_symbol1638z00_733;
BgL_symbol1638z00_733 = BGl_symbol2185z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 238 */

PUSH_TRACE(BgL_symbol1638z00_733); BUNSPEC; 
{ /* ./Ieee/char.scm 238 */
bool_t BgL_aux1637z00_734;
BgL_aux1637z00_734 = 
islower(BgL_charz00_26); 
POP_TRACE(); 
return BgL_aux1637z00_734;} } } } 
}



/* _char-lower-case?1707 */
obj_t BGl__charzd2lowerzd2casezf31707zf3zz__r4_characters_6_6z00(obj_t BgL_envz00_541, obj_t BgL_charz00_542)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 237 */
{ /* ./Ieee/char.scm 238 */
bool_t BgL_auxz00_1169;
{ /* ./Ieee/char.scm 238 */
bool_t BgL_res2222z00_738;
{ /* ./Ieee/char.scm 238 */
unsigned char BgL_charz00_735;
{ /* ./Ieee/char.scm 238 */
obj_t BgL_auxz00_1170;
if(
CHARP(BgL_charz00_542))
{ /* ./Ieee/char.scm 238 */
BgL_auxz00_1170 = BgL_charz00_542
; }  else 
{ /* ./Ieee/char.scm 238 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2186z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_charz00_542, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)11172))); 
exit( -1 );} 
BgL_charz00_735 = 
(unsigned char)CCHAR(BgL_auxz00_1170); } 
{ /* ./Ieee/char.scm 238 */
obj_t BgL_symbol1638z00_736;
BgL_symbol1638z00_736 = BGl_symbol2185z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 238 */

PUSH_TRACE(BgL_symbol1638z00_736); BUNSPEC; 
{ /* ./Ieee/char.scm 238 */
bool_t BgL_aux1637z00_737;
BgL_aux1637z00_737 = 
islower(BgL_charz00_735); 
POP_TRACE(); 
BgL_res2222z00_738 = BgL_aux1637z00_737; } } } } 
BgL_auxz00_1169 = BgL_res2222z00_738; } 
return 
BBOOL(BgL_auxz00_1169);} } 
}



/* char->integer */
BGL_EXPORTED_DEF long BGl_charzd2ze3integerz31zz__r4_characters_6_6z00(unsigned char BgL_charz00_27)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 247 */
{ /* ./Ieee/char.scm 248 */
obj_t BgL_symbol1642z00_739;
BgL_symbol1642z00_739 = BGl_symbol2187z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 248 */

PUSH_TRACE(BgL_symbol1642z00_739); BUNSPEC; 
{ /* ./Ieee/char.scm 248 */
long BgL_aux1641z00_740;
BgL_aux1641z00_740 = 
(BgL_charz00_27); 
POP_TRACE(); 
return BgL_aux1641z00_740;} } } } 
}



/* _char->integer1709 */
obj_t BGl__charzd2ze3integer1709z31zz__r4_characters_6_6z00(obj_t BgL_envz00_543, obj_t BgL_charz00_544)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 247 */
{ /* ./Ieee/char.scm 248 */
long BgL_auxz00_1184;
{ /* ./Ieee/char.scm 248 */
long BgL_res2223z00_744;
{ /* ./Ieee/char.scm 248 */
unsigned char BgL_charz00_741;
{ /* ./Ieee/char.scm 248 */
obj_t BgL_auxz00_1185;
if(
CHARP(BgL_charz00_544))
{ /* ./Ieee/char.scm 248 */
BgL_auxz00_1185 = BgL_charz00_544
; }  else 
{ /* ./Ieee/char.scm 248 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2188z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_charz00_544, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)11555))); 
exit( -1 );} 
BgL_charz00_741 = 
(unsigned char)CCHAR(BgL_auxz00_1185); } 
{ /* ./Ieee/char.scm 248 */
obj_t BgL_symbol1642z00_742;
BgL_symbol1642z00_742 = BGl_symbol2187z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 248 */

PUSH_TRACE(BgL_symbol1642z00_742); BUNSPEC; 
{ /* ./Ieee/char.scm 248 */
long BgL_aux1641z00_743;
BgL_aux1641z00_743 = 
(BgL_charz00_741); 
POP_TRACE(); 
BgL_res2223z00_744 = BgL_aux1641z00_743; } } } } 
BgL_auxz00_1184 = BgL_res2223z00_744; } 
return 
BINT(BgL_auxz00_1184);} } 
}



/* integer->char */
BGL_EXPORTED_DEF unsigned char BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(long BgL_intz00_28)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 253 */
{ /* ./Ieee/char.scm 254 */
obj_t BgL_symbol1646z00_485;
BgL_symbol1646z00_485 = BGl_symbol2189z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 254 */

PUSH_TRACE(BgL_symbol1646z00_485); BUNSPEC; 
{ /* ./Ieee/char.scm 254 */
unsigned char BgL_aux1645z00_486;
{ /* ./Ieee/char.scm 254 */
bool_t BgL_test1045z00_290;
if(
(BgL_intz00_28>=((long)0)))
{ /* ./Ieee/char.scm 254 */
BgL_test1045z00_290 = 
(BgL_intz00_28<=((long)255)); }  else 
{ /* ./Ieee/char.scm 254 */
BgL_test1045z00_290 = ((bool_t)0); } 
if(BgL_test1045z00_290)
{ /* ./Ieee/char.scm 254 */
BgL_aux1645z00_486 = 
(BgL_intz00_28); }  else 
{ /* ./Ieee/char.scm 254 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2190z00zz__r4_characters_6_6z00, BGl_string2191z00zz__r4_characters_6_6z00, 
BINT(BgL_intz00_28), "./Ieee/char.scm", ((long)11907)); 
{ /* ./Ieee/char.scm 256 */
obj_t BgL_auxz00_1204;
{ /* ./Ieee/char.scm 256 */
obj_t BgL_aux2036z00_613;
BgL_aux2036z00_613 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)11951))); 
if(
CHARP(BgL_aux2036z00_613))
{ /* ./Ieee/char.scm 256 */
BgL_auxz00_1204 = BgL_aux2036z00_613
; }  else 
{ /* ./Ieee/char.scm 256 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2189z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_aux2036z00_613, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)11951))); 
exit( -1 );} } 
BgL_aux1645z00_486 = 
(unsigned char)CCHAR(BgL_auxz00_1204); } } } 
POP_TRACE(); 
return BgL_aux1645z00_486;} } } } 
}



/* _integer->char1711 */
obj_t BGl__integerzd2ze3char1711z31zz__r4_characters_6_6z00(obj_t BgL_envz00_545, obj_t BgL_intz00_546)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 253 */
{ /* ./Ieee/char.scm 254 */
unsigned char BgL_auxz00_1214;
{ /* ./Ieee/char.scm 254 */
long BgL_auxz00_1215;
{ /* ./Ieee/char.scm 254 */
obj_t BgL_auxz00_1216;
if(
INTEGERP(BgL_intz00_546))
{ /* ./Ieee/char.scm 254 */
BgL_auxz00_1216 = BgL_intz00_546
; }  else 
{ /* ./Ieee/char.scm 254 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2192z00zz__r4_characters_6_6z00, BGl_string2193z00zz__r4_characters_6_6z00, BgL_intz00_546, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)11833))); 
exit( -1 );} 
BgL_auxz00_1215 = 
(long)CINT(BgL_auxz00_1216); } 
BgL_auxz00_1214 = 
BGl_integerzd2ze3charz31zz__r4_characters_6_6z00(BgL_auxz00_1215); } 
return 
BCHAR(BgL_auxz00_1214);} } 
}



/* integer->char-ur */
BGL_EXPORTED_DEF unsigned char BGl_integerzd2ze3charzd2urze3zz__r4_characters_6_6z00(long BgL_intz00_29)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 261 */
{ /* ./Ieee/char.scm 262 */
obj_t BgL_symbol1650z00_745;
BgL_symbol1650z00_745 = BGl_symbol2194z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 262 */

PUSH_TRACE(BgL_symbol1650z00_745); BUNSPEC; 
{ /* ./Ieee/char.scm 262 */
unsigned char BgL_aux1649z00_746;
BgL_aux1649z00_746 = 
(BgL_intz00_29); 
POP_TRACE(); 
return BgL_aux1649z00_746;} } } } 
}



/* _integer->char-ur1713 */
obj_t BGl__integerzd2ze3charzd2ur1713ze3zz__r4_characters_6_6z00(obj_t BgL_envz00_547, obj_t BgL_intz00_548)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 261 */
{ /* ./Ieee/char.scm 262 */
unsigned char BgL_auxz00_1228;
{ /* ./Ieee/char.scm 262 */
unsigned char BgL_res2224z00_750;
{ /* ./Ieee/char.scm 262 */
long BgL_intz00_747;
{ /* ./Ieee/char.scm 262 */
obj_t BgL_auxz00_1229;
if(
INTEGERP(BgL_intz00_548))
{ /* ./Ieee/char.scm 262 */
BgL_auxz00_1229 = BgL_intz00_548
; }  else 
{ /* ./Ieee/char.scm 262 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2195z00zz__r4_characters_6_6z00, BGl_string2193z00zz__r4_characters_6_6z00, BgL_intz00_548, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)12224))); 
exit( -1 );} 
BgL_intz00_747 = 
(long)CINT(BgL_auxz00_1229); } 
{ /* ./Ieee/char.scm 262 */
obj_t BgL_symbol1650z00_748;
BgL_symbol1650z00_748 = BGl_symbol2194z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 262 */

PUSH_TRACE(BgL_symbol1650z00_748); BUNSPEC; 
{ /* ./Ieee/char.scm 262 */
unsigned char BgL_aux1649z00_749;
BgL_aux1649z00_749 = 
(BgL_intz00_747); 
POP_TRACE(); 
BgL_res2224z00_750 = BgL_aux1649z00_749; } } } } 
BgL_auxz00_1228 = BgL_res2224z00_750; } 
return 
BCHAR(BgL_auxz00_1228);} } 
}



/* char-upcase */
BGL_EXPORTED_DEF unsigned char BGl_charzd2upcasezd2zz__r4_characters_6_6z00(unsigned char BgL_charz00_30)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 267 */
{ /* ./Ieee/char.scm 268 */
obj_t BgL_symbol1654z00_751;
BgL_symbol1654z00_751 = BGl_symbol2196z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 268 */

PUSH_TRACE(BgL_symbol1654z00_751); BUNSPEC; 
{ /* ./Ieee/char.scm 268 */
unsigned char BgL_aux1653z00_752;
BgL_aux1653z00_752 = 
toupper(BgL_charz00_30); 
POP_TRACE(); 
return BgL_aux1653z00_752;} } } } 
}



/* _char-upcase1715 */
obj_t BGl__charzd2upcase1715zd2zz__r4_characters_6_6z00(obj_t BgL_envz00_549, obj_t BgL_charz00_550)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 267 */
{ /* ./Ieee/char.scm 268 */
unsigned char BgL_auxz00_1243;
{ /* ./Ieee/char.scm 268 */
unsigned char BgL_res2225z00_756;
{ /* ./Ieee/char.scm 268 */
unsigned char BgL_charz00_753;
{ /* ./Ieee/char.scm 268 */
obj_t BgL_auxz00_1244;
if(
CHARP(BgL_charz00_550))
{ /* ./Ieee/char.scm 268 */
BgL_auxz00_1244 = BgL_charz00_550
; }  else 
{ /* ./Ieee/char.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2197z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_charz00_550, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)12508))); 
exit( -1 );} 
BgL_charz00_753 = 
(unsigned char)CCHAR(BgL_auxz00_1244); } 
{ /* ./Ieee/char.scm 268 */
obj_t BgL_symbol1654z00_754;
BgL_symbol1654z00_754 = BGl_symbol2196z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 268 */

PUSH_TRACE(BgL_symbol1654z00_754); BUNSPEC; 
{ /* ./Ieee/char.scm 268 */
unsigned char BgL_aux1653z00_755;
BgL_aux1653z00_755 = 
toupper(BgL_charz00_753); 
POP_TRACE(); 
BgL_res2225z00_756 = BgL_aux1653z00_755; } } } } 
BgL_auxz00_1243 = BgL_res2225z00_756; } 
return 
BCHAR(BgL_auxz00_1243);} } 
}



/* char-downcase */
BGL_EXPORTED_DEF unsigned char BGl_charzd2downcasezd2zz__r4_characters_6_6z00(unsigned char BgL_charz00_31)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 273 */
{ /* ./Ieee/char.scm 274 */
obj_t BgL_symbol1658z00_757;
BgL_symbol1658z00_757 = BGl_symbol2198z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 274 */

PUSH_TRACE(BgL_symbol1658z00_757); BUNSPEC; 
{ /* ./Ieee/char.scm 274 */
unsigned char BgL_aux1657z00_758;
BgL_aux1657z00_758 = 
tolower(BgL_charz00_31); 
POP_TRACE(); 
return BgL_aux1657z00_758;} } } } 
}



/* _char-downcase1717 */
obj_t BGl__charzd2downcase1717zd2zz__r4_characters_6_6z00(obj_t BgL_envz00_551, obj_t BgL_charz00_552)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 273 */
{ /* ./Ieee/char.scm 274 */
unsigned char BgL_auxz00_1258;
{ /* ./Ieee/char.scm 274 */
unsigned char BgL_res2226z00_762;
{ /* ./Ieee/char.scm 274 */
unsigned char BgL_charz00_759;
{ /* ./Ieee/char.scm 274 */
obj_t BgL_auxz00_1259;
if(
CHARP(BgL_charz00_552))
{ /* ./Ieee/char.scm 274 */
BgL_auxz00_1259 = BgL_charz00_552
; }  else 
{ /* ./Ieee/char.scm 274 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2199z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_charz00_552, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)12793))); 
exit( -1 );} 
BgL_charz00_759 = 
(unsigned char)CCHAR(BgL_auxz00_1259); } 
{ /* ./Ieee/char.scm 274 */
obj_t BgL_symbol1658z00_760;
BgL_symbol1658z00_760 = BGl_symbol2198z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 274 */

PUSH_TRACE(BgL_symbol1658z00_760); BUNSPEC; 
{ /* ./Ieee/char.scm 274 */
unsigned char BgL_aux1657z00_761;
BgL_aux1657z00_761 = 
tolower(BgL_charz00_759); 
POP_TRACE(); 
BgL_res2226z00_762 = BgL_aux1657z00_761; } } } } 
BgL_auxz00_1258 = BgL_res2226z00_762; } 
return 
BCHAR(BgL_auxz00_1258);} } 
}



/* char-or */
BGL_EXPORTED_DEF unsigned char BGl_charzd2orzd2zz__r4_characters_6_6z00(unsigned char BgL_char1z00_32, unsigned char BgL_char2z00_33)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 279 */
{ /* ./Ieee/char.scm 280 */
obj_t BgL_symbol1662z00_763;
BgL_symbol1662z00_763 = BGl_symbol2200z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 280 */

PUSH_TRACE(BgL_symbol1662z00_763); BUNSPEC; 
{ /* ./Ieee/char.scm 280 */
unsigned char BgL_aux1661z00_764;
BgL_aux1661z00_764 = 
(BgL_char1z00_32|BgL_char2z00_33); 
POP_TRACE(); 
return BgL_aux1661z00_764;} } } } 
}



/* _char-or1719 */
obj_t BGl__charzd2or1719zd2zz__r4_characters_6_6z00(obj_t BgL_envz00_553, obj_t BgL_char1z00_554, obj_t BgL_char2z00_555)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 279 */
{ /* ./Ieee/char.scm 280 */
unsigned char BgL_auxz00_1273;
{ /* ./Ieee/char.scm 280 */
unsigned char BgL_res2227z00_769;
{ /* ./Ieee/char.scm 280 */
unsigned char BgL_char1z00_765;unsigned char BgL_char2z00_766;
{ /* ./Ieee/char.scm 280 */
obj_t BgL_auxz00_1274;
if(
CHARP(BgL_char1z00_554))
{ /* ./Ieee/char.scm 280 */
BgL_auxz00_1274 = BgL_char1z00_554
; }  else 
{ /* ./Ieee/char.scm 280 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2201z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_554, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)13087))); 
exit( -1 );} 
BgL_char1z00_765 = 
(unsigned char)CCHAR(BgL_auxz00_1274); } 
{ /* ./Ieee/char.scm 280 */
obj_t BgL_auxz00_1281;
if(
CHARP(BgL_char2z00_555))
{ /* ./Ieee/char.scm 280 */
BgL_auxz00_1281 = BgL_char2z00_555
; }  else 
{ /* ./Ieee/char.scm 280 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2201z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_555, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)13087))); 
exit( -1 );} 
BgL_char2z00_766 = 
(unsigned char)CCHAR(BgL_auxz00_1281); } 
{ /* ./Ieee/char.scm 280 */
obj_t BgL_symbol1662z00_767;
BgL_symbol1662z00_767 = BGl_symbol2200z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 280 */

PUSH_TRACE(BgL_symbol1662z00_767); BUNSPEC; 
{ /* ./Ieee/char.scm 280 */
unsigned char BgL_aux1661z00_768;
BgL_aux1661z00_768 = 
(BgL_char1z00_765|BgL_char2z00_766); 
POP_TRACE(); 
BgL_res2227z00_769 = BgL_aux1661z00_768; } } } } 
BgL_auxz00_1273 = BgL_res2227z00_769; } 
return 
BCHAR(BgL_auxz00_1273);} } 
}



/* char-and */
BGL_EXPORTED_DEF unsigned char BGl_charzd2andzd2zz__r4_characters_6_6z00(unsigned char BgL_char1z00_34, unsigned char BgL_char2z00_35)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 285 */
{ /* ./Ieee/char.scm 286 */
obj_t BgL_symbol1666z00_770;
BgL_symbol1666z00_770 = BGl_symbol2202z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 286 */

PUSH_TRACE(BgL_symbol1666z00_770); BUNSPEC; 
{ /* ./Ieee/char.scm 286 */
unsigned char BgL_aux1665z00_771;
BgL_aux1665z00_771 = 
(BgL_char1z00_34&BgL_char2z00_35); 
POP_TRACE(); 
return BgL_aux1665z00_771;} } } } 
}



/* _char-and1721 */
obj_t BGl__charzd2and1721zd2zz__r4_characters_6_6z00(obj_t BgL_envz00_556, obj_t BgL_char1z00_557, obj_t BgL_char2z00_558)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 285 */
{ /* ./Ieee/char.scm 286 */
unsigned char BgL_auxz00_1295;
{ /* ./Ieee/char.scm 286 */
unsigned char BgL_res2228z00_776;
{ /* ./Ieee/char.scm 286 */
unsigned char BgL_char1z00_772;unsigned char BgL_char2z00_773;
{ /* ./Ieee/char.scm 286 */
obj_t BgL_auxz00_1296;
if(
CHARP(BgL_char1z00_557))
{ /* ./Ieee/char.scm 286 */
BgL_auxz00_1296 = BgL_char1z00_557
; }  else 
{ /* ./Ieee/char.scm 286 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2203z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_557, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)13376))); 
exit( -1 );} 
BgL_char1z00_772 = 
(unsigned char)CCHAR(BgL_auxz00_1296); } 
{ /* ./Ieee/char.scm 286 */
obj_t BgL_auxz00_1303;
if(
CHARP(BgL_char2z00_558))
{ /* ./Ieee/char.scm 286 */
BgL_auxz00_1303 = BgL_char2z00_558
; }  else 
{ /* ./Ieee/char.scm 286 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2203z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char2z00_558, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)13376))); 
exit( -1 );} 
BgL_char2z00_773 = 
(unsigned char)CCHAR(BgL_auxz00_1303); } 
{ /* ./Ieee/char.scm 286 */
obj_t BgL_symbol1666z00_774;
BgL_symbol1666z00_774 = BGl_symbol2202z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 286 */

PUSH_TRACE(BgL_symbol1666z00_774); BUNSPEC; 
{ /* ./Ieee/char.scm 286 */
unsigned char BgL_aux1665z00_775;
BgL_aux1665z00_775 = 
(BgL_char1z00_772&BgL_char2z00_773); 
POP_TRACE(); 
BgL_res2228z00_776 = BgL_aux1665z00_775; } } } } 
BgL_auxz00_1295 = BgL_res2228z00_776; } 
return 
BCHAR(BgL_auxz00_1295);} } 
}



/* char-not */
BGL_EXPORTED_DEF unsigned char BGl_charzd2notzd2zz__r4_characters_6_6z00(unsigned char BgL_char1z00_36)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 291 */
{ /* ./Ieee/char.scm 292 */
obj_t BgL_symbol1670z00_777;
BgL_symbol1670z00_777 = BGl_symbol2204z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 292 */

PUSH_TRACE(BgL_symbol1670z00_777); BUNSPEC; 
{ /* ./Ieee/char.scm 292 */
unsigned char BgL_aux1669z00_778;
BgL_aux1669z00_778 = 
~(BgL_char1z00_36); 
POP_TRACE(); 
return BgL_aux1669z00_778;} } } } 
}



/* _char-not1723 */
obj_t BGl__charzd2not1723zd2zz__r4_characters_6_6z00(obj_t BgL_envz00_559, obj_t BgL_char1z00_560)
{ AN_OBJECT;
{ /* ./Ieee/char.scm 291 */
{ /* ./Ieee/char.scm 292 */
unsigned char BgL_auxz00_1317;
{ /* ./Ieee/char.scm 292 */
unsigned char BgL_res2229z00_782;
{ /* ./Ieee/char.scm 292 */
unsigned char BgL_char1z00_779;
{ /* ./Ieee/char.scm 292 */
obj_t BgL_auxz00_1318;
if(
CHARP(BgL_char1z00_560))
{ /* ./Ieee/char.scm 292 */
BgL_auxz00_1318 = BgL_char1z00_560
; }  else 
{ /* ./Ieee/char.scm 292 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2205z00zz__r4_characters_6_6z00, BGl_string2157z00zz__r4_characters_6_6z00, BgL_char1z00_560, BGl_string2158z00zz__r4_characters_6_6z00, 
BINT(((long)13660))); 
exit( -1 );} 
BgL_char1z00_779 = 
(unsigned char)CCHAR(BgL_auxz00_1318); } 
{ /* ./Ieee/char.scm 292 */
obj_t BgL_symbol1670z00_780;
BgL_symbol1670z00_780 = BGl_symbol2204z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 292 */

PUSH_TRACE(BgL_symbol1670z00_780); BUNSPEC; 
{ /* ./Ieee/char.scm 292 */
unsigned char BgL_aux1669z00_781;
BgL_aux1669z00_781 = 
~(BgL_char1z00_779); 
POP_TRACE(); 
BgL_res2229z00_782 = BgL_aux1669z00_781; } } } } 
BgL_auxz00_1317 = BgL_res2229z00_782; } 
return 
BCHAR(BgL_auxz00_1317);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_characters_6_6z00()
{ AN_OBJECT;
{ /* ./Ieee/char.scm 14 */
{ /* ./Ieee/char.scm 14 */
obj_t BgL_symbol1674z00_499;
BgL_symbol1674z00_499 = BGl_symbol2206z00zz__r4_characters_6_6z00; 
{ /* ./Ieee/char.scm 14 */

PUSH_TRACE(BgL_symbol1674z00_499); BUNSPEC; 
{ /* ./Ieee/char.scm 14 */
obj_t BgL_aux1673z00_500;
BgL_aux1673z00_500 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_characters_6_6"); 
POP_TRACE(); 
return BgL_aux1673z00_500;} } } } 
}

