/*===========================================================================*/
/*   (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 -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Ieee/string.scm -indent -o objs/obj_s/Ieee/string.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_stringz00zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__stringzd2copy2134zd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__emptyzd2stringzf32102z21zz__r4_strings_6_7z00(obj_t, obj_t);
static long BGl_loopz00zz__r4_strings_6_7z00(int, int, obj_t, obj_t, long, long);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(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__substringzd3zf32098z20zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzc3zf3z30zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringze3zd3zf32112zc3zz__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);
BGL_EXPORTED_DECL obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__stringze3zf32108z10zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__stringzd2cizd3zf32104zf2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2cizc3zd3zf32118z31zz__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);
BGL_EXPORTED_DECL int BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t bigloo_strncmp(obj_t, obj_t, int);
extern long bgl_list_length(obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzd2cizc3zf3ze2zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringze3zd3zf3zc3zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzc3zd3zf32110ze3zz__r4_strings_6_7z00(obj_t, 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 obj_t BGl_cnstzd2initzd2zz__r4_strings_6_7z00();
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__stringzd2forzd2read2150z00zz__r4_strings_6_7z00(obj_t, obj_t);
extern bool_t bigloo_strcmp(obj_t, obj_t);
extern obj_t string_to_symbol(char *);
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);
static obj_t BGl__blitzd2stringzd2urz122152z12zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
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__substring2122z00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__blitzd2stringz122154zc0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2setzd2urz122094z12zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2setz122090zc0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2refzd2ur2092z00zz__r4_strings_6_7z00(obj_t, 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);
static obj_t BGl__stringzd2length2086zd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2downcase2140zd2zz__r4_strings_6_7z00(obj_t, 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__stringzc3zf32106z30zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringz00zz__r4_strings_6_7z00(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);
static obj_t BGl__stringzd2upcase2138zd2zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2cizc3zf32114ze2zz__r4_strings_6_7z00(obj_t, 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__stringzd2compare3zd2ci2128z00zz__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__stringzd2compare32126zd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2capitaliza7ez122146z67zz__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);
static obj_t BGl__stringzd2ze3list2132z31zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__stringzd2capitaliza7e2148z75zz__r4_strings_6_7z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_stringzc3zd3zf3ze3zz__r4_strings_6_7z00(obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, 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_symbol3479z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3478z00zz__r4_strings_6_7z00 = BUNSPEC;
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_symbol3477z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3476z00zz__r4_strings_6_7z00 = BUNSPEC;
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
extern bool_t strcicmp(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t);
static obj_t BGl__substringzd2cizd3zf32100zf2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl__makezd2string2083zd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3471z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3470z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3469z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3468z00zz__r4_strings_6_7z00 = BUNSPEC;
extern obj_t make_string_sans_fill(int);
static obj_t BGl_symbol3467z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3466z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3465z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3464z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl__stringzd2fillz122136zc0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3463z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3462z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3461z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3460z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3459z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3458z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3457z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3456z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3455z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3454z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_substringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t, obj_t, int);
static obj_t BGl_symbol3453z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl__substringzd2ur2124zd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, int, int);
static obj_t BGl_symbol3452z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3451z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl__stringzd3zf32096z20zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3450z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3449z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3447z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3445z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3444z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_stringzd2setzd2urz12z12zz__r4_strings_6_7z00(obj_t, int, unsigned char);
static obj_t BGl_symbol3443z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3442z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3441z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3440z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3439z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3438z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl__stringzd2cize3zf32116zc2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3435z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3434z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3433z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3432z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_blitzd2stringzd2urz12z12zz__r4_strings_6_7z00(obj_t, int, obj_t, int, int);
static obj_t BGl_symbol3431z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3430z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3429z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3428z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3427z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3426z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3425z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3424z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3423z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_emptyzd2stringzf3z21zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_symbol3422z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3421z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl__stringzd2upcasez122142zc0zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_symbol3420z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3419z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3418z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3417z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3416z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3415z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl__stringzd2downcasez122144zc0zz__r4_strings_6_7z00(obj_t, obj_t);
static obj_t BGl_symbol3414z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl__stringzd2ref2088zd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3413z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3412z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3411z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3410z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3409z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3408z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3398z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3407z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3406z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3396z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3405z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3395z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3404z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3394z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3402z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3392z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3401z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3388z00zz__r4_strings_6_7z00 = BUNSPEC;
static obj_t BGl_symbol3387z00zz__r4_strings_6_7z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_stringzd2cize3zd3zf3z11zz__r4_strings_6_7z00(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__stringzd2cize3zd3zf32120z11zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
static obj_t *__cnst;


DEFINE_STRING( BGl_string3399z00zz__r4_strings_6_7z00, BgL_bgl_string3399za700za7za7__r4_strings_6_7za7003509z00, "string-ref", 10 );
DEFINE_STRING( BGl_string3397z00zz__r4_strings_6_7z00, BgL_bgl_string3397za700za7za7__r4_strings_6_7za7003510z00, "bstring", 7 );
DEFINE_EXPORT_PROCEDURE( BGl_substringzd2urzd2envz00zz__r4_strings_6_7z00, BgL_bgl__substringza7d2ur2124za7d2za7za7__r4_strings_6_7za7003511za7, BGl__substringzd2ur2124zd2zz__r4_strings_6_7z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2fillz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__stringza7d2fillza7122136za7c0za7za7__r4_strings_6_7za7003512z00, BGl__stringzd2fillz122136zc0zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2compare3zd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2compare32126za7d2za7za7__r4_strings_6_7za7003513za7, BGl__stringzd2compare32126zd2zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_STRING( BGl_string3403z00zz__r4_strings_6_7z00, BgL_bgl_string3403za700za7za7__r4_strings_6_7za7003514z00, "string-set!", 11 );
DEFINE_STRING( BGl_string3393z00zz__r4_strings_6_7z00, BgL_bgl_string3393za700za7za7__r4_strings_6_7za7003515z00, "int", 3 );
DEFINE_STRING( BGl_string3391z00zz__r4_strings_6_7z00, BgL_bgl_string3391za700za7za7__r4_strings_6_7za7003516z00, "uchar", 5 );
DEFINE_STRING( BGl_string3400z00zz__r4_strings_6_7z00, BgL_bgl_string3400za700za7za7__r4_strings_6_7za7003517z00, "index out of range", 18 );
DEFINE_STRING( BGl_string3390z00zz__r4_strings_6_7z00, BgL_bgl_string3390za700za7za7__r4_strings_6_7za7003518z00, "/tmp/bigloo/runtime/./Ieee/string.scm", 37 );
DEFINE_STRING( BGl_string3389z00zz__r4_strings_6_7z00, BgL_bgl_string3389za700za7za7__r4_strings_6_7za7003519z00, "pair", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_blitzd2stringz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__blitza7d2stringza7122154za7c0za7za7__r4_strings_6_7za7003520z00, BGl__blitzd2stringz122154zc0zz__r4_strings_6_7z00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2ze3stringzd2envze3zz__r4_strings_6_7z00, BgL_bgl__listza7d2za7e3stringza731za7za7__r4_strings_6_7za7003521z00, BGl__listzd2ze3stringz31zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2copyzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2copy2134za7d2za7za7__r4_strings_6_7za7003522za7, BGl__stringzd2copy2134zd2zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2compare3zd2cizd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2compare3za7d2ci2128za700za7za7__r4_strings_6_7za7003523z00, BGl__stringzd2compare3zd2ci2128z00zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2cizc3zd3zf3zd2envze3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ciza7c3za7d3za7f32118za731za7za7__r4_strings_6_7za7003524z00, BGl__stringzd2cizc3zd3zf32118z31zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2upcasez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__stringza7d2upcaseza7122142za7c0za7za7__r4_strings_6_7za7003525z00, BGl__stringzd2upcasez122142zc0zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_emptyzd2stringzf3zd2envzf3zz__r4_strings_6_7z00, BgL_bgl__emptyza7d2stringza7f32102za721za7za7__r4_strings_6_7za7003526z00, BGl__emptyzd2stringzf32102z21zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza700za7za7__r4_strings_6_7za7003527z00, va_generic_entry, BGl__stringz00zz__r4_strings_6_7z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze3listzd2envze3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2za7e3list2132za731za7za7__r4_strings_6_7za7003528z00, BGl__stringzd2ze3list2132z31zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2cize3zf3zd2envz10zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ciza7e3za7f32116za7c2za7za7__r4_strings_6_7za7003529za7, BGl__stringzd2cize3zf32116zc2zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2capitaliza7ezd2envza7zz__r4_strings_6_7z00, BgL_bgl__stringza7d2capitaliza7a7e2148za775za7za7__r4_strings_6_7za7003530z00, BGl__stringzd2capitaliza7e2148z75zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2shrinkz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__stringza7d2shrinkza712za7c0za7za7__r4_strings_6_7za7003531z00, BGl__stringzd2shrinkz12zc0zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2cize3zd3zf3zd2envzc3zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ciza7e3za7d3za7f32120za711za7za7__r4_strings_6_7za7003532z00, BGl__stringzd2cize3zd3zf32120z11zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzc3zf3zd2envze2zz__r4_strings_6_7z00, BgL_bgl__stringza7c3za7f32106za730za7za7__r4_strings_6_7za7003533z00, BGl__stringzc3zf32106z30zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2downcasez12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__stringza7d2downcaseza7122144za7c0za7za7__r4_strings_6_7za7003534z00, BGl__stringzd2downcasez122144zc0zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzf3zd2envz21zz__r4_strings_6_7z00, BgL_bgl__stringza7f3za7f3za7za7__r4_strings_6_7za7003535za7, BGl__stringzf3zf3zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2refzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ref2088za7d2za7za7__r4_strings_6_7za7003536za7, BGl__stringzd2ref2088zd2zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2appendzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2appendza7d2za7za7__r4_strings_6_7za7003537za7, va_generic_entry, BGl__stringzd2appendzd2zz__r4_strings_6_7z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2refzd2urzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2refza7d2ur2092za700za7za7__r4_strings_6_7za7003538z00, BGl__stringzd2refzd2ur2092z00zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2cizc3zf3zd2envz30zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ciza7c3za7f32114za7e2za7za7__r4_strings_6_7za7003539za7, BGl__stringzd2cizc3zf32114ze2zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_substringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00, BgL_bgl__substringza7d2ciza7d3za7f32100za7f2za7za7__r4_strings_6_7za7003540za7, BGl__substringzd2cizd3zf32100zf2zz__r4_strings_6_7z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd3zf3zd2envzf2zz__r4_strings_6_7z00, BgL_bgl__stringza7d3za7f32096za720za7za7__r4_strings_6_7za7003541z00, BGl__stringzd3zf32096z20zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2stringzd2envz00zz__r4_strings_6_7z00, BgL_bgl__makeza7d2string2083za7d2za7za7__r4_strings_6_7za7003542za7, va_generic_entry, BGl__makezd2string2083zd2zz__r4_strings_6_7z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2setz12zd2envz12zz__r4_strings_6_7z00, BgL_bgl__stringza7d2setza7122090za7c0za7za7__r4_strings_6_7za7003543z00, BGl__stringzd2setz122090zc0zz__r4_strings_6_7z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzc3zd3zf3zd2envz31zz__r4_strings_6_7z00, BgL_bgl__stringza7c3za7d3za7f32110za7e3za7za7__r4_strings_6_7za7003544za7, BGl__stringzc3zd3zf32110ze3zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2forzd2readzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__stringza7d2forza7d2read2150za700za7za7__r4_strings_6_7za7003545z00, BGl__stringzd2forzd2read2150z00zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_blitzd2stringzd2urz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl__blitza7d2stringza7d2urza7122152za712za7za7__r4_strings_6_7za7003546za7, BGl__blitzd2stringzd2urz122152z12zz__r4_strings_6_7z00, 0L, 5 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2setzd2urz12zd2envzc0zz__r4_strings_6_7z00, BgL_bgl__stringza7d2setza7d2urza7122094za712za7za7__r4_strings_6_7za7003547za7, BGl__stringzd2setzd2urz122094z12zz__r4_strings_6_7z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringze3zd3zf3zd2envz11zz__r4_strings_6_7z00, BgL_bgl__stringza7e3za7d3za7f32112za7c3za7za7__r4_strings_6_7za7003548za7, BGl__stringze3zd3zf32112zc3zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2lengthzd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2length2086za7d2za7za7__r4_strings_6_7za7003549za7, BGl__stringzd2length2086zd2zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_STRING( BGl_string3475z00zz__r4_strings_6_7z00, BgL_bgl_string3475za700za7za7__r4_strings_6_7za7003550z00, "blit-string!:Index and length out of range", 42 );
DEFINE_STRING( BGl_string3474z00zz__r4_strings_6_7z00, BgL_bgl_string3474za700za7za7__r4_strings_6_7za7003551z00, "[src:", 5 );
DEFINE_STRING( BGl_string3473z00zz__r4_strings_6_7z00, BgL_bgl_string3473za700za7za7__r4_strings_6_7za7003552z00, "] [dest:", 8 );
DEFINE_STRING( BGl_string3472z00zz__r4_strings_6_7z00, BgL_bgl_string3472za700za7za7__r4_strings_6_7za7003553z00, "]", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_substringzd2envzd2zz__r4_strings_6_7z00, BgL_bgl__substring2122za700za7za7__r4_strings_6_7za7003554z00, BGl__substring2122z00zz__r4_strings_6_7z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2upcasezd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2upcase2138za7d2za7za7__r4_strings_6_7za7003555za7, BGl__stringzd2upcase2138zd2zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2downcasezd2envz00zz__r4_strings_6_7z00, BgL_bgl__stringza7d2downcase2140za7d2za7za7__r4_strings_6_7za7003556za7, BGl__stringzd2downcase2140zd2zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_STRING( BGl_string3448z00zz__r4_strings_6_7z00, BgL_bgl_string3448za700za7za7__r4_strings_6_7za7003557z00, "pair-nil", 8 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00, BgL_bgl__stringza7d2ciza7d3za7f32104za7f2za7za7__r4_strings_6_7za7003558za7, BGl__stringzd2cizd3zf32104zf2zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_STRING( BGl_string3446z00zz__r4_strings_6_7z00, BgL_bgl_string3446za700za7za7__r4_strings_6_7za7003559z00, "", 0 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2capitaliza7ez12zd2envzb5zz__r4_strings_6_7z00, BgL_bgl__stringza7d2capitaliza7a7eza7122146za767za7za7__r4_strings_6_7za7003560za7, BGl__stringzd2capitaliza7ez122146z67zz__r4_strings_6_7z00, 0L, 1 );
DEFINE_STRING( BGl_string3437z00zz__r4_strings_6_7z00, BgL_bgl_string3437za700za7za7__r4_strings_6_7za7003561z00, "Illegal index", 13 );
DEFINE_STRING( BGl_string3436z00zz__r4_strings_6_7z00, BgL_bgl_string3436za700za7za7__r4_strings_6_7za7003562z00, "substring", 9 );
DEFINE_EXPORT_PROCEDURE( BGl_stringze3zf3zd2envzc2zz__r4_strings_6_7z00, BgL_bgl__stringza7e3za7f32108za710za7za7__r4_strings_6_7za7003563z00, BGl__stringze3zf32108z10zz__r4_strings_6_7z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_substringzd3zf3zd2envzf2zz__r4_strings_6_7z00, BgL_bgl__substringza7d3za7f32098za720za7za7__r4_strings_6_7za7003564z00, BGl__substringzd3zf32098z20zz__r4_strings_6_7z00, 0L, 3 );



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



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_strings_6_7z00()
{ AN_OBJECT;
{ /* ./Ieee/string.scm 18 */
BGl_symbol3387z00zz__r4_strings_6_7z00 = 
string_to_symbol("string?"); 
BGl_symbol3388z00zz__r4_strings_6_7z00 = 
string_to_symbol("make-string"); 
BGl_symbol3392z00zz__r4_strings_6_7z00 = 
string_to_symbol("_make-string2083"); 
BGl_symbol3394z00zz__r4_strings_6_7z00 = 
string_to_symbol("string"); 
BGl_symbol3395z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-length"); 
BGl_symbol3396z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-length2086"); 
BGl_symbol3398z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-ref"); 
BGl_symbol3401z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-ref2088"); 
BGl_symbol3402z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-set!"); 
BGl_symbol3404z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-set!2090"); 
BGl_symbol3405z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-ref-ur"); 
BGl_symbol3406z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-ref-ur2092"); 
BGl_symbol3407z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-set-ur!"); 
BGl_symbol3408z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-set-ur!2094"); 
BGl_symbol3409z00zz__r4_strings_6_7z00 = 
string_to_symbol("string=?"); 
BGl_symbol3410z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string=?2096"); 
BGl_symbol3411z00zz__r4_strings_6_7z00 = 
string_to_symbol("substring=?"); 
BGl_symbol3412z00zz__r4_strings_6_7z00 = 
string_to_symbol("_substring=?2098"); 
BGl_symbol3413z00zz__r4_strings_6_7z00 = 
string_to_symbol("substring-ci=?"); 
BGl_symbol3414z00zz__r4_strings_6_7z00 = 
string_to_symbol("_substring-ci=?2100"); 
BGl_symbol3415z00zz__r4_strings_6_7z00 = 
string_to_symbol("empty-string?"); 
BGl_symbol3416z00zz__r4_strings_6_7z00 = 
string_to_symbol("_empty-string?2102"); 
BGl_symbol3417z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-ci=?"); 
BGl_symbol3418z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-ci=?2104"); 
BGl_symbol3419z00zz__r4_strings_6_7z00 = 
string_to_symbol("string<?"); 
BGl_symbol3420z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string<?2106"); 
BGl_symbol3421z00zz__r4_strings_6_7z00 = 
string_to_symbol("string>?"); 
BGl_symbol3422z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string>?2108"); 
BGl_symbol3423z00zz__r4_strings_6_7z00 = 
string_to_symbol("string<=?"); 
BGl_symbol3424z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string<=?2110"); 
BGl_symbol3425z00zz__r4_strings_6_7z00 = 
string_to_symbol("string>=?"); 
BGl_symbol3426z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string>=?2112"); 
BGl_symbol3427z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-ci<?"); 
BGl_symbol3428z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-ci<?2114"); 
BGl_symbol3429z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-ci>?"); 
BGl_symbol3430z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-ci>?2116"); 
BGl_symbol3431z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-ci<=?"); 
BGl_symbol3432z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-ci<=?2118"); 
BGl_symbol3433z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-ci>=?"); 
BGl_symbol3434z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-ci>=?2120"); 
BGl_symbol3435z00zz__r4_strings_6_7z00 = 
string_to_symbol("substring"); 
BGl_symbol3438z00zz__r4_strings_6_7z00 = 
string_to_symbol("_substring2122"); 
BGl_symbol3439z00zz__r4_strings_6_7z00 = 
string_to_symbol("substring-ur"); 
BGl_symbol3440z00zz__r4_strings_6_7z00 = 
string_to_symbol("_substring-ur2124"); 
BGl_symbol3441z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-compare3"); 
BGl_symbol3442z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-compare32126"); 
BGl_symbol3443z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-compare3-ci"); 
BGl_symbol3444z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-compare3-ci2128"); 
BGl_symbol3445z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-append"); 
BGl_symbol3447z00zz__r4_strings_6_7z00 = 
string_to_symbol("list->string"); 
BGl_symbol3449z00zz__r4_strings_6_7z00 = 
string_to_symbol("string->list"); 
BGl_symbol3450z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string->list2132"); 
BGl_symbol3451z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-copy"); 
BGl_symbol3452z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-copy2134"); 
BGl_symbol3453z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-fill!"); 
BGl_symbol3454z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-fill!2136"); 
BGl_symbol3455z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-upcase"); 
BGl_symbol3456z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-upcase2138"); 
BGl_symbol3457z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-downcase"); 
BGl_symbol3458z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-downcase2140"); 
BGl_symbol3459z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-upcase!"); 
BGl_symbol3460z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-upcase!2142"); 
BGl_symbol3461z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-downcase!"); 
BGl_symbol3462z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-downcase!2144"); 
BGl_symbol3463z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-capitalize!"); 
BGl_symbol3464z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-capitalize!2146"); 
BGl_symbol3465z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-capitalize"); 
BGl_symbol3466z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-capitalize2148"); 
BGl_symbol3467z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-for-read"); 
BGl_symbol3468z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-for-read2150"); 
BGl_symbol3469z00zz__r4_strings_6_7z00 = 
string_to_symbol("blit-string-ur!"); 
BGl_symbol3470z00zz__r4_strings_6_7z00 = 
string_to_symbol("_blit-string-ur!2152"); 
BGl_symbol3471z00zz__r4_strings_6_7z00 = 
string_to_symbol("blit-string!"); 
BGl_symbol3476z00zz__r4_strings_6_7z00 = 
string_to_symbol("_blit-string!2154"); 
BGl_symbol3477z00zz__r4_strings_6_7z00 = 
string_to_symbol("string-shrink!"); 
BGl_symbol3478z00zz__r4_strings_6_7z00 = 
string_to_symbol("_string-shrink!"); 
return ( 
BGl_symbol3479z00zz__r4_strings_6_7z00 = 
string_to_symbol("%import@__r4_strings_6_7"), BUNSPEC) ;} 
}



/* string? */
BGL_EXPORTED_DEF bool_t BGl_stringzf3zf3zz__r4_strings_6_7z00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 203 */
{ /* ./Ieee/string.scm 204 */
obj_t BgL_symbol1899z00_1351;
BgL_symbol1899z00_1351 = BGl_symbol3387z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 204 */

PUSH_TRACE(BgL_symbol1899z00_1351); BUNSPEC; 
{ /* ./Ieee/string.scm 204 */
bool_t BgL_aux1898z00_1352;
BgL_aux1898z00_1352 = 
STRINGP(BgL_objz00_1); 
POP_TRACE(); 
return BgL_aux1898z00_1352;} } } } 
}



/* _string? */
obj_t BGl__stringzf3zf3zz__r4_strings_6_7z00(obj_t BgL_envz00_1034, obj_t BgL_objz00_1035)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 203 */
{ /* ./Ieee/string.scm 204 */
bool_t BgL_auxz00_1654;
{ /* ./Ieee/string.scm 204 */
bool_t BgL_res3480z00_1356;
{ /* ./Ieee/string.scm 204 */
obj_t BgL_symbol1899z00_1354;
BgL_symbol1899z00_1354 = BGl_symbol3387z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 204 */

PUSH_TRACE(BgL_symbol1899z00_1354); BUNSPEC; 
{ /* ./Ieee/string.scm 204 */
bool_t BgL_aux1898z00_1355;
BgL_aux1898z00_1355 = 
STRINGP(BgL_objz00_1035); 
POP_TRACE(); 
BgL_res3480z00_1356 = BgL_aux1898z00_1355; } } } 
BgL_auxz00_1654 = BgL_res3480z00_1356; } 
return 
BBOOL(BgL_auxz00_1654);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 210 */
obj_t BgL_symbol1903z00_1357;
BgL_symbol1903z00_1357 = BGl_symbol3388z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 210 */

PUSH_TRACE(BgL_symbol1903z00_1357); BUNSPEC; 
{ /* ./Ieee/string.scm 210 */
obj_t BgL_aux1902z00_1358;
if(
NULLP(BgL_charz00_3))
{ /* ./Ieee/string.scm 210 */
BgL_aux1902z00_1358 = 
make_string(BgL_kz00_2, ((unsigned char)' ')); }  else 
{ /* ./Ieee/string.scm 210 */
obj_t BgL_arg1008z00_1359;
{ /* ./Ieee/string.scm 210 */
obj_t BgL_pairz00_1360;
if(
PAIRP(BgL_charz00_3))
{ /* ./Ieee/string.scm 210 */
BgL_pairz00_1360 = BgL_charz00_3; }  else 
{ /* ./Ieee/string.scm 210 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3388z00zz__r4_strings_6_7z00, BGl_string3389z00zz__r4_strings_6_7z00, BgL_charz00_3, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)9549))); 
exit( -1 );} 
BgL_arg1008z00_1359 = 
CAR(BgL_pairz00_1360); } 
{ /* ./Ieee/string.scm 210 */
unsigned char BgL_auxz00_1669;
{ /* ./Ieee/string.scm 210 */
obj_t BgL_auxz00_1670;
if(
CHARP(BgL_arg1008z00_1359))
{ /* ./Ieee/string.scm 210 */
BgL_auxz00_1670 = BgL_arg1008z00_1359
; }  else 
{ /* ./Ieee/string.scm 210 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3388z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_arg1008z00_1359, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)9549))); 
exit( -1 );} 
BgL_auxz00_1669 = 
(unsigned char)CCHAR(BgL_auxz00_1670); } 
BgL_aux1902z00_1358 = 
make_string(BgL_kz00_2, BgL_auxz00_1669); } } 
POP_TRACE(); 
return BgL_aux1902z00_1358;} } } } 
}



/* _make-string2083 */
obj_t BGl__makezd2string2083zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1036, obj_t BgL_kz00_1037, obj_t BgL_charz00_1038)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 209 */
{ /* ./Ieee/string.scm 210 */
obj_t BgL_res3481z00_1367;
{ /* ./Ieee/string.scm 210 */
int BgL_kz00_1361;
{ /* ./Ieee/string.scm 210 */
obj_t BgL_auxz00_1679;
if(
INTEGERP(BgL_kz00_1037))
{ /* ./Ieee/string.scm 210 */
BgL_auxz00_1679 = BgL_kz00_1037
; }  else 
{ /* ./Ieee/string.scm 210 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3392z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_kz00_1037, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)9549))); 
exit( -1 );} 
BgL_kz00_1361 = 
CINT(BgL_auxz00_1679); } 
{ /* ./Ieee/string.scm 210 */
obj_t BgL_symbol1903z00_1363;
BgL_symbol1903z00_1363 = BGl_symbol3388z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 210 */

PUSH_TRACE(BgL_symbol1903z00_1363); BUNSPEC; 
{ /* ./Ieee/string.scm 210 */
obj_t BgL_aux1902z00_1364;
if(
NULLP(BgL_charz00_1038))
{ /* ./Ieee/string.scm 210 */
BgL_aux1902z00_1364 = 
make_string(BgL_kz00_1361, ((unsigned char)' ')); }  else 
{ /* ./Ieee/string.scm 210 */
obj_t BgL_arg1008z00_1365;
{ /* ./Ieee/string.scm 210 */
obj_t BgL_pairz00_1366;
if(
PAIRP(BgL_charz00_1038))
{ /* ./Ieee/string.scm 210 */
BgL_pairz00_1366 = BgL_charz00_1038; }  else 
{ /* ./Ieee/string.scm 210 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3388z00zz__r4_strings_6_7z00, BGl_string3389z00zz__r4_strings_6_7z00, BgL_charz00_1038, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)9549))); 
exit( -1 );} 
BgL_arg1008z00_1365 = 
CAR(BgL_pairz00_1366); } 
{ /* ./Ieee/string.scm 210 */
unsigned char BgL_auxz00_1696;
{ /* ./Ieee/string.scm 210 */
obj_t BgL_auxz00_1697;
if(
CHARP(BgL_arg1008z00_1365))
{ /* ./Ieee/string.scm 210 */
BgL_auxz00_1697 = BgL_arg1008z00_1365
; }  else 
{ /* ./Ieee/string.scm 210 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3388z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_arg1008z00_1365, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)9549))); 
exit( -1 );} 
BgL_auxz00_1696 = 
(unsigned char)CCHAR(BgL_auxz00_1697); } 
BgL_aux1902z00_1364 = 
make_string(BgL_kz00_1361, BgL_auxz00_1696); } } 
POP_TRACE(); 
BgL_res3481z00_1367 = BgL_aux1902z00_1364; } } } } 
return BgL_res3481z00_1367;} } 
}



/* string */
BGL_EXPORTED_DEF obj_t BGl_stringz00zz__r4_strings_6_7z00(obj_t BgL_charsz00_4)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 217 */
{ /* ./Ieee/string.scm 218 */
obj_t BgL_symbol1907z00_1368;
BgL_symbol1907z00_1368 = BGl_symbol3394z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 218 */

PUSH_TRACE(BgL_symbol1907z00_1368); BUNSPEC; 
{ /* ./Ieee/string.scm 218 */
obj_t BgL_aux1906z00_1369;
BgL_aux1906z00_1369 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_charsz00_4); 
POP_TRACE(); 
return BgL_aux1906z00_1369;} } } } 
}



/* _string */
obj_t BGl__stringz00zz__r4_strings_6_7z00(obj_t BgL_envz00_1039, obj_t BgL_charsz00_1040)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 217 */
{ /* ./Ieee/string.scm 218 */
obj_t BgL_res3482z00_1373;
{ /* ./Ieee/string.scm 218 */
obj_t BgL_symbol1907z00_1371;
BgL_symbol1907z00_1371 = BGl_symbol3394z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 218 */

PUSH_TRACE(BgL_symbol1907z00_1371); BUNSPEC; 
{ /* ./Ieee/string.scm 218 */
obj_t BgL_aux1906z00_1372;
BgL_aux1906z00_1372 = 
BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_charsz00_1040); 
POP_TRACE(); 
BgL_res3482z00_1373 = BgL_aux1906z00_1372; } } } 
return BgL_res3482z00_1373;} } 
}



/* string-length */
BGL_EXPORTED_DEF int BGl_stringzd2lengthzd2zz__r4_strings_6_7z00(obj_t BgL_stringz00_5)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 223 */
{ /* ./Ieee/string.scm 224 */
obj_t BgL_symbol1911z00_1374;
BgL_symbol1911z00_1374 = BGl_symbol3395z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 224 */

PUSH_TRACE(BgL_symbol1911z00_1374); BUNSPEC; 
{ /* ./Ieee/string.scm 224 */
int BgL_aux1910z00_1375;
BgL_aux1910z00_1375 = 
STRING_LENGTH(BgL_stringz00_5); 
POP_TRACE(); 
return BgL_aux1910z00_1375;} } } } 
}



/* _string-length2086 */
obj_t BGl__stringzd2length2086zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1041, obj_t BgL_stringz00_1042)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 223 */
{ /* ./Ieee/string.scm 224 */
int BgL_auxz00_1715;
{ /* ./Ieee/string.scm 224 */
int BgL_res3483z00_1379;
{ /* ./Ieee/string.scm 224 */
obj_t BgL_stringz00_1376;
if(
STRINGP(BgL_stringz00_1042))
{ /* ./Ieee/string.scm 224 */
BgL_stringz00_1376 = BgL_stringz00_1042; }  else 
{ /* ./Ieee/string.scm 224 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3396z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1042, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10182))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 224 */
obj_t BgL_symbol1911z00_1377;
BgL_symbol1911z00_1377 = BGl_symbol3395z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 224 */

PUSH_TRACE(BgL_symbol1911z00_1377); BUNSPEC; 
{ /* ./Ieee/string.scm 224 */
int BgL_aux1910z00_1378;
BgL_aux1910z00_1378 = 
STRING_LENGTH(BgL_stringz00_1376); 
POP_TRACE(); 
BgL_res3483z00_1379 = BgL_aux1910z00_1378; } } } } 
BgL_auxz00_1715 = BgL_res3483z00_1379; } 
return 
BINT(BgL_auxz00_1715);} } 
}



/* 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 */
obj_t BgL_symbol1915z00_1380;
BgL_symbol1915z00_1380 = BGl_symbol3398z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 230 */

PUSH_TRACE(BgL_symbol1915z00_1380); BUNSPEC; 
{ /* ./Ieee/string.scm 230 */
unsigned char BgL_aux1914z00_1381;
{ /* ./Ieee/string.scm 230 */
bool_t BgL_testz00_1726;
{ /* ./Ieee/string.scm 230 */
int BgL_auxz00_1727;
BgL_auxz00_1727 = 
STRING_LENGTH(BgL_stringz00_6); 
BgL_testz00_1726 = 
BOUND_CHECK(BgL_kz00_7, BgL_auxz00_1727); } 
if(BgL_testz00_1726)
{ /* ./Ieee/string.scm 230 */
BgL_aux1914z00_1381 = 
STRING_REF(BgL_stringz00_6, BgL_kz00_7); }  else 
{ /* ./Ieee/string.scm 230 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3399z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_7), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/string.scm 230 */
obj_t BgL_auxz00_1733;
{ /* ./Ieee/string.scm 230 */
obj_t BgL_aux2209z00_1385;
BgL_aux2209z00_1385 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10498))); 
if(
CHARP(BgL_aux2209z00_1385))
{ /* ./Ieee/string.scm 230 */
BgL_auxz00_1733 = BgL_aux2209z00_1385
; }  else 
{ /* ./Ieee/string.scm 230 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3398z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_aux2209z00_1385, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10498))); 
exit( -1 );} } 
BgL_aux1914z00_1381 = 
(unsigned char)CCHAR(BgL_auxz00_1733); } } } 
POP_TRACE(); 
return BgL_aux1914z00_1381;} } } } 
}



/* _string-ref2088 */
obj_t BGl__stringzd2ref2088zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1043, obj_t BgL_stringz00_1044, obj_t BgL_kz00_1045)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 229 */
{ /* ./Ieee/string.scm 230 */
unsigned char BgL_auxz00_1743;
{ /* ./Ieee/string.scm 230 */
unsigned char BgL_res3484z00_1394;
{ /* ./Ieee/string.scm 230 */
obj_t BgL_stringz00_1386;int BgL_kz00_1387;
if(
STRINGP(BgL_stringz00_1044))
{ /* ./Ieee/string.scm 230 */
BgL_stringz00_1386 = BgL_stringz00_1044; }  else 
{ /* ./Ieee/string.scm 230 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3401z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1044, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10498))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 230 */
obj_t BgL_auxz00_1749;
if(
INTEGERP(BgL_kz00_1045))
{ /* ./Ieee/string.scm 230 */
BgL_auxz00_1749 = BgL_kz00_1045
; }  else 
{ /* ./Ieee/string.scm 230 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3401z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_kz00_1045, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10498))); 
exit( -1 );} 
BgL_kz00_1387 = 
CINT(BgL_auxz00_1749); } 
{ /* ./Ieee/string.scm 230 */
obj_t BgL_symbol1915z00_1388;
BgL_symbol1915z00_1388 = BGl_symbol3398z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 230 */

PUSH_TRACE(BgL_symbol1915z00_1388); BUNSPEC; 
{ /* ./Ieee/string.scm 230 */
unsigned char BgL_aux1914z00_1389;
{ /* ./Ieee/string.scm 230 */
bool_t BgL_testz00_1757;
{ /* ./Ieee/string.scm 230 */
int BgL_auxz00_1758;
BgL_auxz00_1758 = 
STRING_LENGTH(BgL_stringz00_1386); 
BgL_testz00_1757 = 
BOUND_CHECK(BgL_kz00_1387, BgL_auxz00_1758); } 
if(BgL_testz00_1757)
{ /* ./Ieee/string.scm 230 */
BgL_aux1914z00_1389 = 
STRING_REF(BgL_stringz00_1386, BgL_kz00_1387); }  else 
{ /* ./Ieee/string.scm 230 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3399z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_1387), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/string.scm 230 */
obj_t BgL_auxz00_1764;
{ /* ./Ieee/string.scm 230 */
obj_t BgL_aux2209z00_1393;
BgL_aux2209z00_1393 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10498))); 
if(
CHARP(BgL_aux2209z00_1393))
{ /* ./Ieee/string.scm 230 */
BgL_auxz00_1764 = BgL_aux2209z00_1393
; }  else 
{ /* ./Ieee/string.scm 230 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3398z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_aux2209z00_1393, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10498))); 
exit( -1 );} } 
BgL_aux1914z00_1389 = 
(unsigned char)CCHAR(BgL_auxz00_1764); } } } 
POP_TRACE(); 
BgL_res3484z00_1394 = BgL_aux1914z00_1389; } } } } 
BgL_auxz00_1743 = BgL_res3484z00_1394; } 
return 
BCHAR(BgL_auxz00_1743);} } 
}



/* 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 */
obj_t BgL_symbol1919z00_1395;
BgL_symbol1919z00_1395 = BGl_symbol3402z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 238 */

PUSH_TRACE(BgL_symbol1919z00_1395); BUNSPEC; 
{ /* ./Ieee/string.scm 238 */
obj_t BgL_aux1918z00_1396;
{ /* ./Ieee/string.scm 238 */
bool_t BgL_testz00_1776;
{ /* ./Ieee/string.scm 238 */
int BgL_auxz00_1777;
BgL_auxz00_1777 = 
STRING_LENGTH(BgL_stringz00_8); 
BgL_testz00_1776 = 
BOUND_CHECK(BgL_kz00_9, BgL_auxz00_1777); } 
if(BgL_testz00_1776)
{ /* ./Ieee/string.scm 238 */
BgL_aux1918z00_1396 = 
STRING_SET(BgL_stringz00_8, BgL_kz00_9, BgL_charz00_10); }  else 
{ /* ./Ieee/string.scm 238 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_9), "./Ieee/string.scm", ((long)10971)); 
BgL_aux1918z00_1396 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10903))); } } 
POP_TRACE(); 
return BgL_aux1918z00_1396;} } } } 
}



/* _string-set!2090 */
obj_t BGl__stringzd2setz122090zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1046, obj_t BgL_stringz00_1047, obj_t BgL_kz00_1048, obj_t BgL_charz00_1049)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 237 */
{ /* ./Ieee/string.scm 238 */
obj_t BgL_stringz00_1397;int BgL_kz00_1398;unsigned char BgL_charz00_1399;
if(
STRINGP(BgL_stringz00_1047))
{ /* ./Ieee/string.scm 238 */
BgL_stringz00_1397 = BgL_stringz00_1047; }  else 
{ /* ./Ieee/string.scm 238 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3404z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1047, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10903))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 238 */
obj_t BgL_auxz00_1791;
if(
INTEGERP(BgL_kz00_1048))
{ /* ./Ieee/string.scm 238 */
BgL_auxz00_1791 = BgL_kz00_1048
; }  else 
{ /* ./Ieee/string.scm 238 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3404z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_kz00_1048, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10903))); 
exit( -1 );} 
BgL_kz00_1398 = 
CINT(BgL_auxz00_1791); } 
{ /* ./Ieee/string.scm 238 */
obj_t BgL_auxz00_1798;
if(
CHARP(BgL_charz00_1049))
{ /* ./Ieee/string.scm 238 */
BgL_auxz00_1798 = BgL_charz00_1049
; }  else 
{ /* ./Ieee/string.scm 238 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3404z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_charz00_1049, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10903))); 
exit( -1 );} 
BgL_charz00_1399 = 
(unsigned char)CCHAR(BgL_auxz00_1798); } 
{ /* ./Ieee/string.scm 238 */
obj_t BgL_symbol1919z00_1400;
BgL_symbol1919z00_1400 = BGl_symbol3402z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 238 */

PUSH_TRACE(BgL_symbol1919z00_1400); BUNSPEC; 
{ /* ./Ieee/string.scm 238 */
obj_t BgL_aux1918z00_1401;
{ /* ./Ieee/string.scm 238 */
bool_t BgL_testz00_1806;
{ /* ./Ieee/string.scm 238 */
int BgL_auxz00_1807;
BgL_auxz00_1807 = 
STRING_LENGTH(BgL_stringz00_1397); 
BgL_testz00_1806 = 
BOUND_CHECK(BgL_kz00_1398, BgL_auxz00_1807); } 
if(BgL_testz00_1806)
{ /* ./Ieee/string.scm 238 */
BgL_aux1918z00_1401 = 
STRING_SET(BgL_stringz00_1397, BgL_kz00_1398, BgL_charz00_1399); }  else 
{ /* ./Ieee/string.scm 238 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_1398), "./Ieee/string.scm", ((long)10971)); 
BgL_aux1918z00_1401 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)10903))); } } 
POP_TRACE(); 
return BgL_aux1918z00_1401;} } } } } 
}



/* 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 */
{ /* ./Ieee/string.scm 246 */
obj_t BgL_symbol1923z00_1402;
BgL_symbol1923z00_1402 = BGl_symbol3405z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 246 */

PUSH_TRACE(BgL_symbol1923z00_1402); BUNSPEC; 
{ /* ./Ieee/string.scm 246 */
unsigned char BgL_aux1922z00_1403;
BgL_aux1922z00_1403 = 
STRING_REF(BgL_stringz00_11, BgL_kz00_12); 
POP_TRACE(); 
return BgL_aux1922z00_1403;} } } } 
}



/* _string-ref-ur2092 */
obj_t BGl__stringzd2refzd2ur2092z00zz__r4_strings_6_7z00(obj_t BgL_envz00_1050, obj_t BgL_stringz00_1051, obj_t BgL_kz00_1052)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 245 */
{ /* ./Ieee/string.scm 246 */
unsigned char BgL_auxz00_1819;
{ /* ./Ieee/string.scm 246 */
unsigned char BgL_res3485z00_1408;
{ /* ./Ieee/string.scm 246 */
obj_t BgL_stringz00_1404;int BgL_kz00_1405;
if(
STRINGP(BgL_stringz00_1051))
{ /* ./Ieee/string.scm 246 */
BgL_stringz00_1404 = BgL_stringz00_1051; }  else 
{ /* ./Ieee/string.scm 246 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3406z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1051, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)11284))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 246 */
obj_t BgL_auxz00_1825;
if(
INTEGERP(BgL_kz00_1052))
{ /* ./Ieee/string.scm 246 */
BgL_auxz00_1825 = BgL_kz00_1052
; }  else 
{ /* ./Ieee/string.scm 246 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3406z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_kz00_1052, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)11284))); 
exit( -1 );} 
BgL_kz00_1405 = 
CINT(BgL_auxz00_1825); } 
{ /* ./Ieee/string.scm 246 */
obj_t BgL_symbol1923z00_1406;
BgL_symbol1923z00_1406 = BGl_symbol3405z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 246 */

PUSH_TRACE(BgL_symbol1923z00_1406); BUNSPEC; 
{ /* ./Ieee/string.scm 246 */
unsigned char BgL_aux1922z00_1407;
BgL_aux1922z00_1407 = 
STRING_REF(BgL_stringz00_1404, BgL_kz00_1405); 
POP_TRACE(); 
BgL_res3485z00_1408 = BgL_aux1922z00_1407; } } } } 
BgL_auxz00_1819 = BgL_res3485z00_1408; } 
return 
BCHAR(BgL_auxz00_1819);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 252 */
obj_t BgL_symbol1927z00_1409;
BgL_symbol1927z00_1409 = BGl_symbol3407z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 252 */

PUSH_TRACE(BgL_symbol1927z00_1409); BUNSPEC; 
{ /* ./Ieee/string.scm 252 */
obj_t BgL_aux1926z00_1410;
BgL_aux1926z00_1410 = 
STRING_SET(BgL_stringz00_13, BgL_kz00_14, BgL_charz00_15); 
POP_TRACE(); 
return BgL_aux1926z00_1410;} } } } 
}



/* _string-set-ur!2094 */
obj_t BGl__stringzd2setzd2urz122094z12zz__r4_strings_6_7z00(obj_t BgL_envz00_1053, obj_t BgL_stringz00_1054, obj_t BgL_kz00_1055, obj_t BgL_charz00_1056)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 251 */
{ /* ./Ieee/string.scm 252 */
obj_t BgL_stringz00_1411;int BgL_kz00_1412;unsigned char BgL_charz00_1413;
if(
STRINGP(BgL_stringz00_1054))
{ /* ./Ieee/string.scm 252 */
BgL_stringz00_1411 = BgL_stringz00_1054; }  else 
{ /* ./Ieee/string.scm 252 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3408z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1054, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)11582))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 252 */
obj_t BgL_auxz00_1844;
if(
INTEGERP(BgL_kz00_1055))
{ /* ./Ieee/string.scm 252 */
BgL_auxz00_1844 = BgL_kz00_1055
; }  else 
{ /* ./Ieee/string.scm 252 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3408z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_kz00_1055, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)11582))); 
exit( -1 );} 
BgL_kz00_1412 = 
CINT(BgL_auxz00_1844); } 
{ /* ./Ieee/string.scm 252 */
obj_t BgL_auxz00_1851;
if(
CHARP(BgL_charz00_1056))
{ /* ./Ieee/string.scm 252 */
BgL_auxz00_1851 = BgL_charz00_1056
; }  else 
{ /* ./Ieee/string.scm 252 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3408z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_charz00_1056, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)11582))); 
exit( -1 );} 
BgL_charz00_1413 = 
(unsigned char)CCHAR(BgL_auxz00_1851); } 
{ /* ./Ieee/string.scm 252 */
obj_t BgL_symbol1927z00_1414;
BgL_symbol1927z00_1414 = BGl_symbol3407z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 252 */

PUSH_TRACE(BgL_symbol1927z00_1414); BUNSPEC; 
{ /* ./Ieee/string.scm 252 */
obj_t BgL_aux1926z00_1415;
BgL_aux1926z00_1415 = 
STRING_SET(BgL_stringz00_1411, BgL_kz00_1412, BgL_charz00_1413); 
POP_TRACE(); 
return BgL_aux1926z00_1415;} } } } } 
}



/* 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 */
{ /* ./Ieee/string.scm 258 */
obj_t BgL_symbol1931z00_1416;
BgL_symbol1931z00_1416 = BGl_symbol3409z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 258 */

PUSH_TRACE(BgL_symbol1931z00_1416); BUNSPEC; 
{ /* ./Ieee/string.scm 258 */
bool_t BgL_aux1930z00_1417;
BgL_aux1930z00_1417 = 
bigloo_strcmp(BgL_string1z00_16, BgL_string2z00_17); 
POP_TRACE(); 
return BgL_aux1930z00_1417;} } } } 
}



/* _string=?2096 */
obj_t BGl__stringzd3zf32096z20zz__r4_strings_6_7z00(obj_t BgL_envz00_1057, obj_t BgL_string1z00_1058, obj_t BgL_string2z00_1059)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 257 */
{ /* ./Ieee/string.scm 258 */
bool_t BgL_auxz00_1864;
{ /* ./Ieee/string.scm 258 */
bool_t BgL_res3486z00_1422;
{ /* ./Ieee/string.scm 258 */
obj_t BgL_string1z00_1418;obj_t BgL_string2z00_1419;
if(
STRINGP(BgL_string1z00_1058))
{ /* ./Ieee/string.scm 258 */
BgL_string1z00_1418 = BgL_string1z00_1058; }  else 
{ /* ./Ieee/string.scm 258 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3410z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1058, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)11881))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1059))
{ /* ./Ieee/string.scm 258 */
BgL_string2z00_1419 = BgL_string2z00_1059; }  else 
{ /* ./Ieee/string.scm 258 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3410z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1059, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)11881))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 258 */
obj_t BgL_symbol1931z00_1420;
BgL_symbol1931z00_1420 = BGl_symbol3409z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 258 */

PUSH_TRACE(BgL_symbol1931z00_1420); BUNSPEC; 
{ /* ./Ieee/string.scm 258 */
bool_t BgL_aux1930z00_1421;
BgL_aux1930z00_1421 = 
bigloo_strcmp(BgL_string1z00_1418, BgL_string2z00_1419); 
POP_TRACE(); 
BgL_res3486z00_1422 = BgL_aux1930z00_1421; } } } } 
BgL_auxz00_1864 = BgL_res3486z00_1422; } 
return 
BBOOL(BgL_auxz00_1864);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 264 */
obj_t BgL_symbol1935z00_1423;
BgL_symbol1935z00_1423 = BGl_symbol3411z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 264 */

PUSH_TRACE(BgL_symbol1935z00_1423); BUNSPEC; 
{ /* ./Ieee/string.scm 264 */
bool_t BgL_aux1934z00_1424;
BgL_aux1934z00_1424 = 
bigloo_strncmp(BgL_string1z00_18, BgL_string2z00_19, BgL_lenz00_20); 
POP_TRACE(); 
return BgL_aux1934z00_1424;} } } } 
}



/* _substring=?2098 */
obj_t BGl__substringzd3zf32098z20zz__r4_strings_6_7z00(obj_t BgL_envz00_1060, obj_t BgL_string1z00_1061, obj_t BgL_string2z00_1062, obj_t BgL_lenz00_1063)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 263 */
{ /* ./Ieee/string.scm 264 */
bool_t BgL_auxz00_1882;
{ /* ./Ieee/string.scm 264 */
bool_t BgL_res3487z00_1430;
{ /* ./Ieee/string.scm 264 */
obj_t BgL_string1z00_1425;obj_t BgL_string2z00_1426;int BgL_lenz00_1427;
if(
STRINGP(BgL_string1z00_1061))
{ /* ./Ieee/string.scm 264 */
BgL_string1z00_1425 = BgL_string1z00_1061; }  else 
{ /* ./Ieee/string.scm 264 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3412z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1061, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)12186))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1062))
{ /* ./Ieee/string.scm 264 */
BgL_string2z00_1426 = BgL_string2z00_1062; }  else 
{ /* ./Ieee/string.scm 264 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3412z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1062, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)12186))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 264 */
obj_t BgL_auxz00_1893;
if(
INTEGERP(BgL_lenz00_1063))
{ /* ./Ieee/string.scm 264 */
BgL_auxz00_1893 = BgL_lenz00_1063
; }  else 
{ /* ./Ieee/string.scm 264 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3412z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_lenz00_1063, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)12186))); 
exit( -1 );} 
BgL_lenz00_1427 = 
CINT(BgL_auxz00_1893); } 
{ /* ./Ieee/string.scm 264 */
obj_t BgL_symbol1935z00_1428;
BgL_symbol1935z00_1428 = BGl_symbol3411z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 264 */

PUSH_TRACE(BgL_symbol1935z00_1428); BUNSPEC; 
{ /* ./Ieee/string.scm 264 */
bool_t BgL_aux1934z00_1429;
BgL_aux1934z00_1429 = 
bigloo_strncmp(BgL_string1z00_1425, BgL_string2z00_1426, BgL_lenz00_1427); 
POP_TRACE(); 
BgL_res3487z00_1430 = BgL_aux1934z00_1429; } } } } 
BgL_auxz00_1882 = BgL_res3487z00_1430; } 
return 
BBOOL(BgL_auxz00_1882);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 270 */
obj_t BgL_symbol1939z00_1431;
BgL_symbol1939z00_1431 = BGl_symbol3413z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 270 */

PUSH_TRACE(BgL_symbol1939z00_1431); BUNSPEC; 
{ /* ./Ieee/string.scm 270 */
bool_t BgL_aux1938z00_1432;
BgL_aux1938z00_1432 = 
bigloo_strncmp_ci(BgL_string1z00_21, BgL_string2z00_22, BgL_lenz00_23); 
POP_TRACE(); 
return BgL_aux1938z00_1432;} } } } 
}



/* _substring-ci=?2100 */
obj_t BGl__substringzd2cizd3zf32100zf2zz__r4_strings_6_7z00(obj_t BgL_envz00_1064, obj_t BgL_string1z00_1065, obj_t BgL_string2z00_1066, obj_t BgL_lenz00_1067)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 269 */
{ /* ./Ieee/string.scm 270 */
bool_t BgL_auxz00_1907;
{ /* ./Ieee/string.scm 270 */
bool_t BgL_res3488z00_1438;
{ /* ./Ieee/string.scm 270 */
obj_t BgL_string1z00_1433;obj_t BgL_string2z00_1434;int BgL_lenz00_1435;
if(
STRINGP(BgL_string1z00_1065))
{ /* ./Ieee/string.scm 270 */
BgL_string1z00_1433 = BgL_string1z00_1065; }  else 
{ /* ./Ieee/string.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3414z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1065, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)12501))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1066))
{ /* ./Ieee/string.scm 270 */
BgL_string2z00_1434 = BgL_string2z00_1066; }  else 
{ /* ./Ieee/string.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3414z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1066, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)12501))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 270 */
obj_t BgL_auxz00_1918;
if(
INTEGERP(BgL_lenz00_1067))
{ /* ./Ieee/string.scm 270 */
BgL_auxz00_1918 = BgL_lenz00_1067
; }  else 
{ /* ./Ieee/string.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3414z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_lenz00_1067, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)12501))); 
exit( -1 );} 
BgL_lenz00_1435 = 
CINT(BgL_auxz00_1918); } 
{ /* ./Ieee/string.scm 270 */
obj_t BgL_symbol1939z00_1436;
BgL_symbol1939z00_1436 = BGl_symbol3413z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 270 */

PUSH_TRACE(BgL_symbol1939z00_1436); BUNSPEC; 
{ /* ./Ieee/string.scm 270 */
bool_t BgL_aux1938z00_1437;
BgL_aux1938z00_1437 = 
bigloo_strncmp_ci(BgL_string1z00_1433, BgL_string2z00_1434, BgL_lenz00_1435); 
POP_TRACE(); 
BgL_res3488z00_1438 = BgL_aux1938z00_1437; } } } } 
BgL_auxz00_1907 = BgL_res3488z00_1438; } 
return 
BBOOL(BgL_auxz00_1907);} } 
}



/* 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 */
obj_t BgL_symbol1943z00_1439;
BgL_symbol1943z00_1439 = BGl_symbol3415z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 276 */

PUSH_TRACE(BgL_symbol1943z00_1439); BUNSPEC; 
{ /* ./Ieee/string.scm 276 */
bool_t BgL_aux1942z00_1440;
{ /* ./Ieee/string.scm 276 */
long BgL_auxz00_1930;
{ /* ./Ieee/string.scm 276 */
int BgL_auxz00_1931;
BgL_auxz00_1931 = 
STRING_LENGTH(BgL_stringz00_24); 
BgL_auxz00_1930 = 
(long)(BgL_auxz00_1931); } 
BgL_aux1942z00_1440 = 
(BgL_auxz00_1930==((long)0)); } 
POP_TRACE(); 
return BgL_aux1942z00_1440;} } } } 
}



/* _empty-string?2102 */
obj_t BGl__emptyzd2stringzf32102z21zz__r4_strings_6_7z00(obj_t BgL_envz00_1068, obj_t BgL_stringz00_1069)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 275 */
{ /* ./Ieee/string.scm 276 */
bool_t BgL_auxz00_1936;
{ /* ./Ieee/string.scm 276 */
bool_t BgL_res3489z00_1444;
{ /* ./Ieee/string.scm 276 */
obj_t BgL_stringz00_1441;
if(
STRINGP(BgL_stringz00_1069))
{ /* ./Ieee/string.scm 276 */
BgL_stringz00_1441 = BgL_stringz00_1069; }  else 
{ /* ./Ieee/string.scm 276 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3416z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1069, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)12810))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 276 */
obj_t BgL_symbol1943z00_1442;
BgL_symbol1943z00_1442 = BGl_symbol3415z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 276 */

PUSH_TRACE(BgL_symbol1943z00_1442); BUNSPEC; 
{ /* ./Ieee/string.scm 276 */
bool_t BgL_aux1942z00_1443;
{ /* ./Ieee/string.scm 276 */
long BgL_auxz00_1943;
{ /* ./Ieee/string.scm 276 */
int BgL_auxz00_1944;
BgL_auxz00_1944 = 
STRING_LENGTH(BgL_stringz00_1441); 
BgL_auxz00_1943 = 
(long)(BgL_auxz00_1944); } 
BgL_aux1942z00_1443 = 
(BgL_auxz00_1943==((long)0)); } 
POP_TRACE(); 
BgL_res3489z00_1444 = BgL_aux1942z00_1443; } } } } 
BgL_auxz00_1936 = BgL_res3489z00_1444; } 
return 
BBOOL(BgL_auxz00_1936);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 282 */
obj_t BgL_symbol1947z00_1445;
BgL_symbol1947z00_1445 = BGl_symbol3417z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 282 */

PUSH_TRACE(BgL_symbol1947z00_1445); BUNSPEC; 
{ /* ./Ieee/string.scm 282 */
bool_t BgL_aux1946z00_1446;
BgL_aux1946z00_1446 = 
strcicmp(BgL_string1z00_25, BgL_string2z00_26); 
POP_TRACE(); 
return BgL_aux1946z00_1446;} } } } 
}



/* _string-ci=?2104 */
obj_t BGl__stringzd2cizd3zf32104zf2zz__r4_strings_6_7z00(obj_t BgL_envz00_1070, obj_t BgL_string1z00_1071, obj_t BgL_string2z00_1072)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 281 */
{ /* ./Ieee/string.scm 282 */
bool_t BgL_auxz00_1953;
{ /* ./Ieee/string.scm 282 */
bool_t BgL_res3490z00_1451;
{ /* ./Ieee/string.scm 282 */
obj_t BgL_string1z00_1447;obj_t BgL_string2z00_1448;
if(
STRINGP(BgL_string1z00_1071))
{ /* ./Ieee/string.scm 282 */
BgL_string1z00_1447 = BgL_string1z00_1071; }  else 
{ /* ./Ieee/string.scm 282 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3418z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1071, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)13108))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1072))
{ /* ./Ieee/string.scm 282 */
BgL_string2z00_1448 = BgL_string2z00_1072; }  else 
{ /* ./Ieee/string.scm 282 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3418z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1072, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)13108))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 282 */
obj_t BgL_symbol1947z00_1449;
BgL_symbol1947z00_1449 = BGl_symbol3417z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 282 */

PUSH_TRACE(BgL_symbol1947z00_1449); BUNSPEC; 
{ /* ./Ieee/string.scm 282 */
bool_t BgL_aux1946z00_1450;
BgL_aux1946z00_1450 = 
strcicmp(BgL_string1z00_1447, BgL_string2z00_1448); 
POP_TRACE(); 
BgL_res3490z00_1451 = BgL_aux1946z00_1450; } } } } 
BgL_auxz00_1953 = BgL_res3490z00_1451; } 
return 
BBOOL(BgL_auxz00_1953);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 288 */
obj_t BgL_symbol1951z00_1452;
BgL_symbol1951z00_1452 = BGl_symbol3419z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 288 */

PUSH_TRACE(BgL_symbol1951z00_1452); BUNSPEC; 
{ /* ./Ieee/string.scm 288 */
bool_t BgL_aux1950z00_1453;
BgL_aux1950z00_1453 = 
string_lt(BgL_string1z00_27, BgL_string2z00_28); 
POP_TRACE(); 
return BgL_aux1950z00_1453;} } } } 
}



/* _string<?2106 */
obj_t BGl__stringzc3zf32106z30zz__r4_strings_6_7z00(obj_t BgL_envz00_1073, obj_t BgL_string1z00_1074, obj_t BgL_string2z00_1075)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 287 */
{ /* ./Ieee/string.scm 288 */
bool_t BgL_auxz00_1971;
{ /* ./Ieee/string.scm 288 */
bool_t BgL_res3491z00_1458;
{ /* ./Ieee/string.scm 288 */
obj_t BgL_string1z00_1454;obj_t BgL_string2z00_1455;
if(
STRINGP(BgL_string1z00_1074))
{ /* ./Ieee/string.scm 288 */
BgL_string1z00_1454 = BgL_string1z00_1074; }  else 
{ /* ./Ieee/string.scm 288 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3420z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1074, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)13404))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1075))
{ /* ./Ieee/string.scm 288 */
BgL_string2z00_1455 = BgL_string2z00_1075; }  else 
{ /* ./Ieee/string.scm 288 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3420z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1075, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)13404))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 288 */
obj_t BgL_symbol1951z00_1456;
BgL_symbol1951z00_1456 = BGl_symbol3419z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 288 */

PUSH_TRACE(BgL_symbol1951z00_1456); BUNSPEC; 
{ /* ./Ieee/string.scm 288 */
bool_t BgL_aux1950z00_1457;
BgL_aux1950z00_1457 = 
string_lt(BgL_string1z00_1454, BgL_string2z00_1455); 
POP_TRACE(); 
BgL_res3491z00_1458 = BgL_aux1950z00_1457; } } } } 
BgL_auxz00_1971 = BgL_res3491z00_1458; } 
return 
BBOOL(BgL_auxz00_1971);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 294 */
obj_t BgL_symbol1955z00_1459;
BgL_symbol1955z00_1459 = BGl_symbol3421z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 294 */

PUSH_TRACE(BgL_symbol1955z00_1459); BUNSPEC; 
{ /* ./Ieee/string.scm 294 */
bool_t BgL_aux1954z00_1460;
BgL_aux1954z00_1460 = 
string_gt(BgL_string1z00_29, BgL_string2z00_30); 
POP_TRACE(); 
return BgL_aux1954z00_1460;} } } } 
}



/* _string>?2108 */
obj_t BGl__stringze3zf32108z10zz__r4_strings_6_7z00(obj_t BgL_envz00_1076, obj_t BgL_string1z00_1077, obj_t BgL_string2z00_1078)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 293 */
{ /* ./Ieee/string.scm 294 */
bool_t BgL_auxz00_1989;
{ /* ./Ieee/string.scm 294 */
bool_t BgL_res3492z00_1465;
{ /* ./Ieee/string.scm 294 */
obj_t BgL_string1z00_1461;obj_t BgL_string2z00_1462;
if(
STRINGP(BgL_string1z00_1077))
{ /* ./Ieee/string.scm 294 */
BgL_string1z00_1461 = BgL_string1z00_1077; }  else 
{ /* ./Ieee/string.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3422z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1077, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)13701))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1078))
{ /* ./Ieee/string.scm 294 */
BgL_string2z00_1462 = BgL_string2z00_1078; }  else 
{ /* ./Ieee/string.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3422z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1078, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)13701))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 294 */
obj_t BgL_symbol1955z00_1463;
BgL_symbol1955z00_1463 = BGl_symbol3421z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 294 */

PUSH_TRACE(BgL_symbol1955z00_1463); BUNSPEC; 
{ /* ./Ieee/string.scm 294 */
bool_t BgL_aux1954z00_1464;
BgL_aux1954z00_1464 = 
string_gt(BgL_string1z00_1461, BgL_string2z00_1462); 
POP_TRACE(); 
BgL_res3492z00_1465 = BgL_aux1954z00_1464; } } } } 
BgL_auxz00_1989 = BgL_res3492z00_1465; } 
return 
BBOOL(BgL_auxz00_1989);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 300 */
obj_t BgL_symbol1959z00_1466;
BgL_symbol1959z00_1466 = BGl_symbol3423z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 300 */

PUSH_TRACE(BgL_symbol1959z00_1466); BUNSPEC; 
{ /* ./Ieee/string.scm 300 */
bool_t BgL_aux1958z00_1467;
BgL_aux1958z00_1467 = 
string_le(BgL_string1z00_31, BgL_string2z00_32); 
POP_TRACE(); 
return BgL_aux1958z00_1467;} } } } 
}



/* _string<=?2110 */
obj_t BGl__stringzc3zd3zf32110ze3zz__r4_strings_6_7z00(obj_t BgL_envz00_1079, obj_t BgL_string1z00_1080, obj_t BgL_string2z00_1081)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 299 */
{ /* ./Ieee/string.scm 300 */
bool_t BgL_auxz00_2007;
{ /* ./Ieee/string.scm 300 */
bool_t BgL_res3493z00_1472;
{ /* ./Ieee/string.scm 300 */
obj_t BgL_string1z00_1468;obj_t BgL_string2z00_1469;
if(
STRINGP(BgL_string1z00_1080))
{ /* ./Ieee/string.scm 300 */
BgL_string1z00_1468 = BgL_string1z00_1080; }  else 
{ /* ./Ieee/string.scm 300 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3424z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1080, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)13999))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1081))
{ /* ./Ieee/string.scm 300 */
BgL_string2z00_1469 = BgL_string2z00_1081; }  else 
{ /* ./Ieee/string.scm 300 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3424z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1081, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)13999))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 300 */
obj_t BgL_symbol1959z00_1470;
BgL_symbol1959z00_1470 = BGl_symbol3423z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 300 */

PUSH_TRACE(BgL_symbol1959z00_1470); BUNSPEC; 
{ /* ./Ieee/string.scm 300 */
bool_t BgL_aux1958z00_1471;
BgL_aux1958z00_1471 = 
string_le(BgL_string1z00_1468, BgL_string2z00_1469); 
POP_TRACE(); 
BgL_res3493z00_1472 = BgL_aux1958z00_1471; } } } } 
BgL_auxz00_2007 = BgL_res3493z00_1472; } 
return 
BBOOL(BgL_auxz00_2007);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 306 */
obj_t BgL_symbol1963z00_1473;
BgL_symbol1963z00_1473 = BGl_symbol3425z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 306 */

PUSH_TRACE(BgL_symbol1963z00_1473); BUNSPEC; 
{ /* ./Ieee/string.scm 306 */
bool_t BgL_aux1962z00_1474;
BgL_aux1962z00_1474 = 
string_ge(BgL_string1z00_33, BgL_string2z00_34); 
POP_TRACE(); 
return BgL_aux1962z00_1474;} } } } 
}



/* _string>=?2112 */
obj_t BGl__stringze3zd3zf32112zc3zz__r4_strings_6_7z00(obj_t BgL_envz00_1082, obj_t BgL_string1z00_1083, obj_t BgL_string2z00_1084)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 305 */
{ /* ./Ieee/string.scm 306 */
bool_t BgL_auxz00_2025;
{ /* ./Ieee/string.scm 306 */
bool_t BgL_res3494z00_1479;
{ /* ./Ieee/string.scm 306 */
obj_t BgL_string1z00_1475;obj_t BgL_string2z00_1476;
if(
STRINGP(BgL_string1z00_1083))
{ /* ./Ieee/string.scm 306 */
BgL_string1z00_1475 = BgL_string1z00_1083; }  else 
{ /* ./Ieee/string.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3426z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1083, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)14297))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1084))
{ /* ./Ieee/string.scm 306 */
BgL_string2z00_1476 = BgL_string2z00_1084; }  else 
{ /* ./Ieee/string.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3426z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1084, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)14297))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 306 */
obj_t BgL_symbol1963z00_1477;
BgL_symbol1963z00_1477 = BGl_symbol3425z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 306 */

PUSH_TRACE(BgL_symbol1963z00_1477); BUNSPEC; 
{ /* ./Ieee/string.scm 306 */
bool_t BgL_aux1962z00_1478;
BgL_aux1962z00_1478 = 
string_ge(BgL_string1z00_1475, BgL_string2z00_1476); 
POP_TRACE(); 
BgL_res3494z00_1479 = BgL_aux1962z00_1478; } } } } 
BgL_auxz00_2025 = BgL_res3494z00_1479; } 
return 
BBOOL(BgL_auxz00_2025);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 312 */
obj_t BgL_symbol1967z00_1480;
BgL_symbol1967z00_1480 = BGl_symbol3427z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 312 */

PUSH_TRACE(BgL_symbol1967z00_1480); BUNSPEC; 
{ /* ./Ieee/string.scm 312 */
bool_t BgL_aux1966z00_1481;
BgL_aux1966z00_1481 = 
string_cilt(BgL_string1z00_35, BgL_string2z00_36); 
POP_TRACE(); 
return BgL_aux1966z00_1481;} } } } 
}



/* _string-ci<?2114 */
obj_t BGl__stringzd2cizc3zf32114ze2zz__r4_strings_6_7z00(obj_t BgL_envz00_1085, obj_t BgL_string1z00_1086, obj_t BgL_string2z00_1087)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 311 */
{ /* ./Ieee/string.scm 312 */
bool_t BgL_auxz00_2043;
{ /* ./Ieee/string.scm 312 */
bool_t BgL_res3495z00_1486;
{ /* ./Ieee/string.scm 312 */
obj_t BgL_string1z00_1482;obj_t BgL_string2z00_1483;
if(
STRINGP(BgL_string1z00_1086))
{ /* ./Ieee/string.scm 312 */
BgL_string1z00_1482 = BgL_string1z00_1086; }  else 
{ /* ./Ieee/string.scm 312 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3428z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1086, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)14597))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1087))
{ /* ./Ieee/string.scm 312 */
BgL_string2z00_1483 = BgL_string2z00_1087; }  else 
{ /* ./Ieee/string.scm 312 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3428z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1087, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)14597))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 312 */
obj_t BgL_symbol1967z00_1484;
BgL_symbol1967z00_1484 = BGl_symbol3427z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 312 */

PUSH_TRACE(BgL_symbol1967z00_1484); BUNSPEC; 
{ /* ./Ieee/string.scm 312 */
bool_t BgL_aux1966z00_1485;
BgL_aux1966z00_1485 = 
string_cilt(BgL_string1z00_1482, BgL_string2z00_1483); 
POP_TRACE(); 
BgL_res3495z00_1486 = BgL_aux1966z00_1485; } } } } 
BgL_auxz00_2043 = BgL_res3495z00_1486; } 
return 
BBOOL(BgL_auxz00_2043);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 318 */
obj_t BgL_symbol1971z00_1487;
BgL_symbol1971z00_1487 = BGl_symbol3429z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 318 */

PUSH_TRACE(BgL_symbol1971z00_1487); BUNSPEC; 
{ /* ./Ieee/string.scm 318 */
bool_t BgL_aux1970z00_1488;
BgL_aux1970z00_1488 = 
string_cigt(BgL_string1z00_37, BgL_string2z00_38); 
POP_TRACE(); 
return BgL_aux1970z00_1488;} } } } 
}



/* _string-ci>?2116 */
obj_t BGl__stringzd2cize3zf32116zc2zz__r4_strings_6_7z00(obj_t BgL_envz00_1088, obj_t BgL_string1z00_1089, obj_t BgL_string2z00_1090)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 317 */
{ /* ./Ieee/string.scm 318 */
bool_t BgL_auxz00_2061;
{ /* ./Ieee/string.scm 318 */
bool_t BgL_res3496z00_1493;
{ /* ./Ieee/string.scm 318 */
obj_t BgL_string1z00_1489;obj_t BgL_string2z00_1490;
if(
STRINGP(BgL_string1z00_1089))
{ /* ./Ieee/string.scm 318 */
BgL_string1z00_1489 = BgL_string1z00_1089; }  else 
{ /* ./Ieee/string.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3430z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1089, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)14899))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1090))
{ /* ./Ieee/string.scm 318 */
BgL_string2z00_1490 = BgL_string2z00_1090; }  else 
{ /* ./Ieee/string.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3430z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1090, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)14899))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 318 */
obj_t BgL_symbol1971z00_1491;
BgL_symbol1971z00_1491 = BGl_symbol3429z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 318 */

PUSH_TRACE(BgL_symbol1971z00_1491); BUNSPEC; 
{ /* ./Ieee/string.scm 318 */
bool_t BgL_aux1970z00_1492;
BgL_aux1970z00_1492 = 
string_cigt(BgL_string1z00_1489, BgL_string2z00_1490); 
POP_TRACE(); 
BgL_res3496z00_1493 = BgL_aux1970z00_1492; } } } } 
BgL_auxz00_2061 = BgL_res3496z00_1493; } 
return 
BBOOL(BgL_auxz00_2061);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 324 */
obj_t BgL_symbol1975z00_1494;
BgL_symbol1975z00_1494 = BGl_symbol3431z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 324 */

PUSH_TRACE(BgL_symbol1975z00_1494); BUNSPEC; 
{ /* ./Ieee/string.scm 324 */
bool_t BgL_aux1974z00_1495;
BgL_aux1974z00_1495 = 
string_cile(BgL_string1z00_39, BgL_string2z00_40); 
POP_TRACE(); 
return BgL_aux1974z00_1495;} } } } 
}



/* _string-ci<=?2118 */
obj_t BGl__stringzd2cizc3zd3zf32118z31zz__r4_strings_6_7z00(obj_t BgL_envz00_1091, obj_t BgL_string1z00_1092, obj_t BgL_string2z00_1093)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 323 */
{ /* ./Ieee/string.scm 324 */
bool_t BgL_auxz00_2079;
{ /* ./Ieee/string.scm 324 */
bool_t BgL_res3497z00_1500;
{ /* ./Ieee/string.scm 324 */
obj_t BgL_string1z00_1496;obj_t BgL_string2z00_1497;
if(
STRINGP(BgL_string1z00_1092))
{ /* ./Ieee/string.scm 324 */
BgL_string1z00_1496 = BgL_string1z00_1092; }  else 
{ /* ./Ieee/string.scm 324 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3432z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1092, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15202))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1093))
{ /* ./Ieee/string.scm 324 */
BgL_string2z00_1497 = BgL_string2z00_1093; }  else 
{ /* ./Ieee/string.scm 324 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3432z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1093, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15202))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 324 */
obj_t BgL_symbol1975z00_1498;
BgL_symbol1975z00_1498 = BGl_symbol3431z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 324 */

PUSH_TRACE(BgL_symbol1975z00_1498); BUNSPEC; 
{ /* ./Ieee/string.scm 324 */
bool_t BgL_aux1974z00_1499;
BgL_aux1974z00_1499 = 
string_cile(BgL_string1z00_1496, BgL_string2z00_1497); 
POP_TRACE(); 
BgL_res3497z00_1500 = BgL_aux1974z00_1499; } } } } 
BgL_auxz00_2079 = BgL_res3497z00_1500; } 
return 
BBOOL(BgL_auxz00_2079);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 330 */
obj_t BgL_symbol1979z00_1501;
BgL_symbol1979z00_1501 = BGl_symbol3433z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 330 */

PUSH_TRACE(BgL_symbol1979z00_1501); BUNSPEC; 
{ /* ./Ieee/string.scm 330 */
bool_t BgL_aux1978z00_1502;
BgL_aux1978z00_1502 = 
string_cige(BgL_string1z00_41, BgL_string2z00_42); 
POP_TRACE(); 
return BgL_aux1978z00_1502;} } } } 
}



/* _string-ci>=?2120 */
obj_t BGl__stringzd2cize3zd3zf32120z11zz__r4_strings_6_7z00(obj_t BgL_envz00_1094, obj_t BgL_string1z00_1095, obj_t BgL_string2z00_1096)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 329 */
{ /* ./Ieee/string.scm 330 */
bool_t BgL_auxz00_2097;
{ /* ./Ieee/string.scm 330 */
bool_t BgL_res3498z00_1507;
{ /* ./Ieee/string.scm 330 */
obj_t BgL_string1z00_1503;obj_t BgL_string2z00_1504;
if(
STRINGP(BgL_string1z00_1095))
{ /* ./Ieee/string.scm 330 */
BgL_string1z00_1503 = BgL_string1z00_1095; }  else 
{ /* ./Ieee/string.scm 330 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3434z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string1z00_1095, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15505))); 
exit( -1 );} 
if(
STRINGP(BgL_string2z00_1096))
{ /* ./Ieee/string.scm 330 */
BgL_string2z00_1504 = BgL_string2z00_1096; }  else 
{ /* ./Ieee/string.scm 330 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3434z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_string2z00_1096, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15505))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 330 */
obj_t BgL_symbol1979z00_1505;
BgL_symbol1979z00_1505 = BGl_symbol3433z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 330 */

PUSH_TRACE(BgL_symbol1979z00_1505); BUNSPEC; 
{ /* ./Ieee/string.scm 330 */
bool_t BgL_aux1978z00_1506;
BgL_aux1978z00_1506 = 
string_cige(BgL_string1z00_1503, BgL_string2z00_1504); 
POP_TRACE(); 
BgL_res3498z00_1507 = BgL_aux1978z00_1506; } } } } 
BgL_auxz00_2097 = BgL_res3498z00_1507; } 
return 
BBOOL(BgL_auxz00_2097);} } 
}



/* 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 */
obj_t BgL_symbol1983z00_1508;
BgL_symbol1983z00_1508 = BGl_symbol3435z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 337 */

PUSH_TRACE(BgL_symbol1983z00_1508); BUNSPEC; 
{ /* ./Ieee/string.scm 337 */
obj_t BgL_aux1982z00_1509;
{ /* ./Ieee/string.scm 337 */
bool_t BgL_test1050z00_1510;
{ /* ./Ieee/string.scm 337 */
bool_t BgL_testz00_2113;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_2116;long BgL_auxz00_2114;
BgL_auxz00_2116 = 
(long)(BgL_startz00_44); 
BgL_auxz00_2114 = 
(long)(BgL_endz00_45); 
BgL_testz00_2113 = 
(BgL_auxz00_2114>=BgL_auxz00_2116); } 
if(BgL_testz00_2113)
{ /* ./Ieee/string.scm 337 */
bool_t BgL_testz00_2119;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_2120;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_2121;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_2122;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_2123;
BgL_auxz00_2123 = 
STRING_LENGTH(BgL_stringz00_43); 
BgL_auxz00_2122 = 
(long)(BgL_auxz00_2123); } 
BgL_auxz00_2121 = 
(BgL_auxz00_2122+((long)1)); } 
BgL_auxz00_2120 = 
(int)(BgL_auxz00_2121); } 
BgL_testz00_2119 = 
BOUND_CHECK(BgL_startz00_44, BgL_auxz00_2120); } 
if(BgL_testz00_2119)
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_2129;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_2130;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_2131;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_2132;
BgL_auxz00_2132 = 
STRING_LENGTH(BgL_stringz00_43); 
BgL_auxz00_2131 = 
(long)(BgL_auxz00_2132); } 
BgL_auxz00_2130 = 
(BgL_auxz00_2131+((long)1)); } 
BgL_auxz00_2129 = 
(int)(BgL_auxz00_2130); } 
BgL_test1050z00_1510 = 
BOUND_CHECK(BgL_endz00_45, BgL_auxz00_2129); }  else 
{ /* ./Ieee/string.scm 337 */
BgL_test1050z00_1510 = ((bool_t)0); } }  else 
{ /* ./Ieee/string.scm 337 */
BgL_test1050z00_1510 = ((bool_t)0); } } 
if(BgL_test1050z00_1510)
{ /* ./Ieee/string.scm 337 */
BgL_aux1982z00_1509 = 
c_substring(BgL_stringz00_43, BgL_startz00_44, BgL_endz00_45); }  else 
{ /* ./Ieee/string.scm 337 */
{ /* ./Ieee/string.scm 337 */
obj_t BgL_arg1055z00_1511;
{ /* ./Ieee/string.scm 337 */
obj_t BgL_auxz00_2142;obj_t BgL_auxz00_2140;
BgL_auxz00_2142 = 
BINT(BgL_endz00_45); 
BgL_auxz00_2140 = 
BINT(BgL_startz00_44); 
BgL_arg1055z00_1511 = 
MAKE_PAIR(BgL_auxz00_2140, BgL_auxz00_2142); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3436z00zz__r4_strings_6_7z00, BGl_string3437z00zz__r4_strings_6_7z00, BgL_arg1055z00_1511, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/string.scm 337 */
obj_t BgL_aux2637z00_1515;
BgL_aux2637z00_1515 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15857))); 
if(
STRINGP(BgL_aux2637z00_1515))
{ /* ./Ieee/string.scm 337 */
BgL_aux1982z00_1509 = BgL_aux2637z00_1515; }  else 
{ /* ./Ieee/string.scm 337 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3435z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_aux2637z00_1515, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15857))); 
exit( -1 );} } } } 
POP_TRACE(); 
return BgL_aux1982z00_1509;} } } } 
}



/* _substring2122 */
obj_t BGl__substring2122z00zz__r4_strings_6_7z00(obj_t BgL_envz00_1097, obj_t BgL_stringz00_1098, obj_t BgL_startz00_1099, obj_t BgL_endz00_1100)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 335 */
{ /* ./Ieee/string.scm 337 */
obj_t BgL_res3499z00_1527;
{ /* ./Ieee/string.scm 337 */
obj_t BgL_stringz00_1516;int BgL_startz00_1517;int BgL_endz00_1518;
if(
STRINGP(BgL_stringz00_1098))
{ /* ./Ieee/string.scm 337 */
BgL_stringz00_1516 = BgL_stringz00_1098; }  else 
{ /* ./Ieee/string.scm 337 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3438z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1098, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15857))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 337 */
obj_t BgL_auxz00_2159;
if(
INTEGERP(BgL_startz00_1099))
{ /* ./Ieee/string.scm 337 */
BgL_auxz00_2159 = BgL_startz00_1099
; }  else 
{ /* ./Ieee/string.scm 337 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3438z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_startz00_1099, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15857))); 
exit( -1 );} 
BgL_startz00_1517 = 
CINT(BgL_auxz00_2159); } 
{ /* ./Ieee/string.scm 337 */
obj_t BgL_auxz00_2166;
if(
INTEGERP(BgL_endz00_1100))
{ /* ./Ieee/string.scm 337 */
BgL_auxz00_2166 = BgL_endz00_1100
; }  else 
{ /* ./Ieee/string.scm 337 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3438z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_endz00_1100, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15857))); 
exit( -1 );} 
BgL_endz00_1518 = 
CINT(BgL_auxz00_2166); } 
{ /* ./Ieee/string.scm 337 */
obj_t BgL_symbol1983z00_1519;
BgL_symbol1983z00_1519 = BGl_symbol3435z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 337 */

PUSH_TRACE(BgL_symbol1983z00_1519); BUNSPEC; 
{ /* ./Ieee/string.scm 337 */
obj_t BgL_aux1982z00_1520;
{ /* ./Ieee/string.scm 337 */
bool_t BgL_test1050z00_1521;
{ /* ./Ieee/string.scm 337 */
bool_t BgL_testz00_2174;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_2177;long BgL_auxz00_2175;
BgL_auxz00_2177 = 
(long)(BgL_startz00_1517); 
BgL_auxz00_2175 = 
(long)(BgL_endz00_1518); 
BgL_testz00_2174 = 
(BgL_auxz00_2175>=BgL_auxz00_2177); } 
if(BgL_testz00_2174)
{ /* ./Ieee/string.scm 337 */
bool_t BgL_testz00_2180;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_2181;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_2182;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_2183;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_2184;
BgL_auxz00_2184 = 
STRING_LENGTH(BgL_stringz00_1516); 
BgL_auxz00_2183 = 
(long)(BgL_auxz00_2184); } 
BgL_auxz00_2182 = 
(BgL_auxz00_2183+((long)1)); } 
BgL_auxz00_2181 = 
(int)(BgL_auxz00_2182); } 
BgL_testz00_2180 = 
BOUND_CHECK(BgL_startz00_1517, BgL_auxz00_2181); } 
if(BgL_testz00_2180)
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_2190;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_2191;
{ /* ./Ieee/string.scm 337 */
long BgL_auxz00_2192;
{ /* ./Ieee/string.scm 337 */
int BgL_auxz00_2193;
BgL_auxz00_2193 = 
STRING_LENGTH(BgL_stringz00_1516); 
BgL_auxz00_2192 = 
(long)(BgL_auxz00_2193); } 
BgL_auxz00_2191 = 
(BgL_auxz00_2192+((long)1)); } 
BgL_auxz00_2190 = 
(int)(BgL_auxz00_2191); } 
BgL_test1050z00_1521 = 
BOUND_CHECK(BgL_endz00_1518, BgL_auxz00_2190); }  else 
{ /* ./Ieee/string.scm 337 */
BgL_test1050z00_1521 = ((bool_t)0); } }  else 
{ /* ./Ieee/string.scm 337 */
BgL_test1050z00_1521 = ((bool_t)0); } } 
if(BgL_test1050z00_1521)
{ /* ./Ieee/string.scm 337 */
BgL_aux1982z00_1520 = 
c_substring(BgL_stringz00_1516, BgL_startz00_1517, BgL_endz00_1518); }  else 
{ /* ./Ieee/string.scm 337 */
{ /* ./Ieee/string.scm 337 */
obj_t BgL_arg1055z00_1522;
{ /* ./Ieee/string.scm 337 */
obj_t BgL_auxz00_2203;obj_t BgL_auxz00_2201;
BgL_auxz00_2203 = 
BINT(BgL_endz00_1518); 
BgL_auxz00_2201 = 
BINT(BgL_startz00_1517); 
BgL_arg1055z00_1522 = 
MAKE_PAIR(BgL_auxz00_2201, BgL_auxz00_2203); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3436z00zz__r4_strings_6_7z00, BGl_string3437z00zz__r4_strings_6_7z00, BgL_arg1055z00_1522, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/string.scm 337 */
obj_t BgL_aux2637z00_1526;
BgL_aux2637z00_1526 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15857))); 
if(
STRINGP(BgL_aux2637z00_1526))
{ /* ./Ieee/string.scm 337 */
BgL_aux1982z00_1520 = BgL_aux2637z00_1526; }  else 
{ /* ./Ieee/string.scm 337 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3435z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_aux2637z00_1526, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)15857))); 
exit( -1 );} } } } 
POP_TRACE(); 
BgL_res3499z00_1527 = BgL_aux1982z00_1520; } } } } 
return BgL_res3499z00_1527;} } 
}



/* 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 */
{ /* ./Ieee/string.scm 349 */
obj_t BgL_symbol1987z00_1528;
BgL_symbol1987z00_1528 = BGl_symbol3439z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 349 */

PUSH_TRACE(BgL_symbol1987z00_1528); BUNSPEC; 
{ /* ./Ieee/string.scm 349 */
obj_t BgL_aux1986z00_1529;
BgL_aux1986z00_1529 = 
c_substring(BgL_stringz00_46, BgL_startz00_47, BgL_endz00_48); 
POP_TRACE(); 
return BgL_aux1986z00_1529;} } } } 
}



/* _substring-ur2124 */
obj_t BGl__substringzd2ur2124zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1101, obj_t BgL_stringz00_1102, obj_t BgL_startz00_1103, obj_t BgL_endz00_1104)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 348 */
{ /* ./Ieee/string.scm 349 */
obj_t BgL_res3500z00_1535;
{ /* ./Ieee/string.scm 349 */
obj_t BgL_stringz00_1530;int BgL_startz00_1531;int BgL_endz00_1532;
if(
STRINGP(BgL_stringz00_1102))
{ /* ./Ieee/string.scm 349 */
BgL_stringz00_1530 = BgL_stringz00_1102; }  else 
{ /* ./Ieee/string.scm 349 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3440z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1102, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)16403))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 349 */
obj_t BgL_auxz00_2223;
if(
INTEGERP(BgL_startz00_1103))
{ /* ./Ieee/string.scm 349 */
BgL_auxz00_2223 = BgL_startz00_1103
; }  else 
{ /* ./Ieee/string.scm 349 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3440z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_startz00_1103, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)16403))); 
exit( -1 );} 
BgL_startz00_1531 = 
CINT(BgL_auxz00_2223); } 
{ /* ./Ieee/string.scm 349 */
obj_t BgL_auxz00_2230;
if(
INTEGERP(BgL_endz00_1104))
{ /* ./Ieee/string.scm 349 */
BgL_auxz00_2230 = BgL_endz00_1104
; }  else 
{ /* ./Ieee/string.scm 349 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3440z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_endz00_1104, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)16403))); 
exit( -1 );} 
BgL_endz00_1532 = 
CINT(BgL_auxz00_2230); } 
{ /* ./Ieee/string.scm 349 */
obj_t BgL_symbol1987z00_1533;
BgL_symbol1987z00_1533 = BGl_symbol3439z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 349 */

PUSH_TRACE(BgL_symbol1987z00_1533); BUNSPEC; 
{ /* ./Ieee/string.scm 349 */
obj_t BgL_aux1986z00_1534;
BgL_aux1986z00_1534 = 
c_substring(BgL_stringz00_1530, BgL_startz00_1531, BgL_endz00_1532); 
POP_TRACE(); 
BgL_res3500z00_1535 = BgL_aux1986z00_1534; } } } } 
return BgL_res3500z00_1535;} } 
}



/* 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 */
obj_t BgL_symbol1991z00_998;
BgL_symbol1991z00_998 = BGl_symbol3441z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 359 */

PUSH_TRACE(BgL_symbol1991z00_998); BUNSPEC; 
{ /* ./Ieee/string.scm 359 */
int BgL_aux1990z00_999;
{ /* ./Ieee/string.scm 359 */
int BgL_alz00_322;
BgL_alz00_322 = 
STRING_LENGTH(BgL_az00_49); 
{ /* ./Ieee/string.scm 359 */
int BgL_blz00_323;
BgL_blz00_323 = 
STRING_LENGTH(BgL_bz00_50); 
{ /* ./Ieee/string.scm 360 */
long BgL_lz00_324;
{ /* ./Ieee/string.scm 361 */
obj_t BgL_list1112z00_335;
{ /* ./Ieee/string.scm 361 */
obj_t BgL_auxz00_2243;
BgL_auxz00_2243 = 
BINT(BgL_blz00_323); 
BgL_list1112z00_335 = 
MAKE_PAIR(BgL_auxz00_2243, BNIL); } 
BgL_lz00_324 = 
BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_alz00_322), BgL_list1112z00_335); } 
{ /* ./Ieee/string.scm 361 */

{ /* ./Ieee/string.scm 362 */
long BgL_auxz00_2248;
BgL_auxz00_2248 = 
BGl_loopz72z72zz__r4_strings_6_7z00(BgL_blz00_323, BgL_alz00_322, BgL_bz00_50, BgL_az00_49, BgL_lz00_324, ((long)0)); 
BgL_aux1990z00_999 = 
(int)(BgL_auxz00_2248); } } } } } 
POP_TRACE(); 
return BgL_aux1990z00_999;} } } } 
}



/* loop' */
long BGl_loopz72z72zz__r4_strings_6_7z00(int BgL_blz00_1160, int BgL_alz00_1159, obj_t BgL_bz00_1158, obj_t BgL_az00_1157, long BgL_lz00_1156, long BgL_rz00_325)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 362 */
BGl_loopz72z72zz__r4_strings_6_7z00:
if(
(BgL_rz00_325==BgL_lz00_1156))
{ /* ./Ieee/string.scm 364 */
long BgL_auxz00_2256;long BgL_auxz00_2254;
BgL_auxz00_2256 = 
(long)(BgL_blz00_1160); 
BgL_auxz00_2254 = 
(long)(BgL_alz00_1159); 
return 
(BgL_auxz00_2254-BgL_auxz00_2256);}  else 
{ /* ./Ieee/string.scm 365 */
long BgL_cz00_328;
{ /* ./Ieee/string.scm 365 */
long BgL_auxz00_2265;long BgL_auxz00_2259;
{ /* ./Ieee/string.scm 366 */
unsigned char BgL_auxz00_2266;
{ /* ./Ieee/string.scm 366 */
int BgL_auxz00_2267;
BgL_auxz00_2267 = 
(int)(BgL_rz00_325); 
BgL_auxz00_2266 = 
STRING_REF(BgL_bz00_1158, BgL_auxz00_2267); } 
BgL_auxz00_2265 = 
(BgL_auxz00_2266); } 
{ /* ./Ieee/string.scm 365 */
unsigned char BgL_auxz00_2260;
{ /* ./Ieee/string.scm 365 */
int BgL_auxz00_2261;
BgL_auxz00_2261 = 
(int)(BgL_rz00_325); 
BgL_auxz00_2260 = 
STRING_REF(BgL_az00_1157, BgL_auxz00_2261); } 
BgL_auxz00_2259 = 
(BgL_auxz00_2260); } 
BgL_cz00_328 = 
(BgL_auxz00_2259-BgL_auxz00_2265); } 
if(
(BgL_cz00_328==((long)0)))
{ 
long BgL_rz00_2274;
BgL_rz00_2274 = 
(BgL_rz00_325+((long)1)); 
BgL_rz00_325 = BgL_rz00_2274; 
goto BGl_loopz72z72zz__r4_strings_6_7z00;}  else 
{ /* ./Ieee/string.scm 367 */
return BgL_cz00_328;} } } 
}



/* _string-compare32126 */
obj_t BGl__stringzd2compare32126zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1105, obj_t BgL_az00_1106, obj_t BgL_bz00_1107)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 358 */
{ /* ./Ieee/string.scm 359 */
int BgL_auxz00_2276;
{ /* ./Ieee/string.scm 359 */
obj_t BgL_auxz00_2283;obj_t BgL_auxz00_2277;
if(
STRINGP(BgL_bz00_1107))
{ /* ./Ieee/string.scm 359 */
BgL_auxz00_2283 = BgL_bz00_1107
; }  else 
{ /* ./Ieee/string.scm 359 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3442z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_bz00_1107, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)17009))); 
exit( -1 );} 
if(
STRINGP(BgL_az00_1106))
{ /* ./Ieee/string.scm 359 */
BgL_auxz00_2277 = BgL_az00_1106
; }  else 
{ /* ./Ieee/string.scm 359 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3442z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_az00_1106, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)17009))); 
exit( -1 );} 
BgL_auxz00_2276 = 
BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(BgL_auxz00_2277, BgL_auxz00_2283); } 
return 
BINT(BgL_auxz00_2276);} } 
}



/* 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 */
obj_t BgL_symbol1995z00_1000;
BgL_symbol1995z00_1000 = BGl_symbol3443z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 375 */

PUSH_TRACE(BgL_symbol1995z00_1000); BUNSPEC; 
{ /* ./Ieee/string.scm 375 */
int BgL_aux1994z00_1001;
{ /* ./Ieee/string.scm 375 */
int BgL_alz00_336;
BgL_alz00_336 = 
STRING_LENGTH(BgL_az00_51); 
{ /* ./Ieee/string.scm 375 */
int BgL_blz00_337;
BgL_blz00_337 = 
STRING_LENGTH(BgL_bz00_52); 
{ /* ./Ieee/string.scm 376 */
long BgL_lz00_338;
{ /* ./Ieee/string.scm 377 */
obj_t BgL_list1145z00_351;
{ /* ./Ieee/string.scm 377 */
obj_t BgL_auxz00_2294;
BgL_auxz00_2294 = 
BINT(BgL_blz00_337); 
BgL_list1145z00_351 = 
MAKE_PAIR(BgL_auxz00_2294, BNIL); } 
BgL_lz00_338 = 
BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_alz00_336), BgL_list1145z00_351); } 
{ /* ./Ieee/string.scm 377 */

{ /* ./Ieee/string.scm 378 */
long BgL_auxz00_2299;
BgL_auxz00_2299 = 
BGl_loopz00zz__r4_strings_6_7z00(BgL_blz00_337, BgL_alz00_336, BgL_bz00_52, BgL_az00_51, BgL_lz00_338, ((long)0)); 
BgL_aux1994z00_1001 = 
(int)(BgL_auxz00_2299); } } } } } 
POP_TRACE(); 
return BgL_aux1994z00_1001;} } } } 
}



/* loop */
long BGl_loopz00zz__r4_strings_6_7z00(int BgL_blz00_1155, int BgL_alz00_1154, obj_t BgL_bz00_1153, obj_t BgL_az00_1152, long BgL_lz00_1151, long BgL_rz00_339)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 378 */
BGl_loopz00zz__r4_strings_6_7z00:
if(
(BgL_rz00_339==BgL_lz00_1151))
{ /* ./Ieee/string.scm 380 */
long BgL_auxz00_2307;long BgL_auxz00_2305;
BgL_auxz00_2307 = 
(long)(BgL_blz00_1155); 
BgL_auxz00_2305 = 
(long)(BgL_alz00_1154); 
return 
(BgL_auxz00_2305-BgL_auxz00_2307);}  else 
{ /* ./Ieee/string.scm 381 */
long BgL_cz00_342;
{ /* ./Ieee/string.scm 381 */
long BgL_auxz00_2318;long BgL_auxz00_2310;
{ /* ./Ieee/string.scm 382 */
unsigned char BgL_auxz00_2319;
{ /* ./Ieee/string.scm 382 */
unsigned char BgL_auxz00_2320;
{ /* ./Ieee/string.scm 382 */
int BgL_auxz00_2321;
BgL_auxz00_2321 = 
(int)(BgL_rz00_339); 
BgL_auxz00_2320 = 
STRING_REF(BgL_bz00_1153, BgL_auxz00_2321); } 
BgL_auxz00_2319 = 
tolower(BgL_auxz00_2320); } 
BgL_auxz00_2318 = 
(BgL_auxz00_2319); } 
{ /* ./Ieee/string.scm 381 */
unsigned char BgL_auxz00_2311;
{ /* ./Ieee/string.scm 381 */
unsigned char BgL_auxz00_2312;
{ /* ./Ieee/string.scm 381 */
int BgL_auxz00_2313;
BgL_auxz00_2313 = 
(int)(BgL_rz00_339); 
BgL_auxz00_2312 = 
STRING_REF(BgL_az00_1152, BgL_auxz00_2313); } 
BgL_auxz00_2311 = 
tolower(BgL_auxz00_2312); } 
BgL_auxz00_2310 = 
(BgL_auxz00_2311); } 
BgL_cz00_342 = 
(BgL_auxz00_2310-BgL_auxz00_2318); } 
if(
(BgL_cz00_342==((long)0)))
{ 
long BgL_rz00_2329;
BgL_rz00_2329 = 
(BgL_rz00_339+((long)1)); 
BgL_rz00_339 = BgL_rz00_2329; 
goto BGl_loopz00zz__r4_strings_6_7z00;}  else 
{ /* ./Ieee/string.scm 383 */
return BgL_cz00_342;} } } 
}



/* _string-compare3-ci2128 */
obj_t BGl__stringzd2compare3zd2ci2128z00zz__r4_strings_6_7z00(obj_t BgL_envz00_1108, obj_t BgL_az00_1109, obj_t BgL_bz00_1110)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 374 */
{ /* ./Ieee/string.scm 375 */
int BgL_auxz00_2331;
{ /* ./Ieee/string.scm 375 */
obj_t BgL_auxz00_2338;obj_t BgL_auxz00_2332;
if(
STRINGP(BgL_bz00_1110))
{ /* ./Ieee/string.scm 375 */
BgL_auxz00_2338 = BgL_bz00_1110
; }  else 
{ /* ./Ieee/string.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3444z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_bz00_1110, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)17660))); 
exit( -1 );} 
if(
STRINGP(BgL_az00_1109))
{ /* ./Ieee/string.scm 375 */
BgL_auxz00_2332 = BgL_az00_1109
; }  else 
{ /* ./Ieee/string.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3444z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_az00_1109, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)17660))); 
exit( -1 );} 
BgL_auxz00_2331 = 
BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(BgL_auxz00_2332, BgL_auxz00_2338); } 
return 
BINT(BgL_auxz00_2331);} } 
}



/* string-append */
BGL_EXPORTED_DEF obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t BgL_listz00_53)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 394 */
{ /* ./Ieee/string.scm 395 */
obj_t BgL_symbol1999z00_1002;
BgL_symbol1999z00_1002 = BGl_symbol3445z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 395 */

PUSH_TRACE(BgL_symbol1999z00_1002); BUNSPEC; 
{ /* ./Ieee/string.scm 395 */
obj_t BgL_aux1998z00_1003;
if(
NULLP(BgL_listz00_53))
{ /* ./Ieee/string.scm 395 */
BgL_aux1998z00_1003 = BGl_string3446z00zz__r4_strings_6_7z00; }  else 
{ /* ./Ieee/string.scm 397 */
long BgL_lenz00_353;
{ 
obj_t BgL_listz00_674;long BgL_resz00_675;
BgL_listz00_674 = BgL_listz00_53; 
BgL_resz00_675 = ((long)0); 
BgL_stringzd2appendzd2_673:
if(
NULLP(BgL_listz00_674))
{ /* ./Ieee/string.scm 397 */
BgL_lenz00_353 = BgL_resz00_675; }  else 
{ /* ./Ieee/string.scm 397 */
obj_t BgL_arg1166z00_682;long BgL_arg1169z00_683;
{ /* ./Ieee/string.scm 397 */
obj_t BgL_pairz00_687;
if(
PAIRP(BgL_listz00_674))
{ /* ./Ieee/string.scm 397 */
BgL_pairz00_687 = BgL_listz00_674; }  else 
{ /* ./Ieee/string.scm 397 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3445z00zz__r4_strings_6_7z00, BGl_string3389z00zz__r4_strings_6_7z00, BgL_listz00_674, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)18661))); 
exit( -1 );} 
BgL_arg1166z00_682 = 
CDR(BgL_pairz00_687); } 
{ /* ./Ieee/string.scm 397 */
int BgL_arg1173z00_684;
{ /* ./Ieee/string.scm 397 */
obj_t BgL_arg1177z00_685;
{ /* ./Ieee/string.scm 397 */
obj_t BgL_pairz00_688;
if(
PAIRP(BgL_listz00_674))
{ /* ./Ieee/string.scm 397 */
BgL_pairz00_688 = BgL_listz00_674; }  else 
{ /* ./Ieee/string.scm 397 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3445z00zz__r4_strings_6_7z00, BGl_string3389z00zz__r4_strings_6_7z00, BgL_listz00_674, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)18661))); 
exit( -1 );} 
BgL_arg1177z00_685 = 
CAR(BgL_pairz00_688); } 
{ /* ./Ieee/string.scm 397 */
obj_t BgL_stringz00_689;
if(
STRINGP(BgL_arg1177z00_685))
{ /* ./Ieee/string.scm 397 */
BgL_stringz00_689 = BgL_arg1177z00_685; }  else 
{ /* ./Ieee/string.scm 397 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3445z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_arg1177z00_685, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)18661))); 
exit( -1 );} 
BgL_arg1173z00_684 = 
STRING_LENGTH(BgL_stringz00_689); } } 
{ /* ./Ieee/string.scm 397 */
long BgL_auxz00_2369;
BgL_auxz00_2369 = 
(long)(BgL_arg1173z00_684); 
BgL_arg1169z00_683 = 
(BgL_resz00_675+BgL_auxz00_2369); } } 
{ 
long BgL_resz00_2373;obj_t BgL_listz00_2372;
BgL_listz00_2372 = BgL_arg1166z00_682; 
BgL_resz00_2373 = BgL_arg1169z00_683; 
BgL_resz00_675 = BgL_resz00_2373; 
BgL_listz00_674 = BgL_listz00_2372; 
goto BgL_stringzd2appendzd2_673;} } } 
{ /* ./Ieee/string.scm 397 */
obj_t BgL_resz00_354;
{ /* ./Ieee/string.scm 404 */
int BgL_auxz00_2374;
BgL_auxz00_2374 = 
(int)(BgL_lenz00_353); 
BgL_resz00_354 = 
make_string_sans_fill(BgL_auxz00_2374); } 
{ /* ./Ieee/string.scm 404 */

{ 
obj_t BgL_listz00_355;long BgL_wz00_356;
BgL_listz00_355 = BgL_listz00_53; 
BgL_wz00_356 = ((long)0); 
BgL_stringzd2appendzd2_357:
if(
NULLP(BgL_listz00_355))
{ /* ./Ieee/string.scm 407 */
BgL_aux1998z00_1003 = BgL_resz00_354; }  else 
{ /* ./Ieee/string.scm 409 */
obj_t BgL_sz00_359;
{ /* ./Ieee/string.scm 409 */
obj_t BgL_pairz00_717;
if(
PAIRP(BgL_listz00_355))
{ /* ./Ieee/string.scm 409 */
BgL_pairz00_717 = BgL_listz00_355; }  else 
{ /* ./Ieee/string.scm 409 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3445z00zz__r4_strings_6_7z00, BGl_string3389z00zz__r4_strings_6_7z00, BgL_listz00_355, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)18984))); 
exit( -1 );} 
BgL_sz00_359 = 
CAR(BgL_pairz00_717); } 
{ /* ./Ieee/string.scm 409 */
int BgL_lz00_360;
{ /* ./Ieee/string.scm 410 */
obj_t BgL_stringz00_718;
if(
STRINGP(BgL_sz00_359))
{ /* ./Ieee/string.scm 410 */
BgL_stringz00_718 = BgL_sz00_359; }  else 
{ /* ./Ieee/string.scm 410 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3445z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_sz00_359, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)18994))); 
exit( -1 );} 
BgL_lz00_360 = 
STRING_LENGTH(BgL_stringz00_718); } 
{ /* ./Ieee/string.scm 410 */

{ /* ./Ieee/string.scm 411 */
obj_t BgL_s1z00_719;int BgL_o1z00_720;int BgL_o2z00_722;
if(
STRINGP(BgL_sz00_359))
{ /* ./Ieee/string.scm 411 */
BgL_s1z00_719 = BgL_sz00_359; }  else 
{ /* ./Ieee/string.scm 411 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3445z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_sz00_359, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)19037))); 
exit( -1 );} 
BgL_o1z00_720 = 
(int)(((long)0)); 
BgL_o2z00_722 = 
(int)(BgL_wz00_356); 
blit_string(BgL_s1z00_719, BgL_o1z00_720, BgL_resz00_354, BgL_o2z00_722, BgL_lz00_360); } 
{ /* ./Ieee/string.scm 412 */
obj_t BgL_arg1154z00_361;long BgL_arg1155z00_362;
{ /* ./Ieee/string.scm 412 */
obj_t BgL_pairz00_724;
if(
PAIRP(BgL_listz00_355))
{ /* ./Ieee/string.scm 412 */
BgL_pairz00_724 = BgL_listz00_355; }  else 
{ /* ./Ieee/string.scm 412 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3445z00zz__r4_strings_6_7z00, BGl_string3389z00zz__r4_strings_6_7z00, BgL_listz00_355, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)19079))); 
exit( -1 );} 
BgL_arg1154z00_361 = 
CDR(BgL_pairz00_724); } 
{ /* ./Ieee/string.scm 412 */
long BgL_auxz00_2405;
BgL_auxz00_2405 = 
(long)(BgL_lz00_360); 
BgL_arg1155z00_362 = 
(BgL_wz00_356+BgL_auxz00_2405); } 
{ 
long BgL_wz00_2409;obj_t BgL_listz00_2408;
BgL_listz00_2408 = BgL_arg1154z00_361; 
BgL_wz00_2409 = BgL_arg1155z00_362; 
BgL_wz00_356 = BgL_wz00_2409; 
BgL_listz00_355 = BgL_listz00_2408; 
goto BgL_stringzd2appendzd2_357;} } } } } } } } } 
POP_TRACE(); 
return BgL_aux1998z00_1003;} } } } 
}



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



/* 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 */
obj_t BgL_symbol2003z00_1004;
BgL_symbol2003z00_1004 = BGl_symbol3447z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 418 */

PUSH_TRACE(BgL_symbol2003z00_1004); BUNSPEC; 
{ /* ./Ieee/string.scm 418 */
obj_t BgL_aux2002z00_1005;
{ /* ./Ieee/string.scm 418 */
long BgL_lenz00_371;
{ /* ./Ieee/string.scm 418 */
obj_t BgL_auxz00_2413;
{ /* ./Ieee/string.scm 418 */
bool_t BgL_testz00_2414;
if(
PAIRP(BgL_listz00_54))
{ /* ./Ieee/string.scm 418 */
BgL_testz00_2414 = ((bool_t)1)
; }  else 
{ /* ./Ieee/string.scm 418 */
BgL_testz00_2414 = 
NULLP(BgL_listz00_54)
; } 
if(BgL_testz00_2414)
{ /* ./Ieee/string.scm 418 */
BgL_auxz00_2413 = BgL_listz00_54
; }  else 
{ /* ./Ieee/string.scm 418 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3447z00zz__r4_strings_6_7z00, BGl_string3448z00zz__r4_strings_6_7z00, BgL_listz00_54, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)19380))); 
exit( -1 );} } 
BgL_lenz00_371 = 
bgl_list_length(BgL_auxz00_2413); } 
{ /* ./Ieee/string.scm 418 */
obj_t BgL_stringz00_372;
{ /* ./Ieee/string.scm 419 */
int BgL_auxz00_2422;
BgL_auxz00_2422 = 
(int)(BgL_lenz00_371); 
BgL_stringz00_372 = 
make_string_sans_fill(BgL_auxz00_2422); } 
{ /* ./Ieee/string.scm 419 */

{ 
long BgL_iz00_373;obj_t BgL_lz00_374;
BgL_iz00_373 = ((long)0); 
BgL_lz00_374 = BgL_listz00_54; 
BgL_loopz00_375:
if(
(BgL_iz00_373==BgL_lenz00_371))
{ /* ./Ieee/string.scm 422 */
BgL_aux2002z00_1005 = BgL_stringz00_372; }  else 
{ /* ./Ieee/string.scm 422 */
{ /* ./Ieee/string.scm 425 */
obj_t BgL_arg1187z00_377;
{ /* ./Ieee/string.scm 425 */
obj_t BgL_pairz00_729;
if(
PAIRP(BgL_lz00_374))
{ /* ./Ieee/string.scm 425 */
BgL_pairz00_729 = BgL_lz00_374; }  else 
{ /* ./Ieee/string.scm 425 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3447z00zz__r4_strings_6_7z00, BGl_string3389z00zz__r4_strings_6_7z00, BgL_lz00_374, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)19534))); 
exit( -1 );} 
BgL_arg1187z00_377 = 
CAR(BgL_pairz00_729); } 
{ /* ./Ieee/string.scm 425 */
int BgL_kz00_731;unsigned char BgL_charz00_732;
BgL_kz00_731 = 
(int)(BgL_iz00_373); 
{ /* ./Ieee/string.scm 425 */
obj_t BgL_auxz00_2434;
if(
CHARP(BgL_arg1187z00_377))
{ /* ./Ieee/string.scm 425 */
BgL_auxz00_2434 = BgL_arg1187z00_377
; }  else 
{ /* ./Ieee/string.scm 425 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3447z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_arg1187z00_377, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)19535))); 
exit( -1 );} 
BgL_charz00_732 = 
(unsigned char)CCHAR(BgL_auxz00_2434); } 
{ /* ./Ieee/string.scm 425 */
bool_t BgL_testz00_2441;
{ /* ./Ieee/string.scm 425 */
int BgL_auxz00_2442;
BgL_auxz00_2442 = 
STRING_LENGTH(BgL_stringz00_372); 
BgL_testz00_2441 = 
BOUND_CHECK(BgL_kz00_731, BgL_auxz00_2442); } 
if(BgL_testz00_2441)
{ /* ./Ieee/string.scm 425 */
STRING_SET(BgL_stringz00_372, BgL_kz00_731, BgL_charz00_732); }  else 
{ /* ./Ieee/string.scm 425 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_731), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)19507))); } } } } 
{ /* ./Ieee/string.scm 426 */
long BgL_arg1191z00_378;obj_t BgL_arg1192z00_379;
BgL_arg1191z00_378 = 
(BgL_iz00_373+((long)1)); 
{ /* ./Ieee/string.scm 426 */
obj_t BgL_pairz00_741;
if(
PAIRP(BgL_lz00_374))
{ /* ./Ieee/string.scm 426 */
BgL_pairz00_741 = BgL_lz00_374; }  else 
{ /* ./Ieee/string.scm 426 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3447z00zz__r4_strings_6_7z00, BGl_string3389z00zz__r4_strings_6_7z00, BgL_lz00_374, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)19561))); 
exit( -1 );} 
BgL_arg1192z00_379 = 
CDR(BgL_pairz00_741); } 
{ 
obj_t BgL_lz00_2458;long BgL_iz00_2457;
BgL_iz00_2457 = BgL_arg1191z00_378; 
BgL_lz00_2458 = BgL_arg1192z00_379; 
BgL_lz00_374 = BgL_lz00_2458; 
BgL_iz00_373 = BgL_iz00_2457; 
goto BgL_loopz00_375;} } } } } } } 
POP_TRACE(); 
return BgL_aux2002z00_1005;} } } } 
}



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



/* 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 */
obj_t BgL_symbol2007z00_1006;
BgL_symbol2007z00_1006 = BGl_symbol3449z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 432 */

PUSH_TRACE(BgL_symbol2007z00_1006); BUNSPEC; 
{ /* ./Ieee/string.scm 432 */
obj_t BgL_aux2006z00_1007;
{ /* ./Ieee/string.scm 432 */
int BgL_lenz00_380;
BgL_lenz00_380 = 
STRING_LENGTH(BgL_stringz00_55); 
{ 
long BgL_iz00_381;obj_t BgL_resz00_382;
{ /* ./Ieee/string.scm 433 */
long BgL_auxz00_2488;
BgL_auxz00_2488 = 
(long)(BgL_lenz00_380); 
BgL_iz00_381 = 
(BgL_auxz00_2488-((long)1)); } 
BgL_resz00_382 = BNIL; 
BgL_loopz00_383:
if(
(BgL_iz00_381==((long)-1)))
{ /* ./Ieee/string.scm 435 */
BgL_aux2006z00_1007 = BgL_resz00_382; }  else 
{ /* ./Ieee/string.scm 437 */
long BgL_arg1206z00_387;obj_t BgL_arg1207z00_388;
BgL_arg1206z00_387 = 
(BgL_iz00_381-((long)1)); 
{ /* ./Ieee/string.scm 438 */
unsigned char BgL_arg1211z00_389;
{ /* ./Ieee/string.scm 438 */
unsigned char BgL_res1889z00_757;
{ /* ./Ieee/string.scm 438 */
int BgL_kz00_750;
BgL_kz00_750 = 
(int)(BgL_iz00_381); 
{ /* ./Ieee/string.scm 438 */
bool_t BgL_testz00_2467;
{ /* ./Ieee/string.scm 438 */
int BgL_auxz00_2468;
BgL_auxz00_2468 = 
STRING_LENGTH(BgL_stringz00_55); 
BgL_testz00_2467 = 
BOUND_CHECK(BgL_kz00_750, BgL_auxz00_2468); } 
if(BgL_testz00_2467)
{ /* ./Ieee/string.scm 438 */
BgL_res1889z00_757 = 
STRING_REF(BgL_stringz00_55, BgL_kz00_750); }  else 
{ /* ./Ieee/string.scm 438 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3399z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_750), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/string.scm 438 */
obj_t BgL_auxz00_2474;
{ /* ./Ieee/string.scm 438 */
obj_t BgL_aux2903z00_1289;
BgL_aux2903z00_1289 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)19971))); 
if(
CHARP(BgL_aux2903z00_1289))
{ /* ./Ieee/string.scm 438 */
BgL_auxz00_2474 = BgL_aux2903z00_1289
; }  else 
{ /* ./Ieee/string.scm 438 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3449z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_aux2903z00_1289, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)19971))); 
exit( -1 );} } 
BgL_res1889z00_757 = 
(unsigned char)CCHAR(BgL_auxz00_2474); } } } } 
BgL_arg1211z00_389 = BgL_res1889z00_757; } 
{ /* ./Ieee/string.scm 438 */
obj_t BgL_auxz00_2483;
BgL_auxz00_2483 = 
BCHAR(BgL_arg1211z00_389); 
BgL_arg1207z00_388 = 
MAKE_PAIR(BgL_auxz00_2483, BgL_resz00_382); } } 
{ 
obj_t BgL_resz00_2487;long BgL_iz00_2486;
BgL_iz00_2486 = BgL_arg1206z00_387; 
BgL_resz00_2487 = BgL_arg1207z00_388; 
BgL_resz00_382 = BgL_resz00_2487; 
BgL_iz00_381 = BgL_iz00_2486; 
goto BgL_loopz00_383;} } } } 
POP_TRACE(); 
return BgL_aux2006z00_1007;} } } } 
}



/* _string->list2132 */
obj_t BGl__stringzd2ze3list2132z31zz__r4_strings_6_7z00(obj_t BgL_envz00_1115, obj_t BgL_stringz00_1116)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 431 */
{ /* ./Ieee/string.scm 432 */
obj_t BgL_auxz00_2492;
if(
STRINGP(BgL_stringz00_1116))
{ /* ./Ieee/string.scm 432 */
BgL_auxz00_2492 = BgL_stringz00_1116
; }  else 
{ /* ./Ieee/string.scm 432 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3450z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1116, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)19826))); 
exit( -1 );} 
return 
BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(BgL_auxz00_2492);} } 
}



/* 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 */
obj_t BgL_symbol2011z00_1008;
BgL_symbol2011z00_1008 = BGl_symbol3451z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 444 */

PUSH_TRACE(BgL_symbol2011z00_1008); BUNSPEC; 
{ /* ./Ieee/string.scm 444 */
obj_t BgL_aux2010z00_1009;
{ /* ./Ieee/string.scm 444 */
int BgL_lenz00_390;
BgL_lenz00_390 = 
STRING_LENGTH(BgL_stringz00_56); 
{ /* ./Ieee/string.scm 444 */
obj_t BgL_newz00_391;
BgL_newz00_391 = 
make_string_sans_fill(BgL_lenz00_390); 
{ /* ./Ieee/string.scm 445 */

{ 
long BgL_iz00_392;
{ /* ./Ieee/string.scm 446 */
long BgL_auxz00_2533;
BgL_auxz00_2533 = 
(long)(BgL_lenz00_390); 
BgL_iz00_392 = 
(BgL_auxz00_2533-((long)1)); } 
BgL_loopz00_393:
if(
(BgL_iz00_392==((long)-1)))
{ /* ./Ieee/string.scm 447 */
BgL_aux2010z00_1009 = BgL_newz00_391; }  else 
{ /* ./Ieee/string.scm 447 */
{ /* ./Ieee/string.scm 450 */
unsigned char BgL_arg1222z00_396;
{ /* ./Ieee/string.scm 450 */
unsigned char BgL_res1890z00_771;
{ /* ./Ieee/string.scm 450 */
int BgL_kz00_764;
BgL_kz00_764 = 
(int)(BgL_iz00_392); 
{ /* ./Ieee/string.scm 450 */
bool_t BgL_testz00_2505;
{ /* ./Ieee/string.scm 450 */
int BgL_auxz00_2506;
BgL_auxz00_2506 = 
STRING_LENGTH(BgL_stringz00_56); 
BgL_testz00_2505 = 
BOUND_CHECK(BgL_kz00_764, BgL_auxz00_2506); } 
if(BgL_testz00_2505)
{ /* ./Ieee/string.scm 450 */
BgL_res1890z00_771 = 
STRING_REF(BgL_stringz00_56, BgL_kz00_764); }  else 
{ /* ./Ieee/string.scm 450 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3399z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_764), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/string.scm 450 */
obj_t BgL_auxz00_2512;
{ /* ./Ieee/string.scm 450 */
obj_t BgL_aux2935z00_1293;
BgL_aux2935z00_1293 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)20427))); 
if(
CHARP(BgL_aux2935z00_1293))
{ /* ./Ieee/string.scm 450 */
BgL_auxz00_2512 = BgL_aux2935z00_1293
; }  else 
{ /* ./Ieee/string.scm 450 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3451z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_aux2935z00_1293, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)20427))); 
exit( -1 );} } 
BgL_res1890z00_771 = 
(unsigned char)CCHAR(BgL_auxz00_2512); } } } } 
BgL_arg1222z00_396 = BgL_res1890z00_771; } 
{ /* ./Ieee/string.scm 450 */
int BgL_kz00_773;
BgL_kz00_773 = 
(int)(BgL_iz00_392); 
{ /* ./Ieee/string.scm 450 */
bool_t BgL_testz00_2522;
{ /* ./Ieee/string.scm 450 */
int BgL_auxz00_2523;
BgL_auxz00_2523 = 
STRING_LENGTH(BgL_newz00_391); 
BgL_testz00_2522 = 
BOUND_CHECK(BgL_kz00_773, BgL_auxz00_2523); } 
if(BgL_testz00_2522)
{ /* ./Ieee/string.scm 450 */
STRING_SET(BgL_newz00_391, BgL_kz00_773, BgL_arg1222z00_396); }  else 
{ /* ./Ieee/string.scm 450 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_773), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)20408))); } } } } 
{ 
long BgL_iz00_2531;
BgL_iz00_2531 = 
(BgL_iz00_392-((long)1)); 
BgL_iz00_392 = BgL_iz00_2531; 
goto BgL_loopz00_393;} } } } } } 
POP_TRACE(); 
return BgL_aux2010z00_1009;} } } } 
}



/* _string-copy2134 */
obj_t BGl__stringzd2copy2134zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1117, obj_t BgL_stringz00_1118)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 443 */
{ /* ./Ieee/string.scm 444 */
obj_t BgL_auxz00_2537;
if(
STRINGP(BgL_stringz00_1118))
{ /* ./Ieee/string.scm 444 */
BgL_auxz00_2537 = BgL_stringz00_1118
; }  else 
{ /* ./Ieee/string.scm 444 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3452z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1118, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)20258))); 
exit( -1 );} 
return 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_auxz00_2537);} } 
}



/* 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 */
obj_t BgL_symbol2015z00_1010;
BgL_symbol2015z00_1010 = BGl_symbol3453z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 457 */

PUSH_TRACE(BgL_symbol2015z00_1010); BUNSPEC; 
{ /* ./Ieee/string.scm 457 */
obj_t BgL_aux2014z00_1011;
{ /* ./Ieee/string.scm 457 */
int BgL_lenz00_398;
BgL_lenz00_398 = 
STRING_LENGTH(BgL_stringz00_57); 
{ 
long BgL_iz00_399;
BgL_iz00_399 = ((long)0); 
BgL_loopz00_400:
{ /* ./Ieee/string.scm 459 */
bool_t BgL_testz00_2546;
{ /* ./Ieee/string.scm 459 */
long BgL_auxz00_2547;
BgL_auxz00_2547 = 
(long)(BgL_lenz00_398); 
BgL_testz00_2546 = 
(BgL_iz00_399==BgL_auxz00_2547); } 
if(BgL_testz00_2546)
{ /* ./Ieee/string.scm 459 */
BgL_aux2014z00_1011 = BUNSPEC; }  else 
{ /* ./Ieee/string.scm 459 */
{ /* ./Ieee/string.scm 462 */
int BgL_kz00_787;
BgL_kz00_787 = 
(int)(BgL_iz00_399); 
{ /* ./Ieee/string.scm 462 */
bool_t BgL_testz00_2551;
{ /* ./Ieee/string.scm 462 */
int BgL_auxz00_2552;
BgL_auxz00_2552 = 
STRING_LENGTH(BgL_stringz00_57); 
BgL_testz00_2551 = 
BOUND_CHECK(BgL_kz00_787, BgL_auxz00_2552); } 
if(BgL_testz00_2551)
{ /* ./Ieee/string.scm 462 */
STRING_SET(BgL_stringz00_57, BgL_kz00_787, BgL_charz00_58); }  else 
{ /* ./Ieee/string.scm 462 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_787), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)20847))); } } } 
{ 
long BgL_iz00_2560;
BgL_iz00_2560 = 
(BgL_iz00_399+((long)1)); 
BgL_iz00_399 = BgL_iz00_2560; 
goto BgL_loopz00_400;} } } } } 
POP_TRACE(); 
return BgL_aux2014z00_1011;} } } } 
}



/* _string-fill!2136 */
obj_t BGl__stringzd2fillz122136zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1119, obj_t BgL_stringz00_1120, obj_t BgL_charz00_1121)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 456 */
{ /* ./Ieee/string.scm 457 */
unsigned char BgL_auxz00_2569;obj_t BgL_auxz00_2563;
{ /* ./Ieee/string.scm 457 */
obj_t BgL_auxz00_2570;
if(
CHARP(BgL_charz00_1121))
{ /* ./Ieee/string.scm 457 */
BgL_auxz00_2570 = BgL_charz00_1121
; }  else 
{ /* ./Ieee/string.scm 457 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3454z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_charz00_1121, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)20735))); 
exit( -1 );} 
BgL_auxz00_2569 = 
(unsigned char)CCHAR(BgL_auxz00_2570); } 
if(
STRINGP(BgL_stringz00_1120))
{ /* ./Ieee/string.scm 457 */
BgL_auxz00_2563 = BgL_stringz00_1120
; }  else 
{ /* ./Ieee/string.scm 457 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3454z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1120, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)20735))); 
exit( -1 );} 
return 
BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(BgL_auxz00_2563, BgL_auxz00_2569);} } 
}



/* 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 */
obj_t BgL_symbol2019z00_1012;
BgL_symbol2019z00_1012 = BGl_symbol3455z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 469 */

PUSH_TRACE(BgL_symbol2019z00_1012); BUNSPEC; 
{ /* ./Ieee/string.scm 469 */
obj_t BgL_aux2018z00_1013;
{ /* ./Ieee/string.scm 469 */
int BgL_lenz00_403;
BgL_lenz00_403 = 
STRING_LENGTH(BgL_stringz00_59); 
{ /* ./Ieee/string.scm 469 */
obj_t BgL_resz00_404;
BgL_resz00_404 = 
make_string_sans_fill(BgL_lenz00_403); 
{ /* ./Ieee/string.scm 470 */

{ 
long BgL_iz00_405;
BgL_iz00_405 = ((long)0); 
BgL_loopz00_406:
{ /* ./Ieee/string.scm 472 */
bool_t BgL_testz00_2581;
{ /* ./Ieee/string.scm 472 */
long BgL_auxz00_2582;
BgL_auxz00_2582 = 
(long)(BgL_lenz00_403); 
BgL_testz00_2581 = 
(BgL_iz00_405==BgL_auxz00_2582); } 
if(BgL_testz00_2581)
{ /* ./Ieee/string.scm 472 */
BgL_aux2018z00_1013 = BgL_resz00_404; }  else 
{ /* ./Ieee/string.scm 472 */
{ /* ./Ieee/string.scm 475 */
unsigned char BgL_arg1245z00_408;
{ /* ./Ieee/string.scm 475 */
unsigned char BgL_arg1249z00_409;
{ /* ./Ieee/string.scm 475 */
unsigned char BgL_res1891z00_808;
{ /* ./Ieee/string.scm 475 */
int BgL_kz00_801;
BgL_kz00_801 = 
(int)(BgL_iz00_405); 
{ /* ./Ieee/string.scm 475 */
bool_t BgL_testz00_2586;
{ /* ./Ieee/string.scm 475 */
int BgL_auxz00_2587;
BgL_auxz00_2587 = 
STRING_LENGTH(BgL_stringz00_59); 
BgL_testz00_2586 = 
BOUND_CHECK(BgL_kz00_801, BgL_auxz00_2587); } 
if(BgL_testz00_2586)
{ /* ./Ieee/string.scm 475 */
BgL_res1891z00_808 = 
STRING_REF(BgL_stringz00_59, BgL_kz00_801); }  else 
{ /* ./Ieee/string.scm 475 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3399z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_801), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/string.scm 475 */
obj_t BgL_auxz00_2593;
{ /* ./Ieee/string.scm 475 */
obj_t BgL_aux3007z00_1301;
BgL_aux3007z00_1301 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)21329))); 
if(
CHARP(BgL_aux3007z00_1301))
{ /* ./Ieee/string.scm 475 */
BgL_auxz00_2593 = BgL_aux3007z00_1301
; }  else 
{ /* ./Ieee/string.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3455z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_aux3007z00_1301, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)21329))); 
exit( -1 );} } 
BgL_res1891z00_808 = 
(unsigned char)CCHAR(BgL_auxz00_2593); } } } } 
BgL_arg1249z00_409 = BgL_res1891z00_808; } 
BgL_arg1245z00_408 = 
toupper(BgL_arg1249z00_409); } 
{ /* ./Ieee/string.scm 475 */
int BgL_kz00_811;
BgL_kz00_811 = 
(int)(BgL_iz00_405); 
{ /* ./Ieee/string.scm 475 */
bool_t BgL_testz00_2604;
{ /* ./Ieee/string.scm 475 */
int BgL_auxz00_2605;
BgL_auxz00_2605 = 
STRING_LENGTH(BgL_resz00_404); 
BgL_testz00_2604 = 
BOUND_CHECK(BgL_kz00_811, BgL_auxz00_2605); } 
if(BgL_testz00_2604)
{ /* ./Ieee/string.scm 475 */
STRING_SET(BgL_resz00_404, BgL_kz00_811, BgL_arg1245z00_408); }  else 
{ /* ./Ieee/string.scm 475 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_811), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)21297))); } } } } 
{ 
long BgL_iz00_2613;
BgL_iz00_2613 = 
(BgL_iz00_405+((long)1)); 
BgL_iz00_405 = BgL_iz00_2613; 
goto BgL_loopz00_406;} } } } } } } 
POP_TRACE(); 
return BgL_aux2018z00_1013;} } } } 
}



/* _string-upcase2138 */
obj_t BGl__stringzd2upcase2138zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1122, obj_t BgL_stringz00_1123)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 468 */
{ /* ./Ieee/string.scm 469 */
obj_t BgL_auxz00_2616;
if(
STRINGP(BgL_stringz00_1123))
{ /* ./Ieee/string.scm 469 */
BgL_auxz00_2616 = BgL_stringz00_1123
; }  else 
{ /* ./Ieee/string.scm 469 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3456z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1123, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)21156))); 
exit( -1 );} 
return 
BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_auxz00_2616);} } 
}



/* 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 */
obj_t BgL_symbol2023z00_1014;
BgL_symbol2023z00_1014 = BGl_symbol3457z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 482 */

PUSH_TRACE(BgL_symbol2023z00_1014); BUNSPEC; 
{ /* ./Ieee/string.scm 482 */
obj_t BgL_aux2022z00_1015;
{ /* ./Ieee/string.scm 482 */
int BgL_lenz00_411;
BgL_lenz00_411 = 
STRING_LENGTH(BgL_stringz00_60); 
{ /* ./Ieee/string.scm 482 */
obj_t BgL_resz00_412;
BgL_resz00_412 = 
make_string_sans_fill(BgL_lenz00_411); 
{ /* ./Ieee/string.scm 483 */

{ 
long BgL_iz00_413;
BgL_iz00_413 = ((long)0); 
BgL_loopz00_414:
{ /* ./Ieee/string.scm 485 */
bool_t BgL_testz00_2626;
{ /* ./Ieee/string.scm 485 */
long BgL_auxz00_2627;
BgL_auxz00_2627 = 
(long)(BgL_lenz00_411); 
BgL_testz00_2626 = 
(BgL_iz00_413==BgL_auxz00_2627); } 
if(BgL_testz00_2626)
{ /* ./Ieee/string.scm 485 */
BgL_aux2022z00_1015 = BgL_resz00_412; }  else 
{ /* ./Ieee/string.scm 485 */
{ /* ./Ieee/string.scm 488 */
unsigned char BgL_arg1265z00_416;
{ /* ./Ieee/string.scm 488 */
unsigned char BgL_arg1268z00_417;
{ /* ./Ieee/string.scm 488 */
unsigned char BgL_res1892z00_832;
{ /* ./Ieee/string.scm 488 */
int BgL_kz00_825;
BgL_kz00_825 = 
(int)(BgL_iz00_413); 
{ /* ./Ieee/string.scm 488 */
bool_t BgL_testz00_2631;
{ /* ./Ieee/string.scm 488 */
int BgL_auxz00_2632;
BgL_auxz00_2632 = 
STRING_LENGTH(BgL_stringz00_60); 
BgL_testz00_2631 = 
BOUND_CHECK(BgL_kz00_825, BgL_auxz00_2632); } 
if(BgL_testz00_2631)
{ /* ./Ieee/string.scm 488 */
BgL_res1892z00_832 = 
STRING_REF(BgL_stringz00_60, BgL_kz00_825); }  else 
{ /* ./Ieee/string.scm 488 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3399z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_825), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/string.scm 488 */
obj_t BgL_auxz00_2638;
{ /* ./Ieee/string.scm 488 */
obj_t BgL_aux3047z00_1305;
BgL_aux3047z00_1305 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)21811))); 
if(
CHARP(BgL_aux3047z00_1305))
{ /* ./Ieee/string.scm 488 */
BgL_auxz00_2638 = BgL_aux3047z00_1305
; }  else 
{ /* ./Ieee/string.scm 488 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3457z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_aux3047z00_1305, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)21811))); 
exit( -1 );} } 
BgL_res1892z00_832 = 
(unsigned char)CCHAR(BgL_auxz00_2638); } } } } 
BgL_arg1268z00_417 = BgL_res1892z00_832; } 
BgL_arg1265z00_416 = 
tolower(BgL_arg1268z00_417); } 
{ /* ./Ieee/string.scm 488 */
int BgL_kz00_835;
BgL_kz00_835 = 
(int)(BgL_iz00_413); 
{ /* ./Ieee/string.scm 488 */
bool_t BgL_testz00_2649;
{ /* ./Ieee/string.scm 488 */
int BgL_auxz00_2650;
BgL_auxz00_2650 = 
STRING_LENGTH(BgL_resz00_412); 
BgL_testz00_2649 = 
BOUND_CHECK(BgL_kz00_835, BgL_auxz00_2650); } 
if(BgL_testz00_2649)
{ /* ./Ieee/string.scm 488 */
STRING_SET(BgL_resz00_412, BgL_kz00_835, BgL_arg1265z00_416); }  else 
{ /* ./Ieee/string.scm 488 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_835), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)21777))); } } } } 
{ 
long BgL_iz00_2658;
BgL_iz00_2658 = 
(BgL_iz00_413+((long)1)); 
BgL_iz00_413 = BgL_iz00_2658; 
goto BgL_loopz00_414;} } } } } } } 
POP_TRACE(); 
return BgL_aux2022z00_1015;} } } } 
}



/* _string-downcase2140 */
obj_t BGl__stringzd2downcase2140zd2zz__r4_strings_6_7z00(obj_t BgL_envz00_1124, obj_t BgL_stringz00_1125)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 481 */
{ /* ./Ieee/string.scm 482 */
obj_t BgL_auxz00_2661;
if(
STRINGP(BgL_stringz00_1125))
{ /* ./Ieee/string.scm 482 */
BgL_auxz00_2661 = BgL_stringz00_1125
; }  else 
{ /* ./Ieee/string.scm 482 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3458z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1125, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)21636))); 
exit( -1 );} 
return 
BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(BgL_auxz00_2661);} } 
}



/* 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 */
obj_t BgL_symbol2027z00_1016;
BgL_symbol2027z00_1016 = BGl_symbol3459z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 495 */

PUSH_TRACE(BgL_symbol2027z00_1016); BUNSPEC; 
{ /* ./Ieee/string.scm 495 */
obj_t BgL_aux2026z00_1017;
{ /* ./Ieee/string.scm 495 */
int BgL_lenz00_419;
BgL_lenz00_419 = 
STRING_LENGTH(BgL_stringz00_61); 
{ 
long BgL_iz00_420;
BgL_iz00_420 = ((long)0); 
BgL_loopz00_421:
{ /* ./Ieee/string.scm 497 */
bool_t BgL_testz00_2670;
{ /* ./Ieee/string.scm 497 */
long BgL_auxz00_2671;
BgL_auxz00_2671 = 
(long)(BgL_lenz00_419); 
BgL_testz00_2670 = 
(BgL_iz00_420==BgL_auxz00_2671); } 
if(BgL_testz00_2670)
{ /* ./Ieee/string.scm 497 */
BgL_aux2026z00_1017 = BgL_stringz00_61; }  else 
{ /* ./Ieee/string.scm 497 */
{ /* ./Ieee/string.scm 500 */
unsigned char BgL_arg1282z00_423;
{ /* ./Ieee/string.scm 500 */
unsigned char BgL_arg1285z00_424;
{ /* ./Ieee/string.scm 500 */
unsigned char BgL_res1893z00_856;
{ /* ./Ieee/string.scm 500 */
int BgL_kz00_849;
BgL_kz00_849 = 
(int)(BgL_iz00_420); 
{ /* ./Ieee/string.scm 500 */
bool_t BgL_testz00_2675;
{ /* ./Ieee/string.scm 500 */
int BgL_auxz00_2676;
BgL_auxz00_2676 = 
STRING_LENGTH(BgL_stringz00_61); 
BgL_testz00_2675 = 
BOUND_CHECK(BgL_kz00_849, BgL_auxz00_2676); } 
if(BgL_testz00_2675)
{ /* ./Ieee/string.scm 500 */
BgL_res1893z00_856 = 
STRING_REF(BgL_stringz00_61, BgL_kz00_849); }  else 
{ /* ./Ieee/string.scm 500 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3399z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_849), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/string.scm 500 */
obj_t BgL_auxz00_2682;
{ /* ./Ieee/string.scm 500 */
obj_t BgL_aux3087z00_1309;
BgL_aux3087z00_1309 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)22258))); 
if(
CHARP(BgL_aux3087z00_1309))
{ /* ./Ieee/string.scm 500 */
BgL_auxz00_2682 = BgL_aux3087z00_1309
; }  else 
{ /* ./Ieee/string.scm 500 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3459z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_aux3087z00_1309, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)22258))); 
exit( -1 );} } 
BgL_res1893z00_856 = 
(unsigned char)CCHAR(BgL_auxz00_2682); } } } } 
BgL_arg1285z00_424 = BgL_res1893z00_856; } 
BgL_arg1282z00_423 = 
toupper(BgL_arg1285z00_424); } 
{ /* ./Ieee/string.scm 500 */
int BgL_kz00_859;
BgL_kz00_859 = 
(int)(BgL_iz00_420); 
{ /* ./Ieee/string.scm 500 */
bool_t BgL_testz00_2693;
{ /* ./Ieee/string.scm 500 */
int BgL_auxz00_2694;
BgL_auxz00_2694 = 
STRING_LENGTH(BgL_stringz00_61); 
BgL_testz00_2693 = 
BOUND_CHECK(BgL_kz00_859, BgL_auxz00_2694); } 
if(BgL_testz00_2693)
{ /* ./Ieee/string.scm 500 */
STRING_SET(BgL_stringz00_61, BgL_kz00_859, BgL_arg1282z00_423); }  else 
{ /* ./Ieee/string.scm 500 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_859), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)22223))); } } } } 
{ 
long BgL_iz00_2702;
BgL_iz00_2702 = 
(BgL_iz00_420+((long)1)); 
BgL_iz00_420 = BgL_iz00_2702; 
goto BgL_loopz00_421;} } } } } 
POP_TRACE(); 
return BgL_aux2026z00_1017;} } } } 
}



/* _string-upcase!2142 */
obj_t BGl__stringzd2upcasez122142zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1126, obj_t BgL_stringz00_1127)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 494 */
{ /* ./Ieee/string.scm 495 */
obj_t BgL_auxz00_2705;
if(
STRINGP(BgL_stringz00_1127))
{ /* ./Ieee/string.scm 495 */
BgL_auxz00_2705 = BgL_stringz00_1127
; }  else 
{ /* ./Ieee/string.scm 495 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3460z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1127, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)22117))); 
exit( -1 );} 
return 
BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(BgL_auxz00_2705);} } 
}



/* 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 */
obj_t BgL_symbol2031z00_1018;
BgL_symbol2031z00_1018 = BGl_symbol3461z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 507 */

PUSH_TRACE(BgL_symbol2031z00_1018); BUNSPEC; 
{ /* ./Ieee/string.scm 507 */
obj_t BgL_aux2030z00_1019;
{ /* ./Ieee/string.scm 507 */
int BgL_lenz00_426;
BgL_lenz00_426 = 
STRING_LENGTH(BgL_stringz00_62); 
{ 
long BgL_iz00_427;
BgL_iz00_427 = ((long)0); 
BgL_loopz00_428:
{ /* ./Ieee/string.scm 509 */
bool_t BgL_testz00_2714;
{ /* ./Ieee/string.scm 509 */
long BgL_auxz00_2715;
BgL_auxz00_2715 = 
(long)(BgL_lenz00_426); 
BgL_testz00_2714 = 
(BgL_iz00_427==BgL_auxz00_2715); } 
if(BgL_testz00_2714)
{ /* ./Ieee/string.scm 509 */
BgL_aux2030z00_1019 = BgL_stringz00_62; }  else 
{ /* ./Ieee/string.scm 509 */
{ /* ./Ieee/string.scm 512 */
unsigned char BgL_arg1297z00_430;
{ /* ./Ieee/string.scm 512 */
unsigned char BgL_arg1300z00_431;
{ /* ./Ieee/string.scm 512 */
unsigned char BgL_res1894z00_880;
{ /* ./Ieee/string.scm 512 */
int BgL_kz00_873;
BgL_kz00_873 = 
(int)(BgL_iz00_427); 
{ /* ./Ieee/string.scm 512 */
bool_t BgL_testz00_2719;
{ /* ./Ieee/string.scm 512 */
int BgL_auxz00_2720;
BgL_auxz00_2720 = 
STRING_LENGTH(BgL_stringz00_62); 
BgL_testz00_2719 = 
BOUND_CHECK(BgL_kz00_873, BgL_auxz00_2720); } 
if(BgL_testz00_2719)
{ /* ./Ieee/string.scm 512 */
BgL_res1894z00_880 = 
STRING_REF(BgL_stringz00_62, BgL_kz00_873); }  else 
{ /* ./Ieee/string.scm 512 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3399z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_873), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/string.scm 512 */
obj_t BgL_auxz00_2726;
{ /* ./Ieee/string.scm 512 */
obj_t BgL_aux3127z00_1313;
BgL_aux3127z00_1313 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)22709))); 
if(
CHARP(BgL_aux3127z00_1313))
{ /* ./Ieee/string.scm 512 */
BgL_auxz00_2726 = BgL_aux3127z00_1313
; }  else 
{ /* ./Ieee/string.scm 512 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3461z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_aux3127z00_1313, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)22709))); 
exit( -1 );} } 
BgL_res1894z00_880 = 
(unsigned char)CCHAR(BgL_auxz00_2726); } } } } 
BgL_arg1300z00_431 = BgL_res1894z00_880; } 
BgL_arg1297z00_430 = 
tolower(BgL_arg1300z00_431); } 
{ /* ./Ieee/string.scm 512 */
int BgL_kz00_883;
BgL_kz00_883 = 
(int)(BgL_iz00_427); 
{ /* ./Ieee/string.scm 512 */
bool_t BgL_testz00_2737;
{ /* ./Ieee/string.scm 512 */
int BgL_auxz00_2738;
BgL_auxz00_2738 = 
STRING_LENGTH(BgL_stringz00_62); 
BgL_testz00_2737 = 
BOUND_CHECK(BgL_kz00_883, BgL_auxz00_2738); } 
if(BgL_testz00_2737)
{ /* ./Ieee/string.scm 512 */
STRING_SET(BgL_stringz00_62, BgL_kz00_883, BgL_arg1297z00_430); }  else 
{ /* ./Ieee/string.scm 512 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_883), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)22672))); } } } } 
{ 
long BgL_iz00_2746;
BgL_iz00_2746 = 
(BgL_iz00_427+((long)1)); 
BgL_iz00_427 = BgL_iz00_2746; 
goto BgL_loopz00_428;} } } } } 
POP_TRACE(); 
return BgL_aux2030z00_1019;} } } } 
}



/* _string-downcase!2144 */
obj_t BGl__stringzd2downcasez122144zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1128, obj_t BgL_stringz00_1129)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 506 */
{ /* ./Ieee/string.scm 507 */
obj_t BgL_auxz00_2749;
if(
STRINGP(BgL_stringz00_1129))
{ /* ./Ieee/string.scm 507 */
BgL_auxz00_2749 = BgL_stringz00_1129
; }  else 
{ /* ./Ieee/string.scm 507 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3462z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1129, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)22566))); 
exit( -1 );} 
return 
BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(BgL_auxz00_2749);} } 
}



/* 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 */
obj_t BgL_symbol2035z00_1020;
BgL_symbol2035z00_1020 = BGl_symbol3463z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 523 */

PUSH_TRACE(BgL_symbol2035z00_1020); BUNSPEC; 
{ /* ./Ieee/string.scm 523 */
obj_t BgL_aux2034z00_1021;
{ /* ./Ieee/string.scm 523 */
bool_t BgL_nonzd2firstzd2alphaz00_433;int BgL_stringzd2lenzd2_434;
BgL_nonzd2firstzd2alphaz00_433 = ((bool_t)0); 
BgL_stringzd2lenzd2_434 = 
STRING_LENGTH(BgL_stringz00_63); 
{ 
long BgL_iz00_436;
BgL_iz00_436 = ((long)0); 
BgL_zc3anonymousza31310za3ieeezf2stringze2scmza3525ze3z93_437:
{ /* ./Ieee/string.scm 525 */
bool_t BgL_testz00_2758;
{ /* ./Ieee/string.scm 526 */
long BgL_auxz00_2759;
BgL_auxz00_2759 = 
(long)(BgL_stringzd2lenzd2_434); 
BgL_testz00_2758 = 
(BgL_iz00_436==BgL_auxz00_2759); } 
if(BgL_testz00_2758)
{ /* ./Ieee/string.scm 525 */
BgL_aux2034z00_1021 = BgL_stringz00_63; }  else 
{ /* ./Ieee/string.scm 525 */
{ /* ./Ieee/string.scm 527 */
unsigned char BgL_cz00_439;
{ /* ./Ieee/string.scm 527 */
unsigned char BgL_res1895z00_904;
{ /* ./Ieee/string.scm 527 */
int BgL_kz00_897;
BgL_kz00_897 = 
(int)(BgL_iz00_436); 
{ /* ./Ieee/string.scm 527 */
bool_t BgL_testz00_2763;
{ /* ./Ieee/string.scm 527 */
int BgL_auxz00_2764;
BgL_auxz00_2764 = 
STRING_LENGTH(BgL_stringz00_63); 
BgL_testz00_2763 = 
BOUND_CHECK(BgL_kz00_897, BgL_auxz00_2764); } 
if(BgL_testz00_2763)
{ /* ./Ieee/string.scm 527 */
BgL_res1895z00_904 = 
STRING_REF(BgL_stringz00_63, BgL_kz00_897); }  else 
{ /* ./Ieee/string.scm 527 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3399z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_897), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/string.scm 527 */
obj_t BgL_auxz00_2770;
{ /* ./Ieee/string.scm 527 */
obj_t BgL_aux3167z00_1317;
BgL_aux3167z00_1317 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)23462))); 
if(
CHARP(BgL_aux3167z00_1317))
{ /* ./Ieee/string.scm 527 */
BgL_auxz00_2770 = BgL_aux3167z00_1317
; }  else 
{ /* ./Ieee/string.scm 527 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3463z00zz__r4_strings_6_7z00, BGl_string3391z00zz__r4_strings_6_7z00, BgL_aux3167z00_1317, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)23462))); 
exit( -1 );} } 
BgL_res1895z00_904 = 
(unsigned char)CCHAR(BgL_auxz00_2770); } } } } 
BgL_cz00_439 = BgL_res1895z00_904; } 
{ /* ./Ieee/string.scm 528 */
bool_t BgL_test1312z00_440;
{ /* ./Ieee/string.scm 528 */
bool_t BgL_res1896z00_906;
BgL_res1896z00_906 = 
isalpha(BgL_cz00_439); 
BgL_test1312z00_440 = BgL_res1896z00_906; } 
if(BgL_test1312z00_440)
{ /* ./Ieee/string.scm 528 */
if(BgL_nonzd2firstzd2alphaz00_433)
{ /* ./Ieee/string.scm 530 */
unsigned char BgL_arg1314z00_441;
BgL_arg1314z00_441 = 
tolower(BgL_cz00_439); 
{ /* ./Ieee/string.scm 530 */
int BgL_kz00_909;
BgL_kz00_909 = 
(int)(BgL_iz00_436); 
{ /* ./Ieee/string.scm 530 */
bool_t BgL_testz00_2784;
{ /* ./Ieee/string.scm 530 */
int BgL_auxz00_2785;
BgL_auxz00_2785 = 
STRING_LENGTH(BgL_stringz00_63); 
BgL_testz00_2784 = 
BOUND_CHECK(BgL_kz00_909, BgL_auxz00_2785); } 
if(BgL_testz00_2784)
{ /* ./Ieee/string.scm 530 */
STRING_SET(BgL_stringz00_63, BgL_kz00_909, BgL_arg1314z00_441); }  else 
{ /* ./Ieee/string.scm 530 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_909), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)23544))); } } } }  else 
{ /* ./Ieee/string.scm 529 */
BgL_nonzd2firstzd2alphaz00_433 = ((bool_t)1); 
{ /* ./Ieee/string.scm 533 */
unsigned char BgL_arg1318z00_442;
BgL_arg1318z00_442 = 
toupper(BgL_cz00_439); 
{ /* ./Ieee/string.scm 533 */
int BgL_kz00_919;
BgL_kz00_919 = 
(int)(BgL_iz00_436); 
{ /* ./Ieee/string.scm 533 */
bool_t BgL_testz00_2795;
{ /* ./Ieee/string.scm 533 */
int BgL_auxz00_2796;
BgL_auxz00_2796 = 
STRING_LENGTH(BgL_stringz00_63); 
BgL_testz00_2795 = 
BOUND_CHECK(BgL_kz00_919, BgL_auxz00_2796); } 
if(BgL_testz00_2795)
{ /* ./Ieee/string.scm 533 */
STRING_SET(BgL_stringz00_63, BgL_kz00_919, BgL_arg1318z00_442); }  else 
{ /* ./Ieee/string.scm 533 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3403z00zz__r4_strings_6_7z00, BGl_string3400z00zz__r4_strings_6_7z00, 
BINT(BgL_kz00_919), "./Ieee/string.scm", ((long)10971)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)23642))); } } } } } }  else 
{ /* ./Ieee/string.scm 528 */
BgL_nonzd2firstzd2alphaz00_433 = ((bool_t)0); } } } 
{ 
long BgL_iz00_2804;
BgL_iz00_2804 = 
(BgL_iz00_436+((long)1)); 
BgL_iz00_436 = BgL_iz00_2804; 
goto BgL_zc3anonymousza31310za3ieeezf2stringze2scmza3525ze3z93_437;} } } } } 
POP_TRACE(); 
return BgL_aux2034z00_1021;} } } } 
}



/* _string-capitalize!2146 */
obj_t BGl__stringzd2capitaliza7ez122146z67zz__r4_strings_6_7z00(obj_t BgL_envz00_1130, obj_t BgL_stringz00_1131)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 522 */
{ /* ./Ieee/string.scm 523 */
obj_t BgL_auxz00_2807;
if(
STRINGP(BgL_stringz00_1131))
{ /* ./Ieee/string.scm 523 */
BgL_auxz00_2807 = BgL_stringz00_1131
; }  else 
{ /* ./Ieee/string.scm 523 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3464z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1131, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)23315))); 
exit( -1 );} 
return 
BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(BgL_auxz00_2807);} } 
}



/* string-capitalize */
BGL_EXPORTED_DEF obj_t BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(obj_t BgL_stringz00_64)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 539 */
{ /* ./Ieee/string.scm 540 */
obj_t BgL_symbol2039z00_1022;
BgL_symbol2039z00_1022 = BGl_symbol3465z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 540 */

PUSH_TRACE(BgL_symbol2039z00_1022); BUNSPEC; 
{ /* ./Ieee/string.scm 540 */
obj_t BgL_aux2038z00_1023;
BgL_aux2038z00_1023 = 
BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_stringz00_64)); 
POP_TRACE(); 
return BgL_aux2038z00_1023;} } } } 
}



/* _string-capitalize2148 */
obj_t BGl__stringzd2capitaliza7e2148z75zz__r4_strings_6_7z00(obj_t BgL_envz00_1132, obj_t BgL_stringz00_1133)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 539 */
{ /* ./Ieee/string.scm 540 */
obj_t BgL_auxz00_2818;
if(
STRINGP(BgL_stringz00_1133))
{ /* ./Ieee/string.scm 540 */
BgL_auxz00_2818 = BgL_stringz00_1133
; }  else 
{ /* ./Ieee/string.scm 540 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3466z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1133, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)23997))); 
exit( -1 );} 
return 
BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(BgL_auxz00_2818);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 546 */
obj_t BgL_symbol2043z00_1541;
BgL_symbol2043z00_1541 = BGl_symbol3467z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 546 */

PUSH_TRACE(BgL_symbol2043z00_1541); BUNSPEC; 
{ /* ./Ieee/string.scm 546 */
obj_t BgL_aux2042z00_1542;
BgL_aux2042z00_1542 = 
string_for_read(BgL_stringz00_65); 
POP_TRACE(); 
return BgL_aux2042z00_1542;} } } } 
}



/* _string-for-read2150 */
obj_t BGl__stringzd2forzd2read2150z00zz__r4_strings_6_7z00(obj_t BgL_envz00_1134, obj_t BgL_stringz00_1135)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 545 */
{ /* ./Ieee/string.scm 546 */
obj_t BgL_res3502z00_1546;
{ /* ./Ieee/string.scm 546 */
obj_t BgL_stringz00_1543;
if(
STRINGP(BgL_stringz00_1135))
{ /* ./Ieee/string.scm 546 */
BgL_stringz00_1543 = BgL_stringz00_1135; }  else 
{ /* ./Ieee/string.scm 546 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3468z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_stringz00_1135, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24286))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 546 */
obj_t BgL_symbol2043z00_1544;
BgL_symbol2043z00_1544 = BGl_symbol3467z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 546 */

PUSH_TRACE(BgL_symbol2043z00_1544); BUNSPEC; 
{ /* ./Ieee/string.scm 546 */
obj_t BgL_aux2042z00_1545;
BgL_aux2042z00_1545 = 
string_for_read(BgL_stringz00_1543); 
POP_TRACE(); 
BgL_res3502z00_1546 = BgL_aux2042z00_1545; } } } } 
return BgL_res3502z00_1546;} } 
}



/* 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 */
{ /* ./Ieee/string.scm 552 */
obj_t BgL_symbol2047z00_1547;
BgL_symbol2047z00_1547 = BGl_symbol3469z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 552 */

PUSH_TRACE(BgL_symbol2047z00_1547); BUNSPEC; 
{ /* ./Ieee/string.scm 552 */
obj_t BgL_aux2046z00_1548;
BgL_aux2046z00_1548 = 
blit_string(BgL_s1z00_66, BgL_o1z00_67, BgL_s2z00_68, BgL_o2z00_69, BgL_lz00_70); 
POP_TRACE(); 
return BgL_aux2046z00_1548;} } } } 
}



/* _blit-string-ur!2152 */
obj_t BGl__blitzd2stringzd2urz122152z12zz__r4_strings_6_7z00(obj_t BgL_envz00_1136, obj_t BgL_s1z00_1137, obj_t BgL_o1z00_1138, obj_t BgL_s2z00_1139, obj_t BgL_o2z00_1140, obj_t BgL_lz00_1141)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 551 */
{ /* ./Ieee/string.scm 552 */
obj_t BgL_s1z00_1549;int BgL_o1z00_1550;obj_t BgL_s2z00_1551;int BgL_o2z00_1552;int BgL_lz00_1553;
if(
STRINGP(BgL_s1z00_1137))
{ /* ./Ieee/string.scm 552 */
BgL_s1z00_1549 = BgL_s1z00_1137; }  else 
{ /* ./Ieee/string.scm 552 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3470z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_s1z00_1137, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24587))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 552 */
obj_t BgL_auxz00_2844;
if(
INTEGERP(BgL_o1z00_1138))
{ /* ./Ieee/string.scm 552 */
BgL_auxz00_2844 = BgL_o1z00_1138
; }  else 
{ /* ./Ieee/string.scm 552 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3470z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_o1z00_1138, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24587))); 
exit( -1 );} 
BgL_o1z00_1550 = 
CINT(BgL_auxz00_2844); } 
if(
STRINGP(BgL_s2z00_1139))
{ /* ./Ieee/string.scm 552 */
BgL_s2z00_1551 = BgL_s2z00_1139; }  else 
{ /* ./Ieee/string.scm 552 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3470z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_s2z00_1139, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24587))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 552 */
obj_t BgL_auxz00_2856;
if(
INTEGERP(BgL_o2z00_1140))
{ /* ./Ieee/string.scm 552 */
BgL_auxz00_2856 = BgL_o2z00_1140
; }  else 
{ /* ./Ieee/string.scm 552 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3470z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_o2z00_1140, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24587))); 
exit( -1 );} 
BgL_o2z00_1552 = 
CINT(BgL_auxz00_2856); } 
{ /* ./Ieee/string.scm 552 */
obj_t BgL_auxz00_2863;
if(
INTEGERP(BgL_lz00_1141))
{ /* ./Ieee/string.scm 552 */
BgL_auxz00_2863 = BgL_lz00_1141
; }  else 
{ /* ./Ieee/string.scm 552 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3470z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_lz00_1141, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24587))); 
exit( -1 );} 
BgL_lz00_1553 = 
CINT(BgL_auxz00_2863); } 
{ /* ./Ieee/string.scm 552 */
obj_t BgL_symbol2047z00_1554;
BgL_symbol2047z00_1554 = BGl_symbol3469z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 552 */

PUSH_TRACE(BgL_symbol2047z00_1554); BUNSPEC; 
{ /* ./Ieee/string.scm 552 */
obj_t BgL_aux2046z00_1555;
BgL_aux2046z00_1555 = 
blit_string(BgL_s1z00_1549, BgL_o1z00_1550, BgL_s2z00_1551, BgL_o2z00_1552, BgL_lz00_1553); 
POP_TRACE(); 
return BgL_aux2046z00_1555;} } } } } 
}



/* 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 */
obj_t BgL_symbol2051z00_1028;
BgL_symbol2051z00_1028 = BGl_symbol3471z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 558 */

PUSH_TRACE(BgL_symbol2051z00_1028); BUNSPEC; 
{ /* ./Ieee/string.scm 558 */
obj_t BgL_aux2050z00_1029;
{ /* ./Ieee/string.scm 558 */
bool_t BgL_test1335z00_446;
{ /* ./Ieee/string.scm 558 */
bool_t BgL_testz00_2874;
{ /* ./Ieee/string.scm 558 */
int BgL_auxz00_2883;int BgL_auxz00_2875;
{ /* ./Ieee/string.scm 558 */
long BgL_auxz00_2884;
{ /* ./Ieee/string.scm 558 */
long BgL_auxz00_2885;
{ /* ./Ieee/string.scm 558 */
int BgL_auxz00_2886;
BgL_auxz00_2886 = 
STRING_LENGTH(BgL_s1z00_71); 
BgL_auxz00_2885 = 
(long)(BgL_auxz00_2886); } 
BgL_auxz00_2884 = 
(BgL_auxz00_2885+((long)1)); } 
BgL_auxz00_2883 = 
(int)(BgL_auxz00_2884); } 
{ /* ./Ieee/string.scm 558 */
long BgL_auxz00_2876;
{ /* ./Ieee/string.scm 558 */
long BgL_auxz00_2879;long BgL_auxz00_2877;
BgL_auxz00_2879 = 
(long)(BgL_o1z00_72); 
BgL_auxz00_2877 = 
(long)(BgL_lz00_75); 
BgL_auxz00_2876 = 
(BgL_auxz00_2877+BgL_auxz00_2879); } 
BgL_auxz00_2875 = 
(int)(BgL_auxz00_2876); } 
BgL_testz00_2874 = 
BOUND_CHECK(BgL_auxz00_2875, BgL_auxz00_2883); } 
if(BgL_testz00_2874)
{ /* ./Ieee/string.scm 559 */
int BgL_auxz00_2900;int BgL_auxz00_2892;
{ /* ./Ieee/string.scm 559 */
long BgL_auxz00_2901;
{ /* ./Ieee/string.scm 559 */
long BgL_auxz00_2902;
{ /* ./Ieee/string.scm 559 */
int BgL_auxz00_2903;
BgL_auxz00_2903 = 
STRING_LENGTH(BgL_s2z00_73); 
BgL_auxz00_2902 = 
(long)(BgL_auxz00_2903); } 
BgL_auxz00_2901 = 
(BgL_auxz00_2902+((long)1)); } 
BgL_auxz00_2900 = 
(int)(BgL_auxz00_2901); } 
{ /* ./Ieee/string.scm 559 */
long BgL_auxz00_2893;
{ /* ./Ieee/string.scm 559 */
long BgL_auxz00_2896;long BgL_auxz00_2894;
BgL_auxz00_2896 = 
(long)(BgL_o2z00_74); 
BgL_auxz00_2894 = 
(long)(BgL_lz00_75); 
BgL_auxz00_2893 = 
(BgL_auxz00_2894+BgL_auxz00_2896); } 
BgL_auxz00_2892 = 
(int)(BgL_auxz00_2893); } 
BgL_test1335z00_446 = 
BOUND_CHECK(BgL_auxz00_2892, BgL_auxz00_2900); }  else 
{ /* ./Ieee/string.scm 558 */
BgL_test1335z00_446 = ((bool_t)0); } } 
if(BgL_test1335z00_446)
{ /* ./Ieee/string.scm 558 */
BgL_aux2050z00_1029 = 
blit_string(BgL_s1z00_71, BgL_o1z00_72, BgL_s2z00_73, BgL_o2z00_74, BgL_lz00_75); }  else 
{ /* ./Ieee/string.scm 558 */
{ /* ./Ieee/string.scm 561 */
obj_t BgL_arg1340z00_448;obj_t BgL_arg1341z00_449;
{ /* ./Ieee/string.scm 562 */
obj_t BgL_list1346z00_452;
{ /* ./Ieee/string.scm 562 */
obj_t BgL_arg1349z00_454;
{ /* ./Ieee/string.scm 562 */
obj_t BgL_arg1352z00_455;
{ /* ./Ieee/string.scm 562 */
obj_t BgL_arg1356z00_457;
{ /* ./Ieee/string.scm 562 */
obj_t BgL_arg1359z00_458;
BgL_arg1359z00_458 = 
MAKE_PAIR(BGl_string3472z00zz__r4_strings_6_7z00, BNIL); 
BgL_arg1356z00_457 = 
MAKE_PAIR(BgL_s2z00_73, BgL_arg1359z00_458); } 
BgL_arg1352z00_455 = 
MAKE_PAIR(BGl_string3473z00zz__r4_strings_6_7z00, BgL_arg1356z00_457); } 
BgL_arg1349z00_454 = 
MAKE_PAIR(BgL_s1z00_71, BgL_arg1352z00_455); } 
BgL_list1346z00_452 = 
MAKE_PAIR(BGl_string3474z00zz__r4_strings_6_7z00, BgL_arg1349z00_454); } 
BgL_arg1340z00_448 = 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list1346z00_452); } 
{ /* ./Ieee/string.scm 563 */
int BgL_arg1363z00_459;int BgL_arg1364z00_460;
BgL_arg1363z00_459 = 
STRING_LENGTH(BgL_s1z00_71); 
BgL_arg1364z00_460 = 
STRING_LENGTH(BgL_s2z00_73); 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_list1366z00_461;
{ /* ./Ieee/string.scm 563 */
obj_t BgL_arg1368z00_462;
{ /* ./Ieee/string.scm 563 */
obj_t BgL_arg1371z00_463;
{ /* ./Ieee/string.scm 563 */
obj_t BgL_arg1374z00_464;
{ /* ./Ieee/string.scm 563 */
obj_t BgL_arg1377z00_465;
{ /* ./Ieee/string.scm 563 */
obj_t BgL_auxz00_2919;
BgL_auxz00_2919 = 
BINT(BgL_lz00_75); 
BgL_arg1377z00_465 = 
MAKE_PAIR(BgL_auxz00_2919, BNIL); } 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_auxz00_2922;
BgL_auxz00_2922 = 
BINT(BgL_o2z00_74); 
BgL_arg1374z00_464 = 
MAKE_PAIR(BgL_auxz00_2922, BgL_arg1377z00_465); } } 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_auxz00_2925;
BgL_auxz00_2925 = 
BINT(BgL_arg1364z00_460); 
BgL_arg1371z00_463 = 
MAKE_PAIR(BgL_auxz00_2925, BgL_arg1374z00_464); } } 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_auxz00_2928;
BgL_auxz00_2928 = 
BINT(BgL_o1z00_72); 
BgL_arg1368z00_462 = 
MAKE_PAIR(BgL_auxz00_2928, BgL_arg1371z00_463); } } 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_auxz00_2931;
BgL_auxz00_2931 = 
BINT(BgL_arg1363z00_459); 
BgL_list1366z00_461 = 
MAKE_PAIR(BgL_auxz00_2931, BgL_arg1368z00_462); } } 
{ /* ./Ieee/string.scm 563 */
obj_t BgL_res1897z00_943;
if(((bool_t)1))
{ /* ./Ieee/string.scm 563 */
BgL_res1897z00_943 = BgL_list1366z00_461; }  else 
{ /* ./Ieee/string.scm 563 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3471z00zz__r4_strings_6_7z00, BGl_string3448z00zz__r4_strings_6_7z00, BgL_list1366z00_461, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)25171))); 
exit( -1 );} 
BgL_arg1341z00_449 = BgL_res1897z00_943; } } } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3475z00zz__r4_strings_6_7z00, BgL_arg1340z00_448, BgL_arg1341z00_449, "./Ieee/string.scm", ((long)25060)); } 
BgL_aux2050z00_1029 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)25119))); } } 
POP_TRACE(); 
return BgL_aux2050z00_1029;} } } } 
}



/* _blit-string!2154 */
obj_t BGl__blitzd2stringz122154zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1142, obj_t BgL_s1z00_1143, obj_t BgL_o1z00_1144, obj_t BgL_s2z00_1145, obj_t BgL_o2z00_1146, obj_t BgL_lz00_1147)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 557 */
{ /* ./Ieee/string.scm 558 */
int BgL_auxz00_2970;int BgL_auxz00_2962;obj_t BgL_auxz00_2956;int BgL_auxz00_2948;obj_t BgL_auxz00_2942;
{ /* ./Ieee/string.scm 558 */
obj_t BgL_auxz00_2971;
if(
INTEGERP(BgL_lz00_1147))
{ /* ./Ieee/string.scm 558 */
BgL_auxz00_2971 = BgL_lz00_1147
; }  else 
{ /* ./Ieee/string.scm 558 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3476z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_lz00_1147, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24881))); 
exit( -1 );} 
BgL_auxz00_2970 = 
CINT(BgL_auxz00_2971); } 
{ /* ./Ieee/string.scm 558 */
obj_t BgL_auxz00_2963;
if(
INTEGERP(BgL_o2z00_1146))
{ /* ./Ieee/string.scm 558 */
BgL_auxz00_2963 = BgL_o2z00_1146
; }  else 
{ /* ./Ieee/string.scm 558 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3476z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_o2z00_1146, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24881))); 
exit( -1 );} 
BgL_auxz00_2962 = 
CINT(BgL_auxz00_2963); } 
if(
STRINGP(BgL_s2z00_1145))
{ /* ./Ieee/string.scm 558 */
BgL_auxz00_2956 = BgL_s2z00_1145
; }  else 
{ /* ./Ieee/string.scm 558 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3476z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_s2z00_1145, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24881))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 558 */
obj_t BgL_auxz00_2949;
if(
INTEGERP(BgL_o1z00_1144))
{ /* ./Ieee/string.scm 558 */
BgL_auxz00_2949 = BgL_o1z00_1144
; }  else 
{ /* ./Ieee/string.scm 558 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3476z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_o1z00_1144, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24881))); 
exit( -1 );} 
BgL_auxz00_2948 = 
CINT(BgL_auxz00_2949); } 
if(
STRINGP(BgL_s1z00_1143))
{ /* ./Ieee/string.scm 558 */
BgL_auxz00_2942 = BgL_s1z00_1143
; }  else 
{ /* ./Ieee/string.scm 558 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3476z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_s1z00_1143, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)24881))); 
exit( -1 );} 
return 
BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_auxz00_2942, BgL_auxz00_2948, BgL_auxz00_2956, BgL_auxz00_2962, BgL_auxz00_2970);} } 
}



/* 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 */
{ /* ./Ieee/string.scm 569 */
obj_t BgL_symbol2055z00_1561;
BgL_symbol2055z00_1561 = BGl_symbol3477z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 569 */

PUSH_TRACE(BgL_symbol2055z00_1561); BUNSPEC; 
{ /* ./Ieee/string.scm 569 */
obj_t BgL_aux2054z00_1562;
BgL_aux2054z00_1562 = 
bgl_string_shrink(BgL_sz00_76, BgL_lz00_77); 
POP_TRACE(); 
return BgL_aux2054z00_1562;} } } } 
}



/* _string-shrink! */
obj_t BGl__stringzd2shrinkz12zc0zz__r4_strings_6_7z00(obj_t BgL_envz00_1148, obj_t BgL_sz00_1149, obj_t BgL_lz00_1150)
{ AN_OBJECT;
{ /* ./Ieee/string.scm 568 */
{ /* ./Ieee/string.scm 569 */
obj_t BgL_sz00_1563;int BgL_lz00_1564;
if(
STRINGP(BgL_sz00_1149))
{ /* ./Ieee/string.scm 569 */
BgL_sz00_1563 = BgL_sz00_1149; }  else 
{ /* ./Ieee/string.scm 569 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3478z00zz__r4_strings_6_7z00, BGl_string3397z00zz__r4_strings_6_7z00, BgL_sz00_1149, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)25489))); 
exit( -1 );} 
{ /* ./Ieee/string.scm 569 */
obj_t BgL_auxz00_2987;
if(
INTEGERP(BgL_lz00_1150))
{ /* ./Ieee/string.scm 569 */
BgL_auxz00_2987 = BgL_lz00_1150
; }  else 
{ /* ./Ieee/string.scm 569 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3478z00zz__r4_strings_6_7z00, BGl_string3393z00zz__r4_strings_6_7z00, BgL_lz00_1150, BGl_string3390z00zz__r4_strings_6_7z00, 
BINT(((long)25489))); 
exit( -1 );} 
BgL_lz00_1564 = 
CINT(BgL_auxz00_2987); } 
{ /* ./Ieee/string.scm 569 */
obj_t BgL_symbol2055z00_1565;
BgL_symbol2055z00_1565 = BGl_symbol3477z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 569 */

PUSH_TRACE(BgL_symbol2055z00_1565); BUNSPEC; 
{ /* ./Ieee/string.scm 569 */
obj_t BgL_aux2054z00_1566;
BgL_aux2054z00_1566 = 
bgl_string_shrink(BgL_sz00_1563, BgL_lz00_1564); 
POP_TRACE(); 
return BgL_aux2054z00_1566;} } } } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_strings_6_7z00()
{ AN_OBJECT;
{ /* ./Ieee/string.scm 18 */
{ /* ./Ieee/string.scm 18 */
obj_t BgL_symbol2059z00_1032;
BgL_symbol2059z00_1032 = BGl_symbol3479z00zz__r4_strings_6_7z00; 
{ /* ./Ieee/string.scm 18 */

PUSH_TRACE(BgL_symbol2059z00_1032); BUNSPEC; 
{ /* ./Ieee/string.scm 18 */
obj_t BgL_aux2058z00_1033;
BgL_aux2058z00_1033 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_strings_6_7"); 
POP_TRACE(); 
return BgL_aux2058z00_1033;} } } } 
}

