/*===========================================================================*/
/*   (Ieee/string.scm)                                                       */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Ieee/string.scm -indent -o objs/obj_u/Ieee/string.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

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

BGL_EXPORTED_DECL obj_t BGl_stringz00zz__r4_strings_6_7z00(obj_t);
static long BGl_loopz00zz__r4_strings_6_7z00(int, int, obj_t, obj_t, long, long);
static obj_t BGl__substringzd2cizd3zf31885zf2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL bool_t BGl_stringzc3zf3z30zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__makezd2string1868zd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL unsigned char BGl_stringzd2refzd2urz00zz__r4_strings_6_7z00(obj_t, int);
extern obj_t make_string(int, unsigned char);
BGL_EXPORTED_DECL obj_t BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd3zf3z20zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2fillz121921zc0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__stringzd2upcase1923zd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2compare3zd2ci1913z00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringze3zf3z10zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzf3zf3zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__substringzd2ur1909zd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2capitaliza7ez121931z67zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t bigloo_strncmp(obj_t, obj_t, int);
static obj_t BGl__stringzd3zf31881z20zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
extern long bgl_list_length(obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2cizc3zf3ze2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2cizc3zf31899ze2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2ze3list1917z31zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringze3zd3zf3zc3zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2forzd2readz00zz__r4_strings_6_7z00(obj_t);
extern obj_t string_for_read(obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2cize3zf3zc2zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzf3zf3zz__r4_strings_6_7z00(obj_t);
static long BGl_loopz72z72zz__r4_strings_6_7z00(int, int, obj_t, obj_t, long, long);
extern bool_t string_ge(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(obj_t);
extern bool_t string_cige(obj_t, obj_t);
static obj_t BGl__stringzd2downcasez121929zc0zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2ref1873zd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
extern bool_t bigloo_strcmp(obj_t, obj_t);
extern bool_t string_gt(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2setz12zc0zz__r4_strings_6_7z00(obj_t, int, unsigned char);
extern bool_t string_cigt(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__emptyzd2stringzf31887z21zz__r4_strings_6_7z00(obj_t, obj_t);
extern obj_t c_substring(obj_t, int, int);
BGL_EXPORTED_DECL obj_t BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_substringzd2urzd2zz__r4_strings_6_7z00(obj_t, int, int);
extern bool_t bigloo_strncmp_ci(obj_t, obj_t, int);
extern bool_t string_le(obj_t, obj_t);
extern long BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(long, obj_t);
extern bool_t string_cile(obj_t, obj_t);
static obj_t BGl__stringze3zf31893z10zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringz00zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2cize3zf31901zc2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL unsigned char BGl_stringzd2refzd2zz__r4_strings_6_7z00(obj_t, int);
BGL_EXPORTED_DECL bool_t BGl_substringzd3zf3z20zz__r4_strings_6_7z00(obj_t, obj_t, int);
extern bool_t string_lt(obj_t, obj_t);
extern bool_t string_cilt(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__stringzd2shrinkz12zc0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_strings_6_7z00();
extern obj_t bgl_string_shrink(obj_t, int);
static obj_t BGl__stringzd2upcasez121927zc0zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t, int, obj_t, int, int);
BGL_EXPORTED_DECL bool_t BGl_stringzc3zd3zf3ze3zz__r4_strings_6_7z00(obj_t, obj_t);
extern obj_t blit_string(obj_t, int, obj_t, int, int);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_stringzd2cizc3zd3zf3z31zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2cize3zd3zf31905z11zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2copy1919zd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__substringzd3zf31883z20zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2stringzd2zz__r4_strings_6_7z00(int, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2shrinkz12zc0zz__r4_strings_6_7z00(obj_t, int);
static obj_t BGl__substring1907z00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
extern bool_t strcicmp(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL int BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2setzd2urz121879z12zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2refzd2ur1877z00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
extern obj_t make_string_sans_fill(int);
static obj_t BGl__stringze3zd3zf31897zc3zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2cizc3zd3zf31903z31zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2downcase1925zd2zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_substringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t, obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, int, int);
static obj_t BGl__stringzc3zf31891z30zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2cizd3zf31889zf2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2setzd2urz12z12zz__r4_strings_6_7z00(obj_t, int, unsigned char);
BGL_EXPORTED_DECL obj_t BGl_blitzd2stringzd2urz12z12zz__r4_strings_6_7z00(obj_t, int, obj_t, int, int);
static obj_t BGl__stringzc3zd3zf31895ze3zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_emptyzd2stringzf3z21zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__stringzd2compare31911zd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2forzd2read1935z00zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2capitaliza7e1933z75zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__blitzd2stringzd2urz121937z12zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2cize3zd3zf3z11zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__blitzd2stringz121939zc0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2setz121875zc0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_stringzd2lengthzd2zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(obj_t, unsigned char);
static obj_t BGl__stringzd2appendzd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2length1871zd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_substringzd2urzd2envz00zz__r4_strings_6_7z00, BgL_bgl__substringza7d2ur1909za7d2za7za7__r4_strings_6_7za7002081za7, BGl__substringzd2ur1909zd2zz__r4_strings_6_7z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2fillz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__stringza7d2fillza7121921za7c0za7za7__r4_strings_6_7za7002082z00, BGl__stringzd2fillz121921zc0zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2compare3zd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2compare31911za7d2za7za7__r4_strings_6_7za7002083za7, BGl__stringzd2compare31911zd2zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_blitzd2stringz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__blitza7d2stringza7121939za7c0za7za7__r4_strings_6_7za7002084z00, BGl__blitzd2stringz121939zc0zz__r4_strings_6_7z00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2ze3stringzd2envze3zz__r4_strings_6_7z00, BgL_bgl__listza7d2za7e3stringza731za7za7__r4_strings_6_7za7002085z00, BGl__listzd2ze3stringz31zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2copyzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2copy1919za7d2za7za7__r4_strings_6_7za7002086za7, BGl__stringzd2copy1919zd2zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2compare3zd2cizd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2compare3za7d2ci1913za700za7za7__r4_strings_6_7za7002087z00, BGl__stringzd2compare3zd2ci1913z00zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2cizc3zd3zf3zd2envze3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ciza7c3za7d3za7f31903za731za7za7__r4_strings_6_7za7002088z00, BGl__stringzd2cizc3zd3zf31903z31zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2upcasez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__stringza7d2upcaseza7121927za7c0za7za7__r4_strings_6_7za7002089z00, BGl__stringzd2upcasez121927zc0zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_emptyzd2stringzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__emptyza7d2stringza7f31887za721za7za7__r4_strings_6_7za7002090z00, BGl__emptyzd2stringzf31887z21zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza700za7za7__r4_strings_6_7za7002091z00, va_generic_entry, BGl__stringz00zz__r4_strings_6_7z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze3listzd2envze3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2za7e3list1917za731za7za7__r4_strings_6_7za7002092z00, BGl__stringzd2ze3list1917z31zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2cize3zf3zd2envz10zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ciza7e3za7f31901za7c2za7za7__r4_strings_6_7za7002093za7, BGl__stringzd2cize3zf31901zc2zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2capitaliza7ezd2envza7zz__r4_strings_6_7z00, BgL_bgl__stringza7d2capitaliza7a7e1933za775za7za7__r4_strings_6_7za7002094z00, BGl__stringzd2capitaliza7e1933z75zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2shrinkz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__stringza7d2shrinkza712za7c0za7za7__r4_strings_6_7za7002095z00, BGl__stringzd2shrinkz12zc0zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2cize3zd3zf3zd2envzc3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ciza7e3za7d3za7f31905za711za7za7__r4_strings_6_7za7002096z00, BGl__stringzd2cize3zd3zf31905z11zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzc3zf3zd2envze2zz__r4_strings_6_7z00, BgL_bgl__stringza7c3za7f31891za730za7za7__r4_strings_6_7za7002097z00, BGl__stringzc3zf31891z30zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2downcasez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__stringza7d2downcaseza7121929za7c0za7za7__r4_strings_6_7za7002098z00, BGl__stringzd2downcasez121929zc0zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__stringza7f3za7f3za7za7__r4_strings_6_7za7002099za7, BGl__stringzf3zf3zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2refzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ref1873za7d2za7za7__r4_strings_6_7za7002100za7, BGl__stringzd2ref1873zd2zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2appendzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2appendza7d2za7za7__r4_strings_6_7za7002101za7, va_generic_entry, BGl__stringzd2appendzd2zz__r4_strings_6_7z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2refzd2urzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2refza7d2ur1877za700za7za7__r4_strings_6_7za7002102z00, BGl__stringzd2refzd2ur1877z00zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2cizc3zf3zd2envz30zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ciza7c3za7f31899za7e2za7za7__r4_strings_6_7za7002103za7, BGl__stringzd2cizc3zf31899ze2zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_substringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00, BgL_bgl__substringza7d2ciza7d3za7f31885za7f2za7za7__r4_strings_6_7za7002104za7, BGl__substringzd2cizd3zf31885zf2zz__r4_strings_6_7z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd3zf3zd2envzf2zz__r4_strings_6_7z00, BgL_bgl__stringza7d3za7f31881za720za7za7__r4_strings_6_7za7002105z00, BGl__stringzd3zf31881z20zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2stringzd2envz00zz__r4_strings_6_7z00, BgL_bgl__makeza7d2string1868za7d2za7za7__r4_strings_6_7za7002106za7, va_generic_entry, BGl__makezd2string1868zd2zz__r4_strings_6_7z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2setz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__stringza7d2setza7121875za7c0za7za7__r4_strings_6_7za7002107z00, BGl__stringzd2setz121875zc0zz__r4_strings_6_7z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzc3zd3zf3zd2envz31zz__r4_strings_6_7z00, BgL_bgl__stringza7c3za7d3za7f31895za7e3za7za7__r4_strings_6_7za7002108za7, BGl__stringzc3zd3zf31895ze3zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2forzd2readzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2forza7d2read1935za700za7za7__r4_strings_6_7za7002109z00, BGl__stringzd2forzd2read1935z00zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_blitzd2stringzd2urz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl__blitza7d2stringza7d2urza7121937za712za7za7__r4_strings_6_7za7002110za7, BGl__blitzd2stringzd2urz121937z12zz__r4_strings_6_7z00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2setzd2urz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl__stringza7d2setza7d2urza7121879za712za7za7__r4_strings_6_7za7002111za7, BGl__stringzd2setzd2urz121879z12zz__r4_strings_6_7z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringze3zd3zf3zd2envz11zz__r4_strings_6_7z00, BgL_bgl__stringza7e3za7d3za7f31897za7c3za7za7__r4_strings_6_7za7002112za7, BGl__stringze3zd3zf31897zc3zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2lengthzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2length1871za7d2za7za7__r4_strings_6_7za7002113za7, BGl__stringzd2length1871zd2zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_substringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__substring1907za700za7za7__r4_strings_6_7za7002114z00, BGl__substring1907z00zz__r4_strings_6_7z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2upcasezd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2upcase1923za7d2za7za7__r4_strings_6_7za7002115za7, BGl__stringzd2upcase1923zd2zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2downcasezd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2downcase1925za7d2za7za7__r4_strings_6_7za7002116za7, BGl__stringzd2downcase1925zd2zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ciza7d3za7f31889za7f2za7za7__r4_strings_6_7za7002117za7, BGl__stringzd2cizd3zf31889zf2zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_STRING( BGl_string2075z00zz__r4_strings_6_7z00, BgL_bgl_string2075za700za7za7__r4_strings_6_7za7002118z00, "blit-string!:Index and length out of range", 42 );
DEFINE_STRING( BGl_string2074z00zz__r4_strings_6_7z00, BgL_bgl_string2074za700za7za7__r4_strings_6_7za7002119z00, "[src:", 5 );
DEFINE_STRING( BGl_string2073z00zz__r4_strings_6_7z00, BgL_bgl_string2073za700za7za7__r4_strings_6_7za7002120z00, "] [dest:", 8 );
DEFINE_STRING( BGl_string2072z00zz__r4_strings_6_7z00, BgL_bgl_string2072za700za7za7__r4_strings_6_7za7002121z00, "]", 1 );
DEFINE_STRING( BGl_string2071z00zz__r4_strings_6_7z00, BgL_bgl_string2071za700za7za7__r4_strings_6_7za7002122z00, "", 0 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2capitaliza7ez12zd2envzb5zz__r4_strings_6_7z00, BgL_bgl__stringza7d2capitaliza7a7eza7121931za767za7za7__r4_strings_6_7za7002123za7, BGl__stringzd2capitaliza7ez121931z67zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_STRING( BGl_string2070z00zz__r4_strings_6_7z00, BgL_bgl_string2070za700za7za7__r4_strings_6_7za7002124z00, "Illegal index", 13 );
DEFINE_STRING( BGl_string2069z00zz__r4_strings_6_7z00, BgL_bgl_string2069za700za7za7__r4_strings_6_7za7002125z00, "substring", 9 );
DEFINE_STRING( BGl_string2068z00zz__r4_strings_6_7z00, BgL_bgl_string2068za700za7za7__r4_strings_6_7za7002126z00, "string-set!", 11 );
DEFINE_STRING( BGl_string2067z00zz__r4_strings_6_7z00, BgL_bgl_string2067za700za7za7__r4_strings_6_7za7002127z00, "index out of range", 18 );
DEFINE_STRING( BGl_string2066z00zz__r4_strings_6_7z00, BgL_bgl_string2066za700za7za7__r4_strings_6_7za7002128z00, "string-ref", 10 );
DEFINE_EXPORT_PROCEDURE( BGl_stringze3zf3zd2envzc2zz__r4_strings_6_7z00, BgL_bgl__stringza7e3za7f31893za710za7za7__r4_strings_6_7za7002129z00, BGl__stringze3zf31893z10zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_substringzd3zf3zd2envzf2zz__r4_strings_6_7z00, BgL_bgl__substringza7d3za7f31883za720za7za7__r4_strings_6_7za7002130z00, BGl__substringzd3zf31883z20zz__r4_strings_6_7z00, 0L, 3 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long BgL_checksumz00_1198, char * BgL_fromz00_1199)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00 = 
BBOOL(((bool_t)0)); 
BGl_importedzd2moduleszd2initz00zz__r4_strings_6_7z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* string? */
BGL_EXPORTED_DEF bool_t BGl_stringzf3zf3zz__r4_strings_6_7z00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 203 */
return 
STRINGP(BgL_objz00_1);} 
}



/* _string? */
obj_t BGl__stringzf3zf3zz__r4_strings_6_7z00(obj_t BgL_envz00_992, obj_t BgL_objz00_993)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 203 */
{ /* ./Ieee/string.scm 204 */
bool_t BgL_auxz00_1205;
BgL_auxz00_1205 = 
STRINGP(BgL_objz00_993); 
return 
BBOOL(BgL_auxz00_1205);} } 
}



/* make-string */
BGL_EXPORTED_DEF obj_t BGl_makezd2stringzd2zz__r4_strings_6_7z00(int BgL_kz00_2, obj_t BgL_charz00_3)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 209 */
if(
NULLP(BgL_charz00_3))
{ /* ./Ieee/string.scm 210 */
return 
make_string(BgL_kz00_2, ((unsigned char)' '));}  else 
{ /* ./Ieee/string.scm 210 */
obj_t BgL_arg1008z00_1120;
BgL_arg1008z00_1120 = 
CAR(BgL_charz00_3); 
{ /* ./Ieee/string.scm 210 */
unsigned char BgL_auxz00_1212;
BgL_auxz00_1212 = 
(unsigned char)CCHAR(BgL_arg1008z00_1120); 
return 
make_string(BgL_kz00_2, BgL_auxz00_1212);} } } 
}



/* _make-string1868 */
obj_t BGl__makezd2string1868zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_994, obj_t BgL_kz00_995, obj_t BgL_charz00_996)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 209 */
{ /* ./Ieee/string.scm 210 */
int BgL_kz00_1121;
BgL_kz00_1121 = 
CINT(BgL_kz00_995); 
if(
NULLP(BgL_charz00_996))
{ /* ./Ieee/string.scm 210 */
return 
make_string(BgL_kz00_1121, ((unsigned char)' '));}  else 
{ /* ./Ieee/string.scm 210 */
obj_t BgL_arg1008z00_1123;
BgL_arg1008z00_1123 = 
CAR(BgL_charz00_996); 
{ /* ./Ieee/string.scm 210 */
unsigned char BgL_auxz00_1220;
BgL_auxz00_1220 = 
(unsigned char)CCHAR(BgL_arg1008z00_1123); 
return 
make_string(BgL_kz00_1121, BgL_auxz00_1220);} } } } 
}



/* string */
BGL_EXPORTED_DEF obj_t BGl_stringz00zz__r4_strings_6_7z00(obj_t BgL_charsz00_4)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 217 */
return 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_charsz00_4);} 
}



/* _string */
obj_t BGl__stringz00zz__r4_strings_6_7z00(obj_t BgL_envz00_997, obj_t BgL_charsz00_998)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 217 */
return 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_charsz00_998);} 
}



/* string-length */
BGL_EXPORTED_DEF int BGl_stringzd2lengthzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_5)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 223 */
return 
STRING_LENGTH(BgL_stringz00_5);} 
}



/* _string-length1871 */
obj_t BGl__stringzd2length1871zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_999, obj_t BgL_stringz00_1000)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 223 */
{ /* ./Ieee/string.scm 224 */
int BgL_auxz00_1226;
BgL_auxz00_1226 = 
STRING_LENGTH(BgL_stringz00_1000); 
return 
BINT(BgL_auxz00_1226);} } 
}



/* string-ref */
BGL_EXPORTED_DEF unsigned char BGl_stringzd2refzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_6, int BgL_kz00_7)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 229 */
{ /* ./Ieee/string.scm 230 */
bool_t BgL_testz00_1229;
{ /* ./Ieee/string.scm 230 */
int BgL_auxz00_1230;
BgL_auxz00_1230 = 
STRING_LENGTH(BgL_stringz00_6); 
BgL_testz00_1229 = 
BOUND_CHECK(BgL_kz00_7, BgL_auxz00_1230); } 
if(BgL_testz00_1229)
{ /* ./Ieee/string.scm 230 */
return 
STRING_REF(BgL_stringz00_6, BgL_kz00_7);}  else 
{ /* ./Ieee/string.scm 230 */
obj_t BgL_objectz00_1128;
BgL_objectz00_1128 = 
BINT(BgL_kz00_7); 
FAILURE(BGl_string2066z00zz__r4_strings_6_7z00,BGl_string2067z00zz__r4_strings_6_7z00,BgL_objectz00_1128);} } } 
}



/* _string-ref1873 */
obj_t BGl__stringzd2ref1873zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1001, obj_t BgL_stringz00_1002, obj_t BgL_kz00_1003)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 229 */
{ /* ./Ieee/string.scm 230 */
unsigned char BgL_auxz00_1236;
{ /* ./Ieee/string.scm 230 */
int BgL_kz00_1130;
BgL_kz00_1130 = 
CINT(BgL_kz00_1003); 
{ /* ./Ieee/string.scm 230 */
bool_t BgL_testz00_1238;
{ /* ./Ieee/string.scm 230 */
int BgL_auxz00_1239;
BgL_auxz00_1239 = 
STRING_LENGTH(BgL_stringz00_1002); 
BgL_testz00_1238 = 
BOUND_CHECK(BgL_kz00_1130, BgL_auxz00_1239); } 
if(BgL_testz00_1238)
{ /* ./Ieee/string.scm 230 */
BgL_auxz00_1236 = 
STRING_REF(BgL_stringz00_1002, BgL_kz00_1130)
; }  else 
{ /* ./Ieee/string.scm 230 */
obj_t BgL_objectz00_1133;
BgL_objectz00_1133 = 
BINT(BgL_kz00_1130); 
FAILURE(BGl_string2066z00zz__r4_strings_6_7z00,BGl_string2067z00zz__r4_strings_6_7z00,BgL_objectz00_1133);} } } 
return 
BCHAR(BgL_auxz00_1236);} } 
}



/* string-set! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2setz12zc0zz__r4_strings_6_7z00(obj_t BgL_stringz00_8, int BgL_kz00_9, unsigned char BgL_charz00_10)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 237 */
{ /* ./Ieee/string.scm 238 */
bool_t BgL_testz00_1246;
{ /* ./Ieee/string.scm 238 */
int BgL_auxz00_1247;
BgL_auxz00_1247 = 
STRING_LENGTH(BgL_stringz00_8); 
BgL_testz00_1246 = 
BOUND_CHECK(BgL_kz00_9, BgL_auxz00_1247); } 
if(BgL_testz00_1246)
{ /* ./Ieee/string.scm 238 */
return 
STRING_SET(BgL_stringz00_8, BgL_kz00_9, BgL_charz00_10);}  else 
{ /* ./Ieee/string.scm 238 */
obj_t BgL_objectz00_1136;
BgL_objectz00_1136 = 
BINT(BgL_kz00_9); 
FAILURE(BGl_string2068z00zz__r4_strings_6_7z00,BGl_string2067z00zz__r4_strings_6_7z00,BgL_objectz00_1136);} } } 
}



/* _string-set!1875 */
obj_t BGl__stringzd2setz121875zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1004, obj_t BgL_stringz00_1005, obj_t BgL_kz00_1006, obj_t BgL_charz00_1007)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 237 */
{ /* ./Ieee/string.scm 238 */
int BgL_kz00_1138;unsigned char BgL_charz00_1139;
BgL_kz00_1138 = 
CINT(BgL_kz00_1006); 
BgL_charz00_1139 = 
(unsigned char)CCHAR(BgL_charz00_1007); 
{ /* ./Ieee/string.scm 238 */
bool_t BgL_testz00_1255;
{ /* ./Ieee/string.scm 238 */
int BgL_auxz00_1256;
BgL_auxz00_1256 = 
STRING_LENGTH(BgL_stringz00_1005); 
BgL_testz00_1255 = 
BOUND_CHECK(BgL_kz00_1138, BgL_auxz00_1256); } 
if(BgL_testz00_1255)
{ /* ./Ieee/string.scm 238 */
return 
STRING_SET(BgL_stringz00_1005, BgL_kz00_1138, BgL_charz00_1139);}  else 
{ /* ./Ieee/string.scm 238 */
obj_t BgL_objectz00_1142;
BgL_objectz00_1142 = 
BINT(BgL_kz00_1138); 
FAILURE(BGl_string2068z00zz__r4_strings_6_7z00,BGl_string2067z00zz__r4_strings_6_7z00,BgL_objectz00_1142);} } } } 
}



/* string-ref-ur */
BGL_EXPORTED_DEF unsigned char BGl_stringzd2refzd2urz00zz__r4_strings_6_7z00(obj_t BgL_stringz00_11, int BgL_kz00_12)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 245 */
return 
STRING_REF(BgL_stringz00_11, BgL_kz00_12);} 
}



/* _string-ref-ur1877 */
obj_t BGl__stringzd2refzd2ur1877z00zz__r4_strings_6_7z00(obj_t BgL_envz00_1008, obj_t BgL_stringz00_1009, obj_t BgL_kz00_1010)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 245 */
{ /* ./Ieee/string.scm 246 */
unsigned char BgL_auxz00_1263;
{ /* ./Ieee/string.scm 246 */
int BgL_auxz00_1264;
BgL_auxz00_1264 = 
CINT(BgL_kz00_1010); 
BgL_auxz00_1263 = 
STRING_REF(BgL_stringz00_1009, BgL_auxz00_1264); } 
return 
BCHAR(BgL_auxz00_1263);} } 
}



/* string-set-ur! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2setzd2urz12z12zz__r4_strings_6_7z00(obj_t BgL_stringz00_13, int BgL_kz00_14, unsigned char BgL_charz00_15)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 251 */
return 
STRING_SET(BgL_stringz00_13, BgL_kz00_14, BgL_charz00_15);} 
}



/* _string-set-ur!1879 */
obj_t BGl__stringzd2setzd2urz121879z12zz__r4_strings_6_7z00(obj_t BgL_envz00_1011, obj_t BgL_stringz00_1012, obj_t BgL_kz00_1013, obj_t BgL_charz00_1014)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 251 */
{ /* ./Ieee/string.scm 252 */
unsigned char BgL_auxz00_1271;int BgL_auxz00_1269;
BgL_auxz00_1271 = 
(unsigned char)CCHAR(BgL_charz00_1014); 
BgL_auxz00_1269 = 
CINT(BgL_kz00_1013); 
return 
STRING_SET(BgL_stringz00_1012, BgL_auxz00_1269, BgL_auxz00_1271);} } 
}



/* string=? */
BGL_EXPORTED_DEF bool_t BGl_stringzd3zf3z20zz__r4_strings_6_7z00(obj_t BgL_string1z00_16, obj_t BgL_string2z00_17)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 257 */
return 
bigloo_strcmp(BgL_string1z00_16, BgL_string2z00_17);} 
}



/* _string=?1881 */
obj_t BGl__stringzd3zf31881z20zz__r4_strings_6_7z00(obj_t BgL_envz00_1015, obj_t BgL_string1z00_1016, obj_t BgL_string2z00_1017)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 257 */
{ /* ./Ieee/string.scm 258 */
bool_t BgL_auxz00_1275;
BgL_auxz00_1275 = 
bigloo_strcmp(BgL_string1z00_1016, BgL_string2z00_1017); 
return 
BBOOL(BgL_auxz00_1275);} } 
}



/* substring=? */
BGL_EXPORTED_DEF bool_t BGl_substringzd3zf3z20zz__r4_strings_6_7z00(obj_t BgL_string1z00_18, obj_t BgL_string2z00_19, int BgL_lenz00_20)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 263 */
return 
bigloo_strncmp(BgL_string1z00_18, BgL_string2z00_19, BgL_lenz00_20);} 
}



/* _substring=?1883 */
obj_t BGl__substringzd3zf31883z20zz__r4_strings_6_7z00(obj_t BgL_envz00_1018, obj_t BgL_string1z00_1019, obj_t BgL_string2z00_1020, obj_t BgL_lenz00_1021)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 263 */
{ /* ./Ieee/string.scm 264 */
bool_t BgL_auxz00_1279;
{ /* ./Ieee/string.scm 264 */
int BgL_auxz00_1280;
BgL_auxz00_1280 = 
CINT(BgL_lenz00_1021); 
BgL_auxz00_1279 = 
bigloo_strncmp(BgL_string1z00_1019, BgL_string2z00_1020, BgL_auxz00_1280); } 
return 
BBOOL(BgL_auxz00_1279);} } 
}



/* substring-ci=? */
BGL_EXPORTED_DEF bool_t BGl_substringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t BgL_string1z00_21, obj_t BgL_string2z00_22, int BgL_lenz00_23)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 269 */
return 
bigloo_strncmp_ci(BgL_string1z00_21, BgL_string2z00_22, BgL_lenz00_23);} 
}



/* _substring-ci=?1885 */
obj_t BGl__substringzd2cizd3zf31885zf2zz__r4_strings_6_7z00(obj_t BgL_envz00_1022, obj_t BgL_string1z00_1023, obj_t BgL_string2z00_1024, obj_t BgL_lenz00_1025)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 269 */
{ /* ./Ieee/string.scm 270 */
bool_t BgL_auxz00_1285;
{ /* ./Ieee/string.scm 270 */
int BgL_auxz00_1286;
BgL_auxz00_1286 = 
CINT(BgL_lenz00_1025); 
BgL_auxz00_1285 = 
bigloo_strncmp_ci(BgL_string1z00_1023, BgL_string2z00_1024, BgL_auxz00_1286); } 
return 
BBOOL(BgL_auxz00_1285);} } 
}



/* empty-string? */
BGL_EXPORTED_DEF bool_t BGl_emptyzd2stringzf3z21zz__r4_strings_6_7z00(obj_t BgL_stringz00_24)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 275 */
{ /* ./Ieee/string.scm 276 */
long BgL_auxz00_1290;
{ /* ./Ieee/string.scm 276 */
int BgL_auxz00_1291;
BgL_auxz00_1291 = 
STRING_LENGTH(BgL_stringz00_24); 
BgL_auxz00_1290 = 
(long)(BgL_auxz00_1291); } 
return 
(BgL_auxz00_1290==((long)0));} } 
}



/* _empty-string?1887 */
obj_t BGl__emptyzd2stringzf31887z21zz__r4_strings_6_7z00(obj_t BgL_envz00_1026, obj_t BgL_stringz00_1027)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 275 */
{ /* ./Ieee/string.scm 276 */
bool_t BgL_auxz00_1295;
{ /* ./Ieee/string.scm 276 */
long BgL_auxz00_1296;
{ /* ./Ieee/string.scm 276 */
int BgL_auxz00_1297;
BgL_auxz00_1297 = 
STRING_LENGTH(BgL_stringz00_1027); 
BgL_auxz00_1296 = 
(long)(BgL_auxz00_1297); } 
BgL_auxz00_1295 = 
(BgL_auxz00_1296==((long)0)); } 
return 
BBOOL(BgL_auxz00_1295);} } 
}



/* string-ci=? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t BgL_string1z00_25, obj_t BgL_string2z00_26)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 281 */
return 
strcicmp(BgL_string1z00_25, BgL_string2z00_26);} 
}



/* _string-ci=?1889 */
obj_t BGl__stringzd2cizd3zf31889zf2zz__r4_strings_6_7z00(obj_t BgL_envz00_1028, obj_t BgL_string1z00_1029, obj_t BgL_string2z00_1030)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 281 */
{ /* ./Ieee/string.scm 282 */
bool_t BgL_auxz00_1303;
BgL_auxz00_1303 = 
strcicmp(BgL_string1z00_1029, BgL_string2z00_1030); 
return 
BBOOL(BgL_auxz00_1303);} } 
}



/* string<? */
BGL_EXPORTED_DEF bool_t BGl_stringzc3zf3z30zz__r4_strings_6_7z00(obj_t BgL_string1z00_27, obj_t BgL_string2z00_28)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 287 */
return 
string_lt(BgL_string1z00_27, BgL_string2z00_28);} 
}



/* _string<?1891 */
obj_t BGl__stringzc3zf31891z30zz__r4_strings_6_7z00(obj_t BgL_envz00_1031, obj_t BgL_string1z00_1032, obj_t BgL_string2z00_1033)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 287 */
{ /* ./Ieee/string.scm 288 */
bool_t BgL_auxz00_1307;
BgL_auxz00_1307 = 
string_lt(BgL_string1z00_1032, BgL_string2z00_1033); 
return 
BBOOL(BgL_auxz00_1307);} } 
}



/* string>? */
BGL_EXPORTED_DEF bool_t BGl_stringze3zf3z10zz__r4_strings_6_7z00(obj_t BgL_string1z00_29, obj_t BgL_string2z00_30)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 293 */
return 
string_gt(BgL_string1z00_29, BgL_string2z00_30);} 
}



/* _string>?1893 */
obj_t BGl__stringze3zf31893z10zz__r4_strings_6_7z00(obj_t BgL_envz00_1034, obj_t BgL_string1z00_1035, obj_t BgL_string2z00_1036)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 293 */
{ /* ./Ieee/string.scm 294 */
bool_t BgL_auxz00_1311;
BgL_auxz00_1311 = 
string_gt(BgL_string1z00_1035, BgL_string2z00_1036); 
return 
BBOOL(BgL_auxz00_1311);} } 
}



/* string<=? */
BGL_EXPORTED_DEF bool_t BGl_stringzc3zd3zf3ze3zz__r4_strings_6_7z00(obj_t BgL_string1z00_31, obj_t BgL_string2z00_32)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 299 */
return 
string_le(BgL_string1z00_31, BgL_string2z00_32);} 
}



/* _string<=?1895 */
obj_t BGl__stringzc3zd3zf31895ze3zz__r4_strings_6_7z00(obj_t BgL_envz00_1037, obj_t BgL_string1z00_1038, obj_t BgL_string2z00_1039)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 299 */
{ /* ./Ieee/string.scm 300 */
bool_t BgL_auxz00_1315;
BgL_auxz00_1315 = 
string_le(BgL_string1z00_1038, BgL_string2z00_1039); 
return 
BBOOL(BgL_auxz00_1315);} } 
}



/* string>=? */
BGL_EXPORTED_DEF bool_t BGl_stringze3zd3zf3zc3zz__r4_strings_6_7z00(obj_t BgL_string1z00_33, obj_t BgL_string2z00_34)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 305 */
return 
string_ge(BgL_string1z00_33, BgL_string2z00_34);} 
}



/* _string>=?1897 */
obj_t BGl__stringze3zd3zf31897zc3zz__r4_strings_6_7z00(obj_t BgL_envz00_1040, obj_t BgL_string1z00_1041, obj_t BgL_string2z00_1042)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 305 */
{ /* ./Ieee/string.scm 306 */
bool_t BgL_auxz00_1319;
BgL_auxz00_1319 = 
string_ge(BgL_string1z00_1041, BgL_string2z00_1042); 
return 
BBOOL(BgL_auxz00_1319);} } 
}



/* string-ci<? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2cizc3zf3ze2zz__r4_strings_6_7z00(obj_t BgL_string1z00_35, obj_t BgL_string2z00_36)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 311 */
return 
string_cilt(BgL_string1z00_35, BgL_string2z00_36);} 
}



/* _string-ci<?1899 */
obj_t BGl__stringzd2cizc3zf31899ze2zz__r4_strings_6_7z00(obj_t BgL_envz00_1043, obj_t BgL_string1z00_1044, obj_t BgL_string2z00_1045)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 311 */
{ /* ./Ieee/string.scm 312 */
bool_t BgL_auxz00_1323;
BgL_auxz00_1323 = 
string_cilt(BgL_string1z00_1044, BgL_string2z00_1045); 
return 
BBOOL(BgL_auxz00_1323);} } 
}



/* string-ci>? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2cize3zf3zc2zz__r4_strings_6_7z00(obj_t BgL_string1z00_37, obj_t BgL_string2z00_38)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 317 */
return 
string_cigt(BgL_string1z00_37, BgL_string2z00_38);} 
}



/* _string-ci>?1901 */
obj_t BGl__stringzd2cize3zf31901zc2zz__r4_strings_6_7z00(obj_t BgL_envz00_1046, obj_t BgL_string1z00_1047, obj_t BgL_string2z00_1048)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 317 */
{ /* ./Ieee/string.scm 318 */
bool_t BgL_auxz00_1327;
BgL_auxz00_1327 = 
string_cigt(BgL_string1z00_1047, BgL_string2z00_1048); 
return 
BBOOL(BgL_auxz00_1327);} } 
}



/* string-ci<=? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2cizc3zd3zf3z31zz__r4_strings_6_7z00(obj_t BgL_string1z00_39, obj_t BgL_string2z00_40)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 323 */
return 
string_cile(BgL_string1z00_39, BgL_string2z00_40);} 
}



/* _string-ci<=?1903 */
obj_t BGl__stringzd2cizc3zd3zf31903z31zz__r4_strings_6_7z00(obj_t BgL_envz00_1049, obj_t BgL_string1z00_1050, obj_t BgL_string2z00_1051)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 323 */
{ /* ./Ieee/string.scm 324 */
bool_t BgL_auxz00_1331;
BgL_auxz00_1331 = 
string_cile(BgL_string1z00_1050, BgL_string2z00_1051); 
return 
BBOOL(BgL_auxz00_1331);} } 
}



/* string-ci>=? */
BGL_EXPORTED_DEF bool_t BGl_stringzd2cize3zd3zf3z11zz__r4_strings_6_7z00(obj_t BgL_string1z00_41, obj_t BgL_string2z00_42)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 329 */
return 
string_cige(BgL_string1z00_41, BgL_string2z00_42);} 
}



/* _string-ci>=?1905 */
obj_t BGl__stringzd2cize3zd3zf31905z11zz__r4_strings_6_7z00(obj_t BgL_envz00_1052, obj_t BgL_string1z00_1053, obj_t BgL_string2z00_1054)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 329 */
{ /* ./Ieee/string.scm 330 */
bool_t BgL_auxz00_1335;
BgL_auxz00_1335 = 
string_cige(BgL_string1z00_1053, BgL_string2z00_1054); 
return 
BBOOL(BgL_auxz00_1335);} } 
}



/* substring */
BGL_EXPORTED_DEF obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t BgL_stringz00_43, int BgL_startz00_44, int BgL_endz00_45)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 335 */
{ /* ./Ieee/string.scm 337 */
bool_t BgL_test1047z00_1175;
{ /* ./Ieee/string.scm 337 */
bool_t BgL_testz00_1338;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_1341;long BgL_auxz00_1339;
BgL_auxz00_1341 = 
(long)(BgL_startz00_44); 
BgL_auxz00_1339 = 
(long)(BgL_endz00_45); 
BgL_testz00_1338 = 
(BgL_auxz00_1339>=BgL_auxz00_1341); } 
if(BgL_testz00_1338)
{ /* ./Ieee/string.scm 337 */
bool_t BgL_testz00_1344;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_1345;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_1346;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_1347;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_1348;
BgL_auxz00_1348 = 
STRING_LENGTH(BgL_stringz00_43); 
BgL_auxz00_1347 = 
(long)(BgL_auxz00_1348); } 
BgL_auxz00_1346 = 
(BgL_auxz00_1347+((long)1)); } 
BgL_auxz00_1345 = 
(int)(BgL_auxz00_1346); } 
BgL_testz00_1344 = 
BOUND_CHECK(BgL_startz00_44, BgL_auxz00_1345); } 
if(BgL_testz00_1344)
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_1354;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_1355;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_1356;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_1357;
BgL_auxz00_1357 = 
STRING_LENGTH(BgL_stringz00_43); 
BgL_auxz00_1356 = 
(long)(BgL_auxz00_1357); } 
BgL_auxz00_1355 = 
(BgL_auxz00_1356+((long)1)); } 
BgL_auxz00_1354 = 
(int)(BgL_auxz00_1355); } 
BgL_test1047z00_1175 = 
BOUND_CHECK(BgL_endz00_45, BgL_auxz00_1354); }  else 
{ /* ./Ieee/string.scm 337 */
BgL_test1047z00_1175 = ((bool_t)0); } }  else 
{ /* ./Ieee/string.scm 337 */
BgL_test1047z00_1175 = ((bool_t)0); } } 
if(BgL_test1047z00_1175)
{ /* ./Ieee/string.scm 337 */
return 
c_substring(BgL_stringz00_43, BgL_startz00_44, BgL_endz00_45);}  else 
{ /* ./Ieee/string.scm 337 */
obj_t BgL_arg1052z00_1176;
{ /* ./Ieee/string.scm 337 */
obj_t BgL_auxz00_1367;obj_t BgL_auxz00_1365;
BgL_auxz00_1367 = 
BINT(BgL_endz00_45); 
BgL_auxz00_1365 = 
BINT(BgL_startz00_44); 
BgL_arg1052z00_1176 = 
MAKE_PAIR(BgL_auxz00_1365, BgL_auxz00_1367); } 
FAILURE(BGl_string2069z00zz__r4_strings_6_7z00,BGl_string2070z00zz__r4_strings_6_7z00,BgL_arg1052z00_1176);} } } 
}



/* _substring1907 */
obj_t BGl__substring1907z00zz__r4_strings_6_7z00(obj_t BgL_envz00_1055, obj_t BgL_stringz00_1056, obj_t BgL_startz00_1057, obj_t BgL_endz00_1058)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 335 */
{ /* ./Ieee/string.scm 337 */
obj_t BgL_res2076z00_1186;
{ /* ./Ieee/string.scm 337 */
int BgL_startz00_1180;int BgL_endz00_1181;
BgL_startz00_1180 = 
CINT(BgL_startz00_1057); 
BgL_endz00_1181 = 
CINT(BgL_endz00_1058); 
{ /* ./Ieee/string.scm 337 */
bool_t BgL_test1047z00_1182;
{ /* ./Ieee/string.scm 337 */
bool_t BgL_testz00_1373;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_1376;long BgL_auxz00_1374;
BgL_auxz00_1376 = 
(long)(BgL_startz00_1180); 
BgL_auxz00_1374 = 
(long)(BgL_endz00_1181); 
BgL_testz00_1373 = 
(BgL_auxz00_1374>=BgL_auxz00_1376); } 
if(BgL_testz00_1373)
{ /* ./Ieee/string.scm 337 */
bool_t BgL_testz00_1379;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_1380;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_1381;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_1382;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_1383;
BgL_auxz00_1383 = 
STRING_LENGTH(BgL_stringz00_1056); 
BgL_auxz00_1382 = 
(long)(BgL_auxz00_1383); } 
BgL_auxz00_1381 = 
(BgL_auxz00_1382+((long)1)); } 
BgL_auxz00_1380 = 
(int)(BgL_auxz00_1381); } 
BgL_testz00_1379 = 
BOUND_CHECK(BgL_startz00_1180, BgL_auxz00_1380); } 
if(BgL_testz00_1379)
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_1389;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_1390;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_1391;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_1392;
BgL_auxz00_1392 = 
STRING_LENGTH(BgL_stringz00_1056); 
BgL_auxz00_1391 = 
(long)(BgL_auxz00_1392); } 
BgL_auxz00_1390 = 
(BgL_auxz00_1391+((long)1)); } 
BgL_auxz00_1389 = 
(int)(BgL_auxz00_1390); } 
BgL_test1047z00_1182 = 
BOUND_CHECK(BgL_endz00_1181, BgL_auxz00_1389); }  else 
{ /* ./Ieee/string.scm 337 */
BgL_test1047z00_1182 = ((bool_t)0); } }  else 
{ /* ./Ieee/string.scm 337 */
BgL_test1047z00_1182 = ((bool_t)0); } } 
if(BgL_test1047z00_1182)
{ /* ./Ieee/string.scm 337 */
BgL_res2076z00_1186 = 
c_substring(BgL_stringz00_1056, BgL_startz00_1180, BgL_endz00_1181); }  else 
{ /* ./Ieee/string.scm 337 */
obj_t BgL_arg1052z00_1183;
{ /* ./Ieee/string.scm 337 */
obj_t BgL_auxz00_1402;obj_t BgL_auxz00_1400;
BgL_auxz00_1402 = 
BINT(BgL_endz00_1181); 
BgL_auxz00_1400 = 
BINT(BgL_startz00_1180); 
BgL_arg1052z00_1183 = 
MAKE_PAIR(BgL_auxz00_1400, BgL_auxz00_1402); } 
FAILURE(BGl_string2069z00zz__r4_strings_6_7z00,BGl_string2070z00zz__r4_strings_6_7z00,BgL_arg1052z00_1183);} } } 
return BgL_res2076z00_1186;} } 
}



/* substring-ur */
BGL_EXPORTED_DEF obj_t BGl_substringzd2urzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_46, int BgL_startz00_47, int BgL_endz00_48)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 348 */
return 
c_substring(BgL_stringz00_46, BgL_startz00_47, BgL_endz00_48);} 
}



/* _substring-ur1909 */
obj_t BGl__substringzd2ur1909zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1059, obj_t BgL_stringz00_1060, obj_t BgL_startz00_1061, obj_t BgL_endz00_1062)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 348 */
{ /* ./Ieee/string.scm 349 */
int BgL_auxz00_1409;int BgL_auxz00_1407;
BgL_auxz00_1409 = 
CINT(BgL_endz00_1062); 
BgL_auxz00_1407 = 
CINT(BgL_startz00_1061); 
return 
c_substring(BgL_stringz00_1060, BgL_auxz00_1407, BgL_auxz00_1409);} } 
}



/* string-compare3 */
BGL_EXPORTED_DEF int BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(obj_t BgL_az00_49, obj_t BgL_bz00_50)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 358 */
{ /* ./Ieee/string.scm 359 */
int BgL_alz00_320;
BgL_alz00_320 = 
STRING_LENGTH(BgL_az00_49); 
{ /* ./Ieee/string.scm 359 */
int BgL_blz00_321;
BgL_blz00_321 = 
STRING_LENGTH(BgL_bz00_50); 
{ /* ./Ieee/string.scm 360 */
long BgL_lz00_322;
{ /* ./Ieee/string.scm 361 */
obj_t BgL_list1103z00_333;
{ /* ./Ieee/string.scm 361 */
obj_t BgL_auxz00_1414;
BgL_auxz00_1414 = 
BINT(BgL_blz00_321); 
BgL_list1103z00_333 = 
MAKE_PAIR(BgL_auxz00_1414, BNIL); } 
BgL_lz00_322 = 
BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_alz00_320), BgL_list1103z00_333); } 
{ /* ./Ieee/string.scm 361 */

{ /* ./Ieee/string.scm 362 */
long BgL_auxz00_1419;
BgL_auxz00_1419 = 
BGl_loopz72z72zz__r4_strings_6_7z00(BgL_blz00_321, BgL_alz00_320, BgL_bz00_50, BgL_az00_49, BgL_lz00_322, ((long)0)); 
return 
(int)(BgL_auxz00_1419);} } } } } } 
}



/* loop' */
long BGl_loopz72z72zz__r4_strings_6_7z00(int BgL_blz00_1118, int BgL_alz00_1117, obj_t BgL_bz00_1116, obj_t BgL_az00_1115, long BgL_lz00_1114, long BgL_rz00_323)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 362 */
BGl_loopz72z72zz__r4_strings_6_7z00:
if(
(BgL_rz00_323==BgL_lz00_1114))
{ /* ./Ieee/string.scm 364 */
long BgL_auxz00_1426;long BgL_auxz00_1424;
BgL_auxz00_1426 = 
(long)(BgL_blz00_1118); 
BgL_auxz00_1424 = 
(long)(BgL_alz00_1117); 
return 
(BgL_auxz00_1424-BgL_auxz00_1426);}  else 
{ /* ./Ieee/string.scm 365 */
long BgL_cz00_326;
{ /* ./Ieee/string.scm 365 */
long BgL_auxz00_1435;long BgL_auxz00_1429;
{ /* ./Ieee/string.scm 366 */
unsigned char BgL_auxz00_1436;
{ /* ./Ieee/string.scm 366 */
int BgL_auxz00_1437;
BgL_auxz00_1437 = 
(int)(BgL_rz00_323); 
BgL_auxz00_1436 = 
STRING_REF(BgL_bz00_1116, BgL_auxz00_1437); } 
BgL_auxz00_1435 = 
(BgL_auxz00_1436); } 
{ /* ./Ieee/string.scm 365 */
unsigned char BgL_auxz00_1430;
{ /* ./Ieee/string.scm 365 */
int BgL_auxz00_1431;
BgL_auxz00_1431 = 
(int)(BgL_rz00_323); 
BgL_auxz00_1430 = 
STRING_REF(BgL_az00_1115, BgL_auxz00_1431); } 
BgL_auxz00_1429 = 
(BgL_auxz00_1430); } 
BgL_cz00_326 = 
(BgL_auxz00_1429-BgL_auxz00_1435); } 
if(
(BgL_cz00_326==((long)0)))
{ 
long BgL_rz00_1444;
BgL_rz00_1444 = 
(BgL_rz00_323+((long)1)); 
BgL_rz00_323 = BgL_rz00_1444; 
goto BGl_loopz72z72zz__r4_strings_6_7z00;}  else 
{ /* ./Ieee/string.scm 367 */
return BgL_cz00_326;} } } 
}



/* _string-compare31911 */
obj_t BGl__stringzd2compare31911zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1063, obj_t BgL_az00_1064, obj_t BgL_bz00_1065)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 358 */
{ /* ./Ieee/string.scm 359 */
int BgL_auxz00_1446;
BgL_auxz00_1446 = 
BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(BgL_az00_1064, BgL_bz00_1065); 
return 
BINT(BgL_auxz00_1446);} } 
}



/* string-compare3-ci */
BGL_EXPORTED_DEF int BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(obj_t BgL_az00_51, obj_t BgL_bz00_52)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 374 */
{ /* ./Ieee/string.scm 375 */
int BgL_alz00_334;
BgL_alz00_334 = 
STRING_LENGTH(BgL_az00_51); 
{ /* ./Ieee/string.scm 375 */
int BgL_blz00_335;
BgL_blz00_335 = 
STRING_LENGTH(BgL_bz00_52); 
{ /* ./Ieee/string.scm 376 */
long BgL_lz00_336;
{ /* ./Ieee/string.scm 377 */
obj_t BgL_list1136z00_349;
{ /* ./Ieee/string.scm 377 */
obj_t BgL_auxz00_1451;
BgL_auxz00_1451 = 
BINT(BgL_blz00_335); 
BgL_list1136z00_349 = 
MAKE_PAIR(BgL_auxz00_1451, BNIL); } 
BgL_lz00_336 = 
BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_alz00_334), BgL_list1136z00_349); } 
{ /* ./Ieee/string.scm 377 */

{ /* ./Ieee/string.scm 378 */
long BgL_auxz00_1456;
BgL_auxz00_1456 = 
BGl_loopz00zz__r4_strings_6_7z00(BgL_blz00_335, BgL_alz00_334, BgL_bz00_52, BgL_az00_51, BgL_lz00_336, ((long)0)); 
return 
(int)(BgL_auxz00_1456);} } } } } } 
}



/* loop */
long BGl_loopz00zz__r4_strings_6_7z00(int BgL_blz00_1113, int BgL_alz00_1112, obj_t BgL_bz00_1111, obj_t BgL_az00_1110, long BgL_lz00_1109, long BgL_rz00_337)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 378 */
BGl_loopz00zz__r4_strings_6_7z00:
if(
(BgL_rz00_337==BgL_lz00_1109))
{ /* ./Ieee/string.scm 380 */
long BgL_auxz00_1463;long BgL_auxz00_1461;
BgL_auxz00_1463 = 
(long)(BgL_blz00_1113); 
BgL_auxz00_1461 = 
(long)(BgL_alz00_1112); 
return 
(BgL_auxz00_1461-BgL_auxz00_1463);}  else 
{ /* ./Ieee/string.scm 381 */
long BgL_cz00_340;
{ /* ./Ieee/string.scm 381 */
long BgL_auxz00_1474;long BgL_auxz00_1466;
{ /* ./Ieee/string.scm 382 */
unsigned char BgL_auxz00_1475;
{ /* ./Ieee/string.scm 382 */
unsigned char BgL_auxz00_1476;
{ /* ./Ieee/string.scm 382 */
int BgL_auxz00_1477;
BgL_auxz00_1477 = 
(int)(BgL_rz00_337); 
BgL_auxz00_1476 = 
STRING_REF(BgL_bz00_1111, BgL_auxz00_1477); } 
BgL_auxz00_1475 = 
tolower(BgL_auxz00_1476); } 
BgL_auxz00_1474 = 
(BgL_auxz00_1475); } 
{ /* ./Ieee/string.scm 381 */
unsigned char BgL_auxz00_1467;
{ /* ./Ieee/string.scm 381 */
unsigned char BgL_auxz00_1468;
{ /* ./Ieee/string.scm 381 */
int BgL_auxz00_1469;
BgL_auxz00_1469 = 
(int)(BgL_rz00_337); 
BgL_auxz00_1468 = 
STRING_REF(BgL_az00_1110, BgL_auxz00_1469); } 
BgL_auxz00_1467 = 
tolower(BgL_auxz00_1468); } 
BgL_auxz00_1466 = 
(BgL_auxz00_1467); } 
BgL_cz00_340 = 
(BgL_auxz00_1466-BgL_auxz00_1474); } 
if(
(BgL_cz00_340==((long)0)))
{ 
long BgL_rz00_1485;
BgL_rz00_1485 = 
(BgL_rz00_337+((long)1)); 
BgL_rz00_337 = BgL_rz00_1485; 
goto BGl_loopz00zz__r4_strings_6_7z00;}  else 
{ /* ./Ieee/string.scm 383 */
return BgL_cz00_340;} } } 
}



/* _string-compare3-ci1913 */
obj_t BGl__stringzd2compare3zd2ci1913z00zz__r4_strings_6_7z00(obj_t BgL_envz00_1066, obj_t BgL_az00_1067, obj_t BgL_bz00_1068)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 374 */
{ /* ./Ieee/string.scm 375 */
int BgL_auxz00_1487;
BgL_auxz00_1487 = 
BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(BgL_az00_1067, BgL_bz00_1068); 
return 
BINT(BgL_auxz00_1487);} } 
}



/* string-append */
BGL_EXPORTED_DEF obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t BgL_listz00_53)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 394 */
if(
NULLP(BgL_listz00_53))
{ /* ./Ieee/string.scm 395 */
return BGl_string2071z00zz__r4_strings_6_7z00;}  else 
{ /* ./Ieee/string.scm 397 */
long BgL_lenz00_351;
{ 
obj_t BgL_listz00_668;long BgL_resz00_669;
BgL_listz00_668 = BgL_listz00_53; 
BgL_resz00_669 = ((long)0); 
BgL_stringzd2appendzd2_667:
if(
NULLP(BgL_listz00_668))
{ /* ./Ieee/string.scm 397 */
BgL_lenz00_351 = BgL_resz00_669; }  else 
{ 
long BgL_resz00_1496;obj_t BgL_listz00_1494;
BgL_listz00_1494 = 
CDR(BgL_listz00_668); 
{ /* ./Ieee/string.scm 397 */
long BgL_auxz00_1497;
{ /* ./Ieee/string.scm 397 */
int BgL_auxz00_1498;
{ /* ./Ieee/string.scm 397 */
obj_t BgL_auxz00_1499;
BgL_auxz00_1499 = 
CAR(BgL_listz00_668); 
BgL_auxz00_1498 = 
STRING_LENGTH(BgL_auxz00_1499); } 
BgL_auxz00_1497 = 
(long)(BgL_auxz00_1498); } 
BgL_resz00_1496 = 
(BgL_resz00_669+BgL_auxz00_1497); } 
BgL_resz00_669 = BgL_resz00_1496; 
BgL_listz00_668 = BgL_listz00_1494; 
goto BgL_stringzd2appendzd2_667;} } 
{ /* ./Ieee/string.scm 397 */
obj_t BgL_resz00_352;
{ /* ./Ieee/string.scm 404 */
int BgL_auxz00_1504;
BgL_auxz00_1504 = 
(int)(BgL_lenz00_351); 
BgL_resz00_352 = 
make_string_sans_fill(BgL_auxz00_1504); } 
{ /* ./Ieee/string.scm 404 */

{ 
obj_t BgL_listz00_711;long BgL_wz00_712;
BgL_listz00_711 = BgL_listz00_53; 
BgL_wz00_712 = ((long)0); 
BgL_stringzd2appendzd2_710:
if(
NULLP(BgL_listz00_711))
{ /* ./Ieee/string.scm 405 */
return BgL_resz00_352;}  else 
{ /* ./Ieee/string.scm 405 */
obj_t BgL_sz00_719;
BgL_sz00_719 = 
CAR(BgL_listz00_711); 
{ /* ./Ieee/string.scm 405 */
int BgL_lz00_720;
BgL_lz00_720 = 
STRING_LENGTH(BgL_sz00_719); 
{ /* ./Ieee/string.scm 405 */

{ /* ./Ieee/string.scm 405 */
int BgL_auxz00_1513;int BgL_auxz00_1511;
BgL_auxz00_1513 = 
(int)(BgL_wz00_712); 
BgL_auxz00_1511 = 
(int)(((long)0)); 
blit_string(BgL_sz00_719, BgL_auxz00_1511, BgL_resz00_352, BgL_auxz00_1513, BgL_lz00_720); } 
{ 
long BgL_wz00_1518;obj_t BgL_listz00_1516;
BgL_listz00_1516 = 
CDR(BgL_listz00_711); 
{ /* ./Ieee/string.scm 405 */
long BgL_auxz00_1519;
BgL_auxz00_1519 = 
(long)(BgL_lz00_720); 
BgL_wz00_1518 = 
(BgL_wz00_712+BgL_auxz00_1519); } 
BgL_wz00_712 = BgL_wz00_1518; 
BgL_listz00_711 = BgL_listz00_1516; 
goto BgL_stringzd2appendzd2_710;} } } } } } } } } 
}



/* _string-append */
obj_t BGl__stringzd2appendzd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1069, obj_t BgL_listz00_1070)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 394 */
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_listz00_1070);} 
}



/* list->string */
BGL_EXPORTED_DEF obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t BgL_listz00_54)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 417 */
{ /* ./Ieee/string.scm 418 */
long BgL_lenz00_369;
BgL_lenz00_369 = 
bgl_list_length(BgL_listz00_54); 
{ /* ./Ieee/string.scm 418 */
obj_t BgL_stringz00_370;
{ /* ./Ieee/string.scm 419 */
int BgL_auxz00_1524;
BgL_auxz00_1524 = 
(int)(BgL_lenz00_369); 
BgL_stringz00_370 = 
make_string_sans_fill(BgL_auxz00_1524); } 
{ /* ./Ieee/string.scm 419 */

{ 
long BgL_iz00_769;obj_t BgL_lz00_770;
BgL_iz00_769 = ((long)0); 
BgL_lz00_770 = BgL_listz00_54; 
BgL_loopz00_768:
if(
(BgL_iz00_769==BgL_lenz00_369))
{ /* ./Ieee/string.scm 420 */
return BgL_stringz00_370;}  else 
{ /* ./Ieee/string.scm 420 */
{ /* ./Ieee/string.scm 420 */
obj_t BgL_arg1177z00_776;
BgL_arg1177z00_776 = 
CAR(BgL_lz00_770); 
{ /* ./Ieee/string.scm 420 */
unsigned char BgL_auxz00_1532;int BgL_auxz00_1530;
BgL_auxz00_1532 = 
(unsigned char)CCHAR(BgL_arg1177z00_776); 
BgL_auxz00_1530 = 
(int)(BgL_iz00_769); 
STRING_SET(BgL_stringz00_370, BgL_auxz00_1530, BgL_auxz00_1532); } } 
{ 
obj_t BgL_lz00_1537;long BgL_iz00_1535;
BgL_iz00_1535 = 
(BgL_iz00_769+((long)1)); 
BgL_lz00_1537 = 
CDR(BgL_lz00_770); 
BgL_lz00_770 = BgL_lz00_1537; 
BgL_iz00_769 = BgL_iz00_1535; 
goto BgL_loopz00_768;} } } } } } } 
}



/* _list->string */
obj_t BGl__listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t BgL_envz00_1071, obj_t BgL_listz00_1072)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 417 */
return 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_listz00_1072);} 
}



/* string->list */
BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(obj_t BgL_stringz00_55)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 431 */
{ /* ./Ieee/string.scm 432 */
int BgL_lenz00_378;
BgL_lenz00_378 = 
STRING_LENGTH(BgL_stringz00_55); 
{ /* ./Ieee/string.scm 433 */
long BgL_arg1190z00_382;
{ /* ./Ieee/string.scm 433 */
long BgL_auxz00_1541;
BgL_auxz00_1541 = 
(long)(BgL_lenz00_378); 
BgL_arg1190z00_382 = 
(BgL_auxz00_1541-((long)1)); } 
{ 
long BgL_iz00_820;obj_t BgL_resz00_821;
BgL_iz00_820 = BgL_arg1190z00_382; 
BgL_resz00_821 = BNIL; 
BgL_loopz00_819:
if(
(BgL_iz00_820==((long)-1)))
{ /* ./Ieee/string.scm 433 */
return BgL_resz00_821;}  else 
{ /* ./Ieee/string.scm 433 */
long BgL_arg1196z00_827;obj_t BgL_arg1197z00_828;
BgL_arg1196z00_827 = 
(BgL_iz00_820-((long)1)); 
{ /* ./Ieee/string.scm 433 */
unsigned char BgL_arg1201z00_829;
{ /* ./Ieee/string.scm 433 */
int BgL_auxz00_1547;
BgL_auxz00_1547 = 
(int)(BgL_iz00_820); 
BgL_arg1201z00_829 = 
STRING_REF(BgL_stringz00_55, BgL_auxz00_1547); } 
{ /* ./Ieee/string.scm 433 */
obj_t BgL_auxz00_1550;
BgL_auxz00_1550 = 
BCHAR(BgL_arg1201z00_829); 
BgL_arg1197z00_828 = 
MAKE_PAIR(BgL_auxz00_1550, BgL_resz00_821); } } 
{ 
obj_t BgL_resz00_1554;long BgL_iz00_1553;
BgL_iz00_1553 = BgL_arg1196z00_827; 
BgL_resz00_1554 = BgL_arg1197z00_828; 
BgL_resz00_821 = BgL_resz00_1554; 
BgL_iz00_820 = BgL_iz00_1553; 
goto BgL_loopz00_819;} } } } } } 
}



/* _string->list1917 */
obj_t BGl__stringzd2ze3list1917z31zz__r4_strings_6_7z00(obj_t BgL_envz00_1073, obj_t BgL_stringz00_1074)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 431 */
return 
BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(BgL_stringz00_1074);} 
}



/* string-copy */
BGL_EXPORTED_DEF obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_56)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 443 */
{ /* ./Ieee/string.scm 444 */
int BgL_lenz00_388;
BgL_lenz00_388 = 
STRING_LENGTH(BgL_stringz00_56); 
{ /* ./Ieee/string.scm 444 */
obj_t BgL_newz00_389;
BgL_newz00_389 = 
make_string_sans_fill(BgL_lenz00_388); 
{ /* ./Ieee/string.scm 445 */

{ 
long BgL_iz00_390;
{ /* ./Ieee/string.scm 446 */
long BgL_auxz00_1569;
BgL_auxz00_1569 = 
(long)(BgL_lenz00_388); 
BgL_iz00_390 = 
(BgL_auxz00_1569-((long)1)); } 
BgL_loopz00_391:
if(
(BgL_iz00_390==((long)-1)))
{ /* ./Ieee/string.scm 447 */
return BgL_newz00_389;}  else 
{ /* ./Ieee/string.scm 447 */
{ /* ./Ieee/string.scm 450 */
unsigned char BgL_auxz00_1562;int BgL_auxz00_1560;
{ /* ./Ieee/string.scm 450 */
int BgL_auxz00_1563;
BgL_auxz00_1563 = 
(int)(BgL_iz00_390); 
BgL_auxz00_1562 = 
STRING_REF(BgL_stringz00_56, BgL_auxz00_1563); } 
BgL_auxz00_1560 = 
(int)(BgL_iz00_390); 
STRING_SET(BgL_newz00_389, BgL_auxz00_1560, BgL_auxz00_1562); } 
{ 
long BgL_iz00_1567;
BgL_iz00_1567 = 
(BgL_iz00_390-((long)1)); 
BgL_iz00_390 = BgL_iz00_1567; 
goto BgL_loopz00_391;} } } } } } } 
}



/* _string-copy1919 */
obj_t BGl__stringzd2copy1919zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1075, obj_t BgL_stringz00_1076)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 443 */
return 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_stringz00_1076);} 
}



/* string-fill! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(obj_t BgL_stringz00_57, unsigned char BgL_charz00_58)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 456 */
{ /* ./Ieee/string.scm 457 */
int BgL_lenz00_870;
BgL_lenz00_870 = 
STRING_LENGTH(BgL_stringz00_57); 
{ 
long BgL_iz00_877;
BgL_iz00_877 = ((long)0); 
BgL_loopz00_876:
{ /* ./Ieee/string.scm 457 */
bool_t BgL_testz00_1574;
{ /* ./Ieee/string.scm 457 */
long BgL_auxz00_1575;
BgL_auxz00_1575 = 
(long)(BgL_lenz00_870); 
BgL_testz00_1574 = 
(BgL_iz00_877==BgL_auxz00_1575); } 
if(BgL_testz00_1574)
{ /* ./Ieee/string.scm 457 */
return BUNSPEC;}  else 
{ /* ./Ieee/string.scm 457 */
{ /* ./Ieee/string.scm 457 */
int BgL_auxz00_1578;
BgL_auxz00_1578 = 
(int)(BgL_iz00_877); 
STRING_SET(BgL_stringz00_57, BgL_auxz00_1578, BgL_charz00_58); } 
{ 
long BgL_iz00_1581;
BgL_iz00_1581 = 
(BgL_iz00_877+((long)1)); 
BgL_iz00_877 = BgL_iz00_1581; 
goto BgL_loopz00_876;} } } } } } 
}



/* _string-fill!1921 */
obj_t BGl__stringzd2fillz121921zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1077, obj_t BgL_stringz00_1078, obj_t BgL_charz00_1079)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 456 */
return 
BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(BgL_stringz00_1078, 
(unsigned char)CCHAR(BgL_charz00_1079));} 
}



/* string-upcase */
BGL_EXPORTED_DEF obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_59)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 468 */
{ /* ./Ieee/string.scm 469 */
int BgL_lenz00_401;
BgL_lenz00_401 = 
STRING_LENGTH(BgL_stringz00_59); 
{ /* ./Ieee/string.scm 469 */
obj_t BgL_resz00_402;
BgL_resz00_402 = 
make_string_sans_fill(BgL_lenz00_401); 
{ /* ./Ieee/string.scm 470 */

{ 
long BgL_iz00_403;
BgL_iz00_403 = ((long)0); 
BgL_loopz00_404:
{ /* ./Ieee/string.scm 472 */
bool_t BgL_testz00_1587;
{ /* ./Ieee/string.scm 472 */
long BgL_auxz00_1588;
BgL_auxz00_1588 = 
(long)(BgL_lenz00_401); 
BgL_testz00_1587 = 
(BgL_iz00_403==BgL_auxz00_1588); } 
if(BgL_testz00_1587)
{ /* ./Ieee/string.scm 472 */
return BgL_resz00_402;}  else 
{ /* ./Ieee/string.scm 472 */
{ /* ./Ieee/string.scm 475 */
unsigned char BgL_auxz00_1593;int BgL_auxz00_1591;
{ /* ./Ieee/string.scm 475 */
unsigned char BgL_auxz00_1594;
{ /* ./Ieee/string.scm 475 */
int BgL_auxz00_1595;
BgL_auxz00_1595 = 
(int)(BgL_iz00_403); 
BgL_auxz00_1594 = 
STRING_REF(BgL_stringz00_59, BgL_auxz00_1595); } 
BgL_auxz00_1593 = 
toupper(BgL_auxz00_1594); } 
BgL_auxz00_1591 = 
(int)(BgL_iz00_403); 
STRING_SET(BgL_resz00_402, BgL_auxz00_1591, BgL_auxz00_1593); } 
{ 
long BgL_iz00_1600;
BgL_iz00_1600 = 
(BgL_iz00_403+((long)1)); 
BgL_iz00_403 = BgL_iz00_1600; 
goto BgL_loopz00_404;} } } } } } } } 
}



/* _string-upcase1923 */
obj_t BGl__stringzd2upcase1923zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1080, obj_t BgL_stringz00_1081)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 468 */
return 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_stringz00_1081);} 
}



/* string-downcase */
BGL_EXPORTED_DEF obj_t BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_60)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 481 */
{ /* ./Ieee/string.scm 482 */
int BgL_lenz00_409;
BgL_lenz00_409 = 
STRING_LENGTH(BgL_stringz00_60); 
{ /* ./Ieee/string.scm 482 */
obj_t BgL_resz00_410;
BgL_resz00_410 = 
make_string_sans_fill(BgL_lenz00_409); 
{ /* ./Ieee/string.scm 483 */

{ 
long BgL_iz00_411;
BgL_iz00_411 = ((long)0); 
BgL_loopz00_412:
{ /* ./Ieee/string.scm 485 */
bool_t BgL_testz00_1605;
{ /* ./Ieee/string.scm 485 */
long BgL_auxz00_1606;
BgL_auxz00_1606 = 
(long)(BgL_lenz00_409); 
BgL_testz00_1605 = 
(BgL_iz00_411==BgL_auxz00_1606); } 
if(BgL_testz00_1605)
{ /* ./Ieee/string.scm 485 */
return BgL_resz00_410;}  else 
{ /* ./Ieee/string.scm 485 */
{ /* ./Ieee/string.scm 488 */
unsigned char BgL_auxz00_1611;int BgL_auxz00_1609;
{ /* ./Ieee/string.scm 488 */
unsigned char BgL_auxz00_1612;
{ /* ./Ieee/string.scm 488 */
int BgL_auxz00_1613;
BgL_auxz00_1613 = 
(int)(BgL_iz00_411); 
BgL_auxz00_1612 = 
STRING_REF(BgL_stringz00_60, BgL_auxz00_1613); } 
BgL_auxz00_1611 = 
tolower(BgL_auxz00_1612); } 
BgL_auxz00_1609 = 
(int)(BgL_iz00_411); 
STRING_SET(BgL_resz00_410, BgL_auxz00_1609, BgL_auxz00_1611); } 
{ 
long BgL_iz00_1618;
BgL_iz00_1618 = 
(BgL_iz00_411+((long)1)); 
BgL_iz00_411 = BgL_iz00_1618; 
goto BgL_loopz00_412;} } } } } } } } 
}



/* _string-downcase1925 */
obj_t BGl__stringzd2downcase1925zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1082, obj_t BgL_stringz00_1083)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 481 */
return 
BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(BgL_stringz00_1083);} 
}



/* string-upcase! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(obj_t BgL_stringz00_61)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 494 */
{ /* ./Ieee/string.scm 495 */
int BgL_lenz00_417;
BgL_lenz00_417 = 
STRING_LENGTH(BgL_stringz00_61); 
{ 
long BgL_iz00_418;
BgL_iz00_418 = ((long)0); 
BgL_loopz00_419:
{ /* ./Ieee/string.scm 497 */
bool_t BgL_testz00_1622;
{ /* ./Ieee/string.scm 497 */
long BgL_auxz00_1623;
BgL_auxz00_1623 = 
(long)(BgL_lenz00_417); 
BgL_testz00_1622 = 
(BgL_iz00_418==BgL_auxz00_1623); } 
if(BgL_testz00_1622)
{ /* ./Ieee/string.scm 497 */
return BgL_stringz00_61;}  else 
{ /* ./Ieee/string.scm 497 */
{ /* ./Ieee/string.scm 500 */
unsigned char BgL_auxz00_1628;int BgL_auxz00_1626;
{ /* ./Ieee/string.scm 500 */
unsigned char BgL_auxz00_1629;
{ /* ./Ieee/string.scm 500 */
int BgL_auxz00_1630;
BgL_auxz00_1630 = 
(int)(BgL_iz00_418); 
BgL_auxz00_1629 = 
STRING_REF(BgL_stringz00_61, BgL_auxz00_1630); } 
BgL_auxz00_1628 = 
toupper(BgL_auxz00_1629); } 
BgL_auxz00_1626 = 
(int)(BgL_iz00_418); 
STRING_SET(BgL_stringz00_61, BgL_auxz00_1626, BgL_auxz00_1628); } 
{ 
long BgL_iz00_1635;
BgL_iz00_1635 = 
(BgL_iz00_418+((long)1)); 
BgL_iz00_418 = BgL_iz00_1635; 
goto BgL_loopz00_419;} } } } } } 
}



/* _string-upcase!1927 */
obj_t BGl__stringzd2upcasez121927zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1084, obj_t BgL_stringz00_1085)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 494 */
return 
BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(BgL_stringz00_1085);} 
}



/* string-downcase! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t BgL_stringz00_62)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 506 */
{ /* ./Ieee/string.scm 507 */
int BgL_lenz00_424;
BgL_lenz00_424 = 
STRING_LENGTH(BgL_stringz00_62); 
{ 
long BgL_iz00_425;
BgL_iz00_425 = ((long)0); 
BgL_loopz00_426:
{ /* ./Ieee/string.scm 509 */
bool_t BgL_testz00_1639;
{ /* ./Ieee/string.scm 509 */
long BgL_auxz00_1640;
BgL_auxz00_1640 = 
(long)(BgL_lenz00_424); 
BgL_testz00_1639 = 
(BgL_iz00_425==BgL_auxz00_1640); } 
if(BgL_testz00_1639)
{ /* ./Ieee/string.scm 509 */
return BgL_stringz00_62;}  else 
{ /* ./Ieee/string.scm 509 */
{ /* ./Ieee/string.scm 512 */
unsigned char BgL_auxz00_1645;int BgL_auxz00_1643;
{ /* ./Ieee/string.scm 512 */
unsigned char BgL_auxz00_1646;
{ /* ./Ieee/string.scm 512 */
int BgL_auxz00_1647;
BgL_auxz00_1647 = 
(int)(BgL_iz00_425); 
BgL_auxz00_1646 = 
STRING_REF(BgL_stringz00_62, BgL_auxz00_1647); } 
BgL_auxz00_1645 = 
tolower(BgL_auxz00_1646); } 
BgL_auxz00_1643 = 
(int)(BgL_iz00_425); 
STRING_SET(BgL_stringz00_62, BgL_auxz00_1643, BgL_auxz00_1645); } 
{ 
long BgL_iz00_1652;
BgL_iz00_1652 = 
(BgL_iz00_425+((long)1)); 
BgL_iz00_425 = BgL_iz00_1652; 
goto BgL_loopz00_426;} } } } } } 
}



/* _string-downcase!1929 */
obj_t BGl__stringzd2downcasez121929zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1086, obj_t BgL_stringz00_1087)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 506 */
return 
BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(BgL_stringz00_1087);} 
}



/* string-capitalize! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(obj_t BgL_stringz00_63)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 522 */
{ /* ./Ieee/string.scm 523 */
bool_t BgL_nonzd2firstzd2alphaz00_431;int BgL_stringzd2lenzd2_432;
BgL_nonzd2firstzd2alphaz00_431 = ((bool_t)0); 
BgL_stringzd2lenzd2_432 = 
STRING_LENGTH(BgL_stringz00_63); 
{ 
long BgL_iz00_434;
BgL_iz00_434 = ((long)0); 
BgL_zc3anonymousza31298ze3z83_435:
{ /* ./Ieee/string.scm 525 */
bool_t BgL_testz00_1656;
{ /* ./Ieee/string.scm 526 */
long BgL_auxz00_1657;
BgL_auxz00_1657 = 
(long)(BgL_stringzd2lenzd2_432); 
BgL_testz00_1656 = 
(BgL_iz00_434==BgL_auxz00_1657); } 
if(BgL_testz00_1656)
{ /* ./Ieee/string.scm 525 */
return BgL_stringz00_63;}  else 
{ /* ./Ieee/string.scm 525 */
{ /* ./Ieee/string.scm 527 */
unsigned char BgL_cz00_437;
{ /* ./Ieee/string.scm 527 */
int BgL_auxz00_1660;
BgL_auxz00_1660 = 
(int)(BgL_iz00_434); 
BgL_cz00_437 = 
STRING_REF(BgL_stringz00_63, BgL_auxz00_1660); } 
{ /* ./Ieee/string.scm 528 */
bool_t BgL_test1300z00_438;
{ /* ./Ieee/string.scm 528 */
bool_t BgL_res1865z00_958;
BgL_res1865z00_958 = 
isalpha(BgL_cz00_437); 
BgL_test1300z00_438 = BgL_res1865z00_958; } 
if(BgL_test1300z00_438)
{ /* ./Ieee/string.scm 528 */
if(BgL_nonzd2firstzd2alphaz00_431)
{ /* ./Ieee/string.scm 530 */
unsigned char BgL_auxz00_1668;int BgL_auxz00_1666;
BgL_auxz00_1668 = 
tolower(BgL_cz00_437); 
BgL_auxz00_1666 = 
(int)(BgL_iz00_434); 
STRING_SET(BgL_stringz00_63, BgL_auxz00_1666, BgL_auxz00_1668); }  else 
{ /* ./Ieee/string.scm 529 */
BgL_nonzd2firstzd2alphaz00_431 = ((bool_t)1); 
{ /* ./Ieee/string.scm 533 */
unsigned char BgL_auxz00_1673;int BgL_auxz00_1671;
BgL_auxz00_1673 = 
toupper(BgL_cz00_437); 
BgL_auxz00_1671 = 
(int)(BgL_iz00_434); 
STRING_SET(BgL_stringz00_63, BgL_auxz00_1671, BgL_auxz00_1673); } } }  else 
{ /* ./Ieee/string.scm 528 */
BgL_nonzd2firstzd2alphaz00_431 = ((bool_t)0); } } } 
{ 
long BgL_iz00_1676;
BgL_iz00_1676 = 
(BgL_iz00_434+((long)1)); 
BgL_iz00_434 = BgL_iz00_1676; 
goto BgL_zc3anonymousza31298ze3z83_435;} } } } } } 
}



/* _string-capitalize!1931 */
obj_t BGl__stringzd2capitaliza7ez121931z67zz__r4_strings_6_7z00(obj_t BgL_envz00_1088, obj_t BgL_stringz00_1089)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 522 */
return 
BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(BgL_stringz00_1089);} 
}



/* string-capitalize */
BGL_EXPORTED_DEF obj_t BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(obj_t BgL_stringz00_64)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 539 */
return 
BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_stringz00_64));} 
}



/* _string-capitalize1933 */
obj_t BGl__stringzd2capitaliza7e1933z75zz__r4_strings_6_7z00(obj_t BgL_envz00_1090, obj_t BgL_stringz00_1091)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 539 */
return 
BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(BgL_stringz00_1091);} 
}



/* string-for-read */
BGL_EXPORTED_DEF obj_t BGl_stringzd2forzd2readz00zz__r4_strings_6_7z00(obj_t BgL_stringz00_65)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 545 */
return 
string_for_read(BgL_stringz00_65);} 
}



/* _string-for-read1935 */
obj_t BGl__stringzd2forzd2read1935z00zz__r4_strings_6_7z00(obj_t BgL_envz00_1092, obj_t BgL_stringz00_1093)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 545 */
return 
string_for_read(BgL_stringz00_1093);} 
}



/* blit-string-ur! */
BGL_EXPORTED_DEF obj_t BGl_blitzd2stringzd2urz12z12zz__r4_strings_6_7z00(obj_t BgL_s1z00_66, int BgL_o1z00_67, obj_t BgL_s2z00_68, int BgL_o2z00_69, int BgL_lz00_70)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 551 */
return 
blit_string(BgL_s1z00_66, BgL_o1z00_67, BgL_s2z00_68, BgL_o2z00_69, BgL_lz00_70);} 
}



/* _blit-string-ur!1937 */
obj_t BGl__blitzd2stringzd2urz121937z12zz__r4_strings_6_7z00(obj_t BgL_envz00_1094, obj_t BgL_s1z00_1095, obj_t BgL_o1z00_1096, obj_t BgL_s2z00_1097, obj_t BgL_o2z00_1098, obj_t BgL_lz00_1099)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 551 */
{ /* ./Ieee/string.scm 552 */
int BgL_auxz00_1689;int BgL_auxz00_1687;int BgL_auxz00_1685;
BgL_auxz00_1689 = 
CINT(BgL_lz00_1099); 
BgL_auxz00_1687 = 
CINT(BgL_o2z00_1098); 
BgL_auxz00_1685 = 
CINT(BgL_o1z00_1096); 
return 
blit_string(BgL_s1z00_1095, BgL_auxz00_1685, BgL_s2z00_1097, BgL_auxz00_1687, BgL_auxz00_1689);} } 
}



/* blit-string! */
BGL_EXPORTED_DEF obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t BgL_s1z00_71, int BgL_o1z00_72, obj_t BgL_s2z00_73, int BgL_o2z00_74, int BgL_lz00_75)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 557 */
{ /* ./Ieee/string.scm 558 */
bool_t BgL_test1323z00_444;
{ /* ./Ieee/string.scm 558 */
bool_t BgL_testz00_1692;
{ /* ./Ieee/string.scm 558 */
int BgL_auxz00_1701;int BgL_auxz00_1693;
{ /* ./Ieee/string.scm 558 */
long BgL_auxz00_1702;
{ /* ./Ieee/string.scm 558 */
long BgL_auxz00_1703;
{ /* ./Ieee/string.scm 558 */
int BgL_auxz00_1704;
BgL_auxz00_1704 = 
STRING_LENGTH(BgL_s1z00_71); 
BgL_auxz00_1703 = 
(long)(BgL_auxz00_1704); } 
BgL_auxz00_1702 = 
(BgL_auxz00_1703+((long)1)); } 
BgL_auxz00_1701 = 
(int)(BgL_auxz00_1702); } 
{ /* ./Ieee/string.scm 558 */
long BgL_auxz00_1694;
{ /* ./Ieee/string.scm 558 */
long BgL_auxz00_1697;long BgL_auxz00_1695;
BgL_auxz00_1697 = 
(long)(BgL_o1z00_72); 
BgL_auxz00_1695 = 
(long)(BgL_lz00_75); 
BgL_auxz00_1694 = 
(BgL_auxz00_1695+BgL_auxz00_1697); } 
BgL_auxz00_1693 = 
(int)(BgL_auxz00_1694); } 
BgL_testz00_1692 = 
BOUND_CHECK(BgL_auxz00_1693, BgL_auxz00_1701); } 
if(BgL_testz00_1692)
{ /* ./Ieee/string.scm 559 */
int BgL_auxz00_1718;int BgL_auxz00_1710;
{ /* ./Ieee/string.scm 559 */
long BgL_auxz00_1719;
{ /* ./Ieee/string.scm 559 */
long BgL_auxz00_1720;
{ /* ./Ieee/string.scm 559 */
int BgL_auxz00_1721;
BgL_auxz00_1721 = 
STRING_LENGTH(BgL_s2z00_73); 
BgL_auxz00_1720 = 
(long)(BgL_auxz00_1721); } 
BgL_auxz00_1719 = 
(BgL_auxz00_1720+((long)1)); } 
BgL_auxz00_1718 = 
(int)(BgL_auxz00_1719); } 
{ /* ./Ieee/string.scm 559 */
long BgL_auxz00_1711;
{ /* ./Ieee/string.scm 559 */
long BgL_auxz00_1714;long BgL_auxz00_1712;
BgL_auxz00_1714 = 
(long)(BgL_o2z00_74); 
BgL_auxz00_1712 = 
(long)(BgL_lz00_75); 
BgL_auxz00_1711 = 
(BgL_auxz00_1712+BgL_auxz00_1714); } 
BgL_auxz00_1710 = 
(int)(BgL_auxz00_1711); } 
BgL_test1323z00_444 = 
BOUND_CHECK(BgL_auxz00_1710, BgL_auxz00_1718); }  else 
{ /* ./Ieee/string.scm 558 */
BgL_test1323z00_444 = ((bool_t)0); } } 
if(BgL_test1323z00_444)
{ /* ./Ieee/string.scm 558 */
return 
blit_string(BgL_s1z00_71, BgL_o1z00_72, BgL_s2z00_73, BgL_o2z00_74, BgL_lz00_75);}  else 
{ /* ./Ieee/string.scm 561 */
obj_t BgL_arg1327z00_446;obj_t BgL_arg1328z00_447;
{ /* ./Ieee/string.scm 562 */
obj_t BgL_list1331z00_448;
{ /* ./Ieee/string.scm 562 */
obj_t BgL_arg1334z00_450;
{ /* ./Ieee/string.scm 562 */
obj_t BgL_arg1337z00_451;
{ /* ./Ieee/string.scm 562 */
obj_t BgL_arg1341z00_453;
{ /* ./Ieee/string.scm 562 */
obj_t BgL_arg1344z00_454;
BgL_arg1344z00_454 = 
MAKE_PAIR(BGl_string2072z00zz__r4_strings_6_7z00, BNIL); 
BgL_arg1341z00_453 = 
MAKE_PAIR(BgL_s2z00_73, BgL_arg1344z00_454); } 
BgL_arg1337z00_451 = 
MAKE_PAIR(BGl_string2073z00zz__r4_strings_6_7z00, BgL_arg1341z00_453); } 
BgL_arg1334z00_450 = 
MAKE_PAIR(BgL_s1z00_71, BgL_arg1337z00_451); } 
BgL_list1331z00_448 = 
MAKE_PAIR(BGl_string2074z00zz__r4_strings_6_7z00, BgL_arg1334z00_450); } 
BgL_arg1327z00_446 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1331z00_448); } 
{ /* ./Ieee/string.scm 563 */
int BgL_arg1348z00_455;int BgL_arg1349z00_456;
BgL_arg1348z00_455 = 
STRING_LENGTH(BgL_s1z00_71); 
BgL_arg1349z00_456 = 
STRING_LENGTH(BgL_s2z00_73); 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_list1351z00_457;
{ /* ./Ieee/string.scm 563 */
obj_t BgL_arg1354z00_458;
{ /* ./Ieee/string.scm 563 */
obj_t BgL_arg1357z00_459;
{ /* ./Ieee/string.scm 563 */
obj_t BgL_arg1360z00_460;
{ /* ./Ieee/string.scm 563 */
obj_t BgL_arg1363z00_461;
{ /* ./Ieee/string.scm 563 */
obj_t BgL_auxz00_1737;
BgL_auxz00_1737 = 
BINT(BgL_lz00_75); 
BgL_arg1363z00_461 = 
MAKE_PAIR(BgL_auxz00_1737, BNIL); } 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_auxz00_1740;
BgL_auxz00_1740 = 
BINT(BgL_o2z00_74); 
BgL_arg1360z00_460 = 
MAKE_PAIR(BgL_auxz00_1740, BgL_arg1363z00_461); } } 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_auxz00_1743;
BgL_auxz00_1743 = 
BINT(BgL_arg1349z00_456); 
BgL_arg1357z00_459 = 
MAKE_PAIR(BgL_auxz00_1743, BgL_arg1360z00_460); } } 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_auxz00_1746;
BgL_auxz00_1746 = 
BINT(BgL_o1z00_72); 
BgL_arg1354z00_458 = 
MAKE_PAIR(BgL_auxz00_1746, BgL_arg1357z00_459); } } 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_auxz00_1749;
BgL_auxz00_1749 = 
BINT(BgL_arg1348z00_455); 
BgL_list1351z00_457 = 
MAKE_PAIR(BgL_auxz00_1749, BgL_arg1354z00_458); } } 
BgL_arg1328z00_447 = BgL_list1351z00_457; } } 
FAILURE(BGl_string2075z00zz__r4_strings_6_7z00,BgL_arg1327z00_446,BgL_arg1328z00_447);} } } 
}



/* _blit-string!1939 */
obj_t BGl__blitzd2stringz121939zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1100, obj_t BgL_s1z00_1101, obj_t BgL_o1z00_1102, obj_t BgL_s2z00_1103, obj_t BgL_o2z00_1104, obj_t BgL_lz00_1105)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 557 */
return 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_s1z00_1101, 
CINT(BgL_o1z00_1102), BgL_s2z00_1103, 
CINT(BgL_o2z00_1104), 
CINT(BgL_lz00_1105));} 
}



/* string-shrink! */
BGL_EXPORTED_DEF obj_t BGl_stringzd2shrinkz12zc0zz__r4_strings_6_7z00(obj_t BgL_sz00_76, int BgL_lz00_77)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 568 */
return 
bgl_string_shrink(BgL_sz00_76, BgL_lz00_77);} 
}



/* _string-shrink! */
obj_t BGl__stringzd2shrinkz12zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1106, obj_t BgL_sz00_1107, obj_t BgL_lz00_1108)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 568 */
{ /* ./Ieee/string.scm 569 */
int BgL_auxz00_1758;
BgL_auxz00_1758 = 
CINT(BgL_lz00_1108); 
return 
bgl_string_shrink(BgL_sz00_1107, BgL_auxz00_1758);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_strings_6_7z00()
{ AN_OBJECT;
{ /* ./Ieee/string.scm 18 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_strings_6_7");} 
}

