/*===========================================================================*/
/*   (Ieee/string.scm)                                                       */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Ieee/string.scm -indent -o objs/obj_u/Ieee/string.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R4_STRINGS_6_7_TYPE_DEFINITIONS
#define BGL___R4_STRINGS_6_7_TYPE_DEFINITIONS
#endif													// BGL___R4_STRINGS_6_7_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_z62stringzd2shrinkz12za2zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62stringze3zf3z72zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62substringzd2cizd3zf3z90zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62escapezd2schemezd2stringz62zz__r4_strings_6_7z00(obj_t,
		obj_t);
	extern bool_t bigloo_strncmp_ci_at(obj_t, obj_t, long, long);
	static obj_t BGl__stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl__stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00(obj_t,
		obj_t);
	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long,
		long);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(obj_t, unsigned char,
		obj_t, obj_t);
	static obj_t BGl_z62stringzd2cizc3zd3zf3z53zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl__stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_emptyzd2stringzf3z21zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2forzd2readz00zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2deletezd2zz__r4_strings_6_7z00(obj_t,
		obj_t, int, long);
	extern bool_t bigloo_string_cile(obj_t, obj_t);
	static obj_t BGl_z62stringzd2forzd2readz62zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2replacezd2zz__r4_strings_6_7z00(obj_t,
		unsigned char, unsigned char);
	static obj_t BGl__stringzd2containszd2zz__r4_strings_6_7z00(obj_t, obj_t);
	extern bool_t bigloo_string_cilt(obj_t, obj_t);
	extern bool_t bigloo_string_le(obj_t, obj_t);
	static obj_t BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t
		BGl_escapezd2schemezd2stringz00zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long,
		long);
	static obj_t BGl__substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00(obj_t,
		obj_t);
	extern bool_t bigloo_string_lt(obj_t, obj_t);
	static obj_t BGl__stringzd2indexzd2zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_stringzd2cizc3zd3zf3z31zz__r4_strings_6_7z00(obj_t, obj_t);
	extern bool_t bigloo_strcicmp(obj_t, obj_t);
	static obj_t BGl_z62stringzd2upcasezb0zz__r4_strings_6_7z00(obj_t, 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);
	extern obj_t string_for_read(obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_z62stringzd2downcasez12za2zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl_z62stringzd2nullzf3z43zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2skipzd2rightz00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL long BGl_stringzd2lengthzd2zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL int
		BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	static bool_t BGl_delimzf3zf3zz__r4_strings_6_7z00(obj_t, unsigned char);
	static obj_t BGl_z62stringzd2upcasez12za2zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_stringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2setz12zc0zz__r4_strings_6_7z00(obj_t,
		long, unsigned char);
	static obj_t BGl__stringzd2skipzd2zz__r4_strings_6_7z00(obj_t, obj_t);
	extern bool_t bigloo_strncmp_ci(obj_t, obj_t, long);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL int
		BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_stringzd2cize3zf3zc2zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl_z62stringzd2cize3zd3zf3z73zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL unsigned char
		BGl_stringzd2refzd2urz00zz__r4_strings_6_7z00(obj_t, long);
	static obj_t BGl_z62emptyzd2stringzf3z43zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00(obj_t, obj_t, int);
	BGL_EXPORTED_DECL bool_t BGl_stringzd2nullzf3z21zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_symbol3108z00zz__r4_strings_6_7z00 = BUNSPEC;
	static obj_t BGl_z62substringzd3zf3z42zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62listzd2ze3stringz53zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl_z62stringzd2aszd2readz62zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl__stringzd2hexzd2externz00zz__r4_strings_6_7z00(obj_t, obj_t);
	extern bool_t bigloo_strcmp_ci_at(obj_t, obj_t, long);
	extern bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
	static obj_t BGl_z62stringzd2capitaliza7ez17zz__r4_strings_6_7z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2shrinkz12zc0zz__r4_strings_6_7z00(obj_t,
		long);
	BGL_EXPORTED_DECL bool_t
		BGl_substringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t, obj_t, long);
	static obj_t BGl_cnstzd2initzd2zz__r4_strings_6_7z00(void);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	extern long bgl_list_length(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_blitzd2stringzd2urz12z12zz__r4_strings_6_7z00(obj_t, long, obj_t, long,
		long);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2hexzd2internz12z12zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl__stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl_z62blitzd2stringzd2urz12z70zz__r4_strings_6_7z00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_stringzd2cize3zd3zf3z11zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__r4_strings_6_7z00(void);
	static obj_t BGl_z62stringzd2hexzd2internz62zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl_gczd2rootszd2initz00zz__r4_strings_6_7z00(void);
	static obj_t BGl__stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl_z62stringzd2splitzb0zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	static obj_t
		BGl__stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2skipzd2zz__r4_strings_6_7z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol3120z00zz__r4_strings_6_7z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_symbol3123z00zz__r4_strings_6_7z00 = BUNSPEC;
	BGL_EXPORTED_DECL obj_t BGl_stringzd2replacez12zc0zz__r4_strings_6_7z00(obj_t,
		unsigned char, unsigned char);
	static obj_t BGl_symbol3126z00zz__r4_strings_6_7z00 = BUNSPEC;
	static obj_t BGl_symbol3129z00zz__r4_strings_6_7z00 = BUNSPEC;
	static obj_t BGl__stringzd2charzd2indexz00zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl_z62stringzd2replacez12za2zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl__stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl_z62stringzd2lengthzb0zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_stringzc3zf3z30zz__r4_strings_6_7z00(obj_t,
		obj_t);
	extern bool_t bigloo_strcmp_at(obj_t, obj_t, long);
	extern obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL long
		BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl_z62substringzd2urzb0zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t bgl_escape_scheme_string(char *, long, long);
	extern obj_t bgl_reverse_bang(obj_t);
	static obj_t BGl_symbol3132z00zz__r4_strings_6_7z00 = BUNSPEC;
	static obj_t BGl__stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(obj_t,
		obj_t);
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	static obj_t BGl__makezd2stringzd2zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl_symbol3135z00zz__r4_strings_6_7z00 = BUNSPEC;
	static obj_t BGl_z62stringzd2appendzb0zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2containszd2zz__r4_strings_6_7z00(obj_t,
		obj_t, int);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62stringzd2setzd2urz12z70zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62stringzd2hexzd2internz12z70zz__r4_strings_6_7z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2splitzd2zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(obj_t, long);
	BGL_EXPORTED_DECL bool_t BGl_stringzd3zf3z20zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl_z62stringzd2refzd2urz62zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL int
		BGl_stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_symbol3140z00zz__r4_strings_6_7z00 = BUNSPEC;
	static obj_t BGl_z62stringzd2ze3listz53zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_escapezd2Czd2stringz00zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(obj_t);
	extern bool_t bigloo_strncmp_at(obj_t, obj_t, long, long);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_z62escapezd2Czd2stringz62zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_stringze3zf3z10zz__r4_strings_6_7z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_substringzd2urzd2zz__r4_strings_6_7z00(obj_t,
		long, long);
	BGL_EXPORTED_DECL bool_t
		BGl_substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00(obj_t, obj_t, long,
		obj_t);
	static obj_t BGl_z62stringzd2compare3zd2ciz62zz__r4_strings_6_7z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_z62stringz62zz__r4_strings_6_7z00(obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	BGL_EXPORTED_DECL long BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl_comparezd2leftzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62stringzd2charzd2indexzd2urzb0zz__r4_strings_6_7z00(obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl__substringzd2atzf3z21zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl_z62stringzd2compare3zb0zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl__stringzd2skipzd2rightz00zz__r4_strings_6_7z00(obj_t, obj_t);
	extern obj_t c_substring(obj_t, long, long);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2hexzd2internz00zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_z62stringzd2cizc3zf3z80zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62stringzc3zd3zf3z81zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL int
		BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl__stringzd2containszd2ciz00zz__r4_strings_6_7z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2aszd2readz00zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL unsigned char
		BGl_stringzd2refzd2zz__r4_strings_6_7z00(obj_t, long);
	BGL_EXPORTED_DECL obj_t BGl_makezd2stringzd2zz__r4_strings_6_7z00(long,
		obj_t);
	static obj_t BGl_z62stringzd2replacezb0zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t bgl_escape_C_string(char *, long, long);
	static obj_t BGl_z62stringzd2capitaliza7ez12z05zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl_z62stringzd2cizd3zf3z90zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_comparezd2rightzd2zz__r4_strings_6_7z00(obj_t, obj_t, obj_t,
		obj_t);
	extern bool_t bigloo_string_cige(obj_t, obj_t);
	extern obj_t blit_string(obj_t, long, obj_t, long, long);
	static obj_t BGl__stringzd2deletezd2zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl_z62stringzd2setz12za2zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl__stringzd2suffixzf3z21zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl__stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2charzd2indexzd2urzd2zz__r4_strings_6_7z00(obj_t, unsigned char,
		long, long);
	extern bool_t bigloo_string_cigt(obj_t, obj_t);
	extern bool_t bigloo_string_ge(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_z62stringzd2cize3zf3za0zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	extern bool_t bigloo_string_gt(obj_t, obj_t);
	static obj_t BGl_z62blitzd2stringz12za2zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_strnatcmpz00zz__r4_strings_6_7z00(obj_t, obj_t, bool_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_substringzd3zf3z20zz__r4_strings_6_7z00(obj_t,
		obj_t, long);
	extern obj_t make_string(long, unsigned char);
	static obj_t BGl_z62stringzd2refzb0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2cutzd2zz__r4_strings_6_7z00(obj_t,
		obj_t);
	static obj_t BGl_z62stringzd2fillz12za2zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_stringzf3zf3zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_z62stringzc3zf3z52zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62stringzf3z91zz__r4_strings_6_7z00(obj_t, obj_t);
	extern obj_t string_append(obj_t, obj_t);
	static obj_t BGl_z62stringzd2copyzb0zz__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_stringzd2setzd2urz12z12zz__r4_strings_6_7z00(obj_t, long,
		unsigned char);
	static obj_t BGl__stringzd2indexzd2rightz00zz__r4_strings_6_7z00(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00(obj_t, int, long);
	BGL_EXPORTED_DECL bool_t BGl_stringzc3zd3zf3ze3zz__r4_strings_6_7z00(obj_t,
		obj_t);
	extern obj_t make_string_sans_fill(long);
	BGL_EXPORTED_DECL obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t,
		long, obj_t, long, long);
	static obj_t BGl_z62stringze3zd3zf3za1zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_z62stringzd3zf3z42zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62stringzd2downcasezb0zz__r4_strings_6_7z00(obj_t, obj_t);
	static obj_t BGl__substringz00zz__r4_strings_6_7z00(obj_t, obj_t);
	BGL_EXPORTED_DECL int
		BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t, obj_t,
		obj_t, obj_t, obj_t, obj_t);
	extern bool_t bigloo_strncmp(obj_t, obj_t, long);
	BGL_EXPORTED_DECL int
		BGl_stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00(obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_substringzd2atzf3z21zz__r4_strings_6_7z00(obj_t,
		obj_t, long, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t, obj_t, obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(obj_t,
		unsigned char);
	static obj_t BGl_z62stringzd2cutzb0zz__r4_strings_6_7z00(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_stringz00zz__r4_strings_6_7z00(obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2upcasez12zd2envz12zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2upca3153z00,
		BGl_z62stringzd2upcasez12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2capitaliza7ezd2envza7zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2capi3154z00,
		BGl_z62stringzd2capitaliza7ez17zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2suffixzf3zd2envzf3zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2suffix3155za7, opt_generic_entry,
		BGl__stringzd2suffixzf3z21zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2compare3zd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2comp3156z00,
		BGl_z62stringzd2compare3zb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2copyzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2copy3157z00,
		BGl_z62stringzd2copyzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3100z00zz__r4_strings_6_7z00,
		BgL_bgl_string3100za700za7za7_3158za7, "Illegal regset", 14);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2upcasezd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2upca3159z00,
		BGl_z62stringzd2upcasezb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2setzd2urz12zd2envzc0zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2setza73160za7,
		BGl_z62stringzd2setzd2urz12z70zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string3101z00zz__r4_strings_6_7z00,
		BgL_bgl_string3101za700za7za7_3161za7, "_string-index-right", 19);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2hexzd2internzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2hexza73162za7,
		BGl_z62stringzd2hexzd2internz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3102z00zz__r4_strings_6_7z00,
		BgL_bgl_string3102za700za7za7_3163za7, "string-index-right", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2hexzd2internz12zd2envzc0zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2hexza73164za7,
		BGl_z62stringzd2hexzd2internz12z70zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3103z00zz__r4_strings_6_7z00,
		BgL_bgl_string3103za700za7za7_3165za7, "index out of bound", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2cizc3zd3zf3zd2envze3zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2ciza7c3166za7,
		BGl_z62stringzd2cizc3zd3zf3z53zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string3104z00zz__r4_strings_6_7z00,
		BgL_bgl_string3104za700za7za7_3167za7, "_string-skip", 12);
	      BGL_DEFINE_STRING(BGl_string3105z00zz__r4_strings_6_7z00,
		BgL_bgl_string3105za700za7za7_3168za7, "string-skip", 11);
	      BGL_DEFINE_STRING(BGl_string3106z00zz__r4_strings_6_7z00,
		BgL_bgl_string3106za700za7za7_3169za7, "_string-skip-right", 18);
	      BGL_DEFINE_STRING(BGl_string3107z00zz__r4_strings_6_7z00,
		BgL_bgl_string3107za700za7za7_3170za7, "_string-prefix-length", 21);
	      BGL_DEFINE_STRING(BGl_string3026z00zz__r4_strings_6_7z00,
		BgL_bgl_string3026za700za7za7_3171za7,
		"/tmp/bigloo/runtime/Ieee/string.scm", 35);
	      BGL_DEFINE_STRING(BGl_string3027z00zz__r4_strings_6_7z00,
		BgL_bgl_string3027za700za7za7_3172za7, "&string-null?", 13);
	      BGL_DEFINE_STRING(BGl_string3109z00zz__r4_strings_6_7z00,
		BgL_bgl_string3109za700za7za7_3173za7, "string-prefix-length", 20);
	      BGL_DEFINE_STRING(BGl_string3028z00zz__r4_strings_6_7z00,
		BgL_bgl_string3028za700za7za7_3174za7, "bstring", 7);
	      BGL_DEFINE_STRING(BGl_string3029z00zz__r4_strings_6_7z00,
		BgL_bgl_string3029za700za7za7_3175za7, "_make-string", 12);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2prefixzd2lengthzd2cizd2envz00zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2prefix3176za7, opt_generic_entry,
		BGl__stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2skipzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2skipza7d3177z00, opt_generic_entry,
		BGl__stringzd2skipzd2zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2ze3listzd2envze3zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2za7e3l3178za7,
		BGl_z62stringzd2ze3listz53zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2suffixzd2lengthzd2cizd2envz00zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2suffix3179za7, opt_generic_entry,
		BGl__stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2stringzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl__makeza7d2stringza7d3180z00, opt_generic_entry,
		BGl__makezd2stringzd2zz__r4_strings_6_7z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3110z00zz__r4_strings_6_7z00,
		BgL_bgl_string3110za700za7za7_3181za7, "Index negative end index `", 26);
	      BGL_DEFINE_STRING(BGl_string3111z00zz__r4_strings_6_7z00,
		BgL_bgl_string3111za700za7za7_3182za7, "end1", 4);
	      BGL_DEFINE_STRING(BGl_string3030z00zz__r4_strings_6_7z00,
		BgL_bgl_string3030za700za7za7_3183za7, "vector", 6);
	      BGL_DEFINE_STRING(BGl_string3112z00zz__r4_strings_6_7z00,
		BgL_bgl_string3112za700za7za7_3184za7, "'", 1);
	      BGL_DEFINE_STRING(BGl_string3031z00zz__r4_strings_6_7z00,
		BgL_bgl_string3031za700za7za7_3185za7, "bint", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2suffixzd2lengthzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2suffix3186za7, opt_generic_entry,
		BGl__stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3113z00zz__r4_strings_6_7z00,
		BgL_bgl_string3113za700za7za7_3187za7, "Too large end index `", 21);
	      BGL_DEFINE_STRING(BGl_string3032z00zz__r4_strings_6_7z00,
		BgL_bgl_string3032za700za7za7_3188za7, "bchar", 5);
	      BGL_DEFINE_STRING(BGl_string3114z00zz__r4_strings_6_7z00,
		BgL_bgl_string3114za700za7za7_3189za7, "end2", 4);
	      BGL_DEFINE_STRING(BGl_string3033z00zz__r4_strings_6_7z00,
		BgL_bgl_string3033za700za7za7_3190za7, "&string-length", 14);
	      BGL_DEFINE_STRING(BGl_string3115z00zz__r4_strings_6_7z00,
		BgL_bgl_string3115za700za7za7_3191za7, "Index negative start index `", 28);
	      BGL_DEFINE_STRING(BGl_string3034z00zz__r4_strings_6_7z00,
		BgL_bgl_string3034za700za7za7_3192za7, "&string-ref", 11);
	      BGL_DEFINE_STRING(BGl_string3116z00zz__r4_strings_6_7z00,
		BgL_bgl_string3116za700za7za7_3193za7, "start1", 6);
	      BGL_DEFINE_STRING(BGl_string3035z00zz__r4_strings_6_7z00,
		BgL_bgl_string3035za700za7za7_3194za7, "&string-set!", 12);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2ciza7d3195za7,
		BGl_z62stringzd2cizd3zf3z90zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string3117z00zz__r4_strings_6_7z00,
		BgL_bgl_string3117za700za7za7_3196za7, "Too large start index `", 23);
	      BGL_DEFINE_STRING(BGl_string3036z00zz__r4_strings_6_7z00,
		BgL_bgl_string3036za700za7za7_3197za7, "&string-ref-ur", 14);
	      BGL_DEFINE_STRING(BGl_string3118z00zz__r4_strings_6_7z00,
		BgL_bgl_string3118za700za7za7_3198za7, "start2", 6);
	      BGL_DEFINE_STRING(BGl_string3037z00zz__r4_strings_6_7z00,
		BgL_bgl_string3037za700za7za7_3199za7, "&string-set-ur!", 15);
	      BGL_DEFINE_STRING(BGl_string3119z00zz__r4_strings_6_7z00,
		BgL_bgl_string3119za700za7za7_3200za7, "_string-prefix-length-ci", 24);
	      BGL_DEFINE_STRING(BGl_string3038z00zz__r4_strings_6_7z00,
		BgL_bgl_string3038za700za7za7_3201za7, "&string=?", 9);
	      BGL_DEFINE_STRING(BGl_string3039z00zz__r4_strings_6_7z00,
		BgL_bgl_string3039za700za7za7_3202za7, "&substring=?", 12);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2compare3zd2cizd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2comp3203z00,
		BGl_z62stringzd2compare3zd2ciz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2appendzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2appe3204z00, va_generic_entry,
		BGl_z62stringzd2appendzb0zz__r4_strings_6_7z00, BUNSPEC, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_substringzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl__substringza700za7za7_3205za7, opt_generic_entry,
		BGl__substringz00zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2containszd2envz00zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2contai3206za7, opt_generic_entry,
		BGl__stringzd2containszd2zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2indexzd2rightzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2indexza73207z00, opt_generic_entry,
		BGl__stringzd2indexzd2rightz00zz__r4_strings_6_7z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3121z00zz__r4_strings_6_7z00,
		BgL_bgl_string3121za700za7za7_3208za7, "string-prefix-length-ci", 23);
	      BGL_DEFINE_STRING(BGl_string3040z00zz__r4_strings_6_7z00,
		BgL_bgl_string3040za700za7za7_3209za7, "_substring-at?", 14);
	      BGL_DEFINE_STRING(BGl_string3122z00zz__r4_strings_6_7z00,
		BgL_bgl_string3122za700za7za7_3210za7, "_string-suffix-length", 21);
	      BGL_DEFINE_STRING(BGl_string3041z00zz__r4_strings_6_7z00,
		BgL_bgl_string3041za700za7za7_3211za7, "&substring-ci=?", 15);
	      BGL_DEFINE_STRING(BGl_string3042z00zz__r4_strings_6_7z00,
		BgL_bgl_string3042za700za7za7_3212za7, "_substring-ci-at?", 17);
	      BGL_DEFINE_STRING(BGl_string3124z00zz__r4_strings_6_7z00,
		BgL_bgl_string3124za700za7za7_3213za7, "string-suffix-length", 20);
	      BGL_DEFINE_STRING(BGl_string3043z00zz__r4_strings_6_7z00,
		BgL_bgl_string3043za700za7za7_3214za7, "&empty-string?", 14);
	      BGL_DEFINE_STRING(BGl_string3125z00zz__r4_strings_6_7z00,
		BgL_bgl_string3125za700za7za7_3215za7, "_string-suffix-length-ci", 24);
	      BGL_DEFINE_STRING(BGl_string3044z00zz__r4_strings_6_7z00,
		BgL_bgl_string3044za700za7za7_3216za7, "&string-ci=?", 12);
	      BGL_DEFINE_STRING(BGl_string3045z00zz__r4_strings_6_7z00,
		BgL_bgl_string3045za700za7za7_3217za7, "&string<?", 9);
	      BGL_DEFINE_STRING(BGl_string3127z00zz__r4_strings_6_7z00,
		BgL_bgl_string3127za700za7za7_3218za7, "string-suffix-length-ci", 23);
	      BGL_DEFINE_STRING(BGl_string3046z00zz__r4_strings_6_7z00,
		BgL_bgl_string3046za700za7za7_3219za7, "&string>?", 9);
	      BGL_DEFINE_STRING(BGl_string3128z00zz__r4_strings_6_7z00,
		BgL_bgl_string3128za700za7za7_3220za7, "_string-prefix?", 15);
	      BGL_DEFINE_STRING(BGl_string3047z00zz__r4_strings_6_7z00,
		BgL_bgl_string3047za700za7za7_3221za7, "&string<=?", 10);
	      BGL_DEFINE_STRING(BGl_string3048z00zz__r4_strings_6_7z00,
		BgL_bgl_string3048za700za7za7_3222za7, "&string>=?", 10);
	      BGL_DEFINE_STRING(BGl_string3049z00zz__r4_strings_6_7z00,
		BgL_bgl_string3049za700za7za7_3223za7, "&string-ci<?", 12);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd3zf3zd2envzf2zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d3za7f3za73224z00,
		BGl_z62stringzd3zf3z42zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2naturalzd2compare3zd2cizd2envz00zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2natura3225za7, opt_generic_entry,
		BGl__stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2containszd2cizd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2contai3226za7, opt_generic_entry,
		BGl__stringzd2containszd2ciz00zz__r4_strings_6_7z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3130z00zz__r4_strings_6_7z00,
		BgL_bgl_string3130za700za7za7_3227za7, "string-prefix?", 14);
	      BGL_DEFINE_STRING(BGl_string3131z00zz__r4_strings_6_7z00,
		BgL_bgl_string3131za700za7za7_3228za7, "_string-prefix-ci?", 18);
	      BGL_DEFINE_STRING(BGl_string3050z00zz__r4_strings_6_7z00,
		BgL_bgl_string3050za700za7za7_3229za7, "&string-ci>?", 12);
	      BGL_DEFINE_STRING(BGl_string3051z00zz__r4_strings_6_7z00,
		BgL_bgl_string3051za700za7za7_3230za7, "&string-ci<=?", 13);
	      BGL_DEFINE_STRING(BGl_string3133z00zz__r4_strings_6_7z00,
		BgL_bgl_string3133za700za7za7_3231za7, "string-prefix-ci?", 17);
	      BGL_DEFINE_STRING(BGl_string3052z00zz__r4_strings_6_7z00,
		BgL_bgl_string3052za700za7za7_3232za7, "&string-ci>=?", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2capitaliza7ez12zd2envzb5zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2capi3233z00,
		BGl_z62stringzd2capitaliza7ez12z05zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3134z00zz__r4_strings_6_7z00,
		BgL_bgl_string3134za700za7za7_3234za7, "_string-suffix?", 15);
	      BGL_DEFINE_STRING(BGl_string3053z00zz__r4_strings_6_7z00,
		BgL_bgl_string3053za700za7za7_3235za7, "_substring", 10);
	      BGL_DEFINE_STRING(BGl_string3054z00zz__r4_strings_6_7z00,
		BgL_bgl_string3054za700za7za7_3236za7, "Illegal start index ", 20);
	      BGL_DEFINE_STRING(BGl_string3136z00zz__r4_strings_6_7z00,
		BgL_bgl_string3136za700za7za7_3237za7, "string-suffix?", 14);
	      BGL_DEFINE_STRING(BGl_string3055z00zz__r4_strings_6_7z00,
		BgL_bgl_string3055za700za7za7_3238za7, "substring", 9);
	      BGL_DEFINE_STRING(BGl_string3137z00zz__r4_strings_6_7z00,
		BgL_bgl_string3137za700za7za7_3239za7, "_string-suffix-ci?", 18);
	      BGL_DEFINE_STRING(BGl_string3056z00zz__r4_strings_6_7z00,
		BgL_bgl_string3056za700za7za7_3240za7, "Illegal end index ", 18);
	      BGL_DEFINE_STRING(BGl_string3138z00zz__r4_strings_6_7z00,
		BgL_bgl_string3138za700za7za7_3241za7, "_string-natural-compare3", 24);
	      BGL_DEFINE_STRING(BGl_string3057z00zz__r4_strings_6_7z00,
		BgL_bgl_string3057za700za7za7_3242za7, "&substring-ur", 13);
	      BGL_DEFINE_STRING(BGl_string3139z00zz__r4_strings_6_7z00,
		BgL_bgl_string3139za700za7za7_3243za7, "_string-natural-compare3-ci", 27);
	      BGL_DEFINE_STRING(BGl_string3058z00zz__r4_strings_6_7z00,
		BgL_bgl_string3058za700za7za7_3244za7, "_string-contains", 16);
	      BGL_DEFINE_STRING(BGl_string3059z00zz__r4_strings_6_7z00,
		BgL_bgl_string3059za700za7za7_3245za7, "_string-contains-ci", 19);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2shrinkz12zd2envz12zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2shri3246z00,
		BGl_z62stringzd2shrinkz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzf3zd2envz21zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7f3za791za73247z00,
		BGl_z62stringzf3z91zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_substringzd2cizd2atzf3zd2envz21zz__r4_strings_6_7z00,
		BgL_bgl__substringza7d2ciza73248z00, opt_generic_entry,
		BGl__substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2indexzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2indexza73249z00, opt_generic_entry,
		BGl__stringzd2indexzd2zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_blitzd2stringzd2urz12zd2envzc0zz__r4_strings_6_7z00,
		BgL_bgl_za762blitza7d2string3250z00,
		BGl_z62blitzd2stringzd2urz12z70zz__r4_strings_6_7z00, 0L, BUNSPEC, 5);
	      BGL_DEFINE_STRING(BGl_string3141z00zz__r4_strings_6_7z00,
		BgL_bgl_string3141za700za7za7_3251za7, "an-awful-hack", 13);
	      BGL_DEFINE_STRING(BGl_string3060z00zz__r4_strings_6_7z00,
		BgL_bgl_string3060za700za7za7_3252za7, "&string-compare3", 16);
	      BGL_DEFINE_STRING(BGl_string3142z00zz__r4_strings_6_7z00,
		BgL_bgl_string3142za700za7za7_3253za7, "hex-string->string", 18);
	      BGL_DEFINE_STRING(BGl_string3061z00zz__r4_strings_6_7z00,
		BgL_bgl_string3061za700za7za7_3254za7, "&string-compare3-ci", 19);
	      BGL_DEFINE_STRING(BGl_string3143z00zz__r4_strings_6_7z00,
		BgL_bgl_string3143za700za7za7_3255za7, "Illegal string (illegal character)",
		34);
	      BGL_DEFINE_STRING(BGl_string3062z00zz__r4_strings_6_7z00,
		BgL_bgl_string3062za700za7za7_3256za7, "", 0);
	      BGL_DEFINE_STRING(BGl_string3144z00zz__r4_strings_6_7z00,
		BgL_bgl_string3144za700za7za7_3257za7, "string-hex-intern", 17);
	      BGL_DEFINE_STRING(BGl_string3063z00zz__r4_strings_6_7z00,
		BgL_bgl_string3063za700za7za7_3258za7, "&list->string", 13);
	      BGL_DEFINE_STRING(BGl_string3145z00zz__r4_strings_6_7z00,
		BgL_bgl_string3145za700za7za7_3259za7, "Illegal string (length is odd)",
		30);
	      BGL_DEFINE_STRING(BGl_string3064z00zz__r4_strings_6_7z00,
		BgL_bgl_string3064za700za7za7_3260za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string3146z00zz__r4_strings_6_7z00,
		BgL_bgl_string3146za700za7za7_3261za7, "&string-hex-intern", 18);
	      BGL_DEFINE_STRING(BGl_string3065z00zz__r4_strings_6_7z00,
		BgL_bgl_string3065za700za7za7_3262za7, "&string->list", 13);
	      BGL_DEFINE_STRING(BGl_string3147z00zz__r4_strings_6_7z00,
		BgL_bgl_string3147za700za7za7_3263za7, "string-hex-intern!", 18);
	      BGL_DEFINE_STRING(BGl_string3066z00zz__r4_strings_6_7z00,
		BgL_bgl_string3066za700za7za7_3264za7, "&string-copy", 12);
	      BGL_DEFINE_STRING(BGl_string3148z00zz__r4_strings_6_7z00,
		BgL_bgl_string3148za700za7za7_3265za7, "&string-hex-intern!", 19);
	      BGL_DEFINE_STRING(BGl_string3067z00zz__r4_strings_6_7z00,
		BgL_bgl_string3067za700za7za7_3266za7, "&string-fill!", 13);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringze3zd3zf3zd2envz11zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7e3za7d3za73267z00,
		BGl_z62stringze3zd3zf3za1zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string3149z00zz__r4_strings_6_7z00,
		BgL_bgl_string3149za700za7za7_3268za7, "_string-hex-extern", 18);
	      BGL_DEFINE_STRING(BGl_string3068z00zz__r4_strings_6_7z00,
		BgL_bgl_string3068za700za7za7_3269za7, "&string-upcase", 14);
	      BGL_DEFINE_STRING(BGl_string3069z00zz__r4_strings_6_7z00,
		BgL_bgl_string3069za700za7za7_3270za7, "&string-downcase", 16);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2naturalzd2compare3zd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2natura3271za7, opt_generic_entry,
		BGl__stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_substringzd2atzf3zd2envzf3zz__r4_strings_6_7z00,
		BgL_bgl__substringza7d2atza73272z00, opt_generic_entry,
		BGl__substringzd2atzf3z21zz__r4_strings_6_7z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3150z00zz__r4_strings_6_7z00,
		BgL_bgl_string3150za700za7za7_3273za7, "string-hex-extern", 17);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2prefixzd2cizf3zd2envz21zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2prefix3274za7, opt_generic_entry,
		BGl__stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3151z00zz__r4_strings_6_7z00,
		BgL_bgl_string3151za700za7za7_3275za7, "0123456789abcdef", 16);
	      BGL_DEFINE_STRING(BGl_string3070z00zz__r4_strings_6_7z00,
		BgL_bgl_string3070za700za7za7_3276za7, "&string-upcase!", 15);
	      BGL_DEFINE_STRING(BGl_string3152z00zz__r4_strings_6_7z00,
		BgL_bgl_string3152za700za7za7_3277za7, "__r4_strings_6_7", 16);
	      BGL_DEFINE_STRING(BGl_string3071z00zz__r4_strings_6_7z00,
		BgL_bgl_string3071za700za7za7_3278za7, "&string-downcase!", 17);
	      BGL_DEFINE_STRING(BGl_string3072z00zz__r4_strings_6_7z00,
		BgL_bgl_string3072za700za7za7_3279za7, "&string-capitalize!", 19);
	      BGL_DEFINE_STRING(BGl_string3073z00zz__r4_strings_6_7z00,
		BgL_bgl_string3073za700za7za7_3280za7, "&string-capitalize", 18);
	      BGL_DEFINE_STRING(BGl_string3074z00zz__r4_strings_6_7z00,
		BgL_bgl_string3074za700za7za7_3281za7, "&string-for-read", 16);
	      BGL_DEFINE_STRING(BGl_string3075z00zz__r4_strings_6_7z00,
		BgL_bgl_string3075za700za7za7_3282za7, "&escape-C-string", 16);
	      BGL_DEFINE_STRING(BGl_string3076z00zz__r4_strings_6_7z00,
		BgL_bgl_string3076za700za7za7_3283za7, "&escape-scheme-string", 21);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2setz12zd2envz12zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2setza73284za7,
		BGl_z62stringzd2setz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
	      BGL_DEFINE_STRING(BGl_string3077z00zz__r4_strings_6_7z00,
		BgL_bgl_string3077za700za7za7_3285za7, "&string-as-read", 15);
	      BGL_DEFINE_STRING(BGl_string3078z00zz__r4_strings_6_7z00,
		BgL_bgl_string3078za700za7za7_3286za7, "&blit-string-ur!", 16);
	      BGL_DEFINE_STRING(BGl_string3079z00zz__r4_strings_6_7z00,
		BgL_bgl_string3079za700za7za7_3287za7, "]", 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2charzd2indexzd2urzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2char3288z00,
		BGl_z62stringzd2charzd2indexzd2urzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2prefixzd2lengthzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2prefix3289za7, opt_generic_entry,
		BGl__stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00, BFALSE, -1);
	      BGL_DEFINE_STRING(BGl_string3080z00zz__r4_strings_6_7z00,
		BgL_bgl_string3080za700za7za7_3290za7, "] [dest:", 8);
	      BGL_DEFINE_STRING(BGl_string3081z00zz__r4_strings_6_7z00,
		BgL_bgl_string3081za700za7za7_3291za7, "[src:", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2cize3zf3zd2envz10zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2ciza7e3292za7,
		BGl_z62stringzd2cize3zf3za0zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string3082z00zz__r4_strings_6_7z00,
		BgL_bgl_string3082za700za7za7_3293za7,
		"blit-string!:Index and length out of range", 42);
	      BGL_DEFINE_STRING(BGl_string3083z00zz__r4_strings_6_7z00,
		BgL_bgl_string3083za700za7za7_3294za7, "&blit-string!", 13);
	      BGL_DEFINE_STRING(BGl_string3084z00zz__r4_strings_6_7z00,
		BgL_bgl_string3084za700za7za7_3295za7, "&string-shrink!", 15);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2splitzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2spli3296z00, va_generic_entry,
		BGl_z62stringzd2splitzb0zz__r4_strings_6_7z00, BUNSPEC, -2);
	      BGL_DEFINE_STRING(BGl_string3085z00zz__r4_strings_6_7z00,
		BgL_bgl_string3085za700za7za7_3297za7, "&string-replace", 15);
	      BGL_DEFINE_STRING(BGl_string3086z00zz__r4_strings_6_7z00,
		BgL_bgl_string3086za700za7za7_3298za7, "&string-replace!", 16);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_emptyzd2stringzf3zd2envzf3zz__r4_strings_6_7z00,
		BgL_bgl_za762emptyza7d2strin3299z00,
		BGl_z62emptyzd2stringzf3z43zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string3087z00zz__r4_strings_6_7z00,
		BgL_bgl_string3087za700za7za7_3300za7, "_string-delete", 14);
	      BGL_DEFINE_STRING(BGl_string3088z00zz__r4_strings_6_7z00,
		BgL_bgl_string3088za700za7za7_3301za7, "string-delete", 13);
	      BGL_DEFINE_STRING(BGl_string3089z00zz__r4_strings_6_7z00,
		BgL_bgl_string3089za700za7za7_3302za7, "start index out of range", 24);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2refzd2urzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2refza73303za7,
		BGl_z62stringzd2refzd2urz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string3090z00zz__r4_strings_6_7z00,
		BgL_bgl_string3090za700za7za7_3304za7, "end index out of range", 22);
	      BGL_DEFINE_STRING(BGl_string3091z00zz__r4_strings_6_7z00,
		BgL_bgl_string3091za700za7za7_3305za7, "Illegal indices", 15);
	      BGL_DEFINE_STRING(BGl_string3092z00zz__r4_strings_6_7z00,
		BgL_bgl_string3092za700za7za7_3306za7, "Illegal char/charset/predicate",
		30);
	      BGL_DEFINE_STRING(BGl_string3093z00zz__r4_strings_6_7z00,
		BgL_bgl_string3093za700za7za7_3307za7, " \t\n", 3);
	      BGL_DEFINE_STRING(BGl_string3094z00zz__r4_strings_6_7z00,
		BgL_bgl_string3094za700za7za7_3308za7, "&string-split", 13);
	      BGL_DEFINE_STRING(BGl_string3095z00zz__r4_strings_6_7z00,
		BgL_bgl_string3095za700za7za7_3309za7, "&string-cut", 11);
	      BGL_DEFINE_STRING(BGl_string3096z00zz__r4_strings_6_7z00,
		BgL_bgl_string3096za700za7za7_3310za7, "&string-char-index-ur", 21);
	      BGL_DEFINE_STRING(BGl_string3097z00zz__r4_strings_6_7z00,
		BgL_bgl_string3097za700za7za7_3311za7, "_string-char-index", 18);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringze3zf3zd2envzc2zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7e3za7f3za73312z00,
		BGl_z62stringze3zf3z72zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string3098z00zz__r4_strings_6_7z00,
		BgL_bgl_string3098za700za7za7_3313za7, "_string-index", 13);
	      BGL_DEFINE_STRING(BGl_string3099z00zz__r4_strings_6_7z00,
		BgL_bgl_string3099za700za7za7_3314za7, "string-index", 12);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzc3zd3zf3zd2envz31zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7c3za7d3za73315z00,
		BGl_z62stringzc3zd3zf3z81zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2replacez12zd2envz12zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2repl3316z00,
		BGl_z62stringzd2replacez12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2skipzd2rightzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2skipza7d3317z00, opt_generic_entry,
		BGl__stringzd2skipzd2rightz00zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2lengthzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2leng3318z00,
		BGl_z62stringzd2lengthzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza762za7za7__3319z00, va_generic_entry,
		BGl_z62stringz62zz__r4_strings_6_7z00, BUNSPEC, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2charzd2indexzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2charza7d3320z00, opt_generic_entry,
		BGl__stringzd2charzd2indexz00zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2deletezd2envz00zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2delete3321za7, opt_generic_entry,
		BGl__stringzd2deletezd2zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2nullzf3zd2envzf3zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2null3322z00,
		BGl_z62stringzd2nullzf3z43zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_escapezd2Czd2stringzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl_za762escapeza7d2cza7d23323za7,
		BGl_z62escapezd2Czd2stringz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2cutzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2cutza73324za7, va_generic_entry,
		BGl_z62stringzd2cutzb0zz__r4_strings_6_7z00, BUNSPEC, -2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2suffixzd2cizf3zd2envz21zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2suffix3325za7, opt_generic_entry,
		BGl__stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_substringzd2urzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762substringza7d2u3326z00,
		BGl_z62substringzd2urzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_substringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00,
		BgL_bgl_za762substringza7d2c3327z00,
		BGl_z62substringzd2cizd3zf3z90zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_escapezd2schemezd2stringzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl_za762escapeza7d2sche3328z00,
		BGl_z62escapezd2schemezd2stringz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2cize3zd3zf3zd2envzc3zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2ciza7e3329za7,
		BGl_z62stringzd2cize3zd3zf3z73zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2cizc3zf3zd2envz30zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2ciza7c3330za7,
		BGl_z62stringzd2cizc3zf3z80zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2hexzd2externzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2hexza7d23331z00, opt_generic_entry,
		BGl__stringzd2hexzd2externz00zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_blitzd2stringz12zd2envz12zz__r4_strings_6_7z00,
		BgL_bgl_za762blitza7d2string3332z00,
		BGl_z62blitzd2stringz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2downcasezd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2down3333z00,
		BGl_z62stringzd2downcasezb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_listzd2ze3stringzd2envze3zz__r4_strings_6_7z00,
		BgL_bgl_za762listza7d2za7e3str3334za7,
		BGl_z62listzd2ze3stringz53zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2aszd2readzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2asza7d3335za7,
		BGl_z62stringzd2aszd2readz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzd2refzd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2refza73336za7,
		BGl_z62stringzd2refzb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2fillz12zd2envz12zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2fill3337z00,
		BGl_z62stringzd2fillz12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_stringzc3zf3zd2envze2zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7c3za7f3za73338z00,
		BGl_z62stringzc3zf3z52zz__r4_strings_6_7z00, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2prefixzf3zd2envzf3zz__r4_strings_6_7z00,
		BgL_bgl__stringza7d2prefix3339za7, opt_generic_entry,
		BGl__stringzd2prefixzf3z21zz__r4_strings_6_7z00, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2forzd2readzd2envzd2zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2forza73340za7,
		BGl_z62stringzd2forzd2readz62zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2downcasez12zd2envz12zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2down3341z00,
		BGl_z62stringzd2downcasez12za2zz__r4_strings_6_7z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_substringzd3zf3zd2envzf2zz__r4_strings_6_7z00,
		BgL_bgl_za762substringza7d3za73342za7,
		BGl_z62substringzd3zf3z42zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_stringzd2replacezd2envz00zz__r4_strings_6_7z00,
		BgL_bgl_za762stringza7d2repl3343z00,
		BGl_z62stringzd2replacezb0zz__r4_strings_6_7z00, 0L, BUNSPEC, 3);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_PROCEDURE(BGl_stringzd2replacezd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2repl3343z00);
		BGL_BIND_PROCEDURE(BGl_substringzd3zf3zd2envzf2zz__r4_strings_6_7z00,
			BgL_bgl_za762substringza7d3za73342za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2downcasez12zd2envz12zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2down3341z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2forzd2readzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2forza73340za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2prefixzf3zd2envzf3zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2prefix3339za7);
		BGL_BIND_PROCEDURE(BGl_stringzc3zf3zd2envze2zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7c3za7f3za73338z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2fillz12zd2envz12zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2fill3337z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2refzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2refza73336za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2aszd2readzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2asza7d3335za7);
		BGL_BIND_PROCEDURE(BGl_listzd2ze3stringzd2envze3zz__r4_strings_6_7z00,
			BgL_bgl_za762listza7d2za7e3str3334za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2downcasezd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2down3333z00);
		BGL_BIND_PROCEDURE(BGl_blitzd2stringz12zd2envz12zz__r4_strings_6_7z00,
			BgL_bgl_za762blitza7d2string3332z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2hexzd2externzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2hexza7d23331z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2cizc3zf3zd2envz30zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2ciza7c3330za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2cize3zd3zf3zd2envzc3zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2ciza7e3329za7);
		BGL_BIND_PROCEDURE
			(BGl_escapezd2schemezd2stringzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl_za762escapeza7d2sche3328z00);
		BGL_BIND_PROCEDURE(BGl_substringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00,
			BgL_bgl_za762substringza7d2c3327z00);
		BGL_BIND_PROCEDURE(BGl_substringzd2urzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762substringza7d2u3326z00);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2suffixzd2cizf3zd2envz21zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2suffix3325za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2cutzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2cutza73324za7);
		BGL_BIND_PROCEDURE(BGl_escapezd2Czd2stringzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl_za762escapeza7d2cza7d23323za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2nullzf3zd2envzf3zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2null3322z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2deletezd2envz00zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2delete3321za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2charzd2indexzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2charza7d3320z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza762za7za7__3319z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2lengthzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2leng3318z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2skipzd2rightzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2skipza7d3317z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2replacez12zd2envz12zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2repl3316z00);
		BGL_BIND_PROCEDURE(BGl_stringzc3zd3zf3zd2envz31zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7c3za7d3za73315z00);
		BGL_BIND_STRING(BGl_string3099z00zz__r4_strings_6_7z00,
			BgL_bgl_string3099za700za7za7_3314za7);
		BGL_BIND_STRING(BGl_string3098z00zz__r4_strings_6_7z00,
			BgL_bgl_string3098za700za7za7_3313za7);
		BGL_BIND_PROCEDURE(BGl_stringze3zf3zd2envzc2zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7e3za7f3za73312z00);
		BGL_BIND_STRING(BGl_string3097z00zz__r4_strings_6_7z00,
			BgL_bgl_string3097za700za7za7_3311za7);
		BGL_BIND_STRING(BGl_string3096z00zz__r4_strings_6_7z00,
			BgL_bgl_string3096za700za7za7_3310za7);
		BGL_BIND_STRING(BGl_string3095z00zz__r4_strings_6_7z00,
			BgL_bgl_string3095za700za7za7_3309za7);
		BGL_BIND_STRING(BGl_string3094z00zz__r4_strings_6_7z00,
			BgL_bgl_string3094za700za7za7_3308za7);
		BGL_BIND_STRING(BGl_string3093z00zz__r4_strings_6_7z00,
			BgL_bgl_string3093za700za7za7_3307za7);
		BGL_BIND_STRING(BGl_string3092z00zz__r4_strings_6_7z00,
			BgL_bgl_string3092za700za7za7_3306za7);
		BGL_BIND_STRING(BGl_string3091z00zz__r4_strings_6_7z00,
			BgL_bgl_string3091za700za7za7_3305za7);
		BGL_BIND_STRING(BGl_string3090z00zz__r4_strings_6_7z00,
			BgL_bgl_string3090za700za7za7_3304za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2refzd2urzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2refza73303za7);
		BGL_BIND_STRING(BGl_string3089z00zz__r4_strings_6_7z00,
			BgL_bgl_string3089za700za7za7_3302za7);
		BGL_BIND_STRING(BGl_string3088z00zz__r4_strings_6_7z00,
			BgL_bgl_string3088za700za7za7_3301za7);
		BGL_BIND_STRING(BGl_string3087z00zz__r4_strings_6_7z00,
			BgL_bgl_string3087za700za7za7_3300za7);
		BGL_BIND_PROCEDURE(BGl_emptyzd2stringzf3zd2envzf3zz__r4_strings_6_7z00,
			BgL_bgl_za762emptyza7d2strin3299z00);
		BGL_BIND_STRING(BGl_string3086z00zz__r4_strings_6_7z00,
			BgL_bgl_string3086za700za7za7_3298za7);
		BGL_BIND_STRING(BGl_string3085z00zz__r4_strings_6_7z00,
			BgL_bgl_string3085za700za7za7_3297za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2splitzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2spli3296z00);
		BGL_BIND_STRING(BGl_string3084z00zz__r4_strings_6_7z00,
			BgL_bgl_string3084za700za7za7_3295za7);
		BGL_BIND_STRING(BGl_string3083z00zz__r4_strings_6_7z00,
			BgL_bgl_string3083za700za7za7_3294za7);
		BGL_BIND_STRING(BGl_string3082z00zz__r4_strings_6_7z00,
			BgL_bgl_string3082za700za7za7_3293za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2cize3zf3zd2envz10zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2ciza7e3292za7);
		BGL_BIND_STRING(BGl_string3081z00zz__r4_strings_6_7z00,
			BgL_bgl_string3081za700za7za7_3291za7);
		BGL_BIND_STRING(BGl_string3080z00zz__r4_strings_6_7z00,
			BgL_bgl_string3080za700za7za7_3290za7);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2prefixzd2lengthzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2prefix3289za7);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2charzd2indexzd2urzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2char3288z00);
		BGL_BIND_STRING(BGl_string3079z00zz__r4_strings_6_7z00,
			BgL_bgl_string3079za700za7za7_3287za7);
		BGL_BIND_STRING(BGl_string3078z00zz__r4_strings_6_7z00,
			BgL_bgl_string3078za700za7za7_3286za7);
		BGL_BIND_STRING(BGl_string3077z00zz__r4_strings_6_7z00,
			BgL_bgl_string3077za700za7za7_3285za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2setz12zd2envz12zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2setza73284za7);
		BGL_BIND_STRING(BGl_string3076z00zz__r4_strings_6_7z00,
			BgL_bgl_string3076za700za7za7_3283za7);
		BGL_BIND_STRING(BGl_string3075z00zz__r4_strings_6_7z00,
			BgL_bgl_string3075za700za7za7_3282za7);
		BGL_BIND_STRING(BGl_string3074z00zz__r4_strings_6_7z00,
			BgL_bgl_string3074za700za7za7_3281za7);
		BGL_BIND_STRING(BGl_string3073z00zz__r4_strings_6_7z00,
			BgL_bgl_string3073za700za7za7_3280za7);
		BGL_BIND_STRING(BGl_string3072z00zz__r4_strings_6_7z00,
			BgL_bgl_string3072za700za7za7_3279za7);
		BGL_BIND_STRING(BGl_string3071z00zz__r4_strings_6_7z00,
			BgL_bgl_string3071za700za7za7_3278za7);
		BGL_BIND_STRING(BGl_string3152z00zz__r4_strings_6_7z00,
			BgL_bgl_string3152za700za7za7_3277za7);
		BGL_BIND_STRING(BGl_string3070z00zz__r4_strings_6_7z00,
			BgL_bgl_string3070za700za7za7_3276za7);
		BGL_BIND_STRING(BGl_string3151z00zz__r4_strings_6_7z00,
			BgL_bgl_string3151za700za7za7_3275za7);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2prefixzd2cizf3zd2envz21zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2prefix3274za7);
		BGL_BIND_STRING(BGl_string3150z00zz__r4_strings_6_7z00,
			BgL_bgl_string3150za700za7za7_3273za7);
		BGL_BIND_PROCEDURE(BGl_substringzd2atzf3zd2envzf3zz__r4_strings_6_7z00,
			BgL_bgl__substringza7d2atza73272z00);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2naturalzd2compare3zd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2natura3271za7);
		BGL_BIND_STRING(BGl_string3069z00zz__r4_strings_6_7z00,
			BgL_bgl_string3069za700za7za7_3270za7);
		BGL_BIND_STRING(BGl_string3068z00zz__r4_strings_6_7z00,
			BgL_bgl_string3068za700za7za7_3269za7);
		BGL_BIND_STRING(BGl_string3149z00zz__r4_strings_6_7z00,
			BgL_bgl_string3149za700za7za7_3268za7);
		BGL_BIND_PROCEDURE(BGl_stringze3zd3zf3zd2envz11zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7e3za7d3za73267z00);
		BGL_BIND_STRING(BGl_string3067z00zz__r4_strings_6_7z00,
			BgL_bgl_string3067za700za7za7_3266za7);
		BGL_BIND_STRING(BGl_string3148z00zz__r4_strings_6_7z00,
			BgL_bgl_string3148za700za7za7_3265za7);
		BGL_BIND_STRING(BGl_string3066z00zz__r4_strings_6_7z00,
			BgL_bgl_string3066za700za7za7_3264za7);
		BGL_BIND_STRING(BGl_string3147z00zz__r4_strings_6_7z00,
			BgL_bgl_string3147za700za7za7_3263za7);
		BGL_BIND_STRING(BGl_string3065z00zz__r4_strings_6_7z00,
			BgL_bgl_string3065za700za7za7_3262za7);
		BGL_BIND_STRING(BGl_string3146z00zz__r4_strings_6_7z00,
			BgL_bgl_string3146za700za7za7_3261za7);
		BGL_BIND_STRING(BGl_string3064z00zz__r4_strings_6_7z00,
			BgL_bgl_string3064za700za7za7_3260za7);
		BGL_BIND_STRING(BGl_string3145z00zz__r4_strings_6_7z00,
			BgL_bgl_string3145za700za7za7_3259za7);
		BGL_BIND_STRING(BGl_string3063z00zz__r4_strings_6_7z00,
			BgL_bgl_string3063za700za7za7_3258za7);
		BGL_BIND_STRING(BGl_string3144z00zz__r4_strings_6_7z00,
			BgL_bgl_string3144za700za7za7_3257za7);
		BGL_BIND_STRING(BGl_string3062z00zz__r4_strings_6_7z00,
			BgL_bgl_string3062za700za7za7_3256za7);
		BGL_BIND_STRING(BGl_string3143z00zz__r4_strings_6_7z00,
			BgL_bgl_string3143za700za7za7_3255za7);
		BGL_BIND_STRING(BGl_string3061z00zz__r4_strings_6_7z00,
			BgL_bgl_string3061za700za7za7_3254za7);
		BGL_BIND_STRING(BGl_string3142z00zz__r4_strings_6_7z00,
			BgL_bgl_string3142za700za7za7_3253za7);
		BGL_BIND_STRING(BGl_string3060z00zz__r4_strings_6_7z00,
			BgL_bgl_string3060za700za7za7_3252za7);
		BGL_BIND_STRING(BGl_string3141z00zz__r4_strings_6_7z00,
			BgL_bgl_string3141za700za7za7_3251za7);
		BGL_BIND_PROCEDURE(BGl_blitzd2stringzd2urz12zd2envzc0zz__r4_strings_6_7z00,
			BgL_bgl_za762blitza7d2string3250z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2indexzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2indexza73249z00);
		BGL_BIND_PROCEDURE(BGl_substringzd2cizd2atzf3zd2envz21zz__r4_strings_6_7z00,
			BgL_bgl__substringza7d2ciza73248z00);
		BGL_BIND_PROCEDURE(BGl_stringzf3zd2envz21zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7f3za791za73247z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2shrinkz12zd2envz12zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2shri3246z00);
		BGL_BIND_STRING(BGl_string3059z00zz__r4_strings_6_7z00,
			BgL_bgl_string3059za700za7za7_3245za7);
		BGL_BIND_STRING(BGl_string3058z00zz__r4_strings_6_7z00,
			BgL_bgl_string3058za700za7za7_3244za7);
		BGL_BIND_STRING(BGl_string3139z00zz__r4_strings_6_7z00,
			BgL_bgl_string3139za700za7za7_3243za7);
		BGL_BIND_STRING(BGl_string3057z00zz__r4_strings_6_7z00,
			BgL_bgl_string3057za700za7za7_3242za7);
		BGL_BIND_STRING(BGl_string3138z00zz__r4_strings_6_7z00,
			BgL_bgl_string3138za700za7za7_3241za7);
		BGL_BIND_STRING(BGl_string3056z00zz__r4_strings_6_7z00,
			BgL_bgl_string3056za700za7za7_3240za7);
		BGL_BIND_STRING(BGl_string3137z00zz__r4_strings_6_7z00,
			BgL_bgl_string3137za700za7za7_3239za7);
		BGL_BIND_STRING(BGl_string3055z00zz__r4_strings_6_7z00,
			BgL_bgl_string3055za700za7za7_3238za7);
		BGL_BIND_STRING(BGl_string3136z00zz__r4_strings_6_7z00,
			BgL_bgl_string3136za700za7za7_3237za7);
		BGL_BIND_STRING(BGl_string3054z00zz__r4_strings_6_7z00,
			BgL_bgl_string3054za700za7za7_3236za7);
		BGL_BIND_STRING(BGl_string3053z00zz__r4_strings_6_7z00,
			BgL_bgl_string3053za700za7za7_3235za7);
		BGL_BIND_STRING(BGl_string3134z00zz__r4_strings_6_7z00,
			BgL_bgl_string3134za700za7za7_3234za7);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2capitaliza7ez12zd2envzb5zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2capi3233z00);
		BGL_BIND_STRING(BGl_string3052z00zz__r4_strings_6_7z00,
			BgL_bgl_string3052za700za7za7_3232za7);
		BGL_BIND_STRING(BGl_string3133z00zz__r4_strings_6_7z00,
			BgL_bgl_string3133za700za7za7_3231za7);
		BGL_BIND_STRING(BGl_string3051z00zz__r4_strings_6_7z00,
			BgL_bgl_string3051za700za7za7_3230za7);
		BGL_BIND_STRING(BGl_string3050z00zz__r4_strings_6_7z00,
			BgL_bgl_string3050za700za7za7_3229za7);
		BGL_BIND_STRING(BGl_string3131z00zz__r4_strings_6_7z00,
			BgL_bgl_string3131za700za7za7_3228za7);
		BGL_BIND_STRING(BGl_string3130z00zz__r4_strings_6_7z00,
			BgL_bgl_string3130za700za7za7_3227za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2containszd2cizd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2contai3226za7);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2naturalzd2compare3zd2cizd2envz00zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2natura3225za7);
		BGL_BIND_PROCEDURE(BGl_stringzd3zf3zd2envzf2zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d3za7f3za73224z00);
		BGL_BIND_STRING(BGl_string3049z00zz__r4_strings_6_7z00,
			BgL_bgl_string3049za700za7za7_3223za7);
		BGL_BIND_STRING(BGl_string3048z00zz__r4_strings_6_7z00,
			BgL_bgl_string3048za700za7za7_3222za7);
		BGL_BIND_STRING(BGl_string3047z00zz__r4_strings_6_7z00,
			BgL_bgl_string3047za700za7za7_3221za7);
		BGL_BIND_STRING(BGl_string3128z00zz__r4_strings_6_7z00,
			BgL_bgl_string3128za700za7za7_3220za7);
		BGL_BIND_STRING(BGl_string3046z00zz__r4_strings_6_7z00,
			BgL_bgl_string3046za700za7za7_3219za7);
		BGL_BIND_STRING(BGl_string3127z00zz__r4_strings_6_7z00,
			BgL_bgl_string3127za700za7za7_3218za7);
		BGL_BIND_STRING(BGl_string3045z00zz__r4_strings_6_7z00,
			BgL_bgl_string3045za700za7za7_3217za7);
		BGL_BIND_STRING(BGl_string3044z00zz__r4_strings_6_7z00,
			BgL_bgl_string3044za700za7za7_3216za7);
		BGL_BIND_STRING(BGl_string3125z00zz__r4_strings_6_7z00,
			BgL_bgl_string3125za700za7za7_3215za7);
		BGL_BIND_STRING(BGl_string3043z00zz__r4_strings_6_7z00,
			BgL_bgl_string3043za700za7za7_3214za7);
		BGL_BIND_STRING(BGl_string3124z00zz__r4_strings_6_7z00,
			BgL_bgl_string3124za700za7za7_3213za7);
		BGL_BIND_STRING(BGl_string3042z00zz__r4_strings_6_7z00,
			BgL_bgl_string3042za700za7za7_3212za7);
		BGL_BIND_STRING(BGl_string3041z00zz__r4_strings_6_7z00,
			BgL_bgl_string3041za700za7za7_3211za7);
		BGL_BIND_STRING(BGl_string3122z00zz__r4_strings_6_7z00,
			BgL_bgl_string3122za700za7za7_3210za7);
		BGL_BIND_STRING(BGl_string3040z00zz__r4_strings_6_7z00,
			BgL_bgl_string3040za700za7za7_3209za7);
		BGL_BIND_STRING(BGl_string3121z00zz__r4_strings_6_7z00,
			BgL_bgl_string3121za700za7za7_3208za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2indexzd2rightzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2indexza73207z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2containszd2envz00zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2contai3206za7);
		BGL_BIND_PROCEDURE(BGl_substringzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl__substringza700za7za7_3205za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2appendzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2appe3204z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2compare3zd2cizd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2comp3203z00);
		BGL_BIND_STRING(BGl_string3039z00zz__r4_strings_6_7z00,
			BgL_bgl_string3039za700za7za7_3202za7);
		BGL_BIND_STRING(BGl_string3038z00zz__r4_strings_6_7z00,
			BgL_bgl_string3038za700za7za7_3201za7);
		BGL_BIND_STRING(BGl_string3119z00zz__r4_strings_6_7z00,
			BgL_bgl_string3119za700za7za7_3200za7);
		BGL_BIND_STRING(BGl_string3037z00zz__r4_strings_6_7z00,
			BgL_bgl_string3037za700za7za7_3199za7);
		BGL_BIND_STRING(BGl_string3118z00zz__r4_strings_6_7z00,
			BgL_bgl_string3118za700za7za7_3198za7);
		BGL_BIND_STRING(BGl_string3036z00zz__r4_strings_6_7z00,
			BgL_bgl_string3036za700za7za7_3197za7);
		BGL_BIND_STRING(BGl_string3117z00zz__r4_strings_6_7z00,
			BgL_bgl_string3117za700za7za7_3196za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2cizd3zf3zd2envz20zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2ciza7d3195za7);
		BGL_BIND_STRING(BGl_string3035z00zz__r4_strings_6_7z00,
			BgL_bgl_string3035za700za7za7_3194za7);
		BGL_BIND_STRING(BGl_string3116z00zz__r4_strings_6_7z00,
			BgL_bgl_string3116za700za7za7_3193za7);
		BGL_BIND_STRING(BGl_string3034z00zz__r4_strings_6_7z00,
			BgL_bgl_string3034za700za7za7_3192za7);
		BGL_BIND_STRING(BGl_string3115z00zz__r4_strings_6_7z00,
			BgL_bgl_string3115za700za7za7_3191za7);
		BGL_BIND_STRING(BGl_string3033z00zz__r4_strings_6_7z00,
			BgL_bgl_string3033za700za7za7_3190za7);
		BGL_BIND_STRING(BGl_string3114z00zz__r4_strings_6_7z00,
			BgL_bgl_string3114za700za7za7_3189za7);
		BGL_BIND_STRING(BGl_string3032z00zz__r4_strings_6_7z00,
			BgL_bgl_string3032za700za7za7_3188za7);
		BGL_BIND_STRING(BGl_string3113z00zz__r4_strings_6_7z00,
			BgL_bgl_string3113za700za7za7_3187za7);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2suffixzd2lengthzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2suffix3186za7);
		BGL_BIND_STRING(BGl_string3031z00zz__r4_strings_6_7z00,
			BgL_bgl_string3031za700za7za7_3185za7);
		BGL_BIND_STRING(BGl_string3112z00zz__r4_strings_6_7z00,
			BgL_bgl_string3112za700za7za7_3184za7);
		BGL_BIND_STRING(BGl_string3030z00zz__r4_strings_6_7z00,
			BgL_bgl_string3030za700za7za7_3183za7);
		BGL_BIND_STRING(BGl_string3111z00zz__r4_strings_6_7z00,
			BgL_bgl_string3111za700za7za7_3182za7);
		BGL_BIND_STRING(BGl_string3110z00zz__r4_strings_6_7z00,
			BgL_bgl_string3110za700za7za7_3181za7);
		BGL_BIND_PROCEDURE(BGl_makezd2stringzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl__makeza7d2stringza7d3180z00);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2suffixzd2lengthzd2cizd2envz00zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2suffix3179za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2ze3listzd2envze3zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2za7e3l3178za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2skipzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2skipza7d3177z00);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2prefixzd2lengthzd2cizd2envz00zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2prefix3176za7);
		BGL_BIND_STRING(BGl_string3029z00zz__r4_strings_6_7z00,
			BgL_bgl_string3029za700za7za7_3175za7);
		BGL_BIND_STRING(BGl_string3028z00zz__r4_strings_6_7z00,
			BgL_bgl_string3028za700za7za7_3174za7);
		BGL_BIND_STRING(BGl_string3109z00zz__r4_strings_6_7z00,
			BgL_bgl_string3109za700za7za7_3173za7);
		BGL_BIND_STRING(BGl_string3027z00zz__r4_strings_6_7z00,
			BgL_bgl_string3027za700za7za7_3172za7);
		BGL_BIND_STRING(BGl_string3026z00zz__r4_strings_6_7z00,
			BgL_bgl_string3026za700za7za7_3171za7);
		BGL_BIND_STRING(BGl_string3107z00zz__r4_strings_6_7z00,
			BgL_bgl_string3107za700za7za7_3170za7);
		BGL_BIND_STRING(BGl_string3106z00zz__r4_strings_6_7z00,
			BgL_bgl_string3106za700za7za7_3169za7);
		BGL_BIND_STRING(BGl_string3105z00zz__r4_strings_6_7z00,
			BgL_bgl_string3105za700za7za7_3168za7);
		BGL_BIND_STRING(BGl_string3104z00zz__r4_strings_6_7z00,
			BgL_bgl_string3104za700za7za7_3167za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2cizc3zd3zf3zd2envze3zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2ciza7c3166za7);
		BGL_BIND_STRING(BGl_string3103z00zz__r4_strings_6_7z00,
			BgL_bgl_string3103za700za7za7_3165za7);
		BGL_BIND_PROCEDURE
			(BGl_stringzd2hexzd2internz12zd2envzc0zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2hexza73164za7);
		BGL_BIND_STRING(BGl_string3102z00zz__r4_strings_6_7z00,
			BgL_bgl_string3102za700za7za7_3163za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2hexzd2internzd2envzd2zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2hexza73162za7);
		BGL_BIND_STRING(BGl_string3101z00zz__r4_strings_6_7z00,
			BgL_bgl_string3101za700za7za7_3161za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2setzd2urz12zd2envzc0zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2setza73160za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2upcasezd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2upca3159z00);
		BGL_BIND_STRING(BGl_string3100z00zz__r4_strings_6_7z00,
			BgL_bgl_string3100za700za7za7_3158za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2copyzd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2copy3157z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2compare3zd2envz00zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2comp3156z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2suffixzf3zd2envzf3zz__r4_strings_6_7z00,
			BgL_bgl__stringza7d2suffix3155za7);
		BGL_BIND_PROCEDURE(BGl_stringzd2capitaliza7ezd2envza7zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2capi3154z00);
		BGL_BIND_PROCEDURE(BGl_stringzd2upcasez12zd2envz12zz__r4_strings_6_7z00,
			BgL_bgl_za762stringza7d2upca3153z00);
	}

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;

		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__r4_strings_6_7z00));
		ADD_ROOT((void *) (&BGl_symbol3108z00zz__r4_strings_6_7z00));
		ADD_ROOT((void *) (&BGl_symbol3120z00zz__r4_strings_6_7z00));
		ADD_ROOT((void *) (&BGl_symbol3123z00zz__r4_strings_6_7z00));
		ADD_ROOT((void *) (&BGl_symbol3126z00zz__r4_strings_6_7z00));
		ADD_ROOT((void *) (&BGl_symbol3129z00zz__r4_strings_6_7z00));
		ADD_ROOT((void *) (&BGl_symbol3132z00zz__r4_strings_6_7z00));
		ADD_ROOT((void *) (&BGl_symbol3135z00zz__r4_strings_6_7z00));
		ADD_ROOT((void *) (&BGl_symbol3140z00zz__r4_strings_6_7z00));
#undef ADD_ROOT
		if (roots_max > 0)
			GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		return BUNSPEC;
	}



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

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__r4_strings_6_7z00(void)
	{
		{	/* Ieee/string.scm 18 */
			BGl_symbol3108z00zz__r4_strings_6_7z00 =
				bstring_to_symbol(BGl_string3109z00zz__r4_strings_6_7z00);
			BGl_symbol3120z00zz__r4_strings_6_7z00 =
				bstring_to_symbol(BGl_string3121z00zz__r4_strings_6_7z00);
			BGl_symbol3123z00zz__r4_strings_6_7z00 =
				bstring_to_symbol(BGl_string3124z00zz__r4_strings_6_7z00);
			BGl_symbol3126z00zz__r4_strings_6_7z00 =
				bstring_to_symbol(BGl_string3127z00zz__r4_strings_6_7z00);
			BGl_symbol3129z00zz__r4_strings_6_7z00 =
				bstring_to_symbol(BGl_string3130z00zz__r4_strings_6_7z00);
			BGl_symbol3132z00zz__r4_strings_6_7z00 =
				bstring_to_symbol(BGl_string3133z00zz__r4_strings_6_7z00);
			BGl_symbol3135z00zz__r4_strings_6_7z00 =
				bstring_to_symbol(BGl_string3136z00zz__r4_strings_6_7z00);
			return (BGl_symbol3140z00zz__r4_strings_6_7z00 =
				bstring_to_symbol(BGl_string3141z00zz__r4_strings_6_7z00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__r4_strings_6_7z00(void)
	{
		{	/* Ieee/string.scm 18 */
			return bgl_gc_roots_register();
		}

	}



/* string? */
	BGL_EXPORTED_DEF bool_t BGl_stringzf3zf3zz__r4_strings_6_7z00(obj_t
		BgL_objz00_3)
	{
		{	/* Ieee/string.scm 300 */
			return STRINGP(BgL_objz00_3);
		}

	}



/* &string? */
	obj_t BGl_z62stringzf3z91zz__r4_strings_6_7z00(obj_t BgL_envz00_4355,
		obj_t BgL_objz00_4356)
	{
		{	/* Ieee/string.scm 300 */
			return BBOOL(BGl_stringzf3zf3zz__r4_strings_6_7z00(BgL_objz00_4356));
		}

	}



/* string-null? */
	BGL_EXPORTED_DEF bool_t BGl_stringzd2nullzf3z21zz__r4_strings_6_7z00(obj_t
		BgL_strz00_4)
	{
		{	/* Ieee/string.scm 306 */
			return (STRING_LENGTH(BgL_strz00_4) == 0L);
		}

	}



/* &string-null? */
	obj_t BGl_z62stringzd2nullzf3z43zz__r4_strings_6_7z00(obj_t BgL_envz00_4357,
		obj_t BgL_strz00_4358)
	{
		{	/* Ieee/string.scm 306 */
			{	/* Ieee/string.scm 307 */
				bool_t BgL_tmpz00_5379;

				{	/* Ieee/string.scm 307 */
					obj_t BgL_auxz00_5380;

					if (STRINGP(BgL_strz00_4358))
						{	/* Ieee/string.scm 307 */
							BgL_auxz00_5380 = BgL_strz00_4358;
						}
					else
						{
							obj_t BgL_auxz00_5383;

							BgL_auxz00_5383 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(15062L),
								BGl_string3027z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_strz00_4358);
							FAILURE(BgL_auxz00_5383, BFALSE, BFALSE);
						}
					BgL_tmpz00_5379 =
						BGl_stringzd2nullzf3z21zz__r4_strings_6_7z00(BgL_auxz00_5380);
				}
				return BBOOL(BgL_tmpz00_5379);
			}
		}

	}



/* _make-string */
	obj_t BGl__makezd2stringzd2zz__r4_strings_6_7z00(obj_t BgL_env1093z00_8,
		obj_t BgL_opt1092z00_7)
	{
		{	/* Ieee/string.scm 312 */
			{	/* Ieee/string.scm 312 */
				obj_t BgL_g1094z00_5323;

				{
					obj_t BgL_auxz00_5389;

					if (VECTORP(BgL_opt1092z00_7))
						{	/* Ieee/string.scm 312 */
							BgL_auxz00_5389 = BgL_opt1092z00_7;
						}
					else
						{
							obj_t BgL_auxz00_5392;

							BgL_auxz00_5392 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(15309L),
								BGl_string3029z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1092z00_7);
							FAILURE(BgL_auxz00_5392, BFALSE, BFALSE);
						}
					BgL_g1094z00_5323 = VECTOR_REF(BgL_auxz00_5389, 0L);
				}
				{	/* Ieee/string.scm 312 */
					long BgL_aux1096z00_5324;

					{
						obj_t BgL_auxz00_5397;

						if (VECTORP(BgL_opt1092z00_7))
							{	/* Ieee/string.scm 312 */
								BgL_auxz00_5397 = BgL_opt1092z00_7;
							}
						else
							{
								obj_t BgL_auxz00_5400;

								BgL_auxz00_5400 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(15309L),
									BGl_string3029z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1092z00_7);
								FAILURE(BgL_auxz00_5400, BFALSE, BFALSE);
							}
						BgL_aux1096z00_5324 = VECTOR_LENGTH(BgL_auxz00_5397);
					}
					switch (BgL_aux1096z00_5324)
						{
						case 1L:

							{	/* Ieee/string.scm 312 */

								{	/* Ieee/string.scm 312 */
									long BgL_kz00_5325;

									{	/* Ieee/string.scm 312 */
										obj_t BgL_tmpz00_5405;

										if (INTEGERP(BgL_g1094z00_5323))
											{	/* Ieee/string.scm 312 */
												BgL_tmpz00_5405 = BgL_g1094z00_5323;
											}
										else
											{
												obj_t BgL_auxz00_5408;

												BgL_auxz00_5408 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(15309L),
													BGl_string3029z00zz__r4_strings_6_7z00,
													BGl_string3031z00zz__r4_strings_6_7z00,
													BgL_g1094z00_5323);
												FAILURE(BgL_auxz00_5408, BFALSE, BFALSE);
											}
										BgL_kz00_5325 = (long) CINT(BgL_tmpz00_5405);
									}
									return make_string(BgL_kz00_5325, ((unsigned char) ' '));
							}} break;
						case 2L:

							{	/* Ieee/string.scm 312 */
								obj_t BgL_charz00_5326;

								{
									obj_t BgL_auxz00_5414;

									if (VECTORP(BgL_opt1092z00_7))
										{	/* Ieee/string.scm 312 */
											BgL_auxz00_5414 = BgL_opt1092z00_7;
										}
									else
										{
											obj_t BgL_auxz00_5417;

											BgL_auxz00_5417 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(15309L),
												BGl_string3029z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1092z00_7);
											FAILURE(BgL_auxz00_5417, BFALSE, BFALSE);
										}
									BgL_charz00_5326 = VECTOR_REF(BgL_auxz00_5414, 1L);
								}
								{	/* Ieee/string.scm 312 */

									{	/* Ieee/string.scm 312 */
										long BgL_kz00_5327;

										{	/* Ieee/string.scm 312 */
											obj_t BgL_tmpz00_5422;

											if (INTEGERP(BgL_g1094z00_5323))
												{	/* Ieee/string.scm 312 */
													BgL_tmpz00_5422 = BgL_g1094z00_5323;
												}
											else
												{
													obj_t BgL_auxz00_5425;

													BgL_auxz00_5425 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(15309L),
														BGl_string3029z00zz__r4_strings_6_7z00,
														BGl_string3031z00zz__r4_strings_6_7z00,
														BgL_g1094z00_5323);
													FAILURE(BgL_auxz00_5425, BFALSE, BFALSE);
												}
											BgL_kz00_5327 = (long) CINT(BgL_tmpz00_5422);
										}
										{	/* Ieee/string.scm 313 */
											unsigned char BgL_tmpz00_5430;

											{	/* Ieee/string.scm 313 */
												obj_t BgL_tmpz00_5431;

												if (CHARP(BgL_charz00_5326))
													{	/* Ieee/string.scm 313 */
														BgL_tmpz00_5431 = BgL_charz00_5326;
													}
												else
													{
														obj_t BgL_auxz00_5434;

														BgL_auxz00_5434 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(15385L),
															BGl_string3029z00zz__r4_strings_6_7z00,
															BGl_string3032z00zz__r4_strings_6_7z00,
															BgL_charz00_5326);
														FAILURE(BgL_auxz00_5434, BFALSE, BFALSE);
													}
												BgL_tmpz00_5430 = CCHAR(BgL_tmpz00_5431);
											}
											return make_string(BgL_kz00_5327, BgL_tmpz00_5430);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* make-string */
	BGL_EXPORTED_DEF obj_t BGl_makezd2stringzd2zz__r4_strings_6_7z00(long
		BgL_kz00_5, obj_t BgL_charz00_6)
	{
		{	/* Ieee/string.scm 312 */
			return make_string(BgL_kz00_5, CCHAR(BgL_charz00_6));
		}

	}



/* string */
	BGL_EXPORTED_DEF obj_t BGl_stringz00zz__r4_strings_6_7z00(obj_t
		BgL_charsz00_9)
	{
		{	/* Ieee/string.scm 318 */
			return BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_charsz00_9);
		}

	}



/* &string */
	obj_t BGl_z62stringz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4359,
		obj_t BgL_charsz00_4360)
	{
		{	/* Ieee/string.scm 318 */
			return BGl_stringz00zz__r4_strings_6_7z00(BgL_charsz00_4360);
		}

	}



/* string-length */
	BGL_EXPORTED_DEF long BGl_stringzd2lengthzd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_10)
	{
		{	/* Ieee/string.scm 324 */
			return STRING_LENGTH(BgL_stringz00_10);
		}

	}



/* &string-length */
	obj_t BGl_z62stringzd2lengthzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4361,
		obj_t BgL_stringz00_4362)
	{
		{	/* Ieee/string.scm 324 */
			{	/* Ieee/string.scm 325 */
				long BgL_tmpz00_5446;

				{	/* Ieee/string.scm 325 */
					obj_t BgL_auxz00_5447;

					if (STRINGP(BgL_stringz00_4362))
						{	/* Ieee/string.scm 325 */
							BgL_auxz00_5447 = BgL_stringz00_4362;
						}
					else
						{
							obj_t BgL_auxz00_5450;

							BgL_auxz00_5450 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(15937L),
								BGl_string3033z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4362);
							FAILURE(BgL_auxz00_5450, BFALSE, BFALSE);
						}
					BgL_tmpz00_5446 =
						BGl_stringzd2lengthzd2zz__r4_strings_6_7z00(BgL_auxz00_5447);
				}
				return BINT(BgL_tmpz00_5446);
			}
		}

	}



/* string-ref */
	BGL_EXPORTED_DEF unsigned char BGl_stringzd2refzd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_11, long BgL_kz00_12)
	{
		{	/* Ieee/string.scm 330 */
			return STRING_REF(BgL_stringz00_11, BgL_kz00_12);
		}

	}



/* &string-ref */
	obj_t BGl_z62stringzd2refzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4363,
		obj_t BgL_stringz00_4364, obj_t BgL_kz00_4365)
	{
		{	/* Ieee/string.scm 330 */
			{	/* Ieee/string.scm 331 */
				unsigned char BgL_tmpz00_5457;

				{	/* Ieee/string.scm 331 */
					long BgL_auxz00_5465;
					obj_t BgL_auxz00_5458;

					{	/* Ieee/string.scm 331 */
						obj_t BgL_tmpz00_5466;

						if (INTEGERP(BgL_kz00_4365))
							{	/* Ieee/string.scm 331 */
								BgL_tmpz00_5466 = BgL_kz00_4365;
							}
						else
							{
								obj_t BgL_auxz00_5469;

								BgL_auxz00_5469 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(16225L),
									BGl_string3034z00zz__r4_strings_6_7z00,
									BGl_string3031z00zz__r4_strings_6_7z00, BgL_kz00_4365);
								FAILURE(BgL_auxz00_5469, BFALSE, BFALSE);
							}
						BgL_auxz00_5465 = (long) CINT(BgL_tmpz00_5466);
					}
					if (STRINGP(BgL_stringz00_4364))
						{	/* Ieee/string.scm 331 */
							BgL_auxz00_5458 = BgL_stringz00_4364;
						}
					else
						{
							obj_t BgL_auxz00_5461;

							BgL_auxz00_5461 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(16225L),
								BGl_string3034z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4364);
							FAILURE(BgL_auxz00_5461, BFALSE, BFALSE);
						}
					BgL_tmpz00_5457 =
						BGl_stringzd2refzd2zz__r4_strings_6_7z00(BgL_auxz00_5458,
						BgL_auxz00_5465);
				}
				return BCHAR(BgL_tmpz00_5457);
			}
		}

	}



/* string-set! */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2setz12zc0zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_13, long BgL_kz00_14, unsigned char BgL_charz00_15)
	{
		{	/* Ieee/string.scm 336 */
			return STRING_SET(BgL_stringz00_13, BgL_kz00_14, BgL_charz00_15);
		}

	}



/* &string-set! */
	obj_t BGl_z62stringzd2setz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4366,
		obj_t BgL_stringz00_4367, obj_t BgL_kz00_4368, obj_t BgL_charz00_4369)
	{
		{	/* Ieee/string.scm 336 */
			{	/* Ieee/string.scm 337 */
				unsigned char BgL_auxz00_5493;
				long BgL_auxz00_5484;
				obj_t BgL_auxz00_5477;

				{	/* Ieee/string.scm 337 */
					obj_t BgL_tmpz00_5494;

					if (CHARP(BgL_charz00_4369))
						{	/* Ieee/string.scm 337 */
							BgL_tmpz00_5494 = BgL_charz00_4369;
						}
					else
						{
							obj_t BgL_auxz00_5497;

							BgL_auxz00_5497 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(16519L),
								BGl_string3035z00zz__r4_strings_6_7z00,
								BGl_string3032z00zz__r4_strings_6_7z00, BgL_charz00_4369);
							FAILURE(BgL_auxz00_5497, BFALSE, BFALSE);
						}
					BgL_auxz00_5493 = CCHAR(BgL_tmpz00_5494);
				}
				{	/* Ieee/string.scm 337 */
					obj_t BgL_tmpz00_5485;

					if (INTEGERP(BgL_kz00_4368))
						{	/* Ieee/string.scm 337 */
							BgL_tmpz00_5485 = BgL_kz00_4368;
						}
					else
						{
							obj_t BgL_auxz00_5488;

							BgL_auxz00_5488 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(16519L),
								BGl_string3035z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_kz00_4368);
							FAILURE(BgL_auxz00_5488, BFALSE, BFALSE);
						}
					BgL_auxz00_5484 = (long) CINT(BgL_tmpz00_5485);
				}
				if (STRINGP(BgL_stringz00_4367))
					{	/* Ieee/string.scm 337 */
						BgL_auxz00_5477 = BgL_stringz00_4367;
					}
				else
					{
						obj_t BgL_auxz00_5480;

						BgL_auxz00_5480 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(16519L),
							BGl_string3035z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4367);
						FAILURE(BgL_auxz00_5480, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2setz12zc0zz__r4_strings_6_7z00(BgL_auxz00_5477,
					BgL_auxz00_5484, BgL_auxz00_5493);
			}
		}

	}



/* string-ref-ur */
	BGL_EXPORTED_DEF unsigned char
		BGl_stringzd2refzd2urz00zz__r4_strings_6_7z00(obj_t BgL_stringz00_16,
		long BgL_kz00_17)
	{
		{	/* Ieee/string.scm 342 */
			return STRING_REF(BgL_stringz00_16, BgL_kz00_17);
		}

	}



/* &string-ref-ur */
	obj_t BGl_z62stringzd2refzd2urz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4370,
		obj_t BgL_stringz00_4371, obj_t BgL_kz00_4372)
	{
		{	/* Ieee/string.scm 342 */
			{	/* Ieee/string.scm 343 */
				unsigned char BgL_tmpz00_5504;

				{	/* Ieee/string.scm 343 */
					long BgL_auxz00_5512;
					obj_t BgL_auxz00_5505;

					{	/* Ieee/string.scm 343 */
						obj_t BgL_tmpz00_5513;

						if (INTEGERP(BgL_kz00_4372))
							{	/* Ieee/string.scm 343 */
								BgL_tmpz00_5513 = BgL_kz00_4372;
							}
						else
							{
								obj_t BgL_auxz00_5516;

								BgL_auxz00_5516 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(16815L),
									BGl_string3036z00zz__r4_strings_6_7z00,
									BGl_string3031z00zz__r4_strings_6_7z00, BgL_kz00_4372);
								FAILURE(BgL_auxz00_5516, BFALSE, BFALSE);
							}
						BgL_auxz00_5512 = (long) CINT(BgL_tmpz00_5513);
					}
					if (STRINGP(BgL_stringz00_4371))
						{	/* Ieee/string.scm 343 */
							BgL_auxz00_5505 = BgL_stringz00_4371;
						}
					else
						{
							obj_t BgL_auxz00_5508;

							BgL_auxz00_5508 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(16815L),
								BGl_string3036z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4371);
							FAILURE(BgL_auxz00_5508, BFALSE, BFALSE);
						}
					BgL_tmpz00_5504 =
						BGl_stringzd2refzd2urz00zz__r4_strings_6_7z00(BgL_auxz00_5505,
						BgL_auxz00_5512);
				}
				return BCHAR(BgL_tmpz00_5504);
			}
		}

	}



/* string-set-ur! */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2setzd2urz12z12zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_18, long BgL_kz00_19, unsigned char BgL_charz00_20)
	{
		{	/* Ieee/string.scm 348 */
			return STRING_SET(BgL_stringz00_18, BgL_kz00_19, BgL_charz00_20);
		}

	}



/* &string-set-ur! */
	obj_t BGl_z62stringzd2setzd2urz12z70zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4373, obj_t BgL_stringz00_4374, obj_t BgL_kz00_4375,
		obj_t BgL_charz00_4376)
	{
		{	/* Ieee/string.scm 348 */
			{	/* Ieee/string.scm 349 */
				unsigned char BgL_auxz00_5540;
				long BgL_auxz00_5531;
				obj_t BgL_auxz00_5524;

				{	/* Ieee/string.scm 349 */
					obj_t BgL_tmpz00_5541;

					if (CHARP(BgL_charz00_4376))
						{	/* Ieee/string.scm 349 */
							BgL_tmpz00_5541 = BgL_charz00_4376;
						}
					else
						{
							obj_t BgL_auxz00_5544;

							BgL_auxz00_5544 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(17112L),
								BGl_string3037z00zz__r4_strings_6_7z00,
								BGl_string3032z00zz__r4_strings_6_7z00, BgL_charz00_4376);
							FAILURE(BgL_auxz00_5544, BFALSE, BFALSE);
						}
					BgL_auxz00_5540 = CCHAR(BgL_tmpz00_5541);
				}
				{	/* Ieee/string.scm 349 */
					obj_t BgL_tmpz00_5532;

					if (INTEGERP(BgL_kz00_4375))
						{	/* Ieee/string.scm 349 */
							BgL_tmpz00_5532 = BgL_kz00_4375;
						}
					else
						{
							obj_t BgL_auxz00_5535;

							BgL_auxz00_5535 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(17112L),
								BGl_string3037z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_kz00_4375);
							FAILURE(BgL_auxz00_5535, BFALSE, BFALSE);
						}
					BgL_auxz00_5531 = (long) CINT(BgL_tmpz00_5532);
				}
				if (STRINGP(BgL_stringz00_4374))
					{	/* Ieee/string.scm 349 */
						BgL_auxz00_5524 = BgL_stringz00_4374;
					}
				else
					{
						obj_t BgL_auxz00_5527;

						BgL_auxz00_5527 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(17112L),
							BGl_string3037z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4374);
						FAILURE(BgL_auxz00_5527, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2setzd2urz12z12zz__r4_strings_6_7z00(BgL_auxz00_5524,
					BgL_auxz00_5531, BgL_auxz00_5540);
			}
		}

	}



/* string=? */
	BGL_EXPORTED_DEF bool_t BGl_stringzd3zf3z20zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_21, obj_t BgL_string2z00_22)
	{
		{	/* Ieee/string.scm 354 */
			{	/* Ieee/string.scm 357 */
				long BgL_l1z00_5328;

				BgL_l1z00_5328 = STRING_LENGTH(BgL_string1z00_21);
				if ((BgL_l1z00_5328 == STRING_LENGTH(BgL_string2z00_22)))
					{	/* Ieee/string.scm 359 */
						int BgL_arg1226z00_5329;

						{	/* Ieee/string.scm 359 */
							char *BgL_auxz00_5556;
							char *BgL_tmpz00_5554;

							BgL_auxz00_5556 = BSTRING_TO_STRING(BgL_string2z00_22);
							BgL_tmpz00_5554 = BSTRING_TO_STRING(BgL_string1z00_21);
							BgL_arg1226z00_5329 =
								memcmp(BgL_tmpz00_5554, BgL_auxz00_5556, BgL_l1z00_5328);
						}
						return ((long) (BgL_arg1226z00_5329) == 0L);
					}
				else
					{	/* Ieee/string.scm 358 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &string=? */
	obj_t BGl_z62stringzd3zf3z42zz__r4_strings_6_7z00(obj_t BgL_envz00_4377,
		obj_t BgL_string1z00_4378, obj_t BgL_string2z00_4379)
	{
		{	/* Ieee/string.scm 354 */
			{	/* Ieee/string.scm 357 */
				bool_t BgL_tmpz00_5561;

				{	/* Ieee/string.scm 357 */
					obj_t BgL_auxz00_5569;
					obj_t BgL_auxz00_5562;

					if (STRINGP(BgL_string2z00_4379))
						{	/* Ieee/string.scm 357 */
							BgL_auxz00_5569 = BgL_string2z00_4379;
						}
					else
						{
							obj_t BgL_auxz00_5572;

							BgL_auxz00_5572 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(17446L),
								BGl_string3038z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4379);
							FAILURE(BgL_auxz00_5572, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4378))
						{	/* Ieee/string.scm 357 */
							BgL_auxz00_5562 = BgL_string1z00_4378;
						}
					else
						{
							obj_t BgL_auxz00_5565;

							BgL_auxz00_5565 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(17446L),
								BGl_string3038z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4378);
							FAILURE(BgL_auxz00_5565, BFALSE, BFALSE);
						}
					BgL_tmpz00_5561 =
						BGl_stringzd3zf3z20zz__r4_strings_6_7z00(BgL_auxz00_5562,
						BgL_auxz00_5569);
				}
				return BBOOL(BgL_tmpz00_5561);
			}
		}

	}



/* substring=? */
	BGL_EXPORTED_DEF bool_t BGl_substringzd3zf3z20zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_23, obj_t BgL_string2z00_24, long BgL_lenz00_25)
	{
		{	/* Ieee/string.scm 368 */
			BGL_TAIL return
				bigloo_strncmp(BgL_string1z00_23, BgL_string2z00_24, BgL_lenz00_25);
		}

	}



/* &substring=? */
	obj_t BGl_z62substringzd3zf3z42zz__r4_strings_6_7z00(obj_t BgL_envz00_4380,
		obj_t BgL_string1z00_4381, obj_t BgL_string2z00_4382, obj_t BgL_lenz00_4383)
	{
		{	/* Ieee/string.scm 368 */
			{	/* Ieee/string.scm 369 */
				bool_t BgL_tmpz00_5579;

				{	/* Ieee/string.scm 369 */
					long BgL_auxz00_5594;
					obj_t BgL_auxz00_5587;
					obj_t BgL_auxz00_5580;

					{	/* Ieee/string.scm 369 */
						obj_t BgL_tmpz00_5595;

						if (INTEGERP(BgL_lenz00_4383))
							{	/* Ieee/string.scm 369 */
								BgL_tmpz00_5595 = BgL_lenz00_4383;
							}
						else
							{
								obj_t BgL_auxz00_5598;

								BgL_auxz00_5598 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(17949L),
									BGl_string3039z00zz__r4_strings_6_7z00,
									BGl_string3031z00zz__r4_strings_6_7z00, BgL_lenz00_4383);
								FAILURE(BgL_auxz00_5598, BFALSE, BFALSE);
							}
						BgL_auxz00_5594 = (long) CINT(BgL_tmpz00_5595);
					}
					if (STRINGP(BgL_string2z00_4382))
						{	/* Ieee/string.scm 369 */
							BgL_auxz00_5587 = BgL_string2z00_4382;
						}
					else
						{
							obj_t BgL_auxz00_5590;

							BgL_auxz00_5590 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(17949L),
								BGl_string3039z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4382);
							FAILURE(BgL_auxz00_5590, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4381))
						{	/* Ieee/string.scm 369 */
							BgL_auxz00_5580 = BgL_string1z00_4381;
						}
					else
						{
							obj_t BgL_auxz00_5583;

							BgL_auxz00_5583 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(17949L),
								BGl_string3039z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4381);
							FAILURE(BgL_auxz00_5583, BFALSE, BFALSE);
						}
					BgL_tmpz00_5579 =
						BGl_substringzd3zf3z20zz__r4_strings_6_7z00(BgL_auxz00_5580,
						BgL_auxz00_5587, BgL_auxz00_5594);
				}
				return BBOOL(BgL_tmpz00_5579);
			}
		}

	}



/* _substring-at? */
	obj_t BGl__substringzd2atzf3z21zz__r4_strings_6_7z00(obj_t BgL_env1098z00_31,
		obj_t BgL_opt1097z00_30)
	{
		{	/* Ieee/string.scm 374 */
			{	/* Ieee/string.scm 374 */
				obj_t BgL_g1099z00_5330;
				obj_t BgL_g1100z00_5331;
				obj_t BgL_g1101z00_5332;

				{
					obj_t BgL_auxz00_5605;

					if (VECTORP(BgL_opt1097z00_30))
						{	/* Ieee/string.scm 374 */
							BgL_auxz00_5605 = BgL_opt1097z00_30;
						}
					else
						{
							obj_t BgL_auxz00_5608;

							BgL_auxz00_5608 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18208L),
								BGl_string3040z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1097z00_30);
							FAILURE(BgL_auxz00_5608, BFALSE, BFALSE);
						}
					BgL_g1099z00_5330 = VECTOR_REF(BgL_auxz00_5605, 0L);
				}
				{
					obj_t BgL_auxz00_5613;

					if (VECTORP(BgL_opt1097z00_30))
						{	/* Ieee/string.scm 374 */
							BgL_auxz00_5613 = BgL_opt1097z00_30;
						}
					else
						{
							obj_t BgL_auxz00_5616;

							BgL_auxz00_5616 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18208L),
								BGl_string3040z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1097z00_30);
							FAILURE(BgL_auxz00_5616, BFALSE, BFALSE);
						}
					BgL_g1100z00_5331 = VECTOR_REF(BgL_auxz00_5613, 1L);
				}
				{
					obj_t BgL_auxz00_5621;

					if (VECTORP(BgL_opt1097z00_30))
						{	/* Ieee/string.scm 374 */
							BgL_auxz00_5621 = BgL_opt1097z00_30;
						}
					else
						{
							obj_t BgL_auxz00_5624;

							BgL_auxz00_5624 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18208L),
								BGl_string3040z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1097z00_30);
							FAILURE(BgL_auxz00_5624, BFALSE, BFALSE);
						}
					BgL_g1101z00_5332 = VECTOR_REF(BgL_auxz00_5621, 2L);
				}
				{	/* Ieee/string.scm 374 */
					long BgL_aux1103z00_5333;

					{
						obj_t BgL_auxz00_5629;

						if (VECTORP(BgL_opt1097z00_30))
							{	/* Ieee/string.scm 374 */
								BgL_auxz00_5629 = BgL_opt1097z00_30;
							}
						else
							{
								obj_t BgL_auxz00_5632;

								BgL_auxz00_5632 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18208L),
									BGl_string3040z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1097z00_30);
								FAILURE(BgL_auxz00_5632, BFALSE, BFALSE);
							}
						BgL_aux1103z00_5333 = VECTOR_LENGTH(BgL_auxz00_5629);
					}
					switch (BgL_aux1103z00_5333)
						{
						case 3L:

							{	/* Ieee/string.scm 374 */

								{	/* Ieee/string.scm 374 */
									obj_t BgL_string1z00_5334;
									obj_t BgL_string2z00_5335;
									long BgL_offz00_5336;

									if (STRINGP(BgL_g1099z00_5330))
										{	/* Ieee/string.scm 374 */
											BgL_string1z00_5334 = BgL_g1099z00_5330;
										}
									else
										{
											obj_t BgL_auxz00_5639;

											BgL_auxz00_5639 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18208L),
												BGl_string3040z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1099z00_5330);
											FAILURE(BgL_auxz00_5639, BFALSE, BFALSE);
										}
									if (STRINGP(BgL_g1100z00_5331))
										{	/* Ieee/string.scm 374 */
											BgL_string2z00_5335 = BgL_g1100z00_5331;
										}
									else
										{
											obj_t BgL_auxz00_5645;

											BgL_auxz00_5645 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18208L),
												BGl_string3040z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1100z00_5331);
											FAILURE(BgL_auxz00_5645, BFALSE, BFALSE);
										}
									{	/* Ieee/string.scm 374 */
										obj_t BgL_tmpz00_5649;

										if (INTEGERP(BgL_g1101z00_5332))
											{	/* Ieee/string.scm 374 */
												BgL_tmpz00_5649 = BgL_g1101z00_5332;
											}
										else
											{
												obj_t BgL_auxz00_5652;

												BgL_auxz00_5652 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18208L),
													BGl_string3040z00zz__r4_strings_6_7z00,
													BGl_string3031z00zz__r4_strings_6_7z00,
													BgL_g1101z00_5332);
												FAILURE(BgL_auxz00_5652, BFALSE, BFALSE);
											}
										BgL_offz00_5336 = (long) CINT(BgL_tmpz00_5649);
									}
									return
										BBOOL(bigloo_strcmp_at(BgL_string1z00_5334,
											BgL_string2z00_5335, BgL_offz00_5336));
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 374 */
								obj_t BgL_lenz00_5337;

								{
									obj_t BgL_auxz00_5659;

									if (VECTORP(BgL_opt1097z00_30))
										{	/* Ieee/string.scm 374 */
											BgL_auxz00_5659 = BgL_opt1097z00_30;
										}
									else
										{
											obj_t BgL_auxz00_5662;

											BgL_auxz00_5662 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18208L),
												BGl_string3040z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1097z00_30);
											FAILURE(BgL_auxz00_5662, BFALSE, BFALSE);
										}
									BgL_lenz00_5337 = VECTOR_REF(BgL_auxz00_5659, 3L);
								}
								{	/* Ieee/string.scm 374 */

									{	/* Ieee/string.scm 374 */
										obj_t BgL_string1z00_5338;
										obj_t BgL_string2z00_5339;
										long BgL_offz00_5340;

										if (STRINGP(BgL_g1099z00_5330))
											{	/* Ieee/string.scm 374 */
												BgL_string1z00_5338 = BgL_g1099z00_5330;
											}
										else
											{
												obj_t BgL_auxz00_5669;

												BgL_auxz00_5669 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18208L),
													BGl_string3040z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1099z00_5330);
												FAILURE(BgL_auxz00_5669, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_g1100z00_5331))
											{	/* Ieee/string.scm 374 */
												BgL_string2z00_5339 = BgL_g1100z00_5331;
											}
										else
											{
												obj_t BgL_auxz00_5675;

												BgL_auxz00_5675 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18208L),
													BGl_string3040z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1100z00_5331);
												FAILURE(BgL_auxz00_5675, BFALSE, BFALSE);
											}
										{	/* Ieee/string.scm 374 */
											obj_t BgL_tmpz00_5679;

											if (INTEGERP(BgL_g1101z00_5332))
												{	/* Ieee/string.scm 374 */
													BgL_tmpz00_5679 = BgL_g1101z00_5332;
												}
											else
												{
													obj_t BgL_auxz00_5682;

													BgL_auxz00_5682 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(18208L),
														BGl_string3040z00zz__r4_strings_6_7z00,
														BGl_string3031z00zz__r4_strings_6_7z00,
														BgL_g1101z00_5332);
													FAILURE(BgL_auxz00_5682, BFALSE, BFALSE);
												}
											BgL_offz00_5340 = (long) CINT(BgL_tmpz00_5679);
										}
										{	/* Ieee/string.scm 375 */
											bool_t BgL_test3380z00_5687;

											{	/* Ieee/string.scm 375 */
												long BgL_n1z00_5341;

												{	/* Ieee/string.scm 375 */
													obj_t BgL_tmpz00_5688;

													if (INTEGERP(BgL_lenz00_5337))
														{	/* Ieee/string.scm 375 */
															BgL_tmpz00_5688 = BgL_lenz00_5337;
														}
													else
														{
															obj_t BgL_auxz00_5691;

															BgL_auxz00_5691 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(18291L),
																BGl_string3040z00zz__r4_strings_6_7z00,
																BGl_string3031z00zz__r4_strings_6_7z00,
																BgL_lenz00_5337);
															FAILURE(BgL_auxz00_5691, BFALSE, BFALSE);
														}
													BgL_n1z00_5341 = (long) CINT(BgL_tmpz00_5688);
												}
												BgL_test3380z00_5687 = (BgL_n1z00_5341 == (-1L));
											}
											if (BgL_test3380z00_5687)
												{	/* Ieee/string.scm 375 */
													return
														BBOOL(bigloo_strcmp_at(BgL_string1z00_5338,
															BgL_string2z00_5339, BgL_offz00_5340));
												}
											else
												{	/* Ieee/string.scm 377 */
													bool_t BgL_tmpz00_5699;

													{	/* Ieee/string.scm 377 */
														long BgL_tmpz00_5700;

														{	/* Ieee/string.scm 377 */
															obj_t BgL_tmpz00_5701;

															if (INTEGERP(BgL_lenz00_5337))
																{	/* Ieee/string.scm 377 */
																	BgL_tmpz00_5701 = BgL_lenz00_5337;
																}
															else
																{
																	obj_t BgL_auxz00_5704;

																	BgL_auxz00_5704 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3026z00zz__r4_strings_6_7z00,
																		BINT(18383L),
																		BGl_string3040z00zz__r4_strings_6_7z00,
																		BGl_string3031z00zz__r4_strings_6_7z00,
																		BgL_lenz00_5337);
																	FAILURE(BgL_auxz00_5704, BFALSE, BFALSE);
																}
															BgL_tmpz00_5700 = (long) CINT(BgL_tmpz00_5701);
														}
														BgL_tmpz00_5699 =
															bigloo_strncmp_at(BgL_string1z00_5338,
															BgL_string2z00_5339, BgL_offz00_5340,
															BgL_tmpz00_5700);
													}
													return BBOOL(BgL_tmpz00_5699);
												}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* substring-at? */
	BGL_EXPORTED_DEF bool_t BGl_substringzd2atzf3z21zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_26, obj_t BgL_string2z00_27, long BgL_offz00_28,
		obj_t BgL_lenz00_29)
	{
		{	/* Ieee/string.scm 374 */
			if (((long) CINT(BgL_lenz00_29) == (-1L)))
				{	/* Ieee/string.scm 375 */
					return
						bigloo_strcmp_at(BgL_string1z00_26, BgL_string2z00_27,
						BgL_offz00_28);
				}
			else
				{	/* Ieee/string.scm 375 */
					return
						bigloo_strncmp_at(BgL_string1z00_26, BgL_string2z00_27,
						BgL_offz00_28, (long) CINT(BgL_lenz00_29));
		}}

	}



/* substring-ci=? */
	BGL_EXPORTED_DEF bool_t BGl_substringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_32, obj_t BgL_string2z00_33, long BgL_lenz00_34)
	{
		{	/* Ieee/string.scm 382 */
			BGL_TAIL return
				bigloo_strncmp_ci(BgL_string1z00_32, BgL_string2z00_33, BgL_lenz00_34);
		}

	}



/* &substring-ci=? */
	obj_t BGl_z62substringzd2cizd3zf3z90zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4384, obj_t BgL_string1z00_4385, obj_t BgL_string2z00_4386,
		obj_t BgL_lenz00_4387)
	{
		{	/* Ieee/string.scm 382 */
			{	/* Ieee/string.scm 383 */
				bool_t BgL_tmpz00_5719;

				{	/* Ieee/string.scm 383 */
					long BgL_auxz00_5734;
					obj_t BgL_auxz00_5727;
					obj_t BgL_auxz00_5720;

					{	/* Ieee/string.scm 383 */
						obj_t BgL_tmpz00_5735;

						if (INTEGERP(BgL_lenz00_4387))
							{	/* Ieee/string.scm 383 */
								BgL_tmpz00_5735 = BgL_lenz00_4387;
							}
						else
							{
								obj_t BgL_auxz00_5738;

								BgL_auxz00_5738 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18668L),
									BGl_string3041z00zz__r4_strings_6_7z00,
									BGl_string3031z00zz__r4_strings_6_7z00, BgL_lenz00_4387);
								FAILURE(BgL_auxz00_5738, BFALSE, BFALSE);
							}
						BgL_auxz00_5734 = (long) CINT(BgL_tmpz00_5735);
					}
					if (STRINGP(BgL_string2z00_4386))
						{	/* Ieee/string.scm 383 */
							BgL_auxz00_5727 = BgL_string2z00_4386;
						}
					else
						{
							obj_t BgL_auxz00_5730;

							BgL_auxz00_5730 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18668L),
								BGl_string3041z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4386);
							FAILURE(BgL_auxz00_5730, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4385))
						{	/* Ieee/string.scm 383 */
							BgL_auxz00_5720 = BgL_string1z00_4385;
						}
					else
						{
							obj_t BgL_auxz00_5723;

							BgL_auxz00_5723 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18668L),
								BGl_string3041z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4385);
							FAILURE(BgL_auxz00_5723, BFALSE, BFALSE);
						}
					BgL_tmpz00_5719 =
						BGl_substringzd2cizd3zf3zf2zz__r4_strings_6_7z00(BgL_auxz00_5720,
						BgL_auxz00_5727, BgL_auxz00_5734);
				}
				return BBOOL(BgL_tmpz00_5719);
			}
		}

	}



/* _substring-ci-at? */
	obj_t BGl__substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00(obj_t
		BgL_env1105z00_40, obj_t BgL_opt1104z00_39)
	{
		{	/* Ieee/string.scm 388 */
			{	/* Ieee/string.scm 388 */
				obj_t BgL_g1106z00_5342;
				obj_t BgL_g1107z00_5343;
				obj_t BgL_g1108z00_5344;

				{
					obj_t BgL_auxz00_5745;

					if (VECTORP(BgL_opt1104z00_39))
						{	/* Ieee/string.scm 388 */
							BgL_auxz00_5745 = BgL_opt1104z00_39;
						}
					else
						{
							obj_t BgL_auxz00_5748;

							BgL_auxz00_5748 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18930L),
								BGl_string3042z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1104z00_39);
							FAILURE(BgL_auxz00_5748, BFALSE, BFALSE);
						}
					BgL_g1106z00_5342 = VECTOR_REF(BgL_auxz00_5745, 0L);
				}
				{
					obj_t BgL_auxz00_5753;

					if (VECTORP(BgL_opt1104z00_39))
						{	/* Ieee/string.scm 388 */
							BgL_auxz00_5753 = BgL_opt1104z00_39;
						}
					else
						{
							obj_t BgL_auxz00_5756;

							BgL_auxz00_5756 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18930L),
								BGl_string3042z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1104z00_39);
							FAILURE(BgL_auxz00_5756, BFALSE, BFALSE);
						}
					BgL_g1107z00_5343 = VECTOR_REF(BgL_auxz00_5753, 1L);
				}
				{
					obj_t BgL_auxz00_5761;

					if (VECTORP(BgL_opt1104z00_39))
						{	/* Ieee/string.scm 388 */
							BgL_auxz00_5761 = BgL_opt1104z00_39;
						}
					else
						{
							obj_t BgL_auxz00_5764;

							BgL_auxz00_5764 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18930L),
								BGl_string3042z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1104z00_39);
							FAILURE(BgL_auxz00_5764, BFALSE, BFALSE);
						}
					BgL_g1108z00_5344 = VECTOR_REF(BgL_auxz00_5761, 2L);
				}
				{	/* Ieee/string.scm 388 */
					long BgL_aux1110z00_5345;

					{
						obj_t BgL_auxz00_5769;

						if (VECTORP(BgL_opt1104z00_39))
							{	/* Ieee/string.scm 388 */
								BgL_auxz00_5769 = BgL_opt1104z00_39;
							}
						else
							{
								obj_t BgL_auxz00_5772;

								BgL_auxz00_5772 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18930L),
									BGl_string3042z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1104z00_39);
								FAILURE(BgL_auxz00_5772, BFALSE, BFALSE);
							}
						BgL_aux1110z00_5345 = VECTOR_LENGTH(BgL_auxz00_5769);
					}
					switch (BgL_aux1110z00_5345)
						{
						case 3L:

							{	/* Ieee/string.scm 388 */

								{	/* Ieee/string.scm 388 */
									obj_t BgL_string1z00_5346;
									obj_t BgL_string2z00_5347;
									long BgL_offz00_5348;

									if (STRINGP(BgL_g1106z00_5342))
										{	/* Ieee/string.scm 388 */
											BgL_string1z00_5346 = BgL_g1106z00_5342;
										}
									else
										{
											obj_t BgL_auxz00_5779;

											BgL_auxz00_5779 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18930L),
												BGl_string3042z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1106z00_5342);
											FAILURE(BgL_auxz00_5779, BFALSE, BFALSE);
										}
									if (STRINGP(BgL_g1107z00_5343))
										{	/* Ieee/string.scm 388 */
											BgL_string2z00_5347 = BgL_g1107z00_5343;
										}
									else
										{
											obj_t BgL_auxz00_5785;

											BgL_auxz00_5785 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18930L),
												BGl_string3042z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1107z00_5343);
											FAILURE(BgL_auxz00_5785, BFALSE, BFALSE);
										}
									{	/* Ieee/string.scm 388 */
										obj_t BgL_tmpz00_5789;

										if (INTEGERP(BgL_g1108z00_5344))
											{	/* Ieee/string.scm 388 */
												BgL_tmpz00_5789 = BgL_g1108z00_5344;
											}
										else
											{
												obj_t BgL_auxz00_5792;

												BgL_auxz00_5792 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18930L),
													BGl_string3042z00zz__r4_strings_6_7z00,
													BGl_string3031z00zz__r4_strings_6_7z00,
													BgL_g1108z00_5344);
												FAILURE(BgL_auxz00_5792, BFALSE, BFALSE);
											}
										BgL_offz00_5348 = (long) CINT(BgL_tmpz00_5789);
									}
									return
										BBOOL(bigloo_strcmp_ci_at(BgL_string1z00_5346,
											BgL_string2z00_5347, BgL_offz00_5348));
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 388 */
								obj_t BgL_lenz00_5349;

								{
									obj_t BgL_auxz00_5799;

									if (VECTORP(BgL_opt1104z00_39))
										{	/* Ieee/string.scm 388 */
											BgL_auxz00_5799 = BgL_opt1104z00_39;
										}
									else
										{
											obj_t BgL_auxz00_5802;

											BgL_auxz00_5802 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18930L),
												BGl_string3042z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1104z00_39);
											FAILURE(BgL_auxz00_5802, BFALSE, BFALSE);
										}
									BgL_lenz00_5349 = VECTOR_REF(BgL_auxz00_5799, 3L);
								}
								{	/* Ieee/string.scm 388 */

									{	/* Ieee/string.scm 388 */
										obj_t BgL_string1z00_5350;
										obj_t BgL_string2z00_5351;
										long BgL_offz00_5352;

										if (STRINGP(BgL_g1106z00_5342))
											{	/* Ieee/string.scm 388 */
												BgL_string1z00_5350 = BgL_g1106z00_5342;
											}
										else
											{
												obj_t BgL_auxz00_5809;

												BgL_auxz00_5809 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18930L),
													BGl_string3042z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1106z00_5342);
												FAILURE(BgL_auxz00_5809, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_g1107z00_5343))
											{	/* Ieee/string.scm 388 */
												BgL_string2z00_5351 = BgL_g1107z00_5343;
											}
										else
											{
												obj_t BgL_auxz00_5815;

												BgL_auxz00_5815 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(18930L),
													BGl_string3042z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1107z00_5343);
												FAILURE(BgL_auxz00_5815, BFALSE, BFALSE);
											}
										{	/* Ieee/string.scm 388 */
											obj_t BgL_tmpz00_5819;

											if (INTEGERP(BgL_g1108z00_5344))
												{	/* Ieee/string.scm 388 */
													BgL_tmpz00_5819 = BgL_g1108z00_5344;
												}
											else
												{
													obj_t BgL_auxz00_5822;

													BgL_auxz00_5822 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(18930L),
														BGl_string3042z00zz__r4_strings_6_7z00,
														BGl_string3031z00zz__r4_strings_6_7z00,
														BgL_g1108z00_5344);
													FAILURE(BgL_auxz00_5822, BFALSE, BFALSE);
												}
											BgL_offz00_5352 = (long) CINT(BgL_tmpz00_5819);
										}
										{	/* Ieee/string.scm 389 */
											bool_t BgL_test3398z00_5827;

											{	/* Ieee/string.scm 389 */
												long BgL_n1z00_5353;

												{	/* Ieee/string.scm 389 */
													obj_t BgL_tmpz00_5828;

													if (INTEGERP(BgL_lenz00_5349))
														{	/* Ieee/string.scm 389 */
															BgL_tmpz00_5828 = BgL_lenz00_5349;
														}
													else
														{
															obj_t BgL_auxz00_5831;

															BgL_auxz00_5831 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(19016L),
																BGl_string3042z00zz__r4_strings_6_7z00,
																BGl_string3031z00zz__r4_strings_6_7z00,
																BgL_lenz00_5349);
															FAILURE(BgL_auxz00_5831, BFALSE, BFALSE);
														}
													BgL_n1z00_5353 = (long) CINT(BgL_tmpz00_5828);
												}
												BgL_test3398z00_5827 = (BgL_n1z00_5353 == (-1L));
											}
											if (BgL_test3398z00_5827)
												{	/* Ieee/string.scm 389 */
													return
														BBOOL(bigloo_strcmp_ci_at(BgL_string1z00_5350,
															BgL_string2z00_5351, BgL_offz00_5352));
												}
											else
												{	/* Ieee/string.scm 391 */
													bool_t BgL_tmpz00_5839;

													{	/* Ieee/string.scm 391 */
														long BgL_tmpz00_5840;

														{	/* Ieee/string.scm 391 */
															obj_t BgL_tmpz00_5841;

															if (INTEGERP(BgL_lenz00_5349))
																{	/* Ieee/string.scm 391 */
																	BgL_tmpz00_5841 = BgL_lenz00_5349;
																}
															else
																{
																	obj_t BgL_auxz00_5844;

																	BgL_auxz00_5844 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3026z00zz__r4_strings_6_7z00,
																		BINT(19108L),
																		BGl_string3042z00zz__r4_strings_6_7z00,
																		BGl_string3031z00zz__r4_strings_6_7z00,
																		BgL_lenz00_5349);
																	FAILURE(BgL_auxz00_5844, BFALSE, BFALSE);
																}
															BgL_tmpz00_5840 = (long) CINT(BgL_tmpz00_5841);
														}
														BgL_tmpz00_5839 =
															bigloo_strncmp_ci_at(BgL_string1z00_5350,
															BgL_string2z00_5351, BgL_offz00_5352,
															BgL_tmpz00_5840);
													}
													return BBOOL(BgL_tmpz00_5839);
												}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* substring-ci-at? */
	BGL_EXPORTED_DEF bool_t
		BGl_substringzd2cizd2atzf3zf3zz__r4_strings_6_7z00(obj_t BgL_string1z00_35,
		obj_t BgL_string2z00_36, long BgL_offz00_37, obj_t BgL_lenz00_38)
	{
		{	/* Ieee/string.scm 388 */
			if (((long) CINT(BgL_lenz00_38) == (-1L)))
				{	/* Ieee/string.scm 389 */
					return
						bigloo_strcmp_ci_at(BgL_string1z00_35, BgL_string2z00_36,
						BgL_offz00_37);
				}
			else
				{	/* Ieee/string.scm 389 */
					return
						bigloo_strncmp_ci_at(BgL_string1z00_35, BgL_string2z00_36,
						BgL_offz00_37, (long) CINT(BgL_lenz00_38));
		}}

	}



/* empty-string? */
	BGL_EXPORTED_DEF bool_t BGl_emptyzd2stringzf3z21zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_41)
	{
		{	/* Ieee/string.scm 396 */
			return (STRING_LENGTH(BgL_stringz00_41) == 0L);
		}

	}



/* &empty-string? */
	obj_t BGl_z62emptyzd2stringzf3z43zz__r4_strings_6_7z00(obj_t BgL_envz00_4388,
		obj_t BgL_stringz00_4389)
	{
		{	/* Ieee/string.scm 396 */
			{	/* Ieee/string.scm 397 */
				bool_t BgL_tmpz00_5860;

				{	/* Ieee/string.scm 397 */
					obj_t BgL_auxz00_5861;

					if (STRINGP(BgL_stringz00_4389))
						{	/* Ieee/string.scm 397 */
							BgL_auxz00_5861 = BgL_stringz00_4389;
						}
					else
						{
							obj_t BgL_auxz00_5864;

							BgL_auxz00_5864 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(19384L),
								BGl_string3043z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4389);
							FAILURE(BgL_auxz00_5864, BFALSE, BFALSE);
						}
					BgL_tmpz00_5860 =
						BGl_emptyzd2stringzf3z21zz__r4_strings_6_7z00(BgL_auxz00_5861);
				}
				return BBOOL(BgL_tmpz00_5860);
			}
		}

	}



/* string-ci=? */
	BGL_EXPORTED_DEF bool_t BGl_stringzd2cizd3zf3zf2zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_42, obj_t BgL_string2z00_43)
	{
		{	/* Ieee/string.scm 402 */
			BGL_TAIL return bigloo_strcicmp(BgL_string1z00_42, BgL_string2z00_43);
		}

	}



/* &string-ci=? */
	obj_t BGl_z62stringzd2cizd3zf3z90zz__r4_strings_6_7z00(obj_t BgL_envz00_4390,
		obj_t BgL_string1z00_4391, obj_t BgL_string2z00_4392)
	{
		{	/* Ieee/string.scm 402 */
			{	/* Ieee/string.scm 403 */
				bool_t BgL_tmpz00_5871;

				{	/* Ieee/string.scm 403 */
					obj_t BgL_auxz00_5879;
					obj_t BgL_auxz00_5872;

					if (STRINGP(BgL_string2z00_4392))
						{	/* Ieee/string.scm 403 */
							BgL_auxz00_5879 = BgL_string2z00_4392;
						}
					else
						{
							obj_t BgL_auxz00_5882;

							BgL_auxz00_5882 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(19682L),
								BGl_string3044z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4392);
							FAILURE(BgL_auxz00_5882, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4391))
						{	/* Ieee/string.scm 403 */
							BgL_auxz00_5872 = BgL_string1z00_4391;
						}
					else
						{
							obj_t BgL_auxz00_5875;

							BgL_auxz00_5875 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(19682L),
								BGl_string3044z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4391);
							FAILURE(BgL_auxz00_5875, BFALSE, BFALSE);
						}
					BgL_tmpz00_5871 =
						BGl_stringzd2cizd3zf3zf2zz__r4_strings_6_7z00(BgL_auxz00_5872,
						BgL_auxz00_5879);
				}
				return BBOOL(BgL_tmpz00_5871);
			}
		}

	}



/* string<? */
	BGL_EXPORTED_DEF bool_t BGl_stringzc3zf3z30zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_44, obj_t BgL_string2z00_45)
	{
		{	/* Ieee/string.scm 408 */
			BGL_TAIL return bigloo_string_lt(BgL_string1z00_44, BgL_string2z00_45);
		}

	}



/* &string<? */
	obj_t BGl_z62stringzc3zf3z52zz__r4_strings_6_7z00(obj_t BgL_envz00_4393,
		obj_t BgL_string1z00_4394, obj_t BgL_string2z00_4395)
	{
		{	/* Ieee/string.scm 408 */
			{	/* Ieee/string.scm 409 */
				bool_t BgL_tmpz00_5889;

				{	/* Ieee/string.scm 409 */
					obj_t BgL_auxz00_5897;
					obj_t BgL_auxz00_5890;

					if (STRINGP(BgL_string2z00_4395))
						{	/* Ieee/string.scm 409 */
							BgL_auxz00_5897 = BgL_string2z00_4395;
						}
					else
						{
							obj_t BgL_auxz00_5900;

							BgL_auxz00_5900 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(19979L),
								BGl_string3045z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4395);
							FAILURE(BgL_auxz00_5900, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4394))
						{	/* Ieee/string.scm 409 */
							BgL_auxz00_5890 = BgL_string1z00_4394;
						}
					else
						{
							obj_t BgL_auxz00_5893;

							BgL_auxz00_5893 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(19979L),
								BGl_string3045z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4394);
							FAILURE(BgL_auxz00_5893, BFALSE, BFALSE);
						}
					BgL_tmpz00_5889 =
						BGl_stringzc3zf3z30zz__r4_strings_6_7z00(BgL_auxz00_5890,
						BgL_auxz00_5897);
				}
				return BBOOL(BgL_tmpz00_5889);
			}
		}

	}



/* string>? */
	BGL_EXPORTED_DEF bool_t BGl_stringze3zf3z10zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_46, obj_t BgL_string2z00_47)
	{
		{	/* Ieee/string.scm 414 */
			BGL_TAIL return bigloo_string_gt(BgL_string1z00_46, BgL_string2z00_47);
		}

	}



/* &string>? */
	obj_t BGl_z62stringze3zf3z72zz__r4_strings_6_7z00(obj_t BgL_envz00_4396,
		obj_t BgL_string1z00_4397, obj_t BgL_string2z00_4398)
	{
		{	/* Ieee/string.scm 414 */
			{	/* Ieee/string.scm 415 */
				bool_t BgL_tmpz00_5907;

				{	/* Ieee/string.scm 415 */
					obj_t BgL_auxz00_5915;
					obj_t BgL_auxz00_5908;

					if (STRINGP(BgL_string2z00_4398))
						{	/* Ieee/string.scm 415 */
							BgL_auxz00_5915 = BgL_string2z00_4398;
						}
					else
						{
							obj_t BgL_auxz00_5918;

							BgL_auxz00_5918 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(20277L),
								BGl_string3046z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4398);
							FAILURE(BgL_auxz00_5918, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4397))
						{	/* Ieee/string.scm 415 */
							BgL_auxz00_5908 = BgL_string1z00_4397;
						}
					else
						{
							obj_t BgL_auxz00_5911;

							BgL_auxz00_5911 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(20277L),
								BGl_string3046z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4397);
							FAILURE(BgL_auxz00_5911, BFALSE, BFALSE);
						}
					BgL_tmpz00_5907 =
						BGl_stringze3zf3z10zz__r4_strings_6_7z00(BgL_auxz00_5908,
						BgL_auxz00_5915);
				}
				return BBOOL(BgL_tmpz00_5907);
			}
		}

	}



/* string<=? */
	BGL_EXPORTED_DEF bool_t BGl_stringzc3zd3zf3ze3zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_48, obj_t BgL_string2z00_49)
	{
		{	/* Ieee/string.scm 420 */
			BGL_TAIL return bigloo_string_le(BgL_string1z00_48, BgL_string2z00_49);
		}

	}



/* &string<=? */
	obj_t BGl_z62stringzc3zd3zf3z81zz__r4_strings_6_7z00(obj_t BgL_envz00_4399,
		obj_t BgL_string1z00_4400, obj_t BgL_string2z00_4401)
	{
		{	/* Ieee/string.scm 420 */
			{	/* Ieee/string.scm 421 */
				bool_t BgL_tmpz00_5925;

				{	/* Ieee/string.scm 421 */
					obj_t BgL_auxz00_5933;
					obj_t BgL_auxz00_5926;

					if (STRINGP(BgL_string2z00_4401))
						{	/* Ieee/string.scm 421 */
							BgL_auxz00_5933 = BgL_string2z00_4401;
						}
					else
						{
							obj_t BgL_auxz00_5936;

							BgL_auxz00_5936 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(20576L),
								BGl_string3047z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4401);
							FAILURE(BgL_auxz00_5936, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4400))
						{	/* Ieee/string.scm 421 */
							BgL_auxz00_5926 = BgL_string1z00_4400;
						}
					else
						{
							obj_t BgL_auxz00_5929;

							BgL_auxz00_5929 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(20576L),
								BGl_string3047z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4400);
							FAILURE(BgL_auxz00_5929, BFALSE, BFALSE);
						}
					BgL_tmpz00_5925 =
						BGl_stringzc3zd3zf3ze3zz__r4_strings_6_7z00(BgL_auxz00_5926,
						BgL_auxz00_5933);
				}
				return BBOOL(BgL_tmpz00_5925);
			}
		}

	}



/* string>=? */
	BGL_EXPORTED_DEF bool_t BGl_stringze3zd3zf3zc3zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_50, obj_t BgL_string2z00_51)
	{
		{	/* Ieee/string.scm 426 */
			BGL_TAIL return bigloo_string_ge(BgL_string1z00_50, BgL_string2z00_51);
		}

	}



/* &string>=? */
	obj_t BGl_z62stringze3zd3zf3za1zz__r4_strings_6_7z00(obj_t BgL_envz00_4402,
		obj_t BgL_string1z00_4403, obj_t BgL_string2z00_4404)
	{
		{	/* Ieee/string.scm 426 */
			{	/* Ieee/string.scm 427 */
				bool_t BgL_tmpz00_5943;

				{	/* Ieee/string.scm 427 */
					obj_t BgL_auxz00_5951;
					obj_t BgL_auxz00_5944;

					if (STRINGP(BgL_string2z00_4404))
						{	/* Ieee/string.scm 427 */
							BgL_auxz00_5951 = BgL_string2z00_4404;
						}
					else
						{
							obj_t BgL_auxz00_5954;

							BgL_auxz00_5954 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(20875L),
								BGl_string3048z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4404);
							FAILURE(BgL_auxz00_5954, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4403))
						{	/* Ieee/string.scm 427 */
							BgL_auxz00_5944 = BgL_string1z00_4403;
						}
					else
						{
							obj_t BgL_auxz00_5947;

							BgL_auxz00_5947 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(20875L),
								BGl_string3048z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4403);
							FAILURE(BgL_auxz00_5947, BFALSE, BFALSE);
						}
					BgL_tmpz00_5943 =
						BGl_stringze3zd3zf3zc3zz__r4_strings_6_7z00(BgL_auxz00_5944,
						BgL_auxz00_5951);
				}
				return BBOOL(BgL_tmpz00_5943);
			}
		}

	}



/* string-ci<? */
	BGL_EXPORTED_DEF bool_t BGl_stringzd2cizc3zf3ze2zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_52, obj_t BgL_string2z00_53)
	{
		{	/* Ieee/string.scm 432 */
			BGL_TAIL return bigloo_string_cilt(BgL_string1z00_52, BgL_string2z00_53);
		}

	}



/* &string-ci<? */
	obj_t BGl_z62stringzd2cizc3zf3z80zz__r4_strings_6_7z00(obj_t BgL_envz00_4405,
		obj_t BgL_string1z00_4406, obj_t BgL_string2z00_4407)
	{
		{	/* Ieee/string.scm 432 */
			{	/* Ieee/string.scm 433 */
				bool_t BgL_tmpz00_5961;

				{	/* Ieee/string.scm 433 */
					obj_t BgL_auxz00_5969;
					obj_t BgL_auxz00_5962;

					if (STRINGP(BgL_string2z00_4407))
						{	/* Ieee/string.scm 433 */
							BgL_auxz00_5969 = BgL_string2z00_4407;
						}
					else
						{
							obj_t BgL_auxz00_5972;

							BgL_auxz00_5972 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(21176L),
								BGl_string3049z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4407);
							FAILURE(BgL_auxz00_5972, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4406))
						{	/* Ieee/string.scm 433 */
							BgL_auxz00_5962 = BgL_string1z00_4406;
						}
					else
						{
							obj_t BgL_auxz00_5965;

							BgL_auxz00_5965 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(21176L),
								BGl_string3049z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4406);
							FAILURE(BgL_auxz00_5965, BFALSE, BFALSE);
						}
					BgL_tmpz00_5961 =
						BGl_stringzd2cizc3zf3ze2zz__r4_strings_6_7z00(BgL_auxz00_5962,
						BgL_auxz00_5969);
				}
				return BBOOL(BgL_tmpz00_5961);
			}
		}

	}



/* string-ci>? */
	BGL_EXPORTED_DEF bool_t BGl_stringzd2cize3zf3zc2zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_54, obj_t BgL_string2z00_55)
	{
		{	/* Ieee/string.scm 438 */
			BGL_TAIL return bigloo_string_cigt(BgL_string1z00_54, BgL_string2z00_55);
		}

	}



/* &string-ci>? */
	obj_t BGl_z62stringzd2cize3zf3za0zz__r4_strings_6_7z00(obj_t BgL_envz00_4408,
		obj_t BgL_string1z00_4409, obj_t BgL_string2z00_4410)
	{
		{	/* Ieee/string.scm 438 */
			{	/* Ieee/string.scm 439 */
				bool_t BgL_tmpz00_5979;

				{	/* Ieee/string.scm 439 */
					obj_t BgL_auxz00_5987;
					obj_t BgL_auxz00_5980;

					if (STRINGP(BgL_string2z00_4410))
						{	/* Ieee/string.scm 439 */
							BgL_auxz00_5987 = BgL_string2z00_4410;
						}
					else
						{
							obj_t BgL_auxz00_5990;

							BgL_auxz00_5990 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(21479L),
								BGl_string3050z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4410);
							FAILURE(BgL_auxz00_5990, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4409))
						{	/* Ieee/string.scm 439 */
							BgL_auxz00_5980 = BgL_string1z00_4409;
						}
					else
						{
							obj_t BgL_auxz00_5983;

							BgL_auxz00_5983 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(21479L),
								BGl_string3050z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4409);
							FAILURE(BgL_auxz00_5983, BFALSE, BFALSE);
						}
					BgL_tmpz00_5979 =
						BGl_stringzd2cize3zf3zc2zz__r4_strings_6_7z00(BgL_auxz00_5980,
						BgL_auxz00_5987);
				}
				return BBOOL(BgL_tmpz00_5979);
			}
		}

	}



/* string-ci<=? */
	BGL_EXPORTED_DEF bool_t BGl_stringzd2cizc3zd3zf3z31zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_56, obj_t BgL_string2z00_57)
	{
		{	/* Ieee/string.scm 444 */
			BGL_TAIL return bigloo_string_cile(BgL_string1z00_56, BgL_string2z00_57);
		}

	}



/* &string-ci<=? */
	obj_t BGl_z62stringzd2cizc3zd3zf3z53zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4411, obj_t BgL_string1z00_4412, obj_t BgL_string2z00_4413)
	{
		{	/* Ieee/string.scm 444 */
			{	/* Ieee/string.scm 445 */
				bool_t BgL_tmpz00_5997;

				{	/* Ieee/string.scm 445 */
					obj_t BgL_auxz00_6005;
					obj_t BgL_auxz00_5998;

					if (STRINGP(BgL_string2z00_4413))
						{	/* Ieee/string.scm 445 */
							BgL_auxz00_6005 = BgL_string2z00_4413;
						}
					else
						{
							obj_t BgL_auxz00_6008;

							BgL_auxz00_6008 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(21783L),
								BGl_string3051z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4413);
							FAILURE(BgL_auxz00_6008, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4412))
						{	/* Ieee/string.scm 445 */
							BgL_auxz00_5998 = BgL_string1z00_4412;
						}
					else
						{
							obj_t BgL_auxz00_6001;

							BgL_auxz00_6001 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(21783L),
								BGl_string3051z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4412);
							FAILURE(BgL_auxz00_6001, BFALSE, BFALSE);
						}
					BgL_tmpz00_5997 =
						BGl_stringzd2cizc3zd3zf3z31zz__r4_strings_6_7z00(BgL_auxz00_5998,
						BgL_auxz00_6005);
				}
				return BBOOL(BgL_tmpz00_5997);
			}
		}

	}



/* string-ci>=? */
	BGL_EXPORTED_DEF bool_t BGl_stringzd2cize3zd3zf3z11zz__r4_strings_6_7z00(obj_t
		BgL_string1z00_58, obj_t BgL_string2z00_59)
	{
		{	/* Ieee/string.scm 450 */
			BGL_TAIL return bigloo_string_cige(BgL_string1z00_58, BgL_string2z00_59);
		}

	}



/* &string-ci>=? */
	obj_t BGl_z62stringzd2cize3zd3zf3z73zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4414, obj_t BgL_string1z00_4415, obj_t BgL_string2z00_4416)
	{
		{	/* Ieee/string.scm 450 */
			{	/* Ieee/string.scm 451 */
				bool_t BgL_tmpz00_6015;

				{	/* Ieee/string.scm 451 */
					obj_t BgL_auxz00_6023;
					obj_t BgL_auxz00_6016;

					if (STRINGP(BgL_string2z00_4416))
						{	/* Ieee/string.scm 451 */
							BgL_auxz00_6023 = BgL_string2z00_4416;
						}
					else
						{
							obj_t BgL_auxz00_6026;

							BgL_auxz00_6026 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(22087L),
								BGl_string3052z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string2z00_4416);
							FAILURE(BgL_auxz00_6026, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_string1z00_4415))
						{	/* Ieee/string.scm 451 */
							BgL_auxz00_6016 = BgL_string1z00_4415;
						}
					else
						{
							obj_t BgL_auxz00_6019;

							BgL_auxz00_6019 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(22087L),
								BGl_string3052z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_string1z00_4415);
							FAILURE(BgL_auxz00_6019, BFALSE, BFALSE);
						}
					BgL_tmpz00_6015 =
						BGl_stringzd2cize3zd3zf3z11zz__r4_strings_6_7z00(BgL_auxz00_6016,
						BgL_auxz00_6023);
				}
				return BBOOL(BgL_tmpz00_6015);
			}
		}

	}



/* _substring */
	obj_t BGl__substringz00zz__r4_strings_6_7z00(obj_t BgL_env1112z00_64,
		obj_t BgL_opt1111z00_63)
	{
		{	/* Ieee/string.scm 456 */
			{	/* Ieee/string.scm 456 */
				obj_t BgL_stringz00_970;
				obj_t BgL_g1113z00_971;

				{
					obj_t BgL_auxz00_6032;

					if (VECTORP(BgL_opt1111z00_63))
						{	/* Ieee/string.scm 456 */
							BgL_auxz00_6032 = BgL_opt1111z00_63;
						}
					else
						{
							obj_t BgL_auxz00_6035;

							BgL_auxz00_6035 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(22342L),
								BGl_string3053z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1111z00_63);
							FAILURE(BgL_auxz00_6035, BFALSE, BFALSE);
						}
					BgL_stringz00_970 = VECTOR_REF(BgL_auxz00_6032, 0L);
				}
				{
					obj_t BgL_auxz00_6040;

					if (VECTORP(BgL_opt1111z00_63))
						{	/* Ieee/string.scm 456 */
							BgL_auxz00_6040 = BgL_opt1111z00_63;
						}
					else
						{
							obj_t BgL_auxz00_6043;

							BgL_auxz00_6043 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(22342L),
								BGl_string3053z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1111z00_63);
							FAILURE(BgL_auxz00_6043, BFALSE, BFALSE);
						}
					BgL_g1113z00_971 = VECTOR_REF(BgL_auxz00_6040, 1L);
				}
				{	/* Ieee/string.scm 456 */
					long BgL_aux1115z00_973;

					{
						obj_t BgL_auxz00_6048;

						if (VECTORP(BgL_opt1111z00_63))
							{	/* Ieee/string.scm 456 */
								BgL_auxz00_6048 = BgL_opt1111z00_63;
							}
						else
							{
								obj_t BgL_auxz00_6051;

								BgL_auxz00_6051 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(22342L),
									BGl_string3053z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1111z00_63);
								FAILURE(BgL_auxz00_6051, BFALSE, BFALSE);
							}
						BgL_aux1115z00_973 = VECTOR_LENGTH(BgL_auxz00_6048);
					}
					switch (BgL_aux1115z00_973)
						{
						case 2L:

							{	/* Ieee/string.scm 456 */
								long BgL_endz00_974;

								{	/* Ieee/string.scm 456 */
									obj_t BgL_stringz00_2620;

									if (STRINGP(BgL_stringz00_970))
										{	/* Ieee/string.scm 456 */
											BgL_stringz00_2620 = BgL_stringz00_970;
										}
									else
										{
											obj_t BgL_auxz00_6058;

											BgL_auxz00_6058 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(22396L),
												BGl_string3053z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_stringz00_970);
											FAILURE(BgL_auxz00_6058, BFALSE, BFALSE);
										}
									BgL_endz00_974 = STRING_LENGTH(BgL_stringz00_2620);
								}
								{	/* Ieee/string.scm 456 */

									{	/* Ieee/string.scm 456 */
										long BgL_auxz00_6070;
										obj_t BgL_auxz00_6063;

										{	/* Ieee/string.scm 456 */
											obj_t BgL_tmpz00_6071;

											if (INTEGERP(BgL_g1113z00_971))
												{	/* Ieee/string.scm 456 */
													BgL_tmpz00_6071 = BgL_g1113z00_971;
												}
											else
												{
													obj_t BgL_auxz00_6074;

													BgL_auxz00_6074 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(22342L),
														BGl_string3053z00zz__r4_strings_6_7z00,
														BGl_string3031z00zz__r4_strings_6_7z00,
														BgL_g1113z00_971);
													FAILURE(BgL_auxz00_6074, BFALSE, BFALSE);
												}
											BgL_auxz00_6070 = (long) CINT(BgL_tmpz00_6071);
										}
										if (STRINGP(BgL_stringz00_970))
											{	/* Ieee/string.scm 456 */
												BgL_auxz00_6063 = BgL_stringz00_970;
											}
										else
											{
												obj_t BgL_auxz00_6066;

												BgL_auxz00_6066 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(22342L),
													BGl_string3053z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_stringz00_970);
												FAILURE(BgL_auxz00_6066, BFALSE, BFALSE);
											}
										return
											BGl_substringz00zz__r4_strings_6_7z00(BgL_auxz00_6063,
											BgL_auxz00_6070, BgL_endz00_974);
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 456 */
								obj_t BgL_endz00_975;

								{
									obj_t BgL_auxz00_6080;

									if (VECTORP(BgL_opt1111z00_63))
										{	/* Ieee/string.scm 456 */
											BgL_auxz00_6080 = BgL_opt1111z00_63;
										}
									else
										{
											obj_t BgL_auxz00_6083;

											BgL_auxz00_6083 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(22342L),
												BGl_string3053z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1111z00_63);
											FAILURE(BgL_auxz00_6083, BFALSE, BFALSE);
										}
									BgL_endz00_975 = VECTOR_REF(BgL_auxz00_6080, 2L);
								}
								{	/* Ieee/string.scm 456 */

									{	/* Ieee/string.scm 456 */
										long BgL_auxz00_6104;
										long BgL_auxz00_6095;
										obj_t BgL_auxz00_6088;

										{	/* Ieee/string.scm 456 */
											obj_t BgL_tmpz00_6105;

											if (INTEGERP(BgL_endz00_975))
												{	/* Ieee/string.scm 456 */
													BgL_tmpz00_6105 = BgL_endz00_975;
												}
											else
												{
													obj_t BgL_auxz00_6108;

													BgL_auxz00_6108 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(22342L),
														BGl_string3053z00zz__r4_strings_6_7z00,
														BGl_string3031z00zz__r4_strings_6_7z00,
														BgL_endz00_975);
													FAILURE(BgL_auxz00_6108, BFALSE, BFALSE);
												}
											BgL_auxz00_6104 = (long) CINT(BgL_tmpz00_6105);
										}
										{	/* Ieee/string.scm 456 */
											obj_t BgL_tmpz00_6096;

											if (INTEGERP(BgL_g1113z00_971))
												{	/* Ieee/string.scm 456 */
													BgL_tmpz00_6096 = BgL_g1113z00_971;
												}
											else
												{
													obj_t BgL_auxz00_6099;

													BgL_auxz00_6099 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(22342L),
														BGl_string3053z00zz__r4_strings_6_7z00,
														BGl_string3031z00zz__r4_strings_6_7z00,
														BgL_g1113z00_971);
													FAILURE(BgL_auxz00_6099, BFALSE, BFALSE);
												}
											BgL_auxz00_6095 = (long) CINT(BgL_tmpz00_6096);
										}
										if (STRINGP(BgL_stringz00_970))
											{	/* Ieee/string.scm 456 */
												BgL_auxz00_6088 = BgL_stringz00_970;
											}
										else
											{
												obj_t BgL_auxz00_6091;

												BgL_auxz00_6091 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(22342L),
													BGl_string3053z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_stringz00_970);
												FAILURE(BgL_auxz00_6091, BFALSE, BFALSE);
											}
										return
											BGl_substringz00zz__r4_strings_6_7z00(BgL_auxz00_6088,
											BgL_auxz00_6095, BgL_auxz00_6104);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* substring */
	BGL_EXPORTED_DEF obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_60, long BgL_startz00_61, long BgL_endz00_62)
	{
		{	/* Ieee/string.scm 456 */
			{	/* Ieee/string.scm 457 */
				long BgL_lenz00_976;

				BgL_lenz00_976 = STRING_LENGTH(BgL_stringz00_60);
				{	/* Ieee/string.scm 459 */
					bool_t BgL_test3431z00_6116;

					if ((BgL_startz00_61 < 0L))
						{	/* Ieee/string.scm 459 */
							BgL_test3431z00_6116 = ((bool_t) 1);
						}
					else
						{	/* Ieee/string.scm 459 */
							BgL_test3431z00_6116 = (BgL_startz00_61 > BgL_lenz00_976);
						}
					if (BgL_test3431z00_6116)
						{	/* Ieee/string.scm 461 */
							obj_t BgL_arg1239z00_979;
							obj_t BgL_arg1241z00_980;

							{	/* Ieee/string.scm 461 */
								obj_t BgL_arg1242z00_981;

								{	/* Ieee/fixnum.scm 979 */

									BgL_arg1242z00_981 =
										BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
										(BgL_startz00_61, 10L);
								}
								BgL_arg1239z00_979 =
									string_append(BGl_string3054z00zz__r4_strings_6_7z00,
									BgL_arg1242z00_981);
							}
							{	/* Ieee/string.scm 462 */
								obj_t BgL_list1249z00_985;

								{	/* Ieee/string.scm 462 */
									obj_t BgL_arg1252z00_986;

									BgL_arg1252z00_986 = MAKE_YOUNG_PAIR(BgL_stringz00_60, BNIL);
									BgL_list1249z00_985 =
										MAKE_YOUNG_PAIR(BINT(BgL_lenz00_976), BgL_arg1252z00_986);
								}
								BgL_arg1241z00_980 = BgL_list1249z00_985;
							}
							return
								BGl_errorz00zz__errorz00(BGl_string3055z00zz__r4_strings_6_7z00,
								BgL_arg1239z00_979, BgL_arg1241z00_980);
						}
					else
						{	/* Ieee/string.scm 463 */
							bool_t BgL_test3433z00_6126;

							if ((BgL_endz00_62 < BgL_startz00_61))
								{	/* Ieee/string.scm 463 */
									BgL_test3433z00_6126 = ((bool_t) 1);
								}
							else
								{	/* Ieee/string.scm 463 */
									BgL_test3433z00_6126 = (BgL_endz00_62 > BgL_lenz00_976);
								}
							if (BgL_test3433z00_6126)
								{	/* Ieee/string.scm 465 */
									obj_t BgL_arg1258z00_989;
									obj_t BgL_arg1259z00_990;

									{	/* Ieee/string.scm 465 */
										obj_t BgL_arg1261z00_991;

										{	/* Ieee/fixnum.scm 979 */

											BgL_arg1261z00_991 =
												BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
												(BgL_endz00_62, 10L);
										}
										BgL_arg1258z00_989 =
											string_append(BGl_string3056z00zz__r4_strings_6_7z00,
											BgL_arg1261z00_991);
									}
									{	/* Ieee/string.scm 466 */
										obj_t BgL_list1263z00_995;

										{	/* Ieee/string.scm 466 */
											obj_t BgL_arg1265z00_996;

											BgL_arg1265z00_996 =
												MAKE_YOUNG_PAIR(BgL_stringz00_60, BNIL);
											BgL_list1263z00_995 =
												MAKE_YOUNG_PAIR(BINT(BgL_lenz00_976),
												BgL_arg1265z00_996);
										}
										BgL_arg1259z00_990 = BgL_list1263z00_995;
									}
									return
										BGl_errorz00zz__errorz00
										(BGl_string3055z00zz__r4_strings_6_7z00, BgL_arg1258z00_989,
										BgL_arg1259z00_990);
								}
							else
								{	/* Ieee/string.scm 463 */
									BGL_TAIL return
										c_substring(BgL_stringz00_60, BgL_startz00_61,
										BgL_endz00_62);
								}
						}
				}
			}
		}

	}



/* substring-ur */
	BGL_EXPORTED_DEF obj_t BGl_substringzd2urzd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_65, long BgL_startz00_66, long BgL_endz00_67)
	{
		{	/* Ieee/string.scm 473 */
			BGL_TAIL return
				c_substring(BgL_stringz00_65, BgL_startz00_66, BgL_endz00_67);
		}

	}



/* &substring-ur */
	obj_t BGl_z62substringzd2urzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4417,
		obj_t BgL_stringz00_4418, obj_t BgL_startz00_4419, obj_t BgL_endz00_4420)
	{
		{	/* Ieee/string.scm 473 */
			{	/* Ieee/string.scm 474 */
				long BgL_auxz00_6154;
				long BgL_auxz00_6145;
				obj_t BgL_auxz00_6138;

				{	/* Ieee/string.scm 474 */
					obj_t BgL_tmpz00_6155;

					if (INTEGERP(BgL_endz00_4420))
						{	/* Ieee/string.scm 474 */
							BgL_tmpz00_6155 = BgL_endz00_4420;
						}
					else
						{
							obj_t BgL_auxz00_6158;

							BgL_auxz00_6158 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23120L),
								BGl_string3057z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_endz00_4420);
							FAILURE(BgL_auxz00_6158, BFALSE, BFALSE);
						}
					BgL_auxz00_6154 = (long) CINT(BgL_tmpz00_6155);
				}
				{	/* Ieee/string.scm 474 */
					obj_t BgL_tmpz00_6146;

					if (INTEGERP(BgL_startz00_4419))
						{	/* Ieee/string.scm 474 */
							BgL_tmpz00_6146 = BgL_startz00_4419;
						}
					else
						{
							obj_t BgL_auxz00_6149;

							BgL_auxz00_6149 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23120L),
								BGl_string3057z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_startz00_4419);
							FAILURE(BgL_auxz00_6149, BFALSE, BFALSE);
						}
					BgL_auxz00_6145 = (long) CINT(BgL_tmpz00_6146);
				}
				if (STRINGP(BgL_stringz00_4418))
					{	/* Ieee/string.scm 474 */
						BgL_auxz00_6138 = BgL_stringz00_4418;
					}
				else
					{
						obj_t BgL_auxz00_6141;

						BgL_auxz00_6141 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23120L),
							BGl_string3057z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4418);
						FAILURE(BgL_auxz00_6141, BFALSE, BFALSE);
					}
				return
					BGl_substringzd2urzd2zz__r4_strings_6_7z00(BgL_auxz00_6138,
					BgL_auxz00_6145, BgL_auxz00_6154);
			}
		}

	}



/* _string-contains */
	obj_t BGl__stringzd2containszd2zz__r4_strings_6_7z00(obj_t BgL_env1117z00_72,
		obj_t BgL_opt1116z00_71)
	{
		{	/* Ieee/string.scm 479 */
			{	/* Ieee/string.scm 479 */
				obj_t BgL_g1118z00_999;
				obj_t BgL_g1119z00_1000;

				{
					obj_t BgL_auxz00_6164;

					if (VECTORP(BgL_opt1116z00_71))
						{	/* Ieee/string.scm 479 */
							BgL_auxz00_6164 = BgL_opt1116z00_71;
						}
					else
						{
							obj_t BgL_auxz00_6167;

							BgL_auxz00_6167 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23374L),
								BGl_string3058z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1116z00_71);
							FAILURE(BgL_auxz00_6167, BFALSE, BFALSE);
						}
					BgL_g1118z00_999 = VECTOR_REF(BgL_auxz00_6164, 0L);
				}
				{
					obj_t BgL_auxz00_6172;

					if (VECTORP(BgL_opt1116z00_71))
						{	/* Ieee/string.scm 479 */
							BgL_auxz00_6172 = BgL_opt1116z00_71;
						}
					else
						{
							obj_t BgL_auxz00_6175;

							BgL_auxz00_6175 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23374L),
								BGl_string3058z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1116z00_71);
							FAILURE(BgL_auxz00_6175, BFALSE, BFALSE);
						}
					BgL_g1119z00_1000 = VECTOR_REF(BgL_auxz00_6172, 1L);
				}
				{	/* Ieee/string.scm 479 */
					long BgL_aux1121z00_1002;

					{
						obj_t BgL_auxz00_6180;

						if (VECTORP(BgL_opt1116z00_71))
							{	/* Ieee/string.scm 479 */
								BgL_auxz00_6180 = BgL_opt1116z00_71;
							}
						else
							{
								obj_t BgL_auxz00_6183;

								BgL_auxz00_6183 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23374L),
									BGl_string3058z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1116z00_71);
								FAILURE(BgL_auxz00_6183, BFALSE, BFALSE);
							}
						BgL_aux1121z00_1002 = VECTOR_LENGTH(BgL_auxz00_6180);
					}
					switch (BgL_aux1121z00_1002)
						{
						case 2L:

							{	/* Ieee/string.scm 479 */

								{	/* Ieee/string.scm 479 */
									obj_t BgL_auxz00_6195;
									obj_t BgL_auxz00_6188;

									if (STRINGP(BgL_g1119z00_1000))
										{	/* Ieee/string.scm 479 */
											BgL_auxz00_6195 = BgL_g1119z00_1000;
										}
									else
										{
											obj_t BgL_auxz00_6198;

											BgL_auxz00_6198 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23374L),
												BGl_string3058z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1119z00_1000);
											FAILURE(BgL_auxz00_6198, BFALSE, BFALSE);
										}
									if (STRINGP(BgL_g1118z00_999))
										{	/* Ieee/string.scm 479 */
											BgL_auxz00_6188 = BgL_g1118z00_999;
										}
									else
										{
											obj_t BgL_auxz00_6191;

											BgL_auxz00_6191 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23374L),
												BGl_string3058z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1118z00_999);
											FAILURE(BgL_auxz00_6191, BFALSE, BFALSE);
										}
									return
										BGl_stringzd2containszd2zz__r4_strings_6_7z00
										(BgL_auxz00_6188, BgL_auxz00_6195, (int) (0L));
							}} break;
						case 3L:

							{	/* Ieee/string.scm 479 */
								obj_t BgL_startz00_1004;

								{
									obj_t BgL_auxz00_6204;

									if (VECTORP(BgL_opt1116z00_71))
										{	/* Ieee/string.scm 479 */
											BgL_auxz00_6204 = BgL_opt1116z00_71;
										}
									else
										{
											obj_t BgL_auxz00_6207;

											BgL_auxz00_6207 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23374L),
												BGl_string3058z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1116z00_71);
											FAILURE(BgL_auxz00_6207, BFALSE, BFALSE);
										}
									BgL_startz00_1004 = VECTOR_REF(BgL_auxz00_6204, 2L);
								}
								{	/* Ieee/string.scm 479 */

									{	/* Ieee/string.scm 479 */
										int BgL_auxz00_6226;
										obj_t BgL_auxz00_6219;
										obj_t BgL_auxz00_6212;

										{	/* Ieee/string.scm 479 */
											obj_t BgL_tmpz00_6227;

											if (INTEGERP(BgL_startz00_1004))
												{	/* Ieee/string.scm 479 */
													BgL_tmpz00_6227 = BgL_startz00_1004;
												}
											else
												{
													obj_t BgL_auxz00_6230;

													BgL_auxz00_6230 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(23374L),
														BGl_string3058z00zz__r4_strings_6_7z00,
														BGl_string3031z00zz__r4_strings_6_7z00,
														BgL_startz00_1004);
													FAILURE(BgL_auxz00_6230, BFALSE, BFALSE);
												}
											BgL_auxz00_6226 = CINT(BgL_tmpz00_6227);
										}
										if (STRINGP(BgL_g1119z00_1000))
											{	/* Ieee/string.scm 479 */
												BgL_auxz00_6219 = BgL_g1119z00_1000;
											}
										else
											{
												obj_t BgL_auxz00_6222;

												BgL_auxz00_6222 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23374L),
													BGl_string3058z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1119z00_1000);
												FAILURE(BgL_auxz00_6222, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_g1118z00_999))
											{	/* Ieee/string.scm 479 */
												BgL_auxz00_6212 = BgL_g1118z00_999;
											}
										else
											{
												obj_t BgL_auxz00_6215;

												BgL_auxz00_6215 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(23374L),
													BGl_string3058z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1118z00_999);
												FAILURE(BgL_auxz00_6215, BFALSE, BFALSE);
											}
										return
											BGl_stringzd2containszd2zz__r4_strings_6_7z00
											(BgL_auxz00_6212, BgL_auxz00_6219, BgL_auxz00_6226);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-contains */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2containszd2zz__r4_strings_6_7z00(obj_t
		BgL_s1z00_68, obj_t BgL_s2z00_69, int BgL_startz00_70)
	{
		{	/* Ieee/string.scm 479 */
			{	/* Ieee/string.scm 480 */
				long BgL_l2z00_1005;

				BgL_l2z00_1005 = STRING_LENGTH(BgL_s2z00_69);
				if ((BgL_l2z00_1005 == 1L))
					{	/* Ieee/string.scm 482 */
						unsigned char BgL_arg1267z00_1007;

						BgL_arg1267z00_1007 = STRING_REF(BgL_s2z00_69, 0L);
						return
							BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_s1z00_68,
							BCHAR(BgL_arg1267z00_1007), BINT(BgL_startz00_70));
					}
				else
					{	/* Ieee/string.scm 483 */
						long BgL_l1z00_1008;
						long BgL_i0z00_1009;

						BgL_l1z00_1008 = STRING_LENGTH(BgL_s1z00_68);
						if (((long) (BgL_startz00_70) < 0L))
							{	/* Ieee/string.scm 484 */
								BgL_i0z00_1009 = 0L;
							}
						else
							{	/* Ieee/string.scm 484 */
								BgL_i0z00_1009 = (long) (BgL_startz00_70);
							}
						if ((BgL_l1z00_1008 < (BgL_i0z00_1009 + BgL_l2z00_1005)))
							{	/* Ieee/string.scm 485 */
								return BFALSE;
							}
						else
							{	/* Ieee/string.scm 487 */
								long BgL_stopz00_1012;

								BgL_stopz00_1012 = (BgL_l1z00_1008 - BgL_l2z00_1005);
								{
									long BgL_iz00_1014;

									BgL_iz00_1014 = BgL_i0z00_1009;
								BgL_zc3z04anonymousza31271ze3z87_1015:
									if (bigloo_strcmp_at(BgL_s1z00_68, BgL_s2z00_69,
											BgL_iz00_1014))
										{	/* Ieee/string.scm 490 */
											return BINT(BgL_iz00_1014);
										}
									else
										{	/* Ieee/string.scm 490 */
											if ((BgL_iz00_1014 == BgL_stopz00_1012))
												{	/* Ieee/string.scm 492 */
													return BFALSE;
												}
											else
												{
													long BgL_iz00_6258;

													BgL_iz00_6258 = (BgL_iz00_1014 + 1L);
													BgL_iz00_1014 = BgL_iz00_6258;
													goto BgL_zc3z04anonymousza31271ze3z87_1015;
												}
										}
								}
							}
					}
			}
		}

	}



/* _string-contains-ci */
	obj_t BGl__stringzd2containszd2ciz00zz__r4_strings_6_7z00(obj_t
		BgL_env1123z00_77, obj_t BgL_opt1122z00_76)
	{
		{	/* Ieee/string.scm 500 */
			{	/* Ieee/string.scm 500 */
				obj_t BgL_g1124z00_1022;
				obj_t BgL_g1125z00_1023;

				{
					obj_t BgL_auxz00_6260;

					if (VECTORP(BgL_opt1122z00_76))
						{	/* Ieee/string.scm 500 */
							BgL_auxz00_6260 = BgL_opt1122z00_76;
						}
					else
						{
							obj_t BgL_auxz00_6263;

							BgL_auxz00_6263 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(24040L),
								BGl_string3059z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1122z00_76);
							FAILURE(BgL_auxz00_6263, BFALSE, BFALSE);
						}
					BgL_g1124z00_1022 = VECTOR_REF(BgL_auxz00_6260, 0L);
				}
				{
					obj_t BgL_auxz00_6268;

					if (VECTORP(BgL_opt1122z00_76))
						{	/* Ieee/string.scm 500 */
							BgL_auxz00_6268 = BgL_opt1122z00_76;
						}
					else
						{
							obj_t BgL_auxz00_6271;

							BgL_auxz00_6271 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(24040L),
								BGl_string3059z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1122z00_76);
							FAILURE(BgL_auxz00_6271, BFALSE, BFALSE);
						}
					BgL_g1125z00_1023 = VECTOR_REF(BgL_auxz00_6268, 1L);
				}
				{	/* Ieee/string.scm 500 */
					long BgL_aux1127z00_1025;

					{
						obj_t BgL_auxz00_6276;

						if (VECTORP(BgL_opt1122z00_76))
							{	/* Ieee/string.scm 500 */
								BgL_auxz00_6276 = BgL_opt1122z00_76;
							}
						else
							{
								obj_t BgL_auxz00_6279;

								BgL_auxz00_6279 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(24040L),
									BGl_string3059z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1122z00_76);
								FAILURE(BgL_auxz00_6279, BFALSE, BFALSE);
							}
						BgL_aux1127z00_1025 = VECTOR_LENGTH(BgL_auxz00_6276);
					}
					switch (BgL_aux1127z00_1025)
						{
						case 2L:

							{	/* Ieee/string.scm 500 */

								{	/* Ieee/string.scm 500 */
									obj_t BgL_auxz00_6291;
									obj_t BgL_auxz00_6284;

									if (STRINGP(BgL_g1125z00_1023))
										{	/* Ieee/string.scm 500 */
											BgL_auxz00_6291 = BgL_g1125z00_1023;
										}
									else
										{
											obj_t BgL_auxz00_6294;

											BgL_auxz00_6294 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(24040L),
												BGl_string3059z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1125z00_1023);
											FAILURE(BgL_auxz00_6294, BFALSE, BFALSE);
										}
									if (STRINGP(BgL_g1124z00_1022))
										{	/* Ieee/string.scm 500 */
											BgL_auxz00_6284 = BgL_g1124z00_1022;
										}
									else
										{
											obj_t BgL_auxz00_6287;

											BgL_auxz00_6287 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(24040L),
												BGl_string3059z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1124z00_1022);
											FAILURE(BgL_auxz00_6287, BFALSE, BFALSE);
										}
									return
										BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00
										(BgL_auxz00_6284, BgL_auxz00_6291, (int) (0L));
							}} break;
						case 3L:

							{	/* Ieee/string.scm 500 */
								obj_t BgL_startz00_1027;

								{
									obj_t BgL_auxz00_6300;

									if (VECTORP(BgL_opt1122z00_76))
										{	/* Ieee/string.scm 500 */
											BgL_auxz00_6300 = BgL_opt1122z00_76;
										}
									else
										{
											obj_t BgL_auxz00_6303;

											BgL_auxz00_6303 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(24040L),
												BGl_string3059z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1122z00_76);
											FAILURE(BgL_auxz00_6303, BFALSE, BFALSE);
										}
									BgL_startz00_1027 = VECTOR_REF(BgL_auxz00_6300, 2L);
								}
								{	/* Ieee/string.scm 500 */

									{	/* Ieee/string.scm 500 */
										int BgL_auxz00_6322;
										obj_t BgL_auxz00_6315;
										obj_t BgL_auxz00_6308;

										{	/* Ieee/string.scm 500 */
											obj_t BgL_tmpz00_6323;

											if (INTEGERP(BgL_startz00_1027))
												{	/* Ieee/string.scm 500 */
													BgL_tmpz00_6323 = BgL_startz00_1027;
												}
											else
												{
													obj_t BgL_auxz00_6326;

													BgL_auxz00_6326 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(24040L),
														BGl_string3059z00zz__r4_strings_6_7z00,
														BGl_string3031z00zz__r4_strings_6_7z00,
														BgL_startz00_1027);
													FAILURE(BgL_auxz00_6326, BFALSE, BFALSE);
												}
											BgL_auxz00_6322 = CINT(BgL_tmpz00_6323);
										}
										if (STRINGP(BgL_g1125z00_1023))
											{	/* Ieee/string.scm 500 */
												BgL_auxz00_6315 = BgL_g1125z00_1023;
											}
										else
											{
												obj_t BgL_auxz00_6318;

												BgL_auxz00_6318 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(24040L),
													BGl_string3059z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1125z00_1023);
												FAILURE(BgL_auxz00_6318, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_g1124z00_1022))
											{	/* Ieee/string.scm 500 */
												BgL_auxz00_6308 = BgL_g1124z00_1022;
											}
										else
											{
												obj_t BgL_auxz00_6311;

												BgL_auxz00_6311 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(24040L),
													BGl_string3059z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1124z00_1022);
												FAILURE(BgL_auxz00_6311, BFALSE, BFALSE);
											}
										return
											BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00
											(BgL_auxz00_6308, BgL_auxz00_6315, BgL_auxz00_6322);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-contains-ci */
	BGL_EXPORTED_DEF obj_t
		BGl_stringzd2containszd2ciz00zz__r4_strings_6_7z00(obj_t BgL_s1z00_73,
		obj_t BgL_s2z00_74, int BgL_startz00_75)
	{
		{	/* Ieee/string.scm 500 */
			{	/* Ieee/string.scm 501 */
				long BgL_l1z00_1028;
				long BgL_l2z00_1029;
				long BgL_i0z00_1030;

				BgL_l1z00_1028 = STRING_LENGTH(BgL_s1z00_73);
				BgL_l2z00_1029 = STRING_LENGTH(BgL_s2z00_74);
				if (((long) (BgL_startz00_75) < 0L))
					{	/* Ieee/string.scm 503 */
						BgL_i0z00_1030 = 0L;
					}
				else
					{	/* Ieee/string.scm 503 */
						BgL_i0z00_1030 = (long) (BgL_startz00_75);
					}
				if ((BgL_l1z00_1028 < (BgL_i0z00_1030 + BgL_l2z00_1029)))
					{	/* Ieee/string.scm 504 */
						return BFALSE;
					}
				else
					{	/* Ieee/string.scm 506 */
						long BgL_stopz00_1033;

						BgL_stopz00_1033 = (BgL_l1z00_1028 - BgL_l2z00_1029);
						{
							long BgL_iz00_1035;

							BgL_iz00_1035 = BgL_i0z00_1030;
						BgL_zc3z04anonymousza31280ze3z87_1036:
							if (bigloo_strcmp_ci_at(BgL_s1z00_73, BgL_s2z00_74,
									BgL_iz00_1035))
								{	/* Ieee/string.scm 509 */
									return BINT(BgL_iz00_1035);
								}
							else
								{	/* Ieee/string.scm 509 */
									if ((BgL_iz00_1035 == BgL_stopz00_1033))
										{	/* Ieee/string.scm 511 */
											return BFALSE;
										}
									else
										{
											long BgL_iz00_6348;

											BgL_iz00_6348 = (BgL_iz00_1035 + 1L);
											BgL_iz00_1035 = BgL_iz00_6348;
											goto BgL_zc3z04anonymousza31280ze3z87_1036;
										}
								}
						}
					}
			}
		}

	}



/* string-compare3 */
	BGL_EXPORTED_DEF long BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(obj_t
		BgL_az00_78, obj_t BgL_bz00_79)
	{
		{	/* Ieee/string.scm 523 */
			{	/* Ieee/string.scm 524 */
				long BgL_alz00_1043;

				BgL_alz00_1043 = STRING_LENGTH(BgL_az00_78);
				{	/* Ieee/string.scm 524 */
					long BgL_blz00_1044;

					BgL_blz00_1044 = STRING_LENGTH(BgL_bz00_79);
					{	/* Ieee/string.scm 525 */
						long BgL_lz00_1045;

						if ((BgL_alz00_1043 < BgL_blz00_1044))
							{	/* Ieee/string.scm 526 */
								BgL_lz00_1045 = BgL_alz00_1043;
							}
						else
							{	/* Ieee/string.scm 526 */
								BgL_lz00_1045 = BgL_blz00_1044;
							}
						{	/* Ieee/string.scm 526 */

							{
								long BgL_rz00_1047;

								BgL_rz00_1047 = 0L;
							BgL_zc3z04anonymousza31287ze3z87_1048:
								if ((BgL_rz00_1047 == BgL_lz00_1045))
									{	/* Ieee/string.scm 528 */
										return (BgL_alz00_1043 - BgL_blz00_1044);
									}
								else
									{	/* Ieee/string.scm 530 */
										long BgL_cz00_1050;

										BgL_cz00_1050 =
											(
											(STRING_REF(BgL_az00_78, BgL_rz00_1047)) -
											(STRING_REF(BgL_bz00_79, BgL_rz00_1047)));
										if ((BgL_cz00_1050 == 0L))
											{
												long BgL_rz00_6364;

												BgL_rz00_6364 = (BgL_rz00_1047 + 1L);
												BgL_rz00_1047 = BgL_rz00_6364;
												goto BgL_zc3z04anonymousza31287ze3z87_1048;
											}
										else
											{	/* Ieee/string.scm 532 */
												return BgL_cz00_1050;
											}
									}
							}
						}
					}
				}
			}
		}

	}



/* &string-compare3 */
	obj_t BGl_z62stringzd2compare3zb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4421,
		obj_t BgL_az00_4422, obj_t BgL_bz00_4423)
	{
		{	/* Ieee/string.scm 523 */
			{	/* Ieee/string.scm 524 */
				long BgL_tmpz00_6366;

				{	/* Ieee/string.scm 524 */
					obj_t BgL_auxz00_6374;
					obj_t BgL_auxz00_6367;

					if (STRINGP(BgL_bz00_4423))
						{	/* Ieee/string.scm 524 */
							BgL_auxz00_6374 = BgL_bz00_4423;
						}
					else
						{
							obj_t BgL_auxz00_6377;

							BgL_auxz00_6377 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(24981L),
								BGl_string3060z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_bz00_4423);
							FAILURE(BgL_auxz00_6377, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_az00_4422))
						{	/* Ieee/string.scm 524 */
							BgL_auxz00_6367 = BgL_az00_4422;
						}
					else
						{
							obj_t BgL_auxz00_6370;

							BgL_auxz00_6370 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(24981L),
								BGl_string3060z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_az00_4422);
							FAILURE(BgL_auxz00_6370, BFALSE, BFALSE);
						}
					BgL_tmpz00_6366 =
						BGl_stringzd2compare3zd2zz__r4_strings_6_7z00(BgL_auxz00_6367,
						BgL_auxz00_6374);
				}
				return BINT(BgL_tmpz00_6366);
			}
		}

	}



/* string-compare3-ci */
	BGL_EXPORTED_DEF long BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(obj_t
		BgL_az00_80, obj_t BgL_bz00_81)
	{
		{	/* Ieee/string.scm 539 */
			{	/* Ieee/string.scm 540 */
				long BgL_alz00_1061;

				BgL_alz00_1061 = STRING_LENGTH(BgL_az00_80);
				{	/* Ieee/string.scm 540 */
					long BgL_blz00_1062;

					BgL_blz00_1062 = STRING_LENGTH(BgL_bz00_81);
					{	/* Ieee/string.scm 541 */
						long BgL_lz00_1063;

						if ((BgL_alz00_1061 < BgL_blz00_1062))
							{	/* Ieee/string.scm 542 */
								BgL_lz00_1063 = BgL_alz00_1061;
							}
						else
							{	/* Ieee/string.scm 542 */
								BgL_lz00_1063 = BgL_blz00_1062;
							}
						{	/* Ieee/string.scm 542 */

							{
								long BgL_rz00_1065;

								BgL_rz00_1065 = 0L;
							BgL_zc3z04anonymousza31298ze3z87_1066:
								if ((BgL_rz00_1065 == BgL_lz00_1063))
									{	/* Ieee/string.scm 544 */
										return (BgL_alz00_1061 - BgL_blz00_1062);
									}
								else
									{	/* Ieee/string.scm 546 */
										long BgL_cz00_1068;

										BgL_cz00_1068 =
											(
											(tolower(STRING_REF(BgL_az00_80, BgL_rz00_1065))) -
											(tolower(STRING_REF(BgL_bz00_81, BgL_rz00_1065))));
										if ((BgL_cz00_1068 == 0L))
											{
												long BgL_rz00_6399;

												BgL_rz00_6399 = (BgL_rz00_1065 + 1L);
												BgL_rz00_1065 = BgL_rz00_6399;
												goto BgL_zc3z04anonymousza31298ze3z87_1066;
											}
										else
											{	/* Ieee/string.scm 548 */
												return BgL_cz00_1068;
											}
									}
							}
						}
					}
				}
			}
		}

	}



/* &string-compare3-ci */
	obj_t BGl_z62stringzd2compare3zd2ciz62zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4424, obj_t BgL_az00_4425, obj_t BgL_bz00_4426)
	{
		{	/* Ieee/string.scm 539 */
			{	/* Ieee/string.scm 540 */
				long BgL_tmpz00_6401;

				{	/* Ieee/string.scm 540 */
					obj_t BgL_auxz00_6409;
					obj_t BgL_auxz00_6402;

					if (STRINGP(BgL_bz00_4426))
						{	/* Ieee/string.scm 540 */
							BgL_auxz00_6409 = BgL_bz00_4426;
						}
					else
						{
							obj_t BgL_auxz00_6412;

							BgL_auxz00_6412 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(25633L),
								BGl_string3061z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_bz00_4426);
							FAILURE(BgL_auxz00_6412, BFALSE, BFALSE);
						}
					if (STRINGP(BgL_az00_4425))
						{	/* Ieee/string.scm 540 */
							BgL_auxz00_6402 = BgL_az00_4425;
						}
					else
						{
							obj_t BgL_auxz00_6405;

							BgL_auxz00_6405 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(25633L),
								BGl_string3061z00zz__r4_strings_6_7z00,
								BGl_string3028z00zz__r4_strings_6_7z00, BgL_az00_4425);
							FAILURE(BgL_auxz00_6405, BFALSE, BFALSE);
						}
					BgL_tmpz00_6401 =
						BGl_stringzd2compare3zd2ciz00zz__r4_strings_6_7z00(BgL_auxz00_6402,
						BgL_auxz00_6409);
				}
				return BINT(BgL_tmpz00_6401);
			}
		}

	}



/* string-append */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t
		BgL_listz00_82)
	{
		{	/* Ieee/string.scm 559 */
			if (NULLP(BgL_listz00_82))
				{	/* Ieee/string.scm 560 */
					return BGl_string3062z00zz__r4_strings_6_7z00;
				}
			else
				{	/* Ieee/string.scm 562 */
					long BgL_lenz00_1082;

					{
						obj_t BgL_listz00_2718;
						long BgL_resz00_2719;

						BgL_listz00_2718 = BgL_listz00_82;
						BgL_resz00_2719 = 0L;
					BgL_stringzd2appendzd2_2717:
						if (NULLP(BgL_listz00_2718))
							{	/* Ieee/string.scm 564 */
								BgL_lenz00_1082 = BgL_resz00_2719;
							}
						else
							{
								long BgL_resz00_6425;
								obj_t BgL_listz00_6422;

								BgL_listz00_6422 = CDR(((obj_t) BgL_listz00_2718));
								{	/* Ieee/string.scm 567 */
									long BgL_tmpz00_6426;

									{	/* Ieee/string.scm 568 */
										obj_t BgL_stringz00_2732;

										BgL_stringz00_2732 = CAR(((obj_t) BgL_listz00_2718));
										BgL_tmpz00_6426 = STRING_LENGTH(BgL_stringz00_2732);
									}
									BgL_resz00_6425 = (BgL_resz00_2719 + BgL_tmpz00_6426);
								}
								BgL_resz00_2719 = BgL_resz00_6425;
								BgL_listz00_2718 = BgL_listz00_6422;
								goto BgL_stringzd2appendzd2_2717;
							}
					}
					{	/* Ieee/string.scm 562 */
						obj_t BgL_resz00_1083;

						BgL_resz00_1083 = make_string_sans_fill(BgL_lenz00_1082);
						{	/* Ieee/string.scm 569 */

							{
								obj_t BgL_listz00_2764;
								long BgL_wz00_2765;

								BgL_listz00_2764 = BgL_listz00_82;
								BgL_wz00_2765 = 0L;
							BgL_stringzd2appendzd2_2763:
								if (NULLP(BgL_listz00_2764))
									{	/* Ieee/string.scm 572 */
										return BgL_resz00_1083;
									}
								else
									{	/* Ieee/string.scm 574 */
										obj_t BgL_sz00_2772;

										BgL_sz00_2772 = CAR(((obj_t) BgL_listz00_2764));
										{	/* Ieee/string.scm 574 */
											long BgL_lz00_2773;

											BgL_lz00_2773 = STRING_LENGTH(((obj_t) BgL_sz00_2772));
											{	/* Ieee/string.scm 575 */

												blit_string(
													((obj_t) BgL_sz00_2772), 0L, BgL_resz00_1083,
													BgL_wz00_2765, BgL_lz00_2773);
												{	/* Ieee/string.scm 577 */
													obj_t BgL_arg1338z00_2774;
													long BgL_arg1339z00_2775;

													BgL_arg1338z00_2774 = CDR(((obj_t) BgL_listz00_2764));
													BgL_arg1339z00_2775 = (BgL_wz00_2765 + BgL_lz00_2773);
													{
														long BgL_wz00_6444;
														obj_t BgL_listz00_6443;

														BgL_listz00_6443 = BgL_arg1338z00_2774;
														BgL_wz00_6444 = BgL_arg1339z00_2775;
														BgL_wz00_2765 = BgL_wz00_6444;
														BgL_listz00_2764 = BgL_listz00_6443;
														goto BgL_stringzd2appendzd2_2763;
													}
												}
											}
										}
									}
							}
						}
					}
				}
		}

	}



/* &string-append */
	obj_t BGl_z62stringzd2appendzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4427,
		obj_t BgL_listz00_4428)
	{
		{	/* Ieee/string.scm 559 */
			return BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_listz00_4428);
		}

	}



/* list->string */
	BGL_EXPORTED_DEF obj_t BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(obj_t
		BgL_listz00_83)
	{
		{	/* Ieee/string.scm 582 */
			{	/* Ieee/string.scm 583 */
				long BgL_lenz00_1104;

				BgL_lenz00_1104 = bgl_list_length(BgL_listz00_83);
				{	/* Ieee/string.scm 583 */
					obj_t BgL_stringz00_1105;

					BgL_stringz00_1105 = make_string_sans_fill(BgL_lenz00_1104);
					{	/* Ieee/string.scm 584 */

						{
							long BgL_iz00_2810;
							obj_t BgL_lz00_2811;

							BgL_iz00_2810 = 0L;
							BgL_lz00_2811 = BgL_listz00_83;
						BgL_loopz00_2809:
							if ((BgL_iz00_2810 == BgL_lenz00_1104))
								{	/* Ieee/string.scm 587 */
									return BgL_stringz00_1105;
								}
							else
								{	/* Ieee/string.scm 587 */
									{	/* Ieee/string.scm 590 */
										obj_t BgL_arg1349z00_2817;

										BgL_arg1349z00_2817 = CAR(((obj_t) BgL_lz00_2811));
										{	/* Ieee/string.scm 349 */
											unsigned char BgL_tmpz00_6452;

											BgL_tmpz00_6452 = CCHAR(BgL_arg1349z00_2817);
											STRING_SET(BgL_stringz00_1105, BgL_iz00_2810,
												BgL_tmpz00_6452);
									}}
									{	/* Ieee/string.scm 591 */
										long BgL_arg1351z00_2818;
										obj_t BgL_arg1352z00_2819;

										BgL_arg1351z00_2818 = (BgL_iz00_2810 + 1L);
										BgL_arg1352z00_2819 = CDR(((obj_t) BgL_lz00_2811));
										{
											obj_t BgL_lz00_6459;
											long BgL_iz00_6458;

											BgL_iz00_6458 = BgL_arg1351z00_2818;
											BgL_lz00_6459 = BgL_arg1352z00_2819;
											BgL_lz00_2811 = BgL_lz00_6459;
											BgL_iz00_2810 = BgL_iz00_6458;
											goto BgL_loopz00_2809;
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &list->string */
	obj_t BGl_z62listzd2ze3stringz53zz__r4_strings_6_7z00(obj_t BgL_envz00_4429,
		obj_t BgL_listz00_4430)
	{
		{	/* Ieee/string.scm 582 */
			{	/* Ieee/string.scm 583 */
				obj_t BgL_auxz00_6460;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_listz00_4430))
					{	/* Ieee/string.scm 583 */
						BgL_auxz00_6460 = BgL_listz00_4430;
					}
				else
					{
						obj_t BgL_auxz00_6463;

						BgL_auxz00_6463 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(27318L),
							BGl_string3063z00zz__r4_strings_6_7z00,
							BGl_string3064z00zz__r4_strings_6_7z00, BgL_listz00_4430);
						FAILURE(BgL_auxz00_6463, BFALSE, BFALSE);
					}
				return BGl_listzd2ze3stringz31zz__r4_strings_6_7z00(BgL_auxz00_6460);
			}
		}

	}



/* string->list */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_84)
	{
		{	/* Ieee/string.scm 596 */
			{	/* Ieee/string.scm 597 */
				long BgL_lenz00_1115;

				BgL_lenz00_1115 = STRING_LENGTH(BgL_stringz00_84);
				{	/* Ieee/string.scm 598 */
					long BgL_g1021z00_1116;

					BgL_g1021z00_1116 = (BgL_lenz00_1115 - 1L);
					{
						long BgL_iz00_2847;
						obj_t BgL_resz00_2848;

						BgL_iz00_2847 = BgL_g1021z00_1116;
						BgL_resz00_2848 = BNIL;
					BgL_loopz00_2846:
						if ((BgL_iz00_2847 == (-1L)))
							{	/* Ieee/string.scm 600 */
								return BgL_resz00_2848;
							}
						else
							{	/* Ieee/string.scm 602 */
								long BgL_arg1355z00_2854;
								obj_t BgL_arg1356z00_2855;

								BgL_arg1355z00_2854 = (BgL_iz00_2847 - 1L);
								{	/* Ieee/string.scm 603 */
									unsigned char BgL_arg1357z00_2856;

									BgL_arg1357z00_2856 =
										STRING_REF(BgL_stringz00_84, BgL_iz00_2847);
									BgL_arg1356z00_2855 =
										MAKE_YOUNG_PAIR(BCHAR(BgL_arg1357z00_2856),
										BgL_resz00_2848);
								}
								{
									obj_t BgL_resz00_6477;
									long BgL_iz00_6476;

									BgL_iz00_6476 = BgL_arg1355z00_2854;
									BgL_resz00_6477 = BgL_arg1356z00_2855;
									BgL_resz00_2848 = BgL_resz00_6477;
									BgL_iz00_2847 = BgL_iz00_6476;
									goto BgL_loopz00_2846;
								}
							}
					}
				}
			}
		}

	}



/* &string->list */
	obj_t BGl_z62stringzd2ze3listz53zz__r4_strings_6_7z00(obj_t BgL_envz00_4431,
		obj_t BgL_stringz00_4432)
	{
		{	/* Ieee/string.scm 596 */
			{	/* Ieee/string.scm 597 */
				obj_t BgL_auxz00_6478;

				if (STRINGP(BgL_stringz00_4432))
					{	/* Ieee/string.scm 597 */
						BgL_auxz00_6478 = BgL_stringz00_4432;
					}
				else
					{
						obj_t BgL_auxz00_6481;

						BgL_auxz00_6481 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(27792L),
							BGl_string3065z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4432);
						FAILURE(BgL_auxz00_6481, BFALSE, BFALSE);
					}
				return BGl_stringzd2ze3listz31zz__r4_strings_6_7z00(BgL_auxz00_6478);
			}
		}

	}



/* string-copy */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_85)
	{
		{	/* Ieee/string.scm 608 */
			{	/* Ieee/string.scm 609 */
				long BgL_lenz00_1127;

				BgL_lenz00_1127 = STRING_LENGTH(BgL_stringz00_85);
				{	/* Ieee/string.scm 609 */
					obj_t BgL_newz00_1128;

					BgL_newz00_1128 = make_string_sans_fill(BgL_lenz00_1127);
					{	/* Ieee/string.scm 610 */

						{	/* Ieee/string.scm 611 */
							long BgL_g1023z00_1129;

							BgL_g1023z00_1129 = (BgL_lenz00_1127 - 1L);
							{
								long BgL_iz00_1131;

								BgL_iz00_1131 = BgL_g1023z00_1129;
							BgL_zc3z04anonymousza31358ze3z87_1132:
								if ((BgL_iz00_1131 == (-1L)))
									{	/* Ieee/string.scm 612 */
										return BgL_newz00_1128;
									}
								else
									{	/* Ieee/string.scm 612 */
										{	/* Ieee/string.scm 349 */
											unsigned char BgL_tmpz00_6491;

											BgL_tmpz00_6491 =
												STRING_REF(BgL_stringz00_85, BgL_iz00_1131);
											STRING_SET(BgL_newz00_1128, BgL_iz00_1131,
												BgL_tmpz00_6491);
										}
										{
											long BgL_iz00_6494;

											BgL_iz00_6494 = (BgL_iz00_1131 - 1L);
											BgL_iz00_1131 = BgL_iz00_6494;
											goto BgL_zc3z04anonymousza31358ze3z87_1132;
										}
									}
							}
						}
					}
				}
			}
		}

	}



/* &string-copy */
	obj_t BGl_z62stringzd2copyzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4433,
		obj_t BgL_stringz00_4434)
	{
		{	/* Ieee/string.scm 608 */
			{	/* Ieee/string.scm 609 */
				obj_t BgL_auxz00_6496;

				if (STRINGP(BgL_stringz00_4434))
					{	/* Ieee/string.scm 609 */
						BgL_auxz00_6496 = BgL_stringz00_4434;
					}
				else
					{
						obj_t BgL_auxz00_6499;

						BgL_auxz00_6499 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(28227L),
							BGl_string3066z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4434);
						FAILURE(BgL_auxz00_6499, BFALSE, BFALSE);
					}
				return BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_auxz00_6496);
			}
		}

	}



/* string-fill! */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_86, unsigned char BgL_charz00_87)
	{
		{	/* Ieee/string.scm 621 */
			{	/* Ieee/string.scm 622 */
				long BgL_lenz00_2870;

				BgL_lenz00_2870 = STRING_LENGTH(BgL_stringz00_86);
				{
					long BgL_iz00_2893;

					BgL_iz00_2893 = 0L;
				BgL_loopz00_2892:
					if ((BgL_iz00_2893 == BgL_lenz00_2870))
						{	/* Ieee/string.scm 624 */
							return BUNSPEC;
						}
					else
						{	/* Ieee/string.scm 624 */
							STRING_SET(BgL_stringz00_86, BgL_iz00_2893, BgL_charz00_87);
							{
								long BgL_iz00_6508;

								BgL_iz00_6508 = (BgL_iz00_2893 + 1L);
								BgL_iz00_2893 = BgL_iz00_6508;
								goto BgL_loopz00_2892;
							}
						}
				}
			}
		}

	}



/* &string-fill! */
	obj_t BGl_z62stringzd2fillz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4435,
		obj_t BgL_stringz00_4436, obj_t BgL_charz00_4437)
	{
		{	/* Ieee/string.scm 621 */
			{	/* Ieee/string.scm 622 */
				unsigned char BgL_auxz00_6517;
				obj_t BgL_auxz00_6510;

				{	/* Ieee/string.scm 622 */
					obj_t BgL_tmpz00_6518;

					if (CHARP(BgL_charz00_4437))
						{	/* Ieee/string.scm 622 */
							BgL_tmpz00_6518 = BgL_charz00_4437;
						}
					else
						{
							obj_t BgL_auxz00_6521;

							BgL_auxz00_6521 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(28709L),
								BGl_string3067z00zz__r4_strings_6_7z00,
								BGl_string3032z00zz__r4_strings_6_7z00, BgL_charz00_4437);
							FAILURE(BgL_auxz00_6521, BFALSE, BFALSE);
						}
					BgL_auxz00_6517 = CCHAR(BgL_tmpz00_6518);
				}
				if (STRINGP(BgL_stringz00_4436))
					{	/* Ieee/string.scm 622 */
						BgL_auxz00_6510 = BgL_stringz00_4436;
					}
				else
					{
						obj_t BgL_auxz00_6513;

						BgL_auxz00_6513 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(28709L),
							BGl_string3067z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4436);
						FAILURE(BgL_auxz00_6513, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2fillz12zc0zz__r4_strings_6_7z00(BgL_auxz00_6510,
					BgL_auxz00_6517);
			}
		}

	}



/* string-upcase */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_88)
	{
		{	/* Ieee/string.scm 633 */
			{	/* Ieee/string.scm 634 */
				long BgL_lenz00_1144;

				BgL_lenz00_1144 = STRING_LENGTH(BgL_stringz00_88);
				{	/* Ieee/string.scm 634 */
					obj_t BgL_resz00_1145;

					BgL_resz00_1145 = make_string_sans_fill(BgL_lenz00_1144);
					{	/* Ieee/string.scm 635 */

						{
							long BgL_iz00_2915;

							BgL_iz00_2915 = 0L;
						BgL_loopz00_2914:
							if ((BgL_iz00_2915 == BgL_lenz00_1144))
								{	/* Ieee/string.scm 637 */
									return BgL_resz00_1145;
								}
							else
								{	/* Ieee/string.scm 637 */
									{	/* Ieee/string.scm 349 */
										unsigned char BgL_tmpz00_6531;

										BgL_tmpz00_6531 =
											toupper(STRING_REF(BgL_stringz00_88, BgL_iz00_2915));
										STRING_SET(BgL_resz00_1145, BgL_iz00_2915, BgL_tmpz00_6531);
									}
									{
										long BgL_iz00_6535;

										BgL_iz00_6535 = (BgL_iz00_2915 + 1L);
										BgL_iz00_2915 = BgL_iz00_6535;
										goto BgL_loopz00_2914;
									}
								}
						}
					}
				}
			}
		}

	}



/* &string-upcase */
	obj_t BGl_z62stringzd2upcasezb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4438,
		obj_t BgL_stringz00_4439)
	{
		{	/* Ieee/string.scm 633 */
			{	/* Ieee/string.scm 634 */
				obj_t BgL_auxz00_6537;

				if (STRINGP(BgL_stringz00_4439))
					{	/* Ieee/string.scm 634 */
						BgL_auxz00_6537 = BgL_stringz00_4439;
					}
				else
					{
						obj_t BgL_auxz00_6540;

						BgL_auxz00_6540 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(29133L),
							BGl_string3068z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4439);
						FAILURE(BgL_auxz00_6540, BFALSE, BFALSE);
					}
				return BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_auxz00_6537);
			}
		}

	}



/* string-downcase */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_89)
	{
		{	/* Ieee/string.scm 646 */
			{	/* Ieee/string.scm 647 */
				long BgL_lenz00_1154;

				BgL_lenz00_1154 = STRING_LENGTH(BgL_stringz00_89);
				{	/* Ieee/string.scm 647 */
					obj_t BgL_resz00_1155;

					BgL_resz00_1155 = make_string_sans_fill(BgL_lenz00_1154);
					{	/* Ieee/string.scm 648 */

						{
							long BgL_iz00_2940;

							BgL_iz00_2940 = 0L;
						BgL_loopz00_2939:
							if ((BgL_iz00_2940 == BgL_lenz00_1154))
								{	/* Ieee/string.scm 650 */
									return BgL_resz00_1155;
								}
							else
								{	/* Ieee/string.scm 650 */
									{	/* Ieee/string.scm 349 */
										unsigned char BgL_tmpz00_6549;

										BgL_tmpz00_6549 =
											tolower(STRING_REF(BgL_stringz00_89, BgL_iz00_2940));
										STRING_SET(BgL_resz00_1155, BgL_iz00_2940, BgL_tmpz00_6549);
									}
									{
										long BgL_iz00_6553;

										BgL_iz00_6553 = (BgL_iz00_2940 + 1L);
										BgL_iz00_2940 = BgL_iz00_6553;
										goto BgL_loopz00_2939;
									}
								}
						}
					}
				}
			}
		}

	}



/* &string-downcase */
	obj_t BGl_z62stringzd2downcasezb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4440,
		obj_t BgL_stringz00_4441)
	{
		{	/* Ieee/string.scm 646 */
			{	/* Ieee/string.scm 647 */
				obj_t BgL_auxz00_6555;

				if (STRINGP(BgL_stringz00_4441))
					{	/* Ieee/string.scm 647 */
						BgL_auxz00_6555 = BgL_stringz00_4441;
					}
				else
					{
						obj_t BgL_auxz00_6558;

						BgL_auxz00_6558 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(29618L),
							BGl_string3069z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4441);
						FAILURE(BgL_auxz00_6558, BFALSE, BFALSE);
					}
				return BGl_stringzd2downcasezd2zz__r4_strings_6_7z00(BgL_auxz00_6555);
			}
		}

	}



/* string-upcase! */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_90)
	{
		{	/* Ieee/string.scm 659 */
			{	/* Ieee/string.scm 660 */
				long BgL_lenz00_1164;

				BgL_lenz00_1164 = STRING_LENGTH(BgL_stringz00_90);
				{
					long BgL_iz00_2965;

					BgL_iz00_2965 = 0L;
				BgL_loopz00_2964:
					if ((BgL_iz00_2965 == BgL_lenz00_1164))
						{	/* Ieee/string.scm 662 */
							return BgL_stringz00_90;
						}
					else
						{	/* Ieee/string.scm 662 */
							{	/* Ieee/string.scm 349 */
								unsigned char BgL_tmpz00_6566;

								BgL_tmpz00_6566 =
									toupper(STRING_REF(BgL_stringz00_90, BgL_iz00_2965));
								STRING_SET(BgL_stringz00_90, BgL_iz00_2965, BgL_tmpz00_6566);
							}
							{
								long BgL_iz00_6570;

								BgL_iz00_6570 = (BgL_iz00_2965 + 1L);
								BgL_iz00_2965 = BgL_iz00_6570;
								goto BgL_loopz00_2964;
							}
						}
				}
			}
		}

	}



/* &string-upcase! */
	obj_t BGl_z62stringzd2upcasez12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4442,
		obj_t BgL_stringz00_4443)
	{
		{	/* Ieee/string.scm 659 */
			{	/* Ieee/string.scm 660 */
				obj_t BgL_auxz00_6572;

				if (STRINGP(BgL_stringz00_4443))
					{	/* Ieee/string.scm 660 */
						BgL_auxz00_6572 = BgL_stringz00_4443;
					}
				else
					{
						obj_t BgL_auxz00_6575;

						BgL_auxz00_6575 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(30104L),
							BGl_string3070z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4443);
						FAILURE(BgL_auxz00_6575, BFALSE, BFALSE);
					}
				return BGl_stringzd2upcasez12zc0zz__r4_strings_6_7z00(BgL_auxz00_6572);
			}
		}

	}



/* string-downcase! */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_91)
	{
		{	/* Ieee/string.scm 671 */
			{	/* Ieee/string.scm 672 */
				long BgL_lenz00_1173;

				BgL_lenz00_1173 = STRING_LENGTH(BgL_stringz00_91);
				{
					long BgL_iz00_2990;

					BgL_iz00_2990 = 0L;
				BgL_loopz00_2989:
					if ((BgL_iz00_2990 == BgL_lenz00_1173))
						{	/* Ieee/string.scm 674 */
							return BgL_stringz00_91;
						}
					else
						{	/* Ieee/string.scm 674 */
							{	/* Ieee/string.scm 349 */
								unsigned char BgL_tmpz00_6583;

								BgL_tmpz00_6583 =
									tolower(STRING_REF(BgL_stringz00_91, BgL_iz00_2990));
								STRING_SET(BgL_stringz00_91, BgL_iz00_2990, BgL_tmpz00_6583);
							}
							{
								long BgL_iz00_6587;

								BgL_iz00_6587 = (BgL_iz00_2990 + 1L);
								BgL_iz00_2990 = BgL_iz00_6587;
								goto BgL_loopz00_2989;
							}
						}
				}
			}
		}

	}



/* &string-downcase! */
	obj_t BGl_z62stringzd2downcasez12za2zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4444, obj_t BgL_stringz00_4445)
	{
		{	/* Ieee/string.scm 671 */
			{	/* Ieee/string.scm 672 */
				obj_t BgL_auxz00_6589;

				if (STRINGP(BgL_stringz00_4445))
					{	/* Ieee/string.scm 672 */
						BgL_auxz00_6589 = BgL_stringz00_4445;
					}
				else
					{
						obj_t BgL_auxz00_6592;

						BgL_auxz00_6592 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(30559L),
							BGl_string3071z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4445);
						FAILURE(BgL_auxz00_6592, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2downcasez12zc0zz__r4_strings_6_7z00(BgL_auxz00_6589);
			}
		}

	}



/* string-capitalize! */
	BGL_EXPORTED_DEF obj_t
		BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(obj_t BgL_stringz00_92)
	{
		{	/* Ieee/string.scm 687 */
			{	/* Ieee/string.scm 688 */
				bool_t BgL_nonzd2firstzd2alphaz00_1182;
				long BgL_stringzd2lenzd2_1183;

				BgL_nonzd2firstzd2alphaz00_1182 = ((bool_t) 0);
				BgL_stringzd2lenzd2_1183 = STRING_LENGTH(BgL_stringz00_92);
				{
					long BgL_iz00_1185;

					BgL_iz00_1185 = 0L;
				BgL_zc3z04anonymousza31385ze3z87_1186:
					if ((BgL_iz00_1185 == BgL_stringzd2lenzd2_1183))
						{	/* Ieee/string.scm 690 */
							return BgL_stringz00_92;
						}
					else
						{	/* Ieee/string.scm 690 */
							{	/* Ieee/string.scm 692 */
								unsigned char BgL_cz00_1188;

								BgL_cz00_1188 = STRING_REF(BgL_stringz00_92, BgL_iz00_1185);
								{	/* Ieee/string.scm 693 */
									bool_t BgL_test3496z00_6601;

									if (isalpha(BgL_cz00_1188))
										{	/* Ieee/string.scm 693 */
											BgL_test3496z00_6601 = ((bool_t) 1);
										}
									else
										{	/* Ieee/string.scm 693 */
											BgL_test3496z00_6601 = ((BgL_cz00_1188) > 127L);
										}
									if (BgL_test3496z00_6601)
										{	/* Ieee/string.scm 693 */
											if (BgL_nonzd2firstzd2alphaz00_1182)
												{	/* Ieee/string.scm 349 */
													unsigned char BgL_tmpz00_6607;

													BgL_tmpz00_6607 = tolower(BgL_cz00_1188);
													STRING_SET(BgL_stringz00_92, BgL_iz00_1185,
														BgL_tmpz00_6607);
												}
											else
												{	/* Ieee/string.scm 694 */
													BgL_nonzd2firstzd2alphaz00_1182 = ((bool_t) 1);
													{	/* Ieee/string.scm 349 */
														unsigned char BgL_tmpz00_6610;

														BgL_tmpz00_6610 = toupper(BgL_cz00_1188);
														STRING_SET(BgL_stringz00_92, BgL_iz00_1185,
															BgL_tmpz00_6610);
										}}}
									else
										{	/* Ieee/string.scm 693 */
											BgL_nonzd2firstzd2alphaz00_1182 = ((bool_t) 0);
										}
								}
							}
							{
								long BgL_iz00_6613;

								BgL_iz00_6613 = (BgL_iz00_1185 + 1L);
								BgL_iz00_1185 = BgL_iz00_6613;
								goto BgL_zc3z04anonymousza31385ze3z87_1186;
							}
						}
				}
			}
		}

	}



/* &string-capitalize! */
	obj_t BGl_z62stringzd2capitaliza7ez12z05zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4446, obj_t BgL_stringz00_4447)
	{
		{	/* Ieee/string.scm 687 */
			{	/* Ieee/string.scm 688 */
				obj_t BgL_auxz00_6615;

				if (STRINGP(BgL_stringz00_4447))
					{	/* Ieee/string.scm 688 */
						BgL_auxz00_6615 = BgL_stringz00_4447;
					}
				else
					{
						obj_t BgL_auxz00_6618;

						BgL_auxz00_6618 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(31314L),
							BGl_string3072z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4447);
						FAILURE(BgL_auxz00_6618, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00(BgL_auxz00_6615);
			}
		}

	}



/* string-capitalize */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_93)
	{
		{	/* Ieee/string.scm 704 */
			BGL_TAIL return
				BGl_stringzd2capitaliza7ez12z67zz__r4_strings_6_7z00
				(BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_stringz00_93));
		}

	}



/* &string-capitalize */
	obj_t BGl_z62stringzd2capitaliza7ez17zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4448, obj_t BgL_stringz00_4449)
	{
		{	/* Ieee/string.scm 704 */
			{	/* Ieee/string.scm 705 */
				obj_t BgL_auxz00_6625;

				if (STRINGP(BgL_stringz00_4449))
					{	/* Ieee/string.scm 705 */
						BgL_auxz00_6625 = BgL_stringz00_4449;
					}
				else
					{
						obj_t BgL_auxz00_6628;

						BgL_auxz00_6628 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(32038L),
							BGl_string3073z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4449);
						FAILURE(BgL_auxz00_6628, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2capitaliza7ez75zz__r4_strings_6_7z00(BgL_auxz00_6625);
			}
		}

	}



/* string-for-read */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2forzd2readz00zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_94)
	{
		{	/* Ieee/string.scm 710 */
			BGL_TAIL return string_for_read(BgL_stringz00_94);
		}

	}



/* &string-for-read */
	obj_t BGl_z62stringzd2forzd2readz62zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4450, obj_t BgL_stringz00_4451)
	{
		{	/* Ieee/string.scm 710 */
			{	/* Ieee/string.scm 711 */
				obj_t BgL_auxz00_6634;

				if (STRINGP(BgL_stringz00_4451))
					{	/* Ieee/string.scm 711 */
						BgL_auxz00_6634 = BgL_stringz00_4451;
					}
				else
					{
						obj_t BgL_auxz00_6637;

						BgL_auxz00_6637 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(32327L),
							BGl_string3074z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4451);
						FAILURE(BgL_auxz00_6637, BFALSE, BFALSE);
					}
				return BGl_stringzd2forzd2readz00zz__r4_strings_6_7z00(BgL_auxz00_6634);
			}
		}

	}



/* escape-C-string */
	BGL_EXPORTED_DEF obj_t BGl_escapezd2Czd2stringz00zz__r4_strings_6_7z00(obj_t
		BgL_strz00_95)
	{
		{	/* Ieee/string.scm 718 */
			{	/* Ieee/string.scm 719 */
				obj_t BgL_arg1397z00_5354;

				{	/* Ieee/string.scm 194 */
					long BgL_endz00_5355;

					BgL_endz00_5355 = STRING_LENGTH(BgL_strz00_95);
					{	/* Ieee/string.scm 194 */

						BgL_arg1397z00_5354 =
							BGl_substringz00zz__r4_strings_6_7z00(BgL_strz00_95, 1L,
							BgL_endz00_5355);
				}}
				return
					bgl_escape_C_string(BSTRING_TO_STRING(BgL_arg1397z00_5354), 0L,
					STRING_LENGTH(BgL_arg1397z00_5354));
			}
		}

	}



/* &escape-C-string */
	obj_t BGl_z62escapezd2Czd2stringz62zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4452, obj_t BgL_strz00_4453)
	{
		{	/* Ieee/string.scm 718 */
			{	/* Ieee/string.scm 719 */
				obj_t BgL_auxz00_6647;

				if (STRINGP(BgL_strz00_4453))
					{	/* Ieee/string.scm 719 */
						BgL_auxz00_6647 = BgL_strz00_4453;
					}
				else
					{
						obj_t BgL_auxz00_6650;

						BgL_auxz00_6650 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(32781L),
							BGl_string3075z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_strz00_4453);
						FAILURE(BgL_auxz00_6650, BFALSE, BFALSE);
					}
				return BGl_escapezd2Czd2stringz00zz__r4_strings_6_7z00(BgL_auxz00_6647);
			}
		}

	}



/* escape-scheme-string */
	BGL_EXPORTED_DEF obj_t
		BGl_escapezd2schemezd2stringz00zz__r4_strings_6_7z00(obj_t BgL_strz00_96)
	{
		{	/* Ieee/string.scm 726 */
			return
				bgl_escape_scheme_string(BSTRING_TO_STRING(BgL_strz00_96), 0L,
				STRING_LENGTH(BgL_strz00_96));
		}

	}



/* &escape-scheme-string */
	obj_t BGl_z62escapezd2schemezd2stringz62zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4454, obj_t BgL_strz00_4455)
	{
		{	/* Ieee/string.scm 726 */
			{	/* Ieee/string.scm 727 */
				obj_t BgL_auxz00_6658;

				if (STRINGP(BgL_strz00_4455))
					{	/* Ieee/string.scm 727 */
						BgL_auxz00_6658 = BgL_strz00_4455;
					}
				else
					{
						obj_t BgL_auxz00_6661;

						BgL_auxz00_6661 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(33246L),
							BGl_string3076z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_strz00_4455);
						FAILURE(BgL_auxz00_6661, BFALSE, BFALSE);
					}
				return
					BGl_escapezd2schemezd2stringz00zz__r4_strings_6_7z00(BgL_auxz00_6658);
			}
		}

	}



/* string-as-read */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2aszd2readz00zz__r4_strings_6_7z00(obj_t
		BgL_strz00_97)
	{
		{	/* Ieee/string.scm 732 */
			return
				bgl_escape_C_string(BSTRING_TO_STRING(BgL_strz00_97), 0L,
				STRING_LENGTH(BgL_strz00_97));
		}

	}



/* &string-as-read */
	obj_t BGl_z62stringzd2aszd2readz62zz__r4_strings_6_7z00(obj_t BgL_envz00_4456,
		obj_t BgL_strz00_4457)
	{
		{	/* Ieee/string.scm 732 */
			{	/* Ieee/string.scm 733 */
				obj_t BgL_auxz00_6669;

				if (STRINGP(BgL_strz00_4457))
					{	/* Ieee/string.scm 733 */
						BgL_auxz00_6669 = BgL_strz00_4457;
					}
				else
					{
						obj_t BgL_auxz00_6672;

						BgL_auxz00_6672 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(33554L),
							BGl_string3077z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_strz00_4457);
						FAILURE(BgL_auxz00_6672, BFALSE, BFALSE);
					}
				return BGl_stringzd2aszd2readz00zz__r4_strings_6_7z00(BgL_auxz00_6669);
			}
		}

	}



/* blit-string-ur! */
	BGL_EXPORTED_DEF obj_t BGl_blitzd2stringzd2urz12z12zz__r4_strings_6_7z00(obj_t
		BgL_s1z00_98, long BgL_o1z00_99, obj_t BgL_s2z00_100, long BgL_o2z00_101,
		long BgL_lz00_102)
	{
		{	/* Ieee/string.scm 738 */
			BGL_TAIL return
				blit_string(BgL_s1z00_98, BgL_o1z00_99, BgL_s2z00_100, BgL_o2z00_101,
				BgL_lz00_102);
		}

	}



/* &blit-string-ur! */
	obj_t BGl_z62blitzd2stringzd2urz12z70zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4458, obj_t BgL_s1z00_4459, obj_t BgL_o1z00_4460,
		obj_t BgL_s2z00_4461, obj_t BgL_o2z00_4462, obj_t BgL_lz00_4463)
	{
		{	/* Ieee/string.scm 738 */
			{	/* Ieee/string.scm 739 */
				long BgL_auxz00_6710;
				long BgL_auxz00_6701;
				obj_t BgL_auxz00_6694;
				long BgL_auxz00_6685;
				obj_t BgL_auxz00_6678;

				{	/* Ieee/string.scm 739 */
					obj_t BgL_tmpz00_6711;

					if (INTEGERP(BgL_lz00_4463))
						{	/* Ieee/string.scm 739 */
							BgL_tmpz00_6711 = BgL_lz00_4463;
						}
					else
						{
							obj_t BgL_auxz00_6714;

							BgL_auxz00_6714 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(33849L),
								BGl_string3078z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_lz00_4463);
							FAILURE(BgL_auxz00_6714, BFALSE, BFALSE);
						}
					BgL_auxz00_6710 = (long) CINT(BgL_tmpz00_6711);
				}
				{	/* Ieee/string.scm 739 */
					obj_t BgL_tmpz00_6702;

					if (INTEGERP(BgL_o2z00_4462))
						{	/* Ieee/string.scm 739 */
							BgL_tmpz00_6702 = BgL_o2z00_4462;
						}
					else
						{
							obj_t BgL_auxz00_6705;

							BgL_auxz00_6705 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(33849L),
								BGl_string3078z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_o2z00_4462);
							FAILURE(BgL_auxz00_6705, BFALSE, BFALSE);
						}
					BgL_auxz00_6701 = (long) CINT(BgL_tmpz00_6702);
				}
				if (STRINGP(BgL_s2z00_4461))
					{	/* Ieee/string.scm 739 */
						BgL_auxz00_6694 = BgL_s2z00_4461;
					}
				else
					{
						obj_t BgL_auxz00_6697;

						BgL_auxz00_6697 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(33849L),
							BGl_string3078z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_s2z00_4461);
						FAILURE(BgL_auxz00_6697, BFALSE, BFALSE);
					}
				{	/* Ieee/string.scm 739 */
					obj_t BgL_tmpz00_6686;

					if (INTEGERP(BgL_o1z00_4460))
						{	/* Ieee/string.scm 739 */
							BgL_tmpz00_6686 = BgL_o1z00_4460;
						}
					else
						{
							obj_t BgL_auxz00_6689;

							BgL_auxz00_6689 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(33849L),
								BGl_string3078z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_o1z00_4460);
							FAILURE(BgL_auxz00_6689, BFALSE, BFALSE);
						}
					BgL_auxz00_6685 = (long) CINT(BgL_tmpz00_6686);
				}
				if (STRINGP(BgL_s1z00_4459))
					{	/* Ieee/string.scm 739 */
						BgL_auxz00_6678 = BgL_s1z00_4459;
					}
				else
					{
						obj_t BgL_auxz00_6681;

						BgL_auxz00_6681 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(33849L),
							BGl_string3078z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_s1z00_4459);
						FAILURE(BgL_auxz00_6681, BFALSE, BFALSE);
					}
				return
					BGl_blitzd2stringzd2urz12z12zz__r4_strings_6_7z00(BgL_auxz00_6678,
					BgL_auxz00_6685, BgL_auxz00_6694, BgL_auxz00_6701, BgL_auxz00_6710);
			}
		}

	}



/* blit-string! */
	BGL_EXPORTED_DEF obj_t BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(obj_t
		BgL_s1z00_103, long BgL_o1z00_104, obj_t BgL_s2z00_105, long BgL_o2z00_106,
		long BgL_lz00_107)
	{
		{	/* Ieee/string.scm 744 */
			{	/* Ieee/string.scm 745 */
				bool_t BgL_test3510z00_6720;

				{	/* Ieee/string.scm 745 */
					bool_t BgL_test3511z00_6721;

					{	/* Ieee/string.scm 745 */
						long BgL_auxz00_6724;
						long BgL_tmpz00_6722;

						BgL_auxz00_6724 = (STRING_LENGTH(BgL_s1z00_103) + 1L);
						BgL_tmpz00_6722 = (BgL_lz00_107 + BgL_o1z00_104);
						BgL_test3511z00_6721 =
							BOUND_CHECK(BgL_tmpz00_6722, BgL_auxz00_6724);
					}
					if (BgL_test3511z00_6721)
						{	/* Ieee/string.scm 746 */
							long BgL_auxz00_6730;
							long BgL_tmpz00_6728;

							BgL_auxz00_6730 = (STRING_LENGTH(BgL_s2z00_105) + 1L);
							BgL_tmpz00_6728 = (BgL_lz00_107 + BgL_o2z00_106);
							BgL_test3510z00_6720 =
								BOUND_CHECK(BgL_tmpz00_6728, BgL_auxz00_6730);
						}
					else
						{	/* Ieee/string.scm 745 */
							BgL_test3510z00_6720 = ((bool_t) 0);
						}
				}
				if (BgL_test3510z00_6720)
					{	/* Ieee/string.scm 745 */
						BGL_TAIL return
							blit_string(BgL_s1z00_103, BgL_o1z00_104, BgL_s2z00_105,
							BgL_o2z00_106, BgL_lz00_107);
					}
				else
					{	/* Ieee/string.scm 749 */
						obj_t BgL_arg1412z00_1216;
						obj_t BgL_arg1413z00_1217;

						{	/* Ieee/string.scm 749 */
							obj_t BgL_list1414z00_1218;

							{	/* Ieee/string.scm 749 */
								obj_t BgL_arg1415z00_1219;

								{	/* Ieee/string.scm 749 */
									obj_t BgL_arg1416z00_1220;

									{	/* Ieee/string.scm 749 */
										obj_t BgL_arg1417z00_1221;

										{	/* Ieee/string.scm 749 */
											obj_t BgL_arg1419z00_1222;

											BgL_arg1419z00_1222 =
												MAKE_YOUNG_PAIR(BGl_string3079z00zz__r4_strings_6_7z00,
												BNIL);
											BgL_arg1417z00_1221 =
												MAKE_YOUNG_PAIR(BgL_s2z00_105, BgL_arg1419z00_1222);
										}
										BgL_arg1416z00_1220 =
											MAKE_YOUNG_PAIR(BGl_string3080z00zz__r4_strings_6_7z00,
											BgL_arg1417z00_1221);
									}
									BgL_arg1415z00_1219 =
										MAKE_YOUNG_PAIR(BgL_s1z00_103, BgL_arg1416z00_1220);
								}
								BgL_list1414z00_1218 =
									MAKE_YOUNG_PAIR(BGl_string3081z00zz__r4_strings_6_7z00,
									BgL_arg1415z00_1219);
							}
							BgL_arg1412z00_1216 =
								BGl_stringzd2appendzd2zz__r4_strings_6_7z00
								(BgL_list1414z00_1218);
						}
						{	/* Ieee/string.scm 750 */
							long BgL_arg1420z00_1223;
							long BgL_arg1421z00_1224;

							BgL_arg1420z00_1223 = STRING_LENGTH(BgL_s1z00_103);
							BgL_arg1421z00_1224 = STRING_LENGTH(BgL_s2z00_105);
							{	/* Ieee/string.scm 750 */
								obj_t BgL_list1422z00_1225;

								{	/* Ieee/string.scm 750 */
									obj_t BgL_arg1423z00_1226;

									{	/* Ieee/string.scm 750 */
										obj_t BgL_arg1424z00_1227;

										{	/* Ieee/string.scm 750 */
											obj_t BgL_arg1425z00_1228;

											{	/* Ieee/string.scm 750 */
												obj_t BgL_arg1426z00_1229;

												BgL_arg1426z00_1229 =
													MAKE_YOUNG_PAIR(BINT(BgL_lz00_107), BNIL);
												BgL_arg1425z00_1228 =
													MAKE_YOUNG_PAIR(BINT(BgL_o2z00_106),
													BgL_arg1426z00_1229);
											}
											BgL_arg1424z00_1227 =
												MAKE_YOUNG_PAIR(BINT(BgL_arg1421z00_1224),
												BgL_arg1425z00_1228);
										}
										BgL_arg1423z00_1226 =
											MAKE_YOUNG_PAIR(BINT(BgL_o1z00_104), BgL_arg1424z00_1227);
									}
									BgL_list1422z00_1225 =
										MAKE_YOUNG_PAIR(BINT(BgL_arg1420z00_1223),
										BgL_arg1423z00_1226);
								}
								BgL_arg1413z00_1217 = BgL_list1422z00_1225;
						}}
						return
							BGl_errorz00zz__errorz00(BGl_string3082z00zz__r4_strings_6_7z00,
							BgL_arg1412z00_1216, BgL_arg1413z00_1217);
					}
			}
		}

	}



/* &blit-string! */
	obj_t BGl_z62blitzd2stringz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4464,
		obj_t BgL_s1z00_4465, obj_t BgL_o1z00_4466, obj_t BgL_s2z00_4467,
		obj_t BgL_o2z00_4468, obj_t BgL_lz00_4469)
	{
		{	/* Ieee/string.scm 744 */
			{	/* Ieee/string.scm 745 */
				long BgL_auxz00_6786;
				long BgL_auxz00_6777;
				obj_t BgL_auxz00_6770;
				long BgL_auxz00_6761;
				obj_t BgL_auxz00_6754;

				{	/* Ieee/string.scm 745 */
					obj_t BgL_tmpz00_6787;

					if (INTEGERP(BgL_lz00_4469))
						{	/* Ieee/string.scm 745 */
							BgL_tmpz00_6787 = BgL_lz00_4469;
						}
					else
						{
							obj_t BgL_auxz00_6790;

							BgL_auxz00_6790 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(34142L),
								BGl_string3083z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_lz00_4469);
							FAILURE(BgL_auxz00_6790, BFALSE, BFALSE);
						}
					BgL_auxz00_6786 = (long) CINT(BgL_tmpz00_6787);
				}
				{	/* Ieee/string.scm 745 */
					obj_t BgL_tmpz00_6778;

					if (INTEGERP(BgL_o2z00_4468))
						{	/* Ieee/string.scm 745 */
							BgL_tmpz00_6778 = BgL_o2z00_4468;
						}
					else
						{
							obj_t BgL_auxz00_6781;

							BgL_auxz00_6781 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(34142L),
								BGl_string3083z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_o2z00_4468);
							FAILURE(BgL_auxz00_6781, BFALSE, BFALSE);
						}
					BgL_auxz00_6777 = (long) CINT(BgL_tmpz00_6778);
				}
				if (STRINGP(BgL_s2z00_4467))
					{	/* Ieee/string.scm 745 */
						BgL_auxz00_6770 = BgL_s2z00_4467;
					}
				else
					{
						obj_t BgL_auxz00_6773;

						BgL_auxz00_6773 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(34142L),
							BGl_string3083z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_s2z00_4467);
						FAILURE(BgL_auxz00_6773, BFALSE, BFALSE);
					}
				{	/* Ieee/string.scm 745 */
					obj_t BgL_tmpz00_6762;

					if (INTEGERP(BgL_o1z00_4466))
						{	/* Ieee/string.scm 745 */
							BgL_tmpz00_6762 = BgL_o1z00_4466;
						}
					else
						{
							obj_t BgL_auxz00_6765;

							BgL_auxz00_6765 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(34142L),
								BGl_string3083z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_o1z00_4466);
							FAILURE(BgL_auxz00_6765, BFALSE, BFALSE);
						}
					BgL_auxz00_6761 = (long) CINT(BgL_tmpz00_6762);
				}
				if (STRINGP(BgL_s1z00_4465))
					{	/* Ieee/string.scm 745 */
						BgL_auxz00_6754 = BgL_s1z00_4465;
					}
				else
					{
						obj_t BgL_auxz00_6757;

						BgL_auxz00_6757 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(34142L),
							BGl_string3083z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_s1z00_4465);
						FAILURE(BgL_auxz00_6757, BFALSE, BFALSE);
					}
				return
					BGl_blitzd2stringz12zc0zz__r4_strings_6_7z00(BgL_auxz00_6754,
					BgL_auxz00_6761, BgL_auxz00_6770, BgL_auxz00_6777, BgL_auxz00_6786);
			}
		}

	}



/* string-shrink! */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2shrinkz12zc0zz__r4_strings_6_7z00(obj_t
		BgL_sz00_108, long BgL_lz00_109)
	{
		{	/* Ieee/string.scm 755 */
			return bgl_string_shrink(BgL_sz00_108, BgL_lz00_109);
		}

	}



/* &string-shrink! */
	obj_t BGl_z62stringzd2shrinkz12za2zz__r4_strings_6_7z00(obj_t BgL_envz00_4470,
		obj_t BgL_sz00_4471, obj_t BgL_lz00_4472)
	{
		{	/* Ieee/string.scm 755 */
			{	/* Ieee/string.scm 756 */
				long BgL_auxz00_6804;
				obj_t BgL_auxz00_6797;

				{	/* Ieee/string.scm 756 */
					obj_t BgL_tmpz00_6805;

					if (INTEGERP(BgL_lz00_4472))
						{	/* Ieee/string.scm 756 */
							BgL_tmpz00_6805 = BgL_lz00_4472;
						}
					else
						{
							obj_t BgL_auxz00_6808;

							BgL_auxz00_6808 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(34751L),
								BGl_string3084z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_lz00_4472);
							FAILURE(BgL_auxz00_6808, BFALSE, BFALSE);
						}
					BgL_auxz00_6804 = (long) CINT(BgL_tmpz00_6805);
				}
				if (STRINGP(BgL_sz00_4471))
					{	/* Ieee/string.scm 756 */
						BgL_auxz00_6797 = BgL_sz00_4471;
					}
				else
					{
						obj_t BgL_auxz00_6800;

						BgL_auxz00_6800 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(34751L),
							BGl_string3084z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_sz00_4471);
						FAILURE(BgL_auxz00_6800, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2shrinkz12zc0zz__r4_strings_6_7z00(BgL_auxz00_6797,
					BgL_auxz00_6804);
			}
		}

	}



/* string-replace */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2replacezd2zz__r4_strings_6_7z00(obj_t
		BgL_strz00_110, unsigned char BgL_c1z00_111, unsigned char BgL_c2z00_112)
	{
		{	/* Ieee/string.scm 761 */
			{	/* Ieee/string.scm 762 */
				long BgL_lenz00_1237;

				BgL_lenz00_1237 = STRING_LENGTH(BgL_strz00_110);
				{	/* Ieee/string.scm 762 */
					obj_t BgL_newz00_1238;

					{	/* Ieee/string.scm 172 */

						BgL_newz00_1238 =
							make_string(BgL_lenz00_1237, ((unsigned char) ' '));
					}
					{	/* Ieee/string.scm 763 */

						{
							long BgL_iz00_1240;

							BgL_iz00_1240 = 0L;
						BgL_zc3z04anonymousza31433ze3z87_1241:
							if ((BgL_iz00_1240 == BgL_lenz00_1237))
								{	/* Ieee/string.scm 765 */
									return BgL_newz00_1238;
								}
							else
								{	/* Ieee/string.scm 767 */
									unsigned char BgL_cz00_1243;

									BgL_cz00_1243 = STRING_REF(BgL_strz00_110, BgL_iz00_1240);
									if ((BgL_cz00_1243 == (unsigned char) (BgL_c1z00_111)))
										{	/* Ieee/string.scm 349 */
											unsigned char BgL_tmpz00_6822;

											BgL_tmpz00_6822 = (unsigned char) (BgL_c2z00_112);
											STRING_SET(BgL_newz00_1238, BgL_iz00_1240,
												BgL_tmpz00_6822);
										}
									else
										{	/* Ieee/string.scm 768 */
											STRING_SET(BgL_newz00_1238, BgL_iz00_1240, BgL_cz00_1243);
										}
									{
										long BgL_iz00_6826;

										BgL_iz00_6826 = (BgL_iz00_1240 + 1L);
										BgL_iz00_1240 = BgL_iz00_6826;
										goto BgL_zc3z04anonymousza31433ze3z87_1241;
									}
								}
						}
					}
				}
			}
		}

	}



/* &string-replace */
	obj_t BGl_z62stringzd2replacezb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4473,
		obj_t BgL_strz00_4474, obj_t BgL_c1z00_4475, obj_t BgL_c2z00_4476)
	{
		{	/* Ieee/string.scm 761 */
			{	/* Ieee/string.scm 762 */
				unsigned char BgL_auxz00_6844;
				unsigned char BgL_auxz00_6835;
				obj_t BgL_auxz00_6828;

				{	/* Ieee/string.scm 762 */
					obj_t BgL_tmpz00_6845;

					if (CHARP(BgL_c2z00_4476))
						{	/* Ieee/string.scm 762 */
							BgL_tmpz00_6845 = BgL_c2z00_4476;
						}
					else
						{
							obj_t BgL_auxz00_6848;

							BgL_auxz00_6848 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(35035L),
								BGl_string3085z00zz__r4_strings_6_7z00,
								BGl_string3032z00zz__r4_strings_6_7z00, BgL_c2z00_4476);
							FAILURE(BgL_auxz00_6848, BFALSE, BFALSE);
						}
					BgL_auxz00_6844 = CCHAR(BgL_tmpz00_6845);
				}
				{	/* Ieee/string.scm 762 */
					obj_t BgL_tmpz00_6836;

					if (CHARP(BgL_c1z00_4475))
						{	/* Ieee/string.scm 762 */
							BgL_tmpz00_6836 = BgL_c1z00_4475;
						}
					else
						{
							obj_t BgL_auxz00_6839;

							BgL_auxz00_6839 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(35035L),
								BGl_string3085z00zz__r4_strings_6_7z00,
								BGl_string3032z00zz__r4_strings_6_7z00, BgL_c1z00_4475);
							FAILURE(BgL_auxz00_6839, BFALSE, BFALSE);
						}
					BgL_auxz00_6835 = CCHAR(BgL_tmpz00_6836);
				}
				if (STRINGP(BgL_strz00_4474))
					{	/* Ieee/string.scm 762 */
						BgL_auxz00_6828 = BgL_strz00_4474;
					}
				else
					{
						obj_t BgL_auxz00_6831;

						BgL_auxz00_6831 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(35035L),
							BGl_string3085z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_strz00_4474);
						FAILURE(BgL_auxz00_6831, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2replacezd2zz__r4_strings_6_7z00(BgL_auxz00_6828,
					BgL_auxz00_6835, BgL_auxz00_6844);
			}
		}

	}



/* string-replace! */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2replacez12zc0zz__r4_strings_6_7z00(obj_t
		BgL_strz00_113, unsigned char BgL_c1z00_114, unsigned char BgL_c2z00_115)
	{
		{	/* Ieee/string.scm 776 */
			{	/* Ieee/string.scm 777 */
				long BgL_lenz00_1249;

				BgL_lenz00_1249 = STRING_LENGTH(BgL_strz00_113);
				{
					long BgL_iz00_1251;

					BgL_iz00_1251 = 0L;
				BgL_zc3z04anonymousza31437ze3z87_1252:
					if ((BgL_iz00_1251 == BgL_lenz00_1249))
						{	/* Ieee/string.scm 780 */
							return BgL_strz00_113;
						}
					else
						{	/* Ieee/string.scm 780 */
							if (
								(STRING_REF(BgL_strz00_113, BgL_iz00_1251) ==
									(unsigned char) (BgL_c1z00_114)))
								{	/* Ieee/string.scm 782 */
									{	/* Ieee/string.scm 349 */
										unsigned char BgL_tmpz00_6861;

										BgL_tmpz00_6861 = (unsigned char) (BgL_c2z00_115);
										STRING_SET(BgL_strz00_113, BgL_iz00_1251, BgL_tmpz00_6861);
									}
									{
										long BgL_iz00_6864;

										BgL_iz00_6864 = (BgL_iz00_1251 + 1L);
										BgL_iz00_1251 = BgL_iz00_6864;
										goto BgL_zc3z04anonymousza31437ze3z87_1252;
									}
								}
							else
								{
									long BgL_iz00_6866;

									BgL_iz00_6866 = (BgL_iz00_1251 + 1L);
									BgL_iz00_1251 = BgL_iz00_6866;
									goto BgL_zc3z04anonymousza31437ze3z87_1252;
								}
						}
				}
			}
		}

	}



/* &string-replace! */
	obj_t BGl_z62stringzd2replacez12za2zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4477, obj_t BgL_strz00_4478, obj_t BgL_c1z00_4479,
		obj_t BgL_c2z00_4480)
	{
		{	/* Ieee/string.scm 776 */
			{	/* Ieee/string.scm 777 */
				unsigned char BgL_auxz00_6884;
				unsigned char BgL_auxz00_6875;
				obj_t BgL_auxz00_6868;

				{	/* Ieee/string.scm 777 */
					obj_t BgL_tmpz00_6885;

					if (CHARP(BgL_c2z00_4480))
						{	/* Ieee/string.scm 777 */
							BgL_tmpz00_6885 = BgL_c2z00_4480;
						}
					else
						{
							obj_t BgL_auxz00_6888;

							BgL_auxz00_6888 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(35557L),
								BGl_string3086z00zz__r4_strings_6_7z00,
								BGl_string3032z00zz__r4_strings_6_7z00, BgL_c2z00_4480);
							FAILURE(BgL_auxz00_6888, BFALSE, BFALSE);
						}
					BgL_auxz00_6884 = CCHAR(BgL_tmpz00_6885);
				}
				{	/* Ieee/string.scm 777 */
					obj_t BgL_tmpz00_6876;

					if (CHARP(BgL_c1z00_4479))
						{	/* Ieee/string.scm 777 */
							BgL_tmpz00_6876 = BgL_c1z00_4479;
						}
					else
						{
							obj_t BgL_auxz00_6879;

							BgL_auxz00_6879 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(35557L),
								BGl_string3086z00zz__r4_strings_6_7z00,
								BGl_string3032z00zz__r4_strings_6_7z00, BgL_c1z00_4479);
							FAILURE(BgL_auxz00_6879, BFALSE, BFALSE);
						}
					BgL_auxz00_6875 = CCHAR(BgL_tmpz00_6876);
				}
				if (STRINGP(BgL_strz00_4478))
					{	/* Ieee/string.scm 777 */
						BgL_auxz00_6868 = BgL_strz00_4478;
					}
				else
					{
						obj_t BgL_auxz00_6871;

						BgL_auxz00_6871 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(35557L),
							BGl_string3086z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_strz00_4478);
						FAILURE(BgL_auxz00_6871, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2replacez12zc0zz__r4_strings_6_7z00(BgL_auxz00_6868,
					BgL_auxz00_6875, BgL_auxz00_6884);
			}
		}

	}



/* _string-delete */
	obj_t BGl__stringzd2deletezd2zz__r4_strings_6_7z00(obj_t BgL_env1129z00_121,
		obj_t BgL_opt1128z00_120)
	{
		{	/* Ieee/string.scm 791 */
			{	/* Ieee/string.scm 791 */
				obj_t BgL_stringz00_1260;
				obj_t BgL_g1130z00_1261;

				{
					obj_t BgL_auxz00_6894;

					if (VECTORP(BgL_opt1128z00_120))
						{	/* Ieee/string.scm 791 */
							BgL_auxz00_6894 = BgL_opt1128z00_120;
						}
					else
						{
							obj_t BgL_auxz00_6897;

							BgL_auxz00_6897 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(36009L),
								BGl_string3087z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1128z00_120);
							FAILURE(BgL_auxz00_6897, BFALSE, BFALSE);
						}
					BgL_stringz00_1260 = VECTOR_REF(BgL_auxz00_6894, 0L);
				}
				{
					obj_t BgL_auxz00_6902;

					if (VECTORP(BgL_opt1128z00_120))
						{	/* Ieee/string.scm 791 */
							BgL_auxz00_6902 = BgL_opt1128z00_120;
						}
					else
						{
							obj_t BgL_auxz00_6905;

							BgL_auxz00_6905 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(36009L),
								BGl_string3087z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1128z00_120);
							FAILURE(BgL_auxz00_6905, BFALSE, BFALSE);
						}
					BgL_g1130z00_1261 = VECTOR_REF(BgL_auxz00_6902, 1L);
				}
				{	/* Ieee/string.scm 791 */
					long BgL_aux1132z00_1263;

					{
						obj_t BgL_auxz00_6910;

						if (VECTORP(BgL_opt1128z00_120))
							{	/* Ieee/string.scm 791 */
								BgL_auxz00_6910 = BgL_opt1128z00_120;
							}
						else
							{
								obj_t BgL_auxz00_6913;

								BgL_auxz00_6913 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(36009L),
									BGl_string3087z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1128z00_120);
								FAILURE(BgL_auxz00_6913, BFALSE, BFALSE);
							}
						BgL_aux1132z00_1263 = VECTOR_LENGTH(BgL_auxz00_6910);
					}
					switch (BgL_aux1132z00_1263)
						{
						case 2L:

							{	/* Ieee/string.scm 791 */
								long BgL_endz00_1265;

								{	/* Ieee/string.scm 791 */
									obj_t BgL_stringz00_3072;

									if (STRINGP(BgL_stringz00_1260))
										{	/* Ieee/string.scm 791 */
											BgL_stringz00_3072 = BgL_stringz00_1260;
										}
									else
										{
											obj_t BgL_auxz00_6920;

											BgL_auxz00_6920 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(36080L),
												BGl_string3087z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_stringz00_1260);
											FAILURE(BgL_auxz00_6920, BFALSE, BFALSE);
										}
									BgL_endz00_1265 = STRING_LENGTH(BgL_stringz00_3072);
								}
								{	/* Ieee/string.scm 791 */

									{	/* Ieee/string.scm 791 */
										obj_t BgL_auxz00_6925;

										if (STRINGP(BgL_stringz00_1260))
											{	/* Ieee/string.scm 791 */
												BgL_auxz00_6925 = BgL_stringz00_1260;
											}
										else
											{
												obj_t BgL_auxz00_6928;

												BgL_auxz00_6928 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(36009L),
													BGl_string3087z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_stringz00_1260);
												FAILURE(BgL_auxz00_6928, BFALSE, BFALSE);
											}
										return
											BGl_stringzd2deletezd2zz__r4_strings_6_7z00
											(BgL_auxz00_6925, BgL_g1130z00_1261, (int) (0L),
											BgL_endz00_1265);
							}}} break;
						case 3L:

							{	/* Ieee/string.scm 791 */
								obj_t BgL_startz00_1266;

								{
									obj_t BgL_auxz00_6934;

									if (VECTORP(BgL_opt1128z00_120))
										{	/* Ieee/string.scm 791 */
											BgL_auxz00_6934 = BgL_opt1128z00_120;
										}
									else
										{
											obj_t BgL_auxz00_6937;

											BgL_auxz00_6937 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(36009L),
												BGl_string3087z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1128z00_120);
											FAILURE(BgL_auxz00_6937, BFALSE, BFALSE);
										}
									BgL_startz00_1266 = VECTOR_REF(BgL_auxz00_6934, 2L);
								}
								{	/* Ieee/string.scm 791 */
									long BgL_endz00_1267;

									{	/* Ieee/string.scm 791 */
										obj_t BgL_stringz00_3073;

										if (STRINGP(BgL_stringz00_1260))
											{	/* Ieee/string.scm 791 */
												BgL_stringz00_3073 = BgL_stringz00_1260;
											}
										else
											{
												obj_t BgL_auxz00_6944;

												BgL_auxz00_6944 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(36080L),
													BGl_string3087z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_stringz00_1260);
												FAILURE(BgL_auxz00_6944, BFALSE, BFALSE);
											}
										BgL_endz00_1267 = STRING_LENGTH(BgL_stringz00_3073);
									}
									{	/* Ieee/string.scm 791 */

										{	/* Ieee/string.scm 791 */
											int BgL_auxz00_6956;
											obj_t BgL_auxz00_6949;

											{	/* Ieee/string.scm 791 */
												obj_t BgL_tmpz00_6957;

												if (INTEGERP(BgL_startz00_1266))
													{	/* Ieee/string.scm 791 */
														BgL_tmpz00_6957 = BgL_startz00_1266;
													}
												else
													{
														obj_t BgL_auxz00_6960;

														BgL_auxz00_6960 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(36009L),
															BGl_string3087z00zz__r4_strings_6_7z00,
															BGl_string3031z00zz__r4_strings_6_7z00,
															BgL_startz00_1266);
														FAILURE(BgL_auxz00_6960, BFALSE, BFALSE);
													}
												BgL_auxz00_6956 = CINT(BgL_tmpz00_6957);
											}
											if (STRINGP(BgL_stringz00_1260))
												{	/* Ieee/string.scm 791 */
													BgL_auxz00_6949 = BgL_stringz00_1260;
												}
											else
												{
													obj_t BgL_auxz00_6952;

													BgL_auxz00_6952 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(36009L),
														BGl_string3087z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_stringz00_1260);
													FAILURE(BgL_auxz00_6952, BFALSE, BFALSE);
												}
											return
												BGl_stringzd2deletezd2zz__r4_strings_6_7z00
												(BgL_auxz00_6949, BgL_g1130z00_1261, BgL_auxz00_6956,
												BgL_endz00_1267);
										}
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 791 */
								obj_t BgL_startz00_1268;

								{
									obj_t BgL_auxz00_6966;

									if (VECTORP(BgL_opt1128z00_120))
										{	/* Ieee/string.scm 791 */
											BgL_auxz00_6966 = BgL_opt1128z00_120;
										}
									else
										{
											obj_t BgL_auxz00_6969;

											BgL_auxz00_6969 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(36009L),
												BGl_string3087z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1128z00_120);
											FAILURE(BgL_auxz00_6969, BFALSE, BFALSE);
										}
									BgL_startz00_1268 = VECTOR_REF(BgL_auxz00_6966, 2L);
								}
								{	/* Ieee/string.scm 791 */
									obj_t BgL_endz00_1269;

									{
										obj_t BgL_auxz00_6974;

										if (VECTORP(BgL_opt1128z00_120))
											{	/* Ieee/string.scm 791 */
												BgL_auxz00_6974 = BgL_opt1128z00_120;
											}
										else
											{
												obj_t BgL_auxz00_6977;

												BgL_auxz00_6977 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(36009L),
													BGl_string3087z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1128z00_120);
												FAILURE(BgL_auxz00_6977, BFALSE, BFALSE);
											}
										BgL_endz00_1269 = VECTOR_REF(BgL_auxz00_6974, 3L);
									}
									{	/* Ieee/string.scm 791 */

										{	/* Ieee/string.scm 791 */
											long BgL_auxz00_6998;
											int BgL_auxz00_6989;
											obj_t BgL_auxz00_6982;

											{	/* Ieee/string.scm 791 */
												obj_t BgL_tmpz00_6999;

												if (INTEGERP(BgL_endz00_1269))
													{	/* Ieee/string.scm 791 */
														BgL_tmpz00_6999 = BgL_endz00_1269;
													}
												else
													{
														obj_t BgL_auxz00_7002;

														BgL_auxz00_7002 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(36009L),
															BGl_string3087z00zz__r4_strings_6_7z00,
															BGl_string3031z00zz__r4_strings_6_7z00,
															BgL_endz00_1269);
														FAILURE(BgL_auxz00_7002, BFALSE, BFALSE);
													}
												BgL_auxz00_6998 = (long) CINT(BgL_tmpz00_6999);
											}
											{	/* Ieee/string.scm 791 */
												obj_t BgL_tmpz00_6990;

												if (INTEGERP(BgL_startz00_1268))
													{	/* Ieee/string.scm 791 */
														BgL_tmpz00_6990 = BgL_startz00_1268;
													}
												else
													{
														obj_t BgL_auxz00_6993;

														BgL_auxz00_6993 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(36009L),
															BGl_string3087z00zz__r4_strings_6_7z00,
															BGl_string3031z00zz__r4_strings_6_7z00,
															BgL_startz00_1268);
														FAILURE(BgL_auxz00_6993, BFALSE, BFALSE);
													}
												BgL_auxz00_6989 = CINT(BgL_tmpz00_6990);
											}
											if (STRINGP(BgL_stringz00_1260))
												{	/* Ieee/string.scm 791 */
													BgL_auxz00_6982 = BgL_stringz00_1260;
												}
											else
												{
													obj_t BgL_auxz00_6985;

													BgL_auxz00_6985 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(36009L),
														BGl_string3087z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_stringz00_1260);
													FAILURE(BgL_auxz00_6985, BFALSE, BFALSE);
												}
											return
												BGl_stringzd2deletezd2zz__r4_strings_6_7z00
												(BgL_auxz00_6982, BgL_g1130z00_1261, BgL_auxz00_6989,
												BgL_auxz00_6998);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-delete */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2deletezd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_116, obj_t BgL_objz00_117, int BgL_startz00_118,
		long BgL_endz00_119)
	{
		{	/* Ieee/string.scm 791 */
			{
				obj_t BgL_newz00_1317;
				obj_t BgL_predz00_1318;
				int BgL_startz00_1319;
				long BgL_endz00_1320;
				obj_t BgL_newz00_1301;
				obj_t BgL_lz00_1302;
				int BgL_startz00_1303;
				long BgL_endz00_1304;
				obj_t BgL_newz00_1285;
				obj_t BgL_cz00_1286;
				int BgL_startz00_1287;
				long BgL_endz00_1288;

				if (((long) (BgL_startz00_118) < 0L))
					{	/* Ieee/string.scm 830 */
						return
							BGl_errorz00zz__errorz00(BGl_string3088z00zz__r4_strings_6_7z00,
							BGl_string3089z00zz__r4_strings_6_7z00, BINT(BgL_startz00_118));
					}
				else
					{	/* Ieee/string.scm 830 */
						if ((BgL_endz00_119 > STRING_LENGTH(BgL_stringz00_116)))
							{	/* Ieee/string.scm 832 */
								return
									BGl_errorz00zz__errorz00
									(BGl_string3088z00zz__r4_strings_6_7z00,
									BGl_string3090z00zz__r4_strings_6_7z00, BINT(BgL_endz00_119));
							}
						else
							{	/* Ieee/string.scm 832 */
								if ((BgL_endz00_119 < (long) (BgL_startz00_118)))
									{	/* Ieee/string.scm 835 */
										obj_t BgL_arg1450z00_1277;

										BgL_arg1450z00_1277 =
											MAKE_YOUNG_PAIR(BINT(BgL_startz00_118),
											BINT(BgL_endz00_119));
										return
											BGl_errorz00zz__errorz00
											(BGl_string3088z00zz__r4_strings_6_7z00,
											BGl_string3091z00zz__r4_strings_6_7z00,
											BgL_arg1450z00_1277);
									}
								else
									{	/* Ieee/string.scm 837 */
										obj_t BgL_newz00_1279;

										BgL_newz00_1279 =
											BGl_stringzd2copyzd2zz__r4_strings_6_7z00
											(BgL_stringz00_116);
										{	/* Ieee/string.scm 838 */

											if (CHARP(BgL_objz00_117))
												{	/* Ieee/string.scm 840 */
													BgL_newz00_1285 = BgL_newz00_1279;
													BgL_cz00_1286 = BgL_objz00_117;
													BgL_startz00_1287 = BgL_startz00_118;
													BgL_endz00_1288 = BgL_endz00_119;
													{
														int BgL_iz00_1291;
														long BgL_jz00_1292;

														BgL_iz00_1291 = BgL_startz00_1287;
														BgL_jz00_1292 = 0L;
													BgL_zc3z04anonymousza31457ze3z87_1293:
														if (((long) (BgL_iz00_1291) == BgL_endz00_1288))
															{	/* Ieee/string.scm 796 */
																return
																	bgl_string_shrink(BgL_newz00_1285,
																	BgL_jz00_1292);
															}
														else
															{	/* Ieee/string.scm 798 */
																unsigned char BgL_ccz00_1295;

																BgL_ccz00_1295 =
																	STRING_REF(BgL_stringz00_116,
																	(long) (BgL_iz00_1291));
																if ((BgL_ccz00_1295 == CCHAR(BgL_cz00_1286)))
																	{	/* Ieee/string.scm 800 */
																		long BgL_arg1460z00_1297;

																		BgL_arg1460z00_1297 =
																			((long) (BgL_iz00_1291) + 1L);
																		{
																			int BgL_iz00_7040;

																			BgL_iz00_7040 =
																				(int) (BgL_arg1460z00_1297);
																			BgL_iz00_1291 = BgL_iz00_7040;
																			goto
																				BgL_zc3z04anonymousza31457ze3z87_1293;
																		}
																	}
																else
																	{	/* Ieee/string.scm 799 */
																		STRING_SET(BgL_newz00_1285, BgL_jz00_1292,
																			BgL_ccz00_1295);
																		{	/* Ieee/string.scm 803 */
																			long BgL_arg1461z00_1298;
																			long BgL_arg1462z00_1299;

																			BgL_arg1461z00_1298 =
																				((long) (BgL_iz00_1291) + 1L);
																			BgL_arg1462z00_1299 =
																				(BgL_jz00_1292 + 1L);
																			{
																				long BgL_jz00_7048;
																				int BgL_iz00_7046;

																				BgL_iz00_7046 =
																					(int) (BgL_arg1461z00_1298);
																				BgL_jz00_7048 = BgL_arg1462z00_1299;
																				BgL_jz00_1292 = BgL_jz00_7048;
																				BgL_iz00_1291 = BgL_iz00_7046;
																				goto
																					BgL_zc3z04anonymousza31457ze3z87_1293;
																			}
																		}
																	}
															}
													}
												}
											else
												{	/* Ieee/string.scm 840 */
													if (STRINGP(BgL_objz00_117))
														{	/* Ieee/string.scm 842 */
															BgL_newz00_1301 = BgL_newz00_1279;
															BgL_lz00_1302 =
																BGl_stringzd2ze3listz31zz__r4_strings_6_7z00
																(BgL_objz00_117);
															BgL_startz00_1303 = BgL_startz00_118;
															BgL_endz00_1304 = BgL_endz00_119;
															{
																int BgL_iz00_1307;
																long BgL_jz00_1308;

																BgL_iz00_1307 = BgL_startz00_1303;
																BgL_jz00_1308 = 0L;
															BgL_zc3z04anonymousza31464ze3z87_1309:
																if (((long) (BgL_iz00_1307) == BgL_endz00_1304))
																	{	/* Ieee/string.scm 808 */
																		return
																			bgl_string_shrink(BgL_newz00_1301,
																			BgL_jz00_1308);
																	}
																else
																	{	/* Ieee/string.scm 810 */
																		unsigned char BgL_ccz00_1311;

																		BgL_ccz00_1311 =
																			STRING_REF(BgL_stringz00_116,
																			(long) (BgL_iz00_1307));
																		if (CBOOL
																			(BGl_memvz00zz__r4_pairs_and_lists_6_3z00
																				(BCHAR(BgL_ccz00_1311), BgL_lz00_1302)))
																			{	/* Ieee/string.scm 812 */
																				long BgL_arg1467z00_1313;

																				BgL_arg1467z00_1313 =
																					((long) (BgL_iz00_1307) + 1L);
																				{
																					int BgL_iz00_7063;

																					BgL_iz00_7063 =
																						(int) (BgL_arg1467z00_1313);
																					BgL_iz00_1307 = BgL_iz00_7063;
																					goto
																						BgL_zc3z04anonymousza31464ze3z87_1309;
																				}
																			}
																		else
																			{	/* Ieee/string.scm 811 */
																				STRING_SET(BgL_newz00_1301,
																					BgL_jz00_1308, BgL_ccz00_1311);
																				{	/* Ieee/string.scm 815 */
																					long BgL_arg1468z00_1314;
																					long BgL_arg1469z00_1315;

																					BgL_arg1468z00_1314 =
																						((long) (BgL_iz00_1307) + 1L);
																					BgL_arg1469z00_1315 =
																						(BgL_jz00_1308 + 1L);
																					{
																						long BgL_jz00_7071;
																						int BgL_iz00_7069;

																						BgL_iz00_7069 =
																							(int) (BgL_arg1468z00_1314);
																						BgL_jz00_7071 = BgL_arg1469z00_1315;
																						BgL_jz00_1308 = BgL_jz00_7071;
																						BgL_iz00_1307 = BgL_iz00_7069;
																						goto
																							BgL_zc3z04anonymousza31464ze3z87_1309;
																					}
																				}
																			}
																	}
															}
														}
													else
														{	/* Ieee/string.scm 842 */
															if (PROCEDUREP(BgL_objz00_117))
																{	/* Ieee/string.scm 844 */
																	BgL_newz00_1317 = BgL_newz00_1279;
																	BgL_predz00_1318 = BgL_objz00_117;
																	BgL_startz00_1319 = BgL_startz00_118;
																	BgL_endz00_1320 = BgL_endz00_119;
																	{
																		int BgL_iz00_1323;
																		long BgL_jz00_1324;

																		BgL_iz00_1323 = BgL_startz00_1319;
																		BgL_jz00_1324 = 0L;
																	BgL_zc3z04anonymousza31471ze3z87_1325:
																		if (
																			((long) (BgL_iz00_1323) ==
																				BgL_endz00_1320))
																			{	/* Ieee/string.scm 820 */
																				return
																					bgl_string_shrink(BgL_newz00_1317,
																					BgL_jz00_1324);
																			}
																		else
																			{	/* Ieee/string.scm 822 */
																				unsigned char BgL_ccz00_1327;

																				BgL_ccz00_1327 =
																					STRING_REF(BgL_stringz00_116,
																					(long) (BgL_iz00_1323));
																				if (CBOOL(BGL_PROCEDURE_CALL1
																						(BgL_predz00_1318,
																							BCHAR(BgL_ccz00_1327))))
																					{	/* Ieee/string.scm 824 */
																						long BgL_arg1474z00_1329;

																						BgL_arg1474z00_1329 =
																							((long) (BgL_iz00_1323) + 1L);
																						{
																							int BgL_iz00_7090;

																							BgL_iz00_7090 =
																								(int) (BgL_arg1474z00_1329);
																							BgL_iz00_1323 = BgL_iz00_7090;
																							goto
																								BgL_zc3z04anonymousza31471ze3z87_1325;
																						}
																					}
																				else
																					{	/* Ieee/string.scm 823 */
																						STRING_SET(BgL_newz00_1317,
																							BgL_jz00_1324, BgL_ccz00_1327);
																						{	/* Ieee/string.scm 827 */
																							long BgL_arg1475z00_1330;
																							long BgL_arg1476z00_1331;

																							BgL_arg1475z00_1330 =
																								((long) (BgL_iz00_1323) + 1L);
																							BgL_arg1476z00_1331 =
																								(BgL_jz00_1324 + 1L);
																							{
																								long BgL_jz00_7098;
																								int BgL_iz00_7096;

																								BgL_iz00_7096 =
																									(int) (BgL_arg1475z00_1330);
																								BgL_jz00_7098 =
																									BgL_arg1476z00_1331;
																								BgL_jz00_1324 = BgL_jz00_7098;
																								BgL_iz00_1323 = BgL_iz00_7096;
																								goto
																									BgL_zc3z04anonymousza31471ze3z87_1325;
																							}
																						}
																					}
																			}
																	}
																}
															else
																{	/* Ieee/string.scm 844 */
																	return
																		BGl_errorz00zz__errorz00
																		(BGl_string3088z00zz__r4_strings_6_7z00,
																		BGl_string3092z00zz__r4_strings_6_7z00,
																		BgL_objz00_117);
																}
														}
												}
										}
									}
							}
					}
			}
		}

	}



/* delim? */
	bool_t BGl_delimzf3zf3zz__r4_strings_6_7z00(obj_t BgL_delimsz00_122,
		unsigned char BgL_charz00_123)
	{
		{	/* Ieee/string.scm 852 */
			{	/* Ieee/string.scm 853 */
				long BgL_lenz00_1336;

				BgL_lenz00_1336 = STRING_LENGTH(((obj_t) BgL_delimsz00_122));
				{
					long BgL_iz00_3129;

					BgL_iz00_3129 = 0L;
				BgL_loopz00_3128:
					if ((BgL_iz00_3129 == BgL_lenz00_1336))
						{	/* Ieee/string.scm 856 */
							return ((bool_t) 0);
						}
					else
						{	/* Ieee/string.scm 856 */
							if (
								(BgL_charz00_123 ==
									STRING_REF(((obj_t) BgL_delimsz00_122), BgL_iz00_3129)))
								{	/* Ieee/string.scm 858 */
									return ((bool_t) 1);
								}
							else
								{
									long BgL_iz00_7108;

									BgL_iz00_7108 = (BgL_iz00_3129 + 1L);
									BgL_iz00_3129 = BgL_iz00_7108;
									goto BgL_loopz00_3128;
								}
						}
				}
			}
		}

	}



/* string-split */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2splitzd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_132, obj_t BgL_delimitersz00_133)
	{
		{	/* Ieee/string.scm 890 */
			{	/* Ieee/string.scm 891 */
				obj_t BgL_dz00_1356;

				if (PAIRP(BgL_delimitersz00_133))
					{	/* Ieee/string.scm 891 */
						BgL_dz00_1356 = CAR(BgL_delimitersz00_133);
					}
				else
					{	/* Ieee/string.scm 891 */
						BgL_dz00_1356 = BGl_string3093z00zz__r4_strings_6_7z00;
					}
				{	/* Ieee/string.scm 891 */
					long BgL_lenz00_1357;

					BgL_lenz00_1357 = STRING_LENGTH(BgL_stringz00_132);
					{	/* Ieee/string.scm 894 */
						long BgL_iz00_1358;

						{
							long BgL_iz00_3180;

							BgL_iz00_3180 = 0L;
						BgL_skipzd2separatorzd2_3179:
							if ((BgL_iz00_3180 == BgL_lenz00_1357))
								{	/* Ieee/string.scm 868 */
									BgL_iz00_1358 = BgL_lenz00_1357;
								}
							else
								{	/* Ieee/string.scm 868 */
									if (BGl_delimzf3zf3zz__r4_strings_6_7z00(BgL_dz00_1356,
											STRING_REF(BgL_stringz00_132, BgL_iz00_3180)))
										{
											long BgL_iz00_7119;

											BgL_iz00_7119 = (BgL_iz00_3180 + 1L);
											BgL_iz00_3180 = BgL_iz00_7119;
											goto BgL_skipzd2separatorzd2_3179;
										}
									else
										{	/* Ieee/string.scm 870 */
											BgL_iz00_1358 = BgL_iz00_3180;
										}
								}
						}
						{	/* Ieee/string.scm 895 */

							{
								long BgL_iz00_1361;
								obj_t BgL_resz00_1362;

								BgL_iz00_1361 = BgL_iz00_1358;
								BgL_resz00_1362 = BNIL;
							BgL_zc3z04anonymousza31493ze3z87_1363:
								if ((BgL_iz00_1361 == BgL_lenz00_1357))
									{	/* Ieee/string.scm 898 */
										return bgl_reverse_bang(BgL_resz00_1362);
									}
								else
									{	/* Ieee/string.scm 900 */
										long BgL_ez00_1365;

										{
											long BgL_iz00_3194;

											BgL_iz00_3194 = (BgL_iz00_1361 + 1L);
										BgL_skipzd2nonzd2separatorz00_3193:
											if ((BgL_iz00_3194 == BgL_lenz00_1357))
												{	/* Ieee/string.scm 880 */
													BgL_ez00_1365 = BgL_lenz00_1357;
												}
											else
												{	/* Ieee/string.scm 880 */
													if (BGl_delimzf3zf3zz__r4_strings_6_7z00
														(BgL_dz00_1356, STRING_REF(BgL_stringz00_132,
																BgL_iz00_3194)))
														{	/* Ieee/string.scm 882 */
															BgL_ez00_1365 = BgL_iz00_3194;
														}
													else
														{
															long BgL_iz00_7129;

															BgL_iz00_7129 = (BgL_iz00_3194 + 1L);
															BgL_iz00_3194 = BgL_iz00_7129;
															goto BgL_skipzd2nonzd2separatorz00_3193;
														}
												}
										}
										{	/* Ieee/string.scm 900 */
											obj_t BgL_nresz00_1366;

											BgL_nresz00_1366 =
												MAKE_YOUNG_PAIR(c_substring(BgL_stringz00_132,
													BgL_iz00_1361, BgL_ez00_1365), BgL_resz00_1362);
											{	/* Ieee/string.scm 901 */

												if ((BgL_ez00_1365 == BgL_lenz00_1357))
													{	/* Ieee/string.scm 902 */
														return bgl_reverse_bang(BgL_nresz00_1366);
													}
												else
													{	/* Ieee/string.scm 904 */
														long BgL_arg1497z00_1368;

														{
															long BgL_iz00_3211;

															BgL_iz00_3211 = (BgL_ez00_1365 + 1L);
														BgL_skipzd2separatorzd2_3210:
															if ((BgL_iz00_3211 == BgL_lenz00_1357))
																{	/* Ieee/string.scm 868 */
																	BgL_arg1497z00_1368 = BgL_lenz00_1357;
																}
															else
																{	/* Ieee/string.scm 868 */
																	if (BGl_delimzf3zf3zz__r4_strings_6_7z00
																		(BgL_dz00_1356,
																			STRING_REF(BgL_stringz00_132,
																				BgL_iz00_3211)))
																		{
																			long BgL_iz00_7142;

																			BgL_iz00_7142 = (BgL_iz00_3211 + 1L);
																			BgL_iz00_3211 = BgL_iz00_7142;
																			goto BgL_skipzd2separatorzd2_3210;
																		}
																	else
																		{	/* Ieee/string.scm 870 */
																			BgL_arg1497z00_1368 = BgL_iz00_3211;
																		}
																}
														}
														{
															obj_t BgL_resz00_7146;
															long BgL_iz00_7145;

															BgL_iz00_7145 = BgL_arg1497z00_1368;
															BgL_resz00_7146 = BgL_nresz00_1366;
															BgL_resz00_1362 = BgL_resz00_7146;
															BgL_iz00_1361 = BgL_iz00_7145;
															goto BgL_zc3z04anonymousza31493ze3z87_1363;
														}
													}
											}
										}
									}
							}
						}
					}
				}
			}
		}

	}



/* &string-split */
	obj_t BGl_z62stringzd2splitzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4481,
		obj_t BgL_stringz00_4482, obj_t BgL_delimitersz00_4483)
	{
		{	/* Ieee/string.scm 890 */
			{	/* Ieee/string.scm 891 */
				obj_t BgL_auxz00_7147;

				if (STRINGP(BgL_stringz00_4482))
					{	/* Ieee/string.scm 891 */
						BgL_auxz00_7147 = BgL_stringz00_4482;
					}
				else
					{
						obj_t BgL_auxz00_7150;

						BgL_auxz00_7150 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(39316L),
							BGl_string3094z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4482);
						FAILURE(BgL_auxz00_7150, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2splitzd2zz__r4_strings_6_7z00(BgL_auxz00_7147,
					BgL_delimitersz00_4483);
			}
		}

	}



/* string-cut */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2cutzd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_134, obj_t BgL_delimitersz00_135)
	{
		{	/* Ieee/string.scm 910 */
			{	/* Ieee/string.scm 911 */
				obj_t BgL_dz00_1374;

				if (PAIRP(BgL_delimitersz00_135))
					{	/* Ieee/string.scm 911 */
						BgL_dz00_1374 = CAR(BgL_delimitersz00_135);
					}
				else
					{	/* Ieee/string.scm 911 */
						BgL_dz00_1374 = BGl_string3093z00zz__r4_strings_6_7z00;
					}
				{	/* Ieee/string.scm 911 */
					long BgL_lenz00_1375;

					BgL_lenz00_1375 = STRING_LENGTH(BgL_stringz00_134);
					{	/* Ieee/string.scm 914 */

						{
							long BgL_iz00_1378;
							obj_t BgL_resz00_1379;

							BgL_iz00_1378 = 0L;
							BgL_resz00_1379 = BNIL;
						BgL_zc3z04anonymousza31502ze3z87_1380:
							if ((BgL_iz00_1378 >= BgL_lenz00_1375))
								{	/* Ieee/string.scm 918 */
									obj_t BgL_arg1505z00_1382;

									BgL_arg1505z00_1382 =
										MAKE_YOUNG_PAIR(BGl_string3062z00zz__r4_strings_6_7z00,
										BgL_resz00_1379);
									return bgl_reverse_bang(BgL_arg1505z00_1382);
								}
							else
								{	/* Ieee/string.scm 919 */
									long BgL_ez00_1383;

									{
										long BgL_iz00_3226;

										BgL_iz00_3226 = BgL_iz00_1378;
									BgL_skipzd2nonzd2separatorz00_3225:
										if ((BgL_iz00_3226 == BgL_lenz00_1375))
											{	/* Ieee/string.scm 880 */
												BgL_ez00_1383 = BgL_lenz00_1375;
											}
										else
											{	/* Ieee/string.scm 880 */
												if (BGl_delimzf3zf3zz__r4_strings_6_7z00(BgL_dz00_1374,
														STRING_REF(BgL_stringz00_134, BgL_iz00_3226)))
													{	/* Ieee/string.scm 882 */
														BgL_ez00_1383 = BgL_iz00_3226;
													}
												else
													{
														long BgL_iz00_7168;

														BgL_iz00_7168 = (BgL_iz00_3226 + 1L);
														BgL_iz00_3226 = BgL_iz00_7168;
														goto BgL_skipzd2nonzd2separatorz00_3225;
													}
											}
									}
									{	/* Ieee/string.scm 919 */
										obj_t BgL_sz00_1384;

										BgL_sz00_1384 =
											c_substring(BgL_stringz00_134, BgL_iz00_1378,
											BgL_ez00_1383);
										{	/* Ieee/string.scm 920 */
											obj_t BgL_nrz00_1385;

											BgL_nrz00_1385 =
												MAKE_YOUNG_PAIR(BgL_sz00_1384, BgL_resz00_1379);
											{	/* Ieee/string.scm 921 */

												if ((BgL_ez00_1383 == BgL_lenz00_1375))
													{	/* Ieee/string.scm 922 */
														return bgl_reverse_bang(BgL_nrz00_1385);
													}
												else
													{
														obj_t BgL_resz00_7177;
														long BgL_iz00_7175;

														BgL_iz00_7175 = (BgL_ez00_1383 + 1L);
														BgL_resz00_7177 = BgL_nrz00_1385;
														BgL_resz00_1379 = BgL_resz00_7177;
														BgL_iz00_1378 = BgL_iz00_7175;
														goto BgL_zc3z04anonymousza31502ze3z87_1380;
													}
											}
										}
									}
								}
						}
					}
				}
			}
		}

	}



/* &string-cut */
	obj_t BGl_z62stringzd2cutzb0zz__r4_strings_6_7z00(obj_t BgL_envz00_4484,
		obj_t BgL_stringz00_4485, obj_t BgL_delimitersz00_4486)
	{
		{	/* Ieee/string.scm 910 */
			{	/* Ieee/string.scm 911 */
				obj_t BgL_auxz00_7178;

				if (STRINGP(BgL_stringz00_4485))
					{	/* Ieee/string.scm 911 */
						BgL_auxz00_7178 = BgL_stringz00_4485;
					}
				else
					{
						obj_t BgL_auxz00_7181;

						BgL_auxz00_7181 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(40015L),
							BGl_string3095z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4485);
						FAILURE(BgL_auxz00_7181, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2cutzd2zz__r4_strings_6_7z00(BgL_auxz00_7178,
					BgL_delimitersz00_4486);
			}
		}

	}



/* string-char-index-ur */
	BGL_EXPORTED_DEF obj_t
		BGl_stringzd2charzd2indexzd2urzd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_136, unsigned char BgL_charz00_137, long BgL_startz00_138,
		long BgL_nz00_139)
	{
		{	/* Ieee/string.scm 929 */
			{	/* Ieee/string.scm 932 */
				char *BgL_s0z00_3242;

				BgL_s0z00_3242 = BSTRING_TO_STRING(BgL_stringz00_136);
				{	/* Ieee/string.scm 932 */
					char *BgL_s1z00_3243;

					{	/* Ieee/string.scm 933 */
						int BgL_tmpz00_7187;

						BgL_tmpz00_7187 = (int) (((unsigned char) (BgL_charz00_137)));
						BgL_s1z00_3243 =
							BGL_MEMCHR(BgL_s0z00_3242, BgL_tmpz00_7187, BgL_nz00_139,
							BgL_startz00_138);
					}
					{	/* Ieee/string.scm 933 */

						if (BGL_MEMCHR_ZERO(BgL_s1z00_3243))
							{	/* Ieee/string.scm 934 */
								return BFALSE;
							}
						else
							{	/* Ieee/string.scm 934 */
								return BINT(BGL_MEMCHR_DIFF(BgL_s1z00_3243, BgL_s0z00_3242));
							}
					}
				}
			}
		}

	}



/* &string-char-index-ur */
	obj_t BGl_z62stringzd2charzd2indexzd2urzb0zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4487, obj_t BgL_stringz00_4488, obj_t BgL_charz00_4489,
		obj_t BgL_startz00_4490, obj_t BgL_nz00_4491)
	{
		{	/* Ieee/string.scm 929 */
			{	/* Ieee/string.scm 932 */
				long BgL_auxz00_7221;
				long BgL_auxz00_7212;
				unsigned char BgL_auxz00_7203;
				obj_t BgL_auxz00_7196;

				{	/* Ieee/string.scm 932 */
					obj_t BgL_tmpz00_7222;

					if (INTEGERP(BgL_nz00_4491))
						{	/* Ieee/string.scm 932 */
							BgL_tmpz00_7222 = BgL_nz00_4491;
						}
					else
						{
							obj_t BgL_auxz00_7225;

							BgL_auxz00_7225 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(40707L),
								BGl_string3096z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_nz00_4491);
							FAILURE(BgL_auxz00_7225, BFALSE, BFALSE);
						}
					BgL_auxz00_7221 = (long) CINT(BgL_tmpz00_7222);
				}
				{	/* Ieee/string.scm 932 */
					obj_t BgL_tmpz00_7213;

					if (INTEGERP(BgL_startz00_4490))
						{	/* Ieee/string.scm 932 */
							BgL_tmpz00_7213 = BgL_startz00_4490;
						}
					else
						{
							obj_t BgL_auxz00_7216;

							BgL_auxz00_7216 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(40707L),
								BGl_string3096z00zz__r4_strings_6_7z00,
								BGl_string3031z00zz__r4_strings_6_7z00, BgL_startz00_4490);
							FAILURE(BgL_auxz00_7216, BFALSE, BFALSE);
						}
					BgL_auxz00_7212 = (long) CINT(BgL_tmpz00_7213);
				}
				{	/* Ieee/string.scm 932 */
					obj_t BgL_tmpz00_7204;

					if (CHARP(BgL_charz00_4489))
						{	/* Ieee/string.scm 932 */
							BgL_tmpz00_7204 = BgL_charz00_4489;
						}
					else
						{
							obj_t BgL_auxz00_7207;

							BgL_auxz00_7207 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(40707L),
								BGl_string3096z00zz__r4_strings_6_7z00,
								BGl_string3032z00zz__r4_strings_6_7z00, BgL_charz00_4489);
							FAILURE(BgL_auxz00_7207, BFALSE, BFALSE);
						}
					BgL_auxz00_7203 = CCHAR(BgL_tmpz00_7204);
				}
				if (STRINGP(BgL_stringz00_4488))
					{	/* Ieee/string.scm 932 */
						BgL_auxz00_7196 = BgL_stringz00_4488;
					}
				else
					{
						obj_t BgL_auxz00_7199;

						BgL_auxz00_7199 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(40707L),
							BGl_string3096z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_stringz00_4488);
						FAILURE(BgL_auxz00_7199, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2charzd2indexzd2urzd2zz__r4_strings_6_7z00
					(BgL_auxz00_7196, BgL_auxz00_7203, BgL_auxz00_7212, BgL_auxz00_7221);
			}
		}

	}



/* _string-char-index */
	obj_t BGl__stringzd2charzd2indexz00zz__r4_strings_6_7z00(obj_t
		BgL_env1134z00_145, obj_t BgL_opt1133z00_144)
	{
		{	/* Ieee/string.scm 950 */
			{	/* Ieee/string.scm 950 */
				obj_t BgL_g1135z00_1394;
				obj_t BgL_g1136z00_1395;

				{
					obj_t BgL_auxz00_7231;

					if (VECTORP(BgL_opt1133z00_144))
						{	/* Ieee/string.scm 950 */
							BgL_auxz00_7231 = BgL_opt1133z00_144;
						}
					else
						{
							obj_t BgL_auxz00_7234;

							BgL_auxz00_7234 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41269L),
								BGl_string3097z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1133z00_144);
							FAILURE(BgL_auxz00_7234, BFALSE, BFALSE);
						}
					BgL_g1135z00_1394 = VECTOR_REF(BgL_auxz00_7231, 0L);
				}
				{
					obj_t BgL_auxz00_7239;

					if (VECTORP(BgL_opt1133z00_144))
						{	/* Ieee/string.scm 950 */
							BgL_auxz00_7239 = BgL_opt1133z00_144;
						}
					else
						{
							obj_t BgL_auxz00_7242;

							BgL_auxz00_7242 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41269L),
								BGl_string3097z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1133z00_144);
							FAILURE(BgL_auxz00_7242, BFALSE, BFALSE);
						}
					BgL_g1136z00_1395 = VECTOR_REF(BgL_auxz00_7239, 1L);
				}
				{	/* Ieee/string.scm 950 */
					long BgL_aux1138z00_1397;

					{
						obj_t BgL_auxz00_7247;

						if (VECTORP(BgL_opt1133z00_144))
							{	/* Ieee/string.scm 950 */
								BgL_auxz00_7247 = BgL_opt1133z00_144;
							}
						else
							{
								obj_t BgL_auxz00_7250;

								BgL_auxz00_7250 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41269L),
									BGl_string3097z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1133z00_144);
								FAILURE(BgL_auxz00_7250, BFALSE, BFALSE);
							}
						BgL_aux1138z00_1397 = VECTOR_LENGTH(BgL_auxz00_7247);
					}
					switch (BgL_aux1138z00_1397)
						{
						case 2L:

							{	/* Ieee/string.scm 950 */

								{	/* Ieee/string.scm 950 */
									obj_t BgL_stringz00_3247;
									unsigned char BgL_charz00_3248;

									if (STRINGP(BgL_g1135z00_1394))
										{	/* Ieee/string.scm 950 */
											BgL_stringz00_3247 = BgL_g1135z00_1394;
										}
									else
										{
											obj_t BgL_auxz00_7257;

											BgL_auxz00_7257 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41269L),
												BGl_string3097z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1135z00_1394);
											FAILURE(BgL_auxz00_7257, BFALSE, BFALSE);
										}
									{	/* Ieee/string.scm 950 */
										obj_t BgL_tmpz00_7261;

										if (CHARP(BgL_g1136z00_1395))
											{	/* Ieee/string.scm 950 */
												BgL_tmpz00_7261 = BgL_g1136z00_1395;
											}
										else
											{
												obj_t BgL_auxz00_7264;

												BgL_auxz00_7264 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41269L),
													BGl_string3097z00zz__r4_strings_6_7z00,
													BGl_string3032z00zz__r4_strings_6_7z00,
													BgL_g1136z00_1395);
												FAILURE(BgL_auxz00_7264, BFALSE, BFALSE);
											}
										BgL_charz00_3248 = CCHAR(BgL_tmpz00_7261);
									}
									{	/* Ieee/string.scm 951 */
										long BgL_lenz00_3249;

										BgL_lenz00_3249 = STRING_LENGTH(BgL_stringz00_3247);
										{	/* Ieee/string.scm 952 */

											if ((BgL_lenz00_3249 > 0L))
												{	/* Ieee/string.scm 932 */
													char *BgL_s0z00_3270;

													BgL_s0z00_3270 =
														BSTRING_TO_STRING(BgL_stringz00_3247);
													{	/* Ieee/string.scm 932 */
														char *BgL_s1z00_3271;

														{	/* Ieee/string.scm 933 */
															long BgL_auxz00_7277;
															int BgL_tmpz00_7273;

															{	/* Ieee/string.scm 952 */
																bool_t BgL_test3584z00_7278;

																if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BINT((-1L))))
																	{	/* Ieee/string.scm 952 */
																		if (((-1L) >= 0L))
																			{	/* Ieee/string.scm 953 */
																				BgL_test3584z00_7278 =
																					((-1L) <= (BgL_lenz00_3249 - 0L));
																			}
																		else
																			{	/* Ieee/string.scm 953 */
																				BgL_test3584z00_7278 = ((bool_t) 0);
																			}
																	}
																else
																	{	/* Ieee/string.scm 952 */
																		BgL_test3584z00_7278 = ((bool_t) 0);
																	}
																if (BgL_test3584z00_7278)
																	{	/* Ieee/string.scm 952 */
																		BgL_auxz00_7277 = (-1L);
																	}
																else
																	{	/* Ieee/string.scm 952 */
																		BgL_auxz00_7277 = (BgL_lenz00_3249 - 0L);
																	}
															}
															BgL_tmpz00_7273 =
																(int) (((unsigned char) (BgL_charz00_3248)));
															BgL_s1z00_3271 =
																BGL_MEMCHR(BgL_s0z00_3270, BgL_tmpz00_7273,
																BgL_auxz00_7277, 0L);
														}
														{	/* Ieee/string.scm 933 */

															if (BGL_MEMCHR_ZERO(BgL_s1z00_3271))
																{	/* Ieee/string.scm 934 */
																	return BFALSE;
																}
															else
																{	/* Ieee/string.scm 934 */
																	return
																		BINT(BGL_MEMCHR_DIFF(BgL_s1z00_3271,
																			BgL_s0z00_3270));
																}
														}
													}
												}
											else
												{	/* Ieee/string.scm 956 */
													return BFALSE;
												}
										}
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 950 */
								obj_t BgL_startz00_1400;

								{
									obj_t BgL_auxz00_7292;

									if (VECTORP(BgL_opt1133z00_144))
										{	/* Ieee/string.scm 950 */
											BgL_auxz00_7292 = BgL_opt1133z00_144;
										}
									else
										{
											obj_t BgL_auxz00_7295;

											BgL_auxz00_7295 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41269L),
												BGl_string3097z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1133z00_144);
											FAILURE(BgL_auxz00_7295, BFALSE, BFALSE);
										}
									BgL_startz00_1400 = VECTOR_REF(BgL_auxz00_7292, 2L);
								}
								{	/* Ieee/string.scm 950 */

									{	/* Ieee/string.scm 950 */
										obj_t BgL_stringz00_3275;
										unsigned char BgL_charz00_3276;

										if (STRINGP(BgL_g1135z00_1394))
											{	/* Ieee/string.scm 950 */
												BgL_stringz00_3275 = BgL_g1135z00_1394;
											}
										else
											{
												obj_t BgL_auxz00_7302;

												BgL_auxz00_7302 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41269L),
													BGl_string3097z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1135z00_1394);
												FAILURE(BgL_auxz00_7302, BFALSE, BFALSE);
											}
										{	/* Ieee/string.scm 950 */
											obj_t BgL_tmpz00_7306;

											if (CHARP(BgL_g1136z00_1395))
												{	/* Ieee/string.scm 950 */
													BgL_tmpz00_7306 = BgL_g1136z00_1395;
												}
											else
												{
													obj_t BgL_auxz00_7309;

													BgL_auxz00_7309 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(41269L),
														BGl_string3097z00zz__r4_strings_6_7z00,
														BGl_string3032z00zz__r4_strings_6_7z00,
														BgL_g1136z00_1395);
													FAILURE(BgL_auxz00_7309, BFALSE, BFALSE);
												}
											BgL_charz00_3276 = CCHAR(BgL_tmpz00_7306);
										}
										{	/* Ieee/string.scm 951 */
											long BgL_lenz00_3277;

											BgL_lenz00_3277 = STRING_LENGTH(BgL_stringz00_3275);
											{	/* Ieee/string.scm 952 */

												{	/* Ieee/string.scm 956 */
													bool_t BgL_test3591z00_7315;

													{	/* Ieee/string.scm 956 */
														long BgL_n2z00_3293;

														{	/* Ieee/string.scm 956 */
															obj_t BgL_tmpz00_7316;

															if (INTEGERP(BgL_startz00_1400))
																{	/* Ieee/string.scm 956 */
																	BgL_tmpz00_7316 = BgL_startz00_1400;
																}
															else
																{
																	obj_t BgL_auxz00_7319;

																	BgL_auxz00_7319 =
																		BGl_typezd2errorzd2zz__errorz00
																		(BGl_string3026z00zz__r4_strings_6_7z00,
																		BINT(41517L),
																		BGl_string3097z00zz__r4_strings_6_7z00,
																		BGl_string3031z00zz__r4_strings_6_7z00,
																		BgL_startz00_1400);
																	FAILURE(BgL_auxz00_7319, BFALSE, BFALSE);
																}
															BgL_n2z00_3293 = (long) CINT(BgL_tmpz00_7316);
														}
														BgL_test3591z00_7315 =
															(BgL_lenz00_3277 > BgL_n2z00_3293);
													}
													if (BgL_test3591z00_7315)
														{	/* Ieee/string.scm 957 */
															long BgL_startz00_3296;

															{	/* Ieee/string.scm 957 */
																obj_t BgL_tmpz00_7325;

																if (INTEGERP(BgL_startz00_1400))
																	{	/* Ieee/string.scm 957 */
																		BgL_tmpz00_7325 = BgL_startz00_1400;
																	}
																else
																	{
																		obj_t BgL_auxz00_7328;

																		BgL_auxz00_7328 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3026z00zz__r4_strings_6_7z00,
																			BINT(41560L),
																			BGl_string3097z00zz__r4_strings_6_7z00,
																			BGl_string3031z00zz__r4_strings_6_7z00,
																			BgL_startz00_1400);
																		FAILURE(BgL_auxz00_7328, BFALSE, BFALSE);
																	}
																BgL_startz00_3296 =
																	(long) CINT(BgL_tmpz00_7325);
															}
															{	/* Ieee/string.scm 932 */
																char *BgL_s0z00_3298;

																BgL_s0z00_3298 =
																	BSTRING_TO_STRING(BgL_stringz00_3275);
																{	/* Ieee/string.scm 932 */
																	char *BgL_s1z00_3299;

																	{	/* Ieee/string.scm 933 */
																		long BgL_auxz00_7338;
																		int BgL_tmpz00_7334;

																		{	/* Ieee/string.scm 952 */
																			bool_t BgL_test3594z00_7339;

																			if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BINT((-1L))))
																				{	/* Ieee/string.scm 952 */
																					if (((-1L) >= 0L))
																						{	/* Ieee/string.scm 953 */
																							long BgL_tmpz00_7345;

																							{	/* Ieee/string.scm 953 */
																								long BgL_za72za7_3287;

																								{	/* Ieee/string.scm 953 */
																									obj_t BgL_tmpz00_7346;

																									if (INTEGERP
																										(BgL_startz00_1400))
																										{	/* Ieee/string.scm 953 */
																											BgL_tmpz00_7346 =
																												BgL_startz00_1400;
																										}
																									else
																										{
																											obj_t BgL_auxz00_7349;

																											BgL_auxz00_7349 =
																												BGl_typezd2errorzd2zz__errorz00
																												(BGl_string3026z00zz__r4_strings_6_7z00,
																												BINT(41456L),
																												BGl_string3097z00zz__r4_strings_6_7z00,
																												BGl_string3031z00zz__r4_strings_6_7z00,
																												BgL_startz00_1400);
																											FAILURE(BgL_auxz00_7349,
																												BFALSE, BFALSE);
																										}
																									BgL_za72za7_3287 =
																										(long)
																										CINT(BgL_tmpz00_7346);
																								}
																								BgL_tmpz00_7345 =
																									(BgL_lenz00_3277 -
																									BgL_za72za7_3287);
																							}
																							BgL_test3594z00_7339 =
																								((-1L) <= BgL_tmpz00_7345);
																						}
																					else
																						{	/* Ieee/string.scm 953 */
																							BgL_test3594z00_7339 =
																								((bool_t) 0);
																						}
																				}
																			else
																				{	/* Ieee/string.scm 952 */
																					BgL_test3594z00_7339 = ((bool_t) 0);
																				}
																			if (BgL_test3594z00_7339)
																				{	/* Ieee/string.scm 952 */
																					BgL_auxz00_7338 = (-1L);
																				}
																			else
																				{	/* Ieee/string.scm 955 */
																					long BgL_za72za7_3291;

																					{	/* Ieee/string.scm 955 */
																						obj_t BgL_tmpz00_7356;

																						if (INTEGERP(BgL_startz00_1400))
																							{	/* Ieee/string.scm 955 */
																								BgL_tmpz00_7356 =
																									BgL_startz00_1400;
																							}
																						else
																							{
																								obj_t BgL_auxz00_7359;

																								BgL_auxz00_7359 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string3026z00zz__r4_strings_6_7z00,
																									BINT(41486L),
																									BGl_string3097z00zz__r4_strings_6_7z00,
																									BGl_string3031z00zz__r4_strings_6_7z00,
																									BgL_startz00_1400);
																								FAILURE(BgL_auxz00_7359, BFALSE,
																									BFALSE);
																							}
																						BgL_za72za7_3291 =
																							(long) CINT(BgL_tmpz00_7356);
																					}
																					BgL_auxz00_7338 =
																						(BgL_lenz00_3277 -
																						BgL_za72za7_3291);
																		}}
																		BgL_tmpz00_7334 =
																			(int) (
																			((unsigned char) (BgL_charz00_3276)));
																		BgL_s1z00_3299 =
																			BGL_MEMCHR(BgL_s0z00_3298,
																			BgL_tmpz00_7334, BgL_auxz00_7338,
																			BgL_startz00_3296);
																	}
																	{	/* Ieee/string.scm 933 */

																		if (BGL_MEMCHR_ZERO(BgL_s1z00_3299))
																			{	/* Ieee/string.scm 934 */
																				return BFALSE;
																			}
																		else
																			{	/* Ieee/string.scm 934 */
																				return
																					BINT(BGL_MEMCHR_DIFF(BgL_s1z00_3299,
																						BgL_s0z00_3298));
																			}
																	}
																}
															}
														}
													else
														{	/* Ieee/string.scm 956 */
															return BFALSE;
														}
												}
											}
										}
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 950 */
								obj_t BgL_startz00_1402;

								{
									obj_t BgL_auxz00_7370;

									if (VECTORP(BgL_opt1133z00_144))
										{	/* Ieee/string.scm 950 */
											BgL_auxz00_7370 = BgL_opt1133z00_144;
										}
									else
										{
											obj_t BgL_auxz00_7373;

											BgL_auxz00_7373 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41269L),
												BGl_string3097z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1133z00_144);
											FAILURE(BgL_auxz00_7373, BFALSE, BFALSE);
										}
									BgL_startz00_1402 = VECTOR_REF(BgL_auxz00_7370, 2L);
								}
								{	/* Ieee/string.scm 950 */
									obj_t BgL_countz00_1403;

									{
										obj_t BgL_auxz00_7378;

										if (VECTORP(BgL_opt1133z00_144))
											{	/* Ieee/string.scm 950 */
												BgL_auxz00_7378 = BgL_opt1133z00_144;
											}
										else
											{
												obj_t BgL_auxz00_7381;

												BgL_auxz00_7381 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41269L),
													BGl_string3097z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1133z00_144);
												FAILURE(BgL_auxz00_7381, BFALSE, BFALSE);
											}
										BgL_countz00_1403 = VECTOR_REF(BgL_auxz00_7378, 3L);
									}
									{	/* Ieee/string.scm 950 */

										{	/* Ieee/string.scm 950 */
											obj_t BgL_stringz00_3303;
											unsigned char BgL_charz00_3304;

											if (STRINGP(BgL_g1135z00_1394))
												{	/* Ieee/string.scm 950 */
													BgL_stringz00_3303 = BgL_g1135z00_1394;
												}
											else
												{
													obj_t BgL_auxz00_7388;

													BgL_auxz00_7388 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(41269L),
														BGl_string3097z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_g1135z00_1394);
													FAILURE(BgL_auxz00_7388, BFALSE, BFALSE);
												}
											{	/* Ieee/string.scm 950 */
												obj_t BgL_tmpz00_7392;

												if (CHARP(BgL_g1136z00_1395))
													{	/* Ieee/string.scm 950 */
														BgL_tmpz00_7392 = BgL_g1136z00_1395;
													}
												else
													{
														obj_t BgL_auxz00_7395;

														BgL_auxz00_7395 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(41269L),
															BGl_string3097z00zz__r4_strings_6_7z00,
															BGl_string3032z00zz__r4_strings_6_7z00,
															BgL_g1136z00_1395);
														FAILURE(BgL_auxz00_7395, BFALSE, BFALSE);
													}
												BgL_charz00_3304 = CCHAR(BgL_tmpz00_7392);
											}
											{	/* Ieee/string.scm 951 */
												long BgL_lenz00_3305;

												BgL_lenz00_3305 = STRING_LENGTH(BgL_stringz00_3303);
												{	/* Ieee/string.scm 952 */

													{	/* Ieee/string.scm 956 */
														bool_t BgL_test3604z00_7401;

														{	/* Ieee/string.scm 956 */
															long BgL_n2z00_3321;

															{	/* Ieee/string.scm 956 */
																obj_t BgL_tmpz00_7402;

																if (INTEGERP(BgL_startz00_1402))
																	{	/* Ieee/string.scm 956 */
																		BgL_tmpz00_7402 = BgL_startz00_1402;
																	}
																else
																	{
																		obj_t BgL_auxz00_7405;

																		BgL_auxz00_7405 =
																			BGl_typezd2errorzd2zz__errorz00
																			(BGl_string3026z00zz__r4_strings_6_7z00,
																			BINT(41517L),
																			BGl_string3097z00zz__r4_strings_6_7z00,
																			BGl_string3031z00zz__r4_strings_6_7z00,
																			BgL_startz00_1402);
																		FAILURE(BgL_auxz00_7405, BFALSE, BFALSE);
																	}
																BgL_n2z00_3321 = (long) CINT(BgL_tmpz00_7402);
															}
															BgL_test3604z00_7401 =
																(BgL_lenz00_3305 > BgL_n2z00_3321);
														}
														if (BgL_test3604z00_7401)
															{	/* Ieee/string.scm 957 */
																long BgL_startz00_3324;
																long BgL_nz00_3325;

																{	/* Ieee/string.scm 957 */
																	obj_t BgL_tmpz00_7411;

																	if (INTEGERP(BgL_startz00_1402))
																		{	/* Ieee/string.scm 957 */
																			BgL_tmpz00_7411 = BgL_startz00_1402;
																		}
																	else
																		{
																			obj_t BgL_auxz00_7414;

																			BgL_auxz00_7414 =
																				BGl_typezd2errorzd2zz__errorz00
																				(BGl_string3026z00zz__r4_strings_6_7z00,
																				BINT(41560L),
																				BGl_string3097z00zz__r4_strings_6_7z00,
																				BGl_string3031z00zz__r4_strings_6_7z00,
																				BgL_startz00_1402);
																			FAILURE(BgL_auxz00_7414, BFALSE, BFALSE);
																		}
																	BgL_startz00_3324 =
																		(long) CINT(BgL_tmpz00_7411);
																}
																{	/* Ieee/string.scm 952 */
																	bool_t BgL_test3607z00_7419;

																	if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_countz00_1403))
																		{	/* Ieee/string.scm 953 */
																			bool_t BgL_test3609z00_7422;

																			{	/* Ieee/string.scm 953 */
																				long BgL_n1z00_3313;

																				{	/* Ieee/string.scm 953 */
																					obj_t BgL_tmpz00_7423;

																					if (INTEGERP(BgL_countz00_1403))
																						{	/* Ieee/string.scm 953 */
																							BgL_tmpz00_7423 =
																								BgL_countz00_1403;
																						}
																					else
																						{
																							obj_t BgL_auxz00_7426;

																							BgL_auxz00_7426 =
																								BGl_typezd2errorzd2zz__errorz00
																								(BGl_string3026z00zz__r4_strings_6_7z00,
																								BINT(41426L),
																								BGl_string3097z00zz__r4_strings_6_7z00,
																								BGl_string3031z00zz__r4_strings_6_7z00,
																								BgL_countz00_1403);
																							FAILURE(BgL_auxz00_7426, BFALSE,
																								BFALSE);
																						}
																					BgL_n1z00_3313 =
																						(long) CINT(BgL_tmpz00_7423);
																				}
																				BgL_test3609z00_7422 =
																					(BgL_n1z00_3313 >= 0L);
																			}
																			if (BgL_test3609z00_7422)
																				{	/* Ieee/string.scm 953 */
																					long BgL_n1z00_3316;

																					{	/* Ieee/string.scm 953 */
																						obj_t BgL_tmpz00_7432;

																						if (INTEGERP(BgL_countz00_1403))
																							{	/* Ieee/string.scm 953 */
																								BgL_tmpz00_7432 =
																									BgL_countz00_1403;
																							}
																						else
																							{
																								obj_t BgL_auxz00_7435;

																								BgL_auxz00_7435 =
																									BGl_typezd2errorzd2zz__errorz00
																									(BGl_string3026z00zz__r4_strings_6_7z00,
																									BINT(41441L),
																									BGl_string3097z00zz__r4_strings_6_7z00,
																									BGl_string3031z00zz__r4_strings_6_7z00,
																									BgL_countz00_1403);
																								FAILURE(BgL_auxz00_7435, BFALSE,
																									BFALSE);
																							}
																						BgL_n1z00_3316 =
																							(long) CINT(BgL_tmpz00_7432);
																					}
																					{	/* Ieee/string.scm 953 */
																						long BgL_tmpz00_7440;

																						{	/* Ieee/string.scm 953 */
																							long BgL_za72za7_3315;

																							{	/* Ieee/string.scm 953 */
																								obj_t BgL_tmpz00_7441;

																								if (INTEGERP(BgL_startz00_1402))
																									{	/* Ieee/string.scm 953 */
																										BgL_tmpz00_7441 =
																											BgL_startz00_1402;
																									}
																								else
																									{
																										obj_t BgL_auxz00_7444;

																										BgL_auxz00_7444 =
																											BGl_typezd2errorzd2zz__errorz00
																											(BGl_string3026z00zz__r4_strings_6_7z00,
																											BINT(41456L),
																											BGl_string3097z00zz__r4_strings_6_7z00,
																											BGl_string3031z00zz__r4_strings_6_7z00,
																											BgL_startz00_1402);
																										FAILURE(BgL_auxz00_7444,
																											BFALSE, BFALSE);
																									}
																								BgL_za72za7_3315 =
																									(long) CINT(BgL_tmpz00_7441);
																							}
																							BgL_tmpz00_7440 =
																								(BgL_lenz00_3305 -
																								BgL_za72za7_3315);
																						}
																						BgL_test3607z00_7419 =
																							(BgL_n1z00_3316 <=
																							BgL_tmpz00_7440);
																				}}
																			else
																				{	/* Ieee/string.scm 953 */
																					BgL_test3607z00_7419 = ((bool_t) 0);
																				}
																		}
																	else
																		{	/* Ieee/string.scm 952 */
																			BgL_test3607z00_7419 = ((bool_t) 0);
																		}
																	if (BgL_test3607z00_7419)
																		{	/* Ieee/string.scm 954 */
																			obj_t BgL_tmpz00_7451;

																			if (INTEGERP(BgL_countz00_1403))
																				{	/* Ieee/string.scm 954 */
																					BgL_tmpz00_7451 = BgL_countz00_1403;
																				}
																			else
																				{
																					obj_t BgL_auxz00_7454;

																					BgL_auxz00_7454 =
																						BGl_typezd2errorzd2zz__errorz00
																						(BGl_string3026z00zz__r4_strings_6_7z00,
																						BINT(41468L),
																						BGl_string3097z00zz__r4_strings_6_7z00,
																						BGl_string3031z00zz__r4_strings_6_7z00,
																						BgL_countz00_1403);
																					FAILURE(BgL_auxz00_7454, BFALSE,
																						BFALSE);
																				}
																			BgL_nz00_3325 =
																				(long) CINT(BgL_tmpz00_7451);
																		}
																	else
																		{	/* Ieee/string.scm 955 */
																			long BgL_za72za7_3319;

																			{	/* Ieee/string.scm 955 */
																				obj_t BgL_tmpz00_7459;

																				if (INTEGERP(BgL_startz00_1402))
																					{	/* Ieee/string.scm 955 */
																						BgL_tmpz00_7459 = BgL_startz00_1402;
																					}
																				else
																					{
																						obj_t BgL_auxz00_7462;

																						BgL_auxz00_7462 =
																							BGl_typezd2errorzd2zz__errorz00
																							(BGl_string3026z00zz__r4_strings_6_7z00,
																							BINT(41486L),
																							BGl_string3097z00zz__r4_strings_6_7z00,
																							BGl_string3031z00zz__r4_strings_6_7z00,
																							BgL_startz00_1402);
																						FAILURE(BgL_auxz00_7462, BFALSE,
																							BFALSE);
																					}
																				BgL_za72za7_3319 =
																					(long) CINT(BgL_tmpz00_7459);
																			}
																			BgL_nz00_3325 =
																				(BgL_lenz00_3305 - BgL_za72za7_3319);
																}}
																{	/* Ieee/string.scm 932 */
																	char *BgL_s0z00_3326;

																	BgL_s0z00_3326 =
																		BSTRING_TO_STRING(BgL_stringz00_3303);
																	{	/* Ieee/string.scm 932 */
																		char *BgL_s1z00_3327;

																		{	/* Ieee/string.scm 933 */
																			int BgL_tmpz00_7469;

																			BgL_tmpz00_7469 =
																				(int) (
																				((unsigned char) (BgL_charz00_3304)));
																			BgL_s1z00_3327 =
																				BGL_MEMCHR(BgL_s0z00_3326,
																				BgL_tmpz00_7469, BgL_nz00_3325,
																				BgL_startz00_3324);
																		}
																		{	/* Ieee/string.scm 933 */

																			if (BGL_MEMCHR_ZERO(BgL_s1z00_3327))
																				{	/* Ieee/string.scm 934 */
																					return BFALSE;
																				}
																			else
																				{	/* Ieee/string.scm 934 */
																					return
																						BINT(BGL_MEMCHR_DIFF(BgL_s1z00_3327,
																							BgL_s0z00_3326));
																				}
																		}
																	}
																}
															}
														else
															{	/* Ieee/string.scm 956 */
																return BFALSE;
															}
													}
												}
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-char-index */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2charzd2indexz00zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_140, unsigned char BgL_charz00_141, obj_t BgL_startz00_142,
		obj_t BgL_countz00_143)
	{
		{	/* Ieee/string.scm 950 */
			{	/* Ieee/string.scm 951 */
				long BgL_lenz00_3331;

				BgL_lenz00_3331 = STRING_LENGTH(BgL_stringz00_140);
				{	/* Ieee/string.scm 952 */

					if ((BgL_lenz00_3331 > (long) CINT(BgL_startz00_142)))
						{	/* Ieee/string.scm 932 */
							char *BgL_s0z00_3352;

							BgL_s0z00_3352 = BSTRING_TO_STRING(BgL_stringz00_140);
							{	/* Ieee/string.scm 932 */
								char *BgL_s1z00_3353;

								{	/* Ieee/string.scm 933 */
									long BgL_auxz00_7502;
									long BgL_auxz00_7488;
									int BgL_tmpz00_7484;

									BgL_auxz00_7502 = (long) CINT(BgL_startz00_142);
									{	/* Ieee/string.scm 952 */
										bool_t BgL_test3617z00_7489;

										if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00
											(BgL_countz00_143))
											{	/* Ieee/string.scm 952 */
												if (((long) CINT(BgL_countz00_143) >= 0L))
													{	/* Ieee/string.scm 953 */
														BgL_test3617z00_7489 =
															(
															(long) CINT(BgL_countz00_143) <=
															(BgL_lenz00_3331 -
																(long) CINT(BgL_startz00_142)));
													}
												else
													{	/* Ieee/string.scm 953 */
														BgL_test3617z00_7489 = ((bool_t) 0);
													}
											}
										else
											{	/* Ieee/string.scm 952 */
												BgL_test3617z00_7489 = ((bool_t) 0);
											}
										if (BgL_test3617z00_7489)
											{	/* Ieee/string.scm 952 */
												BgL_auxz00_7488 = (long) CINT(BgL_countz00_143);
											}
										else
											{	/* Ieee/string.scm 952 */
												BgL_auxz00_7488 =
													(BgL_lenz00_3331 - (long) CINT(BgL_startz00_142));
									}}
									BgL_tmpz00_7484 = (int) (((unsigned char) (BgL_charz00_141)));
									BgL_s1z00_3353 =
										BGL_MEMCHR(BgL_s0z00_3352, BgL_tmpz00_7484, BgL_auxz00_7488,
										BgL_auxz00_7502);
								}
								{	/* Ieee/string.scm 933 */

									if (BGL_MEMCHR_ZERO(BgL_s1z00_3353))
										{	/* Ieee/string.scm 934 */
											return BFALSE;
										}
									else
										{	/* Ieee/string.scm 934 */
											return
												BINT(BGL_MEMCHR_DIFF(BgL_s1z00_3353, BgL_s0z00_3352));
										}
								}
							}
						}
					else
						{	/* Ieee/string.scm 956 */
							return BFALSE;
						}
				}
			}
		}

	}



/* _string-index */
	obj_t BGl__stringzd2indexzd2zz__r4_strings_6_7z00(obj_t BgL_env1140z00_150,
		obj_t BgL_opt1139z00_149)
	{
		{	/* Ieee/string.scm 962 */
			{	/* Ieee/string.scm 962 */
				obj_t BgL_g1141z00_1414;
				obj_t BgL_g1142z00_1415;

				{
					obj_t BgL_auxz00_7509;

					if (VECTORP(BgL_opt1139z00_149))
						{	/* Ieee/string.scm 962 */
							BgL_auxz00_7509 = BgL_opt1139z00_149;
						}
					else
						{
							obj_t BgL_auxz00_7512;

							BgL_auxz00_7512 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41795L),
								BGl_string3098z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1139z00_149);
							FAILURE(BgL_auxz00_7512, BFALSE, BFALSE);
						}
					BgL_g1141z00_1414 = VECTOR_REF(BgL_auxz00_7509, 0L);
				}
				{
					obj_t BgL_auxz00_7517;

					if (VECTORP(BgL_opt1139z00_149))
						{	/* Ieee/string.scm 962 */
							BgL_auxz00_7517 = BgL_opt1139z00_149;
						}
					else
						{
							obj_t BgL_auxz00_7520;

							BgL_auxz00_7520 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41795L),
								BGl_string3098z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1139z00_149);
							FAILURE(BgL_auxz00_7520, BFALSE, BFALSE);
						}
					BgL_g1142z00_1415 = VECTOR_REF(BgL_auxz00_7517, 1L);
				}
				{	/* Ieee/string.scm 962 */
					long BgL_aux1144z00_1417;

					{
						obj_t BgL_auxz00_7525;

						if (VECTORP(BgL_opt1139z00_149))
							{	/* Ieee/string.scm 962 */
								BgL_auxz00_7525 = BgL_opt1139z00_149;
							}
						else
							{
								obj_t BgL_auxz00_7528;

								BgL_auxz00_7528 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41795L),
									BGl_string3098z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1139z00_149);
								FAILURE(BgL_auxz00_7528, BFALSE, BFALSE);
							}
						BgL_aux1144z00_1417 = VECTOR_LENGTH(BgL_auxz00_7525);
					}
					switch (BgL_aux1144z00_1417)
						{
						case 2L:

							{	/* Ieee/string.scm 962 */

								{	/* Ieee/string.scm 962 */
									obj_t BgL_auxz00_7533;

									if (STRINGP(BgL_g1141z00_1414))
										{	/* Ieee/string.scm 962 */
											BgL_auxz00_7533 = BgL_g1141z00_1414;
										}
									else
										{
											obj_t BgL_auxz00_7536;

											BgL_auxz00_7536 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41795L),
												BGl_string3098z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1141z00_1414);
											FAILURE(BgL_auxz00_7536, BFALSE, BFALSE);
										}
									return
										BGl_stringzd2indexzd2zz__r4_strings_6_7z00(BgL_auxz00_7533,
										BgL_g1142z00_1415, BINT(0L));
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 962 */
								obj_t BgL_startz00_1419;

								{
									obj_t BgL_auxz00_7542;

									if (VECTORP(BgL_opt1139z00_149))
										{	/* Ieee/string.scm 962 */
											BgL_auxz00_7542 = BgL_opt1139z00_149;
										}
									else
										{
											obj_t BgL_auxz00_7545;

											BgL_auxz00_7545 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41795L),
												BGl_string3098z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1139z00_149);
											FAILURE(BgL_auxz00_7545, BFALSE, BFALSE);
										}
									BgL_startz00_1419 = VECTOR_REF(BgL_auxz00_7542, 2L);
								}
								{	/* Ieee/string.scm 962 */

									{	/* Ieee/string.scm 962 */
										obj_t BgL_auxz00_7550;

										if (STRINGP(BgL_g1141z00_1414))
											{	/* Ieee/string.scm 962 */
												BgL_auxz00_7550 = BgL_g1141z00_1414;
											}
										else
											{
												obj_t BgL_auxz00_7553;

												BgL_auxz00_7553 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(41795L),
													BGl_string3098z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1141z00_1414);
												FAILURE(BgL_auxz00_7553, BFALSE, BFALSE);
											}
										return
											BGl_stringzd2indexzd2zz__r4_strings_6_7z00
											(BgL_auxz00_7550, BgL_g1142z00_1415, BgL_startz00_1419);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-index */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2indexzd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_146, obj_t BgL_rsz00_147, obj_t BgL_startz00_148)
	{
		{	/* Ieee/string.scm 962 */
			if (CHARP(BgL_rsz00_147))
				{	/* Ieee/string.scm 224 */

					{	/* Ieee/string.scm 951 */
						long BgL_lenz00_3359;

						BgL_lenz00_3359 = STRING_LENGTH(BgL_stringz00_146);
						{	/* Ieee/string.scm 952 */

							if ((BgL_lenz00_3359 > (long) CINT(BgL_startz00_148)))
								{	/* Ieee/string.scm 957 */
									long BgL_startz00_3378;

									BgL_startz00_3378 = (long) CINT(BgL_startz00_148);
									{	/* Ieee/string.scm 932 */
										char *BgL_s0z00_3380;

										BgL_s0z00_3380 = BSTRING_TO_STRING(BgL_stringz00_146);
										{	/* Ieee/string.scm 932 */
											char *BgL_s1z00_3381;

											{	/* Ieee/string.scm 933 */
												long BgL_auxz00_7572;
												int BgL_tmpz00_7567;

												{	/* Ieee/string.scm 952 */
													bool_t BgL_test3629z00_7573;

													if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BINT
															((-1L))))
														{	/* Ieee/string.scm 952 */
															if (((-1L) >= 0L))
																{	/* Ieee/string.scm 953 */
																	BgL_test3629z00_7573 =
																		((-1L) <=
																		(BgL_lenz00_3359 - BgL_startz00_3378));
																}
															else
																{	/* Ieee/string.scm 953 */
																	BgL_test3629z00_7573 = ((bool_t) 0);
																}
														}
													else
														{	/* Ieee/string.scm 952 */
															BgL_test3629z00_7573 = ((bool_t) 0);
														}
													if (BgL_test3629z00_7573)
														{	/* Ieee/string.scm 952 */
															BgL_auxz00_7572 = (-1L);
														}
													else
														{	/* Ieee/string.scm 952 */
															BgL_auxz00_7572 =
																(BgL_lenz00_3359 - BgL_startz00_3378);
														}
												}
												BgL_tmpz00_7567 =
													(int) (((unsigned char) (CCHAR(BgL_rsz00_147))));
												BgL_s1z00_3381 =
													BGL_MEMCHR(BgL_s0z00_3380, BgL_tmpz00_7567,
													BgL_auxz00_7572, BgL_startz00_3378);
											}
											{	/* Ieee/string.scm 933 */

												if (BGL_MEMCHR_ZERO(BgL_s1z00_3381))
													{	/* Ieee/string.scm 934 */
														return BFALSE;
													}
												else
													{	/* Ieee/string.scm 934 */
														return
															BINT(BGL_MEMCHR_DIFF(BgL_s1z00_3381,
																BgL_s0z00_3380));
													}
											}
										}
									}
								}
							else
								{	/* Ieee/string.scm 956 */
									return BFALSE;
								}
						}
					}
				}
			else
				{	/* Ieee/string.scm 964 */
					if (STRINGP(BgL_rsz00_147))
						{	/* Ieee/string.scm 966 */
							if ((STRING_LENGTH(BgL_rsz00_147) == 1L))
								{	/* Ieee/string.scm 224 */

									{	/* Ieee/string.scm 951 */
										long BgL_lenz00_3390;

										BgL_lenz00_3390 = STRING_LENGTH(BgL_stringz00_146);
										{	/* Ieee/string.scm 952 */

											if ((BgL_lenz00_3390 > (long) CINT(BgL_startz00_148)))
												{	/* Ieee/string.scm 957 */
													long BgL_startz00_3409;

													BgL_startz00_3409 = (long) CINT(BgL_startz00_148);
													{	/* Ieee/string.scm 932 */
														char *BgL_s0z00_3411;

														BgL_s0z00_3411 =
															BSTRING_TO_STRING(BgL_stringz00_146);
														{	/* Ieee/string.scm 932 */
															char *BgL_s1z00_3412;

															{	/* Ieee/string.scm 933 */
																long BgL_auxz00_7604;
																int BgL_tmpz00_7598;

																{	/* Ieee/string.scm 952 */
																	bool_t BgL_test3636z00_7605;

																	if (BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BINT((-1L))))
																		{	/* Ieee/string.scm 952 */
																			if (((-1L) >= 0L))
																				{	/* Ieee/string.scm 953 */
																					BgL_test3636z00_7605 =
																						((-1L) <=
																						(BgL_lenz00_3390 -
																							BgL_startz00_3409));
																				}
																			else
																				{	/* Ieee/string.scm 953 */
																					BgL_test3636z00_7605 = ((bool_t) 0);
																				}
																		}
																	else
																		{	/* Ieee/string.scm 952 */
																			BgL_test3636z00_7605 = ((bool_t) 0);
																		}
																	if (BgL_test3636z00_7605)
																		{	/* Ieee/string.scm 952 */
																			BgL_auxz00_7604 = (-1L);
																		}
																	else
																		{	/* Ieee/string.scm 952 */
																			BgL_auxz00_7604 =
																				(BgL_lenz00_3390 - BgL_startz00_3409);
																		}
																}
																BgL_tmpz00_7598 =
																	(int) (
																	((unsigned char) (
																			(char) (STRING_REF(BgL_rsz00_147, 0L)))));
																BgL_s1z00_3412 =
																	BGL_MEMCHR(BgL_s0z00_3411, BgL_tmpz00_7598,
																	BgL_auxz00_7604, BgL_startz00_3409);
															}
															{	/* Ieee/string.scm 933 */

																if (BGL_MEMCHR_ZERO(BgL_s1z00_3412))
																	{	/* Ieee/string.scm 934 */
																		return BFALSE;
																	}
																else
																	{	/* Ieee/string.scm 934 */
																		return
																			BINT(BGL_MEMCHR_DIFF(BgL_s1z00_3412,
																				BgL_s0z00_3411));
																	}
															}
														}
													}
												}
											else
												{	/* Ieee/string.scm 956 */
													return BFALSE;
												}
										}
									}
								}
							else
								{	/* Ieee/string.scm 968 */
									if ((STRING_LENGTH(BgL_rsz00_147) <= 10L))
										{	/* Ieee/string.scm 971 */
											long BgL_lenz00_1435;
											long BgL_lenjz00_1436;

											BgL_lenz00_1435 = STRING_LENGTH(BgL_stringz00_146);
											BgL_lenjz00_1436 = STRING_LENGTH(BgL_rsz00_147);
											{
												obj_t BgL_iz00_1438;

												BgL_iz00_1438 = BgL_startz00_148;
											BgL_zc3z04anonymousza31525ze3z87_1439:
												if (((long) CINT(BgL_iz00_1438) >= BgL_lenz00_1435))
													{	/* Ieee/string.scm 974 */
														return BFALSE;
													}
												else
													{	/* Ieee/string.scm 976 */
														unsigned char BgL_cz00_1441;

														BgL_cz00_1441 =
															STRING_REF(BgL_stringz00_146,
															(long) CINT(BgL_iz00_1438));
														{
															long BgL_jz00_1443;

															BgL_jz00_1443 = 0L;
														BgL_zc3z04anonymousza31527ze3z87_1444:
															if ((BgL_jz00_1443 == BgL_lenjz00_1436))
																{
																	obj_t BgL_iz00_7631;

																	BgL_iz00_7631 =
																		ADDFX(BgL_iz00_1438, BINT(1L));
																	BgL_iz00_1438 = BgL_iz00_7631;
																	goto BgL_zc3z04anonymousza31525ze3z87_1439;
																}
															else
																{	/* Ieee/string.scm 978 */
																	if (
																		(BgL_cz00_1441 ==
																			STRING_REF(
																				((obj_t) BgL_rsz00_147),
																				BgL_jz00_1443)))
																		{	/* Ieee/string.scm 980 */
																			return BgL_iz00_1438;
																		}
																	else
																		{
																			long BgL_jz00_7638;

																			BgL_jz00_7638 = (BgL_jz00_1443 + 1L);
																			BgL_jz00_1443 = BgL_jz00_7638;
																			goto
																				BgL_zc3z04anonymousza31527ze3z87_1444;
																		}
																}
														}
													}
											}
										}
									else
										{	/* Ieee/string.scm 984 */
											obj_t BgL_tz00_1453;
											long BgL_lenz00_1454;

											BgL_tz00_1453 = make_string(256L, ((unsigned char) 'n'));
											BgL_lenz00_1454 = STRING_LENGTH(BgL_stringz00_146);
											{	/* Ieee/string.scm 986 */
												long BgL_g1030z00_1455;

												BgL_g1030z00_1455 = (STRING_LENGTH(BgL_rsz00_147) - 1L);
												{
													long BgL_iz00_1457;

													BgL_iz00_1457 = BgL_g1030z00_1455;
												BgL_zc3z04anonymousza31539ze3z87_1458:
													if ((BgL_iz00_1457 == (-1L)))
														{
															obj_t BgL_iz00_1461;

															BgL_iz00_1461 = BgL_startz00_148;
														BgL_zc3z04anonymousza31541ze3z87_1462:
															if (
																((long) CINT(BgL_iz00_1461) >= BgL_lenz00_1454))
																{	/* Ieee/string.scm 990 */
																	return BFALSE;
																}
															else
																{	/* Ieee/string.scm 990 */
																	if (
																		(STRING_REF(BgL_tz00_1453,
																				(STRING_REF(BgL_stringz00_146,
																						(long) CINT(BgL_iz00_1461)))) ==
																			((unsigned char) 'y')))
																		{	/* Ieee/string.scm 992 */
																			return BgL_iz00_1461;
																		}
																	else
																		{
																			obj_t BgL_iz00_7655;

																			BgL_iz00_7655 =
																				ADDFX(BgL_iz00_1461, BINT(1L));
																			BgL_iz00_1461 = BgL_iz00_7655;
																			goto
																				BgL_zc3z04anonymousza31541ze3z87_1462;
																		}
																}
														}
													else
														{	/* Ieee/string.scm 987 */
															{	/* Ieee/string.scm 999 */
																long BgL_arg1555z00_1473;

																BgL_arg1555z00_1473 =
																	(STRING_REF(
																		((obj_t) BgL_rsz00_147), BgL_iz00_1457));
																STRING_SET(BgL_tz00_1453, BgL_arg1555z00_1473,
																	((unsigned char) 'y'));
															}
															{
																long BgL_iz00_7662;

																BgL_iz00_7662 = (BgL_iz00_1457 - 1L);
																BgL_iz00_1457 = BgL_iz00_7662;
																goto BgL_zc3z04anonymousza31539ze3z87_1458;
															}
														}
												}
											}
										}
								}
						}
					else
						{	/* Ieee/string.scm 966 */
							return
								BGl_errorz00zz__errorz00(BGl_string3099z00zz__r4_strings_6_7z00,
								BGl_string3100z00zz__r4_strings_6_7z00, BgL_rsz00_147);
						}
				}
		}

	}



/* _string-index-right */
	obj_t BGl__stringzd2indexzd2rightz00zz__r4_strings_6_7z00(obj_t
		BgL_env1146z00_155, obj_t BgL_opt1145z00_154)
	{
		{	/* Ieee/string.scm 1005 */
			{	/* Ieee/string.scm 1005 */
				obj_t BgL_sz00_1480;
				obj_t BgL_g1147z00_1481;

				{
					obj_t BgL_auxz00_7665;

					if (VECTORP(BgL_opt1145z00_154))
						{	/* Ieee/string.scm 1005 */
							BgL_auxz00_7665 = BgL_opt1145z00_154;
						}
					else
						{
							obj_t BgL_auxz00_7668;

							BgL_auxz00_7668 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(43139L),
								BGl_string3101z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1145z00_154);
							FAILURE(BgL_auxz00_7668, BFALSE, BFALSE);
						}
					BgL_sz00_1480 = VECTOR_REF(BgL_auxz00_7665, 0L);
				}
				{
					obj_t BgL_auxz00_7673;

					if (VECTORP(BgL_opt1145z00_154))
						{	/* Ieee/string.scm 1005 */
							BgL_auxz00_7673 = BgL_opt1145z00_154;
						}
					else
						{
							obj_t BgL_auxz00_7676;

							BgL_auxz00_7676 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(43139L),
								BGl_string3101z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1145z00_154);
							FAILURE(BgL_auxz00_7676, BFALSE, BFALSE);
						}
					BgL_g1147z00_1481 = VECTOR_REF(BgL_auxz00_7673, 1L);
				}
				{	/* Ieee/string.scm 1005 */
					long BgL_aux1149z00_1483;

					{
						obj_t BgL_auxz00_7681;

						if (VECTORP(BgL_opt1145z00_154))
							{	/* Ieee/string.scm 1005 */
								BgL_auxz00_7681 = BgL_opt1145z00_154;
							}
						else
							{
								obj_t BgL_auxz00_7684;

								BgL_auxz00_7684 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(43139L),
									BGl_string3101z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1145z00_154);
								FAILURE(BgL_auxz00_7684, BFALSE, BFALSE);
							}
						BgL_aux1149z00_1483 = VECTOR_LENGTH(BgL_auxz00_7681);
					}
					switch (BgL_aux1149z00_1483)
						{
						case 2L:

							{	/* Ieee/string.scm 1005 */
								long BgL_startz00_1484;

								{	/* Ieee/string.scm 1005 */
									obj_t BgL_stringz00_3453;

									if (STRINGP(BgL_sz00_1480))
										{	/* Ieee/string.scm 1005 */
											BgL_stringz00_3453 = BgL_sz00_1480;
										}
									else
										{
											obj_t BgL_auxz00_7691;

											BgL_auxz00_7691 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(43190L),
												BGl_string3101z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00, BgL_sz00_1480);
											FAILURE(BgL_auxz00_7691, BFALSE, BFALSE);
										}
									BgL_startz00_1484 = STRING_LENGTH(BgL_stringz00_3453);
								}
								{	/* Ieee/string.scm 1005 */

									{	/* Ieee/string.scm 1005 */
										obj_t BgL_auxz00_7696;

										if (STRINGP(BgL_sz00_1480))
											{	/* Ieee/string.scm 1005 */
												BgL_auxz00_7696 = BgL_sz00_1480;
											}
										else
											{
												obj_t BgL_auxz00_7699;

												BgL_auxz00_7699 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(43139L),
													BGl_string3101z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_sz00_1480);
												FAILURE(BgL_auxz00_7699, BFALSE, BFALSE);
											}
										return
											BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00
											(BgL_auxz00_7696, BgL_g1147z00_1481,
											BINT(BgL_startz00_1484));
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1005 */
								obj_t BgL_startz00_1485;

								{
									obj_t BgL_auxz00_7705;

									if (VECTORP(BgL_opt1145z00_154))
										{	/* Ieee/string.scm 1005 */
											BgL_auxz00_7705 = BgL_opt1145z00_154;
										}
									else
										{
											obj_t BgL_auxz00_7708;

											BgL_auxz00_7708 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(43139L),
												BGl_string3101z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1145z00_154);
											FAILURE(BgL_auxz00_7708, BFALSE, BFALSE);
										}
									BgL_startz00_1485 = VECTOR_REF(BgL_auxz00_7705, 2L);
								}
								{	/* Ieee/string.scm 1005 */

									{	/* Ieee/string.scm 1005 */
										obj_t BgL_auxz00_7713;

										if (STRINGP(BgL_sz00_1480))
											{	/* Ieee/string.scm 1005 */
												BgL_auxz00_7713 = BgL_sz00_1480;
											}
										else
											{
												obj_t BgL_auxz00_7716;

												BgL_auxz00_7716 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(43139L),
													BGl_string3101z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_sz00_1480);
												FAILURE(BgL_auxz00_7716, BFALSE, BFALSE);
											}
										return
											BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00
											(BgL_auxz00_7713, BgL_g1147z00_1481, BgL_startz00_1485);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-index-right */
	BGL_EXPORTED_DEF obj_t
		BGl_stringzd2indexzd2rightz00zz__r4_strings_6_7z00(obj_t BgL_sz00_151,
		obj_t BgL_rsz00_152, obj_t BgL_startz00_153)
	{
		{	/* Ieee/string.scm 1005 */
			{
				obj_t BgL_sz00_1544;
				obj_t BgL_cz00_1545;

				if (((long) CINT(BgL_startz00_153) > STRING_LENGTH(BgL_sz00_151)))
					{	/* Ieee/string.scm 1016 */
						return
							BGl_errorz00zz__errorz00(BGl_string3102z00zz__r4_strings_6_7z00,
							BGl_string3103z00zz__r4_strings_6_7z00, BgL_startz00_153);
					}
				else
					{	/* Ieee/string.scm 1016 */
						if (CHARP(BgL_rsz00_152))
							{	/* Ieee/string.scm 1018 */
								BgL_sz00_1544 = BgL_sz00_151;
								BgL_cz00_1545 = BgL_rsz00_152;
							BgL_zc3z04anonymousza31611ze3z87_1546:
								{
									long BgL_iz00_1549;

									BgL_iz00_1549 = ((long) CINT(BgL_startz00_153) - 1L);
								BgL_zc3z04anonymousza31612ze3z87_1550:
									if ((BgL_iz00_1549 < 0L))
										{	/* Ieee/string.scm 1009 */
											return BFALSE;
										}
									else
										{	/* Ieee/string.scm 1009 */
											if (
												(STRING_REF(BgL_sz00_1544, BgL_iz00_1549) ==
													CCHAR(BgL_cz00_1545)))
												{	/* Ieee/string.scm 1011 */
													return BINT(BgL_iz00_1549);
												}
											else
												{
													long BgL_iz00_7736;

													BgL_iz00_7736 = (BgL_iz00_1549 - 1L);
													BgL_iz00_1549 = BgL_iz00_7736;
													goto BgL_zc3z04anonymousza31612ze3z87_1550;
												}
										}
								}
							}
						else
							{	/* Ieee/string.scm 1018 */
								if (STRINGP(BgL_rsz00_152))
									{	/* Ieee/string.scm 1020 */
										if ((STRING_LENGTH(BgL_rsz00_152) == 1L))
											{
												obj_t BgL_cz00_7746;
												obj_t BgL_sz00_7745;

												BgL_sz00_7745 = BgL_sz00_151;
												BgL_cz00_7746 = BCHAR(STRING_REF(BgL_rsz00_152, 0L));
												BgL_cz00_1545 = BgL_cz00_7746;
												BgL_sz00_1544 = BgL_sz00_7745;
												goto BgL_zc3z04anonymousza31611ze3z87_1546;
											}
										else
											{	/* Ieee/string.scm 1022 */
												if ((STRING_LENGTH(BgL_rsz00_152) <= 10L))
													{	/* Ieee/string.scm 1025 */
														long BgL_lenjz00_1497;

														BgL_lenjz00_1497 = STRING_LENGTH(BgL_rsz00_152);
														{
															long BgL_iz00_1500;

															BgL_iz00_1500 =
																((long) CINT(BgL_startz00_153) - 1L);
														BgL_zc3z04anonymousza31576ze3z87_1501:
															if ((BgL_iz00_1500 < 0L))
																{	/* Ieee/string.scm 1028 */
																	return BFALSE;
																}
															else
																{	/* Ieee/string.scm 1030 */
																	unsigned char BgL_cz00_1503;

																	BgL_cz00_1503 =
																		STRING_REF(BgL_sz00_151, BgL_iz00_1500);
																	{
																		long BgL_jz00_1505;

																		BgL_jz00_1505 = 0L;
																	BgL_zc3z04anonymousza31578ze3z87_1506:
																		if ((BgL_jz00_1505 == BgL_lenjz00_1497))
																			{
																				long BgL_iz00_7758;

																				BgL_iz00_7758 = (BgL_iz00_1500 - 1L);
																				BgL_iz00_1500 = BgL_iz00_7758;
																				goto
																					BgL_zc3z04anonymousza31576ze3z87_1501;
																			}
																		else
																			{	/* Ieee/string.scm 1032 */
																				if (
																					(BgL_cz00_1503 ==
																						STRING_REF(
																							((obj_t) BgL_rsz00_152),
																							BgL_jz00_1505)))
																					{	/* Ieee/string.scm 1034 */
																						return BINT(BgL_iz00_1500);
																					}
																				else
																					{
																						long BgL_jz00_7765;

																						BgL_jz00_7765 =
																							(BgL_jz00_1505 + 1L);
																						BgL_jz00_1505 = BgL_jz00_7765;
																						goto
																							BgL_zc3z04anonymousza31578ze3z87_1506;
																					}
																			}
																	}
																}
														}
													}
												else
													{	/* Ieee/string.scm 1038 */
														obj_t BgL_tz00_1515;

														BgL_tz00_1515 =
															make_string(256L, ((unsigned char) 'n'));
														{	/* Ieee/string.scm 1040 */
															long BgL_g1034z00_1517;

															BgL_g1034z00_1517 =
																(STRING_LENGTH(BgL_rsz00_152) - 1L);
															{
																long BgL_iz00_1519;

																BgL_iz00_1519 = BgL_g1034z00_1517;
															BgL_zc3z04anonymousza31587ze3z87_1520:
																if ((BgL_iz00_1519 == (-1L)))
																	{
																		long BgL_iz00_1524;

																		BgL_iz00_1524 =
																			((long) CINT(BgL_startz00_153) - 1L);
																	BgL_zc3z04anonymousza31589ze3z87_1525:
																		if ((BgL_iz00_1524 < 0L))
																			{	/* Ieee/string.scm 1044 */
																				return BFALSE;
																			}
																		else
																			{	/* Ieee/string.scm 1044 */
																				if (
																					(STRING_REF(BgL_tz00_1515,
																							(STRING_REF(BgL_sz00_151,
																									BgL_iz00_1524))) ==
																						((unsigned char) 'y')))
																					{	/* Ieee/string.scm 1046 */
																						return BINT(BgL_iz00_1524);
																					}
																				else
																					{
																						long BgL_iz00_7782;

																						BgL_iz00_7782 =
																							(BgL_iz00_1524 - 1L);
																						BgL_iz00_1524 = BgL_iz00_7782;
																						goto
																							BgL_zc3z04anonymousza31589ze3z87_1525;
																					}
																			}
																	}
																else
																	{	/* Ieee/string.scm 1041 */
																		{	/* Ieee/string.scm 1053 */
																			long BgL_arg1602z00_1536;

																			BgL_arg1602z00_1536 =
																				(STRING_REF(
																					((obj_t) BgL_rsz00_152),
																					BgL_iz00_1519));
																			STRING_SET(BgL_tz00_1515,
																				BgL_arg1602z00_1536,
																				((unsigned char) 'y'));
																		}
																		{
																			long BgL_iz00_7790;

																			BgL_iz00_7790 = (BgL_iz00_1519 - 1L);
																			BgL_iz00_1519 = BgL_iz00_7790;
																			goto
																				BgL_zc3z04anonymousza31587ze3z87_1520;
																		}
																	}
															}
														}
													}
											}
									}
								else
									{	/* Ieee/string.scm 1020 */
										return
											BGl_errorz00zz__errorz00
											(BGl_string3102z00zz__r4_strings_6_7z00,
											BGl_string3100z00zz__r4_strings_6_7z00, BgL_rsz00_152);
									}
							}
					}
			}
		}

	}



/* _string-skip */
	obj_t BGl__stringzd2skipzd2zz__r4_strings_6_7z00(obj_t BgL_env1151z00_160,
		obj_t BgL_opt1150z00_159)
	{
		{	/* Ieee/string.scm 1059 */
			{	/* Ieee/string.scm 1059 */
				obj_t BgL_g1152z00_1558;
				obj_t BgL_g1153z00_1559;

				{
					obj_t BgL_auxz00_7793;

					if (VECTORP(BgL_opt1150z00_159))
						{	/* Ieee/string.scm 1059 */
							BgL_auxz00_7793 = BgL_opt1150z00_159;
						}
					else
						{
							obj_t BgL_auxz00_7796;

							BgL_auxz00_7796 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(44760L),
								BGl_string3104z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1150z00_159);
							FAILURE(BgL_auxz00_7796, BFALSE, BFALSE);
						}
					BgL_g1152z00_1558 = VECTOR_REF(BgL_auxz00_7793, 0L);
				}
				{
					obj_t BgL_auxz00_7801;

					if (VECTORP(BgL_opt1150z00_159))
						{	/* Ieee/string.scm 1059 */
							BgL_auxz00_7801 = BgL_opt1150z00_159;
						}
					else
						{
							obj_t BgL_auxz00_7804;

							BgL_auxz00_7804 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(44760L),
								BGl_string3104z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1150z00_159);
							FAILURE(BgL_auxz00_7804, BFALSE, BFALSE);
						}
					BgL_g1153z00_1559 = VECTOR_REF(BgL_auxz00_7801, 1L);
				}
				{	/* Ieee/string.scm 1059 */
					long BgL_aux1155z00_1561;

					{
						obj_t BgL_auxz00_7809;

						if (VECTORP(BgL_opt1150z00_159))
							{	/* Ieee/string.scm 1059 */
								BgL_auxz00_7809 = BgL_opt1150z00_159;
							}
						else
							{
								obj_t BgL_auxz00_7812;

								BgL_auxz00_7812 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(44760L),
									BGl_string3104z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1150z00_159);
								FAILURE(BgL_auxz00_7812, BFALSE, BFALSE);
							}
						BgL_aux1155z00_1561 = VECTOR_LENGTH(BgL_auxz00_7809);
					}
					switch (BgL_aux1155z00_1561)
						{
						case 2L:

							{	/* Ieee/string.scm 1059 */

								{	/* Ieee/string.scm 1059 */
									obj_t BgL_auxz00_7817;

									if (STRINGP(BgL_g1152z00_1558))
										{	/* Ieee/string.scm 1059 */
											BgL_auxz00_7817 = BgL_g1152z00_1558;
										}
									else
										{
											obj_t BgL_auxz00_7820;

											BgL_auxz00_7820 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(44760L),
												BGl_string3104z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_g1152z00_1558);
											FAILURE(BgL_auxz00_7820, BFALSE, BFALSE);
										}
									return
										BGl_stringzd2skipzd2zz__r4_strings_6_7z00(BgL_auxz00_7817,
										BgL_g1153z00_1559, BINT(0L));
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1059 */
								obj_t BgL_startz00_1563;

								{
									obj_t BgL_auxz00_7826;

									if (VECTORP(BgL_opt1150z00_159))
										{	/* Ieee/string.scm 1059 */
											BgL_auxz00_7826 = BgL_opt1150z00_159;
										}
									else
										{
											obj_t BgL_auxz00_7829;

											BgL_auxz00_7829 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(44760L),
												BGl_string3104z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1150z00_159);
											FAILURE(BgL_auxz00_7829, BFALSE, BFALSE);
										}
									BgL_startz00_1563 = VECTOR_REF(BgL_auxz00_7826, 2L);
								}
								{	/* Ieee/string.scm 1059 */

									{	/* Ieee/string.scm 1059 */
										obj_t BgL_auxz00_7834;

										if (STRINGP(BgL_g1152z00_1558))
											{	/* Ieee/string.scm 1059 */
												BgL_auxz00_7834 = BgL_g1152z00_1558;
											}
										else
											{
												obj_t BgL_auxz00_7837;

												BgL_auxz00_7837 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(44760L),
													BGl_string3104z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1152z00_1558);
												FAILURE(BgL_auxz00_7837, BFALSE, BFALSE);
											}
										return
											BGl_stringzd2skipzd2zz__r4_strings_6_7z00(BgL_auxz00_7834,
											BgL_g1153z00_1559, BgL_startz00_1563);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-skip */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2skipzd2zz__r4_strings_6_7z00(obj_t
		BgL_stringz00_156, obj_t BgL_rsz00_157, obj_t BgL_startz00_158)
	{
		{	/* Ieee/string.scm 1059 */
			{
				obj_t BgL_sz00_1632;
				obj_t BgL_predz00_1633;
				obj_t BgL_sz00_1619;
				obj_t BgL_cz00_1620;

				if (CHARP(BgL_rsz00_157))
					{	/* Ieee/string.scm 1083 */
						BgL_sz00_1619 = BgL_stringz00_156;
						BgL_cz00_1620 = BgL_rsz00_157;
					BgL_zc3z04anonymousza31659ze3z87_1621:
						{	/* Ieee/string.scm 1062 */
							long BgL_lenz00_1622;

							BgL_lenz00_1622 = STRING_LENGTH(BgL_sz00_1619);
							{
								obj_t BgL_iz00_1624;

								BgL_iz00_1624 = BgL_startz00_158;
							BgL_zc3z04anonymousza31660ze3z87_1625:
								if (((long) CINT(BgL_iz00_1624) >= BgL_lenz00_1622))
									{	/* Ieee/string.scm 1065 */
										return BFALSE;
									}
								else
									{	/* Ieee/string.scm 1065 */
										if (
											(STRING_REF(BgL_sz00_1619,
													(long) CINT(BgL_iz00_1624)) == CCHAR(BgL_cz00_1620)))
											{
												obj_t BgL_iz00_7854;

												BgL_iz00_7854 = ADDFX(BgL_iz00_1624, BINT(1L));
												BgL_iz00_1624 = BgL_iz00_7854;
												goto BgL_zc3z04anonymousza31660ze3z87_1625;
											}
										else
											{	/* Ieee/string.scm 1067 */
												return BgL_iz00_1624;
											}
									}
							}
						}
					}
				else
					{	/* Ieee/string.scm 1083 */
						if (PROCEDUREP(BgL_rsz00_157))
							{	/* Ieee/string.scm 1085 */
								BgL_sz00_1632 = BgL_stringz00_156;
								BgL_predz00_1633 = BgL_rsz00_157;
								{	/* Ieee/string.scm 1072 */
									long BgL_lenz00_1635;

									BgL_lenz00_1635 = STRING_LENGTH(BgL_sz00_1632);
									{
										obj_t BgL_iz00_1637;

										BgL_iz00_1637 = BgL_startz00_158;
									BgL_zc3z04anonymousza31667ze3z87_1638:
										if (((long) CINT(BgL_iz00_1637) >= BgL_lenz00_1635))
											{	/* Ieee/string.scm 1075 */
												return BFALSE;
											}
										else
											{	/* Ieee/string.scm 1077 */
												bool_t BgL_test3678z00_7863;

												{	/* Ieee/string.scm 1077 */
													unsigned char BgL_arg1674z00_1643;

													BgL_arg1674z00_1643 =
														STRING_REF(BgL_sz00_1632,
														(long) CINT(BgL_iz00_1637));
													BgL_test3678z00_7863 =
														CBOOL(BGL_PROCEDURE_CALL1(BgL_predz00_1633,
															BCHAR(BgL_arg1674z00_1643)));
												}
												if (BgL_test3678z00_7863)
													{	/* Ieee/string.scm 1078 */
														long BgL_arg1673z00_1642;

														BgL_arg1673z00_1642 =
															((long) CINT(BgL_iz00_1637) + 1L);
														{
															obj_t BgL_iz00_7874;

															BgL_iz00_7874 = BINT(BgL_arg1673z00_1642);
															BgL_iz00_1637 = BgL_iz00_7874;
															goto BgL_zc3z04anonymousza31667ze3z87_1638;
														}
													}
												else
													{	/* Ieee/string.scm 1077 */
														return BgL_iz00_1637;
													}
											}
									}
								}
							}
						else
							{	/* Ieee/string.scm 1085 */
								if (STRINGP(BgL_rsz00_157))
									{	/* Ieee/string.scm 1087 */
										if ((STRING_LENGTH(BgL_rsz00_157) == 1L))
											{
												obj_t BgL_cz00_7882;
												obj_t BgL_sz00_7881;

												BgL_sz00_7881 = BgL_stringz00_156;
												BgL_cz00_7882 = BCHAR(STRING_REF(BgL_rsz00_157, 0L));
												BgL_cz00_1620 = BgL_cz00_7882;
												BgL_sz00_1619 = BgL_sz00_7881;
												goto BgL_zc3z04anonymousza31659ze3z87_1621;
											}
										else
											{	/* Ieee/string.scm 1089 */
												if ((STRING_LENGTH(BgL_rsz00_157) <= 10L))
													{	/* Ieee/string.scm 1092 */
														long BgL_lenz00_1574;
														long BgL_lenjz00_1575;

														BgL_lenz00_1574 = STRING_LENGTH(BgL_stringz00_156);
														BgL_lenjz00_1575 = STRING_LENGTH(BgL_rsz00_157);
														{
															obj_t BgL_iz00_1577;

															BgL_iz00_1577 = BgL_startz00_158;
														BgL_zc3z04anonymousza31626ze3z87_1578:
															if (
																((long) CINT(BgL_iz00_1577) >= BgL_lenz00_1574))
																{	/* Ieee/string.scm 1095 */
																	return BFALSE;
																}
															else
																{	/* Ieee/string.scm 1097 */
																	unsigned char BgL_cz00_1580;

																	BgL_cz00_1580 =
																		STRING_REF(BgL_stringz00_156,
																		(long) CINT(BgL_iz00_1577));
																	{
																		long BgL_jz00_1582;

																		BgL_jz00_1582 = 0L;
																	BgL_zc3z04anonymousza31628ze3z87_1583:
																		if ((BgL_jz00_1582 == BgL_lenjz00_1575))
																			{	/* Ieee/string.scm 1099 */
																				return BgL_iz00_1577;
																			}
																		else
																			{	/* Ieee/string.scm 1099 */
																				if (
																					(BgL_cz00_1580 ==
																						STRING_REF(
																							((obj_t) BgL_rsz00_157),
																							BgL_jz00_1582)))
																					{
																						obj_t BgL_iz00_7901;

																						BgL_iz00_7901 =
																							ADDFX(BgL_iz00_1577, BINT(1L));
																						BgL_iz00_1577 = BgL_iz00_7901;
																						goto
																							BgL_zc3z04anonymousza31626ze3z87_1578;
																					}
																				else
																					{
																						long BgL_jz00_7904;

																						BgL_jz00_7904 =
																							(BgL_jz00_1582 + 1L);
																						BgL_jz00_1582 = BgL_jz00_7904;
																						goto
																							BgL_zc3z04anonymousza31628ze3z87_1583;
																					}
																			}
																	}
																}
														}
													}
												else
													{	/* Ieee/string.scm 1105 */
														obj_t BgL_tz00_1592;
														long BgL_lenz00_1593;

														BgL_tz00_1592 =
															make_string(256L, ((unsigned char) 'n'));
														BgL_lenz00_1593 = STRING_LENGTH(BgL_stringz00_156);
														{	/* Ieee/string.scm 1107 */
															long BgL_g1037z00_1594;

															BgL_g1037z00_1594 =
																(STRING_LENGTH(BgL_rsz00_157) - 1L);
															{
																long BgL_iz00_1596;

																BgL_iz00_1596 = BgL_g1037z00_1594;
															BgL_zc3z04anonymousza31635ze3z87_1597:
																if ((BgL_iz00_1596 == (-1L)))
																	{
																		obj_t BgL_iz00_1600;

																		BgL_iz00_1600 = BgL_startz00_158;
																	BgL_zc3z04anonymousza31637ze3z87_1601:
																		if (
																			((long) CINT(BgL_iz00_1600) >=
																				BgL_lenz00_1593))
																			{	/* Ieee/string.scm 1111 */
																				return BFALSE;
																			}
																		else
																			{	/* Ieee/string.scm 1111 */
																				if (
																					(STRING_REF(BgL_tz00_1592,
																							(STRING_REF(BgL_stringz00_156,
																									(long) CINT(BgL_iz00_1600))))
																						== ((unsigned char) 'y')))
																					{
																						obj_t BgL_iz00_7921;

																						BgL_iz00_7921 =
																							ADDFX(BgL_iz00_1600, BINT(1L));
																						BgL_iz00_1600 = BgL_iz00_7921;
																						goto
																							BgL_zc3z04anonymousza31637ze3z87_1601;
																					}
																				else
																					{	/* Ieee/string.scm 1113 */
																						return BgL_iz00_1600;
																					}
																			}
																	}
																else
																	{	/* Ieee/string.scm 1108 */
																		{	/* Ieee/string.scm 1120 */
																			long BgL_arg1649z00_1612;

																			BgL_arg1649z00_1612 =
																				(STRING_REF(
																					((obj_t) BgL_rsz00_157),
																					BgL_iz00_1596));
																			STRING_SET(BgL_tz00_1592,
																				BgL_arg1649z00_1612,
																				((unsigned char) 'y'));
																		}
																		{
																			long BgL_iz00_7928;

																			BgL_iz00_7928 = (BgL_iz00_1596 - 1L);
																			BgL_iz00_1596 = BgL_iz00_7928;
																			goto
																				BgL_zc3z04anonymousza31635ze3z87_1597;
																		}
																	}
															}
														}
													}
											}
									}
								else
									{	/* Ieee/string.scm 1087 */
										return
											BGl_errorz00zz__errorz00
											(BGl_string3105z00zz__r4_strings_6_7z00,
											BGl_string3100z00zz__r4_strings_6_7z00, BgL_rsz00_157);
									}
							}
					}
			}
		}

	}



/* _string-skip-right */
	obj_t BGl__stringzd2skipzd2rightz00zz__r4_strings_6_7z00(obj_t
		BgL_env1157z00_165, obj_t BgL_opt1156z00_164)
	{
		{	/* Ieee/string.scm 1126 */
			{	/* Ieee/string.scm 1126 */
				obj_t BgL_sz00_1647;
				obj_t BgL_g1158z00_1648;

				{
					obj_t BgL_auxz00_7931;

					if (VECTORP(BgL_opt1156z00_164))
						{	/* Ieee/string.scm 1126 */
							BgL_auxz00_7931 = BgL_opt1156z00_164;
						}
					else
						{
							obj_t BgL_auxz00_7934;

							BgL_auxz00_7934 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(46585L),
								BGl_string3106z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1156z00_164);
							FAILURE(BgL_auxz00_7934, BFALSE, BFALSE);
						}
					BgL_sz00_1647 = VECTOR_REF(BgL_auxz00_7931, 0L);
				}
				{
					obj_t BgL_auxz00_7939;

					if (VECTORP(BgL_opt1156z00_164))
						{	/* Ieee/string.scm 1126 */
							BgL_auxz00_7939 = BgL_opt1156z00_164;
						}
					else
						{
							obj_t BgL_auxz00_7942;

							BgL_auxz00_7942 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(46585L),
								BGl_string3106z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1156z00_164);
							FAILURE(BgL_auxz00_7942, BFALSE, BFALSE);
						}
					BgL_g1158z00_1648 = VECTOR_REF(BgL_auxz00_7939, 1L);
				}
				{	/* Ieee/string.scm 1126 */
					long BgL_aux1160z00_1650;

					{
						obj_t BgL_auxz00_7947;

						if (VECTORP(BgL_opt1156z00_164))
							{	/* Ieee/string.scm 1126 */
								BgL_auxz00_7947 = BgL_opt1156z00_164;
							}
						else
							{
								obj_t BgL_auxz00_7950;

								BgL_auxz00_7950 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(46585L),
									BGl_string3106z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1156z00_164);
								FAILURE(BgL_auxz00_7950, BFALSE, BFALSE);
							}
						BgL_aux1160z00_1650 = VECTOR_LENGTH(BgL_auxz00_7947);
					}
					switch (BgL_aux1160z00_1650)
						{
						case 2L:

							{	/* Ieee/string.scm 1126 */
								long BgL_startz00_1651;

								{	/* Ieee/string.scm 1126 */
									obj_t BgL_stringz00_3558;

									if (STRINGP(BgL_sz00_1647))
										{	/* Ieee/string.scm 1126 */
											BgL_stringz00_3558 = BgL_sz00_1647;
										}
									else
										{
											obj_t BgL_auxz00_7957;

											BgL_auxz00_7957 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(46635L),
												BGl_string3106z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00, BgL_sz00_1647);
											FAILURE(BgL_auxz00_7957, BFALSE, BFALSE);
										}
									BgL_startz00_1651 = STRING_LENGTH(BgL_stringz00_3558);
								}
								{	/* Ieee/string.scm 1126 */

									{	/* Ieee/string.scm 1126 */
										obj_t BgL_auxz00_7962;

										if (STRINGP(BgL_sz00_1647))
											{	/* Ieee/string.scm 1126 */
												BgL_auxz00_7962 = BgL_sz00_1647;
											}
										else
											{
												obj_t BgL_auxz00_7965;

												BgL_auxz00_7965 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(46585L),
													BGl_string3106z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_sz00_1647);
												FAILURE(BgL_auxz00_7965, BFALSE, BFALSE);
											}
										return
											BGl_stringzd2skipzd2rightz00zz__r4_strings_6_7z00
											(BgL_auxz00_7962, BgL_g1158z00_1648,
											BINT(BgL_startz00_1651));
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1126 */
								obj_t BgL_startz00_1652;

								{
									obj_t BgL_auxz00_7971;

									if (VECTORP(BgL_opt1156z00_164))
										{	/* Ieee/string.scm 1126 */
											BgL_auxz00_7971 = BgL_opt1156z00_164;
										}
									else
										{
											obj_t BgL_auxz00_7974;

											BgL_auxz00_7974 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(46585L),
												BGl_string3106z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1156z00_164);
											FAILURE(BgL_auxz00_7974, BFALSE, BFALSE);
										}
									BgL_startz00_1652 = VECTOR_REF(BgL_auxz00_7971, 2L);
								}
								{	/* Ieee/string.scm 1126 */

									{	/* Ieee/string.scm 1126 */
										obj_t BgL_auxz00_7979;

										if (STRINGP(BgL_sz00_1647))
											{	/* Ieee/string.scm 1126 */
												BgL_auxz00_7979 = BgL_sz00_1647;
											}
										else
											{
												obj_t BgL_auxz00_7982;

												BgL_auxz00_7982 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(46585L),
													BGl_string3106z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_sz00_1647);
												FAILURE(BgL_auxz00_7982, BFALSE, BFALSE);
											}
										return
											BGl_stringzd2skipzd2rightz00zz__r4_strings_6_7z00
											(BgL_auxz00_7979, BgL_g1158z00_1648, BgL_startz00_1652);
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-skip-right */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2skipzd2rightz00zz__r4_strings_6_7z00(obj_t
		BgL_sz00_161, obj_t BgL_rsz00_162, obj_t BgL_startz00_163)
	{
		{	/* Ieee/string.scm 1126 */
			{
				obj_t BgL_sz00_1726;
				obj_t BgL_predz00_1727;
				obj_t BgL_sz00_1713;
				obj_t BgL_cz00_1714;

				if (((long) CINT(BgL_startz00_163) > STRING_LENGTH(BgL_sz00_161)))
					{	/* Ieee/string.scm 1149 */
						return
							BGl_errorz00zz__errorz00(BGl_string3099z00zz__r4_strings_6_7z00,
							BGl_string3103z00zz__r4_strings_6_7z00, BgL_startz00_163);
					}
				else
					{	/* Ieee/string.scm 1149 */
						if (CHARP(BgL_rsz00_162))
							{	/* Ieee/string.scm 1151 */
								BgL_sz00_1713 = BgL_sz00_161;
								BgL_cz00_1714 = BgL_rsz00_162;
							BgL_zc3z04anonymousza31726ze3z87_1715:
								{
									long BgL_iz00_1718;

									BgL_iz00_1718 = ((long) CINT(BgL_startz00_163) - 1L);
								BgL_zc3z04anonymousza31727ze3z87_1719:
									if ((BgL_iz00_1718 < 0L))
										{	/* Ieee/string.scm 1131 */
											return BFALSE;
										}
									else
										{	/* Ieee/string.scm 1131 */
											if (
												(STRING_REF(BgL_sz00_1713, BgL_iz00_1718) ==
													CCHAR(BgL_cz00_1714)))
												{
													long BgL_iz00_8001;

													BgL_iz00_8001 = (BgL_iz00_1718 - 1L);
													BgL_iz00_1718 = BgL_iz00_8001;
													goto BgL_zc3z04anonymousza31727ze3z87_1719;
												}
											else
												{	/* Ieee/string.scm 1133 */
													return BINT(BgL_iz00_1718);
												}
										}
								}
							}
						else
							{	/* Ieee/string.scm 1151 */
								if (PROCEDUREP(BgL_rsz00_162))
									{	/* Ieee/string.scm 1153 */
										BgL_sz00_1726 = BgL_sz00_161;
										BgL_predz00_1727 = BgL_rsz00_162;
										{	/* Ieee/string.scm 1139 */
											long BgL_g1040z00_1729;

											BgL_g1040z00_1729 = ((long) CINT(BgL_startz00_163) - 1L);
											{
												long BgL_iz00_1731;

												BgL_iz00_1731 = BgL_g1040z00_1729;
											BgL_zc3z04anonymousza31734ze3z87_1732:
												if ((BgL_iz00_1731 < 0L))
													{	/* Ieee/string.scm 1141 */
														return BFALSE;
													}
												else
													{	/* Ieee/string.scm 1143 */
														bool_t BgL_test3701z00_8012;

														{	/* Ieee/string.scm 1143 */
															unsigned char BgL_arg1742z00_1737;

															BgL_arg1742z00_1737 =
																STRING_REF(BgL_sz00_1726, BgL_iz00_1731);
															BgL_test3701z00_8012 =
																CBOOL(BGL_PROCEDURE_CALL1(BgL_predz00_1727,
																	BCHAR(BgL_arg1742z00_1737)));
														}
														if (BgL_test3701z00_8012)
															{
																long BgL_iz00_8020;

																BgL_iz00_8020 = (BgL_iz00_1731 - 1L);
																BgL_iz00_1731 = BgL_iz00_8020;
																goto BgL_zc3z04anonymousza31734ze3z87_1732;
															}
														else
															{	/* Ieee/string.scm 1143 */
																return BINT(BgL_iz00_1731);
															}
													}
											}
										}
									}
								else
									{	/* Ieee/string.scm 1153 */
										if (STRINGP(BgL_rsz00_162))
											{	/* Ieee/string.scm 1155 */
												if ((STRING_LENGTH(BgL_rsz00_162) == 1L))
													{
														obj_t BgL_cz00_8029;
														obj_t BgL_sz00_8028;

														BgL_sz00_8028 = BgL_sz00_161;
														BgL_cz00_8029 =
															BCHAR(STRING_REF(BgL_rsz00_162, 0L));
														BgL_cz00_1714 = BgL_cz00_8029;
														BgL_sz00_1713 = BgL_sz00_8028;
														goto BgL_zc3z04anonymousza31726ze3z87_1715;
													}
												else
													{	/* Ieee/string.scm 1157 */
														if ((STRING_LENGTH(BgL_rsz00_162) <= 10L))
															{	/* Ieee/string.scm 1160 */
																long BgL_lenjz00_1666;

																BgL_lenjz00_1666 = STRING_LENGTH(BgL_rsz00_162);
																{
																	long BgL_iz00_1669;

																	BgL_iz00_1669 =
																		((long) CINT(BgL_startz00_163) - 1L);
																BgL_zc3z04anonymousza31689ze3z87_1670:
																	if ((BgL_iz00_1669 < 0L))
																		{	/* Ieee/string.scm 1163 */
																			return BFALSE;
																		}
																	else
																		{	/* Ieee/string.scm 1165 */
																			unsigned char BgL_cz00_1672;

																			BgL_cz00_1672 =
																				STRING_REF(BgL_sz00_161, BgL_iz00_1669);
																			{
																				long BgL_jz00_1674;

																				BgL_jz00_1674 = 0L;
																			BgL_zc3z04anonymousza31691ze3z87_1675:
																				if ((BgL_jz00_1674 == BgL_lenjz00_1666))
																					{	/* Ieee/string.scm 1167 */
																						return BINT(BgL_iz00_1669);
																					}
																				else
																					{	/* Ieee/string.scm 1167 */
																						if (
																							(BgL_cz00_1672 ==
																								STRING_REF(
																									((obj_t) BgL_rsz00_162),
																									BgL_jz00_1674)))
																							{
																								long BgL_iz00_8046;

																								BgL_iz00_8046 =
																									(BgL_iz00_1669 - 1L);
																								BgL_iz00_1669 = BgL_iz00_8046;
																								goto
																									BgL_zc3z04anonymousza31689ze3z87_1670;
																							}
																						else
																							{
																								long BgL_jz00_8048;

																								BgL_jz00_8048 =
																									(BgL_jz00_1674 + 1L);
																								BgL_jz00_1674 = BgL_jz00_8048;
																								goto
																									BgL_zc3z04anonymousza31691ze3z87_1675;
																							}
																					}
																			}
																		}
																}
															}
														else
															{	/* Ieee/string.scm 1173 */
																obj_t BgL_tz00_1684;

																BgL_tz00_1684 =
																	make_string(256L, ((unsigned char) 'n'));
																{	/* Ieee/string.scm 1175 */
																	long BgL_g1042z00_1686;

																	BgL_g1042z00_1686 =
																		(STRING_LENGTH(BgL_rsz00_162) - 1L);
																	{
																		long BgL_iz00_1688;

																		BgL_iz00_1688 = BgL_g1042z00_1686;
																	BgL_zc3z04anonymousza31706ze3z87_1689:
																		if ((BgL_iz00_1688 == (-1L)))
																			{
																				long BgL_iz00_1693;

																				BgL_iz00_1693 =
																					((long) CINT(BgL_startz00_163) - 1L);
																			BgL_zc3z04anonymousza31708ze3z87_1694:
																				if ((BgL_iz00_1693 < 0L))
																					{	/* Ieee/string.scm 1179 */
																						return BFALSE;
																					}
																				else
																					{	/* Ieee/string.scm 1179 */
																						if (
																							(STRING_REF(BgL_tz00_1684,
																									(STRING_REF(BgL_sz00_161,
																											BgL_iz00_1693))) ==
																								((unsigned char) 'y')))
																							{
																								long BgL_iz00_8064;

																								BgL_iz00_8064 =
																									(BgL_iz00_1693 - 1L);
																								BgL_iz00_1693 = BgL_iz00_8064;
																								goto
																									BgL_zc3z04anonymousza31708ze3z87_1694;
																							}
																						else
																							{	/* Ieee/string.scm 1181 */
																								return BINT(BgL_iz00_1693);
																							}
																					}
																			}
																		else
																			{	/* Ieee/string.scm 1176 */
																				{	/* Ieee/string.scm 1188 */
																					long BgL_arg1719z00_1705;

																					BgL_arg1719z00_1705 =
																						(STRING_REF(
																							((obj_t) BgL_rsz00_162),
																							BgL_iz00_1688));
																					STRING_SET(BgL_tz00_1684,
																						BgL_arg1719z00_1705,
																						((unsigned char) 'y'));
																				}
																				{
																					long BgL_iz00_8073;

																					BgL_iz00_8073 = (BgL_iz00_1688 - 1L);
																					BgL_iz00_1688 = BgL_iz00_8073;
																					goto
																						BgL_zc3z04anonymousza31706ze3z87_1689;
																				}
																			}
																	}
																}
															}
													}
											}
										else
											{	/* Ieee/string.scm 1155 */
												return
													BGl_errorz00zz__errorz00
													(BGl_string3102z00zz__r4_strings_6_7z00,
													BGl_string3100z00zz__r4_strings_6_7z00,
													BgL_rsz00_162);
											}
									}
							}
					}
			}
		}

	}



/* _string-prefix-length */
	obj_t BGl__stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(obj_t
		BgL_env1162z00_183, obj_t BgL_opt1161z00_182)
	{
		{	/* Ieee/string.scm 1222 */
			{	/* Ieee/string.scm 1222 */
				obj_t BgL_s1z00_1749;
				obj_t BgL_s2z00_1750;

				{
					obj_t BgL_auxz00_8076;

					if (VECTORP(BgL_opt1161z00_182))
						{	/* Ieee/string.scm 1222 */
							BgL_auxz00_8076 = BgL_opt1161z00_182;
						}
					else
						{
							obj_t BgL_auxz00_8079;

							BgL_auxz00_8079 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
								BGl_string3107z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1161z00_182);
							FAILURE(BgL_auxz00_8079, BFALSE, BFALSE);
						}
					BgL_s1z00_1749 = VECTOR_REF(BgL_auxz00_8076, 0L);
				}
				{
					obj_t BgL_auxz00_8084;

					if (VECTORP(BgL_opt1161z00_182))
						{	/* Ieee/string.scm 1222 */
							BgL_auxz00_8084 = BgL_opt1161z00_182;
						}
					else
						{
							obj_t BgL_auxz00_8087;

							BgL_auxz00_8087 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
								BGl_string3107z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1161z00_182);
							FAILURE(BgL_auxz00_8087, BFALSE, BFALSE);
						}
					BgL_s2z00_1750 = VECTOR_REF(BgL_auxz00_8084, 1L);
				}
				{	/* Ieee/string.scm 1222 */
					long BgL_aux1164z00_1752;

					{
						obj_t BgL_auxz00_8092;

						if (VECTORP(BgL_opt1161z00_182))
							{	/* Ieee/string.scm 1222 */
								BgL_auxz00_8092 = BgL_opt1161z00_182;
							}
						else
							{
								obj_t BgL_auxz00_8095;

								BgL_auxz00_8095 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
									BGl_string3107z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1161z00_182);
								FAILURE(BgL_auxz00_8095, BFALSE, BFALSE);
							}
						BgL_aux1164z00_1752 = VECTOR_LENGTH(BgL_auxz00_8092);
					}
					switch (BgL_aux1164z00_1752)
						{
						case 2L:

							{	/* Ieee/string.scm 1222 */

								{	/* Ieee/string.scm 1222 */
									int BgL_tmpz00_8100;

									{	/* Ieee/string.scm 1222 */
										obj_t BgL_auxz00_8108;
										obj_t BgL_auxz00_8101;

										if (STRINGP(BgL_s2z00_1750))
											{	/* Ieee/string.scm 1222 */
												BgL_auxz00_8108 = BgL_s2z00_1750;
											}
										else
											{
												obj_t BgL_auxz00_8111;

												BgL_auxz00_8111 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
													BGl_string3107z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s2z00_1750);
												FAILURE(BgL_auxz00_8111, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_s1z00_1749))
											{	/* Ieee/string.scm 1222 */
												BgL_auxz00_8101 = BgL_s1z00_1749;
											}
										else
											{
												obj_t BgL_auxz00_8104;

												BgL_auxz00_8104 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
													BGl_string3107z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s1z00_1749);
												FAILURE(BgL_auxz00_8104, BFALSE, BFALSE);
											}
										BgL_tmpz00_8100 =
											BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00
											(BgL_auxz00_8101, BgL_auxz00_8108, BFALSE, BFALSE, BFALSE,
											BFALSE);
									}
									return BINT(BgL_tmpz00_8100);
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1222 */
								obj_t BgL_start1z00_1757;

								{
									obj_t BgL_auxz00_8117;

									if (VECTORP(BgL_opt1161z00_182))
										{	/* Ieee/string.scm 1222 */
											BgL_auxz00_8117 = BgL_opt1161z00_182;
										}
									else
										{
											obj_t BgL_auxz00_8120;

											BgL_auxz00_8120 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
												BGl_string3107z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1161z00_182);
											FAILURE(BgL_auxz00_8120, BFALSE, BFALSE);
										}
									BgL_start1z00_1757 = VECTOR_REF(BgL_auxz00_8117, 2L);
								}
								{	/* Ieee/string.scm 1222 */

									{	/* Ieee/string.scm 1222 */
										int BgL_tmpz00_8125;

										{	/* Ieee/string.scm 1222 */
											obj_t BgL_auxz00_8133;
											obj_t BgL_auxz00_8126;

											if (STRINGP(BgL_s2z00_1750))
												{	/* Ieee/string.scm 1222 */
													BgL_auxz00_8133 = BgL_s2z00_1750;
												}
											else
												{
													obj_t BgL_auxz00_8136;

													BgL_auxz00_8136 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(49488L),
														BGl_string3107z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s2z00_1750);
													FAILURE(BgL_auxz00_8136, BFALSE, BFALSE);
												}
											if (STRINGP(BgL_s1z00_1749))
												{	/* Ieee/string.scm 1222 */
													BgL_auxz00_8126 = BgL_s1z00_1749;
												}
											else
												{
													obj_t BgL_auxz00_8129;

													BgL_auxz00_8129 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(49488L),
														BGl_string3107z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s1z00_1749);
													FAILURE(BgL_auxz00_8129, BFALSE, BFALSE);
												}
											BgL_tmpz00_8125 =
												BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00
												(BgL_auxz00_8126, BgL_auxz00_8133, BgL_start1z00_1757,
												BFALSE, BFALSE, BFALSE);
										}
										return BINT(BgL_tmpz00_8125);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 1222 */
								obj_t BgL_start1z00_1761;

								{
									obj_t BgL_auxz00_8142;

									if (VECTORP(BgL_opt1161z00_182))
										{	/* Ieee/string.scm 1222 */
											BgL_auxz00_8142 = BgL_opt1161z00_182;
										}
									else
										{
											obj_t BgL_auxz00_8145;

											BgL_auxz00_8145 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
												BGl_string3107z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1161z00_182);
											FAILURE(BgL_auxz00_8145, BFALSE, BFALSE);
										}
									BgL_start1z00_1761 = VECTOR_REF(BgL_auxz00_8142, 2L);
								}
								{	/* Ieee/string.scm 1222 */
									obj_t BgL_end1z00_1762;

									{
										obj_t BgL_auxz00_8150;

										if (VECTORP(BgL_opt1161z00_182))
											{	/* Ieee/string.scm 1222 */
												BgL_auxz00_8150 = BgL_opt1161z00_182;
											}
										else
											{
												obj_t BgL_auxz00_8153;

												BgL_auxz00_8153 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
													BGl_string3107z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1161z00_182);
												FAILURE(BgL_auxz00_8153, BFALSE, BFALSE);
											}
										BgL_end1z00_1762 = VECTOR_REF(BgL_auxz00_8150, 3L);
									}
									{	/* Ieee/string.scm 1222 */

										{	/* Ieee/string.scm 1222 */
											int BgL_tmpz00_8158;

											{	/* Ieee/string.scm 1222 */
												obj_t BgL_auxz00_8166;
												obj_t BgL_auxz00_8159;

												if (STRINGP(BgL_s2z00_1750))
													{	/* Ieee/string.scm 1222 */
														BgL_auxz00_8166 = BgL_s2z00_1750;
													}
												else
													{
														obj_t BgL_auxz00_8169;

														BgL_auxz00_8169 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(49488L),
															BGl_string3107z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s2z00_1750);
														FAILURE(BgL_auxz00_8169, BFALSE, BFALSE);
													}
												if (STRINGP(BgL_s1z00_1749))
													{	/* Ieee/string.scm 1222 */
														BgL_auxz00_8159 = BgL_s1z00_1749;
													}
												else
													{
														obj_t BgL_auxz00_8162;

														BgL_auxz00_8162 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(49488L),
															BGl_string3107z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s1z00_1749);
														FAILURE(BgL_auxz00_8162, BFALSE, BFALSE);
													}
												BgL_tmpz00_8158 =
													BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00
													(BgL_auxz00_8159, BgL_auxz00_8166, BgL_start1z00_1761,
													BgL_end1z00_1762, BFALSE, BFALSE);
											}
											return BINT(BgL_tmpz00_8158);
										}
									}
								}
							}
							break;
						case 5L:

							{	/* Ieee/string.scm 1222 */
								obj_t BgL_start1z00_1765;

								{
									obj_t BgL_auxz00_8175;

									if (VECTORP(BgL_opt1161z00_182))
										{	/* Ieee/string.scm 1222 */
											BgL_auxz00_8175 = BgL_opt1161z00_182;
										}
									else
										{
											obj_t BgL_auxz00_8178;

											BgL_auxz00_8178 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
												BGl_string3107z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1161z00_182);
											FAILURE(BgL_auxz00_8178, BFALSE, BFALSE);
										}
									BgL_start1z00_1765 = VECTOR_REF(BgL_auxz00_8175, 2L);
								}
								{	/* Ieee/string.scm 1222 */
									obj_t BgL_end1z00_1766;

									{
										obj_t BgL_auxz00_8183;

										if (VECTORP(BgL_opt1161z00_182))
											{	/* Ieee/string.scm 1222 */
												BgL_auxz00_8183 = BgL_opt1161z00_182;
											}
										else
											{
												obj_t BgL_auxz00_8186;

												BgL_auxz00_8186 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
													BGl_string3107z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1161z00_182);
												FAILURE(BgL_auxz00_8186, BFALSE, BFALSE);
											}
										BgL_end1z00_1766 = VECTOR_REF(BgL_auxz00_8183, 3L);
									}
									{	/* Ieee/string.scm 1222 */
										obj_t BgL_start2z00_1767;

										{
											obj_t BgL_auxz00_8191;

											if (VECTORP(BgL_opt1161z00_182))
												{	/* Ieee/string.scm 1222 */
													BgL_auxz00_8191 = BgL_opt1161z00_182;
												}
											else
												{
													obj_t BgL_auxz00_8194;

													BgL_auxz00_8194 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(49488L),
														BGl_string3107z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1161z00_182);
													FAILURE(BgL_auxz00_8194, BFALSE, BFALSE);
												}
											BgL_start2z00_1767 = VECTOR_REF(BgL_auxz00_8191, 4L);
										}
										{	/* Ieee/string.scm 1222 */

											{	/* Ieee/string.scm 1222 */
												int BgL_tmpz00_8199;

												{	/* Ieee/string.scm 1222 */
													obj_t BgL_auxz00_8207;
													obj_t BgL_auxz00_8200;

													if (STRINGP(BgL_s2z00_1750))
														{	/* Ieee/string.scm 1222 */
															BgL_auxz00_8207 = BgL_s2z00_1750;
														}
													else
														{
															obj_t BgL_auxz00_8210;

															BgL_auxz00_8210 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(49488L),
																BGl_string3107z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s2z00_1750);
															FAILURE(BgL_auxz00_8210, BFALSE, BFALSE);
														}
													if (STRINGP(BgL_s1z00_1749))
														{	/* Ieee/string.scm 1222 */
															BgL_auxz00_8200 = BgL_s1z00_1749;
														}
													else
														{
															obj_t BgL_auxz00_8203;

															BgL_auxz00_8203 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(49488L),
																BGl_string3107z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s1z00_1749);
															FAILURE(BgL_auxz00_8203, BFALSE, BFALSE);
														}
													BgL_tmpz00_8199 =
														BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00
														(BgL_auxz00_8200, BgL_auxz00_8207,
														BgL_start1z00_1765, BgL_end1z00_1766,
														BgL_start2z00_1767, BFALSE);
												}
												return BINT(BgL_tmpz00_8199);
											}
										}
									}
								}
							}
							break;
						case 6L:

							{	/* Ieee/string.scm 1222 */
								obj_t BgL_start1z00_1769;

								{
									obj_t BgL_auxz00_8216;

									if (VECTORP(BgL_opt1161z00_182))
										{	/* Ieee/string.scm 1222 */
											BgL_auxz00_8216 = BgL_opt1161z00_182;
										}
									else
										{
											obj_t BgL_auxz00_8219;

											BgL_auxz00_8219 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
												BGl_string3107z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1161z00_182);
											FAILURE(BgL_auxz00_8219, BFALSE, BFALSE);
										}
									BgL_start1z00_1769 = VECTOR_REF(BgL_auxz00_8216, 2L);
								}
								{	/* Ieee/string.scm 1222 */
									obj_t BgL_end1z00_1770;

									{
										obj_t BgL_auxz00_8224;

										if (VECTORP(BgL_opt1161z00_182))
											{	/* Ieee/string.scm 1222 */
												BgL_auxz00_8224 = BgL_opt1161z00_182;
											}
										else
											{
												obj_t BgL_auxz00_8227;

												BgL_auxz00_8227 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(49488L),
													BGl_string3107z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1161z00_182);
												FAILURE(BgL_auxz00_8227, BFALSE, BFALSE);
											}
										BgL_end1z00_1770 = VECTOR_REF(BgL_auxz00_8224, 3L);
									}
									{	/* Ieee/string.scm 1222 */
										obj_t BgL_start2z00_1771;

										{
											obj_t BgL_auxz00_8232;

											if (VECTORP(BgL_opt1161z00_182))
												{	/* Ieee/string.scm 1222 */
													BgL_auxz00_8232 = BgL_opt1161z00_182;
												}
											else
												{
													obj_t BgL_auxz00_8235;

													BgL_auxz00_8235 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(49488L),
														BGl_string3107z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1161z00_182);
													FAILURE(BgL_auxz00_8235, BFALSE, BFALSE);
												}
											BgL_start2z00_1771 = VECTOR_REF(BgL_auxz00_8232, 4L);
										}
										{	/* Ieee/string.scm 1222 */
											obj_t BgL_end2z00_1772;

											{
												obj_t BgL_auxz00_8240;

												if (VECTORP(BgL_opt1161z00_182))
													{	/* Ieee/string.scm 1222 */
														BgL_auxz00_8240 = BgL_opt1161z00_182;
													}
												else
													{
														obj_t BgL_auxz00_8243;

														BgL_auxz00_8243 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(49488L),
															BGl_string3107z00zz__r4_strings_6_7z00,
															BGl_string3030z00zz__r4_strings_6_7z00,
															BgL_opt1161z00_182);
														FAILURE(BgL_auxz00_8243, BFALSE, BFALSE);
													}
												BgL_end2z00_1772 = VECTOR_REF(BgL_auxz00_8240, 5L);
											}
											{	/* Ieee/string.scm 1222 */

												{	/* Ieee/string.scm 1222 */
													int BgL_tmpz00_8248;

													{	/* Ieee/string.scm 1222 */
														obj_t BgL_auxz00_8256;
														obj_t BgL_auxz00_8249;

														if (STRINGP(BgL_s2z00_1750))
															{	/* Ieee/string.scm 1222 */
																BgL_auxz00_8256 = BgL_s2z00_1750;
															}
														else
															{
																obj_t BgL_auxz00_8259;

																BgL_auxz00_8259 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(49488L),
																	BGl_string3107z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s2z00_1750);
																FAILURE(BgL_auxz00_8259, BFALSE, BFALSE);
															}
														if (STRINGP(BgL_s1z00_1749))
															{	/* Ieee/string.scm 1222 */
																BgL_auxz00_8249 = BgL_s1z00_1749;
															}
														else
															{
																obj_t BgL_auxz00_8252;

																BgL_auxz00_8252 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(49488L),
																	BGl_string3107z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s1z00_1749);
																FAILURE(BgL_auxz00_8252, BFALSE, BFALSE);
															}
														BgL_tmpz00_8248 =
															BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00
															(BgL_auxz00_8249, BgL_auxz00_8256,
															BgL_start1z00_1769, BgL_end1z00_1770,
															BgL_start2z00_1771, BgL_end2z00_1772);
													}
													return BINT(BgL_tmpz00_8248);
												}
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-prefix-length */
	BGL_EXPORTED_DEF int
		BGl_stringzd2prefixzd2lengthz00zz__r4_strings_6_7z00(obj_t BgL_s1z00_176,
		obj_t BgL_s2z00_177, obj_t BgL_start1z00_178, obj_t BgL_end1z00_179,
		obj_t BgL_start2z00_180, obj_t BgL_end2z00_181)
	{
		{	/* Ieee/string.scm 1222 */
			{	/* Ieee/string.scm 1224 */
				long BgL_l1z00_1773;

				BgL_l1z00_1773 = STRING_LENGTH(BgL_s1z00_176);
				{	/* Ieee/string.scm 1224 */
					long BgL_l2z00_1774;

					BgL_l2z00_1774 = STRING_LENGTH(BgL_s2z00_177);
					{	/* Ieee/string.scm 1225 */
						obj_t BgL_e1z00_1775;

						{	/* Ieee/string.scm 1226 */
							obj_t BgL_procz00_3630;

							BgL_procz00_3630 = BGl_symbol3108z00zz__r4_strings_6_7z00;
							if (CBOOL(BgL_end1z00_179))
								{	/* Ieee/string.scm 1210 */
									if (((long) CINT(BgL_end1z00_179) <= 0L))
										{	/* Ieee/string.scm 1212 */
											BgL_e1z00_1775 =
												BGl_errorz00zz__errorz00(BgL_procz00_3630,
												string_append_3(BGl_string3110z00zz__r4_strings_6_7z00,
													BGl_string3111z00zz__r4_strings_6_7z00,
													BGl_string3112z00zz__r4_strings_6_7z00),
												BgL_end1z00_179);
										}
									else
										{	/* Ieee/string.scm 1212 */
											if (((long) CINT(BgL_end1z00_179) > BgL_l1z00_1773))
												{	/* Ieee/string.scm 1214 */
													BgL_e1z00_1775 =
														BGl_errorz00zz__errorz00(BgL_procz00_3630,
														string_append_3
														(BGl_string3113z00zz__r4_strings_6_7z00,
															BGl_string3111z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_end1z00_179);
												}
											else
												{	/* Ieee/string.scm 1214 */
													BgL_e1z00_1775 = BgL_end1z00_179;
												}
										}
								}
							else
								{	/* Ieee/string.scm 1210 */
									BgL_e1z00_1775 = BINT(BgL_l1z00_1773);
								}
						}
						{	/* Ieee/string.scm 1226 */
							obj_t BgL_e2z00_1776;

							{	/* Ieee/string.scm 1227 */
								obj_t BgL_procz00_3638;

								BgL_procz00_3638 = BGl_symbol3108z00zz__r4_strings_6_7z00;
								if (CBOOL(BgL_end2z00_181))
									{	/* Ieee/string.scm 1210 */
										if (((long) CINT(BgL_end2z00_181) <= 0L))
											{	/* Ieee/string.scm 1212 */
												BgL_e2z00_1776 =
													BGl_errorz00zz__errorz00(BgL_procz00_3638,
													string_append_3
													(BGl_string3110z00zz__r4_strings_6_7z00,
														BGl_string3114z00zz__r4_strings_6_7z00,
														BGl_string3112z00zz__r4_strings_6_7z00),
													BgL_end2z00_181);
											}
										else
											{	/* Ieee/string.scm 1212 */
												if (((long) CINT(BgL_end2z00_181) > BgL_l2z00_1774))
													{	/* Ieee/string.scm 1214 */
														BgL_e2z00_1776 =
															BGl_errorz00zz__errorz00(BgL_procz00_3638,
															string_append_3
															(BGl_string3113z00zz__r4_strings_6_7z00,
																BGl_string3114z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_end2z00_181);
													}
												else
													{	/* Ieee/string.scm 1214 */
														BgL_e2z00_1776 = BgL_end2z00_181;
													}
											}
									}
								else
									{	/* Ieee/string.scm 1210 */
										BgL_e2z00_1776 = BINT(BgL_l2z00_1774);
									}
							}
							{	/* Ieee/string.scm 1227 */
								obj_t BgL_b1z00_1777;

								{	/* Ieee/string.scm 1228 */
									obj_t BgL_procz00_3646;

									BgL_procz00_3646 = BGl_symbol3108z00zz__r4_strings_6_7z00;
									if (CBOOL(BgL_start1z00_178))
										{	/* Ieee/string.scm 1196 */
											if (((long) CINT(BgL_start1z00_178) < 0L))
												{	/* Ieee/string.scm 1198 */
													BgL_b1z00_1777 =
														BGl_errorz00zz__errorz00(BgL_procz00_3646,
														string_append_3
														(BGl_string3115z00zz__r4_strings_6_7z00,
															BGl_string3116z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_start1z00_178);
												}
											else
												{	/* Ieee/string.scm 1198 */
													if (
														((long) CINT(BgL_start1z00_178) >= BgL_l1z00_1773))
														{	/* Ieee/string.scm 1200 */
															BgL_b1z00_1777 =
																BGl_errorz00zz__errorz00(BgL_procz00_3646,
																string_append_3
																(BGl_string3117z00zz__r4_strings_6_7z00,
																	BGl_string3116z00zz__r4_strings_6_7z00,
																	BGl_string3112z00zz__r4_strings_6_7z00),
																BgL_start1z00_178);
														}
													else
														{	/* Ieee/string.scm 1200 */
															BgL_b1z00_1777 = BgL_start1z00_178;
														}
												}
										}
									else
										{	/* Ieee/string.scm 1196 */
											BgL_b1z00_1777 = BINT(0L);
										}
								}
								{	/* Ieee/string.scm 1228 */
									obj_t BgL_b2z00_1778;

									{	/* Ieee/string.scm 1229 */
										obj_t BgL_procz00_3654;

										BgL_procz00_3654 = BGl_symbol3108z00zz__r4_strings_6_7z00;
										if (CBOOL(BgL_start2z00_180))
											{	/* Ieee/string.scm 1196 */
												if (((long) CINT(BgL_start2z00_180) < 0L))
													{	/* Ieee/string.scm 1198 */
														BgL_b2z00_1778 =
															BGl_errorz00zz__errorz00(BgL_procz00_3654,
															string_append_3
															(BGl_string3115z00zz__r4_strings_6_7z00,
																BGl_string3118z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_start2z00_180);
													}
												else
													{	/* Ieee/string.scm 1198 */
														if (
															((long) CINT(BgL_start2z00_180) >=
																BgL_l2z00_1774))
															{	/* Ieee/string.scm 1200 */
																BgL_b2z00_1778 =
																	BGl_errorz00zz__errorz00(BgL_procz00_3654,
																	string_append_3
																	(BGl_string3117z00zz__r4_strings_6_7z00,
																		BGl_string3118z00zz__r4_strings_6_7z00,
																		BGl_string3112z00zz__r4_strings_6_7z00),
																	BgL_start2z00_180);
															}
														else
															{	/* Ieee/string.scm 1200 */
																BgL_b2z00_1778 = BgL_start2z00_180;
															}
													}
											}
										else
											{	/* Ieee/string.scm 1196 */
												BgL_b2z00_1778 = BINT(0L);
											}
									}
									{	/* Ieee/string.scm 1229 */

										{
											obj_t BgL_i1z00_1780;
											obj_t BgL_i2z00_1781;

											{	/* Ieee/string.scm 1230 */
												long BgL_tmpz00_8320;

												BgL_i1z00_1780 = BgL_b1z00_1777;
												BgL_i2z00_1781 = BgL_b2z00_1778;
											BgL_zc3z04anonymousza31755ze3z87_1782:
												{	/* Ieee/string.scm 1233 */
													bool_t BgL_test3746z00_8321;

													if (
														((long) CINT(BgL_i1z00_1780) ==
															(long) CINT(BgL_e1z00_1775)))
														{	/* Ieee/string.scm 1233 */
															BgL_test3746z00_8321 = ((bool_t) 1);
														}
													else
														{	/* Ieee/string.scm 1233 */
															BgL_test3746z00_8321 =
																(
																(long) CINT(BgL_i2z00_1781) ==
																(long) CINT(BgL_e2z00_1776));
														}
													if (BgL_test3746z00_8321)
														{	/* Ieee/string.scm 1233 */
															BgL_tmpz00_8320 =
																(
																(long) CINT(BgL_i1z00_1780) -
																(long) CINT(BgL_b1z00_1777));
														}
													else
														{	/* Ieee/string.scm 1233 */
															if (
																(STRING_REF(BgL_s1z00_176,
																		(long) CINT(BgL_i1z00_1780)) ==
																	STRING_REF(BgL_s2z00_177,
																		(long) CINT(BgL_i2z00_1781))))
																{
																	obj_t BgL_i2z00_8341;
																	obj_t BgL_i1z00_8338;

																	BgL_i1z00_8338 =
																		ADDFX(BgL_i1z00_1780, BINT(1L));
																	BgL_i2z00_8341 =
																		ADDFX(BgL_i2z00_1781, BINT(1L));
																	BgL_i2z00_1781 = BgL_i2z00_8341;
																	BgL_i1z00_1780 = BgL_i1z00_8338;
																	goto BgL_zc3z04anonymousza31755ze3z87_1782;
																}
															else
																{	/* Ieee/string.scm 1235 */
																	BgL_tmpz00_8320 =
																		(
																		(long) CINT(BgL_i1z00_1780) -
																		(long) CINT(BgL_b1z00_1777));
												}}}
												return (int) (BgL_tmpz00_8320);
		}}}}}}}}}}

	}



/* _string-prefix-length-ci */
	obj_t BGl__stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t
		BgL_env1166z00_191, obj_t BgL_opt1165z00_190)
	{
		{	/* Ieee/string.scm 1243 */
			{	/* Ieee/string.scm 1243 */
				obj_t BgL_s1z00_1794;
				obj_t BgL_s2z00_1795;

				{
					obj_t BgL_auxz00_8348;

					if (VECTORP(BgL_opt1165z00_190))
						{	/* Ieee/string.scm 1243 */
							BgL_auxz00_8348 = BgL_opt1165z00_190;
						}
					else
						{
							obj_t BgL_auxz00_8351;

							BgL_auxz00_8351 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
								BGl_string3119z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1165z00_190);
							FAILURE(BgL_auxz00_8351, BFALSE, BFALSE);
						}
					BgL_s1z00_1794 = VECTOR_REF(BgL_auxz00_8348, 0L);
				}
				{
					obj_t BgL_auxz00_8356;

					if (VECTORP(BgL_opt1165z00_190))
						{	/* Ieee/string.scm 1243 */
							BgL_auxz00_8356 = BgL_opt1165z00_190;
						}
					else
						{
							obj_t BgL_auxz00_8359;

							BgL_auxz00_8359 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
								BGl_string3119z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1165z00_190);
							FAILURE(BgL_auxz00_8359, BFALSE, BFALSE);
						}
					BgL_s2z00_1795 = VECTOR_REF(BgL_auxz00_8356, 1L);
				}
				{	/* Ieee/string.scm 1243 */
					long BgL_aux1168z00_1797;

					{
						obj_t BgL_auxz00_8364;

						if (VECTORP(BgL_opt1165z00_190))
							{	/* Ieee/string.scm 1243 */
								BgL_auxz00_8364 = BgL_opt1165z00_190;
							}
						else
							{
								obj_t BgL_auxz00_8367;

								BgL_auxz00_8367 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
									BGl_string3119z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1165z00_190);
								FAILURE(BgL_auxz00_8367, BFALSE, BFALSE);
							}
						BgL_aux1168z00_1797 = VECTOR_LENGTH(BgL_auxz00_8364);
					}
					switch (BgL_aux1168z00_1797)
						{
						case 2L:

							{	/* Ieee/string.scm 1243 */

								{	/* Ieee/string.scm 1243 */
									int BgL_tmpz00_8372;

									{	/* Ieee/string.scm 1243 */
										obj_t BgL_auxz00_8380;
										obj_t BgL_auxz00_8373;

										if (STRINGP(BgL_s2z00_1795))
											{	/* Ieee/string.scm 1243 */
												BgL_auxz00_8380 = BgL_s2z00_1795;
											}
										else
											{
												obj_t BgL_auxz00_8383;

												BgL_auxz00_8383 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
													BGl_string3119z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s2z00_1795);
												FAILURE(BgL_auxz00_8383, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_s1z00_1794))
											{	/* Ieee/string.scm 1243 */
												BgL_auxz00_8373 = BgL_s1z00_1794;
											}
										else
											{
												obj_t BgL_auxz00_8376;

												BgL_auxz00_8376 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
													BGl_string3119z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s1z00_1794);
												FAILURE(BgL_auxz00_8376, BFALSE, BFALSE);
											}
										BgL_tmpz00_8372 =
											BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00
											(BgL_auxz00_8373, BgL_auxz00_8380, BFALSE, BFALSE, BFALSE,
											BFALSE);
									}
									return BINT(BgL_tmpz00_8372);
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1243 */
								obj_t BgL_start1z00_1802;

								{
									obj_t BgL_auxz00_8389;

									if (VECTORP(BgL_opt1165z00_190))
										{	/* Ieee/string.scm 1243 */
											BgL_auxz00_8389 = BgL_opt1165z00_190;
										}
									else
										{
											obj_t BgL_auxz00_8392;

											BgL_auxz00_8392 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
												BGl_string3119z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1165z00_190);
											FAILURE(BgL_auxz00_8392, BFALSE, BFALSE);
										}
									BgL_start1z00_1802 = VECTOR_REF(BgL_auxz00_8389, 2L);
								}
								{	/* Ieee/string.scm 1243 */

									{	/* Ieee/string.scm 1243 */
										int BgL_tmpz00_8397;

										{	/* Ieee/string.scm 1243 */
											obj_t BgL_auxz00_8405;
											obj_t BgL_auxz00_8398;

											if (STRINGP(BgL_s2z00_1795))
												{	/* Ieee/string.scm 1243 */
													BgL_auxz00_8405 = BgL_s2z00_1795;
												}
											else
												{
													obj_t BgL_auxz00_8408;

													BgL_auxz00_8408 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(50369L),
														BGl_string3119z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s2z00_1795);
													FAILURE(BgL_auxz00_8408, BFALSE, BFALSE);
												}
											if (STRINGP(BgL_s1z00_1794))
												{	/* Ieee/string.scm 1243 */
													BgL_auxz00_8398 = BgL_s1z00_1794;
												}
											else
												{
													obj_t BgL_auxz00_8401;

													BgL_auxz00_8401 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(50369L),
														BGl_string3119z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s1z00_1794);
													FAILURE(BgL_auxz00_8401, BFALSE, BFALSE);
												}
											BgL_tmpz00_8397 =
												BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00
												(BgL_auxz00_8398, BgL_auxz00_8405, BgL_start1z00_1802,
												BFALSE, BFALSE, BFALSE);
										}
										return BINT(BgL_tmpz00_8397);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 1243 */
								obj_t BgL_start1z00_1806;

								{
									obj_t BgL_auxz00_8414;

									if (VECTORP(BgL_opt1165z00_190))
										{	/* Ieee/string.scm 1243 */
											BgL_auxz00_8414 = BgL_opt1165z00_190;
										}
									else
										{
											obj_t BgL_auxz00_8417;

											BgL_auxz00_8417 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
												BGl_string3119z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1165z00_190);
											FAILURE(BgL_auxz00_8417, BFALSE, BFALSE);
										}
									BgL_start1z00_1806 = VECTOR_REF(BgL_auxz00_8414, 2L);
								}
								{	/* Ieee/string.scm 1243 */
									obj_t BgL_end1z00_1807;

									{
										obj_t BgL_auxz00_8422;

										if (VECTORP(BgL_opt1165z00_190))
											{	/* Ieee/string.scm 1243 */
												BgL_auxz00_8422 = BgL_opt1165z00_190;
											}
										else
											{
												obj_t BgL_auxz00_8425;

												BgL_auxz00_8425 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
													BGl_string3119z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1165z00_190);
												FAILURE(BgL_auxz00_8425, BFALSE, BFALSE);
											}
										BgL_end1z00_1807 = VECTOR_REF(BgL_auxz00_8422, 3L);
									}
									{	/* Ieee/string.scm 1243 */

										{	/* Ieee/string.scm 1243 */
											int BgL_tmpz00_8430;

											{	/* Ieee/string.scm 1243 */
												obj_t BgL_auxz00_8438;
												obj_t BgL_auxz00_8431;

												if (STRINGP(BgL_s2z00_1795))
													{	/* Ieee/string.scm 1243 */
														BgL_auxz00_8438 = BgL_s2z00_1795;
													}
												else
													{
														obj_t BgL_auxz00_8441;

														BgL_auxz00_8441 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(50369L),
															BGl_string3119z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s2z00_1795);
														FAILURE(BgL_auxz00_8441, BFALSE, BFALSE);
													}
												if (STRINGP(BgL_s1z00_1794))
													{	/* Ieee/string.scm 1243 */
														BgL_auxz00_8431 = BgL_s1z00_1794;
													}
												else
													{
														obj_t BgL_auxz00_8434;

														BgL_auxz00_8434 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(50369L),
															BGl_string3119z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s1z00_1794);
														FAILURE(BgL_auxz00_8434, BFALSE, BFALSE);
													}
												BgL_tmpz00_8430 =
													BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00
													(BgL_auxz00_8431, BgL_auxz00_8438, BgL_start1z00_1806,
													BgL_end1z00_1807, BFALSE, BFALSE);
											}
											return BINT(BgL_tmpz00_8430);
										}
									}
								}
							}
							break;
						case 5L:

							{	/* Ieee/string.scm 1243 */
								obj_t BgL_start1z00_1810;

								{
									obj_t BgL_auxz00_8447;

									if (VECTORP(BgL_opt1165z00_190))
										{	/* Ieee/string.scm 1243 */
											BgL_auxz00_8447 = BgL_opt1165z00_190;
										}
									else
										{
											obj_t BgL_auxz00_8450;

											BgL_auxz00_8450 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
												BGl_string3119z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1165z00_190);
											FAILURE(BgL_auxz00_8450, BFALSE, BFALSE);
										}
									BgL_start1z00_1810 = VECTOR_REF(BgL_auxz00_8447, 2L);
								}
								{	/* Ieee/string.scm 1243 */
									obj_t BgL_end1z00_1811;

									{
										obj_t BgL_auxz00_8455;

										if (VECTORP(BgL_opt1165z00_190))
											{	/* Ieee/string.scm 1243 */
												BgL_auxz00_8455 = BgL_opt1165z00_190;
											}
										else
											{
												obj_t BgL_auxz00_8458;

												BgL_auxz00_8458 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
													BGl_string3119z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1165z00_190);
												FAILURE(BgL_auxz00_8458, BFALSE, BFALSE);
											}
										BgL_end1z00_1811 = VECTOR_REF(BgL_auxz00_8455, 3L);
									}
									{	/* Ieee/string.scm 1243 */
										obj_t BgL_start2z00_1812;

										{
											obj_t BgL_auxz00_8463;

											if (VECTORP(BgL_opt1165z00_190))
												{	/* Ieee/string.scm 1243 */
													BgL_auxz00_8463 = BgL_opt1165z00_190;
												}
											else
												{
													obj_t BgL_auxz00_8466;

													BgL_auxz00_8466 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(50369L),
														BGl_string3119z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1165z00_190);
													FAILURE(BgL_auxz00_8466, BFALSE, BFALSE);
												}
											BgL_start2z00_1812 = VECTOR_REF(BgL_auxz00_8463, 4L);
										}
										{	/* Ieee/string.scm 1243 */

											{	/* Ieee/string.scm 1243 */
												int BgL_tmpz00_8471;

												{	/* Ieee/string.scm 1243 */
													obj_t BgL_auxz00_8479;
													obj_t BgL_auxz00_8472;

													if (STRINGP(BgL_s2z00_1795))
														{	/* Ieee/string.scm 1243 */
															BgL_auxz00_8479 = BgL_s2z00_1795;
														}
													else
														{
															obj_t BgL_auxz00_8482;

															BgL_auxz00_8482 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(50369L),
																BGl_string3119z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s2z00_1795);
															FAILURE(BgL_auxz00_8482, BFALSE, BFALSE);
														}
													if (STRINGP(BgL_s1z00_1794))
														{	/* Ieee/string.scm 1243 */
															BgL_auxz00_8472 = BgL_s1z00_1794;
														}
													else
														{
															obj_t BgL_auxz00_8475;

															BgL_auxz00_8475 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(50369L),
																BGl_string3119z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s1z00_1794);
															FAILURE(BgL_auxz00_8475, BFALSE, BFALSE);
														}
													BgL_tmpz00_8471 =
														BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00
														(BgL_auxz00_8472, BgL_auxz00_8479,
														BgL_start1z00_1810, BgL_end1z00_1811,
														BgL_start2z00_1812, BFALSE);
												}
												return BINT(BgL_tmpz00_8471);
											}
										}
									}
								}
							}
							break;
						case 6L:

							{	/* Ieee/string.scm 1243 */
								obj_t BgL_start1z00_1814;

								{
									obj_t BgL_auxz00_8488;

									if (VECTORP(BgL_opt1165z00_190))
										{	/* Ieee/string.scm 1243 */
											BgL_auxz00_8488 = BgL_opt1165z00_190;
										}
									else
										{
											obj_t BgL_auxz00_8491;

											BgL_auxz00_8491 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
												BGl_string3119z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1165z00_190);
											FAILURE(BgL_auxz00_8491, BFALSE, BFALSE);
										}
									BgL_start1z00_1814 = VECTOR_REF(BgL_auxz00_8488, 2L);
								}
								{	/* Ieee/string.scm 1243 */
									obj_t BgL_end1z00_1815;

									{
										obj_t BgL_auxz00_8496;

										if (VECTORP(BgL_opt1165z00_190))
											{	/* Ieee/string.scm 1243 */
												BgL_auxz00_8496 = BgL_opt1165z00_190;
											}
										else
											{
												obj_t BgL_auxz00_8499;

												BgL_auxz00_8499 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(50369L),
													BGl_string3119z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1165z00_190);
												FAILURE(BgL_auxz00_8499, BFALSE, BFALSE);
											}
										BgL_end1z00_1815 = VECTOR_REF(BgL_auxz00_8496, 3L);
									}
									{	/* Ieee/string.scm 1243 */
										obj_t BgL_start2z00_1816;

										{
											obj_t BgL_auxz00_8504;

											if (VECTORP(BgL_opt1165z00_190))
												{	/* Ieee/string.scm 1243 */
													BgL_auxz00_8504 = BgL_opt1165z00_190;
												}
											else
												{
													obj_t BgL_auxz00_8507;

													BgL_auxz00_8507 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(50369L),
														BGl_string3119z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1165z00_190);
													FAILURE(BgL_auxz00_8507, BFALSE, BFALSE);
												}
											BgL_start2z00_1816 = VECTOR_REF(BgL_auxz00_8504, 4L);
										}
										{	/* Ieee/string.scm 1243 */
											obj_t BgL_end2z00_1817;

											{
												obj_t BgL_auxz00_8512;

												if (VECTORP(BgL_opt1165z00_190))
													{	/* Ieee/string.scm 1243 */
														BgL_auxz00_8512 = BgL_opt1165z00_190;
													}
												else
													{
														obj_t BgL_auxz00_8515;

														BgL_auxz00_8515 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(50369L),
															BGl_string3119z00zz__r4_strings_6_7z00,
															BGl_string3030z00zz__r4_strings_6_7z00,
															BgL_opt1165z00_190);
														FAILURE(BgL_auxz00_8515, BFALSE, BFALSE);
													}
												BgL_end2z00_1817 = VECTOR_REF(BgL_auxz00_8512, 5L);
											}
											{	/* Ieee/string.scm 1243 */

												{	/* Ieee/string.scm 1243 */
													int BgL_tmpz00_8520;

													{	/* Ieee/string.scm 1243 */
														obj_t BgL_auxz00_8528;
														obj_t BgL_auxz00_8521;

														if (STRINGP(BgL_s2z00_1795))
															{	/* Ieee/string.scm 1243 */
																BgL_auxz00_8528 = BgL_s2z00_1795;
															}
														else
															{
																obj_t BgL_auxz00_8531;

																BgL_auxz00_8531 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(50369L),
																	BGl_string3119z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s2z00_1795);
																FAILURE(BgL_auxz00_8531, BFALSE, BFALSE);
															}
														if (STRINGP(BgL_s1z00_1794))
															{	/* Ieee/string.scm 1243 */
																BgL_auxz00_8521 = BgL_s1z00_1794;
															}
														else
															{
																obj_t BgL_auxz00_8524;

																BgL_auxz00_8524 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(50369L),
																	BGl_string3119z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s1z00_1794);
																FAILURE(BgL_auxz00_8524, BFALSE, BFALSE);
															}
														BgL_tmpz00_8520 =
															BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00
															(BgL_auxz00_8521, BgL_auxz00_8528,
															BgL_start1z00_1814, BgL_end1z00_1815,
															BgL_start2z00_1816, BgL_end2z00_1817);
													}
													return BINT(BgL_tmpz00_8520);
												}
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-prefix-length-ci */
	BGL_EXPORTED_DEF int
		BGl_stringzd2prefixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t
		BgL_s1z00_184, obj_t BgL_s2z00_185, obj_t BgL_start1z00_186,
		obj_t BgL_end1z00_187, obj_t BgL_start2z00_188, obj_t BgL_end2z00_189)
	{
		{	/* Ieee/string.scm 1243 */
			{	/* Ieee/string.scm 1245 */
				long BgL_l1z00_1818;

				BgL_l1z00_1818 = STRING_LENGTH(BgL_s1z00_184);
				{	/* Ieee/string.scm 1245 */
					long BgL_l2z00_1819;

					BgL_l2z00_1819 = STRING_LENGTH(BgL_s2z00_185);
					{	/* Ieee/string.scm 1246 */
						obj_t BgL_e1z00_1820;

						{	/* Ieee/string.scm 1247 */
							obj_t BgL_procz00_3680;

							BgL_procz00_3680 = BGl_symbol3120z00zz__r4_strings_6_7z00;
							if (CBOOL(BgL_end1z00_187))
								{	/* Ieee/string.scm 1210 */
									if (((long) CINT(BgL_end1z00_187) <= 0L))
										{	/* Ieee/string.scm 1212 */
											BgL_e1z00_1820 =
												BGl_errorz00zz__errorz00(BgL_procz00_3680,
												string_append_3(BGl_string3110z00zz__r4_strings_6_7z00,
													BGl_string3111z00zz__r4_strings_6_7z00,
													BGl_string3112z00zz__r4_strings_6_7z00),
												BgL_end1z00_187);
										}
									else
										{	/* Ieee/string.scm 1212 */
											if (((long) CINT(BgL_end1z00_187) > BgL_l1z00_1818))
												{	/* Ieee/string.scm 1214 */
													BgL_e1z00_1820 =
														BGl_errorz00zz__errorz00(BgL_procz00_3680,
														string_append_3
														(BGl_string3113z00zz__r4_strings_6_7z00,
															BGl_string3111z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_end1z00_187);
												}
											else
												{	/* Ieee/string.scm 1214 */
													BgL_e1z00_1820 = BgL_end1z00_187;
												}
										}
								}
							else
								{	/* Ieee/string.scm 1210 */
									BgL_e1z00_1820 = BINT(BgL_l1z00_1818);
								}
						}
						{	/* Ieee/string.scm 1247 */
							obj_t BgL_e2z00_1821;

							{	/* Ieee/string.scm 1248 */
								obj_t BgL_procz00_3688;

								BgL_procz00_3688 = BGl_symbol3120z00zz__r4_strings_6_7z00;
								if (CBOOL(BgL_end2z00_189))
									{	/* Ieee/string.scm 1210 */
										if (((long) CINT(BgL_end2z00_189) <= 0L))
											{	/* Ieee/string.scm 1212 */
												BgL_e2z00_1821 =
													BGl_errorz00zz__errorz00(BgL_procz00_3688,
													string_append_3
													(BGl_string3110z00zz__r4_strings_6_7z00,
														BGl_string3114z00zz__r4_strings_6_7z00,
														BGl_string3112z00zz__r4_strings_6_7z00),
													BgL_end2z00_189);
											}
										else
											{	/* Ieee/string.scm 1212 */
												if (((long) CINT(BgL_end2z00_189) > BgL_l2z00_1819))
													{	/* Ieee/string.scm 1214 */
														BgL_e2z00_1821 =
															BGl_errorz00zz__errorz00(BgL_procz00_3688,
															string_append_3
															(BGl_string3113z00zz__r4_strings_6_7z00,
																BGl_string3114z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_end2z00_189);
													}
												else
													{	/* Ieee/string.scm 1214 */
														BgL_e2z00_1821 = BgL_end2z00_189;
													}
											}
									}
								else
									{	/* Ieee/string.scm 1210 */
										BgL_e2z00_1821 = BINT(BgL_l2z00_1819);
									}
							}
							{	/* Ieee/string.scm 1248 */
								obj_t BgL_b1z00_1822;

								{	/* Ieee/string.scm 1249 */
									obj_t BgL_procz00_3696;

									BgL_procz00_3696 = BGl_symbol3120z00zz__r4_strings_6_7z00;
									if (CBOOL(BgL_start1z00_186))
										{	/* Ieee/string.scm 1196 */
											if (((long) CINT(BgL_start1z00_186) < 0L))
												{	/* Ieee/string.scm 1198 */
													BgL_b1z00_1822 =
														BGl_errorz00zz__errorz00(BgL_procz00_3696,
														string_append_3
														(BGl_string3115z00zz__r4_strings_6_7z00,
															BGl_string3116z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_start1z00_186);
												}
											else
												{	/* Ieee/string.scm 1198 */
													if (
														((long) CINT(BgL_start1z00_186) >= BgL_l1z00_1818))
														{	/* Ieee/string.scm 1200 */
															BgL_b1z00_1822 =
																BGl_errorz00zz__errorz00(BgL_procz00_3696,
																string_append_3
																(BGl_string3117z00zz__r4_strings_6_7z00,
																	BGl_string3116z00zz__r4_strings_6_7z00,
																	BGl_string3112z00zz__r4_strings_6_7z00),
																BgL_start1z00_186);
														}
													else
														{	/* Ieee/string.scm 1200 */
															BgL_b1z00_1822 = BgL_start1z00_186;
														}
												}
										}
									else
										{	/* Ieee/string.scm 1196 */
											BgL_b1z00_1822 = BINT(0L);
										}
								}
								{	/* Ieee/string.scm 1249 */
									obj_t BgL_b2z00_1823;

									{	/* Ieee/string.scm 1250 */
										obj_t BgL_procz00_3704;

										BgL_procz00_3704 = BGl_symbol3120z00zz__r4_strings_6_7z00;
										if (CBOOL(BgL_start2z00_188))
											{	/* Ieee/string.scm 1196 */
												if (((long) CINT(BgL_start2z00_188) < 0L))
													{	/* Ieee/string.scm 1198 */
														BgL_b2z00_1823 =
															BGl_errorz00zz__errorz00(BgL_procz00_3704,
															string_append_3
															(BGl_string3115z00zz__r4_strings_6_7z00,
																BGl_string3118z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_start2z00_188);
													}
												else
													{	/* Ieee/string.scm 1198 */
														if (
															((long) CINT(BgL_start2z00_188) >=
																BgL_l2z00_1819))
															{	/* Ieee/string.scm 1200 */
																BgL_b2z00_1823 =
																	BGl_errorz00zz__errorz00(BgL_procz00_3704,
																	string_append_3
																	(BGl_string3117z00zz__r4_strings_6_7z00,
																		BGl_string3118z00zz__r4_strings_6_7z00,
																		BGl_string3112z00zz__r4_strings_6_7z00),
																	BgL_start2z00_188);
															}
														else
															{	/* Ieee/string.scm 1200 */
																BgL_b2z00_1823 = BgL_start2z00_188;
															}
													}
											}
										else
											{	/* Ieee/string.scm 1196 */
												BgL_b2z00_1823 = BINT(0L);
											}
									}
									{	/* Ieee/string.scm 1250 */

										{
											obj_t BgL_i1z00_1825;
											obj_t BgL_i2z00_1826;

											{	/* Ieee/string.scm 1251 */
												long BgL_tmpz00_8592;

												BgL_i1z00_1825 = BgL_b1z00_1822;
												BgL_i2z00_1826 = BgL_b2z00_1823;
											BgL_zc3z04anonymousza31765ze3z87_1827:
												{	/* Ieee/string.scm 1254 */
													bool_t BgL_test3784z00_8593;

													if (
														((long) CINT(BgL_i1z00_1825) ==
															(long) CINT(BgL_e1z00_1820)))
														{	/* Ieee/string.scm 1254 */
															BgL_test3784z00_8593 = ((bool_t) 1);
														}
													else
														{	/* Ieee/string.scm 1254 */
															BgL_test3784z00_8593 =
																(
																(long) CINT(BgL_i2z00_1826) ==
																(long) CINT(BgL_e2z00_1821));
														}
													if (BgL_test3784z00_8593)
														{	/* Ieee/string.scm 1254 */
															BgL_tmpz00_8592 =
																(
																(long) CINT(BgL_i1z00_1825) -
																(long) CINT(BgL_b1z00_1822));
														}
													else
														{	/* Ieee/string.scm 1254 */
															if (
																(toupper(STRING_REF(BgL_s1z00_184,
																			(long) CINT(BgL_i1z00_1825))) ==
																	toupper(STRING_REF(BgL_s2z00_185,
																			(long) CINT(BgL_i2z00_1826)))))
																{
																	obj_t BgL_i2z00_8615;
																	obj_t BgL_i1z00_8612;

																	BgL_i1z00_8612 =
																		ADDFX(BgL_i1z00_1825, BINT(1L));
																	BgL_i2z00_8615 =
																		ADDFX(BgL_i2z00_1826, BINT(1L));
																	BgL_i2z00_1826 = BgL_i2z00_8615;
																	BgL_i1z00_1825 = BgL_i1z00_8612;
																	goto BgL_zc3z04anonymousza31765ze3z87_1827;
																}
															else
																{	/* Ieee/string.scm 1256 */
																	BgL_tmpz00_8592 =
																		(
																		(long) CINT(BgL_i1z00_1825) -
																		(long) CINT(BgL_b1z00_1822));
												}}}
												return (int) (BgL_tmpz00_8592);
		}}}}}}}}}}

	}



/* _string-suffix-length */
	obj_t BGl__stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(obj_t
		BgL_env1170z00_199, obj_t BgL_opt1169z00_198)
	{
		{	/* Ieee/string.scm 1264 */
			{	/* Ieee/string.scm 1264 */
				obj_t BgL_s1z00_1839;
				obj_t BgL_s2z00_1840;

				{
					obj_t BgL_auxz00_8622;

					if (VECTORP(BgL_opt1169z00_198))
						{	/* Ieee/string.scm 1264 */
							BgL_auxz00_8622 = BgL_opt1169z00_198;
						}
					else
						{
							obj_t BgL_auxz00_8625;

							BgL_auxz00_8625 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
								BGl_string3122z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1169z00_198);
							FAILURE(BgL_auxz00_8625, BFALSE, BFALSE);
						}
					BgL_s1z00_1839 = VECTOR_REF(BgL_auxz00_8622, 0L);
				}
				{
					obj_t BgL_auxz00_8630;

					if (VECTORP(BgL_opt1169z00_198))
						{	/* Ieee/string.scm 1264 */
							BgL_auxz00_8630 = BgL_opt1169z00_198;
						}
					else
						{
							obj_t BgL_auxz00_8633;

							BgL_auxz00_8633 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
								BGl_string3122z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1169z00_198);
							FAILURE(BgL_auxz00_8633, BFALSE, BFALSE);
						}
					BgL_s2z00_1840 = VECTOR_REF(BgL_auxz00_8630, 1L);
				}
				{	/* Ieee/string.scm 1264 */
					long BgL_aux1172z00_1842;

					{
						obj_t BgL_auxz00_8638;

						if (VECTORP(BgL_opt1169z00_198))
							{	/* Ieee/string.scm 1264 */
								BgL_auxz00_8638 = BgL_opt1169z00_198;
							}
						else
							{
								obj_t BgL_auxz00_8641;

								BgL_auxz00_8641 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
									BGl_string3122z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1169z00_198);
								FAILURE(BgL_auxz00_8641, BFALSE, BFALSE);
							}
						BgL_aux1172z00_1842 = VECTOR_LENGTH(BgL_auxz00_8638);
					}
					switch (BgL_aux1172z00_1842)
						{
						case 2L:

							{	/* Ieee/string.scm 1264 */

								{	/* Ieee/string.scm 1264 */
									int BgL_tmpz00_8646;

									{	/* Ieee/string.scm 1264 */
										obj_t BgL_auxz00_8654;
										obj_t BgL_auxz00_8647;

										if (STRINGP(BgL_s2z00_1840))
											{	/* Ieee/string.scm 1264 */
												BgL_auxz00_8654 = BgL_s2z00_1840;
											}
										else
											{
												obj_t BgL_auxz00_8657;

												BgL_auxz00_8657 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
													BGl_string3122z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s2z00_1840);
												FAILURE(BgL_auxz00_8657, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_s1z00_1839))
											{	/* Ieee/string.scm 1264 */
												BgL_auxz00_8647 = BgL_s1z00_1839;
											}
										else
											{
												obj_t BgL_auxz00_8650;

												BgL_auxz00_8650 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
													BGl_string3122z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s1z00_1839);
												FAILURE(BgL_auxz00_8650, BFALSE, BFALSE);
											}
										BgL_tmpz00_8646 =
											BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00
											(BgL_auxz00_8647, BgL_auxz00_8654, BFALSE, BFALSE, BFALSE,
											BFALSE);
									}
									return BINT(BgL_tmpz00_8646);
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1264 */
								obj_t BgL_start1z00_1847;

								{
									obj_t BgL_auxz00_8663;

									if (VECTORP(BgL_opt1169z00_198))
										{	/* Ieee/string.scm 1264 */
											BgL_auxz00_8663 = BgL_opt1169z00_198;
										}
									else
										{
											obj_t BgL_auxz00_8666;

											BgL_auxz00_8666 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
												BGl_string3122z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1169z00_198);
											FAILURE(BgL_auxz00_8666, BFALSE, BFALSE);
										}
									BgL_start1z00_1847 = VECTOR_REF(BgL_auxz00_8663, 2L);
								}
								{	/* Ieee/string.scm 1264 */

									{	/* Ieee/string.scm 1264 */
										int BgL_tmpz00_8671;

										{	/* Ieee/string.scm 1264 */
											obj_t BgL_auxz00_8679;
											obj_t BgL_auxz00_8672;

											if (STRINGP(BgL_s2z00_1840))
												{	/* Ieee/string.scm 1264 */
													BgL_auxz00_8679 = BgL_s2z00_1840;
												}
											else
												{
													obj_t BgL_auxz00_8682;

													BgL_auxz00_8682 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(51271L),
														BGl_string3122z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s2z00_1840);
													FAILURE(BgL_auxz00_8682, BFALSE, BFALSE);
												}
											if (STRINGP(BgL_s1z00_1839))
												{	/* Ieee/string.scm 1264 */
													BgL_auxz00_8672 = BgL_s1z00_1839;
												}
											else
												{
													obj_t BgL_auxz00_8675;

													BgL_auxz00_8675 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(51271L),
														BGl_string3122z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s1z00_1839);
													FAILURE(BgL_auxz00_8675, BFALSE, BFALSE);
												}
											BgL_tmpz00_8671 =
												BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00
												(BgL_auxz00_8672, BgL_auxz00_8679, BgL_start1z00_1847,
												BFALSE, BFALSE, BFALSE);
										}
										return BINT(BgL_tmpz00_8671);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 1264 */
								obj_t BgL_start1z00_1851;

								{
									obj_t BgL_auxz00_8688;

									if (VECTORP(BgL_opt1169z00_198))
										{	/* Ieee/string.scm 1264 */
											BgL_auxz00_8688 = BgL_opt1169z00_198;
										}
									else
										{
											obj_t BgL_auxz00_8691;

											BgL_auxz00_8691 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
												BGl_string3122z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1169z00_198);
											FAILURE(BgL_auxz00_8691, BFALSE, BFALSE);
										}
									BgL_start1z00_1851 = VECTOR_REF(BgL_auxz00_8688, 2L);
								}
								{	/* Ieee/string.scm 1264 */
									obj_t BgL_end1z00_1852;

									{
										obj_t BgL_auxz00_8696;

										if (VECTORP(BgL_opt1169z00_198))
											{	/* Ieee/string.scm 1264 */
												BgL_auxz00_8696 = BgL_opt1169z00_198;
											}
										else
											{
												obj_t BgL_auxz00_8699;

												BgL_auxz00_8699 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
													BGl_string3122z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1169z00_198);
												FAILURE(BgL_auxz00_8699, BFALSE, BFALSE);
											}
										BgL_end1z00_1852 = VECTOR_REF(BgL_auxz00_8696, 3L);
									}
									{	/* Ieee/string.scm 1264 */

										{	/* Ieee/string.scm 1264 */
											int BgL_tmpz00_8704;

											{	/* Ieee/string.scm 1264 */
												obj_t BgL_auxz00_8712;
												obj_t BgL_auxz00_8705;

												if (STRINGP(BgL_s2z00_1840))
													{	/* Ieee/string.scm 1264 */
														BgL_auxz00_8712 = BgL_s2z00_1840;
													}
												else
													{
														obj_t BgL_auxz00_8715;

														BgL_auxz00_8715 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(51271L),
															BGl_string3122z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s2z00_1840);
														FAILURE(BgL_auxz00_8715, BFALSE, BFALSE);
													}
												if (STRINGP(BgL_s1z00_1839))
													{	/* Ieee/string.scm 1264 */
														BgL_auxz00_8705 = BgL_s1z00_1839;
													}
												else
													{
														obj_t BgL_auxz00_8708;

														BgL_auxz00_8708 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(51271L),
															BGl_string3122z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s1z00_1839);
														FAILURE(BgL_auxz00_8708, BFALSE, BFALSE);
													}
												BgL_tmpz00_8704 =
													BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00
													(BgL_auxz00_8705, BgL_auxz00_8712, BgL_start1z00_1851,
													BgL_end1z00_1852, BFALSE, BFALSE);
											}
											return BINT(BgL_tmpz00_8704);
										}
									}
								}
							}
							break;
						case 5L:

							{	/* Ieee/string.scm 1264 */
								obj_t BgL_start1z00_1855;

								{
									obj_t BgL_auxz00_8721;

									if (VECTORP(BgL_opt1169z00_198))
										{	/* Ieee/string.scm 1264 */
											BgL_auxz00_8721 = BgL_opt1169z00_198;
										}
									else
										{
											obj_t BgL_auxz00_8724;

											BgL_auxz00_8724 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
												BGl_string3122z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1169z00_198);
											FAILURE(BgL_auxz00_8724, BFALSE, BFALSE);
										}
									BgL_start1z00_1855 = VECTOR_REF(BgL_auxz00_8721, 2L);
								}
								{	/* Ieee/string.scm 1264 */
									obj_t BgL_end1z00_1856;

									{
										obj_t BgL_auxz00_8729;

										if (VECTORP(BgL_opt1169z00_198))
											{	/* Ieee/string.scm 1264 */
												BgL_auxz00_8729 = BgL_opt1169z00_198;
											}
										else
											{
												obj_t BgL_auxz00_8732;

												BgL_auxz00_8732 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
													BGl_string3122z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1169z00_198);
												FAILURE(BgL_auxz00_8732, BFALSE, BFALSE);
											}
										BgL_end1z00_1856 = VECTOR_REF(BgL_auxz00_8729, 3L);
									}
									{	/* Ieee/string.scm 1264 */
										obj_t BgL_start2z00_1857;

										{
											obj_t BgL_auxz00_8737;

											if (VECTORP(BgL_opt1169z00_198))
												{	/* Ieee/string.scm 1264 */
													BgL_auxz00_8737 = BgL_opt1169z00_198;
												}
											else
												{
													obj_t BgL_auxz00_8740;

													BgL_auxz00_8740 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(51271L),
														BGl_string3122z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1169z00_198);
													FAILURE(BgL_auxz00_8740, BFALSE, BFALSE);
												}
											BgL_start2z00_1857 = VECTOR_REF(BgL_auxz00_8737, 4L);
										}
										{	/* Ieee/string.scm 1264 */

											{	/* Ieee/string.scm 1264 */
												int BgL_tmpz00_8745;

												{	/* Ieee/string.scm 1264 */
													obj_t BgL_auxz00_8753;
													obj_t BgL_auxz00_8746;

													if (STRINGP(BgL_s2z00_1840))
														{	/* Ieee/string.scm 1264 */
															BgL_auxz00_8753 = BgL_s2z00_1840;
														}
													else
														{
															obj_t BgL_auxz00_8756;

															BgL_auxz00_8756 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(51271L),
																BGl_string3122z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s2z00_1840);
															FAILURE(BgL_auxz00_8756, BFALSE, BFALSE);
														}
													if (STRINGP(BgL_s1z00_1839))
														{	/* Ieee/string.scm 1264 */
															BgL_auxz00_8746 = BgL_s1z00_1839;
														}
													else
														{
															obj_t BgL_auxz00_8749;

															BgL_auxz00_8749 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(51271L),
																BGl_string3122z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s1z00_1839);
															FAILURE(BgL_auxz00_8749, BFALSE, BFALSE);
														}
													BgL_tmpz00_8745 =
														BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00
														(BgL_auxz00_8746, BgL_auxz00_8753,
														BgL_start1z00_1855, BgL_end1z00_1856,
														BgL_start2z00_1857, BFALSE);
												}
												return BINT(BgL_tmpz00_8745);
											}
										}
									}
								}
							}
							break;
						case 6L:

							{	/* Ieee/string.scm 1264 */
								obj_t BgL_start1z00_1859;

								{
									obj_t BgL_auxz00_8762;

									if (VECTORP(BgL_opt1169z00_198))
										{	/* Ieee/string.scm 1264 */
											BgL_auxz00_8762 = BgL_opt1169z00_198;
										}
									else
										{
											obj_t BgL_auxz00_8765;

											BgL_auxz00_8765 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
												BGl_string3122z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1169z00_198);
											FAILURE(BgL_auxz00_8765, BFALSE, BFALSE);
										}
									BgL_start1z00_1859 = VECTOR_REF(BgL_auxz00_8762, 2L);
								}
								{	/* Ieee/string.scm 1264 */
									obj_t BgL_end1z00_1860;

									{
										obj_t BgL_auxz00_8770;

										if (VECTORP(BgL_opt1169z00_198))
											{	/* Ieee/string.scm 1264 */
												BgL_auxz00_8770 = BgL_opt1169z00_198;
											}
										else
											{
												obj_t BgL_auxz00_8773;

												BgL_auxz00_8773 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(51271L),
													BGl_string3122z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1169z00_198);
												FAILURE(BgL_auxz00_8773, BFALSE, BFALSE);
											}
										BgL_end1z00_1860 = VECTOR_REF(BgL_auxz00_8770, 3L);
									}
									{	/* Ieee/string.scm 1264 */
										obj_t BgL_start2z00_1861;

										{
											obj_t BgL_auxz00_8778;

											if (VECTORP(BgL_opt1169z00_198))
												{	/* Ieee/string.scm 1264 */
													BgL_auxz00_8778 = BgL_opt1169z00_198;
												}
											else
												{
													obj_t BgL_auxz00_8781;

													BgL_auxz00_8781 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(51271L),
														BGl_string3122z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1169z00_198);
													FAILURE(BgL_auxz00_8781, BFALSE, BFALSE);
												}
											BgL_start2z00_1861 = VECTOR_REF(BgL_auxz00_8778, 4L);
										}
										{	/* Ieee/string.scm 1264 */
											obj_t BgL_end2z00_1862;

											{
												obj_t BgL_auxz00_8786;

												if (VECTORP(BgL_opt1169z00_198))
													{	/* Ieee/string.scm 1264 */
														BgL_auxz00_8786 = BgL_opt1169z00_198;
													}
												else
													{
														obj_t BgL_auxz00_8789;

														BgL_auxz00_8789 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(51271L),
															BGl_string3122z00zz__r4_strings_6_7z00,
															BGl_string3030z00zz__r4_strings_6_7z00,
															BgL_opt1169z00_198);
														FAILURE(BgL_auxz00_8789, BFALSE, BFALSE);
													}
												BgL_end2z00_1862 = VECTOR_REF(BgL_auxz00_8786, 5L);
											}
											{	/* Ieee/string.scm 1264 */

												{	/* Ieee/string.scm 1264 */
													int BgL_tmpz00_8794;

													{	/* Ieee/string.scm 1264 */
														obj_t BgL_auxz00_8802;
														obj_t BgL_auxz00_8795;

														if (STRINGP(BgL_s2z00_1840))
															{	/* Ieee/string.scm 1264 */
																BgL_auxz00_8802 = BgL_s2z00_1840;
															}
														else
															{
																obj_t BgL_auxz00_8805;

																BgL_auxz00_8805 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(51271L),
																	BGl_string3122z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s2z00_1840);
																FAILURE(BgL_auxz00_8805, BFALSE, BFALSE);
															}
														if (STRINGP(BgL_s1z00_1839))
															{	/* Ieee/string.scm 1264 */
																BgL_auxz00_8795 = BgL_s1z00_1839;
															}
														else
															{
																obj_t BgL_auxz00_8798;

																BgL_auxz00_8798 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(51271L),
																	BGl_string3122z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s1z00_1839);
																FAILURE(BgL_auxz00_8798, BFALSE, BFALSE);
															}
														BgL_tmpz00_8794 =
															BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00
															(BgL_auxz00_8795, BgL_auxz00_8802,
															BgL_start1z00_1859, BgL_end1z00_1860,
															BgL_start2z00_1861, BgL_end2z00_1862);
													}
													return BINT(BgL_tmpz00_8794);
												}
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-suffix-length */
	BGL_EXPORTED_DEF int
		BGl_stringzd2suffixzd2lengthz00zz__r4_strings_6_7z00(obj_t BgL_s1z00_192,
		obj_t BgL_s2z00_193, obj_t BgL_start1z00_194, obj_t BgL_end1z00_195,
		obj_t BgL_start2z00_196, obj_t BgL_end2z00_197)
	{
		{	/* Ieee/string.scm 1264 */
			{	/* Ieee/string.scm 1266 */
				long BgL_l1z00_1863;

				BgL_l1z00_1863 = STRING_LENGTH(BgL_s1z00_192);
				{	/* Ieee/string.scm 1266 */
					long BgL_l2z00_1864;

					BgL_l2z00_1864 = STRING_LENGTH(BgL_s2z00_193);
					{	/* Ieee/string.scm 1267 */
						obj_t BgL_b1z00_1865;

						{	/* Ieee/string.scm 1268 */
							obj_t BgL_procz00_3736;

							BgL_procz00_3736 = BGl_symbol3123z00zz__r4_strings_6_7z00;
							if (CBOOL(BgL_end1z00_195))
								{	/* Ieee/string.scm 1210 */
									if (((long) CINT(BgL_end1z00_195) <= 0L))
										{	/* Ieee/string.scm 1212 */
											BgL_b1z00_1865 =
												BGl_errorz00zz__errorz00(BgL_procz00_3736,
												string_append_3(BGl_string3110z00zz__r4_strings_6_7z00,
													BGl_string3111z00zz__r4_strings_6_7z00,
													BGl_string3112z00zz__r4_strings_6_7z00),
												BgL_end1z00_195);
										}
									else
										{	/* Ieee/string.scm 1212 */
											if (((long) CINT(BgL_end1z00_195) > BgL_l1z00_1863))
												{	/* Ieee/string.scm 1214 */
													BgL_b1z00_1865 =
														BGl_errorz00zz__errorz00(BgL_procz00_3736,
														string_append_3
														(BGl_string3113z00zz__r4_strings_6_7z00,
															BGl_string3111z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_end1z00_195);
												}
											else
												{	/* Ieee/string.scm 1214 */
													BgL_b1z00_1865 = BgL_end1z00_195;
												}
										}
								}
							else
								{	/* Ieee/string.scm 1210 */
									BgL_b1z00_1865 = BINT(BgL_l1z00_1863);
								}
						}
						{	/* Ieee/string.scm 1268 */
							obj_t BgL_b2z00_1866;

							{	/* Ieee/string.scm 1269 */
								obj_t BgL_procz00_3744;

								BgL_procz00_3744 = BGl_symbol3123z00zz__r4_strings_6_7z00;
								if (CBOOL(BgL_end2z00_197))
									{	/* Ieee/string.scm 1210 */
										if (((long) CINT(BgL_end2z00_197) <= 0L))
											{	/* Ieee/string.scm 1212 */
												BgL_b2z00_1866 =
													BGl_errorz00zz__errorz00(BgL_procz00_3744,
													string_append_3
													(BGl_string3110z00zz__r4_strings_6_7z00,
														BGl_string3114z00zz__r4_strings_6_7z00,
														BGl_string3112z00zz__r4_strings_6_7z00),
													BgL_end2z00_197);
											}
										else
											{	/* Ieee/string.scm 1212 */
												if (((long) CINT(BgL_end2z00_197) > BgL_l2z00_1864))
													{	/* Ieee/string.scm 1214 */
														BgL_b2z00_1866 =
															BGl_errorz00zz__errorz00(BgL_procz00_3744,
															string_append_3
															(BGl_string3113z00zz__r4_strings_6_7z00,
																BGl_string3114z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_end2z00_197);
													}
												else
													{	/* Ieee/string.scm 1214 */
														BgL_b2z00_1866 = BgL_end2z00_197;
													}
											}
									}
								else
									{	/* Ieee/string.scm 1210 */
										BgL_b2z00_1866 = BINT(BgL_l2z00_1864);
									}
							}
							{	/* Ieee/string.scm 1269 */
								obj_t BgL_e1z00_1867;

								{	/* Ieee/string.scm 1270 */
									obj_t BgL_procz00_3752;

									BgL_procz00_3752 = BGl_symbol3123z00zz__r4_strings_6_7z00;
									if (CBOOL(BgL_start1z00_194))
										{	/* Ieee/string.scm 1196 */
											if (((long) CINT(BgL_start1z00_194) < 0L))
												{	/* Ieee/string.scm 1198 */
													BgL_e1z00_1867 =
														BGl_errorz00zz__errorz00(BgL_procz00_3752,
														string_append_3
														(BGl_string3115z00zz__r4_strings_6_7z00,
															BGl_string3116z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_start1z00_194);
												}
											else
												{	/* Ieee/string.scm 1198 */
													if (
														((long) CINT(BgL_start1z00_194) >= BgL_l1z00_1863))
														{	/* Ieee/string.scm 1200 */
															BgL_e1z00_1867 =
																BGl_errorz00zz__errorz00(BgL_procz00_3752,
																string_append_3
																(BGl_string3117z00zz__r4_strings_6_7z00,
																	BGl_string3116z00zz__r4_strings_6_7z00,
																	BGl_string3112z00zz__r4_strings_6_7z00),
																BgL_start1z00_194);
														}
													else
														{	/* Ieee/string.scm 1200 */
															BgL_e1z00_1867 = BgL_start1z00_194;
														}
												}
										}
									else
										{	/* Ieee/string.scm 1196 */
											BgL_e1z00_1867 = BINT(0L);
										}
								}
								{	/* Ieee/string.scm 1270 */
									obj_t BgL_e2z00_1868;

									{	/* Ieee/string.scm 1271 */
										obj_t BgL_procz00_3760;

										BgL_procz00_3760 = BGl_symbol3123z00zz__r4_strings_6_7z00;
										if (CBOOL(BgL_start2z00_196))
											{	/* Ieee/string.scm 1196 */
												if (((long) CINT(BgL_start2z00_196) < 0L))
													{	/* Ieee/string.scm 1198 */
														BgL_e2z00_1868 =
															BGl_errorz00zz__errorz00(BgL_procz00_3760,
															string_append_3
															(BGl_string3115z00zz__r4_strings_6_7z00,
																BGl_string3118z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_start2z00_196);
													}
												else
													{	/* Ieee/string.scm 1198 */
														if (
															((long) CINT(BgL_start2z00_196) >=
																BgL_l2z00_1864))
															{	/* Ieee/string.scm 1200 */
																BgL_e2z00_1868 =
																	BGl_errorz00zz__errorz00(BgL_procz00_3760,
																	string_append_3
																	(BGl_string3117z00zz__r4_strings_6_7z00,
																		BGl_string3118z00zz__r4_strings_6_7z00,
																		BGl_string3112z00zz__r4_strings_6_7z00),
																	BgL_start2z00_196);
															}
														else
															{	/* Ieee/string.scm 1200 */
																BgL_e2z00_1868 = BgL_start2z00_196;
															}
													}
											}
										else
											{	/* Ieee/string.scm 1196 */
												BgL_e2z00_1868 = BINT(0L);
											}
									}
									{	/* Ieee/string.scm 1271 */

										{
											long BgL_i1z00_1872;
											long BgL_i2z00_1873;

											{	/* Ieee/string.scm 1272 */
												long BgL_tmpz00_8866;

												BgL_i1z00_1872 = ((long) CINT(BgL_b1z00_1865) - 1L);
												BgL_i2z00_1873 = ((long) CINT(BgL_b2z00_1866) - 1L);
											BgL_zc3z04anonymousza31776ze3z87_1874:
												{	/* Ieee/string.scm 1275 */
													bool_t BgL_test3822z00_8867;

													if ((BgL_i1z00_1872 < (long) CINT(BgL_e1z00_1867)))
														{	/* Ieee/string.scm 1275 */
															BgL_test3822z00_8867 = ((bool_t) 1);
														}
													else
														{	/* Ieee/string.scm 1275 */
															BgL_test3822z00_8867 =
																(BgL_i2z00_1873 < (long) CINT(BgL_e2z00_1868));
														}
													if (BgL_test3822z00_8867)
														{	/* Ieee/string.scm 1275 */
															BgL_tmpz00_8866 =
																(
																(long) CINT(BgL_b1z00_1865) -
																(BgL_i1z00_1872 + 1L));
														}
													else
														{	/* Ieee/string.scm 1275 */
															if (
																(STRING_REF(BgL_s1z00_192, BgL_i1z00_1872) ==
																	STRING_REF(BgL_s2z00_193, BgL_i2z00_1873)))
																{
																	long BgL_i2z00_8882;
																	long BgL_i1z00_8880;

																	BgL_i1z00_8880 = (BgL_i1z00_1872 - 1L);
																	BgL_i2z00_8882 = (BgL_i2z00_1873 - 1L);
																	BgL_i2z00_1873 = BgL_i2z00_8882;
																	BgL_i1z00_1872 = BgL_i1z00_8880;
																	goto BgL_zc3z04anonymousza31776ze3z87_1874;
																}
															else
																{	/* Ieee/string.scm 1277 */
																	BgL_tmpz00_8866 =
																		(
																		(long) CINT(BgL_b1z00_1865) -
																		(BgL_i1z00_1872 + 1L));
												}}}
												return (int) (BgL_tmpz00_8866);
		}}}}}}}}}}

	}



/* _string-suffix-length-ci */
	obj_t BGl__stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t
		BgL_env1174z00_207, obj_t BgL_opt1173z00_206)
	{
		{	/* Ieee/string.scm 1285 */
			{	/* Ieee/string.scm 1285 */
				obj_t BgL_s1z00_1888;
				obj_t BgL_s2z00_1889;

				{
					obj_t BgL_auxz00_8892;

					if (VECTORP(BgL_opt1173z00_206))
						{	/* Ieee/string.scm 1285 */
							BgL_auxz00_8892 = BgL_opt1173z00_206;
						}
					else
						{
							obj_t BgL_auxz00_8895;

							BgL_auxz00_8895 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
								BGl_string3125z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1173z00_206);
							FAILURE(BgL_auxz00_8895, BFALSE, BFALSE);
						}
					BgL_s1z00_1888 = VECTOR_REF(BgL_auxz00_8892, 0L);
				}
				{
					obj_t BgL_auxz00_8900;

					if (VECTORP(BgL_opt1173z00_206))
						{	/* Ieee/string.scm 1285 */
							BgL_auxz00_8900 = BgL_opt1173z00_206;
						}
					else
						{
							obj_t BgL_auxz00_8903;

							BgL_auxz00_8903 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
								BGl_string3125z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1173z00_206);
							FAILURE(BgL_auxz00_8903, BFALSE, BFALSE);
						}
					BgL_s2z00_1889 = VECTOR_REF(BgL_auxz00_8900, 1L);
				}
				{	/* Ieee/string.scm 1285 */
					long BgL_aux1176z00_1891;

					{
						obj_t BgL_auxz00_8908;

						if (VECTORP(BgL_opt1173z00_206))
							{	/* Ieee/string.scm 1285 */
								BgL_auxz00_8908 = BgL_opt1173z00_206;
							}
						else
							{
								obj_t BgL_auxz00_8911;

								BgL_auxz00_8911 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
									BGl_string3125z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1173z00_206);
								FAILURE(BgL_auxz00_8911, BFALSE, BFALSE);
							}
						BgL_aux1176z00_1891 = VECTOR_LENGTH(BgL_auxz00_8908);
					}
					switch (BgL_aux1176z00_1891)
						{
						case 2L:

							{	/* Ieee/string.scm 1285 */

								{	/* Ieee/string.scm 1285 */
									int BgL_tmpz00_8916;

									{	/* Ieee/string.scm 1285 */
										obj_t BgL_auxz00_8924;
										obj_t BgL_auxz00_8917;

										if (STRINGP(BgL_s2z00_1889))
											{	/* Ieee/string.scm 1285 */
												BgL_auxz00_8924 = BgL_s2z00_1889;
											}
										else
											{
												obj_t BgL_auxz00_8927;

												BgL_auxz00_8927 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
													BGl_string3125z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s2z00_1889);
												FAILURE(BgL_auxz00_8927, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_s1z00_1888))
											{	/* Ieee/string.scm 1285 */
												BgL_auxz00_8917 = BgL_s1z00_1888;
											}
										else
											{
												obj_t BgL_auxz00_8920;

												BgL_auxz00_8920 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
													BGl_string3125z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s1z00_1888);
												FAILURE(BgL_auxz00_8920, BFALSE, BFALSE);
											}
										BgL_tmpz00_8916 =
											BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00
											(BgL_auxz00_8917, BgL_auxz00_8924, BFALSE, BFALSE, BFALSE,
											BFALSE);
									}
									return BINT(BgL_tmpz00_8916);
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1285 */
								obj_t BgL_start1z00_1896;

								{
									obj_t BgL_auxz00_8933;

									if (VECTORP(BgL_opt1173z00_206))
										{	/* Ieee/string.scm 1285 */
											BgL_auxz00_8933 = BgL_opt1173z00_206;
										}
									else
										{
											obj_t BgL_auxz00_8936;

											BgL_auxz00_8936 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
												BGl_string3125z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1173z00_206);
											FAILURE(BgL_auxz00_8936, BFALSE, BFALSE);
										}
									BgL_start1z00_1896 = VECTOR_REF(BgL_auxz00_8933, 2L);
								}
								{	/* Ieee/string.scm 1285 */

									{	/* Ieee/string.scm 1285 */
										int BgL_tmpz00_8941;

										{	/* Ieee/string.scm 1285 */
											obj_t BgL_auxz00_8949;
											obj_t BgL_auxz00_8942;

											if (STRINGP(BgL_s2z00_1889))
												{	/* Ieee/string.scm 1285 */
													BgL_auxz00_8949 = BgL_s2z00_1889;
												}
											else
												{
													obj_t BgL_auxz00_8952;

													BgL_auxz00_8952 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(52182L),
														BGl_string3125z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s2z00_1889);
													FAILURE(BgL_auxz00_8952, BFALSE, BFALSE);
												}
											if (STRINGP(BgL_s1z00_1888))
												{	/* Ieee/string.scm 1285 */
													BgL_auxz00_8942 = BgL_s1z00_1888;
												}
											else
												{
													obj_t BgL_auxz00_8945;

													BgL_auxz00_8945 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(52182L),
														BGl_string3125z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s1z00_1888);
													FAILURE(BgL_auxz00_8945, BFALSE, BFALSE);
												}
											BgL_tmpz00_8941 =
												BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00
												(BgL_auxz00_8942, BgL_auxz00_8949, BgL_start1z00_1896,
												BFALSE, BFALSE, BFALSE);
										}
										return BINT(BgL_tmpz00_8941);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 1285 */
								obj_t BgL_start1z00_1900;

								{
									obj_t BgL_auxz00_8958;

									if (VECTORP(BgL_opt1173z00_206))
										{	/* Ieee/string.scm 1285 */
											BgL_auxz00_8958 = BgL_opt1173z00_206;
										}
									else
										{
											obj_t BgL_auxz00_8961;

											BgL_auxz00_8961 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
												BGl_string3125z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1173z00_206);
											FAILURE(BgL_auxz00_8961, BFALSE, BFALSE);
										}
									BgL_start1z00_1900 = VECTOR_REF(BgL_auxz00_8958, 2L);
								}
								{	/* Ieee/string.scm 1285 */
									obj_t BgL_end1z00_1901;

									{
										obj_t BgL_auxz00_8966;

										if (VECTORP(BgL_opt1173z00_206))
											{	/* Ieee/string.scm 1285 */
												BgL_auxz00_8966 = BgL_opt1173z00_206;
											}
										else
											{
												obj_t BgL_auxz00_8969;

												BgL_auxz00_8969 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
													BGl_string3125z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1173z00_206);
												FAILURE(BgL_auxz00_8969, BFALSE, BFALSE);
											}
										BgL_end1z00_1901 = VECTOR_REF(BgL_auxz00_8966, 3L);
									}
									{	/* Ieee/string.scm 1285 */

										{	/* Ieee/string.scm 1285 */
											int BgL_tmpz00_8974;

											{	/* Ieee/string.scm 1285 */
												obj_t BgL_auxz00_8982;
												obj_t BgL_auxz00_8975;

												if (STRINGP(BgL_s2z00_1889))
													{	/* Ieee/string.scm 1285 */
														BgL_auxz00_8982 = BgL_s2z00_1889;
													}
												else
													{
														obj_t BgL_auxz00_8985;

														BgL_auxz00_8985 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(52182L),
															BGl_string3125z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s2z00_1889);
														FAILURE(BgL_auxz00_8985, BFALSE, BFALSE);
													}
												if (STRINGP(BgL_s1z00_1888))
													{	/* Ieee/string.scm 1285 */
														BgL_auxz00_8975 = BgL_s1z00_1888;
													}
												else
													{
														obj_t BgL_auxz00_8978;

														BgL_auxz00_8978 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(52182L),
															BGl_string3125z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s1z00_1888);
														FAILURE(BgL_auxz00_8978, BFALSE, BFALSE);
													}
												BgL_tmpz00_8974 =
													BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00
													(BgL_auxz00_8975, BgL_auxz00_8982, BgL_start1z00_1900,
													BgL_end1z00_1901, BFALSE, BFALSE);
											}
											return BINT(BgL_tmpz00_8974);
										}
									}
								}
							}
							break;
						case 5L:

							{	/* Ieee/string.scm 1285 */
								obj_t BgL_start1z00_1904;

								{
									obj_t BgL_auxz00_8991;

									if (VECTORP(BgL_opt1173z00_206))
										{	/* Ieee/string.scm 1285 */
											BgL_auxz00_8991 = BgL_opt1173z00_206;
										}
									else
										{
											obj_t BgL_auxz00_8994;

											BgL_auxz00_8994 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
												BGl_string3125z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1173z00_206);
											FAILURE(BgL_auxz00_8994, BFALSE, BFALSE);
										}
									BgL_start1z00_1904 = VECTOR_REF(BgL_auxz00_8991, 2L);
								}
								{	/* Ieee/string.scm 1285 */
									obj_t BgL_end1z00_1905;

									{
										obj_t BgL_auxz00_8999;

										if (VECTORP(BgL_opt1173z00_206))
											{	/* Ieee/string.scm 1285 */
												BgL_auxz00_8999 = BgL_opt1173z00_206;
											}
										else
											{
												obj_t BgL_auxz00_9002;

												BgL_auxz00_9002 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
													BGl_string3125z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1173z00_206);
												FAILURE(BgL_auxz00_9002, BFALSE, BFALSE);
											}
										BgL_end1z00_1905 = VECTOR_REF(BgL_auxz00_8999, 3L);
									}
									{	/* Ieee/string.scm 1285 */
										obj_t BgL_start2z00_1906;

										{
											obj_t BgL_auxz00_9007;

											if (VECTORP(BgL_opt1173z00_206))
												{	/* Ieee/string.scm 1285 */
													BgL_auxz00_9007 = BgL_opt1173z00_206;
												}
											else
												{
													obj_t BgL_auxz00_9010;

													BgL_auxz00_9010 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(52182L),
														BGl_string3125z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1173z00_206);
													FAILURE(BgL_auxz00_9010, BFALSE, BFALSE);
												}
											BgL_start2z00_1906 = VECTOR_REF(BgL_auxz00_9007, 4L);
										}
										{	/* Ieee/string.scm 1285 */

											{	/* Ieee/string.scm 1285 */
												int BgL_tmpz00_9015;

												{	/* Ieee/string.scm 1285 */
													obj_t BgL_auxz00_9023;
													obj_t BgL_auxz00_9016;

													if (STRINGP(BgL_s2z00_1889))
														{	/* Ieee/string.scm 1285 */
															BgL_auxz00_9023 = BgL_s2z00_1889;
														}
													else
														{
															obj_t BgL_auxz00_9026;

															BgL_auxz00_9026 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(52182L),
																BGl_string3125z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s2z00_1889);
															FAILURE(BgL_auxz00_9026, BFALSE, BFALSE);
														}
													if (STRINGP(BgL_s1z00_1888))
														{	/* Ieee/string.scm 1285 */
															BgL_auxz00_9016 = BgL_s1z00_1888;
														}
													else
														{
															obj_t BgL_auxz00_9019;

															BgL_auxz00_9019 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(52182L),
																BGl_string3125z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s1z00_1888);
															FAILURE(BgL_auxz00_9019, BFALSE, BFALSE);
														}
													BgL_tmpz00_9015 =
														BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00
														(BgL_auxz00_9016, BgL_auxz00_9023,
														BgL_start1z00_1904, BgL_end1z00_1905,
														BgL_start2z00_1906, BFALSE);
												}
												return BINT(BgL_tmpz00_9015);
											}
										}
									}
								}
							}
							break;
						case 6L:

							{	/* Ieee/string.scm 1285 */
								obj_t BgL_start1z00_1908;

								{
									obj_t BgL_auxz00_9032;

									if (VECTORP(BgL_opt1173z00_206))
										{	/* Ieee/string.scm 1285 */
											BgL_auxz00_9032 = BgL_opt1173z00_206;
										}
									else
										{
											obj_t BgL_auxz00_9035;

											BgL_auxz00_9035 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
												BGl_string3125z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1173z00_206);
											FAILURE(BgL_auxz00_9035, BFALSE, BFALSE);
										}
									BgL_start1z00_1908 = VECTOR_REF(BgL_auxz00_9032, 2L);
								}
								{	/* Ieee/string.scm 1285 */
									obj_t BgL_end1z00_1909;

									{
										obj_t BgL_auxz00_9040;

										if (VECTORP(BgL_opt1173z00_206))
											{	/* Ieee/string.scm 1285 */
												BgL_auxz00_9040 = BgL_opt1173z00_206;
											}
										else
											{
												obj_t BgL_auxz00_9043;

												BgL_auxz00_9043 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(52182L),
													BGl_string3125z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1173z00_206);
												FAILURE(BgL_auxz00_9043, BFALSE, BFALSE);
											}
										BgL_end1z00_1909 = VECTOR_REF(BgL_auxz00_9040, 3L);
									}
									{	/* Ieee/string.scm 1285 */
										obj_t BgL_start2z00_1910;

										{
											obj_t BgL_auxz00_9048;

											if (VECTORP(BgL_opt1173z00_206))
												{	/* Ieee/string.scm 1285 */
													BgL_auxz00_9048 = BgL_opt1173z00_206;
												}
											else
												{
													obj_t BgL_auxz00_9051;

													BgL_auxz00_9051 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(52182L),
														BGl_string3125z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1173z00_206);
													FAILURE(BgL_auxz00_9051, BFALSE, BFALSE);
												}
											BgL_start2z00_1910 = VECTOR_REF(BgL_auxz00_9048, 4L);
										}
										{	/* Ieee/string.scm 1285 */
											obj_t BgL_end2z00_1911;

											{
												obj_t BgL_auxz00_9056;

												if (VECTORP(BgL_opt1173z00_206))
													{	/* Ieee/string.scm 1285 */
														BgL_auxz00_9056 = BgL_opt1173z00_206;
													}
												else
													{
														obj_t BgL_auxz00_9059;

														BgL_auxz00_9059 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(52182L),
															BGl_string3125z00zz__r4_strings_6_7z00,
															BGl_string3030z00zz__r4_strings_6_7z00,
															BgL_opt1173z00_206);
														FAILURE(BgL_auxz00_9059, BFALSE, BFALSE);
													}
												BgL_end2z00_1911 = VECTOR_REF(BgL_auxz00_9056, 5L);
											}
											{	/* Ieee/string.scm 1285 */

												{	/* Ieee/string.scm 1285 */
													int BgL_tmpz00_9064;

													{	/* Ieee/string.scm 1285 */
														obj_t BgL_auxz00_9072;
														obj_t BgL_auxz00_9065;

														if (STRINGP(BgL_s2z00_1889))
															{	/* Ieee/string.scm 1285 */
																BgL_auxz00_9072 = BgL_s2z00_1889;
															}
														else
															{
																obj_t BgL_auxz00_9075;

																BgL_auxz00_9075 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(52182L),
																	BGl_string3125z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s2z00_1889);
																FAILURE(BgL_auxz00_9075, BFALSE, BFALSE);
															}
														if (STRINGP(BgL_s1z00_1888))
															{	/* Ieee/string.scm 1285 */
																BgL_auxz00_9065 = BgL_s1z00_1888;
															}
														else
															{
																obj_t BgL_auxz00_9068;

																BgL_auxz00_9068 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(52182L),
																	BGl_string3125z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s1z00_1888);
																FAILURE(BgL_auxz00_9068, BFALSE, BFALSE);
															}
														BgL_tmpz00_9064 =
															BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00
															(BgL_auxz00_9065, BgL_auxz00_9072,
															BgL_start1z00_1908, BgL_end1z00_1909,
															BgL_start2z00_1910, BgL_end2z00_1911);
													}
													return BINT(BgL_tmpz00_9064);
												}
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-suffix-length-ci */
	BGL_EXPORTED_DEF int
		BGl_stringzd2suffixzd2lengthzd2cizd2zz__r4_strings_6_7z00(obj_t
		BgL_s1z00_200, obj_t BgL_s2z00_201, obj_t BgL_start1z00_202,
		obj_t BgL_end1z00_203, obj_t BgL_start2z00_204, obj_t BgL_end2z00_205)
	{
		{	/* Ieee/string.scm 1285 */
			{	/* Ieee/string.scm 1287 */
				long BgL_l1z00_1912;

				BgL_l1z00_1912 = STRING_LENGTH(BgL_s1z00_200);
				{	/* Ieee/string.scm 1287 */
					long BgL_l2z00_1913;

					BgL_l2z00_1913 = STRING_LENGTH(BgL_s2z00_201);
					{	/* Ieee/string.scm 1288 */
						obj_t BgL_b1z00_1914;

						{	/* Ieee/string.scm 1289 */
							obj_t BgL_procz00_3790;

							BgL_procz00_3790 = BGl_symbol3126z00zz__r4_strings_6_7z00;
							if (CBOOL(BgL_end1z00_203))
								{	/* Ieee/string.scm 1210 */
									if (((long) CINT(BgL_end1z00_203) <= 0L))
										{	/* Ieee/string.scm 1212 */
											BgL_b1z00_1914 =
												BGl_errorz00zz__errorz00(BgL_procz00_3790,
												string_append_3(BGl_string3110z00zz__r4_strings_6_7z00,
													BGl_string3111z00zz__r4_strings_6_7z00,
													BGl_string3112z00zz__r4_strings_6_7z00),
												BgL_end1z00_203);
										}
									else
										{	/* Ieee/string.scm 1212 */
											if (((long) CINT(BgL_end1z00_203) > BgL_l1z00_1912))
												{	/* Ieee/string.scm 1214 */
													BgL_b1z00_1914 =
														BGl_errorz00zz__errorz00(BgL_procz00_3790,
														string_append_3
														(BGl_string3113z00zz__r4_strings_6_7z00,
															BGl_string3111z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_end1z00_203);
												}
											else
												{	/* Ieee/string.scm 1214 */
													BgL_b1z00_1914 = BgL_end1z00_203;
												}
										}
								}
							else
								{	/* Ieee/string.scm 1210 */
									BgL_b1z00_1914 = BINT(BgL_l1z00_1912);
								}
						}
						{	/* Ieee/string.scm 1289 */
							obj_t BgL_b2z00_1915;

							{	/* Ieee/string.scm 1290 */
								obj_t BgL_procz00_3798;

								BgL_procz00_3798 = BGl_symbol3126z00zz__r4_strings_6_7z00;
								if (CBOOL(BgL_end2z00_205))
									{	/* Ieee/string.scm 1210 */
										if (((long) CINT(BgL_end2z00_205) <= 0L))
											{	/* Ieee/string.scm 1212 */
												BgL_b2z00_1915 =
													BGl_errorz00zz__errorz00(BgL_procz00_3798,
													string_append_3
													(BGl_string3110z00zz__r4_strings_6_7z00,
														BGl_string3114z00zz__r4_strings_6_7z00,
														BGl_string3112z00zz__r4_strings_6_7z00),
													BgL_end2z00_205);
											}
										else
											{	/* Ieee/string.scm 1212 */
												if (((long) CINT(BgL_end2z00_205) > BgL_l2z00_1913))
													{	/* Ieee/string.scm 1214 */
														BgL_b2z00_1915 =
															BGl_errorz00zz__errorz00(BgL_procz00_3798,
															string_append_3
															(BGl_string3113z00zz__r4_strings_6_7z00,
																BGl_string3114z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_end2z00_205);
													}
												else
													{	/* Ieee/string.scm 1214 */
														BgL_b2z00_1915 = BgL_end2z00_205;
													}
											}
									}
								else
									{	/* Ieee/string.scm 1210 */
										BgL_b2z00_1915 = BINT(BgL_l2z00_1913);
									}
							}
							{	/* Ieee/string.scm 1290 */
								obj_t BgL_e1z00_1916;

								{	/* Ieee/string.scm 1291 */
									obj_t BgL_procz00_3806;

									BgL_procz00_3806 = BGl_symbol3126z00zz__r4_strings_6_7z00;
									if (CBOOL(BgL_start1z00_202))
										{	/* Ieee/string.scm 1196 */
											if (((long) CINT(BgL_start1z00_202) < 0L))
												{	/* Ieee/string.scm 1198 */
													BgL_e1z00_1916 =
														BGl_errorz00zz__errorz00(BgL_procz00_3806,
														string_append_3
														(BGl_string3115z00zz__r4_strings_6_7z00,
															BGl_string3116z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_start1z00_202);
												}
											else
												{	/* Ieee/string.scm 1198 */
													if (
														((long) CINT(BgL_start1z00_202) >= BgL_l1z00_1912))
														{	/* Ieee/string.scm 1200 */
															BgL_e1z00_1916 =
																BGl_errorz00zz__errorz00(BgL_procz00_3806,
																string_append_3
																(BGl_string3117z00zz__r4_strings_6_7z00,
																	BGl_string3116z00zz__r4_strings_6_7z00,
																	BGl_string3112z00zz__r4_strings_6_7z00),
																BgL_start1z00_202);
														}
													else
														{	/* Ieee/string.scm 1200 */
															BgL_e1z00_1916 = BgL_start1z00_202;
														}
												}
										}
									else
										{	/* Ieee/string.scm 1196 */
											BgL_e1z00_1916 = BINT(0L);
										}
								}
								{	/* Ieee/string.scm 1291 */
									obj_t BgL_e2z00_1917;

									{	/* Ieee/string.scm 1292 */
										obj_t BgL_procz00_3814;

										BgL_procz00_3814 = BGl_symbol3126z00zz__r4_strings_6_7z00;
										if (CBOOL(BgL_start2z00_204))
											{	/* Ieee/string.scm 1196 */
												if (((long) CINT(BgL_start2z00_204) < 0L))
													{	/* Ieee/string.scm 1198 */
														BgL_e2z00_1917 =
															BGl_errorz00zz__errorz00(BgL_procz00_3814,
															string_append_3
															(BGl_string3115z00zz__r4_strings_6_7z00,
																BGl_string3118z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_start2z00_204);
													}
												else
													{	/* Ieee/string.scm 1198 */
														if (
															((long) CINT(BgL_start2z00_204) >=
																BgL_l2z00_1913))
															{	/* Ieee/string.scm 1200 */
																BgL_e2z00_1917 =
																	BGl_errorz00zz__errorz00(BgL_procz00_3814,
																	string_append_3
																	(BGl_string3117z00zz__r4_strings_6_7z00,
																		BGl_string3118z00zz__r4_strings_6_7z00,
																		BGl_string3112z00zz__r4_strings_6_7z00),
																	BgL_start2z00_204);
															}
														else
															{	/* Ieee/string.scm 1200 */
																BgL_e2z00_1917 = BgL_start2z00_204;
															}
													}
											}
										else
											{	/* Ieee/string.scm 1196 */
												BgL_e2z00_1917 = BINT(0L);
											}
									}
									{	/* Ieee/string.scm 1292 */

										{
											long BgL_i1z00_1921;
											long BgL_i2z00_1922;

											{	/* Ieee/string.scm 1293 */
												long BgL_tmpz00_9136;

												BgL_i1z00_1921 = ((long) CINT(BgL_b1z00_1914) - 1L);
												BgL_i2z00_1922 = ((long) CINT(BgL_b2z00_1915) - 1L);
											BgL_zc3z04anonymousza31789ze3z87_1923:
												{	/* Ieee/string.scm 1296 */
													bool_t BgL_test3860z00_9137;

													if ((BgL_i1z00_1921 < (long) CINT(BgL_e1z00_1916)))
														{	/* Ieee/string.scm 1296 */
															BgL_test3860z00_9137 = ((bool_t) 1);
														}
													else
														{	/* Ieee/string.scm 1296 */
															BgL_test3860z00_9137 =
																(BgL_i2z00_1922 < (long) CINT(BgL_e2z00_1917));
														}
													if (BgL_test3860z00_9137)
														{	/* Ieee/string.scm 1296 */
															BgL_tmpz00_9136 =
																(
																(long) CINT(BgL_b1z00_1914) -
																(BgL_i1z00_1921 + 1L));
														}
													else
														{	/* Ieee/string.scm 1296 */
															if (
																(toupper(STRING_REF(BgL_s1z00_200,
																			BgL_i1z00_1921)) ==
																	toupper(STRING_REF(BgL_s2z00_201,
																			BgL_i2z00_1922))))
																{
																	long BgL_i2z00_9154;
																	long BgL_i1z00_9152;

																	BgL_i1z00_9152 = (BgL_i1z00_1921 - 1L);
																	BgL_i2z00_9154 = (BgL_i2z00_1922 - 1L);
																	BgL_i2z00_1922 = BgL_i2z00_9154;
																	BgL_i1z00_1921 = BgL_i1z00_9152;
																	goto BgL_zc3z04anonymousza31789ze3z87_1923;
																}
															else
																{	/* Ieee/string.scm 1298 */
																	BgL_tmpz00_9136 =
																		(
																		(long) CINT(BgL_b1z00_1914) -
																		(BgL_i1z00_1921 + 1L));
												}}}
												return (int) (BgL_tmpz00_9136);
		}}}}}}}}}}

	}



/* _string-prefix? */
	obj_t BGl__stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t
		BgL_env1178z00_215, obj_t BgL_opt1177z00_214)
	{
		{	/* Ieee/string.scm 1306 */
			{	/* Ieee/string.scm 1306 */
				obj_t BgL_s1z00_1937;
				obj_t BgL_s2z00_1938;

				{
					obj_t BgL_auxz00_9164;

					if (VECTORP(BgL_opt1177z00_214))
						{	/* Ieee/string.scm 1306 */
							BgL_auxz00_9164 = BgL_opt1177z00_214;
						}
					else
						{
							obj_t BgL_auxz00_9167;

							BgL_auxz00_9167 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
								BGl_string3128z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1177z00_214);
							FAILURE(BgL_auxz00_9167, BFALSE, BFALSE);
						}
					BgL_s1z00_1937 = VECTOR_REF(BgL_auxz00_9164, 0L);
				}
				{
					obj_t BgL_auxz00_9172;

					if (VECTORP(BgL_opt1177z00_214))
						{	/* Ieee/string.scm 1306 */
							BgL_auxz00_9172 = BgL_opt1177z00_214;
						}
					else
						{
							obj_t BgL_auxz00_9175;

							BgL_auxz00_9175 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
								BGl_string3128z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1177z00_214);
							FAILURE(BgL_auxz00_9175, BFALSE, BFALSE);
						}
					BgL_s2z00_1938 = VECTOR_REF(BgL_auxz00_9172, 1L);
				}
				{	/* Ieee/string.scm 1306 */
					long BgL_aux1180z00_1940;

					{
						obj_t BgL_auxz00_9180;

						if (VECTORP(BgL_opt1177z00_214))
							{	/* Ieee/string.scm 1306 */
								BgL_auxz00_9180 = BgL_opt1177z00_214;
							}
						else
							{
								obj_t BgL_auxz00_9183;

								BgL_auxz00_9183 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
									BGl_string3128z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1177z00_214);
								FAILURE(BgL_auxz00_9183, BFALSE, BFALSE);
							}
						BgL_aux1180z00_1940 = VECTOR_LENGTH(BgL_auxz00_9180);
					}
					switch (BgL_aux1180z00_1940)
						{
						case 2L:

							{	/* Ieee/string.scm 1306 */

								{	/* Ieee/string.scm 1306 */
									bool_t BgL_tmpz00_9188;

									{	/* Ieee/string.scm 1306 */
										obj_t BgL_auxz00_9196;
										obj_t BgL_auxz00_9189;

										if (STRINGP(BgL_s2z00_1938))
											{	/* Ieee/string.scm 1306 */
												BgL_auxz00_9196 = BgL_s2z00_1938;
											}
										else
											{
												obj_t BgL_auxz00_9199;

												BgL_auxz00_9199 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
													BGl_string3128z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s2z00_1938);
												FAILURE(BgL_auxz00_9199, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_s1z00_1937))
											{	/* Ieee/string.scm 1306 */
												BgL_auxz00_9189 = BgL_s1z00_1937;
											}
										else
											{
												obj_t BgL_auxz00_9192;

												BgL_auxz00_9192 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
													BGl_string3128z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s1z00_1937);
												FAILURE(BgL_auxz00_9192, BFALSE, BFALSE);
											}
										BgL_tmpz00_9188 =
											BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
											(BgL_auxz00_9189, BgL_auxz00_9196, BFALSE, BFALSE, BFALSE,
											BFALSE);
									}
									return BBOOL(BgL_tmpz00_9188);
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1306 */
								obj_t BgL_start1z00_1945;

								{
									obj_t BgL_auxz00_9205;

									if (VECTORP(BgL_opt1177z00_214))
										{	/* Ieee/string.scm 1306 */
											BgL_auxz00_9205 = BgL_opt1177z00_214;
										}
									else
										{
											obj_t BgL_auxz00_9208;

											BgL_auxz00_9208 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
												BGl_string3128z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1177z00_214);
											FAILURE(BgL_auxz00_9208, BFALSE, BFALSE);
										}
									BgL_start1z00_1945 = VECTOR_REF(BgL_auxz00_9205, 2L);
								}
								{	/* Ieee/string.scm 1306 */

									{	/* Ieee/string.scm 1306 */
										bool_t BgL_tmpz00_9213;

										{	/* Ieee/string.scm 1306 */
											obj_t BgL_auxz00_9221;
											obj_t BgL_auxz00_9214;

											if (STRINGP(BgL_s2z00_1938))
												{	/* Ieee/string.scm 1306 */
													BgL_auxz00_9221 = BgL_s2z00_1938;
												}
											else
												{
													obj_t BgL_auxz00_9224;

													BgL_auxz00_9224 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(53114L),
														BGl_string3128z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s2z00_1938);
													FAILURE(BgL_auxz00_9224, BFALSE, BFALSE);
												}
											if (STRINGP(BgL_s1z00_1937))
												{	/* Ieee/string.scm 1306 */
													BgL_auxz00_9214 = BgL_s1z00_1937;
												}
											else
												{
													obj_t BgL_auxz00_9217;

													BgL_auxz00_9217 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(53114L),
														BGl_string3128z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s1z00_1937);
													FAILURE(BgL_auxz00_9217, BFALSE, BFALSE);
												}
											BgL_tmpz00_9213 =
												BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
												(BgL_auxz00_9214, BgL_auxz00_9221, BgL_start1z00_1945,
												BFALSE, BFALSE, BFALSE);
										}
										return BBOOL(BgL_tmpz00_9213);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 1306 */
								obj_t BgL_start1z00_1949;

								{
									obj_t BgL_auxz00_9230;

									if (VECTORP(BgL_opt1177z00_214))
										{	/* Ieee/string.scm 1306 */
											BgL_auxz00_9230 = BgL_opt1177z00_214;
										}
									else
										{
											obj_t BgL_auxz00_9233;

											BgL_auxz00_9233 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
												BGl_string3128z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1177z00_214);
											FAILURE(BgL_auxz00_9233, BFALSE, BFALSE);
										}
									BgL_start1z00_1949 = VECTOR_REF(BgL_auxz00_9230, 2L);
								}
								{	/* Ieee/string.scm 1306 */
									obj_t BgL_end1z00_1950;

									{
										obj_t BgL_auxz00_9238;

										if (VECTORP(BgL_opt1177z00_214))
											{	/* Ieee/string.scm 1306 */
												BgL_auxz00_9238 = BgL_opt1177z00_214;
											}
										else
											{
												obj_t BgL_auxz00_9241;

												BgL_auxz00_9241 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
													BGl_string3128z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1177z00_214);
												FAILURE(BgL_auxz00_9241, BFALSE, BFALSE);
											}
										BgL_end1z00_1950 = VECTOR_REF(BgL_auxz00_9238, 3L);
									}
									{	/* Ieee/string.scm 1306 */

										{	/* Ieee/string.scm 1306 */
											bool_t BgL_tmpz00_9246;

											{	/* Ieee/string.scm 1306 */
												obj_t BgL_auxz00_9254;
												obj_t BgL_auxz00_9247;

												if (STRINGP(BgL_s2z00_1938))
													{	/* Ieee/string.scm 1306 */
														BgL_auxz00_9254 = BgL_s2z00_1938;
													}
												else
													{
														obj_t BgL_auxz00_9257;

														BgL_auxz00_9257 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(53114L),
															BGl_string3128z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s2z00_1938);
														FAILURE(BgL_auxz00_9257, BFALSE, BFALSE);
													}
												if (STRINGP(BgL_s1z00_1937))
													{	/* Ieee/string.scm 1306 */
														BgL_auxz00_9247 = BgL_s1z00_1937;
													}
												else
													{
														obj_t BgL_auxz00_9250;

														BgL_auxz00_9250 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(53114L),
															BGl_string3128z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s1z00_1937);
														FAILURE(BgL_auxz00_9250, BFALSE, BFALSE);
													}
												BgL_tmpz00_9246 =
													BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
													(BgL_auxz00_9247, BgL_auxz00_9254, BgL_start1z00_1949,
													BgL_end1z00_1950, BFALSE, BFALSE);
											}
											return BBOOL(BgL_tmpz00_9246);
										}
									}
								}
							}
							break;
						case 5L:

							{	/* Ieee/string.scm 1306 */
								obj_t BgL_start1z00_1953;

								{
									obj_t BgL_auxz00_9263;

									if (VECTORP(BgL_opt1177z00_214))
										{	/* Ieee/string.scm 1306 */
											BgL_auxz00_9263 = BgL_opt1177z00_214;
										}
									else
										{
											obj_t BgL_auxz00_9266;

											BgL_auxz00_9266 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
												BGl_string3128z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1177z00_214);
											FAILURE(BgL_auxz00_9266, BFALSE, BFALSE);
										}
									BgL_start1z00_1953 = VECTOR_REF(BgL_auxz00_9263, 2L);
								}
								{	/* Ieee/string.scm 1306 */
									obj_t BgL_end1z00_1954;

									{
										obj_t BgL_auxz00_9271;

										if (VECTORP(BgL_opt1177z00_214))
											{	/* Ieee/string.scm 1306 */
												BgL_auxz00_9271 = BgL_opt1177z00_214;
											}
										else
											{
												obj_t BgL_auxz00_9274;

												BgL_auxz00_9274 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
													BGl_string3128z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1177z00_214);
												FAILURE(BgL_auxz00_9274, BFALSE, BFALSE);
											}
										BgL_end1z00_1954 = VECTOR_REF(BgL_auxz00_9271, 3L);
									}
									{	/* Ieee/string.scm 1306 */
										obj_t BgL_start2z00_1955;

										{
											obj_t BgL_auxz00_9279;

											if (VECTORP(BgL_opt1177z00_214))
												{	/* Ieee/string.scm 1306 */
													BgL_auxz00_9279 = BgL_opt1177z00_214;
												}
											else
												{
													obj_t BgL_auxz00_9282;

													BgL_auxz00_9282 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(53114L),
														BGl_string3128z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1177z00_214);
													FAILURE(BgL_auxz00_9282, BFALSE, BFALSE);
												}
											BgL_start2z00_1955 = VECTOR_REF(BgL_auxz00_9279, 4L);
										}
										{	/* Ieee/string.scm 1306 */

											{	/* Ieee/string.scm 1306 */
												bool_t BgL_tmpz00_9287;

												{	/* Ieee/string.scm 1306 */
													obj_t BgL_auxz00_9295;
													obj_t BgL_auxz00_9288;

													if (STRINGP(BgL_s2z00_1938))
														{	/* Ieee/string.scm 1306 */
															BgL_auxz00_9295 = BgL_s2z00_1938;
														}
													else
														{
															obj_t BgL_auxz00_9298;

															BgL_auxz00_9298 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(53114L),
																BGl_string3128z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s2z00_1938);
															FAILURE(BgL_auxz00_9298, BFALSE, BFALSE);
														}
													if (STRINGP(BgL_s1z00_1937))
														{	/* Ieee/string.scm 1306 */
															BgL_auxz00_9288 = BgL_s1z00_1937;
														}
													else
														{
															obj_t BgL_auxz00_9291;

															BgL_auxz00_9291 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(53114L),
																BGl_string3128z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s1z00_1937);
															FAILURE(BgL_auxz00_9291, BFALSE, BFALSE);
														}
													BgL_tmpz00_9287 =
														BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
														(BgL_auxz00_9288, BgL_auxz00_9295,
														BgL_start1z00_1953, BgL_end1z00_1954,
														BgL_start2z00_1955, BFALSE);
												}
												return BBOOL(BgL_tmpz00_9287);
											}
										}
									}
								}
							}
							break;
						case 6L:

							{	/* Ieee/string.scm 1306 */
								obj_t BgL_start1z00_1957;

								{
									obj_t BgL_auxz00_9304;

									if (VECTORP(BgL_opt1177z00_214))
										{	/* Ieee/string.scm 1306 */
											BgL_auxz00_9304 = BgL_opt1177z00_214;
										}
									else
										{
											obj_t BgL_auxz00_9307;

											BgL_auxz00_9307 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
												BGl_string3128z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1177z00_214);
											FAILURE(BgL_auxz00_9307, BFALSE, BFALSE);
										}
									BgL_start1z00_1957 = VECTOR_REF(BgL_auxz00_9304, 2L);
								}
								{	/* Ieee/string.scm 1306 */
									obj_t BgL_end1z00_1958;

									{
										obj_t BgL_auxz00_9312;

										if (VECTORP(BgL_opt1177z00_214))
											{	/* Ieee/string.scm 1306 */
												BgL_auxz00_9312 = BgL_opt1177z00_214;
											}
										else
											{
												obj_t BgL_auxz00_9315;

												BgL_auxz00_9315 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53114L),
													BGl_string3128z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1177z00_214);
												FAILURE(BgL_auxz00_9315, BFALSE, BFALSE);
											}
										BgL_end1z00_1958 = VECTOR_REF(BgL_auxz00_9312, 3L);
									}
									{	/* Ieee/string.scm 1306 */
										obj_t BgL_start2z00_1959;

										{
											obj_t BgL_auxz00_9320;

											if (VECTORP(BgL_opt1177z00_214))
												{	/* Ieee/string.scm 1306 */
													BgL_auxz00_9320 = BgL_opt1177z00_214;
												}
											else
												{
													obj_t BgL_auxz00_9323;

													BgL_auxz00_9323 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(53114L),
														BGl_string3128z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1177z00_214);
													FAILURE(BgL_auxz00_9323, BFALSE, BFALSE);
												}
											BgL_start2z00_1959 = VECTOR_REF(BgL_auxz00_9320, 4L);
										}
										{	/* Ieee/string.scm 1306 */
											obj_t BgL_end2z00_1960;

											{
												obj_t BgL_auxz00_9328;

												if (VECTORP(BgL_opt1177z00_214))
													{	/* Ieee/string.scm 1306 */
														BgL_auxz00_9328 = BgL_opt1177z00_214;
													}
												else
													{
														obj_t BgL_auxz00_9331;

														BgL_auxz00_9331 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(53114L),
															BGl_string3128z00zz__r4_strings_6_7z00,
															BGl_string3030z00zz__r4_strings_6_7z00,
															BgL_opt1177z00_214);
														FAILURE(BgL_auxz00_9331, BFALSE, BFALSE);
													}
												BgL_end2z00_1960 = VECTOR_REF(BgL_auxz00_9328, 5L);
											}
											{	/* Ieee/string.scm 1306 */

												{	/* Ieee/string.scm 1306 */
													bool_t BgL_tmpz00_9336;

													{	/* Ieee/string.scm 1306 */
														obj_t BgL_auxz00_9344;
														obj_t BgL_auxz00_9337;

														if (STRINGP(BgL_s2z00_1938))
															{	/* Ieee/string.scm 1306 */
																BgL_auxz00_9344 = BgL_s2z00_1938;
															}
														else
															{
																obj_t BgL_auxz00_9347;

																BgL_auxz00_9347 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(53114L),
																	BGl_string3128z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s2z00_1938);
																FAILURE(BgL_auxz00_9347, BFALSE, BFALSE);
															}
														if (STRINGP(BgL_s1z00_1937))
															{	/* Ieee/string.scm 1306 */
																BgL_auxz00_9337 = BgL_s1z00_1937;
															}
														else
															{
																obj_t BgL_auxz00_9340;

																BgL_auxz00_9340 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(53114L),
																	BGl_string3128z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s1z00_1937);
																FAILURE(BgL_auxz00_9340, BFALSE, BFALSE);
															}
														BgL_tmpz00_9336 =
															BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00
															(BgL_auxz00_9337, BgL_auxz00_9344,
															BgL_start1z00_1957, BgL_end1z00_1958,
															BgL_start2z00_1959, BgL_end2z00_1960);
													}
													return BBOOL(BgL_tmpz00_9336);
												}
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-prefix? */
	BGL_EXPORTED_DEF bool_t BGl_stringzd2prefixzf3z21zz__r4_strings_6_7z00(obj_t
		BgL_s1z00_208, obj_t BgL_s2z00_209, obj_t BgL_start1z00_210,
		obj_t BgL_end1z00_211, obj_t BgL_start2z00_212, obj_t BgL_end2z00_213)
	{
		{	/* Ieee/string.scm 1306 */
			{	/* Ieee/string.scm 1308 */
				long BgL_l1z00_1961;

				BgL_l1z00_1961 = STRING_LENGTH(BgL_s1z00_208);
				{	/* Ieee/string.scm 1308 */
					long BgL_l2z00_1962;

					BgL_l2z00_1962 = STRING_LENGTH(BgL_s2z00_209);
					{	/* Ieee/string.scm 1309 */
						obj_t BgL_e1z00_1963;

						{	/* Ieee/string.scm 1310 */
							obj_t BgL_procz00_3850;

							BgL_procz00_3850 = BGl_symbol3129z00zz__r4_strings_6_7z00;
							if (CBOOL(BgL_end1z00_211))
								{	/* Ieee/string.scm 1210 */
									if (((long) CINT(BgL_end1z00_211) <= 0L))
										{	/* Ieee/string.scm 1212 */
											BgL_e1z00_1963 =
												BGl_errorz00zz__errorz00(BgL_procz00_3850,
												string_append_3(BGl_string3110z00zz__r4_strings_6_7z00,
													BGl_string3111z00zz__r4_strings_6_7z00,
													BGl_string3112z00zz__r4_strings_6_7z00),
												BgL_end1z00_211);
										}
									else
										{	/* Ieee/string.scm 1212 */
											if (((long) CINT(BgL_end1z00_211) > BgL_l1z00_1961))
												{	/* Ieee/string.scm 1214 */
													BgL_e1z00_1963 =
														BGl_errorz00zz__errorz00(BgL_procz00_3850,
														string_append_3
														(BGl_string3113z00zz__r4_strings_6_7z00,
															BGl_string3111z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_end1z00_211);
												}
											else
												{	/* Ieee/string.scm 1214 */
													BgL_e1z00_1963 = BgL_end1z00_211;
												}
										}
								}
							else
								{	/* Ieee/string.scm 1210 */
									BgL_e1z00_1963 = BINT(BgL_l1z00_1961);
								}
						}
						{	/* Ieee/string.scm 1310 */
							obj_t BgL_e2z00_1964;

							{	/* Ieee/string.scm 1311 */
								obj_t BgL_procz00_3858;

								BgL_procz00_3858 = BGl_symbol3129z00zz__r4_strings_6_7z00;
								if (CBOOL(BgL_end2z00_213))
									{	/* Ieee/string.scm 1210 */
										if (((long) CINT(BgL_end2z00_213) <= 0L))
											{	/* Ieee/string.scm 1212 */
												BgL_e2z00_1964 =
													BGl_errorz00zz__errorz00(BgL_procz00_3858,
													string_append_3
													(BGl_string3110z00zz__r4_strings_6_7z00,
														BGl_string3114z00zz__r4_strings_6_7z00,
														BGl_string3112z00zz__r4_strings_6_7z00),
													BgL_end2z00_213);
											}
										else
											{	/* Ieee/string.scm 1212 */
												if (((long) CINT(BgL_end2z00_213) > BgL_l2z00_1962))
													{	/* Ieee/string.scm 1214 */
														BgL_e2z00_1964 =
															BGl_errorz00zz__errorz00(BgL_procz00_3858,
															string_append_3
															(BGl_string3113z00zz__r4_strings_6_7z00,
																BGl_string3114z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_end2z00_213);
													}
												else
													{	/* Ieee/string.scm 1214 */
														BgL_e2z00_1964 = BgL_end2z00_213;
													}
											}
									}
								else
									{	/* Ieee/string.scm 1210 */
										BgL_e2z00_1964 = BINT(BgL_l2z00_1962);
									}
							}
							{	/* Ieee/string.scm 1311 */
								obj_t BgL_b1z00_1965;

								{	/* Ieee/string.scm 1312 */
									obj_t BgL_procz00_3866;

									BgL_procz00_3866 = BGl_symbol3129z00zz__r4_strings_6_7z00;
									if (CBOOL(BgL_start1z00_210))
										{	/* Ieee/string.scm 1196 */
											if (((long) CINT(BgL_start1z00_210) < 0L))
												{	/* Ieee/string.scm 1198 */
													BgL_b1z00_1965 =
														BGl_errorz00zz__errorz00(BgL_procz00_3866,
														string_append_3
														(BGl_string3115z00zz__r4_strings_6_7z00,
															BGl_string3116z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_start1z00_210);
												}
											else
												{	/* Ieee/string.scm 1198 */
													if (
														((long) CINT(BgL_start1z00_210) >= BgL_l1z00_1961))
														{	/* Ieee/string.scm 1200 */
															BgL_b1z00_1965 =
																BGl_errorz00zz__errorz00(BgL_procz00_3866,
																string_append_3
																(BGl_string3117z00zz__r4_strings_6_7z00,
																	BGl_string3116z00zz__r4_strings_6_7z00,
																	BGl_string3112z00zz__r4_strings_6_7z00),
																BgL_start1z00_210);
														}
													else
														{	/* Ieee/string.scm 1200 */
															BgL_b1z00_1965 = BgL_start1z00_210;
														}
												}
										}
									else
										{	/* Ieee/string.scm 1196 */
											BgL_b1z00_1965 = BINT(0L);
										}
								}
								{	/* Ieee/string.scm 1312 */
									obj_t BgL_b2z00_1966;

									{	/* Ieee/string.scm 1313 */
										obj_t BgL_procz00_3874;

										BgL_procz00_3874 = BGl_symbol3129z00zz__r4_strings_6_7z00;
										if (CBOOL(BgL_start2z00_212))
											{	/* Ieee/string.scm 1196 */
												if (((long) CINT(BgL_start2z00_212) < 0L))
													{	/* Ieee/string.scm 1198 */
														BgL_b2z00_1966 =
															BGl_errorz00zz__errorz00(BgL_procz00_3874,
															string_append_3
															(BGl_string3115z00zz__r4_strings_6_7z00,
																BGl_string3118z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_start2z00_212);
													}
												else
													{	/* Ieee/string.scm 1198 */
														if (
															((long) CINT(BgL_start2z00_212) >=
																BgL_l2z00_1962))
															{	/* Ieee/string.scm 1200 */
																BgL_b2z00_1966 =
																	BGl_errorz00zz__errorz00(BgL_procz00_3874,
																	string_append_3
																	(BGl_string3117z00zz__r4_strings_6_7z00,
																		BGl_string3118z00zz__r4_strings_6_7z00,
																		BGl_string3112z00zz__r4_strings_6_7z00),
																	BgL_start2z00_212);
															}
														else
															{	/* Ieee/string.scm 1200 */
																BgL_b2z00_1966 = BgL_start2z00_212;
															}
													}
											}
										else
											{	/* Ieee/string.scm 1196 */
												BgL_b2z00_1966 = BINT(0L);
											}
									}
									{	/* Ieee/string.scm 1313 */

										{
											obj_t BgL_i1z00_1968;
											obj_t BgL_i2z00_1969;

											BgL_i1z00_1968 = BgL_b1z00_1965;
											BgL_i2z00_1969 = BgL_b2z00_1966;
										BgL_zc3z04anonymousza31802ze3z87_1970:
											if (
												((long) CINT(BgL_i1z00_1968) ==
													(long) CINT(BgL_e1z00_1963)))
												{	/* Ieee/string.scm 1317 */
													return ((bool_t) 1);
												}
											else
												{	/* Ieee/string.scm 1317 */
													if (
														((long) CINT(BgL_i2z00_1969) ==
															(long) CINT(BgL_e2z00_1964)))
														{	/* Ieee/string.scm 1319 */
															return ((bool_t) 0);
														}
													else
														{	/* Ieee/string.scm 1319 */
															if (
																(STRING_REF(BgL_s1z00_208,
																		(long) CINT(BgL_i1z00_1968)) ==
																	STRING_REF(BgL_s2z00_209,
																		(long) CINT(BgL_i2z00_1969))))
																{
																	obj_t BgL_i2z00_9425;
																	obj_t BgL_i1z00_9422;

																	BgL_i1z00_9422 =
																		ADDFX(BgL_i1z00_1968, BINT(1L));
																	BgL_i2z00_9425 =
																		ADDFX(BgL_i2z00_1969, BINT(1L));
																	BgL_i2z00_1969 = BgL_i2z00_9425;
																	BgL_i1z00_1968 = BgL_i1z00_9422;
																	goto BgL_zc3z04anonymousza31802ze3z87_1970;
																}
															else
																{	/* Ieee/string.scm 1321 */
																	return ((bool_t) 0);
																}
														}
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* _string-prefix-ci? */
	obj_t BGl__stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t
		BgL_env1182z00_223, obj_t BgL_opt1181z00_222)
	{
		{	/* Ieee/string.scm 1329 */
			{	/* Ieee/string.scm 1329 */
				obj_t BgL_s1z00_1981;
				obj_t BgL_s2z00_1982;

				{
					obj_t BgL_auxz00_9428;

					if (VECTORP(BgL_opt1181z00_222))
						{	/* Ieee/string.scm 1329 */
							BgL_auxz00_9428 = BgL_opt1181z00_222;
						}
					else
						{
							obj_t BgL_auxz00_9431;

							BgL_auxz00_9431 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
								BGl_string3131z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1181z00_222);
							FAILURE(BgL_auxz00_9431, BFALSE, BFALSE);
						}
					BgL_s1z00_1981 = VECTOR_REF(BgL_auxz00_9428, 0L);
				}
				{
					obj_t BgL_auxz00_9436;

					if (VECTORP(BgL_opt1181z00_222))
						{	/* Ieee/string.scm 1329 */
							BgL_auxz00_9436 = BgL_opt1181z00_222;
						}
					else
						{
							obj_t BgL_auxz00_9439;

							BgL_auxz00_9439 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
								BGl_string3131z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1181z00_222);
							FAILURE(BgL_auxz00_9439, BFALSE, BFALSE);
						}
					BgL_s2z00_1982 = VECTOR_REF(BgL_auxz00_9436, 1L);
				}
				{	/* Ieee/string.scm 1329 */
					long BgL_aux1184z00_1984;

					{
						obj_t BgL_auxz00_9444;

						if (VECTORP(BgL_opt1181z00_222))
							{	/* Ieee/string.scm 1329 */
								BgL_auxz00_9444 = BgL_opt1181z00_222;
							}
						else
							{
								obj_t BgL_auxz00_9447;

								BgL_auxz00_9447 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
									BGl_string3131z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1181z00_222);
								FAILURE(BgL_auxz00_9447, BFALSE, BFALSE);
							}
						BgL_aux1184z00_1984 = VECTOR_LENGTH(BgL_auxz00_9444);
					}
					switch (BgL_aux1184z00_1984)
						{
						case 2L:

							{	/* Ieee/string.scm 1329 */

								{	/* Ieee/string.scm 1329 */
									bool_t BgL_tmpz00_9452;

									{	/* Ieee/string.scm 1329 */
										obj_t BgL_auxz00_9460;
										obj_t BgL_auxz00_9453;

										if (STRINGP(BgL_s2z00_1982))
											{	/* Ieee/string.scm 1329 */
												BgL_auxz00_9460 = BgL_s2z00_1982;
											}
										else
											{
												obj_t BgL_auxz00_9463;

												BgL_auxz00_9463 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
													BGl_string3131z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s2z00_1982);
												FAILURE(BgL_auxz00_9463, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_s1z00_1981))
											{	/* Ieee/string.scm 1329 */
												BgL_auxz00_9453 = BgL_s1z00_1981;
											}
										else
											{
												obj_t BgL_auxz00_9456;

												BgL_auxz00_9456 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
													BGl_string3131z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s1z00_1981);
												FAILURE(BgL_auxz00_9456, BFALSE, BFALSE);
											}
										BgL_tmpz00_9452 =
											BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00
											(BgL_auxz00_9453, BgL_auxz00_9460, BFALSE, BFALSE, BFALSE,
											BFALSE);
									}
									return BBOOL(BgL_tmpz00_9452);
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1329 */
								obj_t BgL_start1z00_1989;

								{
									obj_t BgL_auxz00_9469;

									if (VECTORP(BgL_opt1181z00_222))
										{	/* Ieee/string.scm 1329 */
											BgL_auxz00_9469 = BgL_opt1181z00_222;
										}
									else
										{
											obj_t BgL_auxz00_9472;

											BgL_auxz00_9472 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
												BGl_string3131z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1181z00_222);
											FAILURE(BgL_auxz00_9472, BFALSE, BFALSE);
										}
									BgL_start1z00_1989 = VECTOR_REF(BgL_auxz00_9469, 2L);
								}
								{	/* Ieee/string.scm 1329 */

									{	/* Ieee/string.scm 1329 */
										bool_t BgL_tmpz00_9477;

										{	/* Ieee/string.scm 1329 */
											obj_t BgL_auxz00_9485;
											obj_t BgL_auxz00_9478;

											if (STRINGP(BgL_s2z00_1982))
												{	/* Ieee/string.scm 1329 */
													BgL_auxz00_9485 = BgL_s2z00_1982;
												}
											else
												{
													obj_t BgL_auxz00_9488;

													BgL_auxz00_9488 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(53959L),
														BGl_string3131z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s2z00_1982);
													FAILURE(BgL_auxz00_9488, BFALSE, BFALSE);
												}
											if (STRINGP(BgL_s1z00_1981))
												{	/* Ieee/string.scm 1329 */
													BgL_auxz00_9478 = BgL_s1z00_1981;
												}
											else
												{
													obj_t BgL_auxz00_9481;

													BgL_auxz00_9481 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(53959L),
														BGl_string3131z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s1z00_1981);
													FAILURE(BgL_auxz00_9481, BFALSE, BFALSE);
												}
											BgL_tmpz00_9477 =
												BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00
												(BgL_auxz00_9478, BgL_auxz00_9485, BgL_start1z00_1989,
												BFALSE, BFALSE, BFALSE);
										}
										return BBOOL(BgL_tmpz00_9477);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 1329 */
								obj_t BgL_start1z00_1993;

								{
									obj_t BgL_auxz00_9494;

									if (VECTORP(BgL_opt1181z00_222))
										{	/* Ieee/string.scm 1329 */
											BgL_auxz00_9494 = BgL_opt1181z00_222;
										}
									else
										{
											obj_t BgL_auxz00_9497;

											BgL_auxz00_9497 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
												BGl_string3131z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1181z00_222);
											FAILURE(BgL_auxz00_9497, BFALSE, BFALSE);
										}
									BgL_start1z00_1993 = VECTOR_REF(BgL_auxz00_9494, 2L);
								}
								{	/* Ieee/string.scm 1329 */
									obj_t BgL_end1z00_1994;

									{
										obj_t BgL_auxz00_9502;

										if (VECTORP(BgL_opt1181z00_222))
											{	/* Ieee/string.scm 1329 */
												BgL_auxz00_9502 = BgL_opt1181z00_222;
											}
										else
											{
												obj_t BgL_auxz00_9505;

												BgL_auxz00_9505 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
													BGl_string3131z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1181z00_222);
												FAILURE(BgL_auxz00_9505, BFALSE, BFALSE);
											}
										BgL_end1z00_1994 = VECTOR_REF(BgL_auxz00_9502, 3L);
									}
									{	/* Ieee/string.scm 1329 */

										{	/* Ieee/string.scm 1329 */
											bool_t BgL_tmpz00_9510;

											{	/* Ieee/string.scm 1329 */
												obj_t BgL_auxz00_9518;
												obj_t BgL_auxz00_9511;

												if (STRINGP(BgL_s2z00_1982))
													{	/* Ieee/string.scm 1329 */
														BgL_auxz00_9518 = BgL_s2z00_1982;
													}
												else
													{
														obj_t BgL_auxz00_9521;

														BgL_auxz00_9521 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(53959L),
															BGl_string3131z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s2z00_1982);
														FAILURE(BgL_auxz00_9521, BFALSE, BFALSE);
													}
												if (STRINGP(BgL_s1z00_1981))
													{	/* Ieee/string.scm 1329 */
														BgL_auxz00_9511 = BgL_s1z00_1981;
													}
												else
													{
														obj_t BgL_auxz00_9514;

														BgL_auxz00_9514 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(53959L),
															BGl_string3131z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s1z00_1981);
														FAILURE(BgL_auxz00_9514, BFALSE, BFALSE);
													}
												BgL_tmpz00_9510 =
													BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00
													(BgL_auxz00_9511, BgL_auxz00_9518, BgL_start1z00_1993,
													BgL_end1z00_1994, BFALSE, BFALSE);
											}
											return BBOOL(BgL_tmpz00_9510);
										}
									}
								}
							}
							break;
						case 5L:

							{	/* Ieee/string.scm 1329 */
								obj_t BgL_start1z00_1997;

								{
									obj_t BgL_auxz00_9527;

									if (VECTORP(BgL_opt1181z00_222))
										{	/* Ieee/string.scm 1329 */
											BgL_auxz00_9527 = BgL_opt1181z00_222;
										}
									else
										{
											obj_t BgL_auxz00_9530;

											BgL_auxz00_9530 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
												BGl_string3131z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1181z00_222);
											FAILURE(BgL_auxz00_9530, BFALSE, BFALSE);
										}
									BgL_start1z00_1997 = VECTOR_REF(BgL_auxz00_9527, 2L);
								}
								{	/* Ieee/string.scm 1329 */
									obj_t BgL_end1z00_1998;

									{
										obj_t BgL_auxz00_9535;

										if (VECTORP(BgL_opt1181z00_222))
											{	/* Ieee/string.scm 1329 */
												BgL_auxz00_9535 = BgL_opt1181z00_222;
											}
										else
											{
												obj_t BgL_auxz00_9538;

												BgL_auxz00_9538 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
													BGl_string3131z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1181z00_222);
												FAILURE(BgL_auxz00_9538, BFALSE, BFALSE);
											}
										BgL_end1z00_1998 = VECTOR_REF(BgL_auxz00_9535, 3L);
									}
									{	/* Ieee/string.scm 1329 */
										obj_t BgL_start2z00_1999;

										{
											obj_t BgL_auxz00_9543;

											if (VECTORP(BgL_opt1181z00_222))
												{	/* Ieee/string.scm 1329 */
													BgL_auxz00_9543 = BgL_opt1181z00_222;
												}
											else
												{
													obj_t BgL_auxz00_9546;

													BgL_auxz00_9546 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(53959L),
														BGl_string3131z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1181z00_222);
													FAILURE(BgL_auxz00_9546, BFALSE, BFALSE);
												}
											BgL_start2z00_1999 = VECTOR_REF(BgL_auxz00_9543, 4L);
										}
										{	/* Ieee/string.scm 1329 */

											{	/* Ieee/string.scm 1329 */
												bool_t BgL_tmpz00_9551;

												{	/* Ieee/string.scm 1329 */
													obj_t BgL_auxz00_9559;
													obj_t BgL_auxz00_9552;

													if (STRINGP(BgL_s2z00_1982))
														{	/* Ieee/string.scm 1329 */
															BgL_auxz00_9559 = BgL_s2z00_1982;
														}
													else
														{
															obj_t BgL_auxz00_9562;

															BgL_auxz00_9562 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(53959L),
																BGl_string3131z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s2z00_1982);
															FAILURE(BgL_auxz00_9562, BFALSE, BFALSE);
														}
													if (STRINGP(BgL_s1z00_1981))
														{	/* Ieee/string.scm 1329 */
															BgL_auxz00_9552 = BgL_s1z00_1981;
														}
													else
														{
															obj_t BgL_auxz00_9555;

															BgL_auxz00_9555 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(53959L),
																BGl_string3131z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s1z00_1981);
															FAILURE(BgL_auxz00_9555, BFALSE, BFALSE);
														}
													BgL_tmpz00_9551 =
														BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00
														(BgL_auxz00_9552, BgL_auxz00_9559,
														BgL_start1z00_1997, BgL_end1z00_1998,
														BgL_start2z00_1999, BFALSE);
												}
												return BBOOL(BgL_tmpz00_9551);
											}
										}
									}
								}
							}
							break;
						case 6L:

							{	/* Ieee/string.scm 1329 */
								obj_t BgL_start1z00_2001;

								{
									obj_t BgL_auxz00_9568;

									if (VECTORP(BgL_opt1181z00_222))
										{	/* Ieee/string.scm 1329 */
											BgL_auxz00_9568 = BgL_opt1181z00_222;
										}
									else
										{
											obj_t BgL_auxz00_9571;

											BgL_auxz00_9571 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
												BGl_string3131z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1181z00_222);
											FAILURE(BgL_auxz00_9571, BFALSE, BFALSE);
										}
									BgL_start1z00_2001 = VECTOR_REF(BgL_auxz00_9568, 2L);
								}
								{	/* Ieee/string.scm 1329 */
									obj_t BgL_end1z00_2002;

									{
										obj_t BgL_auxz00_9576;

										if (VECTORP(BgL_opt1181z00_222))
											{	/* Ieee/string.scm 1329 */
												BgL_auxz00_9576 = BgL_opt1181z00_222;
											}
										else
											{
												obj_t BgL_auxz00_9579;

												BgL_auxz00_9579 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(53959L),
													BGl_string3131z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1181z00_222);
												FAILURE(BgL_auxz00_9579, BFALSE, BFALSE);
											}
										BgL_end1z00_2002 = VECTOR_REF(BgL_auxz00_9576, 3L);
									}
									{	/* Ieee/string.scm 1329 */
										obj_t BgL_start2z00_2003;

										{
											obj_t BgL_auxz00_9584;

											if (VECTORP(BgL_opt1181z00_222))
												{	/* Ieee/string.scm 1329 */
													BgL_auxz00_9584 = BgL_opt1181z00_222;
												}
											else
												{
													obj_t BgL_auxz00_9587;

													BgL_auxz00_9587 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(53959L),
														BGl_string3131z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1181z00_222);
													FAILURE(BgL_auxz00_9587, BFALSE, BFALSE);
												}
											BgL_start2z00_2003 = VECTOR_REF(BgL_auxz00_9584, 4L);
										}
										{	/* Ieee/string.scm 1329 */
											obj_t BgL_end2z00_2004;

											{
												obj_t BgL_auxz00_9592;

												if (VECTORP(BgL_opt1181z00_222))
													{	/* Ieee/string.scm 1329 */
														BgL_auxz00_9592 = BgL_opt1181z00_222;
													}
												else
													{
														obj_t BgL_auxz00_9595;

														BgL_auxz00_9595 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(53959L),
															BGl_string3131z00zz__r4_strings_6_7z00,
															BGl_string3030z00zz__r4_strings_6_7z00,
															BgL_opt1181z00_222);
														FAILURE(BgL_auxz00_9595, BFALSE, BFALSE);
													}
												BgL_end2z00_2004 = VECTOR_REF(BgL_auxz00_9592, 5L);
											}
											{	/* Ieee/string.scm 1329 */

												{	/* Ieee/string.scm 1329 */
													bool_t BgL_tmpz00_9600;

													{	/* Ieee/string.scm 1329 */
														obj_t BgL_auxz00_9608;
														obj_t BgL_auxz00_9601;

														if (STRINGP(BgL_s2z00_1982))
															{	/* Ieee/string.scm 1329 */
																BgL_auxz00_9608 = BgL_s2z00_1982;
															}
														else
															{
																obj_t BgL_auxz00_9611;

																BgL_auxz00_9611 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(53959L),
																	BGl_string3131z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s2z00_1982);
																FAILURE(BgL_auxz00_9611, BFALSE, BFALSE);
															}
														if (STRINGP(BgL_s1z00_1981))
															{	/* Ieee/string.scm 1329 */
																BgL_auxz00_9601 = BgL_s1z00_1981;
															}
														else
															{
																obj_t BgL_auxz00_9604;

																BgL_auxz00_9604 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(53959L),
																	BGl_string3131z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s1z00_1981);
																FAILURE(BgL_auxz00_9604, BFALSE, BFALSE);
															}
														BgL_tmpz00_9600 =
															BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00
															(BgL_auxz00_9601, BgL_auxz00_9608,
															BgL_start1z00_2001, BgL_end1z00_2002,
															BgL_start2z00_2003, BgL_end2z00_2004);
													}
													return BBOOL(BgL_tmpz00_9600);
												}
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-prefix-ci? */
	BGL_EXPORTED_DEF bool_t
		BGl_stringzd2prefixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t BgL_s1z00_216,
		obj_t BgL_s2z00_217, obj_t BgL_start1z00_218, obj_t BgL_end1z00_219,
		obj_t BgL_start2z00_220, obj_t BgL_end2z00_221)
	{
		{	/* Ieee/string.scm 1329 */
			{	/* Ieee/string.scm 1331 */
				long BgL_l1z00_2005;

				BgL_l1z00_2005 = STRING_LENGTH(BgL_s1z00_216);
				{	/* Ieee/string.scm 1331 */
					long BgL_l2z00_2006;

					BgL_l2z00_2006 = STRING_LENGTH(BgL_s2z00_217);
					{	/* Ieee/string.scm 1332 */
						obj_t BgL_e1z00_2007;

						{	/* Ieee/string.scm 1333 */
							obj_t BgL_procz00_3896;

							BgL_procz00_3896 = BGl_symbol3132z00zz__r4_strings_6_7z00;
							if (CBOOL(BgL_end1z00_219))
								{	/* Ieee/string.scm 1210 */
									if (((long) CINT(BgL_end1z00_219) <= 0L))
										{	/* Ieee/string.scm 1212 */
											BgL_e1z00_2007 =
												BGl_errorz00zz__errorz00(BgL_procz00_3896,
												string_append_3(BGl_string3110z00zz__r4_strings_6_7z00,
													BGl_string3111z00zz__r4_strings_6_7z00,
													BGl_string3112z00zz__r4_strings_6_7z00),
												BgL_end1z00_219);
										}
									else
										{	/* Ieee/string.scm 1212 */
											if (((long) CINT(BgL_end1z00_219) > BgL_l1z00_2005))
												{	/* Ieee/string.scm 1214 */
													BgL_e1z00_2007 =
														BGl_errorz00zz__errorz00(BgL_procz00_3896,
														string_append_3
														(BGl_string3113z00zz__r4_strings_6_7z00,
															BGl_string3111z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_end1z00_219);
												}
											else
												{	/* Ieee/string.scm 1214 */
													BgL_e1z00_2007 = BgL_end1z00_219;
												}
										}
								}
							else
								{	/* Ieee/string.scm 1210 */
									BgL_e1z00_2007 = BINT(BgL_l1z00_2005);
								}
						}
						{	/* Ieee/string.scm 1333 */
							obj_t BgL_e2z00_2008;

							{	/* Ieee/string.scm 1334 */
								obj_t BgL_procz00_3904;

								BgL_procz00_3904 = BGl_symbol3132z00zz__r4_strings_6_7z00;
								if (CBOOL(BgL_end2z00_221))
									{	/* Ieee/string.scm 1210 */
										if (((long) CINT(BgL_end2z00_221) <= 0L))
											{	/* Ieee/string.scm 1212 */
												BgL_e2z00_2008 =
													BGl_errorz00zz__errorz00(BgL_procz00_3904,
													string_append_3
													(BGl_string3110z00zz__r4_strings_6_7z00,
														BGl_string3114z00zz__r4_strings_6_7z00,
														BGl_string3112z00zz__r4_strings_6_7z00),
													BgL_end2z00_221);
											}
										else
											{	/* Ieee/string.scm 1212 */
												if (((long) CINT(BgL_end2z00_221) > BgL_l2z00_2006))
													{	/* Ieee/string.scm 1214 */
														BgL_e2z00_2008 =
															BGl_errorz00zz__errorz00(BgL_procz00_3904,
															string_append_3
															(BGl_string3113z00zz__r4_strings_6_7z00,
																BGl_string3114z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_end2z00_221);
													}
												else
													{	/* Ieee/string.scm 1214 */
														BgL_e2z00_2008 = BgL_end2z00_221;
													}
											}
									}
								else
									{	/* Ieee/string.scm 1210 */
										BgL_e2z00_2008 = BINT(BgL_l2z00_2006);
									}
							}
							{	/* Ieee/string.scm 1334 */
								obj_t BgL_b1z00_2009;

								{	/* Ieee/string.scm 1335 */
									obj_t BgL_procz00_3912;

									BgL_procz00_3912 = BGl_symbol3132z00zz__r4_strings_6_7z00;
									if (CBOOL(BgL_start1z00_218))
										{	/* Ieee/string.scm 1196 */
											if (((long) CINT(BgL_start1z00_218) < 0L))
												{	/* Ieee/string.scm 1198 */
													BgL_b1z00_2009 =
														BGl_errorz00zz__errorz00(BgL_procz00_3912,
														string_append_3
														(BGl_string3115z00zz__r4_strings_6_7z00,
															BGl_string3116z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_start1z00_218);
												}
											else
												{	/* Ieee/string.scm 1198 */
													if (
														((long) CINT(BgL_start1z00_218) >= BgL_l1z00_2005))
														{	/* Ieee/string.scm 1200 */
															BgL_b1z00_2009 =
																BGl_errorz00zz__errorz00(BgL_procz00_3912,
																string_append_3
																(BGl_string3117z00zz__r4_strings_6_7z00,
																	BGl_string3116z00zz__r4_strings_6_7z00,
																	BGl_string3112z00zz__r4_strings_6_7z00),
																BgL_start1z00_218);
														}
													else
														{	/* Ieee/string.scm 1200 */
															BgL_b1z00_2009 = BgL_start1z00_218;
														}
												}
										}
									else
										{	/* Ieee/string.scm 1196 */
											BgL_b1z00_2009 = BINT(0L);
										}
								}
								{	/* Ieee/string.scm 1335 */
									obj_t BgL_b2z00_2010;

									{	/* Ieee/string.scm 1336 */
										obj_t BgL_procz00_3920;

										BgL_procz00_3920 = BGl_symbol3132z00zz__r4_strings_6_7z00;
										if (CBOOL(BgL_start2z00_220))
											{	/* Ieee/string.scm 1196 */
												if (((long) CINT(BgL_start2z00_220) < 0L))
													{	/* Ieee/string.scm 1198 */
														BgL_b2z00_2010 =
															BGl_errorz00zz__errorz00(BgL_procz00_3920,
															string_append_3
															(BGl_string3115z00zz__r4_strings_6_7z00,
																BGl_string3118z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_start2z00_220);
													}
												else
													{	/* Ieee/string.scm 1198 */
														if (
															((long) CINT(BgL_start2z00_220) >=
																BgL_l2z00_2006))
															{	/* Ieee/string.scm 1200 */
																BgL_b2z00_2010 =
																	BGl_errorz00zz__errorz00(BgL_procz00_3920,
																	string_append_3
																	(BGl_string3117z00zz__r4_strings_6_7z00,
																		BGl_string3118z00zz__r4_strings_6_7z00,
																		BGl_string3112z00zz__r4_strings_6_7z00),
																	BgL_start2z00_220);
															}
														else
															{	/* Ieee/string.scm 1200 */
																BgL_b2z00_2010 = BgL_start2z00_220;
															}
													}
											}
										else
											{	/* Ieee/string.scm 1196 */
												BgL_b2z00_2010 = BINT(0L);
											}
									}
									{	/* Ieee/string.scm 1336 */

										{
											obj_t BgL_i1z00_2012;
											obj_t BgL_i2z00_2013;

											BgL_i1z00_2012 = BgL_b1z00_2009;
											BgL_i2z00_2013 = BgL_b2z00_2010;
										BgL_zc3z04anonymousza31814ze3z87_2014:
											if (
												((long) CINT(BgL_i1z00_2012) ==
													(long) CINT(BgL_e1z00_2007)))
												{	/* Ieee/string.scm 1340 */
													return ((bool_t) 1);
												}
											else
												{	/* Ieee/string.scm 1340 */
													if (
														((long) CINT(BgL_i2z00_2013) ==
															(long) CINT(BgL_e2z00_2008)))
														{	/* Ieee/string.scm 1342 */
															return ((bool_t) 0);
														}
													else
														{	/* Ieee/string.scm 1342 */
															if (
																(toupper(STRING_REF(BgL_s1z00_216,
																			(long) CINT(BgL_i1z00_2012))) ==
																	toupper(STRING_REF(BgL_s2z00_217,
																			(long) CINT(BgL_i2z00_2013)))))
																{
																	obj_t BgL_i2z00_9691;
																	obj_t BgL_i1z00_9688;

																	BgL_i1z00_9688 =
																		ADDFX(BgL_i1z00_2012, BINT(1L));
																	BgL_i2z00_9691 =
																		ADDFX(BgL_i2z00_2013, BINT(1L));
																	BgL_i2z00_2013 = BgL_i2z00_9691;
																	BgL_i1z00_2012 = BgL_i1z00_9688;
																	goto BgL_zc3z04anonymousza31814ze3z87_2014;
																}
															else
																{	/* Ieee/string.scm 1344 */
																	return ((bool_t) 0);
																}
														}
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* _string-suffix? */
	obj_t BGl__stringzd2suffixzf3z21zz__r4_strings_6_7z00(obj_t
		BgL_env1186z00_231, obj_t BgL_opt1185z00_230)
	{
		{	/* Ieee/string.scm 1352 */
			{	/* Ieee/string.scm 1352 */
				obj_t BgL_s1z00_2025;
				obj_t BgL_s2z00_2026;

				{
					obj_t BgL_auxz00_9694;

					if (VECTORP(BgL_opt1185z00_230))
						{	/* Ieee/string.scm 1352 */
							BgL_auxz00_9694 = BgL_opt1185z00_230;
						}
					else
						{
							obj_t BgL_auxz00_9697;

							BgL_auxz00_9697 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
								BGl_string3134z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1185z00_230);
							FAILURE(BgL_auxz00_9697, BFALSE, BFALSE);
						}
					BgL_s1z00_2025 = VECTOR_REF(BgL_auxz00_9694, 0L);
				}
				{
					obj_t BgL_auxz00_9702;

					if (VECTORP(BgL_opt1185z00_230))
						{	/* Ieee/string.scm 1352 */
							BgL_auxz00_9702 = BgL_opt1185z00_230;
						}
					else
						{
							obj_t BgL_auxz00_9705;

							BgL_auxz00_9705 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
								BGl_string3134z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1185z00_230);
							FAILURE(BgL_auxz00_9705, BFALSE, BFALSE);
						}
					BgL_s2z00_2026 = VECTOR_REF(BgL_auxz00_9702, 1L);
				}
				{	/* Ieee/string.scm 1352 */
					long BgL_aux1188z00_2028;

					{
						obj_t BgL_auxz00_9710;

						if (VECTORP(BgL_opt1185z00_230))
							{	/* Ieee/string.scm 1352 */
								BgL_auxz00_9710 = BgL_opt1185z00_230;
							}
						else
							{
								obj_t BgL_auxz00_9713;

								BgL_auxz00_9713 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
									BGl_string3134z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1185z00_230);
								FAILURE(BgL_auxz00_9713, BFALSE, BFALSE);
							}
						BgL_aux1188z00_2028 = VECTOR_LENGTH(BgL_auxz00_9710);
					}
					switch (BgL_aux1188z00_2028)
						{
						case 2L:

							{	/* Ieee/string.scm 1352 */

								{	/* Ieee/string.scm 1352 */
									bool_t BgL_tmpz00_9718;

									{	/* Ieee/string.scm 1352 */
										obj_t BgL_auxz00_9726;
										obj_t BgL_auxz00_9719;

										if (STRINGP(BgL_s2z00_2026))
											{	/* Ieee/string.scm 1352 */
												BgL_auxz00_9726 = BgL_s2z00_2026;
											}
										else
											{
												obj_t BgL_auxz00_9729;

												BgL_auxz00_9729 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
													BGl_string3134z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s2z00_2026);
												FAILURE(BgL_auxz00_9729, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_s1z00_2025))
											{	/* Ieee/string.scm 1352 */
												BgL_auxz00_9719 = BgL_s1z00_2025;
											}
										else
											{
												obj_t BgL_auxz00_9722;

												BgL_auxz00_9722 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
													BGl_string3134z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s1z00_2025);
												FAILURE(BgL_auxz00_9722, BFALSE, BFALSE);
											}
										BgL_tmpz00_9718 =
											BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00
											(BgL_auxz00_9719, BgL_auxz00_9726, BFALSE, BFALSE, BFALSE,
											BFALSE);
									}
									return BBOOL(BgL_tmpz00_9718);
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1352 */
								obj_t BgL_start1z00_2033;

								{
									obj_t BgL_auxz00_9735;

									if (VECTORP(BgL_opt1185z00_230))
										{	/* Ieee/string.scm 1352 */
											BgL_auxz00_9735 = BgL_opt1185z00_230;
										}
									else
										{
											obj_t BgL_auxz00_9738;

											BgL_auxz00_9738 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
												BGl_string3134z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1185z00_230);
											FAILURE(BgL_auxz00_9738, BFALSE, BFALSE);
										}
									BgL_start1z00_2033 = VECTOR_REF(BgL_auxz00_9735, 2L);
								}
								{	/* Ieee/string.scm 1352 */

									{	/* Ieee/string.scm 1352 */
										bool_t BgL_tmpz00_9743;

										{	/* Ieee/string.scm 1352 */
											obj_t BgL_auxz00_9751;
											obj_t BgL_auxz00_9744;

											if (STRINGP(BgL_s2z00_2026))
												{	/* Ieee/string.scm 1352 */
													BgL_auxz00_9751 = BgL_s2z00_2026;
												}
											else
												{
													obj_t BgL_auxz00_9754;

													BgL_auxz00_9754 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(54818L),
														BGl_string3134z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s2z00_2026);
													FAILURE(BgL_auxz00_9754, BFALSE, BFALSE);
												}
											if (STRINGP(BgL_s1z00_2025))
												{	/* Ieee/string.scm 1352 */
													BgL_auxz00_9744 = BgL_s1z00_2025;
												}
											else
												{
													obj_t BgL_auxz00_9747;

													BgL_auxz00_9747 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(54818L),
														BGl_string3134z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s1z00_2025);
													FAILURE(BgL_auxz00_9747, BFALSE, BFALSE);
												}
											BgL_tmpz00_9743 =
												BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00
												(BgL_auxz00_9744, BgL_auxz00_9751, BgL_start1z00_2033,
												BFALSE, BFALSE, BFALSE);
										}
										return BBOOL(BgL_tmpz00_9743);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 1352 */
								obj_t BgL_start1z00_2037;

								{
									obj_t BgL_auxz00_9760;

									if (VECTORP(BgL_opt1185z00_230))
										{	/* Ieee/string.scm 1352 */
											BgL_auxz00_9760 = BgL_opt1185z00_230;
										}
									else
										{
											obj_t BgL_auxz00_9763;

											BgL_auxz00_9763 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
												BGl_string3134z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1185z00_230);
											FAILURE(BgL_auxz00_9763, BFALSE, BFALSE);
										}
									BgL_start1z00_2037 = VECTOR_REF(BgL_auxz00_9760, 2L);
								}
								{	/* Ieee/string.scm 1352 */
									obj_t BgL_end1z00_2038;

									{
										obj_t BgL_auxz00_9768;

										if (VECTORP(BgL_opt1185z00_230))
											{	/* Ieee/string.scm 1352 */
												BgL_auxz00_9768 = BgL_opt1185z00_230;
											}
										else
											{
												obj_t BgL_auxz00_9771;

												BgL_auxz00_9771 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
													BGl_string3134z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1185z00_230);
												FAILURE(BgL_auxz00_9771, BFALSE, BFALSE);
											}
										BgL_end1z00_2038 = VECTOR_REF(BgL_auxz00_9768, 3L);
									}
									{	/* Ieee/string.scm 1352 */

										{	/* Ieee/string.scm 1352 */
											bool_t BgL_tmpz00_9776;

											{	/* Ieee/string.scm 1352 */
												obj_t BgL_auxz00_9784;
												obj_t BgL_auxz00_9777;

												if (STRINGP(BgL_s2z00_2026))
													{	/* Ieee/string.scm 1352 */
														BgL_auxz00_9784 = BgL_s2z00_2026;
													}
												else
													{
														obj_t BgL_auxz00_9787;

														BgL_auxz00_9787 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(54818L),
															BGl_string3134z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s2z00_2026);
														FAILURE(BgL_auxz00_9787, BFALSE, BFALSE);
													}
												if (STRINGP(BgL_s1z00_2025))
													{	/* Ieee/string.scm 1352 */
														BgL_auxz00_9777 = BgL_s1z00_2025;
													}
												else
													{
														obj_t BgL_auxz00_9780;

														BgL_auxz00_9780 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(54818L),
															BGl_string3134z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s1z00_2025);
														FAILURE(BgL_auxz00_9780, BFALSE, BFALSE);
													}
												BgL_tmpz00_9776 =
													BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00
													(BgL_auxz00_9777, BgL_auxz00_9784, BgL_start1z00_2037,
													BgL_end1z00_2038, BFALSE, BFALSE);
											}
											return BBOOL(BgL_tmpz00_9776);
										}
									}
								}
							}
							break;
						case 5L:

							{	/* Ieee/string.scm 1352 */
								obj_t BgL_start1z00_2041;

								{
									obj_t BgL_auxz00_9793;

									if (VECTORP(BgL_opt1185z00_230))
										{	/* Ieee/string.scm 1352 */
											BgL_auxz00_9793 = BgL_opt1185z00_230;
										}
									else
										{
											obj_t BgL_auxz00_9796;

											BgL_auxz00_9796 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
												BGl_string3134z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1185z00_230);
											FAILURE(BgL_auxz00_9796, BFALSE, BFALSE);
										}
									BgL_start1z00_2041 = VECTOR_REF(BgL_auxz00_9793, 2L);
								}
								{	/* Ieee/string.scm 1352 */
									obj_t BgL_end1z00_2042;

									{
										obj_t BgL_auxz00_9801;

										if (VECTORP(BgL_opt1185z00_230))
											{	/* Ieee/string.scm 1352 */
												BgL_auxz00_9801 = BgL_opt1185z00_230;
											}
										else
											{
												obj_t BgL_auxz00_9804;

												BgL_auxz00_9804 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
													BGl_string3134z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1185z00_230);
												FAILURE(BgL_auxz00_9804, BFALSE, BFALSE);
											}
										BgL_end1z00_2042 = VECTOR_REF(BgL_auxz00_9801, 3L);
									}
									{	/* Ieee/string.scm 1352 */
										obj_t BgL_start2z00_2043;

										{
											obj_t BgL_auxz00_9809;

											if (VECTORP(BgL_opt1185z00_230))
												{	/* Ieee/string.scm 1352 */
													BgL_auxz00_9809 = BgL_opt1185z00_230;
												}
											else
												{
													obj_t BgL_auxz00_9812;

													BgL_auxz00_9812 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(54818L),
														BGl_string3134z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1185z00_230);
													FAILURE(BgL_auxz00_9812, BFALSE, BFALSE);
												}
											BgL_start2z00_2043 = VECTOR_REF(BgL_auxz00_9809, 4L);
										}
										{	/* Ieee/string.scm 1352 */

											{	/* Ieee/string.scm 1352 */
												bool_t BgL_tmpz00_9817;

												{	/* Ieee/string.scm 1352 */
													obj_t BgL_auxz00_9825;
													obj_t BgL_auxz00_9818;

													if (STRINGP(BgL_s2z00_2026))
														{	/* Ieee/string.scm 1352 */
															BgL_auxz00_9825 = BgL_s2z00_2026;
														}
													else
														{
															obj_t BgL_auxz00_9828;

															BgL_auxz00_9828 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(54818L),
																BGl_string3134z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s2z00_2026);
															FAILURE(BgL_auxz00_9828, BFALSE, BFALSE);
														}
													if (STRINGP(BgL_s1z00_2025))
														{	/* Ieee/string.scm 1352 */
															BgL_auxz00_9818 = BgL_s1z00_2025;
														}
													else
														{
															obj_t BgL_auxz00_9821;

															BgL_auxz00_9821 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(54818L),
																BGl_string3134z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s1z00_2025);
															FAILURE(BgL_auxz00_9821, BFALSE, BFALSE);
														}
													BgL_tmpz00_9817 =
														BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00
														(BgL_auxz00_9818, BgL_auxz00_9825,
														BgL_start1z00_2041, BgL_end1z00_2042,
														BgL_start2z00_2043, BFALSE);
												}
												return BBOOL(BgL_tmpz00_9817);
											}
										}
									}
								}
							}
							break;
						case 6L:

							{	/* Ieee/string.scm 1352 */
								obj_t BgL_start1z00_2045;

								{
									obj_t BgL_auxz00_9834;

									if (VECTORP(BgL_opt1185z00_230))
										{	/* Ieee/string.scm 1352 */
											BgL_auxz00_9834 = BgL_opt1185z00_230;
										}
									else
										{
											obj_t BgL_auxz00_9837;

											BgL_auxz00_9837 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
												BGl_string3134z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1185z00_230);
											FAILURE(BgL_auxz00_9837, BFALSE, BFALSE);
										}
									BgL_start1z00_2045 = VECTOR_REF(BgL_auxz00_9834, 2L);
								}
								{	/* Ieee/string.scm 1352 */
									obj_t BgL_end1z00_2046;

									{
										obj_t BgL_auxz00_9842;

										if (VECTORP(BgL_opt1185z00_230))
											{	/* Ieee/string.scm 1352 */
												BgL_auxz00_9842 = BgL_opt1185z00_230;
											}
										else
											{
												obj_t BgL_auxz00_9845;

												BgL_auxz00_9845 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(54818L),
													BGl_string3134z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1185z00_230);
												FAILURE(BgL_auxz00_9845, BFALSE, BFALSE);
											}
										BgL_end1z00_2046 = VECTOR_REF(BgL_auxz00_9842, 3L);
									}
									{	/* Ieee/string.scm 1352 */
										obj_t BgL_start2z00_2047;

										{
											obj_t BgL_auxz00_9850;

											if (VECTORP(BgL_opt1185z00_230))
												{	/* Ieee/string.scm 1352 */
													BgL_auxz00_9850 = BgL_opt1185z00_230;
												}
											else
												{
													obj_t BgL_auxz00_9853;

													BgL_auxz00_9853 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(54818L),
														BGl_string3134z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1185z00_230);
													FAILURE(BgL_auxz00_9853, BFALSE, BFALSE);
												}
											BgL_start2z00_2047 = VECTOR_REF(BgL_auxz00_9850, 4L);
										}
										{	/* Ieee/string.scm 1352 */
											obj_t BgL_end2z00_2048;

											{
												obj_t BgL_auxz00_9858;

												if (VECTORP(BgL_opt1185z00_230))
													{	/* Ieee/string.scm 1352 */
														BgL_auxz00_9858 = BgL_opt1185z00_230;
													}
												else
													{
														obj_t BgL_auxz00_9861;

														BgL_auxz00_9861 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(54818L),
															BGl_string3134z00zz__r4_strings_6_7z00,
															BGl_string3030z00zz__r4_strings_6_7z00,
															BgL_opt1185z00_230);
														FAILURE(BgL_auxz00_9861, BFALSE, BFALSE);
													}
												BgL_end2z00_2048 = VECTOR_REF(BgL_auxz00_9858, 5L);
											}
											{	/* Ieee/string.scm 1352 */

												{	/* Ieee/string.scm 1352 */
													bool_t BgL_tmpz00_9866;

													{	/* Ieee/string.scm 1352 */
														obj_t BgL_auxz00_9874;
														obj_t BgL_auxz00_9867;

														if (STRINGP(BgL_s2z00_2026))
															{	/* Ieee/string.scm 1352 */
																BgL_auxz00_9874 = BgL_s2z00_2026;
															}
														else
															{
																obj_t BgL_auxz00_9877;

																BgL_auxz00_9877 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(54818L),
																	BGl_string3134z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s2z00_2026);
																FAILURE(BgL_auxz00_9877, BFALSE, BFALSE);
															}
														if (STRINGP(BgL_s1z00_2025))
															{	/* Ieee/string.scm 1352 */
																BgL_auxz00_9867 = BgL_s1z00_2025;
															}
														else
															{
																obj_t BgL_auxz00_9870;

																BgL_auxz00_9870 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(54818L),
																	BGl_string3134z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s1z00_2025);
																FAILURE(BgL_auxz00_9870, BFALSE, BFALSE);
															}
														BgL_tmpz00_9866 =
															BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00
															(BgL_auxz00_9867, BgL_auxz00_9874,
															BgL_start1z00_2045, BgL_end1z00_2046,
															BgL_start2z00_2047, BgL_end2z00_2048);
													}
													return BBOOL(BgL_tmpz00_9866);
												}
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-suffix? */
	BGL_EXPORTED_DEF bool_t BGl_stringzd2suffixzf3z21zz__r4_strings_6_7z00(obj_t
		BgL_s1z00_224, obj_t BgL_s2z00_225, obj_t BgL_start1z00_226,
		obj_t BgL_end1z00_227, obj_t BgL_start2z00_228, obj_t BgL_end2z00_229)
	{
		{	/* Ieee/string.scm 1352 */
			{	/* Ieee/string.scm 1354 */
				long BgL_l1z00_2049;

				BgL_l1z00_2049 = STRING_LENGTH(BgL_s1z00_224);
				{	/* Ieee/string.scm 1354 */
					long BgL_l2z00_2050;

					BgL_l2z00_2050 = STRING_LENGTH(BgL_s2z00_225);
					{	/* Ieee/string.scm 1355 */
						obj_t BgL_b1z00_2051;

						{	/* Ieee/string.scm 1356 */
							obj_t BgL_procz00_3948;

							BgL_procz00_3948 = BGl_symbol3135z00zz__r4_strings_6_7z00;
							if (CBOOL(BgL_end1z00_227))
								{	/* Ieee/string.scm 1210 */
									if (((long) CINT(BgL_end1z00_227) <= 0L))
										{	/* Ieee/string.scm 1212 */
											BgL_b1z00_2051 =
												BGl_errorz00zz__errorz00(BgL_procz00_3948,
												string_append_3(BGl_string3110z00zz__r4_strings_6_7z00,
													BGl_string3111z00zz__r4_strings_6_7z00,
													BGl_string3112z00zz__r4_strings_6_7z00),
												BgL_end1z00_227);
										}
									else
										{	/* Ieee/string.scm 1212 */
											if (((long) CINT(BgL_end1z00_227) > BgL_l1z00_2049))
												{	/* Ieee/string.scm 1214 */
													BgL_b1z00_2051 =
														BGl_errorz00zz__errorz00(BgL_procz00_3948,
														string_append_3
														(BGl_string3113z00zz__r4_strings_6_7z00,
															BGl_string3111z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_end1z00_227);
												}
											else
												{	/* Ieee/string.scm 1214 */
													BgL_b1z00_2051 = BgL_end1z00_227;
												}
										}
								}
							else
								{	/* Ieee/string.scm 1210 */
									BgL_b1z00_2051 = BINT(BgL_l1z00_2049);
								}
						}
						{	/* Ieee/string.scm 1356 */
							obj_t BgL_b2z00_2052;

							{	/* Ieee/string.scm 1357 */
								obj_t BgL_procz00_3956;

								BgL_procz00_3956 = BGl_symbol3135z00zz__r4_strings_6_7z00;
								if (CBOOL(BgL_end2z00_229))
									{	/* Ieee/string.scm 1210 */
										if (((long) CINT(BgL_end2z00_229) <= 0L))
											{	/* Ieee/string.scm 1212 */
												BgL_b2z00_2052 =
													BGl_errorz00zz__errorz00(BgL_procz00_3956,
													string_append_3
													(BGl_string3110z00zz__r4_strings_6_7z00,
														BGl_string3114z00zz__r4_strings_6_7z00,
														BGl_string3112z00zz__r4_strings_6_7z00),
													BgL_end2z00_229);
											}
										else
											{	/* Ieee/string.scm 1212 */
												if (((long) CINT(BgL_end2z00_229) > BgL_l2z00_2050))
													{	/* Ieee/string.scm 1214 */
														BgL_b2z00_2052 =
															BGl_errorz00zz__errorz00(BgL_procz00_3956,
															string_append_3
															(BGl_string3113z00zz__r4_strings_6_7z00,
																BGl_string3114z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_end2z00_229);
													}
												else
													{	/* Ieee/string.scm 1214 */
														BgL_b2z00_2052 = BgL_end2z00_229;
													}
											}
									}
								else
									{	/* Ieee/string.scm 1210 */
										BgL_b2z00_2052 = BINT(BgL_l2z00_2050);
									}
							}
							{	/* Ieee/string.scm 1357 */
								obj_t BgL_e1z00_2053;

								{	/* Ieee/string.scm 1358 */
									obj_t BgL_procz00_3964;

									BgL_procz00_3964 = BGl_symbol3135z00zz__r4_strings_6_7z00;
									if (CBOOL(BgL_start1z00_226))
										{	/* Ieee/string.scm 1196 */
											if (((long) CINT(BgL_start1z00_226) < 0L))
												{	/* Ieee/string.scm 1198 */
													BgL_e1z00_2053 =
														BGl_errorz00zz__errorz00(BgL_procz00_3964,
														string_append_3
														(BGl_string3115z00zz__r4_strings_6_7z00,
															BGl_string3116z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_start1z00_226);
												}
											else
												{	/* Ieee/string.scm 1198 */
													if (
														((long) CINT(BgL_start1z00_226) >= BgL_l1z00_2049))
														{	/* Ieee/string.scm 1200 */
															BgL_e1z00_2053 =
																BGl_errorz00zz__errorz00(BgL_procz00_3964,
																string_append_3
																(BGl_string3117z00zz__r4_strings_6_7z00,
																	BGl_string3116z00zz__r4_strings_6_7z00,
																	BGl_string3112z00zz__r4_strings_6_7z00),
																BgL_start1z00_226);
														}
													else
														{	/* Ieee/string.scm 1200 */
															BgL_e1z00_2053 = BgL_start1z00_226;
														}
												}
										}
									else
										{	/* Ieee/string.scm 1196 */
											BgL_e1z00_2053 = BINT(0L);
										}
								}
								{	/* Ieee/string.scm 1358 */
									obj_t BgL_e2z00_2054;

									{	/* Ieee/string.scm 1359 */
										obj_t BgL_procz00_3972;

										BgL_procz00_3972 = BGl_symbol3135z00zz__r4_strings_6_7z00;
										if (CBOOL(BgL_start2z00_228))
											{	/* Ieee/string.scm 1196 */
												if (((long) CINT(BgL_start2z00_228) < 0L))
													{	/* Ieee/string.scm 1198 */
														BgL_e2z00_2054 =
															BGl_errorz00zz__errorz00(BgL_procz00_3972,
															string_append_3
															(BGl_string3115z00zz__r4_strings_6_7z00,
																BGl_string3118z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_start2z00_228);
													}
												else
													{	/* Ieee/string.scm 1198 */
														if (
															((long) CINT(BgL_start2z00_228) >=
																BgL_l2z00_2050))
															{	/* Ieee/string.scm 1200 */
																BgL_e2z00_2054 =
																	BGl_errorz00zz__errorz00(BgL_procz00_3972,
																	string_append_3
																	(BGl_string3117z00zz__r4_strings_6_7z00,
																		BGl_string3118z00zz__r4_strings_6_7z00,
																		BGl_string3112z00zz__r4_strings_6_7z00),
																	BgL_start2z00_228);
															}
														else
															{	/* Ieee/string.scm 1200 */
																BgL_e2z00_2054 = BgL_start2z00_228;
															}
													}
											}
										else
											{	/* Ieee/string.scm 1196 */
												BgL_e2z00_2054 = BINT(0L);
											}
									}
									{	/* Ieee/string.scm 1359 */

										{
											long BgL_i1z00_2058;
											long BgL_i2z00_2059;

											BgL_i1z00_2058 = ((long) CINT(BgL_b1z00_2051) - 1L);
											BgL_i2z00_2059 = ((long) CINT(BgL_b2z00_2052) - 1L);
										BgL_zc3z04anonymousza31825ze3z87_2060:
											if ((BgL_i1z00_2058 < (long) CINT(BgL_e1z00_2053)))
												{	/* Ieee/string.scm 1363 */
													return ((bool_t) 1);
												}
											else
												{	/* Ieee/string.scm 1363 */
													if ((BgL_i2z00_2059 < (long) CINT(BgL_e2z00_2054)))
														{	/* Ieee/string.scm 1365 */
															return ((bool_t) 0);
														}
													else
														{	/* Ieee/string.scm 1365 */
															if (
																(STRING_REF(BgL_s1z00_224, BgL_i1z00_2058) ==
																	STRING_REF(BgL_s2z00_225, BgL_i2z00_2059)))
																{
																	long BgL_i2z00_9950;
																	long BgL_i1z00_9948;

																	BgL_i1z00_9948 = (BgL_i1z00_2058 - 1L);
																	BgL_i2z00_9950 = (BgL_i2z00_2059 - 1L);
																	BgL_i2z00_2059 = BgL_i2z00_9950;
																	BgL_i1z00_2058 = BgL_i1z00_9948;
																	goto BgL_zc3z04anonymousza31825ze3z87_2060;
																}
															else
																{	/* Ieee/string.scm 1367 */
																	return ((bool_t) 0);
																}
														}
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* _string-suffix-ci? */
	obj_t BGl__stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t
		BgL_env1190z00_239, obj_t BgL_opt1189z00_238)
	{
		{	/* Ieee/string.scm 1375 */
			{	/* Ieee/string.scm 1375 */
				obj_t BgL_s1z00_2071;
				obj_t BgL_s2z00_2072;

				{
					obj_t BgL_auxz00_9956;

					if (VECTORP(BgL_opt1189z00_238))
						{	/* Ieee/string.scm 1375 */
							BgL_auxz00_9956 = BgL_opt1189z00_238;
						}
					else
						{
							obj_t BgL_auxz00_9959;

							BgL_auxz00_9959 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
								BGl_string3137z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1189z00_238);
							FAILURE(BgL_auxz00_9959, BFALSE, BFALSE);
						}
					BgL_s1z00_2071 = VECTOR_REF(BgL_auxz00_9956, 0L);
				}
				{
					obj_t BgL_auxz00_9964;

					if (VECTORP(BgL_opt1189z00_238))
						{	/* Ieee/string.scm 1375 */
							BgL_auxz00_9964 = BgL_opt1189z00_238;
						}
					else
						{
							obj_t BgL_auxz00_9967;

							BgL_auxz00_9967 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
								BGl_string3137z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1189z00_238);
							FAILURE(BgL_auxz00_9967, BFALSE, BFALSE);
						}
					BgL_s2z00_2072 = VECTOR_REF(BgL_auxz00_9964, 1L);
				}
				{	/* Ieee/string.scm 1375 */
					long BgL_aux1192z00_2074;

					{
						obj_t BgL_auxz00_9972;

						if (VECTORP(BgL_opt1189z00_238))
							{	/* Ieee/string.scm 1375 */
								BgL_auxz00_9972 = BgL_opt1189z00_238;
							}
						else
							{
								obj_t BgL_auxz00_9975;

								BgL_auxz00_9975 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
									BGl_string3137z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1189z00_238);
								FAILURE(BgL_auxz00_9975, BFALSE, BFALSE);
							}
						BgL_aux1192z00_2074 = VECTOR_LENGTH(BgL_auxz00_9972);
					}
					switch (BgL_aux1192z00_2074)
						{
						case 2L:

							{	/* Ieee/string.scm 1375 */

								{	/* Ieee/string.scm 1375 */
									bool_t BgL_tmpz00_9980;

									{	/* Ieee/string.scm 1375 */
										obj_t BgL_auxz00_9988;
										obj_t BgL_auxz00_9981;

										if (STRINGP(BgL_s2z00_2072))
											{	/* Ieee/string.scm 1375 */
												BgL_auxz00_9988 = BgL_s2z00_2072;
											}
										else
											{
												obj_t BgL_auxz00_9991;

												BgL_auxz00_9991 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
													BGl_string3137z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s2z00_2072);
												FAILURE(BgL_auxz00_9991, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_s1z00_2071))
											{	/* Ieee/string.scm 1375 */
												BgL_auxz00_9981 = BgL_s1z00_2071;
											}
										else
											{
												obj_t BgL_auxz00_9984;

												BgL_auxz00_9984 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
													BGl_string3137z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_s1z00_2071);
												FAILURE(BgL_auxz00_9984, BFALSE, BFALSE);
											}
										BgL_tmpz00_9980 =
											BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00
											(BgL_auxz00_9981, BgL_auxz00_9988, BFALSE, BFALSE, BFALSE,
											BFALSE);
									}
									return BBOOL(BgL_tmpz00_9980);
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1375 */
								obj_t BgL_start1z00_2079;

								{
									obj_t BgL_auxz00_9997;

									if (VECTORP(BgL_opt1189z00_238))
										{	/* Ieee/string.scm 1375 */
											BgL_auxz00_9997 = BgL_opt1189z00_238;
										}
									else
										{
											obj_t BgL_auxz00_10000;

											BgL_auxz00_10000 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
												BGl_string3137z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1189z00_238);
											FAILURE(BgL_auxz00_10000, BFALSE, BFALSE);
										}
									BgL_start1z00_2079 = VECTOR_REF(BgL_auxz00_9997, 2L);
								}
								{	/* Ieee/string.scm 1375 */

									{	/* Ieee/string.scm 1375 */
										bool_t BgL_tmpz00_10005;

										{	/* Ieee/string.scm 1375 */
											obj_t BgL_auxz00_10013;
											obj_t BgL_auxz00_10006;

											if (STRINGP(BgL_s2z00_2072))
												{	/* Ieee/string.scm 1375 */
													BgL_auxz00_10013 = BgL_s2z00_2072;
												}
											else
												{
													obj_t BgL_auxz00_10016;

													BgL_auxz00_10016 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(55679L),
														BGl_string3137z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s2z00_2072);
													FAILURE(BgL_auxz00_10016, BFALSE, BFALSE);
												}
											if (STRINGP(BgL_s1z00_2071))
												{	/* Ieee/string.scm 1375 */
													BgL_auxz00_10006 = BgL_s1z00_2071;
												}
											else
												{
													obj_t BgL_auxz00_10009;

													BgL_auxz00_10009 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(55679L),
														BGl_string3137z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_s1z00_2071);
													FAILURE(BgL_auxz00_10009, BFALSE, BFALSE);
												}
											BgL_tmpz00_10005 =
												BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00
												(BgL_auxz00_10006, BgL_auxz00_10013, BgL_start1z00_2079,
												BFALSE, BFALSE, BFALSE);
										}
										return BBOOL(BgL_tmpz00_10005);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 1375 */
								obj_t BgL_start1z00_2083;

								{
									obj_t BgL_auxz00_10022;

									if (VECTORP(BgL_opt1189z00_238))
										{	/* Ieee/string.scm 1375 */
											BgL_auxz00_10022 = BgL_opt1189z00_238;
										}
									else
										{
											obj_t BgL_auxz00_10025;

											BgL_auxz00_10025 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
												BGl_string3137z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1189z00_238);
											FAILURE(BgL_auxz00_10025, BFALSE, BFALSE);
										}
									BgL_start1z00_2083 = VECTOR_REF(BgL_auxz00_10022, 2L);
								}
								{	/* Ieee/string.scm 1375 */
									obj_t BgL_end1z00_2084;

									{
										obj_t BgL_auxz00_10030;

										if (VECTORP(BgL_opt1189z00_238))
											{	/* Ieee/string.scm 1375 */
												BgL_auxz00_10030 = BgL_opt1189z00_238;
											}
										else
											{
												obj_t BgL_auxz00_10033;

												BgL_auxz00_10033 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
													BGl_string3137z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1189z00_238);
												FAILURE(BgL_auxz00_10033, BFALSE, BFALSE);
											}
										BgL_end1z00_2084 = VECTOR_REF(BgL_auxz00_10030, 3L);
									}
									{	/* Ieee/string.scm 1375 */

										{	/* Ieee/string.scm 1375 */
											bool_t BgL_tmpz00_10038;

											{	/* Ieee/string.scm 1375 */
												obj_t BgL_auxz00_10046;
												obj_t BgL_auxz00_10039;

												if (STRINGP(BgL_s2z00_2072))
													{	/* Ieee/string.scm 1375 */
														BgL_auxz00_10046 = BgL_s2z00_2072;
													}
												else
													{
														obj_t BgL_auxz00_10049;

														BgL_auxz00_10049 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(55679L),
															BGl_string3137z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s2z00_2072);
														FAILURE(BgL_auxz00_10049, BFALSE, BFALSE);
													}
												if (STRINGP(BgL_s1z00_2071))
													{	/* Ieee/string.scm 1375 */
														BgL_auxz00_10039 = BgL_s1z00_2071;
													}
												else
													{
														obj_t BgL_auxz00_10042;

														BgL_auxz00_10042 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(55679L),
															BGl_string3137z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_s1z00_2071);
														FAILURE(BgL_auxz00_10042, BFALSE, BFALSE);
													}
												BgL_tmpz00_10038 =
													BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00
													(BgL_auxz00_10039, BgL_auxz00_10046,
													BgL_start1z00_2083, BgL_end1z00_2084, BFALSE, BFALSE);
											}
											return BBOOL(BgL_tmpz00_10038);
										}
									}
								}
							}
							break;
						case 5L:

							{	/* Ieee/string.scm 1375 */
								obj_t BgL_start1z00_2087;

								{
									obj_t BgL_auxz00_10055;

									if (VECTORP(BgL_opt1189z00_238))
										{	/* Ieee/string.scm 1375 */
											BgL_auxz00_10055 = BgL_opt1189z00_238;
										}
									else
										{
											obj_t BgL_auxz00_10058;

											BgL_auxz00_10058 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
												BGl_string3137z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1189z00_238);
											FAILURE(BgL_auxz00_10058, BFALSE, BFALSE);
										}
									BgL_start1z00_2087 = VECTOR_REF(BgL_auxz00_10055, 2L);
								}
								{	/* Ieee/string.scm 1375 */
									obj_t BgL_end1z00_2088;

									{
										obj_t BgL_auxz00_10063;

										if (VECTORP(BgL_opt1189z00_238))
											{	/* Ieee/string.scm 1375 */
												BgL_auxz00_10063 = BgL_opt1189z00_238;
											}
										else
											{
												obj_t BgL_auxz00_10066;

												BgL_auxz00_10066 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
													BGl_string3137z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1189z00_238);
												FAILURE(BgL_auxz00_10066, BFALSE, BFALSE);
											}
										BgL_end1z00_2088 = VECTOR_REF(BgL_auxz00_10063, 3L);
									}
									{	/* Ieee/string.scm 1375 */
										obj_t BgL_start2z00_2089;

										{
											obj_t BgL_auxz00_10071;

											if (VECTORP(BgL_opt1189z00_238))
												{	/* Ieee/string.scm 1375 */
													BgL_auxz00_10071 = BgL_opt1189z00_238;
												}
											else
												{
													obj_t BgL_auxz00_10074;

													BgL_auxz00_10074 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(55679L),
														BGl_string3137z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1189z00_238);
													FAILURE(BgL_auxz00_10074, BFALSE, BFALSE);
												}
											BgL_start2z00_2089 = VECTOR_REF(BgL_auxz00_10071, 4L);
										}
										{	/* Ieee/string.scm 1375 */

											{	/* Ieee/string.scm 1375 */
												bool_t BgL_tmpz00_10079;

												{	/* Ieee/string.scm 1375 */
													obj_t BgL_auxz00_10087;
													obj_t BgL_auxz00_10080;

													if (STRINGP(BgL_s2z00_2072))
														{	/* Ieee/string.scm 1375 */
															BgL_auxz00_10087 = BgL_s2z00_2072;
														}
													else
														{
															obj_t BgL_auxz00_10090;

															BgL_auxz00_10090 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(55679L),
																BGl_string3137z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s2z00_2072);
															FAILURE(BgL_auxz00_10090, BFALSE, BFALSE);
														}
													if (STRINGP(BgL_s1z00_2071))
														{	/* Ieee/string.scm 1375 */
															BgL_auxz00_10080 = BgL_s1z00_2071;
														}
													else
														{
															obj_t BgL_auxz00_10083;

															BgL_auxz00_10083 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(55679L),
																BGl_string3137z00zz__r4_strings_6_7z00,
																BGl_string3028z00zz__r4_strings_6_7z00,
																BgL_s1z00_2071);
															FAILURE(BgL_auxz00_10083, BFALSE, BFALSE);
														}
													BgL_tmpz00_10079 =
														BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00
														(BgL_auxz00_10080, BgL_auxz00_10087,
														BgL_start1z00_2087, BgL_end1z00_2088,
														BgL_start2z00_2089, BFALSE);
												}
												return BBOOL(BgL_tmpz00_10079);
											}
										}
									}
								}
							}
							break;
						case 6L:

							{	/* Ieee/string.scm 1375 */
								obj_t BgL_start1z00_2091;

								{
									obj_t BgL_auxz00_10096;

									if (VECTORP(BgL_opt1189z00_238))
										{	/* Ieee/string.scm 1375 */
											BgL_auxz00_10096 = BgL_opt1189z00_238;
										}
									else
										{
											obj_t BgL_auxz00_10099;

											BgL_auxz00_10099 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
												BGl_string3137z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1189z00_238);
											FAILURE(BgL_auxz00_10099, BFALSE, BFALSE);
										}
									BgL_start1z00_2091 = VECTOR_REF(BgL_auxz00_10096, 2L);
								}
								{	/* Ieee/string.scm 1375 */
									obj_t BgL_end1z00_2092;

									{
										obj_t BgL_auxz00_10104;

										if (VECTORP(BgL_opt1189z00_238))
											{	/* Ieee/string.scm 1375 */
												BgL_auxz00_10104 = BgL_opt1189z00_238;
											}
										else
											{
												obj_t BgL_auxz00_10107;

												BgL_auxz00_10107 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(55679L),
													BGl_string3137z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1189z00_238);
												FAILURE(BgL_auxz00_10107, BFALSE, BFALSE);
											}
										BgL_end1z00_2092 = VECTOR_REF(BgL_auxz00_10104, 3L);
									}
									{	/* Ieee/string.scm 1375 */
										obj_t BgL_start2z00_2093;

										{
											obj_t BgL_auxz00_10112;

											if (VECTORP(BgL_opt1189z00_238))
												{	/* Ieee/string.scm 1375 */
													BgL_auxz00_10112 = BgL_opt1189z00_238;
												}
											else
												{
													obj_t BgL_auxz00_10115;

													BgL_auxz00_10115 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(55679L),
														BGl_string3137z00zz__r4_strings_6_7z00,
														BGl_string3030z00zz__r4_strings_6_7z00,
														BgL_opt1189z00_238);
													FAILURE(BgL_auxz00_10115, BFALSE, BFALSE);
												}
											BgL_start2z00_2093 = VECTOR_REF(BgL_auxz00_10112, 4L);
										}
										{	/* Ieee/string.scm 1375 */
											obj_t BgL_end2z00_2094;

											{
												obj_t BgL_auxz00_10120;

												if (VECTORP(BgL_opt1189z00_238))
													{	/* Ieee/string.scm 1375 */
														BgL_auxz00_10120 = BgL_opt1189z00_238;
													}
												else
													{
														obj_t BgL_auxz00_10123;

														BgL_auxz00_10123 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(55679L),
															BGl_string3137z00zz__r4_strings_6_7z00,
															BGl_string3030z00zz__r4_strings_6_7z00,
															BgL_opt1189z00_238);
														FAILURE(BgL_auxz00_10123, BFALSE, BFALSE);
													}
												BgL_end2z00_2094 = VECTOR_REF(BgL_auxz00_10120, 5L);
											}
											{	/* Ieee/string.scm 1375 */

												{	/* Ieee/string.scm 1375 */
													bool_t BgL_tmpz00_10128;

													{	/* Ieee/string.scm 1375 */
														obj_t BgL_auxz00_10136;
														obj_t BgL_auxz00_10129;

														if (STRINGP(BgL_s2z00_2072))
															{	/* Ieee/string.scm 1375 */
																BgL_auxz00_10136 = BgL_s2z00_2072;
															}
														else
															{
																obj_t BgL_auxz00_10139;

																BgL_auxz00_10139 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(55679L),
																	BGl_string3137z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s2z00_2072);
																FAILURE(BgL_auxz00_10139, BFALSE, BFALSE);
															}
														if (STRINGP(BgL_s1z00_2071))
															{	/* Ieee/string.scm 1375 */
																BgL_auxz00_10129 = BgL_s1z00_2071;
															}
														else
															{
																obj_t BgL_auxz00_10132;

																BgL_auxz00_10132 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(55679L),
																	BGl_string3137z00zz__r4_strings_6_7z00,
																	BGl_string3028z00zz__r4_strings_6_7z00,
																	BgL_s1z00_2071);
																FAILURE(BgL_auxz00_10132, BFALSE, BFALSE);
															}
														BgL_tmpz00_10128 =
															BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00
															(BgL_auxz00_10129, BgL_auxz00_10136,
															BgL_start1z00_2091, BgL_end1z00_2092,
															BgL_start2z00_2093, BgL_end2z00_2094);
													}
													return BBOOL(BgL_tmpz00_10128);
												}
											}
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-suffix-ci? */
	BGL_EXPORTED_DEF bool_t
		BGl_stringzd2suffixzd2cizf3zf3zz__r4_strings_6_7z00(obj_t BgL_s1z00_232,
		obj_t BgL_s2z00_233, obj_t BgL_start1z00_234, obj_t BgL_end1z00_235,
		obj_t BgL_start2z00_236, obj_t BgL_end2z00_237)
	{
		{	/* Ieee/string.scm 1375 */
			{	/* Ieee/string.scm 1377 */
				long BgL_l1z00_2095;

				BgL_l1z00_2095 = STRING_LENGTH(BgL_s1z00_232);
				{	/* Ieee/string.scm 1377 */
					long BgL_l2z00_2096;

					BgL_l2z00_2096 = STRING_LENGTH(BgL_s2z00_233);
					{	/* Ieee/string.scm 1378 */
						obj_t BgL_b1z00_2097;

						{	/* Ieee/string.scm 1379 */
							obj_t BgL_procz00_3996;

							BgL_procz00_3996 = BGl_symbol3108z00zz__r4_strings_6_7z00;
							if (CBOOL(BgL_end1z00_235))
								{	/* Ieee/string.scm 1210 */
									if (((long) CINT(BgL_end1z00_235) <= 0L))
										{	/* Ieee/string.scm 1212 */
											BgL_b1z00_2097 =
												BGl_errorz00zz__errorz00(BgL_procz00_3996,
												string_append_3(BGl_string3110z00zz__r4_strings_6_7z00,
													BGl_string3111z00zz__r4_strings_6_7z00,
													BGl_string3112z00zz__r4_strings_6_7z00),
												BgL_end1z00_235);
										}
									else
										{	/* Ieee/string.scm 1212 */
											if (((long) CINT(BgL_end1z00_235) > BgL_l1z00_2095))
												{	/* Ieee/string.scm 1214 */
													BgL_b1z00_2097 =
														BGl_errorz00zz__errorz00(BgL_procz00_3996,
														string_append_3
														(BGl_string3113z00zz__r4_strings_6_7z00,
															BGl_string3111z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_end1z00_235);
												}
											else
												{	/* Ieee/string.scm 1214 */
													BgL_b1z00_2097 = BgL_end1z00_235;
												}
										}
								}
							else
								{	/* Ieee/string.scm 1210 */
									BgL_b1z00_2097 = BINT(BgL_l1z00_2095);
								}
						}
						{	/* Ieee/string.scm 1379 */
							obj_t BgL_b2z00_2098;

							{	/* Ieee/string.scm 1380 */
								obj_t BgL_procz00_4004;

								BgL_procz00_4004 = BGl_symbol3108z00zz__r4_strings_6_7z00;
								if (CBOOL(BgL_end2z00_237))
									{	/* Ieee/string.scm 1210 */
										if (((long) CINT(BgL_end2z00_237) <= 0L))
											{	/* Ieee/string.scm 1212 */
												BgL_b2z00_2098 =
													BGl_errorz00zz__errorz00(BgL_procz00_4004,
													string_append_3
													(BGl_string3110z00zz__r4_strings_6_7z00,
														BGl_string3114z00zz__r4_strings_6_7z00,
														BGl_string3112z00zz__r4_strings_6_7z00),
													BgL_end2z00_237);
											}
										else
											{	/* Ieee/string.scm 1212 */
												if (((long) CINT(BgL_end2z00_237) > BgL_l2z00_2096))
													{	/* Ieee/string.scm 1214 */
														BgL_b2z00_2098 =
															BGl_errorz00zz__errorz00(BgL_procz00_4004,
															string_append_3
															(BGl_string3113z00zz__r4_strings_6_7z00,
																BGl_string3114z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_end2z00_237);
													}
												else
													{	/* Ieee/string.scm 1214 */
														BgL_b2z00_2098 = BgL_end2z00_237;
													}
											}
									}
								else
									{	/* Ieee/string.scm 1210 */
										BgL_b2z00_2098 = BINT(BgL_l2z00_2096);
									}
							}
							{	/* Ieee/string.scm 1380 */
								obj_t BgL_e1z00_2099;

								{	/* Ieee/string.scm 1381 */
									obj_t BgL_procz00_4012;

									BgL_procz00_4012 = BGl_symbol3108z00zz__r4_strings_6_7z00;
									if (CBOOL(BgL_start1z00_234))
										{	/* Ieee/string.scm 1196 */
											if (((long) CINT(BgL_start1z00_234) < 0L))
												{	/* Ieee/string.scm 1198 */
													BgL_e1z00_2099 =
														BGl_errorz00zz__errorz00(BgL_procz00_4012,
														string_append_3
														(BGl_string3115z00zz__r4_strings_6_7z00,
															BGl_string3116z00zz__r4_strings_6_7z00,
															BGl_string3112z00zz__r4_strings_6_7z00),
														BgL_start1z00_234);
												}
											else
												{	/* Ieee/string.scm 1198 */
													if (
														((long) CINT(BgL_start1z00_234) >= BgL_l1z00_2095))
														{	/* Ieee/string.scm 1200 */
															BgL_e1z00_2099 =
																BGl_errorz00zz__errorz00(BgL_procz00_4012,
																string_append_3
																(BGl_string3117z00zz__r4_strings_6_7z00,
																	BGl_string3116z00zz__r4_strings_6_7z00,
																	BGl_string3112z00zz__r4_strings_6_7z00),
																BgL_start1z00_234);
														}
													else
														{	/* Ieee/string.scm 1200 */
															BgL_e1z00_2099 = BgL_start1z00_234;
														}
												}
										}
									else
										{	/* Ieee/string.scm 1196 */
											BgL_e1z00_2099 = BINT(0L);
										}
								}
								{	/* Ieee/string.scm 1381 */
									obj_t BgL_e2z00_2100;

									{	/* Ieee/string.scm 1382 */
										obj_t BgL_procz00_4020;

										BgL_procz00_4020 = BGl_symbol3108z00zz__r4_strings_6_7z00;
										if (CBOOL(BgL_start2z00_236))
											{	/* Ieee/string.scm 1196 */
												if (((long) CINT(BgL_start2z00_236) < 0L))
													{	/* Ieee/string.scm 1198 */
														BgL_e2z00_2100 =
															BGl_errorz00zz__errorz00(BgL_procz00_4020,
															string_append_3
															(BGl_string3115z00zz__r4_strings_6_7z00,
																BGl_string3118z00zz__r4_strings_6_7z00,
																BGl_string3112z00zz__r4_strings_6_7z00),
															BgL_start2z00_236);
													}
												else
													{	/* Ieee/string.scm 1198 */
														if (
															((long) CINT(BgL_start2z00_236) >=
																BgL_l2z00_2096))
															{	/* Ieee/string.scm 1200 */
																BgL_e2z00_2100 =
																	BGl_errorz00zz__errorz00(BgL_procz00_4020,
																	string_append_3
																	(BGl_string3117z00zz__r4_strings_6_7z00,
																		BGl_string3118z00zz__r4_strings_6_7z00,
																		BGl_string3112z00zz__r4_strings_6_7z00),
																	BgL_start2z00_236);
															}
														else
															{	/* Ieee/string.scm 1200 */
																BgL_e2z00_2100 = BgL_start2z00_236;
															}
													}
											}
										else
											{	/* Ieee/string.scm 1196 */
												BgL_e2z00_2100 = BINT(0L);
											}
									}
									{	/* Ieee/string.scm 1382 */

										{
											long BgL_i1z00_2104;
											long BgL_i2z00_2105;

											BgL_i1z00_2104 = ((long) CINT(BgL_b1z00_2097) - 1L);
											BgL_i2z00_2105 = ((long) CINT(BgL_b2z00_2098) - 1L);
										BgL_zc3z04anonymousza31836ze3z87_2106:
											if ((BgL_i1z00_2104 < (long) CINT(BgL_e1z00_2099)))
												{	/* Ieee/string.scm 1386 */
													return ((bool_t) 1);
												}
											else
												{	/* Ieee/string.scm 1386 */
													if ((BgL_i2z00_2105 < (long) CINT(BgL_e2z00_2100)))
														{	/* Ieee/string.scm 1388 */
															return ((bool_t) 0);
														}
													else
														{	/* Ieee/string.scm 1388 */
															if (
																(toupper(STRING_REF(BgL_s1z00_232,
																			BgL_i1z00_2104)) ==
																	toupper(STRING_REF(BgL_s2z00_233,
																			BgL_i2z00_2105))))
																{
																	long BgL_i2z00_10214;
																	long BgL_i1z00_10212;

																	BgL_i1z00_10212 = (BgL_i1z00_2104 - 1L);
																	BgL_i2z00_10214 = (BgL_i2z00_2105 - 1L);
																	BgL_i2z00_2105 = BgL_i2z00_10214;
																	BgL_i1z00_2104 = BgL_i1z00_10212;
																	goto BgL_zc3z04anonymousza31836ze3z87_2106;
																}
															else
																{	/* Ieee/string.scm 1390 */
																	return ((bool_t) 0);
																}
														}
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* _string-natural-compare3 */
	obj_t BGl__stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00(obj_t
		BgL_env1194z00_245, obj_t BgL_opt1193z00_244)
	{
		{	/* Ieee/string.scm 1398 */
			{	/* Ieee/string.scm 1398 */
				obj_t BgL_g1195z00_2117;
				obj_t BgL_g1196z00_2118;

				{
					obj_t BgL_auxz00_10220;

					if (VECTORP(BgL_opt1193z00_244))
						{	/* Ieee/string.scm 1398 */
							BgL_auxz00_10220 = BgL_opt1193z00_244;
						}
					else
						{
							obj_t BgL_auxz00_10223;

							BgL_auxz00_10223 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56566L),
								BGl_string3138z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1193z00_244);
							FAILURE(BgL_auxz00_10223, BFALSE, BFALSE);
						}
					BgL_g1195z00_2117 = VECTOR_REF(BgL_auxz00_10220, 0L);
				}
				{
					obj_t BgL_auxz00_10228;

					if (VECTORP(BgL_opt1193z00_244))
						{	/* Ieee/string.scm 1398 */
							BgL_auxz00_10228 = BgL_opt1193z00_244;
						}
					else
						{
							obj_t BgL_auxz00_10231;

							BgL_auxz00_10231 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56566L),
								BGl_string3138z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1193z00_244);
							FAILURE(BgL_auxz00_10231, BFALSE, BFALSE);
						}
					BgL_g1196z00_2118 = VECTOR_REF(BgL_auxz00_10228, 1L);
				}
				{	/* Ieee/string.scm 1398 */
					long BgL_aux1198z00_2120;

					{
						obj_t BgL_auxz00_10236;

						if (VECTORP(BgL_opt1193z00_244))
							{	/* Ieee/string.scm 1398 */
								BgL_auxz00_10236 = BgL_opt1193z00_244;
							}
						else
							{
								obj_t BgL_auxz00_10239;

								BgL_auxz00_10239 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56566L),
									BGl_string3138z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1193z00_244);
								FAILURE(BgL_auxz00_10239, BFALSE, BFALSE);
							}
						BgL_aux1198z00_2120 = VECTOR_LENGTH(BgL_auxz00_10236);
					}
					switch (BgL_aux1198z00_2120)
						{
						case 2L:

							{	/* Ieee/string.scm 1398 */

								{	/* Ieee/string.scm 1398 */
									int BgL_res2199z00_4050;

									{	/* Ieee/string.scm 1398 */
										obj_t BgL_az00_4048;
										obj_t BgL_bz00_4049;

										if (STRINGP(BgL_g1195z00_2117))
											{	/* Ieee/string.scm 1398 */
												BgL_az00_4048 = BgL_g1195z00_2117;
											}
										else
											{
												obj_t BgL_auxz00_10246;

												BgL_auxz00_10246 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56566L),
													BGl_string3138z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1195z00_2117);
												FAILURE(BgL_auxz00_10246, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_g1196z00_2118))
											{	/* Ieee/string.scm 1398 */
												BgL_bz00_4049 = BgL_g1196z00_2118;
											}
										else
											{
												obj_t BgL_auxz00_10252;

												BgL_auxz00_10252 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56566L),
													BGl_string3138z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1196z00_2118);
												FAILURE(BgL_auxz00_10252, BFALSE, BFALSE);
											}
										{	/* Ieee/string.scm 1399 */
											obj_t BgL_tmpz00_10256;

											{	/* Ieee/string.scm 1399 */
												obj_t BgL_aux2955z00_5244;

												BgL_aux2955z00_5244 =
													BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_4048,
													BgL_bz00_4049, ((bool_t) 0), BINT(0L), BINT(0L));
												if (INTEGERP(BgL_aux2955z00_5244))
													{	/* Ieee/string.scm 1399 */
														BgL_tmpz00_10256 = BgL_aux2955z00_5244;
													}
												else
													{
														obj_t BgL_auxz00_10262;

														BgL_auxz00_10262 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(56640L),
															BGl_string3138z00zz__r4_strings_6_7z00,
															BGl_string3031z00zz__r4_strings_6_7z00,
															BgL_aux2955z00_5244);
														FAILURE(BgL_auxz00_10262, BFALSE, BFALSE);
													}
											}
											BgL_res2199z00_4050 = CINT(BgL_tmpz00_10256);
										}
									}
									return BINT(BgL_res2199z00_4050);
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1398 */
								obj_t BgL_start1z00_2123;

								{
									obj_t BgL_auxz00_10268;

									if (VECTORP(BgL_opt1193z00_244))
										{	/* Ieee/string.scm 1398 */
											BgL_auxz00_10268 = BgL_opt1193z00_244;
										}
									else
										{
											obj_t BgL_auxz00_10271;

											BgL_auxz00_10271 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56566L),
												BGl_string3138z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1193z00_244);
											FAILURE(BgL_auxz00_10271, BFALSE, BFALSE);
										}
									BgL_start1z00_2123 = VECTOR_REF(BgL_auxz00_10268, 2L);
								}
								{	/* Ieee/string.scm 1398 */

									{	/* Ieee/string.scm 1398 */
										int BgL_res2200z00_4053;

										{	/* Ieee/string.scm 1398 */
											obj_t BgL_az00_4051;
											obj_t BgL_bz00_4052;

											if (STRINGP(BgL_g1195z00_2117))
												{	/* Ieee/string.scm 1398 */
													BgL_az00_4051 = BgL_g1195z00_2117;
												}
											else
												{
													obj_t BgL_auxz00_10278;

													BgL_auxz00_10278 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(56566L),
														BGl_string3138z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_g1195z00_2117);
													FAILURE(BgL_auxz00_10278, BFALSE, BFALSE);
												}
											if (STRINGP(BgL_g1196z00_2118))
												{	/* Ieee/string.scm 1398 */
													BgL_bz00_4052 = BgL_g1196z00_2118;
												}
											else
												{
													obj_t BgL_auxz00_10284;

													BgL_auxz00_10284 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(56566L),
														BGl_string3138z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_g1196z00_2118);
													FAILURE(BgL_auxz00_10284, BFALSE, BFALSE);
												}
											{	/* Ieee/string.scm 1399 */
												obj_t BgL_tmpz00_10288;

												{	/* Ieee/string.scm 1399 */
													obj_t BgL_aux2962z00_5251;

													BgL_aux2962z00_5251 =
														BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_4051,
														BgL_bz00_4052, ((bool_t) 0), BgL_start1z00_2123,
														BINT(0L));
													if (INTEGERP(BgL_aux2962z00_5251))
														{	/* Ieee/string.scm 1399 */
															BgL_tmpz00_10288 = BgL_aux2962z00_5251;
														}
													else
														{
															obj_t BgL_auxz00_10293;

															BgL_auxz00_10293 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(56640L),
																BGl_string3138z00zz__r4_strings_6_7z00,
																BGl_string3031z00zz__r4_strings_6_7z00,
																BgL_aux2962z00_5251);
															FAILURE(BgL_auxz00_10293, BFALSE, BFALSE);
														}
												}
												BgL_res2200z00_4053 = CINT(BgL_tmpz00_10288);
											}
										}
										return BINT(BgL_res2200z00_4053);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 1398 */
								obj_t BgL_start1z00_2125;

								{
									obj_t BgL_auxz00_10299;

									if (VECTORP(BgL_opt1193z00_244))
										{	/* Ieee/string.scm 1398 */
											BgL_auxz00_10299 = BgL_opt1193z00_244;
										}
									else
										{
											obj_t BgL_auxz00_10302;

											BgL_auxz00_10302 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56566L),
												BGl_string3138z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1193z00_244);
											FAILURE(BgL_auxz00_10302, BFALSE, BFALSE);
										}
									BgL_start1z00_2125 = VECTOR_REF(BgL_auxz00_10299, 2L);
								}
								{	/* Ieee/string.scm 1398 */
									obj_t BgL_start2z00_2126;

									{
										obj_t BgL_auxz00_10307;

										if (VECTORP(BgL_opt1193z00_244))
											{	/* Ieee/string.scm 1398 */
												BgL_auxz00_10307 = BgL_opt1193z00_244;
											}
										else
											{
												obj_t BgL_auxz00_10310;

												BgL_auxz00_10310 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56566L),
													BGl_string3138z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1193z00_244);
												FAILURE(BgL_auxz00_10310, BFALSE, BFALSE);
											}
										BgL_start2z00_2126 = VECTOR_REF(BgL_auxz00_10307, 3L);
									}
									{	/* Ieee/string.scm 1398 */

										{	/* Ieee/string.scm 1398 */
											int BgL_res2201z00_4056;

											{	/* Ieee/string.scm 1398 */
												obj_t BgL_az00_4054;
												obj_t BgL_bz00_4055;

												if (STRINGP(BgL_g1195z00_2117))
													{	/* Ieee/string.scm 1398 */
														BgL_az00_4054 = BgL_g1195z00_2117;
													}
												else
													{
														obj_t BgL_auxz00_10317;

														BgL_auxz00_10317 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(56566L),
															BGl_string3138z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_g1195z00_2117);
														FAILURE(BgL_auxz00_10317, BFALSE, BFALSE);
													}
												if (STRINGP(BgL_g1196z00_2118))
													{	/* Ieee/string.scm 1398 */
														BgL_bz00_4055 = BgL_g1196z00_2118;
													}
												else
													{
														obj_t BgL_auxz00_10323;

														BgL_auxz00_10323 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(56566L),
															BGl_string3138z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_g1196z00_2118);
														FAILURE(BgL_auxz00_10323, BFALSE, BFALSE);
													}
												{	/* Ieee/string.scm 1399 */
													obj_t BgL_tmpz00_10327;

													{	/* Ieee/string.scm 1399 */
														obj_t BgL_aux2971z00_5260;

														BgL_aux2971z00_5260 =
															BGl_strnatcmpz00zz__r4_strings_6_7z00
															(BgL_az00_4054, BgL_bz00_4055, ((bool_t) 0),
															BgL_start1z00_2125, BgL_start2z00_2126);
														if (INTEGERP(BgL_aux2971z00_5260))
															{	/* Ieee/string.scm 1399 */
																BgL_tmpz00_10327 = BgL_aux2971z00_5260;
															}
														else
															{
																obj_t BgL_auxz00_10331;

																BgL_auxz00_10331 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(56640L),
																	BGl_string3138z00zz__r4_strings_6_7z00,
																	BGl_string3031z00zz__r4_strings_6_7z00,
																	BgL_aux2971z00_5260);
																FAILURE(BgL_auxz00_10331, BFALSE, BFALSE);
															}
													}
													BgL_res2201z00_4056 = CINT(BgL_tmpz00_10327);
												}
											}
											return BINT(BgL_res2201z00_4056);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-natural-compare3 */
	BGL_EXPORTED_DEF int
		BGl_stringzd2naturalzd2compare3z00zz__r4_strings_6_7z00(obj_t BgL_az00_240,
		obj_t BgL_bz00_241, obj_t BgL_start1z00_242, obj_t BgL_start2z00_243)
	{
		{	/* Ieee/string.scm 1398 */
			return
				CINT(BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_240, BgL_bz00_241,
					((bool_t) 0), BgL_start1z00_242, BgL_start2z00_243));
		}

	}



/* _string-natural-compare3-ci */
	obj_t BGl__stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00(obj_t
		BgL_env1200z00_251, obj_t BgL_opt1199z00_250)
	{
		{	/* Ieee/string.scm 1404 */
			{	/* Ieee/string.scm 1404 */
				obj_t BgL_g1201z00_2127;
				obj_t BgL_g1202z00_2128;

				{
					obj_t BgL_auxz00_10340;

					if (VECTORP(BgL_opt1199z00_250))
						{	/* Ieee/string.scm 1404 */
							BgL_auxz00_10340 = BgL_opt1199z00_250;
						}
					else
						{
							obj_t BgL_auxz00_10343;

							BgL_auxz00_10343 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56897L),
								BGl_string3139z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1199z00_250);
							FAILURE(BgL_auxz00_10343, BFALSE, BFALSE);
						}
					BgL_g1201z00_2127 = VECTOR_REF(BgL_auxz00_10340, 0L);
				}
				{
					obj_t BgL_auxz00_10348;

					if (VECTORP(BgL_opt1199z00_250))
						{	/* Ieee/string.scm 1404 */
							BgL_auxz00_10348 = BgL_opt1199z00_250;
						}
					else
						{
							obj_t BgL_auxz00_10351;

							BgL_auxz00_10351 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56897L),
								BGl_string3139z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1199z00_250);
							FAILURE(BgL_auxz00_10351, BFALSE, BFALSE);
						}
					BgL_g1202z00_2128 = VECTOR_REF(BgL_auxz00_10348, 1L);
				}
				{	/* Ieee/string.scm 1404 */
					long BgL_aux1204z00_2130;

					{
						obj_t BgL_auxz00_10356;

						if (VECTORP(BgL_opt1199z00_250))
							{	/* Ieee/string.scm 1404 */
								BgL_auxz00_10356 = BgL_opt1199z00_250;
							}
						else
							{
								obj_t BgL_auxz00_10359;

								BgL_auxz00_10359 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56897L),
									BGl_string3139z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1199z00_250);
								FAILURE(BgL_auxz00_10359, BFALSE, BFALSE);
							}
						BgL_aux1204z00_2130 = VECTOR_LENGTH(BgL_auxz00_10356);
					}
					switch (BgL_aux1204z00_2130)
						{
						case 2L:

							{	/* Ieee/string.scm 1404 */

								{	/* Ieee/string.scm 1404 */
									int BgL_res2202z00_4059;

									{	/* Ieee/string.scm 1404 */
										obj_t BgL_az00_4057;
										obj_t BgL_bz00_4058;

										if (STRINGP(BgL_g1201z00_2127))
											{	/* Ieee/string.scm 1404 */
												BgL_az00_4057 = BgL_g1201z00_2127;
											}
										else
											{
												obj_t BgL_auxz00_10366;

												BgL_auxz00_10366 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56897L),
													BGl_string3139z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1201z00_2127);
												FAILURE(BgL_auxz00_10366, BFALSE, BFALSE);
											}
										if (STRINGP(BgL_g1202z00_2128))
											{	/* Ieee/string.scm 1404 */
												BgL_bz00_4058 = BgL_g1202z00_2128;
											}
										else
											{
												obj_t BgL_auxz00_10372;

												BgL_auxz00_10372 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56897L),
													BGl_string3139z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_g1202z00_2128);
												FAILURE(BgL_auxz00_10372, BFALSE, BFALSE);
											}
										{	/* Ieee/string.scm 1405 */
											obj_t BgL_tmpz00_10376;

											{	/* Ieee/string.scm 1405 */
												obj_t BgL_aux2982z00_5271;

												BgL_aux2982z00_5271 =
													BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_4057,
													BgL_bz00_4058, ((bool_t) 1), BINT(0L), BINT(0L));
												if (INTEGERP(BgL_aux2982z00_5271))
													{	/* Ieee/string.scm 1405 */
														BgL_tmpz00_10376 = BgL_aux2982z00_5271;
													}
												else
													{
														obj_t BgL_auxz00_10382;

														BgL_auxz00_10382 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(56974L),
															BGl_string3139z00zz__r4_strings_6_7z00,
															BGl_string3031z00zz__r4_strings_6_7z00,
															BgL_aux2982z00_5271);
														FAILURE(BgL_auxz00_10382, BFALSE, BFALSE);
													}
											}
											BgL_res2202z00_4059 = CINT(BgL_tmpz00_10376);
										}
									}
									return BINT(BgL_res2202z00_4059);
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1404 */
								obj_t BgL_start1z00_2133;

								{
									obj_t BgL_auxz00_10388;

									if (VECTORP(BgL_opt1199z00_250))
										{	/* Ieee/string.scm 1404 */
											BgL_auxz00_10388 = BgL_opt1199z00_250;
										}
									else
										{
											obj_t BgL_auxz00_10391;

											BgL_auxz00_10391 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56897L),
												BGl_string3139z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1199z00_250);
											FAILURE(BgL_auxz00_10391, BFALSE, BFALSE);
										}
									BgL_start1z00_2133 = VECTOR_REF(BgL_auxz00_10388, 2L);
								}
								{	/* Ieee/string.scm 1404 */

									{	/* Ieee/string.scm 1404 */
										int BgL_res2203z00_4062;

										{	/* Ieee/string.scm 1404 */
											obj_t BgL_az00_4060;
											obj_t BgL_bz00_4061;

											if (STRINGP(BgL_g1201z00_2127))
												{	/* Ieee/string.scm 1404 */
													BgL_az00_4060 = BgL_g1201z00_2127;
												}
											else
												{
													obj_t BgL_auxz00_10398;

													BgL_auxz00_10398 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(56897L),
														BGl_string3139z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_g1201z00_2127);
													FAILURE(BgL_auxz00_10398, BFALSE, BFALSE);
												}
											if (STRINGP(BgL_g1202z00_2128))
												{	/* Ieee/string.scm 1404 */
													BgL_bz00_4061 = BgL_g1202z00_2128;
												}
											else
												{
													obj_t BgL_auxz00_10404;

													BgL_auxz00_10404 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(56897L),
														BGl_string3139z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_g1202z00_2128);
													FAILURE(BgL_auxz00_10404, BFALSE, BFALSE);
												}
											{	/* Ieee/string.scm 1405 */
												obj_t BgL_tmpz00_10408;

												{	/* Ieee/string.scm 1405 */
													obj_t BgL_aux2989z00_5278;

													BgL_aux2989z00_5278 =
														BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_4060,
														BgL_bz00_4061, ((bool_t) 1), BgL_start1z00_2133,
														BINT(0L));
													if (INTEGERP(BgL_aux2989z00_5278))
														{	/* Ieee/string.scm 1405 */
															BgL_tmpz00_10408 = BgL_aux2989z00_5278;
														}
													else
														{
															obj_t BgL_auxz00_10413;

															BgL_auxz00_10413 =
																BGl_typezd2errorzd2zz__errorz00
																(BGl_string3026z00zz__r4_strings_6_7z00,
																BINT(56974L),
																BGl_string3139z00zz__r4_strings_6_7z00,
																BGl_string3031z00zz__r4_strings_6_7z00,
																BgL_aux2989z00_5278);
															FAILURE(BgL_auxz00_10413, BFALSE, BFALSE);
														}
												}
												BgL_res2203z00_4062 = CINT(BgL_tmpz00_10408);
											}
										}
										return BINT(BgL_res2203z00_4062);
									}
								}
							}
							break;
						case 4L:

							{	/* Ieee/string.scm 1404 */
								obj_t BgL_start1z00_2135;

								{
									obj_t BgL_auxz00_10419;

									if (VECTORP(BgL_opt1199z00_250))
										{	/* Ieee/string.scm 1404 */
											BgL_auxz00_10419 = BgL_opt1199z00_250;
										}
									else
										{
											obj_t BgL_auxz00_10422;

											BgL_auxz00_10422 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56897L),
												BGl_string3139z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1199z00_250);
											FAILURE(BgL_auxz00_10422, BFALSE, BFALSE);
										}
									BgL_start1z00_2135 = VECTOR_REF(BgL_auxz00_10419, 2L);
								}
								{	/* Ieee/string.scm 1404 */
									obj_t BgL_start2z00_2136;

									{
										obj_t BgL_auxz00_10427;

										if (VECTORP(BgL_opt1199z00_250))
											{	/* Ieee/string.scm 1404 */
												BgL_auxz00_10427 = BgL_opt1199z00_250;
											}
										else
											{
												obj_t BgL_auxz00_10430;

												BgL_auxz00_10430 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(56897L),
													BGl_string3139z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1199z00_250);
												FAILURE(BgL_auxz00_10430, BFALSE, BFALSE);
											}
										BgL_start2z00_2136 = VECTOR_REF(BgL_auxz00_10427, 3L);
									}
									{	/* Ieee/string.scm 1404 */

										{	/* Ieee/string.scm 1404 */
											int BgL_res2204z00_4065;

											{	/* Ieee/string.scm 1404 */
												obj_t BgL_az00_4063;
												obj_t BgL_bz00_4064;

												if (STRINGP(BgL_g1201z00_2127))
													{	/* Ieee/string.scm 1404 */
														BgL_az00_4063 = BgL_g1201z00_2127;
													}
												else
													{
														obj_t BgL_auxz00_10437;

														BgL_auxz00_10437 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(56897L),
															BGl_string3139z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_g1201z00_2127);
														FAILURE(BgL_auxz00_10437, BFALSE, BFALSE);
													}
												if (STRINGP(BgL_g1202z00_2128))
													{	/* Ieee/string.scm 1404 */
														BgL_bz00_4064 = BgL_g1202z00_2128;
													}
												else
													{
														obj_t BgL_auxz00_10443;

														BgL_auxz00_10443 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(56897L),
															BGl_string3139z00zz__r4_strings_6_7z00,
															BGl_string3028z00zz__r4_strings_6_7z00,
															BgL_g1202z00_2128);
														FAILURE(BgL_auxz00_10443, BFALSE, BFALSE);
													}
												{	/* Ieee/string.scm 1405 */
													obj_t BgL_tmpz00_10447;

													{	/* Ieee/string.scm 1405 */
														obj_t BgL_aux2998z00_5287;

														BgL_aux2998z00_5287 =
															BGl_strnatcmpz00zz__r4_strings_6_7z00
															(BgL_az00_4063, BgL_bz00_4064, ((bool_t) 1),
															BgL_start1z00_2135, BgL_start2z00_2136);
														if (INTEGERP(BgL_aux2998z00_5287))
															{	/* Ieee/string.scm 1405 */
																BgL_tmpz00_10447 = BgL_aux2998z00_5287;
															}
														else
															{
																obj_t BgL_auxz00_10451;

																BgL_auxz00_10451 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string3026z00zz__r4_strings_6_7z00,
																	BINT(56974L),
																	BGl_string3139z00zz__r4_strings_6_7z00,
																	BGl_string3031z00zz__r4_strings_6_7z00,
																	BgL_aux2998z00_5287);
																FAILURE(BgL_auxz00_10451, BFALSE, BFALSE);
															}
													}
													BgL_res2204z00_4065 = CINT(BgL_tmpz00_10447);
												}
											}
											return BINT(BgL_res2204z00_4065);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-natural-compare3-ci */
	BGL_EXPORTED_DEF int
		BGl_stringzd2naturalzd2compare3zd2cizd2zz__r4_strings_6_7z00(obj_t
		BgL_az00_246, obj_t BgL_bz00_247, obj_t BgL_start1z00_248,
		obj_t BgL_start2z00_249)
	{
		{	/* Ieee/string.scm 1404 */
			return
				CINT(BGl_strnatcmpz00zz__r4_strings_6_7z00(BgL_az00_246, BgL_bz00_247,
					((bool_t) 1), BgL_start1z00_248, BgL_start2z00_249));
		}

	}



/* strnatcmp */
	obj_t BGl_strnatcmpz00zz__r4_strings_6_7z00(obj_t BgL_az00_252,
		obj_t BgL_bz00_253, bool_t BgL_foldcasez00_254, obj_t BgL_start1z00_255,
		obj_t BgL_start2z00_256)
	{
		{	/* Ieee/string.scm 1410 */
			{
				obj_t BgL_iaz00_2138;
				obj_t BgL_ibz00_2139;

				BgL_iaz00_2138 = BgL_start1z00_255;
				BgL_ibz00_2139 = BgL_start2z00_256;
			BgL_zc3z04anonymousza31848ze3z87_2140:
				{	/* Ieee/string.scm 1413 */
					unsigned char BgL_caz00_2141;
					unsigned char BgL_cbz00_2142;

					{	/* Ieee/string.scm 1413 */
						obj_t BgL_iz00_4066;

						BgL_iz00_4066 = BgL_iaz00_2138;
						if (((long) CINT(BgL_iz00_4066) >= STRING_LENGTH(BgL_az00_252)))
							{	/* Ieee/string.scm 1500 */
								BgL_caz00_2141 = ((unsigned char) '\000');
							}
						else
							{	/* Ieee/string.scm 1500 */
								BgL_caz00_2141 =
									STRING_REF(BgL_az00_252, (long) CINT(BgL_iz00_4066));
					}}
					{	/* Ieee/string.scm 1414 */
						obj_t BgL_iz00_4074;

						BgL_iz00_4074 = BgL_ibz00_2139;
						if (((long) CINT(BgL_iz00_4074) >= STRING_LENGTH(BgL_bz00_253)))
							{	/* Ieee/string.scm 1500 */
								BgL_cbz00_2142 = ((unsigned char) '\000');
							}
						else
							{	/* Ieee/string.scm 1500 */
								BgL_cbz00_2142 =
									STRING_REF(BgL_bz00_253, (long) CINT(BgL_iz00_4074));
					}}
					{

						if (isspace(BgL_caz00_2141))
							{	/* Ieee/string.scm 1416 */
								BgL_iaz00_2138 = ADDFX(BgL_iaz00_2138, BINT(1L));
								{	/* Ieee/string.scm 1418 */
									long BgL_iz00_4084;

									BgL_iz00_4084 = (long) CINT(BgL_iaz00_2138);
									if ((BgL_iz00_4084 >= STRING_LENGTH(BgL_az00_252)))
										{	/* Ieee/string.scm 1500 */
											BgL_caz00_2141 = ((unsigned char) '\000');
										}
									else
										{	/* Ieee/string.scm 1500 */
											BgL_caz00_2141 = STRING_REF(BgL_az00_252, BgL_iz00_4084);
										}
								}
							}
						else
							{	/* Ieee/string.scm 1416 */
								BFALSE;
							}
					}
					{

						if (isspace(BgL_cbz00_2142))
							{	/* Ieee/string.scm 1420 */
								BgL_ibz00_2139 = ADDFX(BgL_ibz00_2139, BINT(1L));
								{	/* Ieee/string.scm 1422 */
									long BgL_iz00_4094;

									BgL_iz00_4094 = (long) CINT(BgL_ibz00_2139);
									if ((BgL_iz00_4094 >= STRING_LENGTH(BgL_bz00_253)))
										{	/* Ieee/string.scm 1500 */
											BgL_cbz00_2142 = ((unsigned char) '\000');
										}
									else
										{	/* Ieee/string.scm 1500 */
											BgL_cbz00_2142 = STRING_REF(BgL_bz00_253, BgL_iz00_4094);
										}
								}
							}
						else
							{	/* Ieee/string.scm 1420 */
								BFALSE;
							}
					}
					{	/* Ieee/string.scm 1424 */
						bool_t BgL_test4051z00_10490;

						if (isdigit(BgL_caz00_2141))
							{	/* Ieee/string.scm 1424 */
								BgL_test4051z00_10490 = isdigit(BgL_cbz00_2142);
							}
						else
							{	/* Ieee/string.scm 1424 */
								BgL_test4051z00_10490 = ((bool_t) 0);
							}
						if (BgL_test4051z00_10490)
							{	/* Ieee/string.scm 1425 */
								bool_t BgL_test4053z00_10494;

								if ((BgL_caz00_2141 == ((unsigned char) '0')))
									{	/* Ieee/string.scm 1425 */
										BgL_test4053z00_10494 =
											(BgL_cbz00_2142 == ((unsigned char) '0'));
									}
								else
									{	/* Ieee/string.scm 1425 */
										BgL_test4053z00_10494 = ((bool_t) 0);
									}
								if (BgL_test4053z00_10494)
									{	/* Ieee/string.scm 1426 */
										long BgL_arg1857z00_2155;
										long BgL_arg1858z00_2156;

										BgL_arg1857z00_2155 = ((long) CINT(BgL_iaz00_2138) + 1L);
										BgL_arg1858z00_2156 = ((long) CINT(BgL_ibz00_2139) + 1L);
										{
											obj_t BgL_ibz00_10504;
											obj_t BgL_iaz00_10502;

											BgL_iaz00_10502 = BINT(BgL_arg1857z00_2155);
											BgL_ibz00_10504 = BINT(BgL_arg1858z00_2156);
											BgL_ibz00_2139 = BgL_ibz00_10504;
											BgL_iaz00_2138 = BgL_iaz00_10502;
											goto BgL_zc3z04anonymousza31848ze3z87_2140;
										}
									}
								else
									{	/* Ieee/string.scm 1427 */
										obj_t BgL_resultz00_2157;

										{	/* Ieee/string.scm 1427 */
											bool_t BgL_test4055z00_10506;

											if ((BgL_caz00_2141 == ((unsigned char) '0')))
												{	/* Ieee/string.scm 1427 */
													BgL_test4055z00_10506 = ((bool_t) 1);
												}
											else
												{	/* Ieee/string.scm 1427 */
													BgL_test4055z00_10506 =
														(BgL_cbz00_2142 == ((unsigned char) '0'));
												}
											if (BgL_test4055z00_10506)
												{	/* Ieee/string.scm 1427 */
													BgL_resultz00_2157 =
														BGl_comparezd2leftzd2zz__r4_strings_6_7z00
														(BgL_az00_252, BgL_iaz00_2138, BgL_bz00_253,
														BgL_ibz00_2139);
												}
											else
												{	/* Ieee/string.scm 1427 */
													BgL_resultz00_2157 =
														BGl_comparezd2rightzd2zz__r4_strings_6_7z00
														(BgL_az00_252, BgL_iaz00_2138, BgL_bz00_253,
														BgL_ibz00_2139);
												}
										}
										if (INTEGERP(BgL_resultz00_2157))
											{	/* Ieee/string.scm 1432 */
												long BgL_arg1860z00_2159;
												long BgL_arg1861z00_2160;

												BgL_arg1860z00_2159 =
													(
													(long) CINT(BgL_iaz00_2138) +
													(long) CINT(BgL_resultz00_2157));
												BgL_arg1861z00_2160 =
													(
													(long) CINT(BgL_ibz00_2139) +
													(long) CINT(BgL_resultz00_2157));
												{
													obj_t BgL_ibz00_10522;
													obj_t BgL_iaz00_10520;

													BgL_iaz00_10520 = BINT(BgL_arg1860z00_2159);
													BgL_ibz00_10522 = BINT(BgL_arg1861z00_2160);
													BgL_ibz00_2139 = BgL_ibz00_10522;
													BgL_iaz00_2138 = BgL_iaz00_10520;
													goto BgL_zc3z04anonymousza31848ze3z87_2140;
												}
											}
										else
											{	/* Ieee/string.scm 1431 */
												if (CBOOL(BgL_resultz00_2157))
													{	/* Ieee/string.scm 1433 */
														return BINT(1L);
													}
												else
													{	/* Ieee/string.scm 1433 */
														return BINT((-1L));
													}
											}
									}
							}
						else
							{	/* Ieee/string.scm 1437 */
								bool_t BgL_test4059z00_10528;

								if ((BgL_caz00_2141 == ((unsigned char) '\000')))
									{	/* Ieee/string.scm 1437 */
										BgL_test4059z00_10528 =
											(BgL_cbz00_2142 == ((unsigned char) '\000'));
									}
								else
									{	/* Ieee/string.scm 1437 */
										BgL_test4059z00_10528 = ((bool_t) 0);
									}
								if (BgL_test4059z00_10528)
									{	/* Ieee/string.scm 1437 */
										return BINT(0L);
									}
								else
									{	/* Ieee/string.scm 1439 */
										bool_t BgL_test4061z00_10533;

										if (BgL_foldcasez00_254)
											{	/* Ieee/string.scm 1439 */
												BgL_caz00_2141 = toupper(BgL_caz00_2141);
												BgL_cbz00_2142 = toupper(BgL_cbz00_2142);
												BgL_test4061z00_10533 = ((bool_t) 0);
											}
										else
											{	/* Ieee/string.scm 1439 */
												BgL_test4061z00_10533 = ((bool_t) 0);
											}
										if (BgL_test4061z00_10533)
											{	/* Ieee/string.scm 1439 */
												return BGl_symbol3140z00zz__r4_strings_6_7z00;
											}
										else
											{	/* Ieee/string.scm 1439 */
												if ((BgL_caz00_2141 < BgL_cbz00_2142))
													{	/* Ieee/string.scm 1444 */
														return BINT((-1L));
													}
												else
													{	/* Ieee/string.scm 1444 */
														if ((BgL_caz00_2141 > BgL_cbz00_2142))
															{	/* Ieee/string.scm 1446 */
																return BINT(1L);
															}
														else
															{	/* Ieee/string.scm 1449 */
																long BgL_arg1869z00_2170;
																long BgL_arg1870z00_2171;

																BgL_arg1869z00_2170 =
																	((long) CINT(BgL_iaz00_2138) + 1L);
																BgL_arg1870z00_2171 =
																	((long) CINT(BgL_ibz00_2139) + 1L);
																{
																	obj_t BgL_ibz00_10549;
																	obj_t BgL_iaz00_10547;

																	BgL_iaz00_10547 = BINT(BgL_arg1869z00_2170);
																	BgL_ibz00_10549 = BINT(BgL_arg1870z00_2171);
																	BgL_ibz00_2139 = BgL_ibz00_10549;
																	BgL_iaz00_2138 = BgL_iaz00_10547;
																	goto BgL_zc3z04anonymousza31848ze3z87_2140;
																}
															}
													}
											}
									}
							}
					}
				}
			}
		}

	}



/* compare-right */
	obj_t BGl_comparezd2rightzd2zz__r4_strings_6_7z00(obj_t BgL_az00_257,
		obj_t BgL_iaz00_258, obj_t BgL_bz00_259, obj_t BgL_ibz00_260)
	{
		{	/* Ieee/string.scm 1454 */
			{
				obj_t BgL_biasz00_2176;
				long BgL_iz00_2177;

				BgL_biasz00_2176 = BUNSPEC;
				BgL_iz00_2177 = 0L;
			BgL_zc3z04anonymousza31871ze3z87_2178:
				{	/* Ieee/string.scm 1457 */
					unsigned char BgL_caz00_2179;
					unsigned char BgL_cbz00_2180;

					{	/* Ieee/string.scm 1457 */
						long BgL_arg1886z00_2198;

						BgL_arg1886z00_2198 = (BgL_iz00_2177 + (long) CINT(BgL_iaz00_258));
						if ((BgL_arg1886z00_2198 >= STRING_LENGTH(BgL_az00_257)))
							{	/* Ieee/string.scm 1500 */
								BgL_caz00_2179 = ((unsigned char) '\000');
							}
						else
							{	/* Ieee/string.scm 1500 */
								BgL_caz00_2179 = STRING_REF(BgL_az00_257, BgL_arg1886z00_2198);
							}
					}
					{	/* Ieee/string.scm 1458 */
						long BgL_arg1887z00_2199;

						BgL_arg1887z00_2199 = (BgL_iz00_2177 + (long) CINT(BgL_ibz00_260));
						if ((BgL_arg1887z00_2199 >= STRING_LENGTH(BgL_bz00_259)))
							{	/* Ieee/string.scm 1500 */
								BgL_cbz00_2180 = ((unsigned char) '\000');
							}
						else
							{	/* Ieee/string.scm 1500 */
								BgL_cbz00_2180 = STRING_REF(BgL_bz00_259, BgL_arg1887z00_2199);
							}
					}
					{	/* Ieee/string.scm 1460 */
						bool_t BgL_test4067z00_10563;

						if (isdigit(BgL_caz00_2179))
							{	/* Ieee/string.scm 1460 */
								BgL_test4067z00_10563 = ((bool_t) 0);
							}
						else
							{	/* Ieee/string.scm 1460 */
								if (isdigit(BgL_cbz00_2180))
									{	/* Ieee/string.scm 1460 */
										BgL_test4067z00_10563 = ((bool_t) 0);
									}
								else
									{	/* Ieee/string.scm 1460 */
										BgL_test4067z00_10563 = ((bool_t) 1);
									}
							}
						if (BgL_test4067z00_10563)
							{	/* Ieee/string.scm 1460 */
								if ((BgL_biasz00_2176 == BUNSPEC))
									{	/* Ieee/string.scm 1461 */
										return BINT(BgL_iz00_2177);
									}
								else
									{	/* Ieee/string.scm 1461 */
										return BgL_biasz00_2176;
									}
							}
						else
							{	/* Ieee/string.scm 1460 */
								if (isdigit(BgL_caz00_2179))
									{	/* Ieee/string.scm 1462 */
										if (isdigit(BgL_cbz00_2180))
											{	/* Ieee/string.scm 1464 */
												if ((BgL_caz00_2179 < BgL_cbz00_2180))
													{
														long BgL_iz00_10580;
														obj_t BgL_biasz00_10577;

														if ((BgL_biasz00_2176 == BUNSPEC))
															{	/* Ieee/string.scm 1467 */
																BgL_biasz00_10577 = BFALSE;
															}
														else
															{	/* Ieee/string.scm 1467 */
																BgL_biasz00_10577 = BgL_biasz00_2176;
															}
														BgL_iz00_10580 = (BgL_iz00_2177 + 1L);
														BgL_iz00_2177 = BgL_iz00_10580;
														BgL_biasz00_2176 = BgL_biasz00_10577;
														goto BgL_zc3z04anonymousza31871ze3z87_2178;
													}
												else
													{	/* Ieee/string.scm 1466 */
														if ((BgL_caz00_2179 > BgL_cbz00_2180))
															{
																long BgL_iz00_10587;
																obj_t BgL_biasz00_10584;

																if ((BgL_biasz00_2176 == BUNSPEC))
																	{	/* Ieee/string.scm 1469 */
																		BgL_biasz00_10584 = BTRUE;
																	}
																else
																	{	/* Ieee/string.scm 1469 */
																		BgL_biasz00_10584 = BgL_biasz00_2176;
																	}
																BgL_iz00_10587 = (BgL_iz00_2177 + 1L);
																BgL_iz00_2177 = BgL_iz00_10587;
																BgL_biasz00_2176 = BgL_biasz00_10584;
																goto BgL_zc3z04anonymousza31871ze3z87_2178;
															}
														else
															{	/* Ieee/string.scm 1470 */
																bool_t BgL_test4077z00_10589;

																if (
																	(BgL_caz00_2179 == ((unsigned char) '\000')))
																	{	/* Ieee/string.scm 1470 */
																		BgL_test4077z00_10589 =
																			(BgL_cbz00_2180 ==
																			((unsigned char) '\000'));
																	}
																else
																	{	/* Ieee/string.scm 1470 */
																		BgL_test4077z00_10589 = ((bool_t) 0);
																	}
																if (BgL_test4077z00_10589)
																	{	/* Ieee/string.scm 1470 */
																		if ((BgL_biasz00_2176 == BUNSPEC))
																			{	/* Ieee/string.scm 1471 */
																				return BINT(BgL_iz00_2177);
																			}
																		else
																			{	/* Ieee/string.scm 1471 */
																				return BgL_biasz00_2176;
																			}
																	}
																else
																	{
																		long BgL_iz00_10596;

																		BgL_iz00_10596 = (BgL_iz00_2177 + 1L);
																		BgL_iz00_2177 = BgL_iz00_10596;
																		goto BgL_zc3z04anonymousza31871ze3z87_2178;
																	}
															}
													}
											}
										else
											{	/* Ieee/string.scm 1464 */
												return BTRUE;
											}
									}
								else
									{	/* Ieee/string.scm 1462 */
										return BFALSE;
									}
							}
					}
				}
			}
		}

	}



/* compare-left */
	obj_t BGl_comparezd2leftzd2zz__r4_strings_6_7z00(obj_t BgL_az00_261,
		obj_t BgL_iaz00_262, obj_t BgL_bz00_263, obj_t BgL_ibz00_264)
	{
		{	/* Ieee/string.scm 1478 */
			{
				long BgL_iz00_2202;

				BgL_iz00_2202 = 0L;
			BgL_zc3z04anonymousza31888ze3z87_2203:
				{	/* Ieee/string.scm 1480 */
					unsigned char BgL_caz00_2204;
					unsigned char BgL_cbz00_2205;

					{	/* Ieee/string.scm 1480 */
						long BgL_arg1897z00_2216;

						BgL_arg1897z00_2216 = ((long) CINT(BgL_iaz00_262) + BgL_iz00_2202);
						if ((BgL_arg1897z00_2216 >= STRING_LENGTH(BgL_az00_261)))
							{	/* Ieee/string.scm 1500 */
								BgL_caz00_2204 = ((unsigned char) '\000');
							}
						else
							{	/* Ieee/string.scm 1500 */
								BgL_caz00_2204 = STRING_REF(BgL_az00_261, BgL_arg1897z00_2216);
							}
					}
					{	/* Ieee/string.scm 1481 */
						long BgL_arg1898z00_2217;

						BgL_arg1898z00_2217 = ((long) CINT(BgL_ibz00_264) + BgL_iz00_2202);
						if ((BgL_arg1898z00_2217 >= STRING_LENGTH(BgL_bz00_263)))
							{	/* Ieee/string.scm 1500 */
								BgL_cbz00_2205 = ((unsigned char) '\000');
							}
						else
							{	/* Ieee/string.scm 1500 */
								BgL_cbz00_2205 = STRING_REF(BgL_bz00_263, BgL_arg1898z00_2217);
							}
					}
					{	/* Ieee/string.scm 1483 */
						bool_t BgL_test4082z00_10610;

						if (isdigit(BgL_caz00_2204))
							{	/* Ieee/string.scm 1483 */
								BgL_test4082z00_10610 = ((bool_t) 0);
							}
						else
							{	/* Ieee/string.scm 1483 */
								if (isdigit(BgL_cbz00_2205))
									{	/* Ieee/string.scm 1483 */
										BgL_test4082z00_10610 = ((bool_t) 0);
									}
								else
									{	/* Ieee/string.scm 1483 */
										BgL_test4082z00_10610 = ((bool_t) 1);
									}
							}
						if (BgL_test4082z00_10610)
							{	/* Ieee/string.scm 1483 */
								return BINT(BgL_iz00_2202);
							}
						else
							{	/* Ieee/string.scm 1483 */
								if (isdigit(BgL_caz00_2204))
									{	/* Ieee/string.scm 1485 */
										if (isdigit(BgL_cbz00_2205))
											{	/* Ieee/string.scm 1487 */
												if ((BgL_caz00_2204 < BgL_cbz00_2205))
													{	/* Ieee/string.scm 1489 */
														return BFALSE;
													}
												else
													{	/* Ieee/string.scm 1489 */
														if ((BgL_caz00_2204 > BgL_cbz00_2205))
															{	/* Ieee/string.scm 1491 */
																return BTRUE;
															}
														else
															{
																long BgL_iz00_10624;

																BgL_iz00_10624 = (BgL_iz00_2202 + 1L);
																BgL_iz00_2202 = BgL_iz00_10624;
																goto BgL_zc3z04anonymousza31888ze3z87_2203;
															}
													}
											}
										else
											{	/* Ieee/string.scm 1487 */
												return BTRUE;
											}
									}
								else
									{	/* Ieee/string.scm 1485 */
										return BFALSE;
									}
							}
					}
				}
			}
		}

	}



/* hex-string-ref */
	obj_t BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(obj_t BgL_strz00_267,
		long BgL_iz00_268)
	{
		{	/* Ieee/string.scm 1507 */
			{	/* Ieee/string.scm 1508 */
				unsigned char BgL_nz00_2222;

				BgL_nz00_2222 = STRING_REF(BgL_strz00_267, BgL_iz00_268);
				{	/* Ieee/string.scm 1510 */
					bool_t BgL_test4089z00_10627;

					if ((BgL_nz00_2222 >= ((unsigned char) '0')))
						{	/* Ieee/string.scm 1510 */
							BgL_test4089z00_10627 = (BgL_nz00_2222 <= ((unsigned char) '9'));
						}
					else
						{	/* Ieee/string.scm 1510 */
							BgL_test4089z00_10627 = ((bool_t) 0);
						}
					if (BgL_test4089z00_10627)
						{	/* Ieee/string.scm 1510 */
							return BINT(((BgL_nz00_2222) - 48L));
						}
					else
						{	/* Ieee/string.scm 1512 */
							bool_t BgL_test4091z00_10634;

							if ((BgL_nz00_2222 >= ((unsigned char) 'a')))
								{	/* Ieee/string.scm 1512 */
									BgL_test4091z00_10634 =
										(BgL_nz00_2222 <= ((unsigned char) 'f'));
								}
							else
								{	/* Ieee/string.scm 1512 */
									BgL_test4091z00_10634 = ((bool_t) 0);
								}
							if (BgL_test4091z00_10634)
								{	/* Ieee/string.scm 1512 */
									return BINT((10L + ((BgL_nz00_2222) - 97L)));
								}
							else
								{	/* Ieee/string.scm 1514 */
									bool_t BgL_test4093z00_10642;

									if ((BgL_nz00_2222 >= ((unsigned char) 'A')))
										{	/* Ieee/string.scm 1514 */
											BgL_test4093z00_10642 =
												(BgL_nz00_2222 <= ((unsigned char) 'F'));
										}
									else
										{	/* Ieee/string.scm 1514 */
											BgL_test4093z00_10642 = ((bool_t) 0);
										}
									if (BgL_test4093z00_10642)
										{	/* Ieee/string.scm 1514 */
											return BINT((10L + ((BgL_nz00_2222) - 65L)));
										}
									else
										{	/* Ieee/string.scm 1514 */
											return
												BGl_errorz00zz__errorz00
												(BGl_string3142z00zz__r4_strings_6_7z00,
												BGl_string3143z00zz__r4_strings_6_7z00, BgL_strz00_267);
										}
								}
						}
				}
			}
		}

	}



/* string-hex-intern */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2hexzd2internz00zz__r4_strings_6_7z00(obj_t
		BgL_strz00_269)
	{
		{	/* Ieee/string.scm 1524 */
			{	/* Ieee/string.scm 1525 */
				long BgL_lenz00_2237;

				BgL_lenz00_2237 = STRING_LENGTH(BgL_strz00_269);
				if (ODDP_FX(BgL_lenz00_2237))
					{	/* Ieee/string.scm 1526 */
						return
							BGl_errorz00zz__errorz00(BGl_string3144z00zz__r4_strings_6_7z00,
							BGl_string3145z00zz__r4_strings_6_7z00, BgL_strz00_269);
					}
				else
					{	/* Ieee/string.scm 1528 */
						obj_t BgL_resz00_2239;

						{	/* Ieee/string.scm 1528 */
							long BgL_arg1924z00_2254;

							BgL_arg1924z00_2254 = (BgL_lenz00_2237 / 2L);
							{	/* Ieee/string.scm 172 */

								BgL_resz00_2239 =
									make_string(BgL_arg1924z00_2254, ((unsigned char) ' '));
						}}
						{
							long BgL_iz00_4236;
							long BgL_jz00_4237;

							BgL_iz00_4236 = 0L;
							BgL_jz00_4237 = 0L;
						BgL_loopz00_4235:
							if ((BgL_iz00_4236 == BgL_lenz00_2237))
								{	/* Ieee/string.scm 1531 */
									return BgL_resz00_2239;
								}
							else
								{	/* Ieee/string.scm 1533 */
									obj_t BgL_c1z00_4241;

									BgL_c1z00_4241 =
										BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00
										(BgL_strz00_269, BgL_iz00_4236);
									{	/* Ieee/string.scm 1533 */
										obj_t BgL_c2z00_4242;

										BgL_c2z00_4242 =
											BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00
											(BgL_strz00_269, (BgL_iz00_4236 + 1L));
										{	/* Ieee/string.scm 1534 */
											long BgL_cz00_4245;

											BgL_cz00_4245 =
												(
												((long) CINT(BgL_c1z00_4241) * 16L) +
												(long) CINT(BgL_c2z00_4242));
											{	/* Ieee/string.scm 1535 */

												{	/* Ieee/string.scm 337 */
													unsigned char BgL_tmpz00_10666;

													BgL_tmpz00_10666 = (BgL_cz00_4245);
													STRING_SET(BgL_resz00_2239, BgL_jz00_4237,
														BgL_tmpz00_10666);
												}
												{
													long BgL_jz00_10671;
													long BgL_iz00_10669;

													BgL_iz00_10669 = (BgL_iz00_4236 + 2L);
													BgL_jz00_10671 = (BgL_jz00_4237 + 1L);
													BgL_jz00_4237 = BgL_jz00_10671;
													BgL_iz00_4236 = BgL_iz00_10669;
													goto BgL_loopz00_4235;
												}
											}
										}
									}
								}
						}
					}
			}
		}

	}



/* &string-hex-intern */
	obj_t BGl_z62stringzd2hexzd2internz62zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4492, obj_t BgL_strz00_4493)
	{
		{	/* Ieee/string.scm 1524 */
			{	/* Ieee/string.scm 1525 */
				obj_t BgL_auxz00_10673;

				if (STRINGP(BgL_strz00_4493))
					{	/* Ieee/string.scm 1525 */
						BgL_auxz00_10673 = BgL_strz00_4493;
					}
				else
					{
						obj_t BgL_auxz00_10676;

						BgL_auxz00_10676 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(61043L),
							BGl_string3146z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_strz00_4493);
						FAILURE(BgL_auxz00_10676, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2hexzd2internz00zz__r4_strings_6_7z00(BgL_auxz00_10673);
			}
		}

	}



/* string-hex-intern! */
	BGL_EXPORTED_DEF obj_t
		BGl_stringzd2hexzd2internz12z12zz__r4_strings_6_7z00(obj_t BgL_strz00_270)
	{
		{	/* Ieee/string.scm 1542 */
			{	/* Ieee/string.scm 1543 */
				long BgL_lenz00_2257;

				BgL_lenz00_2257 = STRING_LENGTH(BgL_strz00_270);
				if (ODDP_FX(BgL_lenz00_2257))
					{	/* Ieee/string.scm 1544 */
						return
							BGl_errorz00zz__errorz00(BGl_string3147z00zz__r4_strings_6_7z00,
							BGl_string3145z00zz__r4_strings_6_7z00, BgL_strz00_270);
					}
				else
					{
						long BgL_iz00_2260;
						long BgL_jz00_2261;

						BgL_iz00_2260 = 0L;
						BgL_jz00_2261 = 0L;
					BgL_zc3z04anonymousza31926ze3z87_2262:
						if ((BgL_iz00_2260 == BgL_lenz00_2257))
							{	/* Ieee/string.scm 756 */
								long BgL_tmpz00_10687;

								BgL_tmpz00_10687 = (BgL_lenz00_2257 / 2L);
								return bgl_string_shrink(BgL_strz00_270, BgL_tmpz00_10687);
							}
						else
							{	/* Ieee/string.scm 1550 */
								obj_t BgL_c1z00_2265;

								BgL_c1z00_2265 =
									BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00(BgL_strz00_270,
									BgL_iz00_2260);
								{	/* Ieee/string.scm 1550 */
									obj_t BgL_c2z00_2266;

									BgL_c2z00_2266 =
										BGl_hexzd2stringzd2refz00zz__r4_strings_6_7z00
										(BgL_strz00_270, (BgL_iz00_2260 + 1L));
									{	/* Ieee/string.scm 1551 */
										long BgL_cz00_2267;

										BgL_cz00_2267 =
											(
											((long) CINT(BgL_c1z00_2265) * 16L) +
											(long) CINT(BgL_c2z00_2266));
										{	/* Ieee/string.scm 1552 */

											{	/* Ieee/string.scm 337 */
												unsigned char BgL_tmpz00_10697;

												BgL_tmpz00_10697 = (BgL_cz00_2267);
												STRING_SET(BgL_strz00_270, BgL_jz00_2261,
													BgL_tmpz00_10697);
											}
											{
												long BgL_jz00_10702;
												long BgL_iz00_10700;

												BgL_iz00_10700 = (BgL_iz00_2260 + 2L);
												BgL_jz00_10702 = (BgL_jz00_2261 + 1L);
												BgL_jz00_2261 = BgL_jz00_10702;
												BgL_iz00_2260 = BgL_iz00_10700;
												goto BgL_zc3z04anonymousza31926ze3z87_2262;
											}
										}
									}
								}
							}
					}
			}
		}

	}



/* &string-hex-intern! */
	obj_t BGl_z62stringzd2hexzd2internz12z70zz__r4_strings_6_7z00(obj_t
		BgL_envz00_4494, obj_t BgL_strz00_4495)
	{
		{	/* Ieee/string.scm 1542 */
			{	/* Ieee/string.scm 1543 */
				obj_t BgL_auxz00_10704;

				if (STRINGP(BgL_strz00_4495))
					{	/* Ieee/string.scm 1543 */
						BgL_auxz00_10704 = BgL_strz00_4495;
					}
				else
					{
						obj_t BgL_auxz00_10707;

						BgL_auxz00_10707 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string3026z00zz__r4_strings_6_7z00, BINT(61734L),
							BGl_string3148z00zz__r4_strings_6_7z00,
							BGl_string3028z00zz__r4_strings_6_7z00, BgL_strz00_4495);
						FAILURE(BgL_auxz00_10707, BFALSE, BFALSE);
					}
				return
					BGl_stringzd2hexzd2internz12z12zz__r4_strings_6_7z00
					(BgL_auxz00_10704);
			}
		}

	}



/* _string-hex-extern */
	obj_t BGl__stringzd2hexzd2externz00zz__r4_strings_6_7z00(obj_t
		BgL_env1206z00_275, obj_t BgL_opt1205z00_274)
	{
		{	/* Ieee/string.scm 1559 */
			{	/* Ieee/string.scm 1559 */
				obj_t BgL_strz00_2274;

				{
					obj_t BgL_auxz00_10712;

					if (VECTORP(BgL_opt1205z00_274))
						{	/* Ieee/string.scm 1559 */
							BgL_auxz00_10712 = BgL_opt1205z00_274;
						}
					else
						{
							obj_t BgL_auxz00_10715;

							BgL_auxz00_10715 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string3026z00zz__r4_strings_6_7z00, BINT(62363L),
								BGl_string3149z00zz__r4_strings_6_7z00,
								BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1205z00_274);
							FAILURE(BgL_auxz00_10715, BFALSE, BFALSE);
						}
					BgL_strz00_2274 = VECTOR_REF(BgL_auxz00_10712, 0L);
				}
				{	/* Ieee/string.scm 1559 */
					long BgL_aux1208z00_2276;

					{
						obj_t BgL_auxz00_10720;

						if (VECTORP(BgL_opt1205z00_274))
							{	/* Ieee/string.scm 1559 */
								BgL_auxz00_10720 = BgL_opt1205z00_274;
							}
						else
							{
								obj_t BgL_auxz00_10723;

								BgL_auxz00_10723 =
									BGl_typezd2errorzd2zz__errorz00
									(BGl_string3026z00zz__r4_strings_6_7z00, BINT(62363L),
									BGl_string3149z00zz__r4_strings_6_7z00,
									BGl_string3030z00zz__r4_strings_6_7z00, BgL_opt1205z00_274);
								FAILURE(BgL_auxz00_10723, BFALSE, BFALSE);
							}
						BgL_aux1208z00_2276 = VECTOR_LENGTH(BgL_auxz00_10720);
					}
					switch (BgL_aux1208z00_2276)
						{
						case 1L:

							{	/* Ieee/string.scm 1560 */
								long BgL_endz00_2278;

								{	/* Ieee/string.scm 1560 */
									obj_t BgL_stringz00_4276;

									if (STRINGP(BgL_strz00_2274))
										{	/* Ieee/string.scm 1560 */
											BgL_stringz00_4276 = BgL_strz00_2274;
										}
									else
										{
											obj_t BgL_auxz00_10730;

											BgL_auxz00_10730 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(62453L),
												BGl_string3149z00zz__r4_strings_6_7z00,
												BGl_string3028z00zz__r4_strings_6_7z00,
												BgL_strz00_2274);
											FAILURE(BgL_auxz00_10730, BFALSE, BFALSE);
										}
									BgL_endz00_2278 = STRING_LENGTH(BgL_stringz00_4276);
								}
								{	/* Ieee/string.scm 1559 */

									{	/* Ieee/string.scm 1559 */
										obj_t BgL_auxz00_10735;

										if (STRINGP(BgL_strz00_2274))
											{	/* Ieee/string.scm 1559 */
												BgL_auxz00_10735 = BgL_strz00_2274;
											}
										else
											{
												obj_t BgL_auxz00_10738;

												BgL_auxz00_10738 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(62363L),
													BGl_string3149z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_strz00_2274);
												FAILURE(BgL_auxz00_10738, BFALSE, BFALSE);
											}
										return
											BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00
											(BgL_auxz00_10735, (int) (0L), BgL_endz00_2278);
							}}} break;
						case 2L:

							{	/* Ieee/string.scm 1559 */
								obj_t BgL_startz00_2279;

								{
									obj_t BgL_auxz00_10744;

									if (VECTORP(BgL_opt1205z00_274))
										{	/* Ieee/string.scm 1559 */
											BgL_auxz00_10744 = BgL_opt1205z00_274;
										}
									else
										{
											obj_t BgL_auxz00_10747;

											BgL_auxz00_10747 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(62363L),
												BGl_string3149z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1205z00_274);
											FAILURE(BgL_auxz00_10747, BFALSE, BFALSE);
										}
									BgL_startz00_2279 = VECTOR_REF(BgL_auxz00_10744, 1L);
								}
								{	/* Ieee/string.scm 1560 */
									long BgL_endz00_2280;

									{	/* Ieee/string.scm 1560 */
										obj_t BgL_stringz00_4277;

										if (STRINGP(BgL_strz00_2274))
											{	/* Ieee/string.scm 1560 */
												BgL_stringz00_4277 = BgL_strz00_2274;
											}
										else
											{
												obj_t BgL_auxz00_10754;

												BgL_auxz00_10754 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(62453L),
													BGl_string3149z00zz__r4_strings_6_7z00,
													BGl_string3028z00zz__r4_strings_6_7z00,
													BgL_strz00_2274);
												FAILURE(BgL_auxz00_10754, BFALSE, BFALSE);
											}
										BgL_endz00_2280 = STRING_LENGTH(BgL_stringz00_4277);
									}
									{	/* Ieee/string.scm 1559 */

										{	/* Ieee/string.scm 1559 */
											int BgL_auxz00_10766;
											obj_t BgL_auxz00_10759;

											{	/* Ieee/string.scm 1559 */
												obj_t BgL_tmpz00_10767;

												if (INTEGERP(BgL_startz00_2279))
													{	/* Ieee/string.scm 1559 */
														BgL_tmpz00_10767 = BgL_startz00_2279;
													}
												else
													{
														obj_t BgL_auxz00_10770;

														BgL_auxz00_10770 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(62363L),
															BGl_string3149z00zz__r4_strings_6_7z00,
															BGl_string3031z00zz__r4_strings_6_7z00,
															BgL_startz00_2279);
														FAILURE(BgL_auxz00_10770, BFALSE, BFALSE);
													}
												BgL_auxz00_10766 = CINT(BgL_tmpz00_10767);
											}
											if (STRINGP(BgL_strz00_2274))
												{	/* Ieee/string.scm 1559 */
													BgL_auxz00_10759 = BgL_strz00_2274;
												}
											else
												{
													obj_t BgL_auxz00_10762;

													BgL_auxz00_10762 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(62363L),
														BGl_string3149z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_strz00_2274);
													FAILURE(BgL_auxz00_10762, BFALSE, BFALSE);
												}
											return
												BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00
												(BgL_auxz00_10759, BgL_auxz00_10766, BgL_endz00_2280);
										}
									}
								}
							}
							break;
						case 3L:

							{	/* Ieee/string.scm 1559 */
								obj_t BgL_startz00_2281;

								{
									obj_t BgL_auxz00_10776;

									if (VECTORP(BgL_opt1205z00_274))
										{	/* Ieee/string.scm 1559 */
											BgL_auxz00_10776 = BgL_opt1205z00_274;
										}
									else
										{
											obj_t BgL_auxz00_10779;

											BgL_auxz00_10779 =
												BGl_typezd2errorzd2zz__errorz00
												(BGl_string3026z00zz__r4_strings_6_7z00, BINT(62363L),
												BGl_string3149z00zz__r4_strings_6_7z00,
												BGl_string3030z00zz__r4_strings_6_7z00,
												BgL_opt1205z00_274);
											FAILURE(BgL_auxz00_10779, BFALSE, BFALSE);
										}
									BgL_startz00_2281 = VECTOR_REF(BgL_auxz00_10776, 1L);
								}
								{	/* Ieee/string.scm 1559 */
									obj_t BgL_endz00_2282;

									{
										obj_t BgL_auxz00_10784;

										if (VECTORP(BgL_opt1205z00_274))
											{	/* Ieee/string.scm 1559 */
												BgL_auxz00_10784 = BgL_opt1205z00_274;
											}
										else
											{
												obj_t BgL_auxz00_10787;

												BgL_auxz00_10787 =
													BGl_typezd2errorzd2zz__errorz00
													(BGl_string3026z00zz__r4_strings_6_7z00, BINT(62363L),
													BGl_string3149z00zz__r4_strings_6_7z00,
													BGl_string3030z00zz__r4_strings_6_7z00,
													BgL_opt1205z00_274);
												FAILURE(BgL_auxz00_10787, BFALSE, BFALSE);
											}
										BgL_endz00_2282 = VECTOR_REF(BgL_auxz00_10784, 2L);
									}
									{	/* Ieee/string.scm 1559 */

										{	/* Ieee/string.scm 1559 */
											long BgL_auxz00_10808;
											int BgL_auxz00_10799;
											obj_t BgL_auxz00_10792;

											{	/* Ieee/string.scm 1559 */
												obj_t BgL_tmpz00_10809;

												if (INTEGERP(BgL_endz00_2282))
													{	/* Ieee/string.scm 1559 */
														BgL_tmpz00_10809 = BgL_endz00_2282;
													}
												else
													{
														obj_t BgL_auxz00_10812;

														BgL_auxz00_10812 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(62363L),
															BGl_string3149z00zz__r4_strings_6_7z00,
															BGl_string3031z00zz__r4_strings_6_7z00,
															BgL_endz00_2282);
														FAILURE(BgL_auxz00_10812, BFALSE, BFALSE);
													}
												BgL_auxz00_10808 = (long) CINT(BgL_tmpz00_10809);
											}
											{	/* Ieee/string.scm 1559 */
												obj_t BgL_tmpz00_10800;

												if (INTEGERP(BgL_startz00_2281))
													{	/* Ieee/string.scm 1559 */
														BgL_tmpz00_10800 = BgL_startz00_2281;
													}
												else
													{
														obj_t BgL_auxz00_10803;

														BgL_auxz00_10803 =
															BGl_typezd2errorzd2zz__errorz00
															(BGl_string3026z00zz__r4_strings_6_7z00,
															BINT(62363L),
															BGl_string3149z00zz__r4_strings_6_7z00,
															BGl_string3031z00zz__r4_strings_6_7z00,
															BgL_startz00_2281);
														FAILURE(BgL_auxz00_10803, BFALSE, BFALSE);
													}
												BgL_auxz00_10799 = CINT(BgL_tmpz00_10800);
											}
											if (STRINGP(BgL_strz00_2274))
												{	/* Ieee/string.scm 1559 */
													BgL_auxz00_10792 = BgL_strz00_2274;
												}
											else
												{
													obj_t BgL_auxz00_10795;

													BgL_auxz00_10795 =
														BGl_typezd2errorzd2zz__errorz00
														(BGl_string3026z00zz__r4_strings_6_7z00,
														BINT(62363L),
														BGl_string3149z00zz__r4_strings_6_7z00,
														BGl_string3028z00zz__r4_strings_6_7z00,
														BgL_strz00_2274);
													FAILURE(BgL_auxz00_10795, BFALSE, BFALSE);
												}
											return
												BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00
												(BgL_auxz00_10792, BgL_auxz00_10799, BgL_auxz00_10808);
										}
									}
								}
							}
							break;
						default:
							return BUNSPEC;
						}
				}
			}
		}

	}



/* string-hex-extern */
	BGL_EXPORTED_DEF obj_t BGl_stringzd2hexzd2externz00zz__r4_strings_6_7z00(obj_t
		BgL_strz00_271, int BgL_startz00_272, long BgL_endz00_273)
	{
		{	/* Ieee/string.scm 1559 */
			{	/* Ieee/string.scm 1564 */
				long BgL_lenz00_2284;

				BgL_lenz00_2284 = STRING_LENGTH(BgL_strz00_271);
				{	/* Ieee/string.scm 1566 */
					bool_t BgL_test4114z00_10820;

					if (((long) (BgL_startz00_272) < 0L))
						{	/* Ieee/string.scm 1566 */
							BgL_test4114z00_10820 = ((bool_t) 1);
						}
					else
						{	/* Ieee/string.scm 1566 */
							BgL_test4114z00_10820 =
								((long) (BgL_startz00_272) > BgL_lenz00_2284);
						}
					if (BgL_test4114z00_10820)
						{	/* Ieee/string.scm 1568 */
							obj_t BgL_arg1938z00_2287;
							obj_t BgL_arg1939z00_2288;

							{	/* Ieee/string.scm 1568 */
								obj_t BgL_arg1940z00_2289;

								{	/* Ieee/fixnum.scm 979 */

									BgL_arg1940z00_2289 =
										BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
										(long) (BgL_startz00_272), 10L);
								}
								BgL_arg1938z00_2287 =
									string_append(BGl_string3054z00zz__r4_strings_6_7z00,
									BgL_arg1940z00_2289);
							}
							{	/* Ieee/string.scm 1569 */
								obj_t BgL_list1942z00_2293;

								{	/* Ieee/string.scm 1569 */
									obj_t BgL_arg1943z00_2294;

									BgL_arg1943z00_2294 = MAKE_YOUNG_PAIR(BgL_strz00_271, BNIL);
									BgL_list1942z00_2293 =
										MAKE_YOUNG_PAIR(BINT(BgL_lenz00_2284), BgL_arg1943z00_2294);
								}
								BgL_arg1939z00_2288 = BgL_list1942z00_2293;
							}
							return
								BGl_errorz00zz__errorz00(BGl_string3150z00zz__r4_strings_6_7z00,
								BgL_arg1938z00_2287, BgL_arg1939z00_2288);
						}
					else
						{	/* Ieee/string.scm 1570 */
							bool_t BgL_test4116z00_10833;

							if ((BgL_endz00_273 < (long) (BgL_startz00_272)))
								{	/* Ieee/string.scm 1570 */
									BgL_test4116z00_10833 = ((bool_t) 1);
								}
							else
								{	/* Ieee/string.scm 1570 */
									BgL_test4116z00_10833 = (BgL_endz00_273 > BgL_lenz00_2284);
								}
							if (BgL_test4116z00_10833)
								{	/* Ieee/string.scm 1572 */
									obj_t BgL_arg1946z00_2297;
									obj_t BgL_arg1947z00_2298;

									{	/* Ieee/string.scm 1572 */
										obj_t BgL_arg1948z00_2299;

										{	/* Ieee/fixnum.scm 979 */

											BgL_arg1948z00_2299 =
												BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00
												(BgL_endz00_273, 10L);
										}
										BgL_arg1946z00_2297 =
											string_append(BGl_string3056z00zz__r4_strings_6_7z00,
											BgL_arg1948z00_2299);
									}
									{	/* Ieee/string.scm 1573 */
										obj_t BgL_list1950z00_2303;

										{	/* Ieee/string.scm 1573 */
											obj_t BgL_arg1953z00_2304;

											BgL_arg1953z00_2304 =
												MAKE_YOUNG_PAIR(BgL_strz00_271, BNIL);
											BgL_list1950z00_2303 =
												MAKE_YOUNG_PAIR(BINT(BgL_lenz00_2284),
												BgL_arg1953z00_2304);
										}
										BgL_arg1947z00_2298 = BgL_list1950z00_2303;
									}
									return
										BGl_errorz00zz__errorz00
										(BGl_string3150z00zz__r4_strings_6_7z00,
										BgL_arg1946z00_2297, BgL_arg1947z00_2298);
								}
							else
								{	/* Ieee/string.scm 1575 */
									obj_t BgL_resz00_2305;

									{	/* Ieee/string.scm 1575 */
										long BgL_arg1963z00_2321;

										BgL_arg1963z00_2321 =
											(2L * (BgL_endz00_273 - (long) (BgL_startz00_272)));
										{	/* Ieee/string.scm 172 */

											BgL_resz00_2305 =
												make_string(BgL_arg1963z00_2321, ((unsigned char) ' '));
									}}
									{
										int BgL_iz00_2307;
										long BgL_jz00_2308;

										BgL_iz00_2307 = BgL_startz00_272;
										BgL_jz00_2308 = 0L;
									BgL_zc3z04anonymousza31954ze3z87_2309:
										if (((long) (BgL_iz00_2307) == BgL_endz00_273))
											{	/* Ieee/string.scm 1578 */
												return BgL_resz00_2305;
											}
										else
											{	/* Ieee/string.scm 1580 */
												long BgL_nz00_2311;

												BgL_nz00_2311 =
													(STRING_REF(BgL_strz00_271, (long) (BgL_iz00_2307)));
												{	/* Ieee/string.scm 1580 */
													long BgL_d0z00_2312;

													{	/* Ieee/string.scm 1581 */
														long BgL_n1z00_4301;
														long BgL_n2z00_4302;

														BgL_n1z00_4301 = BgL_nz00_2311;
														BgL_n2z00_4302 = 16L;
														{	/* Ieee/string.scm 1581 */
															bool_t BgL_test4119z00_10854;

															{	/* Ieee/string.scm 1581 */
																long BgL_arg2082z00_4304;

																BgL_arg2082z00_4304 =
																	(((BgL_n1z00_4301) | (BgL_n2z00_4302)) &
																	-2147483648);
																BgL_test4119z00_10854 =
																	(BgL_arg2082z00_4304 == 0L);
															}
															if (BgL_test4119z00_10854)
																{	/* Ieee/string.scm 1581 */
																	int32_t BgL_arg2079z00_4305;

																	{	/* Ieee/string.scm 1581 */
																		int32_t BgL_arg2080z00_4306;
																		int32_t BgL_arg2081z00_4307;

																		BgL_arg2080z00_4306 =
																			(int32_t) (BgL_n1z00_4301);
																		BgL_arg2081z00_4307 =
																			(int32_t) (BgL_n2z00_4302);
																		BgL_arg2079z00_4305 =
																			(BgL_arg2080z00_4306 %
																			BgL_arg2081z00_4307);
																	}
																	{	/* Ieee/string.scm 1581 */
																		long BgL_arg2182z00_4312;

																		BgL_arg2182z00_4312 =
																			(long) (BgL_arg2079z00_4305);
																		BgL_d0z00_2312 =
																			(long) (BgL_arg2182z00_4312);
																}}
															else
																{	/* Ieee/string.scm 1581 */
																	BgL_d0z00_2312 =
																		(BgL_n1z00_4301 % BgL_n2z00_4302);
																}
														}
													}
													{	/* Ieee/string.scm 1581 */
														long BgL_d1z00_2313;

														BgL_d1z00_2313 = (BgL_nz00_2311 / 16L);
														{	/* Ieee/string.scm 1582 */

															{	/* Ieee/string.scm 337 */
																unsigned char BgL_tmpz00_10864;

																BgL_tmpz00_10864 =
																	STRING_REF
																	(BGl_string3151z00zz__r4_strings_6_7z00,
																	BgL_d1z00_2313);
																STRING_SET(BgL_resz00_2305, BgL_jz00_2308,
																	BgL_tmpz00_10864);
															}
															{	/* Ieee/string.scm 337 */
																unsigned char BgL_auxz00_10869;
																long BgL_tmpz00_10867;

																BgL_auxz00_10869 =
																	STRING_REF
																	(BGl_string3151z00zz__r4_strings_6_7z00,
																	BgL_d0z00_2312);
																BgL_tmpz00_10867 = (BgL_jz00_2308 + 1L);
																STRING_SET(BgL_resz00_2305, BgL_tmpz00_10867,
																	BgL_auxz00_10869);
															}
															{	/* Ieee/string.scm 1585 */
																long BgL_arg1960z00_2317;
																long BgL_arg1961z00_2318;

																BgL_arg1960z00_2317 =
																	((long) (BgL_iz00_2307) + 1L);
																BgL_arg1961z00_2318 = (BgL_jz00_2308 + 2L);
																{
																	long BgL_jz00_10877;
																	int BgL_iz00_10875;

																	BgL_iz00_10875 = (int) (BgL_arg1960z00_2317);
																	BgL_jz00_10877 = BgL_arg1961z00_2318;
																	BgL_jz00_2308 = BgL_jz00_10877;
																	BgL_iz00_2307 = BgL_iz00_10875;
																	goto BgL_zc3z04anonymousza31954ze3z87_2309;
																}
															}
														}
													}
												}
											}
									}
								}
						}
				}
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__r4_strings_6_7z00(void)
	{
		{	/* Ieee/string.scm 18 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string3152z00zz__r4_strings_6_7z00));
			return
				BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string3152z00zz__r4_strings_6_7z00));
		}

	}

#ifdef __cplusplus
}
#endif
