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

/* debug mode */
#define BIGLOO_DEBUG 1

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

static obj_t BGl_symbol3060z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3059z00zz__unicodez00 = BUNSPEC;
extern bool_t ucs2_strcicmp(obj_t, obj_t);
static obj_t BGl_symbol3058z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3057z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3056z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_loopz00zz__unicodez00(obj_t);
static obj_t BGl_symbol3055z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__unicodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_symbol3054z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3053z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3052z00zz__unicodez00 = BUNSPEC;
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3051z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3050z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3049z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3048z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3047z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3046z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3045z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3043z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3042z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL ucs2_t BGl_ucs2zd2stringzd2refzd2urzd2zz__unicodez00(obj_t, int);
static obj_t BGl__subucs2zd2stringzd2urz00zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3039z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3037z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3036z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3035z00zz__unicodez00 = BUNSPEC;
extern obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol3033z00zz__unicodez00 = BUNSPEC;
static obj_t BGl__ucs2zd2stringze3zf3zc2zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3029z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3028z00zz__unicodez00 = BUNSPEC;
static obj_t BGl__ucs2zd2stringzd2upcasez12z12zz__unicodez00(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd3zf3zf2zz__unicodez00(obj_t, obj_t, obj_t);
extern long bgl_list_length(obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2downcasez12z12zz__unicodez00(obj_t);
BGL_EXPORTED_DECL int BGl_ucs2zd2stringzd2lengthz00zz__unicodez00(obj_t);
static obj_t BGl__ucs2zd2stringzc3zf3ze2zz__unicodez00(obj_t, obj_t, obj_t);
extern ucs2_t ucs2_toupper(ucs2_t);
static obj_t BGl__ucs2zd2stringzd2cizc3zd3zf3ze3zz__unicodez00(obj_t, obj_t, obj_t);
extern obj_t ucs2_string_append(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2appendz00zz__unicodez00(obj_t, obj_t);
static obj_t BGl__utf8zd2stringzd2ze3ucs2zd2stringz31zz__unicodez00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__unicodez00();
static obj_t BGl__ucs2zd2stringze3zd3zf3z11zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_subucs2zd2stringzd2zz__unicodez00(obj_t, int, int);
extern obj_t make_ucs2_string(int, ucs2_t);
extern obj_t utf8_string_to_ucs2_string(obj_t);
extern obj_t c_ucs2_string_copy(obj_t);
extern obj_t string_to_symbol(char *);
static obj_t BGl__ucs2zd2stringzd2downcasez00zz__unicodez00(obj_t, obj_t);
extern bool_t ucs2_strcmp(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2upcasez00zz__unicodez00(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2downcasez12z12zz__unicodez00(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2ze3utf8zd2stringz31zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2setzd2urz12zc0zz__unicodez00(obj_t, int, ucs2_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2ucs2zd2stringz00zz__unicodez00(int, obj_t);
extern obj_t ucs2_string_to_utf8_string(obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2downcasez00zz__unicodez00(obj_t);
static obj_t BGl__ucs2zd2stringzd2copyz00zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzf3z21zz__unicodez00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__unicodez00();
BGL_EXPORTED_DECL ucs2_t BGl_ucs2zd2stringzd2refz00zz__unicodez00(obj_t, int);
static obj_t BGl__ucs2zd2stringzd2cizc3zf3z30zz__unicodez00(obj_t, obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2cize3zd3zf3zc3zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2ucs2zd2stringz00zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2cizd3zf3z20zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2ze3listze3zz__unicodez00(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2setzd2urz12zc0zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringze3zf3zc2zz__unicodez00(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2fillz12z12zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzc3zd3zf3z31zz__unicodez00(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2cize3zf3z10zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2fillz12z12zz__unicodez00(obj_t, ucs2_t);
BGL_EXPORTED_DECL obj_t BGl_utf8zd2stringzd2ze3ucs2zd2stringz31zz__unicodez00(obj_t);
static obj_t BGl__ucs2zd2stringzc3zd3zf3z31zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2ze3listze3zz__unicodez00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd3zf3zf2zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2copyz00zz__unicodez00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd2cize3zd3zf3zc3zz__unicodez00(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2refzd2urzd2zz__unicodez00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzc3zf3ze2zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd2cizc3zf3z30zz__unicodez00(obj_t, obj_t);
extern bool_t ucs2_string_lt(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2appendz00zz__unicodez00(obj_t);
static obj_t BGl__ucs2zd2stringzd2setz12z12zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd2cizd3zf3z20zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2zz__unicodez00(obj_t);
extern bool_t ucs2_string_le(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzd2lengthz00zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd2cize3zf3z10zz__unicodez00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2upcasez00zz__unicodez00(obj_t);
extern bool_t ucs2_string_cige(obj_t, obj_t);
extern ucs2_t ucs2_tolower(ucs2_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2ze3utf8zd2stringz31zz__unicodez00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2setz12z12zz__unicodez00(obj_t, int, ucs2_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3ucs2zd2stringze3zz__unicodez00(obj_t);
extern bool_t ucs2_string_cigt(obj_t, obj_t);
extern ucs2_t BGl_integerzd2ze3ucs2z31zz__ucs2z00(int);
extern bool_t ucs2_string_gt(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ucs2zd2stringzd2upcasez12z12zz__unicodez00(obj_t);
static obj_t BGl_symbol3099z00zz__unicodez00 = BUNSPEC;
static obj_t BGl__ucs2zd2stringzd2refz00zz__unicodez00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3097z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3096z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3095z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3094z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3093z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3092z00zz__unicodez00 = BUNSPEC;
extern bool_t ucs2_string_ge(obj_t, obj_t);
static obj_t BGl_symbol3091z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3090z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3089z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3088z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3087z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3086z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_subucs2zd2stringzd2urz00zz__unicodez00(obj_t, int, int);
static obj_t BGl_symbol3085z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3084z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3083z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3082z00zz__unicodez00 = BUNSPEC;
extern obj_t c_subucs2_string(obj_t, int, int);
static obj_t BGl_symbol3081z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3080z00zz__unicodez00 = BUNSPEC;
extern bool_t ucs2_string_cile(obj_t, obj_t);
static obj_t BGl_symbol3078z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3077z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3076z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3075z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3074z00zz__unicodez00 = BUNSPEC;
static obj_t BGl__subucs2zd2stringzd2zz__unicodez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3073z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringze3zd3zf3z11zz__unicodez00(obj_t, obj_t);
static obj_t BGl_symbol3070z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3069z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3068z00zz__unicodez00 = BUNSPEC;
static obj_t BGl__listzd2ze3ucs2zd2stringze3zz__unicodez00(obj_t, obj_t);
static obj_t BGl__ucs2zd2stringzf3z21zz__unicodez00(obj_t, obj_t);
static obj_t BGl_symbol3067z00zz__unicodez00 = BUNSPEC;
static obj_t BGl__ucs2zd2stringzd2zz__unicodez00(obj_t, obj_t);
static obj_t BGl_symbol3066z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3065z00zz__unicodez00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_ucs2zd2stringzd2cizc3zd3zf3ze3zz__unicodez00(obj_t, obj_t);
static obj_t BGl_symbol3064z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3063z00zz__unicodez00 = BUNSPEC;
extern bool_t ucs2_string_cilt(obj_t, obj_t);
static obj_t BGl_symbol3062z00zz__unicodez00 = BUNSPEC;
static obj_t BGl_symbol3061z00zz__unicodez00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_STRING( BGl_string3079z00zz__unicodez00, BgL_bgl_string3079za700za7za7__unicodeza7003128z00, "pair-nil", 8 );
DEFINE_STRING( BGl_string3072z00zz__unicodez00, BgL_bgl_string3072za700za7za7__unicodeza7003129z00, "Illegal index", 13 );
DEFINE_STRING( BGl_string3071z00zz__unicodez00, BgL_bgl_string3071za700za7za7__unicodeza7003130z00, "subucs2-string", 14 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2setz12zd2envzc0zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2setza712za712za7za7__unicodeza7003131za7, BGl__ucs2zd2stringzd2setz12z12zz__unicodez00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2refzd2urzd2envz00zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2refza7d2urza7d2za7za7__unicodeza7003132za7, BGl__ucs2zd2stringzd2refzd2urzd2zz__unicodez00, 0L, 2 );
DEFINE_STRING( BGl_string3044z00zz__unicodez00, BgL_bgl_string3044za700za7za7__unicodeza7003133z00, "ucs2-string-set!", 16 );
DEFINE_STRING( BGl_string3041z00zz__unicodez00, BgL_bgl_string3041za700za7za7__unicodeza7003134z00, "index out of range", 18 );
DEFINE_STRING( BGl_string3040z00zz__unicodez00, BgL_bgl_string3040za700za7za7__unicodeza7003135z00, "ucs2-string-ref", 15 );
DEFINE_STRING( BGl_string3038z00zz__unicodez00, BgL_bgl_string3038za700za7za7__unicodeza7003136z00, "ucs2string", 10 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2cizc3zf3zd2envze2zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2ciza7c3za7f3za730za7za7__unicodeza7003137z00, BGl__ucs2zd2stringzd2cizc3zf3z30zz__unicodez00, 0L, 2 );
DEFINE_STRING( BGl_string3034z00zz__unicodez00, BgL_bgl_string3034za700za7za7__unicodeza7003138z00, "int", 3 );
DEFINE_STRING( BGl_string3032z00zz__unicodez00, BgL_bgl_string3032za700za7za7__unicodeza7003139z00, "ucs2", 4 );
DEFINE_STRING( BGl_string3031z00zz__unicodez00, BgL_bgl_string3031za700za7za7__unicodeza7003140z00, "/tmp/bigloo/runtime/./Llib/unicode.scm", 38 );
DEFINE_STRING( BGl_string3030z00zz__unicodez00, BgL_bgl_string3030za700za7za7__unicodeza7003141z00, "pair", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2upcasez12zd2envzc0zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2upcaseza712za712za7za7__unicodeza7003142za7, BGl__ucs2zd2stringzd2upcasez12z12zz__unicodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzc3zf3zd2envz30zz__unicodez00, BgL_bgl__ucs2za7d2stringza7c3za7f3za7e2za7za7__unicodeza7003143za7, BGl__ucs2zd2stringzc3zf3ze2zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringze3zd3zf3zd2envzc3zz__unicodez00, BgL_bgl__ucs2za7d2stringza7e3za7d3za7f3za711za7za7__unicodeza7003144z00, BGl__ucs2zd2stringze3zd3zf3z11zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2ze3ucs2zd2stringzd2envz31zz__unicodez00, BgL_bgl__listza7d2za7e3ucs2za7d2stringza7e3za7za7__unicodeza7003145za7, BGl__listzd2ze3ucs2zd2stringze3zz__unicodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_utf8zd2stringzd2ze3ucs2zd2stringzd2envze3zz__unicodez00, BgL_bgl__utf8za7d2stringza7d2za7e3ucs2za7d2stringza731za7za7__unicodeza7003146z00, BGl__utf8zd2stringzd2ze3ucs2zd2stringz31zz__unicodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzc3zd3zf3zd2envze3zz__unicodez00, BgL_bgl__ucs2za7d2stringza7c3za7d3za7f3za731za7za7__unicodeza7003147z00, BGl__ucs2zd2stringzc3zd3zf3z31zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2ucs2zd2stringzd2envzd2zz__unicodez00, BgL_bgl__makeza7d2ucs2za7d2stringza700za7za7__unicodeza7003148z00, va_generic_entry, BGl__makezd2ucs2zd2stringz00zz__unicodez00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2cize3zf3zd2envzc2zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2ciza7e3za7f3za710za7za7__unicodeza7003149z00, BGl__ucs2zd2stringzd2cize3zf3z10zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2cize3zd3zf3zd2envz11zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2ciza7e3za7d3za7f3za7c3za7za7__unicodeza7003150za7, BGl__ucs2zd2stringzd2cize3zd3zf3zc3zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2downcasez12zd2envzc0zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2downcaseza712za712za7za7__unicodeza7003151za7, BGl__ucs2zd2stringzd2downcasez12z12zz__unicodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2upcasezd2envzd2zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2upcaseza700za7za7__unicodeza7003152z00, BGl__ucs2zd2stringzd2upcasez00zz__unicodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2ze3utf8zd2stringzd2envze3zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2za7e3utf8za7d2stringza731za7za7__unicodeza7003153z00, BGl__ucs2zd2stringzd2ze3utf8zd2stringz31zz__unicodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2lengthzd2envzd2zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2lengthza700za7za7__unicodeza7003154z00, BGl__ucs2zd2stringzd2lengthz00zz__unicodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringze3zf3zd2envz10zz__unicodez00, BgL_bgl__ucs2za7d2stringza7e3za7f3za7c2za7za7__unicodeza7003155za7, BGl__ucs2zd2stringze3zf3zc2zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2copyzd2envzd2zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2copyza700za7za7__unicodeza7003156z00, BGl__ucs2zd2stringzd2copyz00zz__unicodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2cizc3zd3zf3zd2envz31zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2ciza7c3za7d3za7f3za7e3za7za7__unicodeza7003157za7, BGl__ucs2zd2stringzd2cizc3zd3zf3ze3zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2envz00zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2za7za7__unicodeza7003158za7, va_generic_entry, BGl__ucs2zd2stringzd2zz__unicodez00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2fillz12zd2envzc0zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2fillza712za712za7za7__unicodeza7003159za7, BGl__ucs2zd2stringzd2fillz12z12zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2setzd2urz12zd2envz12zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2setza7d2urza712za7c0za7za7__unicodeza7003160z00, BGl__ucs2zd2stringzd2setzd2urz12zc0zz__unicodez00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2refzd2envzd2zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2refza700za7za7__unicodeza7003161z00, BGl__ucs2zd2stringzd2refz00zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2appendzd2envzd2zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2appendza700za7za7__unicodeza7003162z00, va_generic_entry, BGl__ucs2zd2stringzd2appendz00zz__unicodez00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2cizd3zf3zd2envzf2zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2ciza7d3za7f3za720za7za7__unicodeza7003163z00, BGl__ucs2zd2stringzd2cizd3zf3z20zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2downcasezd2envzd2zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2downcaseza700za7za7__unicodeza7003164z00, BGl__ucs2zd2stringzd2downcasez00zz__unicodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_subucs2zd2stringzd2urzd2envzd2zz__unicodez00, BgL_bgl__subucs2za7d2stringza7d2urza700za7za7__unicodeza7003165z00, BGl__subucs2zd2stringzd2urz00zz__unicodez00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzf3zd2envzf3zz__unicodez00, BgL_bgl__ucs2za7d2stringza7f3za721za7za7__unicodeza7003166z00, BGl__ucs2zd2stringzf3z21zz__unicodez00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_subucs2zd2stringzd2envz00zz__unicodez00, BgL_bgl__subucs2za7d2stringza7d2za7za7__unicodeza7003167za7, BGl__subucs2zd2stringzd2zz__unicodez00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd3zf3zd2envz20zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d3za7f3za7f2za7za7__unicodeza7003168za7, BGl__ucs2zd2stringzd3zf3zf2zz__unicodez00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ucs2zd2stringzd2ze3listzd2envz31zz__unicodez00, BgL_bgl__ucs2za7d2stringza7d2za7e3listza7e3za7za7__unicodeza7003169za7, BGl__ucs2zd2stringzd2ze3listze3zz__unicodez00, 0L, 1 );
DEFINE_STRING( BGl_string3098z00zz__unicodez00, BgL_bgl_string3098za700za7za7__unicodeza7003170z00, "bstring", 7 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__unicodez00(long BgL_checksumz00_1379, char * BgL_fromz00_1380)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__unicodez00))
{ 
BGl_requirezd2initializa7ationz75zz__unicodez00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__unicodez00(); 
BGl_importedzd2moduleszd2initz00zz__unicodez00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__unicodez00()
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 14 */
BGl_symbol3028z00zz__unicodez00 = 
string_to_symbol("ucs2-string?"); 
BGl_symbol3029z00zz__unicodez00 = 
string_to_symbol("make-ucs2-string"); 
BGl_symbol3033z00zz__unicodez00 = 
string_to_symbol("_make-ucs2-string"); 
BGl_symbol3035z00zz__unicodez00 = 
string_to_symbol("ucs2-string"); 
BGl_symbol3036z00zz__unicodez00 = 
string_to_symbol("ucs2-string-length"); 
BGl_symbol3037z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-length"); 
BGl_symbol3039z00zz__unicodez00 = 
string_to_symbol("ucs2-string-ref"); 
BGl_symbol3042z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-ref"); 
BGl_symbol3043z00zz__unicodez00 = 
string_to_symbol("ucs2-string-set!"); 
BGl_symbol3045z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-set!"); 
BGl_symbol3046z00zz__unicodez00 = 
string_to_symbol("ucs2-string-ref-ur"); 
BGl_symbol3047z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-ref-ur"); 
BGl_symbol3048z00zz__unicodez00 = 
string_to_symbol("ucs2-string-set-ur!"); 
BGl_symbol3049z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-set-ur!"); 
BGl_symbol3050z00zz__unicodez00 = 
string_to_symbol("ucs2-string=?"); 
BGl_symbol3051z00zz__unicodez00 = 
string_to_symbol("_ucs2-string=?"); 
BGl_symbol3052z00zz__unicodez00 = 
string_to_symbol("ucs2-string-ci=?"); 
BGl_symbol3053z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-ci=?"); 
BGl_symbol3054z00zz__unicodez00 = 
string_to_symbol("ucs2-string<?"); 
BGl_symbol3055z00zz__unicodez00 = 
string_to_symbol("_ucs2-string<?"); 
BGl_symbol3056z00zz__unicodez00 = 
string_to_symbol("ucs2-string>?"); 
BGl_symbol3057z00zz__unicodez00 = 
string_to_symbol("_ucs2-string>?"); 
BGl_symbol3058z00zz__unicodez00 = 
string_to_symbol("ucs2-string<=?"); 
BGl_symbol3059z00zz__unicodez00 = 
string_to_symbol("_ucs2-string<=?"); 
BGl_symbol3060z00zz__unicodez00 = 
string_to_symbol("ucs2-string>=?"); 
BGl_symbol3061z00zz__unicodez00 = 
string_to_symbol("_ucs2-string>=?"); 
BGl_symbol3062z00zz__unicodez00 = 
string_to_symbol("ucs2-string-ci<?"); 
BGl_symbol3063z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-ci<?"); 
BGl_symbol3064z00zz__unicodez00 = 
string_to_symbol("ucs2-string-ci>?"); 
BGl_symbol3065z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-ci>?"); 
BGl_symbol3066z00zz__unicodez00 = 
string_to_symbol("ucs2-string-ci<=?"); 
BGl_symbol3067z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-ci<=?"); 
BGl_symbol3068z00zz__unicodez00 = 
string_to_symbol("ucs2-string-ci>=?"); 
BGl_symbol3069z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-ci>=?"); 
BGl_symbol3070z00zz__unicodez00 = 
string_to_symbol("subucs2-string"); 
BGl_symbol3073z00zz__unicodez00 = 
string_to_symbol("_subucs2-string"); 
BGl_symbol3074z00zz__unicodez00 = 
string_to_symbol("subucs2-string-ur"); 
BGl_symbol3075z00zz__unicodez00 = 
string_to_symbol("_subucs2-string-ur"); 
BGl_symbol3076z00zz__unicodez00 = 
string_to_symbol("ucs2-string-append"); 
BGl_symbol3077z00zz__unicodez00 = 
string_to_symbol("loop"); 
BGl_symbol3078z00zz__unicodez00 = 
string_to_symbol("list->ucs2-string"); 
BGl_symbol3080z00zz__unicodez00 = 
string_to_symbol("ucs2-string->list"); 
BGl_symbol3081z00zz__unicodez00 = 
string_to_symbol("_ucs2-string->list"); 
BGl_symbol3082z00zz__unicodez00 = 
string_to_symbol("ucs2-string-copy"); 
BGl_symbol3083z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-copy"); 
BGl_symbol3084z00zz__unicodez00 = 
string_to_symbol("ucs2-string-fill!"); 
BGl_symbol3085z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-fill!"); 
BGl_symbol3086z00zz__unicodez00 = 
string_to_symbol("ucs2-string-upcase"); 
BGl_symbol3087z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-upcase"); 
BGl_symbol3088z00zz__unicodez00 = 
string_to_symbol("ucs2-string-downcase"); 
BGl_symbol3089z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-downcase"); 
BGl_symbol3090z00zz__unicodez00 = 
string_to_symbol("ucs2-string-upcase!"); 
BGl_symbol3091z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-upcase!"); 
BGl_symbol3092z00zz__unicodez00 = 
string_to_symbol("ucs2-string-downcase!"); 
BGl_symbol3093z00zz__unicodez00 = 
string_to_symbol("_ucs2-string-downcase!"); 
BGl_symbol3094z00zz__unicodez00 = 
string_to_symbol("ucs2-string->utf8-string"); 
BGl_symbol3095z00zz__unicodez00 = 
string_to_symbol("_ucs2-string->utf8-string"); 
BGl_symbol3096z00zz__unicodez00 = 
string_to_symbol("utf8-string->ucs2-string"); 
BGl_symbol3097z00zz__unicodez00 = 
string_to_symbol("_utf8-string->ucs2-string"); 
return ( 
BGl_symbol3099z00zz__unicodez00 = 
string_to_symbol("%import@__unicode"), BUNSPEC) ;} 
}



/* ucs2-string? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzf3z21zz__unicodez00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 180 */
{ /* ./Llib/unicode.scm 181 */
obj_t BgL_symbol1894z00_1188;
BgL_symbol1894z00_1188 = BGl_symbol3028z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 181 */

PUSH_TRACE(BgL_symbol1894z00_1188); BUNSPEC; 
{ /* ./Llib/unicode.scm 181 */
bool_t BgL_aux1893z00_1189;
BgL_aux1893z00_1189 = 
UCS2_STRINGP(BgL_objz00_1); 
POP_TRACE(); 
return BgL_aux1893z00_1189;} } } } 
}



/* _ucs2-string? */
obj_t BGl__ucs2zd2stringzf3z21zz__unicodez00(obj_t BgL_envz00_950, obj_t BgL_objz00_951)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 180 */
{ /* ./Llib/unicode.scm 181 */
bool_t BgL_auxz00_1449;
{ /* ./Llib/unicode.scm 181 */
bool_t BgL_res3100z00_1193;
{ /* ./Llib/unicode.scm 181 */
obj_t BgL_symbol1894z00_1191;
BgL_symbol1894z00_1191 = BGl_symbol3028z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 181 */

PUSH_TRACE(BgL_symbol1894z00_1191); BUNSPEC; 
{ /* ./Llib/unicode.scm 181 */
bool_t BgL_aux1893z00_1192;
BgL_aux1893z00_1192 = 
UCS2_STRINGP(BgL_objz00_951); 
POP_TRACE(); 
BgL_res3100z00_1193 = BgL_aux1893z00_1192; } } } 
BgL_auxz00_1449 = BgL_res3100z00_1193; } 
return 
BBOOL(BgL_auxz00_1449);} } 
}



/* make-ucs2-string */
BGL_EXPORTED_DEF obj_t BGl_makezd2ucs2zd2stringz00zz__unicodez00(int BgL_kz00_2, obj_t BgL_ucs2z00_3)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 186 */
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_symbol1898z00_1194;
BgL_symbol1898z00_1194 = BGl_symbol3029z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 187 */

PUSH_TRACE(BgL_symbol1898z00_1194); BUNSPEC; 
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_aux1897z00_1195;
if(
NULLP(BgL_ucs2z00_3))
{ /* ./Llib/unicode.scm 187 */
ucs2_t BgL_auxz00_1457;
{ /* ./Llib/unicode.scm 187 */
int BgL_auxz00_1458;
{ /* ./Llib/unicode.scm 187 */
long BgL_auxz00_1459;
{ /* ./Llib/unicode.scm 187 */
unsigned char BgL_auxz00_1460;
{ /* ./Llib/unicode.scm 187 */
char BgL_auxz00_1461;
BgL_auxz00_1461 = 
(char)(((unsigned char)' ')); 
BgL_auxz00_1460 = 
(unsigned char)(BgL_auxz00_1461); } 
BgL_auxz00_1459 = 
(BgL_auxz00_1460); } 
BgL_auxz00_1458 = 
(int)(BgL_auxz00_1459); } 
BgL_auxz00_1457 = 
BGl_integerzd2ze3ucs2z31zz__ucs2z00(BgL_auxz00_1458); } 
BgL_aux1897z00_1195 = 
make_ucs2_string(BgL_kz00_2, BgL_auxz00_1457); }  else 
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_arg1011z00_1196;
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_pairz00_1197;
if(
PAIRP(BgL_ucs2z00_3))
{ /* ./Llib/unicode.scm 187 */
BgL_pairz00_1197 = BgL_ucs2z00_3; }  else 
{ /* ./Llib/unicode.scm 187 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3029z00zz__unicodez00, BGl_string3030z00zz__unicodez00, BgL_ucs2z00_3, BGl_string3031z00zz__unicodez00, 
BINT(((long)8247))); 
exit( -1 );} 
BgL_arg1011z00_1196 = 
CAR(BgL_pairz00_1197); } 
{ /* ./Llib/unicode.scm 187 */
ucs2_t BgL_auxz00_1474;
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_auxz00_1475;
if(
UCS2P(BgL_arg1011z00_1196))
{ /* ./Llib/unicode.scm 187 */
BgL_auxz00_1475 = BgL_arg1011z00_1196
; }  else 
{ /* ./Llib/unicode.scm 187 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3029z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_arg1011z00_1196, BGl_string3031z00zz__unicodez00, 
BINT(((long)8247))); 
exit( -1 );} 
BgL_auxz00_1474 = 
CUCS2(BgL_auxz00_1475); } 
BgL_aux1897z00_1195 = 
make_ucs2_string(BgL_kz00_2, BgL_auxz00_1474); } } 
POP_TRACE(); 
return BgL_aux1897z00_1195;} } } } 
}



/* _make-ucs2-string */
obj_t BGl__makezd2ucs2zd2stringz00zz__unicodez00(obj_t BgL_envz00_952, obj_t BgL_kz00_953, obj_t BgL_ucs2z00_954)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 186 */
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_res3101z00_1204;
{ /* ./Llib/unicode.scm 187 */
int BgL_kz00_1198;
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_auxz00_1484;
if(
INTEGERP(BgL_kz00_953))
{ /* ./Llib/unicode.scm 187 */
BgL_auxz00_1484 = BgL_kz00_953
; }  else 
{ /* ./Llib/unicode.scm 187 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3033z00zz__unicodez00, BGl_string3034z00zz__unicodez00, BgL_kz00_953, BGl_string3031z00zz__unicodez00, 
BINT(((long)8247))); 
exit( -1 );} 
BgL_kz00_1198 = 
CINT(BgL_auxz00_1484); } 
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_symbol1898z00_1200;
BgL_symbol1898z00_1200 = BGl_symbol3029z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 187 */

PUSH_TRACE(BgL_symbol1898z00_1200); BUNSPEC; 
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_aux1897z00_1201;
if(
NULLP(BgL_ucs2z00_954))
{ /* ./Llib/unicode.scm 187 */
ucs2_t BgL_auxz00_1494;
{ /* ./Llib/unicode.scm 187 */
int BgL_auxz00_1495;
{ /* ./Llib/unicode.scm 187 */
long BgL_auxz00_1496;
{ /* ./Llib/unicode.scm 187 */
unsigned char BgL_auxz00_1497;
{ /* ./Llib/unicode.scm 187 */
char BgL_auxz00_1498;
BgL_auxz00_1498 = 
(char)(((unsigned char)' ')); 
BgL_auxz00_1497 = 
(unsigned char)(BgL_auxz00_1498); } 
BgL_auxz00_1496 = 
(BgL_auxz00_1497); } 
BgL_auxz00_1495 = 
(int)(BgL_auxz00_1496); } 
BgL_auxz00_1494 = 
BGl_integerzd2ze3ucs2z31zz__ucs2z00(BgL_auxz00_1495); } 
BgL_aux1897z00_1201 = 
make_ucs2_string(BgL_kz00_1198, BgL_auxz00_1494); }  else 
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_arg1011z00_1202;
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_pairz00_1203;
if(
PAIRP(BgL_ucs2z00_954))
{ /* ./Llib/unicode.scm 187 */
BgL_pairz00_1203 = BgL_ucs2z00_954; }  else 
{ /* ./Llib/unicode.scm 187 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3029z00zz__unicodez00, BGl_string3030z00zz__unicodez00, BgL_ucs2z00_954, BGl_string3031z00zz__unicodez00, 
BINT(((long)8247))); 
exit( -1 );} 
BgL_arg1011z00_1202 = 
CAR(BgL_pairz00_1203); } 
{ /* ./Llib/unicode.scm 187 */
ucs2_t BgL_auxz00_1511;
{ /* ./Llib/unicode.scm 187 */
obj_t BgL_auxz00_1512;
if(
UCS2P(BgL_arg1011z00_1202))
{ /* ./Llib/unicode.scm 187 */
BgL_auxz00_1512 = BgL_arg1011z00_1202
; }  else 
{ /* ./Llib/unicode.scm 187 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3029z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_arg1011z00_1202, BGl_string3031z00zz__unicodez00, 
BINT(((long)8247))); 
exit( -1 );} 
BgL_auxz00_1511 = 
CUCS2(BgL_auxz00_1512); } 
BgL_aux1897z00_1201 = 
make_ucs2_string(BgL_kz00_1198, BgL_auxz00_1511); } } 
POP_TRACE(); 
BgL_res3101z00_1204 = BgL_aux1897z00_1201; } } } } 
return BgL_res3101z00_1204;} } 
}



/* ucs2-string */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2zz__unicodez00(obj_t BgL_ucs2sz00_4)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 194 */
{ /* ./Llib/unicode.scm 195 */
obj_t BgL_symbol1902z00_1205;
BgL_symbol1902z00_1205 = BGl_symbol3035z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 195 */

PUSH_TRACE(BgL_symbol1902z00_1205); BUNSPEC; 
{ /* ./Llib/unicode.scm 195 */
obj_t BgL_aux1901z00_1206;
BgL_aux1901z00_1206 = 
BGl_listzd2ze3ucs2zd2stringze3zz__unicodez00(BgL_ucs2sz00_4); 
POP_TRACE(); 
return BgL_aux1901z00_1206;} } } } 
}



/* _ucs2-string */
obj_t BGl__ucs2zd2stringzd2zz__unicodez00(obj_t BgL_envz00_955, obj_t BgL_ucs2sz00_956)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 194 */
{ /* ./Llib/unicode.scm 195 */
obj_t BgL_res3102z00_1210;
{ /* ./Llib/unicode.scm 195 */
obj_t BgL_symbol1902z00_1208;
BgL_symbol1902z00_1208 = BGl_symbol3035z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 195 */

PUSH_TRACE(BgL_symbol1902z00_1208); BUNSPEC; 
{ /* ./Llib/unicode.scm 195 */
obj_t BgL_aux1901z00_1209;
BgL_aux1901z00_1209 = 
BGl_listzd2ze3ucs2zd2stringze3zz__unicodez00(BgL_ucs2sz00_956); 
POP_TRACE(); 
BgL_res3102z00_1210 = BgL_aux1901z00_1209; } } } 
return BgL_res3102z00_1210;} } 
}



/* ucs2-string-length */
BGL_EXPORTED_DEF int BGl_ucs2zd2stringzd2lengthz00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_5)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 200 */
{ /* ./Llib/unicode.scm 201 */
obj_t BgL_symbol1906z00_1211;
BgL_symbol1906z00_1211 = BGl_symbol3036z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 201 */

PUSH_TRACE(BgL_symbol1906z00_1211); BUNSPEC; 
{ /* ./Llib/unicode.scm 201 */
int BgL_aux1905z00_1212;
BgL_aux1905z00_1212 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_5); 
POP_TRACE(); 
return BgL_aux1905z00_1212;} } } } 
}



/* _ucs2-string-length */
obj_t BGl__ucs2zd2stringzd2lengthz00zz__unicodez00(obj_t BgL_envz00_957, obj_t BgL_ucs2zd2stringzd2_958)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 200 */
{ /* ./Llib/unicode.scm 201 */
int BgL_auxz00_1530;
{ /* ./Llib/unicode.scm 201 */
int BgL_res3103z00_1216;
{ /* ./Llib/unicode.scm 201 */
obj_t BgL_ucs2zd2stringzd2_1213;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_958))
{ /* ./Llib/unicode.scm 201 */
BgL_ucs2zd2stringzd2_1213 = BgL_ucs2zd2stringzd2_958; }  else 
{ /* ./Llib/unicode.scm 201 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3037z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_958, BGl_string3031z00zz__unicodez00, 
BINT(((long)8923))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 201 */
obj_t BgL_symbol1906z00_1214;
BgL_symbol1906z00_1214 = BGl_symbol3036z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 201 */

PUSH_TRACE(BgL_symbol1906z00_1214); BUNSPEC; 
{ /* ./Llib/unicode.scm 201 */
int BgL_aux1905z00_1215;
BgL_aux1905z00_1215 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_1213); 
POP_TRACE(); 
BgL_res3103z00_1216 = BgL_aux1905z00_1215; } } } } 
BgL_auxz00_1530 = BgL_res3103z00_1216; } 
return 
BINT(BgL_auxz00_1530);} } 
}



/* ucs2-string-ref */
BGL_EXPORTED_DEF ucs2_t BGl_ucs2zd2stringzd2refz00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_6, int BgL_kz00_7)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 206 */
{ /* ./Llib/unicode.scm 207 */
obj_t BgL_symbol1910z00_1217;
BgL_symbol1910z00_1217 = BGl_symbol3039z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 207 */

PUSH_TRACE(BgL_symbol1910z00_1217); BUNSPEC; 
{ /* ./Llib/unicode.scm 207 */
ucs2_t BgL_aux1909z00_1218;
{ /* ./Llib/unicode.scm 207 */
bool_t BgL_testz00_1541;
{ /* ./Llib/unicode.scm 207 */
int BgL_auxz00_1542;
BgL_auxz00_1542 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_6); 
BgL_testz00_1541 = 
BOUND_CHECK(BgL_kz00_7, BgL_auxz00_1542); } 
if(BgL_testz00_1541)
{ /* ./Llib/unicode.scm 207 */
BgL_aux1909z00_1218 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_6, BgL_kz00_7); }  else 
{ /* ./Llib/unicode.scm 207 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3040z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_7), "./Llib/unicode.scm", ((long)9341)); 
{ /* ./Llib/unicode.scm 207 */
obj_t BgL_auxz00_1548;
{ /* ./Llib/unicode.scm 207 */
obj_t BgL_aux2121z00_1222;
BgL_aux2121z00_1222 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)9259))); 
if(
UCS2P(BgL_aux2121z00_1222))
{ /* ./Llib/unicode.scm 207 */
BgL_auxz00_1548 = BgL_aux2121z00_1222
; }  else 
{ /* ./Llib/unicode.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3039z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_aux2121z00_1222, BGl_string3031z00zz__unicodez00, 
BINT(((long)9259))); 
exit( -1 );} } 
BgL_aux1909z00_1218 = 
CUCS2(BgL_auxz00_1548); } } } 
POP_TRACE(); 
return BgL_aux1909z00_1218;} } } } 
}



/* _ucs2-string-ref */
obj_t BGl__ucs2zd2stringzd2refz00zz__unicodez00(obj_t BgL_envz00_959, obj_t BgL_ucs2zd2stringzd2_960, obj_t BgL_kz00_961)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 206 */
{ /* ./Llib/unicode.scm 207 */
ucs2_t BgL_auxz00_1558;
{ /* ./Llib/unicode.scm 207 */
ucs2_t BgL_res3104z00_1231;
{ /* ./Llib/unicode.scm 207 */
obj_t BgL_ucs2zd2stringzd2_1223;int BgL_kz00_1224;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_960))
{ /* ./Llib/unicode.scm 207 */
BgL_ucs2zd2stringzd2_1223 = BgL_ucs2zd2stringzd2_960; }  else 
{ /* ./Llib/unicode.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3042z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_960, BGl_string3031z00zz__unicodez00, 
BINT(((long)9259))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 207 */
obj_t BgL_auxz00_1564;
if(
INTEGERP(BgL_kz00_961))
{ /* ./Llib/unicode.scm 207 */
BgL_auxz00_1564 = BgL_kz00_961
; }  else 
{ /* ./Llib/unicode.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3042z00zz__unicodez00, BGl_string3034z00zz__unicodez00, BgL_kz00_961, BGl_string3031z00zz__unicodez00, 
BINT(((long)9259))); 
exit( -1 );} 
BgL_kz00_1224 = 
CINT(BgL_auxz00_1564); } 
{ /* ./Llib/unicode.scm 207 */
obj_t BgL_symbol1910z00_1225;
BgL_symbol1910z00_1225 = BGl_symbol3039z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 207 */

PUSH_TRACE(BgL_symbol1910z00_1225); BUNSPEC; 
{ /* ./Llib/unicode.scm 207 */
ucs2_t BgL_aux1909z00_1226;
{ /* ./Llib/unicode.scm 207 */
bool_t BgL_testz00_1572;
{ /* ./Llib/unicode.scm 207 */
int BgL_auxz00_1573;
BgL_auxz00_1573 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_1223); 
BgL_testz00_1572 = 
BOUND_CHECK(BgL_kz00_1224, BgL_auxz00_1573); } 
if(BgL_testz00_1572)
{ /* ./Llib/unicode.scm 207 */
BgL_aux1909z00_1226 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_1223, BgL_kz00_1224); }  else 
{ /* ./Llib/unicode.scm 207 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3040z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_1224), "./Llib/unicode.scm", ((long)9341)); 
{ /* ./Llib/unicode.scm 207 */
obj_t BgL_auxz00_1579;
{ /* ./Llib/unicode.scm 207 */
obj_t BgL_aux2121z00_1230;
BgL_aux2121z00_1230 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)9259))); 
if(
UCS2P(BgL_aux2121z00_1230))
{ /* ./Llib/unicode.scm 207 */
BgL_auxz00_1579 = BgL_aux2121z00_1230
; }  else 
{ /* ./Llib/unicode.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3039z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_aux2121z00_1230, BGl_string3031z00zz__unicodez00, 
BINT(((long)9259))); 
exit( -1 );} } 
BgL_aux1909z00_1226 = 
CUCS2(BgL_auxz00_1579); } } } 
POP_TRACE(); 
BgL_res3104z00_1231 = BgL_aux1909z00_1226; } } } } 
BgL_auxz00_1558 = BgL_res3104z00_1231; } 
return 
BUCS2(BgL_auxz00_1558);} } 
}



/* ucs2-string-set! */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2setz12z12zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_8, int BgL_kz00_9, ucs2_t BgL_ucs2z00_10)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 214 */
{ /* ./Llib/unicode.scm 215 */
obj_t BgL_symbol1914z00_1232;
BgL_symbol1914z00_1232 = BGl_symbol3043z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 215 */

PUSH_TRACE(BgL_symbol1914z00_1232); BUNSPEC; 
{ /* ./Llib/unicode.scm 215 */
obj_t BgL_aux1913z00_1233;
{ /* ./Llib/unicode.scm 215 */
bool_t BgL_testz00_1591;
{ /* ./Llib/unicode.scm 215 */
int BgL_auxz00_1592;
BgL_auxz00_1592 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_8); 
BgL_testz00_1591 = 
BOUND_CHECK(BgL_kz00_9, BgL_auxz00_1592); } 
if(BgL_testz00_1591)
{ /* ./Llib/unicode.scm 215 */
BgL_aux1913z00_1233 = 
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_8, BgL_kz00_9, BgL_ucs2z00_10); }  else 
{ /* ./Llib/unicode.scm 215 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3044z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_9), "./Llib/unicode.scm", ((long)9787)); 
BgL_aux1913z00_1233 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)9699))); } } 
POP_TRACE(); 
return BgL_aux1913z00_1233;} } } } 
}



/* _ucs2-string-set! */
obj_t BGl__ucs2zd2stringzd2setz12z12zz__unicodez00(obj_t BgL_envz00_962, obj_t BgL_ucs2zd2stringzd2_963, obj_t BgL_kz00_964, obj_t BgL_ucs2z00_965)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 214 */
{ /* ./Llib/unicode.scm 215 */
obj_t BgL_ucs2zd2stringzd2_1234;int BgL_kz00_1235;ucs2_t BgL_ucs2z00_1236;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_963))
{ /* ./Llib/unicode.scm 215 */
BgL_ucs2zd2stringzd2_1234 = BgL_ucs2zd2stringzd2_963; }  else 
{ /* ./Llib/unicode.scm 215 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3045z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_963, BGl_string3031z00zz__unicodez00, 
BINT(((long)9699))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 215 */
obj_t BgL_auxz00_1606;
if(
INTEGERP(BgL_kz00_964))
{ /* ./Llib/unicode.scm 215 */
BgL_auxz00_1606 = BgL_kz00_964
; }  else 
{ /* ./Llib/unicode.scm 215 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3045z00zz__unicodez00, BGl_string3034z00zz__unicodez00, BgL_kz00_964, BGl_string3031z00zz__unicodez00, 
BINT(((long)9699))); 
exit( -1 );} 
BgL_kz00_1235 = 
CINT(BgL_auxz00_1606); } 
{ /* ./Llib/unicode.scm 215 */
obj_t BgL_auxz00_1613;
if(
UCS2P(BgL_ucs2z00_965))
{ /* ./Llib/unicode.scm 215 */
BgL_auxz00_1613 = BgL_ucs2z00_965
; }  else 
{ /* ./Llib/unicode.scm 215 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3045z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_ucs2z00_965, BGl_string3031z00zz__unicodez00, 
BINT(((long)9699))); 
exit( -1 );} 
BgL_ucs2z00_1236 = 
CUCS2(BgL_auxz00_1613); } 
{ /* ./Llib/unicode.scm 215 */
obj_t BgL_symbol1914z00_1237;
BgL_symbol1914z00_1237 = BGl_symbol3043z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 215 */

PUSH_TRACE(BgL_symbol1914z00_1237); BUNSPEC; 
{ /* ./Llib/unicode.scm 215 */
obj_t BgL_aux1913z00_1238;
{ /* ./Llib/unicode.scm 215 */
bool_t BgL_testz00_1621;
{ /* ./Llib/unicode.scm 215 */
int BgL_auxz00_1622;
BgL_auxz00_1622 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_1234); 
BgL_testz00_1621 = 
BOUND_CHECK(BgL_kz00_1235, BgL_auxz00_1622); } 
if(BgL_testz00_1621)
{ /* ./Llib/unicode.scm 215 */
BgL_aux1913z00_1238 = 
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_1234, BgL_kz00_1235, BgL_ucs2z00_1236); }  else 
{ /* ./Llib/unicode.scm 215 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3044z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_1235), "./Llib/unicode.scm", ((long)9787)); 
BgL_aux1913z00_1238 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)9699))); } } 
POP_TRACE(); 
return BgL_aux1913z00_1238;} } } } } 
}



/* ucs2-string-ref-ur */
BGL_EXPORTED_DEF ucs2_t BGl_ucs2zd2stringzd2refzd2urzd2zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_11, int BgL_kz00_12)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 222 */
{ /* ./Llib/unicode.scm 223 */
obj_t BgL_symbol1918z00_1239;
BgL_symbol1918z00_1239 = BGl_symbol3046z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 223 */

PUSH_TRACE(BgL_symbol1918z00_1239); BUNSPEC; 
{ /* ./Llib/unicode.scm 223 */
ucs2_t BgL_aux1917z00_1240;
BgL_aux1917z00_1240 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_11, BgL_kz00_12); 
POP_TRACE(); 
return BgL_aux1917z00_1240;} } } } 
}



/* _ucs2-string-ref-ur */
obj_t BGl__ucs2zd2stringzd2refzd2urzd2zz__unicodez00(obj_t BgL_envz00_966, obj_t BgL_ucs2zd2stringzd2_967, obj_t BgL_kz00_968)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 222 */
{ /* ./Llib/unicode.scm 223 */
ucs2_t BgL_auxz00_1634;
{ /* ./Llib/unicode.scm 223 */
ucs2_t BgL_res3105z00_1245;
{ /* ./Llib/unicode.scm 223 */
obj_t BgL_ucs2zd2stringzd2_1241;int BgL_kz00_1242;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_967))
{ /* ./Llib/unicode.scm 223 */
BgL_ucs2zd2stringzd2_1241 = BgL_ucs2zd2stringzd2_967; }  else 
{ /* ./Llib/unicode.scm 223 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3047z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_967, BGl_string3031z00zz__unicodez00, 
BINT(((long)10115))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 223 */
obj_t BgL_auxz00_1640;
if(
INTEGERP(BgL_kz00_968))
{ /* ./Llib/unicode.scm 223 */
BgL_auxz00_1640 = BgL_kz00_968
; }  else 
{ /* ./Llib/unicode.scm 223 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3047z00zz__unicodez00, BGl_string3034z00zz__unicodez00, BgL_kz00_968, BGl_string3031z00zz__unicodez00, 
BINT(((long)10115))); 
exit( -1 );} 
BgL_kz00_1242 = 
CINT(BgL_auxz00_1640); } 
{ /* ./Llib/unicode.scm 223 */
obj_t BgL_symbol1918z00_1243;
BgL_symbol1918z00_1243 = BGl_symbol3046z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 223 */

PUSH_TRACE(BgL_symbol1918z00_1243); BUNSPEC; 
{ /* ./Llib/unicode.scm 223 */
ucs2_t BgL_aux1917z00_1244;
BgL_aux1917z00_1244 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_1241, BgL_kz00_1242); 
POP_TRACE(); 
BgL_res3105z00_1245 = BgL_aux1917z00_1244; } } } } 
BgL_auxz00_1634 = BgL_res3105z00_1245; } 
return 
BUCS2(BgL_auxz00_1634);} } 
}



/* ucs2-string-set-ur! */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2setzd2urz12zc0zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_13, int BgL_kz00_14, ucs2_t BgL_ucs2z00_15)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 228 */
{ /* ./Llib/unicode.scm 229 */
obj_t BgL_symbol1922z00_1246;
BgL_symbol1922z00_1246 = BGl_symbol3048z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 229 */

PUSH_TRACE(BgL_symbol1922z00_1246); BUNSPEC; 
{ /* ./Llib/unicode.scm 229 */
obj_t BgL_aux1921z00_1247;
BgL_aux1921z00_1247 = 
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_13, BgL_kz00_14, BgL_ucs2z00_15); 
POP_TRACE(); 
return BgL_aux1921z00_1247;} } } } 
}



/* _ucs2-string-set-ur! */
obj_t BGl__ucs2zd2stringzd2setzd2urz12zc0zz__unicodez00(obj_t BgL_envz00_969, obj_t BgL_ucs2zd2stringzd2_970, obj_t BgL_kz00_971, obj_t BgL_ucs2z00_972)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 228 */
{ /* ./Llib/unicode.scm 229 */
obj_t BgL_ucs2zd2stringzd2_1248;int BgL_kz00_1249;ucs2_t BgL_ucs2z00_1250;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_970))
{ /* ./Llib/unicode.scm 229 */
BgL_ucs2zd2stringzd2_1248 = BgL_ucs2zd2stringzd2_970; }  else 
{ /* ./Llib/unicode.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3049z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_970, BGl_string3031z00zz__unicodez00, 
BINT(((long)10433))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 229 */
obj_t BgL_auxz00_1659;
if(
INTEGERP(BgL_kz00_971))
{ /* ./Llib/unicode.scm 229 */
BgL_auxz00_1659 = BgL_kz00_971
; }  else 
{ /* ./Llib/unicode.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3049z00zz__unicodez00, BGl_string3034z00zz__unicodez00, BgL_kz00_971, BGl_string3031z00zz__unicodez00, 
BINT(((long)10433))); 
exit( -1 );} 
BgL_kz00_1249 = 
CINT(BgL_auxz00_1659); } 
{ /* ./Llib/unicode.scm 229 */
obj_t BgL_auxz00_1666;
if(
UCS2P(BgL_ucs2z00_972))
{ /* ./Llib/unicode.scm 229 */
BgL_auxz00_1666 = BgL_ucs2z00_972
; }  else 
{ /* ./Llib/unicode.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3049z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_ucs2z00_972, BGl_string3031z00zz__unicodez00, 
BINT(((long)10433))); 
exit( -1 );} 
BgL_ucs2z00_1250 = 
CUCS2(BgL_auxz00_1666); } 
{ /* ./Llib/unicode.scm 229 */
obj_t BgL_symbol1922z00_1251;
BgL_symbol1922z00_1251 = BGl_symbol3048z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 229 */

PUSH_TRACE(BgL_symbol1922z00_1251); BUNSPEC; 
{ /* ./Llib/unicode.scm 229 */
obj_t BgL_aux1921z00_1252;
BgL_aux1921z00_1252 = 
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_1248, BgL_kz00_1249, BgL_ucs2z00_1250); 
POP_TRACE(); 
return BgL_aux1921z00_1252;} } } } } 
}



/* ucs2-string=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd3zf3zf2zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_16, obj_t BgL_ucs2zd2string2zd2_17)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 234 */
{ /* ./Llib/unicode.scm 235 */
obj_t BgL_symbol1926z00_1253;
BgL_symbol1926z00_1253 = BGl_symbol3050z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 235 */

PUSH_TRACE(BgL_symbol1926z00_1253); BUNSPEC; 
{ /* ./Llib/unicode.scm 235 */
bool_t BgL_aux1925z00_1254;
BgL_aux1925z00_1254 = 
ucs2_strcmp(BgL_ucs2zd2string1zd2_16, BgL_ucs2zd2string2zd2_17); 
POP_TRACE(); 
return BgL_aux1925z00_1254;} } } } 
}



/* _ucs2-string=? */
obj_t BGl__ucs2zd2stringzd3zf3zf2zz__unicodez00(obj_t BgL_envz00_973, obj_t BgL_ucs2zd2string1zd2_974, obj_t BgL_ucs2zd2string2zd2_975)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 234 */
{ /* ./Llib/unicode.scm 235 */
bool_t BgL_auxz00_1679;
{ /* ./Llib/unicode.scm 235 */
bool_t BgL_res3106z00_1259;
{ /* ./Llib/unicode.scm 235 */
obj_t BgL_ucs2zd2string1zd2_1255;obj_t BgL_ucs2zd2string2zd2_1256;
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_974))
{ /* ./Llib/unicode.scm 235 */
BgL_ucs2zd2string1zd2_1255 = BgL_ucs2zd2string1zd2_974; }  else 
{ /* ./Llib/unicode.scm 235 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3051z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string1zd2_974, BGl_string3031z00zz__unicodez00, 
BINT(((long)10757))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_975))
{ /* ./Llib/unicode.scm 235 */
BgL_ucs2zd2string2zd2_1256 = BgL_ucs2zd2string2zd2_975; }  else 
{ /* ./Llib/unicode.scm 235 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3051z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string2zd2_975, BGl_string3031z00zz__unicodez00, 
BINT(((long)10757))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 235 */
obj_t BgL_symbol1926z00_1257;
BgL_symbol1926z00_1257 = BGl_symbol3050z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 235 */

PUSH_TRACE(BgL_symbol1926z00_1257); BUNSPEC; 
{ /* ./Llib/unicode.scm 235 */
bool_t BgL_aux1925z00_1258;
BgL_aux1925z00_1258 = 
ucs2_strcmp(BgL_ucs2zd2string1zd2_1255, BgL_ucs2zd2string2zd2_1256); 
POP_TRACE(); 
BgL_res3106z00_1259 = BgL_aux1925z00_1258; } } } } 
BgL_auxz00_1679 = BgL_res3106z00_1259; } 
return 
BBOOL(BgL_auxz00_1679);} } 
}



/* ucs2-string-ci=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd2cizd3zf3z20zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_18, obj_t BgL_ucs2zd2string2zd2_19)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 240 */
{ /* ./Llib/unicode.scm 241 */
obj_t BgL_symbol1930z00_1260;
BgL_symbol1930z00_1260 = BGl_symbol3052z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 241 */

PUSH_TRACE(BgL_symbol1930z00_1260); BUNSPEC; 
{ /* ./Llib/unicode.scm 241 */
bool_t BgL_aux1929z00_1261;
BgL_aux1929z00_1261 = 
ucs2_strcicmp(BgL_ucs2zd2string1zd2_18, BgL_ucs2zd2string2zd2_19); 
POP_TRACE(); 
return BgL_aux1929z00_1261;} } } } 
}



/* _ucs2-string-ci=? */
obj_t BGl__ucs2zd2stringzd2cizd3zf3z20zz__unicodez00(obj_t BgL_envz00_976, obj_t BgL_ucs2zd2string1zd2_977, obj_t BgL_ucs2zd2string2zd2_978)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 240 */
{ /* ./Llib/unicode.scm 241 */
bool_t BgL_auxz00_1697;
{ /* ./Llib/unicode.scm 241 */
bool_t BgL_res3107z00_1266;
{ /* ./Llib/unicode.scm 241 */
obj_t BgL_ucs2zd2string1zd2_1262;obj_t BgL_ucs2zd2string2zd2_1263;
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_977))
{ /* ./Llib/unicode.scm 241 */
BgL_ucs2zd2string1zd2_1262 = BgL_ucs2zd2string1zd2_977; }  else 
{ /* ./Llib/unicode.scm 241 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3053z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string1zd2_977, BGl_string3031z00zz__unicodez00, 
BINT(((long)11088))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_978))
{ /* ./Llib/unicode.scm 241 */
BgL_ucs2zd2string2zd2_1263 = BgL_ucs2zd2string2zd2_978; }  else 
{ /* ./Llib/unicode.scm 241 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3053z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string2zd2_978, BGl_string3031z00zz__unicodez00, 
BINT(((long)11088))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 241 */
obj_t BgL_symbol1930z00_1264;
BgL_symbol1930z00_1264 = BGl_symbol3052z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 241 */

PUSH_TRACE(BgL_symbol1930z00_1264); BUNSPEC; 
{ /* ./Llib/unicode.scm 241 */
bool_t BgL_aux1929z00_1265;
BgL_aux1929z00_1265 = 
ucs2_strcicmp(BgL_ucs2zd2string1zd2_1262, BgL_ucs2zd2string2zd2_1263); 
POP_TRACE(); 
BgL_res3107z00_1266 = BgL_aux1929z00_1265; } } } } 
BgL_auxz00_1697 = BgL_res3107z00_1266; } 
return 
BBOOL(BgL_auxz00_1697);} } 
}



/* ucs2-string<? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzc3zf3ze2zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_20, obj_t BgL_ucs2zd2string2zd2_21)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 246 */
{ /* ./Llib/unicode.scm 247 */
obj_t BgL_symbol1934z00_1267;
BgL_symbol1934z00_1267 = BGl_symbol3054z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 247 */

PUSH_TRACE(BgL_symbol1934z00_1267); BUNSPEC; 
{ /* ./Llib/unicode.scm 247 */
bool_t BgL_aux1933z00_1268;
BgL_aux1933z00_1268 = 
ucs2_string_lt(BgL_ucs2zd2string1zd2_20, BgL_ucs2zd2string2zd2_21); 
POP_TRACE(); 
return BgL_aux1933z00_1268;} } } } 
}



/* _ucs2-string<? */
obj_t BGl__ucs2zd2stringzc3zf3ze2zz__unicodez00(obj_t BgL_envz00_979, obj_t BgL_ucs2zd2string1zd2_980, obj_t BgL_ucs2zd2string2zd2_981)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 246 */
{ /* ./Llib/unicode.scm 247 */
bool_t BgL_auxz00_1715;
{ /* ./Llib/unicode.scm 247 */
bool_t BgL_res3108z00_1273;
{ /* ./Llib/unicode.scm 247 */
obj_t BgL_ucs2zd2string1zd2_1269;obj_t BgL_ucs2zd2string2zd2_1270;
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_980))
{ /* ./Llib/unicode.scm 247 */
BgL_ucs2zd2string1zd2_1269 = BgL_ucs2zd2string1zd2_980; }  else 
{ /* ./Llib/unicode.scm 247 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3055z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string1zd2_980, BGl_string3031z00zz__unicodez00, 
BINT(((long)11414))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_981))
{ /* ./Llib/unicode.scm 247 */
BgL_ucs2zd2string2zd2_1270 = BgL_ucs2zd2string2zd2_981; }  else 
{ /* ./Llib/unicode.scm 247 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3055z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string2zd2_981, BGl_string3031z00zz__unicodez00, 
BINT(((long)11414))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 247 */
obj_t BgL_symbol1934z00_1271;
BgL_symbol1934z00_1271 = BGl_symbol3054z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 247 */

PUSH_TRACE(BgL_symbol1934z00_1271); BUNSPEC; 
{ /* ./Llib/unicode.scm 247 */
bool_t BgL_aux1933z00_1272;
BgL_aux1933z00_1272 = 
ucs2_string_lt(BgL_ucs2zd2string1zd2_1269, BgL_ucs2zd2string2zd2_1270); 
POP_TRACE(); 
BgL_res3108z00_1273 = BgL_aux1933z00_1272; } } } } 
BgL_auxz00_1715 = BgL_res3108z00_1273; } 
return 
BBOOL(BgL_auxz00_1715);} } 
}



/* ucs2-string>? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringze3zf3zc2zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_22, obj_t BgL_ucs2zd2string2zd2_23)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 252 */
{ /* ./Llib/unicode.scm 253 */
obj_t BgL_symbol1938z00_1274;
BgL_symbol1938z00_1274 = BGl_symbol3056z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 253 */

PUSH_TRACE(BgL_symbol1938z00_1274); BUNSPEC; 
{ /* ./Llib/unicode.scm 253 */
bool_t BgL_aux1937z00_1275;
BgL_aux1937z00_1275 = 
ucs2_string_gt(BgL_ucs2zd2string1zd2_22, BgL_ucs2zd2string2zd2_23); 
POP_TRACE(); 
return BgL_aux1937z00_1275;} } } } 
}



/* _ucs2-string>? */
obj_t BGl__ucs2zd2stringze3zf3zc2zz__unicodez00(obj_t BgL_envz00_982, obj_t BgL_ucs2zd2string1zd2_983, obj_t BgL_ucs2zd2string2zd2_984)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 252 */
{ /* ./Llib/unicode.scm 253 */
bool_t BgL_auxz00_1733;
{ /* ./Llib/unicode.scm 253 */
bool_t BgL_res3109z00_1280;
{ /* ./Llib/unicode.scm 253 */
obj_t BgL_ucs2zd2string1zd2_1276;obj_t BgL_ucs2zd2string2zd2_1277;
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_983))
{ /* ./Llib/unicode.scm 253 */
BgL_ucs2zd2string1zd2_1276 = BgL_ucs2zd2string1zd2_983; }  else 
{ /* ./Llib/unicode.scm 253 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3057z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string1zd2_983, BGl_string3031z00zz__unicodez00, 
BINT(((long)11741))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_984))
{ /* ./Llib/unicode.scm 253 */
BgL_ucs2zd2string2zd2_1277 = BgL_ucs2zd2string2zd2_984; }  else 
{ /* ./Llib/unicode.scm 253 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3057z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string2zd2_984, BGl_string3031z00zz__unicodez00, 
BINT(((long)11741))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 253 */
obj_t BgL_symbol1938z00_1278;
BgL_symbol1938z00_1278 = BGl_symbol3056z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 253 */

PUSH_TRACE(BgL_symbol1938z00_1278); BUNSPEC; 
{ /* ./Llib/unicode.scm 253 */
bool_t BgL_aux1937z00_1279;
BgL_aux1937z00_1279 = 
ucs2_string_gt(BgL_ucs2zd2string1zd2_1276, BgL_ucs2zd2string2zd2_1277); 
POP_TRACE(); 
BgL_res3109z00_1280 = BgL_aux1937z00_1279; } } } } 
BgL_auxz00_1733 = BgL_res3109z00_1280; } 
return 
BBOOL(BgL_auxz00_1733);} } 
}



/* ucs2-string<=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzc3zd3zf3z31zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_24, obj_t BgL_ucs2zd2string2zd2_25)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 258 */
{ /* ./Llib/unicode.scm 259 */
obj_t BgL_symbol1942z00_1281;
BgL_symbol1942z00_1281 = BGl_symbol3058z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 259 */

PUSH_TRACE(BgL_symbol1942z00_1281); BUNSPEC; 
{ /* ./Llib/unicode.scm 259 */
bool_t BgL_aux1941z00_1282;
BgL_aux1941z00_1282 = 
ucs2_string_le(BgL_ucs2zd2string1zd2_24, BgL_ucs2zd2string2zd2_25); 
POP_TRACE(); 
return BgL_aux1941z00_1282;} } } } 
}



/* _ucs2-string<=? */
obj_t BGl__ucs2zd2stringzc3zd3zf3z31zz__unicodez00(obj_t BgL_envz00_985, obj_t BgL_ucs2zd2string1zd2_986, obj_t BgL_ucs2zd2string2zd2_987)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 258 */
{ /* ./Llib/unicode.scm 259 */
bool_t BgL_auxz00_1751;
{ /* ./Llib/unicode.scm 259 */
bool_t BgL_res3110z00_1287;
{ /* ./Llib/unicode.scm 259 */
obj_t BgL_ucs2zd2string1zd2_1283;obj_t BgL_ucs2zd2string2zd2_1284;
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_986))
{ /* ./Llib/unicode.scm 259 */
BgL_ucs2zd2string1zd2_1283 = BgL_ucs2zd2string1zd2_986; }  else 
{ /* ./Llib/unicode.scm 259 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3059z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string1zd2_986, BGl_string3031z00zz__unicodez00, 
BINT(((long)12069))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_987))
{ /* ./Llib/unicode.scm 259 */
BgL_ucs2zd2string2zd2_1284 = BgL_ucs2zd2string2zd2_987; }  else 
{ /* ./Llib/unicode.scm 259 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3059z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string2zd2_987, BGl_string3031z00zz__unicodez00, 
BINT(((long)12069))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 259 */
obj_t BgL_symbol1942z00_1285;
BgL_symbol1942z00_1285 = BGl_symbol3058z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 259 */

PUSH_TRACE(BgL_symbol1942z00_1285); BUNSPEC; 
{ /* ./Llib/unicode.scm 259 */
bool_t BgL_aux1941z00_1286;
BgL_aux1941z00_1286 = 
ucs2_string_le(BgL_ucs2zd2string1zd2_1283, BgL_ucs2zd2string2zd2_1284); 
POP_TRACE(); 
BgL_res3110z00_1287 = BgL_aux1941z00_1286; } } } } 
BgL_auxz00_1751 = BgL_res3110z00_1287; } 
return 
BBOOL(BgL_auxz00_1751);} } 
}



/* ucs2-string>=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringze3zd3zf3z11zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_26, obj_t BgL_ucs2zd2string2zd2_27)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 264 */
{ /* ./Llib/unicode.scm 265 */
obj_t BgL_symbol1946z00_1288;
BgL_symbol1946z00_1288 = BGl_symbol3060z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 265 */

PUSH_TRACE(BgL_symbol1946z00_1288); BUNSPEC; 
{ /* ./Llib/unicode.scm 265 */
bool_t BgL_aux1945z00_1289;
BgL_aux1945z00_1289 = 
ucs2_string_ge(BgL_ucs2zd2string1zd2_26, BgL_ucs2zd2string2zd2_27); 
POP_TRACE(); 
return BgL_aux1945z00_1289;} } } } 
}



/* _ucs2-string>=? */
obj_t BGl__ucs2zd2stringze3zd3zf3z11zz__unicodez00(obj_t BgL_envz00_988, obj_t BgL_ucs2zd2string1zd2_989, obj_t BgL_ucs2zd2string2zd2_990)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 264 */
{ /* ./Llib/unicode.scm 265 */
bool_t BgL_auxz00_1769;
{ /* ./Llib/unicode.scm 265 */
bool_t BgL_res3111z00_1294;
{ /* ./Llib/unicode.scm 265 */
obj_t BgL_ucs2zd2string1zd2_1290;obj_t BgL_ucs2zd2string2zd2_1291;
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_989))
{ /* ./Llib/unicode.scm 265 */
BgL_ucs2zd2string1zd2_1290 = BgL_ucs2zd2string1zd2_989; }  else 
{ /* ./Llib/unicode.scm 265 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3061z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string1zd2_989, BGl_string3031z00zz__unicodez00, 
BINT(((long)12397))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_990))
{ /* ./Llib/unicode.scm 265 */
BgL_ucs2zd2string2zd2_1291 = BgL_ucs2zd2string2zd2_990; }  else 
{ /* ./Llib/unicode.scm 265 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3061z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string2zd2_990, BGl_string3031z00zz__unicodez00, 
BINT(((long)12397))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 265 */
obj_t BgL_symbol1946z00_1292;
BgL_symbol1946z00_1292 = BGl_symbol3060z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 265 */

PUSH_TRACE(BgL_symbol1946z00_1292); BUNSPEC; 
{ /* ./Llib/unicode.scm 265 */
bool_t BgL_aux1945z00_1293;
BgL_aux1945z00_1293 = 
ucs2_string_ge(BgL_ucs2zd2string1zd2_1290, BgL_ucs2zd2string2zd2_1291); 
POP_TRACE(); 
BgL_res3111z00_1294 = BgL_aux1945z00_1293; } } } } 
BgL_auxz00_1769 = BgL_res3111z00_1294; } 
return 
BBOOL(BgL_auxz00_1769);} } 
}



/* ucs2-string-ci<? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd2cizc3zf3z30zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_28, obj_t BgL_ucs2zd2string2zd2_29)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 270 */
{ /* ./Llib/unicode.scm 271 */
obj_t BgL_symbol1950z00_1295;
BgL_symbol1950z00_1295 = BGl_symbol3062z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 271 */

PUSH_TRACE(BgL_symbol1950z00_1295); BUNSPEC; 
{ /* ./Llib/unicode.scm 271 */
bool_t BgL_aux1949z00_1296;
BgL_aux1949z00_1296 = 
ucs2_string_cilt(BgL_ucs2zd2string1zd2_28, BgL_ucs2zd2string2zd2_29); 
POP_TRACE(); 
return BgL_aux1949z00_1296;} } } } 
}



/* _ucs2-string-ci<? */
obj_t BGl__ucs2zd2stringzd2cizc3zf3z30zz__unicodez00(obj_t BgL_envz00_991, obj_t BgL_ucs2zd2string1zd2_992, obj_t BgL_ucs2zd2string2zd2_993)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 270 */
{ /* ./Llib/unicode.scm 271 */
bool_t BgL_auxz00_1787;
{ /* ./Llib/unicode.scm 271 */
bool_t BgL_res3112z00_1301;
{ /* ./Llib/unicode.scm 271 */
obj_t BgL_ucs2zd2string1zd2_1297;obj_t BgL_ucs2zd2string2zd2_1298;
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_992))
{ /* ./Llib/unicode.scm 271 */
BgL_ucs2zd2string1zd2_1297 = BgL_ucs2zd2string1zd2_992; }  else 
{ /* ./Llib/unicode.scm 271 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3063z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string1zd2_992, BGl_string3031z00zz__unicodez00, 
BINT(((long)12727))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_993))
{ /* ./Llib/unicode.scm 271 */
BgL_ucs2zd2string2zd2_1298 = BgL_ucs2zd2string2zd2_993; }  else 
{ /* ./Llib/unicode.scm 271 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3063z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string2zd2_993, BGl_string3031z00zz__unicodez00, 
BINT(((long)12727))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 271 */
obj_t BgL_symbol1950z00_1299;
BgL_symbol1950z00_1299 = BGl_symbol3062z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 271 */

PUSH_TRACE(BgL_symbol1950z00_1299); BUNSPEC; 
{ /* ./Llib/unicode.scm 271 */
bool_t BgL_aux1949z00_1300;
BgL_aux1949z00_1300 = 
ucs2_string_cilt(BgL_ucs2zd2string1zd2_1297, BgL_ucs2zd2string2zd2_1298); 
POP_TRACE(); 
BgL_res3112z00_1301 = BgL_aux1949z00_1300; } } } } 
BgL_auxz00_1787 = BgL_res3112z00_1301; } 
return 
BBOOL(BgL_auxz00_1787);} } 
}



/* ucs2-string-ci>? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd2cize3zf3z10zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_30, obj_t BgL_ucs2zd2string2zd2_31)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 276 */
{ /* ./Llib/unicode.scm 277 */
obj_t BgL_symbol1954z00_1302;
BgL_symbol1954z00_1302 = BGl_symbol3064z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 277 */

PUSH_TRACE(BgL_symbol1954z00_1302); BUNSPEC; 
{ /* ./Llib/unicode.scm 277 */
bool_t BgL_aux1953z00_1303;
BgL_aux1953z00_1303 = 
ucs2_string_cigt(BgL_ucs2zd2string1zd2_30, BgL_ucs2zd2string2zd2_31); 
POP_TRACE(); 
return BgL_aux1953z00_1303;} } } } 
}



/* _ucs2-string-ci>? */
obj_t BGl__ucs2zd2stringzd2cize3zf3z10zz__unicodez00(obj_t BgL_envz00_994, obj_t BgL_ucs2zd2string1zd2_995, obj_t BgL_ucs2zd2string2zd2_996)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 276 */
{ /* ./Llib/unicode.scm 277 */
bool_t BgL_auxz00_1805;
{ /* ./Llib/unicode.scm 277 */
bool_t BgL_res3113z00_1308;
{ /* ./Llib/unicode.scm 277 */
obj_t BgL_ucs2zd2string1zd2_1304;obj_t BgL_ucs2zd2string2zd2_1305;
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_995))
{ /* ./Llib/unicode.scm 277 */
BgL_ucs2zd2string1zd2_1304 = BgL_ucs2zd2string1zd2_995; }  else 
{ /* ./Llib/unicode.scm 277 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3065z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string1zd2_995, BGl_string3031z00zz__unicodez00, 
BINT(((long)13059))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_996))
{ /* ./Llib/unicode.scm 277 */
BgL_ucs2zd2string2zd2_1305 = BgL_ucs2zd2string2zd2_996; }  else 
{ /* ./Llib/unicode.scm 277 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3065z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string2zd2_996, BGl_string3031z00zz__unicodez00, 
BINT(((long)13059))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 277 */
obj_t BgL_symbol1954z00_1306;
BgL_symbol1954z00_1306 = BGl_symbol3064z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 277 */

PUSH_TRACE(BgL_symbol1954z00_1306); BUNSPEC; 
{ /* ./Llib/unicode.scm 277 */
bool_t BgL_aux1953z00_1307;
BgL_aux1953z00_1307 = 
ucs2_string_cigt(BgL_ucs2zd2string1zd2_1304, BgL_ucs2zd2string2zd2_1305); 
POP_TRACE(); 
BgL_res3113z00_1308 = BgL_aux1953z00_1307; } } } } 
BgL_auxz00_1805 = BgL_res3113z00_1308; } 
return 
BBOOL(BgL_auxz00_1805);} } 
}



/* ucs2-string-ci<=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd2cizc3zd3zf3ze3zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_32, obj_t BgL_ucs2zd2string2zd2_33)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 282 */
{ /* ./Llib/unicode.scm 283 */
obj_t BgL_symbol1958z00_1309;
BgL_symbol1958z00_1309 = BGl_symbol3066z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 283 */

PUSH_TRACE(BgL_symbol1958z00_1309); BUNSPEC; 
{ /* ./Llib/unicode.scm 283 */
bool_t BgL_aux1957z00_1310;
BgL_aux1957z00_1310 = 
ucs2_string_cile(BgL_ucs2zd2string1zd2_32, BgL_ucs2zd2string2zd2_33); 
POP_TRACE(); 
return BgL_aux1957z00_1310;} } } } 
}



/* _ucs2-string-ci<=? */
obj_t BGl__ucs2zd2stringzd2cizc3zd3zf3ze3zz__unicodez00(obj_t BgL_envz00_997, obj_t BgL_ucs2zd2string1zd2_998, obj_t BgL_ucs2zd2string2zd2_999)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 282 */
{ /* ./Llib/unicode.scm 283 */
bool_t BgL_auxz00_1823;
{ /* ./Llib/unicode.scm 283 */
bool_t BgL_res3114z00_1315;
{ /* ./Llib/unicode.scm 283 */
obj_t BgL_ucs2zd2string1zd2_1311;obj_t BgL_ucs2zd2string2zd2_1312;
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_998))
{ /* ./Llib/unicode.scm 283 */
BgL_ucs2zd2string1zd2_1311 = BgL_ucs2zd2string1zd2_998; }  else 
{ /* ./Llib/unicode.scm 283 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3067z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string1zd2_998, BGl_string3031z00zz__unicodez00, 
BINT(((long)13392))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_999))
{ /* ./Llib/unicode.scm 283 */
BgL_ucs2zd2string2zd2_1312 = BgL_ucs2zd2string2zd2_999; }  else 
{ /* ./Llib/unicode.scm 283 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3067z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string2zd2_999, BGl_string3031z00zz__unicodez00, 
BINT(((long)13392))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 283 */
obj_t BgL_symbol1958z00_1313;
BgL_symbol1958z00_1313 = BGl_symbol3066z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 283 */

PUSH_TRACE(BgL_symbol1958z00_1313); BUNSPEC; 
{ /* ./Llib/unicode.scm 283 */
bool_t BgL_aux1957z00_1314;
BgL_aux1957z00_1314 = 
ucs2_string_cile(BgL_ucs2zd2string1zd2_1311, BgL_ucs2zd2string2zd2_1312); 
POP_TRACE(); 
BgL_res3114z00_1315 = BgL_aux1957z00_1314; } } } } 
BgL_auxz00_1823 = BgL_res3114z00_1315; } 
return 
BBOOL(BgL_auxz00_1823);} } 
}



/* ucs2-string-ci>=? */
BGL_EXPORTED_DEF bool_t BGl_ucs2zd2stringzd2cize3zd3zf3zc3zz__unicodez00(obj_t BgL_ucs2zd2string1zd2_34, obj_t BgL_ucs2zd2string2zd2_35)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 288 */
{ /* ./Llib/unicode.scm 289 */
obj_t BgL_symbol1962z00_1316;
BgL_symbol1962z00_1316 = BGl_symbol3068z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 289 */

PUSH_TRACE(BgL_symbol1962z00_1316); BUNSPEC; 
{ /* ./Llib/unicode.scm 289 */
bool_t BgL_aux1961z00_1317;
BgL_aux1961z00_1317 = 
ucs2_string_cige(BgL_ucs2zd2string1zd2_34, BgL_ucs2zd2string2zd2_35); 
POP_TRACE(); 
return BgL_aux1961z00_1317;} } } } 
}



/* _ucs2-string-ci>=? */
obj_t BGl__ucs2zd2stringzd2cize3zd3zf3zc3zz__unicodez00(obj_t BgL_envz00_1000, obj_t BgL_ucs2zd2string1zd2_1001, obj_t BgL_ucs2zd2string2zd2_1002)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 288 */
{ /* ./Llib/unicode.scm 289 */
bool_t BgL_auxz00_1841;
{ /* ./Llib/unicode.scm 289 */
bool_t BgL_res3115z00_1322;
{ /* ./Llib/unicode.scm 289 */
obj_t BgL_ucs2zd2string1zd2_1318;obj_t BgL_ucs2zd2string2zd2_1319;
if(
UCS2_STRINGP(BgL_ucs2zd2string1zd2_1001))
{ /* ./Llib/unicode.scm 289 */
BgL_ucs2zd2string1zd2_1318 = BgL_ucs2zd2string1zd2_1001; }  else 
{ /* ./Llib/unicode.scm 289 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3069z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string1zd2_1001, BGl_string3031z00zz__unicodez00, 
BINT(((long)13725))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_ucs2zd2string2zd2_1002))
{ /* ./Llib/unicode.scm 289 */
BgL_ucs2zd2string2zd2_1319 = BgL_ucs2zd2string2zd2_1002; }  else 
{ /* ./Llib/unicode.scm 289 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3069z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2string2zd2_1002, BGl_string3031z00zz__unicodez00, 
BINT(((long)13725))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 289 */
obj_t BgL_symbol1962z00_1320;
BgL_symbol1962z00_1320 = BGl_symbol3068z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 289 */

PUSH_TRACE(BgL_symbol1962z00_1320); BUNSPEC; 
{ /* ./Llib/unicode.scm 289 */
bool_t BgL_aux1961z00_1321;
BgL_aux1961z00_1321 = 
ucs2_string_cige(BgL_ucs2zd2string1zd2_1318, BgL_ucs2zd2string2zd2_1319); 
POP_TRACE(); 
BgL_res3115z00_1322 = BgL_aux1961z00_1321; } } } } 
BgL_auxz00_1841 = BgL_res3115z00_1322; } 
return 
BBOOL(BgL_auxz00_1841);} } 
}



/* subucs2-string */
BGL_EXPORTED_DEF obj_t BGl_subucs2zd2stringzd2zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_36, int BgL_startz00_37, int BgL_endz00_38)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 294 */
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_symbol1966z00_1323;
BgL_symbol1966z00_1323 = BGl_symbol3070z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 296 */

PUSH_TRACE(BgL_symbol1966z00_1323); BUNSPEC; 
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_aux1965z00_1324;
{ /* ./Llib/unicode.scm 296 */
bool_t BgL_test1045z00_1325;
{ /* ./Llib/unicode.scm 296 */
bool_t BgL_testz00_1857;
{ /* ./Llib/unicode.scm 296 */
long BgL_auxz00_1860;long BgL_auxz00_1858;
BgL_auxz00_1860 = 
(long)(BgL_startz00_37); 
BgL_auxz00_1858 = 
(long)(BgL_endz00_38); 
BgL_testz00_1857 = 
(BgL_auxz00_1858>=BgL_auxz00_1860); } 
if(BgL_testz00_1857)
{ /* ./Llib/unicode.scm 296 */
bool_t BgL_testz00_1863;
{ /* ./Llib/unicode.scm 296 */
int BgL_auxz00_1864;
{ /* ./Llib/unicode.scm 296 */
long BgL_auxz00_1865;
{ /* ./Llib/unicode.scm 296 */
long BgL_auxz00_1866;
{ /* ./Llib/unicode.scm 296 */
int BgL_auxz00_1867;
BgL_auxz00_1867 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_36); 
BgL_auxz00_1866 = 
(long)(BgL_auxz00_1867); } 
BgL_auxz00_1865 = 
(BgL_auxz00_1866+((long)1)); } 
BgL_auxz00_1864 = 
(int)(BgL_auxz00_1865); } 
BgL_testz00_1863 = 
BOUND_CHECK(BgL_startz00_37, BgL_auxz00_1864); } 
if(BgL_testz00_1863)
{ /* ./Llib/unicode.scm 296 */
int BgL_auxz00_1873;
{ /* ./Llib/unicode.scm 296 */
long BgL_auxz00_1874;
{ /* ./Llib/unicode.scm 296 */
long BgL_auxz00_1875;
{ /* ./Llib/unicode.scm 296 */
int BgL_auxz00_1876;
BgL_auxz00_1876 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_36); 
BgL_auxz00_1875 = 
(long)(BgL_auxz00_1876); } 
BgL_auxz00_1874 = 
(BgL_auxz00_1875+((long)1)); } 
BgL_auxz00_1873 = 
(int)(BgL_auxz00_1874); } 
BgL_test1045z00_1325 = 
BOUND_CHECK(BgL_endz00_38, BgL_auxz00_1873); }  else 
{ /* ./Llib/unicode.scm 296 */
BgL_test1045z00_1325 = ((bool_t)0); } }  else 
{ /* ./Llib/unicode.scm 296 */
BgL_test1045z00_1325 = ((bool_t)0); } } 
if(BgL_test1045z00_1325)
{ /* ./Llib/unicode.scm 296 */
BgL_aux1965z00_1324 = 
c_subucs2_string(BgL_ucs2zd2stringzd2_36, BgL_startz00_37, BgL_endz00_38); }  else 
{ /* ./Llib/unicode.scm 296 */
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_arg1050z00_1326;
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_auxz00_1886;obj_t BgL_auxz00_1884;
BgL_auxz00_1886 = 
BINT(BgL_endz00_38); 
BgL_auxz00_1884 = 
BINT(BgL_startz00_37); 
BgL_arg1050z00_1326 = 
MAKE_PAIR(BgL_auxz00_1884, BgL_auxz00_1886); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3071z00zz__unicodez00, BGl_string3072z00zz__unicodez00, BgL_arg1050z00_1326, "./Llib/unicode.scm", ((long)14366)); } 
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_aux2473z00_1330;
BgL_aux2473z00_1330 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)14102))); 
if(
UCS2_STRINGP(BgL_aux2473z00_1330))
{ /* ./Llib/unicode.scm 296 */
BgL_aux1965z00_1324 = BgL_aux2473z00_1330; }  else 
{ /* ./Llib/unicode.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3070z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_aux2473z00_1330, BGl_string3031z00zz__unicodez00, 
BINT(((long)14102))); 
exit( -1 );} } } } 
POP_TRACE(); 
return BgL_aux1965z00_1324;} } } } 
}



/* _subucs2-string */
obj_t BGl__subucs2zd2stringzd2zz__unicodez00(obj_t BgL_envz00_1003, obj_t BgL_ucs2zd2stringzd2_1004, obj_t BgL_startz00_1005, obj_t BgL_endz00_1006)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 294 */
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_res3116z00_1342;
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_ucs2zd2stringzd2_1331;int BgL_startz00_1332;int BgL_endz00_1333;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_1004))
{ /* ./Llib/unicode.scm 296 */
BgL_ucs2zd2stringzd2_1331 = BgL_ucs2zd2stringzd2_1004; }  else 
{ /* ./Llib/unicode.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3073z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_1004, BGl_string3031z00zz__unicodez00, 
BINT(((long)14102))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_auxz00_1903;
if(
INTEGERP(BgL_startz00_1005))
{ /* ./Llib/unicode.scm 296 */
BgL_auxz00_1903 = BgL_startz00_1005
; }  else 
{ /* ./Llib/unicode.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3073z00zz__unicodez00, BGl_string3034z00zz__unicodez00, BgL_startz00_1005, BGl_string3031z00zz__unicodez00, 
BINT(((long)14102))); 
exit( -1 );} 
BgL_startz00_1332 = 
CINT(BgL_auxz00_1903); } 
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_auxz00_1910;
if(
INTEGERP(BgL_endz00_1006))
{ /* ./Llib/unicode.scm 296 */
BgL_auxz00_1910 = BgL_endz00_1006
; }  else 
{ /* ./Llib/unicode.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3073z00zz__unicodez00, BGl_string3034z00zz__unicodez00, BgL_endz00_1006, BGl_string3031z00zz__unicodez00, 
BINT(((long)14102))); 
exit( -1 );} 
BgL_endz00_1333 = 
CINT(BgL_auxz00_1910); } 
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_symbol1966z00_1334;
BgL_symbol1966z00_1334 = BGl_symbol3070z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 296 */

PUSH_TRACE(BgL_symbol1966z00_1334); BUNSPEC; 
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_aux1965z00_1335;
{ /* ./Llib/unicode.scm 296 */
bool_t BgL_test1045z00_1336;
{ /* ./Llib/unicode.scm 296 */
bool_t BgL_testz00_1918;
{ /* ./Llib/unicode.scm 296 */
long BgL_auxz00_1921;long BgL_auxz00_1919;
BgL_auxz00_1921 = 
(long)(BgL_startz00_1332); 
BgL_auxz00_1919 = 
(long)(BgL_endz00_1333); 
BgL_testz00_1918 = 
(BgL_auxz00_1919>=BgL_auxz00_1921); } 
if(BgL_testz00_1918)
{ /* ./Llib/unicode.scm 296 */
bool_t BgL_testz00_1924;
{ /* ./Llib/unicode.scm 296 */
int BgL_auxz00_1925;
{ /* ./Llib/unicode.scm 296 */
long BgL_auxz00_1926;
{ /* ./Llib/unicode.scm 296 */
long BgL_auxz00_1927;
{ /* ./Llib/unicode.scm 296 */
int BgL_auxz00_1928;
BgL_auxz00_1928 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_1331); 
BgL_auxz00_1927 = 
(long)(BgL_auxz00_1928); } 
BgL_auxz00_1926 = 
(BgL_auxz00_1927+((long)1)); } 
BgL_auxz00_1925 = 
(int)(BgL_auxz00_1926); } 
BgL_testz00_1924 = 
BOUND_CHECK(BgL_startz00_1332, BgL_auxz00_1925); } 
if(BgL_testz00_1924)
{ /* ./Llib/unicode.scm 296 */
int BgL_auxz00_1934;
{ /* ./Llib/unicode.scm 296 */
long BgL_auxz00_1935;
{ /* ./Llib/unicode.scm 296 */
long BgL_auxz00_1936;
{ /* ./Llib/unicode.scm 296 */
int BgL_auxz00_1937;
BgL_auxz00_1937 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_1331); 
BgL_auxz00_1936 = 
(long)(BgL_auxz00_1937); } 
BgL_auxz00_1935 = 
(BgL_auxz00_1936+((long)1)); } 
BgL_auxz00_1934 = 
(int)(BgL_auxz00_1935); } 
BgL_test1045z00_1336 = 
BOUND_CHECK(BgL_endz00_1333, BgL_auxz00_1934); }  else 
{ /* ./Llib/unicode.scm 296 */
BgL_test1045z00_1336 = ((bool_t)0); } }  else 
{ /* ./Llib/unicode.scm 296 */
BgL_test1045z00_1336 = ((bool_t)0); } } 
if(BgL_test1045z00_1336)
{ /* ./Llib/unicode.scm 296 */
BgL_aux1965z00_1335 = 
c_subucs2_string(BgL_ucs2zd2stringzd2_1331, BgL_startz00_1332, BgL_endz00_1333); }  else 
{ /* ./Llib/unicode.scm 296 */
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_arg1050z00_1337;
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_auxz00_1947;obj_t BgL_auxz00_1945;
BgL_auxz00_1947 = 
BINT(BgL_endz00_1333); 
BgL_auxz00_1945 = 
BINT(BgL_startz00_1332); 
BgL_arg1050z00_1337 = 
MAKE_PAIR(BgL_auxz00_1945, BgL_auxz00_1947); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3071z00zz__unicodez00, BGl_string3072z00zz__unicodez00, BgL_arg1050z00_1337, "./Llib/unicode.scm", ((long)14366)); } 
{ /* ./Llib/unicode.scm 296 */
obj_t BgL_aux2473z00_1341;
BgL_aux2473z00_1341 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)14102))); 
if(
UCS2_STRINGP(BgL_aux2473z00_1341))
{ /* ./Llib/unicode.scm 296 */
BgL_aux1965z00_1335 = BgL_aux2473z00_1341; }  else 
{ /* ./Llib/unicode.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3070z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_aux2473z00_1341, BGl_string3031z00zz__unicodez00, 
BINT(((long)14102))); 
exit( -1 );} } } } 
POP_TRACE(); 
BgL_res3116z00_1342 = BgL_aux1965z00_1335; } } } } 
return BgL_res3116z00_1342;} } 
}



/* subucs2-string-ur */
BGL_EXPORTED_DEF obj_t BGl_subucs2zd2stringzd2urz00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_39, int BgL_startz00_40, int BgL_endz00_41)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 309 */
{ /* ./Llib/unicode.scm 310 */
obj_t BgL_symbol1970z00_1343;
BgL_symbol1970z00_1343 = BGl_symbol3074z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 310 */

PUSH_TRACE(BgL_symbol1970z00_1343); BUNSPEC; 
{ /* ./Llib/unicode.scm 310 */
obj_t BgL_aux1969z00_1344;
BgL_aux1969z00_1344 = 
c_subucs2_string(BgL_ucs2zd2stringzd2_39, BgL_startz00_40, BgL_endz00_41); 
POP_TRACE(); 
return BgL_aux1969z00_1344;} } } } 
}



/* _subucs2-string-ur */
obj_t BGl__subucs2zd2stringzd2urz00zz__unicodez00(obj_t BgL_envz00_1007, obj_t BgL_ucs2zd2stringzd2_1008, obj_t BgL_startz00_1009, obj_t BgL_endz00_1010)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 309 */
{ /* ./Llib/unicode.scm 310 */
obj_t BgL_res3117z00_1350;
{ /* ./Llib/unicode.scm 310 */
obj_t BgL_ucs2zd2stringzd2_1345;int BgL_startz00_1346;int BgL_endz00_1347;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_1008))
{ /* ./Llib/unicode.scm 310 */
BgL_ucs2zd2stringzd2_1345 = BgL_ucs2zd2stringzd2_1008; }  else 
{ /* ./Llib/unicode.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3075z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_1008, BGl_string3031z00zz__unicodez00, 
BINT(((long)14709))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 310 */
obj_t BgL_auxz00_1967;
if(
INTEGERP(BgL_startz00_1009))
{ /* ./Llib/unicode.scm 310 */
BgL_auxz00_1967 = BgL_startz00_1009
; }  else 
{ /* ./Llib/unicode.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3075z00zz__unicodez00, BGl_string3034z00zz__unicodez00, BgL_startz00_1009, BGl_string3031z00zz__unicodez00, 
BINT(((long)14709))); 
exit( -1 );} 
BgL_startz00_1346 = 
CINT(BgL_auxz00_1967); } 
{ /* ./Llib/unicode.scm 310 */
obj_t BgL_auxz00_1974;
if(
INTEGERP(BgL_endz00_1010))
{ /* ./Llib/unicode.scm 310 */
BgL_auxz00_1974 = BgL_endz00_1010
; }  else 
{ /* ./Llib/unicode.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3075z00zz__unicodez00, BGl_string3034z00zz__unicodez00, BgL_endz00_1010, BGl_string3031z00zz__unicodez00, 
BINT(((long)14709))); 
exit( -1 );} 
BgL_endz00_1347 = 
CINT(BgL_auxz00_1974); } 
{ /* ./Llib/unicode.scm 310 */
obj_t BgL_symbol1970z00_1348;
BgL_symbol1970z00_1348 = BGl_symbol3074z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 310 */

PUSH_TRACE(BgL_symbol1970z00_1348); BUNSPEC; 
{ /* ./Llib/unicode.scm 310 */
obj_t BgL_aux1969z00_1349;
BgL_aux1969z00_1349 = 
c_subucs2_string(BgL_ucs2zd2stringzd2_1345, BgL_startz00_1346, BgL_endz00_1347); 
POP_TRACE(); 
BgL_res3117z00_1350 = BgL_aux1969z00_1349; } } } } 
return BgL_res3117z00_1350;} } 
}



/* ucs2-string-append */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2appendz00zz__unicodez00(obj_t BgL_listz00_42)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 315 */
{ /* ./Llib/unicode.scm 316 */
obj_t BgL_symbol1974z00_926;
BgL_symbol1974z00_926 = BGl_symbol3076z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 316 */

PUSH_TRACE(BgL_symbol1974z00_926); BUNSPEC; 
{ /* ./Llib/unicode.scm 316 */
obj_t BgL_aux1973z00_927;
if(
NULLP(BgL_listz00_42))
{ /* ./Llib/unicode.scm 317 */
ucs2_t BgL_auxz00_1989;int BgL_auxz00_1987;
{ /* ./Llib/unicode.scm 317 */
int BgL_auxz00_1990;
{ /* ./Llib/unicode.scm 317 */
long BgL_auxz00_1991;
{ /* ./Llib/unicode.scm 317 */
unsigned char BgL_auxz00_1992;
{ /* ./Llib/unicode.scm 317 */
char BgL_auxz00_1993;
BgL_auxz00_1993 = 
(char)(((unsigned char)' ')); 
BgL_auxz00_1992 = 
(unsigned char)(BgL_auxz00_1993); } 
BgL_auxz00_1991 = 
(BgL_auxz00_1992); } 
BgL_auxz00_1990 = 
(int)(BgL_auxz00_1991); } 
BgL_auxz00_1989 = 
BGl_integerzd2ze3ucs2z31zz__ucs2z00(BgL_auxz00_1990); } 
BgL_auxz00_1987 = 
(int)(((long)0)); 
BgL_aux1973z00_927 = 
make_ucs2_string(BgL_auxz00_1987, BgL_auxz00_1989); }  else 
{ /* ./Llib/unicode.scm 318 */
obj_t BgL_aux2572z00_1122;
BgL_aux2572z00_1122 = 
BGl_loopz00zz__unicodez00(BgL_listz00_42); 
if(
UCS2_STRINGP(BgL_aux2572z00_1122))
{ /* ./Llib/unicode.scm 318 */
BgL_aux1973z00_927 = BgL_aux2572z00_1122; }  else 
{ /* ./Llib/unicode.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3076z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_aux2572z00_1122, BGl_string3031z00zz__unicodez00, 
BINT(((long)15065))); 
exit( -1 );} } 
POP_TRACE(); 
return BgL_aux1973z00_927;} } } } 
}



/* loop */
obj_t BGl_loopz00zz__unicodez00(obj_t BgL_listz00_423)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 318 */
{ /* ./Llib/unicode.scm 319 */
bool_t BgL_test1084z00_425;
{ /* ./Llib/unicode.scm 319 */
obj_t BgL_arg1096z00_429;
{ /* ./Llib/unicode.scm 319 */
obj_t BgL_pairz00_699;
if(
PAIRP(BgL_listz00_423))
{ /* ./Llib/unicode.scm 319 */
BgL_pairz00_699 = BgL_listz00_423; }  else 
{ /* ./Llib/unicode.scm 319 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3077z00zz__unicodez00, BGl_string3030z00zz__unicodez00, BgL_listz00_423, BGl_string3031z00zz__unicodez00, 
BINT(((long)15111))); 
exit( -1 );} 
BgL_arg1096z00_429 = 
CDR(BgL_pairz00_699); } 
BgL_test1084z00_425 = 
NULLP(BgL_arg1096z00_429); } 
if(BgL_test1084z00_425)
{ /* ./Llib/unicode.scm 320 */
obj_t BgL_pairz00_701;
if(
PAIRP(BgL_listz00_423))
{ /* ./Llib/unicode.scm 320 */
BgL_pairz00_701 = BgL_listz00_423; }  else 
{ /* ./Llib/unicode.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3077z00zz__unicodez00, BGl_string3030z00zz__unicodez00, BgL_listz00_423, BGl_string3031z00zz__unicodez00, 
BINT(((long)15130))); 
exit( -1 );} 
return 
CAR(BgL_pairz00_701);}  else 
{ /* ./Llib/unicode.scm 321 */
obj_t BgL_arg1087z00_426;obj_t BgL_arg1088z00_427;
{ /* ./Llib/unicode.scm 321 */
obj_t BgL_pairz00_702;
if(
PAIRP(BgL_listz00_423))
{ /* ./Llib/unicode.scm 321 */
BgL_pairz00_702 = BgL_listz00_423; }  else 
{ /* ./Llib/unicode.scm 321 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3077z00zz__unicodez00, BGl_string3030z00zz__unicodez00, BgL_listz00_423, BGl_string3031z00zz__unicodez00, 
BINT(((long)15170))); 
exit( -1 );} 
BgL_arg1087z00_426 = 
CAR(BgL_pairz00_702); } 
{ /* ./Llib/unicode.scm 321 */
obj_t BgL_arg1092z00_428;
{ /* ./Llib/unicode.scm 321 */
obj_t BgL_pairz00_703;
if(
PAIRP(BgL_listz00_423))
{ /* ./Llib/unicode.scm 321 */
BgL_pairz00_703 = BgL_listz00_423; }  else 
{ /* ./Llib/unicode.scm 321 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3077z00zz__unicodez00, BGl_string3030z00zz__unicodez00, BgL_listz00_423, BGl_string3031z00zz__unicodez00, 
BINT(((long)15187))); 
exit( -1 );} 
BgL_arg1092z00_428 = 
CDR(BgL_pairz00_703); } 
BgL_arg1088z00_427 = 
BGl_loopz00zz__unicodez00(BgL_arg1092z00_428); } 
{ /* ./Llib/unicode.scm 321 */
obj_t BgL_auxz00_2040;obj_t BgL_auxz00_2034;
if(
UCS2_STRINGP(BgL_arg1088z00_427))
{ /* ./Llib/unicode.scm 321 */
BgL_auxz00_2040 = BgL_arg1088z00_427
; }  else 
{ /* ./Llib/unicode.scm 321 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3077z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_arg1088z00_427, BGl_string3031z00zz__unicodez00, 
BINT(((long)15189))); 
exit( -1 );} 
if(
UCS2_STRINGP(BgL_arg1087z00_426))
{ /* ./Llib/unicode.scm 321 */
BgL_auxz00_2034 = BgL_arg1087z00_426
; }  else 
{ /* ./Llib/unicode.scm 321 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3077z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_arg1087z00_426, BGl_string3031z00zz__unicodez00, 
BINT(((long)15171))); 
exit( -1 );} 
return 
ucs2_string_append(BgL_auxz00_2034, BgL_auxz00_2040);} } } } 
}



/* _ucs2-string-append */
obj_t BGl__ucs2zd2stringzd2appendz00zz__unicodez00(obj_t BgL_envz00_1011, obj_t BgL_listz00_1012)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 315 */
return 
BGl_ucs2zd2stringzd2appendz00zz__unicodez00(BgL_listz00_1012);} 
}



/* list->ucs2-string */
BGL_EXPORTED_DEF obj_t BGl_listzd2ze3ucs2zd2stringze3zz__unicodez00(obj_t BgL_listz00_43)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 326 */
{ /* ./Llib/unicode.scm 327 */
obj_t BgL_symbol1978z00_928;
BgL_symbol1978z00_928 = BGl_symbol3078z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 327 */

PUSH_TRACE(BgL_symbol1978z00_928); BUNSPEC; 
{ /* ./Llib/unicode.scm 327 */
obj_t BgL_aux1977z00_929;
{ /* ./Llib/unicode.scm 327 */
long BgL_lenz00_430;
{ /* ./Llib/unicode.scm 327 */
obj_t BgL_auxz00_2049;
{ /* ./Llib/unicode.scm 327 */
bool_t BgL_testz00_2050;
if(
PAIRP(BgL_listz00_43))
{ /* ./Llib/unicode.scm 327 */
BgL_testz00_2050 = ((bool_t)1)
; }  else 
{ /* ./Llib/unicode.scm 327 */
BgL_testz00_2050 = 
NULLP(BgL_listz00_43)
; } 
if(BgL_testz00_2050)
{ /* ./Llib/unicode.scm 327 */
BgL_auxz00_2049 = BgL_listz00_43
; }  else 
{ /* ./Llib/unicode.scm 327 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3078z00zz__unicodez00, BGl_string3079z00zz__unicodez00, BgL_listz00_43, BGl_string3031z00zz__unicodez00, 
BINT(((long)15481))); 
exit( -1 );} } 
BgL_lenz00_430 = 
bgl_list_length(BgL_auxz00_2049); } 
{ /* ./Llib/unicode.scm 327 */
obj_t BgL_ucs2zd2stringzd2_431;
{ /* ./Llib/unicode.scm 328 */
ucs2_t BgL_auxz00_2060;int BgL_auxz00_2058;
{ /* ./Llib/unicode.scm 328 */
int BgL_auxz00_2061;
{ /* ./Llib/unicode.scm 328 */
long BgL_auxz00_2062;
{ /* ./Llib/unicode.scm 328 */
unsigned char BgL_auxz00_2063;
{ /* ./Llib/unicode.scm 328 */
char BgL_auxz00_2064;
BgL_auxz00_2064 = 
(char)(((unsigned char)' ')); 
BgL_auxz00_2063 = 
(unsigned char)(BgL_auxz00_2064); } 
BgL_auxz00_2062 = 
(BgL_auxz00_2063); } 
BgL_auxz00_2061 = 
(int)(BgL_auxz00_2062); } 
BgL_auxz00_2060 = 
BGl_integerzd2ze3ucs2z31zz__ucs2z00(BgL_auxz00_2061); } 
BgL_auxz00_2058 = 
(int)(BgL_lenz00_430); 
BgL_ucs2zd2stringzd2_431 = 
make_ucs2_string(BgL_auxz00_2058, BgL_auxz00_2060); } 
{ /* ./Llib/unicode.scm 328 */

{ 
long BgL_iz00_432;obj_t BgL_lz00_433;
BgL_iz00_432 = ((long)0); 
BgL_lz00_433 = BgL_listz00_43; 
BgL_loopz00_434:
if(
(BgL_iz00_432==BgL_lenz00_430))
{ /* ./Llib/unicode.scm 331 */
BgL_aux1977z00_929 = BgL_ucs2zd2stringzd2_431; }  else 
{ /* ./Llib/unicode.scm 331 */
{ /* ./Llib/unicode.scm 334 */
obj_t BgL_arg1103z00_436;
{ /* ./Llib/unicode.scm 334 */
obj_t BgL_pairz00_718;
if(
PAIRP(BgL_lz00_433))
{ /* ./Llib/unicode.scm 334 */
BgL_pairz00_718 = BgL_lz00_433; }  else 
{ /* ./Llib/unicode.scm 334 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3078z00zz__unicodez00, BGl_string3030z00zz__unicodez00, BgL_lz00_433, BGl_string3031z00zz__unicodez00, 
BINT(((long)15650))); 
exit( -1 );} 
BgL_arg1103z00_436 = 
CAR(BgL_pairz00_718); } 
{ /* ./Llib/unicode.scm 334 */
int BgL_kz00_720;ucs2_t BgL_ucs2z00_721;
BgL_kz00_720 = 
(int)(BgL_iz00_432); 
{ /* ./Llib/unicode.scm 334 */
obj_t BgL_auxz00_2080;
if(
UCS2P(BgL_arg1103z00_436))
{ /* ./Llib/unicode.scm 334 */
BgL_auxz00_2080 = BgL_arg1103z00_436
; }  else 
{ /* ./Llib/unicode.scm 334 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3078z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_arg1103z00_436, BGl_string3031z00zz__unicodez00, 
BINT(((long)15651))); 
exit( -1 );} 
BgL_ucs2z00_721 = 
CUCS2(BgL_auxz00_2080); } 
{ /* ./Llib/unicode.scm 334 */
bool_t BgL_testz00_2087;
{ /* ./Llib/unicode.scm 334 */
int BgL_auxz00_2088;
BgL_auxz00_2088 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_431); 
BgL_testz00_2087 = 
BOUND_CHECK(BgL_kz00_720, BgL_auxz00_2088); } 
if(BgL_testz00_2087)
{ /* ./Llib/unicode.scm 334 */
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_431, BgL_kz00_720, BgL_ucs2z00_721); }  else 
{ /* ./Llib/unicode.scm 334 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3044z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_720), "./Llib/unicode.scm", ((long)9787)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)15613))); } } } } 
{ /* ./Llib/unicode.scm 335 */
long BgL_arg1107z00_437;obj_t BgL_arg1108z00_438;
BgL_arg1107z00_437 = 
(BgL_iz00_432+((long)1)); 
{ /* ./Llib/unicode.scm 335 */
obj_t BgL_pairz00_730;
if(
PAIRP(BgL_lz00_433))
{ /* ./Llib/unicode.scm 335 */
BgL_pairz00_730 = BgL_lz00_433; }  else 
{ /* ./Llib/unicode.scm 335 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3078z00zz__unicodez00, BGl_string3030z00zz__unicodez00, BgL_lz00_433, BGl_string3031z00zz__unicodez00, 
BINT(((long)15677))); 
exit( -1 );} 
BgL_arg1108z00_438 = 
CDR(BgL_pairz00_730); } 
{ 
obj_t BgL_lz00_2104;long BgL_iz00_2103;
BgL_iz00_2103 = BgL_arg1107z00_437; 
BgL_lz00_2104 = BgL_arg1108z00_438; 
BgL_lz00_433 = BgL_lz00_2104; 
BgL_iz00_432 = BgL_iz00_2103; 
goto BgL_loopz00_434;} } } } } } } 
POP_TRACE(); 
return BgL_aux1977z00_929;} } } } 
}



/* _list->ucs2-string */
obj_t BGl__listzd2ze3ucs2zd2stringze3zz__unicodez00(obj_t BgL_envz00_1013, obj_t BgL_listz00_1014)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 326 */
return 
BGl_listzd2ze3ucs2zd2stringze3zz__unicodez00(BgL_listz00_1014);} 
}



/* ucs2-string->list */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2ze3listze3zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_44)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 340 */
{ /* ./Llib/unicode.scm 341 */
obj_t BgL_symbol1982z00_930;
BgL_symbol1982z00_930 = BGl_symbol3080z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 341 */

PUSH_TRACE(BgL_symbol1982z00_930); BUNSPEC; 
{ /* ./Llib/unicode.scm 341 */
obj_t BgL_aux1981z00_931;
{ /* ./Llib/unicode.scm 341 */
int BgL_lenz00_440;
BgL_lenz00_440 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_44); 
{ 
long BgL_iz00_441;obj_t BgL_accz00_442;
BgL_iz00_441 = ((long)0); 
BgL_accz00_442 = BNIL; 
BgL_loopz00_443:
{ /* ./Llib/unicode.scm 344 */
bool_t BgL_testz00_2109;
{ /* ./Llib/unicode.scm 344 */
long BgL_auxz00_2110;
BgL_auxz00_2110 = 
(long)(BgL_lenz00_440); 
BgL_testz00_2109 = 
(BgL_iz00_441==BgL_auxz00_2110); } 
if(BgL_testz00_2109)
{ /* ./Llib/unicode.scm 345 */
obj_t BgL_auxz00_2113;
{ /* ./Llib/unicode.scm 345 */
bool_t BgL_testz00_2114;
if(
PAIRP(BgL_accz00_442))
{ /* ./Llib/unicode.scm 345 */
BgL_testz00_2114 = ((bool_t)1)
; }  else 
{ /* ./Llib/unicode.scm 345 */
BgL_testz00_2114 = 
NULLP(BgL_accz00_442)
; } 
if(BgL_testz00_2114)
{ /* ./Llib/unicode.scm 345 */
BgL_auxz00_2113 = BgL_accz00_442
; }  else 
{ /* ./Llib/unicode.scm 345 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3080z00zz__unicodez00, BGl_string3079z00zz__unicodez00, BgL_accz00_442, BGl_string3031z00zz__unicodez00, 
BINT(((long)16073))); 
exit( -1 );} } 
BgL_aux1981z00_931 = 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_2113); }  else 
{ /* ./Llib/unicode.scm 346 */
long BgL_arg1120z00_445;obj_t BgL_arg1121z00_446;
BgL_arg1120z00_445 = 
(BgL_iz00_441+((long)1)); 
{ /* ./Llib/unicode.scm 347 */
ucs2_t BgL_arg1125z00_447;
{ /* ./Llib/unicode.scm 347 */
ucs2_t BgL_res1884z00_744;
{ /* ./Llib/unicode.scm 347 */
int BgL_kz00_737;
BgL_kz00_737 = 
(int)(BgL_iz00_441); 
{ /* ./Llib/unicode.scm 347 */
bool_t BgL_testz00_2124;
{ /* ./Llib/unicode.scm 347 */
int BgL_auxz00_2125;
BgL_auxz00_2125 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_44); 
BgL_testz00_2124 = 
BOUND_CHECK(BgL_kz00_737, BgL_auxz00_2125); } 
if(BgL_testz00_2124)
{ /* ./Llib/unicode.scm 347 */
BgL_res1884z00_744 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_44, BgL_kz00_737); }  else 
{ /* ./Llib/unicode.scm 347 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3040z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_737), "./Llib/unicode.scm", ((long)9341)); 
{ /* ./Llib/unicode.scm 347 */
obj_t BgL_auxz00_2131;
{ /* ./Llib/unicode.scm 347 */
obj_t BgL_aux2737z00_1150;
BgL_aux2737z00_1150 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)16109))); 
if(
UCS2P(BgL_aux2737z00_1150))
{ /* ./Llib/unicode.scm 347 */
BgL_auxz00_2131 = BgL_aux2737z00_1150
; }  else 
{ /* ./Llib/unicode.scm 347 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3080z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_aux2737z00_1150, BGl_string3031z00zz__unicodez00, 
BINT(((long)16109))); 
exit( -1 );} } 
BgL_res1884z00_744 = 
CUCS2(BgL_auxz00_2131); } } } } 
BgL_arg1125z00_447 = BgL_res1884z00_744; } 
{ /* ./Llib/unicode.scm 347 */
obj_t BgL_auxz00_2140;
BgL_auxz00_2140 = 
BUCS2(BgL_arg1125z00_447); 
BgL_arg1121z00_446 = 
MAKE_PAIR(BgL_auxz00_2140, BgL_accz00_442); } } 
{ 
obj_t BgL_accz00_2144;long BgL_iz00_2143;
BgL_iz00_2143 = BgL_arg1120z00_445; 
BgL_accz00_2144 = BgL_arg1121z00_446; 
BgL_accz00_442 = BgL_accz00_2144; 
BgL_iz00_441 = BgL_iz00_2143; 
goto BgL_loopz00_443;} } } } } 
POP_TRACE(); 
return BgL_aux1981z00_931;} } } } 
}



/* _ucs2-string->list */
obj_t BGl__ucs2zd2stringzd2ze3listze3zz__unicodez00(obj_t BgL_envz00_1015, obj_t BgL_ucs2zd2stringzd2_1016)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 340 */
{ /* ./Llib/unicode.scm 341 */
obj_t BgL_auxz00_2146;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_1016))
{ /* ./Llib/unicode.scm 341 */
BgL_auxz00_2146 = BgL_ucs2zd2stringzd2_1016
; }  else 
{ /* ./Llib/unicode.scm 341 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3081z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_1016, BGl_string3031z00zz__unicodez00, 
BINT(((long)15952))); 
exit( -1 );} 
return 
BGl_ucs2zd2stringzd2ze3listze3zz__unicodez00(BgL_auxz00_2146);} } 
}



/* ucs2-string-copy */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2copyz00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_45)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 353 */
{ /* ./Llib/unicode.scm 354 */
obj_t BgL_symbol1986z00_1361;
BgL_symbol1986z00_1361 = BGl_symbol3082z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 354 */

PUSH_TRACE(BgL_symbol1986z00_1361); BUNSPEC; 
{ /* ./Llib/unicode.scm 354 */
obj_t BgL_aux1985z00_1362;
BgL_aux1985z00_1362 = 
c_ucs2_string_copy(BgL_ucs2zd2stringzd2_45); 
POP_TRACE(); 
return BgL_aux1985z00_1362;} } } } 
}



/* _ucs2-string-copy */
obj_t BGl__ucs2zd2stringzd2copyz00zz__unicodez00(obj_t BgL_envz00_1017, obj_t BgL_ucs2zd2stringzd2_1018)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 353 */
{ /* ./Llib/unicode.scm 354 */
obj_t BgL_res3120z00_1366;
{ /* ./Llib/unicode.scm 354 */
obj_t BgL_ucs2zd2stringzd2_1363;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_1018))
{ /* ./Llib/unicode.scm 354 */
BgL_ucs2zd2stringzd2_1363 = BgL_ucs2zd2stringzd2_1018; }  else 
{ /* ./Llib/unicode.scm 354 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3083z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_1018, BGl_string3031z00zz__unicodez00, 
BINT(((long)16427))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 354 */
obj_t BgL_symbol1986z00_1364;
BgL_symbol1986z00_1364 = BGl_symbol3082z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 354 */

PUSH_TRACE(BgL_symbol1986z00_1364); BUNSPEC; 
{ /* ./Llib/unicode.scm 354 */
obj_t BgL_aux1985z00_1365;
BgL_aux1985z00_1365 = 
c_ucs2_string_copy(BgL_ucs2zd2stringzd2_1363); 
POP_TRACE(); 
BgL_res3120z00_1366 = BgL_aux1985z00_1365; } } } } 
return BgL_res3120z00_1366;} } 
}



/* ucs2-string-fill! */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2fillz12z12zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_46, ucs2_t BgL_ucs2z00_47)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 359 */
{ /* ./Llib/unicode.scm 360 */
obj_t BgL_symbol1990z00_934;
BgL_symbol1990z00_934 = BGl_symbol3084z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 360 */

PUSH_TRACE(BgL_symbol1990z00_934); BUNSPEC; 
{ /* ./Llib/unicode.scm 360 */
obj_t BgL_aux1989z00_935;
{ /* ./Llib/unicode.scm 360 */
int BgL_lenz00_448;
BgL_lenz00_448 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_46); 
{ 
long BgL_iz00_449;
BgL_iz00_449 = ((long)0); 
BgL_loopz00_450:
{ /* ./Llib/unicode.scm 362 */
bool_t BgL_testz00_2166;
{ /* ./Llib/unicode.scm 362 */
long BgL_auxz00_2167;
BgL_auxz00_2167 = 
(long)(BgL_lenz00_448); 
BgL_testz00_2166 = 
(BgL_iz00_449==BgL_auxz00_2167); } 
if(BgL_testz00_2166)
{ /* ./Llib/unicode.scm 362 */
BgL_aux1989z00_935 = BgL_ucs2zd2stringzd2_46; }  else 
{ /* ./Llib/unicode.scm 362 */
{ /* ./Llib/unicode.scm 365 */
int BgL_kz00_749;
BgL_kz00_749 = 
(int)(BgL_iz00_449); 
{ /* ./Llib/unicode.scm 365 */
bool_t BgL_testz00_2171;
{ /* ./Llib/unicode.scm 365 */
int BgL_auxz00_2172;
BgL_auxz00_2172 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_46); 
BgL_testz00_2171 = 
BOUND_CHECK(BgL_kz00_749, BgL_auxz00_2172); } 
if(BgL_testz00_2171)
{ /* ./Llib/unicode.scm 365 */
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_46, BgL_kz00_749, BgL_ucs2z00_47); }  else 
{ /* ./Llib/unicode.scm 365 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3044z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_749), "./Llib/unicode.scm", ((long)9787)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)16853))); } } } 
{ 
long BgL_iz00_2180;
BgL_iz00_2180 = 
(BgL_iz00_449+((long)1)); 
BgL_iz00_449 = BgL_iz00_2180; 
goto BgL_loopz00_450;} } } } } 
POP_TRACE(); 
return BgL_aux1989z00_935;} } } } 
}



/* _ucs2-string-fill! */
obj_t BGl__ucs2zd2stringzd2fillz12z12zz__unicodez00(obj_t BgL_envz00_1019, obj_t BgL_ucs2zd2stringzd2_1020, obj_t BgL_ucs2z00_1021)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 359 */
{ /* ./Llib/unicode.scm 360 */
ucs2_t BgL_auxz00_2189;obj_t BgL_auxz00_2183;
{ /* ./Llib/unicode.scm 360 */
obj_t BgL_auxz00_2190;
if(
UCS2P(BgL_ucs2z00_1021))
{ /* ./Llib/unicode.scm 360 */
BgL_auxz00_2190 = BgL_ucs2z00_1021
; }  else 
{ /* ./Llib/unicode.scm 360 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3085z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_ucs2z00_1021, BGl_string3031z00zz__unicodez00, 
BINT(((long)16732))); 
exit( -1 );} 
BgL_auxz00_2189 = 
CUCS2(BgL_auxz00_2190); } 
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_1020))
{ /* ./Llib/unicode.scm 360 */
BgL_auxz00_2183 = BgL_ucs2zd2stringzd2_1020
; }  else 
{ /* ./Llib/unicode.scm 360 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3085z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_1020, BGl_string3031z00zz__unicodez00, 
BINT(((long)16732))); 
exit( -1 );} 
return 
BGl_ucs2zd2stringzd2fillz12z12zz__unicodez00(BgL_auxz00_2183, BgL_auxz00_2189);} } 
}



/* ucs2-string-upcase */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2upcasez00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_48)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 371 */
{ /* ./Llib/unicode.scm 372 */
obj_t BgL_symbol1994z00_936;
BgL_symbol1994z00_936 = BGl_symbol3086z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 372 */

PUSH_TRACE(BgL_symbol1994z00_936); BUNSPEC; 
{ /* ./Llib/unicode.scm 372 */
obj_t BgL_aux1993z00_937;
{ /* ./Llib/unicode.scm 372 */
int BgL_lenz00_453;
BgL_lenz00_453 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_48); 
{ /* ./Llib/unicode.scm 372 */
obj_t BgL_resz00_454;
{ /* ./Llib/unicode.scm 373 */
ucs2_t BgL_auxz00_2200;
{ /* ./Llib/unicode.scm 373 */
int BgL_auxz00_2201;
{ /* ./Llib/unicode.scm 373 */
long BgL_auxz00_2202;
{ /* ./Llib/unicode.scm 373 */
unsigned char BgL_auxz00_2203;
{ /* ./Llib/unicode.scm 373 */
char BgL_auxz00_2204;
BgL_auxz00_2204 = 
(char)(((unsigned char)' ')); 
BgL_auxz00_2203 = 
(unsigned char)(BgL_auxz00_2204); } 
BgL_auxz00_2202 = 
(BgL_auxz00_2203); } 
BgL_auxz00_2201 = 
(int)(BgL_auxz00_2202); } 
BgL_auxz00_2200 = 
BGl_integerzd2ze3ucs2z31zz__ucs2z00(BgL_auxz00_2201); } 
BgL_resz00_454 = 
make_ucs2_string(BgL_lenz00_453, BgL_auxz00_2200); } 
{ /* ./Llib/unicode.scm 373 */

{ 
long BgL_iz00_455;
BgL_iz00_455 = ((long)0); 
BgL_loopz00_456:
{ /* ./Llib/unicode.scm 375 */
bool_t BgL_testz00_2211;
{ /* ./Llib/unicode.scm 375 */
long BgL_auxz00_2212;
BgL_auxz00_2212 = 
(long)(BgL_lenz00_453); 
BgL_testz00_2211 = 
(BgL_iz00_455==BgL_auxz00_2212); } 
if(BgL_testz00_2211)
{ /* ./Llib/unicode.scm 375 */
BgL_aux1993z00_937 = BgL_resz00_454; }  else 
{ /* ./Llib/unicode.scm 375 */
{ /* ./Llib/unicode.scm 380 */
ucs2_t BgL_arg1144z00_458;
{ /* ./Llib/unicode.scm 380 */
ucs2_t BgL_arg1147z00_459;
{ /* ./Llib/unicode.scm 380 */
ucs2_t BgL_res1887z00_782;
{ /* ./Llib/unicode.scm 380 */
int BgL_kz00_775;
BgL_kz00_775 = 
(int)(BgL_iz00_455); 
{ /* ./Llib/unicode.scm 380 */
bool_t BgL_testz00_2216;
{ /* ./Llib/unicode.scm 380 */
int BgL_auxz00_2217;
BgL_auxz00_2217 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_48); 
BgL_testz00_2216 = 
BOUND_CHECK(BgL_kz00_775, BgL_auxz00_2217); } 
if(BgL_testz00_2216)
{ /* ./Llib/unicode.scm 380 */
BgL_res1887z00_782 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_48, BgL_kz00_775); }  else 
{ /* ./Llib/unicode.scm 380 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3040z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_775), "./Llib/unicode.scm", ((long)9341)); 
{ /* ./Llib/unicode.scm 380 */
obj_t BgL_auxz00_2223;
{ /* ./Llib/unicode.scm 380 */
obj_t BgL_aux2834z00_1164;
BgL_aux2834z00_1164 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)17377))); 
if(
UCS2P(BgL_aux2834z00_1164))
{ /* ./Llib/unicode.scm 380 */
BgL_auxz00_2223 = BgL_aux2834z00_1164
; }  else 
{ /* ./Llib/unicode.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3086z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_aux2834z00_1164, BGl_string3031z00zz__unicodez00, 
BINT(((long)17377))); 
exit( -1 );} } 
BgL_res1887z00_782 = 
CUCS2(BgL_auxz00_2223); } } } } 
BgL_arg1147z00_459 = BgL_res1887z00_782; } 
BgL_arg1144z00_458 = 
ucs2_toupper(BgL_arg1147z00_459); } 
{ /* ./Llib/unicode.scm 378 */
int BgL_kz00_785;
BgL_kz00_785 = 
(int)(BgL_iz00_455); 
{ /* ./Llib/unicode.scm 378 */
bool_t BgL_testz00_2234;
{ /* ./Llib/unicode.scm 378 */
int BgL_auxz00_2235;
BgL_auxz00_2235 = 
UCS2_STRING_LENGTH(BgL_resz00_454); 
BgL_testz00_2234 = 
BOUND_CHECK(BgL_kz00_785, BgL_auxz00_2235); } 
if(BgL_testz00_2234)
{ /* ./Llib/unicode.scm 378 */
UCS2_STRING_SET(BgL_resz00_454, BgL_kz00_785, BgL_arg1144z00_458); }  else 
{ /* ./Llib/unicode.scm 378 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3044z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_785), "./Llib/unicode.scm", ((long)9787)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)17328))); } } } } 
{ 
long BgL_iz00_2243;
BgL_iz00_2243 = 
(BgL_iz00_455+((long)1)); 
BgL_iz00_455 = BgL_iz00_2243; 
goto BgL_loopz00_456;} } } } } } } 
POP_TRACE(); 
return BgL_aux1993z00_937;} } } } 
}



/* _ucs2-string-upcase */
obj_t BGl__ucs2zd2stringzd2upcasez00zz__unicodez00(obj_t BgL_envz00_1022, obj_t BgL_ucs2zd2stringzd2_1023)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 371 */
{ /* ./Llib/unicode.scm 372 */
obj_t BgL_auxz00_2246;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_1023))
{ /* ./Llib/unicode.scm 372 */
BgL_auxz00_2246 = BgL_ucs2zd2stringzd2_1023
; }  else 
{ /* ./Llib/unicode.scm 372 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3087z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_1023, BGl_string3031z00zz__unicodez00, 
BINT(((long)17182))); 
exit( -1 );} 
return 
BGl_ucs2zd2stringzd2upcasez00zz__unicodez00(BgL_auxz00_2246);} } 
}



/* ucs2-string-downcase */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2downcasez00zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_49)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 387 */
{ /* ./Llib/unicode.scm 388 */
obj_t BgL_symbol1998z00_938;
BgL_symbol1998z00_938 = BGl_symbol3088z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 388 */

PUSH_TRACE(BgL_symbol1998z00_938); BUNSPEC; 
{ /* ./Llib/unicode.scm 388 */
obj_t BgL_aux1997z00_939;
{ /* ./Llib/unicode.scm 388 */
int BgL_lenz00_462;
BgL_lenz00_462 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_49); 
{ /* ./Llib/unicode.scm 388 */
obj_t BgL_resz00_463;
{ /* ./Llib/unicode.scm 389 */
ucs2_t BgL_auxz00_2255;
{ /* ./Llib/unicode.scm 389 */
int BgL_auxz00_2256;
{ /* ./Llib/unicode.scm 389 */
long BgL_auxz00_2257;
{ /* ./Llib/unicode.scm 389 */
unsigned char BgL_auxz00_2258;
{ /* ./Llib/unicode.scm 389 */
char BgL_auxz00_2259;
BgL_auxz00_2259 = 
(char)(((unsigned char)' ')); 
BgL_auxz00_2258 = 
(unsigned char)(BgL_auxz00_2259); } 
BgL_auxz00_2257 = 
(BgL_auxz00_2258); } 
BgL_auxz00_2256 = 
(int)(BgL_auxz00_2257); } 
BgL_auxz00_2255 = 
BGl_integerzd2ze3ucs2z31zz__ucs2z00(BgL_auxz00_2256); } 
BgL_resz00_463 = 
make_ucs2_string(BgL_lenz00_462, BgL_auxz00_2255); } 
{ /* ./Llib/unicode.scm 389 */

{ 
long BgL_iz00_464;
BgL_iz00_464 = ((long)0); 
BgL_loopz00_465:
{ /* ./Llib/unicode.scm 391 */
bool_t BgL_testz00_2266;
{ /* ./Llib/unicode.scm 391 */
long BgL_auxz00_2267;
BgL_auxz00_2267 = 
(long)(BgL_lenz00_462); 
BgL_testz00_2266 = 
(BgL_iz00_464==BgL_auxz00_2267); } 
if(BgL_testz00_2266)
{ /* ./Llib/unicode.scm 391 */
BgL_aux1997z00_939 = BgL_resz00_463; }  else 
{ /* ./Llib/unicode.scm 391 */
{ /* ./Llib/unicode.scm 396 */
ucs2_t BgL_arg1161z00_467;
{ /* ./Llib/unicode.scm 396 */
ucs2_t BgL_arg1164z00_468;
{ /* ./Llib/unicode.scm 396 */
ucs2_t BgL_res1890z00_818;
{ /* ./Llib/unicode.scm 396 */
int BgL_kz00_811;
BgL_kz00_811 = 
(int)(BgL_iz00_464); 
{ /* ./Llib/unicode.scm 396 */
bool_t BgL_testz00_2271;
{ /* ./Llib/unicode.scm 396 */
int BgL_auxz00_2272;
BgL_auxz00_2272 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_49); 
BgL_testz00_2271 = 
BOUND_CHECK(BgL_kz00_811, BgL_auxz00_2272); } 
if(BgL_testz00_2271)
{ /* ./Llib/unicode.scm 396 */
BgL_res1890z00_818 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_49, BgL_kz00_811); }  else 
{ /* ./Llib/unicode.scm 396 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3040z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_811), "./Llib/unicode.scm", ((long)9341)); 
{ /* ./Llib/unicode.scm 396 */
obj_t BgL_auxz00_2278;
{ /* ./Llib/unicode.scm 396 */
obj_t BgL_aux2898z00_1172;
BgL_aux2898z00_1172 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)17909))); 
if(
UCS2P(BgL_aux2898z00_1172))
{ /* ./Llib/unicode.scm 396 */
BgL_auxz00_2278 = BgL_aux2898z00_1172
; }  else 
{ /* ./Llib/unicode.scm 396 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3088z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_aux2898z00_1172, BGl_string3031z00zz__unicodez00, 
BINT(((long)17909))); 
exit( -1 );} } 
BgL_res1890z00_818 = 
CUCS2(BgL_auxz00_2278); } } } } 
BgL_arg1164z00_468 = BgL_res1890z00_818; } 
BgL_arg1161z00_467 = 
ucs2_tolower(BgL_arg1164z00_468); } 
{ /* ./Llib/unicode.scm 394 */
int BgL_kz00_821;
BgL_kz00_821 = 
(int)(BgL_iz00_464); 
{ /* ./Llib/unicode.scm 394 */
bool_t BgL_testz00_2289;
{ /* ./Llib/unicode.scm 394 */
int BgL_auxz00_2290;
BgL_auxz00_2290 = 
UCS2_STRING_LENGTH(BgL_resz00_463); 
BgL_testz00_2289 = 
BOUND_CHECK(BgL_kz00_821, BgL_auxz00_2290); } 
if(BgL_testz00_2289)
{ /* ./Llib/unicode.scm 394 */
UCS2_STRING_SET(BgL_resz00_463, BgL_kz00_821, BgL_arg1161z00_467); }  else 
{ /* ./Llib/unicode.scm 394 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3044z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_821), "./Llib/unicode.scm", ((long)9787)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)17858))); } } } } 
{ 
long BgL_iz00_2298;
BgL_iz00_2298 = 
(BgL_iz00_464+((long)1)); 
BgL_iz00_464 = BgL_iz00_2298; 
goto BgL_loopz00_465;} } } } } } } 
POP_TRACE(); 
return BgL_aux1997z00_939;} } } } 
}



/* _ucs2-string-downcase */
obj_t BGl__ucs2zd2stringzd2downcasez00zz__unicodez00(obj_t BgL_envz00_1024, obj_t BgL_ucs2zd2stringzd2_1025)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 387 */
{ /* ./Llib/unicode.scm 388 */
obj_t BgL_auxz00_2301;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_1025))
{ /* ./Llib/unicode.scm 388 */
BgL_auxz00_2301 = BgL_ucs2zd2stringzd2_1025
; }  else 
{ /* ./Llib/unicode.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3089z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_1025, BGl_string3031z00zz__unicodez00, 
BINT(((long)17712))); 
exit( -1 );} 
return 
BGl_ucs2zd2stringzd2downcasez00zz__unicodez00(BgL_auxz00_2301);} } 
}



/* ucs2-string-upcase! */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2upcasez12z12zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_50)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 403 */
{ /* ./Llib/unicode.scm 404 */
obj_t BgL_symbol2002z00_940;
BgL_symbol2002z00_940 = BGl_symbol3090z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 404 */

PUSH_TRACE(BgL_symbol2002z00_940); BUNSPEC; 
{ /* ./Llib/unicode.scm 404 */
obj_t BgL_aux2001z00_941;
{ /* ./Llib/unicode.scm 404 */
int BgL_lenz00_471;
BgL_lenz00_471 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_50); 
{ /* ./Llib/unicode.scm 405 */

{ 
long BgL_iz00_473;
BgL_iz00_473 = ((long)0); 
BgL_loopz00_474:
{ /* ./Llib/unicode.scm 407 */
bool_t BgL_testz00_2310;
{ /* ./Llib/unicode.scm 407 */
long BgL_auxz00_2311;
BgL_auxz00_2311 = 
(long)(BgL_lenz00_471); 
BgL_testz00_2310 = 
(BgL_iz00_473==BgL_auxz00_2311); } 
if(BgL_testz00_2310)
{ /* ./Llib/unicode.scm 407 */
BgL_aux2001z00_941 = BgL_ucs2zd2stringzd2_50; }  else 
{ /* ./Llib/unicode.scm 407 */
{ /* ./Llib/unicode.scm 412 */
ucs2_t BgL_arg1179z00_476;
{ /* ./Llib/unicode.scm 412 */
ucs2_t BgL_arg1182z00_477;
{ /* ./Llib/unicode.scm 412 */
ucs2_t BgL_res1891z00_842;
{ /* ./Llib/unicode.scm 412 */
int BgL_kz00_835;
BgL_kz00_835 = 
(int)(BgL_iz00_473); 
{ /* ./Llib/unicode.scm 412 */
bool_t BgL_testz00_2315;
{ /* ./Llib/unicode.scm 412 */
int BgL_auxz00_2316;
BgL_auxz00_2316 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_50); 
BgL_testz00_2315 = 
BOUND_CHECK(BgL_kz00_835, BgL_auxz00_2316); } 
if(BgL_testz00_2315)
{ /* ./Llib/unicode.scm 412 */
BgL_res1891z00_842 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_50, BgL_kz00_835); }  else 
{ /* ./Llib/unicode.scm 412 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3040z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_835), "./Llib/unicode.scm", ((long)9341)); 
{ /* ./Llib/unicode.scm 412 */
obj_t BgL_auxz00_2322;
{ /* ./Llib/unicode.scm 412 */
obj_t BgL_aux2938z00_1176;
BgL_aux2938z00_1176 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)18429))); 
if(
UCS2P(BgL_aux2938z00_1176))
{ /* ./Llib/unicode.scm 412 */
BgL_auxz00_2322 = BgL_aux2938z00_1176
; }  else 
{ /* ./Llib/unicode.scm 412 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3090z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_aux2938z00_1176, BGl_string3031z00zz__unicodez00, 
BINT(((long)18429))); 
exit( -1 );} } 
BgL_res1891z00_842 = 
CUCS2(BgL_auxz00_2322); } } } } 
BgL_arg1182z00_477 = BgL_res1891z00_842; } 
BgL_arg1179z00_476 = 
ucs2_toupper(BgL_arg1182z00_477); } 
{ /* ./Llib/unicode.scm 410 */
int BgL_kz00_845;
BgL_kz00_845 = 
(int)(BgL_iz00_473); 
{ /* ./Llib/unicode.scm 410 */
bool_t BgL_testz00_2333;
{ /* ./Llib/unicode.scm 410 */
int BgL_auxz00_2334;
BgL_auxz00_2334 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_50); 
BgL_testz00_2333 = 
BOUND_CHECK(BgL_kz00_845, BgL_auxz00_2334); } 
if(BgL_testz00_2333)
{ /* ./Llib/unicode.scm 410 */
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_50, BgL_kz00_845, BgL_arg1179z00_476); }  else 
{ /* ./Llib/unicode.scm 410 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3044z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_845), "./Llib/unicode.scm", ((long)9787)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)18380))); } } } } 
{ 
long BgL_iz00_2342;
BgL_iz00_2342 = 
(BgL_iz00_473+((long)1)); 
BgL_iz00_473 = BgL_iz00_2342; 
goto BgL_loopz00_474;} } } } } } 
POP_TRACE(); 
return BgL_aux2001z00_941;} } } } 
}



/* _ucs2-string-upcase! */
obj_t BGl__ucs2zd2stringzd2upcasez12z12zz__unicodez00(obj_t BgL_envz00_1026, obj_t BgL_ucs2zd2stringzd2_1027)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 403 */
{ /* ./Llib/unicode.scm 404 */
obj_t BgL_auxz00_2345;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_1027))
{ /* ./Llib/unicode.scm 404 */
BgL_auxz00_2345 = BgL_ucs2zd2stringzd2_1027
; }  else 
{ /* ./Llib/unicode.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3091z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_1027, BGl_string3031z00zz__unicodez00, 
BINT(((long)18245))); 
exit( -1 );} 
return 
BGl_ucs2zd2stringzd2upcasez12z12zz__unicodez00(BgL_auxz00_2345);} } 
}



/* ucs2-string-downcase! */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2downcasez12z12zz__unicodez00(obj_t BgL_ucs2zd2stringzd2_51)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 419 */
{ /* ./Llib/unicode.scm 420 */
obj_t BgL_symbol2006z00_942;
BgL_symbol2006z00_942 = BGl_symbol3092z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 420 */

PUSH_TRACE(BgL_symbol2006z00_942); BUNSPEC; 
{ /* ./Llib/unicode.scm 420 */
obj_t BgL_aux2005z00_943;
{ /* ./Llib/unicode.scm 420 */
int BgL_lenz00_479;
BgL_lenz00_479 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_51); 
{ /* ./Llib/unicode.scm 421 */

{ 
long BgL_iz00_481;
BgL_iz00_481 = ((long)0); 
BgL_loopz00_482:
{ /* ./Llib/unicode.scm 423 */
bool_t BgL_testz00_2354;
{ /* ./Llib/unicode.scm 423 */
long BgL_auxz00_2355;
BgL_auxz00_2355 = 
(long)(BgL_lenz00_479); 
BgL_testz00_2354 = 
(BgL_iz00_481==BgL_auxz00_2355); } 
if(BgL_testz00_2354)
{ /* ./Llib/unicode.scm 423 */
BgL_aux2005z00_943 = BgL_ucs2zd2stringzd2_51; }  else 
{ /* ./Llib/unicode.scm 423 */
{ /* ./Llib/unicode.scm 428 */
ucs2_t BgL_arg1195z00_484;
{ /* ./Llib/unicode.scm 428 */
ucs2_t BgL_arg1198z00_485;
{ /* ./Llib/unicode.scm 428 */
ucs2_t BgL_res1892z00_866;
{ /* ./Llib/unicode.scm 428 */
int BgL_kz00_859;
BgL_kz00_859 = 
(int)(BgL_iz00_481); 
{ /* ./Llib/unicode.scm 428 */
bool_t BgL_testz00_2359;
{ /* ./Llib/unicode.scm 428 */
int BgL_auxz00_2360;
BgL_auxz00_2360 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_51); 
BgL_testz00_2359 = 
BOUND_CHECK(BgL_kz00_859, BgL_auxz00_2360); } 
if(BgL_testz00_2359)
{ /* ./Llib/unicode.scm 428 */
BgL_res1892z00_866 = 
UCS2_STRING_REF(BgL_ucs2zd2stringzd2_51, BgL_kz00_859); }  else 
{ /* ./Llib/unicode.scm 428 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3040z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_859), "./Llib/unicode.scm", ((long)9341)); 
{ /* ./Llib/unicode.scm 428 */
obj_t BgL_auxz00_2366;
{ /* ./Llib/unicode.scm 428 */
obj_t BgL_aux2978z00_1180;
BgL_aux2978z00_1180 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)18951))); 
if(
UCS2P(BgL_aux2978z00_1180))
{ /* ./Llib/unicode.scm 428 */
BgL_auxz00_2366 = BgL_aux2978z00_1180
; }  else 
{ /* ./Llib/unicode.scm 428 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3092z00zz__unicodez00, BGl_string3032z00zz__unicodez00, BgL_aux2978z00_1180, BGl_string3031z00zz__unicodez00, 
BINT(((long)18951))); 
exit( -1 );} } 
BgL_res1892z00_866 = 
CUCS2(BgL_auxz00_2366); } } } } 
BgL_arg1198z00_485 = BgL_res1892z00_866; } 
BgL_arg1195z00_484 = 
ucs2_tolower(BgL_arg1198z00_485); } 
{ /* ./Llib/unicode.scm 426 */
int BgL_kz00_869;
BgL_kz00_869 = 
(int)(BgL_iz00_481); 
{ /* ./Llib/unicode.scm 426 */
bool_t BgL_testz00_2377;
{ /* ./Llib/unicode.scm 426 */
int BgL_auxz00_2378;
BgL_auxz00_2378 = 
UCS2_STRING_LENGTH(BgL_ucs2zd2stringzd2_51); 
BgL_testz00_2377 = 
BOUND_CHECK(BgL_kz00_869, BgL_auxz00_2378); } 
if(BgL_testz00_2377)
{ /* ./Llib/unicode.scm 426 */
UCS2_STRING_SET(BgL_ucs2zd2stringzd2_51, BgL_kz00_869, BgL_arg1195z00_484); }  else 
{ /* ./Llib/unicode.scm 426 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3044z00zz__unicodez00, BGl_string3041z00zz__unicodez00, 
BINT(BgL_kz00_869), "./Llib/unicode.scm", ((long)9787)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3031z00zz__unicodez00, 
BINT(((long)18900))); } } } } 
{ 
long BgL_iz00_2386;
BgL_iz00_2386 = 
(BgL_iz00_481+((long)1)); 
BgL_iz00_481 = BgL_iz00_2386; 
goto BgL_loopz00_482;} } } } } } 
POP_TRACE(); 
return BgL_aux2005z00_943;} } } } 
}



/* _ucs2-string-downcase! */
obj_t BGl__ucs2zd2stringzd2downcasez12z12zz__unicodez00(obj_t BgL_envz00_1028, obj_t BgL_ucs2zd2stringzd2_1029)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 419 */
{ /* ./Llib/unicode.scm 420 */
obj_t BgL_auxz00_2389;
if(
UCS2_STRINGP(BgL_ucs2zd2stringzd2_1029))
{ /* ./Llib/unicode.scm 420 */
BgL_auxz00_2389 = BgL_ucs2zd2stringzd2_1029
; }  else 
{ /* ./Llib/unicode.scm 420 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3093z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2zd2stringzd2_1029, BGl_string3031z00zz__unicodez00, 
BINT(((long)18765))); 
exit( -1 );} 
return 
BGl_ucs2zd2stringzd2downcasez12z12zz__unicodez00(BgL_auxz00_2389);} } 
}



/* ucs2-string->utf8-string */
BGL_EXPORTED_DEF obj_t BGl_ucs2zd2stringzd2ze3utf8zd2stringz31zz__unicodez00(obj_t BgL_ucs2z00_52)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 435 */
{ /* ./Llib/unicode.scm 436 */
obj_t BgL_symbol2010z00_1367;
BgL_symbol2010z00_1367 = BGl_symbol3094z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 436 */

PUSH_TRACE(BgL_symbol2010z00_1367); BUNSPEC; 
{ /* ./Llib/unicode.scm 436 */
obj_t BgL_aux2009z00_1368;
BgL_aux2009z00_1368 = 
ucs2_string_to_utf8_string(BgL_ucs2z00_52); 
POP_TRACE(); 
return BgL_aux2009z00_1368;} } } } 
}



/* _ucs2-string->utf8-string */
obj_t BGl__ucs2zd2stringzd2ze3utf8zd2stringz31zz__unicodez00(obj_t BgL_envz00_1030, obj_t BgL_ucs2z00_1031)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 435 */
{ /* ./Llib/unicode.scm 436 */
obj_t BgL_res3121z00_1372;
{ /* ./Llib/unicode.scm 436 */
obj_t BgL_ucs2z00_1369;
if(
UCS2_STRINGP(BgL_ucs2z00_1031))
{ /* ./Llib/unicode.scm 436 */
BgL_ucs2z00_1369 = BgL_ucs2z00_1031; }  else 
{ /* ./Llib/unicode.scm 436 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3095z00zz__unicodez00, BGl_string3038z00zz__unicodez00, BgL_ucs2z00_1031, BGl_string3031z00zz__unicodez00, 
BINT(((long)19298))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 436 */
obj_t BgL_symbol2010z00_1370;
BgL_symbol2010z00_1370 = BGl_symbol3094z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 436 */

PUSH_TRACE(BgL_symbol2010z00_1370); BUNSPEC; 
{ /* ./Llib/unicode.scm 436 */
obj_t BgL_aux2009z00_1371;
BgL_aux2009z00_1371 = 
ucs2_string_to_utf8_string(BgL_ucs2z00_1369); 
POP_TRACE(); 
BgL_res3121z00_1372 = BgL_aux2009z00_1371; } } } } 
return BgL_res3121z00_1372;} } 
}



/* utf8-string->ucs2-string */
BGL_EXPORTED_DEF obj_t BGl_utf8zd2stringzd2ze3ucs2zd2stringz31zz__unicodez00(obj_t BgL_utf8z00_53)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 441 */
{ /* ./Llib/unicode.scm 442 */
obj_t BgL_symbol2014z00_1373;
BgL_symbol2014z00_1373 = BGl_symbol3096z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 442 */

PUSH_TRACE(BgL_symbol2014z00_1373); BUNSPEC; 
{ /* ./Llib/unicode.scm 442 */
obj_t BgL_aux2013z00_1374;
BgL_aux2013z00_1374 = 
utf8_string_to_ucs2_string(BgL_utf8z00_53); 
POP_TRACE(); 
return BgL_aux2013z00_1374;} } } } 
}



/* _utf8-string->ucs2-string */
obj_t BGl__utf8zd2stringzd2ze3ucs2zd2stringz31zz__unicodez00(obj_t BgL_envz00_1032, obj_t BgL_utf8z00_1033)
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 441 */
{ /* ./Llib/unicode.scm 442 */
obj_t BgL_res3122z00_1378;
{ /* ./Llib/unicode.scm 442 */
obj_t BgL_utf8z00_1375;
if(
STRINGP(BgL_utf8z00_1033))
{ /* ./Llib/unicode.scm 442 */
BgL_utf8z00_1375 = BgL_utf8z00_1033; }  else 
{ /* ./Llib/unicode.scm 442 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3097z00zz__unicodez00, BGl_string3098z00zz__unicodez00, BgL_utf8z00_1033, BGl_string3031z00zz__unicodez00, 
BINT(((long)19606))); 
exit( -1 );} 
{ /* ./Llib/unicode.scm 442 */
obj_t BgL_symbol2014z00_1376;
BgL_symbol2014z00_1376 = BGl_symbol3096z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 442 */

PUSH_TRACE(BgL_symbol2014z00_1376); BUNSPEC; 
{ /* ./Llib/unicode.scm 442 */
obj_t BgL_aux2013z00_1377;
BgL_aux2013z00_1377 = 
utf8_string_to_ucs2_string(BgL_utf8z00_1375); 
POP_TRACE(); 
BgL_res3122z00_1378 = BgL_aux2013z00_1377; } } } } 
return BgL_res3122z00_1378;} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__unicodez00()
{ AN_OBJECT;
{ /* ./Llib/unicode.scm 14 */
{ /* ./Llib/unicode.scm 14 */
obj_t BgL_symbol2018z00_948;
BgL_symbol2018z00_948 = BGl_symbol3099z00zz__unicodez00; 
{ /* ./Llib/unicode.scm 14 */

PUSH_TRACE(BgL_symbol2018z00_948); BUNSPEC; 
{ /* ./Llib/unicode.scm 14 */
obj_t BgL_aux2017z00_949;
BgL_aux2017z00_949 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__unicode"); 
POP_TRACE(); 
return BgL_aux2017z00_949;} } } } 
}

