/*===========================================================================*/
/*   (Ieee/fixnum.scm)                                                       */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Ieee/fixnum.scm -indent -o objs/obj_s/Ieee/fixnum.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

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

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

static obj_t BGl_z62za7eroelongzf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zc3s32za1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_fixnumzd2ze3uint8z31zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL bool_t BGl_zd3fxzd3zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62remainderz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7erofxzf3z54zz__r4_numbers_6_5_fixnumz00(long);
extern obj_t integer_to_string(long, long);
BGL_EXPORTED_DECL bool_t BGl_za7erou64zf3z54zz__r4_numbers_6_5_fixnumz00(uint64_t);
static obj_t BGl_z62negu64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62lcmu64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62za2fxzf2ovz32zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62za7eros64zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_elongzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(long);
extern obj_t llong_to_string(BGL_LONGLONG_T, long);
static obj_t BGl_z62za7erofxzf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_maxs64z00zz__r4_numbers_6_5_fixnumz00(int64_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_oddu8zf3zf3zz__r4_numbers_6_5_fixnumz00(uint8_t);
static obj_t BGl_z62llongzd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_fixnumzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL uint16_t BGl_zb2u16zb2zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
extern obj_t bgl_bignum_to_string(obj_t, int);
BGL_EXPORTED_DECL obj_t BGl_gcdbxz00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62minu64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_Z0z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_z62zb2u32zd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_Z1z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_abselongz00zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_symbol4981z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_Z2z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_z62zd2s16zb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_symbol4984z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_z62za2u64zc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_minu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t, obj_t);
static obj_t BGl_symbol4987z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_z62uint64zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_remainderllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
static obj_t BGl_z62seedzd2randomz12za2zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_oddzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL uint16_t BGl_negu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t);
static obj_t BGl_z62quotients32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_lcmu16z00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62maxu8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3fxz30zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62int64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t integer_to_string_padding(long, long, long);
extern obj_t bgl_bignum_lcm(obj_t, obj_t);
static obj_t BGl_z62remainderfxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7erollongzf3z54zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
BGL_EXPORTED_DECL uint8_t BGl_zf2u8zf2zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
static obj_t BGl_z62zd3s16zb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62int64zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62int32zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62negfxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zb2u8zd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint32_t BGl_maxu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_minu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_int16zd2ze3uint16z31zz__r4_numbers_6_5_fixnumz00(int16_t);
BGL_EXPORTED_DECL int8_t BGl_fixnumzd2ze3int8z31zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62uint32zd2ze3int32z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_uint8zd2ze3int8z31zz__r4_numbers_6_5_fixnumz00(uint8_t);
BGL_EXPORTED_DECL uint8_t BGl_int8zd2ze3uint8z31zz__r4_numbers_6_5_fixnumz00(int8_t);
BGL_EXPORTED_DECL bool_t BGl_negativeelongzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62int8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_zb2s64zb2zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
static obj_t BGl_z62zf2elongz90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_uint64zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(uint64_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_gcdllongz00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62minvalfxz62zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62zc3s8za1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
extern BGL_LONGLONG_T bgl_bignum_to_llong(obj_t);
BGL_EXPORTED_DECL uint64_t BGl_gcdu64z00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62za2fxzc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_zf2u64zf2zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
BGL_EXPORTED_DECL obj_t BGl_gcdz00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL long BGl_negelongz00zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL bool_t BGl_positivefxzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_z62positivebxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_int32zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(int32_t);
BGL_EXPORTED_DECL bool_t BGl_zc3s32zc3zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
BGL_EXPORTED_DECL bool_t BGl_elongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3s16z30zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
static obj_t BGl_z62octetzd2stringzd2ze3bignumz81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62uint64zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7eros32zf3z54zz__r4_numbers_6_5_fixnumz00(int32_t);
extern void bgl_seed_rand(long);
extern obj_t bgl_bignum_quotient(obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_negs64z00zz__r4_numbers_6_5_fixnumz00(int64_t);
BGL_EXPORTED_DECL obj_t BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, obj_t);
static obj_t BGl_z62absu16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_lcmllongz00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7eros16zf3z54zz__r4_numbers_6_5_fixnumz00(int16_t);
BGL_EXPORTED_DECL int64_t BGl_lcms64z00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL uint64_t BGl_uint32zd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(uint32_t);
static obj_t BGl_z62zc3zd3u16z72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_gcdu8z00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62zc3bxza1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3bytez53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3fxze3zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62zc3u16za1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_fixnumzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL long BGl_exptfxz00zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_minllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_exptu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
static obj_t BGl_z62modulos8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_mins64z00zz__r4_numbers_6_5_fixnumz00(int64_t, obj_t);
static obj_t BGl_z62elongzd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62positives8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_bignumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
BGL_EXPORTED_DECL uint32_t BGl_zb2u32zb2zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62exptu64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2llongzd2zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL int16_t BGl_zd2s16zd2zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
BGL_EXPORTED_DECL uint64_t BGl_za2u64za2zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
static obj_t BGl_z62bignumzd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zd2s32zb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL unsigned char BGl_fixnumzd2ze3ubytez31zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL bool_t BGl_negativebxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62positiveelongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62gcds16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62modulobxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62modulos16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_oddu32zf3zf3zz__r4_numbers_6_5_fixnumz00(uint32_t);
BGL_EXPORTED_DECL obj_t BGl_seedzd2randomz12zc0zz__r4_numbers_6_5_fixnumz00(int);
static obj_t BGl_z62oddelongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_llongzd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
BGL_EXPORTED_DECL bool_t BGl_oddu16zf3zf3zz__r4_numbers_6_5_fixnumz00(uint16_t);
static obj_t BGl_z62evenzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3elongze3zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL uint32_t BGl_negu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t);
static obj_t BGl_z62mins8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62oddu32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62negativefxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint32_t BGl_lcmu32z00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62positiveu64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zc3elongza1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3s16zd3zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_int32zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(int32_t);
static obj_t BGl_z62absllongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62oddu16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3u64z10zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
extern obj_t bgl_bignum_neg(obj_t);
static obj_t BGl_z62abss64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62quotientu16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zd3s32zb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_z62zc3zd3s64z72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_negatives8zf3zf3zz__r4_numbers_6_5_fixnumz00(int8_t);
static obj_t BGl_z62zd2s8zb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint32_t BGl_minu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t, obj_t);
static obj_t BGl_z62zc3s64za1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_zb2elongzb2zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62za7erollongzf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_abss8z00zz__r4_numbers_6_5_fixnumz00(int8_t);
static obj_t BGl_z62llongzd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(long, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_minvalllongz00zz__r4_numbers_6_5_fixnumz00(void);
static obj_t BGl_z62minbxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_quotients8z00zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
static obj_t BGl_z62randomz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62maxfxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_int64zd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(int64_t);
static obj_t BGl_z62maxvalllongz62zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62int8zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_zf2llongzf2zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_modulollongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
static obj_t BGl_z62zd2bxzb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62maxvalfxz62zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL long BGl_zf2fxzf2zz__r4_numbers_6_5_fixnumz00(long, long);
static uint64_t BGl_gcd2ze70ze7zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
static obj_t BGl_z62zd3s8zb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static int64_t BGl_gcd2ze71ze7zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
static obj_t BGl_z62zd2llongzb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zb2fxzd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3u8za1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62uint16zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3uint16z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static uint32_t BGl_gcd2ze72ze7zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62zb2u64zd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_abss16z00zz__r4_numbers_6_5_fixnumz00(int16_t);
BGL_EXPORTED_DECL obj_t BGl_absbxz00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_octetzd2stringzd2ze3bignumze3zz__r4_numbers_6_5_fixnumz00(obj_t);
static int32_t BGl_gcd2ze73ze7zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
static uint16_t BGl_gcd2ze74ze7zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
static obj_t BGl_z62evenu64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62negativeu32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62llongzd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static int16_t BGl_gcd2ze75ze7zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3s32z30zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
BGL_EXPORTED_DECL obj_t BGl_quotientbxz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static uint8_t BGl_gcd2ze76ze7zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
static obj_t BGl_z62negativeu16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_oddfxzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
static int8_t BGl_gcd2ze77ze7zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
static obj_t BGl_gcd2ze78ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62moduloz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62absu32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL char BGl_fixnumzd2ze3bytez31zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL bool_t BGl_fixnumzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62remainders16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3u16zc3zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
static obj_t BGl_z62zc3zd3u32z72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62int16zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62quotients64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62negllongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zc3u32za1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62fixnumzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_elongzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62zd3bxzb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ze3s16z81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62gcds8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zd3llongzb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3uint8z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62uint64zd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62randombxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62lcmz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_maxllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, obj_t);
BGL_EXPORTED_DECL int8_t BGl_remainders8z00zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
static obj_t BGl_z62modulou8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_maxu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_zd2s32zd2zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
static obj_t BGl_z62elongzd2ze3bignumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_llongzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
static obj_t BGl_z62zc3zd3s8z72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_ubytezd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(char);
static obj_t BGl_z62gcds32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62za2llongzc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zz__r4_numbers_6_5_fixnumz00(void);
BGL_EXPORTED_DECL long BGl_remainderelongz00zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL long BGl_gcdfxz00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62makezd2llongzb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62gcdbxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62modulos32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_negativellongzf3zf3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
static obj_t BGl_z62zd2u16zb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62positives32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL bool_t BGl_positiveu64zf3zf3zz__r4_numbers_6_5_fixnumz00(uint64_t);
BGL_EXPORTED_DECL obj_t BGl_remainderbxz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62positives16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_odds64zf3zf3zz__r4_numbers_6_5_fixnumz00(int64_t);
BGL_EXPORTED_DECL bool_t BGl_zd3s32zd3zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
BGL_EXPORTED_DECL int8_t BGl_za2s8za2zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
static obj_t BGl_z62int32zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t BGl_absz00zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_z62minu8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3llongz30zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
BGL_EXPORTED_DECL bool_t BGl_zc3llongzc3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00(obj_t, long);
static obj_t BGl_z62quotientu32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62odds64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zc3zd3bxz72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3s64zc3zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
BGL_EXPORTED_DECL bool_t BGl_llongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL long BGl_llongzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
static obj_t BGl_z62ze3zd3llongz52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62llongzd2ze3int32z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62quotientz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zd3u16zb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_zd2fxzf2ovz20zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zd2u8zb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint32_t BGl_int32zd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(int32_t);
static obj_t BGl_z62zb2fxzf2ovz22zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_absu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t);
BGL_EXPORTED_DECL long BGl_gcdelongz00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_uint32zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_za2bxza2zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_int8zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(int8_t);
static obj_t BGl_z62maxs16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_uint16zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
extern long bgl_bignum_to_long(obj_t);
BGL_EXPORTED_DECL uint8_t BGl_quotientu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
BGL_EXPORTED_DECL bool_t BGl_evenu32zf3zf3zz__r4_numbers_6_5_fixnumz00(uint32_t);
BGL_EXPORTED_DECL bool_t BGl_evenu16zf3zf3zz__r4_numbers_6_5_fixnumz00(uint16_t);
static obj_t BGl_z62quotients8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62int16zd2ze3uint16z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62uint32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_zb2u64zb2zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
static obj_t BGl_z62evens32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62uint16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_negativeu32zf3zf3zz__r4_numbers_6_5_fixnumz00(uint32_t);
static obj_t BGl_z62evens16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62uint32zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_negativeu16zf3zf3zz__r4_numbers_6_5_fixnumz00(uint16_t);
BGL_EXPORTED_DECL int32_t BGl_abss32z00zz__r4_numbers_6_5_fixnumz00(int32_t);
static obj_t BGl_z62ze3s8z81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zd2s64zb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zd3u8zb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62uint64zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_remainders16z00zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
BGL_EXPORTED_DECL long BGl_lcmelongz00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62positivellongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_fixnumzd2ze3int16z31zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62remainders32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62negatives64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_quotientllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
static obj_t BGl_z62oddbxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3u32zc3zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3u16z30zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
BGL_EXPORTED_DECL long BGl_fixnumzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62oddllongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62int32zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3s16ze3zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
static obj_t BGl_cnstzd2initzd2zz__r4_numbers_6_5_fixnumz00(void);
static obj_t BGl_z62quotientbxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_minelongz00zz__r4_numbers_6_5_fixnumz00(long, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_negu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t);
static obj_t BGl_z62ze3zd3s16z52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_lcmu64z00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62ze3s32z81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_za2fxzf2ovz50zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62elongzd2ze3stringz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ze3bxz81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, obj_t);
static obj_t BGl_z62zc3fxza1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zd3s64zb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2elongzd2zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62gcdu8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_minu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t, obj_t);
static obj_t BGl_z62za7erou64zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3s8z10zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
BGL_EXPORTED_DECL uint8_t BGl_remainderu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
static obj_t BGl_z62positiveu8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62odds8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_lcms8z00zz__r4_numbers_6_5_fixnumz00(obj_t);
extern long bgl_bignum_to_long(obj_t);
BGL_EXPORTED_DECL uint16_t BGl_zd2u16zd2zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
BGL_EXPORTED_DECL bool_t BGl_positives32zf3zf3zz__r4_numbers_6_5_fixnumz00(int32_t);
BGL_EXPORTED_DECL int64_t BGl_uint64zd2ze3int64z31zz__r4_numbers_6_5_fixnumz00(uint64_t);
BGL_EXPORTED_DECL int16_t BGl_modulos16z00zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_fixnumz00(void);
BGL_EXPORTED_DECL bool_t BGl_oddelongzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62zc3zd3u8z72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_positives16zf3zf3zz__r4_numbers_6_5_fixnumz00(int16_t);
BGL_EXPORTED_DECL long BGl_uint64zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(uint64_t);
static obj_t BGl_z62zd2u32zb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zf2s16z90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_gczd2rootszd2initz00zz__r4_numbers_6_5_fixnumz00(void);
static obj_t BGl_z62gcdu16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_int32zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(int32_t);
static obj_t BGl_z62abselongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3ubytez53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62modulou16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3bxz10zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_quotients16z00zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
static obj_t BGl_z62modulofxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_int64zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
extern obj_t bgl_bignum_remainder(obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_zb2s8zb2zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
BGL_EXPORTED_DECL obj_t BGl_lcmbxz00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62llongzd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_llongzd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
BGL_EXPORTED_DECL uint8_t BGl_za2u8za2zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3s64z30zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
BGL_EXPORTED_DECL bool_t BGl_zd3u16zd3zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
static obj_t BGl_z62negs16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62absu64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62lcms16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_minvalelongz00zz__r4_numbers_6_5_fixnumz00(void);
extern obj_t bgl_string_to_integer_obj(char *, int);
extern obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_z62zd3u32zb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zc3zd3u64z72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_negativeu8zf3zf3zz__r4_numbers_6_5_fixnumz00(uint8_t);
BGL_EXPORTED_DECL obj_t BGl_unsignedzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
static obj_t BGl_z62zf2s8z90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3u64za1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_bignumzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
extern obj_t BGl_2zf2zf2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_z62int64zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_evenelongzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62maxs32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62mins16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62maxvalelongz62zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL int16_t BGl_uint16zd2ze3int16z31zz__r4_numbers_6_5_fixnumz00(uint16_t);
BGL_EXPORTED_DECL long BGl_zf2elongzf2zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL obj_t BGl_zb2bxzb2zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_moduloelongz00zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62abss8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62bignumzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_evenbxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62zd2elongzb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62minfxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
extern obj_t bgl_bignum_mul(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_bignumzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62za2s16zc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_evens64zf3zf3zz__r4_numbers_6_5_fixnumz00(int64_t);
BGL_EXPORTED_DECL int64_t BGl_zd2s64zd2zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
static obj_t BGl_z62quotientu8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_uint32zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(uint32_t);
static obj_t BGl_z62evenbxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zf2bxz90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_negatives64zf3zf3zz__r4_numbers_6_5_fixnumz00(int64_t);
BGL_EXPORTED_DECL int32_t BGl_remainders32z00zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
extern bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_z62gcdllongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62int64zd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62gcds64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zd2fxzb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ze3u8z81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_fixnumzd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL uint16_t BGl_absu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t);
static obj_t BGl_z62modulos64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_absfxz00zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62negelongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3u32z30zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62bignumzd2ze3octetzd2stringz81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62absbxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62elongzd2ze3int32z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3s32ze3zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
BGL_EXPORTED_DECL long BGl_elongzd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL long BGl_quotientfxz00zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62zd3elongzb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_evens8zf3zf3zz__r4_numbers_6_5_fixnumz00(int8_t);
static obj_t BGl_z62remainderu16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ze3zd3s32z52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7erobxzf3z54zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7erou32zf3z54zz__r4_numbers_6_5_fixnumz00(uint32_t);
BGL_EXPORTED_DECL bool_t BGl_zd3s64zd3zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
BGL_EXPORTED_DECL long BGl_maxelongz00zz__r4_numbers_6_5_fixnumz00(long, obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7erou16zf3z54zz__r4_numbers_6_5_fixnumz00(uint16_t);
static uint64_t BGl_lcm2ze70ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static int64_t BGl_lcm2ze71ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62za7eros32zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static uint32_t BGl_lcm2ze72ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62lcmllongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62quotientu64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62evens8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static int32_t BGl_lcm2ze73ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62za7erobxzf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62za7eros16zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static uint16_t BGl_lcm2ze74ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62ze3u16z81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static int16_t BGl_lcm2ze75ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62exptbxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zd3fxzb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static uint8_t BGl_lcm2ze76ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62llongzd2ze3int64z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static int8_t BGl_lcm2ze77ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static BGL_LONGLONG_T BGl_lcm2ze78ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_bignumzd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(obj_t);
static long BGl_lcm2ze79ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62za2elongzc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_negs8z00zz__r4_numbers_6_5_fixnumz00(int8_t);
static obj_t BGl_z62minllongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62makezd2elongzb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3u8z10zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
BGL_EXPORTED_DECL bool_t BGl_positiveelongzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL uint32_t BGl_zd2u32zd2zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
extern obj_t bgl_string_to_bignum(char *, int);
BGL_EXPORTED_DECL int32_t BGl_modulos32z00zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
BGL_EXPORTED_DECL int16_t BGl_gcds16z00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL int16_t BGl_zf2s16zf2zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
BGL_EXPORTED_DECL uint8_t BGl_lcmu8z00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7eros8zf3z54zz__r4_numbers_6_5_fixnumz00(int8_t);
static obj_t BGl_z62zf2s32z90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62gcdu32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62llongzd2ze3bignumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62modulou32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62za7eros8zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3elongz30zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62ubytezd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3elongzc3zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL int32_t BGl_quotients32z00zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
static obj_t BGl_z62gcdfxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_abss64z00zz__r4_numbers_6_5_fixnumz00(int64_t);
BGL_EXPORTED_DECL obj_t BGl_negbxz00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62int32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3llongz10zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
BGL_EXPORTED_DECL long BGl_remainderfxz00zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62ze3zd3elongz52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62int16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3u32zd3zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62negs32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_zb2u8zb2zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
static obj_t BGl_z62lcms32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62remainders64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zc3zd3llongz72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3u64zc3zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_int64zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(int64_t);
static obj_t BGl_z62zc3zd3fxz72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62uint8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62ze3llongz81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ze3s64z81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_randomz00zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62zf2u8z90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62mins32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_za2s16za2zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
static obj_t BGl_z62int32zd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3s8zc3zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
static obj_t BGl_z62za2s32zc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62maxu16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62evenelongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_za2fxza2zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62absu8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_zd2llongzd2zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
BGL_EXPORTED_DECL long BGl_uint16zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(uint16_t);
BGL_EXPORTED_DECL uint16_t BGl_fixnumzd2ze3uint16z31zz__r4_numbers_6_5_fixnumz00(long);
extern obj_t bgl_bignum_add(obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
extern bool_t bgl_bignum_even(obj_t);
static obj_t BGl_z62int8zd2ze3uint8z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62uint8zd2ze3int8z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_positivebxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62zb2llongzd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_quotientelongz00zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL int32_t BGl_elongzd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(long);
extern obj_t unsigned_to_string(long, long);
BGL_EXPORTED_DECL uint32_t BGl_absu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t);
BGL_EXPORTED_DECL obj_t BGl_moduloz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_bignumzd2ze3octetzd2stringze3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62zd2u64zb0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_oddllongzf3zf3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3s16z10zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
BGL_EXPORTED_DECL uint16_t BGl_remainderu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
static obj_t BGl_z62gcdz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern bool_t bgl_bignum_odd(obj_t);
static obj_t BGl_z62positivefxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3bxzc3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62remainderu32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3llongzd3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
static obj_t BGl_z62fixnumzd2ze3int16z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3u16ze3zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
BGL_EXPORTED_DECL long BGl_uint8zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(uint8_t);
BGL_EXPORTED_DECL uint32_t BGl_uint64zd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(uint64_t);
static obj_t BGl_z62quotientllongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7eros64zf3z54zz__r4_numbers_6_5_fixnumz00(int64_t);
BGL_EXPORTED_DECL int64_t BGl_llongzd2ze3int64z31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
static obj_t BGl_z62quotientfxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ze3zd3u16z52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_positives8zf3zf3zz__r4_numbers_6_5_fixnumz00(int8_t);
static obj_t BGl_z62ze3u32z81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ze3fxz81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zd3u64zb1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
extern obj_t bgl_rand_bignum(obj_t);
static obj_t BGl_z62llongzd2ze3stringz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
extern obj_t bgl_long_to_bignum(long);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_za2llongza2zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
BGL_EXPORTED_DECL int32_t BGl_gcds32z00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL int32_t BGl_zf2s32zf2zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
BGL_EXPORTED_DECL uint8_t BGl_negu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t);
static obj_t BGl_z62maxllongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62maxs64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62oddu8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_evenllongzf3zf3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
static obj_t BGl_z62fixnumzd2ze3bignumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zb2s16zd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62ze3zd3s8z52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
extern obj_t bgl_bignum_gcd(obj_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_modulou16z00zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
static obj_t BGl_z62lcms8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62uint64zd2ze3int64z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_negativefxzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62zf2u16z90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_maxs8z00zz__r4_numbers_6_5_fixnumz00(int8_t, obj_t);
static obj_t BGl_z62negativebxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62positiveu32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62positiveu16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_remainders64z00zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
BGL_EXPORTED_DECL bool_t BGl_oddu64zf3zf3zz__r4_numbers_6_5_fixnumz00(uint64_t);
BGL_EXPORTED_DECL uint16_t BGl_quotientu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
static obj_t BGl__stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_Z256z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_zc3zd3fxz10zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL int64_t BGl_fixnumzd2ze3int64z31zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL int8_t BGl_zd2s8zd2zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
static obj_t BGl_z62remainderllongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_expts32z00zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3u64z30zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
BGL_EXPORTED_DECL long BGl_lcmfxz00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62oddu64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62ze3zd3bxz52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62int64zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3s64ze3zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
static obj_t BGl_z62lcmbxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62negu16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_zb2fxzf2ovz40zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62lcmu16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62ze3zd3s64z52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62expts32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
extern bool_t BGl_za7erozf3z54zz__r4_numbers_6_5z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_maxbxz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_maxs16z00zz__r4_numbers_6_5_fixnumz00(int16_t, obj_t);
BGL_EXPORTED_DECL long BGl_bignumzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL int32_t BGl_za2s32za2zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
static obj_t BGl_z62negatives8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_maxvalllongz00zz__r4_numbers_6_5_fixnumz00(void);
BGL_EXPORTED_DECL long BGl_minvalfxz00zz__r4_numbers_6_5_fixnumz00(void);
BGL_EXPORTED_DECL long BGl_uint32zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(uint32_t);
BGL_EXPORTED_DECL uint32_t BGl_elongzd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62maxu32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62minu16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_uint32zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(uint32_t);
BGL_EXPORTED_DECL uint32_t BGl_fixnumzd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL obj_t BGl_zd2bxzd2zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3s8zd3zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
static obj_t BGl_z62gcdelongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62minvalllongz62zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL long BGl_zb2fxzb2zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL bool_t BGl_zc3u8zc3zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
static obj_t BGl_z62uint16zd2ze3int16z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62za2u16zc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_zd2u64zd2zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
static long BGl_lcm2ze710ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62evenu32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62negativeelongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_modulos64z00zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
static obj_t BGl_lcm2ze711ze7zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_positivellongzf3zf3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
static obj_t BGl_z62evenu16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62bignumzd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_oddbxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3s32z10zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
BGL_EXPORTED_DECL uint32_t BGl_remainderu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62modulollongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zf2s64z90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62uint32zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62gcdu64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zf2fxz90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62integerzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62modulou64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_quotients64z00zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
static obj_t BGl_z62lcmelongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62negativeu64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3bxzd3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3int32z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl__fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3u32ze3zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62absfxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62elongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_evenu8zf3zf3zz__r4_numbers_6_5_fixnumz00(uint8_t);
static obj_t BGl_z62ze3zd3u32z52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
extern obj_t integer_to_string(long, long);
BGL_EXPORTED_DECL int8_t BGl_modulos8z00zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
BGL_EXPORTED_DECL bool_t BGl_zd3u64zd3zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
BGL_EXPORTED_DECL obj_t BGl_lcmz00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62negs64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62elongzd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_llongzd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
static obj_t BGl_z62lcms64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62minelongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
extern obj_t bgl_bignum_expt(obj_t, obj_t);
static obj_t BGl_z62evenu8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62uint32zd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_odds8zf3zf3zz__r4_numbers_6_5_fixnumz00(int8_t);
static obj_t BGl__bignumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62exptfxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_zb2s16zb2zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3s8z30zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
static obj_t BGl_z62mins64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62remainders8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4861z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_z62zb2s32zd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint32_t BGl_modulou32z00zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
BGL_EXPORTED_DECL obj_t BGl_modulobxz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_gcdu16z00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62negs8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_zf2u16zf2zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
BGL_EXPORTED_DECL bool_t BGl_positiveu32zf3zf3zz__r4_numbers_6_5_fixnumz00(uint32_t);
BGL_EXPORTED_DECL bool_t BGl_za7erou8zf3z54zz__r4_numbers_6_5_fixnumz00(uint8_t);
static obj_t BGl_z62za2s64zc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4947z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_z62ze3zd3u8z52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_odds32zf3zf3zz__r4_numbers_6_5_fixnumz00(int32_t);
BGL_EXPORTED_DECL bool_t BGl_positiveu16zf3zf3zz__r4_numbers_6_5_fixnumz00(uint16_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3elongz10zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62lcmu8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zf2u32z90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62evenllongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_odds16zf3zf3zz__r4_numbers_6_5_fixnumz00(int16_t);
static obj_t BGl_z62za7erou8zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_absllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
BGL_EXPORTED_DECL uint8_t BGl_maxu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t, obj_t);
BGL_EXPORTED_DECL uint32_t BGl_quotientu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62odds32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zc3zd3elongz72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_negs16z00zz__r4_numbers_6_5_fixnumz00(int16_t);
static obj_t BGl_z62positives64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3bxz30zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_int64zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(int64_t);
BGL_EXPORTED_DECL uint64_t BGl_absu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t);
static obj_t BGl_z62odds16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_lcms16z00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62remainderbxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_int64zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(int64_t);
BGL_EXPORTED_DECL long BGl_negfxz00zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62ze3elongz81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62negbxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62negu32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_zd2u8zd2zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
static obj_t BGl_z62za2s8zc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62lcmu32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62remainderu64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62stringzd2ze3integerzd2objz81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_maxs32z00zz__r4_numbers_6_5_fixnumz00(int32_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_mins16z00zz__r4_numbers_6_5_fixnumz00(int16_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_uint32zd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(uint32_t);
BGL_EXPORTED_DECL long BGl_zd2elongzd2zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL bool_t BGl_int8zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62ze3u64z81zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
extern obj_t unsigned_to_string(long, long);
static obj_t BGl_z62minu32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zb2elongzd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_za2u16za2zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
extern obj_t make_string(long, unsigned char);
BGL_EXPORTED_DECL long BGl_maxvalfxz00zz__r4_numbers_6_5_fixnumz00(void);
BGL_EXPORTED_DECL bool_t BGl_ze3s8ze3zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
BGL_EXPORTED_DECL bool_t BGl_uint64zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62za2bxzc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62za2u32zc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3u8zd3zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
static obj_t BGl_symbol4953z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
extern obj_t bgl_bignum_sub(obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_gcds64z00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_evenu64zf3zf3zz__r4_numbers_6_5_fixnumz00(uint64_t);
BGL_EXPORTED_DECL int64_t BGl_zf2s64zf2zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
static obj_t BGl_symbol4956z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol4876z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_z62uint64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl__integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62evens64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62negatives32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zf2llongz90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_negativeu64zf3zf3zz__r4_numbers_6_5_fixnumz00(uint64_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_uint64zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(uint64_t);
static obj_t BGl_z62negatives16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3elongzd3zz__r4_numbers_6_5_fixnumz00(long, long);
extern int bgl_bignum_cmp(obj_t, obj_t);
static obj_t BGl_z62quotientelongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7eroelongzf3z54zz__r4_numbers_6_5_fixnumz00(long);
extern obj_t bgl_bignum_abs(obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3u16z10zz__r4_numbers_6_5_fixnumz00(uint16_t, uint16_t);
static obj_t BGl_z62abss16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_negllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
extern obj_t ullong_to_string(BGL_LONGLONG_T, long);
BGL_EXPORTED_DECL bool_t BGl_ze3bxze3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zc3zd3s16z72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62oddfxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3fxzc3zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL obj_t BGl_exptbxz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_randombxz00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62zc3s16za1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bytezd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_modulou8z00zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
BGL_EXPORTED_DECL int64_t BGl_expts64z00zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
static obj_t BGl_z62za7erou32zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_positiveu8zf3zf3zz__r4_numbers_6_5_fixnumz00(uint8_t);
BGL_EXPORTED_DECL long BGl_za2elongza2zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_z62uint8zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62maxelongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62za7erou16zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_zb2s32zb2zz__r4_numbers_6_5_fixnumz00(int32_t, int32_t);
static obj_t BGl_z62expts64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_za2s64za2zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
BGL_EXPORTED_DECL bool_t BGl_ze3zd3u8z30zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
extern obj_t bgl_long_to_bignum(long);
BGL_EXPORTED_DECL uint32_t BGl_gcdu32z00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_symbol4960z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL uint32_t BGl_zf2u32zf2zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62remainderu8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62maxu64z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_fixnumzd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_z62negu8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zb2u16zd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_evenzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
extern obj_t bgl_llong_to_bignum(BGL_LONGLONG_T);
BGL_EXPORTED_DECL int8_t BGl_mins8z00zz__r4_numbers_6_5_fixnumz00(int8_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_positives64zf3zf3zz__r4_numbers_6_5_fixnumz00(int64_t);
BGL_EXPORTED_DECL bool_t BGl_int32zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_symbol4967z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t, long, long);
BGL_EXPORTED_DECL bool_t BGl_int16zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62remainderelongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_negs32z00zz__r4_numbers_6_5_fixnumz00(int32_t);
static obj_t BGl_z62negativellongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_lcms32z00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3s64z10zz__r4_numbers_6_5_fixnumz00(int64_t, int64_t);
BGL_EXPORTED_DECL uint64_t BGl_remainderu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
BGL_EXPORTED_DECL obj_t BGl_integerzd2ze3stringzf2paddingzc3zz__r4_numbers_6_5_fixnumz00(long, long, long);
static obj_t BGl_z62maxs8z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_uint8zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_z62quotients16z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_quotientz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3llongze3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
BGL_EXPORTED_DECL int8_t BGl_zf2s8zf2zz__r4_numbers_6_5_fixnumz00(int8_t, int8_t);
BGL_EXPORTED_DECL uint32_t BGl_exptu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62zb2s8zd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62oddzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_mins32z00zz__r4_numbers_6_5_fixnumz00(int32_t, obj_t);
static obj_t BGl_z62za2u8zc0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3int64z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_ze3u64ze3zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
static obj_t BGl_z62zc3llongza1zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__unsignedzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_minbxz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_maxvalelongz00zz__r4_numbers_6_5_fixnumz00(void);
static obj_t BGl_z62ze3zd3fxz52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62lcmfxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62ze3zd3u64z52zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62exptu32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62llongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62minvalelongz62zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL uint16_t BGl_maxu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t, obj_t);
BGL_EXPORTED_DECL long BGl_maxfxz00zz__r4_numbers_6_5_fixnumz00(long, obj_t);
BGL_EXPORTED_DECL uint32_t BGl_za2u32za2zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62zd2fxzf2ovz42zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62negativeu8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_evens32zf3zf3zz__r4_numbers_6_5_fixnumz00(int32_t);
static obj_t BGl_z62maxbxz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_zb2llongzb2zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
BGL_EXPORTED_DECL bool_t BGl_evens16zf3zf3zz__r4_numbers_6_5_fixnumz00(int16_t);
static obj_t BGl_z62bignumzd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_zf2bxzf2zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_negatives32zf3zf3zz__r4_numbers_6_5_fixnumz00(int32_t);
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4890z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_z62moduloelongz62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62zb2bxzd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62fixnumzd2ze3int8z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62uint32zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62elongzd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_zd2fxzd2zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL bool_t BGl_evenfxzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL bool_t BGl_ze3u8ze3zz__r4_numbers_6_5_fixnumz00(uint8_t, uint8_t);
BGL_EXPORTED_DECL bool_t BGl_negatives16zf3zf3zz__r4_numbers_6_5_fixnumz00(int16_t);
BGL_EXPORTED_DECL uint32_t BGl_llongzd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T);
static obj_t BGl_z62zb2s64zd0zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_modulou64z00zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
static obj_t BGl_symbol4977z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_z62evenfxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3u32z10zz__r4_numbers_6_5_fixnumz00(uint32_t, uint32_t);
static obj_t BGl_z62abss32z62zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_z62zf2u64z90zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_int16zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(int16_t);
static obj_t BGl__integerzd2ze3stringzf2paddingzc3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3s16zc3zz__r4_numbers_6_5_fixnumz00(int16_t, int16_t);
BGL_EXPORTED_DECL long BGl_bytezd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(char);
static obj_t BGl_z62zc3zd3s32z72zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t, long);
BGL_EXPORTED_DECL uint64_t BGl_quotientu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t, uint64_t);
BGL_EXPORTED_DECL int8_t BGl_gcds8z00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE( BGl_int16zd2ze3uint16zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int16za7d2za7e3ui4995za7, BGl_z62int16zd2ze3uint16z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evenu32zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evenu32za7f3za7914996za7, BGl_z62evenu32zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2s64zd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2s64za7d0za7za7__4997za7, BGl_z62zb2s64zd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3s8zd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3s8za781za7za7__r4998za7, BGl_z62ze3s8z81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint64zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint64za7f3za791za74999z00, BGl_z62uint64zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4700z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4700za700za7za7_5000za7, "&negatives8?", 12 );
DEFINE_STRING( BGl_string4701z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4701za700za7za7_5001za7, "&negativeu8?", 12 );
DEFINE_STRING( BGl_string4620z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4620za700za7za7_5002za7, "&=s32", 5 );
DEFINE_STRING( BGl_string4702z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4702za700za7za7_5003za7, "&negatives16?", 13 );
DEFINE_STRING( BGl_string4621z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4621za700za7za7_5004za7, "&=u32", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotientelongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotientelong5005za7, BGl_z62quotientelongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4703z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4703za700za7za7_5006za7, "&negativeu16?", 13 );
DEFINE_STRING( BGl_string4622z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4622za700za7za7_5007za7, "&=s64", 5 );
DEFINE_STRING( BGl_string4704z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4704za700za7za7_5008za7, "&negatives32?", 13 );
DEFINE_STRING( BGl_string4623z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4623za700za7za7_5009za7, "&=u64", 5 );
DEFINE_STRING( BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4542za700za7za7_5010za7, "/tmp/bigloo/runtime/Ieee/fixnum.scm", 35 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positivefxzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positivefxza7f35011z00, BGl_z62positivefxzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4705z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4705za700za7za7_5012za7, "&negativeu32?", 13 );
DEFINE_STRING( BGl_string4624z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4624za700za7za7_5013za7, "&=bx", 4 );
DEFINE_STRING( BGl_string4543z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4543za700za7za7_5014za7, "&make-elong", 11 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negativeu64zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negativeu64za7f5015z00, BGl_z62negativeu64zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint64zd2ze3llongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint64za7d2za7e3l5016za7, BGl_z62uint64zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4706z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4706za700za7za7_5017za7, "&negatives64?", 13 );
DEFINE_STRING( BGl_string4625z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4625za700za7za7_5018za7, "&<fx", 4 );
DEFINE_STRING( BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4544za700za7za7_5019za7, "bint", 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_oddllongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762oddllongza7f3za795020za7, BGl_z62oddllongzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4707z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4707za700za7za7_5021za7, "&negativeu64?", 13 );
DEFINE_STRING( BGl_string4626z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4626za700za7za7_5022za7, "&<elong", 7 );
DEFINE_STRING( BGl_string4545z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4545za700za7za7_5023za7, "&make-llong", 11 );
DEFINE_STRING( BGl_string4708z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4708za700za7za7_5024za7, "&negativebx?", 12 );
DEFINE_STRING( BGl_string4627z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4627za700za7za7_5025za7, "&<llong", 7 );
DEFINE_STRING( BGl_string4546z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4546za700za7za7_5026za7, "&elong->llong", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3s32zd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3s32za7a1za7za7__5027za7, BGl_z62zc3s32za1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_elongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762elongza7f3za791za7za75028za7, BGl_z62elongzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4709z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4709za700za7za7_5029za7, "odd?", 4 );
DEFINE_STRING( BGl_string4628z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4628za700za7za7_5030za7, "&<s8", 4 );
DEFINE_STRING( BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4547za700za7za7_5031za7, "belong", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3u16zd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3u16za772za75032za7, BGl_z62zc3zd3u16z72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4629z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4629za700za7za7_5033za7, "&<u8", 4 );
DEFINE_STRING( BGl_string4548z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4548za700za7za7_5034za7, "&llong->elong", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3bxzd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3bxza7a1za7za7__r5035za7, BGl_z62zc3bxza1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4549za700za7za7_5036za7, "bllong", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3u16zd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3u16za752za75037za7, BGl_z62ze3zd3u16z52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3elongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3e5038za7, BGl_z62fixnumzd2ze3elongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcmllongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcmllongza762za7za75039z00, va_generic_entry, BGl_z62lcmllongz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3u16zd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3u16za781za7za7__5040za7, BGl_z62ze3u16z81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint8zd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint8za7d2za7e3fi5041za7, BGl_z62uint8zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint64zd2ze3uint32zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint64za7d2za7e3u5042za7, BGl_z62uint64zd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcmu64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcmu64za762za7za7__5043z00, va_generic_entry, BGl_z62lcmu64z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3fxzd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3fxza781za7za7__r5044za7, BGl_z62ze3fxz81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulou8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulou8za762za7za75045z00, BGl_z62modulou8z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_exptu64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762exptu64za762za7za7_5046z00, BGl_z62exptu64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minllongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minllongza762za7za75047z00, va_generic_entry, BGl_z62minllongz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minu64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minu64za762za7za7__5048z00, va_generic_entry, BGl_z62minu64z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bignumzd2ze3stringzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__bignumza7d2za7e3str5049z00, opt_generic_entry, BGl__bignumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcds32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcds32za762za7za7__5050z00, va_generic_entry, BGl_z62gcds32z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2llongzd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2llongza7c0za7za75051za7, BGl_z62za2llongzc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcms8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcms8za762za7za7__r5052z00, va_generic_entry, BGl_z62lcms8z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2u32zd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2u32za790za7za7__5053za7, BGl_z62zf2u32z90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_oddelongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762oddelongza7f3za795054za7, BGl_z62oddelongzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negativebxzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negativebxza7f35055z00, BGl_z62negativebxzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4710z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4710za700za7za7_5056za7, "Illegal integer", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evenzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evenza7f3za791za7za7_5057za7, BGl_z62evenzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4711z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4711za700za7za7_5058za7, "&oddfx?", 7 );
DEFINE_STRING( BGl_string4630z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4630za700za7za7_5059za7, "&<s16", 5 );
DEFINE_STRING( BGl_string4712z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4712za700za7za7_5060za7, "&oddelong?", 10 );
DEFINE_STRING( BGl_string4631z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4631za700za7za7_5061za7, "&<u16", 5 );
DEFINE_STRING( BGl_string4550z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4550za700za7za7_5062za7, "&elong->int32", 13 );
DEFINE_STRING( BGl_string4713z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4713za700za7za7_5063za7, "&oddllong?", 10 );
DEFINE_STRING( BGl_string4632z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4632za700za7za7_5064za7, "&<s32", 5 );
DEFINE_STRING( BGl_string4551z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4551za700za7za7_5065za7, "&elong->uint32", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_seedzd2randomz12zd2envz12zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762seedza7d2random5066z00, BGl_z62seedzd2randomz12za2zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_oddu32zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762oddu32za7f3za791za75067z00, BGl_z62oddu32zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4714z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4714za700za7za7_5068za7, "&odds8?", 7 );
DEFINE_STRING( BGl_string4633z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4633za700za7za7_5069za7, "&<u32", 5 );
DEFINE_STRING( BGl_string4552z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4552za700za7za7_5070za7, "&int32->elong", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int16zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int16za7f3za791za7za75071za7, BGl_z62int16zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4715z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4715za700za7za7_5072za7, "&oddu8?", 7 );
DEFINE_STRING( BGl_string4634z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4634za700za7za7_5073za7, "&<s64", 5 );
DEFINE_STRING( BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4553za700za7za7_5074za7, "bint32", 6 );
DEFINE_STRING( BGl_string4716z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4716za700za7za7_5075za7, "&odds16?", 8 );
DEFINE_STRING( BGl_string4635z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4635za700za7za7_5076za7, "&<u64", 5 );
DEFINE_STRING( BGl_string4554z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4554za700za7za7_5077za7, "&uint32->elong", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotients16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotients16za765078z00, BGl_z62quotients16z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3bxzd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3bxza772za7za75079z00, BGl_z62zc3zd3bxz72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4717z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4717za700za7za7_5080za7, "&oddu16?", 8 );
DEFINE_STRING( BGl_string4636z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4636za700za7za7_5081za7, "&<bx", 4 );
DEFINE_STRING( BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4555za700za7za7_5082za7, "buint32", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negu32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negu32za762za7za7__5083z00, BGl_z62negu32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4718z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4718za700za7za7_5084za7, "&odds32?", 8 );
DEFINE_STRING( BGl_string4637z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4637za700za7za7_5085za7, "&>fx", 4 );
DEFINE_STRING( BGl_string4556z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4556za700za7za7_5086za7, "&int32->llong", 13 );
DEFINE_STRING( BGl_string4719z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4719za700za7za7_5087za7, "&oddu32?", 8 );
DEFINE_STRING( BGl_string4638z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4638za700za7za7_5088za7, "&>elong", 7 );
DEFINE_STRING( BGl_string4557z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4557za700za7za7_5089za7, "&uint32->llong", 14 );
DEFINE_STRING( BGl_string4639z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4639za700za7za7_5090za7, "&>llong", 7 );
DEFINE_STRING( BGl_string4558z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4558za700za7za7_5091za7, "&uint32->uint64", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2u8zd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2u8za7c0za7za7__r5092za7, BGl_z62za2u8zc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_llongzd2ze3int32zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762llongza7d2za7e3in5093za7, BGl_z62llongzd2ze3int32z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4559z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4559za700za7za7_5094za7, "&llong->int32", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3u64zd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3u64za772za75095za7, BGl_z62zc3zd3u64z72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotientzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotientza762za7za75096z00, BGl_z62quotientz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcmfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcmfxza762za7za7__r5097z00, va_generic_entry, BGl_z62lcmfxz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3u64zd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3u64za752za75098za7, BGl_z62ze3zd3u64z52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3u64zd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3u64za781za7za7__5099za7, BGl_z62ze3u64z81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_unsignedzd2ze3stringzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__unsignedza7d2za7e3s5100z00, opt_generic_entry, BGl__unsignedzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negativeu8zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negativeu8za7f35101z00, BGl_z62negativeu8zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2elongzd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2elongza7d0za7za75102za7, BGl_z62zb2elongzd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2s32zd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2s32za7c0za7za7__5103za7, BGl_z62za2s32zc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bignumzd2ze3elongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762bignumza7d2za7e3e5104za7, BGl_z62bignumzd2ze3elongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotients8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotients8za7625105z00, BGl_z62quotients8z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evens32zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evens32za7f3za7915106za7, BGl_z62evens32zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evenbxzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evenbxza7f3za791za75107z00, BGl_z62evenbxzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2bxzd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2bxza790za7za7__r5108za7, BGl_z62zf2bxz90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulollongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulollongza765109z00, BGl_z62modulollongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4800z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4800za700za7za7_5110za7, "&-elong", 7 );
DEFINE_STRING( BGl_string4801z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4801za700za7za7_5111za7, "&-llong", 7 );
DEFINE_STRING( BGl_string4720z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4720za700za7za7_5112za7, "&odds64?", 8 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positivellongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positivellong5113za7, BGl_z62positivellongzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4802z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4802za700za7za7_5114za7, "&-s8", 4 );
DEFINE_STRING( BGl_string4721z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4721za700za7za7_5115za7, "&oddu64?", 8 );
DEFINE_STRING( BGl_string4640z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4640za700za7za7_5116za7, "&>s8", 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainders32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainders32za75117z00, BGl_z62remainders32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negatives64zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negatives64za7f5118z00, BGl_z62negatives64zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4803z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4803za700za7za7_5119za7, "&-u8", 4 );
DEFINE_STRING( BGl_string4722z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4722za700za7za7_5120za7, "&oddbx?", 7 );
DEFINE_STRING( BGl_string4641z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4641za700za7za7_5121za7, "&>u8", 4 );
DEFINE_STRING( BGl_string4560z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4560za700za7za7_5122za7, "&llong->uint32", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_octetzd2stringzd2ze3bignumzd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762octetza7d2strin5123z00, BGl_z62octetzd2stringzd2ze3bignumz81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_absbxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762absbxza762za7za7__r5124z00, BGl_z62absbxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_abss16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762abss16za762za7za7__5125z00, BGl_z62abss16z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4804z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4804za700za7za7_5126za7, "&-s16", 5 );
DEFINE_STRING( BGl_string4723z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4723za700za7za7_5127za7, "even?", 5 );
DEFINE_STRING( BGl_string4642z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4642za700za7za7_5128za7, "&>s16", 5 );
DEFINE_STRING( BGl_string4561z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4561za700za7za7_5129za7, "&llong->int64", 13 );
DEFINE_STRING( BGl_string4805z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4805za700za7za7_5130za7, "&-u16", 5 );
DEFINE_STRING( BGl_string4724z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4724za700za7za7_5131za7, "&evenfx?", 8 );
DEFINE_STRING( BGl_string4643z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4643za700za7za7_5132za7, "&>u16", 5 );
DEFINE_STRING( BGl_string4562z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4562za700za7za7_5133za7, "&llong->uint64", 14 );
DEFINE_STRING( BGl_string4806z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4806za700za7za7_5134za7, "&-s32", 5 );
DEFINE_STRING( BGl_string4725z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4725za700za7za7_5135za7, "&evenelong?", 11 );
DEFINE_STRING( BGl_string4644z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4644za700za7za7_5136za7, "&>s32", 5 );
DEFINE_STRING( BGl_string4563z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4563za700za7za7_5137za7, "&int64->llong", 13 );
DEFINE_STRING( BGl_string4807z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4807za700za7za7_5138za7, "&-u32", 5 );
DEFINE_STRING( BGl_string4726z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4726za700za7za7_5139za7, "&evenllong?", 11 );
DEFINE_STRING( BGl_string4645z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4645za700za7za7_5140za7, "&>u32", 5 );
DEFINE_STRING( BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4564za700za7za7_5141za7, "bint64", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_oddfxzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762oddfxza7f3za791za7za75142za7, BGl_z62oddfxzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4808z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4808za700za7za7_5143za7, "&-s64", 5 );
DEFINE_STRING( BGl_string4727z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4727za700za7za7_5144za7, "&evens8?", 8 );
DEFINE_STRING( BGl_string4646z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4646za700za7za7_5145za7, "&>s64", 5 );
DEFINE_STRING( BGl_string4565z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4565za700za7za7_5146za7, "&uint64->llong", 14 );
DEFINE_STRING( BGl_string4809z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4809za700za7za7_5147za7, "&-u64", 5 );
DEFINE_STRING( BGl_string4728z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4728za700za7za7_5148za7, "&evenu8?", 8 );
DEFINE_STRING( BGl_string4647z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4647za700za7za7_5149za7, "&>u64", 5 );
DEFINE_STRING( BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4566za700za7za7_5150za7, "buint64", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotients64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotients64za765151z00, BGl_z62quotients64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4729z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4729za700za7za7_5152za7, "&evens16?", 9 );
DEFINE_STRING( BGl_string4648z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4648za700za7za7_5153za7, "&>bx", 4 );
DEFINE_STRING( BGl_string4567z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4567za700za7za7_5154za7, "&int64->elong", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotientfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotientfxza7625155z00, BGl_z62quotientfxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_elongzd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762elongza7d2za7e3fi5156za7, BGl_z62elongzd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4649z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4649za700za7za7_5157za7, "&<=fx", 5 );
DEFINE_STRING( BGl_string4568z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4568za700za7za7_5158za7, "&uint64->elong", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3u16zd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3u16za7a1za7za7__5159za7, BGl_z62zc3u16za1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4569z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4569za700za7za7_5160za7, "&uint64->uint32", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcds8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcds8za762za7za7__r5161z00, va_generic_entry, BGl_z62gcds8z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evenu8zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evenu8za7f3za791za75162z00, BGl_z62evenu8zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxelongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxelongza762za7za75163z00, va_generic_entry, BGl_z62maxelongz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7erou16zf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7erou16za7f3za75164z00, BGl_z62za7erou16zf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_elongzd2ze3llongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762elongza7d2za7e3ll5165za7, BGl_z62elongzd2ze3llongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7erofxzf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7erofxza7f3za735166z00, BGl_z62za7erofxzf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2ze3llongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__stringza7d2za7e3llo5167z00, opt_generic_entry, BGl__stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_llongzd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762llongza7d2za7e3fi5168za7, BGl_z62llongzd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3s8zd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3s8za752za7za75169z00, BGl_z62ze3zd3s8z52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2u32zd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2u32za7b0za7za7__5170za7, BGl_z62zd2u32zb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positiveelongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positiveelong5171za7, BGl_z62positiveelongzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcdu16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcdu16za762za7za7__5172z00, va_generic_entry, BGl_z62gcdu16z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulobxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulobxza762za7za75173z00, BGl_z62modulobxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulou32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulou32za762za75174za7, BGl_z62modulou32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcdfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcdfxza762za7za7__r5175z00, va_generic_entry, BGl_z62gcdfxz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainderelongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainderelon5176za7, BGl_z62remainderelongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4810z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4810za700za7za7_5177za7, "&-bx", 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_odds32zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762odds32za7f3za791za75178z00, BGl_z62odds32zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positiveu16zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positiveu16za7f5179z00, BGl_z62positiveu16zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3elongzd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3elongza775180z00, BGl_z62zc3zd3elongz72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4811z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4811za700za7za7_5181za7, "&-fx/ov", 7 );
DEFINE_STRING( BGl_string4730z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4730za700za7za7_5182za7, "&evenu16?", 9 );
DEFINE_STRING( BGl_string4812z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4812za700za7za7_5183za7, "&*fx", 4 );
DEFINE_STRING( BGl_string4731z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4731za700za7za7_5184za7, "&evens32?", 9 );
DEFINE_STRING( BGl_string4650z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4650za700za7za7_5185za7, "&<=elong", 8 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_integerzd2ze3stringzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__integerza7d2za7e3st5186z00, opt_generic_entry, BGl__integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00, BFALSE, -1 );
DEFINE_STRING( BGl_string4813z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4813za700za7za7_5187za7, "&*elong", 7 );
DEFINE_STRING( BGl_string4732z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4732za700za7za7_5188za7, "&evenu32?", 9 );
DEFINE_STRING( BGl_string4651z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4651za700za7za7_5189za7, "&<=llong", 8 );
DEFINE_STRING( BGl_string4570z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4570za700za7za7_5190za7, "&uint8->int8", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minu8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minu8za762za7za7__r5191z00, va_generic_entry, BGl_z62minu8z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string4814z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4814za700za7za7_5192za7, "&*llong", 7 );
DEFINE_STRING( BGl_string4733z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4733za700za7za7_5193za7, "&evens64?", 9 );
DEFINE_STRING( BGl_string4652z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4652za700za7za7_5194za7, "&<=s8", 5 );
DEFINE_STRING( BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4571za700za7za7_5195za7, "buint8", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_absllongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762absllongza762za7za75196z00, BGl_z62absllongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4815z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4815za700za7za7_5197za7, "&*s8", 4 );
DEFINE_STRING( BGl_string4734z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4734za700za7za7_5198za7, "&evenu64?", 9 );
DEFINE_STRING( BGl_string4653z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4653za700za7za7_5199za7, "&<=u8", 5 );
DEFINE_STRING( BGl_string4572z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4572za700za7za7_5200za7, "&int8->uint8", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_abss64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762abss64za762za7za7__5201z00, BGl_z62abss64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4816z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4816za700za7za7_5202za7, "&*u8", 4 );
DEFINE_STRING( BGl_string4735z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4735za700za7za7_5203za7, "&evenbx?", 8 );
DEFINE_STRING( BGl_string4654z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4654za700za7za7_5204za7, "&<=s16", 6 );
DEFINE_STRING( BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4573za700za7za7_5205za7, "bint8", 5 );
DEFINE_STRING( BGl_string4817z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4817za700za7za7_5206za7, "&*s16", 5 );
DEFINE_STRING( BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4736za700za7za7_5207za7, "loop", 4 );
DEFINE_STRING( BGl_string4655z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4655za700za7za7_5208za7, "&<=u16", 6 );
DEFINE_STRING( BGl_string4574z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4574za700za7za7_5209za7, "&uint16->int16", 14 );
DEFINE_STRING( BGl_string4818z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4818za700za7za7_5210za7, "&*u16", 5 );
DEFINE_STRING( BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4737za700za7za7_5211za7, "pair", 4 );
DEFINE_STRING( BGl_string4656z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4656za700za7za7_5212za7, "&<=s32", 6 );
DEFINE_STRING( BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4575za700za7za7_5213za7, "buint16", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcms16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcms16za762za7za7__5214z00, va_generic_entry, BGl_z62lcms16z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_STRING( BGl_string4819z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4819za700za7za7_5215za7, "&*s32", 5 );
DEFINE_STRING( BGl_string4738z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4738za700za7za7_5216za7, "minfx", 5 );
DEFINE_STRING( BGl_string4657z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4657za700za7za7_5217za7, "&<=u32", 6 );
DEFINE_STRING( BGl_string4576z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4576za700za7za7_5218za7, "&int16->uint16", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3u32zd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3u32za7b1za7za7__5219za7, BGl_z62zd3u32zb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4739z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4739za700za7za7_5220za7, "&minfx", 6 );
DEFINE_STRING( BGl_string4658z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4658za700za7za7_5221za7, "&<=s64", 6 );
DEFINE_STRING( BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4577za700za7za7_5222za7, "bint16", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2ze3integerzd2objzd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762stringza7d2za7e3i5223za7, BGl_z62stringzd2ze3integerzd2objz81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3llongzd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3llongza7a1za7za75224za7, BGl_z62zc3llongza1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4659z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4659za700za7za7_5225za7, "&<=u64", 6 );
DEFINE_STRING( BGl_string4578z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4578za700za7za7_5226za7, "&uint32->int32", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3fxzd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3fxza752za7za75227z00, BGl_z62ze3zd3fxz52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4579z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4579za700za7za7_5228za7, "&int32->uint32", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2u8zd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2u8za7b0za7za7__r5229za7, BGl_z62zd2u8zb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3u64zd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3u64za7a1za7za7__5230za7, BGl_z62zc3u64za1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_llongzd2ze3elongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762llongza7d2za7e3el5231za7, BGl_z62llongzd2ze3elongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxs32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxs32za762za7za7__5232z00, va_generic_entry, BGl_z62maxs32z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mins16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762mins16za762za7za7__5233z00, va_generic_entry, BGl_z62mins16z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int32zd2ze3uint32zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int32za7d2za7e3ui5234za7, BGl_z62int32zd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2elongzd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2elongza7b0za7za75235za7, BGl_z62zd2elongzb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int8zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int8za7f3za791za7za7_5236za7, BGl_z62int8zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2bxzd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2bxza7c0za7za7__r5237za7, BGl_z62za2bxzc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint32zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint32za7f3za791za75238z00, BGl_z62uint32zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3int8zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3i5239za7, BGl_z62fixnumzd2ze3int8z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2u16zd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2u16za7c0za7za7__5240za7, BGl_z62za2u16zc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3s8zd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3s8za7a1za7za7__r5241za7, BGl_z62zc3s8za1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3u8zd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3u8za7b1za7za7__r5242za7, BGl_z62zd3u8zb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negativeu32zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negativeu32za7f5243z00, BGl_z62negativeu32zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcdu64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcdu64za762za7za7__5244z00, va_generic_entry, BGl_z62gcdu64z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_STRING( BGl_string4900z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4900za700za7za7_5245za7, "&modulou32", 10 );
DEFINE_STRING( BGl_string4901z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4901za700za7za7_5246za7, "&modulos64", 10 );
DEFINE_STRING( BGl_string4820z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4820za700za7za7_5247za7, "&*u32", 5 );
DEFINE_STRING( BGl_string4902z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4902za700za7za7_5248za7, "&modulou64", 10 );
DEFINE_STRING( BGl_string4821z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4821za700za7za7_5249za7, "&*s64", 5 );
DEFINE_STRING( BGl_string4740z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4740za700za7za7_5250za7, "minelong", 8 );
DEFINE_STRING( BGl_string4903z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4903za700za7za7_5251za7, "&modulobx", 9 );
DEFINE_STRING( BGl_string4822z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4822za700za7za7_5252za7, "&*u64", 5 );
DEFINE_STRING( BGl_string4741z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4741za700za7za7_5253za7, "&minelong", 9 );
DEFINE_STRING( BGl_string4660z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4660za700za7za7_5254za7, "&<=bx", 5 );
DEFINE_STRING( BGl_string4904z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4904za700za7za7_5255za7, "gcd", 3 );
DEFINE_STRING( BGl_string4823z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4823za700za7za7_5256za7, "&*bx", 4 );
DEFINE_STRING( BGl_string4742z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4742za700za7za7_5257za7, "minllong", 8 );
DEFINE_STRING( BGl_string4661z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4661za700za7za7_5258za7, "&>=fx", 5 );
DEFINE_STRING( BGl_string4580z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4580za700za7za7_5259za7, "&uint64->int64", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3elongzd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3elongza7b1za7za75260za7, BGl_z62zd3elongzb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4905za700za7za7_5261za7, "gcdfx", 5 );
DEFINE_STRING( BGl_string4824z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4824za700za7za7_5262za7, "&*fx/ov", 7 );
DEFINE_STRING( BGl_string4743z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4743za700za7za7_5263za7, "&minllong", 9 );
DEFINE_STRING( BGl_string4662z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4662za700za7za7_5264za7, "&>=elong", 8 );
DEFINE_STRING( BGl_string4581z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4581za700za7za7_5265za7, "&int64->uint64", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainderu16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainderu16za75266z00, BGl_z62remainderu16z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3s16zd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3s16za772za75267za7, BGl_z62zc3zd3s16z72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4906za700za7za7_5268za7, "gcdelong", 8 );
DEFINE_STRING( BGl_string4825z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4825za700za7za7_5269za7, "&/fx", 4 );
DEFINE_STRING( BGl_string4744z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4744za700za7za7_5270za7, "mins8", 5 );
DEFINE_STRING( BGl_string4663z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4663za700za7za7_5271za7, "&>=llong", 8 );
DEFINE_STRING( BGl_string4582z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4582za700za7za7_5272za7, "&fixnum->bignum", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3int16zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3i5273za7, BGl_z62fixnumzd2ze3int16z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4907za700za7za7_5274za7, "gcdllong", 8 );
DEFINE_STRING( BGl_string4826z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4826za700za7za7_5275za7, "&/elong", 7 );
DEFINE_STRING( BGl_string4745z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4745za700za7za7_5276za7, "&mins8", 6 );
DEFINE_STRING( BGl_string4664z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4664za700za7za7_5277za7, "&>=s8", 5 );
DEFINE_STRING( BGl_string4583z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4583za700za7za7_5278za7, "&bignum->fixnum", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3s16zd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3s16za752za75279za7, BGl_z62ze3zd3s16z52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4908za700za7za7_5280za7, "gcds8", 5 );
DEFINE_STRING( BGl_string4827z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4827za700za7za7_5281za7, "&/llong", 7 );
DEFINE_STRING( BGl_string4746z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4746za700za7za7_5282za7, "minu8", 5 );
DEFINE_STRING( BGl_string4665z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4665za700za7za7_5283za7, "&>=u8", 5 );
DEFINE_STRING( BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4584za700za7za7_5284za7, "bignum", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negllongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negllongza762za7za75285z00, BGl_z62negllongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4909za700za7za7_5286za7, "gcdu8", 5 );
DEFINE_STRING( BGl_string4828z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4828za700za7za7_5287za7, "&/s8", 4 );
DEFINE_STRING( BGl_string4747z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4747za700za7za7_5288za7, "&minu8", 6 );
DEFINE_STRING( BGl_string4666z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4666za700za7za7_5289za7, "&>=s16", 6 );
DEFINE_STRING( BGl_string4585z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4585za700za7za7_5290za7, "&bignum->elong", 14 );
DEFINE_STRING( BGl_string4829z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4829za700za7za7_5291za7, "&/u8", 4 );
DEFINE_STRING( BGl_string4748z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4748za700za7za7_5292za7, "mins16", 6 );
DEFINE_STRING( BGl_string4667z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4667za700za7za7_5293za7, "&>=u16", 6 );
DEFINE_STRING( BGl_string4586z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4586za700za7za7_5294za7, "&bignum->llong", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3s16zd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3s16za781za7za7__5295za7, BGl_z62ze3s16z81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4749z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4749za700za7za7_5296za7, "&mins16", 7 );
DEFINE_STRING( BGl_string4668z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4668za700za7za7_5297za7, "&>=s32", 6 );
DEFINE_STRING( BGl_string4587z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4587za700za7za7_5298za7, "&elong->bignum", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3stringzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__fixnumza7d2za7e3str5299z00, opt_generic_entry, BGl__fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcms64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcms64za762za7za7__5300z00, va_generic_entry, BGl_z62lcms64z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7eros16zf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7eros16za7f3za75301z00, BGl_z62za7eros16zf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4669z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4669za700za7za7_5302za7, "&>=u32", 6 );
DEFINE_STRING( BGl_string4588z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4588za700za7za7_5303za7, "&llong->bignum", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3fxzd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3fxza7a1za7za7__r5304za7, BGl_z62zc3fxza1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4589z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4589za700za7za7_5305za7, "&fixnum->int8", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2fxzf2ovzd2envz82zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2fxza7f2ovza7325306z00, BGl_z62za2fxzf2ovz32zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_expts64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762expts64za762za7za7_5307z00, BGl_z62expts64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_makezd2elongzd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762makeza7d2elongza75308za7, BGl_z62makezd2elongzb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mins64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762mins64za762za7za7__5309z00, va_generic_entry, BGl_z62mins64z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainderu8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainderu8za765310z00, BGl_z62remainderu8z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3s8zd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3s8za772za7za75311z00, BGl_z62zc3zd3s8z72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2u32zd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2u32za7d0za7za7__5312za7, BGl_z62zb2u32zd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negu8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negu8za762za7za7__r5313z00, BGl_z62negu8z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2s32zd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2s32za790za7za7__5314za7, BGl_z62zf2s32z90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2u64zd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2u64za7c0za7za7__5315za7, BGl_z62za2u64zc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positives16zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positives16za7f5316z00, BGl_z62positives16zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint64zd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint64za7d2za7e3f5317za7, BGl_z62uint64zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4910za700za7za7_5318za7, "gcds16", 6 );
DEFINE_STRING( BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4911za700za7za7_5319za7, "gcdu16", 6 );
DEFINE_STRING( BGl_string4830z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4830za700za7za7_5320za7, "&/s16", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int32zd2ze3elongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int32za7d2za7e3el5321za7, BGl_z62int32zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4912za700za7za7_5322za7, "gcds32", 6 );
DEFINE_STRING( BGl_string4831z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4831za700za7za7_5323za7, "&/u16", 5 );
DEFINE_STRING( BGl_string4750z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4750za700za7za7_5324za7, "minu16", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_llongzd2ze3uint64zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762llongza7d2za7e3ui5325za7, BGl_z62llongzd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4913za700za7za7_5326za7, "gcdu32", 6 );
DEFINE_STRING( BGl_string4832z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4832za700za7za7_5327za7, "&/s32", 5 );
DEFINE_STRING( BGl_string4751z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4751za700za7za7_5328za7, "&minu16", 7 );
DEFINE_STRING( BGl_string4670z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4670za700za7za7_5329za7, "&>=s64", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negs32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negs32za762za7za7__5330z00, BGl_z62negs32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4914za700za7za7_5331za7, "gcds64", 6 );
DEFINE_STRING( BGl_string4833z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4833za700za7za7_5332za7, "&/u32", 5 );
DEFINE_STRING( BGl_string4752z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4752za700za7za7_5333za7, "mins32", 6 );
DEFINE_STRING( BGl_string4671z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4671za700za7za7_5334za7, "&>=u64", 6 );
DEFINE_STRING( BGl_string4590z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4590za700za7za7_5335za7, "&fixnum->uint8", 14 );
DEFINE_STRING( BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4915za700za7za7_5336za7, "gcdu64", 6 );
DEFINE_STRING( BGl_string4834z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4834za700za7za7_5337za7, "&/s64", 5 );
DEFINE_STRING( BGl_string4753z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4753za700za7za7_5338za7, "&mins32", 7 );
DEFINE_STRING( BGl_string4672z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4672za700za7za7_5339za7, "&>=bx", 5 );
DEFINE_STRING( BGl_string4591z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4591za700za7za7_5340za7, "&int8->fixnum", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int64zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int64za7f3za791za7za75341za7, BGl_z62int64zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4916za700za7za7_5342za7, "gcdbx", 5 );
DEFINE_STRING( BGl_string4835z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4835za700za7za7_5343za7, "&/u64", 5 );
DEFINE_STRING( BGl_string4754z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4754za700za7za7_5344za7, "minu32", 6 );
DEFINE_STRING( BGl_string4673z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4673za700za7za7_5345za7, "&zerofx?", 8 );
DEFINE_STRING( BGl_string4592z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4592za700za7za7_5346za7, "&uint8->fixnum", 14 );
DEFINE_STRING( BGl_string4917z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4917za700za7za7_5347za7, "lcm", 3 );
DEFINE_STRING( BGl_string4836z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4836za700za7za7_5348za7, "&/bx", 4 );
DEFINE_STRING( BGl_string4755z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4755za700za7za7_5349za7, "&minu32", 7 );
DEFINE_STRING( BGl_string4674z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4674za700za7za7_5350za7, "&zeroelong?", 11 );
DEFINE_STRING( BGl_string4593z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4593za700za7za7_5351za7, "&fixnum->int16", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_integerzd2ze3stringzf2paddingzd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl__integerza7d2za7e3st5352z00, opt_generic_entry, BGl__integerzd2ze3stringzf2paddingzc3zz__r4_numbers_6_5_fixnumz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainderu64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainderu64za75353z00, BGl_z62remainderu64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3s64zd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3s64za772za75354za7, BGl_z62zc3zd3s64z72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4918z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4918za700za7za7_5355za7, "lcmfx", 5 );
DEFINE_STRING( BGl_string4837z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4837za700za7za7_5356za7, "&negfx", 6 );
DEFINE_STRING( BGl_string4756z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4756za700za7za7_5357za7, "mins64", 6 );
DEFINE_STRING( BGl_string4675z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4675za700za7za7_5358za7, "&zerollong?", 11 );
DEFINE_STRING( BGl_string4594z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4594za700za7za7_5359za7, "&fixnum->uint16", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3fxzd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3fxza772za7za75360z00, BGl_z62zc3zd3fxz72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3int64zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3i5361za7, BGl_z62fixnumzd2ze3int64z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4919z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4919za700za7za7_5362za7, "lcm2~10", 7 );
DEFINE_STRING( BGl_string4838z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4838za700za7za7_5363za7, "&negelong", 9 );
DEFINE_STRING( BGl_string4757z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4757za700za7za7_5364za7, "&mins64", 7 );
DEFINE_STRING( BGl_string4676z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4676za700za7za7_5365za7, "&zeros8?", 8 );
DEFINE_STRING( BGl_string4595z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4595za700za7za7_5366za7, "&int16->fixnum", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3s64zd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3s64za752za75367za7, BGl_z62ze3zd3s64z52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4839z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4839za700za7za7_5368za7, "&negllong", 9 );
DEFINE_STRING( BGl_string4758z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4758za700za7za7_5369za7, "minu64", 6 );
DEFINE_STRING( BGl_string4677z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4677za700za7za7_5370za7, "&zerou8?", 8 );
DEFINE_STRING( BGl_string4596z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4596za700za7za7_5371za7, "&uint16->fixnum", 15 );
DEFINE_STRING( BGl_string4759z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4759za700za7za7_5372za7, "&minu64", 7 );
DEFINE_STRING( BGl_string4678z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4678za700za7za7_5373za7, "&zeros16?", 9 );
DEFINE_STRING( BGl_string4597z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4597za700za7za7_5374za7, "&fixnum->int32", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2s8zd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2s8za790za7za7__r5375za7, BGl_z62zf2s8z90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3llongzd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3llongza781za7za75376za7, BGl_z62ze3llongz81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4679z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4679za700za7za7_5377za7, "&zerou16?", 9 );
DEFINE_STRING( BGl_string4598z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4598za700za7za7_5378za7, "&fixnum->uint32", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3s64zd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3s64za781za7za7__5379za7, BGl_z62ze3s64z81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4599z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4599za700za7za7_5380za7, "&int32->fixnum", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minvalelongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minvalelongza765381z00, BGl_z62minvalelongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negatives8zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negatives8za7f35382z00, BGl_z62negatives8zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minbxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minbxza762za7za7__r5383z00, va_generic_entry, BGl_z62minbxz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxvalelongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxvalelongza765384z00, BGl_z62maxvalelongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_abss8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762abss8za762za7za7__r5385z00, BGl_z62abss8z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxu16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxu16za762za7za7__5386z00, va_generic_entry, BGl_z62maxu16z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2elongzd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2elongza790za7za75387za7, BGl_z62zf2elongz90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint16zd2ze3int16zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint16za7d2za7e3i5388za7, BGl_z62uint16zd2ze3int16z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2bxzd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2bxza7b0za7za7__r5389za7, BGl_z62zd2bxzb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint32zd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint32za7d2za7e3f5390za7, BGl_z62uint32zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3uint32zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3u5391za7, BGl_z62fixnumzd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negatives32zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negatives32za7f5392z00, BGl_z62negatives32zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint32zd2ze3llongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint32za7d2za7e3l5393za7, BGl_z62uint32zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2fxzd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2fxza790za7za7__r5394za7, BGl_z62zf2fxz90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4920z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4920za700za7za7_5395za7, "lcmelong", 8 );
DEFINE_STRING( BGl_string4921z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4921za700za7za7_5396za7, "lcm2~9", 6 );
DEFINE_STRING( BGl_string4840z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4840za700za7za7_5397za7, "&negs8", 6 );
DEFINE_STRING( BGl_string4922z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4922za700za7za7_5398za7, "lcmllong", 8 );
DEFINE_STRING( BGl_string4841z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4841za700za7za7_5399za7, "&negu8", 6 );
DEFINE_STRING( BGl_string4760z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4760za700za7za7_5400za7, "minbx", 5 );
DEFINE_STRING( BGl_string4923z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4923za700za7za7_5401za7, "lcm2~8", 6 );
DEFINE_STRING( BGl_string4842z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4842za700za7za7_5402za7, "&negs16", 7 );
DEFINE_STRING( BGl_string4761z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4761za700za7za7_5403za7, "&minbx", 6 );
DEFINE_STRING( BGl_string4680z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4680za700za7za7_5404za7, "&zeros32?", 9 );
DEFINE_STRING( BGl_string4924z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4924za700za7za7_5405za7, "lcms8", 5 );
DEFINE_STRING( BGl_string4843z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4843za700za7za7_5406za7, "&negu16", 7 );
DEFINE_STRING( BGl_string4762z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4762za700za7za7_5407za7, "maxfx", 5 );
DEFINE_STRING( BGl_string4681z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4681za700za7za7_5408za7, "&zerou32?", 9 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_absfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762absfxza762za7za7__r5409z00, BGl_z62absfxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4925z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4925za700za7za7_5410za7, "lcm2~7", 6 );
DEFINE_STRING( BGl_string4844z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4844za700za7za7_5411za7, "&negs32", 7 );
DEFINE_STRING( BGl_string4763z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4763za700za7za7_5412za7, "&maxfx", 6 );
DEFINE_STRING( BGl_string4682z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4682za700za7za7_5413za7, "&zeros64?", 9 );
DEFINE_STRING( BGl_string4926z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4926za700za7za7_5414za7, "lcmu8", 5 );
DEFINE_STRING( BGl_string4845z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4845za700za7za7_5415za7, "&negu32", 7 );
DEFINE_STRING( BGl_string4764z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4764za700za7za7_5416za7, "maxelong", 8 );
DEFINE_STRING( BGl_string4683z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4683za700za7za7_5417za7, "&zerou64?", 9 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3s16zd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3s16za7a1za7za7__5418za7, BGl_z62zc3s16za1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bytezd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762byteza7d2za7e3fix5419za7, BGl_z62bytezd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4927z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4927za700za7za7_5420za7, "lcm2~6", 6 );
DEFINE_STRING( BGl_string4846z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4846za700za7za7_5421za7, "&negs64", 7 );
DEFINE_STRING( BGl_string4765z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4765za700za7za7_5422za7, "&maxelong", 9 );
DEFINE_STRING( BGl_string4684z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4684za700za7za7_5423za7, "&zerobx?", 8 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3bxzd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3bxza7b1za7za7__r5424za7, BGl_z62zd3bxzb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4928z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4928za700za7za7_5425za7, "lcms16", 6 );
DEFINE_STRING( BGl_string4847z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4847za700za7za7_5426za7, "&negu64", 7 );
DEFINE_STRING( BGl_string4766z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4766za700za7za7_5427za7, "maxllong", 8 );
DEFINE_STRING( BGl_string4685z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4685za700za7za7_5428za7, "&positivefx?", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evens8zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evens8za7f3za791za75429z00, BGl_z62evens8zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4929z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4929za700za7za7_5430za7, "lcm2~5", 6 );
DEFINE_STRING( BGl_string4848z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4848za700za7za7_5431za7, "&negbx", 6 );
DEFINE_STRING( BGl_string4767z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4767za700za7za7_5432za7, "&maxllong", 9 );
DEFINE_STRING( BGl_string4686z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4686za700za7za7_5433za7, "&positiveelong?", 15 );
DEFINE_STRING( BGl_string4849z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4849za700za7za7_5434za7, "&absfx", 6 );
DEFINE_STRING( BGl_string4768z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4768za700za7za7_5435za7, "maxs8", 5 );
DEFINE_STRING( BGl_string4687z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4687za700za7za7_5436za7, "&positivellong?", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3uint8zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3u5437za7, BGl_z62fixnumzd2ze3uint8z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4769z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4769za700za7za7_5438za7, "&maxs8", 6 );
DEFINE_STRING( BGl_string4688z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4688za700za7za7_5439za7, "&positives8?", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulos8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulos8za762za7za75440z00, BGl_z62modulos8z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4689z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4689za700za7za7_5441za7, "&positiveu8?", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7erou64zf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7erou64za7f3za75442z00, BGl_z62za7erou64zf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_elongzd2ze3bignumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762elongza7d2za7e3bi5443za7, BGl_z62elongzd2ze3bignumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bignumzd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762bignumza7d2za7e3f5444za7, BGl_z62bignumzd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2s32zd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2s32za7b0za7za7__5445za7, BGl_z62zd2s32zb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxu64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxu64za762za7za7__5446z00, va_generic_entry, BGl_z62maxu64z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcds16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcds16za762za7za7__5447z00, va_generic_entry, BGl_z62gcds16z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulos32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulos32za762za75448za7, BGl_z62modulos32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_llongzd2ze3bignumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762llongza7d2za7e3bi5449za7, BGl_z62llongzd2ze3bignumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2u16zd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2u16za790za7za7__5450za7, BGl_z62zf2u16z90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulofxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulofxza762za7za75451z00, BGl_z62modulofxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3elongzd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3elongza755452z00, BGl_z62ze3zd3elongz52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4930z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4930za700za7za7_5453za7, "lcmu16", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainderbxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainderbxza765454z00, BGl_z62remainderbxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positiveu64zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positiveu64za7f5455z00, BGl_z62positiveu64zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4931z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4931za700za7za7_5456za7, "lcm2~4", 6 );
DEFINE_STRING( BGl_string4850z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4850za700za7za7_5457za7, "&abselong", 9 );
DEFINE_STRING( BGl_string4932z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4932za700za7za7_5458za7, "lcms32", 6 );
DEFINE_STRING( BGl_string4851z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4851za700za7za7_5459za7, "&absllong", 9 );
DEFINE_STRING( BGl_string4770z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4770za700za7za7_5460za7, "maxu8", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotientu32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotientu32za765461z00, BGl_z62quotientu32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxu8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxu8za762za7za7__r5462z00, va_generic_entry, BGl_z62maxu8z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string4933z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4933za700za7za7_5463za7, "lcm2~3", 6 );
DEFINE_STRING( BGl_string4852z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4852za700za7za7_5464za7, "&abss8", 6 );
DEFINE_STRING( BGl_string4771z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4771za700za7za7_5465za7, "&maxu8", 6 );
DEFINE_STRING( BGl_string4690z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4690za700za7za7_5466za7, "&positives16?", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negbxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negbxza762za7za7__r5467z00, BGl_z62negbxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4934z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4934za700za7za7_5468za7, "lcmu32", 6 );
DEFINE_STRING( BGl_string4853z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4853za700za7za7_5469za7, "&absu8", 6 );
DEFINE_STRING( BGl_string4772z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4772za700za7za7_5470za7, "maxs16", 6 );
DEFINE_STRING( BGl_string4691z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4691za700za7za7_5471za7, "&positiveu16?", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2s8zd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2s8za7c0za7za7__r5472za7, BGl_z62za2s8zc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3s32zd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3s32za7b1za7za7__5473za7, BGl_z62zd3s32zb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4935z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4935za700za7za7_5474za7, "lcm2~2", 6 );
DEFINE_STRING( BGl_string4854z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4854za700za7za7_5475za7, "&abss16", 7 );
DEFINE_STRING( BGl_string4773z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4773za700za7za7_5476za7, "&maxs16", 7 );
DEFINE_STRING( BGl_string4692z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4692za700za7za7_5477za7, "&positives32?", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negu16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negu16za762za7za7__5478z00, BGl_z62negu16z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_oddzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762oddza7f3za791za7za7__5479za7, BGl_z62oddzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4936z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4936za700za7za7_5480za7, "lcms64", 6 );
DEFINE_STRING( BGl_string4855z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4855za700za7za7_5481za7, "&absu16", 7 );
DEFINE_STRING( BGl_string4774z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4774za700za7za7_5482za7, "maxu16", 6 );
DEFINE_STRING( BGl_string4693z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4693za700za7za7_5483za7, "&positiveu32?", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int64zd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int64za7d2za7e3fi5484za7, BGl_z62int64zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4937z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4937za700za7za7_5485za7, "lcm2~1", 6 );
DEFINE_STRING( BGl_string4856z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4856za700za7za7_5486za7, "&abss32", 7 );
DEFINE_STRING( BGl_string4775z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4775za700za7za7_5487za7, "&maxu16", 7 );
DEFINE_STRING( BGl_string4694z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4694za700za7za7_5488za7, "&positives64?", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2u8zd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2u8za7d0za7za7__r5489za7, BGl_z62zb2u8zd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4938z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4938za700za7za7_5490za7, "lcmu64", 6 );
DEFINE_STRING( BGl_string4857z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4857za700za7za7_5491za7, "&absu32", 7 );
DEFINE_STRING( BGl_string4776z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4776za700za7za7_5492za7, "maxs32", 6 );
DEFINE_STRING( BGl_string4695z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4695za700za7za7_5493za7, "&positiveu64?", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3s64zd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3s64za7a1za7za7__5494za7, BGl_z62zc3s64za1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4939z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4939za700za7za7_5495za7, "lcm2~0", 6 );
DEFINE_STRING( BGl_string4858z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4858za700za7za7_5496za7, "&abss64", 7 );
DEFINE_STRING( BGl_string4777z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4777za700za7za7_5497za7, "&maxs32", 7 );
DEFINE_STRING( BGl_string4696z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4696za700za7za7_5498za7, "&positivebx?", 12 );
DEFINE_STRING( BGl_string4859z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4859za700za7za7_5499za7, "&absu64", 7 );
DEFINE_STRING( BGl_string4778z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4778za700za7za7_5500za7, "maxu32", 6 );
DEFINE_STRING( BGl_string4697z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4697za700za7za7_5501za7, "&negativefx?", 12 );
DEFINE_STRING( BGl_string4779z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4779za700za7za7_5502za7, "&maxu32", 7 );
DEFINE_STRING( BGl_string4698z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4698za700za7za7_5503za7, "&negativeelong?", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int64zd2ze3llongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int64za7d2za7e3ll5504za7, BGl_z62int64zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4699z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4699za700za7za7_5505za7, "&negativellong?", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2s16zd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2s16za7c0za7za7__5506za7, BGl_z62za2s16zc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int8zd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int8za7d2za7e3fix5507za7, BGl_z62int8zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int8zd2ze3uint8zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int8za7d2za7e3uin5508za7, BGl_z62int8zd2ze3uint8z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint8zd2ze3int8zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint8za7d2za7e3in5509za7, BGl_z62uint8zd2ze3int8z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxvalfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxvalfxza762za7za75510z00, BGl_z62maxvalfxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2fxzd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2fxza7c0za7za7__r5511za7, BGl_z62za2fxzc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evenu16zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evenu16za7f3za7915512za7, BGl_z62evenu16zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcdllongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcdllongza762za7za75513z00, va_generic_entry, BGl_z62gcdllongz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint64zd2ze3elongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint64za7d2za7e3e5514za7, BGl_z62uint64zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcds64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcds64za762za7za7__5515z00, va_generic_entry, BGl_z62gcds64z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positivebxzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positivebxza7f35516z00, BGl_z62positivebxzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_integerzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762integerza7f3za7915517za7, BGl_z62integerzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcdzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcdza762za7za7__r4_5518z00, va_generic_entry, BGl_z62gcdz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2u64zd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2u64za790za7za7__5519za7, BGl_z62zf2u64z90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bignumzd2ze3octetzd2stringzd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762bignumza7d2za7e3o5520za7, BGl_z62bignumzd2ze3octetzd2stringz81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulozd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762moduloza762za7za7__5521z00, BGl_z62moduloz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_absu32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762absu32za762za7za7__5522z00, BGl_z62absu32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_elongzd2ze3int32zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762elongza7d2za7e3in5523za7, BGl_z62elongzd2ze3int32z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcmelongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcmelongza762za7za75524z00, va_generic_entry, BGl_z62lcmelongz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainders16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainders16za75525z00, BGl_z62remainders16z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4940za700za7za7_5526za7, "lcmbx", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int32zd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int32za7d2za7e3fi5527za7, BGl_z62int32zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4941z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4941za700za7za7_5528za7, "&exptfx", 7 );
DEFINE_STRING( BGl_string4860z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4860za700za7za7_5529za7, "&absbx", 6 );
DEFINE_STRING( BGl_string4942z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4942za700za7za7_5530za7, "&expts32", 8 );
DEFINE_STRING( BGl_string4780z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4780za700za7za7_5531za7, "maxs64", 6 );
DEFINE_STRING( BGl_string4943z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4943za700za7za7_5532za7, "&exptu32", 8 );
DEFINE_STRING( BGl_string4862z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4862za700za7za7_5533za7, "quotient", 8 );
DEFINE_STRING( BGl_string4781z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4781za700za7za7_5534za7, "&maxs64", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotientllongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotientllong5535za7, BGl_z62quotientllongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4944z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4944za700za7za7_5536za7, "&expts64", 8 );
DEFINE_STRING( BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4863za700za7za7_5537za7, "not an integer", 14 );
DEFINE_STRING( BGl_string4782z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4782za700za7za7_5538za7, "maxu64", 6 );
DEFINE_STRING( BGl_string4945z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4945za700za7za7_5539za7, "&exptu64", 8 );
DEFINE_STRING( BGl_string4864z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4864za700za7za7_5540za7, "&quotientfx", 11 );
DEFINE_STRING( BGl_string4783z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4783za700za7za7_5541za7, "&maxu64", 7 );
DEFINE_STRING( BGl_string4946z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4946za700za7za7_5542za7, "&exptbx", 7 );
DEFINE_STRING( BGl_string4865z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4865za700za7za7_5543za7, "&quotientelong", 14 );
DEFINE_STRING( BGl_string4784z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4784za700za7za7_5544za7, "maxbx", 5 );
DEFINE_STRING( BGl_string4866z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4866za700za7za7_5545za7, "&quotientllong", 14 );
DEFINE_STRING( BGl_string4785z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4785za700za7za7_5546za7, "&maxbx", 6 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negu64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negu64za762za7za7__5547z00, BGl_z62negu64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minelongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minelongza762za7za75548z00, va_generic_entry, BGl_z62minelongz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string4948z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4948za700za7za7_5549za7, "fixnum->string", 14 );
DEFINE_STRING( BGl_string4867z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4867za700za7za7_5550za7, "&quotients8", 11 );
DEFINE_STRING( BGl_string4786z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4786za700za7za7_5551za7, "&+fx", 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint32zd2ze3uint64zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint32za7d2za7e3u5552za7, BGl_z62uint32zd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4949z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4949za700za7za7_5553za7, "wrong number of arguments: [1..2] expected, provided", 52 );
DEFINE_STRING( BGl_string4868z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4868za700za7za7_5554za7, "&quotientu8", 11 );
DEFINE_STRING( BGl_string4787z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4787za700za7za7_5555za7, "&+elong", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_randombxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762randombxza762za7za75556z00, BGl_z62randombxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_exptbxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762exptbxza762za7za7__5557z00, BGl_z62exptbxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4869z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4869za700za7za7_5558za7, "&quotients16", 12 );
DEFINE_STRING( BGl_string4788z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4788za700za7za7_5559za7, "&+llong", 7 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7eros64zf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7eros64za7f3za75560z00, BGl_z62za7eros64zf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_llongzd2ze3int64zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762llongza7d2za7e3in5561za7, BGl_z62llongzd2ze3int64z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4789z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4789za700za7za7_5562za7, "&+s8", 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3llongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3l5563za7, BGl_z62fixnumzd2ze3llongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2elongzd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2elongza7c0za7za75564za7, BGl_z62za2elongzc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positiveu8zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positiveu8za7f35565z00, BGl_z62positiveu8zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2s32zd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2s32za7d0za7za7__5566za7, BGl_z62zb2s32zd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2ze3bignumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__stringza7d2za7e3big5567z00, opt_generic_entry, BGl__stringzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2s64zd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2s64za7c0za7za7__5568za7, BGl_z62za2s64zc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2u16zd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2u16za7b0za7za7__5569za7, BGl_z62zd2u16zb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulou16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulou16za762za75570za7, BGl_z62modulou16z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mins8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762mins8za762za7za7__r5571z00, va_generic_entry, BGl_z62mins8z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positives64zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positives64za7f5572z00, BGl_z62positives64zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int32zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int32za7f3za791za7za75573za7, BGl_z62int32zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negativefxzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negativefxza7f35574z00, BGl_z62negativefxzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_oddu16zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762oddu16za7f3za791za75575z00, BGl_z62oddu16zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4950z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4950za700za7za7_5576za7, "_fixnum->string", 15 );
DEFINE_STRING( BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4951za700za7za7_5577za7, "Illegal radix", 13 );
DEFINE_STRING( BGl_string4870z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4870za700za7za7_5578za7, "&quotientu16", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainders64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainders64za75579z00, BGl_z62remainders64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4952za700za7za7_5580za7, "bstring", 7 );
DEFINE_STRING( BGl_string4871z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4871za700za7za7_5581za7, "&quotients32", 12 );
DEFINE_STRING( BGl_string4790z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4790za700za7za7_5582za7, "&+u8", 4 );
DEFINE_STRING( BGl_string4872z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4872za700za7za7_5583za7, "&quotientu32", 12 );
DEFINE_STRING( BGl_string4791z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4791za700za7za7_5584za7, "&+s16", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcmu32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcmu32za762za7za7__5585z00, va_generic_entry, BGl_z62lcmu32z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_STRING( BGl_string4954z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4954za700za7za7_5586za7, "integer->string", 15 );
DEFINE_STRING( BGl_string4873z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4873za700za7za7_5587za7, "&quotients64", 12 );
DEFINE_STRING( BGl_string4792z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4792za700za7za7_5588za7, "&+u16", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint8zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint8za7f3za791za7za75589za7, BGl_z62uint8zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4955z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4955za700za7za7_5590za7, "_integer->string", 16 );
DEFINE_STRING( BGl_string4874z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4874za700za7za7_5591za7, "&quotientu64", 12 );
DEFINE_STRING( BGl_string4793z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4793za700za7za7_5592za7, "&+s32", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2s8zd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2s8za7b0za7za7__r5593za7, BGl_z62zd2s8zb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4875z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4875za700za7za7_5594za7, "&quotientbx", 11 );
DEFINE_STRING( BGl_string4794z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4794za700za7za7_5595za7, "&+u32", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3u16zd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3u16za7b1za7za7__5596za7, BGl_z62zd3u16zb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4957z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4957za700za7za7_5597za7, "integer->string/padding", 23 );
DEFINE_STRING( BGl_string4795z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4795za700za7za7_5598za7, "&+s64", 5 );
DEFINE_STRING( BGl_string4958z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4958za700za7za7_5599za7, "wrong number of arguments: [2..3] expected, provided", 52 );
DEFINE_STRING( BGl_string4877z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4877za700za7za7_5600za7, "remainder", 9 );
DEFINE_STRING( BGl_string4796z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4796za700za7za7_5601za7, "&+u64", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_exptu32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762exptu32za762za7za7_5602z00, BGl_z62exptu32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4959z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4959za700za7za7_5603za7, "_integer->string/padding", 24 );
DEFINE_STRING( BGl_string4878z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4878za700za7za7_5604za7, "&remainderfx", 12 );
DEFINE_STRING( BGl_string4797z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4797za700za7za7_5605za7, "&+bx", 4 );
DEFINE_STRING( BGl_string4879z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4879za700za7za7_5606za7, "&remainderelong", 15 );
DEFINE_STRING( BGl_string4798z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4798za700za7za7_5607za7, "&+fx/ov", 7 );
DEFINE_STRING( BGl_string4799z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4799za700za7za7_5608za7, "&-fx", 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minu32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minu32za762za7za7__5609z00, va_generic_entry, BGl_z62minu32z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxbxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxbxza762za7za7__r5610z00, va_generic_entry, BGl_z62maxbxz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxs16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxs16za762za7za7__5611z00, va_generic_entry, BGl_z62maxs16z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bignumzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762bignumza7f3za791za75612z00, BGl_z62bignumzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minfxza762za7za7__r5613z00, va_generic_entry, BGl_z62minfxz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_moduloelongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762moduloelongza765614z00, BGl_z62moduloelongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2bxzd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2bxza7d0za7za7__r5615za7, BGl_z62zb2bxzd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2llongzd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2llongza7d0za7za75616za7, BGl_z62zb2llongzd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evens16zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evens16za7f3za7915617za7, BGl_z62evens16zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3s8zd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3s8za7b1za7za7__r5618za7, BGl_z62zd3s8zb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_bignumzd2ze3llongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762bignumza7d2za7e3l5619za7, BGl_z62bignumzd2ze3llongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int64zd2ze3uint64zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int64za7d2za7e3ui5620za7, BGl_z62int64zd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2fxzd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2fxza7b0za7za7__r5621za7, BGl_z62zd2fxzb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evenfxzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evenfxza7f3za791za75622z00, BGl_z62evenfxzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3u8zd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3u8za781za7za7__r5623za7, BGl_z62ze3u8z81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2u64zd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2u64za7b0za7za7__5624za7, BGl_z62zd2u64zb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulou64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulou64za762za75625za7, BGl_z62modulou64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_oddbxzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762oddbxza7f3za791za7za75626za7, BGl_z62oddbxzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3u32zd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3u32za772za75627za7, BGl_z62zc3zd3u32z72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4961z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4961za700za7za7_5628za7, "unsigned->string", 16 );
DEFINE_STRING( BGl_string4880z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4880za700za7za7_5629za7, "&remainderllong", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3u32zd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3u32za752za75630za7, BGl_z62ze3zd3u32z52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4962z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4962za700za7za7_5631za7, "_unsigned->string", 17 );
DEFINE_STRING( BGl_string4881z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4881za700za7za7_5632za7, "&remainders8", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3bytezd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3b5633za7, BGl_z62fixnumzd2ze3bytez53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7f3za791za75634z00, BGl_z62fixnumzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4963z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4963za700za7za7_5635za7, "elong->string", 13 );
DEFINE_STRING( BGl_string4882z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4882za700za7za7_5636za7, "&remainderu8", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2ze3elongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__stringza7d2za7e3elo5637z00, opt_generic_entry, BGl__stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00, BFALSE, -1 );
DEFINE_STRING( BGl_string4964z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4964za700za7za7_5638za7, "&elong->string", 14 );
DEFINE_STRING( BGl_string4883z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4883za700za7za7_5639za7, "&remainders16", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3u32zd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3u32za781za7za7__5640za7, BGl_z62ze3u32z81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4965z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4965za700za7za7_5641za7, "llong->string", 13 );
DEFINE_STRING( BGl_string4884z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4884za700za7za7_5642za7, "&remainderu16", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7erobxzf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7erobxza7f3za735643z00, BGl_z62za7erobxzf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7erou32zf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7erou32za7f3za75644z00, BGl_z62za7erou32zf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4966z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4966za700za7za7_5645za7, "&llong->string", 14 );
DEFINE_STRING( BGl_string4885z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4885za700za7za7_5646za7, "&remainders32", 13 );
DEFINE_STRING( BGl_string4886z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4886za700za7za7_5647za7, "&remainderu32", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3fxzd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3fxza7b1za7za7__r5648za7, BGl_z62zd3fxzb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4968z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4968za700za7za7_5649za7, "bignum->string", 14 );
DEFINE_STRING( BGl_string4887z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4887za700za7za7_5650za7, "&remainders64", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcmzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcmza762za7za7__r4_5651z00, va_generic_entry, BGl_z62lcmz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3u64zd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3u64za7b1za7za7__5652za7, BGl_z62zd3u64zb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4969z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4969za700za7za7_5653za7, "_bignum->string", 15 );
DEFINE_STRING( BGl_string4888z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4888za700za7za7_5654za7, "&remainderu64", 13 );
DEFINE_STRING( BGl_string4889z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4889za700za7za7_5655za7, "&remainderbx", 12 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainders8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainders8za765656z00, BGl_z62remainders8z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxllongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxllongza762za7za75657z00, va_generic_entry, BGl_z62maxllongz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxs64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxs64za762za7za7__5658z00, va_generic_entry, BGl_z62maxs64z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_oddu8zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762oddu8za7f3za791za7za75659za7, BGl_z62oddu8zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negs8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negs8za762za7za7__r5660z00, BGl_z62negs8z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2u16zd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2u16za7d0za7za7__5661za7, BGl_z62zb2u16zd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcmu8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcmu8za762za7za7__r5662z00, va_generic_entry, BGl_z62lcmu8z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2s16zd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2s16za790za7za7__5663za7, BGl_z62zf2s16z90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_abselongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762abselongza762za7za75664z00, BGl_z62abselongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positiveu32zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positiveu32za7f5665z00, BGl_z62positiveu32zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7erou8zf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7erou8za7f3za735666z00, BGl_z62za7erou8zf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negativellongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negativellong5667za7, BGl_z62negativellongzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_odds16zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762odds16za7f3za791za75668z00, BGl_z62odds16zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotients32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotients32za765669z00, BGl_z62quotients32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3elongzd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3elongza7a1za7za75670za7, BGl_z62zc3elongza1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainderllongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainderllon5671za7, BGl_z62remainderllongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negs16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negs16za762za7za7__5672z00, BGl_z62negs16z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4970z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4970za700za7za7_5673za7, "bignum->bin-str!", 16 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainderfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainderfxza765674z00, BGl_z62remainderfxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3llongzd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3llongza775675z00, BGl_z62zc3zd3llongz72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4971z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4971za700za7za7_5676za7, "integer too large", 17 );
DEFINE_STRING( BGl_string4972z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4972za700za7za7_5677za7, "string-set!", 11 );
DEFINE_STRING( BGl_string4891z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4891za700za7za7_5678za7, "modulo", 6 );
DEFINE_STRING( BGl_string4973z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4973za700za7za7_5679za7, "bignum->octet-string", 20 );
DEFINE_STRING( BGl_string4892z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4892za700za7za7_5680za7, "&modulofx", 9 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negfxza762za7za7__r5681z00, BGl_z62negfxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4974z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4974za700za7za7_5682za7, "&bignum->octet-string", 21 );
DEFINE_STRING( BGl_string4893z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4893za700za7za7_5683za7, "&moduloelong", 12 );
DEFINE_STRING( BGl_string4975z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4975za700za7za7_5684za7, "string-ref", 10 );
DEFINE_STRING( BGl_string4894z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4894za700za7za7_5685za7, "&modulollong", 12 );
DEFINE_STRING( BGl_string4976z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4976za700za7za7_5686za7, "&octet-string->bignum", 21 );
DEFINE_STRING( BGl_string4895z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4895za700za7za7_5687za7, "&modulos8", 9 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7erollongzf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7erollongza7f5688za7, BGl_z62za7erollongzf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4896z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4896za700za7za7_5689za7, "&modulou8", 9 );
DEFINE_STRING( BGl_string4978z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4978za700za7za7_5690za7, "string->integer", 15 );
DEFINE_STRING( BGl_string4897z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4897za700za7za7_5691za7, "&modulos16", 10 );
DEFINE_STRING( BGl_string4979z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4979za700za7za7_5692za7, "wrong number of arguments: [1..3] expected, provided", 52 );
DEFINE_STRING( BGl_string4898z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4898za700za7za7_5693za7, "&modulou16", 10 );
DEFINE_STRING( BGl_string4899z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4899za700za7za7_5694za7, "&modulos32", 10 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint32zd2ze3int32zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint32za7d2za7e3i5695za7, BGl_z62uint32zd2ze3int32z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_randomzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762randomza762za7za7__5696z00, BGl_z62randomz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotientu8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotientu8za7625697z00, BGl_z62quotientu8z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint16zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint16za7f3za791za75698z00, BGl_z62uint16zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negativeelongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negativeelong5699za7, BGl_z62negativeelongzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2llongzd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2llongza7b0za7za75700za7, BGl_z62zd2llongzb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint16zd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint16za7d2za7e3f5701za7, BGl_z62uint16zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3uint16zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3u5702za7, BGl_z62fixnumzd2ze3uint16z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2u64zd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2u64za7d0za7za7__5703za7, BGl_z62zb2u64zd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2s64zd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2s64za790za7za7__5704za7, BGl_z62zf2s64z90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evenu64zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evenu64za7f3za7915705za7, BGl_z62evenu64zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_abss32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762abss32za762za7za7__5706z00, BGl_z62abss32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negativeu16zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negativeu16za7f5707z00, BGl_z62negativeu16zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negelongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negelongza762za7za75708z00, BGl_z62negelongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7eroelongzf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7eroelongza7f5709za7, BGl_z62za7eroelongzf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4980z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4980za700za7za7_5710za7, "_string->integer", 16 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3u32zd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3u32za7a1za7za7__5711za7, BGl_z62zc3u32za1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_elongzd2ze3stringzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762elongza7d2za7e3st5712za7, va_generic_entry, BGl_z62elongzd2ze3stringz53zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negs64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negs64za762za7za7__5713z00, BGl_z62negs64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7eros32zf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7eros32za7f3za75714z00, BGl_z62za7eros32zf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4982z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4982za700za7za7_5715za7, "string->elong", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3bxzd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3bxza781za7za7__r5716za7, BGl_z62ze3bxz81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4983z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4983za700za7za7_5717za7, "_string->elong", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3llongzd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3llongza7b1za7za75718za7, BGl_z62zd3llongzb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4985z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4985za700za7za7_5719za7, "string->llong", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcdu8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcdu8za762za7za7__r5720z00, va_generic_entry, BGl_z62gcdu8z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_STRING( BGl_string4986z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4986za700za7za7_5721za7, "_string->llong", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positives8zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positives8za7f35722z00, BGl_z62positives8zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4988z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4988za700za7za7_5723za7, "string->bignum", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_llongzd2ze3stringzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762llongza7d2za7e3st5724za7, va_generic_entry, BGl_z62llongzd2ze3stringz53zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_STRING( BGl_string4989z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4989za700za7za7_5725za7, "_string->bignum", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_exptfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762exptfxza762za7za7__5726z00, BGl_z62exptfxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2s16zd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2s16za7b0za7za7__5727za7, BGl_z62zd2s16zb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_makezd2llongzd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762makeza7d2llongza75728za7, BGl_z62makezd2llongzb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcdu32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcdu32za762za7za7__5729z00, va_generic_entry, BGl_z62gcdu32z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3u8zd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3u8za752za7za75730z00, BGl_z62ze3zd3u8z52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evenllongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evenllongza7f3za75731za7, BGl_z62evenllongzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulos16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulos16za762za75732za7, BGl_z62modulos16z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_positives32zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762positives32za7f5733z00, BGl_z62positives32zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint64zd2ze3int64zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint64za7d2za7e3i5734za7, BGl_z62uint64zd2ze3int64z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3ubytezd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3u5735za7, BGl_z62fixnumzd2ze3ubytez53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3uint64zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3u5736za7, BGl_z62fixnumzd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_stringzd2ze3integerzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__stringza7d2za7e3int5737z00, opt_generic_entry, BGl__stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00, BFALSE, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxs8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxs8za762za7za7__r5738z00, va_generic_entry, BGl_z62maxs8z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3elongzd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3elongza781za7za75739za7, BGl_z62ze3elongz81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcms32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcms32za762za7za7__5740z00, va_generic_entry, BGl_z62lcms32z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotientu16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotientu16za765741z00, BGl_z62quotientu16z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_oddu64zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762oddu64za7f3za791za75742z00, BGl_z62oddu64zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcmbxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcmbxza762za7za7__r5743z00, va_generic_entry, BGl_z62lcmbxz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2s8zd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2s8za7d0za7za7__r5744za7, BGl_z62zb2s8zd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4990z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4990za700za7za7_5745za7, "&string->integer-obj", 20 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3s16zd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3s16za7b1za7za7__5746za7, BGl_z62zd3s16zb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int32zd2ze3llongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int32za7d2za7e3ll5747za7, BGl_z62int32zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4991z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4991za700za7za7_5748za7, "&random", 7 );
DEFINE_STRING( BGl_string4992z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4992za700za7za7_5749za7, "&randombx", 9 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_expts32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762expts32za762za7za7_5750z00, BGl_z62expts32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4993z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4993za700za7za7_5751za7, "&seed-random!", 13 );
DEFINE_STRING( BGl_string4994z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4994za700za7za7_5752za7, "__r4_numbers_6_5_fixnum", 23 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_mins32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762mins32za762za7za7__5753z00, va_generic_entry, BGl_z62mins32z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2fxzf2ovzd2envz92zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2fxza7f2ovza7225754z00, BGl_z62zb2fxzf2ovz22zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evenelongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evenelongza7f3za75755za7, BGl_z62evenelongzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minvalllongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minvalllongza765756z00, BGl_z62minvalllongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za2u32zd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a2u32za7c0za7za7__5757za7, BGl_z62za2u32zc0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxfxza762za7za7__r5758z00, va_generic_entry, BGl_z62maxfxz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxvalllongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxvalllongza765759z00, BGl_z62maxvalllongz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minvalfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minvalfxza762za7za75760z00, BGl_z62minvalfxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 0 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_uint32zd2ze3elongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762uint32za7d2za7e3e5761za7, BGl_z62uint32zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_elongzd2ze3uint32zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762elongza7d2za7e3ui5762za7, BGl_z62elongzd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2fxzd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2fxza7d0za7za7__r5763za7, BGl_z62zb2fxzd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3u8zd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3u8za7a1za7za7__r5764za7, BGl_z62zc3u8za1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2s64zd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2s64za7b0za7za7__5765za7, BGl_z62zd2s64zb0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_evens64zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762evens64za7f3za7915766za7, BGl_z62evens64zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4600z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4600za700za7za7_5767za7, "&uint32->fixnum", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2llongzd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2llongza790za7za75768za7, BGl_z62zf2llongz90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4601z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4601za700za7za7_5769za7, "&fixnum->int64", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_negatives16zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762negatives16za7f5770z00, BGl_z62negatives16zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_llongzd2ze3uint32zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762llongza7d2za7e3ui5771za7, BGl_z62llongzd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4602z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4602za700za7za7_5772za7, "&fixnum->uint64", 15 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_modulos64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762modulos64za762za75773za7, BGl_z62modulos64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4603z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4603za700za7za7_5774za7, "&int64->fixnum", 14 );
DEFINE_STRING( BGl_string4604z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4604za700za7za7_5775za7, "&uint64->fixnum", 15 );
DEFINE_STRING( BGl_string4605z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4605za700za7za7_5776za7, "&fixnum->byte", 13 );
DEFINE_STRING( BGl_string4606z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4606za700za7za7_5777za7, "&fixnum->ubyte", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainderu32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainderu32za75778z00, BGl_z62remainderu32z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3s32zd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3s32za772za75779za7, BGl_z62zc3zd3s32z72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4607z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4607za700za7za7_5780za7, "&byte->fixnum", 13 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_absu16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762absu16za762za7za7__5781z00, BGl_z62absu16z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3int32zd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3i5782za7, BGl_z62fixnumzd2ze3int32z53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4608z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4608za700za7za7_5783za7, "&ubyte->fixnum", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotientbxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotientbxza7625784z00, BGl_z62quotientbxz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3s32zd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3s32za752za75785za7, BGl_z62ze3zd3s32z52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_STRING( BGl_string4609z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4609za700za7za7_5786za7, "&fixnum->elong", 14 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int16zd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int16za7d2za7e3fi5787za7, BGl_z62int16zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3s32zd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3s32za781za7za7__5788za7, BGl_z62ze3s32z81zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_remainderzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762remainderza762za75789za7, BGl_z62remainderz62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_quotientu64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762quotientu64za765790z00, BGl_z62quotientu64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd3s64zd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d3s64za7b1za7za7__5791za7, BGl_z62zd3s64zb1zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_odds8zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762odds8za7f3za791za7za75792za7, BGl_z62odds8zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_fixnumzd2ze3bignumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762fixnumza7d2za7e3b5793za7, BGl_z62fixnumzd2ze3bignumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zb2s16zd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7b2s16za7d0za7za7__5794za7, BGl_z62zb2s16zd0zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zc3zd3u8zd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7c3za7d3u8za772za7za75795z00, BGl_z62zc3zd3u8z72zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcdbxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcdbxza762za7za7__r5796z00, va_generic_entry, BGl_z62gcdbxz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_za7eros8zf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7a7eros8za7f3za735797z00, BGl_z62za7eros8zf3z36zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ubytezd2ze3fixnumzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762ubyteza7d2za7e3fi5798za7, BGl_z62ubytezd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4610z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4610za700za7za7_5799za7, "&elong->fixnum", 14 );
DEFINE_STRING( BGl_string4611z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4611za700za7za7_5800za7, "&fixnum->llong", 14 );
DEFINE_STRING( BGl_string4612z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4612za700za7za7_5801za7, "&llong->fixnum", 14 );
DEFINE_STRING( BGl_string4613z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4613za700za7za7_5802za7, "&=fx", 4 );
DEFINE_STRING( BGl_string4614z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4614za700za7za7_5803za7, "&=elong", 7 );
DEFINE_STRING( BGl_string4615z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4615za700za7za7_5804za7, "&=llong", 7 );
DEFINE_STRING( BGl_string4616z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4616za700za7za7_5805za7, "&=s8", 4 );
DEFINE_STRING( BGl_string4617z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4617za700za7za7_5806za7, "&=u8", 4 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_odds64zf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762odds64za7f3za791za75807z00, BGl_z62odds64zf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_STRING( BGl_string4618z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4618za700za7za7_5808za7, "&=s16", 5 );
DEFINE_STRING( BGl_string4619z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string4619za700za7za7_5809za7, "&=u16", 5 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_absu64zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762absu64za762za7za7__5810z00, BGl_z62absu64z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3bxzd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3bxza752za7za75811z00, BGl_z62ze3zd3bxz52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_int64zd2ze3elongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762int64za7d2za7e3el5812za7, BGl_z62int64zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_ze3zd3llongzd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7e3za7d3llongza755813z00, BGl_z62ze3zd3llongz52zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_lcmu16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762lcmu16za762za7za7__5814z00, va_generic_entry, BGl_z62lcmu16z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_llongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762llongza7f3za791za7za75815za7, BGl_z62llongzf3z91zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zf2u8zd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7f2u8za790za7za7__r5816za7, BGl_z62zf2u8z90zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_zd2fxzf2ovzd2envzf2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762za7d2fxza7f2ovza7425817z00, BGl_z62zd2fxzf2ovz42zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_maxu32zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762maxu32za762za7za7__5818z00, va_generic_entry, BGl_z62maxu32z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_minu16zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762minu16za762za7za7__5819z00, va_generic_entry, BGl_z62minu16z62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -2 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_gcdelongzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762gcdelongza762za7za75820z00, va_generic_entry, BGl_z62gcdelongz62zz__r4_numbers_6_5_fixnumz00, BUNSPEC, -1 );
DEFINE_EXPORT_BGL_PROCEDURE( BGl_absu8zd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl_za762absu8za762za7za7__r5821z00, BGl_z62absu8z62zz__r4_numbers_6_5_fixnumz00, 0L, BUNSPEC, 1 );

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_Z0z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_Z1z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4981z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_Z2z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4984z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4987z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_Z256z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4861z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4947z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4953z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4956z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4876z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4960z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4967z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4890z00zz__r4_numbers_6_5_fixnumz00) );
ADD_ROOT( (void *)(&BGl_symbol4977z00zz__r4_numbers_6_5_fixnumz00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long BgL_checksumz00_8762, char * BgL_fromz00_8763)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00 = 
BBOOL(((bool_t)0)); 
BGl_gczd2rootszd2initz00zz__r4_numbers_6_5_fixnumz00(); 
BGl_cnstzd2initzd2zz__r4_numbers_6_5_fixnumz00(); 
BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_fixnumz00(); 
return 
BGl_toplevelzd2initzd2zz__r4_numbers_6_5_fixnumz00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_numbers_6_5_fixnumz00(void)
{
{ /* Ieee/fixnum.scm 14 */
BGl_symbol4861z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4862z00zz__r4_numbers_6_5_fixnumz00); 
BGl_symbol4876z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4877z00zz__r4_numbers_6_5_fixnumz00); 
BGl_symbol4890z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4891z00zz__r4_numbers_6_5_fixnumz00); 
BGl_symbol4947z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4948z00zz__r4_numbers_6_5_fixnumz00); 
BGl_symbol4953z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4954z00zz__r4_numbers_6_5_fixnumz00); 
BGl_symbol4956z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4957z00zz__r4_numbers_6_5_fixnumz00); 
BGl_symbol4960z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4961z00zz__r4_numbers_6_5_fixnumz00); 
BGl_symbol4967z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4968z00zz__r4_numbers_6_5_fixnumz00); 
BGl_symbol4977z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4978z00zz__r4_numbers_6_5_fixnumz00); 
BGl_symbol4981z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4982z00zz__r4_numbers_6_5_fixnumz00); 
BGl_symbol4984z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4985z00zz__r4_numbers_6_5_fixnumz00); 
return ( 
BGl_symbol4987z00zz__r4_numbers_6_5_fixnumz00 = 
bstring_to_symbol(BGl_string4988z00zz__r4_numbers_6_5_fixnumz00), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__r4_numbers_6_5_fixnumz00(void)
{
{ /* Ieee/fixnum.scm 14 */
return 
bgl_gc_roots_register();} 

}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__r4_numbers_6_5_fixnumz00(void)
{
{ /* Ieee/fixnum.scm 14 */
BGl_Z0z00zz__r4_numbers_6_5_fixnumz00 = (bgl_string_to_bignum( "0", 16 )); 
BGl_Z1z00zz__r4_numbers_6_5_fixnumz00 = (bgl_string_to_bignum( "1", 16 )); 
BGl_Z2z00zz__r4_numbers_6_5_fixnumz00 = (bgl_string_to_bignum( "2", 16 )); 
return ( 
BGl_Z256z00zz__r4_numbers_6_5_fixnumz00 = (bgl_string_to_bignum( "100", 16 )), BUNSPEC) ;} 

}



/* integer? */
BGL_EXPORTED_DEF bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_3)
{
{ /* Ieee/fixnum.scm 1415 */
{ /* Ieee/fixnum.scm 1416 */
 bool_t BgL__ortest_1012z00_919;
BgL__ortest_1012z00_919 = 
INTEGERP(BgL_objz00_3); 
if(BgL__ortest_1012z00_919)
{ /* Ieee/fixnum.scm 1416 */
return BgL__ortest_1012z00_919;}  else 
{ /* Ieee/fixnum.scm 1417 */
 bool_t BgL__ortest_1013z00_920;
BgL__ortest_1013z00_920 = 
ELONGP(BgL_objz00_3); 
if(BgL__ortest_1013z00_920)
{ /* Ieee/fixnum.scm 1417 */
return BgL__ortest_1013z00_920;}  else 
{ /* Ieee/fixnum.scm 1418 */
 bool_t BgL__ortest_1014z00_921;
BgL__ortest_1014z00_921 = 
LLONGP(BgL_objz00_3); 
if(BgL__ortest_1014z00_921)
{ /* Ieee/fixnum.scm 1418 */
return BgL__ortest_1014z00_921;}  else 
{ /* Ieee/fixnum.scm 1419 */
 bool_t BgL__ortest_1015z00_922;
BgL__ortest_1015z00_922 = 
BGL_INT8P(BgL_objz00_3); 
if(BgL__ortest_1015z00_922)
{ /* Ieee/fixnum.scm 1419 */
return BgL__ortest_1015z00_922;}  else 
{ /* Ieee/fixnum.scm 1420 */
 bool_t BgL__ortest_1016z00_923;
BgL__ortest_1016z00_923 = 
BGL_UINT8P(BgL_objz00_3); 
if(BgL__ortest_1016z00_923)
{ /* Ieee/fixnum.scm 1420 */
return BgL__ortest_1016z00_923;}  else 
{ /* Ieee/fixnum.scm 1421 */
 bool_t BgL__ortest_1017z00_924;
BgL__ortest_1017z00_924 = 
BGL_INT16P(BgL_objz00_3); 
if(BgL__ortest_1017z00_924)
{ /* Ieee/fixnum.scm 1421 */
return BgL__ortest_1017z00_924;}  else 
{ /* Ieee/fixnum.scm 1422 */
 bool_t BgL__ortest_1018z00_925;
BgL__ortest_1018z00_925 = 
BGL_UINT16P(BgL_objz00_3); 
if(BgL__ortest_1018z00_925)
{ /* Ieee/fixnum.scm 1422 */
return BgL__ortest_1018z00_925;}  else 
{ /* Ieee/fixnum.scm 1423 */
 bool_t BgL__ortest_1019z00_926;
BgL__ortest_1019z00_926 = 
BGL_INT32P(BgL_objz00_3); 
if(BgL__ortest_1019z00_926)
{ /* Ieee/fixnum.scm 1423 */
return BgL__ortest_1019z00_926;}  else 
{ /* Ieee/fixnum.scm 1424 */
 bool_t BgL__ortest_1020z00_927;
BgL__ortest_1020z00_927 = 
BGL_UINT32P(BgL_objz00_3); 
if(BgL__ortest_1020z00_927)
{ /* Ieee/fixnum.scm 1424 */
return BgL__ortest_1020z00_927;}  else 
{ /* Ieee/fixnum.scm 1425 */
 bool_t BgL__ortest_1021z00_928;
BgL__ortest_1021z00_928 = 
BGL_INT64P(BgL_objz00_3); 
if(BgL__ortest_1021z00_928)
{ /* Ieee/fixnum.scm 1425 */
return BgL__ortest_1021z00_928;}  else 
{ /* Ieee/fixnum.scm 1426 */
 bool_t BgL__ortest_1022z00_929;
BgL__ortest_1022z00_929 = 
BGL_UINT64P(BgL_objz00_3); 
if(BgL__ortest_1022z00_929)
{ /* Ieee/fixnum.scm 1426 */
return BgL__ortest_1022z00_929;}  else 
{ /* Ieee/fixnum.scm 1427 */
 bool_t BgL__ortest_1023z00_930;
BgL__ortest_1023z00_930 = 
BIGNUMP(BgL_objz00_3); 
if(BgL__ortest_1023z00_930)
{ /* Ieee/fixnum.scm 1427 */
return BgL__ortest_1023z00_930;}  else 
{ /* Ieee/fixnum.scm 1427 */
if(
REALP(BgL_objz00_3))
{ /* Ieee/fixnum.scm 1428 */
 double BgL_rz00_2738;
BgL_rz00_2738 = 
REAL_TO_DOUBLE(BgL_objz00_3); 
if(
BGL_IS_FINITE(BgL_rz00_2738))
{ /* Ieee/fixnum.scm 1428 */
 double BgL_arg2689z00_2740;
BgL_arg2689z00_2740 = 
floor(BgL_rz00_2738); 
return 
(BgL_rz00_2738==BgL_arg2689z00_2740);}  else 
{ /* Ieee/fixnum.scm 1428 */
return ((bool_t)0);} }  else 
{ /* Ieee/fixnum.scm 1428 */
return ((bool_t)0);} } } } } } } } } } } } } } } 

}



/* &integer? */
obj_t BGl_z62integerzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5878, obj_t BgL_objz00_5879)
{
{ /* Ieee/fixnum.scm 1415 */
return 
BBOOL(
BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5879));} 

}



/* fixnum? */
BGL_EXPORTED_DEF bool_t BGl_fixnumzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_4)
{
{ /* Ieee/fixnum.scm 1433 */
return 
INTEGERP(BgL_objz00_4);} 

}



/* &fixnum? */
obj_t BGl_z62fixnumzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5880, obj_t BgL_objz00_5881)
{
{ /* Ieee/fixnum.scm 1433 */
return 
BBOOL(
BGl_fixnumzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5881));} 

}



/* elong? */
BGL_EXPORTED_DEF bool_t BGl_elongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_5)
{
{ /* Ieee/fixnum.scm 1435 */
return 
ELONGP(BgL_objz00_5);} 

}



/* &elong? */
obj_t BGl_z62elongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5882, obj_t BgL_objz00_5883)
{
{ /* Ieee/fixnum.scm 1435 */
return 
BBOOL(
BGl_elongzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5883));} 

}



/* llong? */
BGL_EXPORTED_DEF bool_t BGl_llongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_6)
{
{ /* Ieee/fixnum.scm 1436 */
return 
LLONGP(BgL_objz00_6);} 

}



/* &llong? */
obj_t BGl_z62llongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5884, obj_t BgL_objz00_5885)
{
{ /* Ieee/fixnum.scm 1436 */
return 
BBOOL(
BGl_llongzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5885));} 

}



/* int8? */
BGL_EXPORTED_DEF bool_t BGl_int8zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_7)
{
{ /* Ieee/fixnum.scm 1438 */
return 
BGL_INT8P(BgL_objz00_7);} 

}



/* &int8? */
obj_t BGl_z62int8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5886, obj_t BgL_objz00_5887)
{
{ /* Ieee/fixnum.scm 1438 */
return 
BBOOL(
BGl_int8zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5887));} 

}



/* uint8? */
BGL_EXPORTED_DEF bool_t BGl_uint8zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_8)
{
{ /* Ieee/fixnum.scm 1439 */
return 
BGL_UINT8P(BgL_objz00_8);} 

}



/* &uint8? */
obj_t BGl_z62uint8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5888, obj_t BgL_objz00_5889)
{
{ /* Ieee/fixnum.scm 1439 */
return 
BBOOL(
BGl_uint8zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5889));} 

}



/* int16? */
BGL_EXPORTED_DEF bool_t BGl_int16zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_9)
{
{ /* Ieee/fixnum.scm 1441 */
return 
BGL_INT16P(BgL_objz00_9);} 

}



/* &int16? */
obj_t BGl_z62int16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5890, obj_t BgL_objz00_5891)
{
{ /* Ieee/fixnum.scm 1441 */
return 
BBOOL(
BGl_int16zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5891));} 

}



/* uint16? */
BGL_EXPORTED_DEF bool_t BGl_uint16zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_10)
{
{ /* Ieee/fixnum.scm 1442 */
return 
BGL_UINT16P(BgL_objz00_10);} 

}



/* &uint16? */
obj_t BGl_z62uint16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5892, obj_t BgL_objz00_5893)
{
{ /* Ieee/fixnum.scm 1442 */
return 
BBOOL(
BGl_uint16zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5893));} 

}



/* int32? */
BGL_EXPORTED_DEF bool_t BGl_int32zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_11)
{
{ /* Ieee/fixnum.scm 1444 */
return 
BGL_INT32P(BgL_objz00_11);} 

}



/* &int32? */
obj_t BGl_z62int32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5894, obj_t BgL_objz00_5895)
{
{ /* Ieee/fixnum.scm 1444 */
return 
BBOOL(
BGl_int32zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5895));} 

}



/* uint32? */
BGL_EXPORTED_DEF bool_t BGl_uint32zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_12)
{
{ /* Ieee/fixnum.scm 1445 */
return 
BGL_UINT32P(BgL_objz00_12);} 

}



/* &uint32? */
obj_t BGl_z62uint32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5896, obj_t BgL_objz00_5897)
{
{ /* Ieee/fixnum.scm 1445 */
return 
BBOOL(
BGl_uint32zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5897));} 

}



/* int64? */
BGL_EXPORTED_DEF bool_t BGl_int64zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_13)
{
{ /* Ieee/fixnum.scm 1447 */
return 
BGL_INT64P(BgL_objz00_13);} 

}



/* &int64? */
obj_t BGl_z62int64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5898, obj_t BgL_objz00_5899)
{
{ /* Ieee/fixnum.scm 1447 */
return 
BBOOL(
BGl_int64zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5899));} 

}



/* uint64? */
BGL_EXPORTED_DEF bool_t BGl_uint64zf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_14)
{
{ /* Ieee/fixnum.scm 1448 */
return 
BGL_UINT64P(BgL_objz00_14);} 

}



/* &uint64? */
obj_t BGl_z62uint64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5900, obj_t BgL_objz00_5901)
{
{ /* Ieee/fixnum.scm 1448 */
return 
BBOOL(
BGl_uint64zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5901));} 

}



/* bignum? */
BGL_EXPORTED_DEF bool_t BGl_bignumzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_15)
{
{ /* Ieee/fixnum.scm 1450 */
return 
BIGNUMP(BgL_objz00_15);} 

}



/* &bignum? */
obj_t BGl_z62bignumzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5902, obj_t BgL_objz00_5903)
{
{ /* Ieee/fixnum.scm 1450 */
return 
BBOOL(
BGl_bignumzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_objz00_5903));} 

}



/* make-elong */
BGL_EXPORTED_DEF obj_t BGl_makezd2elongzd2zz__r4_numbers_6_5_fixnumz00(long BgL_longz00_16)
{
{ /* Ieee/fixnum.scm 1455 */
return 
make_belong(BgL_longz00_16);} 

}



/* &make-elong */
obj_t BGl_z62makezd2elongzb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5904, obj_t BgL_longz00_5905)
{
{ /* Ieee/fixnum.scm 1455 */
{ /* Ieee/fixnum.scm 1455 */
 long BgL_auxz00_8854;
{ /* Ieee/fixnum.scm 1455 */
 obj_t BgL_tmpz00_8855;
if(
INTEGERP(BgL_longz00_5905))
{ /* Ieee/fixnum.scm 1455 */
BgL_tmpz00_8855 = BgL_longz00_5905
; }  else 
{ 
 obj_t BgL_auxz00_8858;
BgL_auxz00_8858 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(74634L), BGl_string4543z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_longz00_5905); 
FAILURE(BgL_auxz00_8858,BFALSE,BFALSE);} 
BgL_auxz00_8854 = 
(long)CINT(BgL_tmpz00_8855); } 
return 
BGl_makezd2elongzd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8854);} } 

}



/* make-llong */
BGL_EXPORTED_DEF obj_t BGl_makezd2llongzd2zz__r4_numbers_6_5_fixnumz00(long BgL_longz00_17)
{
{ /* Ieee/fixnum.scm 1456 */
return 
LONG_TO_BLLONG(BgL_longz00_17);} 

}



/* &make-llong */
obj_t BGl_z62makezd2llongzb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5906, obj_t BgL_longz00_5907)
{
{ /* Ieee/fixnum.scm 1456 */
{ /* Ieee/fixnum.scm 1456 */
 long BgL_auxz00_8865;
{ /* Ieee/fixnum.scm 1456 */
 obj_t BgL_tmpz00_8866;
if(
INTEGERP(BgL_longz00_5907))
{ /* Ieee/fixnum.scm 1456 */
BgL_tmpz00_8866 = BgL_longz00_5907
; }  else 
{ 
 obj_t BgL_auxz00_8869;
BgL_auxz00_8869 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(74689L), BGl_string4545z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_longz00_5907); 
FAILURE(BgL_auxz00_8869,BFALSE,BFALSE);} 
BgL_auxz00_8865 = 
(long)CINT(BgL_tmpz00_8866); } 
return 
BGl_makezd2llongzd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8865);} } 

}



/* elong->llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_elongzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_18)
{
{ /* Ieee/fixnum.scm 1458 */
return 
(BGL_LONGLONG_T)(BgL_xz00_18);} 

}



/* &elong->llong */
obj_t BGl_z62elongzd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5908, obj_t BgL_xz00_5909)
{
{ /* Ieee/fixnum.scm 1458 */
{ /* Ieee/fixnum.scm 1458 */
 BGL_LONGLONG_T BgL_tmpz00_8876;
{ /* Ieee/fixnum.scm 1458 */
 long BgL_auxz00_8877;
{ /* Ieee/fixnum.scm 1458 */
 obj_t BgL_tmpz00_8878;
if(
ELONGP(BgL_xz00_5909))
{ /* Ieee/fixnum.scm 1458 */
BgL_tmpz00_8878 = BgL_xz00_5909
; }  else 
{ 
 obj_t BgL_auxz00_8881;
BgL_auxz00_8881 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(74744L), BGl_string4546z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5909); 
FAILURE(BgL_auxz00_8881,BFALSE,BFALSE);} 
BgL_auxz00_8877 = 
BELONG_TO_LONG(BgL_tmpz00_8878); } 
BgL_tmpz00_8876 = 
BGl_elongzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8877); } 
return 
make_bllong(BgL_tmpz00_8876);} } 

}



/* llong->elong */
BGL_EXPORTED_DEF long BGl_llongzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_xz00_19)
{
{ /* Ieee/fixnum.scm 1459 */
return 
(long)(BgL_xz00_19);} 

}



/* &llong->elong */
obj_t BGl_z62llongzd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5910, obj_t BgL_xz00_5911)
{
{ /* Ieee/fixnum.scm 1459 */
{ /* Ieee/fixnum.scm 1459 */
 long BgL_tmpz00_8889;
{ /* Ieee/fixnum.scm 1459 */
 BGL_LONGLONG_T BgL_auxz00_8890;
{ /* Ieee/fixnum.scm 1459 */
 obj_t BgL_tmpz00_8891;
if(
LLONGP(BgL_xz00_5911))
{ /* Ieee/fixnum.scm 1459 */
BgL_tmpz00_8891 = BgL_xz00_5911
; }  else 
{ 
 obj_t BgL_auxz00_8894;
BgL_auxz00_8894 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(74795L), BGl_string4548z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5911); 
FAILURE(BgL_auxz00_8894,BFALSE,BFALSE);} 
BgL_auxz00_8890 = 
BLLONG_TO_LLONG(BgL_tmpz00_8891); } 
BgL_tmpz00_8889 = 
BGl_llongzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8890); } 
return 
make_belong(BgL_tmpz00_8889);} } 

}



/* elong->int32 */
BGL_EXPORTED_DEF int32_t BGl_elongzd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_20)
{
{ /* Ieee/fixnum.scm 1461 */
return 
(int32_t)(BgL_nz00_20);} 

}



/* &elong->int32 */
obj_t BGl_z62elongzd2ze3int32z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5912, obj_t BgL_nz00_5913)
{
{ /* Ieee/fixnum.scm 1461 */
{ /* Ieee/fixnum.scm 1461 */
 int32_t BgL_tmpz00_8902;
{ /* Ieee/fixnum.scm 1461 */
 long BgL_auxz00_8903;
{ /* Ieee/fixnum.scm 1461 */
 obj_t BgL_tmpz00_8904;
if(
ELONGP(BgL_nz00_5913))
{ /* Ieee/fixnum.scm 1461 */
BgL_tmpz00_8904 = BgL_nz00_5913
; }  else 
{ 
 obj_t BgL_auxz00_8907;
BgL_auxz00_8907 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(74847L), BGl_string4550z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5913); 
FAILURE(BgL_auxz00_8907,BFALSE,BFALSE);} 
BgL_auxz00_8903 = 
BELONG_TO_LONG(BgL_tmpz00_8904); } 
BgL_tmpz00_8902 = 
BGl_elongzd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8903); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_8902);} } 

}



/* elong->uint32 */
BGL_EXPORTED_DEF uint32_t BGl_elongzd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_21)
{
{ /* Ieee/fixnum.scm 1462 */
return 
(uint32_t)(BgL_nz00_21);} 

}



/* &elong->uint32 */
obj_t BGl_z62elongzd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5914, obj_t BgL_nz00_5915)
{
{ /* Ieee/fixnum.scm 1462 */
{ /* Ieee/fixnum.scm 1462 */
 uint32_t BgL_tmpz00_8915;
{ /* Ieee/fixnum.scm 1462 */
 long BgL_auxz00_8916;
{ /* Ieee/fixnum.scm 1462 */
 obj_t BgL_tmpz00_8917;
if(
ELONGP(BgL_nz00_5915))
{ /* Ieee/fixnum.scm 1462 */
BgL_tmpz00_8917 = BgL_nz00_5915
; }  else 
{ 
 obj_t BgL_auxz00_8920;
BgL_auxz00_8920 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(74899L), BGl_string4551z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5915); 
FAILURE(BgL_auxz00_8920,BFALSE,BFALSE);} 
BgL_auxz00_8916 = 
BELONG_TO_LONG(BgL_tmpz00_8917); } 
BgL_tmpz00_8915 = 
BGl_elongzd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8916); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_8915);} } 

}



/* int32->elong */
BGL_EXPORTED_DEF long BGl_int32zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(int32_t BgL_nz00_22)
{
{ /* Ieee/fixnum.scm 1464 */
return 
(long)(BgL_nz00_22);} 

}



/* &int32->elong */
obj_t BGl_z62int32zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5916, obj_t BgL_nz00_5917)
{
{ /* Ieee/fixnum.scm 1464 */
{ /* Ieee/fixnum.scm 1464 */
 long BgL_tmpz00_8928;
{ /* Ieee/fixnum.scm 1464 */
 int32_t BgL_auxz00_8929;
{ /* Ieee/fixnum.scm 1464 */
 obj_t BgL_tmpz00_8930;
if(
BGL_INT32P(BgL_nz00_5917))
{ /* Ieee/fixnum.scm 1464 */
BgL_tmpz00_8930 = BgL_nz00_5917
; }  else 
{ 
 obj_t BgL_auxz00_8933;
BgL_auxz00_8933 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(74952L), BGl_string4552z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5917); 
FAILURE(BgL_auxz00_8933,BFALSE,BFALSE);} 
BgL_auxz00_8929 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_8930); } 
BgL_tmpz00_8928 = 
BGl_int32zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8929); } 
return 
make_belong(BgL_tmpz00_8928);} } 

}



/* uint32->elong */
BGL_EXPORTED_DEF long BGl_uint32zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_nz00_23)
{
{ /* Ieee/fixnum.scm 1465 */
return 
(long)(BgL_nz00_23);} 

}



/* &uint32->elong */
obj_t BGl_z62uint32zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5918, obj_t BgL_nz00_5919)
{
{ /* Ieee/fixnum.scm 1465 */
{ /* Ieee/fixnum.scm 1465 */
 long BgL_tmpz00_8941;
{ /* Ieee/fixnum.scm 1465 */
 uint32_t BgL_auxz00_8942;
{ /* Ieee/fixnum.scm 1465 */
 obj_t BgL_tmpz00_8943;
if(
BGL_UINT32P(BgL_nz00_5919))
{ /* Ieee/fixnum.scm 1465 */
BgL_tmpz00_8943 = BgL_nz00_5919
; }  else 
{ 
 obj_t BgL_auxz00_8946;
BgL_auxz00_8946 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75004L), BGl_string4554z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5919); 
FAILURE(BgL_auxz00_8946,BFALSE,BFALSE);} 
BgL_auxz00_8942 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_8943); } 
BgL_tmpz00_8941 = 
BGl_uint32zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8942); } 
return 
make_belong(BgL_tmpz00_8941);} } 

}



/* int32->llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_int32zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(int32_t BgL_nz00_24)
{
{ /* Ieee/fixnum.scm 1467 */
return 
(BGL_LONGLONG_T)(BgL_nz00_24);} 

}



/* &int32->llong */
obj_t BGl_z62int32zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5920, obj_t BgL_nz00_5921)
{
{ /* Ieee/fixnum.scm 1467 */
{ /* Ieee/fixnum.scm 1467 */
 BGL_LONGLONG_T BgL_tmpz00_8954;
{ /* Ieee/fixnum.scm 1467 */
 int32_t BgL_auxz00_8955;
{ /* Ieee/fixnum.scm 1467 */
 obj_t BgL_tmpz00_8956;
if(
BGL_INT32P(BgL_nz00_5921))
{ /* Ieee/fixnum.scm 1467 */
BgL_tmpz00_8956 = BgL_nz00_5921
; }  else 
{ 
 obj_t BgL_auxz00_8959;
BgL_auxz00_8959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75057L), BGl_string4556z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5921); 
FAILURE(BgL_auxz00_8959,BFALSE,BFALSE);} 
BgL_auxz00_8955 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_8956); } 
BgL_tmpz00_8954 = 
BGl_int32zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8955); } 
return 
make_bllong(BgL_tmpz00_8954);} } 

}



/* uint32->llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_uint32zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_nz00_25)
{
{ /* Ieee/fixnum.scm 1468 */
return 
(BGL_LONGLONG_T)(BgL_nz00_25);} 

}



/* &uint32->llong */
obj_t BGl_z62uint32zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5922, obj_t BgL_nz00_5923)
{
{ /* Ieee/fixnum.scm 1468 */
{ /* Ieee/fixnum.scm 1468 */
 BGL_LONGLONG_T BgL_tmpz00_8967;
{ /* Ieee/fixnum.scm 1468 */
 uint32_t BgL_auxz00_8968;
{ /* Ieee/fixnum.scm 1468 */
 obj_t BgL_tmpz00_8969;
if(
BGL_UINT32P(BgL_nz00_5923))
{ /* Ieee/fixnum.scm 1468 */
BgL_tmpz00_8969 = BgL_nz00_5923
; }  else 
{ 
 obj_t BgL_auxz00_8972;
BgL_auxz00_8972 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75109L), BGl_string4557z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5923); 
FAILURE(BgL_auxz00_8972,BFALSE,BFALSE);} 
BgL_auxz00_8968 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_8969); } 
BgL_tmpz00_8967 = 
BGl_uint32zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8968); } 
return 
make_bllong(BgL_tmpz00_8967);} } 

}



/* uint32->uint64 */
BGL_EXPORTED_DEF uint64_t BGl_uint32zd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_nz00_26)
{
{ /* Ieee/fixnum.scm 1469 */
return 
(uint64_t)(BgL_nz00_26);} 

}



/* &uint32->uint64 */
obj_t BGl_z62uint32zd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5924, obj_t BgL_nz00_5925)
{
{ /* Ieee/fixnum.scm 1469 */
{ /* Ieee/fixnum.scm 1469 */
 uint64_t BgL_tmpz00_8980;
{ /* Ieee/fixnum.scm 1469 */
 uint32_t BgL_auxz00_8981;
{ /* Ieee/fixnum.scm 1469 */
 obj_t BgL_tmpz00_8982;
if(
BGL_UINT32P(BgL_nz00_5925))
{ /* Ieee/fixnum.scm 1469 */
BgL_tmpz00_8982 = BgL_nz00_5925
; }  else 
{ 
 obj_t BgL_auxz00_8985;
BgL_auxz00_8985 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75163L), BGl_string4558z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5925); 
FAILURE(BgL_auxz00_8985,BFALSE,BFALSE);} 
BgL_auxz00_8981 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_8982); } 
BgL_tmpz00_8980 = 
BGl_uint32zd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8981); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_8980);} } 

}



/* llong->int32 */
BGL_EXPORTED_DEF int32_t BGl_llongzd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_nz00_27)
{
{ /* Ieee/fixnum.scm 1470 */
return 
(int32_t)(BgL_nz00_27);} 

}



/* &llong->int32 */
obj_t BGl_z62llongzd2ze3int32z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5926, obj_t BgL_nz00_5927)
{
{ /* Ieee/fixnum.scm 1470 */
{ /* Ieee/fixnum.scm 1470 */
 int32_t BgL_tmpz00_8993;
{ /* Ieee/fixnum.scm 1470 */
 BGL_LONGLONG_T BgL_auxz00_8994;
{ /* Ieee/fixnum.scm 1470 */
 obj_t BgL_tmpz00_8995;
if(
LLONGP(BgL_nz00_5927))
{ /* Ieee/fixnum.scm 1470 */
BgL_tmpz00_8995 = BgL_nz00_5927
; }  else 
{ 
 obj_t BgL_auxz00_8998;
BgL_auxz00_8998 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75216L), BGl_string4559z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5927); 
FAILURE(BgL_auxz00_8998,BFALSE,BFALSE);} 
BgL_auxz00_8994 = 
BLLONG_TO_LLONG(BgL_tmpz00_8995); } 
BgL_tmpz00_8993 = 
BGl_llongzd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_8994); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_8993);} } 

}



/* llong->uint32 */
BGL_EXPORTED_DEF uint32_t BGl_llongzd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_nz00_28)
{
{ /* Ieee/fixnum.scm 1471 */
return 
(uint32_t)(BgL_nz00_28);} 

}



/* &llong->uint32 */
obj_t BGl_z62llongzd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5928, obj_t BgL_nz00_5929)
{
{ /* Ieee/fixnum.scm 1471 */
{ /* Ieee/fixnum.scm 1471 */
 uint32_t BgL_tmpz00_9006;
{ /* Ieee/fixnum.scm 1471 */
 BGL_LONGLONG_T BgL_auxz00_9007;
{ /* Ieee/fixnum.scm 1471 */
 obj_t BgL_tmpz00_9008;
if(
LLONGP(BgL_nz00_5929))
{ /* Ieee/fixnum.scm 1471 */
BgL_tmpz00_9008 = BgL_nz00_5929
; }  else 
{ 
 obj_t BgL_auxz00_9011;
BgL_auxz00_9011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75268L), BGl_string4560z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5929); 
FAILURE(BgL_auxz00_9011,BFALSE,BFALSE);} 
BgL_auxz00_9007 = 
BLLONG_TO_LLONG(BgL_tmpz00_9008); } 
BgL_tmpz00_9006 = 
BGl_llongzd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9007); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_9006);} } 

}



/* llong->int64 */
BGL_EXPORTED_DEF int64_t BGl_llongzd2ze3int64z31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_nz00_29)
{
{ /* Ieee/fixnum.scm 1473 */
return 
(int64_t)(BgL_nz00_29);} 

}



/* &llong->int64 */
obj_t BGl_z62llongzd2ze3int64z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5930, obj_t BgL_nz00_5931)
{
{ /* Ieee/fixnum.scm 1473 */
{ /* Ieee/fixnum.scm 1473 */
 int64_t BgL_tmpz00_9019;
{ /* Ieee/fixnum.scm 1473 */
 BGL_LONGLONG_T BgL_auxz00_9020;
{ /* Ieee/fixnum.scm 1473 */
 obj_t BgL_tmpz00_9021;
if(
LLONGP(BgL_nz00_5931))
{ /* Ieee/fixnum.scm 1473 */
BgL_tmpz00_9021 = BgL_nz00_5931
; }  else 
{ 
 obj_t BgL_auxz00_9024;
BgL_auxz00_9024 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75321L), BGl_string4561z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5931); 
FAILURE(BgL_auxz00_9024,BFALSE,BFALSE);} 
BgL_auxz00_9020 = 
BLLONG_TO_LLONG(BgL_tmpz00_9021); } 
BgL_tmpz00_9019 = 
BGl_llongzd2ze3int64z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9020); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_9019);} } 

}



/* llong->uint64 */
BGL_EXPORTED_DEF uint64_t BGl_llongzd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_nz00_30)
{
{ /* Ieee/fixnum.scm 1474 */
return 
(uint64_t)(BgL_nz00_30);} 

}



/* &llong->uint64 */
obj_t BGl_z62llongzd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5932, obj_t BgL_nz00_5933)
{
{ /* Ieee/fixnum.scm 1474 */
{ /* Ieee/fixnum.scm 1474 */
 uint64_t BgL_tmpz00_9032;
{ /* Ieee/fixnum.scm 1474 */
 BGL_LONGLONG_T BgL_auxz00_9033;
{ /* Ieee/fixnum.scm 1474 */
 obj_t BgL_tmpz00_9034;
if(
LLONGP(BgL_nz00_5933))
{ /* Ieee/fixnum.scm 1474 */
BgL_tmpz00_9034 = BgL_nz00_5933
; }  else 
{ 
 obj_t BgL_auxz00_9037;
BgL_auxz00_9037 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75373L), BGl_string4562z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5933); 
FAILURE(BgL_auxz00_9037,BFALSE,BFALSE);} 
BgL_auxz00_9033 = 
BLLONG_TO_LLONG(BgL_tmpz00_9034); } 
BgL_tmpz00_9032 = 
BGl_llongzd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9033); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_9032);} } 

}



/* int64->llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_int64zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(int64_t BgL_nz00_31)
{
{ /* Ieee/fixnum.scm 1476 */
return 
(BGL_LONGLONG_T)(BgL_nz00_31);} 

}



/* &int64->llong */
obj_t BGl_z62int64zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5934, obj_t BgL_nz00_5935)
{
{ /* Ieee/fixnum.scm 1476 */
{ /* Ieee/fixnum.scm 1476 */
 BGL_LONGLONG_T BgL_tmpz00_9045;
{ /* Ieee/fixnum.scm 1476 */
 int64_t BgL_auxz00_9046;
{ /* Ieee/fixnum.scm 1476 */
 obj_t BgL_tmpz00_9047;
if(
BGL_INT64P(BgL_nz00_5935))
{ /* Ieee/fixnum.scm 1476 */
BgL_tmpz00_9047 = BgL_nz00_5935
; }  else 
{ 
 obj_t BgL_auxz00_9050;
BgL_auxz00_9050 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75426L), BGl_string4563z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5935); 
FAILURE(BgL_auxz00_9050,BFALSE,BFALSE);} 
BgL_auxz00_9046 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9047); } 
BgL_tmpz00_9045 = 
BGl_int64zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9046); } 
return 
make_bllong(BgL_tmpz00_9045);} } 

}



/* uint64->llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_uint64zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_nz00_32)
{
{ /* Ieee/fixnum.scm 1477 */
return 
(BGL_LONGLONG_T)(BgL_nz00_32);} 

}



/* &uint64->llong */
obj_t BGl_z62uint64zd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5936, obj_t BgL_nz00_5937)
{
{ /* Ieee/fixnum.scm 1477 */
{ /* Ieee/fixnum.scm 1477 */
 BGL_LONGLONG_T BgL_tmpz00_9058;
{ /* Ieee/fixnum.scm 1477 */
 uint64_t BgL_auxz00_9059;
{ /* Ieee/fixnum.scm 1477 */
 obj_t BgL_tmpz00_9060;
if(
BGL_UINT64P(BgL_nz00_5937))
{ /* Ieee/fixnum.scm 1477 */
BgL_tmpz00_9060 = BgL_nz00_5937
; }  else 
{ 
 obj_t BgL_auxz00_9063;
BgL_auxz00_9063 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75478L), BGl_string4565z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5937); 
FAILURE(BgL_auxz00_9063,BFALSE,BFALSE);} 
BgL_auxz00_9059 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9060); } 
BgL_tmpz00_9058 = 
BGl_uint64zd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9059); } 
return 
make_bllong(BgL_tmpz00_9058);} } 

}



/* int64->elong */
BGL_EXPORTED_DEF long BGl_int64zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(int64_t BgL_nz00_33)
{
{ /* Ieee/fixnum.scm 1479 */
return 
(long)(BgL_nz00_33);} 

}



/* &int64->elong */
obj_t BGl_z62int64zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5938, obj_t BgL_nz00_5939)
{
{ /* Ieee/fixnum.scm 1479 */
{ /* Ieee/fixnum.scm 1479 */
 long BgL_tmpz00_9071;
{ /* Ieee/fixnum.scm 1479 */
 int64_t BgL_auxz00_9072;
{ /* Ieee/fixnum.scm 1479 */
 obj_t BgL_tmpz00_9073;
if(
BGL_INT64P(BgL_nz00_5939))
{ /* Ieee/fixnum.scm 1479 */
BgL_tmpz00_9073 = BgL_nz00_5939
; }  else 
{ 
 obj_t BgL_auxz00_9076;
BgL_auxz00_9076 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75531L), BGl_string4567z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5939); 
FAILURE(BgL_auxz00_9076,BFALSE,BFALSE);} 
BgL_auxz00_9072 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9073); } 
BgL_tmpz00_9071 = 
BGl_int64zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9072); } 
return 
make_belong(BgL_tmpz00_9071);} } 

}



/* uint64->elong */
BGL_EXPORTED_DEF long BGl_uint64zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_nz00_34)
{
{ /* Ieee/fixnum.scm 1480 */
return 
(long)(BgL_nz00_34);} 

}



/* &uint64->elong */
obj_t BGl_z62uint64zd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5940, obj_t BgL_nz00_5941)
{
{ /* Ieee/fixnum.scm 1480 */
{ /* Ieee/fixnum.scm 1480 */
 long BgL_tmpz00_9084;
{ /* Ieee/fixnum.scm 1480 */
 uint64_t BgL_auxz00_9085;
{ /* Ieee/fixnum.scm 1480 */
 obj_t BgL_tmpz00_9086;
if(
BGL_UINT64P(BgL_nz00_5941))
{ /* Ieee/fixnum.scm 1480 */
BgL_tmpz00_9086 = BgL_nz00_5941
; }  else 
{ 
 obj_t BgL_auxz00_9089;
BgL_auxz00_9089 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75583L), BGl_string4568z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5941); 
FAILURE(BgL_auxz00_9089,BFALSE,BFALSE);} 
BgL_auxz00_9085 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9086); } 
BgL_tmpz00_9084 = 
BGl_uint64zd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9085); } 
return 
make_belong(BgL_tmpz00_9084);} } 

}



/* uint64->uint32 */
BGL_EXPORTED_DEF uint32_t BGl_uint64zd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_nz00_35)
{
{ /* Ieee/fixnum.scm 1481 */
return 
(uint32_t)(BgL_nz00_35);} 

}



/* &uint64->uint32 */
obj_t BGl_z62uint64zd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5942, obj_t BgL_nz00_5943)
{
{ /* Ieee/fixnum.scm 1481 */
{ /* Ieee/fixnum.scm 1481 */
 uint32_t BgL_tmpz00_9097;
{ /* Ieee/fixnum.scm 1481 */
 uint64_t BgL_auxz00_9098;
{ /* Ieee/fixnum.scm 1481 */
 obj_t BgL_tmpz00_9099;
if(
BGL_UINT64P(BgL_nz00_5943))
{ /* Ieee/fixnum.scm 1481 */
BgL_tmpz00_9099 = BgL_nz00_5943
; }  else 
{ 
 obj_t BgL_auxz00_9102;
BgL_auxz00_9102 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75637L), BGl_string4569z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5943); 
FAILURE(BgL_auxz00_9102,BFALSE,BFALSE);} 
BgL_auxz00_9098 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9099); } 
BgL_tmpz00_9097 = 
BGl_uint64zd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9098); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_9097);} } 

}



/* uint8->int8 */
BGL_EXPORTED_DEF int8_t BGl_uint8zd2ze3int8z31zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_nz00_36)
{
{ /* Ieee/fixnum.scm 1483 */
return 
(int8_t)(BgL_nz00_36);} 

}



/* &uint8->int8 */
obj_t BGl_z62uint8zd2ze3int8z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5944, obj_t BgL_nz00_5945)
{
{ /* Ieee/fixnum.scm 1483 */
{ /* Ieee/fixnum.scm 1483 */
 int8_t BgL_tmpz00_9110;
{ /* Ieee/fixnum.scm 1483 */
 uint8_t BgL_auxz00_9111;
{ /* Ieee/fixnum.scm 1483 */
 obj_t BgL_tmpz00_9112;
if(
BGL_UINT8P(BgL_nz00_5945))
{ /* Ieee/fixnum.scm 1483 */
BgL_tmpz00_9112 = BgL_nz00_5945
; }  else 
{ 
 obj_t BgL_auxz00_9115;
BgL_auxz00_9115 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75690L), BGl_string4570z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5945); 
FAILURE(BgL_auxz00_9115,BFALSE,BFALSE);} 
BgL_auxz00_9111 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_9112); } 
BgL_tmpz00_9110 = 
BGl_uint8zd2ze3int8z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9111); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_9110);} } 

}



/* int8->uint8 */
BGL_EXPORTED_DEF uint8_t BGl_int8zd2ze3uint8z31zz__r4_numbers_6_5_fixnumz00(int8_t BgL_nz00_37)
{
{ /* Ieee/fixnum.scm 1484 */
return 
(uint8_t)(BgL_nz00_37);} 

}



/* &int8->uint8 */
obj_t BGl_z62int8zd2ze3uint8z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5946, obj_t BgL_nz00_5947)
{
{ /* Ieee/fixnum.scm 1484 */
{ /* Ieee/fixnum.scm 1484 */
 uint8_t BgL_tmpz00_9123;
{ /* Ieee/fixnum.scm 1484 */
 int8_t BgL_auxz00_9124;
{ /* Ieee/fixnum.scm 1484 */
 obj_t BgL_tmpz00_9125;
if(
BGL_INT8P(BgL_nz00_5947))
{ /* Ieee/fixnum.scm 1484 */
BgL_tmpz00_9125 = BgL_nz00_5947
; }  else 
{ 
 obj_t BgL_auxz00_9128;
BgL_auxz00_9128 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75739L), BGl_string4572z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5947); 
FAILURE(BgL_auxz00_9128,BFALSE,BFALSE);} 
BgL_auxz00_9124 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_9125); } 
BgL_tmpz00_9123 = 
BGl_int8zd2ze3uint8z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9124); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_9123);} } 

}



/* uint16->int16 */
BGL_EXPORTED_DEF int16_t BGl_uint16zd2ze3int16z31zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_nz00_38)
{
{ /* Ieee/fixnum.scm 1486 */
return 
(int16_t)(BgL_nz00_38);} 

}



/* &uint16->int16 */
obj_t BGl_z62uint16zd2ze3int16z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5948, obj_t BgL_nz00_5949)
{
{ /* Ieee/fixnum.scm 1486 */
{ /* Ieee/fixnum.scm 1486 */
 int16_t BgL_tmpz00_9136;
{ /* Ieee/fixnum.scm 1486 */
 uint16_t BgL_auxz00_9137;
{ /* Ieee/fixnum.scm 1486 */
 obj_t BgL_tmpz00_9138;
if(
BGL_UINT16P(BgL_nz00_5949))
{ /* Ieee/fixnum.scm 1486 */
BgL_tmpz00_9138 = BgL_nz00_5949
; }  else 
{ 
 obj_t BgL_auxz00_9141;
BgL_auxz00_9141 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75791L), BGl_string4574z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5949); 
FAILURE(BgL_auxz00_9141,BFALSE,BFALSE);} 
BgL_auxz00_9137 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_9138); } 
BgL_tmpz00_9136 = 
BGl_uint16zd2ze3int16z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9137); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_9136);} } 

}



/* int16->uint16 */
BGL_EXPORTED_DEF uint16_t BGl_int16zd2ze3uint16z31zz__r4_numbers_6_5_fixnumz00(int16_t BgL_nz00_39)
{
{ /* Ieee/fixnum.scm 1487 */
return 
(uint16_t)(BgL_nz00_39);} 

}



/* &int16->uint16 */
obj_t BGl_z62int16zd2ze3uint16z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5950, obj_t BgL_nz00_5951)
{
{ /* Ieee/fixnum.scm 1487 */
{ /* Ieee/fixnum.scm 1487 */
 uint16_t BgL_tmpz00_9149;
{ /* Ieee/fixnum.scm 1487 */
 int16_t BgL_auxz00_9150;
{ /* Ieee/fixnum.scm 1487 */
 obj_t BgL_tmpz00_9151;
if(
BGL_INT16P(BgL_nz00_5951))
{ /* Ieee/fixnum.scm 1487 */
BgL_tmpz00_9151 = BgL_nz00_5951
; }  else 
{ 
 obj_t BgL_auxz00_9154;
BgL_auxz00_9154 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75844L), BGl_string4576z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5951); 
FAILURE(BgL_auxz00_9154,BFALSE,BFALSE);} 
BgL_auxz00_9150 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_9151); } 
BgL_tmpz00_9149 = 
BGl_int16zd2ze3uint16z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9150); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_9149);} } 

}



/* uint32->int32 */
BGL_EXPORTED_DEF int32_t BGl_uint32zd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_nz00_40)
{
{ /* Ieee/fixnum.scm 1489 */
return 
(int32_t)(BgL_nz00_40);} 

}



/* &uint32->int32 */
obj_t BGl_z62uint32zd2ze3int32z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5952, obj_t BgL_nz00_5953)
{
{ /* Ieee/fixnum.scm 1489 */
{ /* Ieee/fixnum.scm 1489 */
 int32_t BgL_tmpz00_9162;
{ /* Ieee/fixnum.scm 1489 */
 uint32_t BgL_auxz00_9163;
{ /* Ieee/fixnum.scm 1489 */
 obj_t BgL_tmpz00_9164;
if(
BGL_UINT32P(BgL_nz00_5953))
{ /* Ieee/fixnum.scm 1489 */
BgL_tmpz00_9164 = BgL_nz00_5953
; }  else 
{ 
 obj_t BgL_auxz00_9167;
BgL_auxz00_9167 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75898L), BGl_string4578z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5953); 
FAILURE(BgL_auxz00_9167,BFALSE,BFALSE);} 
BgL_auxz00_9163 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_9164); } 
BgL_tmpz00_9162 = 
BGl_uint32zd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9163); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_9162);} } 

}



/* int32->uint32 */
BGL_EXPORTED_DEF uint32_t BGl_int32zd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(int32_t BgL_nz00_41)
{
{ /* Ieee/fixnum.scm 1490 */
return 
(uint32_t)(BgL_nz00_41);} 

}



/* &int32->uint32 */
obj_t BGl_z62int32zd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5954, obj_t BgL_nz00_5955)
{
{ /* Ieee/fixnum.scm 1490 */
{ /* Ieee/fixnum.scm 1490 */
 uint32_t BgL_tmpz00_9175;
{ /* Ieee/fixnum.scm 1490 */
 int32_t BgL_auxz00_9176;
{ /* Ieee/fixnum.scm 1490 */
 obj_t BgL_tmpz00_9177;
if(
BGL_INT32P(BgL_nz00_5955))
{ /* Ieee/fixnum.scm 1490 */
BgL_tmpz00_9177 = BgL_nz00_5955
; }  else 
{ 
 obj_t BgL_auxz00_9180;
BgL_auxz00_9180 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(75951L), BGl_string4579z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5955); 
FAILURE(BgL_auxz00_9180,BFALSE,BFALSE);} 
BgL_auxz00_9176 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_9177); } 
BgL_tmpz00_9175 = 
BGl_int32zd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9176); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_9175);} } 

}



/* uint64->int64 */
BGL_EXPORTED_DEF int64_t BGl_uint64zd2ze3int64z31zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_nz00_42)
{
{ /* Ieee/fixnum.scm 1492 */
return 
(int64_t)(BgL_nz00_42);} 

}



/* &uint64->int64 */
obj_t BGl_z62uint64zd2ze3int64z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5956, obj_t BgL_nz00_5957)
{
{ /* Ieee/fixnum.scm 1492 */
{ /* Ieee/fixnum.scm 1492 */
 int64_t BgL_tmpz00_9188;
{ /* Ieee/fixnum.scm 1492 */
 uint64_t BgL_auxz00_9189;
{ /* Ieee/fixnum.scm 1492 */
 obj_t BgL_tmpz00_9190;
if(
BGL_UINT64P(BgL_nz00_5957))
{ /* Ieee/fixnum.scm 1492 */
BgL_tmpz00_9190 = BgL_nz00_5957
; }  else 
{ 
 obj_t BgL_auxz00_9193;
BgL_auxz00_9193 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76005L), BGl_string4580z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5957); 
FAILURE(BgL_auxz00_9193,BFALSE,BFALSE);} 
BgL_auxz00_9189 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9190); } 
BgL_tmpz00_9188 = 
BGl_uint64zd2ze3int64z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9189); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_9188);} } 

}



/* int64->uint64 */
BGL_EXPORTED_DEF uint64_t BGl_int64zd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(int64_t BgL_nz00_43)
{
{ /* Ieee/fixnum.scm 1493 */
return 
(uint64_t)(BgL_nz00_43);} 

}



/* &int64->uint64 */
obj_t BGl_z62int64zd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5958, obj_t BgL_nz00_5959)
{
{ /* Ieee/fixnum.scm 1493 */
{ /* Ieee/fixnum.scm 1493 */
 uint64_t BgL_tmpz00_9201;
{ /* Ieee/fixnum.scm 1493 */
 int64_t BgL_auxz00_9202;
{ /* Ieee/fixnum.scm 1493 */
 obj_t BgL_tmpz00_9203;
if(
BGL_INT64P(BgL_nz00_5959))
{ /* Ieee/fixnum.scm 1493 */
BgL_tmpz00_9203 = BgL_nz00_5959
; }  else 
{ 
 obj_t BgL_auxz00_9206;
BgL_auxz00_9206 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76058L), BGl_string4581z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_5959); 
FAILURE(BgL_auxz00_9206,BFALSE,BFALSE);} 
BgL_auxz00_9202 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9203); } 
BgL_tmpz00_9201 = 
BGl_int64zd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9202); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_9201);} } 

}



/* fixnum->bignum */
BGL_EXPORTED_DEF obj_t BGl_fixnumzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_44)
{
{ /* Ieee/fixnum.scm 1495 */
BGL_TAIL return 
bgl_long_to_bignum(BgL_xz00_44);} 

}



/* &fixnum->bignum */
obj_t BGl_z62fixnumzd2ze3bignumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5960, obj_t BgL_xz00_5961)
{
{ /* Ieee/fixnum.scm 1495 */
{ /* Ieee/fixnum.scm 1495 */
 long BgL_auxz00_9214;
{ /* Ieee/fixnum.scm 1495 */
 obj_t BgL_tmpz00_9215;
if(
INTEGERP(BgL_xz00_5961))
{ /* Ieee/fixnum.scm 1495 */
BgL_tmpz00_9215 = BgL_xz00_5961
; }  else 
{ 
 obj_t BgL_auxz00_9218;
BgL_auxz00_9218 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76113L), BGl_string4582z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5961); 
FAILURE(BgL_auxz00_9218,BFALSE,BFALSE);} 
BgL_auxz00_9214 = 
(long)CINT(BgL_tmpz00_9215); } 
return 
BGl_fixnumzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9214);} } 

}



/* bignum->fixnum */
BGL_EXPORTED_DEF long BGl_bignumzd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_45)
{
{ /* Ieee/fixnum.scm 1496 */
BGL_TAIL return 
bgl_bignum_to_long(BgL_xz00_45);} 

}



/* &bignum->fixnum */
obj_t BGl_z62bignumzd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5962, obj_t BgL_xz00_5963)
{
{ /* Ieee/fixnum.scm 1496 */
{ /* Ieee/fixnum.scm 1496 */
 long BgL_tmpz00_9225;
{ /* Ieee/fixnum.scm 1496 */
 obj_t BgL_auxz00_9226;
if(
BIGNUMP(BgL_xz00_5963))
{ /* Ieee/fixnum.scm 1496 */
BgL_auxz00_9226 = BgL_xz00_5963
; }  else 
{ 
 obj_t BgL_auxz00_9229;
BgL_auxz00_9229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76168L), BGl_string4583z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5963); 
FAILURE(BgL_auxz00_9229,BFALSE,BFALSE);} 
BgL_tmpz00_9225 = 
BGl_bignumzd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9226); } 
return 
BINT(BgL_tmpz00_9225);} } 

}



/* bignum->elong */
BGL_EXPORTED_DEF long BGl_bignumzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_46)
{
{ /* Ieee/fixnum.scm 1498 */
BGL_TAIL return 
bgl_bignum_to_long(BgL_xz00_46);} 

}



/* &bignum->elong */
obj_t BGl_z62bignumzd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5964, obj_t BgL_xz00_5965)
{
{ /* Ieee/fixnum.scm 1498 */
{ /* Ieee/fixnum.scm 1498 */
 long BgL_tmpz00_9236;
{ /* Ieee/fixnum.scm 1498 */
 obj_t BgL_auxz00_9237;
if(
BIGNUMP(BgL_xz00_5965))
{ /* Ieee/fixnum.scm 1498 */
BgL_auxz00_9237 = BgL_xz00_5965
; }  else 
{ 
 obj_t BgL_auxz00_9240;
BgL_auxz00_9240 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76223L), BGl_string4585z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5965); 
FAILURE(BgL_auxz00_9240,BFALSE,BFALSE);} 
BgL_tmpz00_9236 = 
BGl_bignumzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9237); } 
return 
make_belong(BgL_tmpz00_9236);} } 

}



/* bignum->llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_bignumzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_47)
{
{ /* Ieee/fixnum.scm 1499 */
BGL_TAIL return 
bgl_bignum_to_llong(BgL_xz00_47);} 

}



/* &bignum->llong */
obj_t BGl_z62bignumzd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5966, obj_t BgL_xz00_5967)
{
{ /* Ieee/fixnum.scm 1499 */
{ /* Ieee/fixnum.scm 1499 */
 BGL_LONGLONG_T BgL_tmpz00_9247;
{ /* Ieee/fixnum.scm 1499 */
 obj_t BgL_auxz00_9248;
if(
BIGNUMP(BgL_xz00_5967))
{ /* Ieee/fixnum.scm 1499 */
BgL_auxz00_9248 = BgL_xz00_5967
; }  else 
{ 
 obj_t BgL_auxz00_9251;
BgL_auxz00_9251 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76276L), BGl_string4586z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5967); 
FAILURE(BgL_auxz00_9251,BFALSE,BFALSE);} 
BgL_tmpz00_9247 = 
BGl_bignumzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9248); } 
return 
make_bllong(BgL_tmpz00_9247);} } 

}



/* elong->bignum */
BGL_EXPORTED_DEF obj_t BGl_elongzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_48)
{
{ /* Ieee/fixnum.scm 1501 */
BGL_TAIL return 
bgl_long_to_bignum(BgL_xz00_48);} 

}



/* &elong->bignum */
obj_t BGl_z62elongzd2ze3bignumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5968, obj_t BgL_xz00_5969)
{
{ /* Ieee/fixnum.scm 1501 */
{ /* Ieee/fixnum.scm 1501 */
 long BgL_auxz00_9258;
{ /* Ieee/fixnum.scm 1501 */
 obj_t BgL_tmpz00_9259;
if(
ELONGP(BgL_xz00_5969))
{ /* Ieee/fixnum.scm 1501 */
BgL_tmpz00_9259 = BgL_xz00_5969
; }  else 
{ 
 obj_t BgL_auxz00_9262;
BgL_auxz00_9262 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76330L), BGl_string4587z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5969); 
FAILURE(BgL_auxz00_9262,BFALSE,BFALSE);} 
BgL_auxz00_9258 = 
BELONG_TO_LONG(BgL_tmpz00_9259); } 
return 
BGl_elongzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9258);} } 

}



/* llong->bignum */
BGL_EXPORTED_DEF obj_t BGl_llongzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_xz00_49)
{
{ /* Ieee/fixnum.scm 1502 */
BGL_TAIL return 
bgl_llong_to_bignum(BgL_xz00_49);} 

}



/* &llong->bignum */
obj_t BGl_z62llongzd2ze3bignumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5970, obj_t BgL_xz00_5971)
{
{ /* Ieee/fixnum.scm 1502 */
{ /* Ieee/fixnum.scm 1502 */
 BGL_LONGLONG_T BgL_auxz00_9269;
{ /* Ieee/fixnum.scm 1502 */
 obj_t BgL_tmpz00_9270;
if(
LLONGP(BgL_xz00_5971))
{ /* Ieee/fixnum.scm 1502 */
BgL_tmpz00_9270 = BgL_xz00_5971
; }  else 
{ 
 obj_t BgL_auxz00_9273;
BgL_auxz00_9273 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76383L), BGl_string4588z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5971); 
FAILURE(BgL_auxz00_9273,BFALSE,BFALSE);} 
BgL_auxz00_9269 = 
BLLONG_TO_LLONG(BgL_tmpz00_9270); } 
return 
BGl_llongzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9269);} } 

}



/* fixnum->int8 */
BGL_EXPORTED_DEF int8_t BGl_fixnumzd2ze3int8z31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_50)
{
{ /* Ieee/fixnum.scm 1507 */
return 
(int8_t)(BgL_xz00_50);} 

}



/* &fixnum->int8 */
obj_t BGl_z62fixnumzd2ze3int8z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5972, obj_t BgL_xz00_5973)
{
{ /* Ieee/fixnum.scm 1507 */
{ /* Ieee/fixnum.scm 1507 */
 int8_t BgL_tmpz00_9280;
{ /* Ieee/fixnum.scm 1507 */
 long BgL_auxz00_9281;
{ /* Ieee/fixnum.scm 1507 */
 obj_t BgL_tmpz00_9282;
if(
INTEGERP(BgL_xz00_5973))
{ /* Ieee/fixnum.scm 1507 */
BgL_tmpz00_9282 = BgL_xz00_5973
; }  else 
{ 
 obj_t BgL_auxz00_9285;
BgL_auxz00_9285 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76658L), BGl_string4589z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5973); 
FAILURE(BgL_auxz00_9285,BFALSE,BFALSE);} 
BgL_auxz00_9281 = 
(long)CINT(BgL_tmpz00_9282); } 
BgL_tmpz00_9280 = 
BGl_fixnumzd2ze3int8z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9281); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_9280);} } 

}



/* fixnum->uint8 */
BGL_EXPORTED_DEF uint8_t BGl_fixnumzd2ze3uint8z31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_51)
{
{ /* Ieee/fixnum.scm 1508 */
return 
(uint8_t)(BgL_xz00_51);} 

}



/* &fixnum->uint8 */
obj_t BGl_z62fixnumzd2ze3uint8z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5974, obj_t BgL_xz00_5975)
{
{ /* Ieee/fixnum.scm 1508 */
{ /* Ieee/fixnum.scm 1508 */
 uint8_t BgL_tmpz00_9293;
{ /* Ieee/fixnum.scm 1508 */
 long BgL_auxz00_9294;
{ /* Ieee/fixnum.scm 1508 */
 obj_t BgL_tmpz00_9295;
if(
INTEGERP(BgL_xz00_5975))
{ /* Ieee/fixnum.scm 1508 */
BgL_tmpz00_9295 = BgL_xz00_5975
; }  else 
{ 
 obj_t BgL_auxz00_9298;
BgL_auxz00_9298 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76708L), BGl_string4590z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5975); 
FAILURE(BgL_auxz00_9298,BFALSE,BFALSE);} 
BgL_auxz00_9294 = 
(long)CINT(BgL_tmpz00_9295); } 
BgL_tmpz00_9293 = 
BGl_fixnumzd2ze3uint8z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9294); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_9293);} } 

}



/* int8->fixnum */
BGL_EXPORTED_DEF long BGl_int8zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(int8_t BgL_xz00_52)
{
{ /* Ieee/fixnum.scm 1509 */
{ /* Ieee/fixnum.scm 1509 */
 long BgL_arg1223z00_8654;
BgL_arg1223z00_8654 = 
(long)(BgL_xz00_52); 
return 
(long)(BgL_arg1223z00_8654);} } 

}



/* &int8->fixnum */
obj_t BGl_z62int8zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5976, obj_t BgL_xz00_5977)
{
{ /* Ieee/fixnum.scm 1509 */
{ /* Ieee/fixnum.scm 1509 */
 long BgL_tmpz00_9307;
{ /* Ieee/fixnum.scm 1509 */
 int8_t BgL_auxz00_9308;
{ /* Ieee/fixnum.scm 1509 */
 obj_t BgL_tmpz00_9309;
if(
BGL_INT8P(BgL_xz00_5977))
{ /* Ieee/fixnum.scm 1509 */
BgL_tmpz00_9309 = BgL_xz00_5977
; }  else 
{ 
 obj_t BgL_auxz00_9312;
BgL_auxz00_9312 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76773L), BGl_string4591z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5977); 
FAILURE(BgL_auxz00_9312,BFALSE,BFALSE);} 
BgL_auxz00_9308 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_9309); } 
BgL_tmpz00_9307 = 
BGl_int8zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9308); } 
return 
BINT(BgL_tmpz00_9307);} } 

}



/* uint8->fixnum */
BGL_EXPORTED_DEF long BGl_uint8zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_xz00_53)
{
{ /* Ieee/fixnum.scm 1510 */
{ /* Ieee/fixnum.scm 1510 */
 long BgL_arg1224z00_8655;
BgL_arg1224z00_8655 = 
(long)(BgL_xz00_53); 
return 
(long)(BgL_arg1224z00_8655);} } 

}



/* &uint8->fixnum */
obj_t BGl_z62uint8zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5978, obj_t BgL_xz00_5979)
{
{ /* Ieee/fixnum.scm 1510 */
{ /* Ieee/fixnum.scm 1510 */
 long BgL_tmpz00_9321;
{ /* Ieee/fixnum.scm 1510 */
 uint8_t BgL_auxz00_9322;
{ /* Ieee/fixnum.scm 1510 */
 obj_t BgL_tmpz00_9323;
if(
BGL_UINT8P(BgL_xz00_5979))
{ /* Ieee/fixnum.scm 1510 */
BgL_tmpz00_9323 = BgL_xz00_5979
; }  else 
{ 
 obj_t BgL_auxz00_9326;
BgL_auxz00_9326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76840L), BGl_string4592z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5979); 
FAILURE(BgL_auxz00_9326,BFALSE,BFALSE);} 
BgL_auxz00_9322 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_9323); } 
BgL_tmpz00_9321 = 
BGl_uint8zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9322); } 
return 
BINT(BgL_tmpz00_9321);} } 

}



/* fixnum->int16 */
BGL_EXPORTED_DEF int16_t BGl_fixnumzd2ze3int16z31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_54)
{
{ /* Ieee/fixnum.scm 1512 */
return 
(int16_t)(BgL_xz00_54);} 

}



/* &fixnum->int16 */
obj_t BGl_z62fixnumzd2ze3int16z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5980, obj_t BgL_xz00_5981)
{
{ /* Ieee/fixnum.scm 1512 */
{ /* Ieee/fixnum.scm 1512 */
 int16_t BgL_tmpz00_9334;
{ /* Ieee/fixnum.scm 1512 */
 long BgL_auxz00_9335;
{ /* Ieee/fixnum.scm 1512 */
 obj_t BgL_tmpz00_9336;
if(
INTEGERP(BgL_xz00_5981))
{ /* Ieee/fixnum.scm 1512 */
BgL_tmpz00_9336 = BgL_xz00_5981
; }  else 
{ 
 obj_t BgL_auxz00_9339;
BgL_auxz00_9339 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76894L), BGl_string4593z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5981); 
FAILURE(BgL_auxz00_9339,BFALSE,BFALSE);} 
BgL_auxz00_9335 = 
(long)CINT(BgL_tmpz00_9336); } 
BgL_tmpz00_9334 = 
BGl_fixnumzd2ze3int16z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9335); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_9334);} } 

}



/* fixnum->uint16 */
BGL_EXPORTED_DEF uint16_t BGl_fixnumzd2ze3uint16z31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_55)
{
{ /* Ieee/fixnum.scm 1513 */
return 
(uint16_t)(BgL_xz00_55);} 

}



/* &fixnum->uint16 */
obj_t BGl_z62fixnumzd2ze3uint16z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5982, obj_t BgL_xz00_5983)
{
{ /* Ieee/fixnum.scm 1513 */
{ /* Ieee/fixnum.scm 1513 */
 uint16_t BgL_tmpz00_9347;
{ /* Ieee/fixnum.scm 1513 */
 long BgL_auxz00_9348;
{ /* Ieee/fixnum.scm 1513 */
 obj_t BgL_tmpz00_9349;
if(
INTEGERP(BgL_xz00_5983))
{ /* Ieee/fixnum.scm 1513 */
BgL_tmpz00_9349 = BgL_xz00_5983
; }  else 
{ 
 obj_t BgL_auxz00_9352;
BgL_auxz00_9352 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(76946L), BGl_string4594z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5983); 
FAILURE(BgL_auxz00_9352,BFALSE,BFALSE);} 
BgL_auxz00_9348 = 
(long)CINT(BgL_tmpz00_9349); } 
BgL_tmpz00_9347 = 
BGl_fixnumzd2ze3uint16z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9348); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_9347);} } 

}



/* int16->fixnum */
BGL_EXPORTED_DEF long BGl_int16zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(int16_t BgL_xz00_56)
{
{ /* Ieee/fixnum.scm 1514 */
{ /* Ieee/fixnum.scm 1514 */
 long BgL_arg1225z00_8656;
BgL_arg1225z00_8656 = 
(long)(BgL_xz00_56); 
return 
(long)(BgL_arg1225z00_8656);} } 

}



/* &int16->fixnum */
obj_t BGl_z62int16zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5984, obj_t BgL_xz00_5985)
{
{ /* Ieee/fixnum.scm 1514 */
{ /* Ieee/fixnum.scm 1514 */
 long BgL_tmpz00_9361;
{ /* Ieee/fixnum.scm 1514 */
 int16_t BgL_auxz00_9362;
{ /* Ieee/fixnum.scm 1514 */
 obj_t BgL_tmpz00_9363;
if(
BGL_INT16P(BgL_xz00_5985))
{ /* Ieee/fixnum.scm 1514 */
BgL_tmpz00_9363 = BgL_xz00_5985
; }  else 
{ 
 obj_t BgL_auxz00_9366;
BgL_auxz00_9366 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77013L), BGl_string4595z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5985); 
FAILURE(BgL_auxz00_9366,BFALSE,BFALSE);} 
BgL_auxz00_9362 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_9363); } 
BgL_tmpz00_9361 = 
BGl_int16zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9362); } 
return 
BINT(BgL_tmpz00_9361);} } 

}



/* uint16->fixnum */
BGL_EXPORTED_DEF long BGl_uint16zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_xz00_57)
{
{ /* Ieee/fixnum.scm 1515 */
{ /* Ieee/fixnum.scm 1515 */
 long BgL_arg1226z00_8657;
BgL_arg1226z00_8657 = 
(long)(BgL_xz00_57); 
return 
(long)(BgL_arg1226z00_8657);} } 

}



/* &uint16->fixnum */
obj_t BGl_z62uint16zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5986, obj_t BgL_xz00_5987)
{
{ /* Ieee/fixnum.scm 1515 */
{ /* Ieee/fixnum.scm 1515 */
 long BgL_tmpz00_9375;
{ /* Ieee/fixnum.scm 1515 */
 uint16_t BgL_auxz00_9376;
{ /* Ieee/fixnum.scm 1515 */
 obj_t BgL_tmpz00_9377;
if(
BGL_UINT16P(BgL_xz00_5987))
{ /* Ieee/fixnum.scm 1515 */
BgL_tmpz00_9377 = BgL_xz00_5987
; }  else 
{ 
 obj_t BgL_auxz00_9380;
BgL_auxz00_9380 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77082L), BGl_string4596z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5987); 
FAILURE(BgL_auxz00_9380,BFALSE,BFALSE);} 
BgL_auxz00_9376 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_9377); } 
BgL_tmpz00_9375 = 
BGl_uint16zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9376); } 
return 
BINT(BgL_tmpz00_9375);} } 

}



/* fixnum->int32 */
BGL_EXPORTED_DEF int32_t BGl_fixnumzd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_58)
{
{ /* Ieee/fixnum.scm 1517 */
return 
(int32_t)(BgL_xz00_58);} 

}



/* &fixnum->int32 */
obj_t BGl_z62fixnumzd2ze3int32z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5988, obj_t BgL_xz00_5989)
{
{ /* Ieee/fixnum.scm 1517 */
{ /* Ieee/fixnum.scm 1517 */
 int32_t BgL_tmpz00_9388;
{ /* Ieee/fixnum.scm 1517 */
 long BgL_auxz00_9389;
{ /* Ieee/fixnum.scm 1517 */
 obj_t BgL_tmpz00_9390;
if(
INTEGERP(BgL_xz00_5989))
{ /* Ieee/fixnum.scm 1517 */
BgL_tmpz00_9390 = BgL_xz00_5989
; }  else 
{ 
 obj_t BgL_auxz00_9393;
BgL_auxz00_9393 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77137L), BGl_string4597z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5989); 
FAILURE(BgL_auxz00_9393,BFALSE,BFALSE);} 
BgL_auxz00_9389 = 
(long)CINT(BgL_tmpz00_9390); } 
BgL_tmpz00_9388 = 
BGl_fixnumzd2ze3int32z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9389); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_9388);} } 

}



/* fixnum->uint32 */
BGL_EXPORTED_DEF uint32_t BGl_fixnumzd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_59)
{
{ /* Ieee/fixnum.scm 1518 */
return 
(uint32_t)(BgL_xz00_59);} 

}



/* &fixnum->uint32 */
obj_t BGl_z62fixnumzd2ze3uint32z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5990, obj_t BgL_xz00_5991)
{
{ /* Ieee/fixnum.scm 1518 */
{ /* Ieee/fixnum.scm 1518 */
 uint32_t BgL_tmpz00_9401;
{ /* Ieee/fixnum.scm 1518 */
 long BgL_auxz00_9402;
{ /* Ieee/fixnum.scm 1518 */
 obj_t BgL_tmpz00_9403;
if(
INTEGERP(BgL_xz00_5991))
{ /* Ieee/fixnum.scm 1518 */
BgL_tmpz00_9403 = BgL_xz00_5991
; }  else 
{ 
 obj_t BgL_auxz00_9406;
BgL_auxz00_9406 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77189L), BGl_string4598z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5991); 
FAILURE(BgL_auxz00_9406,BFALSE,BFALSE);} 
BgL_auxz00_9402 = 
(long)CINT(BgL_tmpz00_9403); } 
BgL_tmpz00_9401 = 
BGl_fixnumzd2ze3uint32z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9402); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_9401);} } 

}



/* int32->fixnum */
BGL_EXPORTED_DEF long BGl_int32zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(int32_t BgL_xz00_60)
{
{ /* Ieee/fixnum.scm 1519 */
{ /* Ieee/fixnum.scm 1519 */
 long BgL_arg1228z00_8658;
BgL_arg1228z00_8658 = 
(long)(BgL_xz00_60); 
return 
(long)(BgL_arg1228z00_8658);} } 

}



/* &int32->fixnum */
obj_t BGl_z62int32zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5992, obj_t BgL_xz00_5993)
{
{ /* Ieee/fixnum.scm 1519 */
{ /* Ieee/fixnum.scm 1519 */
 long BgL_tmpz00_9415;
{ /* Ieee/fixnum.scm 1519 */
 int32_t BgL_auxz00_9416;
{ /* Ieee/fixnum.scm 1519 */
 obj_t BgL_tmpz00_9417;
if(
BGL_INT32P(BgL_xz00_5993))
{ /* Ieee/fixnum.scm 1519 */
BgL_tmpz00_9417 = BgL_xz00_5993
; }  else 
{ 
 obj_t BgL_auxz00_9420;
BgL_auxz00_9420 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77256L), BGl_string4599z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5993); 
FAILURE(BgL_auxz00_9420,BFALSE,BFALSE);} 
BgL_auxz00_9416 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_9417); } 
BgL_tmpz00_9415 = 
BGl_int32zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9416); } 
return 
BINT(BgL_tmpz00_9415);} } 

}



/* uint32->fixnum */
BGL_EXPORTED_DEF long BGl_uint32zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_xz00_61)
{
{ /* Ieee/fixnum.scm 1520 */
return 
(long)(BgL_xz00_61);} 

}



/* &uint32->fixnum */
obj_t BGl_z62uint32zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5994, obj_t BgL_xz00_5995)
{
{ /* Ieee/fixnum.scm 1520 */
{ /* Ieee/fixnum.scm 1520 */
 long BgL_tmpz00_9428;
{ /* Ieee/fixnum.scm 1520 */
 uint32_t BgL_auxz00_9429;
{ /* Ieee/fixnum.scm 1520 */
 obj_t BgL_tmpz00_9430;
if(
BGL_UINT32P(BgL_xz00_5995))
{ /* Ieee/fixnum.scm 1520 */
BgL_tmpz00_9430 = BgL_xz00_5995
; }  else 
{ 
 obj_t BgL_auxz00_9433;
BgL_auxz00_9433 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77310L), BGl_string4600z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5995); 
FAILURE(BgL_auxz00_9433,BFALSE,BFALSE);} 
BgL_auxz00_9429 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_9430); } 
BgL_tmpz00_9428 = 
BGl_uint32zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9429); } 
return 
BINT(BgL_tmpz00_9428);} } 

}



/* fixnum->int64 */
BGL_EXPORTED_DEF int64_t BGl_fixnumzd2ze3int64z31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_62)
{
{ /* Ieee/fixnum.scm 1522 */
return 
(int64_t)(BgL_xz00_62);} 

}



/* &fixnum->int64 */
obj_t BGl_z62fixnumzd2ze3int64z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5996, obj_t BgL_xz00_5997)
{
{ /* Ieee/fixnum.scm 1522 */
{ /* Ieee/fixnum.scm 1522 */
 int64_t BgL_tmpz00_9441;
{ /* Ieee/fixnum.scm 1522 */
 long BgL_auxz00_9442;
{ /* Ieee/fixnum.scm 1522 */
 obj_t BgL_tmpz00_9443;
if(
INTEGERP(BgL_xz00_5997))
{ /* Ieee/fixnum.scm 1522 */
BgL_tmpz00_9443 = BgL_xz00_5997
; }  else 
{ 
 obj_t BgL_auxz00_9446;
BgL_auxz00_9446 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77363L), BGl_string4601z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5997); 
FAILURE(BgL_auxz00_9446,BFALSE,BFALSE);} 
BgL_auxz00_9442 = 
(long)CINT(BgL_tmpz00_9443); } 
BgL_tmpz00_9441 = 
BGl_fixnumzd2ze3int64z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9442); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_9441);} } 

}



/* fixnum->uint64 */
BGL_EXPORTED_DEF uint64_t BGl_fixnumzd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_63)
{
{ /* Ieee/fixnum.scm 1523 */
return 
(uint64_t)(BgL_xz00_63);} 

}



/* &fixnum->uint64 */
obj_t BGl_z62fixnumzd2ze3uint64z53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_5998, obj_t BgL_xz00_5999)
{
{ /* Ieee/fixnum.scm 1523 */
{ /* Ieee/fixnum.scm 1523 */
 uint64_t BgL_tmpz00_9454;
{ /* Ieee/fixnum.scm 1523 */
 long BgL_auxz00_9455;
{ /* Ieee/fixnum.scm 1523 */
 obj_t BgL_tmpz00_9456;
if(
INTEGERP(BgL_xz00_5999))
{ /* Ieee/fixnum.scm 1523 */
BgL_tmpz00_9456 = BgL_xz00_5999
; }  else 
{ 
 obj_t BgL_auxz00_9459;
BgL_auxz00_9459 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77415L), BGl_string4602z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_5999); 
FAILURE(BgL_auxz00_9459,BFALSE,BFALSE);} 
BgL_auxz00_9455 = 
(long)CINT(BgL_tmpz00_9456); } 
BgL_tmpz00_9454 = 
BGl_fixnumzd2ze3uint64z31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9455); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_9454);} } 

}



/* int64->fixnum */
BGL_EXPORTED_DEF long BGl_int64zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(int64_t BgL_xz00_64)
{
{ /* Ieee/fixnum.scm 1524 */
{ /* Ieee/fixnum.scm 1524 */
 long BgL_arg1232z00_8659;
BgL_arg1232z00_8659 = 
(long)(BgL_xz00_64); 
return 
(long)(BgL_arg1232z00_8659);} } 

}



/* &int64->fixnum */
obj_t BGl_z62int64zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6000, obj_t BgL_xz00_6001)
{
{ /* Ieee/fixnum.scm 1524 */
{ /* Ieee/fixnum.scm 1524 */
 long BgL_tmpz00_9468;
{ /* Ieee/fixnum.scm 1524 */
 int64_t BgL_auxz00_9469;
{ /* Ieee/fixnum.scm 1524 */
 obj_t BgL_tmpz00_9470;
if(
BGL_INT64P(BgL_xz00_6001))
{ /* Ieee/fixnum.scm 1524 */
BgL_tmpz00_9470 = BgL_xz00_6001
; }  else 
{ 
 obj_t BgL_auxz00_9473;
BgL_auxz00_9473 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77482L), BGl_string4603z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6001); 
FAILURE(BgL_auxz00_9473,BFALSE,BFALSE);} 
BgL_auxz00_9469 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9470); } 
BgL_tmpz00_9468 = 
BGl_int64zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9469); } 
return 
BINT(BgL_tmpz00_9468);} } 

}



/* uint64->fixnum */
BGL_EXPORTED_DEF long BGl_uint64zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_xz00_65)
{
{ /* Ieee/fixnum.scm 1525 */
{ /* Ieee/fixnum.scm 1525 */
 long BgL_arg1233z00_8660;
BgL_arg1233z00_8660 = 
(long)(BgL_xz00_65); 
return 
(long)(BgL_arg1233z00_8660);} } 

}



/* &uint64->fixnum */
obj_t BGl_z62uint64zd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6002, obj_t BgL_xz00_6003)
{
{ /* Ieee/fixnum.scm 1525 */
{ /* Ieee/fixnum.scm 1525 */
 long BgL_tmpz00_9482;
{ /* Ieee/fixnum.scm 1525 */
 uint64_t BgL_auxz00_9483;
{ /* Ieee/fixnum.scm 1525 */
 obj_t BgL_tmpz00_9484;
if(
BGL_UINT64P(BgL_xz00_6003))
{ /* Ieee/fixnum.scm 1525 */
BgL_tmpz00_9484 = BgL_xz00_6003
; }  else 
{ 
 obj_t BgL_auxz00_9487;
BgL_auxz00_9487 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77551L), BGl_string4604z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6003); 
FAILURE(BgL_auxz00_9487,BFALSE,BFALSE);} 
BgL_auxz00_9483 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9484); } 
BgL_tmpz00_9482 = 
BGl_uint64zd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9483); } 
return 
BINT(BgL_tmpz00_9482);} } 

}



/* fixnum->byte */
BGL_EXPORTED_DEF char BGl_fixnumzd2ze3bytez31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_66)
{
{ /* Ieee/fixnum.scm 1530 */
return 
(signed char)(BgL_xz00_66);} 

}



/* &fixnum->byte */
obj_t BGl_z62fixnumzd2ze3bytez53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6004, obj_t BgL_xz00_6005)
{
{ /* Ieee/fixnum.scm 1530 */
{ /* Ieee/fixnum.scm 1530 */
 char BgL_tmpz00_9495;
{ /* Ieee/fixnum.scm 1530 */
 long BgL_auxz00_9496;
{ /* Ieee/fixnum.scm 1530 */
 obj_t BgL_tmpz00_9497;
if(
INTEGERP(BgL_xz00_6005))
{ /* Ieee/fixnum.scm 1530 */
BgL_tmpz00_9497 = BgL_xz00_6005
; }  else 
{ 
 obj_t BgL_auxz00_9500;
BgL_auxz00_9500 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77827L), BGl_string4605z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6005); 
FAILURE(BgL_auxz00_9500,BFALSE,BFALSE);} 
BgL_auxz00_9496 = 
(long)CINT(BgL_tmpz00_9497); } 
BgL_tmpz00_9495 = 
BGl_fixnumzd2ze3bytez31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9496); } 
return 
BINT(BgL_tmpz00_9495);} } 

}



/* fixnum->ubyte */
BGL_EXPORTED_DEF unsigned char BGl_fixnumzd2ze3ubytez31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_67)
{
{ /* Ieee/fixnum.scm 1531 */
return 
(unsigned char)(BgL_xz00_67);} 

}



/* &fixnum->ubyte */
obj_t BGl_z62fixnumzd2ze3ubytez53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6006, obj_t BgL_xz00_6007)
{
{ /* Ieee/fixnum.scm 1531 */
{ /* Ieee/fixnum.scm 1531 */
 unsigned char BgL_tmpz00_9508;
{ /* Ieee/fixnum.scm 1531 */
 long BgL_auxz00_9509;
{ /* Ieee/fixnum.scm 1531 */
 obj_t BgL_tmpz00_9510;
if(
INTEGERP(BgL_xz00_6007))
{ /* Ieee/fixnum.scm 1531 */
BgL_tmpz00_9510 = BgL_xz00_6007
; }  else 
{ 
 obj_t BgL_auxz00_9513;
BgL_auxz00_9513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77877L), BGl_string4606z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6007); 
FAILURE(BgL_auxz00_9513,BFALSE,BFALSE);} 
BgL_auxz00_9509 = 
(long)CINT(BgL_tmpz00_9510); } 
BgL_tmpz00_9508 = 
BGl_fixnumzd2ze3ubytez31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9509); } 
return 
BINT(BgL_tmpz00_9508);} } 

}



/* byte->fixnum */
BGL_EXPORTED_DEF long BGl_bytezd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(char BgL_xz00_68)
{
{ /* Ieee/fixnum.scm 1532 */
return 
(long)(BgL_xz00_68);} 

}



/* &byte->fixnum */
obj_t BGl_z62bytezd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6008, obj_t BgL_xz00_6009)
{
{ /* Ieee/fixnum.scm 1532 */
{ /* Ieee/fixnum.scm 1532 */
 long BgL_tmpz00_9521;
{ /* Ieee/fixnum.scm 1532 */
 char BgL_auxz00_9522;
{ /* Ieee/fixnum.scm 1532 */
 obj_t BgL_tmpz00_9523;
if(
INTEGERP(BgL_xz00_6009))
{ /* Ieee/fixnum.scm 1532 */
BgL_tmpz00_9523 = BgL_xz00_6009
; }  else 
{ 
 obj_t BgL_auxz00_9526;
BgL_auxz00_9526 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77927L), BGl_string4607z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6009); 
FAILURE(BgL_auxz00_9526,BFALSE,BFALSE);} 
BgL_auxz00_9522 = 
(signed char)CINT(BgL_tmpz00_9523); } 
BgL_tmpz00_9521 = 
BGl_bytezd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9522); } 
return 
BINT(BgL_tmpz00_9521);} } 

}



/* ubyte->fixnum */
BGL_EXPORTED_DEF long BGl_ubytezd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(char BgL_xz00_69)
{
{ /* Ieee/fixnum.scm 1533 */
return 
(long)(
(unsigned char)(BgL_xz00_69));} 

}



/* &ubyte->fixnum */
obj_t BGl_z62ubytezd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6010, obj_t BgL_xz00_6011)
{
{ /* Ieee/fixnum.scm 1533 */
{ /* Ieee/fixnum.scm 1533 */
 long BgL_tmpz00_9535;
{ /* Ieee/fixnum.scm 1533 */
 char BgL_auxz00_9536;
{ /* Ieee/fixnum.scm 1533 */
 obj_t BgL_tmpz00_9537;
if(
INTEGERP(BgL_xz00_6011))
{ /* Ieee/fixnum.scm 1533 */
BgL_tmpz00_9537 = BgL_xz00_6011
; }  else 
{ 
 obj_t BgL_auxz00_9540;
BgL_auxz00_9540 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(77977L), BGl_string4608z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6011); 
FAILURE(BgL_auxz00_9540,BFALSE,BFALSE);} 
BgL_auxz00_9536 = 
(signed char)CINT(BgL_tmpz00_9537); } 
BgL_tmpz00_9535 = 
BGl_ubytezd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9536); } 
return 
BINT(BgL_tmpz00_9535);} } 

}



/* fixnum->elong */
BGL_EXPORTED_DEF long BGl_fixnumzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_70)
{
{ /* Ieee/fixnum.scm 1535 */
return 
(long)(BgL_xz00_70);} 

}



/* &fixnum->elong */
obj_t BGl_z62fixnumzd2ze3elongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6012, obj_t BgL_xz00_6013)
{
{ /* Ieee/fixnum.scm 1535 */
{ /* Ieee/fixnum.scm 1535 */
 long BgL_tmpz00_9548;
{ /* Ieee/fixnum.scm 1535 */
 long BgL_auxz00_9549;
{ /* Ieee/fixnum.scm 1535 */
 obj_t BgL_tmpz00_9550;
if(
INTEGERP(BgL_xz00_6013))
{ /* Ieee/fixnum.scm 1535 */
BgL_tmpz00_9550 = BgL_xz00_6013
; }  else 
{ 
 obj_t BgL_auxz00_9553;
BgL_auxz00_9553 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(78029L), BGl_string4609z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6013); 
FAILURE(BgL_auxz00_9553,BFALSE,BFALSE);} 
BgL_auxz00_9549 = 
(long)CINT(BgL_tmpz00_9550); } 
BgL_tmpz00_9548 = 
BGl_fixnumzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9549); } 
return 
make_belong(BgL_tmpz00_9548);} } 

}



/* elong->fixnum */
BGL_EXPORTED_DEF long BGl_elongzd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_71)
{
{ /* Ieee/fixnum.scm 1536 */
return 
(long)(BgL_xz00_71);} 

}



/* &elong->fixnum */
obj_t BGl_z62elongzd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6014, obj_t BgL_xz00_6015)
{
{ /* Ieee/fixnum.scm 1536 */
{ /* Ieee/fixnum.scm 1536 */
 long BgL_tmpz00_9561;
{ /* Ieee/fixnum.scm 1536 */
 long BgL_auxz00_9562;
{ /* Ieee/fixnum.scm 1536 */
 obj_t BgL_tmpz00_9563;
if(
ELONGP(BgL_xz00_6015))
{ /* Ieee/fixnum.scm 1536 */
BgL_tmpz00_9563 = BgL_xz00_6015
; }  else 
{ 
 obj_t BgL_auxz00_9566;
BgL_auxz00_9566 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(78080L), BGl_string4610z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6015); 
FAILURE(BgL_auxz00_9566,BFALSE,BFALSE);} 
BgL_auxz00_9562 = 
BELONG_TO_LONG(BgL_tmpz00_9563); } 
BgL_tmpz00_9561 = 
BGl_elongzd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9562); } 
return 
BINT(BgL_tmpz00_9561);} } 

}



/* fixnum->llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_fixnumzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_72)
{
{ /* Ieee/fixnum.scm 1538 */
return 
LONG_TO_LLONG(BgL_xz00_72);} 

}



/* &fixnum->llong */
obj_t BGl_z62fixnumzd2ze3llongz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6016, obj_t BgL_xz00_6017)
{
{ /* Ieee/fixnum.scm 1538 */
{ /* Ieee/fixnum.scm 1538 */
 BGL_LONGLONG_T BgL_tmpz00_9574;
{ /* Ieee/fixnum.scm 1538 */
 long BgL_auxz00_9575;
{ /* Ieee/fixnum.scm 1538 */
 obj_t BgL_tmpz00_9576;
if(
INTEGERP(BgL_xz00_6017))
{ /* Ieee/fixnum.scm 1538 */
BgL_tmpz00_9576 = BgL_xz00_6017
; }  else 
{ 
 obj_t BgL_auxz00_9579;
BgL_auxz00_9579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(78141L), BGl_string4611z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6017); 
FAILURE(BgL_auxz00_9579,BFALSE,BFALSE);} 
BgL_auxz00_9575 = 
(long)CINT(BgL_tmpz00_9576); } 
BgL_tmpz00_9574 = 
BGl_fixnumzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9575); } 
return 
make_bllong(BgL_tmpz00_9574);} } 

}



/* llong->fixnum */
BGL_EXPORTED_DEF long BGl_llongzd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_xz00_73)
{
{ /* Ieee/fixnum.scm 1539 */
return 
LLONG_TO_LONG(BgL_xz00_73);} 

}



/* &llong->fixnum */
obj_t BGl_z62llongzd2ze3fixnumz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6018, obj_t BgL_xz00_6019)
{
{ /* Ieee/fixnum.scm 1539 */
{ /* Ieee/fixnum.scm 1539 */
 long BgL_tmpz00_9587;
{ /* Ieee/fixnum.scm 1539 */
 BGL_LONGLONG_T BgL_auxz00_9588;
{ /* Ieee/fixnum.scm 1539 */
 obj_t BgL_tmpz00_9589;
if(
LLONGP(BgL_xz00_6019))
{ /* Ieee/fixnum.scm 1539 */
BgL_tmpz00_9589 = BgL_xz00_6019
; }  else 
{ 
 obj_t BgL_auxz00_9592;
BgL_auxz00_9592 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(78192L), BGl_string4612z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6019); 
FAILURE(BgL_auxz00_9592,BFALSE,BFALSE);} 
BgL_auxz00_9588 = 
BLLONG_TO_LLONG(BgL_tmpz00_9589); } 
BgL_tmpz00_9587 = 
BGl_llongzd2ze3fixnumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9588); } 
return 
BINT(BgL_tmpz00_9587);} } 

}



/* minvalfx */
BGL_EXPORTED_DEF long BGl_minvalfxz00zz__r4_numbers_6_5_fixnumz00(void)
{
{ /* Ieee/fixnum.scm 1544 */
return BGL_LONG_MIN;} 

}



/* &minvalfx */
obj_t BGl_z62minvalfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6020)
{
{ /* Ieee/fixnum.scm 1544 */
return 
BINT(
BGl_minvalfxz00zz__r4_numbers_6_5_fixnumz00());} 

}



/* minvalelong */
BGL_EXPORTED_DEF long BGl_minvalelongz00zz__r4_numbers_6_5_fixnumz00(void)
{
{ /* Ieee/fixnum.scm 1545 */
return LONG_MIN;} 

}



/* &minvalelong */
obj_t BGl_z62minvalelongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6021)
{
{ /* Ieee/fixnum.scm 1545 */
{ /* Ieee/fixnum.scm 1545 */
 long BgL_tmpz00_9601;
BgL_tmpz00_9601 = 
BGl_minvalelongz00zz__r4_numbers_6_5_fixnumz00(); 
return 
make_belong(BgL_tmpz00_9601);} } 

}



/* minvalllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_minvalllongz00zz__r4_numbers_6_5_fixnumz00(void)
{
{ /* Ieee/fixnum.scm 1546 */
return BGL_LONGLONG_MIN;} 

}



/* &minvalllong */
obj_t BGl_z62minvalllongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6022)
{
{ /* Ieee/fixnum.scm 1546 */
return 
make_bllong(
BGl_minvalllongz00zz__r4_numbers_6_5_fixnumz00());} 

}



/* maxvalfx */
BGL_EXPORTED_DEF long BGl_maxvalfxz00zz__r4_numbers_6_5_fixnumz00(void)
{
{ /* Ieee/fixnum.scm 1548 */
return BGL_LONG_MAX;} 

}



/* &maxvalfx */
obj_t BGl_z62maxvalfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6023)
{
{ /* Ieee/fixnum.scm 1548 */
return 
BINT(
BGl_maxvalfxz00zz__r4_numbers_6_5_fixnumz00());} 

}



/* maxvalelong */
BGL_EXPORTED_DEF long BGl_maxvalelongz00zz__r4_numbers_6_5_fixnumz00(void)
{
{ /* Ieee/fixnum.scm 1549 */
return LONG_MAX;} 

}



/* &maxvalelong */
obj_t BGl_z62maxvalelongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6024)
{
{ /* Ieee/fixnum.scm 1549 */
{ /* Ieee/fixnum.scm 1549 */
 long BgL_tmpz00_9608;
BgL_tmpz00_9608 = 
BGl_maxvalelongz00zz__r4_numbers_6_5_fixnumz00(); 
return 
make_belong(BgL_tmpz00_9608);} } 

}



/* maxvalllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_maxvalllongz00zz__r4_numbers_6_5_fixnumz00(void)
{
{ /* Ieee/fixnum.scm 1550 */
return BGL_LONGLONG_MAX;} 

}



/* &maxvalllong */
obj_t BGl_z62maxvalllongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6025)
{
{ /* Ieee/fixnum.scm 1550 */
return 
make_bllong(
BGl_maxvalllongz00zz__r4_numbers_6_5_fixnumz00());} 

}



/* =fx */
BGL_EXPORTED_DEF bool_t BGl_zd3fxzd3zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_74, long BgL_n2z00_75)
{
{ /* Ieee/fixnum.scm 1555 */
return 
(BgL_n1z00_74==BgL_n2z00_75);} 

}



/* &=fx */
obj_t BGl_z62zd3fxzb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6026, obj_t BgL_n1z00_6027, obj_t BgL_n2z00_6028)
{
{ /* Ieee/fixnum.scm 1555 */
{ /* Ieee/fixnum.scm 1555 */
 bool_t BgL_tmpz00_9614;
{ /* Ieee/fixnum.scm 1555 */
 long BgL_auxz00_9624; long BgL_auxz00_9615;
{ /* Ieee/fixnum.scm 1555 */
 obj_t BgL_tmpz00_9625;
if(
INTEGERP(BgL_n2z00_6028))
{ /* Ieee/fixnum.scm 1555 */
BgL_tmpz00_9625 = BgL_n2z00_6028
; }  else 
{ 
 obj_t BgL_auxz00_9628;
BgL_auxz00_9628 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(78939L), BGl_string4613z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6028); 
FAILURE(BgL_auxz00_9628,BFALSE,BFALSE);} 
BgL_auxz00_9624 = 
(long)CINT(BgL_tmpz00_9625); } 
{ /* Ieee/fixnum.scm 1555 */
 obj_t BgL_tmpz00_9616;
if(
INTEGERP(BgL_n1z00_6027))
{ /* Ieee/fixnum.scm 1555 */
BgL_tmpz00_9616 = BgL_n1z00_6027
; }  else 
{ 
 obj_t BgL_auxz00_9619;
BgL_auxz00_9619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(78939L), BGl_string4613z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6027); 
FAILURE(BgL_auxz00_9619,BFALSE,BFALSE);} 
BgL_auxz00_9615 = 
(long)CINT(BgL_tmpz00_9616); } 
BgL_tmpz00_9614 = 
BGl_zd3fxzd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9615, BgL_auxz00_9624); } 
return 
BBOOL(BgL_tmpz00_9614);} } 

}



/* =elong */
BGL_EXPORTED_DEF bool_t BGl_zd3elongzd3zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_76, long BgL_n2z00_77)
{
{ /* Ieee/fixnum.scm 1557 */
return 
(BgL_n1z00_76==BgL_n2z00_77);} 

}



/* &=elong */
obj_t BGl_z62zd3elongzb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6029, obj_t BgL_n1z00_6030, obj_t BgL_n2z00_6031)
{
{ /* Ieee/fixnum.scm 1557 */
{ /* Ieee/fixnum.scm 1557 */
 bool_t BgL_tmpz00_9636;
{ /* Ieee/fixnum.scm 1557 */
 long BgL_auxz00_9646; long BgL_auxz00_9637;
{ /* Ieee/fixnum.scm 1557 */
 obj_t BgL_tmpz00_9647;
if(
ELONGP(BgL_n2z00_6031))
{ /* Ieee/fixnum.scm 1557 */
BgL_tmpz00_9647 = BgL_n2z00_6031
; }  else 
{ 
 obj_t BgL_auxz00_9650;
BgL_auxz00_9650 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(78984L), BGl_string4614z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6031); 
FAILURE(BgL_auxz00_9650,BFALSE,BFALSE);} 
BgL_auxz00_9646 = 
BELONG_TO_LONG(BgL_tmpz00_9647); } 
{ /* Ieee/fixnum.scm 1557 */
 obj_t BgL_tmpz00_9638;
if(
ELONGP(BgL_n1z00_6030))
{ /* Ieee/fixnum.scm 1557 */
BgL_tmpz00_9638 = BgL_n1z00_6030
; }  else 
{ 
 obj_t BgL_auxz00_9641;
BgL_auxz00_9641 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(78984L), BGl_string4614z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6030); 
FAILURE(BgL_auxz00_9641,BFALSE,BFALSE);} 
BgL_auxz00_9637 = 
BELONG_TO_LONG(BgL_tmpz00_9638); } 
BgL_tmpz00_9636 = 
BGl_zd3elongzd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9637, BgL_auxz00_9646); } 
return 
BBOOL(BgL_tmpz00_9636);} } 

}



/* =llong */
BGL_EXPORTED_DEF bool_t BGl_zd3llongzd3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_n1z00_78, BGL_LONGLONG_T BgL_n2z00_79)
{
{ /* Ieee/fixnum.scm 1558 */
return 
(BgL_n1z00_78==BgL_n2z00_79);} 

}



/* &=llong */
obj_t BGl_z62zd3llongzb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6032, obj_t BgL_n1z00_6033, obj_t BgL_n2z00_6034)
{
{ /* Ieee/fixnum.scm 1558 */
{ /* Ieee/fixnum.scm 1558 */
 bool_t BgL_tmpz00_9658;
{ /* Ieee/fixnum.scm 1558 */
 BGL_LONGLONG_T BgL_auxz00_9668; BGL_LONGLONG_T BgL_auxz00_9659;
{ /* Ieee/fixnum.scm 1558 */
 obj_t BgL_tmpz00_9669;
if(
LLONGP(BgL_n2z00_6034))
{ /* Ieee/fixnum.scm 1558 */
BgL_tmpz00_9669 = BgL_n2z00_6034
; }  else 
{ 
 obj_t BgL_auxz00_9672;
BgL_auxz00_9672 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79031L), BGl_string4615z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6034); 
FAILURE(BgL_auxz00_9672,BFALSE,BFALSE);} 
BgL_auxz00_9668 = 
BLLONG_TO_LLONG(BgL_tmpz00_9669); } 
{ /* Ieee/fixnum.scm 1558 */
 obj_t BgL_tmpz00_9660;
if(
LLONGP(BgL_n1z00_6033))
{ /* Ieee/fixnum.scm 1558 */
BgL_tmpz00_9660 = BgL_n1z00_6033
; }  else 
{ 
 obj_t BgL_auxz00_9663;
BgL_auxz00_9663 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79031L), BGl_string4615z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6033); 
FAILURE(BgL_auxz00_9663,BFALSE,BFALSE);} 
BgL_auxz00_9659 = 
BLLONG_TO_LLONG(BgL_tmpz00_9660); } 
BgL_tmpz00_9658 = 
BGl_zd3llongzd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9659, BgL_auxz00_9668); } 
return 
BBOOL(BgL_tmpz00_9658);} } 

}



/* =s8 */
BGL_EXPORTED_DEF bool_t BGl_zd3s8zd3zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_80, int8_t BgL_n2z00_81)
{
{ /* Ieee/fixnum.scm 1560 */
return 
(BgL_n1z00_80==BgL_n2z00_81);} 

}



/* &=s8 */
obj_t BGl_z62zd3s8zb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6035, obj_t BgL_n1z00_6036, obj_t BgL_n2z00_6037)
{
{ /* Ieee/fixnum.scm 1560 */
{ /* Ieee/fixnum.scm 1560 */
 bool_t BgL_tmpz00_9680;
{ /* Ieee/fixnum.scm 1560 */
 int8_t BgL_auxz00_9690; int8_t BgL_auxz00_9681;
{ /* Ieee/fixnum.scm 1560 */
 obj_t BgL_tmpz00_9691;
if(
BGL_INT8P(BgL_n2z00_6037))
{ /* Ieee/fixnum.scm 1560 */
BgL_tmpz00_9691 = BgL_n2z00_6037
; }  else 
{ 
 obj_t BgL_auxz00_9694;
BgL_auxz00_9694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79076L), BGl_string4616z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6037); 
FAILURE(BgL_auxz00_9694,BFALSE,BFALSE);} 
BgL_auxz00_9690 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_9691); } 
{ /* Ieee/fixnum.scm 1560 */
 obj_t BgL_tmpz00_9682;
if(
BGL_INT8P(BgL_n1z00_6036))
{ /* Ieee/fixnum.scm 1560 */
BgL_tmpz00_9682 = BgL_n1z00_6036
; }  else 
{ 
 obj_t BgL_auxz00_9685;
BgL_auxz00_9685 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79076L), BGl_string4616z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6036); 
FAILURE(BgL_auxz00_9685,BFALSE,BFALSE);} 
BgL_auxz00_9681 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_9682); } 
BgL_tmpz00_9680 = 
BGl_zd3s8zd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9681, BgL_auxz00_9690); } 
return 
BBOOL(BgL_tmpz00_9680);} } 

}



/* =u8 */
BGL_EXPORTED_DEF bool_t BGl_zd3u8zd3zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_82, uint8_t BgL_n2z00_83)
{
{ /* Ieee/fixnum.scm 1561 */
return 
(BgL_n1z00_82==BgL_n2z00_83);} 

}



/* &=u8 */
obj_t BGl_z62zd3u8zb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6038, obj_t BgL_n1z00_6039, obj_t BgL_n2z00_6040)
{
{ /* Ieee/fixnum.scm 1561 */
{ /* Ieee/fixnum.scm 1561 */
 bool_t BgL_tmpz00_9702;
{ /* Ieee/fixnum.scm 1561 */
 uint8_t BgL_auxz00_9712; uint8_t BgL_auxz00_9703;
{ /* Ieee/fixnum.scm 1561 */
 obj_t BgL_tmpz00_9713;
if(
BGL_UINT8P(BgL_n2z00_6040))
{ /* Ieee/fixnum.scm 1561 */
BgL_tmpz00_9713 = BgL_n2z00_6040
; }  else 
{ 
 obj_t BgL_auxz00_9716;
BgL_auxz00_9716 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79117L), BGl_string4617z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6040); 
FAILURE(BgL_auxz00_9716,BFALSE,BFALSE);} 
BgL_auxz00_9712 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_9713); } 
{ /* Ieee/fixnum.scm 1561 */
 obj_t BgL_tmpz00_9704;
if(
BGL_UINT8P(BgL_n1z00_6039))
{ /* Ieee/fixnum.scm 1561 */
BgL_tmpz00_9704 = BgL_n1z00_6039
; }  else 
{ 
 obj_t BgL_auxz00_9707;
BgL_auxz00_9707 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79117L), BGl_string4617z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6039); 
FAILURE(BgL_auxz00_9707,BFALSE,BFALSE);} 
BgL_auxz00_9703 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_9704); } 
BgL_tmpz00_9702 = 
BGl_zd3u8zd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9703, BgL_auxz00_9712); } 
return 
BBOOL(BgL_tmpz00_9702);} } 

}



/* =s16 */
BGL_EXPORTED_DEF bool_t BGl_zd3s16zd3zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_84, int16_t BgL_n2z00_85)
{
{ /* Ieee/fixnum.scm 1563 */
return 
(BgL_n1z00_84==BgL_n2z00_85);} 

}



/* &=s16 */
obj_t BGl_z62zd3s16zb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6041, obj_t BgL_n1z00_6042, obj_t BgL_n2z00_6043)
{
{ /* Ieee/fixnum.scm 1563 */
{ /* Ieee/fixnum.scm 1563 */
 bool_t BgL_tmpz00_9724;
{ /* Ieee/fixnum.scm 1563 */
 int16_t BgL_auxz00_9734; int16_t BgL_auxz00_9725;
{ /* Ieee/fixnum.scm 1563 */
 obj_t BgL_tmpz00_9735;
if(
BGL_INT16P(BgL_n2z00_6043))
{ /* Ieee/fixnum.scm 1563 */
BgL_tmpz00_9735 = BgL_n2z00_6043
; }  else 
{ 
 obj_t BgL_auxz00_9738;
BgL_auxz00_9738 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79160L), BGl_string4618z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6043); 
FAILURE(BgL_auxz00_9738,BFALSE,BFALSE);} 
BgL_auxz00_9734 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_9735); } 
{ /* Ieee/fixnum.scm 1563 */
 obj_t BgL_tmpz00_9726;
if(
BGL_INT16P(BgL_n1z00_6042))
{ /* Ieee/fixnum.scm 1563 */
BgL_tmpz00_9726 = BgL_n1z00_6042
; }  else 
{ 
 obj_t BgL_auxz00_9729;
BgL_auxz00_9729 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79160L), BGl_string4618z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6042); 
FAILURE(BgL_auxz00_9729,BFALSE,BFALSE);} 
BgL_auxz00_9725 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_9726); } 
BgL_tmpz00_9724 = 
BGl_zd3s16zd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9725, BgL_auxz00_9734); } 
return 
BBOOL(BgL_tmpz00_9724);} } 

}



/* =u16 */
BGL_EXPORTED_DEF bool_t BGl_zd3u16zd3zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_86, uint16_t BgL_n2z00_87)
{
{ /* Ieee/fixnum.scm 1564 */
return 
(BgL_n1z00_86==BgL_n2z00_87);} 

}



/* &=u16 */
obj_t BGl_z62zd3u16zb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6044, obj_t BgL_n1z00_6045, obj_t BgL_n2z00_6046)
{
{ /* Ieee/fixnum.scm 1564 */
{ /* Ieee/fixnum.scm 1564 */
 bool_t BgL_tmpz00_9746;
{ /* Ieee/fixnum.scm 1564 */
 uint16_t BgL_auxz00_9756; uint16_t BgL_auxz00_9747;
{ /* Ieee/fixnum.scm 1564 */
 obj_t BgL_tmpz00_9757;
if(
BGL_UINT16P(BgL_n2z00_6046))
{ /* Ieee/fixnum.scm 1564 */
BgL_tmpz00_9757 = BgL_n2z00_6046
; }  else 
{ 
 obj_t BgL_auxz00_9760;
BgL_auxz00_9760 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79203L), BGl_string4619z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6046); 
FAILURE(BgL_auxz00_9760,BFALSE,BFALSE);} 
BgL_auxz00_9756 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_9757); } 
{ /* Ieee/fixnum.scm 1564 */
 obj_t BgL_tmpz00_9748;
if(
BGL_UINT16P(BgL_n1z00_6045))
{ /* Ieee/fixnum.scm 1564 */
BgL_tmpz00_9748 = BgL_n1z00_6045
; }  else 
{ 
 obj_t BgL_auxz00_9751;
BgL_auxz00_9751 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79203L), BGl_string4619z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6045); 
FAILURE(BgL_auxz00_9751,BFALSE,BFALSE);} 
BgL_auxz00_9747 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_9748); } 
BgL_tmpz00_9746 = 
BGl_zd3u16zd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9747, BgL_auxz00_9756); } 
return 
BBOOL(BgL_tmpz00_9746);} } 

}



/* =s32 */
BGL_EXPORTED_DEF bool_t BGl_zd3s32zd3zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_88, int32_t BgL_n2z00_89)
{
{ /* Ieee/fixnum.scm 1566 */
return 
(BgL_n1z00_88==BgL_n2z00_89);} 

}



/* &=s32 */
obj_t BGl_z62zd3s32zb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6047, obj_t BgL_n1z00_6048, obj_t BgL_n2z00_6049)
{
{ /* Ieee/fixnum.scm 1566 */
{ /* Ieee/fixnum.scm 1566 */
 bool_t BgL_tmpz00_9768;
{ /* Ieee/fixnum.scm 1566 */
 int32_t BgL_auxz00_9778; int32_t BgL_auxz00_9769;
{ /* Ieee/fixnum.scm 1566 */
 obj_t BgL_tmpz00_9779;
if(
BGL_INT32P(BgL_n2z00_6049))
{ /* Ieee/fixnum.scm 1566 */
BgL_tmpz00_9779 = BgL_n2z00_6049
; }  else 
{ 
 obj_t BgL_auxz00_9782;
BgL_auxz00_9782 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79247L), BGl_string4620z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6049); 
FAILURE(BgL_auxz00_9782,BFALSE,BFALSE);} 
BgL_auxz00_9778 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_9779); } 
{ /* Ieee/fixnum.scm 1566 */
 obj_t BgL_tmpz00_9770;
if(
BGL_INT32P(BgL_n1z00_6048))
{ /* Ieee/fixnum.scm 1566 */
BgL_tmpz00_9770 = BgL_n1z00_6048
; }  else 
{ 
 obj_t BgL_auxz00_9773;
BgL_auxz00_9773 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79247L), BGl_string4620z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6048); 
FAILURE(BgL_auxz00_9773,BFALSE,BFALSE);} 
BgL_auxz00_9769 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_9770); } 
BgL_tmpz00_9768 = 
BGl_zd3s32zd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9769, BgL_auxz00_9778); } 
return 
BBOOL(BgL_tmpz00_9768);} } 

}



/* =u32 */
BGL_EXPORTED_DEF bool_t BGl_zd3u32zd3zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_90, uint32_t BgL_n2z00_91)
{
{ /* Ieee/fixnum.scm 1567 */
return 
(BgL_n1z00_90==BgL_n2z00_91);} 

}



/* &=u32 */
obj_t BGl_z62zd3u32zb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6050, obj_t BgL_n1z00_6051, obj_t BgL_n2z00_6052)
{
{ /* Ieee/fixnum.scm 1567 */
{ /* Ieee/fixnum.scm 1567 */
 bool_t BgL_tmpz00_9790;
{ /* Ieee/fixnum.scm 1567 */
 uint32_t BgL_auxz00_9800; uint32_t BgL_auxz00_9791;
{ /* Ieee/fixnum.scm 1567 */
 obj_t BgL_tmpz00_9801;
if(
BGL_UINT32P(BgL_n2z00_6052))
{ /* Ieee/fixnum.scm 1567 */
BgL_tmpz00_9801 = BgL_n2z00_6052
; }  else 
{ 
 obj_t BgL_auxz00_9804;
BgL_auxz00_9804 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79290L), BGl_string4621z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6052); 
FAILURE(BgL_auxz00_9804,BFALSE,BFALSE);} 
BgL_auxz00_9800 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_9801); } 
{ /* Ieee/fixnum.scm 1567 */
 obj_t BgL_tmpz00_9792;
if(
BGL_UINT32P(BgL_n1z00_6051))
{ /* Ieee/fixnum.scm 1567 */
BgL_tmpz00_9792 = BgL_n1z00_6051
; }  else 
{ 
 obj_t BgL_auxz00_9795;
BgL_auxz00_9795 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79290L), BGl_string4621z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6051); 
FAILURE(BgL_auxz00_9795,BFALSE,BFALSE);} 
BgL_auxz00_9791 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_9792); } 
BgL_tmpz00_9790 = 
BGl_zd3u32zd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9791, BgL_auxz00_9800); } 
return 
BBOOL(BgL_tmpz00_9790);} } 

}



/* =s64 */
BGL_EXPORTED_DEF bool_t BGl_zd3s64zd3zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_92, int64_t BgL_n2z00_93)
{
{ /* Ieee/fixnum.scm 1569 */
return 
(BgL_n1z00_92==BgL_n2z00_93);} 

}



/* &=s64 */
obj_t BGl_z62zd3s64zb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6053, obj_t BgL_n1z00_6054, obj_t BgL_n2z00_6055)
{
{ /* Ieee/fixnum.scm 1569 */
{ /* Ieee/fixnum.scm 1569 */
 bool_t BgL_tmpz00_9812;
{ /* Ieee/fixnum.scm 1569 */
 int64_t BgL_auxz00_9822; int64_t BgL_auxz00_9813;
{ /* Ieee/fixnum.scm 1569 */
 obj_t BgL_tmpz00_9823;
if(
BGL_INT64P(BgL_n2z00_6055))
{ /* Ieee/fixnum.scm 1569 */
BgL_tmpz00_9823 = BgL_n2z00_6055
; }  else 
{ 
 obj_t BgL_auxz00_9826;
BgL_auxz00_9826 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79334L), BGl_string4622z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6055); 
FAILURE(BgL_auxz00_9826,BFALSE,BFALSE);} 
BgL_auxz00_9822 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9823); } 
{ /* Ieee/fixnum.scm 1569 */
 obj_t BgL_tmpz00_9814;
if(
BGL_INT64P(BgL_n1z00_6054))
{ /* Ieee/fixnum.scm 1569 */
BgL_tmpz00_9814 = BgL_n1z00_6054
; }  else 
{ 
 obj_t BgL_auxz00_9817;
BgL_auxz00_9817 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79334L), BGl_string4622z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6054); 
FAILURE(BgL_auxz00_9817,BFALSE,BFALSE);} 
BgL_auxz00_9813 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9814); } 
BgL_tmpz00_9812 = 
BGl_zd3s64zd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9813, BgL_auxz00_9822); } 
return 
BBOOL(BgL_tmpz00_9812);} } 

}



/* =u64 */
BGL_EXPORTED_DEF bool_t BGl_zd3u64zd3zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_94, uint64_t BgL_n2z00_95)
{
{ /* Ieee/fixnum.scm 1570 */
return 
(BgL_n1z00_94==BgL_n2z00_95);} 

}



/* &=u64 */
obj_t BGl_z62zd3u64zb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6056, obj_t BgL_n1z00_6057, obj_t BgL_n2z00_6058)
{
{ /* Ieee/fixnum.scm 1570 */
{ /* Ieee/fixnum.scm 1570 */
 bool_t BgL_tmpz00_9834;
{ /* Ieee/fixnum.scm 1570 */
 uint64_t BgL_auxz00_9844; uint64_t BgL_auxz00_9835;
{ /* Ieee/fixnum.scm 1570 */
 obj_t BgL_tmpz00_9845;
if(
BGL_UINT64P(BgL_n2z00_6058))
{ /* Ieee/fixnum.scm 1570 */
BgL_tmpz00_9845 = BgL_n2z00_6058
; }  else 
{ 
 obj_t BgL_auxz00_9848;
BgL_auxz00_9848 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79377L), BGl_string4623z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6058); 
FAILURE(BgL_auxz00_9848,BFALSE,BFALSE);} 
BgL_auxz00_9844 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9845); } 
{ /* Ieee/fixnum.scm 1570 */
 obj_t BgL_tmpz00_9836;
if(
BGL_UINT64P(BgL_n1z00_6057))
{ /* Ieee/fixnum.scm 1570 */
BgL_tmpz00_9836 = BgL_n1z00_6057
; }  else 
{ 
 obj_t BgL_auxz00_9839;
BgL_auxz00_9839 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79377L), BGl_string4623z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6057); 
FAILURE(BgL_auxz00_9839,BFALSE,BFALSE);} 
BgL_auxz00_9835 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_9836); } 
BgL_tmpz00_9834 = 
BGl_zd3u64zd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9835, BgL_auxz00_9844); } 
return 
BBOOL(BgL_tmpz00_9834);} } 

}



/* =bx */
BGL_EXPORTED_DEF bool_t BGl_zd3bxzd3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_96, obj_t BgL_n2z00_97)
{
{ /* Ieee/fixnum.scm 1572 */
return 
(
(long)(
bgl_bignum_cmp(BgL_n1z00_96, BgL_n2z00_97))==0L);} 

}



/* &=bx */
obj_t BGl_z62zd3bxzb1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6059, obj_t BgL_n1z00_6060, obj_t BgL_n2z00_6061)
{
{ /* Ieee/fixnum.scm 1572 */
{ /* Ieee/fixnum.scm 1572 */
 bool_t BgL_tmpz00_9858;
{ /* Ieee/fixnum.scm 1572 */
 obj_t BgL_auxz00_9866; obj_t BgL_auxz00_9859;
if(
BIGNUMP(BgL_n2z00_6061))
{ /* Ieee/fixnum.scm 1572 */
BgL_auxz00_9866 = BgL_n2z00_6061
; }  else 
{ 
 obj_t BgL_auxz00_9869;
BgL_auxz00_9869 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79425L), BGl_string4624z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6061); 
FAILURE(BgL_auxz00_9869,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_n1z00_6060))
{ /* Ieee/fixnum.scm 1572 */
BgL_auxz00_9859 = BgL_n1z00_6060
; }  else 
{ 
 obj_t BgL_auxz00_9862;
BgL_auxz00_9862 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79425L), BGl_string4624z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6060); 
FAILURE(BgL_auxz00_9862,BFALSE,BFALSE);} 
BgL_tmpz00_9858 = 
BGl_zd3bxzd3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9859, BgL_auxz00_9866); } 
return 
BBOOL(BgL_tmpz00_9858);} } 

}



/* <fx */
BGL_EXPORTED_DEF bool_t BGl_zc3fxzc3zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_98, long BgL_n2z00_99)
{
{ /* Ieee/fixnum.scm 1577 */
return 
(BgL_n1z00_98<BgL_n2z00_99);} 

}



/* &<fx */
obj_t BGl_z62zc3fxza1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6062, obj_t BgL_n1z00_6063, obj_t BgL_n2z00_6064)
{
{ /* Ieee/fixnum.scm 1577 */
{ /* Ieee/fixnum.scm 1577 */
 bool_t BgL_tmpz00_9876;
{ /* Ieee/fixnum.scm 1577 */
 long BgL_auxz00_9886; long BgL_auxz00_9877;
{ /* Ieee/fixnum.scm 1577 */
 obj_t BgL_tmpz00_9887;
if(
INTEGERP(BgL_n2z00_6064))
{ /* Ieee/fixnum.scm 1577 */
BgL_tmpz00_9887 = BgL_n2z00_6064
; }  else 
{ 
 obj_t BgL_auxz00_9890;
BgL_auxz00_9890 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79699L), BGl_string4625z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6064); 
FAILURE(BgL_auxz00_9890,BFALSE,BFALSE);} 
BgL_auxz00_9886 = 
(long)CINT(BgL_tmpz00_9887); } 
{ /* Ieee/fixnum.scm 1577 */
 obj_t BgL_tmpz00_9878;
if(
INTEGERP(BgL_n1z00_6063))
{ /* Ieee/fixnum.scm 1577 */
BgL_tmpz00_9878 = BgL_n1z00_6063
; }  else 
{ 
 obj_t BgL_auxz00_9881;
BgL_auxz00_9881 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79699L), BGl_string4625z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6063); 
FAILURE(BgL_auxz00_9881,BFALSE,BFALSE);} 
BgL_auxz00_9877 = 
(long)CINT(BgL_tmpz00_9878); } 
BgL_tmpz00_9876 = 
BGl_zc3fxzc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9877, BgL_auxz00_9886); } 
return 
BBOOL(BgL_tmpz00_9876);} } 

}



/* <elong */
BGL_EXPORTED_DEF bool_t BGl_zc3elongzc3zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_100, long BgL_n2z00_101)
{
{ /* Ieee/fixnum.scm 1579 */
return 
(BgL_n1z00_100<BgL_n2z00_101);} 

}



/* &<elong */
obj_t BGl_z62zc3elongza1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6065, obj_t BgL_n1z00_6066, obj_t BgL_n2z00_6067)
{
{ /* Ieee/fixnum.scm 1579 */
{ /* Ieee/fixnum.scm 1579 */
 bool_t BgL_tmpz00_9898;
{ /* Ieee/fixnum.scm 1579 */
 long BgL_auxz00_9908; long BgL_auxz00_9899;
{ /* Ieee/fixnum.scm 1579 */
 obj_t BgL_tmpz00_9909;
if(
ELONGP(BgL_n2z00_6067))
{ /* Ieee/fixnum.scm 1579 */
BgL_tmpz00_9909 = BgL_n2z00_6067
; }  else 
{ 
 obj_t BgL_auxz00_9912;
BgL_auxz00_9912 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79744L), BGl_string4626z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6067); 
FAILURE(BgL_auxz00_9912,BFALSE,BFALSE);} 
BgL_auxz00_9908 = 
BELONG_TO_LONG(BgL_tmpz00_9909); } 
{ /* Ieee/fixnum.scm 1579 */
 obj_t BgL_tmpz00_9900;
if(
ELONGP(BgL_n1z00_6066))
{ /* Ieee/fixnum.scm 1579 */
BgL_tmpz00_9900 = BgL_n1z00_6066
; }  else 
{ 
 obj_t BgL_auxz00_9903;
BgL_auxz00_9903 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79744L), BGl_string4626z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6066); 
FAILURE(BgL_auxz00_9903,BFALSE,BFALSE);} 
BgL_auxz00_9899 = 
BELONG_TO_LONG(BgL_tmpz00_9900); } 
BgL_tmpz00_9898 = 
BGl_zc3elongzc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9899, BgL_auxz00_9908); } 
return 
BBOOL(BgL_tmpz00_9898);} } 

}



/* <llong */
BGL_EXPORTED_DEF bool_t BGl_zc3llongzc3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_n1z00_102, BGL_LONGLONG_T BgL_n2z00_103)
{
{ /* Ieee/fixnum.scm 1580 */
return 
(BgL_n1z00_102<BgL_n2z00_103);} 

}



/* &<llong */
obj_t BGl_z62zc3llongza1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6068, obj_t BgL_n1z00_6069, obj_t BgL_n2z00_6070)
{
{ /* Ieee/fixnum.scm 1580 */
{ /* Ieee/fixnum.scm 1580 */
 bool_t BgL_tmpz00_9920;
{ /* Ieee/fixnum.scm 1580 */
 BGL_LONGLONG_T BgL_auxz00_9930; BGL_LONGLONG_T BgL_auxz00_9921;
{ /* Ieee/fixnum.scm 1580 */
 obj_t BgL_tmpz00_9931;
if(
LLONGP(BgL_n2z00_6070))
{ /* Ieee/fixnum.scm 1580 */
BgL_tmpz00_9931 = BgL_n2z00_6070
; }  else 
{ 
 obj_t BgL_auxz00_9934;
BgL_auxz00_9934 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79791L), BGl_string4627z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6070); 
FAILURE(BgL_auxz00_9934,BFALSE,BFALSE);} 
BgL_auxz00_9930 = 
BLLONG_TO_LLONG(BgL_tmpz00_9931); } 
{ /* Ieee/fixnum.scm 1580 */
 obj_t BgL_tmpz00_9922;
if(
LLONGP(BgL_n1z00_6069))
{ /* Ieee/fixnum.scm 1580 */
BgL_tmpz00_9922 = BgL_n1z00_6069
; }  else 
{ 
 obj_t BgL_auxz00_9925;
BgL_auxz00_9925 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79791L), BGl_string4627z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6069); 
FAILURE(BgL_auxz00_9925,BFALSE,BFALSE);} 
BgL_auxz00_9921 = 
BLLONG_TO_LLONG(BgL_tmpz00_9922); } 
BgL_tmpz00_9920 = 
BGl_zc3llongzc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9921, BgL_auxz00_9930); } 
return 
BBOOL(BgL_tmpz00_9920);} } 

}



/* <s8 */
BGL_EXPORTED_DEF bool_t BGl_zc3s8zc3zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_104, int8_t BgL_n2z00_105)
{
{ /* Ieee/fixnum.scm 1582 */
return 
(BgL_n1z00_104<BgL_n2z00_105);} 

}



/* &<s8 */
obj_t BGl_z62zc3s8za1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6071, obj_t BgL_n1z00_6072, obj_t BgL_n2z00_6073)
{
{ /* Ieee/fixnum.scm 1582 */
{ /* Ieee/fixnum.scm 1582 */
 bool_t BgL_tmpz00_9942;
{ /* Ieee/fixnum.scm 1582 */
 int8_t BgL_auxz00_9952; int8_t BgL_auxz00_9943;
{ /* Ieee/fixnum.scm 1582 */
 obj_t BgL_tmpz00_9953;
if(
BGL_INT8P(BgL_n2z00_6073))
{ /* Ieee/fixnum.scm 1582 */
BgL_tmpz00_9953 = BgL_n2z00_6073
; }  else 
{ 
 obj_t BgL_auxz00_9956;
BgL_auxz00_9956 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79836L), BGl_string4628z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6073); 
FAILURE(BgL_auxz00_9956,BFALSE,BFALSE);} 
BgL_auxz00_9952 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_9953); } 
{ /* Ieee/fixnum.scm 1582 */
 obj_t BgL_tmpz00_9944;
if(
BGL_INT8P(BgL_n1z00_6072))
{ /* Ieee/fixnum.scm 1582 */
BgL_tmpz00_9944 = BgL_n1z00_6072
; }  else 
{ 
 obj_t BgL_auxz00_9947;
BgL_auxz00_9947 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79836L), BGl_string4628z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6072); 
FAILURE(BgL_auxz00_9947,BFALSE,BFALSE);} 
BgL_auxz00_9943 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_9944); } 
BgL_tmpz00_9942 = 
BGl_zc3s8zc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9943, BgL_auxz00_9952); } 
return 
BBOOL(BgL_tmpz00_9942);} } 

}



/* <u8 */
BGL_EXPORTED_DEF bool_t BGl_zc3u8zc3zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_106, uint8_t BgL_n2z00_107)
{
{ /* Ieee/fixnum.scm 1583 */
return 
(BgL_n1z00_106<BgL_n2z00_107);} 

}



/* &<u8 */
obj_t BGl_z62zc3u8za1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6074, obj_t BgL_n1z00_6075, obj_t BgL_n2z00_6076)
{
{ /* Ieee/fixnum.scm 1583 */
{ /* Ieee/fixnum.scm 1583 */
 bool_t BgL_tmpz00_9964;
{ /* Ieee/fixnum.scm 1583 */
 uint8_t BgL_auxz00_9974; uint8_t BgL_auxz00_9965;
{ /* Ieee/fixnum.scm 1583 */
 obj_t BgL_tmpz00_9975;
if(
BGL_UINT8P(BgL_n2z00_6076))
{ /* Ieee/fixnum.scm 1583 */
BgL_tmpz00_9975 = BgL_n2z00_6076
; }  else 
{ 
 obj_t BgL_auxz00_9978;
BgL_auxz00_9978 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79877L), BGl_string4629z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6076); 
FAILURE(BgL_auxz00_9978,BFALSE,BFALSE);} 
BgL_auxz00_9974 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_9975); } 
{ /* Ieee/fixnum.scm 1583 */
 obj_t BgL_tmpz00_9966;
if(
BGL_UINT8P(BgL_n1z00_6075))
{ /* Ieee/fixnum.scm 1583 */
BgL_tmpz00_9966 = BgL_n1z00_6075
; }  else 
{ 
 obj_t BgL_auxz00_9969;
BgL_auxz00_9969 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79877L), BGl_string4629z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6075); 
FAILURE(BgL_auxz00_9969,BFALSE,BFALSE);} 
BgL_auxz00_9965 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_9966); } 
BgL_tmpz00_9964 = 
BGl_zc3u8zc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9965, BgL_auxz00_9974); } 
return 
BBOOL(BgL_tmpz00_9964);} } 

}



/* <s16 */
BGL_EXPORTED_DEF bool_t BGl_zc3s16zc3zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_108, int16_t BgL_n2z00_109)
{
{ /* Ieee/fixnum.scm 1585 */
return 
(BgL_n1z00_108<BgL_n2z00_109);} 

}



/* &<s16 */
obj_t BGl_z62zc3s16za1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6077, obj_t BgL_n1z00_6078, obj_t BgL_n2z00_6079)
{
{ /* Ieee/fixnum.scm 1585 */
{ /* Ieee/fixnum.scm 1585 */
 bool_t BgL_tmpz00_9986;
{ /* Ieee/fixnum.scm 1585 */
 int16_t BgL_auxz00_9996; int16_t BgL_auxz00_9987;
{ /* Ieee/fixnum.scm 1585 */
 obj_t BgL_tmpz00_9997;
if(
BGL_INT16P(BgL_n2z00_6079))
{ /* Ieee/fixnum.scm 1585 */
BgL_tmpz00_9997 = BgL_n2z00_6079
; }  else 
{ 
 obj_t BgL_auxz00_10000;
BgL_auxz00_10000 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79920L), BGl_string4630z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6079); 
FAILURE(BgL_auxz00_10000,BFALSE,BFALSE);} 
BgL_auxz00_9996 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_9997); } 
{ /* Ieee/fixnum.scm 1585 */
 obj_t BgL_tmpz00_9988;
if(
BGL_INT16P(BgL_n1z00_6078))
{ /* Ieee/fixnum.scm 1585 */
BgL_tmpz00_9988 = BgL_n1z00_6078
; }  else 
{ 
 obj_t BgL_auxz00_9991;
BgL_auxz00_9991 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79920L), BGl_string4630z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6078); 
FAILURE(BgL_auxz00_9991,BFALSE,BFALSE);} 
BgL_auxz00_9987 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_9988); } 
BgL_tmpz00_9986 = 
BGl_zc3s16zc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_9987, BgL_auxz00_9996); } 
return 
BBOOL(BgL_tmpz00_9986);} } 

}



/* <u16 */
BGL_EXPORTED_DEF bool_t BGl_zc3u16zc3zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_110, uint16_t BgL_n2z00_111)
{
{ /* Ieee/fixnum.scm 1586 */
return 
(BgL_n1z00_110<BgL_n2z00_111);} 

}



/* &<u16 */
obj_t BGl_z62zc3u16za1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6080, obj_t BgL_n1z00_6081, obj_t BgL_n2z00_6082)
{
{ /* Ieee/fixnum.scm 1586 */
{ /* Ieee/fixnum.scm 1586 */
 bool_t BgL_tmpz00_10008;
{ /* Ieee/fixnum.scm 1586 */
 uint16_t BgL_auxz00_10018; uint16_t BgL_auxz00_10009;
{ /* Ieee/fixnum.scm 1586 */
 obj_t BgL_tmpz00_10019;
if(
BGL_UINT16P(BgL_n2z00_6082))
{ /* Ieee/fixnum.scm 1586 */
BgL_tmpz00_10019 = BgL_n2z00_6082
; }  else 
{ 
 obj_t BgL_auxz00_10022;
BgL_auxz00_10022 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79963L), BGl_string4631z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6082); 
FAILURE(BgL_auxz00_10022,BFALSE,BFALSE);} 
BgL_auxz00_10018 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_10019); } 
{ /* Ieee/fixnum.scm 1586 */
 obj_t BgL_tmpz00_10010;
if(
BGL_UINT16P(BgL_n1z00_6081))
{ /* Ieee/fixnum.scm 1586 */
BgL_tmpz00_10010 = BgL_n1z00_6081
; }  else 
{ 
 obj_t BgL_auxz00_10013;
BgL_auxz00_10013 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79963L), BGl_string4631z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6081); 
FAILURE(BgL_auxz00_10013,BFALSE,BFALSE);} 
BgL_auxz00_10009 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_10010); } 
BgL_tmpz00_10008 = 
BGl_zc3u16zc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10009, BgL_auxz00_10018); } 
return 
BBOOL(BgL_tmpz00_10008);} } 

}



/* <s32 */
BGL_EXPORTED_DEF bool_t BGl_zc3s32zc3zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_112, int32_t BgL_n2z00_113)
{
{ /* Ieee/fixnum.scm 1588 */
return 
(BgL_n1z00_112<BgL_n2z00_113);} 

}



/* &<s32 */
obj_t BGl_z62zc3s32za1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6083, obj_t BgL_n1z00_6084, obj_t BgL_n2z00_6085)
{
{ /* Ieee/fixnum.scm 1588 */
{ /* Ieee/fixnum.scm 1588 */
 bool_t BgL_tmpz00_10030;
{ /* Ieee/fixnum.scm 1588 */
 int32_t BgL_auxz00_10040; int32_t BgL_auxz00_10031;
{ /* Ieee/fixnum.scm 1588 */
 obj_t BgL_tmpz00_10041;
if(
BGL_INT32P(BgL_n2z00_6085))
{ /* Ieee/fixnum.scm 1588 */
BgL_tmpz00_10041 = BgL_n2z00_6085
; }  else 
{ 
 obj_t BgL_auxz00_10044;
BgL_auxz00_10044 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80007L), BGl_string4632z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6085); 
FAILURE(BgL_auxz00_10044,BFALSE,BFALSE);} 
BgL_auxz00_10040 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_10041); } 
{ /* Ieee/fixnum.scm 1588 */
 obj_t BgL_tmpz00_10032;
if(
BGL_INT32P(BgL_n1z00_6084))
{ /* Ieee/fixnum.scm 1588 */
BgL_tmpz00_10032 = BgL_n1z00_6084
; }  else 
{ 
 obj_t BgL_auxz00_10035;
BgL_auxz00_10035 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80007L), BGl_string4632z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6084); 
FAILURE(BgL_auxz00_10035,BFALSE,BFALSE);} 
BgL_auxz00_10031 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_10032); } 
BgL_tmpz00_10030 = 
BGl_zc3s32zc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10031, BgL_auxz00_10040); } 
return 
BBOOL(BgL_tmpz00_10030);} } 

}



/* <u32 */
BGL_EXPORTED_DEF bool_t BGl_zc3u32zc3zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_114, uint32_t BgL_n2z00_115)
{
{ /* Ieee/fixnum.scm 1589 */
return 
(BgL_n1z00_114<BgL_n2z00_115);} 

}



/* &<u32 */
obj_t BGl_z62zc3u32za1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6086, obj_t BgL_n1z00_6087, obj_t BgL_n2z00_6088)
{
{ /* Ieee/fixnum.scm 1589 */
{ /* Ieee/fixnum.scm 1589 */
 bool_t BgL_tmpz00_10052;
{ /* Ieee/fixnum.scm 1589 */
 uint32_t BgL_auxz00_10062; uint32_t BgL_auxz00_10053;
{ /* Ieee/fixnum.scm 1589 */
 obj_t BgL_tmpz00_10063;
if(
BGL_UINT32P(BgL_n2z00_6088))
{ /* Ieee/fixnum.scm 1589 */
BgL_tmpz00_10063 = BgL_n2z00_6088
; }  else 
{ 
 obj_t BgL_auxz00_10066;
BgL_auxz00_10066 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80050L), BGl_string4633z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6088); 
FAILURE(BgL_auxz00_10066,BFALSE,BFALSE);} 
BgL_auxz00_10062 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_10063); } 
{ /* Ieee/fixnum.scm 1589 */
 obj_t BgL_tmpz00_10054;
if(
BGL_UINT32P(BgL_n1z00_6087))
{ /* Ieee/fixnum.scm 1589 */
BgL_tmpz00_10054 = BgL_n1z00_6087
; }  else 
{ 
 obj_t BgL_auxz00_10057;
BgL_auxz00_10057 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80050L), BGl_string4633z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6087); 
FAILURE(BgL_auxz00_10057,BFALSE,BFALSE);} 
BgL_auxz00_10053 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_10054); } 
BgL_tmpz00_10052 = 
BGl_zc3u32zc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10053, BgL_auxz00_10062); } 
return 
BBOOL(BgL_tmpz00_10052);} } 

}



/* <s64 */
BGL_EXPORTED_DEF bool_t BGl_zc3s64zc3zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_116, int64_t BgL_n2z00_117)
{
{ /* Ieee/fixnum.scm 1591 */
return 
(BgL_n1z00_116<BgL_n2z00_117);} 

}



/* &<s64 */
obj_t BGl_z62zc3s64za1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6089, obj_t BgL_n1z00_6090, obj_t BgL_n2z00_6091)
{
{ /* Ieee/fixnum.scm 1591 */
{ /* Ieee/fixnum.scm 1591 */
 bool_t BgL_tmpz00_10074;
{ /* Ieee/fixnum.scm 1591 */
 int64_t BgL_auxz00_10084; int64_t BgL_auxz00_10075;
{ /* Ieee/fixnum.scm 1591 */
 obj_t BgL_tmpz00_10085;
if(
BGL_INT64P(BgL_n2z00_6091))
{ /* Ieee/fixnum.scm 1591 */
BgL_tmpz00_10085 = BgL_n2z00_6091
; }  else 
{ 
 obj_t BgL_auxz00_10088;
BgL_auxz00_10088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80094L), BGl_string4634z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6091); 
FAILURE(BgL_auxz00_10088,BFALSE,BFALSE);} 
BgL_auxz00_10084 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10085); } 
{ /* Ieee/fixnum.scm 1591 */
 obj_t BgL_tmpz00_10076;
if(
BGL_INT64P(BgL_n1z00_6090))
{ /* Ieee/fixnum.scm 1591 */
BgL_tmpz00_10076 = BgL_n1z00_6090
; }  else 
{ 
 obj_t BgL_auxz00_10079;
BgL_auxz00_10079 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80094L), BGl_string4634z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6090); 
FAILURE(BgL_auxz00_10079,BFALSE,BFALSE);} 
BgL_auxz00_10075 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10076); } 
BgL_tmpz00_10074 = 
BGl_zc3s64zc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10075, BgL_auxz00_10084); } 
return 
BBOOL(BgL_tmpz00_10074);} } 

}



/* <u64 */
BGL_EXPORTED_DEF bool_t BGl_zc3u64zc3zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_118, uint64_t BgL_n2z00_119)
{
{ /* Ieee/fixnum.scm 1592 */
return 
(BgL_n1z00_118<BgL_n2z00_119);} 

}



/* &<u64 */
obj_t BGl_z62zc3u64za1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6092, obj_t BgL_n1z00_6093, obj_t BgL_n2z00_6094)
{
{ /* Ieee/fixnum.scm 1592 */
{ /* Ieee/fixnum.scm 1592 */
 bool_t BgL_tmpz00_10096;
{ /* Ieee/fixnum.scm 1592 */
 uint64_t BgL_auxz00_10106; uint64_t BgL_auxz00_10097;
{ /* Ieee/fixnum.scm 1592 */
 obj_t BgL_tmpz00_10107;
if(
BGL_UINT64P(BgL_n2z00_6094))
{ /* Ieee/fixnum.scm 1592 */
BgL_tmpz00_10107 = BgL_n2z00_6094
; }  else 
{ 
 obj_t BgL_auxz00_10110;
BgL_auxz00_10110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80137L), BGl_string4635z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6094); 
FAILURE(BgL_auxz00_10110,BFALSE,BFALSE);} 
BgL_auxz00_10106 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10107); } 
{ /* Ieee/fixnum.scm 1592 */
 obj_t BgL_tmpz00_10098;
if(
BGL_UINT64P(BgL_n1z00_6093))
{ /* Ieee/fixnum.scm 1592 */
BgL_tmpz00_10098 = BgL_n1z00_6093
; }  else 
{ 
 obj_t BgL_auxz00_10101;
BgL_auxz00_10101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80137L), BGl_string4635z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6093); 
FAILURE(BgL_auxz00_10101,BFALSE,BFALSE);} 
BgL_auxz00_10097 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10098); } 
BgL_tmpz00_10096 = 
BGl_zc3u64zc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10097, BgL_auxz00_10106); } 
return 
BBOOL(BgL_tmpz00_10096);} } 

}



/* <bx */
BGL_EXPORTED_DEF bool_t BGl_zc3bxzc3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_120, obj_t BgL_n2z00_121)
{
{ /* Ieee/fixnum.scm 1594 */
return 
(
(long)(
bgl_bignum_cmp(BgL_n1z00_120, BgL_n2z00_121))<0L);} 

}



/* &<bx */
obj_t BGl_z62zc3bxza1zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6095, obj_t BgL_n1z00_6096, obj_t BgL_n2z00_6097)
{
{ /* Ieee/fixnum.scm 1594 */
{ /* Ieee/fixnum.scm 1594 */
 bool_t BgL_tmpz00_10120;
{ /* Ieee/fixnum.scm 1594 */
 obj_t BgL_auxz00_10128; obj_t BgL_auxz00_10121;
if(
BIGNUMP(BgL_n2z00_6097))
{ /* Ieee/fixnum.scm 1594 */
BgL_auxz00_10128 = BgL_n2z00_6097
; }  else 
{ 
 obj_t BgL_auxz00_10131;
BgL_auxz00_10131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80185L), BGl_string4636z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6097); 
FAILURE(BgL_auxz00_10131,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_n1z00_6096))
{ /* Ieee/fixnum.scm 1594 */
BgL_auxz00_10121 = BgL_n1z00_6096
; }  else 
{ 
 obj_t BgL_auxz00_10124;
BgL_auxz00_10124 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80185L), BGl_string4636z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6096); 
FAILURE(BgL_auxz00_10124,BFALSE,BFALSE);} 
BgL_tmpz00_10120 = 
BGl_zc3bxzc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10121, BgL_auxz00_10128); } 
return 
BBOOL(BgL_tmpz00_10120);} } 

}



/* >fx */
BGL_EXPORTED_DEF bool_t BGl_ze3fxze3zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_122, long BgL_n2z00_123)
{
{ /* Ieee/fixnum.scm 1599 */
return 
(BgL_n1z00_122>BgL_n2z00_123);} 

}



/* &>fx */
obj_t BGl_z62ze3fxz81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6098, obj_t BgL_n1z00_6099, obj_t BgL_n2z00_6100)
{
{ /* Ieee/fixnum.scm 1599 */
{ /* Ieee/fixnum.scm 1599 */
 bool_t BgL_tmpz00_10138;
{ /* Ieee/fixnum.scm 1599 */
 long BgL_auxz00_10148; long BgL_auxz00_10139;
{ /* Ieee/fixnum.scm 1599 */
 obj_t BgL_tmpz00_10149;
if(
INTEGERP(BgL_n2z00_6100))
{ /* Ieee/fixnum.scm 1599 */
BgL_tmpz00_10149 = BgL_n2z00_6100
; }  else 
{ 
 obj_t BgL_auxz00_10152;
BgL_auxz00_10152 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80459L), BGl_string4637z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6100); 
FAILURE(BgL_auxz00_10152,BFALSE,BFALSE);} 
BgL_auxz00_10148 = 
(long)CINT(BgL_tmpz00_10149); } 
{ /* Ieee/fixnum.scm 1599 */
 obj_t BgL_tmpz00_10140;
if(
INTEGERP(BgL_n1z00_6099))
{ /* Ieee/fixnum.scm 1599 */
BgL_tmpz00_10140 = BgL_n1z00_6099
; }  else 
{ 
 obj_t BgL_auxz00_10143;
BgL_auxz00_10143 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80459L), BGl_string4637z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6099); 
FAILURE(BgL_auxz00_10143,BFALSE,BFALSE);} 
BgL_auxz00_10139 = 
(long)CINT(BgL_tmpz00_10140); } 
BgL_tmpz00_10138 = 
BGl_ze3fxze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10139, BgL_auxz00_10148); } 
return 
BBOOL(BgL_tmpz00_10138);} } 

}



/* >elong */
BGL_EXPORTED_DEF bool_t BGl_ze3elongze3zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_124, long BgL_n2z00_125)
{
{ /* Ieee/fixnum.scm 1601 */
return 
(BgL_n1z00_124>BgL_n2z00_125);} 

}



/* &>elong */
obj_t BGl_z62ze3elongz81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6101, obj_t BgL_n1z00_6102, obj_t BgL_n2z00_6103)
{
{ /* Ieee/fixnum.scm 1601 */
{ /* Ieee/fixnum.scm 1601 */
 bool_t BgL_tmpz00_10160;
{ /* Ieee/fixnum.scm 1601 */
 long BgL_auxz00_10170; long BgL_auxz00_10161;
{ /* Ieee/fixnum.scm 1601 */
 obj_t BgL_tmpz00_10171;
if(
ELONGP(BgL_n2z00_6103))
{ /* Ieee/fixnum.scm 1601 */
BgL_tmpz00_10171 = BgL_n2z00_6103
; }  else 
{ 
 obj_t BgL_auxz00_10174;
BgL_auxz00_10174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80504L), BGl_string4638z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6103); 
FAILURE(BgL_auxz00_10174,BFALSE,BFALSE);} 
BgL_auxz00_10170 = 
BELONG_TO_LONG(BgL_tmpz00_10171); } 
{ /* Ieee/fixnum.scm 1601 */
 obj_t BgL_tmpz00_10162;
if(
ELONGP(BgL_n1z00_6102))
{ /* Ieee/fixnum.scm 1601 */
BgL_tmpz00_10162 = BgL_n1z00_6102
; }  else 
{ 
 obj_t BgL_auxz00_10165;
BgL_auxz00_10165 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80504L), BGl_string4638z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6102); 
FAILURE(BgL_auxz00_10165,BFALSE,BFALSE);} 
BgL_auxz00_10161 = 
BELONG_TO_LONG(BgL_tmpz00_10162); } 
BgL_tmpz00_10160 = 
BGl_ze3elongze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10161, BgL_auxz00_10170); } 
return 
BBOOL(BgL_tmpz00_10160);} } 

}



/* >llong */
BGL_EXPORTED_DEF bool_t BGl_ze3llongze3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_n1z00_126, BGL_LONGLONG_T BgL_n2z00_127)
{
{ /* Ieee/fixnum.scm 1602 */
return 
(BgL_n1z00_126>BgL_n2z00_127);} 

}



/* &>llong */
obj_t BGl_z62ze3llongz81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6104, obj_t BgL_n1z00_6105, obj_t BgL_n2z00_6106)
{
{ /* Ieee/fixnum.scm 1602 */
{ /* Ieee/fixnum.scm 1602 */
 bool_t BgL_tmpz00_10182;
{ /* Ieee/fixnum.scm 1602 */
 BGL_LONGLONG_T BgL_auxz00_10192; BGL_LONGLONG_T BgL_auxz00_10183;
{ /* Ieee/fixnum.scm 1602 */
 obj_t BgL_tmpz00_10193;
if(
LLONGP(BgL_n2z00_6106))
{ /* Ieee/fixnum.scm 1602 */
BgL_tmpz00_10193 = BgL_n2z00_6106
; }  else 
{ 
 obj_t BgL_auxz00_10196;
BgL_auxz00_10196 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80551L), BGl_string4639z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6106); 
FAILURE(BgL_auxz00_10196,BFALSE,BFALSE);} 
BgL_auxz00_10192 = 
BLLONG_TO_LLONG(BgL_tmpz00_10193); } 
{ /* Ieee/fixnum.scm 1602 */
 obj_t BgL_tmpz00_10184;
if(
LLONGP(BgL_n1z00_6105))
{ /* Ieee/fixnum.scm 1602 */
BgL_tmpz00_10184 = BgL_n1z00_6105
; }  else 
{ 
 obj_t BgL_auxz00_10187;
BgL_auxz00_10187 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80551L), BGl_string4639z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6105); 
FAILURE(BgL_auxz00_10187,BFALSE,BFALSE);} 
BgL_auxz00_10183 = 
BLLONG_TO_LLONG(BgL_tmpz00_10184); } 
BgL_tmpz00_10182 = 
BGl_ze3llongze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10183, BgL_auxz00_10192); } 
return 
BBOOL(BgL_tmpz00_10182);} } 

}



/* >s8 */
BGL_EXPORTED_DEF bool_t BGl_ze3s8ze3zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_128, int8_t BgL_n2z00_129)
{
{ /* Ieee/fixnum.scm 1604 */
return 
(BgL_n1z00_128>BgL_n2z00_129);} 

}



/* &>s8 */
obj_t BGl_z62ze3s8z81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6107, obj_t BgL_n1z00_6108, obj_t BgL_n2z00_6109)
{
{ /* Ieee/fixnum.scm 1604 */
{ /* Ieee/fixnum.scm 1604 */
 bool_t BgL_tmpz00_10204;
{ /* Ieee/fixnum.scm 1604 */
 int8_t BgL_auxz00_10214; int8_t BgL_auxz00_10205;
{ /* Ieee/fixnum.scm 1604 */
 obj_t BgL_tmpz00_10215;
if(
BGL_INT8P(BgL_n2z00_6109))
{ /* Ieee/fixnum.scm 1604 */
BgL_tmpz00_10215 = BgL_n2z00_6109
; }  else 
{ 
 obj_t BgL_auxz00_10218;
BgL_auxz00_10218 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80596L), BGl_string4640z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6109); 
FAILURE(BgL_auxz00_10218,BFALSE,BFALSE);} 
BgL_auxz00_10214 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_10215); } 
{ /* Ieee/fixnum.scm 1604 */
 obj_t BgL_tmpz00_10206;
if(
BGL_INT8P(BgL_n1z00_6108))
{ /* Ieee/fixnum.scm 1604 */
BgL_tmpz00_10206 = BgL_n1z00_6108
; }  else 
{ 
 obj_t BgL_auxz00_10209;
BgL_auxz00_10209 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80596L), BGl_string4640z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6108); 
FAILURE(BgL_auxz00_10209,BFALSE,BFALSE);} 
BgL_auxz00_10205 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_10206); } 
BgL_tmpz00_10204 = 
BGl_ze3s8ze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10205, BgL_auxz00_10214); } 
return 
BBOOL(BgL_tmpz00_10204);} } 

}



/* >u8 */
BGL_EXPORTED_DEF bool_t BGl_ze3u8ze3zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_130, uint8_t BgL_n2z00_131)
{
{ /* Ieee/fixnum.scm 1605 */
return 
(BgL_n1z00_130>BgL_n2z00_131);} 

}



/* &>u8 */
obj_t BGl_z62ze3u8z81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6110, obj_t BgL_n1z00_6111, obj_t BgL_n2z00_6112)
{
{ /* Ieee/fixnum.scm 1605 */
{ /* Ieee/fixnum.scm 1605 */
 bool_t BgL_tmpz00_10226;
{ /* Ieee/fixnum.scm 1605 */
 uint8_t BgL_auxz00_10236; uint8_t BgL_auxz00_10227;
{ /* Ieee/fixnum.scm 1605 */
 obj_t BgL_tmpz00_10237;
if(
BGL_UINT8P(BgL_n2z00_6112))
{ /* Ieee/fixnum.scm 1605 */
BgL_tmpz00_10237 = BgL_n2z00_6112
; }  else 
{ 
 obj_t BgL_auxz00_10240;
BgL_auxz00_10240 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80637L), BGl_string4641z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6112); 
FAILURE(BgL_auxz00_10240,BFALSE,BFALSE);} 
BgL_auxz00_10236 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_10237); } 
{ /* Ieee/fixnum.scm 1605 */
 obj_t BgL_tmpz00_10228;
if(
BGL_UINT8P(BgL_n1z00_6111))
{ /* Ieee/fixnum.scm 1605 */
BgL_tmpz00_10228 = BgL_n1z00_6111
; }  else 
{ 
 obj_t BgL_auxz00_10231;
BgL_auxz00_10231 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80637L), BGl_string4641z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6111); 
FAILURE(BgL_auxz00_10231,BFALSE,BFALSE);} 
BgL_auxz00_10227 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_10228); } 
BgL_tmpz00_10226 = 
BGl_ze3u8ze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10227, BgL_auxz00_10236); } 
return 
BBOOL(BgL_tmpz00_10226);} } 

}



/* >s16 */
BGL_EXPORTED_DEF bool_t BGl_ze3s16ze3zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_132, int16_t BgL_n2z00_133)
{
{ /* Ieee/fixnum.scm 1607 */
return 
(BgL_n1z00_132>BgL_n2z00_133);} 

}



/* &>s16 */
obj_t BGl_z62ze3s16z81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6113, obj_t BgL_n1z00_6114, obj_t BgL_n2z00_6115)
{
{ /* Ieee/fixnum.scm 1607 */
{ /* Ieee/fixnum.scm 1607 */
 bool_t BgL_tmpz00_10248;
{ /* Ieee/fixnum.scm 1607 */
 int16_t BgL_auxz00_10258; int16_t BgL_auxz00_10249;
{ /* Ieee/fixnum.scm 1607 */
 obj_t BgL_tmpz00_10259;
if(
BGL_INT16P(BgL_n2z00_6115))
{ /* Ieee/fixnum.scm 1607 */
BgL_tmpz00_10259 = BgL_n2z00_6115
; }  else 
{ 
 obj_t BgL_auxz00_10262;
BgL_auxz00_10262 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80680L), BGl_string4642z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6115); 
FAILURE(BgL_auxz00_10262,BFALSE,BFALSE);} 
BgL_auxz00_10258 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_10259); } 
{ /* Ieee/fixnum.scm 1607 */
 obj_t BgL_tmpz00_10250;
if(
BGL_INT16P(BgL_n1z00_6114))
{ /* Ieee/fixnum.scm 1607 */
BgL_tmpz00_10250 = BgL_n1z00_6114
; }  else 
{ 
 obj_t BgL_auxz00_10253;
BgL_auxz00_10253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80680L), BGl_string4642z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6114); 
FAILURE(BgL_auxz00_10253,BFALSE,BFALSE);} 
BgL_auxz00_10249 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_10250); } 
BgL_tmpz00_10248 = 
BGl_ze3s16ze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10249, BgL_auxz00_10258); } 
return 
BBOOL(BgL_tmpz00_10248);} } 

}



/* >u16 */
BGL_EXPORTED_DEF bool_t BGl_ze3u16ze3zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_134, uint16_t BgL_n2z00_135)
{
{ /* Ieee/fixnum.scm 1608 */
return 
(BgL_n1z00_134>BgL_n2z00_135);} 

}



/* &>u16 */
obj_t BGl_z62ze3u16z81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6116, obj_t BgL_n1z00_6117, obj_t BgL_n2z00_6118)
{
{ /* Ieee/fixnum.scm 1608 */
{ /* Ieee/fixnum.scm 1608 */
 bool_t BgL_tmpz00_10270;
{ /* Ieee/fixnum.scm 1608 */
 uint16_t BgL_auxz00_10280; uint16_t BgL_auxz00_10271;
{ /* Ieee/fixnum.scm 1608 */
 obj_t BgL_tmpz00_10281;
if(
BGL_UINT16P(BgL_n2z00_6118))
{ /* Ieee/fixnum.scm 1608 */
BgL_tmpz00_10281 = BgL_n2z00_6118
; }  else 
{ 
 obj_t BgL_auxz00_10284;
BgL_auxz00_10284 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80723L), BGl_string4643z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6118); 
FAILURE(BgL_auxz00_10284,BFALSE,BFALSE);} 
BgL_auxz00_10280 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_10281); } 
{ /* Ieee/fixnum.scm 1608 */
 obj_t BgL_tmpz00_10272;
if(
BGL_UINT16P(BgL_n1z00_6117))
{ /* Ieee/fixnum.scm 1608 */
BgL_tmpz00_10272 = BgL_n1z00_6117
; }  else 
{ 
 obj_t BgL_auxz00_10275;
BgL_auxz00_10275 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80723L), BGl_string4643z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6117); 
FAILURE(BgL_auxz00_10275,BFALSE,BFALSE);} 
BgL_auxz00_10271 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_10272); } 
BgL_tmpz00_10270 = 
BGl_ze3u16ze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10271, BgL_auxz00_10280); } 
return 
BBOOL(BgL_tmpz00_10270);} } 

}



/* >s32 */
BGL_EXPORTED_DEF bool_t BGl_ze3s32ze3zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_136, int32_t BgL_n2z00_137)
{
{ /* Ieee/fixnum.scm 1610 */
return 
(BgL_n1z00_136>BgL_n2z00_137);} 

}



/* &>s32 */
obj_t BGl_z62ze3s32z81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6119, obj_t BgL_n1z00_6120, obj_t BgL_n2z00_6121)
{
{ /* Ieee/fixnum.scm 1610 */
{ /* Ieee/fixnum.scm 1610 */
 bool_t BgL_tmpz00_10292;
{ /* Ieee/fixnum.scm 1610 */
 int32_t BgL_auxz00_10302; int32_t BgL_auxz00_10293;
{ /* Ieee/fixnum.scm 1610 */
 obj_t BgL_tmpz00_10303;
if(
BGL_INT32P(BgL_n2z00_6121))
{ /* Ieee/fixnum.scm 1610 */
BgL_tmpz00_10303 = BgL_n2z00_6121
; }  else 
{ 
 obj_t BgL_auxz00_10306;
BgL_auxz00_10306 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80767L), BGl_string4644z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6121); 
FAILURE(BgL_auxz00_10306,BFALSE,BFALSE);} 
BgL_auxz00_10302 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_10303); } 
{ /* Ieee/fixnum.scm 1610 */
 obj_t BgL_tmpz00_10294;
if(
BGL_INT32P(BgL_n1z00_6120))
{ /* Ieee/fixnum.scm 1610 */
BgL_tmpz00_10294 = BgL_n1z00_6120
; }  else 
{ 
 obj_t BgL_auxz00_10297;
BgL_auxz00_10297 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80767L), BGl_string4644z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6120); 
FAILURE(BgL_auxz00_10297,BFALSE,BFALSE);} 
BgL_auxz00_10293 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_10294); } 
BgL_tmpz00_10292 = 
BGl_ze3s32ze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10293, BgL_auxz00_10302); } 
return 
BBOOL(BgL_tmpz00_10292);} } 

}



/* >u32 */
BGL_EXPORTED_DEF bool_t BGl_ze3u32ze3zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_138, uint32_t BgL_n2z00_139)
{
{ /* Ieee/fixnum.scm 1611 */
return 
(BgL_n1z00_138>BgL_n2z00_139);} 

}



/* &>u32 */
obj_t BGl_z62ze3u32z81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6122, obj_t BgL_n1z00_6123, obj_t BgL_n2z00_6124)
{
{ /* Ieee/fixnum.scm 1611 */
{ /* Ieee/fixnum.scm 1611 */
 bool_t BgL_tmpz00_10314;
{ /* Ieee/fixnum.scm 1611 */
 uint32_t BgL_auxz00_10324; uint32_t BgL_auxz00_10315;
{ /* Ieee/fixnum.scm 1611 */
 obj_t BgL_tmpz00_10325;
if(
BGL_UINT32P(BgL_n2z00_6124))
{ /* Ieee/fixnum.scm 1611 */
BgL_tmpz00_10325 = BgL_n2z00_6124
; }  else 
{ 
 obj_t BgL_auxz00_10328;
BgL_auxz00_10328 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80810L), BGl_string4645z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6124); 
FAILURE(BgL_auxz00_10328,BFALSE,BFALSE);} 
BgL_auxz00_10324 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_10325); } 
{ /* Ieee/fixnum.scm 1611 */
 obj_t BgL_tmpz00_10316;
if(
BGL_UINT32P(BgL_n1z00_6123))
{ /* Ieee/fixnum.scm 1611 */
BgL_tmpz00_10316 = BgL_n1z00_6123
; }  else 
{ 
 obj_t BgL_auxz00_10319;
BgL_auxz00_10319 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80810L), BGl_string4645z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6123); 
FAILURE(BgL_auxz00_10319,BFALSE,BFALSE);} 
BgL_auxz00_10315 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_10316); } 
BgL_tmpz00_10314 = 
BGl_ze3u32ze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10315, BgL_auxz00_10324); } 
return 
BBOOL(BgL_tmpz00_10314);} } 

}



/* >s64 */
BGL_EXPORTED_DEF bool_t BGl_ze3s64ze3zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_140, int64_t BgL_n2z00_141)
{
{ /* Ieee/fixnum.scm 1613 */
return 
(BgL_n1z00_140>BgL_n2z00_141);} 

}



/* &>s64 */
obj_t BGl_z62ze3s64z81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6125, obj_t BgL_n1z00_6126, obj_t BgL_n2z00_6127)
{
{ /* Ieee/fixnum.scm 1613 */
{ /* Ieee/fixnum.scm 1613 */
 bool_t BgL_tmpz00_10336;
{ /* Ieee/fixnum.scm 1613 */
 int64_t BgL_auxz00_10346; int64_t BgL_auxz00_10337;
{ /* Ieee/fixnum.scm 1613 */
 obj_t BgL_tmpz00_10347;
if(
BGL_INT64P(BgL_n2z00_6127))
{ /* Ieee/fixnum.scm 1613 */
BgL_tmpz00_10347 = BgL_n2z00_6127
; }  else 
{ 
 obj_t BgL_auxz00_10350;
BgL_auxz00_10350 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80854L), BGl_string4646z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6127); 
FAILURE(BgL_auxz00_10350,BFALSE,BFALSE);} 
BgL_auxz00_10346 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10347); } 
{ /* Ieee/fixnum.scm 1613 */
 obj_t BgL_tmpz00_10338;
if(
BGL_INT64P(BgL_n1z00_6126))
{ /* Ieee/fixnum.scm 1613 */
BgL_tmpz00_10338 = BgL_n1z00_6126
; }  else 
{ 
 obj_t BgL_auxz00_10341;
BgL_auxz00_10341 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80854L), BGl_string4646z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6126); 
FAILURE(BgL_auxz00_10341,BFALSE,BFALSE);} 
BgL_auxz00_10337 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10338); } 
BgL_tmpz00_10336 = 
BGl_ze3s64ze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10337, BgL_auxz00_10346); } 
return 
BBOOL(BgL_tmpz00_10336);} } 

}



/* >u64 */
BGL_EXPORTED_DEF bool_t BGl_ze3u64ze3zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_142, uint64_t BgL_n2z00_143)
{
{ /* Ieee/fixnum.scm 1614 */
return 
(BgL_n1z00_142>BgL_n2z00_143);} 

}



/* &>u64 */
obj_t BGl_z62ze3u64z81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6128, obj_t BgL_n1z00_6129, obj_t BgL_n2z00_6130)
{
{ /* Ieee/fixnum.scm 1614 */
{ /* Ieee/fixnum.scm 1614 */
 bool_t BgL_tmpz00_10358;
{ /* Ieee/fixnum.scm 1614 */
 uint64_t BgL_auxz00_10368; uint64_t BgL_auxz00_10359;
{ /* Ieee/fixnum.scm 1614 */
 obj_t BgL_tmpz00_10369;
if(
BGL_UINT64P(BgL_n2z00_6130))
{ /* Ieee/fixnum.scm 1614 */
BgL_tmpz00_10369 = BgL_n2z00_6130
; }  else 
{ 
 obj_t BgL_auxz00_10372;
BgL_auxz00_10372 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80897L), BGl_string4647z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6130); 
FAILURE(BgL_auxz00_10372,BFALSE,BFALSE);} 
BgL_auxz00_10368 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10369); } 
{ /* Ieee/fixnum.scm 1614 */
 obj_t BgL_tmpz00_10360;
if(
BGL_UINT64P(BgL_n1z00_6129))
{ /* Ieee/fixnum.scm 1614 */
BgL_tmpz00_10360 = BgL_n1z00_6129
; }  else 
{ 
 obj_t BgL_auxz00_10363;
BgL_auxz00_10363 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80897L), BGl_string4647z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6129); 
FAILURE(BgL_auxz00_10363,BFALSE,BFALSE);} 
BgL_auxz00_10359 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10360); } 
BgL_tmpz00_10358 = 
BGl_ze3u64ze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10359, BgL_auxz00_10368); } 
return 
BBOOL(BgL_tmpz00_10358);} } 

}



/* >bx */
BGL_EXPORTED_DEF bool_t BGl_ze3bxze3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_144, obj_t BgL_n2z00_145)
{
{ /* Ieee/fixnum.scm 1616 */
return 
(
(long)(
bgl_bignum_cmp(BgL_n1z00_144, BgL_n2z00_145))>0L);} 

}



/* &>bx */
obj_t BGl_z62ze3bxz81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6131, obj_t BgL_n1z00_6132, obj_t BgL_n2z00_6133)
{
{ /* Ieee/fixnum.scm 1616 */
{ /* Ieee/fixnum.scm 1616 */
 bool_t BgL_tmpz00_10382;
{ /* Ieee/fixnum.scm 1616 */
 obj_t BgL_auxz00_10390; obj_t BgL_auxz00_10383;
if(
BIGNUMP(BgL_n2z00_6133))
{ /* Ieee/fixnum.scm 1616 */
BgL_auxz00_10390 = BgL_n2z00_6133
; }  else 
{ 
 obj_t BgL_auxz00_10393;
BgL_auxz00_10393 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80945L), BGl_string4648z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6133); 
FAILURE(BgL_auxz00_10393,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_n1z00_6132))
{ /* Ieee/fixnum.scm 1616 */
BgL_auxz00_10383 = BgL_n1z00_6132
; }  else 
{ 
 obj_t BgL_auxz00_10386;
BgL_auxz00_10386 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80945L), BGl_string4648z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6132); 
FAILURE(BgL_auxz00_10386,BFALSE,BFALSE);} 
BgL_tmpz00_10382 = 
BGl_ze3bxze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10383, BgL_auxz00_10390); } 
return 
BBOOL(BgL_tmpz00_10382);} } 

}



/* <=fx */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3fxz10zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_146, long BgL_n2z00_147)
{
{ /* Ieee/fixnum.scm 1621 */
return 
(BgL_n1z00_146<=BgL_n2z00_147);} 

}



/* &<=fx */
obj_t BGl_z62zc3zd3fxz72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6134, obj_t BgL_n1z00_6135, obj_t BgL_n2z00_6136)
{
{ /* Ieee/fixnum.scm 1621 */
{ /* Ieee/fixnum.scm 1621 */
 bool_t BgL_tmpz00_10400;
{ /* Ieee/fixnum.scm 1621 */
 long BgL_auxz00_10410; long BgL_auxz00_10401;
{ /* Ieee/fixnum.scm 1621 */
 obj_t BgL_tmpz00_10411;
if(
INTEGERP(BgL_n2z00_6136))
{ /* Ieee/fixnum.scm 1621 */
BgL_tmpz00_10411 = BgL_n2z00_6136
; }  else 
{ 
 obj_t BgL_auxz00_10414;
BgL_auxz00_10414 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81220L), BGl_string4649z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6136); 
FAILURE(BgL_auxz00_10414,BFALSE,BFALSE);} 
BgL_auxz00_10410 = 
(long)CINT(BgL_tmpz00_10411); } 
{ /* Ieee/fixnum.scm 1621 */
 obj_t BgL_tmpz00_10402;
if(
INTEGERP(BgL_n1z00_6135))
{ /* Ieee/fixnum.scm 1621 */
BgL_tmpz00_10402 = BgL_n1z00_6135
; }  else 
{ 
 obj_t BgL_auxz00_10405;
BgL_auxz00_10405 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81220L), BGl_string4649z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6135); 
FAILURE(BgL_auxz00_10405,BFALSE,BFALSE);} 
BgL_auxz00_10401 = 
(long)CINT(BgL_tmpz00_10402); } 
BgL_tmpz00_10400 = 
BGl_zc3zd3fxz10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10401, BgL_auxz00_10410); } 
return 
BBOOL(BgL_tmpz00_10400);} } 

}



/* <=elong */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3elongz10zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_148, long BgL_n2z00_149)
{
{ /* Ieee/fixnum.scm 1623 */
return 
(BgL_n1z00_148<=BgL_n2z00_149);} 

}



/* &<=elong */
obj_t BGl_z62zc3zd3elongz72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6137, obj_t BgL_n1z00_6138, obj_t BgL_n2z00_6139)
{
{ /* Ieee/fixnum.scm 1623 */
{ /* Ieee/fixnum.scm 1623 */
 bool_t BgL_tmpz00_10422;
{ /* Ieee/fixnum.scm 1623 */
 long BgL_auxz00_10432; long BgL_auxz00_10423;
{ /* Ieee/fixnum.scm 1623 */
 obj_t BgL_tmpz00_10433;
if(
ELONGP(BgL_n2z00_6139))
{ /* Ieee/fixnum.scm 1623 */
BgL_tmpz00_10433 = BgL_n2z00_6139
; }  else 
{ 
 obj_t BgL_auxz00_10436;
BgL_auxz00_10436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81267L), BGl_string4650z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6139); 
FAILURE(BgL_auxz00_10436,BFALSE,BFALSE);} 
BgL_auxz00_10432 = 
BELONG_TO_LONG(BgL_tmpz00_10433); } 
{ /* Ieee/fixnum.scm 1623 */
 obj_t BgL_tmpz00_10424;
if(
ELONGP(BgL_n1z00_6138))
{ /* Ieee/fixnum.scm 1623 */
BgL_tmpz00_10424 = BgL_n1z00_6138
; }  else 
{ 
 obj_t BgL_auxz00_10427;
BgL_auxz00_10427 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81267L), BGl_string4650z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6138); 
FAILURE(BgL_auxz00_10427,BFALSE,BFALSE);} 
BgL_auxz00_10423 = 
BELONG_TO_LONG(BgL_tmpz00_10424); } 
BgL_tmpz00_10422 = 
BGl_zc3zd3elongz10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10423, BgL_auxz00_10432); } 
return 
BBOOL(BgL_tmpz00_10422);} } 

}



/* <=llong */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3llongz10zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_n1z00_150, BGL_LONGLONG_T BgL_n2z00_151)
{
{ /* Ieee/fixnum.scm 1624 */
return 
(BgL_n1z00_150<=BgL_n2z00_151);} 

}



/* &<=llong */
obj_t BGl_z62zc3zd3llongz72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6140, obj_t BgL_n1z00_6141, obj_t BgL_n2z00_6142)
{
{ /* Ieee/fixnum.scm 1624 */
{ /* Ieee/fixnum.scm 1624 */
 bool_t BgL_tmpz00_10444;
{ /* Ieee/fixnum.scm 1624 */
 BGL_LONGLONG_T BgL_auxz00_10454; BGL_LONGLONG_T BgL_auxz00_10445;
{ /* Ieee/fixnum.scm 1624 */
 obj_t BgL_tmpz00_10455;
if(
LLONGP(BgL_n2z00_6142))
{ /* Ieee/fixnum.scm 1624 */
BgL_tmpz00_10455 = BgL_n2z00_6142
; }  else 
{ 
 obj_t BgL_auxz00_10458;
BgL_auxz00_10458 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81316L), BGl_string4651z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6142); 
FAILURE(BgL_auxz00_10458,BFALSE,BFALSE);} 
BgL_auxz00_10454 = 
BLLONG_TO_LLONG(BgL_tmpz00_10455); } 
{ /* Ieee/fixnum.scm 1624 */
 obj_t BgL_tmpz00_10446;
if(
LLONGP(BgL_n1z00_6141))
{ /* Ieee/fixnum.scm 1624 */
BgL_tmpz00_10446 = BgL_n1z00_6141
; }  else 
{ 
 obj_t BgL_auxz00_10449;
BgL_auxz00_10449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81316L), BGl_string4651z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6141); 
FAILURE(BgL_auxz00_10449,BFALSE,BFALSE);} 
BgL_auxz00_10445 = 
BLLONG_TO_LLONG(BgL_tmpz00_10446); } 
BgL_tmpz00_10444 = 
BGl_zc3zd3llongz10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10445, BgL_auxz00_10454); } 
return 
BBOOL(BgL_tmpz00_10444);} } 

}



/* <=s8 */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3s8z10zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_152, int8_t BgL_n2z00_153)
{
{ /* Ieee/fixnum.scm 1626 */
return 
(BgL_n1z00_152<=BgL_n2z00_153);} 

}



/* &<=s8 */
obj_t BGl_z62zc3zd3s8z72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6143, obj_t BgL_n1z00_6144, obj_t BgL_n2z00_6145)
{
{ /* Ieee/fixnum.scm 1626 */
{ /* Ieee/fixnum.scm 1626 */
 bool_t BgL_tmpz00_10466;
{ /* Ieee/fixnum.scm 1626 */
 int8_t BgL_auxz00_10476; int8_t BgL_auxz00_10467;
{ /* Ieee/fixnum.scm 1626 */
 obj_t BgL_tmpz00_10477;
if(
BGL_INT8P(BgL_n2z00_6145))
{ /* Ieee/fixnum.scm 1626 */
BgL_tmpz00_10477 = BgL_n2z00_6145
; }  else 
{ 
 obj_t BgL_auxz00_10480;
BgL_auxz00_10480 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81363L), BGl_string4652z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6145); 
FAILURE(BgL_auxz00_10480,BFALSE,BFALSE);} 
BgL_auxz00_10476 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_10477); } 
{ /* Ieee/fixnum.scm 1626 */
 obj_t BgL_tmpz00_10468;
if(
BGL_INT8P(BgL_n1z00_6144))
{ /* Ieee/fixnum.scm 1626 */
BgL_tmpz00_10468 = BgL_n1z00_6144
; }  else 
{ 
 obj_t BgL_auxz00_10471;
BgL_auxz00_10471 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81363L), BGl_string4652z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6144); 
FAILURE(BgL_auxz00_10471,BFALSE,BFALSE);} 
BgL_auxz00_10467 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_10468); } 
BgL_tmpz00_10466 = 
BGl_zc3zd3s8z10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10467, BgL_auxz00_10476); } 
return 
BBOOL(BgL_tmpz00_10466);} } 

}



/* <=u8 */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3u8z10zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_154, uint8_t BgL_n2z00_155)
{
{ /* Ieee/fixnum.scm 1627 */
return 
(BgL_n1z00_154<=BgL_n2z00_155);} 

}



/* &<=u8 */
obj_t BGl_z62zc3zd3u8z72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6146, obj_t BgL_n1z00_6147, obj_t BgL_n2z00_6148)
{
{ /* Ieee/fixnum.scm 1627 */
{ /* Ieee/fixnum.scm 1627 */
 bool_t BgL_tmpz00_10488;
{ /* Ieee/fixnum.scm 1627 */
 uint8_t BgL_auxz00_10498; uint8_t BgL_auxz00_10489;
{ /* Ieee/fixnum.scm 1627 */
 obj_t BgL_tmpz00_10499;
if(
BGL_UINT8P(BgL_n2z00_6148))
{ /* Ieee/fixnum.scm 1627 */
BgL_tmpz00_10499 = BgL_n2z00_6148
; }  else 
{ 
 obj_t BgL_auxz00_10502;
BgL_auxz00_10502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81406L), BGl_string4653z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6148); 
FAILURE(BgL_auxz00_10502,BFALSE,BFALSE);} 
BgL_auxz00_10498 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_10499); } 
{ /* Ieee/fixnum.scm 1627 */
 obj_t BgL_tmpz00_10490;
if(
BGL_UINT8P(BgL_n1z00_6147))
{ /* Ieee/fixnum.scm 1627 */
BgL_tmpz00_10490 = BgL_n1z00_6147
; }  else 
{ 
 obj_t BgL_auxz00_10493;
BgL_auxz00_10493 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81406L), BGl_string4653z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6147); 
FAILURE(BgL_auxz00_10493,BFALSE,BFALSE);} 
BgL_auxz00_10489 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_10490); } 
BgL_tmpz00_10488 = 
BGl_zc3zd3u8z10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10489, BgL_auxz00_10498); } 
return 
BBOOL(BgL_tmpz00_10488);} } 

}



/* <=s16 */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3s16z10zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_156, int16_t BgL_n2z00_157)
{
{ /* Ieee/fixnum.scm 1629 */
return 
(BgL_n1z00_156<=BgL_n2z00_157);} 

}



/* &<=s16 */
obj_t BGl_z62zc3zd3s16z72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6149, obj_t BgL_n1z00_6150, obj_t BgL_n2z00_6151)
{
{ /* Ieee/fixnum.scm 1629 */
{ /* Ieee/fixnum.scm 1629 */
 bool_t BgL_tmpz00_10510;
{ /* Ieee/fixnum.scm 1629 */
 int16_t BgL_auxz00_10520; int16_t BgL_auxz00_10511;
{ /* Ieee/fixnum.scm 1629 */
 obj_t BgL_tmpz00_10521;
if(
BGL_INT16P(BgL_n2z00_6151))
{ /* Ieee/fixnum.scm 1629 */
BgL_tmpz00_10521 = BgL_n2z00_6151
; }  else 
{ 
 obj_t BgL_auxz00_10524;
BgL_auxz00_10524 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81451L), BGl_string4654z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6151); 
FAILURE(BgL_auxz00_10524,BFALSE,BFALSE);} 
BgL_auxz00_10520 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_10521); } 
{ /* Ieee/fixnum.scm 1629 */
 obj_t BgL_tmpz00_10512;
if(
BGL_INT16P(BgL_n1z00_6150))
{ /* Ieee/fixnum.scm 1629 */
BgL_tmpz00_10512 = BgL_n1z00_6150
; }  else 
{ 
 obj_t BgL_auxz00_10515;
BgL_auxz00_10515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81451L), BGl_string4654z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6150); 
FAILURE(BgL_auxz00_10515,BFALSE,BFALSE);} 
BgL_auxz00_10511 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_10512); } 
BgL_tmpz00_10510 = 
BGl_zc3zd3s16z10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10511, BgL_auxz00_10520); } 
return 
BBOOL(BgL_tmpz00_10510);} } 

}



/* <=u16 */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3u16z10zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_158, uint16_t BgL_n2z00_159)
{
{ /* Ieee/fixnum.scm 1630 */
return 
(BgL_n1z00_158<=BgL_n2z00_159);} 

}



/* &<=u16 */
obj_t BGl_z62zc3zd3u16z72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6152, obj_t BgL_n1z00_6153, obj_t BgL_n2z00_6154)
{
{ /* Ieee/fixnum.scm 1630 */
{ /* Ieee/fixnum.scm 1630 */
 bool_t BgL_tmpz00_10532;
{ /* Ieee/fixnum.scm 1630 */
 uint16_t BgL_auxz00_10542; uint16_t BgL_auxz00_10533;
{ /* Ieee/fixnum.scm 1630 */
 obj_t BgL_tmpz00_10543;
if(
BGL_UINT16P(BgL_n2z00_6154))
{ /* Ieee/fixnum.scm 1630 */
BgL_tmpz00_10543 = BgL_n2z00_6154
; }  else 
{ 
 obj_t BgL_auxz00_10546;
BgL_auxz00_10546 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81496L), BGl_string4655z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6154); 
FAILURE(BgL_auxz00_10546,BFALSE,BFALSE);} 
BgL_auxz00_10542 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_10543); } 
{ /* Ieee/fixnum.scm 1630 */
 obj_t BgL_tmpz00_10534;
if(
BGL_UINT16P(BgL_n1z00_6153))
{ /* Ieee/fixnum.scm 1630 */
BgL_tmpz00_10534 = BgL_n1z00_6153
; }  else 
{ 
 obj_t BgL_auxz00_10537;
BgL_auxz00_10537 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81496L), BGl_string4655z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6153); 
FAILURE(BgL_auxz00_10537,BFALSE,BFALSE);} 
BgL_auxz00_10533 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_10534); } 
BgL_tmpz00_10532 = 
BGl_zc3zd3u16z10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10533, BgL_auxz00_10542); } 
return 
BBOOL(BgL_tmpz00_10532);} } 

}



/* <=s32 */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3s32z10zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_160, int32_t BgL_n2z00_161)
{
{ /* Ieee/fixnum.scm 1632 */
return 
(BgL_n1z00_160<=BgL_n2z00_161);} 

}



/* &<=s32 */
obj_t BGl_z62zc3zd3s32z72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6155, obj_t BgL_n1z00_6156, obj_t BgL_n2z00_6157)
{
{ /* Ieee/fixnum.scm 1632 */
{ /* Ieee/fixnum.scm 1632 */
 bool_t BgL_tmpz00_10554;
{ /* Ieee/fixnum.scm 1632 */
 int32_t BgL_auxz00_10564; int32_t BgL_auxz00_10555;
{ /* Ieee/fixnum.scm 1632 */
 obj_t BgL_tmpz00_10565;
if(
BGL_INT32P(BgL_n2z00_6157))
{ /* Ieee/fixnum.scm 1632 */
BgL_tmpz00_10565 = BgL_n2z00_6157
; }  else 
{ 
 obj_t BgL_auxz00_10568;
BgL_auxz00_10568 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81542L), BGl_string4656z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6157); 
FAILURE(BgL_auxz00_10568,BFALSE,BFALSE);} 
BgL_auxz00_10564 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_10565); } 
{ /* Ieee/fixnum.scm 1632 */
 obj_t BgL_tmpz00_10556;
if(
BGL_INT32P(BgL_n1z00_6156))
{ /* Ieee/fixnum.scm 1632 */
BgL_tmpz00_10556 = BgL_n1z00_6156
; }  else 
{ 
 obj_t BgL_auxz00_10559;
BgL_auxz00_10559 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81542L), BGl_string4656z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6156); 
FAILURE(BgL_auxz00_10559,BFALSE,BFALSE);} 
BgL_auxz00_10555 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_10556); } 
BgL_tmpz00_10554 = 
BGl_zc3zd3s32z10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10555, BgL_auxz00_10564); } 
return 
BBOOL(BgL_tmpz00_10554);} } 

}



/* <=u32 */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3u32z10zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_162, uint32_t BgL_n2z00_163)
{
{ /* Ieee/fixnum.scm 1633 */
return 
(BgL_n1z00_162<=BgL_n2z00_163);} 

}



/* &<=u32 */
obj_t BGl_z62zc3zd3u32z72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6158, obj_t BgL_n1z00_6159, obj_t BgL_n2z00_6160)
{
{ /* Ieee/fixnum.scm 1633 */
{ /* Ieee/fixnum.scm 1633 */
 bool_t BgL_tmpz00_10576;
{ /* Ieee/fixnum.scm 1633 */
 uint32_t BgL_auxz00_10586; uint32_t BgL_auxz00_10577;
{ /* Ieee/fixnum.scm 1633 */
 obj_t BgL_tmpz00_10587;
if(
BGL_UINT32P(BgL_n2z00_6160))
{ /* Ieee/fixnum.scm 1633 */
BgL_tmpz00_10587 = BgL_n2z00_6160
; }  else 
{ 
 obj_t BgL_auxz00_10590;
BgL_auxz00_10590 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81587L), BGl_string4657z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6160); 
FAILURE(BgL_auxz00_10590,BFALSE,BFALSE);} 
BgL_auxz00_10586 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_10587); } 
{ /* Ieee/fixnum.scm 1633 */
 obj_t BgL_tmpz00_10578;
if(
BGL_UINT32P(BgL_n1z00_6159))
{ /* Ieee/fixnum.scm 1633 */
BgL_tmpz00_10578 = BgL_n1z00_6159
; }  else 
{ 
 obj_t BgL_auxz00_10581;
BgL_auxz00_10581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81587L), BGl_string4657z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6159); 
FAILURE(BgL_auxz00_10581,BFALSE,BFALSE);} 
BgL_auxz00_10577 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_10578); } 
BgL_tmpz00_10576 = 
BGl_zc3zd3u32z10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10577, BgL_auxz00_10586); } 
return 
BBOOL(BgL_tmpz00_10576);} } 

}



/* <=s64 */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3s64z10zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_164, int64_t BgL_n2z00_165)
{
{ /* Ieee/fixnum.scm 1635 */
return 
(BgL_n1z00_164<=BgL_n2z00_165);} 

}



/* &<=s64 */
obj_t BGl_z62zc3zd3s64z72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6161, obj_t BgL_n1z00_6162, obj_t BgL_n2z00_6163)
{
{ /* Ieee/fixnum.scm 1635 */
{ /* Ieee/fixnum.scm 1635 */
 bool_t BgL_tmpz00_10598;
{ /* Ieee/fixnum.scm 1635 */
 int64_t BgL_auxz00_10608; int64_t BgL_auxz00_10599;
{ /* Ieee/fixnum.scm 1635 */
 obj_t BgL_tmpz00_10609;
if(
BGL_INT64P(BgL_n2z00_6163))
{ /* Ieee/fixnum.scm 1635 */
BgL_tmpz00_10609 = BgL_n2z00_6163
; }  else 
{ 
 obj_t BgL_auxz00_10612;
BgL_auxz00_10612 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81633L), BGl_string4658z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6163); 
FAILURE(BgL_auxz00_10612,BFALSE,BFALSE);} 
BgL_auxz00_10608 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10609); } 
{ /* Ieee/fixnum.scm 1635 */
 obj_t BgL_tmpz00_10600;
if(
BGL_INT64P(BgL_n1z00_6162))
{ /* Ieee/fixnum.scm 1635 */
BgL_tmpz00_10600 = BgL_n1z00_6162
; }  else 
{ 
 obj_t BgL_auxz00_10603;
BgL_auxz00_10603 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81633L), BGl_string4658z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6162); 
FAILURE(BgL_auxz00_10603,BFALSE,BFALSE);} 
BgL_auxz00_10599 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10600); } 
BgL_tmpz00_10598 = 
BGl_zc3zd3s64z10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10599, BgL_auxz00_10608); } 
return 
BBOOL(BgL_tmpz00_10598);} } 

}



/* <=u64 */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3u64z10zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_166, uint64_t BgL_n2z00_167)
{
{ /* Ieee/fixnum.scm 1636 */
return 
(BgL_n1z00_166<=BgL_n2z00_167);} 

}



/* &<=u64 */
obj_t BGl_z62zc3zd3u64z72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6164, obj_t BgL_n1z00_6165, obj_t BgL_n2z00_6166)
{
{ /* Ieee/fixnum.scm 1636 */
{ /* Ieee/fixnum.scm 1636 */
 bool_t BgL_tmpz00_10620;
{ /* Ieee/fixnum.scm 1636 */
 uint64_t BgL_auxz00_10630; uint64_t BgL_auxz00_10621;
{ /* Ieee/fixnum.scm 1636 */
 obj_t BgL_tmpz00_10631;
if(
BGL_UINT64P(BgL_n2z00_6166))
{ /* Ieee/fixnum.scm 1636 */
BgL_tmpz00_10631 = BgL_n2z00_6166
; }  else 
{ 
 obj_t BgL_auxz00_10634;
BgL_auxz00_10634 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81678L), BGl_string4659z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6166); 
FAILURE(BgL_auxz00_10634,BFALSE,BFALSE);} 
BgL_auxz00_10630 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10631); } 
{ /* Ieee/fixnum.scm 1636 */
 obj_t BgL_tmpz00_10622;
if(
BGL_UINT64P(BgL_n1z00_6165))
{ /* Ieee/fixnum.scm 1636 */
BgL_tmpz00_10622 = BgL_n1z00_6165
; }  else 
{ 
 obj_t BgL_auxz00_10625;
BgL_auxz00_10625 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81678L), BGl_string4659z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6165); 
FAILURE(BgL_auxz00_10625,BFALSE,BFALSE);} 
BgL_auxz00_10621 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10622); } 
BgL_tmpz00_10620 = 
BGl_zc3zd3u64z10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10621, BgL_auxz00_10630); } 
return 
BBOOL(BgL_tmpz00_10620);} } 

}



/* <=bx */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3bxz10zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_168, obj_t BgL_n2z00_169)
{
{ /* Ieee/fixnum.scm 1638 */
return 
(
(long)(
bgl_bignum_cmp(BgL_n1z00_168, BgL_n2z00_169))<=0L);} 

}



/* &<=bx */
obj_t BGl_z62zc3zd3bxz72zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6167, obj_t BgL_n1z00_6168, obj_t BgL_n2z00_6169)
{
{ /* Ieee/fixnum.scm 1638 */
{ /* Ieee/fixnum.scm 1638 */
 bool_t BgL_tmpz00_10644;
{ /* Ieee/fixnum.scm 1638 */
 obj_t BgL_auxz00_10652; obj_t BgL_auxz00_10645;
if(
BIGNUMP(BgL_n2z00_6169))
{ /* Ieee/fixnum.scm 1638 */
BgL_auxz00_10652 = BgL_n2z00_6169
; }  else 
{ 
 obj_t BgL_auxz00_10655;
BgL_auxz00_10655 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81729L), BGl_string4660z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6169); 
FAILURE(BgL_auxz00_10655,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_n1z00_6168))
{ /* Ieee/fixnum.scm 1638 */
BgL_auxz00_10645 = BgL_n1z00_6168
; }  else 
{ 
 obj_t BgL_auxz00_10648;
BgL_auxz00_10648 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(81729L), BGl_string4660z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6168); 
FAILURE(BgL_auxz00_10648,BFALSE,BFALSE);} 
BgL_tmpz00_10644 = 
BGl_zc3zd3bxz10zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10645, BgL_auxz00_10652); } 
return 
BBOOL(BgL_tmpz00_10644);} } 

}



/* >=fx */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3fxz30zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_170, long BgL_n2z00_171)
{
{ /* Ieee/fixnum.scm 1643 */
return 
(BgL_n1z00_170>=BgL_n2z00_171);} 

}



/* &>=fx */
obj_t BGl_z62ze3zd3fxz52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6170, obj_t BgL_n1z00_6171, obj_t BgL_n2z00_6172)
{
{ /* Ieee/fixnum.scm 1643 */
{ /* Ieee/fixnum.scm 1643 */
 bool_t BgL_tmpz00_10662;
{ /* Ieee/fixnum.scm 1643 */
 long BgL_auxz00_10672; long BgL_auxz00_10663;
{ /* Ieee/fixnum.scm 1643 */
 obj_t BgL_tmpz00_10673;
if(
INTEGERP(BgL_n2z00_6172))
{ /* Ieee/fixnum.scm 1643 */
BgL_tmpz00_10673 = BgL_n2z00_6172
; }  else 
{ 
 obj_t BgL_auxz00_10676;
BgL_auxz00_10676 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82004L), BGl_string4661z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6172); 
FAILURE(BgL_auxz00_10676,BFALSE,BFALSE);} 
BgL_auxz00_10672 = 
(long)CINT(BgL_tmpz00_10673); } 
{ /* Ieee/fixnum.scm 1643 */
 obj_t BgL_tmpz00_10664;
if(
INTEGERP(BgL_n1z00_6171))
{ /* Ieee/fixnum.scm 1643 */
BgL_tmpz00_10664 = BgL_n1z00_6171
; }  else 
{ 
 obj_t BgL_auxz00_10667;
BgL_auxz00_10667 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82004L), BGl_string4661z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6171); 
FAILURE(BgL_auxz00_10667,BFALSE,BFALSE);} 
BgL_auxz00_10663 = 
(long)CINT(BgL_tmpz00_10664); } 
BgL_tmpz00_10662 = 
BGl_ze3zd3fxz30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10663, BgL_auxz00_10672); } 
return 
BBOOL(BgL_tmpz00_10662);} } 

}



/* >=elong */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3elongz30zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_172, long BgL_n2z00_173)
{
{ /* Ieee/fixnum.scm 1645 */
return 
(BgL_n1z00_172>=BgL_n2z00_173);} 

}



/* &>=elong */
obj_t BGl_z62ze3zd3elongz52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6173, obj_t BgL_n1z00_6174, obj_t BgL_n2z00_6175)
{
{ /* Ieee/fixnum.scm 1645 */
{ /* Ieee/fixnum.scm 1645 */
 bool_t BgL_tmpz00_10684;
{ /* Ieee/fixnum.scm 1645 */
 long BgL_auxz00_10694; long BgL_auxz00_10685;
{ /* Ieee/fixnum.scm 1645 */
 obj_t BgL_tmpz00_10695;
if(
ELONGP(BgL_n2z00_6175))
{ /* Ieee/fixnum.scm 1645 */
BgL_tmpz00_10695 = BgL_n2z00_6175
; }  else 
{ 
 obj_t BgL_auxz00_10698;
BgL_auxz00_10698 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82051L), BGl_string4662z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6175); 
FAILURE(BgL_auxz00_10698,BFALSE,BFALSE);} 
BgL_auxz00_10694 = 
BELONG_TO_LONG(BgL_tmpz00_10695); } 
{ /* Ieee/fixnum.scm 1645 */
 obj_t BgL_tmpz00_10686;
if(
ELONGP(BgL_n1z00_6174))
{ /* Ieee/fixnum.scm 1645 */
BgL_tmpz00_10686 = BgL_n1z00_6174
; }  else 
{ 
 obj_t BgL_auxz00_10689;
BgL_auxz00_10689 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82051L), BGl_string4662z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6174); 
FAILURE(BgL_auxz00_10689,BFALSE,BFALSE);} 
BgL_auxz00_10685 = 
BELONG_TO_LONG(BgL_tmpz00_10686); } 
BgL_tmpz00_10684 = 
BGl_ze3zd3elongz30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10685, BgL_auxz00_10694); } 
return 
BBOOL(BgL_tmpz00_10684);} } 

}



/* >=llong */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3llongz30zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_n1z00_174, BGL_LONGLONG_T BgL_n2z00_175)
{
{ /* Ieee/fixnum.scm 1646 */
return 
(BgL_n1z00_174>=BgL_n2z00_175);} 

}



/* &>=llong */
obj_t BGl_z62ze3zd3llongz52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6176, obj_t BgL_n1z00_6177, obj_t BgL_n2z00_6178)
{
{ /* Ieee/fixnum.scm 1646 */
{ /* Ieee/fixnum.scm 1646 */
 bool_t BgL_tmpz00_10706;
{ /* Ieee/fixnum.scm 1646 */
 BGL_LONGLONG_T BgL_auxz00_10716; BGL_LONGLONG_T BgL_auxz00_10707;
{ /* Ieee/fixnum.scm 1646 */
 obj_t BgL_tmpz00_10717;
if(
LLONGP(BgL_n2z00_6178))
{ /* Ieee/fixnum.scm 1646 */
BgL_tmpz00_10717 = BgL_n2z00_6178
; }  else 
{ 
 obj_t BgL_auxz00_10720;
BgL_auxz00_10720 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82100L), BGl_string4663z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6178); 
FAILURE(BgL_auxz00_10720,BFALSE,BFALSE);} 
BgL_auxz00_10716 = 
BLLONG_TO_LLONG(BgL_tmpz00_10717); } 
{ /* Ieee/fixnum.scm 1646 */
 obj_t BgL_tmpz00_10708;
if(
LLONGP(BgL_n1z00_6177))
{ /* Ieee/fixnum.scm 1646 */
BgL_tmpz00_10708 = BgL_n1z00_6177
; }  else 
{ 
 obj_t BgL_auxz00_10711;
BgL_auxz00_10711 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82100L), BGl_string4663z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6177); 
FAILURE(BgL_auxz00_10711,BFALSE,BFALSE);} 
BgL_auxz00_10707 = 
BLLONG_TO_LLONG(BgL_tmpz00_10708); } 
BgL_tmpz00_10706 = 
BGl_ze3zd3llongz30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10707, BgL_auxz00_10716); } 
return 
BBOOL(BgL_tmpz00_10706);} } 

}



/* >=s8 */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3s8z30zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_176, int8_t BgL_n2z00_177)
{
{ /* Ieee/fixnum.scm 1648 */
return 
(BgL_n1z00_176>=BgL_n2z00_177);} 

}



/* &>=s8 */
obj_t BGl_z62ze3zd3s8z52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6179, obj_t BgL_n1z00_6180, obj_t BgL_n2z00_6181)
{
{ /* Ieee/fixnum.scm 1648 */
{ /* Ieee/fixnum.scm 1648 */
 bool_t BgL_tmpz00_10728;
{ /* Ieee/fixnum.scm 1648 */
 int8_t BgL_auxz00_10738; int8_t BgL_auxz00_10729;
{ /* Ieee/fixnum.scm 1648 */
 obj_t BgL_tmpz00_10739;
if(
BGL_INT8P(BgL_n2z00_6181))
{ /* Ieee/fixnum.scm 1648 */
BgL_tmpz00_10739 = BgL_n2z00_6181
; }  else 
{ 
 obj_t BgL_auxz00_10742;
BgL_auxz00_10742 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82147L), BGl_string4664z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6181); 
FAILURE(BgL_auxz00_10742,BFALSE,BFALSE);} 
BgL_auxz00_10738 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_10739); } 
{ /* Ieee/fixnum.scm 1648 */
 obj_t BgL_tmpz00_10730;
if(
BGL_INT8P(BgL_n1z00_6180))
{ /* Ieee/fixnum.scm 1648 */
BgL_tmpz00_10730 = BgL_n1z00_6180
; }  else 
{ 
 obj_t BgL_auxz00_10733;
BgL_auxz00_10733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82147L), BGl_string4664z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6180); 
FAILURE(BgL_auxz00_10733,BFALSE,BFALSE);} 
BgL_auxz00_10729 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_10730); } 
BgL_tmpz00_10728 = 
BGl_ze3zd3s8z30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10729, BgL_auxz00_10738); } 
return 
BBOOL(BgL_tmpz00_10728);} } 

}



/* >=u8 */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3u8z30zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_178, uint8_t BgL_n2z00_179)
{
{ /* Ieee/fixnum.scm 1649 */
return 
(BgL_n1z00_178>=BgL_n2z00_179);} 

}



/* &>=u8 */
obj_t BGl_z62ze3zd3u8z52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6182, obj_t BgL_n1z00_6183, obj_t BgL_n2z00_6184)
{
{ /* Ieee/fixnum.scm 1649 */
{ /* Ieee/fixnum.scm 1649 */
 bool_t BgL_tmpz00_10750;
{ /* Ieee/fixnum.scm 1649 */
 uint8_t BgL_auxz00_10760; uint8_t BgL_auxz00_10751;
{ /* Ieee/fixnum.scm 1649 */
 obj_t BgL_tmpz00_10761;
if(
BGL_UINT8P(BgL_n2z00_6184))
{ /* Ieee/fixnum.scm 1649 */
BgL_tmpz00_10761 = BgL_n2z00_6184
; }  else 
{ 
 obj_t BgL_auxz00_10764;
BgL_auxz00_10764 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82190L), BGl_string4665z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6184); 
FAILURE(BgL_auxz00_10764,BFALSE,BFALSE);} 
BgL_auxz00_10760 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_10761); } 
{ /* Ieee/fixnum.scm 1649 */
 obj_t BgL_tmpz00_10752;
if(
BGL_UINT8P(BgL_n1z00_6183))
{ /* Ieee/fixnum.scm 1649 */
BgL_tmpz00_10752 = BgL_n1z00_6183
; }  else 
{ 
 obj_t BgL_auxz00_10755;
BgL_auxz00_10755 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82190L), BGl_string4665z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6183); 
FAILURE(BgL_auxz00_10755,BFALSE,BFALSE);} 
BgL_auxz00_10751 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_10752); } 
BgL_tmpz00_10750 = 
BGl_ze3zd3u8z30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10751, BgL_auxz00_10760); } 
return 
BBOOL(BgL_tmpz00_10750);} } 

}



/* >=s16 */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3s16z30zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_180, int16_t BgL_n2z00_181)
{
{ /* Ieee/fixnum.scm 1651 */
return 
(BgL_n1z00_180>=BgL_n2z00_181);} 

}



/* &>=s16 */
obj_t BGl_z62ze3zd3s16z52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6185, obj_t BgL_n1z00_6186, obj_t BgL_n2z00_6187)
{
{ /* Ieee/fixnum.scm 1651 */
{ /* Ieee/fixnum.scm 1651 */
 bool_t BgL_tmpz00_10772;
{ /* Ieee/fixnum.scm 1651 */
 int16_t BgL_auxz00_10782; int16_t BgL_auxz00_10773;
{ /* Ieee/fixnum.scm 1651 */
 obj_t BgL_tmpz00_10783;
if(
BGL_INT16P(BgL_n2z00_6187))
{ /* Ieee/fixnum.scm 1651 */
BgL_tmpz00_10783 = BgL_n2z00_6187
; }  else 
{ 
 obj_t BgL_auxz00_10786;
BgL_auxz00_10786 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82235L), BGl_string4666z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6187); 
FAILURE(BgL_auxz00_10786,BFALSE,BFALSE);} 
BgL_auxz00_10782 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_10783); } 
{ /* Ieee/fixnum.scm 1651 */
 obj_t BgL_tmpz00_10774;
if(
BGL_INT16P(BgL_n1z00_6186))
{ /* Ieee/fixnum.scm 1651 */
BgL_tmpz00_10774 = BgL_n1z00_6186
; }  else 
{ 
 obj_t BgL_auxz00_10777;
BgL_auxz00_10777 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82235L), BGl_string4666z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6186); 
FAILURE(BgL_auxz00_10777,BFALSE,BFALSE);} 
BgL_auxz00_10773 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_10774); } 
BgL_tmpz00_10772 = 
BGl_ze3zd3s16z30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10773, BgL_auxz00_10782); } 
return 
BBOOL(BgL_tmpz00_10772);} } 

}



/* >=u16 */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3u16z30zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_182, uint16_t BgL_n2z00_183)
{
{ /* Ieee/fixnum.scm 1652 */
return 
(BgL_n1z00_182>=BgL_n2z00_183);} 

}



/* &>=u16 */
obj_t BGl_z62ze3zd3u16z52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6188, obj_t BgL_n1z00_6189, obj_t BgL_n2z00_6190)
{
{ /* Ieee/fixnum.scm 1652 */
{ /* Ieee/fixnum.scm 1652 */
 bool_t BgL_tmpz00_10794;
{ /* Ieee/fixnum.scm 1652 */
 uint16_t BgL_auxz00_10804; uint16_t BgL_auxz00_10795;
{ /* Ieee/fixnum.scm 1652 */
 obj_t BgL_tmpz00_10805;
if(
BGL_UINT16P(BgL_n2z00_6190))
{ /* Ieee/fixnum.scm 1652 */
BgL_tmpz00_10805 = BgL_n2z00_6190
; }  else 
{ 
 obj_t BgL_auxz00_10808;
BgL_auxz00_10808 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82280L), BGl_string4667z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6190); 
FAILURE(BgL_auxz00_10808,BFALSE,BFALSE);} 
BgL_auxz00_10804 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_10805); } 
{ /* Ieee/fixnum.scm 1652 */
 obj_t BgL_tmpz00_10796;
if(
BGL_UINT16P(BgL_n1z00_6189))
{ /* Ieee/fixnum.scm 1652 */
BgL_tmpz00_10796 = BgL_n1z00_6189
; }  else 
{ 
 obj_t BgL_auxz00_10799;
BgL_auxz00_10799 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82280L), BGl_string4667z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6189); 
FAILURE(BgL_auxz00_10799,BFALSE,BFALSE);} 
BgL_auxz00_10795 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_10796); } 
BgL_tmpz00_10794 = 
BGl_ze3zd3u16z30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10795, BgL_auxz00_10804); } 
return 
BBOOL(BgL_tmpz00_10794);} } 

}



/* >=s32 */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3s32z30zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_184, int32_t BgL_n2z00_185)
{
{ /* Ieee/fixnum.scm 1654 */
return 
(BgL_n1z00_184>=BgL_n2z00_185);} 

}



/* &>=s32 */
obj_t BGl_z62ze3zd3s32z52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6191, obj_t BgL_n1z00_6192, obj_t BgL_n2z00_6193)
{
{ /* Ieee/fixnum.scm 1654 */
{ /* Ieee/fixnum.scm 1654 */
 bool_t BgL_tmpz00_10816;
{ /* Ieee/fixnum.scm 1654 */
 int32_t BgL_auxz00_10826; int32_t BgL_auxz00_10817;
{ /* Ieee/fixnum.scm 1654 */
 obj_t BgL_tmpz00_10827;
if(
BGL_INT32P(BgL_n2z00_6193))
{ /* Ieee/fixnum.scm 1654 */
BgL_tmpz00_10827 = BgL_n2z00_6193
; }  else 
{ 
 obj_t BgL_auxz00_10830;
BgL_auxz00_10830 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82326L), BGl_string4668z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6193); 
FAILURE(BgL_auxz00_10830,BFALSE,BFALSE);} 
BgL_auxz00_10826 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_10827); } 
{ /* Ieee/fixnum.scm 1654 */
 obj_t BgL_tmpz00_10818;
if(
BGL_INT32P(BgL_n1z00_6192))
{ /* Ieee/fixnum.scm 1654 */
BgL_tmpz00_10818 = BgL_n1z00_6192
; }  else 
{ 
 obj_t BgL_auxz00_10821;
BgL_auxz00_10821 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82326L), BGl_string4668z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6192); 
FAILURE(BgL_auxz00_10821,BFALSE,BFALSE);} 
BgL_auxz00_10817 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_10818); } 
BgL_tmpz00_10816 = 
BGl_ze3zd3s32z30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10817, BgL_auxz00_10826); } 
return 
BBOOL(BgL_tmpz00_10816);} } 

}



/* >=u32 */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3u32z30zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_186, uint32_t BgL_n2z00_187)
{
{ /* Ieee/fixnum.scm 1655 */
return 
(BgL_n1z00_186>=BgL_n2z00_187);} 

}



/* &>=u32 */
obj_t BGl_z62ze3zd3u32z52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6194, obj_t BgL_n1z00_6195, obj_t BgL_n2z00_6196)
{
{ /* Ieee/fixnum.scm 1655 */
{ /* Ieee/fixnum.scm 1655 */
 bool_t BgL_tmpz00_10838;
{ /* Ieee/fixnum.scm 1655 */
 uint32_t BgL_auxz00_10848; uint32_t BgL_auxz00_10839;
{ /* Ieee/fixnum.scm 1655 */
 obj_t BgL_tmpz00_10849;
if(
BGL_UINT32P(BgL_n2z00_6196))
{ /* Ieee/fixnum.scm 1655 */
BgL_tmpz00_10849 = BgL_n2z00_6196
; }  else 
{ 
 obj_t BgL_auxz00_10852;
BgL_auxz00_10852 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82371L), BGl_string4669z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6196); 
FAILURE(BgL_auxz00_10852,BFALSE,BFALSE);} 
BgL_auxz00_10848 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_10849); } 
{ /* Ieee/fixnum.scm 1655 */
 obj_t BgL_tmpz00_10840;
if(
BGL_UINT32P(BgL_n1z00_6195))
{ /* Ieee/fixnum.scm 1655 */
BgL_tmpz00_10840 = BgL_n1z00_6195
; }  else 
{ 
 obj_t BgL_auxz00_10843;
BgL_auxz00_10843 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82371L), BGl_string4669z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6195); 
FAILURE(BgL_auxz00_10843,BFALSE,BFALSE);} 
BgL_auxz00_10839 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_10840); } 
BgL_tmpz00_10838 = 
BGl_ze3zd3u32z30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10839, BgL_auxz00_10848); } 
return 
BBOOL(BgL_tmpz00_10838);} } 

}



/* >=s64 */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3s64z30zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_188, int64_t BgL_n2z00_189)
{
{ /* Ieee/fixnum.scm 1657 */
return 
(BgL_n1z00_188>=BgL_n2z00_189);} 

}



/* &>=s64 */
obj_t BGl_z62ze3zd3s64z52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6197, obj_t BgL_n1z00_6198, obj_t BgL_n2z00_6199)
{
{ /* Ieee/fixnum.scm 1657 */
{ /* Ieee/fixnum.scm 1657 */
 bool_t BgL_tmpz00_10860;
{ /* Ieee/fixnum.scm 1657 */
 int64_t BgL_auxz00_10870; int64_t BgL_auxz00_10861;
{ /* Ieee/fixnum.scm 1657 */
 obj_t BgL_tmpz00_10871;
if(
BGL_INT64P(BgL_n2z00_6199))
{ /* Ieee/fixnum.scm 1657 */
BgL_tmpz00_10871 = BgL_n2z00_6199
; }  else 
{ 
 obj_t BgL_auxz00_10874;
BgL_auxz00_10874 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82417L), BGl_string4670z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6199); 
FAILURE(BgL_auxz00_10874,BFALSE,BFALSE);} 
BgL_auxz00_10870 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10871); } 
{ /* Ieee/fixnum.scm 1657 */
 obj_t BgL_tmpz00_10862;
if(
BGL_INT64P(BgL_n1z00_6198))
{ /* Ieee/fixnum.scm 1657 */
BgL_tmpz00_10862 = BgL_n1z00_6198
; }  else 
{ 
 obj_t BgL_auxz00_10865;
BgL_auxz00_10865 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82417L), BGl_string4670z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6198); 
FAILURE(BgL_auxz00_10865,BFALSE,BFALSE);} 
BgL_auxz00_10861 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10862); } 
BgL_tmpz00_10860 = 
BGl_ze3zd3s64z30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10861, BgL_auxz00_10870); } 
return 
BBOOL(BgL_tmpz00_10860);} } 

}



/* >=u64 */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3u64z30zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_190, uint64_t BgL_n2z00_191)
{
{ /* Ieee/fixnum.scm 1658 */
return 
(BgL_n1z00_190>=BgL_n2z00_191);} 

}



/* &>=u64 */
obj_t BGl_z62ze3zd3u64z52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6200, obj_t BgL_n1z00_6201, obj_t BgL_n2z00_6202)
{
{ /* Ieee/fixnum.scm 1658 */
{ /* Ieee/fixnum.scm 1658 */
 bool_t BgL_tmpz00_10882;
{ /* Ieee/fixnum.scm 1658 */
 uint64_t BgL_auxz00_10892; uint64_t BgL_auxz00_10883;
{ /* Ieee/fixnum.scm 1658 */
 obj_t BgL_tmpz00_10893;
if(
BGL_UINT64P(BgL_n2z00_6202))
{ /* Ieee/fixnum.scm 1658 */
BgL_tmpz00_10893 = BgL_n2z00_6202
; }  else 
{ 
 obj_t BgL_auxz00_10896;
BgL_auxz00_10896 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82462L), BGl_string4671z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6202); 
FAILURE(BgL_auxz00_10896,BFALSE,BFALSE);} 
BgL_auxz00_10892 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10893); } 
{ /* Ieee/fixnum.scm 1658 */
 obj_t BgL_tmpz00_10884;
if(
BGL_UINT64P(BgL_n1z00_6201))
{ /* Ieee/fixnum.scm 1658 */
BgL_tmpz00_10884 = BgL_n1z00_6201
; }  else 
{ 
 obj_t BgL_auxz00_10887;
BgL_auxz00_10887 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82462L), BGl_string4671z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6201); 
FAILURE(BgL_auxz00_10887,BFALSE,BFALSE);} 
BgL_auxz00_10883 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_10884); } 
BgL_tmpz00_10882 = 
BGl_ze3zd3u64z30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10883, BgL_auxz00_10892); } 
return 
BBOOL(BgL_tmpz00_10882);} } 

}



/* >=bx */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3bxz30zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_192, obj_t BgL_n2z00_193)
{
{ /* Ieee/fixnum.scm 1660 */
return 
(
(long)(
bgl_bignum_cmp(BgL_n1z00_192, BgL_n2z00_193))>=0L);} 

}



/* &>=bx */
obj_t BGl_z62ze3zd3bxz52zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6203, obj_t BgL_n1z00_6204, obj_t BgL_n2z00_6205)
{
{ /* Ieee/fixnum.scm 1660 */
{ /* Ieee/fixnum.scm 1660 */
 bool_t BgL_tmpz00_10906;
{ /* Ieee/fixnum.scm 1660 */
 obj_t BgL_auxz00_10914; obj_t BgL_auxz00_10907;
if(
BIGNUMP(BgL_n2z00_6205))
{ /* Ieee/fixnum.scm 1660 */
BgL_auxz00_10914 = BgL_n2z00_6205
; }  else 
{ 
 obj_t BgL_auxz00_10917;
BgL_auxz00_10917 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82513L), BGl_string4672z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6205); 
FAILURE(BgL_auxz00_10917,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_n1z00_6204))
{ /* Ieee/fixnum.scm 1660 */
BgL_auxz00_10907 = BgL_n1z00_6204
; }  else 
{ 
 obj_t BgL_auxz00_10910;
BgL_auxz00_10910 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82513L), BGl_string4672z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6204); 
FAILURE(BgL_auxz00_10910,BFALSE,BFALSE);} 
BgL_tmpz00_10906 = 
BGl_ze3zd3bxz30zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10907, BgL_auxz00_10914); } 
return 
BBOOL(BgL_tmpz00_10906);} } 

}



/* zerofx? */
BGL_EXPORTED_DEF bool_t BGl_za7erofxzf3z54zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_194)
{
{ /* Ieee/fixnum.scm 1665 */
return 
(BgL_nz00_194==0L);} 

}



/* &zerofx? */
obj_t BGl_z62za7erofxzf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6206, obj_t BgL_nz00_6207)
{
{ /* Ieee/fixnum.scm 1665 */
{ /* Ieee/fixnum.scm 1555 */
 bool_t BgL_tmpz00_10924;
{ /* Ieee/fixnum.scm 1555 */
 long BgL_auxz00_10925;
{ /* Ieee/fixnum.scm 1555 */
 obj_t BgL_tmpz00_10926;
if(
INTEGERP(BgL_nz00_6207))
{ /* Ieee/fixnum.scm 1555 */
BgL_tmpz00_10926 = BgL_nz00_6207
; }  else 
{ 
 obj_t BgL_auxz00_10929;
BgL_auxz00_10929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(78939L), BGl_string4673z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6207); 
FAILURE(BgL_auxz00_10929,BFALSE,BFALSE);} 
BgL_auxz00_10925 = 
(long)CINT(BgL_tmpz00_10926); } 
BgL_tmpz00_10924 = 
BGl_za7erofxzf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10925); } 
return 
BBOOL(BgL_tmpz00_10924);} } 

}



/* zeroelong? */
BGL_EXPORTED_DEF bool_t BGl_za7eroelongzf3z54zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_195)
{
{ /* Ieee/fixnum.scm 1667 */
return 
(BgL_nz00_195==((long)0));} 

}



/* &zeroelong? */
obj_t BGl_z62za7eroelongzf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6208, obj_t BgL_nz00_6209)
{
{ /* Ieee/fixnum.scm 1667 */
{ /* Ieee/fixnum.scm 1557 */
 bool_t BgL_tmpz00_10937;
{ /* Ieee/fixnum.scm 1557 */
 long BgL_auxz00_10938;
{ /* Ieee/fixnum.scm 1557 */
 obj_t BgL_tmpz00_10939;
if(
ELONGP(BgL_nz00_6209))
{ /* Ieee/fixnum.scm 1557 */
BgL_tmpz00_10939 = BgL_nz00_6209
; }  else 
{ 
 obj_t BgL_auxz00_10942;
BgL_auxz00_10942 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(78984L), BGl_string4674z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6209); 
FAILURE(BgL_auxz00_10942,BFALSE,BFALSE);} 
BgL_auxz00_10938 = 
BELONG_TO_LONG(BgL_tmpz00_10939); } 
BgL_tmpz00_10937 = 
BGl_za7eroelongzf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10938); } 
return 
BBOOL(BgL_tmpz00_10937);} } 

}



/* zerollong? */
BGL_EXPORTED_DEF bool_t BGl_za7erollongzf3z54zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_nz00_196)
{
{ /* Ieee/fixnum.scm 1668 */
return 
(BgL_nz00_196==((BGL_LONGLONG_T)0));} 

}



/* &zerollong? */
obj_t BGl_z62za7erollongzf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6210, obj_t BgL_nz00_6211)
{
{ /* Ieee/fixnum.scm 1668 */
{ /* Ieee/fixnum.scm 1558 */
 bool_t BgL_tmpz00_10950;
{ /* Ieee/fixnum.scm 1558 */
 BGL_LONGLONG_T BgL_auxz00_10951;
{ /* Ieee/fixnum.scm 1558 */
 obj_t BgL_tmpz00_10952;
if(
LLONGP(BgL_nz00_6211))
{ /* Ieee/fixnum.scm 1558 */
BgL_tmpz00_10952 = BgL_nz00_6211
; }  else 
{ 
 obj_t BgL_auxz00_10955;
BgL_auxz00_10955 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79031L), BGl_string4675z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6211); 
FAILURE(BgL_auxz00_10955,BFALSE,BFALSE);} 
BgL_auxz00_10951 = 
BLLONG_TO_LLONG(BgL_tmpz00_10952); } 
BgL_tmpz00_10950 = 
BGl_za7erollongzf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10951); } 
return 
BBOOL(BgL_tmpz00_10950);} } 

}



/* zeros8? */
BGL_EXPORTED_DEF bool_t BGl_za7eros8zf3z54zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_197)
{
{ /* Ieee/fixnum.scm 1670 */
{ /* Ieee/fixnum.scm 1670 */
 int8_t BgL_arg1244z00_8661;
BgL_arg1244z00_8661 = 
(int8_t)(0L); 
return 
(BgL_n1z00_197==BgL_arg1244z00_8661);} } 

}



/* &zeros8? */
obj_t BGl_z62za7eros8zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6212, obj_t BgL_n1z00_6213)
{
{ /* Ieee/fixnum.scm 1670 */
{ /* Ieee/fixnum.scm 1670 */
 bool_t BgL_tmpz00_10964;
{ /* Ieee/fixnum.scm 1670 */
 int8_t BgL_auxz00_10965;
{ /* Ieee/fixnum.scm 1670 */
 obj_t BgL_tmpz00_10966;
if(
BGL_INT8P(BgL_n1z00_6213))
{ /* Ieee/fixnum.scm 1670 */
BgL_tmpz00_10966 = BgL_n1z00_6213
; }  else 
{ 
 obj_t BgL_auxz00_10969;
BgL_auxz00_10969 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82928L), BGl_string4676z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6213); 
FAILURE(BgL_auxz00_10969,BFALSE,BFALSE);} 
BgL_auxz00_10965 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_10966); } 
BgL_tmpz00_10964 = 
BGl_za7eros8zf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10965); } 
return 
BBOOL(BgL_tmpz00_10964);} } 

}



/* zerou8? */
BGL_EXPORTED_DEF bool_t BGl_za7erou8zf3z54zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_198)
{
{ /* Ieee/fixnum.scm 1671 */
{ /* Ieee/fixnum.scm 1671 */
 uint8_t BgL_arg1246z00_8662;
BgL_arg1246z00_8662 = 
(uint8_t)(0L); 
return 
(BgL_n1z00_198==BgL_arg1246z00_8662);} } 

}



/* &zerou8? */
obj_t BGl_z62za7erou8zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6214, obj_t BgL_n1z00_6215)
{
{ /* Ieee/fixnum.scm 1671 */
{ /* Ieee/fixnum.scm 1671 */
 bool_t BgL_tmpz00_10978;
{ /* Ieee/fixnum.scm 1671 */
 uint8_t BgL_auxz00_10979;
{ /* Ieee/fixnum.scm 1671 */
 obj_t BgL_tmpz00_10980;
if(
BGL_UINT8P(BgL_n1z00_6215))
{ /* Ieee/fixnum.scm 1671 */
BgL_tmpz00_10980 = BgL_n1z00_6215
; }  else 
{ 
 obj_t BgL_auxz00_10983;
BgL_auxz00_10983 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(82983L), BGl_string4677z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6215); 
FAILURE(BgL_auxz00_10983,BFALSE,BFALSE);} 
BgL_auxz00_10979 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_10980); } 
BgL_tmpz00_10978 = 
BGl_za7erou8zf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10979); } 
return 
BBOOL(BgL_tmpz00_10978);} } 

}



/* zeros16? */
BGL_EXPORTED_DEF bool_t BGl_za7eros16zf3z54zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_199)
{
{ /* Ieee/fixnum.scm 1673 */
{ /* Ieee/fixnum.scm 1673 */
 int16_t BgL_arg1247z00_8663;
BgL_arg1247z00_8663 = 
(int16_t)(0L); 
return 
(BgL_n1z00_199==BgL_arg1247z00_8663);} } 

}



/* &zeros16? */
obj_t BGl_z62za7eros16zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6216, obj_t BgL_n1z00_6217)
{
{ /* Ieee/fixnum.scm 1673 */
{ /* Ieee/fixnum.scm 1673 */
 bool_t BgL_tmpz00_10992;
{ /* Ieee/fixnum.scm 1673 */
 int16_t BgL_auxz00_10993;
{ /* Ieee/fixnum.scm 1673 */
 obj_t BgL_tmpz00_10994;
if(
BGL_INT16P(BgL_n1z00_6217))
{ /* Ieee/fixnum.scm 1673 */
BgL_tmpz00_10994 = BgL_n1z00_6217
; }  else 
{ 
 obj_t BgL_auxz00_10997;
BgL_auxz00_10997 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83042L), BGl_string4678z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6217); 
FAILURE(BgL_auxz00_10997,BFALSE,BFALSE);} 
BgL_auxz00_10993 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_10994); } 
BgL_tmpz00_10992 = 
BGl_za7eros16zf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_10993); } 
return 
BBOOL(BgL_tmpz00_10992);} } 

}



/* zerou16? */
BGL_EXPORTED_DEF bool_t BGl_za7erou16zf3z54zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_200)
{
{ /* Ieee/fixnum.scm 1674 */
{ /* Ieee/fixnum.scm 1674 */
 uint16_t BgL_arg1248z00_8664;
BgL_arg1248z00_8664 = 
(uint16_t)(0L); 
return 
(BgL_n1z00_200==BgL_arg1248z00_8664);} } 

}



/* &zerou16? */
obj_t BGl_z62za7erou16zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6218, obj_t BgL_n1z00_6219)
{
{ /* Ieee/fixnum.scm 1674 */
{ /* Ieee/fixnum.scm 1674 */
 bool_t BgL_tmpz00_11006;
{ /* Ieee/fixnum.scm 1674 */
 uint16_t BgL_auxz00_11007;
{ /* Ieee/fixnum.scm 1674 */
 obj_t BgL_tmpz00_11008;
if(
BGL_UINT16P(BgL_n1z00_6219))
{ /* Ieee/fixnum.scm 1674 */
BgL_tmpz00_11008 = BgL_n1z00_6219
; }  else 
{ 
 obj_t BgL_auxz00_11011;
BgL_auxz00_11011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83100L), BGl_string4679z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6219); 
FAILURE(BgL_auxz00_11011,BFALSE,BFALSE);} 
BgL_auxz00_11007 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_11008); } 
BgL_tmpz00_11006 = 
BGl_za7erou16zf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11007); } 
return 
BBOOL(BgL_tmpz00_11006);} } 

}



/* zeros32? */
BGL_EXPORTED_DEF bool_t BGl_za7eros32zf3z54zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_201)
{
{ /* Ieee/fixnum.scm 1676 */
{ /* Ieee/fixnum.scm 1676 */
 int32_t BgL_arg1249z00_8665;
BgL_arg1249z00_8665 = 
(int32_t)(0L); 
return 
(BgL_n1z00_201==BgL_arg1249z00_8665);} } 

}



/* &zeros32? */
obj_t BGl_z62za7eros32zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6220, obj_t BgL_n1z00_6221)
{
{ /* Ieee/fixnum.scm 1676 */
{ /* Ieee/fixnum.scm 1676 */
 bool_t BgL_tmpz00_11020;
{ /* Ieee/fixnum.scm 1676 */
 int32_t BgL_auxz00_11021;
{ /* Ieee/fixnum.scm 1676 */
 obj_t BgL_tmpz00_11022;
if(
BGL_INT32P(BgL_n1z00_6221))
{ /* Ieee/fixnum.scm 1676 */
BgL_tmpz00_11022 = BgL_n1z00_6221
; }  else 
{ 
 obj_t BgL_auxz00_11025;
BgL_auxz00_11025 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83160L), BGl_string4680z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6221); 
FAILURE(BgL_auxz00_11025,BFALSE,BFALSE);} 
BgL_auxz00_11021 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_11022); } 
BgL_tmpz00_11020 = 
BGl_za7eros32zf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11021); } 
return 
BBOOL(BgL_tmpz00_11020);} } 

}



/* zerou32? */
BGL_EXPORTED_DEF bool_t BGl_za7erou32zf3z54zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_202)
{
{ /* Ieee/fixnum.scm 1677 */
{ /* Ieee/fixnum.scm 1677 */
 uint32_t BgL_arg1250z00_8666;
BgL_arg1250z00_8666 = 
(uint32_t)(0L); 
return 
(BgL_n1z00_202==BgL_arg1250z00_8666);} } 

}



/* &zerou32? */
obj_t BGl_z62za7erou32zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6222, obj_t BgL_n1z00_6223)
{
{ /* Ieee/fixnum.scm 1677 */
{ /* Ieee/fixnum.scm 1677 */
 bool_t BgL_tmpz00_11034;
{ /* Ieee/fixnum.scm 1677 */
 uint32_t BgL_auxz00_11035;
{ /* Ieee/fixnum.scm 1677 */
 obj_t BgL_tmpz00_11036;
if(
BGL_UINT32P(BgL_n1z00_6223))
{ /* Ieee/fixnum.scm 1677 */
BgL_tmpz00_11036 = BgL_n1z00_6223
; }  else 
{ 
 obj_t BgL_auxz00_11039;
BgL_auxz00_11039 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83218L), BGl_string4681z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6223); 
FAILURE(BgL_auxz00_11039,BFALSE,BFALSE);} 
BgL_auxz00_11035 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_11036); } 
BgL_tmpz00_11034 = 
BGl_za7erou32zf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11035); } 
return 
BBOOL(BgL_tmpz00_11034);} } 

}



/* zeros64? */
BGL_EXPORTED_DEF bool_t BGl_za7eros64zf3z54zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_203)
{
{ /* Ieee/fixnum.scm 1679 */
{ /* Ieee/fixnum.scm 1679 */
 int64_t BgL_arg1252z00_8667;
BgL_arg1252z00_8667 = 
(int64_t)(0L); 
return 
(BgL_n1z00_203==BgL_arg1252z00_8667);} } 

}



/* &zeros64? */
obj_t BGl_z62za7eros64zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6224, obj_t BgL_n1z00_6225)
{
{ /* Ieee/fixnum.scm 1679 */
{ /* Ieee/fixnum.scm 1679 */
 bool_t BgL_tmpz00_11048;
{ /* Ieee/fixnum.scm 1679 */
 int64_t BgL_auxz00_11049;
{ /* Ieee/fixnum.scm 1679 */
 obj_t BgL_tmpz00_11050;
if(
BGL_INT64P(BgL_n1z00_6225))
{ /* Ieee/fixnum.scm 1679 */
BgL_tmpz00_11050 = BgL_n1z00_6225
; }  else 
{ 
 obj_t BgL_auxz00_11053;
BgL_auxz00_11053 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83278L), BGl_string4682z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6225); 
FAILURE(BgL_auxz00_11053,BFALSE,BFALSE);} 
BgL_auxz00_11049 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_11050); } 
BgL_tmpz00_11048 = 
BGl_za7eros64zf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11049); } 
return 
BBOOL(BgL_tmpz00_11048);} } 

}



/* zerou64? */
BGL_EXPORTED_DEF bool_t BGl_za7erou64zf3z54zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_204)
{
{ /* Ieee/fixnum.scm 1680 */
{ /* Ieee/fixnum.scm 1680 */
 uint64_t BgL_arg1253z00_8668;
BgL_arg1253z00_8668 = 
(uint64_t)(0L); 
return 
(BgL_n1z00_204==BgL_arg1253z00_8668);} } 

}



/* &zerou64? */
obj_t BGl_z62za7erou64zf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6226, obj_t BgL_n1z00_6227)
{
{ /* Ieee/fixnum.scm 1680 */
{ /* Ieee/fixnum.scm 1680 */
 bool_t BgL_tmpz00_11062;
{ /* Ieee/fixnum.scm 1680 */
 uint64_t BgL_auxz00_11063;
{ /* Ieee/fixnum.scm 1680 */
 obj_t BgL_tmpz00_11064;
if(
BGL_UINT64P(BgL_n1z00_6227))
{ /* Ieee/fixnum.scm 1680 */
BgL_tmpz00_11064 = BgL_n1z00_6227
; }  else 
{ 
 obj_t BgL_auxz00_11067;
BgL_auxz00_11067 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83336L), BGl_string4683z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6227); 
FAILURE(BgL_auxz00_11067,BFALSE,BFALSE);} 
BgL_auxz00_11063 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_11064); } 
BgL_tmpz00_11062 = 
BGl_za7erou64zf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11063); } 
return 
BBOOL(BgL_tmpz00_11062);} } 

}



/* zerobx? */
BGL_EXPORTED_DEF bool_t BGl_za7erobxzf3z54zz__r4_numbers_6_5_fixnumz00(obj_t BgL_nz00_205)
{
{ /* Ieee/fixnum.scm 1682 */
return 
BXZERO(BgL_nz00_205);} 

}



/* &zerobx? */
obj_t BGl_z62za7erobxzf3z36zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6228, obj_t BgL_nz00_6229)
{
{ /* Ieee/fixnum.scm 1682 */
{ /* Ieee/fixnum.scm 1682 */
 bool_t BgL_tmpz00_11075;
{ /* Ieee/fixnum.scm 1682 */
 obj_t BgL_auxz00_11076;
if(
BIGNUMP(BgL_nz00_6229))
{ /* Ieee/fixnum.scm 1682 */
BgL_auxz00_11076 = BgL_nz00_6229
; }  else 
{ 
 obj_t BgL_auxz00_11079;
BgL_auxz00_11079 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83385L), BGl_string4684z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6229); 
FAILURE(BgL_auxz00_11079,BFALSE,BFALSE);} 
BgL_tmpz00_11075 = 
BGl_za7erobxzf3z54zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11076); } 
return 
BBOOL(BgL_tmpz00_11075);} } 

}



/* positivefx? */
BGL_EXPORTED_DEF bool_t BGl_positivefxzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_206)
{
{ /* Ieee/fixnum.scm 1687 */
return 
(BgL_nz00_206>0L);} 

}



/* &positivefx? */
obj_t BGl_z62positivefxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6230, obj_t BgL_nz00_6231)
{
{ /* Ieee/fixnum.scm 1687 */
{ /* Ieee/fixnum.scm 1599 */
 bool_t BgL_tmpz00_11086;
{ /* Ieee/fixnum.scm 1599 */
 long BgL_auxz00_11087;
{ /* Ieee/fixnum.scm 1599 */
 obj_t BgL_tmpz00_11088;
if(
INTEGERP(BgL_nz00_6231))
{ /* Ieee/fixnum.scm 1599 */
BgL_tmpz00_11088 = BgL_nz00_6231
; }  else 
{ 
 obj_t BgL_auxz00_11091;
BgL_auxz00_11091 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80459L), BGl_string4685z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6231); 
FAILURE(BgL_auxz00_11091,BFALSE,BFALSE);} 
BgL_auxz00_11087 = 
(long)CINT(BgL_tmpz00_11088); } 
BgL_tmpz00_11086 = 
BGl_positivefxzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11087); } 
return 
BBOOL(BgL_tmpz00_11086);} } 

}



/* positiveelong? */
BGL_EXPORTED_DEF bool_t BGl_positiveelongzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_207)
{
{ /* Ieee/fixnum.scm 1689 */
return 
(BgL_nz00_207>((long)0));} 

}



/* &positiveelong? */
obj_t BGl_z62positiveelongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6232, obj_t BgL_nz00_6233)
{
{ /* Ieee/fixnum.scm 1689 */
{ /* Ieee/fixnum.scm 1601 */
 bool_t BgL_tmpz00_11099;
{ /* Ieee/fixnum.scm 1601 */
 long BgL_auxz00_11100;
{ /* Ieee/fixnum.scm 1601 */
 obj_t BgL_tmpz00_11101;
if(
ELONGP(BgL_nz00_6233))
{ /* Ieee/fixnum.scm 1601 */
BgL_tmpz00_11101 = BgL_nz00_6233
; }  else 
{ 
 obj_t BgL_auxz00_11104;
BgL_auxz00_11104 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80504L), BGl_string4686z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6233); 
FAILURE(BgL_auxz00_11104,BFALSE,BFALSE);} 
BgL_auxz00_11100 = 
BELONG_TO_LONG(BgL_tmpz00_11101); } 
BgL_tmpz00_11099 = 
BGl_positiveelongzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11100); } 
return 
BBOOL(BgL_tmpz00_11099);} } 

}



/* positivellong? */
BGL_EXPORTED_DEF bool_t BGl_positivellongzf3zf3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_nz00_208)
{
{ /* Ieee/fixnum.scm 1690 */
return 
(BgL_nz00_208>((BGL_LONGLONG_T)0));} 

}



/* &positivellong? */
obj_t BGl_z62positivellongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6234, obj_t BgL_nz00_6235)
{
{ /* Ieee/fixnum.scm 1690 */
{ /* Ieee/fixnum.scm 1602 */
 bool_t BgL_tmpz00_11112;
{ /* Ieee/fixnum.scm 1602 */
 BGL_LONGLONG_T BgL_auxz00_11113;
{ /* Ieee/fixnum.scm 1602 */
 obj_t BgL_tmpz00_11114;
if(
LLONGP(BgL_nz00_6235))
{ /* Ieee/fixnum.scm 1602 */
BgL_tmpz00_11114 = BgL_nz00_6235
; }  else 
{ 
 obj_t BgL_auxz00_11117;
BgL_auxz00_11117 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(80551L), BGl_string4687z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6235); 
FAILURE(BgL_auxz00_11117,BFALSE,BFALSE);} 
BgL_auxz00_11113 = 
BLLONG_TO_LLONG(BgL_tmpz00_11114); } 
BgL_tmpz00_11112 = 
BGl_positivellongzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11113); } 
return 
BBOOL(BgL_tmpz00_11112);} } 

}



/* positives8? */
BGL_EXPORTED_DEF bool_t BGl_positives8zf3zf3zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_209)
{
{ /* Ieee/fixnum.scm 1692 */
{ /* Ieee/fixnum.scm 1692 */
 int8_t BgL_arg1254z00_8669;
BgL_arg1254z00_8669 = 
(int8_t)(0L); 
return 
(BgL_n1z00_209>BgL_arg1254z00_8669);} } 

}



/* &positives8? */
obj_t BGl_z62positives8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6236, obj_t BgL_n1z00_6237)
{
{ /* Ieee/fixnum.scm 1692 */
{ /* Ieee/fixnum.scm 1692 */
 bool_t BgL_tmpz00_11126;
{ /* Ieee/fixnum.scm 1692 */
 int8_t BgL_auxz00_11127;
{ /* Ieee/fixnum.scm 1692 */
 obj_t BgL_tmpz00_11128;
if(
BGL_INT8P(BgL_n1z00_6237))
{ /* Ieee/fixnum.scm 1692 */
BgL_tmpz00_11128 = BgL_n1z00_6237
; }  else 
{ 
 obj_t BgL_auxz00_11131;
BgL_auxz00_11131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83806L), BGl_string4688z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6237); 
FAILURE(BgL_auxz00_11131,BFALSE,BFALSE);} 
BgL_auxz00_11127 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_11128); } 
BgL_tmpz00_11126 = 
BGl_positives8zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11127); } 
return 
BBOOL(BgL_tmpz00_11126);} } 

}



/* positiveu8? */
BGL_EXPORTED_DEF bool_t BGl_positiveu8zf3zf3zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_210)
{
{ /* Ieee/fixnum.scm 1693 */
{ /* Ieee/fixnum.scm 1693 */
 uint8_t BgL_arg1256z00_8670;
BgL_arg1256z00_8670 = 
(uint8_t)(0L); 
return 
(BgL_n1z00_210>BgL_arg1256z00_8670);} } 

}



/* &positiveu8? */
obj_t BGl_z62positiveu8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6238, obj_t BgL_n1z00_6239)
{
{ /* Ieee/fixnum.scm 1693 */
{ /* Ieee/fixnum.scm 1693 */
 bool_t BgL_tmpz00_11140;
{ /* Ieee/fixnum.scm 1693 */
 uint8_t BgL_auxz00_11141;
{ /* Ieee/fixnum.scm 1693 */
 obj_t BgL_tmpz00_11142;
if(
BGL_UINT8P(BgL_n1z00_6239))
{ /* Ieee/fixnum.scm 1693 */
BgL_tmpz00_11142 = BgL_n1z00_6239
; }  else 
{ 
 obj_t BgL_auxz00_11145;
BgL_auxz00_11145 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83865L), BGl_string4689z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6239); 
FAILURE(BgL_auxz00_11145,BFALSE,BFALSE);} 
BgL_auxz00_11141 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_11142); } 
BgL_tmpz00_11140 = 
BGl_positiveu8zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11141); } 
return 
BBOOL(BgL_tmpz00_11140);} } 

}



/* positives16? */
BGL_EXPORTED_DEF bool_t BGl_positives16zf3zf3zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_211)
{
{ /* Ieee/fixnum.scm 1695 */
{ /* Ieee/fixnum.scm 1695 */
 int16_t BgL_arg1257z00_8671;
BgL_arg1257z00_8671 = 
(int16_t)(0L); 
return 
(BgL_n1z00_211>BgL_arg1257z00_8671);} } 

}



/* &positives16? */
obj_t BGl_z62positives16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6240, obj_t BgL_n1z00_6241)
{
{ /* Ieee/fixnum.scm 1695 */
{ /* Ieee/fixnum.scm 1695 */
 bool_t BgL_tmpz00_11154;
{ /* Ieee/fixnum.scm 1695 */
 int16_t BgL_auxz00_11155;
{ /* Ieee/fixnum.scm 1695 */
 obj_t BgL_tmpz00_11156;
if(
BGL_INT16P(BgL_n1z00_6241))
{ /* Ieee/fixnum.scm 1695 */
BgL_tmpz00_11156 = BgL_n1z00_6241
; }  else 
{ 
 obj_t BgL_auxz00_11159;
BgL_auxz00_11159 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83928L), BGl_string4690z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6241); 
FAILURE(BgL_auxz00_11159,BFALSE,BFALSE);} 
BgL_auxz00_11155 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_11156); } 
BgL_tmpz00_11154 = 
BGl_positives16zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11155); } 
return 
BBOOL(BgL_tmpz00_11154);} } 

}



/* positiveu16? */
BGL_EXPORTED_DEF bool_t BGl_positiveu16zf3zf3zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_212)
{
{ /* Ieee/fixnum.scm 1696 */
{ /* Ieee/fixnum.scm 1696 */
 uint16_t BgL_arg1259z00_8672;
BgL_arg1259z00_8672 = 
(uint16_t)(0L); 
return 
(BgL_n1z00_212>BgL_arg1259z00_8672);} } 

}



/* &positiveu16? */
obj_t BGl_z62positiveu16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6242, obj_t BgL_n1z00_6243)
{
{ /* Ieee/fixnum.scm 1696 */
{ /* Ieee/fixnum.scm 1696 */
 bool_t BgL_tmpz00_11168;
{ /* Ieee/fixnum.scm 1696 */
 uint16_t BgL_auxz00_11169;
{ /* Ieee/fixnum.scm 1696 */
 obj_t BgL_tmpz00_11170;
if(
BGL_UINT16P(BgL_n1z00_6243))
{ /* Ieee/fixnum.scm 1696 */
BgL_tmpz00_11170 = BgL_n1z00_6243
; }  else 
{ 
 obj_t BgL_auxz00_11173;
BgL_auxz00_11173 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(83990L), BGl_string4691z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6243); 
FAILURE(BgL_auxz00_11173,BFALSE,BFALSE);} 
BgL_auxz00_11169 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_11170); } 
BgL_tmpz00_11168 = 
BGl_positiveu16zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11169); } 
return 
BBOOL(BgL_tmpz00_11168);} } 

}



/* positives32? */
BGL_EXPORTED_DEF bool_t BGl_positives32zf3zf3zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_213)
{
{ /* Ieee/fixnum.scm 1698 */
{ /* Ieee/fixnum.scm 1698 */
 int32_t BgL_arg1260z00_8673;
BgL_arg1260z00_8673 = 
(int32_t)(0L); 
return 
(BgL_n1z00_213>BgL_arg1260z00_8673);} } 

}



/* &positives32? */
obj_t BGl_z62positives32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6244, obj_t BgL_n1z00_6245)
{
{ /* Ieee/fixnum.scm 1698 */
{ /* Ieee/fixnum.scm 1698 */
 bool_t BgL_tmpz00_11182;
{ /* Ieee/fixnum.scm 1698 */
 int32_t BgL_auxz00_11183;
{ /* Ieee/fixnum.scm 1698 */
 obj_t BgL_tmpz00_11184;
if(
BGL_INT32P(BgL_n1z00_6245))
{ /* Ieee/fixnum.scm 1698 */
BgL_tmpz00_11184 = BgL_n1z00_6245
; }  else 
{ 
 obj_t BgL_auxz00_11187;
BgL_auxz00_11187 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(84054L), BGl_string4692z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6245); 
FAILURE(BgL_auxz00_11187,BFALSE,BFALSE);} 
BgL_auxz00_11183 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_11184); } 
BgL_tmpz00_11182 = 
BGl_positives32zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11183); } 
return 
BBOOL(BgL_tmpz00_11182);} } 

}



/* positiveu32? */
BGL_EXPORTED_DEF bool_t BGl_positiveu32zf3zf3zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_214)
{
{ /* Ieee/fixnum.scm 1699 */
{ /* Ieee/fixnum.scm 1699 */
 uint32_t BgL_arg1265z00_8674;
BgL_arg1265z00_8674 = 
(uint32_t)(0L); 
return 
(BgL_n1z00_214>BgL_arg1265z00_8674);} } 

}



/* &positiveu32? */
obj_t BGl_z62positiveu32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6246, obj_t BgL_n1z00_6247)
{
{ /* Ieee/fixnum.scm 1699 */
{ /* Ieee/fixnum.scm 1699 */
 bool_t BgL_tmpz00_11196;
{ /* Ieee/fixnum.scm 1699 */
 uint32_t BgL_auxz00_11197;
{ /* Ieee/fixnum.scm 1699 */
 obj_t BgL_tmpz00_11198;
if(
BGL_UINT32P(BgL_n1z00_6247))
{ /* Ieee/fixnum.scm 1699 */
BgL_tmpz00_11198 = BgL_n1z00_6247
; }  else 
{ 
 obj_t BgL_auxz00_11201;
BgL_auxz00_11201 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(84116L), BGl_string4693z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6247); 
FAILURE(BgL_auxz00_11201,BFALSE,BFALSE);} 
BgL_auxz00_11197 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_11198); } 
BgL_tmpz00_11196 = 
BGl_positiveu32zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11197); } 
return 
BBOOL(BgL_tmpz00_11196);} } 

}



/* positives64? */
BGL_EXPORTED_DEF bool_t BGl_positives64zf3zf3zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_215)
{
{ /* Ieee/fixnum.scm 1701 */
{ /* Ieee/fixnum.scm 1701 */
 int64_t BgL_arg1275z00_8675;
BgL_arg1275z00_8675 = 
(int64_t)(0L); 
return 
(BgL_n1z00_215>BgL_arg1275z00_8675);} } 

}



/* &positives64? */
obj_t BGl_z62positives64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6248, obj_t BgL_n1z00_6249)
{
{ /* Ieee/fixnum.scm 1701 */
{ /* Ieee/fixnum.scm 1701 */
 bool_t BgL_tmpz00_11210;
{ /* Ieee/fixnum.scm 1701 */
 int64_t BgL_auxz00_11211;
{ /* Ieee/fixnum.scm 1701 */
 obj_t BgL_tmpz00_11212;
if(
BGL_INT64P(BgL_n1z00_6249))
{ /* Ieee/fixnum.scm 1701 */
BgL_tmpz00_11212 = BgL_n1z00_6249
; }  else 
{ 
 obj_t BgL_auxz00_11215;
BgL_auxz00_11215 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(84180L), BGl_string4694z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6249); 
FAILURE(BgL_auxz00_11215,BFALSE,BFALSE);} 
BgL_auxz00_11211 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_11212); } 
BgL_tmpz00_11210 = 
BGl_positives64zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11211); } 
return 
BBOOL(BgL_tmpz00_11210);} } 

}



/* positiveu64? */
BGL_EXPORTED_DEF bool_t BGl_positiveu64zf3zf3zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_216)
{
{ /* Ieee/fixnum.scm 1702 */
{ /* Ieee/fixnum.scm 1702 */
 uint64_t BgL_arg1276z00_8676;
BgL_arg1276z00_8676 = 
(uint64_t)(0L); 
return 
(BgL_n1z00_216>BgL_arg1276z00_8676);} } 

}



/* &positiveu64? */
obj_t BGl_z62positiveu64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6250, obj_t BgL_n1z00_6251)
{
{ /* Ieee/fixnum.scm 1702 */
{ /* Ieee/fixnum.scm 1702 */
 bool_t BgL_tmpz00_11224;
{ /* Ieee/fixnum.scm 1702 */
 uint64_t BgL_auxz00_11225;
{ /* Ieee/fixnum.scm 1702 */
 obj_t BgL_tmpz00_11226;
if(
BGL_UINT64P(BgL_n1z00_6251))
{ /* Ieee/fixnum.scm 1702 */
BgL_tmpz00_11226 = BgL_n1z00_6251
; }  else 
{ 
 obj_t BgL_auxz00_11229;
BgL_auxz00_11229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(84242L), BGl_string4695z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6251); 
FAILURE(BgL_auxz00_11229,BFALSE,BFALSE);} 
BgL_auxz00_11225 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_11226); } 
BgL_tmpz00_11224 = 
BGl_positiveu64zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11225); } 
return 
BBOOL(BgL_tmpz00_11224);} } 

}



/* positivebx? */
BGL_EXPORTED_DEF bool_t BGl_positivebxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_nz00_217)
{
{ /* Ieee/fixnum.scm 1704 */
return 
BXPOSITIVE(BgL_nz00_217);} 

}



/* &positivebx? */
obj_t BGl_z62positivebxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6252, obj_t BgL_nz00_6253)
{
{ /* Ieee/fixnum.scm 1704 */
{ /* Ieee/fixnum.scm 1704 */
 bool_t BgL_tmpz00_11237;
{ /* Ieee/fixnum.scm 1704 */
 obj_t BgL_auxz00_11238;
if(
BIGNUMP(BgL_nz00_6253))
{ /* Ieee/fixnum.scm 1704 */
BgL_auxz00_11238 = BgL_nz00_6253
; }  else 
{ 
 obj_t BgL_auxz00_11241;
BgL_auxz00_11241 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(84295L), BGl_string4696z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6253); 
FAILURE(BgL_auxz00_11241,BFALSE,BFALSE);} 
BgL_tmpz00_11237 = 
BGl_positivebxzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11238); } 
return 
BBOOL(BgL_tmpz00_11237);} } 

}



/* negativefx? */
BGL_EXPORTED_DEF bool_t BGl_negativefxzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_218)
{
{ /* Ieee/fixnum.scm 1709 */
return 
(BgL_nz00_218<0L);} 

}



/* &negativefx? */
obj_t BGl_z62negativefxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6254, obj_t BgL_nz00_6255)
{
{ /* Ieee/fixnum.scm 1709 */
{ /* Ieee/fixnum.scm 1577 */
 bool_t BgL_tmpz00_11248;
{ /* Ieee/fixnum.scm 1577 */
 long BgL_auxz00_11249;
{ /* Ieee/fixnum.scm 1577 */
 obj_t BgL_tmpz00_11250;
if(
INTEGERP(BgL_nz00_6255))
{ /* Ieee/fixnum.scm 1577 */
BgL_tmpz00_11250 = BgL_nz00_6255
; }  else 
{ 
 obj_t BgL_auxz00_11253;
BgL_auxz00_11253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79699L), BGl_string4697z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6255); 
FAILURE(BgL_auxz00_11253,BFALSE,BFALSE);} 
BgL_auxz00_11249 = 
(long)CINT(BgL_tmpz00_11250); } 
BgL_tmpz00_11248 = 
BGl_negativefxzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11249); } 
return 
BBOOL(BgL_tmpz00_11248);} } 

}



/* negativeelong? */
BGL_EXPORTED_DEF bool_t BGl_negativeelongzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_219)
{
{ /* Ieee/fixnum.scm 1711 */
return 
(BgL_nz00_219<((long)0));} 

}



/* &negativeelong? */
obj_t BGl_z62negativeelongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6256, obj_t BgL_nz00_6257)
{
{ /* Ieee/fixnum.scm 1711 */
{ /* Ieee/fixnum.scm 1579 */
 bool_t BgL_tmpz00_11261;
{ /* Ieee/fixnum.scm 1579 */
 long BgL_auxz00_11262;
{ /* Ieee/fixnum.scm 1579 */
 obj_t BgL_tmpz00_11263;
if(
ELONGP(BgL_nz00_6257))
{ /* Ieee/fixnum.scm 1579 */
BgL_tmpz00_11263 = BgL_nz00_6257
; }  else 
{ 
 obj_t BgL_auxz00_11266;
BgL_auxz00_11266 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79744L), BGl_string4698z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6257); 
FAILURE(BgL_auxz00_11266,BFALSE,BFALSE);} 
BgL_auxz00_11262 = 
BELONG_TO_LONG(BgL_tmpz00_11263); } 
BgL_tmpz00_11261 = 
BGl_negativeelongzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11262); } 
return 
BBOOL(BgL_tmpz00_11261);} } 

}



/* negativellong? */
BGL_EXPORTED_DEF bool_t BGl_negativellongzf3zf3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_nz00_220)
{
{ /* Ieee/fixnum.scm 1712 */
return 
(BgL_nz00_220<((BGL_LONGLONG_T)0));} 

}



/* &negativellong? */
obj_t BGl_z62negativellongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6258, obj_t BgL_nz00_6259)
{
{ /* Ieee/fixnum.scm 1712 */
{ /* Ieee/fixnum.scm 1580 */
 bool_t BgL_tmpz00_11274;
{ /* Ieee/fixnum.scm 1580 */
 BGL_LONGLONG_T BgL_auxz00_11275;
{ /* Ieee/fixnum.scm 1580 */
 obj_t BgL_tmpz00_11276;
if(
LLONGP(BgL_nz00_6259))
{ /* Ieee/fixnum.scm 1580 */
BgL_tmpz00_11276 = BgL_nz00_6259
; }  else 
{ 
 obj_t BgL_auxz00_11279;
BgL_auxz00_11279 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(79791L), BGl_string4699z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6259); 
FAILURE(BgL_auxz00_11279,BFALSE,BFALSE);} 
BgL_auxz00_11275 = 
BLLONG_TO_LLONG(BgL_tmpz00_11276); } 
BgL_tmpz00_11274 = 
BGl_negativellongzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11275); } 
return 
BBOOL(BgL_tmpz00_11274);} } 

}



/* negatives8? */
BGL_EXPORTED_DEF bool_t BGl_negatives8zf3zf3zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_221)
{
{ /* Ieee/fixnum.scm 1714 */
{ /* Ieee/fixnum.scm 1714 */
 int8_t BgL_arg1277z00_8677;
BgL_arg1277z00_8677 = 
(int8_t)(0L); 
return 
(BgL_n1z00_221<BgL_arg1277z00_8677);} } 

}



/* &negatives8? */
obj_t BGl_z62negatives8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6260, obj_t BgL_n1z00_6261)
{
{ /* Ieee/fixnum.scm 1714 */
{ /* Ieee/fixnum.scm 1714 */
 bool_t BgL_tmpz00_11288;
{ /* Ieee/fixnum.scm 1714 */
 int8_t BgL_auxz00_11289;
{ /* Ieee/fixnum.scm 1714 */
 obj_t BgL_tmpz00_11290;
if(
BGL_INT8P(BgL_n1z00_6261))
{ /* Ieee/fixnum.scm 1714 */
BgL_tmpz00_11290 = BgL_n1z00_6261
; }  else 
{ 
 obj_t BgL_auxz00_11293;
BgL_auxz00_11293 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(84720L), BGl_string4700z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6261); 
FAILURE(BgL_auxz00_11293,BFALSE,BFALSE);} 
BgL_auxz00_11289 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_11290); } 
BgL_tmpz00_11288 = 
BGl_negatives8zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11289); } 
return 
BBOOL(BgL_tmpz00_11288);} } 

}



/* negativeu8? */
BGL_EXPORTED_DEF bool_t BGl_negativeu8zf3zf3zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_222)
{
{ /* Ieee/fixnum.scm 1715 */
{ /* Ieee/fixnum.scm 1715 */
 uint8_t BgL_arg1279z00_8678;
BgL_arg1279z00_8678 = 
(uint8_t)(0L); 
return 
(BgL_n1z00_222<BgL_arg1279z00_8678);} } 

}



/* &negativeu8? */
obj_t BGl_z62negativeu8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6262, obj_t BgL_n1z00_6263)
{
{ /* Ieee/fixnum.scm 1715 */
{ /* Ieee/fixnum.scm 1715 */
 bool_t BgL_tmpz00_11302;
{ /* Ieee/fixnum.scm 1715 */
 uint8_t BgL_auxz00_11303;
{ /* Ieee/fixnum.scm 1715 */
 obj_t BgL_tmpz00_11304;
if(
BGL_UINT8P(BgL_n1z00_6263))
{ /* Ieee/fixnum.scm 1715 */
BgL_tmpz00_11304 = BgL_n1z00_6263
; }  else 
{ 
 obj_t BgL_auxz00_11307;
BgL_auxz00_11307 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(84779L), BGl_string4701z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6263); 
FAILURE(BgL_auxz00_11307,BFALSE,BFALSE);} 
BgL_auxz00_11303 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_11304); } 
BgL_tmpz00_11302 = 
BGl_negativeu8zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11303); } 
return 
BBOOL(BgL_tmpz00_11302);} } 

}



/* negatives16? */
BGL_EXPORTED_DEF bool_t BGl_negatives16zf3zf3zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_223)
{
{ /* Ieee/fixnum.scm 1717 */
{ /* Ieee/fixnum.scm 1717 */
 int16_t BgL_arg1281z00_8679;
BgL_arg1281z00_8679 = 
(int16_t)(0L); 
return 
(BgL_n1z00_223<BgL_arg1281z00_8679);} } 

}



/* &negatives16? */
obj_t BGl_z62negatives16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6264, obj_t BgL_n1z00_6265)
{
{ /* Ieee/fixnum.scm 1717 */
{ /* Ieee/fixnum.scm 1717 */
 bool_t BgL_tmpz00_11316;
{ /* Ieee/fixnum.scm 1717 */
 int16_t BgL_auxz00_11317;
{ /* Ieee/fixnum.scm 1717 */
 obj_t BgL_tmpz00_11318;
if(
BGL_INT16P(BgL_n1z00_6265))
{ /* Ieee/fixnum.scm 1717 */
BgL_tmpz00_11318 = BgL_n1z00_6265
; }  else 
{ 
 obj_t BgL_auxz00_11321;
BgL_auxz00_11321 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(84842L), BGl_string4702z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6265); 
FAILURE(BgL_auxz00_11321,BFALSE,BFALSE);} 
BgL_auxz00_11317 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_11318); } 
BgL_tmpz00_11316 = 
BGl_negatives16zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11317); } 
return 
BBOOL(BgL_tmpz00_11316);} } 

}



/* negativeu16? */
BGL_EXPORTED_DEF bool_t BGl_negativeu16zf3zf3zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_224)
{
{ /* Ieee/fixnum.scm 1718 */
{ /* Ieee/fixnum.scm 1718 */
 uint16_t BgL_arg1282z00_8680;
BgL_arg1282z00_8680 = 
(uint16_t)(0L); 
return 
(BgL_n1z00_224<BgL_arg1282z00_8680);} } 

}



/* &negativeu16? */
obj_t BGl_z62negativeu16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6266, obj_t BgL_n1z00_6267)
{
{ /* Ieee/fixnum.scm 1718 */
{ /* Ieee/fixnum.scm 1718 */
 bool_t BgL_tmpz00_11330;
{ /* Ieee/fixnum.scm 1718 */
 uint16_t BgL_auxz00_11331;
{ /* Ieee/fixnum.scm 1718 */
 obj_t BgL_tmpz00_11332;
if(
BGL_UINT16P(BgL_n1z00_6267))
{ /* Ieee/fixnum.scm 1718 */
BgL_tmpz00_11332 = BgL_n1z00_6267
; }  else 
{ 
 obj_t BgL_auxz00_11335;
BgL_auxz00_11335 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(84904L), BGl_string4703z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6267); 
FAILURE(BgL_auxz00_11335,BFALSE,BFALSE);} 
BgL_auxz00_11331 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_11332); } 
BgL_tmpz00_11330 = 
BGl_negativeu16zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11331); } 
return 
BBOOL(BgL_tmpz00_11330);} } 

}



/* negatives32? */
BGL_EXPORTED_DEF bool_t BGl_negatives32zf3zf3zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_225)
{
{ /* Ieee/fixnum.scm 1720 */
{ /* Ieee/fixnum.scm 1720 */
 int32_t BgL_arg1283z00_8681;
BgL_arg1283z00_8681 = 
(int32_t)(0L); 
return 
(BgL_n1z00_225<BgL_arg1283z00_8681);} } 

}



/* &negatives32? */
obj_t BGl_z62negatives32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6268, obj_t BgL_n1z00_6269)
{
{ /* Ieee/fixnum.scm 1720 */
{ /* Ieee/fixnum.scm 1720 */
 bool_t BgL_tmpz00_11344;
{ /* Ieee/fixnum.scm 1720 */
 int32_t BgL_auxz00_11345;
{ /* Ieee/fixnum.scm 1720 */
 obj_t BgL_tmpz00_11346;
if(
BGL_INT32P(BgL_n1z00_6269))
{ /* Ieee/fixnum.scm 1720 */
BgL_tmpz00_11346 = BgL_n1z00_6269
; }  else 
{ 
 obj_t BgL_auxz00_11349;
BgL_auxz00_11349 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(84968L), BGl_string4704z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6269); 
FAILURE(BgL_auxz00_11349,BFALSE,BFALSE);} 
BgL_auxz00_11345 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_11346); } 
BgL_tmpz00_11344 = 
BGl_negatives32zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11345); } 
return 
BBOOL(BgL_tmpz00_11344);} } 

}



/* negativeu32? */
BGL_EXPORTED_DEF bool_t BGl_negativeu32zf3zf3zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_226)
{
{ /* Ieee/fixnum.scm 1721 */
{ /* Ieee/fixnum.scm 1721 */
 uint32_t BgL_arg1284z00_8682;
BgL_arg1284z00_8682 = 
(uint32_t)(0L); 
return 
(BgL_n1z00_226<BgL_arg1284z00_8682);} } 

}



/* &negativeu32? */
obj_t BGl_z62negativeu32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6270, obj_t BgL_n1z00_6271)
{
{ /* Ieee/fixnum.scm 1721 */
{ /* Ieee/fixnum.scm 1721 */
 bool_t BgL_tmpz00_11358;
{ /* Ieee/fixnum.scm 1721 */
 uint32_t BgL_auxz00_11359;
{ /* Ieee/fixnum.scm 1721 */
 obj_t BgL_tmpz00_11360;
if(
BGL_UINT32P(BgL_n1z00_6271))
{ /* Ieee/fixnum.scm 1721 */
BgL_tmpz00_11360 = BgL_n1z00_6271
; }  else 
{ 
 obj_t BgL_auxz00_11363;
BgL_auxz00_11363 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(85030L), BGl_string4705z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6271); 
FAILURE(BgL_auxz00_11363,BFALSE,BFALSE);} 
BgL_auxz00_11359 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_11360); } 
BgL_tmpz00_11358 = 
BGl_negativeu32zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11359); } 
return 
BBOOL(BgL_tmpz00_11358);} } 

}



/* negatives64? */
BGL_EXPORTED_DEF bool_t BGl_negatives64zf3zf3zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_227)
{
{ /* Ieee/fixnum.scm 1723 */
{ /* Ieee/fixnum.scm 1723 */
 int64_t BgL_arg1285z00_8683;
BgL_arg1285z00_8683 = 
(int64_t)(0L); 
return 
(BgL_n1z00_227<BgL_arg1285z00_8683);} } 

}



/* &negatives64? */
obj_t BGl_z62negatives64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6272, obj_t BgL_n1z00_6273)
{
{ /* Ieee/fixnum.scm 1723 */
{ /* Ieee/fixnum.scm 1723 */
 bool_t BgL_tmpz00_11372;
{ /* Ieee/fixnum.scm 1723 */
 int64_t BgL_auxz00_11373;
{ /* Ieee/fixnum.scm 1723 */
 obj_t BgL_tmpz00_11374;
if(
BGL_INT64P(BgL_n1z00_6273))
{ /* Ieee/fixnum.scm 1723 */
BgL_tmpz00_11374 = BgL_n1z00_6273
; }  else 
{ 
 obj_t BgL_auxz00_11377;
BgL_auxz00_11377 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(85094L), BGl_string4706z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6273); 
FAILURE(BgL_auxz00_11377,BFALSE,BFALSE);} 
BgL_auxz00_11373 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_11374); } 
BgL_tmpz00_11372 = 
BGl_negatives64zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11373); } 
return 
BBOOL(BgL_tmpz00_11372);} } 

}



/* negativeu64? */
BGL_EXPORTED_DEF bool_t BGl_negativeu64zf3zf3zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_228)
{
{ /* Ieee/fixnum.scm 1724 */
{ /* Ieee/fixnum.scm 1724 */
 uint64_t BgL_arg1287z00_8684;
BgL_arg1287z00_8684 = 
(uint64_t)(0L); 
return 
(BgL_n1z00_228<BgL_arg1287z00_8684);} } 

}



/* &negativeu64? */
obj_t BGl_z62negativeu64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6274, obj_t BgL_n1z00_6275)
{
{ /* Ieee/fixnum.scm 1724 */
{ /* Ieee/fixnum.scm 1724 */
 bool_t BgL_tmpz00_11386;
{ /* Ieee/fixnum.scm 1724 */
 uint64_t BgL_auxz00_11387;
{ /* Ieee/fixnum.scm 1724 */
 obj_t BgL_tmpz00_11388;
if(
BGL_UINT64P(BgL_n1z00_6275))
{ /* Ieee/fixnum.scm 1724 */
BgL_tmpz00_11388 = BgL_n1z00_6275
; }  else 
{ 
 obj_t BgL_auxz00_11391;
BgL_auxz00_11391 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(85156L), BGl_string4707z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6275); 
FAILURE(BgL_auxz00_11391,BFALSE,BFALSE);} 
BgL_auxz00_11387 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_11388); } 
BgL_tmpz00_11386 = 
BGl_negativeu64zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11387); } 
return 
BBOOL(BgL_tmpz00_11386);} } 

}



/* negativebx? */
BGL_EXPORTED_DEF bool_t BGl_negativebxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_nz00_229)
{
{ /* Ieee/fixnum.scm 1726 */
return 
BXNEGATIVE(BgL_nz00_229);} 

}



/* &negativebx? */
obj_t BGl_z62negativebxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6276, obj_t BgL_nz00_6277)
{
{ /* Ieee/fixnum.scm 1726 */
{ /* Ieee/fixnum.scm 1726 */
 bool_t BgL_tmpz00_11399;
{ /* Ieee/fixnum.scm 1726 */
 obj_t BgL_auxz00_11400;
if(
BIGNUMP(BgL_nz00_6277))
{ /* Ieee/fixnum.scm 1726 */
BgL_auxz00_11400 = BgL_nz00_6277
; }  else 
{ 
 obj_t BgL_auxz00_11403;
BgL_auxz00_11403 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(85209L), BGl_string4708z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6277); 
FAILURE(BgL_auxz00_11403,BFALSE,BFALSE);} 
BgL_tmpz00_11399 = 
BGl_negativebxzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11400); } 
return 
BBOOL(BgL_tmpz00_11399);} } 

}



/* odd? */
BGL_EXPORTED_DEF bool_t BGl_oddzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_230)
{
{ /* Ieee/fixnum.scm 1731 */
if(
INTEGERP(BgL_xz00_230))
{ /* Ieee/fixnum.scm 1733 */
return 
ODDP_FX(
(long)CINT(BgL_xz00_230));}  else 
{ /* Ieee/fixnum.scm 1733 */
if(
ELONGP(BgL_xz00_230))
{ /* Ieee/fixnum.scm 1734 */
 long BgL_xz00_2857;
BgL_xz00_2857 = 
BELONG_TO_LONG(BgL_xz00_230); 
{ /* Ieee/fixnum.scm 1742 */
 bool_t BgL_test6053z00_11416;
{ /* Ieee/fixnum.scm 1783 */
 long BgL_arg1353z00_2860;
BgL_arg1353z00_2860 = 
(BgL_xz00_2857%((long)2)); 
BgL_test6053z00_11416 = 
(BgL_arg1353z00_2860==((long)0)); } 
if(BgL_test6053z00_11416)
{ /* Ieee/fixnum.scm 1742 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1742 */
return ((bool_t)1);} } }  else 
{ /* Ieee/fixnum.scm 1734 */
if(
LLONGP(BgL_xz00_230))
{ /* Ieee/fixnum.scm 1735 */
 BGL_LONGLONG_T BgL_xz00_2866;
BgL_xz00_2866 = 
BLLONG_TO_LLONG(BgL_xz00_230); 
{ /* Ieee/fixnum.scm 1744 */
 bool_t BgL_test6055z00_11422;
{ /* Ieee/fixnum.scm 1784 */
 BGL_LONGLONG_T BgL_arg1354z00_2869;
BgL_arg1354z00_2869 = 
(BgL_xz00_2866%((BGL_LONGLONG_T)2)); 
BgL_test6055z00_11422 = 
(BgL_arg1354z00_2869==((BGL_LONGLONG_T)0)); } 
if(BgL_test6055z00_11422)
{ /* Ieee/fixnum.scm 1744 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1744 */
return ((bool_t)1);} } }  else 
{ /* Ieee/fixnum.scm 1735 */
if(
BIGNUMP(BgL_xz00_230))
{ /* Ieee/fixnum.scm 1736 */
return 
bgl_bignum_odd(BgL_xz00_230);}  else 
{ /* Ieee/fixnum.scm 1736 */
return 
CBOOL(
BGl_errorz00zz__errorz00(BGl_string4709z00zz__r4_numbers_6_5_fixnumz00, BGl_string4710z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_230));} } } } } 

}



/* &odd? */
obj_t BGl_z62oddzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6278, obj_t BgL_xz00_6279)
{
{ /* Ieee/fixnum.scm 1731 */
return 
BBOOL(
BGl_oddzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6279));} 

}



/* oddfx? */
BGL_EXPORTED_DEF bool_t BGl_oddfxzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_231)
{
{ /* Ieee/fixnum.scm 1739 */
return 
ODDP_FX(BgL_xz00_231);} 

}



/* &oddfx? */
obj_t BGl_z62oddfxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6280, obj_t BgL_xz00_6281)
{
{ /* Ieee/fixnum.scm 1739 */
{ /* Ieee/fixnum.scm 1739 */
 bool_t BgL_tmpz00_11433;
{ /* Ieee/fixnum.scm 1739 */
 long BgL_auxz00_11434;
{ /* Ieee/fixnum.scm 1739 */
 obj_t BgL_tmpz00_11435;
if(
INTEGERP(BgL_xz00_6281))
{ /* Ieee/fixnum.scm 1739 */
BgL_tmpz00_11435 = BgL_xz00_6281
; }  else 
{ 
 obj_t BgL_auxz00_11438;
BgL_auxz00_11438 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(85675L), BGl_string4711z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6281); 
FAILURE(BgL_auxz00_11438,BFALSE,BFALSE);} 
BgL_auxz00_11434 = 
(long)CINT(BgL_tmpz00_11435); } 
BgL_tmpz00_11433 = 
BGl_oddfxzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11434); } 
return 
BBOOL(BgL_tmpz00_11433);} } 

}



/* oddelong? */
BGL_EXPORTED_DEF bool_t BGl_oddelongzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_232)
{
{ /* Ieee/fixnum.scm 1741 */
{ /* Ieee/fixnum.scm 1742 */
 bool_t BgL_test6058z00_11445;
{ /* Ieee/fixnum.scm 1783 */
 long BgL_arg1353z00_8685;
BgL_arg1353z00_8685 = 
(BgL_xz00_232%((long)2)); 
BgL_test6058z00_11445 = 
(BgL_arg1353z00_8685==((long)0)); } 
if(BgL_test6058z00_11445)
{ /* Ieee/fixnum.scm 1742 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1742 */
return ((bool_t)1);} } } 

}



/* &oddelong? */
obj_t BGl_z62oddelongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6282, obj_t BgL_xz00_6283)
{
{ /* Ieee/fixnum.scm 1741 */
{ /* Ieee/fixnum.scm 1742 */
 bool_t BgL_tmpz00_11448;
{ /* Ieee/fixnum.scm 1742 */
 long BgL_auxz00_11449;
{ /* Ieee/fixnum.scm 1742 */
 obj_t BgL_tmpz00_11450;
if(
ELONGP(BgL_xz00_6283))
{ /* Ieee/fixnum.scm 1742 */
BgL_tmpz00_11450 = BgL_xz00_6283
; }  else 
{ 
 obj_t BgL_auxz00_11453;
BgL_auxz00_11453 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(85721L), BGl_string4712z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6283); 
FAILURE(BgL_auxz00_11453,BFALSE,BFALSE);} 
BgL_auxz00_11449 = 
BELONG_TO_LONG(BgL_tmpz00_11450); } 
BgL_tmpz00_11448 = 
BGl_oddelongzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11449); } 
return 
BBOOL(BgL_tmpz00_11448);} } 

}



/* oddllong? */
BGL_EXPORTED_DEF bool_t BGl_oddllongzf3zf3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_xz00_233)
{
{ /* Ieee/fixnum.scm 1743 */
{ /* Ieee/fixnum.scm 1744 */
 bool_t BgL_test6060z00_11460;
{ /* Ieee/fixnum.scm 1784 */
 BGL_LONGLONG_T BgL_arg1354z00_8686;
BgL_arg1354z00_8686 = 
(BgL_xz00_233%((BGL_LONGLONG_T)2)); 
BgL_test6060z00_11460 = 
(BgL_arg1354z00_8686==((BGL_LONGLONG_T)0)); } 
if(BgL_test6060z00_11460)
{ /* Ieee/fixnum.scm 1744 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1744 */
return ((bool_t)1);} } } 

}



/* &oddllong? */
obj_t BGl_z62oddllongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6284, obj_t BgL_xz00_6285)
{
{ /* Ieee/fixnum.scm 1743 */
{ /* Ieee/fixnum.scm 1744 */
 bool_t BgL_tmpz00_11463;
{ /* Ieee/fixnum.scm 1744 */
 BGL_LONGLONG_T BgL_auxz00_11464;
{ /* Ieee/fixnum.scm 1744 */
 obj_t BgL_tmpz00_11465;
if(
LLONGP(BgL_xz00_6285))
{ /* Ieee/fixnum.scm 1744 */
BgL_tmpz00_11465 = BgL_xz00_6285
; }  else 
{ 
 obj_t BgL_auxz00_11468;
BgL_auxz00_11468 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(85780L), BGl_string4713z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6285); 
FAILURE(BgL_auxz00_11468,BFALSE,BFALSE);} 
BgL_auxz00_11464 = 
BLLONG_TO_LLONG(BgL_tmpz00_11465); } 
BgL_tmpz00_11463 = 
BGl_oddllongzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11464); } 
return 
BBOOL(BgL_tmpz00_11463);} } 

}



/* odds8? */
BGL_EXPORTED_DEF bool_t BGl_odds8zf3zf3zz__r4_numbers_6_5_fixnumz00(int8_t BgL_nz00_234)
{
{ /* Ieee/fixnum.scm 1746 */
{ /* Ieee/fixnum.scm 1747 */
 int8_t BgL_arg1294z00_8687; int8_t BgL_arg1322z00_8688;
{ /* Ieee/fixnum.scm 1747 */
 int8_t BgL_arg1323z00_8689;
BgL_arg1323z00_8689 = 
(int8_t)(2L); 
BgL_arg1294z00_8687 = 
(BgL_nz00_234%BgL_arg1323z00_8689); } 
BgL_arg1322z00_8688 = 
(int8_t)(1L); 
return 
(BgL_arg1294z00_8687==BgL_arg1322z00_8688);} } 

}



/* &odds8? */
obj_t BGl_z62odds8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6286, obj_t BgL_nz00_6287)
{
{ /* Ieee/fixnum.scm 1746 */
{ /* Ieee/fixnum.scm 1747 */
 bool_t BgL_tmpz00_11479;
{ /* Ieee/fixnum.scm 1747 */
 int8_t BgL_auxz00_11480;
{ /* Ieee/fixnum.scm 1747 */
 obj_t BgL_tmpz00_11481;
if(
BGL_INT8P(BgL_nz00_6287))
{ /* Ieee/fixnum.scm 1747 */
BgL_tmpz00_11481 = BgL_nz00_6287
; }  else 
{ 
 obj_t BgL_auxz00_11484;
BgL_auxz00_11484 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(85857L), BGl_string4714z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6287); 
FAILURE(BgL_auxz00_11484,BFALSE,BFALSE);} 
BgL_auxz00_11480 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_11481); } 
BgL_tmpz00_11479 = 
BGl_odds8zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11480); } 
return 
BBOOL(BgL_tmpz00_11479);} } 

}



/* oddu8? */
BGL_EXPORTED_DEF bool_t BGl_oddu8zf3zf3zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_nz00_235)
{
{ /* Ieee/fixnum.scm 1748 */
{ /* Ieee/fixnum.scm 1749 */
 uint8_t BgL_arg1324z00_8690; uint8_t BgL_arg1325z00_8691;
{ /* Ieee/fixnum.scm 1749 */
 uint8_t BgL_arg1327z00_8692;
BgL_arg1327z00_8692 = 
(uint8_t)(2L); 
{ /* Ieee/fixnum.scm 2125 */
 int8_t BgL_tmpz00_11492;
BgL_tmpz00_11492 = 
(int8_t)(BgL_arg1327z00_8692); 
BgL_arg1324z00_8690 = 
(BgL_nz00_235%BgL_tmpz00_11492); } } 
BgL_arg1325z00_8691 = 
(uint8_t)(1L); 
return 
(BgL_arg1324z00_8690==BgL_arg1325z00_8691);} } 

}



/* &oddu8? */
obj_t BGl_z62oddu8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6288, obj_t BgL_nz00_6289)
{
{ /* Ieee/fixnum.scm 1748 */
{ /* Ieee/fixnum.scm 1749 */
 bool_t BgL_tmpz00_11497;
{ /* Ieee/fixnum.scm 1749 */
 uint8_t BgL_auxz00_11498;
{ /* Ieee/fixnum.scm 1749 */
 obj_t BgL_tmpz00_11499;
if(
BGL_UINT8P(BgL_nz00_6289))
{ /* Ieee/fixnum.scm 1749 */
BgL_tmpz00_11499 = BgL_nz00_6289
; }  else 
{ 
 obj_t BgL_auxz00_11502;
BgL_auxz00_11502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(85943L), BGl_string4715z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6289); 
FAILURE(BgL_auxz00_11502,BFALSE,BFALSE);} 
BgL_auxz00_11498 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_11499); } 
BgL_tmpz00_11497 = 
BGl_oddu8zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11498); } 
return 
BBOOL(BgL_tmpz00_11497);} } 

}



/* odds16? */
BGL_EXPORTED_DEF bool_t BGl_odds16zf3zf3zz__r4_numbers_6_5_fixnumz00(int16_t BgL_nz00_236)
{
{ /* Ieee/fixnum.scm 1751 */
{ /* Ieee/fixnum.scm 1752 */
 int16_t BgL_arg1330z00_8693; int16_t BgL_arg1331z00_8694;
{ /* Ieee/fixnum.scm 1752 */
 int16_t BgL_arg1332z00_8695;
BgL_arg1332z00_8695 = 
(int16_t)(2L); 
BgL_arg1330z00_8693 = 
(BgL_nz00_236%BgL_arg1332z00_8695); } 
BgL_arg1331z00_8694 = 
(int16_t)(1L); 
return 
(BgL_arg1330z00_8693==BgL_arg1331z00_8694);} } 

}



/* &odds16? */
obj_t BGl_z62odds16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6290, obj_t BgL_nz00_6291)
{
{ /* Ieee/fixnum.scm 1751 */
{ /* Ieee/fixnum.scm 1752 */
 bool_t BgL_tmpz00_11513;
{ /* Ieee/fixnum.scm 1752 */
 int16_t BgL_auxz00_11514;
{ /* Ieee/fixnum.scm 1752 */
 obj_t BgL_tmpz00_11515;
if(
BGL_INT16P(BgL_nz00_6291))
{ /* Ieee/fixnum.scm 1752 */
BgL_tmpz00_11515 = BgL_nz00_6291
; }  else 
{ 
 obj_t BgL_auxz00_11518;
BgL_auxz00_11518 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(86035L), BGl_string4716z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6291); 
FAILURE(BgL_auxz00_11518,BFALSE,BFALSE);} 
BgL_auxz00_11514 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_11515); } 
BgL_tmpz00_11513 = 
BGl_odds16zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11514); } 
return 
BBOOL(BgL_tmpz00_11513);} } 

}



/* oddu16? */
BGL_EXPORTED_DEF bool_t BGl_oddu16zf3zf3zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_nz00_237)
{
{ /* Ieee/fixnum.scm 1753 */
{ /* Ieee/fixnum.scm 1754 */
 uint16_t BgL_arg1333z00_8696; uint16_t BgL_arg1334z00_8697;
{ /* Ieee/fixnum.scm 1754 */
 uint16_t BgL_arg1335z00_8698;
BgL_arg1335z00_8698 = 
(uint16_t)(2L); 
{ /* Ieee/fixnum.scm 2128 */
 int16_t BgL_tmpz00_11526;
BgL_tmpz00_11526 = 
(int16_t)(BgL_arg1335z00_8698); 
BgL_arg1333z00_8696 = 
(BgL_nz00_237%BgL_tmpz00_11526); } } 
BgL_arg1334z00_8697 = 
(uint16_t)(1L); 
return 
(BgL_arg1333z00_8696==BgL_arg1334z00_8697);} } 

}



/* &oddu16? */
obj_t BGl_z62oddu16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6292, obj_t BgL_nz00_6293)
{
{ /* Ieee/fixnum.scm 1753 */
{ /* Ieee/fixnum.scm 1754 */
 bool_t BgL_tmpz00_11531;
{ /* Ieee/fixnum.scm 1754 */
 uint16_t BgL_auxz00_11532;
{ /* Ieee/fixnum.scm 1754 */
 obj_t BgL_tmpz00_11533;
if(
BGL_UINT16P(BgL_nz00_6293))
{ /* Ieee/fixnum.scm 1754 */
BgL_tmpz00_11533 = BgL_nz00_6293
; }  else 
{ 
 obj_t BgL_auxz00_11536;
BgL_auxz00_11536 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(86126L), BGl_string4717z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6293); 
FAILURE(BgL_auxz00_11536,BFALSE,BFALSE);} 
BgL_auxz00_11532 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_11533); } 
BgL_tmpz00_11531 = 
BGl_oddu16zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11532); } 
return 
BBOOL(BgL_tmpz00_11531);} } 

}



/* odds32? */
BGL_EXPORTED_DEF bool_t BGl_odds32zf3zf3zz__r4_numbers_6_5_fixnumz00(int32_t BgL_nz00_238)
{
{ /* Ieee/fixnum.scm 1756 */
{ /* Ieee/fixnum.scm 1757 */
 int32_t BgL_arg1336z00_8699; int32_t BgL_arg1337z00_8700;
{ /* Ieee/fixnum.scm 1757 */
 int32_t BgL_arg1338z00_8701;
BgL_arg1338z00_8701 = 
(int32_t)(2L); 
BgL_arg1336z00_8699 = 
(BgL_nz00_238%BgL_arg1338z00_8701); } 
BgL_arg1337z00_8700 = 
(int32_t)(1L); 
return 
(BgL_arg1336z00_8699==BgL_arg1337z00_8700);} } 

}



/* &odds32? */
obj_t BGl_z62odds32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6294, obj_t BgL_nz00_6295)
{
{ /* Ieee/fixnum.scm 1756 */
{ /* Ieee/fixnum.scm 1757 */
 bool_t BgL_tmpz00_11547;
{ /* Ieee/fixnum.scm 1757 */
 int32_t BgL_auxz00_11548;
{ /* Ieee/fixnum.scm 1757 */
 obj_t BgL_tmpz00_11549;
if(
BGL_INT32P(BgL_nz00_6295))
{ /* Ieee/fixnum.scm 1757 */
BgL_tmpz00_11549 = BgL_nz00_6295
; }  else 
{ 
 obj_t BgL_auxz00_11552;
BgL_auxz00_11552 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(86220L), BGl_string4718z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6295); 
FAILURE(BgL_auxz00_11552,BFALSE,BFALSE);} 
BgL_auxz00_11548 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_11549); } 
BgL_tmpz00_11547 = 
BGl_odds32zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11548); } 
return 
BBOOL(BgL_tmpz00_11547);} } 

}



/* oddu32? */
BGL_EXPORTED_DEF bool_t BGl_oddu32zf3zf3zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_nz00_239)
{
{ /* Ieee/fixnum.scm 1758 */
{ /* Ieee/fixnum.scm 1759 */
 uint32_t BgL_arg1339z00_8702; uint32_t BgL_arg1341z00_8703;
{ /* Ieee/fixnum.scm 1759 */
 uint32_t BgL_arg1342z00_8704;
BgL_arg1342z00_8704 = 
(uint32_t)(2L); 
{ /* Ieee/fixnum.scm 2131 */
 int32_t BgL_tmpz00_11560;
BgL_tmpz00_11560 = 
(int32_t)(BgL_arg1342z00_8704); 
BgL_arg1339z00_8702 = 
(BgL_nz00_239%BgL_tmpz00_11560); } } 
BgL_arg1341z00_8703 = 
(uint32_t)(1L); 
return 
(BgL_arg1339z00_8702==BgL_arg1341z00_8703);} } 

}



/* &oddu32? */
obj_t BGl_z62oddu32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6296, obj_t BgL_nz00_6297)
{
{ /* Ieee/fixnum.scm 1758 */
{ /* Ieee/fixnum.scm 1759 */
 bool_t BgL_tmpz00_11565;
{ /* Ieee/fixnum.scm 1759 */
 uint32_t BgL_auxz00_11566;
{ /* Ieee/fixnum.scm 1759 */
 obj_t BgL_tmpz00_11567;
if(
BGL_UINT32P(BgL_nz00_6297))
{ /* Ieee/fixnum.scm 1759 */
BgL_tmpz00_11567 = BgL_nz00_6297
; }  else 
{ 
 obj_t BgL_auxz00_11570;
BgL_auxz00_11570 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(86311L), BGl_string4719z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6297); 
FAILURE(BgL_auxz00_11570,BFALSE,BFALSE);} 
BgL_auxz00_11566 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_11567); } 
BgL_tmpz00_11565 = 
BGl_oddu32zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11566); } 
return 
BBOOL(BgL_tmpz00_11565);} } 

}



/* odds64? */
BGL_EXPORTED_DEF bool_t BGl_odds64zf3zf3zz__r4_numbers_6_5_fixnumz00(int64_t BgL_nz00_240)
{
{ /* Ieee/fixnum.scm 1761 */
{ /* Ieee/fixnum.scm 1762 */
 int64_t BgL_arg1343z00_8705; int64_t BgL_arg1344z00_8706;
{ /* Ieee/fixnum.scm 1762 */
 int64_t BgL_arg1345z00_8707;
BgL_arg1345z00_8707 = 
(int64_t)(2L); 
BgL_arg1343z00_8705 = 
(BgL_nz00_240%BgL_arg1345z00_8707); } 
BgL_arg1344z00_8706 = 
(int64_t)(1L); 
return 
(BgL_arg1343z00_8705==BgL_arg1344z00_8706);} } 

}



/* &odds64? */
obj_t BGl_z62odds64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6298, obj_t BgL_nz00_6299)
{
{ /* Ieee/fixnum.scm 1761 */
{ /* Ieee/fixnum.scm 1762 */
 bool_t BgL_tmpz00_11581;
{ /* Ieee/fixnum.scm 1762 */
 int64_t BgL_auxz00_11582;
{ /* Ieee/fixnum.scm 1762 */
 obj_t BgL_tmpz00_11583;
if(
BGL_INT64P(BgL_nz00_6299))
{ /* Ieee/fixnum.scm 1762 */
BgL_tmpz00_11583 = BgL_nz00_6299
; }  else 
{ 
 obj_t BgL_auxz00_11586;
BgL_auxz00_11586 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(86405L), BGl_string4720z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6299); 
FAILURE(BgL_auxz00_11586,BFALSE,BFALSE);} 
BgL_auxz00_11582 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_11583); } 
BgL_tmpz00_11581 = 
BGl_odds64zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11582); } 
return 
BBOOL(BgL_tmpz00_11581);} } 

}



/* oddu64? */
BGL_EXPORTED_DEF bool_t BGl_oddu64zf3zf3zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_nz00_241)
{
{ /* Ieee/fixnum.scm 1763 */
{ /* Ieee/fixnum.scm 1764 */
 uint64_t BgL_arg1346z00_8708; uint64_t BgL_arg1347z00_8709;
{ /* Ieee/fixnum.scm 1764 */
 uint64_t BgL_arg1348z00_8710;
BgL_arg1348z00_8710 = 
(uint64_t)(2L); 
{ /* Ieee/fixnum.scm 2134 */
 int64_t BgL_tmpz00_11594;
BgL_tmpz00_11594 = 
(int64_t)(BgL_arg1348z00_8710); 
BgL_arg1346z00_8708 = 
(BgL_nz00_241%BgL_tmpz00_11594); } } 
BgL_arg1347z00_8709 = 
(uint64_t)(1L); 
return 
(BgL_arg1346z00_8708==BgL_arg1347z00_8709);} } 

}



/* &oddu64? */
obj_t BGl_z62oddu64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6300, obj_t BgL_nz00_6301)
{
{ /* Ieee/fixnum.scm 1763 */
{ /* Ieee/fixnum.scm 1764 */
 bool_t BgL_tmpz00_11599;
{ /* Ieee/fixnum.scm 1764 */
 uint64_t BgL_auxz00_11600;
{ /* Ieee/fixnum.scm 1764 */
 obj_t BgL_tmpz00_11601;
if(
BGL_UINT64P(BgL_nz00_6301))
{ /* Ieee/fixnum.scm 1764 */
BgL_tmpz00_11601 = BgL_nz00_6301
; }  else 
{ 
 obj_t BgL_auxz00_11604;
BgL_auxz00_11604 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(86496L), BGl_string4721z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6301); 
FAILURE(BgL_auxz00_11604,BFALSE,BFALSE);} 
BgL_auxz00_11600 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_11601); } 
BgL_tmpz00_11599 = 
BGl_oddu64zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11600); } 
return 
BBOOL(BgL_tmpz00_11599);} } 

}



/* oddbx? */
BGL_EXPORTED_DEF bool_t BGl_oddbxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_242)
{
{ /* Ieee/fixnum.scm 1766 */
BGL_TAIL return 
bgl_bignum_odd(BgL_xz00_242);} 

}



/* &oddbx? */
obj_t BGl_z62oddbxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6302, obj_t BgL_xz00_6303)
{
{ /* Ieee/fixnum.scm 1766 */
{ /* Ieee/fixnum.scm 1767 */
 bool_t BgL_tmpz00_11612;
{ /* Ieee/fixnum.scm 1767 */
 obj_t BgL_auxz00_11613;
if(
BIGNUMP(BgL_xz00_6303))
{ /* Ieee/fixnum.scm 1767 */
BgL_auxz00_11613 = BgL_xz00_6303
; }  else 
{ 
 obj_t BgL_auxz00_11616;
BgL_auxz00_11616 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(86567L), BGl_string4722z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6303); 
FAILURE(BgL_auxz00_11616,BFALSE,BFALSE);} 
BgL_tmpz00_11612 = 
BGl_oddbxzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11613); } 
return 
BBOOL(BgL_tmpz00_11612);} } 

}



/* even? */
BGL_EXPORTED_DEF bool_t BGl_evenzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_243)
{
{ /* Ieee/fixnum.scm 1772 */
if(
INTEGERP(BgL_xz00_243))
{ /* Ieee/fixnum.scm 1774 */
return 
EVENP_FX(
(long)CINT(BgL_xz00_243));}  else 
{ /* Ieee/fixnum.scm 1774 */
if(
ELONGP(BgL_xz00_243))
{ /* Ieee/fixnum.scm 1775 */
 long BgL_xz00_2949;
BgL_xz00_2949 = 
BELONG_TO_LONG(BgL_xz00_243); 
{ /* Ieee/fixnum.scm 1783 */
 long BgL_arg1353z00_2950;
BgL_arg1353z00_2950 = 
(BgL_xz00_2949%((long)2)); 
return 
(BgL_arg1353z00_2950==((long)0));} }  else 
{ /* Ieee/fixnum.scm 1775 */
if(
LLONGP(BgL_xz00_243))
{ /* Ieee/fixnum.scm 1776 */
 BGL_LONGLONG_T BgL_xz00_2956;
BgL_xz00_2956 = 
BLLONG_TO_LLONG(BgL_xz00_243); 
{ /* Ieee/fixnum.scm 1784 */
 BGL_LONGLONG_T BgL_arg1354z00_2957;
BgL_arg1354z00_2957 = 
(BgL_xz00_2956%((BGL_LONGLONG_T)2)); 
return 
(BgL_arg1354z00_2957==((BGL_LONGLONG_T)0));} }  else 
{ /* Ieee/fixnum.scm 1776 */
if(
BIGNUMP(BgL_xz00_243))
{ /* Ieee/fixnum.scm 1777 */
return 
bgl_bignum_even(BgL_xz00_243);}  else 
{ /* Ieee/fixnum.scm 1777 */
return 
CBOOL(
BGl_errorz00zz__errorz00(BGl_string4723z00zz__r4_numbers_6_5_fixnumz00, BGl_string4710z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_243));} } } } } 

}



/* &even? */
obj_t BGl_z62evenzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6304, obj_t BgL_xz00_6305)
{
{ /* Ieee/fixnum.scm 1772 */
return 
BBOOL(
BGl_evenzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6305));} 

}



/* evenfx? */
BGL_EXPORTED_DEF bool_t BGl_evenfxzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_244)
{
{ /* Ieee/fixnum.scm 1780 */
return 
EVENP_FX(BgL_xz00_244);} 

}



/* &evenfx? */
obj_t BGl_z62evenfxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6306, obj_t BgL_xz00_6307)
{
{ /* Ieee/fixnum.scm 1780 */
{ /* Ieee/fixnum.scm 1781 */
 bool_t BgL_tmpz00_11644;
{ /* Ieee/fixnum.scm 1781 */
 long BgL_auxz00_11645;
{ /* Ieee/fixnum.scm 1781 */
 obj_t BgL_tmpz00_11646;
if(
INTEGERP(BgL_xz00_6307))
{ /* Ieee/fixnum.scm 1781 */
BgL_tmpz00_11646 = BgL_xz00_6307
; }  else 
{ 
 obj_t BgL_auxz00_11649;
BgL_auxz00_11649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87038L), BGl_string4724z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6307); 
FAILURE(BgL_auxz00_11649,BFALSE,BFALSE);} 
BgL_auxz00_11645 = 
(long)CINT(BgL_tmpz00_11646); } 
BgL_tmpz00_11644 = 
BGl_evenfxzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11645); } 
return 
BBOOL(BgL_tmpz00_11644);} } 

}



/* evenelong? */
BGL_EXPORTED_DEF bool_t BGl_evenelongzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_245)
{
{ /* Ieee/fixnum.scm 1783 */
{ /* Ieee/fixnum.scm 1783 */
 long BgL_arg1353z00_8711;
BgL_arg1353z00_8711 = 
(BgL_xz00_245%((long)2)); 
return 
(BgL_arg1353z00_8711==((long)0));} } 

}



/* &evenelong? */
obj_t BGl_z62evenelongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6308, obj_t BgL_xz00_6309)
{
{ /* Ieee/fixnum.scm 1783 */
{ /* Ieee/fixnum.scm 1783 */
 bool_t BgL_tmpz00_11658;
{ /* Ieee/fixnum.scm 1783 */
 long BgL_auxz00_11659;
{ /* Ieee/fixnum.scm 1783 */
 obj_t BgL_tmpz00_11660;
if(
ELONGP(BgL_xz00_6309))
{ /* Ieee/fixnum.scm 1783 */
BgL_tmpz00_11660 = BgL_xz00_6309
; }  else 
{ 
 obj_t BgL_auxz00_11663;
BgL_auxz00_11663 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87095L), BGl_string4725z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6309); 
FAILURE(BgL_auxz00_11663,BFALSE,BFALSE);} 
BgL_auxz00_11659 = 
BELONG_TO_LONG(BgL_tmpz00_11660); } 
BgL_tmpz00_11658 = 
BGl_evenelongzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11659); } 
return 
BBOOL(BgL_tmpz00_11658);} } 

}



/* evenllong? */
BGL_EXPORTED_DEF bool_t BGl_evenllongzf3zf3zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_xz00_246)
{
{ /* Ieee/fixnum.scm 1784 */
{ /* Ieee/fixnum.scm 1784 */
 BGL_LONGLONG_T BgL_arg1354z00_8712;
BgL_arg1354z00_8712 = 
(BgL_xz00_246%((BGL_LONGLONG_T)2)); 
return 
(BgL_arg1354z00_8712==((BGL_LONGLONG_T)0));} } 

}



/* &evenllong? */
obj_t BGl_z62evenllongzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6310, obj_t BgL_xz00_6311)
{
{ /* Ieee/fixnum.scm 1784 */
{ /* Ieee/fixnum.scm 1784 */
 bool_t BgL_tmpz00_11672;
{ /* Ieee/fixnum.scm 1784 */
 BGL_LONGLONG_T BgL_auxz00_11673;
{ /* Ieee/fixnum.scm 1784 */
 obj_t BgL_tmpz00_11674;
if(
LLONGP(BgL_xz00_6311))
{ /* Ieee/fixnum.scm 1784 */
BgL_tmpz00_11674 = BgL_xz00_6311
; }  else 
{ 
 obj_t BgL_auxz00_11677;
BgL_auxz00_11677 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87162L), BGl_string4726z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6311); 
FAILURE(BgL_auxz00_11677,BFALSE,BFALSE);} 
BgL_auxz00_11673 = 
BLLONG_TO_LLONG(BgL_tmpz00_11674); } 
BgL_tmpz00_11672 = 
BGl_evenllongzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11673); } 
return 
BBOOL(BgL_tmpz00_11672);} } 

}



/* evens8? */
BGL_EXPORTED_DEF bool_t BGl_evens8zf3zf3zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_247)
{
{ /* Ieee/fixnum.scm 1786 */
{ /* Ieee/fixnum.scm 1786 */
 bool_t BgL_test6078z00_11684;
{ /* Ieee/fixnum.scm 1747 */
 int8_t BgL_arg1294z00_8713; int8_t BgL_arg1322z00_8714;
{ /* Ieee/fixnum.scm 1747 */
 int8_t BgL_arg1323z00_8715;
BgL_arg1323z00_8715 = 
(int8_t)(2L); 
BgL_arg1294z00_8713 = 
(BgL_n1z00_247%BgL_arg1323z00_8715); } 
BgL_arg1322z00_8714 = 
(int8_t)(1L); 
BgL_test6078z00_11684 = 
(BgL_arg1294z00_8713==BgL_arg1322z00_8714); } 
if(BgL_test6078z00_11684)
{ /* Ieee/fixnum.scm 1786 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1786 */
return ((bool_t)1);} } } 

}



/* &evens8? */
obj_t BGl_z62evens8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6312, obj_t BgL_n1z00_6313)
{
{ /* Ieee/fixnum.scm 1786 */
{ /* Ieee/fixnum.scm 1786 */
 bool_t BgL_tmpz00_11689;
{ /* Ieee/fixnum.scm 1786 */
 int8_t BgL_auxz00_11690;
{ /* Ieee/fixnum.scm 1786 */
 obj_t BgL_tmpz00_11691;
if(
BGL_INT8P(BgL_n1z00_6313))
{ /* Ieee/fixnum.scm 1786 */
BgL_tmpz00_11691 = BgL_n1z00_6313
; }  else 
{ 
 obj_t BgL_auxz00_11694;
BgL_auxz00_11694 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87216L), BGl_string4727z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6313); 
FAILURE(BgL_auxz00_11694,BFALSE,BFALSE);} 
BgL_auxz00_11690 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_11691); } 
BgL_tmpz00_11689 = 
BGl_evens8zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11690); } 
return 
BBOOL(BgL_tmpz00_11689);} } 

}



/* evenu8? */
BGL_EXPORTED_DEF bool_t BGl_evenu8zf3zf3zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_248)
{
{ /* Ieee/fixnum.scm 1787 */
{ /* Ieee/fixnum.scm 1787 */
 bool_t BgL_test6080z00_11701;
{ /* Ieee/fixnum.scm 1749 */
 uint8_t BgL_arg1324z00_8716; uint8_t BgL_arg1325z00_8717;
{ /* Ieee/fixnum.scm 1749 */
 uint8_t BgL_arg1327z00_8718;
BgL_arg1327z00_8718 = 
(uint8_t)(2L); 
{ /* Ieee/fixnum.scm 2125 */
 int8_t BgL_tmpz00_11703;
BgL_tmpz00_11703 = 
(int8_t)(BgL_arg1327z00_8718); 
BgL_arg1324z00_8716 = 
(BgL_n1z00_248%BgL_tmpz00_11703); } } 
BgL_arg1325z00_8717 = 
(uint8_t)(1L); 
BgL_test6080z00_11701 = 
(BgL_arg1324z00_8716==BgL_arg1325z00_8717); } 
if(BgL_test6080z00_11701)
{ /* Ieee/fixnum.scm 1787 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1787 */
return ((bool_t)1);} } } 

}



/* &evenu8? */
obj_t BGl_z62evenu8zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6314, obj_t BgL_n1z00_6315)
{
{ /* Ieee/fixnum.scm 1787 */
{ /* Ieee/fixnum.scm 1787 */
 bool_t BgL_tmpz00_11708;
{ /* Ieee/fixnum.scm 1787 */
 uint8_t BgL_auxz00_11709;
{ /* Ieee/fixnum.scm 1787 */
 obj_t BgL_tmpz00_11710;
if(
BGL_UINT8P(BgL_n1z00_6315))
{ /* Ieee/fixnum.scm 1787 */
BgL_tmpz00_11710 = BgL_n1z00_6315
; }  else 
{ 
 obj_t BgL_auxz00_11713;
BgL_auxz00_11713 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87263L), BGl_string4728z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6315); 
FAILURE(BgL_auxz00_11713,BFALSE,BFALSE);} 
BgL_auxz00_11709 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_11710); } 
BgL_tmpz00_11708 = 
BGl_evenu8zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11709); } 
return 
BBOOL(BgL_tmpz00_11708);} } 

}



/* evens16? */
BGL_EXPORTED_DEF bool_t BGl_evens16zf3zf3zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_249)
{
{ /* Ieee/fixnum.scm 1789 */
{ /* Ieee/fixnum.scm 1789 */
 bool_t BgL_test6082z00_11720;
{ /* Ieee/fixnum.scm 1752 */
 int16_t BgL_arg1330z00_8719; int16_t BgL_arg1331z00_8720;
{ /* Ieee/fixnum.scm 1752 */
 int16_t BgL_arg1332z00_8721;
BgL_arg1332z00_8721 = 
(int16_t)(2L); 
BgL_arg1330z00_8719 = 
(BgL_n1z00_249%BgL_arg1332z00_8721); } 
BgL_arg1331z00_8720 = 
(int16_t)(1L); 
BgL_test6082z00_11720 = 
(BgL_arg1330z00_8719==BgL_arg1331z00_8720); } 
if(BgL_test6082z00_11720)
{ /* Ieee/fixnum.scm 1789 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1789 */
return ((bool_t)1);} } } 

}



/* &evens16? */
obj_t BGl_z62evens16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6316, obj_t BgL_n1z00_6317)
{
{ /* Ieee/fixnum.scm 1789 */
{ /* Ieee/fixnum.scm 1789 */
 bool_t BgL_tmpz00_11725;
{ /* Ieee/fixnum.scm 1789 */
 int16_t BgL_auxz00_11726;
{ /* Ieee/fixnum.scm 1789 */
 obj_t BgL_tmpz00_11727;
if(
BGL_INT16P(BgL_n1z00_6317))
{ /* Ieee/fixnum.scm 1789 */
BgL_tmpz00_11727 = BgL_n1z00_6317
; }  else 
{ 
 obj_t BgL_auxz00_11730;
BgL_auxz00_11730 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87312L), BGl_string4729z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6317); 
FAILURE(BgL_auxz00_11730,BFALSE,BFALSE);} 
BgL_auxz00_11726 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_11727); } 
BgL_tmpz00_11725 = 
BGl_evens16zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11726); } 
return 
BBOOL(BgL_tmpz00_11725);} } 

}



/* evenu16? */
BGL_EXPORTED_DEF bool_t BGl_evenu16zf3zf3zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_250)
{
{ /* Ieee/fixnum.scm 1790 */
{ /* Ieee/fixnum.scm 1790 */
 bool_t BgL_test6084z00_11737;
{ /* Ieee/fixnum.scm 1754 */
 uint16_t BgL_arg1333z00_8722; uint16_t BgL_arg1334z00_8723;
{ /* Ieee/fixnum.scm 1754 */
 uint16_t BgL_arg1335z00_8724;
BgL_arg1335z00_8724 = 
(uint16_t)(2L); 
{ /* Ieee/fixnum.scm 2128 */
 int16_t BgL_tmpz00_11739;
BgL_tmpz00_11739 = 
(int16_t)(BgL_arg1335z00_8724); 
BgL_arg1333z00_8722 = 
(BgL_n1z00_250%BgL_tmpz00_11739); } } 
BgL_arg1334z00_8723 = 
(uint16_t)(1L); 
BgL_test6084z00_11737 = 
(BgL_arg1333z00_8722==BgL_arg1334z00_8723); } 
if(BgL_test6084z00_11737)
{ /* Ieee/fixnum.scm 1790 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1790 */
return ((bool_t)1);} } } 

}



/* &evenu16? */
obj_t BGl_z62evenu16zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6318, obj_t BgL_n1z00_6319)
{
{ /* Ieee/fixnum.scm 1790 */
{ /* Ieee/fixnum.scm 1790 */
 bool_t BgL_tmpz00_11744;
{ /* Ieee/fixnum.scm 1790 */
 uint16_t BgL_auxz00_11745;
{ /* Ieee/fixnum.scm 1790 */
 obj_t BgL_tmpz00_11746;
if(
BGL_UINT16P(BgL_n1z00_6319))
{ /* Ieee/fixnum.scm 1790 */
BgL_tmpz00_11746 = BgL_n1z00_6319
; }  else 
{ 
 obj_t BgL_auxz00_11749;
BgL_auxz00_11749 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87361L), BGl_string4730z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6319); 
FAILURE(BgL_auxz00_11749,BFALSE,BFALSE);} 
BgL_auxz00_11745 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_11746); } 
BgL_tmpz00_11744 = 
BGl_evenu16zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11745); } 
return 
BBOOL(BgL_tmpz00_11744);} } 

}



/* evens32? */
BGL_EXPORTED_DEF bool_t BGl_evens32zf3zf3zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_251)
{
{ /* Ieee/fixnum.scm 1792 */
{ /* Ieee/fixnum.scm 1792 */
 bool_t BgL_test6086z00_11756;
{ /* Ieee/fixnum.scm 1757 */
 int32_t BgL_arg1336z00_8725; int32_t BgL_arg1337z00_8726;
{ /* Ieee/fixnum.scm 1757 */
 int32_t BgL_arg1338z00_8727;
BgL_arg1338z00_8727 = 
(int32_t)(2L); 
BgL_arg1336z00_8725 = 
(BgL_n1z00_251%BgL_arg1338z00_8727); } 
BgL_arg1337z00_8726 = 
(int32_t)(1L); 
BgL_test6086z00_11756 = 
(BgL_arg1336z00_8725==BgL_arg1337z00_8726); } 
if(BgL_test6086z00_11756)
{ /* Ieee/fixnum.scm 1792 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1792 */
return ((bool_t)1);} } } 

}



/* &evens32? */
obj_t BGl_z62evens32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6320, obj_t BgL_n1z00_6321)
{
{ /* Ieee/fixnum.scm 1792 */
{ /* Ieee/fixnum.scm 1792 */
 bool_t BgL_tmpz00_11761;
{ /* Ieee/fixnum.scm 1792 */
 int32_t BgL_auxz00_11762;
{ /* Ieee/fixnum.scm 1792 */
 obj_t BgL_tmpz00_11763;
if(
BGL_INT32P(BgL_n1z00_6321))
{ /* Ieee/fixnum.scm 1792 */
BgL_tmpz00_11763 = BgL_n1z00_6321
; }  else 
{ 
 obj_t BgL_auxz00_11766;
BgL_auxz00_11766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87411L), BGl_string4731z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6321); 
FAILURE(BgL_auxz00_11766,BFALSE,BFALSE);} 
BgL_auxz00_11762 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_11763); } 
BgL_tmpz00_11761 = 
BGl_evens32zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11762); } 
return 
BBOOL(BgL_tmpz00_11761);} } 

}



/* evenu32? */
BGL_EXPORTED_DEF bool_t BGl_evenu32zf3zf3zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_252)
{
{ /* Ieee/fixnum.scm 1793 */
{ /* Ieee/fixnum.scm 1793 */
 bool_t BgL_test6088z00_11773;
{ /* Ieee/fixnum.scm 1759 */
 uint32_t BgL_arg1339z00_8728; uint32_t BgL_arg1341z00_8729;
{ /* Ieee/fixnum.scm 1759 */
 uint32_t BgL_arg1342z00_8730;
BgL_arg1342z00_8730 = 
(uint32_t)(2L); 
{ /* Ieee/fixnum.scm 2131 */
 int32_t BgL_tmpz00_11775;
BgL_tmpz00_11775 = 
(int32_t)(BgL_arg1342z00_8730); 
BgL_arg1339z00_8728 = 
(BgL_n1z00_252%BgL_tmpz00_11775); } } 
BgL_arg1341z00_8729 = 
(uint32_t)(1L); 
BgL_test6088z00_11773 = 
(BgL_arg1339z00_8728==BgL_arg1341z00_8729); } 
if(BgL_test6088z00_11773)
{ /* Ieee/fixnum.scm 1793 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1793 */
return ((bool_t)1);} } } 

}



/* &evenu32? */
obj_t BGl_z62evenu32zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6322, obj_t BgL_n1z00_6323)
{
{ /* Ieee/fixnum.scm 1793 */
{ /* Ieee/fixnum.scm 1793 */
 bool_t BgL_tmpz00_11780;
{ /* Ieee/fixnum.scm 1793 */
 uint32_t BgL_auxz00_11781;
{ /* Ieee/fixnum.scm 1793 */
 obj_t BgL_tmpz00_11782;
if(
BGL_UINT32P(BgL_n1z00_6323))
{ /* Ieee/fixnum.scm 1793 */
BgL_tmpz00_11782 = BgL_n1z00_6323
; }  else 
{ 
 obj_t BgL_auxz00_11785;
BgL_auxz00_11785 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87460L), BGl_string4732z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6323); 
FAILURE(BgL_auxz00_11785,BFALSE,BFALSE);} 
BgL_auxz00_11781 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_11782); } 
BgL_tmpz00_11780 = 
BGl_evenu32zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11781); } 
return 
BBOOL(BgL_tmpz00_11780);} } 

}



/* evens64? */
BGL_EXPORTED_DEF bool_t BGl_evens64zf3zf3zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_253)
{
{ /* Ieee/fixnum.scm 1795 */
{ /* Ieee/fixnum.scm 1795 */
 bool_t BgL_test6090z00_11792;
{ /* Ieee/fixnum.scm 1762 */
 int64_t BgL_arg1343z00_8731; int64_t BgL_arg1344z00_8732;
{ /* Ieee/fixnum.scm 1762 */
 int64_t BgL_arg1345z00_8733;
BgL_arg1345z00_8733 = 
(int64_t)(2L); 
BgL_arg1343z00_8731 = 
(BgL_n1z00_253%BgL_arg1345z00_8733); } 
BgL_arg1344z00_8732 = 
(int64_t)(1L); 
BgL_test6090z00_11792 = 
(BgL_arg1343z00_8731==BgL_arg1344z00_8732); } 
if(BgL_test6090z00_11792)
{ /* Ieee/fixnum.scm 1795 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1795 */
return ((bool_t)1);} } } 

}



/* &evens64? */
obj_t BGl_z62evens64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6324, obj_t BgL_n1z00_6325)
{
{ /* Ieee/fixnum.scm 1795 */
{ /* Ieee/fixnum.scm 1795 */
 bool_t BgL_tmpz00_11797;
{ /* Ieee/fixnum.scm 1795 */
 int64_t BgL_auxz00_11798;
{ /* Ieee/fixnum.scm 1795 */
 obj_t BgL_tmpz00_11799;
if(
BGL_INT64P(BgL_n1z00_6325))
{ /* Ieee/fixnum.scm 1795 */
BgL_tmpz00_11799 = BgL_n1z00_6325
; }  else 
{ 
 obj_t BgL_auxz00_11802;
BgL_auxz00_11802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87510L), BGl_string4733z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6325); 
FAILURE(BgL_auxz00_11802,BFALSE,BFALSE);} 
BgL_auxz00_11798 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_11799); } 
BgL_tmpz00_11797 = 
BGl_evens64zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11798); } 
return 
BBOOL(BgL_tmpz00_11797);} } 

}



/* evenu64? */
BGL_EXPORTED_DEF bool_t BGl_evenu64zf3zf3zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_254)
{
{ /* Ieee/fixnum.scm 1796 */
{ /* Ieee/fixnum.scm 1796 */
 bool_t BgL_test6092z00_11809;
{ /* Ieee/fixnum.scm 1764 */
 uint64_t BgL_arg1346z00_8734; uint64_t BgL_arg1347z00_8735;
{ /* Ieee/fixnum.scm 1764 */
 uint64_t BgL_arg1348z00_8736;
BgL_arg1348z00_8736 = 
(uint64_t)(2L); 
{ /* Ieee/fixnum.scm 2134 */
 int64_t BgL_tmpz00_11811;
BgL_tmpz00_11811 = 
(int64_t)(BgL_arg1348z00_8736); 
BgL_arg1346z00_8734 = 
(BgL_n1z00_254%BgL_tmpz00_11811); } } 
BgL_arg1347z00_8735 = 
(uint64_t)(1L); 
BgL_test6092z00_11809 = 
(BgL_arg1346z00_8734==BgL_arg1347z00_8735); } 
if(BgL_test6092z00_11809)
{ /* Ieee/fixnum.scm 1796 */
return ((bool_t)0);}  else 
{ /* Ieee/fixnum.scm 1796 */
return ((bool_t)1);} } } 

}



/* &evenu64? */
obj_t BGl_z62evenu64zf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6326, obj_t BgL_n1z00_6327)
{
{ /* Ieee/fixnum.scm 1796 */
{ /* Ieee/fixnum.scm 1796 */
 bool_t BgL_tmpz00_11816;
{ /* Ieee/fixnum.scm 1796 */
 uint64_t BgL_auxz00_11817;
{ /* Ieee/fixnum.scm 1796 */
 obj_t BgL_tmpz00_11818;
if(
BGL_UINT64P(BgL_n1z00_6327))
{ /* Ieee/fixnum.scm 1796 */
BgL_tmpz00_11818 = BgL_n1z00_6327
; }  else 
{ 
 obj_t BgL_auxz00_11821;
BgL_auxz00_11821 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87559L), BGl_string4734z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6327); 
FAILURE(BgL_auxz00_11821,BFALSE,BFALSE);} 
BgL_auxz00_11817 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_11818); } 
BgL_tmpz00_11816 = 
BGl_evenu64zf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11817); } 
return 
BBOOL(BgL_tmpz00_11816);} } 

}



/* evenbx? */
BGL_EXPORTED_DEF bool_t BGl_evenbxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_255)
{
{ /* Ieee/fixnum.scm 1798 */
BGL_TAIL return 
bgl_bignum_even(BgL_xz00_255);} 

}



/* &evenbx? */
obj_t BGl_z62evenbxzf3z91zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6328, obj_t BgL_xz00_6329)
{
{ /* Ieee/fixnum.scm 1798 */
{ /* Ieee/fixnum.scm 1798 */
 bool_t BgL_tmpz00_11829;
{ /* Ieee/fixnum.scm 1798 */
 obj_t BgL_auxz00_11830;
if(
BIGNUMP(BgL_xz00_6329))
{ /* Ieee/fixnum.scm 1798 */
BgL_auxz00_11830 = BgL_xz00_6329
; }  else 
{ 
 obj_t BgL_auxz00_11833;
BgL_auxz00_11833 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(87607L), BGl_string4735z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6329); 
FAILURE(BgL_auxz00_11833,BFALSE,BFALSE);} 
BgL_tmpz00_11829 = 
BGl_evenbxzf3zf3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11830); } 
return 
BBOOL(BgL_tmpz00_11829);} } 

}



/* minfx */
BGL_EXPORTED_DEF long BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_256, obj_t BgL_nnz00_257)
{
{ /* Ieee/fixnum.scm 1812 */
{ 
 obj_t BgL_yz00_1013; obj_t BgL_xsz00_1014;
{ /* Ieee/fixnum.scm 1812 */
 obj_t BgL_tmpz00_11839;
{ /* Ieee/fixnum.scm 1812 */
 obj_t BgL_aux3159z00_7271;
BgL_yz00_1013 = 
BINT(BgL_n1z00_256); 
BgL_xsz00_1014 = BgL_nnz00_257; 
BgL_zc3z04anonymousza31363ze3z87_1015:
if(
NULLP(BgL_xsz00_1014))
{ /* Ieee/fixnum.scm 1812 */
BgL_aux3159z00_7271 = BgL_yz00_1013; }  else 
{ /* Ieee/fixnum.scm 1812 */
 bool_t BgL_test6096z00_11842;
{ /* Ieee/fixnum.scm 1812 */
 long BgL_n1z00_3049; long BgL_n2z00_3050;
{ /* Ieee/fixnum.scm 1812 */
 obj_t BgL_pairz00_3048;
if(
PAIRP(BgL_xsz00_1014))
{ /* Ieee/fixnum.scm 1812 */
BgL_pairz00_3048 = BgL_xsz00_1014; }  else 
{ 
 obj_t BgL_auxz00_11845;
BgL_auxz00_11845 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88061L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1014); 
FAILURE(BgL_auxz00_11845,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1812 */
 obj_t BgL_tmpz00_11849;
{ /* Ieee/fixnum.scm 1812 */
 obj_t BgL_aux3151z00_7263;
BgL_aux3151z00_7263 = 
CAR(BgL_pairz00_3048); 
if(
INTEGERP(BgL_aux3151z00_7263))
{ /* Ieee/fixnum.scm 1812 */
BgL_tmpz00_11849 = BgL_aux3151z00_7263
; }  else 
{ 
 obj_t BgL_auxz00_11853;
BgL_auxz00_11853 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88061L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3151z00_7263); 
FAILURE(BgL_auxz00_11853,BFALSE,BFALSE);} } 
BgL_n1z00_3049 = 
(long)CINT(BgL_tmpz00_11849); } } 
{ /* Ieee/fixnum.scm 1812 */
 obj_t BgL_tmpz00_11858;
if(
INTEGERP(BgL_yz00_1013))
{ /* Ieee/fixnum.scm 1812 */
BgL_tmpz00_11858 = BgL_yz00_1013
; }  else 
{ 
 obj_t BgL_auxz00_11861;
BgL_auxz00_11861 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88061L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1013); 
FAILURE(BgL_auxz00_11861,BFALSE,BFALSE);} 
BgL_n2z00_3050 = 
(long)CINT(BgL_tmpz00_11858); } 
BgL_test6096z00_11842 = 
(BgL_n1z00_3049<BgL_n2z00_3050); } 
if(BgL_test6096z00_11842)
{ 
 obj_t BgL_xsz00_11875; obj_t BgL_yz00_11867;
{ /* Ieee/fixnum.scm 1812 */
 obj_t BgL_pairz00_3051;
if(
PAIRP(BgL_xsz00_1014))
{ /* Ieee/fixnum.scm 1812 */
BgL_pairz00_3051 = BgL_xsz00_1014; }  else 
{ 
 obj_t BgL_auxz00_11870;
BgL_auxz00_11870 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88061L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1014); 
FAILURE(BgL_auxz00_11870,BFALSE,BFALSE);} 
BgL_yz00_11867 = 
CAR(BgL_pairz00_3051); } 
{ /* Ieee/fixnum.scm 1812 */
 obj_t BgL_pairz00_3052;
if(
PAIRP(BgL_xsz00_1014))
{ /* Ieee/fixnum.scm 1812 */
BgL_pairz00_3052 = BgL_xsz00_1014; }  else 
{ 
 obj_t BgL_auxz00_11878;
BgL_auxz00_11878 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88061L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1014); 
FAILURE(BgL_auxz00_11878,BFALSE,BFALSE);} 
BgL_xsz00_11875 = 
CDR(BgL_pairz00_3052); } 
BgL_xsz00_1014 = BgL_xsz00_11875; 
BgL_yz00_1013 = BgL_yz00_11867; 
goto BgL_zc3z04anonymousza31363ze3z87_1015;}  else 
{ 
 obj_t BgL_xsz00_11883;
{ /* Ieee/fixnum.scm 1812 */
 obj_t BgL_pairz00_3053;
if(
PAIRP(BgL_xsz00_1014))
{ /* Ieee/fixnum.scm 1812 */
BgL_pairz00_3053 = BgL_xsz00_1014; }  else 
{ 
 obj_t BgL_auxz00_11886;
BgL_auxz00_11886 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88061L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1014); 
FAILURE(BgL_auxz00_11886,BFALSE,BFALSE);} 
BgL_xsz00_11883 = 
CDR(BgL_pairz00_3053); } 
BgL_xsz00_1014 = BgL_xsz00_11883; 
goto BgL_zc3z04anonymousza31363ze3z87_1015;} } 
if(
INTEGERP(BgL_aux3159z00_7271))
{ /* Ieee/fixnum.scm 1812 */
BgL_tmpz00_11839 = BgL_aux3159z00_7271
; }  else 
{ 
 obj_t BgL_auxz00_11894;
BgL_auxz00_11894 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88061L), BGl_string4738z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3159z00_7271); 
FAILURE(BgL_auxz00_11894,BFALSE,BFALSE);} } 
return 
(long)CINT(BgL_tmpz00_11839);} } } 

}



/* &minfx */
obj_t BGl_z62minfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6330, obj_t BgL_n1z00_6331, obj_t BgL_nnz00_6332)
{
{ /* Ieee/fixnum.scm 1812 */
{ /* Ieee/fixnum.scm 1812 */
 long BgL_tmpz00_11899;
{ /* Ieee/fixnum.scm 1812 */
 long BgL_auxz00_11900;
{ /* Ieee/fixnum.scm 1812 */
 obj_t BgL_tmpz00_11901;
if(
INTEGERP(BgL_n1z00_6331))
{ /* Ieee/fixnum.scm 1812 */
BgL_tmpz00_11901 = BgL_n1z00_6331
; }  else 
{ 
 obj_t BgL_auxz00_11904;
BgL_auxz00_11904 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88061L), BGl_string4739z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6331); 
FAILURE(BgL_auxz00_11904,BFALSE,BFALSE);} 
BgL_auxz00_11900 = 
(long)CINT(BgL_tmpz00_11901); } 
BgL_tmpz00_11899 = 
BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11900, BgL_nnz00_6332); } 
return 
BINT(BgL_tmpz00_11899);} } 

}



/* minelong */
BGL_EXPORTED_DEF long BGl_minelongz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_258, obj_t BgL_nnz00_259)
{
{ /* Ieee/fixnum.scm 1814 */
{ 
 obj_t BgL_yz00_1025; obj_t BgL_xsz00_1026;
{ /* Ieee/fixnum.scm 1814 */
 obj_t BgL_tmpz00_11911;
{ /* Ieee/fixnum.scm 1814 */
 obj_t BgL_aux3173z00_7285;
BgL_yz00_1025 = 
make_belong(BgL_n1z00_258); 
BgL_xsz00_1026 = BgL_nnz00_259; 
BgL_zc3z04anonymousza31371ze3z87_1027:
if(
NULLP(BgL_xsz00_1026))
{ /* Ieee/fixnum.scm 1814 */
BgL_aux3173z00_7285 = BgL_yz00_1025; }  else 
{ /* Ieee/fixnum.scm 1814 */
 bool_t BgL_test6106z00_11914;
{ /* Ieee/fixnum.scm 1814 */
 long BgL_n1z00_3055; long BgL_n2z00_3056;
{ /* Ieee/fixnum.scm 1814 */
 obj_t BgL_pairz00_3054;
if(
PAIRP(BgL_xsz00_1026))
{ /* Ieee/fixnum.scm 1814 */
BgL_pairz00_3054 = BgL_xsz00_1026; }  else 
{ 
 obj_t BgL_auxz00_11917;
BgL_auxz00_11917 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88112L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1026); 
FAILURE(BgL_auxz00_11917,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1814 */
 obj_t BgL_tmpz00_11921;
{ /* Ieee/fixnum.scm 1814 */
 obj_t BgL_aux3163z00_7275;
BgL_aux3163z00_7275 = 
CAR(BgL_pairz00_3054); 
if(
ELONGP(BgL_aux3163z00_7275))
{ /* Ieee/fixnum.scm 1814 */
BgL_tmpz00_11921 = BgL_aux3163z00_7275
; }  else 
{ 
 obj_t BgL_auxz00_11925;
BgL_auxz00_11925 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88112L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3163z00_7275); 
FAILURE(BgL_auxz00_11925,BFALSE,BFALSE);} } 
BgL_n1z00_3055 = 
BELONG_TO_LONG(BgL_tmpz00_11921); } } 
{ /* Ieee/fixnum.scm 1814 */
 obj_t BgL_tmpz00_11930;
if(
ELONGP(BgL_yz00_1025))
{ /* Ieee/fixnum.scm 1814 */
BgL_tmpz00_11930 = BgL_yz00_1025
; }  else 
{ 
 obj_t BgL_auxz00_11933;
BgL_auxz00_11933 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88112L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1025); 
FAILURE(BgL_auxz00_11933,BFALSE,BFALSE);} 
BgL_n2z00_3056 = 
BELONG_TO_LONG(BgL_tmpz00_11930); } 
BgL_test6106z00_11914 = 
(BgL_n1z00_3055<BgL_n2z00_3056); } 
if(BgL_test6106z00_11914)
{ 
 obj_t BgL_xsz00_11947; obj_t BgL_yz00_11939;
{ /* Ieee/fixnum.scm 1814 */
 obj_t BgL_pairz00_3057;
if(
PAIRP(BgL_xsz00_1026))
{ /* Ieee/fixnum.scm 1814 */
BgL_pairz00_3057 = BgL_xsz00_1026; }  else 
{ 
 obj_t BgL_auxz00_11942;
BgL_auxz00_11942 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88112L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1026); 
FAILURE(BgL_auxz00_11942,BFALSE,BFALSE);} 
BgL_yz00_11939 = 
CAR(BgL_pairz00_3057); } 
{ /* Ieee/fixnum.scm 1814 */
 obj_t BgL_pairz00_3058;
if(
PAIRP(BgL_xsz00_1026))
{ /* Ieee/fixnum.scm 1814 */
BgL_pairz00_3058 = BgL_xsz00_1026; }  else 
{ 
 obj_t BgL_auxz00_11950;
BgL_auxz00_11950 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88112L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1026); 
FAILURE(BgL_auxz00_11950,BFALSE,BFALSE);} 
BgL_xsz00_11947 = 
CDR(BgL_pairz00_3058); } 
BgL_xsz00_1026 = BgL_xsz00_11947; 
BgL_yz00_1025 = BgL_yz00_11939; 
goto BgL_zc3z04anonymousza31371ze3z87_1027;}  else 
{ 
 obj_t BgL_xsz00_11955;
{ /* Ieee/fixnum.scm 1814 */
 obj_t BgL_pairz00_3059;
if(
PAIRP(BgL_xsz00_1026))
{ /* Ieee/fixnum.scm 1814 */
BgL_pairz00_3059 = BgL_xsz00_1026; }  else 
{ 
 obj_t BgL_auxz00_11958;
BgL_auxz00_11958 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88112L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1026); 
FAILURE(BgL_auxz00_11958,BFALSE,BFALSE);} 
BgL_xsz00_11955 = 
CDR(BgL_pairz00_3059); } 
BgL_xsz00_1026 = BgL_xsz00_11955; 
goto BgL_zc3z04anonymousza31371ze3z87_1027;} } 
if(
ELONGP(BgL_aux3173z00_7285))
{ /* Ieee/fixnum.scm 1814 */
BgL_tmpz00_11911 = BgL_aux3173z00_7285
; }  else 
{ 
 obj_t BgL_auxz00_11966;
BgL_auxz00_11966 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88112L), BGl_string4740z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3173z00_7285); 
FAILURE(BgL_auxz00_11966,BFALSE,BFALSE);} } 
return 
BELONG_TO_LONG(BgL_tmpz00_11911);} } } 

}



/* &minelong */
obj_t BGl_z62minelongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6333, obj_t BgL_n1z00_6334, obj_t BgL_nnz00_6335)
{
{ /* Ieee/fixnum.scm 1814 */
{ /* Ieee/fixnum.scm 1814 */
 long BgL_tmpz00_11971;
{ /* Ieee/fixnum.scm 1814 */
 long BgL_auxz00_11972;
{ /* Ieee/fixnum.scm 1814 */
 obj_t BgL_tmpz00_11973;
if(
ELONGP(BgL_n1z00_6334))
{ /* Ieee/fixnum.scm 1814 */
BgL_tmpz00_11973 = BgL_n1z00_6334
; }  else 
{ 
 obj_t BgL_auxz00_11976;
BgL_auxz00_11976 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88112L), BGl_string4741z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6334); 
FAILURE(BgL_auxz00_11976,BFALSE,BFALSE);} 
BgL_auxz00_11972 = 
BELONG_TO_LONG(BgL_tmpz00_11973); } 
BgL_tmpz00_11971 = 
BGl_minelongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_11972, BgL_nnz00_6335); } 
return 
make_belong(BgL_tmpz00_11971);} } 

}



/* minllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_minllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_n1z00_260, obj_t BgL_nnz00_261)
{
{ /* Ieee/fixnum.scm 1815 */
{ 
 obj_t BgL_yz00_1037; obj_t BgL_xsz00_1038;
{ /* Ieee/fixnum.scm 1815 */
 obj_t BgL_tmpz00_11983;
{ /* Ieee/fixnum.scm 1815 */
 obj_t BgL_aux3189z00_7301;
BgL_yz00_1037 = 
make_bllong(BgL_n1z00_260); 
BgL_xsz00_1038 = BgL_nnz00_261; 
BgL_zc3z04anonymousza31380ze3z87_1039:
if(
NULLP(BgL_xsz00_1038))
{ /* Ieee/fixnum.scm 1815 */
BgL_aux3189z00_7301 = BgL_yz00_1037; }  else 
{ /* Ieee/fixnum.scm 1815 */
 bool_t BgL_test6116z00_11986;
{ /* Ieee/fixnum.scm 1815 */
 BGL_LONGLONG_T BgL_n1z00_3061; BGL_LONGLONG_T BgL_n2z00_3062;
{ /* Ieee/fixnum.scm 1815 */
 obj_t BgL_pairz00_3060;
if(
PAIRP(BgL_xsz00_1038))
{ /* Ieee/fixnum.scm 1815 */
BgL_pairz00_3060 = BgL_xsz00_1038; }  else 
{ 
 obj_t BgL_auxz00_11989;
BgL_auxz00_11989 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88165L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1038); 
FAILURE(BgL_auxz00_11989,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1815 */
 obj_t BgL_tmpz00_11993;
{ /* Ieee/fixnum.scm 1815 */
 obj_t BgL_aux3179z00_7291;
BgL_aux3179z00_7291 = 
CAR(BgL_pairz00_3060); 
if(
LLONGP(BgL_aux3179z00_7291))
{ /* Ieee/fixnum.scm 1815 */
BgL_tmpz00_11993 = BgL_aux3179z00_7291
; }  else 
{ 
 obj_t BgL_auxz00_11997;
BgL_auxz00_11997 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88165L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3179z00_7291); 
FAILURE(BgL_auxz00_11997,BFALSE,BFALSE);} } 
BgL_n1z00_3061 = 
BLLONG_TO_LLONG(BgL_tmpz00_11993); } } 
{ /* Ieee/fixnum.scm 1815 */
 obj_t BgL_tmpz00_12002;
if(
LLONGP(BgL_yz00_1037))
{ /* Ieee/fixnum.scm 1815 */
BgL_tmpz00_12002 = BgL_yz00_1037
; }  else 
{ 
 obj_t BgL_auxz00_12005;
BgL_auxz00_12005 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88165L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1037); 
FAILURE(BgL_auxz00_12005,BFALSE,BFALSE);} 
BgL_n2z00_3062 = 
BLLONG_TO_LLONG(BgL_tmpz00_12002); } 
BgL_test6116z00_11986 = 
(BgL_n1z00_3061<BgL_n2z00_3062); } 
if(BgL_test6116z00_11986)
{ 
 obj_t BgL_xsz00_12019; obj_t BgL_yz00_12011;
{ /* Ieee/fixnum.scm 1815 */
 obj_t BgL_pairz00_3063;
if(
PAIRP(BgL_xsz00_1038))
{ /* Ieee/fixnum.scm 1815 */
BgL_pairz00_3063 = BgL_xsz00_1038; }  else 
{ 
 obj_t BgL_auxz00_12014;
BgL_auxz00_12014 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88165L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1038); 
FAILURE(BgL_auxz00_12014,BFALSE,BFALSE);} 
BgL_yz00_12011 = 
CAR(BgL_pairz00_3063); } 
{ /* Ieee/fixnum.scm 1815 */
 obj_t BgL_pairz00_3064;
if(
PAIRP(BgL_xsz00_1038))
{ /* Ieee/fixnum.scm 1815 */
BgL_pairz00_3064 = BgL_xsz00_1038; }  else 
{ 
 obj_t BgL_auxz00_12022;
BgL_auxz00_12022 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88165L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1038); 
FAILURE(BgL_auxz00_12022,BFALSE,BFALSE);} 
BgL_xsz00_12019 = 
CDR(BgL_pairz00_3064); } 
BgL_xsz00_1038 = BgL_xsz00_12019; 
BgL_yz00_1037 = BgL_yz00_12011; 
goto BgL_zc3z04anonymousza31380ze3z87_1039;}  else 
{ 
 obj_t BgL_xsz00_12027;
{ /* Ieee/fixnum.scm 1815 */
 obj_t BgL_pairz00_3065;
if(
PAIRP(BgL_xsz00_1038))
{ /* Ieee/fixnum.scm 1815 */
BgL_pairz00_3065 = BgL_xsz00_1038; }  else 
{ 
 obj_t BgL_auxz00_12030;
BgL_auxz00_12030 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88165L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1038); 
FAILURE(BgL_auxz00_12030,BFALSE,BFALSE);} 
BgL_xsz00_12027 = 
CDR(BgL_pairz00_3065); } 
BgL_xsz00_1038 = BgL_xsz00_12027; 
goto BgL_zc3z04anonymousza31380ze3z87_1039;} } 
if(
LLONGP(BgL_aux3189z00_7301))
{ /* Ieee/fixnum.scm 1815 */
BgL_tmpz00_11983 = BgL_aux3189z00_7301
; }  else 
{ 
 obj_t BgL_auxz00_12038;
BgL_auxz00_12038 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88165L), BGl_string4742z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3189z00_7301); 
FAILURE(BgL_auxz00_12038,BFALSE,BFALSE);} } 
return 
BLLONG_TO_LLONG(BgL_tmpz00_11983);} } } 

}



/* &minllong */
obj_t BGl_z62minllongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6336, obj_t BgL_n1z00_6337, obj_t BgL_nnz00_6338)
{
{ /* Ieee/fixnum.scm 1815 */
{ /* Ieee/fixnum.scm 1815 */
 BGL_LONGLONG_T BgL_tmpz00_12043;
{ /* Ieee/fixnum.scm 1815 */
 BGL_LONGLONG_T BgL_auxz00_12044;
{ /* Ieee/fixnum.scm 1815 */
 obj_t BgL_tmpz00_12045;
if(
LLONGP(BgL_n1z00_6337))
{ /* Ieee/fixnum.scm 1815 */
BgL_tmpz00_12045 = BgL_n1z00_6337
; }  else 
{ 
 obj_t BgL_auxz00_12048;
BgL_auxz00_12048 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88165L), BGl_string4743z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6337); 
FAILURE(BgL_auxz00_12048,BFALSE,BFALSE);} 
BgL_auxz00_12044 = 
BLLONG_TO_LLONG(BgL_tmpz00_12045); } 
BgL_tmpz00_12043 = 
BGl_minllongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12044, BgL_nnz00_6338); } 
return 
make_bllong(BgL_tmpz00_12043);} } 

}



/* mins8 */
BGL_EXPORTED_DEF int8_t BGl_mins8z00zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_262, obj_t BgL_nnz00_263)
{
{ /* Ieee/fixnum.scm 1817 */
{ 
 obj_t BgL_yz00_1049; obj_t BgL_xsz00_1050;
{ /* Ieee/fixnum.scm 1817 */
 obj_t BgL_tmpz00_12055;
{ /* Ieee/fixnum.scm 1817 */
 obj_t BgL_aux3205z00_7317;
BgL_yz00_1049 = 
BGL_INT8_TO_BINT8(BgL_n1z00_262); 
BgL_xsz00_1050 = BgL_nnz00_263; 
BgL_zc3z04anonymousza31388ze3z87_1051:
if(
NULLP(BgL_xsz00_1050))
{ /* Ieee/fixnum.scm 1817 */
BgL_aux3205z00_7317 = BgL_yz00_1049; }  else 
{ /* Ieee/fixnum.scm 1817 */
 bool_t BgL_test6126z00_12058;
{ /* Ieee/fixnum.scm 1817 */
 int8_t BgL_n1z00_3067; int8_t BgL_n2z00_3068;
{ /* Ieee/fixnum.scm 1817 */
 obj_t BgL_pairz00_3066;
if(
PAIRP(BgL_xsz00_1050))
{ /* Ieee/fixnum.scm 1817 */
BgL_pairz00_3066 = BgL_xsz00_1050; }  else 
{ 
 obj_t BgL_auxz00_12061;
BgL_auxz00_12061 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88216L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1050); 
FAILURE(BgL_auxz00_12061,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1817 */
 obj_t BgL_tmpz00_12065;
{ /* Ieee/fixnum.scm 1817 */
 obj_t BgL_aux3195z00_7307;
BgL_aux3195z00_7307 = 
CAR(BgL_pairz00_3066); 
if(
BGL_INT8P(BgL_aux3195z00_7307))
{ /* Ieee/fixnum.scm 1817 */
BgL_tmpz00_12065 = BgL_aux3195z00_7307
; }  else 
{ 
 obj_t BgL_auxz00_12069;
BgL_auxz00_12069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88216L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3195z00_7307); 
FAILURE(BgL_auxz00_12069,BFALSE,BFALSE);} } 
BgL_n1z00_3067 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_12065); } } 
{ /* Ieee/fixnum.scm 1817 */
 obj_t BgL_tmpz00_12074;
if(
BGL_INT8P(BgL_yz00_1049))
{ /* Ieee/fixnum.scm 1817 */
BgL_tmpz00_12074 = BgL_yz00_1049
; }  else 
{ 
 obj_t BgL_auxz00_12077;
BgL_auxz00_12077 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88216L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1049); 
FAILURE(BgL_auxz00_12077,BFALSE,BFALSE);} 
BgL_n2z00_3068 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_12074); } 
BgL_test6126z00_12058 = 
(BgL_n1z00_3067<BgL_n2z00_3068); } 
if(BgL_test6126z00_12058)
{ 
 obj_t BgL_xsz00_12091; obj_t BgL_yz00_12083;
{ /* Ieee/fixnum.scm 1817 */
 obj_t BgL_pairz00_3069;
if(
PAIRP(BgL_xsz00_1050))
{ /* Ieee/fixnum.scm 1817 */
BgL_pairz00_3069 = BgL_xsz00_1050; }  else 
{ 
 obj_t BgL_auxz00_12086;
BgL_auxz00_12086 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88216L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1050); 
FAILURE(BgL_auxz00_12086,BFALSE,BFALSE);} 
BgL_yz00_12083 = 
CAR(BgL_pairz00_3069); } 
{ /* Ieee/fixnum.scm 1817 */
 obj_t BgL_pairz00_3070;
if(
PAIRP(BgL_xsz00_1050))
{ /* Ieee/fixnum.scm 1817 */
BgL_pairz00_3070 = BgL_xsz00_1050; }  else 
{ 
 obj_t BgL_auxz00_12094;
BgL_auxz00_12094 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88216L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1050); 
FAILURE(BgL_auxz00_12094,BFALSE,BFALSE);} 
BgL_xsz00_12091 = 
CDR(BgL_pairz00_3070); } 
BgL_xsz00_1050 = BgL_xsz00_12091; 
BgL_yz00_1049 = BgL_yz00_12083; 
goto BgL_zc3z04anonymousza31388ze3z87_1051;}  else 
{ 
 obj_t BgL_xsz00_12099;
{ /* Ieee/fixnum.scm 1817 */
 obj_t BgL_pairz00_3071;
if(
PAIRP(BgL_xsz00_1050))
{ /* Ieee/fixnum.scm 1817 */
BgL_pairz00_3071 = BgL_xsz00_1050; }  else 
{ 
 obj_t BgL_auxz00_12102;
BgL_auxz00_12102 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88216L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1050); 
FAILURE(BgL_auxz00_12102,BFALSE,BFALSE);} 
BgL_xsz00_12099 = 
CDR(BgL_pairz00_3071); } 
BgL_xsz00_1050 = BgL_xsz00_12099; 
goto BgL_zc3z04anonymousza31388ze3z87_1051;} } 
if(
BGL_INT8P(BgL_aux3205z00_7317))
{ /* Ieee/fixnum.scm 1817 */
BgL_tmpz00_12055 = BgL_aux3205z00_7317
; }  else 
{ 
 obj_t BgL_auxz00_12110;
BgL_auxz00_12110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88216L), BGl_string4744z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3205z00_7317); 
FAILURE(BgL_auxz00_12110,BFALSE,BFALSE);} } 
return 
BGL_BINT8_TO_INT8(BgL_tmpz00_12055);} } } 

}



/* &mins8 */
obj_t BGl_z62mins8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6339, obj_t BgL_n1z00_6340, obj_t BgL_nnz00_6341)
{
{ /* Ieee/fixnum.scm 1817 */
{ /* Ieee/fixnum.scm 1817 */
 int8_t BgL_tmpz00_12115;
{ /* Ieee/fixnum.scm 1817 */
 int8_t BgL_auxz00_12116;
{ /* Ieee/fixnum.scm 1817 */
 obj_t BgL_tmpz00_12117;
if(
BGL_INT8P(BgL_n1z00_6340))
{ /* Ieee/fixnum.scm 1817 */
BgL_tmpz00_12117 = BgL_n1z00_6340
; }  else 
{ 
 obj_t BgL_auxz00_12120;
BgL_auxz00_12120 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88216L), BGl_string4745z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6340); 
FAILURE(BgL_auxz00_12120,BFALSE,BFALSE);} 
BgL_auxz00_12116 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_12117); } 
BgL_tmpz00_12115 = 
BGl_mins8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12116, BgL_nnz00_6341); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_12115);} } 

}



/* minu8 */
BGL_EXPORTED_DEF uint8_t BGl_minu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_264, obj_t BgL_nnz00_265)
{
{ /* Ieee/fixnum.scm 1818 */
{ 
 obj_t BgL_yz00_1061; obj_t BgL_xsz00_1062;
{ /* Ieee/fixnum.scm 1818 */
 obj_t BgL_tmpz00_12127;
{ /* Ieee/fixnum.scm 1818 */
 obj_t BgL_aux3221z00_7333;
BgL_yz00_1061 = 
BGL_UINT8_TO_BUINT8(BgL_n1z00_264); 
BgL_xsz00_1062 = BgL_nnz00_265; 
BgL_zc3z04anonymousza31397ze3z87_1063:
if(
NULLP(BgL_xsz00_1062))
{ /* Ieee/fixnum.scm 1818 */
BgL_aux3221z00_7333 = BgL_yz00_1061; }  else 
{ /* Ieee/fixnum.scm 1818 */
 bool_t BgL_test6136z00_12130;
{ /* Ieee/fixnum.scm 1818 */
 uint8_t BgL_n1z00_3073; uint8_t BgL_n2z00_3074;
{ /* Ieee/fixnum.scm 1818 */
 obj_t BgL_pairz00_3072;
if(
PAIRP(BgL_xsz00_1062))
{ /* Ieee/fixnum.scm 1818 */
BgL_pairz00_3072 = BgL_xsz00_1062; }  else 
{ 
 obj_t BgL_auxz00_12133;
BgL_auxz00_12133 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88263L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1062); 
FAILURE(BgL_auxz00_12133,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1818 */
 obj_t BgL_tmpz00_12137;
{ /* Ieee/fixnum.scm 1818 */
 obj_t BgL_aux3211z00_7323;
BgL_aux3211z00_7323 = 
CAR(BgL_pairz00_3072); 
if(
BGL_UINT8P(BgL_aux3211z00_7323))
{ /* Ieee/fixnum.scm 1818 */
BgL_tmpz00_12137 = BgL_aux3211z00_7323
; }  else 
{ 
 obj_t BgL_auxz00_12141;
BgL_auxz00_12141 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88263L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3211z00_7323); 
FAILURE(BgL_auxz00_12141,BFALSE,BFALSE);} } 
BgL_n1z00_3073 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_12137); } } 
{ /* Ieee/fixnum.scm 1818 */
 obj_t BgL_tmpz00_12146;
if(
BGL_UINT8P(BgL_yz00_1061))
{ /* Ieee/fixnum.scm 1818 */
BgL_tmpz00_12146 = BgL_yz00_1061
; }  else 
{ 
 obj_t BgL_auxz00_12149;
BgL_auxz00_12149 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88263L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1061); 
FAILURE(BgL_auxz00_12149,BFALSE,BFALSE);} 
BgL_n2z00_3074 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_12146); } 
BgL_test6136z00_12130 = 
(BgL_n1z00_3073<BgL_n2z00_3074); } 
if(BgL_test6136z00_12130)
{ 
 obj_t BgL_xsz00_12163; obj_t BgL_yz00_12155;
{ /* Ieee/fixnum.scm 1818 */
 obj_t BgL_pairz00_3075;
if(
PAIRP(BgL_xsz00_1062))
{ /* Ieee/fixnum.scm 1818 */
BgL_pairz00_3075 = BgL_xsz00_1062; }  else 
{ 
 obj_t BgL_auxz00_12158;
BgL_auxz00_12158 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88263L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1062); 
FAILURE(BgL_auxz00_12158,BFALSE,BFALSE);} 
BgL_yz00_12155 = 
CAR(BgL_pairz00_3075); } 
{ /* Ieee/fixnum.scm 1818 */
 obj_t BgL_pairz00_3076;
if(
PAIRP(BgL_xsz00_1062))
{ /* Ieee/fixnum.scm 1818 */
BgL_pairz00_3076 = BgL_xsz00_1062; }  else 
{ 
 obj_t BgL_auxz00_12166;
BgL_auxz00_12166 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88263L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1062); 
FAILURE(BgL_auxz00_12166,BFALSE,BFALSE);} 
BgL_xsz00_12163 = 
CDR(BgL_pairz00_3076); } 
BgL_xsz00_1062 = BgL_xsz00_12163; 
BgL_yz00_1061 = BgL_yz00_12155; 
goto BgL_zc3z04anonymousza31397ze3z87_1063;}  else 
{ 
 obj_t BgL_xsz00_12171;
{ /* Ieee/fixnum.scm 1818 */
 obj_t BgL_pairz00_3077;
if(
PAIRP(BgL_xsz00_1062))
{ /* Ieee/fixnum.scm 1818 */
BgL_pairz00_3077 = BgL_xsz00_1062; }  else 
{ 
 obj_t BgL_auxz00_12174;
BgL_auxz00_12174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88263L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1062); 
FAILURE(BgL_auxz00_12174,BFALSE,BFALSE);} 
BgL_xsz00_12171 = 
CDR(BgL_pairz00_3077); } 
BgL_xsz00_1062 = BgL_xsz00_12171; 
goto BgL_zc3z04anonymousza31397ze3z87_1063;} } 
if(
BGL_UINT8P(BgL_aux3221z00_7333))
{ /* Ieee/fixnum.scm 1818 */
BgL_tmpz00_12127 = BgL_aux3221z00_7333
; }  else 
{ 
 obj_t BgL_auxz00_12182;
BgL_auxz00_12182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88263L), BGl_string4746z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3221z00_7333); 
FAILURE(BgL_auxz00_12182,BFALSE,BFALSE);} } 
return 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_12127);} } } 

}



/* &minu8 */
obj_t BGl_z62minu8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6342, obj_t BgL_n1z00_6343, obj_t BgL_nnz00_6344)
{
{ /* Ieee/fixnum.scm 1818 */
{ /* Ieee/fixnum.scm 1818 */
 uint8_t BgL_tmpz00_12187;
{ /* Ieee/fixnum.scm 1818 */
 uint8_t BgL_auxz00_12188;
{ /* Ieee/fixnum.scm 1818 */
 obj_t BgL_tmpz00_12189;
if(
BGL_UINT8P(BgL_n1z00_6343))
{ /* Ieee/fixnum.scm 1818 */
BgL_tmpz00_12189 = BgL_n1z00_6343
; }  else 
{ 
 obj_t BgL_auxz00_12192;
BgL_auxz00_12192 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88263L), BGl_string4747z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6343); 
FAILURE(BgL_auxz00_12192,BFALSE,BFALSE);} 
BgL_auxz00_12188 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_12189); } 
BgL_tmpz00_12187 = 
BGl_minu8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12188, BgL_nnz00_6344); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_12187);} } 

}



/* mins16 */
BGL_EXPORTED_DEF int16_t BGl_mins16z00zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_266, obj_t BgL_nnz00_267)
{
{ /* Ieee/fixnum.scm 1820 */
{ 
 obj_t BgL_yz00_1073; obj_t BgL_xsz00_1074;
{ /* Ieee/fixnum.scm 1820 */
 obj_t BgL_tmpz00_12199;
{ /* Ieee/fixnum.scm 1820 */
 obj_t BgL_aux3237z00_7349;
BgL_yz00_1073 = 
BGL_INT16_TO_BINT16(BgL_n1z00_266); 
BgL_xsz00_1074 = BgL_nnz00_267; 
BgL_zc3z04anonymousza31406ze3z87_1075:
if(
NULLP(BgL_xsz00_1074))
{ /* Ieee/fixnum.scm 1820 */
BgL_aux3237z00_7349 = BgL_yz00_1073; }  else 
{ /* Ieee/fixnum.scm 1820 */
 bool_t BgL_test6146z00_12202;
{ /* Ieee/fixnum.scm 1820 */
 int16_t BgL_n1z00_3079; int16_t BgL_n2z00_3080;
{ /* Ieee/fixnum.scm 1820 */
 obj_t BgL_pairz00_3078;
if(
PAIRP(BgL_xsz00_1074))
{ /* Ieee/fixnum.scm 1820 */
BgL_pairz00_3078 = BgL_xsz00_1074; }  else 
{ 
 obj_t BgL_auxz00_12205;
BgL_auxz00_12205 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88315L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1074); 
FAILURE(BgL_auxz00_12205,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1820 */
 obj_t BgL_tmpz00_12209;
{ /* Ieee/fixnum.scm 1820 */
 obj_t BgL_aux3227z00_7339;
BgL_aux3227z00_7339 = 
CAR(BgL_pairz00_3078); 
if(
BGL_INT16P(BgL_aux3227z00_7339))
{ /* Ieee/fixnum.scm 1820 */
BgL_tmpz00_12209 = BgL_aux3227z00_7339
; }  else 
{ 
 obj_t BgL_auxz00_12213;
BgL_auxz00_12213 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88315L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3227z00_7339); 
FAILURE(BgL_auxz00_12213,BFALSE,BFALSE);} } 
BgL_n1z00_3079 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_12209); } } 
{ /* Ieee/fixnum.scm 1820 */
 obj_t BgL_tmpz00_12218;
if(
BGL_INT16P(BgL_yz00_1073))
{ /* Ieee/fixnum.scm 1820 */
BgL_tmpz00_12218 = BgL_yz00_1073
; }  else 
{ 
 obj_t BgL_auxz00_12221;
BgL_auxz00_12221 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88315L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1073); 
FAILURE(BgL_auxz00_12221,BFALSE,BFALSE);} 
BgL_n2z00_3080 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_12218); } 
BgL_test6146z00_12202 = 
(BgL_n1z00_3079<BgL_n2z00_3080); } 
if(BgL_test6146z00_12202)
{ 
 obj_t BgL_xsz00_12235; obj_t BgL_yz00_12227;
{ /* Ieee/fixnum.scm 1820 */
 obj_t BgL_pairz00_3081;
if(
PAIRP(BgL_xsz00_1074))
{ /* Ieee/fixnum.scm 1820 */
BgL_pairz00_3081 = BgL_xsz00_1074; }  else 
{ 
 obj_t BgL_auxz00_12230;
BgL_auxz00_12230 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88315L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1074); 
FAILURE(BgL_auxz00_12230,BFALSE,BFALSE);} 
BgL_yz00_12227 = 
CAR(BgL_pairz00_3081); } 
{ /* Ieee/fixnum.scm 1820 */
 obj_t BgL_pairz00_3082;
if(
PAIRP(BgL_xsz00_1074))
{ /* Ieee/fixnum.scm 1820 */
BgL_pairz00_3082 = BgL_xsz00_1074; }  else 
{ 
 obj_t BgL_auxz00_12238;
BgL_auxz00_12238 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88315L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1074); 
FAILURE(BgL_auxz00_12238,BFALSE,BFALSE);} 
BgL_xsz00_12235 = 
CDR(BgL_pairz00_3082); } 
BgL_xsz00_1074 = BgL_xsz00_12235; 
BgL_yz00_1073 = BgL_yz00_12227; 
goto BgL_zc3z04anonymousza31406ze3z87_1075;}  else 
{ 
 obj_t BgL_xsz00_12243;
{ /* Ieee/fixnum.scm 1820 */
 obj_t BgL_pairz00_3083;
if(
PAIRP(BgL_xsz00_1074))
{ /* Ieee/fixnum.scm 1820 */
BgL_pairz00_3083 = BgL_xsz00_1074; }  else 
{ 
 obj_t BgL_auxz00_12246;
BgL_auxz00_12246 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88315L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1074); 
FAILURE(BgL_auxz00_12246,BFALSE,BFALSE);} 
BgL_xsz00_12243 = 
CDR(BgL_pairz00_3083); } 
BgL_xsz00_1074 = BgL_xsz00_12243; 
goto BgL_zc3z04anonymousza31406ze3z87_1075;} } 
if(
BGL_INT16P(BgL_aux3237z00_7349))
{ /* Ieee/fixnum.scm 1820 */
BgL_tmpz00_12199 = BgL_aux3237z00_7349
; }  else 
{ 
 obj_t BgL_auxz00_12254;
BgL_auxz00_12254 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88315L), BGl_string4748z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3237z00_7349); 
FAILURE(BgL_auxz00_12254,BFALSE,BFALSE);} } 
return 
BGL_BINT16_TO_INT16(BgL_tmpz00_12199);} } } 

}



/* &mins16 */
obj_t BGl_z62mins16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6345, obj_t BgL_n1z00_6346, obj_t BgL_nnz00_6347)
{
{ /* Ieee/fixnum.scm 1820 */
{ /* Ieee/fixnum.scm 1820 */
 int16_t BgL_tmpz00_12259;
{ /* Ieee/fixnum.scm 1820 */
 int16_t BgL_auxz00_12260;
{ /* Ieee/fixnum.scm 1820 */
 obj_t BgL_tmpz00_12261;
if(
BGL_INT16P(BgL_n1z00_6346))
{ /* Ieee/fixnum.scm 1820 */
BgL_tmpz00_12261 = BgL_n1z00_6346
; }  else 
{ 
 obj_t BgL_auxz00_12264;
BgL_auxz00_12264 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88315L), BGl_string4749z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6346); 
FAILURE(BgL_auxz00_12264,BFALSE,BFALSE);} 
BgL_auxz00_12260 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_12261); } 
BgL_tmpz00_12259 = 
BGl_mins16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12260, BgL_nnz00_6347); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_12259);} } 

}



/* minu16 */
BGL_EXPORTED_DEF uint16_t BGl_minu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_268, obj_t BgL_nnz00_269)
{
{ /* Ieee/fixnum.scm 1821 */
{ 
 obj_t BgL_yz00_1085; obj_t BgL_xsz00_1086;
{ /* Ieee/fixnum.scm 1821 */
 obj_t BgL_tmpz00_12271;
{ /* Ieee/fixnum.scm 1821 */
 obj_t BgL_aux3253z00_7365;
BgL_yz00_1085 = 
BGL_UINT16_TO_BUINT16(BgL_n1z00_268); 
BgL_xsz00_1086 = BgL_nnz00_269; 
BgL_zc3z04anonymousza31414ze3z87_1087:
if(
NULLP(BgL_xsz00_1086))
{ /* Ieee/fixnum.scm 1821 */
BgL_aux3253z00_7365 = BgL_yz00_1085; }  else 
{ /* Ieee/fixnum.scm 1821 */
 bool_t BgL_test6156z00_12274;
{ /* Ieee/fixnum.scm 1821 */
 uint16_t BgL_n1z00_3085; uint16_t BgL_n2z00_3086;
{ /* Ieee/fixnum.scm 1821 */
 obj_t BgL_pairz00_3084;
if(
PAIRP(BgL_xsz00_1086))
{ /* Ieee/fixnum.scm 1821 */
BgL_pairz00_3084 = BgL_xsz00_1086; }  else 
{ 
 obj_t BgL_auxz00_12277;
BgL_auxz00_12277 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88364L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1086); 
FAILURE(BgL_auxz00_12277,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1821 */
 obj_t BgL_tmpz00_12281;
{ /* Ieee/fixnum.scm 1821 */
 obj_t BgL_aux3243z00_7355;
BgL_aux3243z00_7355 = 
CAR(BgL_pairz00_3084); 
if(
BGL_UINT16P(BgL_aux3243z00_7355))
{ /* Ieee/fixnum.scm 1821 */
BgL_tmpz00_12281 = BgL_aux3243z00_7355
; }  else 
{ 
 obj_t BgL_auxz00_12285;
BgL_auxz00_12285 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88364L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3243z00_7355); 
FAILURE(BgL_auxz00_12285,BFALSE,BFALSE);} } 
BgL_n1z00_3085 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_12281); } } 
{ /* Ieee/fixnum.scm 1821 */
 obj_t BgL_tmpz00_12290;
if(
BGL_UINT16P(BgL_yz00_1085))
{ /* Ieee/fixnum.scm 1821 */
BgL_tmpz00_12290 = BgL_yz00_1085
; }  else 
{ 
 obj_t BgL_auxz00_12293;
BgL_auxz00_12293 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88364L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1085); 
FAILURE(BgL_auxz00_12293,BFALSE,BFALSE);} 
BgL_n2z00_3086 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_12290); } 
BgL_test6156z00_12274 = 
(BgL_n1z00_3085<BgL_n2z00_3086); } 
if(BgL_test6156z00_12274)
{ 
 obj_t BgL_xsz00_12307; obj_t BgL_yz00_12299;
{ /* Ieee/fixnum.scm 1821 */
 obj_t BgL_pairz00_3087;
if(
PAIRP(BgL_xsz00_1086))
{ /* Ieee/fixnum.scm 1821 */
BgL_pairz00_3087 = BgL_xsz00_1086; }  else 
{ 
 obj_t BgL_auxz00_12302;
BgL_auxz00_12302 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88364L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1086); 
FAILURE(BgL_auxz00_12302,BFALSE,BFALSE);} 
BgL_yz00_12299 = 
CAR(BgL_pairz00_3087); } 
{ /* Ieee/fixnum.scm 1821 */
 obj_t BgL_pairz00_3088;
if(
PAIRP(BgL_xsz00_1086))
{ /* Ieee/fixnum.scm 1821 */
BgL_pairz00_3088 = BgL_xsz00_1086; }  else 
{ 
 obj_t BgL_auxz00_12310;
BgL_auxz00_12310 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88364L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1086); 
FAILURE(BgL_auxz00_12310,BFALSE,BFALSE);} 
BgL_xsz00_12307 = 
CDR(BgL_pairz00_3088); } 
BgL_xsz00_1086 = BgL_xsz00_12307; 
BgL_yz00_1085 = BgL_yz00_12299; 
goto BgL_zc3z04anonymousza31414ze3z87_1087;}  else 
{ 
 obj_t BgL_xsz00_12315;
{ /* Ieee/fixnum.scm 1821 */
 obj_t BgL_pairz00_3089;
if(
PAIRP(BgL_xsz00_1086))
{ /* Ieee/fixnum.scm 1821 */
BgL_pairz00_3089 = BgL_xsz00_1086; }  else 
{ 
 obj_t BgL_auxz00_12318;
BgL_auxz00_12318 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88364L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1086); 
FAILURE(BgL_auxz00_12318,BFALSE,BFALSE);} 
BgL_xsz00_12315 = 
CDR(BgL_pairz00_3089); } 
BgL_xsz00_1086 = BgL_xsz00_12315; 
goto BgL_zc3z04anonymousza31414ze3z87_1087;} } 
if(
BGL_UINT16P(BgL_aux3253z00_7365))
{ /* Ieee/fixnum.scm 1821 */
BgL_tmpz00_12271 = BgL_aux3253z00_7365
; }  else 
{ 
 obj_t BgL_auxz00_12326;
BgL_auxz00_12326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88364L), BGl_string4750z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3253z00_7365); 
FAILURE(BgL_auxz00_12326,BFALSE,BFALSE);} } 
return 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_12271);} } } 

}



/* &minu16 */
obj_t BGl_z62minu16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6348, obj_t BgL_n1z00_6349, obj_t BgL_nnz00_6350)
{
{ /* Ieee/fixnum.scm 1821 */
{ /* Ieee/fixnum.scm 1821 */
 uint16_t BgL_tmpz00_12331;
{ /* Ieee/fixnum.scm 1821 */
 uint16_t BgL_auxz00_12332;
{ /* Ieee/fixnum.scm 1821 */
 obj_t BgL_tmpz00_12333;
if(
BGL_UINT16P(BgL_n1z00_6349))
{ /* Ieee/fixnum.scm 1821 */
BgL_tmpz00_12333 = BgL_n1z00_6349
; }  else 
{ 
 obj_t BgL_auxz00_12336;
BgL_auxz00_12336 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88364L), BGl_string4751z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6349); 
FAILURE(BgL_auxz00_12336,BFALSE,BFALSE);} 
BgL_auxz00_12332 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_12333); } 
BgL_tmpz00_12331 = 
BGl_minu16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12332, BgL_nnz00_6350); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_12331);} } 

}



/* mins32 */
BGL_EXPORTED_DEF int32_t BGl_mins32z00zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_270, obj_t BgL_nnz00_271)
{
{ /* Ieee/fixnum.scm 1823 */
{ 
 obj_t BgL_yz00_1097; obj_t BgL_xsz00_1098;
{ /* Ieee/fixnum.scm 1823 */
 obj_t BgL_tmpz00_12343;
{ /* Ieee/fixnum.scm 1823 */
 obj_t BgL_aux3269z00_7381;
BgL_yz00_1097 = 
BGL_INT32_TO_BINT32(BgL_n1z00_270); 
BgL_xsz00_1098 = BgL_nnz00_271; 
BgL_zc3z04anonymousza31422ze3z87_1099:
if(
NULLP(BgL_xsz00_1098))
{ /* Ieee/fixnum.scm 1823 */
BgL_aux3269z00_7381 = BgL_yz00_1097; }  else 
{ /* Ieee/fixnum.scm 1823 */
 bool_t BgL_test6166z00_12346;
{ /* Ieee/fixnum.scm 1823 */
 int32_t BgL_n1z00_3091; int32_t BgL_n2z00_3092;
{ /* Ieee/fixnum.scm 1823 */
 obj_t BgL_pairz00_3090;
if(
PAIRP(BgL_xsz00_1098))
{ /* Ieee/fixnum.scm 1823 */
BgL_pairz00_3090 = BgL_xsz00_1098; }  else 
{ 
 obj_t BgL_auxz00_12349;
BgL_auxz00_12349 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88417L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1098); 
FAILURE(BgL_auxz00_12349,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1823 */
 obj_t BgL_tmpz00_12353;
{ /* Ieee/fixnum.scm 1823 */
 obj_t BgL_aux3259z00_7371;
BgL_aux3259z00_7371 = 
CAR(BgL_pairz00_3090); 
if(
BGL_INT32P(BgL_aux3259z00_7371))
{ /* Ieee/fixnum.scm 1823 */
BgL_tmpz00_12353 = BgL_aux3259z00_7371
; }  else 
{ 
 obj_t BgL_auxz00_12357;
BgL_auxz00_12357 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88417L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3259z00_7371); 
FAILURE(BgL_auxz00_12357,BFALSE,BFALSE);} } 
BgL_n1z00_3091 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_12353); } } 
{ /* Ieee/fixnum.scm 1823 */
 obj_t BgL_tmpz00_12362;
if(
BGL_INT32P(BgL_yz00_1097))
{ /* Ieee/fixnum.scm 1823 */
BgL_tmpz00_12362 = BgL_yz00_1097
; }  else 
{ 
 obj_t BgL_auxz00_12365;
BgL_auxz00_12365 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88417L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1097); 
FAILURE(BgL_auxz00_12365,BFALSE,BFALSE);} 
BgL_n2z00_3092 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_12362); } 
BgL_test6166z00_12346 = 
(BgL_n1z00_3091<BgL_n2z00_3092); } 
if(BgL_test6166z00_12346)
{ 
 obj_t BgL_xsz00_12379; obj_t BgL_yz00_12371;
{ /* Ieee/fixnum.scm 1823 */
 obj_t BgL_pairz00_3093;
if(
PAIRP(BgL_xsz00_1098))
{ /* Ieee/fixnum.scm 1823 */
BgL_pairz00_3093 = BgL_xsz00_1098; }  else 
{ 
 obj_t BgL_auxz00_12374;
BgL_auxz00_12374 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88417L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1098); 
FAILURE(BgL_auxz00_12374,BFALSE,BFALSE);} 
BgL_yz00_12371 = 
CAR(BgL_pairz00_3093); } 
{ /* Ieee/fixnum.scm 1823 */
 obj_t BgL_pairz00_3094;
if(
PAIRP(BgL_xsz00_1098))
{ /* Ieee/fixnum.scm 1823 */
BgL_pairz00_3094 = BgL_xsz00_1098; }  else 
{ 
 obj_t BgL_auxz00_12382;
BgL_auxz00_12382 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88417L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1098); 
FAILURE(BgL_auxz00_12382,BFALSE,BFALSE);} 
BgL_xsz00_12379 = 
CDR(BgL_pairz00_3094); } 
BgL_xsz00_1098 = BgL_xsz00_12379; 
BgL_yz00_1097 = BgL_yz00_12371; 
goto BgL_zc3z04anonymousza31422ze3z87_1099;}  else 
{ 
 obj_t BgL_xsz00_12387;
{ /* Ieee/fixnum.scm 1823 */
 obj_t BgL_pairz00_3095;
if(
PAIRP(BgL_xsz00_1098))
{ /* Ieee/fixnum.scm 1823 */
BgL_pairz00_3095 = BgL_xsz00_1098; }  else 
{ 
 obj_t BgL_auxz00_12390;
BgL_auxz00_12390 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88417L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1098); 
FAILURE(BgL_auxz00_12390,BFALSE,BFALSE);} 
BgL_xsz00_12387 = 
CDR(BgL_pairz00_3095); } 
BgL_xsz00_1098 = BgL_xsz00_12387; 
goto BgL_zc3z04anonymousza31422ze3z87_1099;} } 
if(
BGL_INT32P(BgL_aux3269z00_7381))
{ /* Ieee/fixnum.scm 1823 */
BgL_tmpz00_12343 = BgL_aux3269z00_7381
; }  else 
{ 
 obj_t BgL_auxz00_12398;
BgL_auxz00_12398 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88417L), BGl_string4752z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3269z00_7381); 
FAILURE(BgL_auxz00_12398,BFALSE,BFALSE);} } 
return 
BGL_BINT32_TO_INT32(BgL_tmpz00_12343);} } } 

}



/* &mins32 */
obj_t BGl_z62mins32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6351, obj_t BgL_n1z00_6352, obj_t BgL_nnz00_6353)
{
{ /* Ieee/fixnum.scm 1823 */
{ /* Ieee/fixnum.scm 1823 */
 int32_t BgL_tmpz00_12403;
{ /* Ieee/fixnum.scm 1823 */
 int32_t BgL_auxz00_12404;
{ /* Ieee/fixnum.scm 1823 */
 obj_t BgL_tmpz00_12405;
if(
BGL_INT32P(BgL_n1z00_6352))
{ /* Ieee/fixnum.scm 1823 */
BgL_tmpz00_12405 = BgL_n1z00_6352
; }  else 
{ 
 obj_t BgL_auxz00_12408;
BgL_auxz00_12408 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88417L), BGl_string4753z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6352); 
FAILURE(BgL_auxz00_12408,BFALSE,BFALSE);} 
BgL_auxz00_12404 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_12405); } 
BgL_tmpz00_12403 = 
BGl_mins32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12404, BgL_nnz00_6353); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_12403);} } 

}



/* minu32 */
BGL_EXPORTED_DEF uint32_t BGl_minu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_272, obj_t BgL_nnz00_273)
{
{ /* Ieee/fixnum.scm 1824 */
{ 
 obj_t BgL_yz00_1109; obj_t BgL_xsz00_1110;
{ /* Ieee/fixnum.scm 1824 */
 obj_t BgL_tmpz00_12415;
{ /* Ieee/fixnum.scm 1824 */
 obj_t BgL_aux3285z00_7397;
BgL_yz00_1109 = 
BGL_UINT32_TO_BUINT32(BgL_n1z00_272); 
BgL_xsz00_1110 = BgL_nnz00_273; 
BgL_zc3z04anonymousza31432ze3z87_1111:
if(
NULLP(BgL_xsz00_1110))
{ /* Ieee/fixnum.scm 1824 */
BgL_aux3285z00_7397 = BgL_yz00_1109; }  else 
{ /* Ieee/fixnum.scm 1824 */
 bool_t BgL_test6176z00_12418;
{ /* Ieee/fixnum.scm 1824 */
 uint32_t BgL_n1z00_3097; uint32_t BgL_n2z00_3098;
{ /* Ieee/fixnum.scm 1824 */
 obj_t BgL_pairz00_3096;
if(
PAIRP(BgL_xsz00_1110))
{ /* Ieee/fixnum.scm 1824 */
BgL_pairz00_3096 = BgL_xsz00_1110; }  else 
{ 
 obj_t BgL_auxz00_12421;
BgL_auxz00_12421 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88466L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1110); 
FAILURE(BgL_auxz00_12421,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1824 */
 obj_t BgL_tmpz00_12425;
{ /* Ieee/fixnum.scm 1824 */
 obj_t BgL_aux3275z00_7387;
BgL_aux3275z00_7387 = 
CAR(BgL_pairz00_3096); 
if(
BGL_UINT32P(BgL_aux3275z00_7387))
{ /* Ieee/fixnum.scm 1824 */
BgL_tmpz00_12425 = BgL_aux3275z00_7387
; }  else 
{ 
 obj_t BgL_auxz00_12429;
BgL_auxz00_12429 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88466L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3275z00_7387); 
FAILURE(BgL_auxz00_12429,BFALSE,BFALSE);} } 
BgL_n1z00_3097 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_12425); } } 
{ /* Ieee/fixnum.scm 1824 */
 obj_t BgL_tmpz00_12434;
if(
BGL_UINT32P(BgL_yz00_1109))
{ /* Ieee/fixnum.scm 1824 */
BgL_tmpz00_12434 = BgL_yz00_1109
; }  else 
{ 
 obj_t BgL_auxz00_12437;
BgL_auxz00_12437 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88466L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1109); 
FAILURE(BgL_auxz00_12437,BFALSE,BFALSE);} 
BgL_n2z00_3098 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_12434); } 
BgL_test6176z00_12418 = 
(BgL_n1z00_3097<BgL_n2z00_3098); } 
if(BgL_test6176z00_12418)
{ 
 obj_t BgL_xsz00_12451; obj_t BgL_yz00_12443;
{ /* Ieee/fixnum.scm 1824 */
 obj_t BgL_pairz00_3099;
if(
PAIRP(BgL_xsz00_1110))
{ /* Ieee/fixnum.scm 1824 */
BgL_pairz00_3099 = BgL_xsz00_1110; }  else 
{ 
 obj_t BgL_auxz00_12446;
BgL_auxz00_12446 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88466L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1110); 
FAILURE(BgL_auxz00_12446,BFALSE,BFALSE);} 
BgL_yz00_12443 = 
CAR(BgL_pairz00_3099); } 
{ /* Ieee/fixnum.scm 1824 */
 obj_t BgL_pairz00_3100;
if(
PAIRP(BgL_xsz00_1110))
{ /* Ieee/fixnum.scm 1824 */
BgL_pairz00_3100 = BgL_xsz00_1110; }  else 
{ 
 obj_t BgL_auxz00_12454;
BgL_auxz00_12454 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88466L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1110); 
FAILURE(BgL_auxz00_12454,BFALSE,BFALSE);} 
BgL_xsz00_12451 = 
CDR(BgL_pairz00_3100); } 
BgL_xsz00_1110 = BgL_xsz00_12451; 
BgL_yz00_1109 = BgL_yz00_12443; 
goto BgL_zc3z04anonymousza31432ze3z87_1111;}  else 
{ 
 obj_t BgL_xsz00_12459;
{ /* Ieee/fixnum.scm 1824 */
 obj_t BgL_pairz00_3101;
if(
PAIRP(BgL_xsz00_1110))
{ /* Ieee/fixnum.scm 1824 */
BgL_pairz00_3101 = BgL_xsz00_1110; }  else 
{ 
 obj_t BgL_auxz00_12462;
BgL_auxz00_12462 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88466L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1110); 
FAILURE(BgL_auxz00_12462,BFALSE,BFALSE);} 
BgL_xsz00_12459 = 
CDR(BgL_pairz00_3101); } 
BgL_xsz00_1110 = BgL_xsz00_12459; 
goto BgL_zc3z04anonymousza31432ze3z87_1111;} } 
if(
BGL_UINT32P(BgL_aux3285z00_7397))
{ /* Ieee/fixnum.scm 1824 */
BgL_tmpz00_12415 = BgL_aux3285z00_7397
; }  else 
{ 
 obj_t BgL_auxz00_12470;
BgL_auxz00_12470 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88466L), BGl_string4754z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3285z00_7397); 
FAILURE(BgL_auxz00_12470,BFALSE,BFALSE);} } 
return 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_12415);} } } 

}



/* &minu32 */
obj_t BGl_z62minu32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6354, obj_t BgL_n1z00_6355, obj_t BgL_nnz00_6356)
{
{ /* Ieee/fixnum.scm 1824 */
{ /* Ieee/fixnum.scm 1824 */
 uint32_t BgL_tmpz00_12475;
{ /* Ieee/fixnum.scm 1824 */
 uint32_t BgL_auxz00_12476;
{ /* Ieee/fixnum.scm 1824 */
 obj_t BgL_tmpz00_12477;
if(
BGL_UINT32P(BgL_n1z00_6355))
{ /* Ieee/fixnum.scm 1824 */
BgL_tmpz00_12477 = BgL_n1z00_6355
; }  else 
{ 
 obj_t BgL_auxz00_12480;
BgL_auxz00_12480 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88466L), BGl_string4755z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6355); 
FAILURE(BgL_auxz00_12480,BFALSE,BFALSE);} 
BgL_auxz00_12476 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_12477); } 
BgL_tmpz00_12475 = 
BGl_minu32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12476, BgL_nnz00_6356); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_12475);} } 

}



/* mins64 */
BGL_EXPORTED_DEF int64_t BGl_mins64z00zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_274, obj_t BgL_nnz00_275)
{
{ /* Ieee/fixnum.scm 1826 */
{ 
 obj_t BgL_yz00_1121; obj_t BgL_xsz00_1122;
{ /* Ieee/fixnum.scm 1826 */
 obj_t BgL_tmpz00_12487;
{ /* Ieee/fixnum.scm 1826 */
 obj_t BgL_aux3301z00_7413;
BgL_yz00_1121 = 
BGL_INT64_TO_BINT64(BgL_n1z00_274); 
BgL_xsz00_1122 = BgL_nnz00_275; 
BgL_zc3z04anonymousza31440ze3z87_1123:
if(
NULLP(BgL_xsz00_1122))
{ /* Ieee/fixnum.scm 1826 */
BgL_aux3301z00_7413 = BgL_yz00_1121; }  else 
{ /* Ieee/fixnum.scm 1826 */
 bool_t BgL_test6186z00_12490;
{ /* Ieee/fixnum.scm 1826 */
 int64_t BgL_n1z00_3103; int64_t BgL_n2z00_3104;
{ /* Ieee/fixnum.scm 1826 */
 obj_t BgL_pairz00_3102;
if(
PAIRP(BgL_xsz00_1122))
{ /* Ieee/fixnum.scm 1826 */
BgL_pairz00_3102 = BgL_xsz00_1122; }  else 
{ 
 obj_t BgL_auxz00_12493;
BgL_auxz00_12493 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88519L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1122); 
FAILURE(BgL_auxz00_12493,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1826 */
 obj_t BgL_tmpz00_12497;
{ /* Ieee/fixnum.scm 1826 */
 obj_t BgL_aux3291z00_7403;
BgL_aux3291z00_7403 = 
CAR(BgL_pairz00_3102); 
if(
BGL_INT64P(BgL_aux3291z00_7403))
{ /* Ieee/fixnum.scm 1826 */
BgL_tmpz00_12497 = BgL_aux3291z00_7403
; }  else 
{ 
 obj_t BgL_auxz00_12501;
BgL_auxz00_12501 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88519L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3291z00_7403); 
FAILURE(BgL_auxz00_12501,BFALSE,BFALSE);} } 
BgL_n1z00_3103 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_12497); } } 
{ /* Ieee/fixnum.scm 1826 */
 obj_t BgL_tmpz00_12506;
if(
BGL_INT64P(BgL_yz00_1121))
{ /* Ieee/fixnum.scm 1826 */
BgL_tmpz00_12506 = BgL_yz00_1121
; }  else 
{ 
 obj_t BgL_auxz00_12509;
BgL_auxz00_12509 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88519L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1121); 
FAILURE(BgL_auxz00_12509,BFALSE,BFALSE);} 
BgL_n2z00_3104 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_12506); } 
BgL_test6186z00_12490 = 
(BgL_n1z00_3103<BgL_n2z00_3104); } 
if(BgL_test6186z00_12490)
{ 
 obj_t BgL_xsz00_12523; obj_t BgL_yz00_12515;
{ /* Ieee/fixnum.scm 1826 */
 obj_t BgL_pairz00_3105;
if(
PAIRP(BgL_xsz00_1122))
{ /* Ieee/fixnum.scm 1826 */
BgL_pairz00_3105 = BgL_xsz00_1122; }  else 
{ 
 obj_t BgL_auxz00_12518;
BgL_auxz00_12518 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88519L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1122); 
FAILURE(BgL_auxz00_12518,BFALSE,BFALSE);} 
BgL_yz00_12515 = 
CAR(BgL_pairz00_3105); } 
{ /* Ieee/fixnum.scm 1826 */
 obj_t BgL_pairz00_3106;
if(
PAIRP(BgL_xsz00_1122))
{ /* Ieee/fixnum.scm 1826 */
BgL_pairz00_3106 = BgL_xsz00_1122; }  else 
{ 
 obj_t BgL_auxz00_12526;
BgL_auxz00_12526 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88519L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1122); 
FAILURE(BgL_auxz00_12526,BFALSE,BFALSE);} 
BgL_xsz00_12523 = 
CDR(BgL_pairz00_3106); } 
BgL_xsz00_1122 = BgL_xsz00_12523; 
BgL_yz00_1121 = BgL_yz00_12515; 
goto BgL_zc3z04anonymousza31440ze3z87_1123;}  else 
{ 
 obj_t BgL_xsz00_12531;
{ /* Ieee/fixnum.scm 1826 */
 obj_t BgL_pairz00_3107;
if(
PAIRP(BgL_xsz00_1122))
{ /* Ieee/fixnum.scm 1826 */
BgL_pairz00_3107 = BgL_xsz00_1122; }  else 
{ 
 obj_t BgL_auxz00_12534;
BgL_auxz00_12534 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88519L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1122); 
FAILURE(BgL_auxz00_12534,BFALSE,BFALSE);} 
BgL_xsz00_12531 = 
CDR(BgL_pairz00_3107); } 
BgL_xsz00_1122 = BgL_xsz00_12531; 
goto BgL_zc3z04anonymousza31440ze3z87_1123;} } 
if(
BGL_INT64P(BgL_aux3301z00_7413))
{ /* Ieee/fixnum.scm 1826 */
BgL_tmpz00_12487 = BgL_aux3301z00_7413
; }  else 
{ 
 obj_t BgL_auxz00_12542;
BgL_auxz00_12542 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88519L), BGl_string4756z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3301z00_7413); 
FAILURE(BgL_auxz00_12542,BFALSE,BFALSE);} } 
return 
BGL_BINT64_TO_INT64(BgL_tmpz00_12487);} } } 

}



/* &mins64 */
obj_t BGl_z62mins64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6357, obj_t BgL_n1z00_6358, obj_t BgL_nnz00_6359)
{
{ /* Ieee/fixnum.scm 1826 */
{ /* Ieee/fixnum.scm 1826 */
 int64_t BgL_tmpz00_12547;
{ /* Ieee/fixnum.scm 1826 */
 int64_t BgL_auxz00_12548;
{ /* Ieee/fixnum.scm 1826 */
 obj_t BgL_tmpz00_12549;
if(
BGL_INT64P(BgL_n1z00_6358))
{ /* Ieee/fixnum.scm 1826 */
BgL_tmpz00_12549 = BgL_n1z00_6358
; }  else 
{ 
 obj_t BgL_auxz00_12552;
BgL_auxz00_12552 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88519L), BGl_string4757z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6358); 
FAILURE(BgL_auxz00_12552,BFALSE,BFALSE);} 
BgL_auxz00_12548 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_12549); } 
BgL_tmpz00_12547 = 
BGl_mins64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12548, BgL_nnz00_6359); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_12547);} } 

}



/* minu64 */
BGL_EXPORTED_DEF uint64_t BGl_minu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_276, obj_t BgL_nnz00_277)
{
{ /* Ieee/fixnum.scm 1827 */
{ 
 obj_t BgL_yz00_1133; obj_t BgL_xsz00_1134;
{ /* Ieee/fixnum.scm 1827 */
 obj_t BgL_tmpz00_12559;
{ /* Ieee/fixnum.scm 1827 */
 obj_t BgL_aux3317z00_7429;
BgL_yz00_1133 = 
BGL_UINT64_TO_BUINT64(BgL_n1z00_276); 
BgL_xsz00_1134 = BgL_nnz00_277; 
BgL_zc3z04anonymousza31448ze3z87_1135:
if(
NULLP(BgL_xsz00_1134))
{ /* Ieee/fixnum.scm 1827 */
BgL_aux3317z00_7429 = BgL_yz00_1133; }  else 
{ /* Ieee/fixnum.scm 1827 */
 bool_t BgL_test6196z00_12562;
{ /* Ieee/fixnum.scm 1827 */
 uint64_t BgL_n1z00_3109; uint64_t BgL_n2z00_3110;
{ /* Ieee/fixnum.scm 1827 */
 obj_t BgL_pairz00_3108;
if(
PAIRP(BgL_xsz00_1134))
{ /* Ieee/fixnum.scm 1827 */
BgL_pairz00_3108 = BgL_xsz00_1134; }  else 
{ 
 obj_t BgL_auxz00_12565;
BgL_auxz00_12565 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88568L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1134); 
FAILURE(BgL_auxz00_12565,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1827 */
 obj_t BgL_tmpz00_12569;
{ /* Ieee/fixnum.scm 1827 */
 obj_t BgL_aux3307z00_7419;
BgL_aux3307z00_7419 = 
CAR(BgL_pairz00_3108); 
if(
BGL_UINT64P(BgL_aux3307z00_7419))
{ /* Ieee/fixnum.scm 1827 */
BgL_tmpz00_12569 = BgL_aux3307z00_7419
; }  else 
{ 
 obj_t BgL_auxz00_12573;
BgL_auxz00_12573 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88568L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3307z00_7419); 
FAILURE(BgL_auxz00_12573,BFALSE,BFALSE);} } 
BgL_n1z00_3109 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_12569); } } 
{ /* Ieee/fixnum.scm 1827 */
 obj_t BgL_tmpz00_12578;
if(
BGL_UINT64P(BgL_yz00_1133))
{ /* Ieee/fixnum.scm 1827 */
BgL_tmpz00_12578 = BgL_yz00_1133
; }  else 
{ 
 obj_t BgL_auxz00_12581;
BgL_auxz00_12581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88568L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1133); 
FAILURE(BgL_auxz00_12581,BFALSE,BFALSE);} 
BgL_n2z00_3110 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_12578); } 
BgL_test6196z00_12562 = 
(BgL_n1z00_3109<BgL_n2z00_3110); } 
if(BgL_test6196z00_12562)
{ 
 obj_t BgL_xsz00_12595; obj_t BgL_yz00_12587;
{ /* Ieee/fixnum.scm 1827 */
 obj_t BgL_pairz00_3111;
if(
PAIRP(BgL_xsz00_1134))
{ /* Ieee/fixnum.scm 1827 */
BgL_pairz00_3111 = BgL_xsz00_1134; }  else 
{ 
 obj_t BgL_auxz00_12590;
BgL_auxz00_12590 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88568L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1134); 
FAILURE(BgL_auxz00_12590,BFALSE,BFALSE);} 
BgL_yz00_12587 = 
CAR(BgL_pairz00_3111); } 
{ /* Ieee/fixnum.scm 1827 */
 obj_t BgL_pairz00_3112;
if(
PAIRP(BgL_xsz00_1134))
{ /* Ieee/fixnum.scm 1827 */
BgL_pairz00_3112 = BgL_xsz00_1134; }  else 
{ 
 obj_t BgL_auxz00_12598;
BgL_auxz00_12598 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88568L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1134); 
FAILURE(BgL_auxz00_12598,BFALSE,BFALSE);} 
BgL_xsz00_12595 = 
CDR(BgL_pairz00_3112); } 
BgL_xsz00_1134 = BgL_xsz00_12595; 
BgL_yz00_1133 = BgL_yz00_12587; 
goto BgL_zc3z04anonymousza31448ze3z87_1135;}  else 
{ 
 obj_t BgL_xsz00_12603;
{ /* Ieee/fixnum.scm 1827 */
 obj_t BgL_pairz00_3113;
if(
PAIRP(BgL_xsz00_1134))
{ /* Ieee/fixnum.scm 1827 */
BgL_pairz00_3113 = BgL_xsz00_1134; }  else 
{ 
 obj_t BgL_auxz00_12606;
BgL_auxz00_12606 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88568L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1134); 
FAILURE(BgL_auxz00_12606,BFALSE,BFALSE);} 
BgL_xsz00_12603 = 
CDR(BgL_pairz00_3113); } 
BgL_xsz00_1134 = BgL_xsz00_12603; 
goto BgL_zc3z04anonymousza31448ze3z87_1135;} } 
if(
BGL_UINT64P(BgL_aux3317z00_7429))
{ /* Ieee/fixnum.scm 1827 */
BgL_tmpz00_12559 = BgL_aux3317z00_7429
; }  else 
{ 
 obj_t BgL_auxz00_12614;
BgL_auxz00_12614 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88568L), BGl_string4758z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3317z00_7429); 
FAILURE(BgL_auxz00_12614,BFALSE,BFALSE);} } 
return 
BGL_BINT64_TO_INT64(BgL_tmpz00_12559);} } } 

}



/* &minu64 */
obj_t BGl_z62minu64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6360, obj_t BgL_n1z00_6361, obj_t BgL_nnz00_6362)
{
{ /* Ieee/fixnum.scm 1827 */
{ /* Ieee/fixnum.scm 1827 */
 uint64_t BgL_tmpz00_12619;
{ /* Ieee/fixnum.scm 1827 */
 uint64_t BgL_auxz00_12620;
{ /* Ieee/fixnum.scm 1827 */
 obj_t BgL_tmpz00_12621;
if(
BGL_UINT64P(BgL_n1z00_6361))
{ /* Ieee/fixnum.scm 1827 */
BgL_tmpz00_12621 = BgL_n1z00_6361
; }  else 
{ 
 obj_t BgL_auxz00_12624;
BgL_auxz00_12624 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88568L), BGl_string4759z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6361); 
FAILURE(BgL_auxz00_12624,BFALSE,BFALSE);} 
BgL_auxz00_12620 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_12621); } 
BgL_tmpz00_12619 = 
BGl_minu64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12620, BgL_nnz00_6362); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_12619);} } 

}



/* minbx */
BGL_EXPORTED_DEF obj_t BGl_minbxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_278, obj_t BgL_nnz00_279)
{
{ /* Ieee/fixnum.scm 1829 */
{ 
 obj_t BgL_yz00_1145; obj_t BgL_xsz00_1146;
{ /* Ieee/fixnum.scm 1829 */
 obj_t BgL_aux3333z00_7445;
BgL_yz00_1145 = BgL_n1z00_278; 
BgL_xsz00_1146 = BgL_nnz00_279; 
BgL_zc3z04anonymousza31456ze3z87_1147:
if(
NULLP(BgL_xsz00_1146))
{ /* Ieee/fixnum.scm 1829 */
BgL_aux3333z00_7445 = BgL_yz00_1145; }  else 
{ /* Ieee/fixnum.scm 1829 */
 bool_t BgL_test6206z00_12633;
{ /* Ieee/fixnum.scm 1829 */
 obj_t BgL_n1z00_3115; obj_t BgL_n2z00_3116;
{ /* Ieee/fixnum.scm 1829 */
 obj_t BgL_pairz00_3114;
if(
PAIRP(BgL_xsz00_1146))
{ /* Ieee/fixnum.scm 1829 */
BgL_pairz00_3114 = BgL_xsz00_1146; }  else 
{ 
 obj_t BgL_auxz00_12636;
BgL_auxz00_12636 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88620L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1146); 
FAILURE(BgL_auxz00_12636,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1829 */
 obj_t BgL_aux3323z00_7435;
BgL_aux3323z00_7435 = 
CAR(BgL_pairz00_3114); 
if(
BIGNUMP(BgL_aux3323z00_7435))
{ /* Ieee/fixnum.scm 1829 */
BgL_n1z00_3115 = BgL_aux3323z00_7435; }  else 
{ 
 obj_t BgL_auxz00_12643;
BgL_auxz00_12643 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88620L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3323z00_7435); 
FAILURE(BgL_auxz00_12643,BFALSE,BFALSE);} } } 
if(
BIGNUMP(BgL_yz00_1145))
{ /* Ieee/fixnum.scm 1829 */
BgL_n2z00_3116 = BgL_yz00_1145; }  else 
{ 
 obj_t BgL_auxz00_12649;
BgL_auxz00_12649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88620L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1145); 
FAILURE(BgL_auxz00_12649,BFALSE,BFALSE);} 
BgL_test6206z00_12633 = 
(
(long)(
bgl_bignum_cmp(BgL_n1z00_3115, BgL_n2z00_3116))<0L); } 
if(BgL_test6206z00_12633)
{ 
 obj_t BgL_xsz00_12664; obj_t BgL_yz00_12656;
{ /* Ieee/fixnum.scm 1829 */
 obj_t BgL_pairz00_3119;
if(
PAIRP(BgL_xsz00_1146))
{ /* Ieee/fixnum.scm 1829 */
BgL_pairz00_3119 = BgL_xsz00_1146; }  else 
{ 
 obj_t BgL_auxz00_12659;
BgL_auxz00_12659 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88620L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1146); 
FAILURE(BgL_auxz00_12659,BFALSE,BFALSE);} 
BgL_yz00_12656 = 
CAR(BgL_pairz00_3119); } 
{ /* Ieee/fixnum.scm 1829 */
 obj_t BgL_pairz00_3120;
if(
PAIRP(BgL_xsz00_1146))
{ /* Ieee/fixnum.scm 1829 */
BgL_pairz00_3120 = BgL_xsz00_1146; }  else 
{ 
 obj_t BgL_auxz00_12667;
BgL_auxz00_12667 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88620L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1146); 
FAILURE(BgL_auxz00_12667,BFALSE,BFALSE);} 
BgL_xsz00_12664 = 
CDR(BgL_pairz00_3120); } 
BgL_xsz00_1146 = BgL_xsz00_12664; 
BgL_yz00_1145 = BgL_yz00_12656; 
goto BgL_zc3z04anonymousza31456ze3z87_1147;}  else 
{ 
 obj_t BgL_xsz00_12672;
{ /* Ieee/fixnum.scm 1829 */
 obj_t BgL_pairz00_3121;
if(
PAIRP(BgL_xsz00_1146))
{ /* Ieee/fixnum.scm 1829 */
BgL_pairz00_3121 = BgL_xsz00_1146; }  else 
{ 
 obj_t BgL_auxz00_12675;
BgL_auxz00_12675 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88620L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1146); 
FAILURE(BgL_auxz00_12675,BFALSE,BFALSE);} 
BgL_xsz00_12672 = 
CDR(BgL_pairz00_3121); } 
BgL_xsz00_1146 = BgL_xsz00_12672; 
goto BgL_zc3z04anonymousza31456ze3z87_1147;} } 
if(
BIGNUMP(BgL_aux3333z00_7445))
{ /* Ieee/fixnum.scm 1829 */
return BgL_aux3333z00_7445;}  else 
{ 
 obj_t BgL_auxz00_12682;
BgL_auxz00_12682 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88620L), BGl_string4760z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3333z00_7445); 
FAILURE(BgL_auxz00_12682,BFALSE,BFALSE);} } } } 

}



/* &minbx */
obj_t BGl_z62minbxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6363, obj_t BgL_n1z00_6364, obj_t BgL_nnz00_6365)
{
{ /* Ieee/fixnum.scm 1829 */
{ /* Ieee/fixnum.scm 1829 */
 obj_t BgL_auxz00_12686;
if(
BIGNUMP(BgL_n1z00_6364))
{ /* Ieee/fixnum.scm 1829 */
BgL_auxz00_12686 = BgL_n1z00_6364
; }  else 
{ 
 obj_t BgL_auxz00_12689;
BgL_auxz00_12689 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88620L), BGl_string4761z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6364); 
FAILURE(BgL_auxz00_12689,BFALSE,BFALSE);} 
return 
BGl_minbxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12686, BgL_nnz00_6365);} } 

}



/* maxfx */
BGL_EXPORTED_DEF long BGl_maxfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_280, obj_t BgL_nnz00_281)
{
{ /* Ieee/fixnum.scm 1834 */
{ 
 obj_t BgL_yz00_1157; obj_t BgL_xsz00_1158;
{ /* Ieee/fixnum.scm 1835 */
 obj_t BgL_tmpz00_12694;
{ /* Ieee/fixnum.scm 1835 */
 obj_t BgL_aux3347z00_7459;
BgL_yz00_1157 = 
BINT(BgL_n1z00_280); 
BgL_xsz00_1158 = BgL_nnz00_281; 
BgL_zc3z04anonymousza31464ze3z87_1159:
if(
NULLP(BgL_xsz00_1158))
{ /* Ieee/fixnum.scm 1835 */
BgL_aux3347z00_7459 = BgL_yz00_1157; }  else 
{ /* Ieee/fixnum.scm 1835 */
 bool_t BgL_test6216z00_12697;
{ /* Ieee/fixnum.scm 1835 */
 long BgL_n1z00_3123; long BgL_n2z00_3124;
{ /* Ieee/fixnum.scm 1835 */
 obj_t BgL_pairz00_3122;
if(
PAIRP(BgL_xsz00_1158))
{ /* Ieee/fixnum.scm 1835 */
BgL_pairz00_3122 = BgL_xsz00_1158; }  else 
{ 
 obj_t BgL_auxz00_12700;
BgL_auxz00_12700 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88893L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1158); 
FAILURE(BgL_auxz00_12700,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1835 */
 obj_t BgL_tmpz00_12704;
{ /* Ieee/fixnum.scm 1835 */
 obj_t BgL_aux3339z00_7451;
BgL_aux3339z00_7451 = 
CAR(BgL_pairz00_3122); 
if(
INTEGERP(BgL_aux3339z00_7451))
{ /* Ieee/fixnum.scm 1835 */
BgL_tmpz00_12704 = BgL_aux3339z00_7451
; }  else 
{ 
 obj_t BgL_auxz00_12708;
BgL_auxz00_12708 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88893L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3339z00_7451); 
FAILURE(BgL_auxz00_12708,BFALSE,BFALSE);} } 
BgL_n1z00_3123 = 
(long)CINT(BgL_tmpz00_12704); } } 
{ /* Ieee/fixnum.scm 1835 */
 obj_t BgL_tmpz00_12713;
if(
INTEGERP(BgL_yz00_1157))
{ /* Ieee/fixnum.scm 1835 */
BgL_tmpz00_12713 = BgL_yz00_1157
; }  else 
{ 
 obj_t BgL_auxz00_12716;
BgL_auxz00_12716 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88893L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1157); 
FAILURE(BgL_auxz00_12716,BFALSE,BFALSE);} 
BgL_n2z00_3124 = 
(long)CINT(BgL_tmpz00_12713); } 
BgL_test6216z00_12697 = 
(BgL_n1z00_3123>BgL_n2z00_3124); } 
if(BgL_test6216z00_12697)
{ 
 obj_t BgL_xsz00_12730; obj_t BgL_yz00_12722;
{ /* Ieee/fixnum.scm 1835 */
 obj_t BgL_pairz00_3125;
if(
PAIRP(BgL_xsz00_1158))
{ /* Ieee/fixnum.scm 1835 */
BgL_pairz00_3125 = BgL_xsz00_1158; }  else 
{ 
 obj_t BgL_auxz00_12725;
BgL_auxz00_12725 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88893L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1158); 
FAILURE(BgL_auxz00_12725,BFALSE,BFALSE);} 
BgL_yz00_12722 = 
CAR(BgL_pairz00_3125); } 
{ /* Ieee/fixnum.scm 1835 */
 obj_t BgL_pairz00_3126;
if(
PAIRP(BgL_xsz00_1158))
{ /* Ieee/fixnum.scm 1835 */
BgL_pairz00_3126 = BgL_xsz00_1158; }  else 
{ 
 obj_t BgL_auxz00_12733;
BgL_auxz00_12733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88893L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1158); 
FAILURE(BgL_auxz00_12733,BFALSE,BFALSE);} 
BgL_xsz00_12730 = 
CDR(BgL_pairz00_3126); } 
BgL_xsz00_1158 = BgL_xsz00_12730; 
BgL_yz00_1157 = BgL_yz00_12722; 
goto BgL_zc3z04anonymousza31464ze3z87_1159;}  else 
{ 
 obj_t BgL_xsz00_12738;
{ /* Ieee/fixnum.scm 1835 */
 obj_t BgL_pairz00_3127;
if(
PAIRP(BgL_xsz00_1158))
{ /* Ieee/fixnum.scm 1835 */
BgL_pairz00_3127 = BgL_xsz00_1158; }  else 
{ 
 obj_t BgL_auxz00_12741;
BgL_auxz00_12741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88893L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1158); 
FAILURE(BgL_auxz00_12741,BFALSE,BFALSE);} 
BgL_xsz00_12738 = 
CDR(BgL_pairz00_3127); } 
BgL_xsz00_1158 = BgL_xsz00_12738; 
goto BgL_zc3z04anonymousza31464ze3z87_1159;} } 
if(
INTEGERP(BgL_aux3347z00_7459))
{ /* Ieee/fixnum.scm 1835 */
BgL_tmpz00_12694 = BgL_aux3347z00_7459
; }  else 
{ 
 obj_t BgL_auxz00_12749;
BgL_auxz00_12749 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88893L), BGl_string4762z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3347z00_7459); 
FAILURE(BgL_auxz00_12749,BFALSE,BFALSE);} } 
return 
(long)CINT(BgL_tmpz00_12694);} } } 

}



/* &maxfx */
obj_t BGl_z62maxfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6366, obj_t BgL_n1z00_6367, obj_t BgL_nnz00_6368)
{
{ /* Ieee/fixnum.scm 1834 */
{ /* Ieee/fixnum.scm 1835 */
 long BgL_tmpz00_12754;
{ /* Ieee/fixnum.scm 1835 */
 long BgL_auxz00_12755;
{ /* Ieee/fixnum.scm 1835 */
 obj_t BgL_tmpz00_12756;
if(
INTEGERP(BgL_n1z00_6367))
{ /* Ieee/fixnum.scm 1835 */
BgL_tmpz00_12756 = BgL_n1z00_6367
; }  else 
{ 
 obj_t BgL_auxz00_12759;
BgL_auxz00_12759 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88893L), BGl_string4763z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6367); 
FAILURE(BgL_auxz00_12759,BFALSE,BFALSE);} 
BgL_auxz00_12755 = 
(long)CINT(BgL_tmpz00_12756); } 
BgL_tmpz00_12754 = 
BGl_maxfxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12755, BgL_nnz00_6368); } 
return 
BINT(BgL_tmpz00_12754);} } 

}



/* maxelong */
BGL_EXPORTED_DEF long BGl_maxelongz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_282, obj_t BgL_nnz00_283)
{
{ /* Ieee/fixnum.scm 1837 */
{ 
 obj_t BgL_yz00_1169; obj_t BgL_xsz00_1170;
{ /* Ieee/fixnum.scm 1837 */
 obj_t BgL_tmpz00_12766;
{ /* Ieee/fixnum.scm 1837 */
 obj_t BgL_aux3361z00_7473;
BgL_yz00_1169 = 
make_belong(BgL_n1z00_282); 
BgL_xsz00_1170 = BgL_nnz00_283; 
BgL_zc3z04anonymousza31475ze3z87_1171:
if(
NULLP(BgL_xsz00_1170))
{ /* Ieee/fixnum.scm 1837 */
BgL_aux3361z00_7473 = BgL_yz00_1169; }  else 
{ /* Ieee/fixnum.scm 1837 */
 bool_t BgL_test6226z00_12769;
{ /* Ieee/fixnum.scm 1837 */
 long BgL_n1z00_3129; long BgL_n2z00_3130;
{ /* Ieee/fixnum.scm 1837 */
 obj_t BgL_pairz00_3128;
if(
PAIRP(BgL_xsz00_1170))
{ /* Ieee/fixnum.scm 1837 */
BgL_pairz00_3128 = BgL_xsz00_1170; }  else 
{ 
 obj_t BgL_auxz00_12772;
BgL_auxz00_12772 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88944L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1170); 
FAILURE(BgL_auxz00_12772,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1837 */
 obj_t BgL_tmpz00_12776;
{ /* Ieee/fixnum.scm 1837 */
 obj_t BgL_aux3351z00_7463;
BgL_aux3351z00_7463 = 
CAR(BgL_pairz00_3128); 
if(
ELONGP(BgL_aux3351z00_7463))
{ /* Ieee/fixnum.scm 1837 */
BgL_tmpz00_12776 = BgL_aux3351z00_7463
; }  else 
{ 
 obj_t BgL_auxz00_12780;
BgL_auxz00_12780 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88944L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3351z00_7463); 
FAILURE(BgL_auxz00_12780,BFALSE,BFALSE);} } 
BgL_n1z00_3129 = 
BELONG_TO_LONG(BgL_tmpz00_12776); } } 
{ /* Ieee/fixnum.scm 1837 */
 obj_t BgL_tmpz00_12785;
if(
ELONGP(BgL_yz00_1169))
{ /* Ieee/fixnum.scm 1837 */
BgL_tmpz00_12785 = BgL_yz00_1169
; }  else 
{ 
 obj_t BgL_auxz00_12788;
BgL_auxz00_12788 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88944L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1169); 
FAILURE(BgL_auxz00_12788,BFALSE,BFALSE);} 
BgL_n2z00_3130 = 
BELONG_TO_LONG(BgL_tmpz00_12785); } 
BgL_test6226z00_12769 = 
(BgL_n1z00_3129>BgL_n2z00_3130); } 
if(BgL_test6226z00_12769)
{ 
 obj_t BgL_xsz00_12802; obj_t BgL_yz00_12794;
{ /* Ieee/fixnum.scm 1837 */
 obj_t BgL_pairz00_3131;
if(
PAIRP(BgL_xsz00_1170))
{ /* Ieee/fixnum.scm 1837 */
BgL_pairz00_3131 = BgL_xsz00_1170; }  else 
{ 
 obj_t BgL_auxz00_12797;
BgL_auxz00_12797 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88944L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1170); 
FAILURE(BgL_auxz00_12797,BFALSE,BFALSE);} 
BgL_yz00_12794 = 
CAR(BgL_pairz00_3131); } 
{ /* Ieee/fixnum.scm 1837 */
 obj_t BgL_pairz00_3132;
if(
PAIRP(BgL_xsz00_1170))
{ /* Ieee/fixnum.scm 1837 */
BgL_pairz00_3132 = BgL_xsz00_1170; }  else 
{ 
 obj_t BgL_auxz00_12805;
BgL_auxz00_12805 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88944L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1170); 
FAILURE(BgL_auxz00_12805,BFALSE,BFALSE);} 
BgL_xsz00_12802 = 
CDR(BgL_pairz00_3132); } 
BgL_xsz00_1170 = BgL_xsz00_12802; 
BgL_yz00_1169 = BgL_yz00_12794; 
goto BgL_zc3z04anonymousza31475ze3z87_1171;}  else 
{ 
 obj_t BgL_xsz00_12810;
{ /* Ieee/fixnum.scm 1837 */
 obj_t BgL_pairz00_3133;
if(
PAIRP(BgL_xsz00_1170))
{ /* Ieee/fixnum.scm 1837 */
BgL_pairz00_3133 = BgL_xsz00_1170; }  else 
{ 
 obj_t BgL_auxz00_12813;
BgL_auxz00_12813 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88944L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1170); 
FAILURE(BgL_auxz00_12813,BFALSE,BFALSE);} 
BgL_xsz00_12810 = 
CDR(BgL_pairz00_3133); } 
BgL_xsz00_1170 = BgL_xsz00_12810; 
goto BgL_zc3z04anonymousza31475ze3z87_1171;} } 
if(
ELONGP(BgL_aux3361z00_7473))
{ /* Ieee/fixnum.scm 1837 */
BgL_tmpz00_12766 = BgL_aux3361z00_7473
; }  else 
{ 
 obj_t BgL_auxz00_12821;
BgL_auxz00_12821 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88944L), BGl_string4764z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3361z00_7473); 
FAILURE(BgL_auxz00_12821,BFALSE,BFALSE);} } 
return 
BELONG_TO_LONG(BgL_tmpz00_12766);} } } 

}



/* &maxelong */
obj_t BGl_z62maxelongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6369, obj_t BgL_n1z00_6370, obj_t BgL_nnz00_6371)
{
{ /* Ieee/fixnum.scm 1837 */
{ /* Ieee/fixnum.scm 1837 */
 long BgL_tmpz00_12826;
{ /* Ieee/fixnum.scm 1837 */
 long BgL_auxz00_12827;
{ /* Ieee/fixnum.scm 1837 */
 obj_t BgL_tmpz00_12828;
if(
ELONGP(BgL_n1z00_6370))
{ /* Ieee/fixnum.scm 1837 */
BgL_tmpz00_12828 = BgL_n1z00_6370
; }  else 
{ 
 obj_t BgL_auxz00_12831;
BgL_auxz00_12831 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88944L), BGl_string4765z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6370); 
FAILURE(BgL_auxz00_12831,BFALSE,BFALSE);} 
BgL_auxz00_12827 = 
BELONG_TO_LONG(BgL_tmpz00_12828); } 
BgL_tmpz00_12826 = 
BGl_maxelongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12827, BgL_nnz00_6371); } 
return 
make_belong(BgL_tmpz00_12826);} } 

}



/* maxllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_maxllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_n1z00_284, obj_t BgL_nnz00_285)
{
{ /* Ieee/fixnum.scm 1838 */
{ 
 obj_t BgL_yz00_1181; obj_t BgL_xsz00_1182;
{ /* Ieee/fixnum.scm 1838 */
 obj_t BgL_tmpz00_12838;
{ /* Ieee/fixnum.scm 1838 */
 obj_t BgL_aux3377z00_7489;
BgL_yz00_1181 = 
make_bllong(BgL_n1z00_284); 
BgL_xsz00_1182 = BgL_nnz00_285; 
BgL_zc3z04anonymousza31483ze3z87_1183:
if(
NULLP(BgL_xsz00_1182))
{ /* Ieee/fixnum.scm 1838 */
BgL_aux3377z00_7489 = BgL_yz00_1181; }  else 
{ /* Ieee/fixnum.scm 1838 */
 bool_t BgL_test6236z00_12841;
{ /* Ieee/fixnum.scm 1838 */
 BGL_LONGLONG_T BgL_n1z00_3135; BGL_LONGLONG_T BgL_n2z00_3136;
{ /* Ieee/fixnum.scm 1838 */
 obj_t BgL_pairz00_3134;
if(
PAIRP(BgL_xsz00_1182))
{ /* Ieee/fixnum.scm 1838 */
BgL_pairz00_3134 = BgL_xsz00_1182; }  else 
{ 
 obj_t BgL_auxz00_12844;
BgL_auxz00_12844 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88997L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1182); 
FAILURE(BgL_auxz00_12844,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1838 */
 obj_t BgL_tmpz00_12848;
{ /* Ieee/fixnum.scm 1838 */
 obj_t BgL_aux3367z00_7479;
BgL_aux3367z00_7479 = 
CAR(BgL_pairz00_3134); 
if(
LLONGP(BgL_aux3367z00_7479))
{ /* Ieee/fixnum.scm 1838 */
BgL_tmpz00_12848 = BgL_aux3367z00_7479
; }  else 
{ 
 obj_t BgL_auxz00_12852;
BgL_auxz00_12852 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88997L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3367z00_7479); 
FAILURE(BgL_auxz00_12852,BFALSE,BFALSE);} } 
BgL_n1z00_3135 = 
BLLONG_TO_LLONG(BgL_tmpz00_12848); } } 
{ /* Ieee/fixnum.scm 1838 */
 obj_t BgL_tmpz00_12857;
if(
LLONGP(BgL_yz00_1181))
{ /* Ieee/fixnum.scm 1838 */
BgL_tmpz00_12857 = BgL_yz00_1181
; }  else 
{ 
 obj_t BgL_auxz00_12860;
BgL_auxz00_12860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88997L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1181); 
FAILURE(BgL_auxz00_12860,BFALSE,BFALSE);} 
BgL_n2z00_3136 = 
BLLONG_TO_LLONG(BgL_tmpz00_12857); } 
BgL_test6236z00_12841 = 
(BgL_n1z00_3135>BgL_n2z00_3136); } 
if(BgL_test6236z00_12841)
{ 
 obj_t BgL_xsz00_12874; obj_t BgL_yz00_12866;
{ /* Ieee/fixnum.scm 1838 */
 obj_t BgL_pairz00_3137;
if(
PAIRP(BgL_xsz00_1182))
{ /* Ieee/fixnum.scm 1838 */
BgL_pairz00_3137 = BgL_xsz00_1182; }  else 
{ 
 obj_t BgL_auxz00_12869;
BgL_auxz00_12869 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88997L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1182); 
FAILURE(BgL_auxz00_12869,BFALSE,BFALSE);} 
BgL_yz00_12866 = 
CAR(BgL_pairz00_3137); } 
{ /* Ieee/fixnum.scm 1838 */
 obj_t BgL_pairz00_3138;
if(
PAIRP(BgL_xsz00_1182))
{ /* Ieee/fixnum.scm 1838 */
BgL_pairz00_3138 = BgL_xsz00_1182; }  else 
{ 
 obj_t BgL_auxz00_12877;
BgL_auxz00_12877 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88997L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1182); 
FAILURE(BgL_auxz00_12877,BFALSE,BFALSE);} 
BgL_xsz00_12874 = 
CDR(BgL_pairz00_3138); } 
BgL_xsz00_1182 = BgL_xsz00_12874; 
BgL_yz00_1181 = BgL_yz00_12866; 
goto BgL_zc3z04anonymousza31483ze3z87_1183;}  else 
{ 
 obj_t BgL_xsz00_12882;
{ /* Ieee/fixnum.scm 1838 */
 obj_t BgL_pairz00_3139;
if(
PAIRP(BgL_xsz00_1182))
{ /* Ieee/fixnum.scm 1838 */
BgL_pairz00_3139 = BgL_xsz00_1182; }  else 
{ 
 obj_t BgL_auxz00_12885;
BgL_auxz00_12885 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88997L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1182); 
FAILURE(BgL_auxz00_12885,BFALSE,BFALSE);} 
BgL_xsz00_12882 = 
CDR(BgL_pairz00_3139); } 
BgL_xsz00_1182 = BgL_xsz00_12882; 
goto BgL_zc3z04anonymousza31483ze3z87_1183;} } 
if(
LLONGP(BgL_aux3377z00_7489))
{ /* Ieee/fixnum.scm 1838 */
BgL_tmpz00_12838 = BgL_aux3377z00_7489
; }  else 
{ 
 obj_t BgL_auxz00_12893;
BgL_auxz00_12893 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88997L), BGl_string4766z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3377z00_7489); 
FAILURE(BgL_auxz00_12893,BFALSE,BFALSE);} } 
return 
BLLONG_TO_LLONG(BgL_tmpz00_12838);} } } 

}



/* &maxllong */
obj_t BGl_z62maxllongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6372, obj_t BgL_n1z00_6373, obj_t BgL_nnz00_6374)
{
{ /* Ieee/fixnum.scm 1838 */
{ /* Ieee/fixnum.scm 1838 */
 BGL_LONGLONG_T BgL_tmpz00_12898;
{ /* Ieee/fixnum.scm 1838 */
 BGL_LONGLONG_T BgL_auxz00_12899;
{ /* Ieee/fixnum.scm 1838 */
 obj_t BgL_tmpz00_12900;
if(
LLONGP(BgL_n1z00_6373))
{ /* Ieee/fixnum.scm 1838 */
BgL_tmpz00_12900 = BgL_n1z00_6373
; }  else 
{ 
 obj_t BgL_auxz00_12903;
BgL_auxz00_12903 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(88997L), BGl_string4767z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6373); 
FAILURE(BgL_auxz00_12903,BFALSE,BFALSE);} 
BgL_auxz00_12899 = 
BLLONG_TO_LLONG(BgL_tmpz00_12900); } 
BgL_tmpz00_12898 = 
BGl_maxllongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12899, BgL_nnz00_6374); } 
return 
make_bllong(BgL_tmpz00_12898);} } 

}



/* maxs8 */
BGL_EXPORTED_DEF int8_t BGl_maxs8z00zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_286, obj_t BgL_nnz00_287)
{
{ /* Ieee/fixnum.scm 1840 */
{ 
 obj_t BgL_yz00_1193; obj_t BgL_xsz00_1194;
{ /* Ieee/fixnum.scm 1840 */
 obj_t BgL_tmpz00_12910;
{ /* Ieee/fixnum.scm 1840 */
 obj_t BgL_aux3393z00_7505;
BgL_yz00_1193 = 
BGL_INT8_TO_BINT8(BgL_n1z00_286); 
BgL_xsz00_1194 = BgL_nnz00_287; 
BgL_zc3z04anonymousza31492ze3z87_1195:
if(
NULLP(BgL_xsz00_1194))
{ /* Ieee/fixnum.scm 1840 */
BgL_aux3393z00_7505 = BgL_yz00_1193; }  else 
{ /* Ieee/fixnum.scm 1840 */
 bool_t BgL_test6246z00_12913;
{ /* Ieee/fixnum.scm 1840 */
 int8_t BgL_n1z00_3141; int8_t BgL_n2z00_3142;
{ /* Ieee/fixnum.scm 1840 */
 obj_t BgL_pairz00_3140;
if(
PAIRP(BgL_xsz00_1194))
{ /* Ieee/fixnum.scm 1840 */
BgL_pairz00_3140 = BgL_xsz00_1194; }  else 
{ 
 obj_t BgL_auxz00_12916;
BgL_auxz00_12916 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89048L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1194); 
FAILURE(BgL_auxz00_12916,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1840 */
 obj_t BgL_tmpz00_12920;
{ /* Ieee/fixnum.scm 1840 */
 obj_t BgL_aux3383z00_7495;
BgL_aux3383z00_7495 = 
CAR(BgL_pairz00_3140); 
if(
BGL_INT8P(BgL_aux3383z00_7495))
{ /* Ieee/fixnum.scm 1840 */
BgL_tmpz00_12920 = BgL_aux3383z00_7495
; }  else 
{ 
 obj_t BgL_auxz00_12924;
BgL_auxz00_12924 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89048L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3383z00_7495); 
FAILURE(BgL_auxz00_12924,BFALSE,BFALSE);} } 
BgL_n1z00_3141 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_12920); } } 
{ /* Ieee/fixnum.scm 1840 */
 obj_t BgL_tmpz00_12929;
if(
BGL_INT8P(BgL_yz00_1193))
{ /* Ieee/fixnum.scm 1840 */
BgL_tmpz00_12929 = BgL_yz00_1193
; }  else 
{ 
 obj_t BgL_auxz00_12932;
BgL_auxz00_12932 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89048L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1193); 
FAILURE(BgL_auxz00_12932,BFALSE,BFALSE);} 
BgL_n2z00_3142 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_12929); } 
BgL_test6246z00_12913 = 
(BgL_n1z00_3141>BgL_n2z00_3142); } 
if(BgL_test6246z00_12913)
{ 
 obj_t BgL_xsz00_12946; obj_t BgL_yz00_12938;
{ /* Ieee/fixnum.scm 1840 */
 obj_t BgL_pairz00_3143;
if(
PAIRP(BgL_xsz00_1194))
{ /* Ieee/fixnum.scm 1840 */
BgL_pairz00_3143 = BgL_xsz00_1194; }  else 
{ 
 obj_t BgL_auxz00_12941;
BgL_auxz00_12941 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89048L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1194); 
FAILURE(BgL_auxz00_12941,BFALSE,BFALSE);} 
BgL_yz00_12938 = 
CAR(BgL_pairz00_3143); } 
{ /* Ieee/fixnum.scm 1840 */
 obj_t BgL_pairz00_3144;
if(
PAIRP(BgL_xsz00_1194))
{ /* Ieee/fixnum.scm 1840 */
BgL_pairz00_3144 = BgL_xsz00_1194; }  else 
{ 
 obj_t BgL_auxz00_12949;
BgL_auxz00_12949 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89048L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1194); 
FAILURE(BgL_auxz00_12949,BFALSE,BFALSE);} 
BgL_xsz00_12946 = 
CDR(BgL_pairz00_3144); } 
BgL_xsz00_1194 = BgL_xsz00_12946; 
BgL_yz00_1193 = BgL_yz00_12938; 
goto BgL_zc3z04anonymousza31492ze3z87_1195;}  else 
{ 
 obj_t BgL_xsz00_12954;
{ /* Ieee/fixnum.scm 1840 */
 obj_t BgL_pairz00_3145;
if(
PAIRP(BgL_xsz00_1194))
{ /* Ieee/fixnum.scm 1840 */
BgL_pairz00_3145 = BgL_xsz00_1194; }  else 
{ 
 obj_t BgL_auxz00_12957;
BgL_auxz00_12957 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89048L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1194); 
FAILURE(BgL_auxz00_12957,BFALSE,BFALSE);} 
BgL_xsz00_12954 = 
CDR(BgL_pairz00_3145); } 
BgL_xsz00_1194 = BgL_xsz00_12954; 
goto BgL_zc3z04anonymousza31492ze3z87_1195;} } 
if(
BGL_INT8P(BgL_aux3393z00_7505))
{ /* Ieee/fixnum.scm 1840 */
BgL_tmpz00_12910 = BgL_aux3393z00_7505
; }  else 
{ 
 obj_t BgL_auxz00_12965;
BgL_auxz00_12965 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89048L), BGl_string4768z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3393z00_7505); 
FAILURE(BgL_auxz00_12965,BFALSE,BFALSE);} } 
return 
BGL_BINT8_TO_INT8(BgL_tmpz00_12910);} } } 

}



/* &maxs8 */
obj_t BGl_z62maxs8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6375, obj_t BgL_n1z00_6376, obj_t BgL_nnz00_6377)
{
{ /* Ieee/fixnum.scm 1840 */
{ /* Ieee/fixnum.scm 1840 */
 int8_t BgL_tmpz00_12970;
{ /* Ieee/fixnum.scm 1840 */
 int8_t BgL_auxz00_12971;
{ /* Ieee/fixnum.scm 1840 */
 obj_t BgL_tmpz00_12972;
if(
BGL_INT8P(BgL_n1z00_6376))
{ /* Ieee/fixnum.scm 1840 */
BgL_tmpz00_12972 = BgL_n1z00_6376
; }  else 
{ 
 obj_t BgL_auxz00_12975;
BgL_auxz00_12975 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89048L), BGl_string4769z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6376); 
FAILURE(BgL_auxz00_12975,BFALSE,BFALSE);} 
BgL_auxz00_12971 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_12972); } 
BgL_tmpz00_12970 = 
BGl_maxs8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_12971, BgL_nnz00_6377); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_12970);} } 

}



/* maxu8 */
BGL_EXPORTED_DEF uint8_t BGl_maxu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_288, obj_t BgL_nnz00_289)
{
{ /* Ieee/fixnum.scm 1841 */
{ 
 obj_t BgL_yz00_1205; obj_t BgL_xsz00_1206;
{ /* Ieee/fixnum.scm 1841 */
 obj_t BgL_tmpz00_12982;
{ /* Ieee/fixnum.scm 1841 */
 obj_t BgL_aux3409z00_7521;
BgL_yz00_1205 = 
BGL_UINT8_TO_BUINT8(BgL_n1z00_288); 
BgL_xsz00_1206 = BgL_nnz00_289; 
BgL_zc3z04anonymousza31500ze3z87_1207:
if(
NULLP(BgL_xsz00_1206))
{ /* Ieee/fixnum.scm 1841 */
BgL_aux3409z00_7521 = BgL_yz00_1205; }  else 
{ /* Ieee/fixnum.scm 1841 */
 bool_t BgL_test6256z00_12985;
{ /* Ieee/fixnum.scm 1841 */
 uint8_t BgL_n1z00_3147; uint8_t BgL_n2z00_3148;
{ /* Ieee/fixnum.scm 1841 */
 obj_t BgL_pairz00_3146;
if(
PAIRP(BgL_xsz00_1206))
{ /* Ieee/fixnum.scm 1841 */
BgL_pairz00_3146 = BgL_xsz00_1206; }  else 
{ 
 obj_t BgL_auxz00_12988;
BgL_auxz00_12988 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89095L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1206); 
FAILURE(BgL_auxz00_12988,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1841 */
 obj_t BgL_tmpz00_12992;
{ /* Ieee/fixnum.scm 1841 */
 obj_t BgL_aux3399z00_7511;
BgL_aux3399z00_7511 = 
CAR(BgL_pairz00_3146); 
if(
BGL_UINT8P(BgL_aux3399z00_7511))
{ /* Ieee/fixnum.scm 1841 */
BgL_tmpz00_12992 = BgL_aux3399z00_7511
; }  else 
{ 
 obj_t BgL_auxz00_12996;
BgL_auxz00_12996 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89095L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3399z00_7511); 
FAILURE(BgL_auxz00_12996,BFALSE,BFALSE);} } 
BgL_n1z00_3147 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_12992); } } 
{ /* Ieee/fixnum.scm 1841 */
 obj_t BgL_tmpz00_13001;
if(
BGL_UINT8P(BgL_yz00_1205))
{ /* Ieee/fixnum.scm 1841 */
BgL_tmpz00_13001 = BgL_yz00_1205
; }  else 
{ 
 obj_t BgL_auxz00_13004;
BgL_auxz00_13004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89095L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1205); 
FAILURE(BgL_auxz00_13004,BFALSE,BFALSE);} 
BgL_n2z00_3148 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_13001); } 
BgL_test6256z00_12985 = 
(BgL_n1z00_3147>BgL_n2z00_3148); } 
if(BgL_test6256z00_12985)
{ 
 obj_t BgL_xsz00_13018; obj_t BgL_yz00_13010;
{ /* Ieee/fixnum.scm 1841 */
 obj_t BgL_pairz00_3149;
if(
PAIRP(BgL_xsz00_1206))
{ /* Ieee/fixnum.scm 1841 */
BgL_pairz00_3149 = BgL_xsz00_1206; }  else 
{ 
 obj_t BgL_auxz00_13013;
BgL_auxz00_13013 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89095L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1206); 
FAILURE(BgL_auxz00_13013,BFALSE,BFALSE);} 
BgL_yz00_13010 = 
CAR(BgL_pairz00_3149); } 
{ /* Ieee/fixnum.scm 1841 */
 obj_t BgL_pairz00_3150;
if(
PAIRP(BgL_xsz00_1206))
{ /* Ieee/fixnum.scm 1841 */
BgL_pairz00_3150 = BgL_xsz00_1206; }  else 
{ 
 obj_t BgL_auxz00_13021;
BgL_auxz00_13021 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89095L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1206); 
FAILURE(BgL_auxz00_13021,BFALSE,BFALSE);} 
BgL_xsz00_13018 = 
CDR(BgL_pairz00_3150); } 
BgL_xsz00_1206 = BgL_xsz00_13018; 
BgL_yz00_1205 = BgL_yz00_13010; 
goto BgL_zc3z04anonymousza31500ze3z87_1207;}  else 
{ 
 obj_t BgL_xsz00_13026;
{ /* Ieee/fixnum.scm 1841 */
 obj_t BgL_pairz00_3151;
if(
PAIRP(BgL_xsz00_1206))
{ /* Ieee/fixnum.scm 1841 */
BgL_pairz00_3151 = BgL_xsz00_1206; }  else 
{ 
 obj_t BgL_auxz00_13029;
BgL_auxz00_13029 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89095L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1206); 
FAILURE(BgL_auxz00_13029,BFALSE,BFALSE);} 
BgL_xsz00_13026 = 
CDR(BgL_pairz00_3151); } 
BgL_xsz00_1206 = BgL_xsz00_13026; 
goto BgL_zc3z04anonymousza31500ze3z87_1207;} } 
if(
BGL_UINT8P(BgL_aux3409z00_7521))
{ /* Ieee/fixnum.scm 1841 */
BgL_tmpz00_12982 = BgL_aux3409z00_7521
; }  else 
{ 
 obj_t BgL_auxz00_13037;
BgL_auxz00_13037 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89095L), BGl_string4770z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3409z00_7521); 
FAILURE(BgL_auxz00_13037,BFALSE,BFALSE);} } 
return 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_12982);} } } 

}



/* &maxu8 */
obj_t BGl_z62maxu8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6378, obj_t BgL_n1z00_6379, obj_t BgL_nnz00_6380)
{
{ /* Ieee/fixnum.scm 1841 */
{ /* Ieee/fixnum.scm 1841 */
 uint8_t BgL_tmpz00_13042;
{ /* Ieee/fixnum.scm 1841 */
 uint8_t BgL_auxz00_13043;
{ /* Ieee/fixnum.scm 1841 */
 obj_t BgL_tmpz00_13044;
if(
BGL_UINT8P(BgL_n1z00_6379))
{ /* Ieee/fixnum.scm 1841 */
BgL_tmpz00_13044 = BgL_n1z00_6379
; }  else 
{ 
 obj_t BgL_auxz00_13047;
BgL_auxz00_13047 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89095L), BGl_string4771z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6379); 
FAILURE(BgL_auxz00_13047,BFALSE,BFALSE);} 
BgL_auxz00_13043 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_13044); } 
BgL_tmpz00_13042 = 
BGl_maxu8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13043, BgL_nnz00_6380); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_13042);} } 

}



/* maxs16 */
BGL_EXPORTED_DEF int16_t BGl_maxs16z00zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_290, obj_t BgL_nnz00_291)
{
{ /* Ieee/fixnum.scm 1843 */
{ 
 obj_t BgL_yz00_1217; obj_t BgL_xsz00_1218;
{ /* Ieee/fixnum.scm 1843 */
 obj_t BgL_tmpz00_13054;
{ /* Ieee/fixnum.scm 1843 */
 obj_t BgL_aux3425z00_7537;
BgL_yz00_1217 = 
BGL_INT16_TO_BINT16(BgL_n1z00_290); 
BgL_xsz00_1218 = BgL_nnz00_291; 
BgL_zc3z04anonymousza31508ze3z87_1219:
if(
NULLP(BgL_xsz00_1218))
{ /* Ieee/fixnum.scm 1843 */
BgL_aux3425z00_7537 = BgL_yz00_1217; }  else 
{ /* Ieee/fixnum.scm 1843 */
 bool_t BgL_test6266z00_13057;
{ /* Ieee/fixnum.scm 1843 */
 int16_t BgL_n1z00_3153; int16_t BgL_n2z00_3154;
{ /* Ieee/fixnum.scm 1843 */
 obj_t BgL_pairz00_3152;
if(
PAIRP(BgL_xsz00_1218))
{ /* Ieee/fixnum.scm 1843 */
BgL_pairz00_3152 = BgL_xsz00_1218; }  else 
{ 
 obj_t BgL_auxz00_13060;
BgL_auxz00_13060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89147L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1218); 
FAILURE(BgL_auxz00_13060,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1843 */
 obj_t BgL_tmpz00_13064;
{ /* Ieee/fixnum.scm 1843 */
 obj_t BgL_aux3415z00_7527;
BgL_aux3415z00_7527 = 
CAR(BgL_pairz00_3152); 
if(
BGL_INT16P(BgL_aux3415z00_7527))
{ /* Ieee/fixnum.scm 1843 */
BgL_tmpz00_13064 = BgL_aux3415z00_7527
; }  else 
{ 
 obj_t BgL_auxz00_13068;
BgL_auxz00_13068 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89147L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3415z00_7527); 
FAILURE(BgL_auxz00_13068,BFALSE,BFALSE);} } 
BgL_n1z00_3153 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_13064); } } 
{ /* Ieee/fixnum.scm 1843 */
 obj_t BgL_tmpz00_13073;
if(
BGL_INT16P(BgL_yz00_1217))
{ /* Ieee/fixnum.scm 1843 */
BgL_tmpz00_13073 = BgL_yz00_1217
; }  else 
{ 
 obj_t BgL_auxz00_13076;
BgL_auxz00_13076 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89147L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1217); 
FAILURE(BgL_auxz00_13076,BFALSE,BFALSE);} 
BgL_n2z00_3154 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_13073); } 
BgL_test6266z00_13057 = 
(BgL_n1z00_3153>BgL_n2z00_3154); } 
if(BgL_test6266z00_13057)
{ 
 obj_t BgL_xsz00_13090; obj_t BgL_yz00_13082;
{ /* Ieee/fixnum.scm 1843 */
 obj_t BgL_pairz00_3155;
if(
PAIRP(BgL_xsz00_1218))
{ /* Ieee/fixnum.scm 1843 */
BgL_pairz00_3155 = BgL_xsz00_1218; }  else 
{ 
 obj_t BgL_auxz00_13085;
BgL_auxz00_13085 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89147L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1218); 
FAILURE(BgL_auxz00_13085,BFALSE,BFALSE);} 
BgL_yz00_13082 = 
CAR(BgL_pairz00_3155); } 
{ /* Ieee/fixnum.scm 1843 */
 obj_t BgL_pairz00_3156;
if(
PAIRP(BgL_xsz00_1218))
{ /* Ieee/fixnum.scm 1843 */
BgL_pairz00_3156 = BgL_xsz00_1218; }  else 
{ 
 obj_t BgL_auxz00_13093;
BgL_auxz00_13093 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89147L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1218); 
FAILURE(BgL_auxz00_13093,BFALSE,BFALSE);} 
BgL_xsz00_13090 = 
CDR(BgL_pairz00_3156); } 
BgL_xsz00_1218 = BgL_xsz00_13090; 
BgL_yz00_1217 = BgL_yz00_13082; 
goto BgL_zc3z04anonymousza31508ze3z87_1219;}  else 
{ 
 obj_t BgL_xsz00_13098;
{ /* Ieee/fixnum.scm 1843 */
 obj_t BgL_pairz00_3157;
if(
PAIRP(BgL_xsz00_1218))
{ /* Ieee/fixnum.scm 1843 */
BgL_pairz00_3157 = BgL_xsz00_1218; }  else 
{ 
 obj_t BgL_auxz00_13101;
BgL_auxz00_13101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89147L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1218); 
FAILURE(BgL_auxz00_13101,BFALSE,BFALSE);} 
BgL_xsz00_13098 = 
CDR(BgL_pairz00_3157); } 
BgL_xsz00_1218 = BgL_xsz00_13098; 
goto BgL_zc3z04anonymousza31508ze3z87_1219;} } 
if(
BGL_INT16P(BgL_aux3425z00_7537))
{ /* Ieee/fixnum.scm 1843 */
BgL_tmpz00_13054 = BgL_aux3425z00_7537
; }  else 
{ 
 obj_t BgL_auxz00_13109;
BgL_auxz00_13109 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89147L), BGl_string4772z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3425z00_7537); 
FAILURE(BgL_auxz00_13109,BFALSE,BFALSE);} } 
return 
BGL_BINT16_TO_INT16(BgL_tmpz00_13054);} } } 

}



/* &maxs16 */
obj_t BGl_z62maxs16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6381, obj_t BgL_n1z00_6382, obj_t BgL_nnz00_6383)
{
{ /* Ieee/fixnum.scm 1843 */
{ /* Ieee/fixnum.scm 1843 */
 int16_t BgL_tmpz00_13114;
{ /* Ieee/fixnum.scm 1843 */
 int16_t BgL_auxz00_13115;
{ /* Ieee/fixnum.scm 1843 */
 obj_t BgL_tmpz00_13116;
if(
BGL_INT16P(BgL_n1z00_6382))
{ /* Ieee/fixnum.scm 1843 */
BgL_tmpz00_13116 = BgL_n1z00_6382
; }  else 
{ 
 obj_t BgL_auxz00_13119;
BgL_auxz00_13119 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89147L), BGl_string4773z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6382); 
FAILURE(BgL_auxz00_13119,BFALSE,BFALSE);} 
BgL_auxz00_13115 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_13116); } 
BgL_tmpz00_13114 = 
BGl_maxs16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13115, BgL_nnz00_6383); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_13114);} } 

}



/* maxu16 */
BGL_EXPORTED_DEF uint16_t BGl_maxu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_292, obj_t BgL_nnz00_293)
{
{ /* Ieee/fixnum.scm 1844 */
{ 
 obj_t BgL_yz00_1229; obj_t BgL_xsz00_1230;
{ /* Ieee/fixnum.scm 1844 */
 obj_t BgL_tmpz00_13126;
{ /* Ieee/fixnum.scm 1844 */
 obj_t BgL_aux3441z00_7553;
BgL_yz00_1229 = 
BGL_UINT16_TO_BUINT16(BgL_n1z00_292); 
BgL_xsz00_1230 = BgL_nnz00_293; 
BgL_zc3z04anonymousza31520ze3z87_1231:
if(
NULLP(BgL_xsz00_1230))
{ /* Ieee/fixnum.scm 1844 */
BgL_aux3441z00_7553 = BgL_yz00_1229; }  else 
{ /* Ieee/fixnum.scm 1844 */
 bool_t BgL_test6276z00_13129;
{ /* Ieee/fixnum.scm 1844 */
 uint16_t BgL_n1z00_3159; uint16_t BgL_n2z00_3160;
{ /* Ieee/fixnum.scm 1844 */
 obj_t BgL_pairz00_3158;
if(
PAIRP(BgL_xsz00_1230))
{ /* Ieee/fixnum.scm 1844 */
BgL_pairz00_3158 = BgL_xsz00_1230; }  else 
{ 
 obj_t BgL_auxz00_13132;
BgL_auxz00_13132 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89196L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1230); 
FAILURE(BgL_auxz00_13132,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1844 */
 obj_t BgL_tmpz00_13136;
{ /* Ieee/fixnum.scm 1844 */
 obj_t BgL_aux3431z00_7543;
BgL_aux3431z00_7543 = 
CAR(BgL_pairz00_3158); 
if(
BGL_UINT16P(BgL_aux3431z00_7543))
{ /* Ieee/fixnum.scm 1844 */
BgL_tmpz00_13136 = BgL_aux3431z00_7543
; }  else 
{ 
 obj_t BgL_auxz00_13140;
BgL_auxz00_13140 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89196L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3431z00_7543); 
FAILURE(BgL_auxz00_13140,BFALSE,BFALSE);} } 
BgL_n1z00_3159 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_13136); } } 
{ /* Ieee/fixnum.scm 1844 */
 obj_t BgL_tmpz00_13145;
if(
BGL_UINT16P(BgL_yz00_1229))
{ /* Ieee/fixnum.scm 1844 */
BgL_tmpz00_13145 = BgL_yz00_1229
; }  else 
{ 
 obj_t BgL_auxz00_13148;
BgL_auxz00_13148 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89196L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1229); 
FAILURE(BgL_auxz00_13148,BFALSE,BFALSE);} 
BgL_n2z00_3160 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_13145); } 
BgL_test6276z00_13129 = 
(BgL_n1z00_3159>BgL_n2z00_3160); } 
if(BgL_test6276z00_13129)
{ 
 obj_t BgL_xsz00_13162; obj_t BgL_yz00_13154;
{ /* Ieee/fixnum.scm 1844 */
 obj_t BgL_pairz00_3161;
if(
PAIRP(BgL_xsz00_1230))
{ /* Ieee/fixnum.scm 1844 */
BgL_pairz00_3161 = BgL_xsz00_1230; }  else 
{ 
 obj_t BgL_auxz00_13157;
BgL_auxz00_13157 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89196L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1230); 
FAILURE(BgL_auxz00_13157,BFALSE,BFALSE);} 
BgL_yz00_13154 = 
CAR(BgL_pairz00_3161); } 
{ /* Ieee/fixnum.scm 1844 */
 obj_t BgL_pairz00_3162;
if(
PAIRP(BgL_xsz00_1230))
{ /* Ieee/fixnum.scm 1844 */
BgL_pairz00_3162 = BgL_xsz00_1230; }  else 
{ 
 obj_t BgL_auxz00_13165;
BgL_auxz00_13165 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89196L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1230); 
FAILURE(BgL_auxz00_13165,BFALSE,BFALSE);} 
BgL_xsz00_13162 = 
CDR(BgL_pairz00_3162); } 
BgL_xsz00_1230 = BgL_xsz00_13162; 
BgL_yz00_1229 = BgL_yz00_13154; 
goto BgL_zc3z04anonymousza31520ze3z87_1231;}  else 
{ 
 obj_t BgL_xsz00_13170;
{ /* Ieee/fixnum.scm 1844 */
 obj_t BgL_pairz00_3163;
if(
PAIRP(BgL_xsz00_1230))
{ /* Ieee/fixnum.scm 1844 */
BgL_pairz00_3163 = BgL_xsz00_1230; }  else 
{ 
 obj_t BgL_auxz00_13173;
BgL_auxz00_13173 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89196L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1230); 
FAILURE(BgL_auxz00_13173,BFALSE,BFALSE);} 
BgL_xsz00_13170 = 
CDR(BgL_pairz00_3163); } 
BgL_xsz00_1230 = BgL_xsz00_13170; 
goto BgL_zc3z04anonymousza31520ze3z87_1231;} } 
if(
BGL_UINT16P(BgL_aux3441z00_7553))
{ /* Ieee/fixnum.scm 1844 */
BgL_tmpz00_13126 = BgL_aux3441z00_7553
; }  else 
{ 
 obj_t BgL_auxz00_13181;
BgL_auxz00_13181 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89196L), BGl_string4774z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3441z00_7553); 
FAILURE(BgL_auxz00_13181,BFALSE,BFALSE);} } 
return 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_13126);} } } 

}



/* &maxu16 */
obj_t BGl_z62maxu16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6384, obj_t BgL_n1z00_6385, obj_t BgL_nnz00_6386)
{
{ /* Ieee/fixnum.scm 1844 */
{ /* Ieee/fixnum.scm 1844 */
 uint16_t BgL_tmpz00_13186;
{ /* Ieee/fixnum.scm 1844 */
 uint16_t BgL_auxz00_13187;
{ /* Ieee/fixnum.scm 1844 */
 obj_t BgL_tmpz00_13188;
if(
BGL_UINT16P(BgL_n1z00_6385))
{ /* Ieee/fixnum.scm 1844 */
BgL_tmpz00_13188 = BgL_n1z00_6385
; }  else 
{ 
 obj_t BgL_auxz00_13191;
BgL_auxz00_13191 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89196L), BGl_string4775z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6385); 
FAILURE(BgL_auxz00_13191,BFALSE,BFALSE);} 
BgL_auxz00_13187 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_13188); } 
BgL_tmpz00_13186 = 
BGl_maxu16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13187, BgL_nnz00_6386); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_13186);} } 

}



/* maxs32 */
BGL_EXPORTED_DEF int32_t BGl_maxs32z00zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_294, obj_t BgL_nnz00_295)
{
{ /* Ieee/fixnum.scm 1846 */
{ 
 obj_t BgL_yz00_1241; obj_t BgL_xsz00_1242;
{ /* Ieee/fixnum.scm 1846 */
 obj_t BgL_tmpz00_13198;
{ /* Ieee/fixnum.scm 1846 */
 obj_t BgL_aux3457z00_7569;
BgL_yz00_1241 = 
BGL_INT32_TO_BINT32(BgL_n1z00_294); 
BgL_xsz00_1242 = BgL_nnz00_295; 
BgL_zc3z04anonymousza31529ze3z87_1243:
if(
NULLP(BgL_xsz00_1242))
{ /* Ieee/fixnum.scm 1846 */
BgL_aux3457z00_7569 = BgL_yz00_1241; }  else 
{ /* Ieee/fixnum.scm 1846 */
 bool_t BgL_test6286z00_13201;
{ /* Ieee/fixnum.scm 1846 */
 int32_t BgL_n1z00_3165; int32_t BgL_n2z00_3166;
{ /* Ieee/fixnum.scm 1846 */
 obj_t BgL_pairz00_3164;
if(
PAIRP(BgL_xsz00_1242))
{ /* Ieee/fixnum.scm 1846 */
BgL_pairz00_3164 = BgL_xsz00_1242; }  else 
{ 
 obj_t BgL_auxz00_13204;
BgL_auxz00_13204 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89249L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1242); 
FAILURE(BgL_auxz00_13204,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1846 */
 obj_t BgL_tmpz00_13208;
{ /* Ieee/fixnum.scm 1846 */
 obj_t BgL_aux3447z00_7559;
BgL_aux3447z00_7559 = 
CAR(BgL_pairz00_3164); 
if(
BGL_INT32P(BgL_aux3447z00_7559))
{ /* Ieee/fixnum.scm 1846 */
BgL_tmpz00_13208 = BgL_aux3447z00_7559
; }  else 
{ 
 obj_t BgL_auxz00_13212;
BgL_auxz00_13212 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89249L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3447z00_7559); 
FAILURE(BgL_auxz00_13212,BFALSE,BFALSE);} } 
BgL_n1z00_3165 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_13208); } } 
{ /* Ieee/fixnum.scm 1846 */
 obj_t BgL_tmpz00_13217;
if(
BGL_INT32P(BgL_yz00_1241))
{ /* Ieee/fixnum.scm 1846 */
BgL_tmpz00_13217 = BgL_yz00_1241
; }  else 
{ 
 obj_t BgL_auxz00_13220;
BgL_auxz00_13220 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89249L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1241); 
FAILURE(BgL_auxz00_13220,BFALSE,BFALSE);} 
BgL_n2z00_3166 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_13217); } 
BgL_test6286z00_13201 = 
(BgL_n1z00_3165>BgL_n2z00_3166); } 
if(BgL_test6286z00_13201)
{ 
 obj_t BgL_xsz00_13234; obj_t BgL_yz00_13226;
{ /* Ieee/fixnum.scm 1846 */
 obj_t BgL_pairz00_3167;
if(
PAIRP(BgL_xsz00_1242))
{ /* Ieee/fixnum.scm 1846 */
BgL_pairz00_3167 = BgL_xsz00_1242; }  else 
{ 
 obj_t BgL_auxz00_13229;
BgL_auxz00_13229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89249L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1242); 
FAILURE(BgL_auxz00_13229,BFALSE,BFALSE);} 
BgL_yz00_13226 = 
CAR(BgL_pairz00_3167); } 
{ /* Ieee/fixnum.scm 1846 */
 obj_t BgL_pairz00_3168;
if(
PAIRP(BgL_xsz00_1242))
{ /* Ieee/fixnum.scm 1846 */
BgL_pairz00_3168 = BgL_xsz00_1242; }  else 
{ 
 obj_t BgL_auxz00_13237;
BgL_auxz00_13237 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89249L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1242); 
FAILURE(BgL_auxz00_13237,BFALSE,BFALSE);} 
BgL_xsz00_13234 = 
CDR(BgL_pairz00_3168); } 
BgL_xsz00_1242 = BgL_xsz00_13234; 
BgL_yz00_1241 = BgL_yz00_13226; 
goto BgL_zc3z04anonymousza31529ze3z87_1243;}  else 
{ 
 obj_t BgL_xsz00_13242;
{ /* Ieee/fixnum.scm 1846 */
 obj_t BgL_pairz00_3169;
if(
PAIRP(BgL_xsz00_1242))
{ /* Ieee/fixnum.scm 1846 */
BgL_pairz00_3169 = BgL_xsz00_1242; }  else 
{ 
 obj_t BgL_auxz00_13245;
BgL_auxz00_13245 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89249L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1242); 
FAILURE(BgL_auxz00_13245,BFALSE,BFALSE);} 
BgL_xsz00_13242 = 
CDR(BgL_pairz00_3169); } 
BgL_xsz00_1242 = BgL_xsz00_13242; 
goto BgL_zc3z04anonymousza31529ze3z87_1243;} } 
if(
BGL_INT32P(BgL_aux3457z00_7569))
{ /* Ieee/fixnum.scm 1846 */
BgL_tmpz00_13198 = BgL_aux3457z00_7569
; }  else 
{ 
 obj_t BgL_auxz00_13253;
BgL_auxz00_13253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89249L), BGl_string4776z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3457z00_7569); 
FAILURE(BgL_auxz00_13253,BFALSE,BFALSE);} } 
return 
BGL_BINT32_TO_INT32(BgL_tmpz00_13198);} } } 

}



/* &maxs32 */
obj_t BGl_z62maxs32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6387, obj_t BgL_n1z00_6388, obj_t BgL_nnz00_6389)
{
{ /* Ieee/fixnum.scm 1846 */
{ /* Ieee/fixnum.scm 1846 */
 int32_t BgL_tmpz00_13258;
{ /* Ieee/fixnum.scm 1846 */
 int32_t BgL_auxz00_13259;
{ /* Ieee/fixnum.scm 1846 */
 obj_t BgL_tmpz00_13260;
if(
BGL_INT32P(BgL_n1z00_6388))
{ /* Ieee/fixnum.scm 1846 */
BgL_tmpz00_13260 = BgL_n1z00_6388
; }  else 
{ 
 obj_t BgL_auxz00_13263;
BgL_auxz00_13263 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89249L), BGl_string4777z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6388); 
FAILURE(BgL_auxz00_13263,BFALSE,BFALSE);} 
BgL_auxz00_13259 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_13260); } 
BgL_tmpz00_13258 = 
BGl_maxs32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13259, BgL_nnz00_6389); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_13258);} } 

}



/* maxu32 */
BGL_EXPORTED_DEF uint32_t BGl_maxu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_296, obj_t BgL_nnz00_297)
{
{ /* Ieee/fixnum.scm 1847 */
{ 
 obj_t BgL_yz00_1253; obj_t BgL_xsz00_1254;
{ /* Ieee/fixnum.scm 1847 */
 obj_t BgL_tmpz00_13270;
{ /* Ieee/fixnum.scm 1847 */
 obj_t BgL_aux3473z00_7585;
BgL_yz00_1253 = 
BGL_UINT32_TO_BUINT32(BgL_n1z00_296); 
BgL_xsz00_1254 = BgL_nnz00_297; 
BgL_zc3z04anonymousza31542ze3z87_1255:
if(
NULLP(BgL_xsz00_1254))
{ /* Ieee/fixnum.scm 1847 */
BgL_aux3473z00_7585 = BgL_yz00_1253; }  else 
{ /* Ieee/fixnum.scm 1847 */
 bool_t BgL_test6296z00_13273;
{ /* Ieee/fixnum.scm 1847 */
 uint32_t BgL_n1z00_3171; uint32_t BgL_n2z00_3172;
{ /* Ieee/fixnum.scm 1847 */
 obj_t BgL_pairz00_3170;
if(
PAIRP(BgL_xsz00_1254))
{ /* Ieee/fixnum.scm 1847 */
BgL_pairz00_3170 = BgL_xsz00_1254; }  else 
{ 
 obj_t BgL_auxz00_13276;
BgL_auxz00_13276 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89298L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1254); 
FAILURE(BgL_auxz00_13276,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1847 */
 obj_t BgL_tmpz00_13280;
{ /* Ieee/fixnum.scm 1847 */
 obj_t BgL_aux3463z00_7575;
BgL_aux3463z00_7575 = 
CAR(BgL_pairz00_3170); 
if(
BGL_UINT32P(BgL_aux3463z00_7575))
{ /* Ieee/fixnum.scm 1847 */
BgL_tmpz00_13280 = BgL_aux3463z00_7575
; }  else 
{ 
 obj_t BgL_auxz00_13284;
BgL_auxz00_13284 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89298L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3463z00_7575); 
FAILURE(BgL_auxz00_13284,BFALSE,BFALSE);} } 
BgL_n1z00_3171 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_13280); } } 
{ /* Ieee/fixnum.scm 1847 */
 obj_t BgL_tmpz00_13289;
if(
BGL_UINT32P(BgL_yz00_1253))
{ /* Ieee/fixnum.scm 1847 */
BgL_tmpz00_13289 = BgL_yz00_1253
; }  else 
{ 
 obj_t BgL_auxz00_13292;
BgL_auxz00_13292 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89298L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1253); 
FAILURE(BgL_auxz00_13292,BFALSE,BFALSE);} 
BgL_n2z00_3172 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_13289); } 
BgL_test6296z00_13273 = 
(BgL_n1z00_3171>BgL_n2z00_3172); } 
if(BgL_test6296z00_13273)
{ 
 obj_t BgL_xsz00_13306; obj_t BgL_yz00_13298;
{ /* Ieee/fixnum.scm 1847 */
 obj_t BgL_pairz00_3173;
if(
PAIRP(BgL_xsz00_1254))
{ /* Ieee/fixnum.scm 1847 */
BgL_pairz00_3173 = BgL_xsz00_1254; }  else 
{ 
 obj_t BgL_auxz00_13301;
BgL_auxz00_13301 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89298L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1254); 
FAILURE(BgL_auxz00_13301,BFALSE,BFALSE);} 
BgL_yz00_13298 = 
CAR(BgL_pairz00_3173); } 
{ /* Ieee/fixnum.scm 1847 */
 obj_t BgL_pairz00_3174;
if(
PAIRP(BgL_xsz00_1254))
{ /* Ieee/fixnum.scm 1847 */
BgL_pairz00_3174 = BgL_xsz00_1254; }  else 
{ 
 obj_t BgL_auxz00_13309;
BgL_auxz00_13309 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89298L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1254); 
FAILURE(BgL_auxz00_13309,BFALSE,BFALSE);} 
BgL_xsz00_13306 = 
CDR(BgL_pairz00_3174); } 
BgL_xsz00_1254 = BgL_xsz00_13306; 
BgL_yz00_1253 = BgL_yz00_13298; 
goto BgL_zc3z04anonymousza31542ze3z87_1255;}  else 
{ 
 obj_t BgL_xsz00_13314;
{ /* Ieee/fixnum.scm 1847 */
 obj_t BgL_pairz00_3175;
if(
PAIRP(BgL_xsz00_1254))
{ /* Ieee/fixnum.scm 1847 */
BgL_pairz00_3175 = BgL_xsz00_1254; }  else 
{ 
 obj_t BgL_auxz00_13317;
BgL_auxz00_13317 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89298L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1254); 
FAILURE(BgL_auxz00_13317,BFALSE,BFALSE);} 
BgL_xsz00_13314 = 
CDR(BgL_pairz00_3175); } 
BgL_xsz00_1254 = BgL_xsz00_13314; 
goto BgL_zc3z04anonymousza31542ze3z87_1255;} } 
if(
BGL_UINT32P(BgL_aux3473z00_7585))
{ /* Ieee/fixnum.scm 1847 */
BgL_tmpz00_13270 = BgL_aux3473z00_7585
; }  else 
{ 
 obj_t BgL_auxz00_13325;
BgL_auxz00_13325 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89298L), BGl_string4778z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3473z00_7585); 
FAILURE(BgL_auxz00_13325,BFALSE,BFALSE);} } 
return 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_13270);} } } 

}



/* &maxu32 */
obj_t BGl_z62maxu32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6390, obj_t BgL_n1z00_6391, obj_t BgL_nnz00_6392)
{
{ /* Ieee/fixnum.scm 1847 */
{ /* Ieee/fixnum.scm 1847 */
 uint32_t BgL_tmpz00_13330;
{ /* Ieee/fixnum.scm 1847 */
 uint32_t BgL_auxz00_13331;
{ /* Ieee/fixnum.scm 1847 */
 obj_t BgL_tmpz00_13332;
if(
BGL_UINT32P(BgL_n1z00_6391))
{ /* Ieee/fixnum.scm 1847 */
BgL_tmpz00_13332 = BgL_n1z00_6391
; }  else 
{ 
 obj_t BgL_auxz00_13335;
BgL_auxz00_13335 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89298L), BGl_string4779z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6391); 
FAILURE(BgL_auxz00_13335,BFALSE,BFALSE);} 
BgL_auxz00_13331 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_13332); } 
BgL_tmpz00_13330 = 
BGl_maxu32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13331, BgL_nnz00_6392); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_13330);} } 

}



/* maxs64 */
BGL_EXPORTED_DEF int64_t BGl_maxs64z00zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_298, obj_t BgL_nnz00_299)
{
{ /* Ieee/fixnum.scm 1849 */
{ 
 obj_t BgL_yz00_1265; obj_t BgL_xsz00_1266;
{ /* Ieee/fixnum.scm 1849 */
 obj_t BgL_tmpz00_13342;
{ /* Ieee/fixnum.scm 1849 */
 obj_t BgL_aux3489z00_7601;
BgL_yz00_1265 = 
BGL_INT64_TO_BINT64(BgL_n1z00_298); 
BgL_xsz00_1266 = BgL_nnz00_299; 
BgL_zc3z04anonymousza31551ze3z87_1267:
if(
NULLP(BgL_xsz00_1266))
{ /* Ieee/fixnum.scm 1849 */
BgL_aux3489z00_7601 = BgL_yz00_1265; }  else 
{ /* Ieee/fixnum.scm 1849 */
 bool_t BgL_test6306z00_13345;
{ /* Ieee/fixnum.scm 1849 */
 int64_t BgL_n1z00_3177; int64_t BgL_n2z00_3178;
{ /* Ieee/fixnum.scm 1849 */
 obj_t BgL_pairz00_3176;
if(
PAIRP(BgL_xsz00_1266))
{ /* Ieee/fixnum.scm 1849 */
BgL_pairz00_3176 = BgL_xsz00_1266; }  else 
{ 
 obj_t BgL_auxz00_13348;
BgL_auxz00_13348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89351L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1266); 
FAILURE(BgL_auxz00_13348,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1849 */
 obj_t BgL_tmpz00_13352;
{ /* Ieee/fixnum.scm 1849 */
 obj_t BgL_aux3479z00_7591;
BgL_aux3479z00_7591 = 
CAR(BgL_pairz00_3176); 
if(
BGL_INT64P(BgL_aux3479z00_7591))
{ /* Ieee/fixnum.scm 1849 */
BgL_tmpz00_13352 = BgL_aux3479z00_7591
; }  else 
{ 
 obj_t BgL_auxz00_13356;
BgL_auxz00_13356 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89351L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3479z00_7591); 
FAILURE(BgL_auxz00_13356,BFALSE,BFALSE);} } 
BgL_n1z00_3177 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_13352); } } 
{ /* Ieee/fixnum.scm 1849 */
 obj_t BgL_tmpz00_13361;
if(
BGL_INT64P(BgL_yz00_1265))
{ /* Ieee/fixnum.scm 1849 */
BgL_tmpz00_13361 = BgL_yz00_1265
; }  else 
{ 
 obj_t BgL_auxz00_13364;
BgL_auxz00_13364 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89351L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1265); 
FAILURE(BgL_auxz00_13364,BFALSE,BFALSE);} 
BgL_n2z00_3178 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_13361); } 
BgL_test6306z00_13345 = 
(BgL_n1z00_3177>BgL_n2z00_3178); } 
if(BgL_test6306z00_13345)
{ 
 obj_t BgL_xsz00_13378; obj_t BgL_yz00_13370;
{ /* Ieee/fixnum.scm 1849 */
 obj_t BgL_pairz00_3179;
if(
PAIRP(BgL_xsz00_1266))
{ /* Ieee/fixnum.scm 1849 */
BgL_pairz00_3179 = BgL_xsz00_1266; }  else 
{ 
 obj_t BgL_auxz00_13373;
BgL_auxz00_13373 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89351L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1266); 
FAILURE(BgL_auxz00_13373,BFALSE,BFALSE);} 
BgL_yz00_13370 = 
CAR(BgL_pairz00_3179); } 
{ /* Ieee/fixnum.scm 1849 */
 obj_t BgL_pairz00_3180;
if(
PAIRP(BgL_xsz00_1266))
{ /* Ieee/fixnum.scm 1849 */
BgL_pairz00_3180 = BgL_xsz00_1266; }  else 
{ 
 obj_t BgL_auxz00_13381;
BgL_auxz00_13381 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89351L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1266); 
FAILURE(BgL_auxz00_13381,BFALSE,BFALSE);} 
BgL_xsz00_13378 = 
CDR(BgL_pairz00_3180); } 
BgL_xsz00_1266 = BgL_xsz00_13378; 
BgL_yz00_1265 = BgL_yz00_13370; 
goto BgL_zc3z04anonymousza31551ze3z87_1267;}  else 
{ 
 obj_t BgL_xsz00_13386;
{ /* Ieee/fixnum.scm 1849 */
 obj_t BgL_pairz00_3181;
if(
PAIRP(BgL_xsz00_1266))
{ /* Ieee/fixnum.scm 1849 */
BgL_pairz00_3181 = BgL_xsz00_1266; }  else 
{ 
 obj_t BgL_auxz00_13389;
BgL_auxz00_13389 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89351L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1266); 
FAILURE(BgL_auxz00_13389,BFALSE,BFALSE);} 
BgL_xsz00_13386 = 
CDR(BgL_pairz00_3181); } 
BgL_xsz00_1266 = BgL_xsz00_13386; 
goto BgL_zc3z04anonymousza31551ze3z87_1267;} } 
if(
BGL_INT64P(BgL_aux3489z00_7601))
{ /* Ieee/fixnum.scm 1849 */
BgL_tmpz00_13342 = BgL_aux3489z00_7601
; }  else 
{ 
 obj_t BgL_auxz00_13397;
BgL_auxz00_13397 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89351L), BGl_string4780z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3489z00_7601); 
FAILURE(BgL_auxz00_13397,BFALSE,BFALSE);} } 
return 
BGL_BINT64_TO_INT64(BgL_tmpz00_13342);} } } 

}



/* &maxs64 */
obj_t BGl_z62maxs64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6393, obj_t BgL_n1z00_6394, obj_t BgL_nnz00_6395)
{
{ /* Ieee/fixnum.scm 1849 */
{ /* Ieee/fixnum.scm 1849 */
 int64_t BgL_tmpz00_13402;
{ /* Ieee/fixnum.scm 1849 */
 int64_t BgL_auxz00_13403;
{ /* Ieee/fixnum.scm 1849 */
 obj_t BgL_tmpz00_13404;
if(
BGL_INT64P(BgL_n1z00_6394))
{ /* Ieee/fixnum.scm 1849 */
BgL_tmpz00_13404 = BgL_n1z00_6394
; }  else 
{ 
 obj_t BgL_auxz00_13407;
BgL_auxz00_13407 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89351L), BGl_string4781z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6394); 
FAILURE(BgL_auxz00_13407,BFALSE,BFALSE);} 
BgL_auxz00_13403 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_13404); } 
BgL_tmpz00_13402 = 
BGl_maxs64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13403, BgL_nnz00_6395); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_13402);} } 

}



/* maxu64 */
BGL_EXPORTED_DEF uint64_t BGl_maxu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_300, obj_t BgL_nnz00_301)
{
{ /* Ieee/fixnum.scm 1850 */
{ 
 obj_t BgL_yz00_1277; obj_t BgL_xsz00_1278;
{ /* Ieee/fixnum.scm 1850 */
 obj_t BgL_tmpz00_13414;
{ /* Ieee/fixnum.scm 1850 */
 obj_t BgL_aux3505z00_7617;
BgL_yz00_1277 = 
BGL_UINT64_TO_BUINT64(BgL_n1z00_300); 
BgL_xsz00_1278 = BgL_nnz00_301; 
BgL_zc3z04anonymousza31559ze3z87_1279:
if(
NULLP(BgL_xsz00_1278))
{ /* Ieee/fixnum.scm 1850 */
BgL_aux3505z00_7617 = BgL_yz00_1277; }  else 
{ /* Ieee/fixnum.scm 1850 */
 bool_t BgL_test6316z00_13417;
{ /* Ieee/fixnum.scm 1850 */
 uint64_t BgL_n1z00_3183; uint64_t BgL_n2z00_3184;
{ /* Ieee/fixnum.scm 1850 */
 obj_t BgL_pairz00_3182;
if(
PAIRP(BgL_xsz00_1278))
{ /* Ieee/fixnum.scm 1850 */
BgL_pairz00_3182 = BgL_xsz00_1278; }  else 
{ 
 obj_t BgL_auxz00_13420;
BgL_auxz00_13420 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89400L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1278); 
FAILURE(BgL_auxz00_13420,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1850 */
 obj_t BgL_tmpz00_13424;
{ /* Ieee/fixnum.scm 1850 */
 obj_t BgL_aux3495z00_7607;
BgL_aux3495z00_7607 = 
CAR(BgL_pairz00_3182); 
if(
BGL_UINT64P(BgL_aux3495z00_7607))
{ /* Ieee/fixnum.scm 1850 */
BgL_tmpz00_13424 = BgL_aux3495z00_7607
; }  else 
{ 
 obj_t BgL_auxz00_13428;
BgL_auxz00_13428 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89400L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3495z00_7607); 
FAILURE(BgL_auxz00_13428,BFALSE,BFALSE);} } 
BgL_n1z00_3183 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_13424); } } 
{ /* Ieee/fixnum.scm 1850 */
 obj_t BgL_tmpz00_13433;
if(
BGL_UINT64P(BgL_yz00_1277))
{ /* Ieee/fixnum.scm 1850 */
BgL_tmpz00_13433 = BgL_yz00_1277
; }  else 
{ 
 obj_t BgL_auxz00_13436;
BgL_auxz00_13436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89400L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1277); 
FAILURE(BgL_auxz00_13436,BFALSE,BFALSE);} 
BgL_n2z00_3184 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_13433); } 
BgL_test6316z00_13417 = 
(BgL_n1z00_3183>BgL_n2z00_3184); } 
if(BgL_test6316z00_13417)
{ 
 obj_t BgL_xsz00_13450; obj_t BgL_yz00_13442;
{ /* Ieee/fixnum.scm 1850 */
 obj_t BgL_pairz00_3185;
if(
PAIRP(BgL_xsz00_1278))
{ /* Ieee/fixnum.scm 1850 */
BgL_pairz00_3185 = BgL_xsz00_1278; }  else 
{ 
 obj_t BgL_auxz00_13445;
BgL_auxz00_13445 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89400L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1278); 
FAILURE(BgL_auxz00_13445,BFALSE,BFALSE);} 
BgL_yz00_13442 = 
CAR(BgL_pairz00_3185); } 
{ /* Ieee/fixnum.scm 1850 */
 obj_t BgL_pairz00_3186;
if(
PAIRP(BgL_xsz00_1278))
{ /* Ieee/fixnum.scm 1850 */
BgL_pairz00_3186 = BgL_xsz00_1278; }  else 
{ 
 obj_t BgL_auxz00_13453;
BgL_auxz00_13453 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89400L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1278); 
FAILURE(BgL_auxz00_13453,BFALSE,BFALSE);} 
BgL_xsz00_13450 = 
CDR(BgL_pairz00_3186); } 
BgL_xsz00_1278 = BgL_xsz00_13450; 
BgL_yz00_1277 = BgL_yz00_13442; 
goto BgL_zc3z04anonymousza31559ze3z87_1279;}  else 
{ 
 obj_t BgL_xsz00_13458;
{ /* Ieee/fixnum.scm 1850 */
 obj_t BgL_pairz00_3187;
if(
PAIRP(BgL_xsz00_1278))
{ /* Ieee/fixnum.scm 1850 */
BgL_pairz00_3187 = BgL_xsz00_1278; }  else 
{ 
 obj_t BgL_auxz00_13461;
BgL_auxz00_13461 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89400L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1278); 
FAILURE(BgL_auxz00_13461,BFALSE,BFALSE);} 
BgL_xsz00_13458 = 
CDR(BgL_pairz00_3187); } 
BgL_xsz00_1278 = BgL_xsz00_13458; 
goto BgL_zc3z04anonymousza31559ze3z87_1279;} } 
if(
BGL_UINT64P(BgL_aux3505z00_7617))
{ /* Ieee/fixnum.scm 1850 */
BgL_tmpz00_13414 = BgL_aux3505z00_7617
; }  else 
{ 
 obj_t BgL_auxz00_13469;
BgL_auxz00_13469 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89400L), BGl_string4782z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3505z00_7617); 
FAILURE(BgL_auxz00_13469,BFALSE,BFALSE);} } 
return 
BGL_BINT64_TO_INT64(BgL_tmpz00_13414);} } } 

}



/* &maxu64 */
obj_t BGl_z62maxu64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6396, obj_t BgL_n1z00_6397, obj_t BgL_nnz00_6398)
{
{ /* Ieee/fixnum.scm 1850 */
{ /* Ieee/fixnum.scm 1850 */
 uint64_t BgL_tmpz00_13474;
{ /* Ieee/fixnum.scm 1850 */
 uint64_t BgL_auxz00_13475;
{ /* Ieee/fixnum.scm 1850 */
 obj_t BgL_tmpz00_13476;
if(
BGL_UINT64P(BgL_n1z00_6397))
{ /* Ieee/fixnum.scm 1850 */
BgL_tmpz00_13476 = BgL_n1z00_6397
; }  else 
{ 
 obj_t BgL_auxz00_13479;
BgL_auxz00_13479 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89400L), BGl_string4783z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6397); 
FAILURE(BgL_auxz00_13479,BFALSE,BFALSE);} 
BgL_auxz00_13475 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_13476); } 
BgL_tmpz00_13474 = 
BGl_maxu64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13475, BgL_nnz00_6398); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_13474);} } 

}



/* maxbx */
BGL_EXPORTED_DEF obj_t BGl_maxbxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_302, obj_t BgL_nnz00_303)
{
{ /* Ieee/fixnum.scm 1852 */
{ 
 obj_t BgL_yz00_1289; obj_t BgL_xsz00_1290;
{ /* Ieee/fixnum.scm 1852 */
 obj_t BgL_aux3521z00_7633;
BgL_yz00_1289 = BgL_n1z00_302; 
BgL_xsz00_1290 = BgL_nnz00_303; 
BgL_zc3z04anonymousza31570ze3z87_1291:
if(
NULLP(BgL_xsz00_1290))
{ /* Ieee/fixnum.scm 1852 */
BgL_aux3521z00_7633 = BgL_yz00_1289; }  else 
{ /* Ieee/fixnum.scm 1852 */
 bool_t BgL_test6326z00_13488;
{ /* Ieee/fixnum.scm 1852 */
 obj_t BgL_n1z00_3189; obj_t BgL_n2z00_3190;
{ /* Ieee/fixnum.scm 1852 */
 obj_t BgL_pairz00_3188;
if(
PAIRP(BgL_xsz00_1290))
{ /* Ieee/fixnum.scm 1852 */
BgL_pairz00_3188 = BgL_xsz00_1290; }  else 
{ 
 obj_t BgL_auxz00_13491;
BgL_auxz00_13491 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89452L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1290); 
FAILURE(BgL_auxz00_13491,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 1852 */
 obj_t BgL_aux3511z00_7623;
BgL_aux3511z00_7623 = 
CAR(BgL_pairz00_3188); 
if(
BIGNUMP(BgL_aux3511z00_7623))
{ /* Ieee/fixnum.scm 1852 */
BgL_n1z00_3189 = BgL_aux3511z00_7623; }  else 
{ 
 obj_t BgL_auxz00_13498;
BgL_auxz00_13498 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89452L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3511z00_7623); 
FAILURE(BgL_auxz00_13498,BFALSE,BFALSE);} } } 
if(
BIGNUMP(BgL_yz00_1289))
{ /* Ieee/fixnum.scm 1852 */
BgL_n2z00_3190 = BgL_yz00_1289; }  else 
{ 
 obj_t BgL_auxz00_13504;
BgL_auxz00_13504 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89452L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_1289); 
FAILURE(BgL_auxz00_13504,BFALSE,BFALSE);} 
BgL_test6326z00_13488 = 
(
(long)(
bgl_bignum_cmp(BgL_n1z00_3189, BgL_n2z00_3190))>0L); } 
if(BgL_test6326z00_13488)
{ 
 obj_t BgL_xsz00_13519; obj_t BgL_yz00_13511;
{ /* Ieee/fixnum.scm 1852 */
 obj_t BgL_pairz00_3193;
if(
PAIRP(BgL_xsz00_1290))
{ /* Ieee/fixnum.scm 1852 */
BgL_pairz00_3193 = BgL_xsz00_1290; }  else 
{ 
 obj_t BgL_auxz00_13514;
BgL_auxz00_13514 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89452L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1290); 
FAILURE(BgL_auxz00_13514,BFALSE,BFALSE);} 
BgL_yz00_13511 = 
CAR(BgL_pairz00_3193); } 
{ /* Ieee/fixnum.scm 1852 */
 obj_t BgL_pairz00_3194;
if(
PAIRP(BgL_xsz00_1290))
{ /* Ieee/fixnum.scm 1852 */
BgL_pairz00_3194 = BgL_xsz00_1290; }  else 
{ 
 obj_t BgL_auxz00_13522;
BgL_auxz00_13522 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89452L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1290); 
FAILURE(BgL_auxz00_13522,BFALSE,BFALSE);} 
BgL_xsz00_13519 = 
CDR(BgL_pairz00_3194); } 
BgL_xsz00_1290 = BgL_xsz00_13519; 
BgL_yz00_1289 = BgL_yz00_13511; 
goto BgL_zc3z04anonymousza31570ze3z87_1291;}  else 
{ 
 obj_t BgL_xsz00_13527;
{ /* Ieee/fixnum.scm 1852 */
 obj_t BgL_pairz00_3195;
if(
PAIRP(BgL_xsz00_1290))
{ /* Ieee/fixnum.scm 1852 */
BgL_pairz00_3195 = BgL_xsz00_1290; }  else 
{ 
 obj_t BgL_auxz00_13530;
BgL_auxz00_13530 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89452L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xsz00_1290); 
FAILURE(BgL_auxz00_13530,BFALSE,BFALSE);} 
BgL_xsz00_13527 = 
CDR(BgL_pairz00_3195); } 
BgL_xsz00_1290 = BgL_xsz00_13527; 
goto BgL_zc3z04anonymousza31570ze3z87_1291;} } 
if(
BIGNUMP(BgL_aux3521z00_7633))
{ /* Ieee/fixnum.scm 1852 */
return BgL_aux3521z00_7633;}  else 
{ 
 obj_t BgL_auxz00_13537;
BgL_auxz00_13537 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89452L), BGl_string4784z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3521z00_7633); 
FAILURE(BgL_auxz00_13537,BFALSE,BFALSE);} } } } 

}



/* &maxbx */
obj_t BGl_z62maxbxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6399, obj_t BgL_n1z00_6400, obj_t BgL_nnz00_6401)
{
{ /* Ieee/fixnum.scm 1852 */
{ /* Ieee/fixnum.scm 1852 */
 obj_t BgL_auxz00_13541;
if(
BIGNUMP(BgL_n1z00_6400))
{ /* Ieee/fixnum.scm 1852 */
BgL_auxz00_13541 = BgL_n1z00_6400
; }  else 
{ 
 obj_t BgL_auxz00_13544;
BgL_auxz00_13544 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89452L), BGl_string4785z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6400); 
FAILURE(BgL_auxz00_13544,BFALSE,BFALSE);} 
return 
BGl_maxbxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13541, BgL_nnz00_6401);} } 

}



/* +fx */
BGL_EXPORTED_DEF long BGl_zb2fxzb2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_304, long BgL_za72za7_305)
{
{ /* Ieee/fixnum.scm 1857 */
return 
(BgL_za71za7_304+BgL_za72za7_305);} 

}



/* &+fx */
obj_t BGl_z62zb2fxzd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6402, obj_t BgL_za71za7_6403, obj_t BgL_za72za7_6404)
{
{ /* Ieee/fixnum.scm 1857 */
{ /* Ieee/fixnum.scm 1857 */
 long BgL_tmpz00_13550;
{ /* Ieee/fixnum.scm 1857 */
 long BgL_auxz00_13560; long BgL_auxz00_13551;
{ /* Ieee/fixnum.scm 1857 */
 obj_t BgL_tmpz00_13561;
if(
INTEGERP(BgL_za72za7_6404))
{ /* Ieee/fixnum.scm 1857 */
BgL_tmpz00_13561 = BgL_za72za7_6404
; }  else 
{ 
 obj_t BgL_auxz00_13564;
BgL_auxz00_13564 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89725L), BGl_string4786z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6404); 
FAILURE(BgL_auxz00_13564,BFALSE,BFALSE);} 
BgL_auxz00_13560 = 
(long)CINT(BgL_tmpz00_13561); } 
{ /* Ieee/fixnum.scm 1857 */
 obj_t BgL_tmpz00_13552;
if(
INTEGERP(BgL_za71za7_6403))
{ /* Ieee/fixnum.scm 1857 */
BgL_tmpz00_13552 = BgL_za71za7_6403
; }  else 
{ 
 obj_t BgL_auxz00_13555;
BgL_auxz00_13555 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89725L), BGl_string4786z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6403); 
FAILURE(BgL_auxz00_13555,BFALSE,BFALSE);} 
BgL_auxz00_13551 = 
(long)CINT(BgL_tmpz00_13552); } 
BgL_tmpz00_13550 = 
BGl_zb2fxzb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13551, BgL_auxz00_13560); } 
return 
BINT(BgL_tmpz00_13550);} } 

}



/* +elong */
BGL_EXPORTED_DEF long BGl_zb2elongzb2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_306, long BgL_za72za7_307)
{
{ /* Ieee/fixnum.scm 1859 */
return 
(BgL_za71za7_306+BgL_za72za7_307);} 

}



/* &+elong */
obj_t BGl_z62zb2elongzd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6405, obj_t BgL_za71za7_6406, obj_t BgL_za72za7_6407)
{
{ /* Ieee/fixnum.scm 1859 */
{ /* Ieee/fixnum.scm 1859 */
 long BgL_tmpz00_13572;
{ /* Ieee/fixnum.scm 1859 */
 long BgL_auxz00_13582; long BgL_auxz00_13573;
{ /* Ieee/fixnum.scm 1859 */
 obj_t BgL_tmpz00_13583;
if(
ELONGP(BgL_za72za7_6407))
{ /* Ieee/fixnum.scm 1859 */
BgL_tmpz00_13583 = BgL_za72za7_6407
; }  else 
{ 
 obj_t BgL_auxz00_13586;
BgL_auxz00_13586 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89770L), BGl_string4787z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6407); 
FAILURE(BgL_auxz00_13586,BFALSE,BFALSE);} 
BgL_auxz00_13582 = 
BELONG_TO_LONG(BgL_tmpz00_13583); } 
{ /* Ieee/fixnum.scm 1859 */
 obj_t BgL_tmpz00_13574;
if(
ELONGP(BgL_za71za7_6406))
{ /* Ieee/fixnum.scm 1859 */
BgL_tmpz00_13574 = BgL_za71za7_6406
; }  else 
{ 
 obj_t BgL_auxz00_13577;
BgL_auxz00_13577 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89770L), BGl_string4787z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6406); 
FAILURE(BgL_auxz00_13577,BFALSE,BFALSE);} 
BgL_auxz00_13573 = 
BELONG_TO_LONG(BgL_tmpz00_13574); } 
BgL_tmpz00_13572 = 
BGl_zb2elongzb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13573, BgL_auxz00_13582); } 
return 
make_belong(BgL_tmpz00_13572);} } 

}



/* +llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_zb2llongzb2zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_za71za7_308, BGL_LONGLONG_T BgL_za72za7_309)
{
{ /* Ieee/fixnum.scm 1860 */
return 
(BgL_za71za7_308+BgL_za72za7_309);} 

}



/* &+llong */
obj_t BGl_z62zb2llongzd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6408, obj_t BgL_za71za7_6409, obj_t BgL_za72za7_6410)
{
{ /* Ieee/fixnum.scm 1860 */
{ /* Ieee/fixnum.scm 1860 */
 BGL_LONGLONG_T BgL_tmpz00_13594;
{ /* Ieee/fixnum.scm 1860 */
 BGL_LONGLONG_T BgL_auxz00_13604; BGL_LONGLONG_T BgL_auxz00_13595;
{ /* Ieee/fixnum.scm 1860 */
 obj_t BgL_tmpz00_13605;
if(
LLONGP(BgL_za72za7_6410))
{ /* Ieee/fixnum.scm 1860 */
BgL_tmpz00_13605 = BgL_za72za7_6410
; }  else 
{ 
 obj_t BgL_auxz00_13608;
BgL_auxz00_13608 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89817L), BGl_string4788z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6410); 
FAILURE(BgL_auxz00_13608,BFALSE,BFALSE);} 
BgL_auxz00_13604 = 
BLLONG_TO_LLONG(BgL_tmpz00_13605); } 
{ /* Ieee/fixnum.scm 1860 */
 obj_t BgL_tmpz00_13596;
if(
LLONGP(BgL_za71za7_6409))
{ /* Ieee/fixnum.scm 1860 */
BgL_tmpz00_13596 = BgL_za71za7_6409
; }  else 
{ 
 obj_t BgL_auxz00_13599;
BgL_auxz00_13599 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89817L), BGl_string4788z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6409); 
FAILURE(BgL_auxz00_13599,BFALSE,BFALSE);} 
BgL_auxz00_13595 = 
BLLONG_TO_LLONG(BgL_tmpz00_13596); } 
BgL_tmpz00_13594 = 
BGl_zb2llongzb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13595, BgL_auxz00_13604); } 
return 
make_bllong(BgL_tmpz00_13594);} } 

}



/* +s8 */
BGL_EXPORTED_DEF int8_t BGl_zb2s8zb2zz__r4_numbers_6_5_fixnumz00(int8_t BgL_za71za7_310, int8_t BgL_za72za7_311)
{
{ /* Ieee/fixnum.scm 1862 */
return 
(BgL_za71za7_310+BgL_za72za7_311);} 

}



/* &+s8 */
obj_t BGl_z62zb2s8zd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6411, obj_t BgL_za71za7_6412, obj_t BgL_za72za7_6413)
{
{ /* Ieee/fixnum.scm 1862 */
{ /* Ieee/fixnum.scm 1862 */
 int8_t BgL_tmpz00_13616;
{ /* Ieee/fixnum.scm 1862 */
 int8_t BgL_auxz00_13626; int8_t BgL_auxz00_13617;
{ /* Ieee/fixnum.scm 1862 */
 obj_t BgL_tmpz00_13627;
if(
BGL_INT8P(BgL_za72za7_6413))
{ /* Ieee/fixnum.scm 1862 */
BgL_tmpz00_13627 = BgL_za72za7_6413
; }  else 
{ 
 obj_t BgL_auxz00_13630;
BgL_auxz00_13630 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89862L), BGl_string4789z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6413); 
FAILURE(BgL_auxz00_13630,BFALSE,BFALSE);} 
BgL_auxz00_13626 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_13627); } 
{ /* Ieee/fixnum.scm 1862 */
 obj_t BgL_tmpz00_13618;
if(
BGL_INT8P(BgL_za71za7_6412))
{ /* Ieee/fixnum.scm 1862 */
BgL_tmpz00_13618 = BgL_za71za7_6412
; }  else 
{ 
 obj_t BgL_auxz00_13621;
BgL_auxz00_13621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89862L), BGl_string4789z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6412); 
FAILURE(BgL_auxz00_13621,BFALSE,BFALSE);} 
BgL_auxz00_13617 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_13618); } 
BgL_tmpz00_13616 = 
BGl_zb2s8zb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13617, BgL_auxz00_13626); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_13616);} } 

}



/* +u8 */
BGL_EXPORTED_DEF uint8_t BGl_zb2u8zb2zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_za71za7_312, uint8_t BgL_za72za7_313)
{
{ /* Ieee/fixnum.scm 1863 */
return 
(BgL_za71za7_312+BgL_za72za7_313);} 

}



/* &+u8 */
obj_t BGl_z62zb2u8zd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6414, obj_t BgL_za71za7_6415, obj_t BgL_za72za7_6416)
{
{ /* Ieee/fixnum.scm 1863 */
{ /* Ieee/fixnum.scm 1863 */
 uint8_t BgL_tmpz00_13638;
{ /* Ieee/fixnum.scm 1863 */
 uint8_t BgL_auxz00_13648; uint8_t BgL_auxz00_13639;
{ /* Ieee/fixnum.scm 1863 */
 obj_t BgL_tmpz00_13649;
if(
BGL_UINT8P(BgL_za72za7_6416))
{ /* Ieee/fixnum.scm 1863 */
BgL_tmpz00_13649 = BgL_za72za7_6416
; }  else 
{ 
 obj_t BgL_auxz00_13652;
BgL_auxz00_13652 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89903L), BGl_string4790z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6416); 
FAILURE(BgL_auxz00_13652,BFALSE,BFALSE);} 
BgL_auxz00_13648 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_13649); } 
{ /* Ieee/fixnum.scm 1863 */
 obj_t BgL_tmpz00_13640;
if(
BGL_UINT8P(BgL_za71za7_6415))
{ /* Ieee/fixnum.scm 1863 */
BgL_tmpz00_13640 = BgL_za71za7_6415
; }  else 
{ 
 obj_t BgL_auxz00_13643;
BgL_auxz00_13643 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89903L), BGl_string4790z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6415); 
FAILURE(BgL_auxz00_13643,BFALSE,BFALSE);} 
BgL_auxz00_13639 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_13640); } 
BgL_tmpz00_13638 = 
BGl_zb2u8zb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13639, BgL_auxz00_13648); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_13638);} } 

}



/* +s16 */
BGL_EXPORTED_DEF int16_t BGl_zb2s16zb2zz__r4_numbers_6_5_fixnumz00(int16_t BgL_za71za7_314, int16_t BgL_za72za7_315)
{
{ /* Ieee/fixnum.scm 1865 */
return 
(BgL_za71za7_314+BgL_za72za7_315);} 

}



/* &+s16 */
obj_t BGl_z62zb2s16zd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6417, obj_t BgL_za71za7_6418, obj_t BgL_za72za7_6419)
{
{ /* Ieee/fixnum.scm 1865 */
{ /* Ieee/fixnum.scm 1865 */
 int16_t BgL_tmpz00_13660;
{ /* Ieee/fixnum.scm 1865 */
 int16_t BgL_auxz00_13670; int16_t BgL_auxz00_13661;
{ /* Ieee/fixnum.scm 1865 */
 obj_t BgL_tmpz00_13671;
if(
BGL_INT16P(BgL_za72za7_6419))
{ /* Ieee/fixnum.scm 1865 */
BgL_tmpz00_13671 = BgL_za72za7_6419
; }  else 
{ 
 obj_t BgL_auxz00_13674;
BgL_auxz00_13674 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89946L), BGl_string4791z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6419); 
FAILURE(BgL_auxz00_13674,BFALSE,BFALSE);} 
BgL_auxz00_13670 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_13671); } 
{ /* Ieee/fixnum.scm 1865 */
 obj_t BgL_tmpz00_13662;
if(
BGL_INT16P(BgL_za71za7_6418))
{ /* Ieee/fixnum.scm 1865 */
BgL_tmpz00_13662 = BgL_za71za7_6418
; }  else 
{ 
 obj_t BgL_auxz00_13665;
BgL_auxz00_13665 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89946L), BGl_string4791z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6418); 
FAILURE(BgL_auxz00_13665,BFALSE,BFALSE);} 
BgL_auxz00_13661 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_13662); } 
BgL_tmpz00_13660 = 
BGl_zb2s16zb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13661, BgL_auxz00_13670); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_13660);} } 

}



/* +u16 */
BGL_EXPORTED_DEF uint16_t BGl_zb2u16zb2zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_za71za7_316, uint16_t BgL_za72za7_317)
{
{ /* Ieee/fixnum.scm 1866 */
return 
(BgL_za71za7_316+BgL_za72za7_317);} 

}



/* &+u16 */
obj_t BGl_z62zb2u16zd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6420, obj_t BgL_za71za7_6421, obj_t BgL_za72za7_6422)
{
{ /* Ieee/fixnum.scm 1866 */
{ /* Ieee/fixnum.scm 1866 */
 uint16_t BgL_tmpz00_13682;
{ /* Ieee/fixnum.scm 1866 */
 uint16_t BgL_auxz00_13692; uint16_t BgL_auxz00_13683;
{ /* Ieee/fixnum.scm 1866 */
 obj_t BgL_tmpz00_13693;
if(
BGL_UINT16P(BgL_za72za7_6422))
{ /* Ieee/fixnum.scm 1866 */
BgL_tmpz00_13693 = BgL_za72za7_6422
; }  else 
{ 
 obj_t BgL_auxz00_13696;
BgL_auxz00_13696 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89989L), BGl_string4792z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6422); 
FAILURE(BgL_auxz00_13696,BFALSE,BFALSE);} 
BgL_auxz00_13692 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_13693); } 
{ /* Ieee/fixnum.scm 1866 */
 obj_t BgL_tmpz00_13684;
if(
BGL_UINT16P(BgL_za71za7_6421))
{ /* Ieee/fixnum.scm 1866 */
BgL_tmpz00_13684 = BgL_za71za7_6421
; }  else 
{ 
 obj_t BgL_auxz00_13687;
BgL_auxz00_13687 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(89989L), BGl_string4792z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6421); 
FAILURE(BgL_auxz00_13687,BFALSE,BFALSE);} 
BgL_auxz00_13683 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_13684); } 
BgL_tmpz00_13682 = 
BGl_zb2u16zb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13683, BgL_auxz00_13692); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_13682);} } 

}



/* +s32 */
BGL_EXPORTED_DEF int32_t BGl_zb2s32zb2zz__r4_numbers_6_5_fixnumz00(int32_t BgL_za71za7_318, int32_t BgL_za72za7_319)
{
{ /* Ieee/fixnum.scm 1868 */
return 
(BgL_za71za7_318+BgL_za72za7_319);} 

}



/* &+s32 */
obj_t BGl_z62zb2s32zd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6423, obj_t BgL_za71za7_6424, obj_t BgL_za72za7_6425)
{
{ /* Ieee/fixnum.scm 1868 */
{ /* Ieee/fixnum.scm 1868 */
 int32_t BgL_tmpz00_13704;
{ /* Ieee/fixnum.scm 1868 */
 int32_t BgL_auxz00_13714; int32_t BgL_auxz00_13705;
{ /* Ieee/fixnum.scm 1868 */
 obj_t BgL_tmpz00_13715;
if(
BGL_INT32P(BgL_za72za7_6425))
{ /* Ieee/fixnum.scm 1868 */
BgL_tmpz00_13715 = BgL_za72za7_6425
; }  else 
{ 
 obj_t BgL_auxz00_13718;
BgL_auxz00_13718 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90033L), BGl_string4793z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6425); 
FAILURE(BgL_auxz00_13718,BFALSE,BFALSE);} 
BgL_auxz00_13714 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_13715); } 
{ /* Ieee/fixnum.scm 1868 */
 obj_t BgL_tmpz00_13706;
if(
BGL_INT32P(BgL_za71za7_6424))
{ /* Ieee/fixnum.scm 1868 */
BgL_tmpz00_13706 = BgL_za71za7_6424
; }  else 
{ 
 obj_t BgL_auxz00_13709;
BgL_auxz00_13709 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90033L), BGl_string4793z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6424); 
FAILURE(BgL_auxz00_13709,BFALSE,BFALSE);} 
BgL_auxz00_13705 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_13706); } 
BgL_tmpz00_13704 = 
BGl_zb2s32zb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13705, BgL_auxz00_13714); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_13704);} } 

}



/* +u32 */
BGL_EXPORTED_DEF uint32_t BGl_zb2u32zb2zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_za71za7_320, uint32_t BgL_za72za7_321)
{
{ /* Ieee/fixnum.scm 1869 */
return 
(BgL_za71za7_320+BgL_za72za7_321);} 

}



/* &+u32 */
obj_t BGl_z62zb2u32zd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6426, obj_t BgL_za71za7_6427, obj_t BgL_za72za7_6428)
{
{ /* Ieee/fixnum.scm 1869 */
{ /* Ieee/fixnum.scm 1869 */
 uint32_t BgL_tmpz00_13726;
{ /* Ieee/fixnum.scm 1869 */
 uint32_t BgL_auxz00_13736; uint32_t BgL_auxz00_13727;
{ /* Ieee/fixnum.scm 1869 */
 obj_t BgL_tmpz00_13737;
if(
BGL_UINT32P(BgL_za72za7_6428))
{ /* Ieee/fixnum.scm 1869 */
BgL_tmpz00_13737 = BgL_za72za7_6428
; }  else 
{ 
 obj_t BgL_auxz00_13740;
BgL_auxz00_13740 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90076L), BGl_string4794z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6428); 
FAILURE(BgL_auxz00_13740,BFALSE,BFALSE);} 
BgL_auxz00_13736 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_13737); } 
{ /* Ieee/fixnum.scm 1869 */
 obj_t BgL_tmpz00_13728;
if(
BGL_UINT32P(BgL_za71za7_6427))
{ /* Ieee/fixnum.scm 1869 */
BgL_tmpz00_13728 = BgL_za71za7_6427
; }  else 
{ 
 obj_t BgL_auxz00_13731;
BgL_auxz00_13731 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90076L), BGl_string4794z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6427); 
FAILURE(BgL_auxz00_13731,BFALSE,BFALSE);} 
BgL_auxz00_13727 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_13728); } 
BgL_tmpz00_13726 = 
BGl_zb2u32zb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13727, BgL_auxz00_13736); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_13726);} } 

}



/* +s64 */
BGL_EXPORTED_DEF int64_t BGl_zb2s64zb2zz__r4_numbers_6_5_fixnumz00(int64_t BgL_za71za7_322, int64_t BgL_za72za7_323)
{
{ /* Ieee/fixnum.scm 1871 */
return 
(BgL_za71za7_322+BgL_za72za7_323);} 

}



/* &+s64 */
obj_t BGl_z62zb2s64zd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6429, obj_t BgL_za71za7_6430, obj_t BgL_za72za7_6431)
{
{ /* Ieee/fixnum.scm 1871 */
{ /* Ieee/fixnum.scm 1871 */
 int64_t BgL_tmpz00_13748;
{ /* Ieee/fixnum.scm 1871 */
 int64_t BgL_auxz00_13758; int64_t BgL_auxz00_13749;
{ /* Ieee/fixnum.scm 1871 */
 obj_t BgL_tmpz00_13759;
if(
BGL_INT64P(BgL_za72za7_6431))
{ /* Ieee/fixnum.scm 1871 */
BgL_tmpz00_13759 = BgL_za72za7_6431
; }  else 
{ 
 obj_t BgL_auxz00_13762;
BgL_auxz00_13762 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90120L), BGl_string4795z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6431); 
FAILURE(BgL_auxz00_13762,BFALSE,BFALSE);} 
BgL_auxz00_13758 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_13759); } 
{ /* Ieee/fixnum.scm 1871 */
 obj_t BgL_tmpz00_13750;
if(
BGL_INT64P(BgL_za71za7_6430))
{ /* Ieee/fixnum.scm 1871 */
BgL_tmpz00_13750 = BgL_za71za7_6430
; }  else 
{ 
 obj_t BgL_auxz00_13753;
BgL_auxz00_13753 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90120L), BGl_string4795z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6430); 
FAILURE(BgL_auxz00_13753,BFALSE,BFALSE);} 
BgL_auxz00_13749 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_13750); } 
BgL_tmpz00_13748 = 
BGl_zb2s64zb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13749, BgL_auxz00_13758); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_13748);} } 

}



/* +u64 */
BGL_EXPORTED_DEF uint64_t BGl_zb2u64zb2zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_za71za7_324, uint64_t BgL_za72za7_325)
{
{ /* Ieee/fixnum.scm 1872 */
return 
(BgL_za71za7_324+BgL_za72za7_325);} 

}



/* &+u64 */
obj_t BGl_z62zb2u64zd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6432, obj_t BgL_za71za7_6433, obj_t BgL_za72za7_6434)
{
{ /* Ieee/fixnum.scm 1872 */
{ /* Ieee/fixnum.scm 1872 */
 uint64_t BgL_tmpz00_13770;
{ /* Ieee/fixnum.scm 1872 */
 uint64_t BgL_auxz00_13780; uint64_t BgL_auxz00_13771;
{ /* Ieee/fixnum.scm 1872 */
 obj_t BgL_tmpz00_13781;
if(
BGL_UINT64P(BgL_za72za7_6434))
{ /* Ieee/fixnum.scm 1872 */
BgL_tmpz00_13781 = BgL_za72za7_6434
; }  else 
{ 
 obj_t BgL_auxz00_13784;
BgL_auxz00_13784 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90163L), BGl_string4796z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6434); 
FAILURE(BgL_auxz00_13784,BFALSE,BFALSE);} 
BgL_auxz00_13780 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_13781); } 
{ /* Ieee/fixnum.scm 1872 */
 obj_t BgL_tmpz00_13772;
if(
BGL_UINT64P(BgL_za71za7_6433))
{ /* Ieee/fixnum.scm 1872 */
BgL_tmpz00_13772 = BgL_za71za7_6433
; }  else 
{ 
 obj_t BgL_auxz00_13775;
BgL_auxz00_13775 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90163L), BGl_string4796z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6433); 
FAILURE(BgL_auxz00_13775,BFALSE,BFALSE);} 
BgL_auxz00_13771 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_13772); } 
BgL_tmpz00_13770 = 
BGl_zb2u64zb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13771, BgL_auxz00_13780); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_13770);} } 

}



/* +bx */
BGL_EXPORTED_DEF obj_t BGl_zb2bxzb2zz__r4_numbers_6_5_fixnumz00(obj_t BgL_za71za7_326, obj_t BgL_za72za7_327)
{
{ /* Ieee/fixnum.scm 1874 */
BGL_TAIL return 
bgl_bignum_add(BgL_za71za7_326, BgL_za72za7_327);} 

}



/* &+bx */
obj_t BGl_z62zb2bxzd0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6435, obj_t BgL_za71za7_6436, obj_t BgL_za72za7_6437)
{
{ /* Ieee/fixnum.scm 1874 */
{ /* Ieee/fixnum.scm 1874 */
 obj_t BgL_auxz00_13799; obj_t BgL_auxz00_13792;
if(
BIGNUMP(BgL_za72za7_6437))
{ /* Ieee/fixnum.scm 1874 */
BgL_auxz00_13799 = BgL_za72za7_6437
; }  else 
{ 
 obj_t BgL_auxz00_13802;
BgL_auxz00_13802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90206L), BGl_string4797z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6437); 
FAILURE(BgL_auxz00_13802,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_za71za7_6436))
{ /* Ieee/fixnum.scm 1874 */
BgL_auxz00_13792 = BgL_za71za7_6436
; }  else 
{ 
 obj_t BgL_auxz00_13795;
BgL_auxz00_13795 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90206L), BGl_string4797z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6436); 
FAILURE(BgL_auxz00_13795,BFALSE,BFALSE);} 
return 
BGl_zb2bxzb2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13792, BgL_auxz00_13799);} } 

}



/* +fx/ov */
BGL_EXPORTED_DEF obj_t BGl_zb2fxzf2ovz40zz__r4_numbers_6_5_fixnumz00(obj_t BgL_za71za7_328, obj_t BgL_za72za7_329)
{
{ /* Ieee/fixnum.scm 1876 */
{ /* Ieee/fixnum.scm 1879 */
 obj_t BgL_tmpz00_8737;
BgL_tmpz00_8737 = 
BINT(0L); 
if(
BGL_ADDFX_OV(BgL_za71za7_328, BgL_za72za7_329, BgL_tmpz00_8737))
{ /* Ieee/fixnum.scm 1880 */
return 
bgl_bignum_add(
bgl_long_to_bignum(
(long)CINT(BgL_za71za7_328)), 
bgl_long_to_bignum(
(long)CINT(BgL_za72za7_329)));}  else 
{ /* Ieee/fixnum.scm 1880 */
return BgL_tmpz00_8737;} } } 

}



/* &+fx/ov */
obj_t BGl_z62zb2fxzf2ovz22zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6438, obj_t BgL_za71za7_6439, obj_t BgL_za72za7_6440)
{
{ /* Ieee/fixnum.scm 1876 */
{ /* Ieee/fixnum.scm 1879 */
 obj_t BgL_auxz00_13822; obj_t BgL_auxz00_13815;
if(
INTEGERP(BgL_za72za7_6440))
{ /* Ieee/fixnum.scm 1879 */
BgL_auxz00_13822 = BgL_za72za7_6440
; }  else 
{ 
 obj_t BgL_auxz00_13825;
BgL_auxz00_13825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90290L), BGl_string4798z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6440); 
FAILURE(BgL_auxz00_13825,BFALSE,BFALSE);} 
if(
INTEGERP(BgL_za71za7_6439))
{ /* Ieee/fixnum.scm 1879 */
BgL_auxz00_13815 = BgL_za71za7_6439
; }  else 
{ 
 obj_t BgL_auxz00_13818;
BgL_auxz00_13818 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90290L), BGl_string4798z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6439); 
FAILURE(BgL_auxz00_13818,BFALSE,BFALSE);} 
return 
BGl_zb2fxzf2ovz40zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13815, BgL_auxz00_13822);} } 

}



/* -fx */
BGL_EXPORTED_DEF long BGl_zd2fxzd2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_330, long BgL_za72za7_331)
{
{ /* Ieee/fixnum.scm 1889 */
return 
(BgL_za71za7_330-BgL_za72za7_331);} 

}



/* &-fx */
obj_t BGl_z62zd2fxzb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6441, obj_t BgL_za71za7_6442, obj_t BgL_za72za7_6443)
{
{ /* Ieee/fixnum.scm 1889 */
{ /* Ieee/fixnum.scm 1889 */
 long BgL_tmpz00_13831;
{ /* Ieee/fixnum.scm 1889 */
 long BgL_auxz00_13841; long BgL_auxz00_13832;
{ /* Ieee/fixnum.scm 1889 */
 obj_t BgL_tmpz00_13842;
if(
INTEGERP(BgL_za72za7_6443))
{ /* Ieee/fixnum.scm 1889 */
BgL_tmpz00_13842 = BgL_za72za7_6443
; }  else 
{ 
 obj_t BgL_auxz00_13845;
BgL_auxz00_13845 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90695L), BGl_string4799z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6443); 
FAILURE(BgL_auxz00_13845,BFALSE,BFALSE);} 
BgL_auxz00_13841 = 
(long)CINT(BgL_tmpz00_13842); } 
{ /* Ieee/fixnum.scm 1889 */
 obj_t BgL_tmpz00_13833;
if(
INTEGERP(BgL_za71za7_6442))
{ /* Ieee/fixnum.scm 1889 */
BgL_tmpz00_13833 = BgL_za71za7_6442
; }  else 
{ 
 obj_t BgL_auxz00_13836;
BgL_auxz00_13836 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90695L), BGl_string4799z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6442); 
FAILURE(BgL_auxz00_13836,BFALSE,BFALSE);} 
BgL_auxz00_13832 = 
(long)CINT(BgL_tmpz00_13833); } 
BgL_tmpz00_13831 = 
BGl_zd2fxzd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13832, BgL_auxz00_13841); } 
return 
BINT(BgL_tmpz00_13831);} } 

}



/* -elong */
BGL_EXPORTED_DEF long BGl_zd2elongzd2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_332, long BgL_za72za7_333)
{
{ /* Ieee/fixnum.scm 1891 */
{ /* Ieee/fixnum.scm 1891 */
 long BgL_tmpz00_13852;
BgL_tmpz00_13852 = 
(BgL_za71za7_332-BgL_za72za7_333); 
return 
(long)(BgL_tmpz00_13852);} } 

}



/* &-elong */
obj_t BGl_z62zd2elongzb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6444, obj_t BgL_za71za7_6445, obj_t BgL_za72za7_6446)
{
{ /* Ieee/fixnum.scm 1891 */
{ /* Ieee/fixnum.scm 1891 */
 long BgL_tmpz00_13855;
{ /* Ieee/fixnum.scm 1891 */
 long BgL_auxz00_13865; long BgL_auxz00_13856;
{ /* Ieee/fixnum.scm 1891 */
 obj_t BgL_tmpz00_13866;
if(
ELONGP(BgL_za72za7_6446))
{ /* Ieee/fixnum.scm 1891 */
BgL_tmpz00_13866 = BgL_za72za7_6446
; }  else 
{ 
 obj_t BgL_auxz00_13869;
BgL_auxz00_13869 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90740L), BGl_string4800z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6446); 
FAILURE(BgL_auxz00_13869,BFALSE,BFALSE);} 
BgL_auxz00_13865 = 
BELONG_TO_LONG(BgL_tmpz00_13866); } 
{ /* Ieee/fixnum.scm 1891 */
 obj_t BgL_tmpz00_13857;
if(
ELONGP(BgL_za71za7_6445))
{ /* Ieee/fixnum.scm 1891 */
BgL_tmpz00_13857 = BgL_za71za7_6445
; }  else 
{ 
 obj_t BgL_auxz00_13860;
BgL_auxz00_13860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90740L), BGl_string4800z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6445); 
FAILURE(BgL_auxz00_13860,BFALSE,BFALSE);} 
BgL_auxz00_13856 = 
BELONG_TO_LONG(BgL_tmpz00_13857); } 
BgL_tmpz00_13855 = 
BGl_zd2elongzd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13856, BgL_auxz00_13865); } 
return 
make_belong(BgL_tmpz00_13855);} } 

}



/* -llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_zd2llongzd2zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_za71za7_334, BGL_LONGLONG_T BgL_za72za7_335)
{
{ /* Ieee/fixnum.scm 1892 */
return 
(BgL_za71za7_334-BgL_za72za7_335);} 

}



/* &-llong */
obj_t BGl_z62zd2llongzb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6447, obj_t BgL_za71za7_6448, obj_t BgL_za72za7_6449)
{
{ /* Ieee/fixnum.scm 1892 */
{ /* Ieee/fixnum.scm 1892 */
 BGL_LONGLONG_T BgL_tmpz00_13877;
{ /* Ieee/fixnum.scm 1892 */
 BGL_LONGLONG_T BgL_auxz00_13887; BGL_LONGLONG_T BgL_auxz00_13878;
{ /* Ieee/fixnum.scm 1892 */
 obj_t BgL_tmpz00_13888;
if(
LLONGP(BgL_za72za7_6449))
{ /* Ieee/fixnum.scm 1892 */
BgL_tmpz00_13888 = BgL_za72za7_6449
; }  else 
{ 
 obj_t BgL_auxz00_13891;
BgL_auxz00_13891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90787L), BGl_string4801z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6449); 
FAILURE(BgL_auxz00_13891,BFALSE,BFALSE);} 
BgL_auxz00_13887 = 
BLLONG_TO_LLONG(BgL_tmpz00_13888); } 
{ /* Ieee/fixnum.scm 1892 */
 obj_t BgL_tmpz00_13879;
if(
LLONGP(BgL_za71za7_6448))
{ /* Ieee/fixnum.scm 1892 */
BgL_tmpz00_13879 = BgL_za71za7_6448
; }  else 
{ 
 obj_t BgL_auxz00_13882;
BgL_auxz00_13882 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90787L), BGl_string4801z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6448); 
FAILURE(BgL_auxz00_13882,BFALSE,BFALSE);} 
BgL_auxz00_13878 = 
BLLONG_TO_LLONG(BgL_tmpz00_13879); } 
BgL_tmpz00_13877 = 
BGl_zd2llongzd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13878, BgL_auxz00_13887); } 
return 
make_bllong(BgL_tmpz00_13877);} } 

}



/* -s8 */
BGL_EXPORTED_DEF int8_t BGl_zd2s8zd2zz__r4_numbers_6_5_fixnumz00(int8_t BgL_za71za7_336, int8_t BgL_za72za7_337)
{
{ /* Ieee/fixnum.scm 1894 */
return 
(BgL_za71za7_336-BgL_za72za7_337);} 

}



/* &-s8 */
obj_t BGl_z62zd2s8zb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6450, obj_t BgL_za71za7_6451, obj_t BgL_za72za7_6452)
{
{ /* Ieee/fixnum.scm 1894 */
{ /* Ieee/fixnum.scm 1894 */
 int8_t BgL_tmpz00_13899;
{ /* Ieee/fixnum.scm 1894 */
 int8_t BgL_auxz00_13909; int8_t BgL_auxz00_13900;
{ /* Ieee/fixnum.scm 1894 */
 obj_t BgL_tmpz00_13910;
if(
BGL_INT8P(BgL_za72za7_6452))
{ /* Ieee/fixnum.scm 1894 */
BgL_tmpz00_13910 = BgL_za72za7_6452
; }  else 
{ 
 obj_t BgL_auxz00_13913;
BgL_auxz00_13913 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90832L), BGl_string4802z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6452); 
FAILURE(BgL_auxz00_13913,BFALSE,BFALSE);} 
BgL_auxz00_13909 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_13910); } 
{ /* Ieee/fixnum.scm 1894 */
 obj_t BgL_tmpz00_13901;
if(
BGL_INT8P(BgL_za71za7_6451))
{ /* Ieee/fixnum.scm 1894 */
BgL_tmpz00_13901 = BgL_za71za7_6451
; }  else 
{ 
 obj_t BgL_auxz00_13904;
BgL_auxz00_13904 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90832L), BGl_string4802z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6451); 
FAILURE(BgL_auxz00_13904,BFALSE,BFALSE);} 
BgL_auxz00_13900 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_13901); } 
BgL_tmpz00_13899 = 
BGl_zd2s8zd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13900, BgL_auxz00_13909); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_13899);} } 

}



/* -u8 */
BGL_EXPORTED_DEF uint8_t BGl_zd2u8zd2zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_za71za7_338, uint8_t BgL_za72za7_339)
{
{ /* Ieee/fixnum.scm 1895 */
return 
(BgL_za71za7_338-BgL_za72za7_339);} 

}



/* &-u8 */
obj_t BGl_z62zd2u8zb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6453, obj_t BgL_za71za7_6454, obj_t BgL_za72za7_6455)
{
{ /* Ieee/fixnum.scm 1895 */
{ /* Ieee/fixnum.scm 1895 */
 uint8_t BgL_tmpz00_13921;
{ /* Ieee/fixnum.scm 1895 */
 uint8_t BgL_auxz00_13931; uint8_t BgL_auxz00_13922;
{ /* Ieee/fixnum.scm 1895 */
 obj_t BgL_tmpz00_13932;
if(
BGL_UINT8P(BgL_za72za7_6455))
{ /* Ieee/fixnum.scm 1895 */
BgL_tmpz00_13932 = BgL_za72za7_6455
; }  else 
{ 
 obj_t BgL_auxz00_13935;
BgL_auxz00_13935 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90873L), BGl_string4803z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6455); 
FAILURE(BgL_auxz00_13935,BFALSE,BFALSE);} 
BgL_auxz00_13931 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_13932); } 
{ /* Ieee/fixnum.scm 1895 */
 obj_t BgL_tmpz00_13923;
if(
BGL_UINT8P(BgL_za71za7_6454))
{ /* Ieee/fixnum.scm 1895 */
BgL_tmpz00_13923 = BgL_za71za7_6454
; }  else 
{ 
 obj_t BgL_auxz00_13926;
BgL_auxz00_13926 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90873L), BGl_string4803z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6454); 
FAILURE(BgL_auxz00_13926,BFALSE,BFALSE);} 
BgL_auxz00_13922 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_13923); } 
BgL_tmpz00_13921 = 
BGl_zd2u8zd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13922, BgL_auxz00_13931); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_13921);} } 

}



/* -s16 */
BGL_EXPORTED_DEF int16_t BGl_zd2s16zd2zz__r4_numbers_6_5_fixnumz00(int16_t BgL_za71za7_340, int16_t BgL_za72za7_341)
{
{ /* Ieee/fixnum.scm 1897 */
return 
(BgL_za71za7_340-BgL_za72za7_341);} 

}



/* &-s16 */
obj_t BGl_z62zd2s16zb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6456, obj_t BgL_za71za7_6457, obj_t BgL_za72za7_6458)
{
{ /* Ieee/fixnum.scm 1897 */
{ /* Ieee/fixnum.scm 1897 */
 int16_t BgL_tmpz00_13943;
{ /* Ieee/fixnum.scm 1897 */
 int16_t BgL_auxz00_13953; int16_t BgL_auxz00_13944;
{ /* Ieee/fixnum.scm 1897 */
 obj_t BgL_tmpz00_13954;
if(
BGL_INT16P(BgL_za72za7_6458))
{ /* Ieee/fixnum.scm 1897 */
BgL_tmpz00_13954 = BgL_za72za7_6458
; }  else 
{ 
 obj_t BgL_auxz00_13957;
BgL_auxz00_13957 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90916L), BGl_string4804z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6458); 
FAILURE(BgL_auxz00_13957,BFALSE,BFALSE);} 
BgL_auxz00_13953 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_13954); } 
{ /* Ieee/fixnum.scm 1897 */
 obj_t BgL_tmpz00_13945;
if(
BGL_INT16P(BgL_za71za7_6457))
{ /* Ieee/fixnum.scm 1897 */
BgL_tmpz00_13945 = BgL_za71za7_6457
; }  else 
{ 
 obj_t BgL_auxz00_13948;
BgL_auxz00_13948 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90916L), BGl_string4804z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6457); 
FAILURE(BgL_auxz00_13948,BFALSE,BFALSE);} 
BgL_auxz00_13944 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_13945); } 
BgL_tmpz00_13943 = 
BGl_zd2s16zd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13944, BgL_auxz00_13953); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_13943);} } 

}



/* -u16 */
BGL_EXPORTED_DEF uint16_t BGl_zd2u16zd2zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_za71za7_342, uint16_t BgL_za72za7_343)
{
{ /* Ieee/fixnum.scm 1898 */
return 
(BgL_za71za7_342-BgL_za72za7_343);} 

}



/* &-u16 */
obj_t BGl_z62zd2u16zb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6459, obj_t BgL_za71za7_6460, obj_t BgL_za72za7_6461)
{
{ /* Ieee/fixnum.scm 1898 */
{ /* Ieee/fixnum.scm 1898 */
 uint16_t BgL_tmpz00_13965;
{ /* Ieee/fixnum.scm 1898 */
 uint16_t BgL_auxz00_13975; uint16_t BgL_auxz00_13966;
{ /* Ieee/fixnum.scm 1898 */
 obj_t BgL_tmpz00_13976;
if(
BGL_UINT16P(BgL_za72za7_6461))
{ /* Ieee/fixnum.scm 1898 */
BgL_tmpz00_13976 = BgL_za72za7_6461
; }  else 
{ 
 obj_t BgL_auxz00_13979;
BgL_auxz00_13979 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90959L), BGl_string4805z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6461); 
FAILURE(BgL_auxz00_13979,BFALSE,BFALSE);} 
BgL_auxz00_13975 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_13976); } 
{ /* Ieee/fixnum.scm 1898 */
 obj_t BgL_tmpz00_13967;
if(
BGL_UINT16P(BgL_za71za7_6460))
{ /* Ieee/fixnum.scm 1898 */
BgL_tmpz00_13967 = BgL_za71za7_6460
; }  else 
{ 
 obj_t BgL_auxz00_13970;
BgL_auxz00_13970 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(90959L), BGl_string4805z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6460); 
FAILURE(BgL_auxz00_13970,BFALSE,BFALSE);} 
BgL_auxz00_13966 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_13967); } 
BgL_tmpz00_13965 = 
BGl_zd2u16zd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13966, BgL_auxz00_13975); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_13965);} } 

}



/* -s32 */
BGL_EXPORTED_DEF int32_t BGl_zd2s32zd2zz__r4_numbers_6_5_fixnumz00(int32_t BgL_za71za7_344, int32_t BgL_za72za7_345)
{
{ /* Ieee/fixnum.scm 1900 */
return 
(BgL_za71za7_344-BgL_za72za7_345);} 

}



/* &-s32 */
obj_t BGl_z62zd2s32zb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6462, obj_t BgL_za71za7_6463, obj_t BgL_za72za7_6464)
{
{ /* Ieee/fixnum.scm 1900 */
{ /* Ieee/fixnum.scm 1900 */
 int32_t BgL_tmpz00_13987;
{ /* Ieee/fixnum.scm 1900 */
 int32_t BgL_auxz00_13997; int32_t BgL_auxz00_13988;
{ /* Ieee/fixnum.scm 1900 */
 obj_t BgL_tmpz00_13998;
if(
BGL_INT32P(BgL_za72za7_6464))
{ /* Ieee/fixnum.scm 1900 */
BgL_tmpz00_13998 = BgL_za72za7_6464
; }  else 
{ 
 obj_t BgL_auxz00_14001;
BgL_auxz00_14001 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91003L), BGl_string4806z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6464); 
FAILURE(BgL_auxz00_14001,BFALSE,BFALSE);} 
BgL_auxz00_13997 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_13998); } 
{ /* Ieee/fixnum.scm 1900 */
 obj_t BgL_tmpz00_13989;
if(
BGL_INT32P(BgL_za71za7_6463))
{ /* Ieee/fixnum.scm 1900 */
BgL_tmpz00_13989 = BgL_za71za7_6463
; }  else 
{ 
 obj_t BgL_auxz00_13992;
BgL_auxz00_13992 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91003L), BGl_string4806z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6463); 
FAILURE(BgL_auxz00_13992,BFALSE,BFALSE);} 
BgL_auxz00_13988 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_13989); } 
BgL_tmpz00_13987 = 
BGl_zd2s32zd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_13988, BgL_auxz00_13997); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_13987);} } 

}



/* -u32 */
BGL_EXPORTED_DEF uint32_t BGl_zd2u32zd2zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_za71za7_346, uint32_t BgL_za72za7_347)
{
{ /* Ieee/fixnum.scm 1901 */
return 
(BgL_za71za7_346-BgL_za72za7_347);} 

}



/* &-u32 */
obj_t BGl_z62zd2u32zb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6465, obj_t BgL_za71za7_6466, obj_t BgL_za72za7_6467)
{
{ /* Ieee/fixnum.scm 1901 */
{ /* Ieee/fixnum.scm 1901 */
 uint32_t BgL_tmpz00_14009;
{ /* Ieee/fixnum.scm 1901 */
 uint32_t BgL_auxz00_14019; uint32_t BgL_auxz00_14010;
{ /* Ieee/fixnum.scm 1901 */
 obj_t BgL_tmpz00_14020;
if(
BGL_UINT32P(BgL_za72za7_6467))
{ /* Ieee/fixnum.scm 1901 */
BgL_tmpz00_14020 = BgL_za72za7_6467
; }  else 
{ 
 obj_t BgL_auxz00_14023;
BgL_auxz00_14023 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91046L), BGl_string4807z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6467); 
FAILURE(BgL_auxz00_14023,BFALSE,BFALSE);} 
BgL_auxz00_14019 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_14020); } 
{ /* Ieee/fixnum.scm 1901 */
 obj_t BgL_tmpz00_14011;
if(
BGL_UINT32P(BgL_za71za7_6466))
{ /* Ieee/fixnum.scm 1901 */
BgL_tmpz00_14011 = BgL_za71za7_6466
; }  else 
{ 
 obj_t BgL_auxz00_14014;
BgL_auxz00_14014 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91046L), BGl_string4807z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6466); 
FAILURE(BgL_auxz00_14014,BFALSE,BFALSE);} 
BgL_auxz00_14010 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_14011); } 
BgL_tmpz00_14009 = 
BGl_zd2u32zd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14010, BgL_auxz00_14019); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_14009);} } 

}



/* -s64 */
BGL_EXPORTED_DEF int64_t BGl_zd2s64zd2zz__r4_numbers_6_5_fixnumz00(int64_t BgL_za71za7_348, int64_t BgL_za72za7_349)
{
{ /* Ieee/fixnum.scm 1903 */
return 
(BgL_za71za7_348-BgL_za72za7_349);} 

}



/* &-s64 */
obj_t BGl_z62zd2s64zb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6468, obj_t BgL_za71za7_6469, obj_t BgL_za72za7_6470)
{
{ /* Ieee/fixnum.scm 1903 */
{ /* Ieee/fixnum.scm 1903 */
 int64_t BgL_tmpz00_14031;
{ /* Ieee/fixnum.scm 1903 */
 int64_t BgL_auxz00_14041; int64_t BgL_auxz00_14032;
{ /* Ieee/fixnum.scm 1903 */
 obj_t BgL_tmpz00_14042;
if(
BGL_INT64P(BgL_za72za7_6470))
{ /* Ieee/fixnum.scm 1903 */
BgL_tmpz00_14042 = BgL_za72za7_6470
; }  else 
{ 
 obj_t BgL_auxz00_14045;
BgL_auxz00_14045 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91090L), BGl_string4808z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6470); 
FAILURE(BgL_auxz00_14045,BFALSE,BFALSE);} 
BgL_auxz00_14041 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14042); } 
{ /* Ieee/fixnum.scm 1903 */
 obj_t BgL_tmpz00_14033;
if(
BGL_INT64P(BgL_za71za7_6469))
{ /* Ieee/fixnum.scm 1903 */
BgL_tmpz00_14033 = BgL_za71za7_6469
; }  else 
{ 
 obj_t BgL_auxz00_14036;
BgL_auxz00_14036 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91090L), BGl_string4808z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6469); 
FAILURE(BgL_auxz00_14036,BFALSE,BFALSE);} 
BgL_auxz00_14032 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14033); } 
BgL_tmpz00_14031 = 
BGl_zd2s64zd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14032, BgL_auxz00_14041); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_14031);} } 

}



/* -u64 */
BGL_EXPORTED_DEF uint64_t BGl_zd2u64zd2zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_za71za7_350, uint64_t BgL_za72za7_351)
{
{ /* Ieee/fixnum.scm 1904 */
return 
(BgL_za71za7_350-BgL_za72za7_351);} 

}



/* &-u64 */
obj_t BGl_z62zd2u64zb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6471, obj_t BgL_za71za7_6472, obj_t BgL_za72za7_6473)
{
{ /* Ieee/fixnum.scm 1904 */
{ /* Ieee/fixnum.scm 1904 */
 uint64_t BgL_tmpz00_14053;
{ /* Ieee/fixnum.scm 1904 */
 uint64_t BgL_auxz00_14063; uint64_t BgL_auxz00_14054;
{ /* Ieee/fixnum.scm 1904 */
 obj_t BgL_tmpz00_14064;
if(
BGL_UINT64P(BgL_za72za7_6473))
{ /* Ieee/fixnum.scm 1904 */
BgL_tmpz00_14064 = BgL_za72za7_6473
; }  else 
{ 
 obj_t BgL_auxz00_14067;
BgL_auxz00_14067 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91133L), BGl_string4809z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6473); 
FAILURE(BgL_auxz00_14067,BFALSE,BFALSE);} 
BgL_auxz00_14063 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14064); } 
{ /* Ieee/fixnum.scm 1904 */
 obj_t BgL_tmpz00_14055;
if(
BGL_UINT64P(BgL_za71za7_6472))
{ /* Ieee/fixnum.scm 1904 */
BgL_tmpz00_14055 = BgL_za71za7_6472
; }  else 
{ 
 obj_t BgL_auxz00_14058;
BgL_auxz00_14058 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91133L), BGl_string4809z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6472); 
FAILURE(BgL_auxz00_14058,BFALSE,BFALSE);} 
BgL_auxz00_14054 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14055); } 
BgL_tmpz00_14053 = 
BGl_zd2u64zd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14054, BgL_auxz00_14063); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_14053);} } 

}



/* -bx */
BGL_EXPORTED_DEF obj_t BGl_zd2bxzd2zz__r4_numbers_6_5_fixnumz00(obj_t BgL_za71za7_352, obj_t BgL_za72za7_353)
{
{ /* Ieee/fixnum.scm 1906 */
BGL_TAIL return 
bgl_bignum_sub(BgL_za71za7_352, BgL_za72za7_353);} 

}



/* &-bx */
obj_t BGl_z62zd2bxzb0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6474, obj_t BgL_za71za7_6475, obj_t BgL_za72za7_6476)
{
{ /* Ieee/fixnum.scm 1906 */
{ /* Ieee/fixnum.scm 1906 */
 obj_t BgL_auxz00_14082; obj_t BgL_auxz00_14075;
if(
BIGNUMP(BgL_za72za7_6476))
{ /* Ieee/fixnum.scm 1906 */
BgL_auxz00_14082 = BgL_za72za7_6476
; }  else 
{ 
 obj_t BgL_auxz00_14085;
BgL_auxz00_14085 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91176L), BGl_string4810z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6476); 
FAILURE(BgL_auxz00_14085,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_za71za7_6475))
{ /* Ieee/fixnum.scm 1906 */
BgL_auxz00_14075 = BgL_za71za7_6475
; }  else 
{ 
 obj_t BgL_auxz00_14078;
BgL_auxz00_14078 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91176L), BGl_string4810z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6475); 
FAILURE(BgL_auxz00_14078,BFALSE,BFALSE);} 
return 
BGl_zd2bxzd2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14075, BgL_auxz00_14082);} } 

}



/* -fx/ov */
BGL_EXPORTED_DEF obj_t BGl_zd2fxzf2ovz20zz__r4_numbers_6_5_fixnumz00(obj_t BgL_za71za7_354, obj_t BgL_za72za7_355)
{
{ /* Ieee/fixnum.scm 1908 */
{ /* Ieee/fixnum.scm 1911 */
 obj_t BgL_tmpz00_8738;
BgL_tmpz00_8738 = 
BINT(0L); 
if(
BGL_SUBFX_OV(BgL_za71za7_354, BgL_za72za7_355, BgL_tmpz00_8738))
{ /* Ieee/fixnum.scm 1912 */
return 
bgl_bignum_sub(
bgl_long_to_bignum(
(long)CINT(BgL_za71za7_354)), 
bgl_long_to_bignum(
(long)CINT(BgL_za72za7_355)));}  else 
{ /* Ieee/fixnum.scm 1912 */
return BgL_tmpz00_8738;} } } 

}



/* &-fx/ov */
obj_t BGl_z62zd2fxzf2ovz42zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6477, obj_t BgL_za71za7_6478, obj_t BgL_za72za7_6479)
{
{ /* Ieee/fixnum.scm 1908 */
{ /* Ieee/fixnum.scm 1911 */
 obj_t BgL_auxz00_14105; obj_t BgL_auxz00_14098;
if(
INTEGERP(BgL_za72za7_6479))
{ /* Ieee/fixnum.scm 1911 */
BgL_auxz00_14105 = BgL_za72za7_6479
; }  else 
{ 
 obj_t BgL_auxz00_14108;
BgL_auxz00_14108 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91260L), BGl_string4811z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6479); 
FAILURE(BgL_auxz00_14108,BFALSE,BFALSE);} 
if(
INTEGERP(BgL_za71za7_6478))
{ /* Ieee/fixnum.scm 1911 */
BgL_auxz00_14098 = BgL_za71za7_6478
; }  else 
{ 
 obj_t BgL_auxz00_14101;
BgL_auxz00_14101 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91260L), BGl_string4811z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6478); 
FAILURE(BgL_auxz00_14101,BFALSE,BFALSE);} 
return 
BGl_zd2fxzf2ovz20zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14098, BgL_auxz00_14105);} } 

}



/* *fx */
BGL_EXPORTED_DEF long BGl_za2fxza2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_356, long BgL_za72za7_357)
{
{ /* Ieee/fixnum.scm 1921 */
return 
(BgL_za71za7_356*BgL_za72za7_357);} 

}



/* &*fx */
obj_t BGl_z62za2fxzc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6480, obj_t BgL_za71za7_6481, obj_t BgL_za72za7_6482)
{
{ /* Ieee/fixnum.scm 1921 */
{ /* Ieee/fixnum.scm 1921 */
 long BgL_tmpz00_14114;
{ /* Ieee/fixnum.scm 1921 */
 long BgL_auxz00_14124; long BgL_auxz00_14115;
{ /* Ieee/fixnum.scm 1921 */
 obj_t BgL_tmpz00_14125;
if(
INTEGERP(BgL_za72za7_6482))
{ /* Ieee/fixnum.scm 1921 */
BgL_tmpz00_14125 = BgL_za72za7_6482
; }  else 
{ 
 obj_t BgL_auxz00_14128;
BgL_auxz00_14128 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91665L), BGl_string4812z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6482); 
FAILURE(BgL_auxz00_14128,BFALSE,BFALSE);} 
BgL_auxz00_14124 = 
(long)CINT(BgL_tmpz00_14125); } 
{ /* Ieee/fixnum.scm 1921 */
 obj_t BgL_tmpz00_14116;
if(
INTEGERP(BgL_za71za7_6481))
{ /* Ieee/fixnum.scm 1921 */
BgL_tmpz00_14116 = BgL_za71za7_6481
; }  else 
{ 
 obj_t BgL_auxz00_14119;
BgL_auxz00_14119 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91665L), BGl_string4812z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6481); 
FAILURE(BgL_auxz00_14119,BFALSE,BFALSE);} 
BgL_auxz00_14115 = 
(long)CINT(BgL_tmpz00_14116); } 
BgL_tmpz00_14114 = 
BGl_za2fxza2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14115, BgL_auxz00_14124); } 
return 
BINT(BgL_tmpz00_14114);} } 

}



/* *elong */
BGL_EXPORTED_DEF long BGl_za2elongza2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_358, long BgL_za72za7_359)
{
{ /* Ieee/fixnum.scm 1923 */
return 
(BgL_za71za7_358*BgL_za72za7_359);} 

}



/* &*elong */
obj_t BGl_z62za2elongzc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6483, obj_t BgL_za71za7_6484, obj_t BgL_za72za7_6485)
{
{ /* Ieee/fixnum.scm 1923 */
{ /* Ieee/fixnum.scm 1923 */
 long BgL_tmpz00_14136;
{ /* Ieee/fixnum.scm 1923 */
 long BgL_auxz00_14146; long BgL_auxz00_14137;
{ /* Ieee/fixnum.scm 1923 */
 obj_t BgL_tmpz00_14147;
if(
ELONGP(BgL_za72za7_6485))
{ /* Ieee/fixnum.scm 1923 */
BgL_tmpz00_14147 = BgL_za72za7_6485
; }  else 
{ 
 obj_t BgL_auxz00_14150;
BgL_auxz00_14150 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91710L), BGl_string4813z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6485); 
FAILURE(BgL_auxz00_14150,BFALSE,BFALSE);} 
BgL_auxz00_14146 = 
BELONG_TO_LONG(BgL_tmpz00_14147); } 
{ /* Ieee/fixnum.scm 1923 */
 obj_t BgL_tmpz00_14138;
if(
ELONGP(BgL_za71za7_6484))
{ /* Ieee/fixnum.scm 1923 */
BgL_tmpz00_14138 = BgL_za71za7_6484
; }  else 
{ 
 obj_t BgL_auxz00_14141;
BgL_auxz00_14141 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91710L), BGl_string4813z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6484); 
FAILURE(BgL_auxz00_14141,BFALSE,BFALSE);} 
BgL_auxz00_14137 = 
BELONG_TO_LONG(BgL_tmpz00_14138); } 
BgL_tmpz00_14136 = 
BGl_za2elongza2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14137, BgL_auxz00_14146); } 
return 
make_belong(BgL_tmpz00_14136);} } 

}



/* *llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_za2llongza2zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_za71za7_360, BGL_LONGLONG_T BgL_za72za7_361)
{
{ /* Ieee/fixnum.scm 1924 */
return 
(BgL_za71za7_360*BgL_za72za7_361);} 

}



/* &*llong */
obj_t BGl_z62za2llongzc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6486, obj_t BgL_za71za7_6487, obj_t BgL_za72za7_6488)
{
{ /* Ieee/fixnum.scm 1924 */
{ /* Ieee/fixnum.scm 1924 */
 BGL_LONGLONG_T BgL_tmpz00_14158;
{ /* Ieee/fixnum.scm 1924 */
 BGL_LONGLONG_T BgL_auxz00_14168; BGL_LONGLONG_T BgL_auxz00_14159;
{ /* Ieee/fixnum.scm 1924 */
 obj_t BgL_tmpz00_14169;
if(
LLONGP(BgL_za72za7_6488))
{ /* Ieee/fixnum.scm 1924 */
BgL_tmpz00_14169 = BgL_za72za7_6488
; }  else 
{ 
 obj_t BgL_auxz00_14172;
BgL_auxz00_14172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91757L), BGl_string4814z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6488); 
FAILURE(BgL_auxz00_14172,BFALSE,BFALSE);} 
BgL_auxz00_14168 = 
BLLONG_TO_LLONG(BgL_tmpz00_14169); } 
{ /* Ieee/fixnum.scm 1924 */
 obj_t BgL_tmpz00_14160;
if(
LLONGP(BgL_za71za7_6487))
{ /* Ieee/fixnum.scm 1924 */
BgL_tmpz00_14160 = BgL_za71za7_6487
; }  else 
{ 
 obj_t BgL_auxz00_14163;
BgL_auxz00_14163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91757L), BGl_string4814z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6487); 
FAILURE(BgL_auxz00_14163,BFALSE,BFALSE);} 
BgL_auxz00_14159 = 
BLLONG_TO_LLONG(BgL_tmpz00_14160); } 
BgL_tmpz00_14158 = 
BGl_za2llongza2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14159, BgL_auxz00_14168); } 
return 
make_bllong(BgL_tmpz00_14158);} } 

}



/* *s8 */
BGL_EXPORTED_DEF int8_t BGl_za2s8za2zz__r4_numbers_6_5_fixnumz00(int8_t BgL_za71za7_362, int8_t BgL_za72za7_363)
{
{ /* Ieee/fixnum.scm 1926 */
return 
(BgL_za71za7_362*BgL_za72za7_363);} 

}



/* &*s8 */
obj_t BGl_z62za2s8zc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6489, obj_t BgL_za71za7_6490, obj_t BgL_za72za7_6491)
{
{ /* Ieee/fixnum.scm 1926 */
{ /* Ieee/fixnum.scm 1926 */
 int8_t BgL_tmpz00_14180;
{ /* Ieee/fixnum.scm 1926 */
 int8_t BgL_auxz00_14190; int8_t BgL_auxz00_14181;
{ /* Ieee/fixnum.scm 1926 */
 obj_t BgL_tmpz00_14191;
if(
BGL_INT8P(BgL_za72za7_6491))
{ /* Ieee/fixnum.scm 1926 */
BgL_tmpz00_14191 = BgL_za72za7_6491
; }  else 
{ 
 obj_t BgL_auxz00_14194;
BgL_auxz00_14194 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91802L), BGl_string4815z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6491); 
FAILURE(BgL_auxz00_14194,BFALSE,BFALSE);} 
BgL_auxz00_14190 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_14191); } 
{ /* Ieee/fixnum.scm 1926 */
 obj_t BgL_tmpz00_14182;
if(
BGL_INT8P(BgL_za71za7_6490))
{ /* Ieee/fixnum.scm 1926 */
BgL_tmpz00_14182 = BgL_za71za7_6490
; }  else 
{ 
 obj_t BgL_auxz00_14185;
BgL_auxz00_14185 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91802L), BGl_string4815z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6490); 
FAILURE(BgL_auxz00_14185,BFALSE,BFALSE);} 
BgL_auxz00_14181 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_14182); } 
BgL_tmpz00_14180 = 
BGl_za2s8za2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14181, BgL_auxz00_14190); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_14180);} } 

}



/* *u8 */
BGL_EXPORTED_DEF uint8_t BGl_za2u8za2zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_za71za7_364, uint8_t BgL_za72za7_365)
{
{ /* Ieee/fixnum.scm 1927 */
return 
(BgL_za71za7_364*BgL_za72za7_365);} 

}



/* &*u8 */
obj_t BGl_z62za2u8zc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6492, obj_t BgL_za71za7_6493, obj_t BgL_za72za7_6494)
{
{ /* Ieee/fixnum.scm 1927 */
{ /* Ieee/fixnum.scm 1927 */
 uint8_t BgL_tmpz00_14202;
{ /* Ieee/fixnum.scm 1927 */
 uint8_t BgL_auxz00_14212; uint8_t BgL_auxz00_14203;
{ /* Ieee/fixnum.scm 1927 */
 obj_t BgL_tmpz00_14213;
if(
BGL_UINT8P(BgL_za72za7_6494))
{ /* Ieee/fixnum.scm 1927 */
BgL_tmpz00_14213 = BgL_za72za7_6494
; }  else 
{ 
 obj_t BgL_auxz00_14216;
BgL_auxz00_14216 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91843L), BGl_string4816z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6494); 
FAILURE(BgL_auxz00_14216,BFALSE,BFALSE);} 
BgL_auxz00_14212 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_14213); } 
{ /* Ieee/fixnum.scm 1927 */
 obj_t BgL_tmpz00_14204;
if(
BGL_UINT8P(BgL_za71za7_6493))
{ /* Ieee/fixnum.scm 1927 */
BgL_tmpz00_14204 = BgL_za71za7_6493
; }  else 
{ 
 obj_t BgL_auxz00_14207;
BgL_auxz00_14207 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91843L), BGl_string4816z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6493); 
FAILURE(BgL_auxz00_14207,BFALSE,BFALSE);} 
BgL_auxz00_14203 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_14204); } 
BgL_tmpz00_14202 = 
BGl_za2u8za2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14203, BgL_auxz00_14212); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_14202);} } 

}



/* *s16 */
BGL_EXPORTED_DEF int16_t BGl_za2s16za2zz__r4_numbers_6_5_fixnumz00(int16_t BgL_za71za7_366, int16_t BgL_za72za7_367)
{
{ /* Ieee/fixnum.scm 1929 */
return 
(BgL_za71za7_366*BgL_za72za7_367);} 

}



/* &*s16 */
obj_t BGl_z62za2s16zc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6495, obj_t BgL_za71za7_6496, obj_t BgL_za72za7_6497)
{
{ /* Ieee/fixnum.scm 1929 */
{ /* Ieee/fixnum.scm 1929 */
 int16_t BgL_tmpz00_14224;
{ /* Ieee/fixnum.scm 1929 */
 int16_t BgL_auxz00_14234; int16_t BgL_auxz00_14225;
{ /* Ieee/fixnum.scm 1929 */
 obj_t BgL_tmpz00_14235;
if(
BGL_INT16P(BgL_za72za7_6497))
{ /* Ieee/fixnum.scm 1929 */
BgL_tmpz00_14235 = BgL_za72za7_6497
; }  else 
{ 
 obj_t BgL_auxz00_14238;
BgL_auxz00_14238 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91886L), BGl_string4817z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6497); 
FAILURE(BgL_auxz00_14238,BFALSE,BFALSE);} 
BgL_auxz00_14234 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_14235); } 
{ /* Ieee/fixnum.scm 1929 */
 obj_t BgL_tmpz00_14226;
if(
BGL_INT16P(BgL_za71za7_6496))
{ /* Ieee/fixnum.scm 1929 */
BgL_tmpz00_14226 = BgL_za71za7_6496
; }  else 
{ 
 obj_t BgL_auxz00_14229;
BgL_auxz00_14229 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91886L), BGl_string4817z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6496); 
FAILURE(BgL_auxz00_14229,BFALSE,BFALSE);} 
BgL_auxz00_14225 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_14226); } 
BgL_tmpz00_14224 = 
BGl_za2s16za2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14225, BgL_auxz00_14234); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_14224);} } 

}



/* *u16 */
BGL_EXPORTED_DEF uint16_t BGl_za2u16za2zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_za71za7_368, uint16_t BgL_za72za7_369)
{
{ /* Ieee/fixnum.scm 1930 */
return 
(BgL_za71za7_368*BgL_za72za7_369);} 

}



/* &*u16 */
obj_t BGl_z62za2u16zc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6498, obj_t BgL_za71za7_6499, obj_t BgL_za72za7_6500)
{
{ /* Ieee/fixnum.scm 1930 */
{ /* Ieee/fixnum.scm 1930 */
 uint16_t BgL_tmpz00_14246;
{ /* Ieee/fixnum.scm 1930 */
 uint16_t BgL_auxz00_14256; uint16_t BgL_auxz00_14247;
{ /* Ieee/fixnum.scm 1930 */
 obj_t BgL_tmpz00_14257;
if(
BGL_UINT16P(BgL_za72za7_6500))
{ /* Ieee/fixnum.scm 1930 */
BgL_tmpz00_14257 = BgL_za72za7_6500
; }  else 
{ 
 obj_t BgL_auxz00_14260;
BgL_auxz00_14260 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91929L), BGl_string4818z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6500); 
FAILURE(BgL_auxz00_14260,BFALSE,BFALSE);} 
BgL_auxz00_14256 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_14257); } 
{ /* Ieee/fixnum.scm 1930 */
 obj_t BgL_tmpz00_14248;
if(
BGL_UINT16P(BgL_za71za7_6499))
{ /* Ieee/fixnum.scm 1930 */
BgL_tmpz00_14248 = BgL_za71za7_6499
; }  else 
{ 
 obj_t BgL_auxz00_14251;
BgL_auxz00_14251 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91929L), BGl_string4818z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6499); 
FAILURE(BgL_auxz00_14251,BFALSE,BFALSE);} 
BgL_auxz00_14247 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_14248); } 
BgL_tmpz00_14246 = 
BGl_za2u16za2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14247, BgL_auxz00_14256); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_14246);} } 

}



/* *s32 */
BGL_EXPORTED_DEF int32_t BGl_za2s32za2zz__r4_numbers_6_5_fixnumz00(int32_t BgL_za71za7_370, int32_t BgL_za72za7_371)
{
{ /* Ieee/fixnum.scm 1932 */
return 
(BgL_za71za7_370*BgL_za72za7_371);} 

}



/* &*s32 */
obj_t BGl_z62za2s32zc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6501, obj_t BgL_za71za7_6502, obj_t BgL_za72za7_6503)
{
{ /* Ieee/fixnum.scm 1932 */
{ /* Ieee/fixnum.scm 1932 */
 int32_t BgL_tmpz00_14268;
{ /* Ieee/fixnum.scm 1932 */
 int32_t BgL_auxz00_14278; int32_t BgL_auxz00_14269;
{ /* Ieee/fixnum.scm 1932 */
 obj_t BgL_tmpz00_14279;
if(
BGL_INT32P(BgL_za72za7_6503))
{ /* Ieee/fixnum.scm 1932 */
BgL_tmpz00_14279 = BgL_za72za7_6503
; }  else 
{ 
 obj_t BgL_auxz00_14282;
BgL_auxz00_14282 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91973L), BGl_string4819z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6503); 
FAILURE(BgL_auxz00_14282,BFALSE,BFALSE);} 
BgL_auxz00_14278 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_14279); } 
{ /* Ieee/fixnum.scm 1932 */
 obj_t BgL_tmpz00_14270;
if(
BGL_INT32P(BgL_za71za7_6502))
{ /* Ieee/fixnum.scm 1932 */
BgL_tmpz00_14270 = BgL_za71za7_6502
; }  else 
{ 
 obj_t BgL_auxz00_14273;
BgL_auxz00_14273 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(91973L), BGl_string4819z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6502); 
FAILURE(BgL_auxz00_14273,BFALSE,BFALSE);} 
BgL_auxz00_14269 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_14270); } 
BgL_tmpz00_14268 = 
BGl_za2s32za2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14269, BgL_auxz00_14278); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_14268);} } 

}



/* *u32 */
BGL_EXPORTED_DEF uint32_t BGl_za2u32za2zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_za71za7_372, uint32_t BgL_za72za7_373)
{
{ /* Ieee/fixnum.scm 1933 */
return 
(BgL_za71za7_372*BgL_za72za7_373);} 

}



/* &*u32 */
obj_t BGl_z62za2u32zc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6504, obj_t BgL_za71za7_6505, obj_t BgL_za72za7_6506)
{
{ /* Ieee/fixnum.scm 1933 */
{ /* Ieee/fixnum.scm 1933 */
 uint32_t BgL_tmpz00_14290;
{ /* Ieee/fixnum.scm 1933 */
 uint32_t BgL_auxz00_14300; uint32_t BgL_auxz00_14291;
{ /* Ieee/fixnum.scm 1933 */
 obj_t BgL_tmpz00_14301;
if(
BGL_UINT32P(BgL_za72za7_6506))
{ /* Ieee/fixnum.scm 1933 */
BgL_tmpz00_14301 = BgL_za72za7_6506
; }  else 
{ 
 obj_t BgL_auxz00_14304;
BgL_auxz00_14304 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92016L), BGl_string4820z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6506); 
FAILURE(BgL_auxz00_14304,BFALSE,BFALSE);} 
BgL_auxz00_14300 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_14301); } 
{ /* Ieee/fixnum.scm 1933 */
 obj_t BgL_tmpz00_14292;
if(
BGL_UINT32P(BgL_za71za7_6505))
{ /* Ieee/fixnum.scm 1933 */
BgL_tmpz00_14292 = BgL_za71za7_6505
; }  else 
{ 
 obj_t BgL_auxz00_14295;
BgL_auxz00_14295 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92016L), BGl_string4820z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6505); 
FAILURE(BgL_auxz00_14295,BFALSE,BFALSE);} 
BgL_auxz00_14291 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_14292); } 
BgL_tmpz00_14290 = 
BGl_za2u32za2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14291, BgL_auxz00_14300); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_14290);} } 

}



/* *s64 */
BGL_EXPORTED_DEF int64_t BGl_za2s64za2zz__r4_numbers_6_5_fixnumz00(int64_t BgL_za71za7_374, int64_t BgL_za72za7_375)
{
{ /* Ieee/fixnum.scm 1935 */
return 
(BgL_za71za7_374*BgL_za72za7_375);} 

}



/* &*s64 */
obj_t BGl_z62za2s64zc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6507, obj_t BgL_za71za7_6508, obj_t BgL_za72za7_6509)
{
{ /* Ieee/fixnum.scm 1935 */
{ /* Ieee/fixnum.scm 1935 */
 int64_t BgL_tmpz00_14312;
{ /* Ieee/fixnum.scm 1935 */
 int64_t BgL_auxz00_14322; int64_t BgL_auxz00_14313;
{ /* Ieee/fixnum.scm 1935 */
 obj_t BgL_tmpz00_14323;
if(
BGL_INT64P(BgL_za72za7_6509))
{ /* Ieee/fixnum.scm 1935 */
BgL_tmpz00_14323 = BgL_za72za7_6509
; }  else 
{ 
 obj_t BgL_auxz00_14326;
BgL_auxz00_14326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92060L), BGl_string4821z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6509); 
FAILURE(BgL_auxz00_14326,BFALSE,BFALSE);} 
BgL_auxz00_14322 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14323); } 
{ /* Ieee/fixnum.scm 1935 */
 obj_t BgL_tmpz00_14314;
if(
BGL_INT64P(BgL_za71za7_6508))
{ /* Ieee/fixnum.scm 1935 */
BgL_tmpz00_14314 = BgL_za71za7_6508
; }  else 
{ 
 obj_t BgL_auxz00_14317;
BgL_auxz00_14317 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92060L), BGl_string4821z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6508); 
FAILURE(BgL_auxz00_14317,BFALSE,BFALSE);} 
BgL_auxz00_14313 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14314); } 
BgL_tmpz00_14312 = 
BGl_za2s64za2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14313, BgL_auxz00_14322); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_14312);} } 

}



/* *u64 */
BGL_EXPORTED_DEF uint64_t BGl_za2u64za2zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_za71za7_376, uint64_t BgL_za72za7_377)
{
{ /* Ieee/fixnum.scm 1936 */
return 
(BgL_za71za7_376*BgL_za72za7_377);} 

}



/* &*u64 */
obj_t BGl_z62za2u64zc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6510, obj_t BgL_za71za7_6511, obj_t BgL_za72za7_6512)
{
{ /* Ieee/fixnum.scm 1936 */
{ /* Ieee/fixnum.scm 1936 */
 uint64_t BgL_tmpz00_14334;
{ /* Ieee/fixnum.scm 1936 */
 uint64_t BgL_auxz00_14344; uint64_t BgL_auxz00_14335;
{ /* Ieee/fixnum.scm 1936 */
 obj_t BgL_tmpz00_14345;
if(
BGL_UINT64P(BgL_za72za7_6512))
{ /* Ieee/fixnum.scm 1936 */
BgL_tmpz00_14345 = BgL_za72za7_6512
; }  else 
{ 
 obj_t BgL_auxz00_14348;
BgL_auxz00_14348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92103L), BGl_string4822z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6512); 
FAILURE(BgL_auxz00_14348,BFALSE,BFALSE);} 
BgL_auxz00_14344 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14345); } 
{ /* Ieee/fixnum.scm 1936 */
 obj_t BgL_tmpz00_14336;
if(
BGL_UINT64P(BgL_za71za7_6511))
{ /* Ieee/fixnum.scm 1936 */
BgL_tmpz00_14336 = BgL_za71za7_6511
; }  else 
{ 
 obj_t BgL_auxz00_14339;
BgL_auxz00_14339 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92103L), BGl_string4822z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6511); 
FAILURE(BgL_auxz00_14339,BFALSE,BFALSE);} 
BgL_auxz00_14335 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14336); } 
BgL_tmpz00_14334 = 
BGl_za2u64za2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14335, BgL_auxz00_14344); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_14334);} } 

}



/* *bx */
BGL_EXPORTED_DEF obj_t BGl_za2bxza2zz__r4_numbers_6_5_fixnumz00(obj_t BgL_za71za7_378, obj_t BgL_za72za7_379)
{
{ /* Ieee/fixnum.scm 1938 */
BGL_TAIL return 
bgl_bignum_mul(BgL_za71za7_378, BgL_za72za7_379);} 

}



/* &*bx */
obj_t BGl_z62za2bxzc0zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6513, obj_t BgL_za71za7_6514, obj_t BgL_za72za7_6515)
{
{ /* Ieee/fixnum.scm 1938 */
{ /* Ieee/fixnum.scm 1938 */
 obj_t BgL_auxz00_14363; obj_t BgL_auxz00_14356;
if(
BIGNUMP(BgL_za72za7_6515))
{ /* Ieee/fixnum.scm 1938 */
BgL_auxz00_14363 = BgL_za72za7_6515
; }  else 
{ 
 obj_t BgL_auxz00_14366;
BgL_auxz00_14366 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92146L), BGl_string4823z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6515); 
FAILURE(BgL_auxz00_14366,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_za71za7_6514))
{ /* Ieee/fixnum.scm 1938 */
BgL_auxz00_14356 = BgL_za71za7_6514
; }  else 
{ 
 obj_t BgL_auxz00_14359;
BgL_auxz00_14359 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92146L), BGl_string4823z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6514); 
FAILURE(BgL_auxz00_14359,BFALSE,BFALSE);} 
return 
BGl_za2bxza2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14356, BgL_auxz00_14363);} } 

}



/* *fx/ov */
BGL_EXPORTED_DEF obj_t BGl_za2fxzf2ovz50zz__r4_numbers_6_5_fixnumz00(obj_t BgL_za71za7_380, obj_t BgL_za72za7_381)
{
{ /* Ieee/fixnum.scm 1940 */
{ /* Ieee/fixnum.scm 1943 */
 obj_t BgL_tmpz00_8739;
BgL_tmpz00_8739 = 
BINT(0L); 
{ /* Ieee/fixnum.scm 1944 */
 bool_t BgL_test6413z00_14372;
{ /* Ieee/fixnum.scm 1944 */
 long BgL_tmpz00_14373;
BgL_tmpz00_14373 = 
(long)CINT(BgL_za72za7_381); 
BgL_test6413z00_14372 = 
BGL_MULFX_OV(BgL_za71za7_380, BgL_tmpz00_14373, BgL_tmpz00_8739); } 
if(BgL_test6413z00_14372)
{ /* Ieee/fixnum.scm 1944 */
return 
bgl_bignum_mul(
bgl_long_to_bignum(
(long)CINT(BgL_za71za7_380)), 
bgl_long_to_bignum(
(long)CINT(BgL_za72za7_381)));}  else 
{ /* Ieee/fixnum.scm 1944 */
return BgL_tmpz00_8739;} } } } 

}



/* &*fx/ov */
obj_t BGl_z62za2fxzf2ovz32zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6516, obj_t BgL_za71za7_6517, obj_t BgL_za72za7_6518)
{
{ /* Ieee/fixnum.scm 1940 */
{ /* Ieee/fixnum.scm 1943 */
 obj_t BgL_auxz00_14388; obj_t BgL_auxz00_14381;
if(
INTEGERP(BgL_za72za7_6518))
{ /* Ieee/fixnum.scm 1943 */
BgL_auxz00_14388 = BgL_za72za7_6518
; }  else 
{ 
 obj_t BgL_auxz00_14391;
BgL_auxz00_14391 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92230L), BGl_string4824z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6518); 
FAILURE(BgL_auxz00_14391,BFALSE,BFALSE);} 
if(
INTEGERP(BgL_za71za7_6517))
{ /* Ieee/fixnum.scm 1943 */
BgL_auxz00_14381 = BgL_za71za7_6517
; }  else 
{ 
 obj_t BgL_auxz00_14384;
BgL_auxz00_14384 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92230L), BGl_string4824z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6517); 
FAILURE(BgL_auxz00_14384,BFALSE,BFALSE);} 
return 
BGl_za2fxzf2ovz50zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14381, BgL_auxz00_14388);} } 

}



/* /fx */
BGL_EXPORTED_DEF long BGl_zf2fxzf2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_382, long BgL_za72za7_383)
{
{ /* Ieee/fixnum.scm 1953 */
return 
(BgL_za71za7_382/BgL_za72za7_383);} 

}



/* &/fx */
obj_t BGl_z62zf2fxz90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6519, obj_t BgL_za71za7_6520, obj_t BgL_za72za7_6521)
{
{ /* Ieee/fixnum.scm 1953 */
{ /* Ieee/fixnum.scm 1953 */
 long BgL_tmpz00_14397;
{ /* Ieee/fixnum.scm 1953 */
 long BgL_auxz00_14407; long BgL_auxz00_14398;
{ /* Ieee/fixnum.scm 1953 */
 obj_t BgL_tmpz00_14408;
if(
INTEGERP(BgL_za72za7_6521))
{ /* Ieee/fixnum.scm 1953 */
BgL_tmpz00_14408 = BgL_za72za7_6521
; }  else 
{ 
 obj_t BgL_auxz00_14411;
BgL_auxz00_14411 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92635L), BGl_string4825z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6521); 
FAILURE(BgL_auxz00_14411,BFALSE,BFALSE);} 
BgL_auxz00_14407 = 
(long)CINT(BgL_tmpz00_14408); } 
{ /* Ieee/fixnum.scm 1953 */
 obj_t BgL_tmpz00_14399;
if(
INTEGERP(BgL_za71za7_6520))
{ /* Ieee/fixnum.scm 1953 */
BgL_tmpz00_14399 = BgL_za71za7_6520
; }  else 
{ 
 obj_t BgL_auxz00_14402;
BgL_auxz00_14402 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92635L), BGl_string4825z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6520); 
FAILURE(BgL_auxz00_14402,BFALSE,BFALSE);} 
BgL_auxz00_14398 = 
(long)CINT(BgL_tmpz00_14399); } 
BgL_tmpz00_14397 = 
BGl_zf2fxzf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14398, BgL_auxz00_14407); } 
return 
BINT(BgL_tmpz00_14397);} } 

}



/* /elong */
BGL_EXPORTED_DEF long BGl_zf2elongzf2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_384, long BgL_za72za7_385)
{
{ /* Ieee/fixnum.scm 1955 */
return 
(BgL_za71za7_384/BgL_za72za7_385);} 

}



/* &/elong */
obj_t BGl_z62zf2elongz90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6522, obj_t BgL_za71za7_6523, obj_t BgL_za72za7_6524)
{
{ /* Ieee/fixnum.scm 1955 */
{ /* Ieee/fixnum.scm 1955 */
 long BgL_tmpz00_14419;
{ /* Ieee/fixnum.scm 1955 */
 long BgL_auxz00_14429; long BgL_auxz00_14420;
{ /* Ieee/fixnum.scm 1955 */
 obj_t BgL_tmpz00_14430;
if(
ELONGP(BgL_za72za7_6524))
{ /* Ieee/fixnum.scm 1955 */
BgL_tmpz00_14430 = BgL_za72za7_6524
; }  else 
{ 
 obj_t BgL_auxz00_14433;
BgL_auxz00_14433 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92680L), BGl_string4826z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6524); 
FAILURE(BgL_auxz00_14433,BFALSE,BFALSE);} 
BgL_auxz00_14429 = 
BELONG_TO_LONG(BgL_tmpz00_14430); } 
{ /* Ieee/fixnum.scm 1955 */
 obj_t BgL_tmpz00_14421;
if(
ELONGP(BgL_za71za7_6523))
{ /* Ieee/fixnum.scm 1955 */
BgL_tmpz00_14421 = BgL_za71za7_6523
; }  else 
{ 
 obj_t BgL_auxz00_14424;
BgL_auxz00_14424 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92680L), BGl_string4826z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6523); 
FAILURE(BgL_auxz00_14424,BFALSE,BFALSE);} 
BgL_auxz00_14420 = 
BELONG_TO_LONG(BgL_tmpz00_14421); } 
BgL_tmpz00_14419 = 
BGl_zf2elongzf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14420, BgL_auxz00_14429); } 
return 
make_belong(BgL_tmpz00_14419);} } 

}



/* /llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_zf2llongzf2zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_za71za7_386, BGL_LONGLONG_T BgL_za72za7_387)
{
{ /* Ieee/fixnum.scm 1956 */
return 
(BgL_za71za7_386/BgL_za72za7_387);} 

}



/* &/llong */
obj_t BGl_z62zf2llongz90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6525, obj_t BgL_za71za7_6526, obj_t BgL_za72za7_6527)
{
{ /* Ieee/fixnum.scm 1956 */
{ /* Ieee/fixnum.scm 1956 */
 BGL_LONGLONG_T BgL_tmpz00_14441;
{ /* Ieee/fixnum.scm 1956 */
 BGL_LONGLONG_T BgL_auxz00_14451; BGL_LONGLONG_T BgL_auxz00_14442;
{ /* Ieee/fixnum.scm 1956 */
 obj_t BgL_tmpz00_14452;
if(
LLONGP(BgL_za72za7_6527))
{ /* Ieee/fixnum.scm 1956 */
BgL_tmpz00_14452 = BgL_za72za7_6527
; }  else 
{ 
 obj_t BgL_auxz00_14455;
BgL_auxz00_14455 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92727L), BGl_string4827z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6527); 
FAILURE(BgL_auxz00_14455,BFALSE,BFALSE);} 
BgL_auxz00_14451 = 
BLLONG_TO_LLONG(BgL_tmpz00_14452); } 
{ /* Ieee/fixnum.scm 1956 */
 obj_t BgL_tmpz00_14443;
if(
LLONGP(BgL_za71za7_6526))
{ /* Ieee/fixnum.scm 1956 */
BgL_tmpz00_14443 = BgL_za71za7_6526
; }  else 
{ 
 obj_t BgL_auxz00_14446;
BgL_auxz00_14446 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92727L), BGl_string4827z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6526); 
FAILURE(BgL_auxz00_14446,BFALSE,BFALSE);} 
BgL_auxz00_14442 = 
BLLONG_TO_LLONG(BgL_tmpz00_14443); } 
BgL_tmpz00_14441 = 
BGl_zf2llongzf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14442, BgL_auxz00_14451); } 
return 
make_bllong(BgL_tmpz00_14441);} } 

}



/* /s8 */
BGL_EXPORTED_DEF int8_t BGl_zf2s8zf2zz__r4_numbers_6_5_fixnumz00(int8_t BgL_za71za7_388, int8_t BgL_za72za7_389)
{
{ /* Ieee/fixnum.scm 1958 */
return 
(BgL_za71za7_388/BgL_za72za7_389);} 

}



/* &/s8 */
obj_t BGl_z62zf2s8z90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6528, obj_t BgL_za71za7_6529, obj_t BgL_za72za7_6530)
{
{ /* Ieee/fixnum.scm 1958 */
{ /* Ieee/fixnum.scm 1958 */
 int8_t BgL_tmpz00_14463;
{ /* Ieee/fixnum.scm 1958 */
 int8_t BgL_auxz00_14473; int8_t BgL_auxz00_14464;
{ /* Ieee/fixnum.scm 1958 */
 obj_t BgL_tmpz00_14474;
if(
BGL_INT8P(BgL_za72za7_6530))
{ /* Ieee/fixnum.scm 1958 */
BgL_tmpz00_14474 = BgL_za72za7_6530
; }  else 
{ 
 obj_t BgL_auxz00_14477;
BgL_auxz00_14477 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92772L), BGl_string4828z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6530); 
FAILURE(BgL_auxz00_14477,BFALSE,BFALSE);} 
BgL_auxz00_14473 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_14474); } 
{ /* Ieee/fixnum.scm 1958 */
 obj_t BgL_tmpz00_14465;
if(
BGL_INT8P(BgL_za71za7_6529))
{ /* Ieee/fixnum.scm 1958 */
BgL_tmpz00_14465 = BgL_za71za7_6529
; }  else 
{ 
 obj_t BgL_auxz00_14468;
BgL_auxz00_14468 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92772L), BGl_string4828z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6529); 
FAILURE(BgL_auxz00_14468,BFALSE,BFALSE);} 
BgL_auxz00_14464 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_14465); } 
BgL_tmpz00_14463 = 
BGl_zf2s8zf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14464, BgL_auxz00_14473); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_14463);} } 

}



/* /u8 */
BGL_EXPORTED_DEF uint8_t BGl_zf2u8zf2zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_za71za7_390, uint8_t BgL_za72za7_391)
{
{ /* Ieee/fixnum.scm 1959 */
return 
(BgL_za71za7_390/BgL_za72za7_391);} 

}



/* &/u8 */
obj_t BGl_z62zf2u8z90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6531, obj_t BgL_za71za7_6532, obj_t BgL_za72za7_6533)
{
{ /* Ieee/fixnum.scm 1959 */
{ /* Ieee/fixnum.scm 1959 */
 uint8_t BgL_tmpz00_14485;
{ /* Ieee/fixnum.scm 1959 */
 uint8_t BgL_auxz00_14495; uint8_t BgL_auxz00_14486;
{ /* Ieee/fixnum.scm 1959 */
 obj_t BgL_tmpz00_14496;
if(
BGL_UINT8P(BgL_za72za7_6533))
{ /* Ieee/fixnum.scm 1959 */
BgL_tmpz00_14496 = BgL_za72za7_6533
; }  else 
{ 
 obj_t BgL_auxz00_14499;
BgL_auxz00_14499 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92813L), BGl_string4829z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6533); 
FAILURE(BgL_auxz00_14499,BFALSE,BFALSE);} 
BgL_auxz00_14495 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_14496); } 
{ /* Ieee/fixnum.scm 1959 */
 obj_t BgL_tmpz00_14487;
if(
BGL_UINT8P(BgL_za71za7_6532))
{ /* Ieee/fixnum.scm 1959 */
BgL_tmpz00_14487 = BgL_za71za7_6532
; }  else 
{ 
 obj_t BgL_auxz00_14490;
BgL_auxz00_14490 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92813L), BGl_string4829z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6532); 
FAILURE(BgL_auxz00_14490,BFALSE,BFALSE);} 
BgL_auxz00_14486 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_14487); } 
BgL_tmpz00_14485 = 
BGl_zf2u8zf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14486, BgL_auxz00_14495); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_14485);} } 

}



/* /s16 */
BGL_EXPORTED_DEF int16_t BGl_zf2s16zf2zz__r4_numbers_6_5_fixnumz00(int16_t BgL_za71za7_392, int16_t BgL_za72za7_393)
{
{ /* Ieee/fixnum.scm 1961 */
return 
(BgL_za71za7_392/BgL_za72za7_393);} 

}



/* &/s16 */
obj_t BGl_z62zf2s16z90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6534, obj_t BgL_za71za7_6535, obj_t BgL_za72za7_6536)
{
{ /* Ieee/fixnum.scm 1961 */
{ /* Ieee/fixnum.scm 1961 */
 int16_t BgL_tmpz00_14507;
{ /* Ieee/fixnum.scm 1961 */
 int16_t BgL_auxz00_14517; int16_t BgL_auxz00_14508;
{ /* Ieee/fixnum.scm 1961 */
 obj_t BgL_tmpz00_14518;
if(
BGL_INT16P(BgL_za72za7_6536))
{ /* Ieee/fixnum.scm 1961 */
BgL_tmpz00_14518 = BgL_za72za7_6536
; }  else 
{ 
 obj_t BgL_auxz00_14521;
BgL_auxz00_14521 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92856L), BGl_string4830z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6536); 
FAILURE(BgL_auxz00_14521,BFALSE,BFALSE);} 
BgL_auxz00_14517 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_14518); } 
{ /* Ieee/fixnum.scm 1961 */
 obj_t BgL_tmpz00_14509;
if(
BGL_INT16P(BgL_za71za7_6535))
{ /* Ieee/fixnum.scm 1961 */
BgL_tmpz00_14509 = BgL_za71za7_6535
; }  else 
{ 
 obj_t BgL_auxz00_14512;
BgL_auxz00_14512 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92856L), BGl_string4830z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6535); 
FAILURE(BgL_auxz00_14512,BFALSE,BFALSE);} 
BgL_auxz00_14508 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_14509); } 
BgL_tmpz00_14507 = 
BGl_zf2s16zf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14508, BgL_auxz00_14517); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_14507);} } 

}



/* /u16 */
BGL_EXPORTED_DEF uint16_t BGl_zf2u16zf2zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_za71za7_394, uint16_t BgL_za72za7_395)
{
{ /* Ieee/fixnum.scm 1962 */
return 
(BgL_za71za7_394/BgL_za72za7_395);} 

}



/* &/u16 */
obj_t BGl_z62zf2u16z90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6537, obj_t BgL_za71za7_6538, obj_t BgL_za72za7_6539)
{
{ /* Ieee/fixnum.scm 1962 */
{ /* Ieee/fixnum.scm 1962 */
 uint16_t BgL_tmpz00_14529;
{ /* Ieee/fixnum.scm 1962 */
 uint16_t BgL_auxz00_14539; uint16_t BgL_auxz00_14530;
{ /* Ieee/fixnum.scm 1962 */
 obj_t BgL_tmpz00_14540;
if(
BGL_UINT16P(BgL_za72za7_6539))
{ /* Ieee/fixnum.scm 1962 */
BgL_tmpz00_14540 = BgL_za72za7_6539
; }  else 
{ 
 obj_t BgL_auxz00_14543;
BgL_auxz00_14543 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92899L), BGl_string4831z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6539); 
FAILURE(BgL_auxz00_14543,BFALSE,BFALSE);} 
BgL_auxz00_14539 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_14540); } 
{ /* Ieee/fixnum.scm 1962 */
 obj_t BgL_tmpz00_14531;
if(
BGL_UINT16P(BgL_za71za7_6538))
{ /* Ieee/fixnum.scm 1962 */
BgL_tmpz00_14531 = BgL_za71za7_6538
; }  else 
{ 
 obj_t BgL_auxz00_14534;
BgL_auxz00_14534 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92899L), BGl_string4831z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6538); 
FAILURE(BgL_auxz00_14534,BFALSE,BFALSE);} 
BgL_auxz00_14530 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_14531); } 
BgL_tmpz00_14529 = 
BGl_zf2u16zf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14530, BgL_auxz00_14539); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_14529);} } 

}



/* /s32 */
BGL_EXPORTED_DEF int32_t BGl_zf2s32zf2zz__r4_numbers_6_5_fixnumz00(int32_t BgL_za71za7_396, int32_t BgL_za72za7_397)
{
{ /* Ieee/fixnum.scm 1964 */
return 
(BgL_za71za7_396/BgL_za72za7_397);} 

}



/* &/s32 */
obj_t BGl_z62zf2s32z90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6540, obj_t BgL_za71za7_6541, obj_t BgL_za72za7_6542)
{
{ /* Ieee/fixnum.scm 1964 */
{ /* Ieee/fixnum.scm 1964 */
 int32_t BgL_tmpz00_14551;
{ /* Ieee/fixnum.scm 1964 */
 int32_t BgL_auxz00_14561; int32_t BgL_auxz00_14552;
{ /* Ieee/fixnum.scm 1964 */
 obj_t BgL_tmpz00_14562;
if(
BGL_INT32P(BgL_za72za7_6542))
{ /* Ieee/fixnum.scm 1964 */
BgL_tmpz00_14562 = BgL_za72za7_6542
; }  else 
{ 
 obj_t BgL_auxz00_14565;
BgL_auxz00_14565 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92943L), BGl_string4832z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6542); 
FAILURE(BgL_auxz00_14565,BFALSE,BFALSE);} 
BgL_auxz00_14561 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_14562); } 
{ /* Ieee/fixnum.scm 1964 */
 obj_t BgL_tmpz00_14553;
if(
BGL_INT32P(BgL_za71za7_6541))
{ /* Ieee/fixnum.scm 1964 */
BgL_tmpz00_14553 = BgL_za71za7_6541
; }  else 
{ 
 obj_t BgL_auxz00_14556;
BgL_auxz00_14556 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92943L), BGl_string4832z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6541); 
FAILURE(BgL_auxz00_14556,BFALSE,BFALSE);} 
BgL_auxz00_14552 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_14553); } 
BgL_tmpz00_14551 = 
BGl_zf2s32zf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14552, BgL_auxz00_14561); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_14551);} } 

}



/* /u32 */
BGL_EXPORTED_DEF uint32_t BGl_zf2u32zf2zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_za71za7_398, uint32_t BgL_za72za7_399)
{
{ /* Ieee/fixnum.scm 1965 */
return 
(BgL_za71za7_398/BgL_za72za7_399);} 

}



/* &/u32 */
obj_t BGl_z62zf2u32z90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6543, obj_t BgL_za71za7_6544, obj_t BgL_za72za7_6545)
{
{ /* Ieee/fixnum.scm 1965 */
{ /* Ieee/fixnum.scm 1965 */
 uint32_t BgL_tmpz00_14573;
{ /* Ieee/fixnum.scm 1965 */
 uint32_t BgL_auxz00_14583; uint32_t BgL_auxz00_14574;
{ /* Ieee/fixnum.scm 1965 */
 obj_t BgL_tmpz00_14584;
if(
BGL_UINT32P(BgL_za72za7_6545))
{ /* Ieee/fixnum.scm 1965 */
BgL_tmpz00_14584 = BgL_za72za7_6545
; }  else 
{ 
 obj_t BgL_auxz00_14587;
BgL_auxz00_14587 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92986L), BGl_string4833z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6545); 
FAILURE(BgL_auxz00_14587,BFALSE,BFALSE);} 
BgL_auxz00_14583 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_14584); } 
{ /* Ieee/fixnum.scm 1965 */
 obj_t BgL_tmpz00_14575;
if(
BGL_UINT32P(BgL_za71za7_6544))
{ /* Ieee/fixnum.scm 1965 */
BgL_tmpz00_14575 = BgL_za71za7_6544
; }  else 
{ 
 obj_t BgL_auxz00_14578;
BgL_auxz00_14578 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(92986L), BGl_string4833z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6544); 
FAILURE(BgL_auxz00_14578,BFALSE,BFALSE);} 
BgL_auxz00_14574 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_14575); } 
BgL_tmpz00_14573 = 
BGl_zf2u32zf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14574, BgL_auxz00_14583); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_14573);} } 

}



/* /s64 */
BGL_EXPORTED_DEF int64_t BGl_zf2s64zf2zz__r4_numbers_6_5_fixnumz00(int64_t BgL_za71za7_400, int64_t BgL_za72za7_401)
{
{ /* Ieee/fixnum.scm 1967 */
return 
(BgL_za71za7_400/BgL_za72za7_401);} 

}



/* &/s64 */
obj_t BGl_z62zf2s64z90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6546, obj_t BgL_za71za7_6547, obj_t BgL_za72za7_6548)
{
{ /* Ieee/fixnum.scm 1967 */
{ /* Ieee/fixnum.scm 1967 */
 int64_t BgL_tmpz00_14595;
{ /* Ieee/fixnum.scm 1967 */
 int64_t BgL_auxz00_14605; int64_t BgL_auxz00_14596;
{ /* Ieee/fixnum.scm 1967 */
 obj_t BgL_tmpz00_14606;
if(
BGL_INT64P(BgL_za72za7_6548))
{ /* Ieee/fixnum.scm 1967 */
BgL_tmpz00_14606 = BgL_za72za7_6548
; }  else 
{ 
 obj_t BgL_auxz00_14609;
BgL_auxz00_14609 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93030L), BGl_string4834z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6548); 
FAILURE(BgL_auxz00_14609,BFALSE,BFALSE);} 
BgL_auxz00_14605 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14606); } 
{ /* Ieee/fixnum.scm 1967 */
 obj_t BgL_tmpz00_14597;
if(
BGL_INT64P(BgL_za71za7_6547))
{ /* Ieee/fixnum.scm 1967 */
BgL_tmpz00_14597 = BgL_za71za7_6547
; }  else 
{ 
 obj_t BgL_auxz00_14600;
BgL_auxz00_14600 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93030L), BGl_string4834z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6547); 
FAILURE(BgL_auxz00_14600,BFALSE,BFALSE);} 
BgL_auxz00_14596 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14597); } 
BgL_tmpz00_14595 = 
BGl_zf2s64zf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14596, BgL_auxz00_14605); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_14595);} } 

}



/* /u64 */
BGL_EXPORTED_DEF uint64_t BGl_zf2u64zf2zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_za71za7_402, uint64_t BgL_za72za7_403)
{
{ /* Ieee/fixnum.scm 1968 */
return 
(BgL_za71za7_402/BgL_za72za7_403);} 

}



/* &/u64 */
obj_t BGl_z62zf2u64z90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6549, obj_t BgL_za71za7_6550, obj_t BgL_za72za7_6551)
{
{ /* Ieee/fixnum.scm 1968 */
{ /* Ieee/fixnum.scm 1968 */
 uint64_t BgL_tmpz00_14617;
{ /* Ieee/fixnum.scm 1968 */
 uint64_t BgL_auxz00_14627; uint64_t BgL_auxz00_14618;
{ /* Ieee/fixnum.scm 1968 */
 obj_t BgL_tmpz00_14628;
if(
BGL_UINT64P(BgL_za72za7_6551))
{ /* Ieee/fixnum.scm 1968 */
BgL_tmpz00_14628 = BgL_za72za7_6551
; }  else 
{ 
 obj_t BgL_auxz00_14631;
BgL_auxz00_14631 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93073L), BGl_string4835z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6551); 
FAILURE(BgL_auxz00_14631,BFALSE,BFALSE);} 
BgL_auxz00_14627 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14628); } 
{ /* Ieee/fixnum.scm 1968 */
 obj_t BgL_tmpz00_14619;
if(
BGL_UINT64P(BgL_za71za7_6550))
{ /* Ieee/fixnum.scm 1968 */
BgL_tmpz00_14619 = BgL_za71za7_6550
; }  else 
{ 
 obj_t BgL_auxz00_14622;
BgL_auxz00_14622 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93073L), BGl_string4835z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6550); 
FAILURE(BgL_auxz00_14622,BFALSE,BFALSE);} 
BgL_auxz00_14618 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14619); } 
BgL_tmpz00_14617 = 
BGl_zf2u64zf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14618, BgL_auxz00_14627); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_14617);} } 

}



/* /bx */
BGL_EXPORTED_DEF obj_t BGl_zf2bxzf2zz__r4_numbers_6_5_fixnumz00(obj_t BgL_za71za7_404, obj_t BgL_za72za7_405)
{
{ /* Ieee/fixnum.scm 1970 */
BGL_TAIL return 
bgl_bignum_quotient(BgL_za71za7_404, BgL_za72za7_405);} 

}



/* &/bx */
obj_t BGl_z62zf2bxz90zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6552, obj_t BgL_za71za7_6553, obj_t BgL_za72za7_6554)
{
{ /* Ieee/fixnum.scm 1970 */
{ /* Ieee/fixnum.scm 1970 */
 obj_t BgL_auxz00_14646; obj_t BgL_auxz00_14639;
if(
BIGNUMP(BgL_za72za7_6554))
{ /* Ieee/fixnum.scm 1970 */
BgL_auxz00_14646 = BgL_za72za7_6554
; }  else 
{ 
 obj_t BgL_auxz00_14649;
BgL_auxz00_14649 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93116L), BGl_string4836z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_6554); 
FAILURE(BgL_auxz00_14649,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_za71za7_6553))
{ /* Ieee/fixnum.scm 1970 */
BgL_auxz00_14639 = BgL_za71za7_6553
; }  else 
{ 
 obj_t BgL_auxz00_14642;
BgL_auxz00_14642 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93116L), BGl_string4836z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_6553); 
FAILURE(BgL_auxz00_14642,BFALSE,BFALSE);} 
return 
BGl_zf2bxzf2zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14639, BgL_auxz00_14646);} } 

}



/* negfx */
BGL_EXPORTED_DEF long BGl_negfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_406)
{
{ /* Ieee/fixnum.scm 1975 */
return 
NEG(BgL_n1z00_406);} 

}



/* &negfx */
obj_t BGl_z62negfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6555, obj_t BgL_n1z00_6556)
{
{ /* Ieee/fixnum.scm 1975 */
{ /* Ieee/fixnum.scm 1975 */
 long BgL_tmpz00_14655;
{ /* Ieee/fixnum.scm 1975 */
 long BgL_auxz00_14656;
{ /* Ieee/fixnum.scm 1975 */
 obj_t BgL_tmpz00_14657;
if(
INTEGERP(BgL_n1z00_6556))
{ /* Ieee/fixnum.scm 1975 */
BgL_tmpz00_14657 = BgL_n1z00_6556
; }  else 
{ 
 obj_t BgL_auxz00_14660;
BgL_auxz00_14660 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93386L), BGl_string4837z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6556); 
FAILURE(BgL_auxz00_14660,BFALSE,BFALSE);} 
BgL_auxz00_14656 = 
(long)CINT(BgL_tmpz00_14657); } 
BgL_tmpz00_14655 = 
BGl_negfxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14656); } 
return 
BINT(BgL_tmpz00_14655);} } 

}



/* negelong */
BGL_EXPORTED_DEF long BGl_negelongz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_407)
{
{ /* Ieee/fixnum.scm 1977 */
return 
NEG(BgL_n1z00_407);} 

}



/* &negelong */
obj_t BGl_z62negelongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6557, obj_t BgL_n1z00_6558)
{
{ /* Ieee/fixnum.scm 1977 */
{ /* Ieee/fixnum.scm 1977 */
 long BgL_tmpz00_14668;
{ /* Ieee/fixnum.scm 1977 */
 long BgL_auxz00_14669;
{ /* Ieee/fixnum.scm 1977 */
 obj_t BgL_tmpz00_14670;
if(
ELONGP(BgL_n1z00_6558))
{ /* Ieee/fixnum.scm 1977 */
BgL_tmpz00_14670 = BgL_n1z00_6558
; }  else 
{ 
 obj_t BgL_auxz00_14673;
BgL_auxz00_14673 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93429L), BGl_string4838z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6558); 
FAILURE(BgL_auxz00_14673,BFALSE,BFALSE);} 
BgL_auxz00_14669 = 
BELONG_TO_LONG(BgL_tmpz00_14670); } 
BgL_tmpz00_14668 = 
BGl_negelongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14669); } 
return 
make_belong(BgL_tmpz00_14668);} } 

}



/* negllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_negllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_n1z00_408)
{
{ /* Ieee/fixnum.scm 1978 */
return 
NEG(BgL_n1z00_408);} 

}



/* &negllong */
obj_t BGl_z62negllongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6559, obj_t BgL_n1z00_6560)
{
{ /* Ieee/fixnum.scm 1978 */
{ /* Ieee/fixnum.scm 1978 */
 BGL_LONGLONG_T BgL_tmpz00_14681;
{ /* Ieee/fixnum.scm 1978 */
 BGL_LONGLONG_T BgL_auxz00_14682;
{ /* Ieee/fixnum.scm 1978 */
 obj_t BgL_tmpz00_14683;
if(
LLONGP(BgL_n1z00_6560))
{ /* Ieee/fixnum.scm 1978 */
BgL_tmpz00_14683 = BgL_n1z00_6560
; }  else 
{ 
 obj_t BgL_auxz00_14686;
BgL_auxz00_14686 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93474L), BGl_string4839z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6560); 
FAILURE(BgL_auxz00_14686,BFALSE,BFALSE);} 
BgL_auxz00_14682 = 
BLLONG_TO_LLONG(BgL_tmpz00_14683); } 
BgL_tmpz00_14681 = 
BGl_negllongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14682); } 
return 
make_bllong(BgL_tmpz00_14681);} } 

}



/* negs8 */
BGL_EXPORTED_DEF int8_t BGl_negs8z00zz__r4_numbers_6_5_fixnumz00(int8_t BgL_za7za7_409)
{
{ /* Ieee/fixnum.scm 1980 */
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_arg1591z00_8740;
BgL_arg1591z00_8740 = 
(int8_t)(0L); 
return 
(BgL_arg1591z00_8740-BgL_za7za7_409);} } 

}



/* &negs8 */
obj_t BGl_z62negs8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6561, obj_t BgL_za7za7_6562)
{
{ /* Ieee/fixnum.scm 1980 */
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_tmpz00_14695;
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_auxz00_14696;
{ /* Ieee/fixnum.scm 1980 */
 obj_t BgL_tmpz00_14697;
if(
BGL_INT8P(BgL_za7za7_6562))
{ /* Ieee/fixnum.scm 1980 */
BgL_tmpz00_14697 = BgL_za7za7_6562
; }  else 
{ 
 obj_t BgL_auxz00_14700;
BgL_auxz00_14700 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93521L), BGl_string4840z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6562); 
FAILURE(BgL_auxz00_14700,BFALSE,BFALSE);} 
BgL_auxz00_14696 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_14697); } 
BgL_tmpz00_14695 = 
BGl_negs8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14696); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_14695);} } 

}



/* negu8 */
BGL_EXPORTED_DEF uint8_t BGl_negu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_za7za7_410)
{
{ /* Ieee/fixnum.scm 1981 */
{ /* Ieee/fixnum.scm 1981 */
 uint8_t BgL_arg1592z00_8741;
BgL_arg1592z00_8741 = 
(uint8_t)(0L); 
return 
(BgL_arg1592z00_8741-BgL_za7za7_410);} } 

}



/* &negu8 */
obj_t BGl_z62negu8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6563, obj_t BgL_za7za7_6564)
{
{ /* Ieee/fixnum.scm 1981 */
{ /* Ieee/fixnum.scm 1981 */
 uint8_t BgL_tmpz00_14709;
{ /* Ieee/fixnum.scm 1981 */
 uint8_t BgL_auxz00_14710;
{ /* Ieee/fixnum.scm 1981 */
 obj_t BgL_tmpz00_14711;
if(
BGL_UINT8P(BgL_za7za7_6564))
{ /* Ieee/fixnum.scm 1981 */
BgL_tmpz00_14711 = BgL_za7za7_6564
; }  else 
{ 
 obj_t BgL_auxz00_14714;
BgL_auxz00_14714 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93572L), BGl_string4841z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6564); 
FAILURE(BgL_auxz00_14714,BFALSE,BFALSE);} 
BgL_auxz00_14710 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_14711); } 
BgL_tmpz00_14709 = 
BGl_negu8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14710); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_14709);} } 

}



/* negs16 */
BGL_EXPORTED_DEF int16_t BGl_negs16z00zz__r4_numbers_6_5_fixnumz00(int16_t BgL_za7za7_411)
{
{ /* Ieee/fixnum.scm 1983 */
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_arg1595z00_8742;
BgL_arg1595z00_8742 = 
(int16_t)(0L); 
return 
(BgL_arg1595z00_8742-BgL_za7za7_411);} } 

}



/* &negs16 */
obj_t BGl_z62negs16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6565, obj_t BgL_za7za7_6566)
{
{ /* Ieee/fixnum.scm 1983 */
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_tmpz00_14723;
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_auxz00_14724;
{ /* Ieee/fixnum.scm 1983 */
 obj_t BgL_tmpz00_14725;
if(
BGL_INT16P(BgL_za7za7_6566))
{ /* Ieee/fixnum.scm 1983 */
BgL_tmpz00_14725 = BgL_za7za7_6566
; }  else 
{ 
 obj_t BgL_auxz00_14728;
BgL_auxz00_14728 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93627L), BGl_string4842z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6566); 
FAILURE(BgL_auxz00_14728,BFALSE,BFALSE);} 
BgL_auxz00_14724 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_14725); } 
BgL_tmpz00_14723 = 
BGl_negs16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14724); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_14723);} } 

}



/* negu16 */
BGL_EXPORTED_DEF uint16_t BGl_negu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_za7za7_412)
{
{ /* Ieee/fixnum.scm 1984 */
{ /* Ieee/fixnum.scm 1984 */
 uint16_t BgL_arg1597z00_8743;
BgL_arg1597z00_8743 = 
(uint16_t)(0L); 
return 
(BgL_arg1597z00_8743-BgL_za7za7_412);} } 

}



/* &negu16 */
obj_t BGl_z62negu16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6567, obj_t BgL_za7za7_6568)
{
{ /* Ieee/fixnum.scm 1984 */
{ /* Ieee/fixnum.scm 1984 */
 uint16_t BgL_tmpz00_14737;
{ /* Ieee/fixnum.scm 1984 */
 uint16_t BgL_auxz00_14738;
{ /* Ieee/fixnum.scm 1984 */
 obj_t BgL_tmpz00_14739;
if(
BGL_UINT16P(BgL_za7za7_6568))
{ /* Ieee/fixnum.scm 1984 */
BgL_tmpz00_14739 = BgL_za7za7_6568
; }  else 
{ 
 obj_t BgL_auxz00_14742;
BgL_auxz00_14742 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93681L), BGl_string4843z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6568); 
FAILURE(BgL_auxz00_14742,BFALSE,BFALSE);} 
BgL_auxz00_14738 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_14739); } 
BgL_tmpz00_14737 = 
BGl_negu16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14738); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_14737);} } 

}



/* negs32 */
BGL_EXPORTED_DEF int32_t BGl_negs32z00zz__r4_numbers_6_5_fixnumz00(int32_t BgL_za7za7_413)
{
{ /* Ieee/fixnum.scm 1986 */
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_arg1598z00_8744;
BgL_arg1598z00_8744 = 
(int32_t)(0L); 
return 
(BgL_arg1598z00_8744-BgL_za7za7_413);} } 

}



/* &negs32 */
obj_t BGl_z62negs32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6569, obj_t BgL_za7za7_6570)
{
{ /* Ieee/fixnum.scm 1986 */
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_tmpz00_14751;
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_auxz00_14752;
{ /* Ieee/fixnum.scm 1986 */
 obj_t BgL_tmpz00_14753;
if(
BGL_INT32P(BgL_za7za7_6570))
{ /* Ieee/fixnum.scm 1986 */
BgL_tmpz00_14753 = BgL_za7za7_6570
; }  else 
{ 
 obj_t BgL_auxz00_14756;
BgL_auxz00_14756 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93737L), BGl_string4844z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6570); 
FAILURE(BgL_auxz00_14756,BFALSE,BFALSE);} 
BgL_auxz00_14752 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_14753); } 
BgL_tmpz00_14751 = 
BGl_negs32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14752); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_14751);} } 

}



/* negu32 */
BGL_EXPORTED_DEF uint32_t BGl_negu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_za7za7_414)
{
{ /* Ieee/fixnum.scm 1987 */
{ /* Ieee/fixnum.scm 1987 */
 uint32_t BgL_arg1600z00_8745;
BgL_arg1600z00_8745 = 
(uint32_t)(0L); 
return 
(BgL_arg1600z00_8745-BgL_za7za7_414);} } 

}



/* &negu32 */
obj_t BGl_z62negu32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6571, obj_t BgL_za7za7_6572)
{
{ /* Ieee/fixnum.scm 1987 */
{ /* Ieee/fixnum.scm 1987 */
 uint32_t BgL_tmpz00_14765;
{ /* Ieee/fixnum.scm 1987 */
 uint32_t BgL_auxz00_14766;
{ /* Ieee/fixnum.scm 1987 */
 obj_t BgL_tmpz00_14767;
if(
BGL_UINT32P(BgL_za7za7_6572))
{ /* Ieee/fixnum.scm 1987 */
BgL_tmpz00_14767 = BgL_za7za7_6572
; }  else 
{ 
 obj_t BgL_auxz00_14770;
BgL_auxz00_14770 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93791L), BGl_string4845z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6572); 
FAILURE(BgL_auxz00_14770,BFALSE,BFALSE);} 
BgL_auxz00_14766 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_14767); } 
BgL_tmpz00_14765 = 
BGl_negu32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14766); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_14765);} } 

}



/* negs64 */
BGL_EXPORTED_DEF int64_t BGl_negs64z00zz__r4_numbers_6_5_fixnumz00(int64_t BgL_za7za7_415)
{
{ /* Ieee/fixnum.scm 1989 */
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_arg1602z00_8746;
BgL_arg1602z00_8746 = 
(int64_t)(0L); 
return 
(BgL_arg1602z00_8746-BgL_za7za7_415);} } 

}



/* &negs64 */
obj_t BGl_z62negs64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6573, obj_t BgL_za7za7_6574)
{
{ /* Ieee/fixnum.scm 1989 */
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_tmpz00_14779;
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_auxz00_14780;
{ /* Ieee/fixnum.scm 1989 */
 obj_t BgL_tmpz00_14781;
if(
BGL_INT64P(BgL_za7za7_6574))
{ /* Ieee/fixnum.scm 1989 */
BgL_tmpz00_14781 = BgL_za7za7_6574
; }  else 
{ 
 obj_t BgL_auxz00_14784;
BgL_auxz00_14784 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93847L), BGl_string4846z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6574); 
FAILURE(BgL_auxz00_14784,BFALSE,BFALSE);} 
BgL_auxz00_14780 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14781); } 
BgL_tmpz00_14779 = 
BGl_negs64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14780); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_14779);} } 

}



/* negu64 */
BGL_EXPORTED_DEF uint64_t BGl_negu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_za7za7_416)
{
{ /* Ieee/fixnum.scm 1990 */
{ /* Ieee/fixnum.scm 1990 */
 uint64_t BgL_arg1603z00_8747;
BgL_arg1603z00_8747 = 
(uint64_t)(0L); 
return 
(BgL_arg1603z00_8747-BgL_za7za7_416);} } 

}



/* &negu64 */
obj_t BGl_z62negu64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6575, obj_t BgL_za7za7_6576)
{
{ /* Ieee/fixnum.scm 1990 */
{ /* Ieee/fixnum.scm 1990 */
 uint64_t BgL_tmpz00_14793;
{ /* Ieee/fixnum.scm 1990 */
 uint64_t BgL_auxz00_14794;
{ /* Ieee/fixnum.scm 1990 */
 obj_t BgL_tmpz00_14795;
if(
BGL_UINT64P(BgL_za7za7_6576))
{ /* Ieee/fixnum.scm 1990 */
BgL_tmpz00_14795 = BgL_za7za7_6576
; }  else 
{ 
 obj_t BgL_auxz00_14798;
BgL_auxz00_14798 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93901L), BGl_string4847z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6576); 
FAILURE(BgL_auxz00_14798,BFALSE,BFALSE);} 
BgL_auxz00_14794 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14795); } 
BgL_tmpz00_14793 = 
BGl_negu64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14794); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_14793);} } 

}



/* negbx */
BGL_EXPORTED_DEF obj_t BGl_negbxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_417)
{
{ /* Ieee/fixnum.scm 1992 */
BGL_TAIL return 
bgl_bignum_neg(BgL_n1z00_417);} 

}



/* &negbx */
obj_t BGl_z62negbxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6577, obj_t BgL_n1z00_6578)
{
{ /* Ieee/fixnum.scm 1992 */
{ /* Ieee/fixnum.scm 1992 */
 obj_t BgL_auxz00_14806;
if(
BIGNUMP(BgL_n1z00_6578))
{ /* Ieee/fixnum.scm 1992 */
BgL_auxz00_14806 = BgL_n1z00_6578
; }  else 
{ 
 obj_t BgL_auxz00_14809;
BgL_auxz00_14809 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(93951L), BGl_string4848z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6578); 
FAILURE(BgL_auxz00_14809,BFALSE,BFALSE);} 
return 
BGl_negbxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14806);} } 

}



/* absfx */
BGL_EXPORTED_DEF long BGl_absfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_418)
{
{ /* Ieee/fixnum.scm 1997 */
if(
(BgL_nz00_418<0L))
{ /* Ieee/fixnum.scm 1997 */
return 
NEG(BgL_nz00_418);}  else 
{ /* Ieee/fixnum.scm 1997 */
return BgL_nz00_418;} } 

}



/* &absfx */
obj_t BGl_z62absfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6579, obj_t BgL_nz00_6580)
{
{ /* Ieee/fixnum.scm 1997 */
{ /* Ieee/fixnum.scm 1997 */
 long BgL_tmpz00_14817;
{ /* Ieee/fixnum.scm 1997 */
 long BgL_auxz00_14818;
{ /* Ieee/fixnum.scm 1997 */
 obj_t BgL_tmpz00_14819;
if(
INTEGERP(BgL_nz00_6580))
{ /* Ieee/fixnum.scm 1997 */
BgL_tmpz00_14819 = BgL_nz00_6580
; }  else 
{ 
 obj_t BgL_auxz00_14822;
BgL_auxz00_14822 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94212L), BGl_string4849z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6580); 
FAILURE(BgL_auxz00_14822,BFALSE,BFALSE);} 
BgL_auxz00_14818 = 
(long)CINT(BgL_tmpz00_14819); } 
BgL_tmpz00_14817 = 
BGl_absfxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14818); } 
return 
BINT(BgL_tmpz00_14817);} } 

}



/* abselong */
BGL_EXPORTED_DEF long BGl_abselongz00zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_419)
{
{ /* Ieee/fixnum.scm 1999 */
if(
(BgL_nz00_419<((long)0)))
{ /* Ieee/fixnum.scm 1999 */
return 
NEG(BgL_nz00_419);}  else 
{ /* Ieee/fixnum.scm 1999 */
return BgL_nz00_419;} } 

}



/* &abselong */
obj_t BGl_z62abselongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6581, obj_t BgL_nz00_6582)
{
{ /* Ieee/fixnum.scm 1999 */
{ /* Ieee/fixnum.scm 1999 */
 long BgL_tmpz00_14832;
{ /* Ieee/fixnum.scm 1999 */
 long BgL_auxz00_14833;
{ /* Ieee/fixnum.scm 1999 */
 obj_t BgL_tmpz00_14834;
if(
ELONGP(BgL_nz00_6582))
{ /* Ieee/fixnum.scm 1999 */
BgL_tmpz00_14834 = BgL_nz00_6582
; }  else 
{ 
 obj_t BgL_auxz00_14837;
BgL_auxz00_14837 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94269L), BGl_string4850z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6582); 
FAILURE(BgL_auxz00_14837,BFALSE,BFALSE);} 
BgL_auxz00_14833 = 
BELONG_TO_LONG(BgL_tmpz00_14834); } 
BgL_tmpz00_14832 = 
BGl_abselongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14833); } 
return 
make_belong(BgL_tmpz00_14832);} } 

}



/* absllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_absllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_nz00_420)
{
{ /* Ieee/fixnum.scm 2000 */
if(
(BgL_nz00_420<((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2000 */
return 
NEG(BgL_nz00_420);}  else 
{ /* Ieee/fixnum.scm 2000 */
return BgL_nz00_420;} } 

}



/* &absllong */
obj_t BGl_z62absllongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6583, obj_t BgL_nz00_6584)
{
{ /* Ieee/fixnum.scm 2000 */
{ /* Ieee/fixnum.scm 2000 */
 BGL_LONGLONG_T BgL_tmpz00_14847;
{ /* Ieee/fixnum.scm 2000 */
 BGL_LONGLONG_T BgL_auxz00_14848;
{ /* Ieee/fixnum.scm 2000 */
 obj_t BgL_tmpz00_14849;
if(
LLONGP(BgL_nz00_6584))
{ /* Ieee/fixnum.scm 2000 */
BgL_tmpz00_14849 = BgL_nz00_6584
; }  else 
{ 
 obj_t BgL_auxz00_14852;
BgL_auxz00_14852 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94333L), BGl_string4851z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6584); 
FAILURE(BgL_auxz00_14852,BFALSE,BFALSE);} 
BgL_auxz00_14848 = 
BLLONG_TO_LLONG(BgL_tmpz00_14849); } 
BgL_tmpz00_14847 = 
BGl_absllongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14848); } 
return 
make_bllong(BgL_tmpz00_14847);} } 

}



/* abss8 */
BGL_EXPORTED_DEF int8_t BGl_abss8z00zz__r4_numbers_6_5_fixnumz00(int8_t BgL_za7za7_421)
{
{ /* Ieee/fixnum.scm 2002 */
{ /* Ieee/fixnum.scm 2002 */
 bool_t BgL_test6458z00_14859;
{ /* Ieee/fixnum.scm 2002 */
 int8_t BgL_arg1609z00_8748;
BgL_arg1609z00_8748 = 
(int8_t)(0L); 
BgL_test6458z00_14859 = 
(BgL_za7za7_421<BgL_arg1609z00_8748); } 
if(BgL_test6458z00_14859)
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_arg1591z00_8749;
BgL_arg1591z00_8749 = 
(int8_t)(0L); 
return 
(BgL_arg1591z00_8749-BgL_za7za7_421);}  else 
{ /* Ieee/fixnum.scm 2002 */
return BgL_za7za7_421;} } } 

}



/* &abss8 */
obj_t BGl_z62abss8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6585, obj_t BgL_za7za7_6586)
{
{ /* Ieee/fixnum.scm 2002 */
{ /* Ieee/fixnum.scm 2002 */
 int8_t BgL_tmpz00_14864;
{ /* Ieee/fixnum.scm 2002 */
 int8_t BgL_auxz00_14865;
{ /* Ieee/fixnum.scm 2002 */
 obj_t BgL_tmpz00_14866;
if(
BGL_INT8P(BgL_za7za7_6586))
{ /* Ieee/fixnum.scm 2002 */
BgL_tmpz00_14866 = BgL_za7za7_6586
; }  else 
{ 
 obj_t BgL_auxz00_14869;
BgL_auxz00_14869 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94395L), BGl_string4852z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6586); 
FAILURE(BgL_auxz00_14869,BFALSE,BFALSE);} 
BgL_auxz00_14865 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_14866); } 
BgL_tmpz00_14864 = 
BGl_abss8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14865); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_14864);} } 

}



/* absu8 */
BGL_EXPORTED_DEF uint8_t BGl_absu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_za7za7_422)
{
{ /* Ieee/fixnum.scm 2003 */
return BgL_za7za7_422;} 

}



/* &absu8 */
obj_t BGl_z62absu8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6587, obj_t BgL_za7za7_6588)
{
{ /* Ieee/fixnum.scm 2003 */
{ /* Ieee/fixnum.scm 2003 */
 uint8_t BgL_tmpz00_14876;
{ /* Ieee/fixnum.scm 2003 */
 uint8_t BgL_auxz00_14877;
{ /* Ieee/fixnum.scm 2003 */
 obj_t BgL_tmpz00_14878;
if(
BGL_UINT8P(BgL_za7za7_6588))
{ /* Ieee/fixnum.scm 2003 */
BgL_tmpz00_14878 = BgL_za7za7_6588
; }  else 
{ 
 obj_t BgL_auxz00_14881;
BgL_auxz00_14881 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94438L), BGl_string4853z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6588); 
FAILURE(BgL_auxz00_14881,BFALSE,BFALSE);} 
BgL_auxz00_14877 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_14878); } 
BgL_tmpz00_14876 = 
BGl_absu8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14877); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_14876);} } 

}



/* abss16 */
BGL_EXPORTED_DEF int16_t BGl_abss16z00zz__r4_numbers_6_5_fixnumz00(int16_t BgL_za7za7_423)
{
{ /* Ieee/fixnum.scm 2005 */
{ /* Ieee/fixnum.scm 2005 */
 bool_t BgL_test6461z00_14888;
{ /* Ieee/fixnum.scm 2005 */
 int16_t BgL_arg1613z00_8750;
BgL_arg1613z00_8750 = 
(int16_t)(0L); 
BgL_test6461z00_14888 = 
(BgL_za7za7_423<BgL_arg1613z00_8750); } 
if(BgL_test6461z00_14888)
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_arg1595z00_8751;
BgL_arg1595z00_8751 = 
(int16_t)(0L); 
return 
(BgL_arg1595z00_8751-BgL_za7za7_423);}  else 
{ /* Ieee/fixnum.scm 2005 */
return BgL_za7za7_423;} } } 

}



/* &abss16 */
obj_t BGl_z62abss16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6589, obj_t BgL_za7za7_6590)
{
{ /* Ieee/fixnum.scm 2005 */
{ /* Ieee/fixnum.scm 2005 */
 int16_t BgL_tmpz00_14893;
{ /* Ieee/fixnum.scm 2005 */
 int16_t BgL_auxz00_14894;
{ /* Ieee/fixnum.scm 2005 */
 obj_t BgL_tmpz00_14895;
if(
BGL_INT16P(BgL_za7za7_6590))
{ /* Ieee/fixnum.scm 2005 */
BgL_tmpz00_14895 = BgL_za7za7_6590
; }  else 
{ 
 obj_t BgL_auxz00_14898;
BgL_auxz00_14898 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94493L), BGl_string4854z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6590); 
FAILURE(BgL_auxz00_14898,BFALSE,BFALSE);} 
BgL_auxz00_14894 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_14895); } 
BgL_tmpz00_14893 = 
BGl_abss16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14894); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_14893);} } 

}



/* absu16 */
BGL_EXPORTED_DEF uint16_t BGl_absu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_za7za7_424)
{
{ /* Ieee/fixnum.scm 2006 */
return BgL_za7za7_424;} 

}



/* &absu16 */
obj_t BGl_z62absu16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6591, obj_t BgL_za7za7_6592)
{
{ /* Ieee/fixnum.scm 2006 */
{ /* Ieee/fixnum.scm 2006 */
 uint16_t BgL_tmpz00_14905;
{ /* Ieee/fixnum.scm 2006 */
 uint16_t BgL_auxz00_14906;
{ /* Ieee/fixnum.scm 2006 */
 obj_t BgL_tmpz00_14907;
if(
BGL_UINT16P(BgL_za7za7_6592))
{ /* Ieee/fixnum.scm 2006 */
BgL_tmpz00_14907 = BgL_za7za7_6592
; }  else 
{ 
 obj_t BgL_auxz00_14910;
BgL_auxz00_14910 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94539L), BGl_string4855z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6592); 
FAILURE(BgL_auxz00_14910,BFALSE,BFALSE);} 
BgL_auxz00_14906 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_14907); } 
BgL_tmpz00_14905 = 
BGl_absu16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14906); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_14905);} } 

}



/* abss32 */
BGL_EXPORTED_DEF int32_t BGl_abss32z00zz__r4_numbers_6_5_fixnumz00(int32_t BgL_za7za7_425)
{
{ /* Ieee/fixnum.scm 2008 */
{ /* Ieee/fixnum.scm 2008 */
 bool_t BgL_test6464z00_14917;
{ /* Ieee/fixnum.scm 2008 */
 int32_t BgL_arg1616z00_8752;
BgL_arg1616z00_8752 = 
(int32_t)(0L); 
BgL_test6464z00_14917 = 
(BgL_za7za7_425<BgL_arg1616z00_8752); } 
if(BgL_test6464z00_14917)
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_arg1598z00_8753;
BgL_arg1598z00_8753 = 
(int32_t)(0L); 
return 
(BgL_arg1598z00_8753-BgL_za7za7_425);}  else 
{ /* Ieee/fixnum.scm 2008 */
return BgL_za7za7_425;} } } 

}



/* &abss32 */
obj_t BGl_z62abss32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6593, obj_t BgL_za7za7_6594)
{
{ /* Ieee/fixnum.scm 2008 */
{ /* Ieee/fixnum.scm 2008 */
 int32_t BgL_tmpz00_14922;
{ /* Ieee/fixnum.scm 2008 */
 int32_t BgL_auxz00_14923;
{ /* Ieee/fixnum.scm 2008 */
 obj_t BgL_tmpz00_14924;
if(
BGL_INT32P(BgL_za7za7_6594))
{ /* Ieee/fixnum.scm 2008 */
BgL_tmpz00_14924 = BgL_za7za7_6594
; }  else 
{ 
 obj_t BgL_auxz00_14927;
BgL_auxz00_14927 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94595L), BGl_string4856z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6594); 
FAILURE(BgL_auxz00_14927,BFALSE,BFALSE);} 
BgL_auxz00_14923 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_14924); } 
BgL_tmpz00_14922 = 
BGl_abss32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14923); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_14922);} } 

}



/* absu32 */
BGL_EXPORTED_DEF uint32_t BGl_absu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_za7za7_426)
{
{ /* Ieee/fixnum.scm 2009 */
return BgL_za7za7_426;} 

}



/* &absu32 */
obj_t BGl_z62absu32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6595, obj_t BgL_za7za7_6596)
{
{ /* Ieee/fixnum.scm 2009 */
{ /* Ieee/fixnum.scm 2009 */
 uint32_t BgL_tmpz00_14934;
{ /* Ieee/fixnum.scm 2009 */
 uint32_t BgL_auxz00_14935;
{ /* Ieee/fixnum.scm 2009 */
 obj_t BgL_tmpz00_14936;
if(
BGL_UINT32P(BgL_za7za7_6596))
{ /* Ieee/fixnum.scm 2009 */
BgL_tmpz00_14936 = BgL_za7za7_6596
; }  else 
{ 
 obj_t BgL_auxz00_14939;
BgL_auxz00_14939 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94641L), BGl_string4857z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6596); 
FAILURE(BgL_auxz00_14939,BFALSE,BFALSE);} 
BgL_auxz00_14935 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_14936); } 
BgL_tmpz00_14934 = 
BGl_absu32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14935); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_14934);} } 

}



/* abss64 */
BGL_EXPORTED_DEF int64_t BGl_abss64z00zz__r4_numbers_6_5_fixnumz00(int64_t BgL_za7za7_427)
{
{ /* Ieee/fixnum.scm 2011 */
{ /* Ieee/fixnum.scm 2011 */
 bool_t BgL_test6467z00_14946;
{ /* Ieee/fixnum.scm 2011 */
 int64_t BgL_arg1619z00_8754;
BgL_arg1619z00_8754 = 
(int64_t)(0L); 
BgL_test6467z00_14946 = 
(BgL_za7za7_427<BgL_arg1619z00_8754); } 
if(BgL_test6467z00_14946)
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_arg1602z00_8755;
BgL_arg1602z00_8755 = 
(int64_t)(0L); 
return 
(BgL_arg1602z00_8755-BgL_za7za7_427);}  else 
{ /* Ieee/fixnum.scm 2011 */
return BgL_za7za7_427;} } } 

}



/* &abss64 */
obj_t BGl_z62abss64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6597, obj_t BgL_za7za7_6598)
{
{ /* Ieee/fixnum.scm 2011 */
{ /* Ieee/fixnum.scm 2011 */
 int64_t BgL_tmpz00_14951;
{ /* Ieee/fixnum.scm 2011 */
 int64_t BgL_auxz00_14952;
{ /* Ieee/fixnum.scm 2011 */
 obj_t BgL_tmpz00_14953;
if(
BGL_INT64P(BgL_za7za7_6598))
{ /* Ieee/fixnum.scm 2011 */
BgL_tmpz00_14953 = BgL_za7za7_6598
; }  else 
{ 
 obj_t BgL_auxz00_14956;
BgL_auxz00_14956 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94697L), BGl_string4858z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6598); 
FAILURE(BgL_auxz00_14956,BFALSE,BFALSE);} 
BgL_auxz00_14952 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14953); } 
BgL_tmpz00_14951 = 
BGl_abss64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14952); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_14951);} } 

}



/* absu64 */
BGL_EXPORTED_DEF uint64_t BGl_absu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_za7za7_428)
{
{ /* Ieee/fixnum.scm 2012 */
return BgL_za7za7_428;} 

}



/* &absu64 */
obj_t BGl_z62absu64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6599, obj_t BgL_za7za7_6600)
{
{ /* Ieee/fixnum.scm 2012 */
{ /* Ieee/fixnum.scm 2012 */
 uint64_t BgL_tmpz00_14963;
{ /* Ieee/fixnum.scm 2012 */
 uint64_t BgL_auxz00_14964;
{ /* Ieee/fixnum.scm 2012 */
 obj_t BgL_tmpz00_14965;
if(
BGL_UINT64P(BgL_za7za7_6600))
{ /* Ieee/fixnum.scm 2012 */
BgL_tmpz00_14965 = BgL_za7za7_6600
; }  else 
{ 
 obj_t BgL_auxz00_14968;
BgL_auxz00_14968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94743L), BGl_string4859z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_za7za7_6600); 
FAILURE(BgL_auxz00_14968,BFALSE,BFALSE);} 
BgL_auxz00_14964 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_14965); } 
BgL_tmpz00_14963 = 
BGl_absu64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14964); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_14963);} } 

}



/* absbx */
BGL_EXPORTED_DEF obj_t BGl_absbxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_nz00_429)
{
{ /* Ieee/fixnum.scm 2014 */
BGL_TAIL return 
bgl_bignum_abs(BgL_nz00_429);} 

}



/* &absbx */
obj_t BGl_z62absbxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6601, obj_t BgL_nz00_6602)
{
{ /* Ieee/fixnum.scm 2014 */
{ /* Ieee/fixnum.scm 2014 */
 obj_t BgL_auxz00_14976;
if(
BIGNUMP(BgL_nz00_6602))
{ /* Ieee/fixnum.scm 2014 */
BgL_auxz00_14976 = BgL_nz00_6602
; }  else 
{ 
 obj_t BgL_auxz00_14979;
BgL_auxz00_14979 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(94798L), BGl_string4860z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_6602); 
FAILURE(BgL_auxz00_14979,BFALSE,BFALSE);} 
return 
BGl_absbxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_14976);} } 

}



/* quotient */
BGL_EXPORTED_DEF obj_t BGl_quotientz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_430, obj_t BgL_n2z00_431)
{
{ /* Ieee/fixnum.scm 2079 */
if(
INTEGERP(BgL_n1z00_430))
{ /* Ieee/fixnum.scm 2079 */
if(
INTEGERP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
 long BgL_auxz00_14990; long BgL_tmpz00_14988;
BgL_auxz00_14990 = 
(long)CINT(BgL_n2z00_431); 
BgL_tmpz00_14988 = 
(long)CINT(BgL_n1z00_430); 
return 
BGL_SAFE_QUOTIENT_FX(BgL_tmpz00_14988, BgL_auxz00_14990);}  else 
{ /* Ieee/fixnum.scm 2079 */
if(
ELONGP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
 long BgL_arg1623z00_1338;
{ /* Ieee/fixnum.scm 1535 */
 long BgL_tmpz00_14995;
BgL_tmpz00_14995 = 
(long)CINT(BgL_n1z00_430); 
BgL_arg1623z00_1338 = 
(long)(BgL_tmpz00_14995); } 
{ /* Ieee/fixnum.scm 2079 */
 long BgL_tmpz00_14998;
BgL_tmpz00_14998 = 
BELONG_TO_LONG(BgL_n2z00_431); 
return 
BGL_SAFE_QUOTIENT_ELONG(BgL_arg1623z00_1338, BgL_tmpz00_14998);} }  else 
{ /* Ieee/fixnum.scm 2079 */
if(
LLONGP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
 BGL_LONGLONG_T BgL_arg1625z00_1340;
{ /* Ieee/fixnum.scm 1538 */
 long BgL_tmpz00_15003;
BgL_tmpz00_15003 = 
(long)CINT(BgL_n1z00_430); 
BgL_arg1625z00_1340 = 
LONG_TO_LLONG(BgL_tmpz00_15003); } 
{ /* Ieee/fixnum.scm 2079 */
 BGL_LONGLONG_T BgL_tmpz00_15006;
BgL_tmpz00_15006 = 
BLLONG_TO_LLONG(BgL_n2z00_431); 
return 
BGL_SAFE_QUOTIENT_LLONG(BgL_arg1625z00_1340, BgL_tmpz00_15006);} }  else 
{ /* Ieee/fixnum.scm 2079 */
if(
BIGNUMP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
return 
bgl_bignum_quotient(
bgl_long_to_bignum(
(long)CINT(BgL_n1z00_430)), BgL_n2z00_431);}  else 
{ /* Ieee/fixnum.scm 2079 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4861z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_431);} } } } }  else 
{ /* Ieee/fixnum.scm 2079 */
if(
ELONGP(BgL_n1z00_430))
{ /* Ieee/fixnum.scm 2079 */
if(
INTEGERP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
 long BgL_arg1630z00_1345;
{ /* Ieee/fixnum.scm 1535 */
 long BgL_tmpz00_15019;
BgL_tmpz00_15019 = 
(long)CINT(BgL_n2z00_431); 
BgL_arg1630z00_1345 = 
(long)(BgL_tmpz00_15019); } 
{ /* Ieee/fixnum.scm 2079 */
 long BgL_tmpz00_15022;
BgL_tmpz00_15022 = 
BELONG_TO_LONG(BgL_n1z00_430); 
return 
BGL_SAFE_QUOTIENT_ELONG(BgL_tmpz00_15022, BgL_arg1630z00_1345);} }  else 
{ /* Ieee/fixnum.scm 2079 */
if(
ELONGP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
 long BgL_auxz00_15029; long BgL_tmpz00_15027;
BgL_auxz00_15029 = 
BELONG_TO_LONG(BgL_n2z00_431); 
BgL_tmpz00_15027 = 
BELONG_TO_LONG(BgL_n1z00_430); 
return 
BGL_SAFE_QUOTIENT_ELONG(BgL_tmpz00_15027, BgL_auxz00_15029);}  else 
{ /* Ieee/fixnum.scm 2079 */
if(
LLONGP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
 BGL_LONGLONG_T BgL_arg1633z00_1348;
BgL_arg1633z00_1348 = 
(BGL_LONGLONG_T)(
BELONG_TO_LONG(BgL_n1z00_430)); 
{ /* Ieee/fixnum.scm 2079 */
 BGL_LONGLONG_T BgL_tmpz00_15036;
BgL_tmpz00_15036 = 
BLLONG_TO_LLONG(BgL_n2z00_431); 
return 
BGL_SAFE_QUOTIENT_LLONG(BgL_arg1633z00_1348, BgL_tmpz00_15036);} }  else 
{ /* Ieee/fixnum.scm 2079 */
if(
BIGNUMP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2098 */
 obj_t BgL_tmpz00_15041;
{ /* Ieee/fixnum.scm 2079 */
 long BgL_xz00_3293;
BgL_xz00_3293 = 
BELONG_TO_LONG(BgL_n1z00_430); 
BgL_tmpz00_15041 = 
bgl_long_to_bignum(BgL_xz00_3293); } 
return 
bgl_bignum_quotient(BgL_tmpz00_15041, BgL_n2z00_431);}  else 
{ /* Ieee/fixnum.scm 2079 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4861z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_431);} } } } }  else 
{ /* Ieee/fixnum.scm 2079 */
if(
LLONGP(BgL_n1z00_430))
{ /* Ieee/fixnum.scm 2079 */
if(
INTEGERP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
 BGL_LONGLONG_T BgL_arg1638z00_1353;
{ /* Ieee/fixnum.scm 1538 */
 long BgL_tmpz00_15050;
BgL_tmpz00_15050 = 
(long)CINT(BgL_n2z00_431); 
BgL_arg1638z00_1353 = 
LONG_TO_LLONG(BgL_tmpz00_15050); } 
{ /* Ieee/fixnum.scm 2079 */
 BGL_LONGLONG_T BgL_tmpz00_15053;
BgL_tmpz00_15053 = 
BLLONG_TO_LLONG(BgL_n1z00_430); 
return 
BGL_SAFE_QUOTIENT_LLONG(BgL_tmpz00_15053, BgL_arg1638z00_1353);} }  else 
{ /* Ieee/fixnum.scm 2079 */
if(
ELONGP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
 BGL_LONGLONG_T BgL_arg1640z00_1355;
BgL_arg1640z00_1355 = 
(BGL_LONGLONG_T)(
BELONG_TO_LONG(BgL_n2z00_431)); 
{ /* Ieee/fixnum.scm 2079 */
 BGL_LONGLONG_T BgL_tmpz00_15060;
BgL_tmpz00_15060 = 
BLLONG_TO_LLONG(BgL_n1z00_430); 
return 
BGL_SAFE_QUOTIENT_LLONG(BgL_tmpz00_15060, BgL_arg1640z00_1355);} }  else 
{ /* Ieee/fixnum.scm 2079 */
if(
LLONGP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
 BGL_LONGLONG_T BgL_auxz00_15067; BGL_LONGLONG_T BgL_tmpz00_15065;
BgL_auxz00_15067 = 
BLLONG_TO_LLONG(BgL_n2z00_431); 
BgL_tmpz00_15065 = 
BLLONG_TO_LLONG(BgL_n1z00_430); 
return 
BGL_SAFE_QUOTIENT_LLONG(BgL_tmpz00_15065, BgL_auxz00_15067);}  else 
{ /* Ieee/fixnum.scm 2079 */
if(
BIGNUMP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
return 
bgl_bignum_quotient(
bgl_llong_to_bignum(
BLLONG_TO_LLONG(BgL_n1z00_430)), BgL_n2z00_431);}  else 
{ /* Ieee/fixnum.scm 2079 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4861z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_431);} } } } }  else 
{ /* Ieee/fixnum.scm 2079 */
if(
BIGNUMP(BgL_n1z00_430))
{ /* Ieee/fixnum.scm 2079 */
if(
INTEGERP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
return 
bgl_bignum_quotient(BgL_n1z00_430, 
bgl_long_to_bignum(
(long)CINT(BgL_n2z00_431)));}  else 
{ /* Ieee/fixnum.scm 2079 */
if(
ELONGP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2098 */
 obj_t BgL_tmpz00_15085;
{ /* Ieee/fixnum.scm 2079 */
 long BgL_xz00_3303;
BgL_xz00_3303 = 
BELONG_TO_LONG(BgL_n2z00_431); 
BgL_tmpz00_15085 = 
bgl_long_to_bignum(BgL_xz00_3303); } 
return 
bgl_bignum_quotient(BgL_n1z00_430, BgL_tmpz00_15085);}  else 
{ /* Ieee/fixnum.scm 2079 */
if(
LLONGP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
return 
bgl_bignum_quotient(BgL_n1z00_430, 
bgl_llong_to_bignum(
BLLONG_TO_LLONG(BgL_n2z00_431)));}  else 
{ /* Ieee/fixnum.scm 2079 */
if(
BIGNUMP(BgL_n2z00_431))
{ /* Ieee/fixnum.scm 2079 */
return 
bgl_bignum_quotient(BgL_n1z00_430, BgL_n2z00_431);}  else 
{ /* Ieee/fixnum.scm 2079 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4861z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_431);} } } } }  else 
{ /* Ieee/fixnum.scm 2079 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4861z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_430);} } } } } 

}



/* &quotient */
obj_t BGl_z62quotientz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6603, obj_t BgL_n1z00_6604, obj_t BgL_n2z00_6605)
{
{ /* Ieee/fixnum.scm 2079 */
return 
BGl_quotientz00zz__r4_numbers_6_5_fixnumz00(BgL_n1z00_6604, BgL_n2z00_6605);} 

}



/* quotientfx */
BGL_EXPORTED_DEF long BGl_quotientfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_432, long BgL_n2z00_433)
{
{ /* Ieee/fixnum.scm 2081 */
return 
(BgL_n1z00_432/BgL_n2z00_433);} 

}



/* &quotientfx */
obj_t BGl_z62quotientfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6606, obj_t BgL_n1z00_6607, obj_t BgL_n2z00_6608)
{
{ /* Ieee/fixnum.scm 2081 */
{ /* Ieee/fixnum.scm 2081 */
 long BgL_tmpz00_15101;
{ /* Ieee/fixnum.scm 2081 */
 long BgL_auxz00_15111; long BgL_auxz00_15102;
{ /* Ieee/fixnum.scm 2081 */
 obj_t BgL_tmpz00_15112;
if(
INTEGERP(BgL_n2z00_6608))
{ /* Ieee/fixnum.scm 2081 */
BgL_tmpz00_15112 = BgL_n2z00_6608
; }  else 
{ 
 obj_t BgL_auxz00_15115;
BgL_auxz00_15115 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(96894L), BGl_string4864z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6608); 
FAILURE(BgL_auxz00_15115,BFALSE,BFALSE);} 
BgL_auxz00_15111 = 
(long)CINT(BgL_tmpz00_15112); } 
{ /* Ieee/fixnum.scm 2081 */
 obj_t BgL_tmpz00_15103;
if(
INTEGERP(BgL_n1z00_6607))
{ /* Ieee/fixnum.scm 2081 */
BgL_tmpz00_15103 = BgL_n1z00_6607
; }  else 
{ 
 obj_t BgL_auxz00_15106;
BgL_auxz00_15106 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(96894L), BGl_string4864z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6607); 
FAILURE(BgL_auxz00_15106,BFALSE,BFALSE);} 
BgL_auxz00_15102 = 
(long)CINT(BgL_tmpz00_15103); } 
BgL_tmpz00_15101 = 
BGl_quotientfxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15102, BgL_auxz00_15111); } 
return 
BINT(BgL_tmpz00_15101);} } 

}



/* quotientelong */
BGL_EXPORTED_DEF long BGl_quotientelongz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_434, long BgL_n2z00_435)
{
{ /* Ieee/fixnum.scm 2083 */
return 
(BgL_n1z00_434/BgL_n2z00_435);} 

}



/* &quotientelong */
obj_t BGl_z62quotientelongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6609, obj_t BgL_n1z00_6610, obj_t BgL_n2z00_6611)
{
{ /* Ieee/fixnum.scm 2083 */
{ /* Ieee/fixnum.scm 2083 */
 long BgL_tmpz00_15123;
{ /* Ieee/fixnum.scm 2083 */
 long BgL_auxz00_15133; long BgL_auxz00_15124;
{ /* Ieee/fixnum.scm 2083 */
 obj_t BgL_tmpz00_15134;
if(
ELONGP(BgL_n2z00_6611))
{ /* Ieee/fixnum.scm 2083 */
BgL_tmpz00_15134 = BgL_n2z00_6611
; }  else 
{ 
 obj_t BgL_auxz00_15137;
BgL_auxz00_15137 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(96953L), BGl_string4865z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6611); 
FAILURE(BgL_auxz00_15137,BFALSE,BFALSE);} 
BgL_auxz00_15133 = 
BELONG_TO_LONG(BgL_tmpz00_15134); } 
{ /* Ieee/fixnum.scm 2083 */
 obj_t BgL_tmpz00_15125;
if(
ELONGP(BgL_n1z00_6610))
{ /* Ieee/fixnum.scm 2083 */
BgL_tmpz00_15125 = BgL_n1z00_6610
; }  else 
{ 
 obj_t BgL_auxz00_15128;
BgL_auxz00_15128 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(96953L), BGl_string4865z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6610); 
FAILURE(BgL_auxz00_15128,BFALSE,BFALSE);} 
BgL_auxz00_15124 = 
BELONG_TO_LONG(BgL_tmpz00_15125); } 
BgL_tmpz00_15123 = 
BGl_quotientelongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15124, BgL_auxz00_15133); } 
return 
make_belong(BgL_tmpz00_15123);} } 

}



/* quotientllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_quotientllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_n1z00_436, BGL_LONGLONG_T BgL_n2z00_437)
{
{ /* Ieee/fixnum.scm 2084 */
return 
(BgL_n1z00_436/BgL_n2z00_437);} 

}



/* &quotientllong */
obj_t BGl_z62quotientllongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6612, obj_t BgL_n1z00_6613, obj_t BgL_n2z00_6614)
{
{ /* Ieee/fixnum.scm 2084 */
{ /* Ieee/fixnum.scm 2084 */
 BGL_LONGLONG_T BgL_tmpz00_15145;
{ /* Ieee/fixnum.scm 2084 */
 BGL_LONGLONG_T BgL_auxz00_15155; BGL_LONGLONG_T BgL_auxz00_15146;
{ /* Ieee/fixnum.scm 2084 */
 obj_t BgL_tmpz00_15156;
if(
LLONGP(BgL_n2z00_6614))
{ /* Ieee/fixnum.scm 2084 */
BgL_tmpz00_15156 = BgL_n2z00_6614
; }  else 
{ 
 obj_t BgL_auxz00_15159;
BgL_auxz00_15159 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97014L), BGl_string4866z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6614); 
FAILURE(BgL_auxz00_15159,BFALSE,BFALSE);} 
BgL_auxz00_15155 = 
BLLONG_TO_LLONG(BgL_tmpz00_15156); } 
{ /* Ieee/fixnum.scm 2084 */
 obj_t BgL_tmpz00_15147;
if(
LLONGP(BgL_n1z00_6613))
{ /* Ieee/fixnum.scm 2084 */
BgL_tmpz00_15147 = BgL_n1z00_6613
; }  else 
{ 
 obj_t BgL_auxz00_15150;
BgL_auxz00_15150 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97014L), BGl_string4866z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6613); 
FAILURE(BgL_auxz00_15150,BFALSE,BFALSE);} 
BgL_auxz00_15146 = 
BLLONG_TO_LLONG(BgL_tmpz00_15147); } 
BgL_tmpz00_15145 = 
BGl_quotientllongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15146, BgL_auxz00_15155); } 
return 
make_bllong(BgL_tmpz00_15145);} } 

}



/* quotients8 */
BGL_EXPORTED_DEF int8_t BGl_quotients8z00zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_438, int8_t BgL_n2z00_439)
{
{ /* Ieee/fixnum.scm 2086 */
return 
(BgL_n1z00_438/BgL_n2z00_439);} 

}



/* &quotients8 */
obj_t BGl_z62quotients8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6615, obj_t BgL_n1z00_6616, obj_t BgL_n2z00_6617)
{
{ /* Ieee/fixnum.scm 2086 */
{ /* Ieee/fixnum.scm 2086 */
 int8_t BgL_tmpz00_15167;
{ /* Ieee/fixnum.scm 2086 */
 int8_t BgL_auxz00_15177; int8_t BgL_auxz00_15168;
{ /* Ieee/fixnum.scm 2086 */
 obj_t BgL_tmpz00_15178;
if(
BGL_INT8P(BgL_n2z00_6617))
{ /* Ieee/fixnum.scm 2086 */
BgL_tmpz00_15178 = BgL_n2z00_6617
; }  else 
{ 
 obj_t BgL_auxz00_15181;
BgL_auxz00_15181 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97073L), BGl_string4867z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6617); 
FAILURE(BgL_auxz00_15181,BFALSE,BFALSE);} 
BgL_auxz00_15177 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_15178); } 
{ /* Ieee/fixnum.scm 2086 */
 obj_t BgL_tmpz00_15169;
if(
BGL_INT8P(BgL_n1z00_6616))
{ /* Ieee/fixnum.scm 2086 */
BgL_tmpz00_15169 = BgL_n1z00_6616
; }  else 
{ 
 obj_t BgL_auxz00_15172;
BgL_auxz00_15172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97073L), BGl_string4867z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6616); 
FAILURE(BgL_auxz00_15172,BFALSE,BFALSE);} 
BgL_auxz00_15168 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_15169); } 
BgL_tmpz00_15167 = 
BGl_quotients8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15168, BgL_auxz00_15177); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_15167);} } 

}



/* quotientu8 */
BGL_EXPORTED_DEF uint8_t BGl_quotientu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_440, uint8_t BgL_n2z00_441)
{
{ /* Ieee/fixnum.scm 2087 */
{ /* Ieee/fixnum.scm 2087 */
 int8_t BgL_tmpz00_15188;
BgL_tmpz00_15188 = 
(int8_t)(BgL_n2z00_441); 
return 
(BgL_n1z00_440/BgL_tmpz00_15188);} } 

}



/* &quotientu8 */
obj_t BGl_z62quotientu8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6618, obj_t BgL_n1z00_6619, obj_t BgL_n2z00_6620)
{
{ /* Ieee/fixnum.scm 2087 */
{ /* Ieee/fixnum.scm 2087 */
 uint8_t BgL_tmpz00_15191;
{ /* Ieee/fixnum.scm 2087 */
 uint8_t BgL_auxz00_15201; uint8_t BgL_auxz00_15192;
{ /* Ieee/fixnum.scm 2087 */
 obj_t BgL_tmpz00_15202;
if(
BGL_UINT8P(BgL_n2z00_6620))
{ /* Ieee/fixnum.scm 2087 */
BgL_tmpz00_15202 = BgL_n2z00_6620
; }  else 
{ 
 obj_t BgL_auxz00_15205;
BgL_auxz00_15205 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97128L), BGl_string4868z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6620); 
FAILURE(BgL_auxz00_15205,BFALSE,BFALSE);} 
BgL_auxz00_15201 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_15202); } 
{ /* Ieee/fixnum.scm 2087 */
 obj_t BgL_tmpz00_15193;
if(
BGL_UINT8P(BgL_n1z00_6619))
{ /* Ieee/fixnum.scm 2087 */
BgL_tmpz00_15193 = BgL_n1z00_6619
; }  else 
{ 
 obj_t BgL_auxz00_15196;
BgL_auxz00_15196 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97128L), BGl_string4868z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6619); 
FAILURE(BgL_auxz00_15196,BFALSE,BFALSE);} 
BgL_auxz00_15192 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_15193); } 
BgL_tmpz00_15191 = 
BGl_quotientu8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15192, BgL_auxz00_15201); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_15191);} } 

}



/* quotients16 */
BGL_EXPORTED_DEF int16_t BGl_quotients16z00zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_442, int16_t BgL_n2z00_443)
{
{ /* Ieee/fixnum.scm 2089 */
return 
(BgL_n1z00_442/BgL_n2z00_443);} 

}



/* &quotients16 */
obj_t BGl_z62quotients16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6621, obj_t BgL_n1z00_6622, obj_t BgL_n2z00_6623)
{
{ /* Ieee/fixnum.scm 2089 */
{ /* Ieee/fixnum.scm 2089 */
 int16_t BgL_tmpz00_15213;
{ /* Ieee/fixnum.scm 2089 */
 int16_t BgL_auxz00_15223; int16_t BgL_auxz00_15214;
{ /* Ieee/fixnum.scm 2089 */
 obj_t BgL_tmpz00_15224;
if(
BGL_INT16P(BgL_n2z00_6623))
{ /* Ieee/fixnum.scm 2089 */
BgL_tmpz00_15224 = BgL_n2z00_6623
; }  else 
{ 
 obj_t BgL_auxz00_15227;
BgL_auxz00_15227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97185L), BGl_string4869z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6623); 
FAILURE(BgL_auxz00_15227,BFALSE,BFALSE);} 
BgL_auxz00_15223 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_15224); } 
{ /* Ieee/fixnum.scm 2089 */
 obj_t BgL_tmpz00_15215;
if(
BGL_INT16P(BgL_n1z00_6622))
{ /* Ieee/fixnum.scm 2089 */
BgL_tmpz00_15215 = BgL_n1z00_6622
; }  else 
{ 
 obj_t BgL_auxz00_15218;
BgL_auxz00_15218 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97185L), BGl_string4869z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6622); 
FAILURE(BgL_auxz00_15218,BFALSE,BFALSE);} 
BgL_auxz00_15214 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_15215); } 
BgL_tmpz00_15213 = 
BGl_quotients16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15214, BgL_auxz00_15223); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_15213);} } 

}



/* quotientu16 */
BGL_EXPORTED_DEF uint16_t BGl_quotientu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_444, uint16_t BgL_n2z00_445)
{
{ /* Ieee/fixnum.scm 2090 */
{ /* Ieee/fixnum.scm 2090 */
 int16_t BgL_tmpz00_15234;
BgL_tmpz00_15234 = 
(int16_t)(BgL_n2z00_445); 
return 
(BgL_n1z00_444/BgL_tmpz00_15234);} } 

}



/* &quotientu16 */
obj_t BGl_z62quotientu16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6624, obj_t BgL_n1z00_6625, obj_t BgL_n2z00_6626)
{
{ /* Ieee/fixnum.scm 2090 */
{ /* Ieee/fixnum.scm 2090 */
 uint16_t BgL_tmpz00_15237;
{ /* Ieee/fixnum.scm 2090 */
 uint16_t BgL_auxz00_15247; uint16_t BgL_auxz00_15238;
{ /* Ieee/fixnum.scm 2090 */
 obj_t BgL_tmpz00_15248;
if(
BGL_UINT16P(BgL_n2z00_6626))
{ /* Ieee/fixnum.scm 2090 */
BgL_tmpz00_15248 = BgL_n2z00_6626
; }  else 
{ 
 obj_t BgL_auxz00_15251;
BgL_auxz00_15251 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97242L), BGl_string4870z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6626); 
FAILURE(BgL_auxz00_15251,BFALSE,BFALSE);} 
BgL_auxz00_15247 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_15248); } 
{ /* Ieee/fixnum.scm 2090 */
 obj_t BgL_tmpz00_15239;
if(
BGL_UINT16P(BgL_n1z00_6625))
{ /* Ieee/fixnum.scm 2090 */
BgL_tmpz00_15239 = BgL_n1z00_6625
; }  else 
{ 
 obj_t BgL_auxz00_15242;
BgL_auxz00_15242 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97242L), BGl_string4870z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6625); 
FAILURE(BgL_auxz00_15242,BFALSE,BFALSE);} 
BgL_auxz00_15238 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_15239); } 
BgL_tmpz00_15237 = 
BGl_quotientu16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15238, BgL_auxz00_15247); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_15237);} } 

}



/* quotients32 */
BGL_EXPORTED_DEF int32_t BGl_quotients32z00zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_446, int32_t BgL_n2z00_447)
{
{ /* Ieee/fixnum.scm 2092 */
return 
(BgL_n1z00_446/BgL_n2z00_447);} 

}



/* &quotients32 */
obj_t BGl_z62quotients32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6627, obj_t BgL_n1z00_6628, obj_t BgL_n2z00_6629)
{
{ /* Ieee/fixnum.scm 2092 */
{ /* Ieee/fixnum.scm 2092 */
 int32_t BgL_tmpz00_15259;
{ /* Ieee/fixnum.scm 2092 */
 int32_t BgL_auxz00_15269; int32_t BgL_auxz00_15260;
{ /* Ieee/fixnum.scm 2092 */
 obj_t BgL_tmpz00_15270;
if(
BGL_INT32P(BgL_n2z00_6629))
{ /* Ieee/fixnum.scm 2092 */
BgL_tmpz00_15270 = BgL_n2z00_6629
; }  else 
{ 
 obj_t BgL_auxz00_15273;
BgL_auxz00_15273 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97300L), BGl_string4871z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6629); 
FAILURE(BgL_auxz00_15273,BFALSE,BFALSE);} 
BgL_auxz00_15269 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_15270); } 
{ /* Ieee/fixnum.scm 2092 */
 obj_t BgL_tmpz00_15261;
if(
BGL_INT32P(BgL_n1z00_6628))
{ /* Ieee/fixnum.scm 2092 */
BgL_tmpz00_15261 = BgL_n1z00_6628
; }  else 
{ 
 obj_t BgL_auxz00_15264;
BgL_auxz00_15264 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97300L), BGl_string4871z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6628); 
FAILURE(BgL_auxz00_15264,BFALSE,BFALSE);} 
BgL_auxz00_15260 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_15261); } 
BgL_tmpz00_15259 = 
BGl_quotients32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15260, BgL_auxz00_15269); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_15259);} } 

}



/* quotientu32 */
BGL_EXPORTED_DEF uint32_t BGl_quotientu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_448, uint32_t BgL_n2z00_449)
{
{ /* Ieee/fixnum.scm 2093 */
{ /* Ieee/fixnum.scm 2093 */
 int32_t BgL_tmpz00_15280;
BgL_tmpz00_15280 = 
(int32_t)(BgL_n2z00_449); 
return 
(BgL_n1z00_448/BgL_tmpz00_15280);} } 

}



/* &quotientu32 */
obj_t BGl_z62quotientu32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6630, obj_t BgL_n1z00_6631, obj_t BgL_n2z00_6632)
{
{ /* Ieee/fixnum.scm 2093 */
{ /* Ieee/fixnum.scm 2093 */
 uint32_t BgL_tmpz00_15283;
{ /* Ieee/fixnum.scm 2093 */
 uint32_t BgL_auxz00_15293; uint32_t BgL_auxz00_15284;
{ /* Ieee/fixnum.scm 2093 */
 obj_t BgL_tmpz00_15294;
if(
BGL_UINT32P(BgL_n2z00_6632))
{ /* Ieee/fixnum.scm 2093 */
BgL_tmpz00_15294 = BgL_n2z00_6632
; }  else 
{ 
 obj_t BgL_auxz00_15297;
BgL_auxz00_15297 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97357L), BGl_string4872z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6632); 
FAILURE(BgL_auxz00_15297,BFALSE,BFALSE);} 
BgL_auxz00_15293 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_15294); } 
{ /* Ieee/fixnum.scm 2093 */
 obj_t BgL_tmpz00_15285;
if(
BGL_UINT32P(BgL_n1z00_6631))
{ /* Ieee/fixnum.scm 2093 */
BgL_tmpz00_15285 = BgL_n1z00_6631
; }  else 
{ 
 obj_t BgL_auxz00_15288;
BgL_auxz00_15288 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97357L), BGl_string4872z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6631); 
FAILURE(BgL_auxz00_15288,BFALSE,BFALSE);} 
BgL_auxz00_15284 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_15285); } 
BgL_tmpz00_15283 = 
BGl_quotientu32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15284, BgL_auxz00_15293); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_15283);} } 

}



/* quotients64 */
BGL_EXPORTED_DEF int64_t BGl_quotients64z00zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_450, int64_t BgL_n2z00_451)
{
{ /* Ieee/fixnum.scm 2095 */
return 
(BgL_n1z00_450/BgL_n2z00_451);} 

}



/* &quotients64 */
obj_t BGl_z62quotients64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6633, obj_t BgL_n1z00_6634, obj_t BgL_n2z00_6635)
{
{ /* Ieee/fixnum.scm 2095 */
{ /* Ieee/fixnum.scm 2095 */
 int64_t BgL_tmpz00_15305;
{ /* Ieee/fixnum.scm 2095 */
 int64_t BgL_auxz00_15315; int64_t BgL_auxz00_15306;
{ /* Ieee/fixnum.scm 2095 */
 obj_t BgL_tmpz00_15316;
if(
BGL_INT64P(BgL_n2z00_6635))
{ /* Ieee/fixnum.scm 2095 */
BgL_tmpz00_15316 = BgL_n2z00_6635
; }  else 
{ 
 obj_t BgL_auxz00_15319;
BgL_auxz00_15319 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97415L), BGl_string4873z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6635); 
FAILURE(BgL_auxz00_15319,BFALSE,BFALSE);} 
BgL_auxz00_15315 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_15316); } 
{ /* Ieee/fixnum.scm 2095 */
 obj_t BgL_tmpz00_15307;
if(
BGL_INT64P(BgL_n1z00_6634))
{ /* Ieee/fixnum.scm 2095 */
BgL_tmpz00_15307 = BgL_n1z00_6634
; }  else 
{ 
 obj_t BgL_auxz00_15310;
BgL_auxz00_15310 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97415L), BGl_string4873z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6634); 
FAILURE(BgL_auxz00_15310,BFALSE,BFALSE);} 
BgL_auxz00_15306 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_15307); } 
BgL_tmpz00_15305 = 
BGl_quotients64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15306, BgL_auxz00_15315); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_15305);} } 

}



/* quotientu64 */
BGL_EXPORTED_DEF uint64_t BGl_quotientu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_452, uint64_t BgL_n2z00_453)
{
{ /* Ieee/fixnum.scm 2096 */
{ /* Ieee/fixnum.scm 2096 */
 int64_t BgL_tmpz00_15326;
BgL_tmpz00_15326 = 
(int64_t)(BgL_n2z00_453); 
return 
(BgL_n1z00_452/BgL_tmpz00_15326);} } 

}



/* &quotientu64 */
obj_t BGl_z62quotientu64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6636, obj_t BgL_n1z00_6637, obj_t BgL_n2z00_6638)
{
{ /* Ieee/fixnum.scm 2096 */
{ /* Ieee/fixnum.scm 2096 */
 uint64_t BgL_tmpz00_15329;
{ /* Ieee/fixnum.scm 2096 */
 uint64_t BgL_auxz00_15339; uint64_t BgL_auxz00_15330;
{ /* Ieee/fixnum.scm 2096 */
 obj_t BgL_tmpz00_15340;
if(
BGL_UINT64P(BgL_n2z00_6638))
{ /* Ieee/fixnum.scm 2096 */
BgL_tmpz00_15340 = BgL_n2z00_6638
; }  else 
{ 
 obj_t BgL_auxz00_15343;
BgL_auxz00_15343 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97472L), BGl_string4874z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6638); 
FAILURE(BgL_auxz00_15343,BFALSE,BFALSE);} 
BgL_auxz00_15339 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_15340); } 
{ /* Ieee/fixnum.scm 2096 */
 obj_t BgL_tmpz00_15331;
if(
BGL_UINT64P(BgL_n1z00_6637))
{ /* Ieee/fixnum.scm 2096 */
BgL_tmpz00_15331 = BgL_n1z00_6637
; }  else 
{ 
 obj_t BgL_auxz00_15334;
BgL_auxz00_15334 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97472L), BGl_string4874z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6637); 
FAILURE(BgL_auxz00_15334,BFALSE,BFALSE);} 
BgL_auxz00_15330 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_15331); } 
BgL_tmpz00_15329 = 
BGl_quotientu64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15330, BgL_auxz00_15339); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_15329);} } 

}



/* quotientbx */
BGL_EXPORTED_DEF obj_t BGl_quotientbxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_454, obj_t BgL_n2z00_455)
{
{ /* Ieee/fixnum.scm 2098 */
BGL_TAIL return 
bgl_bignum_quotient(BgL_n1z00_454, BgL_n2z00_455);} 

}



/* &quotientbx */
obj_t BGl_z62quotientbxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6639, obj_t BgL_n1z00_6640, obj_t BgL_n2z00_6641)
{
{ /* Ieee/fixnum.scm 2098 */
{ /* Ieee/fixnum.scm 2098 */
 obj_t BgL_auxz00_15358; obj_t BgL_auxz00_15351;
if(
BIGNUMP(BgL_n2z00_6641))
{ /* Ieee/fixnum.scm 2098 */
BgL_auxz00_15358 = BgL_n2z00_6641
; }  else 
{ 
 obj_t BgL_auxz00_15361;
BgL_auxz00_15361 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97529L), BGl_string4875z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6641); 
FAILURE(BgL_auxz00_15361,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_n1z00_6640))
{ /* Ieee/fixnum.scm 2098 */
BgL_auxz00_15351 = BgL_n1z00_6640
; }  else 
{ 
 obj_t BgL_auxz00_15354;
BgL_auxz00_15354 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(97529L), BGl_string4875z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6640); 
FAILURE(BgL_auxz00_15354,BFALSE,BFALSE);} 
return 
BGl_quotientbxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15351, BgL_auxz00_15358);} } 

}



/* remainder */
BGL_EXPORTED_DEF obj_t BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_456, obj_t BgL_n2z00_457)
{
{ /* Ieee/fixnum.scm 2103 */
if(
INTEGERP(BgL_n1z00_456))
{ /* Ieee/fixnum.scm 2103 */
if(
INTEGERP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
 long BgL_n1z00_3311; long BgL_n2z00_3312;
BgL_n1z00_3311 = 
(long)CINT(BgL_n1z00_456); 
BgL_n2z00_3312 = 
(long)CINT(BgL_n2z00_457); 
{ /* Ieee/fixnum.scm 2115 */
 bool_t BgL_test6517z00_15372;
{ /* Ieee/fixnum.scm 2115 */
 long BgL_arg1707z00_3314;
BgL_arg1707z00_3314 = 
(((BgL_n1z00_3311) | (BgL_n2z00_3312)) & -2147483648); 
BgL_test6517z00_15372 = 
(BgL_arg1707z00_3314==0L); } 
if(BgL_test6517z00_15372)
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1703z00_3315;
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1704z00_3316; int32_t BgL_arg1706z00_3317;
BgL_arg1704z00_3316 = 
(int32_t)(BgL_n1z00_3311); 
BgL_arg1706z00_3317 = 
(int32_t)(BgL_n2z00_3312); 
BgL_arg1703z00_3315 = 
(BgL_arg1704z00_3316%BgL_arg1706z00_3317); } 
{ /* Ieee/fixnum.scm 1519 */
 long BgL_arg1228z00_3322;
BgL_arg1228z00_3322 = 
(long)(BgL_arg1703z00_3315); 
return 
BINT(
(long)(BgL_arg1228z00_3322));} }  else 
{ /* Ieee/fixnum.scm 2115 */
return 
BINT(
(BgL_n1z00_3311%BgL_n2z00_3312));} } }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
ELONGP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
 long BgL_arg1659z00_1370;
{ /* Ieee/fixnum.scm 1535 */
 long BgL_tmpz00_15385;
BgL_tmpz00_15385 = 
(long)CINT(BgL_n1z00_456); 
BgL_arg1659z00_1370 = 
(long)(BgL_tmpz00_15385); } 
{ /* Ieee/fixnum.scm 2103 */
 long BgL_n2z00_3326;
BgL_n2z00_3326 = 
BELONG_TO_LONG(BgL_n2z00_457); 
{ /* Ieee/fixnum.scm 2121 */
 long BgL_tmpz00_15389;
BgL_tmpz00_15389 = 
(BgL_arg1659z00_1370%BgL_n2z00_3326); 
return 
make_belong(BgL_tmpz00_15389);} } }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
LLONGP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
 BGL_LONGLONG_T BgL_arg1661z00_1372;
{ /* Ieee/fixnum.scm 1538 */
 long BgL_tmpz00_15394;
BgL_tmpz00_15394 = 
(long)CINT(BgL_n1z00_456); 
BgL_arg1661z00_1372 = 
LONG_TO_LLONG(BgL_tmpz00_15394); } 
{ /* Ieee/fixnum.scm 2103 */
 BGL_LONGLONG_T BgL_n2z00_3329;
BgL_n2z00_3329 = 
BLLONG_TO_LLONG(BgL_n2z00_457); 
return 
make_bllong(
(BgL_arg1661z00_1372%BgL_n2z00_3329));} }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
BIGNUMP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
return 
bgl_bignum_remainder(
bgl_long_to_bignum(
(long)CINT(BgL_n1z00_456)), BgL_n2z00_457);}  else 
{ /* Ieee/fixnum.scm 2103 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4876z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_457);} } } } }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
ELONGP(BgL_n1z00_456))
{ /* Ieee/fixnum.scm 2103 */
if(
INTEGERP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
 long BgL_arg1668z00_1377;
{ /* Ieee/fixnum.scm 1535 */
 long BgL_tmpz00_15410;
BgL_tmpz00_15410 = 
(long)CINT(BgL_n2z00_457); 
BgL_arg1668z00_1377 = 
(long)(BgL_tmpz00_15410); } 
{ /* Ieee/fixnum.scm 2103 */
 long BgL_n1z00_3334;
BgL_n1z00_3334 = 
BELONG_TO_LONG(BgL_n1z00_456); 
{ /* Ieee/fixnum.scm 2121 */
 long BgL_tmpz00_15414;
BgL_tmpz00_15414 = 
(BgL_n1z00_3334%BgL_arg1668z00_1377); 
return 
make_belong(BgL_tmpz00_15414);} } }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
ELONGP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
 long BgL_n1z00_3336; long BgL_n2z00_3337;
BgL_n1z00_3336 = 
BELONG_TO_LONG(BgL_n1z00_456); 
BgL_n2z00_3337 = 
BELONG_TO_LONG(BgL_n2z00_457); 
{ /* Ieee/fixnum.scm 2121 */
 long BgL_tmpz00_15421;
BgL_tmpz00_15421 = 
(BgL_n1z00_3336%BgL_n2z00_3337); 
return 
make_belong(BgL_tmpz00_15421);} }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
LLONGP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
 BGL_LONGLONG_T BgL_arg1671z00_1380;
BgL_arg1671z00_1380 = 
(BGL_LONGLONG_T)(
BELONG_TO_LONG(BgL_n1z00_456)); 
{ /* Ieee/fixnum.scm 2103 */
 BGL_LONGLONG_T BgL_n2z00_3339;
BgL_n2z00_3339 = 
BLLONG_TO_LLONG(BgL_n2z00_457); 
return 
make_bllong(
(BgL_arg1671z00_1380%BgL_n2z00_3339));} }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
BIGNUMP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2136 */
 obj_t BgL_tmpz00_15433;
{ /* Ieee/fixnum.scm 2103 */
 long BgL_xz00_3340;
BgL_xz00_3340 = 
BELONG_TO_LONG(BgL_n1z00_456); 
BgL_tmpz00_15433 = 
bgl_long_to_bignum(BgL_xz00_3340); } 
return 
bgl_bignum_remainder(BgL_tmpz00_15433, BgL_n2z00_457);}  else 
{ /* Ieee/fixnum.scm 2103 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4876z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_457);} } } } }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
LLONGP(BgL_n1z00_456))
{ /* Ieee/fixnum.scm 2103 */
if(
INTEGERP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
 BGL_LONGLONG_T BgL_arg1678z00_1385;
{ /* Ieee/fixnum.scm 1538 */
 long BgL_tmpz00_15442;
BgL_tmpz00_15442 = 
(long)CINT(BgL_n2z00_457); 
BgL_arg1678z00_1385 = 
LONG_TO_LLONG(BgL_tmpz00_15442); } 
{ /* Ieee/fixnum.scm 2103 */
 BGL_LONGLONG_T BgL_n1z00_3344;
BgL_n1z00_3344 = 
BLLONG_TO_LLONG(BgL_n1z00_456); 
return 
make_bllong(
(BgL_n1z00_3344%BgL_arg1678z00_1385));} }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
ELONGP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
 BGL_LONGLONG_T BgL_arg1681z00_1387;
BgL_arg1681z00_1387 = 
(BGL_LONGLONG_T)(
BELONG_TO_LONG(BgL_n2z00_457)); 
{ /* Ieee/fixnum.scm 2103 */
 BGL_LONGLONG_T BgL_n1z00_3346;
BgL_n1z00_3346 = 
BLLONG_TO_LLONG(BgL_n1z00_456); 
return 
make_bllong(
(BgL_n1z00_3346%BgL_arg1681z00_1387));} }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
LLONGP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
 BGL_LONGLONG_T BgL_n1z00_3348; BGL_LONGLONG_T BgL_n2z00_3349;
BgL_n1z00_3348 = 
BLLONG_TO_LLONG(BgL_n1z00_456); 
BgL_n2z00_3349 = 
BLLONG_TO_LLONG(BgL_n2z00_457); 
return 
make_bllong(
(BgL_n1z00_3348%BgL_n2z00_3349));}  else 
{ /* Ieee/fixnum.scm 2103 */
if(
BIGNUMP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
return 
bgl_bignum_remainder(
bgl_llong_to_bignum(
BLLONG_TO_LLONG(BgL_n1z00_456)), BgL_n2z00_457);}  else 
{ /* Ieee/fixnum.scm 2103 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4876z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_457);} } } } }  else 
{ /* Ieee/fixnum.scm 2103 */
if(
BIGNUMP(BgL_n1z00_456))
{ /* Ieee/fixnum.scm 2103 */
if(
INTEGERP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
return 
bgl_bignum_remainder(BgL_n1z00_456, 
bgl_long_to_bignum(
(long)CINT(BgL_n2z00_457)));}  else 
{ /* Ieee/fixnum.scm 2103 */
if(
ELONGP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2136 */
 obj_t BgL_tmpz00_15476;
{ /* Ieee/fixnum.scm 2103 */
 long BgL_xz00_3356;
BgL_xz00_3356 = 
BELONG_TO_LONG(BgL_n2z00_457); 
BgL_tmpz00_15476 = 
bgl_long_to_bignum(BgL_xz00_3356); } 
return 
bgl_bignum_remainder(BgL_n1z00_456, BgL_tmpz00_15476);}  else 
{ /* Ieee/fixnum.scm 2103 */
if(
LLONGP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
return 
bgl_bignum_remainder(BgL_n1z00_456, 
bgl_llong_to_bignum(
BLLONG_TO_LLONG(BgL_n2z00_457)));}  else 
{ /* Ieee/fixnum.scm 2103 */
if(
BIGNUMP(BgL_n2z00_457))
{ /* Ieee/fixnum.scm 2103 */
return 
bgl_bignum_remainder(BgL_n1z00_456, BgL_n2z00_457);}  else 
{ /* Ieee/fixnum.scm 2103 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4876z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_457);} } } } }  else 
{ /* Ieee/fixnum.scm 2103 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4876z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_456);} } } } } 

}



/* &remainder */
obj_t BGl_z62remainderz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6642, obj_t BgL_n1z00_6643, obj_t BgL_n2z00_6644)
{
{ /* Ieee/fixnum.scm 2103 */
return 
BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(BgL_n1z00_6643, BgL_n2z00_6644);} 

}



/* remainderfx */
BGL_EXPORTED_DEF long BGl_remainderfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_458, long BgL_n2z00_459)
{
{ /* Ieee/fixnum.scm 2105 */
{ /* Ieee/fixnum.scm 2115 */
 bool_t BgL_test6536z00_15491;
{ /* Ieee/fixnum.scm 2115 */
 long BgL_arg1707z00_8756;
BgL_arg1707z00_8756 = 
(((BgL_n1z00_458) | (BgL_n2z00_459)) & -2147483648); 
BgL_test6536z00_15491 = 
(BgL_arg1707z00_8756==0L); } 
if(BgL_test6536z00_15491)
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1703z00_8757;
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1704z00_8758; int32_t BgL_arg1706z00_8759;
BgL_arg1704z00_8758 = 
(int32_t)(BgL_n1z00_458); 
BgL_arg1706z00_8759 = 
(int32_t)(BgL_n2z00_459); 
BgL_arg1703z00_8757 = 
(BgL_arg1704z00_8758%BgL_arg1706z00_8759); } 
{ /* Ieee/fixnum.scm 1519 */
 long BgL_arg1228z00_8760;
BgL_arg1228z00_8760 = 
(long)(BgL_arg1703z00_8757); 
return 
(long)(BgL_arg1228z00_8760);} }  else 
{ /* Ieee/fixnum.scm 2115 */
return 
(BgL_n1z00_458%BgL_n2z00_459);} } } 

}



/* &remainderfx */
obj_t BGl_z62remainderfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6645, obj_t BgL_n1z00_6646, obj_t BgL_n2z00_6647)
{
{ /* Ieee/fixnum.scm 2105 */
{ /* Ieee/fixnum.scm 2115 */
 long BgL_tmpz00_15500;
{ /* Ieee/fixnum.scm 2115 */
 long BgL_auxz00_15510; long BgL_auxz00_15501;
{ /* Ieee/fixnum.scm 2115 */
 obj_t BgL_tmpz00_15511;
if(
INTEGERP(BgL_n2z00_6647))
{ /* Ieee/fixnum.scm 2115 */
BgL_tmpz00_15511 = BgL_n2z00_6647
; }  else 
{ 
 obj_t BgL_auxz00_15514;
BgL_auxz00_15514 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98319L), BGl_string4878z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6647); 
FAILURE(BgL_auxz00_15514,BFALSE,BFALSE);} 
BgL_auxz00_15510 = 
(long)CINT(BgL_tmpz00_15511); } 
{ /* Ieee/fixnum.scm 2115 */
 obj_t BgL_tmpz00_15502;
if(
INTEGERP(BgL_n1z00_6646))
{ /* Ieee/fixnum.scm 2115 */
BgL_tmpz00_15502 = BgL_n1z00_6646
; }  else 
{ 
 obj_t BgL_auxz00_15505;
BgL_auxz00_15505 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98319L), BGl_string4878z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6646); 
FAILURE(BgL_auxz00_15505,BFALSE,BFALSE);} 
BgL_auxz00_15501 = 
(long)CINT(BgL_tmpz00_15502); } 
BgL_tmpz00_15500 = 
BGl_remainderfxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15501, BgL_auxz00_15510); } 
return 
BINT(BgL_tmpz00_15500);} } 

}



/* remainderelong */
BGL_EXPORTED_DEF long BGl_remainderelongz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_460, long BgL_n2z00_461)
{
{ /* Ieee/fixnum.scm 2121 */
return 
(BgL_n1z00_460%BgL_n2z00_461);} 

}



/* &remainderelong */
obj_t BGl_z62remainderelongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6648, obj_t BgL_n1z00_6649, obj_t BgL_n2z00_6650)
{
{ /* Ieee/fixnum.scm 2121 */
{ /* Ieee/fixnum.scm 2121 */
 long BgL_tmpz00_15522;
{ /* Ieee/fixnum.scm 2121 */
 long BgL_auxz00_15532; long BgL_auxz00_15523;
{ /* Ieee/fixnum.scm 2121 */
 obj_t BgL_tmpz00_15533;
if(
ELONGP(BgL_n2z00_6650))
{ /* Ieee/fixnum.scm 2121 */
BgL_tmpz00_15533 = BgL_n2z00_6650
; }  else 
{ 
 obj_t BgL_auxz00_15536;
BgL_auxz00_15536 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98567L), BGl_string4879z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6650); 
FAILURE(BgL_auxz00_15536,BFALSE,BFALSE);} 
BgL_auxz00_15532 = 
BELONG_TO_LONG(BgL_tmpz00_15533); } 
{ /* Ieee/fixnum.scm 2121 */
 obj_t BgL_tmpz00_15524;
if(
ELONGP(BgL_n1z00_6649))
{ /* Ieee/fixnum.scm 2121 */
BgL_tmpz00_15524 = BgL_n1z00_6649
; }  else 
{ 
 obj_t BgL_auxz00_15527;
BgL_auxz00_15527 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98567L), BGl_string4879z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6649); 
FAILURE(BgL_auxz00_15527,BFALSE,BFALSE);} 
BgL_auxz00_15523 = 
BELONG_TO_LONG(BgL_tmpz00_15524); } 
BgL_tmpz00_15522 = 
BGl_remainderelongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15523, BgL_auxz00_15532); } 
return 
make_belong(BgL_tmpz00_15522);} } 

}



/* remainderllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_remainderllongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_n1z00_462, BGL_LONGLONG_T BgL_n2z00_463)
{
{ /* Ieee/fixnum.scm 2122 */
return 
(BgL_n1z00_462%BgL_n2z00_463);} 

}



/* &remainderllong */
obj_t BGl_z62remainderllongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6651, obj_t BgL_n1z00_6652, obj_t BgL_n2z00_6653)
{
{ /* Ieee/fixnum.scm 2122 */
{ /* Ieee/fixnum.scm 2122 */
 BGL_LONGLONG_T BgL_tmpz00_15544;
{ /* Ieee/fixnum.scm 2122 */
 BGL_LONGLONG_T BgL_auxz00_15554; BGL_LONGLONG_T BgL_auxz00_15545;
{ /* Ieee/fixnum.scm 2122 */
 obj_t BgL_tmpz00_15555;
if(
LLONGP(BgL_n2z00_6653))
{ /* Ieee/fixnum.scm 2122 */
BgL_tmpz00_15555 = BgL_n2z00_6653
; }  else 
{ 
 obj_t BgL_auxz00_15558;
BgL_auxz00_15558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98630L), BGl_string4880z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6653); 
FAILURE(BgL_auxz00_15558,BFALSE,BFALSE);} 
BgL_auxz00_15554 = 
BLLONG_TO_LLONG(BgL_tmpz00_15555); } 
{ /* Ieee/fixnum.scm 2122 */
 obj_t BgL_tmpz00_15546;
if(
LLONGP(BgL_n1z00_6652))
{ /* Ieee/fixnum.scm 2122 */
BgL_tmpz00_15546 = BgL_n1z00_6652
; }  else 
{ 
 obj_t BgL_auxz00_15549;
BgL_auxz00_15549 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98630L), BGl_string4880z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6652); 
FAILURE(BgL_auxz00_15549,BFALSE,BFALSE);} 
BgL_auxz00_15545 = 
BLLONG_TO_LLONG(BgL_tmpz00_15546); } 
BgL_tmpz00_15544 = 
BGl_remainderllongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15545, BgL_auxz00_15554); } 
return 
make_bllong(BgL_tmpz00_15544);} } 

}



/* remainders8 */
BGL_EXPORTED_DEF int8_t BGl_remainders8z00zz__r4_numbers_6_5_fixnumz00(int8_t BgL_n1z00_464, int8_t BgL_n2z00_465)
{
{ /* Ieee/fixnum.scm 2124 */
return 
(BgL_n1z00_464%BgL_n2z00_465);} 

}



/* &remainders8 */
obj_t BGl_z62remainders8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6654, obj_t BgL_n1z00_6655, obj_t BgL_n2z00_6656)
{
{ /* Ieee/fixnum.scm 2124 */
{ /* Ieee/fixnum.scm 2124 */
 int8_t BgL_tmpz00_15566;
{ /* Ieee/fixnum.scm 2124 */
 int8_t BgL_auxz00_15576; int8_t BgL_auxz00_15567;
{ /* Ieee/fixnum.scm 2124 */
 obj_t BgL_tmpz00_15577;
if(
BGL_INT8P(BgL_n2z00_6656))
{ /* Ieee/fixnum.scm 2124 */
BgL_tmpz00_15577 = BgL_n2z00_6656
; }  else 
{ 
 obj_t BgL_auxz00_15580;
BgL_auxz00_15580 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98691L), BGl_string4881z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6656); 
FAILURE(BgL_auxz00_15580,BFALSE,BFALSE);} 
BgL_auxz00_15576 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_15577); } 
{ /* Ieee/fixnum.scm 2124 */
 obj_t BgL_tmpz00_15568;
if(
BGL_INT8P(BgL_n1z00_6655))
{ /* Ieee/fixnum.scm 2124 */
BgL_tmpz00_15568 = BgL_n1z00_6655
; }  else 
{ 
 obj_t BgL_auxz00_15571;
BgL_auxz00_15571 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98691L), BGl_string4881z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6655); 
FAILURE(BgL_auxz00_15571,BFALSE,BFALSE);} 
BgL_auxz00_15567 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_15568); } 
BgL_tmpz00_15566 = 
BGl_remainders8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15567, BgL_auxz00_15576); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_15566);} } 

}



/* remainderu8 */
BGL_EXPORTED_DEF uint8_t BGl_remainderu8z00zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_n1z00_466, uint8_t BgL_n2z00_467)
{
{ /* Ieee/fixnum.scm 2125 */
{ /* Ieee/fixnum.scm 2125 */
 int8_t BgL_tmpz00_15587;
BgL_tmpz00_15587 = 
(int8_t)(BgL_n2z00_467); 
return 
(BgL_n1z00_466%BgL_tmpz00_15587);} } 

}



/* &remainderu8 */
obj_t BGl_z62remainderu8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6657, obj_t BgL_n1z00_6658, obj_t BgL_n2z00_6659)
{
{ /* Ieee/fixnum.scm 2125 */
{ /* Ieee/fixnum.scm 2125 */
 uint8_t BgL_tmpz00_15590;
{ /* Ieee/fixnum.scm 2125 */
 uint8_t BgL_auxz00_15600; uint8_t BgL_auxz00_15591;
{ /* Ieee/fixnum.scm 2125 */
 obj_t BgL_tmpz00_15601;
if(
BGL_UINT8P(BgL_n2z00_6659))
{ /* Ieee/fixnum.scm 2125 */
BgL_tmpz00_15601 = BgL_n2z00_6659
; }  else 
{ 
 obj_t BgL_auxz00_15604;
BgL_auxz00_15604 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98748L), BGl_string4882z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6659); 
FAILURE(BgL_auxz00_15604,BFALSE,BFALSE);} 
BgL_auxz00_15600 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_15601); } 
{ /* Ieee/fixnum.scm 2125 */
 obj_t BgL_tmpz00_15592;
if(
BGL_UINT8P(BgL_n1z00_6658))
{ /* Ieee/fixnum.scm 2125 */
BgL_tmpz00_15592 = BgL_n1z00_6658
; }  else 
{ 
 obj_t BgL_auxz00_15595;
BgL_auxz00_15595 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98748L), BGl_string4882z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6658); 
FAILURE(BgL_auxz00_15595,BFALSE,BFALSE);} 
BgL_auxz00_15591 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_15592); } 
BgL_tmpz00_15590 = 
BGl_remainderu8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15591, BgL_auxz00_15600); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_15590);} } 

}



/* remainders16 */
BGL_EXPORTED_DEF int16_t BGl_remainders16z00zz__r4_numbers_6_5_fixnumz00(int16_t BgL_n1z00_468, int16_t BgL_n2z00_469)
{
{ /* Ieee/fixnum.scm 2127 */
return 
(BgL_n1z00_468%BgL_n2z00_469);} 

}



/* &remainders16 */
obj_t BGl_z62remainders16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6660, obj_t BgL_n1z00_6661, obj_t BgL_n2z00_6662)
{
{ /* Ieee/fixnum.scm 2127 */
{ /* Ieee/fixnum.scm 2127 */
 int16_t BgL_tmpz00_15612;
{ /* Ieee/fixnum.scm 2127 */
 int16_t BgL_auxz00_15622; int16_t BgL_auxz00_15613;
{ /* Ieee/fixnum.scm 2127 */
 obj_t BgL_tmpz00_15623;
if(
BGL_INT16P(BgL_n2z00_6662))
{ /* Ieee/fixnum.scm 2127 */
BgL_tmpz00_15623 = BgL_n2z00_6662
; }  else 
{ 
 obj_t BgL_auxz00_15626;
BgL_auxz00_15626 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98807L), BGl_string4883z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6662); 
FAILURE(BgL_auxz00_15626,BFALSE,BFALSE);} 
BgL_auxz00_15622 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_15623); } 
{ /* Ieee/fixnum.scm 2127 */
 obj_t BgL_tmpz00_15614;
if(
BGL_INT16P(BgL_n1z00_6661))
{ /* Ieee/fixnum.scm 2127 */
BgL_tmpz00_15614 = BgL_n1z00_6661
; }  else 
{ 
 obj_t BgL_auxz00_15617;
BgL_auxz00_15617 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98807L), BGl_string4883z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6661); 
FAILURE(BgL_auxz00_15617,BFALSE,BFALSE);} 
BgL_auxz00_15613 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_15614); } 
BgL_tmpz00_15612 = 
BGl_remainders16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15613, BgL_auxz00_15622); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_15612);} } 

}



/* remainderu16 */
BGL_EXPORTED_DEF uint16_t BGl_remainderu16z00zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_n1z00_470, uint16_t BgL_n2z00_471)
{
{ /* Ieee/fixnum.scm 2128 */
{ /* Ieee/fixnum.scm 2128 */
 int16_t BgL_tmpz00_15633;
BgL_tmpz00_15633 = 
(int16_t)(BgL_n2z00_471); 
return 
(BgL_n1z00_470%BgL_tmpz00_15633);} } 

}



/* &remainderu16 */
obj_t BGl_z62remainderu16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6663, obj_t BgL_n1z00_6664, obj_t BgL_n2z00_6665)
{
{ /* Ieee/fixnum.scm 2128 */
{ /* Ieee/fixnum.scm 2128 */
 uint16_t BgL_tmpz00_15636;
{ /* Ieee/fixnum.scm 2128 */
 uint16_t BgL_auxz00_15646; uint16_t BgL_auxz00_15637;
{ /* Ieee/fixnum.scm 2128 */
 obj_t BgL_tmpz00_15647;
if(
BGL_UINT16P(BgL_n2z00_6665))
{ /* Ieee/fixnum.scm 2128 */
BgL_tmpz00_15647 = BgL_n2z00_6665
; }  else 
{ 
 obj_t BgL_auxz00_15650;
BgL_auxz00_15650 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98866L), BGl_string4884z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6665); 
FAILURE(BgL_auxz00_15650,BFALSE,BFALSE);} 
BgL_auxz00_15646 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_15647); } 
{ /* Ieee/fixnum.scm 2128 */
 obj_t BgL_tmpz00_15638;
if(
BGL_UINT16P(BgL_n1z00_6664))
{ /* Ieee/fixnum.scm 2128 */
BgL_tmpz00_15638 = BgL_n1z00_6664
; }  else 
{ 
 obj_t BgL_auxz00_15641;
BgL_auxz00_15641 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98866L), BGl_string4884z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6664); 
FAILURE(BgL_auxz00_15641,BFALSE,BFALSE);} 
BgL_auxz00_15637 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_15638); } 
BgL_tmpz00_15636 = 
BGl_remainderu16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15637, BgL_auxz00_15646); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_15636);} } 

}



/* remainders32 */
BGL_EXPORTED_DEF int32_t BGl_remainders32z00zz__r4_numbers_6_5_fixnumz00(int32_t BgL_n1z00_472, int32_t BgL_n2z00_473)
{
{ /* Ieee/fixnum.scm 2130 */
return 
(BgL_n1z00_472%BgL_n2z00_473);} 

}



/* &remainders32 */
obj_t BGl_z62remainders32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6666, obj_t BgL_n1z00_6667, obj_t BgL_n2z00_6668)
{
{ /* Ieee/fixnum.scm 2130 */
{ /* Ieee/fixnum.scm 2130 */
 int32_t BgL_tmpz00_15658;
{ /* Ieee/fixnum.scm 2130 */
 int32_t BgL_auxz00_15668; int32_t BgL_auxz00_15659;
{ /* Ieee/fixnum.scm 2130 */
 obj_t BgL_tmpz00_15669;
if(
BGL_INT32P(BgL_n2z00_6668))
{ /* Ieee/fixnum.scm 2130 */
BgL_tmpz00_15669 = BgL_n2z00_6668
; }  else 
{ 
 obj_t BgL_auxz00_15672;
BgL_auxz00_15672 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98926L), BGl_string4885z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6668); 
FAILURE(BgL_auxz00_15672,BFALSE,BFALSE);} 
BgL_auxz00_15668 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_15669); } 
{ /* Ieee/fixnum.scm 2130 */
 obj_t BgL_tmpz00_15660;
if(
BGL_INT32P(BgL_n1z00_6667))
{ /* Ieee/fixnum.scm 2130 */
BgL_tmpz00_15660 = BgL_n1z00_6667
; }  else 
{ 
 obj_t BgL_auxz00_15663;
BgL_auxz00_15663 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98926L), BGl_string4885z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6667); 
FAILURE(BgL_auxz00_15663,BFALSE,BFALSE);} 
BgL_auxz00_15659 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_15660); } 
BgL_tmpz00_15658 = 
BGl_remainders32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15659, BgL_auxz00_15668); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_15658);} } 

}



/* remainderu32 */
BGL_EXPORTED_DEF uint32_t BGl_remainderu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_n1z00_474, uint32_t BgL_n2z00_475)
{
{ /* Ieee/fixnum.scm 2131 */
{ /* Ieee/fixnum.scm 2131 */
 int32_t BgL_tmpz00_15679;
BgL_tmpz00_15679 = 
(int32_t)(BgL_n2z00_475); 
return 
(BgL_n1z00_474%BgL_tmpz00_15679);} } 

}



/* &remainderu32 */
obj_t BGl_z62remainderu32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6669, obj_t BgL_n1z00_6670, obj_t BgL_n2z00_6671)
{
{ /* Ieee/fixnum.scm 2131 */
{ /* Ieee/fixnum.scm 2131 */
 uint32_t BgL_tmpz00_15682;
{ /* Ieee/fixnum.scm 2131 */
 uint32_t BgL_auxz00_15692; uint32_t BgL_auxz00_15683;
{ /* Ieee/fixnum.scm 2131 */
 obj_t BgL_tmpz00_15693;
if(
BGL_UINT32P(BgL_n2z00_6671))
{ /* Ieee/fixnum.scm 2131 */
BgL_tmpz00_15693 = BgL_n2z00_6671
; }  else 
{ 
 obj_t BgL_auxz00_15696;
BgL_auxz00_15696 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98985L), BGl_string4886z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6671); 
FAILURE(BgL_auxz00_15696,BFALSE,BFALSE);} 
BgL_auxz00_15692 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_15693); } 
{ /* Ieee/fixnum.scm 2131 */
 obj_t BgL_tmpz00_15684;
if(
BGL_UINT32P(BgL_n1z00_6670))
{ /* Ieee/fixnum.scm 2131 */
BgL_tmpz00_15684 = BgL_n1z00_6670
; }  else 
{ 
 obj_t BgL_auxz00_15687;
BgL_auxz00_15687 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(98985L), BGl_string4886z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6670); 
FAILURE(BgL_auxz00_15687,BFALSE,BFALSE);} 
BgL_auxz00_15683 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_15684); } 
BgL_tmpz00_15682 = 
BGl_remainderu32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15683, BgL_auxz00_15692); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_15682);} } 

}



/* remainders64 */
BGL_EXPORTED_DEF int64_t BGl_remainders64z00zz__r4_numbers_6_5_fixnumz00(int64_t BgL_n1z00_476, int64_t BgL_n2z00_477)
{
{ /* Ieee/fixnum.scm 2133 */
return 
(BgL_n1z00_476%BgL_n2z00_477);} 

}



/* &remainders64 */
obj_t BGl_z62remainders64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6672, obj_t BgL_n1z00_6673, obj_t BgL_n2z00_6674)
{
{ /* Ieee/fixnum.scm 2133 */
{ /* Ieee/fixnum.scm 2133 */
 int64_t BgL_tmpz00_15704;
{ /* Ieee/fixnum.scm 2133 */
 int64_t BgL_auxz00_15714; int64_t BgL_auxz00_15705;
{ /* Ieee/fixnum.scm 2133 */
 obj_t BgL_tmpz00_15715;
if(
BGL_INT64P(BgL_n2z00_6674))
{ /* Ieee/fixnum.scm 2133 */
BgL_tmpz00_15715 = BgL_n2z00_6674
; }  else 
{ 
 obj_t BgL_auxz00_15718;
BgL_auxz00_15718 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99045L), BGl_string4887z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6674); 
FAILURE(BgL_auxz00_15718,BFALSE,BFALSE);} 
BgL_auxz00_15714 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_15715); } 
{ /* Ieee/fixnum.scm 2133 */
 obj_t BgL_tmpz00_15706;
if(
BGL_INT64P(BgL_n1z00_6673))
{ /* Ieee/fixnum.scm 2133 */
BgL_tmpz00_15706 = BgL_n1z00_6673
; }  else 
{ 
 obj_t BgL_auxz00_15709;
BgL_auxz00_15709 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99045L), BGl_string4887z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6673); 
FAILURE(BgL_auxz00_15709,BFALSE,BFALSE);} 
BgL_auxz00_15705 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_15706); } 
BgL_tmpz00_15704 = 
BGl_remainders64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15705, BgL_auxz00_15714); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_15704);} } 

}



/* remainderu64 */
BGL_EXPORTED_DEF uint64_t BGl_remainderu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_n1z00_478, uint64_t BgL_n2z00_479)
{
{ /* Ieee/fixnum.scm 2134 */
{ /* Ieee/fixnum.scm 2134 */
 int64_t BgL_tmpz00_15725;
BgL_tmpz00_15725 = 
(int64_t)(BgL_n2z00_479); 
return 
(BgL_n1z00_478%BgL_tmpz00_15725);} } 

}



/* &remainderu64 */
obj_t BGl_z62remainderu64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6675, obj_t BgL_n1z00_6676, obj_t BgL_n2z00_6677)
{
{ /* Ieee/fixnum.scm 2134 */
{ /* Ieee/fixnum.scm 2134 */
 uint64_t BgL_tmpz00_15728;
{ /* Ieee/fixnum.scm 2134 */
 uint64_t BgL_auxz00_15738; uint64_t BgL_auxz00_15729;
{ /* Ieee/fixnum.scm 2134 */
 obj_t BgL_tmpz00_15739;
if(
BGL_UINT64P(BgL_n2z00_6677))
{ /* Ieee/fixnum.scm 2134 */
BgL_tmpz00_15739 = BgL_n2z00_6677
; }  else 
{ 
 obj_t BgL_auxz00_15742;
BgL_auxz00_15742 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99104L), BGl_string4888z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6677); 
FAILURE(BgL_auxz00_15742,BFALSE,BFALSE);} 
BgL_auxz00_15738 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_15739); } 
{ /* Ieee/fixnum.scm 2134 */
 obj_t BgL_tmpz00_15730;
if(
BGL_UINT64P(BgL_n1z00_6676))
{ /* Ieee/fixnum.scm 2134 */
BgL_tmpz00_15730 = BgL_n1z00_6676
; }  else 
{ 
 obj_t BgL_auxz00_15733;
BgL_auxz00_15733 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99104L), BGl_string4888z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6676); 
FAILURE(BgL_auxz00_15733,BFALSE,BFALSE);} 
BgL_auxz00_15729 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_15730); } 
BgL_tmpz00_15728 = 
BGl_remainderu64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15729, BgL_auxz00_15738); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_15728);} } 

}



/* remainderbx */
BGL_EXPORTED_DEF obj_t BGl_remainderbxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_480, obj_t BgL_n2z00_481)
{
{ /* Ieee/fixnum.scm 2136 */
BGL_TAIL return 
bgl_bignum_remainder(BgL_n1z00_480, BgL_n2z00_481);} 

}



/* &remainderbx */
obj_t BGl_z62remainderbxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6678, obj_t BgL_n1z00_6679, obj_t BgL_n2z00_6680)
{
{ /* Ieee/fixnum.scm 2136 */
{ /* Ieee/fixnum.scm 2136 */
 obj_t BgL_auxz00_15757; obj_t BgL_auxz00_15750;
if(
BIGNUMP(BgL_n2z00_6680))
{ /* Ieee/fixnum.scm 2136 */
BgL_auxz00_15757 = BgL_n2z00_6680
; }  else 
{ 
 obj_t BgL_auxz00_15760;
BgL_auxz00_15760 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99163L), BGl_string4889z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_6680); 
FAILURE(BgL_auxz00_15760,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_n1z00_6679))
{ /* Ieee/fixnum.scm 2136 */
BgL_auxz00_15750 = BgL_n1z00_6679
; }  else 
{ 
 obj_t BgL_auxz00_15753;
BgL_auxz00_15753 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99163L), BGl_string4889z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_6679); 
FAILURE(BgL_auxz00_15753,BFALSE,BFALSE);} 
return 
BGl_remainderbxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15750, BgL_auxz00_15757);} } 

}



/* modulo */
BGL_EXPORTED_DEF obj_t BGl_moduloz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_482, obj_t BgL_n2z00_483)
{
{ /* Ieee/fixnum.scm 2141 */
if(
INTEGERP(BgL_n1z00_482))
{ /* Ieee/fixnum.scm 2142 */
if(
INTEGERP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
return 
BINT(
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
(long)CINT(BgL_n1z00_482), 
(long)CINT(BgL_n2z00_483)));}  else 
{ /* Ieee/fixnum.scm 2142 */
if(
ELONGP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
 long BgL_arg1712z00_1408;
{ /* Ieee/fixnum.scm 1535 */
 long BgL_tmpz00_15775;
BgL_tmpz00_15775 = 
(long)CINT(BgL_n1z00_482); 
BgL_arg1712z00_1408 = 
(long)(BgL_tmpz00_15775); } 
{ /* Ieee/fixnum.scm 2142 */
 long BgL_tmpz00_15778;
BgL_tmpz00_15778 = 
BGl_moduloelongz00zz__r4_numbers_6_5_fixnumz00(BgL_arg1712z00_1408, 
BELONG_TO_LONG(BgL_n2z00_483)); 
return 
make_belong(BgL_tmpz00_15778);} }  else 
{ /* Ieee/fixnum.scm 2142 */
if(
LLONGP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
 BGL_LONGLONG_T BgL_arg1714z00_1410;
{ /* Ieee/fixnum.scm 1538 */
 long BgL_tmpz00_15784;
BgL_tmpz00_15784 = 
(long)CINT(BgL_n1z00_482); 
BgL_arg1714z00_1410 = 
LONG_TO_LLONG(BgL_tmpz00_15784); } 
return 
make_bllong(
BGl_modulollongz00zz__r4_numbers_6_5_fixnumz00(BgL_arg1714z00_1410, 
BLLONG_TO_LLONG(BgL_n2z00_483)));}  else 
{ /* Ieee/fixnum.scm 2142 */
if(
BIGNUMP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
return 
BGl_modulobxz00zz__r4_numbers_6_5_fixnumz00(
bgl_long_to_bignum(
(long)CINT(BgL_n1z00_482)), BgL_n2z00_483);}  else 
{ /* Ieee/fixnum.scm 2142 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4890z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_483);} } } } }  else 
{ /* Ieee/fixnum.scm 2142 */
if(
ELONGP(BgL_n1z00_482))
{ /* Ieee/fixnum.scm 2142 */
if(
INTEGERP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
 long BgL_arg1720z00_1415;
{ /* Ieee/fixnum.scm 1535 */
 long BgL_tmpz00_15800;
BgL_tmpz00_15800 = 
(long)CINT(BgL_n2z00_483); 
BgL_arg1720z00_1415 = 
(long)(BgL_tmpz00_15800); } 
{ /* Ieee/fixnum.scm 2142 */
 long BgL_tmpz00_15803;
BgL_tmpz00_15803 = 
BGl_moduloelongz00zz__r4_numbers_6_5_fixnumz00(
BELONG_TO_LONG(BgL_n1z00_482), BgL_arg1720z00_1415); 
return 
make_belong(BgL_tmpz00_15803);} }  else 
{ /* Ieee/fixnum.scm 2142 */
if(
ELONGP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
 long BgL_tmpz00_15809;
BgL_tmpz00_15809 = 
BGl_moduloelongz00zz__r4_numbers_6_5_fixnumz00(
BELONG_TO_LONG(BgL_n1z00_482), 
BELONG_TO_LONG(BgL_n2z00_483)); 
return 
make_belong(BgL_tmpz00_15809);}  else 
{ /* Ieee/fixnum.scm 2142 */
if(
LLONGP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
return 
make_bllong(
BGl_modulollongz00zz__r4_numbers_6_5_fixnumz00(
(BGL_LONGLONG_T)(
BELONG_TO_LONG(BgL_n1z00_482)), 
BLLONG_TO_LLONG(BgL_n2z00_483)));}  else 
{ /* Ieee/fixnum.scm 2142 */
if(
BIGNUMP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
 obj_t BgL_auxz00_15823;
{ /* Ieee/fixnum.scm 2142 */
 long BgL_xz00_3379;
BgL_xz00_3379 = 
BELONG_TO_LONG(BgL_n1z00_482); 
BgL_auxz00_15823 = 
bgl_long_to_bignum(BgL_xz00_3379); } 
return 
BGl_modulobxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15823, BgL_n2z00_483);}  else 
{ /* Ieee/fixnum.scm 2142 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4890z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_483);} } } } }  else 
{ /* Ieee/fixnum.scm 2142 */
if(
LLONGP(BgL_n1z00_482))
{ /* Ieee/fixnum.scm 2142 */
if(
INTEGERP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
 BGL_LONGLONG_T BgL_arg1729z00_1423;
{ /* Ieee/fixnum.scm 1538 */
 long BgL_tmpz00_15832;
BgL_tmpz00_15832 = 
(long)CINT(BgL_n2z00_483); 
BgL_arg1729z00_1423 = 
LONG_TO_LLONG(BgL_tmpz00_15832); } 
return 
make_bllong(
BGl_modulollongz00zz__r4_numbers_6_5_fixnumz00(
BLLONG_TO_LLONG(BgL_n1z00_482), BgL_arg1729z00_1423));}  else 
{ /* Ieee/fixnum.scm 2142 */
if(
ELONGP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
return 
make_bllong(
BGl_modulollongz00zz__r4_numbers_6_5_fixnumz00(
BLLONG_TO_LLONG(BgL_n1z00_482), 
(BGL_LONGLONG_T)(
BELONG_TO_LONG(BgL_n2z00_483))));}  else 
{ /* Ieee/fixnum.scm 2142 */
if(
LLONGP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
return 
make_bllong(
BGl_modulollongz00zz__r4_numbers_6_5_fixnumz00(
BLLONG_TO_LLONG(BgL_n1z00_482), 
BLLONG_TO_LLONG(BgL_n2z00_483)));}  else 
{ /* Ieee/fixnum.scm 2142 */
if(
BIGNUMP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
return 
BGl_modulobxz00zz__r4_numbers_6_5_fixnumz00(
bgl_llong_to_bignum(
BLLONG_TO_LLONG(BgL_n1z00_482)), BgL_n2z00_483);}  else 
{ /* Ieee/fixnum.scm 2142 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4890z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_483);} } } } }  else 
{ /* Ieee/fixnum.scm 2142 */
if(
BIGNUMP(BgL_n1z00_482))
{ /* Ieee/fixnum.scm 2142 */
if(
INTEGERP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
return 
BGl_modulobxz00zz__r4_numbers_6_5_fixnumz00(BgL_n1z00_482, 
bgl_long_to_bignum(
(long)CINT(BgL_n2z00_483)));}  else 
{ /* Ieee/fixnum.scm 2142 */
if(
ELONGP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
 obj_t BgL_auxz00_15866;
{ /* Ieee/fixnum.scm 2142 */
 long BgL_xz00_3383;
BgL_xz00_3383 = 
BELONG_TO_LONG(BgL_n2z00_483); 
BgL_auxz00_15866 = 
bgl_long_to_bignum(BgL_xz00_3383); } 
return 
BGl_modulobxz00zz__r4_numbers_6_5_fixnumz00(BgL_n1z00_482, BgL_auxz00_15866);}  else 
{ /* Ieee/fixnum.scm 2142 */
if(
LLONGP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
return 
BGl_modulobxz00zz__r4_numbers_6_5_fixnumz00(BgL_n1z00_482, 
bgl_llong_to_bignum(
BLLONG_TO_LLONG(BgL_n2z00_483)));}  else 
{ /* Ieee/fixnum.scm 2142 */
if(
BIGNUMP(BgL_n2z00_483))
{ /* Ieee/fixnum.scm 2142 */
return 
BGl_modulobxz00zz__r4_numbers_6_5_fixnumz00(BgL_n1z00_482, BgL_n2z00_483);}  else 
{ /* Ieee/fixnum.scm 2142 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4890z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_483);} } } } }  else 
{ /* Ieee/fixnum.scm 2142 */
return 
BGl_errorz00zz__errorz00(BGl_symbol4890z00zz__r4_numbers_6_5_fixnumz00, BGl_string4863z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_482);} } } } } 

}



/* &modulo */
obj_t BGl_z62moduloz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6681, obj_t BgL_n1z00_6682, obj_t BgL_n2z00_6683)
{
{ /* Ieee/fixnum.scm 2141 */
return 
BGl_moduloz00zz__r4_numbers_6_5_fixnumz00(BgL_n1z00_6682, BgL_n2z00_6683);} 

}



/* modulofx */
BGL_EXPORTED_DEF long BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_484, long BgL_yz00_485)
{
{ /* Ieee/fixnum.scm 2144 */
{ /* Ieee/fixnum.scm 2145 */
 long BgL_rz00_1437;
{ /* Ieee/fixnum.scm 2145 */
 long BgL_n1z00_3385; long BgL_n2z00_3386;
BgL_n1z00_3385 = BgL_xz00_484; 
BgL_n2z00_3386 = BgL_yz00_485; 
{ /* Ieee/fixnum.scm 2115 */
 bool_t BgL_test6581z00_15881;
{ /* Ieee/fixnum.scm 2115 */
 long BgL_arg1707z00_3388;
BgL_arg1707z00_3388 = 
(((BgL_n1z00_3385) | (BgL_n2z00_3386)) & -2147483648); 
BgL_test6581z00_15881 = 
(BgL_arg1707z00_3388==0L); } 
if(BgL_test6581z00_15881)
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1703z00_3389;
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1704z00_3390; int32_t BgL_arg1706z00_3391;
BgL_arg1704z00_3390 = 
(int32_t)(BgL_n1z00_3385); 
BgL_arg1706z00_3391 = 
(int32_t)(BgL_n2z00_3386); 
BgL_arg1703z00_3389 = 
(BgL_arg1704z00_3390%BgL_arg1706z00_3391); } 
{ /* Ieee/fixnum.scm 1519 */
 long BgL_arg1228z00_3396;
BgL_arg1228z00_3396 = 
(long)(BgL_arg1703z00_3389); 
BgL_rz00_1437 = 
(long)(BgL_arg1228z00_3396); } }  else 
{ /* Ieee/fixnum.scm 2115 */
BgL_rz00_1437 = 
(BgL_n1z00_3385%BgL_n2z00_3386); } } } 
if(
(BgL_rz00_1437==0L))
{ /* Ieee/fixnum.scm 2146 */
return BgL_rz00_1437;}  else 
{ /* Ieee/fixnum.scm 2146 */
if(
(BgL_yz00_485>0L))
{ /* Ieee/fixnum.scm 2148 */
if(
(BgL_rz00_1437>0L))
{ /* Ieee/fixnum.scm 2149 */
return BgL_rz00_1437;}  else 
{ /* Ieee/fixnum.scm 2149 */
return 
(BgL_yz00_485+BgL_rz00_1437);} }  else 
{ /* Ieee/fixnum.scm 2148 */
if(
(BgL_rz00_1437<0L))
{ /* Ieee/fixnum.scm 2150 */
return BgL_rz00_1437;}  else 
{ /* Ieee/fixnum.scm 2150 */
return 
(BgL_yz00_485+BgL_rz00_1437);} } } } } 

}



/* &modulofx */
obj_t BGl_z62modulofxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6684, obj_t BgL_xz00_6685, obj_t BgL_yz00_6686)
{
{ /* Ieee/fixnum.scm 2144 */
{ /* Ieee/fixnum.scm 2145 */
 long BgL_tmpz00_15900;
{ /* Ieee/fixnum.scm 2145 */
 long BgL_auxz00_15910; long BgL_auxz00_15901;
{ /* Ieee/fixnum.scm 2145 */
 obj_t BgL_tmpz00_15911;
if(
INTEGERP(BgL_yz00_6686))
{ /* Ieee/fixnum.scm 2145 */
BgL_tmpz00_15911 = BgL_yz00_6686
; }  else 
{ 
 obj_t BgL_auxz00_15914;
BgL_auxz00_15914 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99482L), BGl_string4892z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6686); 
FAILURE(BgL_auxz00_15914,BFALSE,BFALSE);} 
BgL_auxz00_15910 = 
(long)CINT(BgL_tmpz00_15911); } 
{ /* Ieee/fixnum.scm 2145 */
 obj_t BgL_tmpz00_15902;
if(
INTEGERP(BgL_xz00_6685))
{ /* Ieee/fixnum.scm 2145 */
BgL_tmpz00_15902 = BgL_xz00_6685
; }  else 
{ 
 obj_t BgL_auxz00_15905;
BgL_auxz00_15905 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99482L), BGl_string4892z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6685); 
FAILURE(BgL_auxz00_15905,BFALSE,BFALSE);} 
BgL_auxz00_15901 = 
(long)CINT(BgL_tmpz00_15902); } 
BgL_tmpz00_15900 = 
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15901, BgL_auxz00_15910); } 
return 
BINT(BgL_tmpz00_15900);} } 

}



/* moduloelong */
BGL_EXPORTED_DEF long BGl_moduloelongz00zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_486, long BgL_yz00_487)
{
{ /* Ieee/fixnum.scm 2152 */
{ /* Ieee/fixnum.scm 2153 */
 long BgL_rz00_1442;
BgL_rz00_1442 = 
(BgL_xz00_486%BgL_yz00_487); 
if(
(BgL_rz00_1442==((long)0)))
{ /* Ieee/fixnum.scm 2154 */
return BgL_rz00_1442;}  else 
{ /* Ieee/fixnum.scm 2154 */
if(
(BgL_yz00_487>((long)0)))
{ /* Ieee/fixnum.scm 2156 */
if(
(BgL_rz00_1442>((long)0)))
{ /* Ieee/fixnum.scm 2157 */
return BgL_rz00_1442;}  else 
{ /* Ieee/fixnum.scm 2157 */
return 
(BgL_yz00_487+BgL_rz00_1442);} }  else 
{ /* Ieee/fixnum.scm 2156 */
if(
(BgL_rz00_1442<((long)0)))
{ /* Ieee/fixnum.scm 2158 */
return BgL_rz00_1442;}  else 
{ /* Ieee/fixnum.scm 2158 */
return 
(BgL_yz00_487+BgL_rz00_1442);} } } } } 

}



/* &moduloelong */
obj_t BGl_z62moduloelongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6687, obj_t BgL_xz00_6688, obj_t BgL_yz00_6689)
{
{ /* Ieee/fixnum.scm 2152 */
{ /* Ieee/fixnum.scm 2153 */
 long BgL_tmpz00_15932;
{ /* Ieee/fixnum.scm 2153 */
 long BgL_auxz00_15942; long BgL_auxz00_15933;
{ /* Ieee/fixnum.scm 2153 */
 obj_t BgL_tmpz00_15943;
if(
ELONGP(BgL_yz00_6689))
{ /* Ieee/fixnum.scm 2153 */
BgL_tmpz00_15943 = BgL_yz00_6689
; }  else 
{ 
 obj_t BgL_auxz00_15946;
BgL_auxz00_15946 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99664L), BGl_string4893z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6689); 
FAILURE(BgL_auxz00_15946,BFALSE,BFALSE);} 
BgL_auxz00_15942 = 
BELONG_TO_LONG(BgL_tmpz00_15943); } 
{ /* Ieee/fixnum.scm 2153 */
 obj_t BgL_tmpz00_15934;
if(
ELONGP(BgL_xz00_6688))
{ /* Ieee/fixnum.scm 2153 */
BgL_tmpz00_15934 = BgL_xz00_6688
; }  else 
{ 
 obj_t BgL_auxz00_15937;
BgL_auxz00_15937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99664L), BGl_string4893z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6688); 
FAILURE(BgL_auxz00_15937,BFALSE,BFALSE);} 
BgL_auxz00_15933 = 
BELONG_TO_LONG(BgL_tmpz00_15934); } 
BgL_tmpz00_15932 = 
BGl_moduloelongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15933, BgL_auxz00_15942); } 
return 
make_belong(BgL_tmpz00_15932);} } 

}



/* modulollong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_modulollongz00zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_xz00_488, BGL_LONGLONG_T BgL_yz00_489)
{
{ /* Ieee/fixnum.scm 2160 */
{ /* Ieee/fixnum.scm 2161 */
 BGL_LONGLONG_T BgL_rz00_1447;
BgL_rz00_1447 = 
(BgL_xz00_488%BgL_yz00_489); 
if(
(BgL_rz00_1447==((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2162 */
return BgL_rz00_1447;}  else 
{ /* Ieee/fixnum.scm 2162 */
if(
(BgL_yz00_489>((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2164 */
if(
(BgL_rz00_1447>((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2165 */
return BgL_rz00_1447;}  else 
{ /* Ieee/fixnum.scm 2165 */
return 
(BgL_yz00_489+BgL_rz00_1447);} }  else 
{ /* Ieee/fixnum.scm 2164 */
if(
(BgL_rz00_1447<((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2166 */
return BgL_rz00_1447;}  else 
{ /* Ieee/fixnum.scm 2166 */
return 
(BgL_yz00_489+BgL_rz00_1447);} } } } } 

}



/* &modulollong */
obj_t BGl_z62modulollongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6690, obj_t BgL_xz00_6691, obj_t BgL_yz00_6692)
{
{ /* Ieee/fixnum.scm 2160 */
{ /* Ieee/fixnum.scm 2161 */
 BGL_LONGLONG_T BgL_tmpz00_15964;
{ /* Ieee/fixnum.scm 2161 */
 BGL_LONGLONG_T BgL_auxz00_15974; BGL_LONGLONG_T BgL_auxz00_15965;
{ /* Ieee/fixnum.scm 2161 */
 obj_t BgL_tmpz00_15975;
if(
LLONGP(BgL_yz00_6692))
{ /* Ieee/fixnum.scm 2161 */
BgL_tmpz00_15975 = BgL_yz00_6692
; }  else 
{ 
 obj_t BgL_auxz00_15978;
BgL_auxz00_15978 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99867L), BGl_string4894z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6692); 
FAILURE(BgL_auxz00_15978,BFALSE,BFALSE);} 
BgL_auxz00_15974 = 
BLLONG_TO_LLONG(BgL_tmpz00_15975); } 
{ /* Ieee/fixnum.scm 2161 */
 obj_t BgL_tmpz00_15966;
if(
LLONGP(BgL_xz00_6691))
{ /* Ieee/fixnum.scm 2161 */
BgL_tmpz00_15966 = BgL_xz00_6691
; }  else 
{ 
 obj_t BgL_auxz00_15969;
BgL_auxz00_15969 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(99867L), BGl_string4894z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6691); 
FAILURE(BgL_auxz00_15969,BFALSE,BFALSE);} 
BgL_auxz00_15965 = 
BLLONG_TO_LLONG(BgL_tmpz00_15966); } 
BgL_tmpz00_15964 = 
BGl_modulollongz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_15965, BgL_auxz00_15974); } 
return 
make_bllong(BgL_tmpz00_15964);} } 

}



/* modulos8 */
BGL_EXPORTED_DEF int8_t BGl_modulos8z00zz__r4_numbers_6_5_fixnumz00(int8_t BgL_xz00_490, int8_t BgL_yz00_491)
{
{ /* Ieee/fixnum.scm 2168 */
{ /* Ieee/fixnum.scm 2169 */
 int8_t BgL_rz00_1452;
BgL_rz00_1452 = 
(BgL_xz00_490%BgL_yz00_491); 
{ /* Ieee/fixnum.scm 2170 */
 bool_t BgL_test6600z00_15986;
{ /* Ieee/fixnum.scm 1670 */
 int8_t BgL_arg1244z00_3449;
BgL_arg1244z00_3449 = 
(int8_t)(0L); 
BgL_test6600z00_15986 = 
(BgL_rz00_1452==BgL_arg1244z00_3449); } 
if(BgL_test6600z00_15986)
{ /* Ieee/fixnum.scm 2170 */
return BgL_rz00_1452;}  else 
{ /* Ieee/fixnum.scm 2172 */
 bool_t BgL_test6601z00_15989;
{ /* Ieee/fixnum.scm 1692 */
 int8_t BgL_arg1254z00_3453;
BgL_arg1254z00_3453 = 
(int8_t)(0L); 
BgL_test6601z00_15989 = 
(BgL_yz00_491>BgL_arg1254z00_3453); } 
if(BgL_test6601z00_15989)
{ /* Ieee/fixnum.scm 2173 */
 bool_t BgL_test6602z00_15992;
{ /* Ieee/fixnum.scm 1692 */
 int8_t BgL_arg1254z00_3457;
BgL_arg1254z00_3457 = 
(int8_t)(0L); 
BgL_test6602z00_15992 = 
(BgL_rz00_1452>BgL_arg1254z00_3457); } 
if(BgL_test6602z00_15992)
{ /* Ieee/fixnum.scm 2173 */
return BgL_rz00_1452;}  else 
{ /* Ieee/fixnum.scm 2173 */
return 
(BgL_yz00_491+BgL_rz00_1452);} }  else 
{ /* Ieee/fixnum.scm 2174 */
 bool_t BgL_test6603z00_15996;
{ /* Ieee/fixnum.scm 1714 */
 int8_t BgL_arg1277z00_3463;
BgL_arg1277z00_3463 = 
(int8_t)(0L); 
BgL_test6603z00_15996 = 
(BgL_rz00_1452<BgL_arg1277z00_3463); } 
if(BgL_test6603z00_15996)
{ /* Ieee/fixnum.scm 2174 */
return BgL_rz00_1452;}  else 
{ /* Ieee/fixnum.scm 2174 */
return 
(BgL_yz00_491+BgL_rz00_1452);} } } } } } 

}



/* &modulos8 */
obj_t BGl_z62modulos8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6693, obj_t BgL_xz00_6694, obj_t BgL_yz00_6695)
{
{ /* Ieee/fixnum.scm 2168 */
{ /* Ieee/fixnum.scm 2169 */
 int8_t BgL_tmpz00_16000;
{ /* Ieee/fixnum.scm 2169 */
 int8_t BgL_auxz00_16010; int8_t BgL_auxz00_16001;
{ /* Ieee/fixnum.scm 2169 */
 obj_t BgL_tmpz00_16011;
if(
BGL_INT8P(BgL_yz00_6695))
{ /* Ieee/fixnum.scm 2169 */
BgL_tmpz00_16011 = BgL_yz00_6695
; }  else 
{ 
 obj_t BgL_auxz00_16014;
BgL_auxz00_16014 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100067L), BGl_string4895z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6695); 
FAILURE(BgL_auxz00_16014,BFALSE,BFALSE);} 
BgL_auxz00_16010 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_16011); } 
{ /* Ieee/fixnum.scm 2169 */
 obj_t BgL_tmpz00_16002;
if(
BGL_INT8P(BgL_xz00_6694))
{ /* Ieee/fixnum.scm 2169 */
BgL_tmpz00_16002 = BgL_xz00_6694
; }  else 
{ 
 obj_t BgL_auxz00_16005;
BgL_auxz00_16005 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100067L), BGl_string4895z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6694); 
FAILURE(BgL_auxz00_16005,BFALSE,BFALSE);} 
BgL_auxz00_16001 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_16002); } 
BgL_tmpz00_16000 = 
BGl_modulos8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_16001, BgL_auxz00_16010); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_16000);} } 

}



/* modulou8 */
BGL_EXPORTED_DEF uint8_t BGl_modulou8z00zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_xz00_492, uint8_t BgL_yz00_493)
{
{ /* Ieee/fixnum.scm 2175 */
{ /* Ieee/fixnum.scm 2176 */
 uint8_t BgL_rz00_1457;
{ /* Ieee/fixnum.scm 2125 */
 int8_t BgL_tmpz00_16021;
BgL_tmpz00_16021 = 
(int8_t)(BgL_yz00_493); 
BgL_rz00_1457 = 
(BgL_xz00_492%BgL_tmpz00_16021); } 
{ /* Ieee/fixnum.scm 2177 */
 bool_t BgL_test6606z00_16024;
{ /* Ieee/fixnum.scm 1671 */
 uint8_t BgL_arg1246z00_3471;
BgL_arg1246z00_3471 = 
(uint8_t)(0L); 
BgL_test6606z00_16024 = 
(BgL_rz00_1457==BgL_arg1246z00_3471); } 
if(BgL_test6606z00_16024)
{ /* Ieee/fixnum.scm 2177 */
return BgL_rz00_1457;}  else 
{ /* Ieee/fixnum.scm 2179 */
 bool_t BgL_test6607z00_16027;
{ /* Ieee/fixnum.scm 1693 */
 uint8_t BgL_arg1256z00_3475;
BgL_arg1256z00_3475 = 
(uint8_t)(0L); 
BgL_test6607z00_16027 = 
(BgL_yz00_493>BgL_arg1256z00_3475); } 
if(BgL_test6607z00_16027)
{ /* Ieee/fixnum.scm 2180 */
 bool_t BgL_test6608z00_16030;
{ /* Ieee/fixnum.scm 1693 */
 uint8_t BgL_arg1256z00_3479;
BgL_arg1256z00_3479 = 
(uint8_t)(0L); 
BgL_test6608z00_16030 = 
(BgL_rz00_1457>BgL_arg1256z00_3479); } 
if(BgL_test6608z00_16030)
{ /* Ieee/fixnum.scm 2180 */
return BgL_rz00_1457;}  else 
{ /* Ieee/fixnum.scm 2180 */
return 
(BgL_yz00_493+BgL_rz00_1457);} }  else 
{ /* Ieee/fixnum.scm 2181 */
 bool_t BgL_test6609z00_16034;
{ /* Ieee/fixnum.scm 1715 */
 uint8_t BgL_arg1279z00_3485;
BgL_arg1279z00_3485 = 
(uint8_t)(0L); 
BgL_test6609z00_16034 = 
(BgL_rz00_1457<BgL_arg1279z00_3485); } 
if(BgL_test6609z00_16034)
{ /* Ieee/fixnum.scm 2181 */
return BgL_rz00_1457;}  else 
{ /* Ieee/fixnum.scm 2181 */
return 
(BgL_yz00_493+BgL_rz00_1457);} } } } } } 

}



/* &modulou8 */
obj_t BGl_z62modulou8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6696, obj_t BgL_xz00_6697, obj_t BgL_yz00_6698)
{
{ /* Ieee/fixnum.scm 2175 */
{ /* Ieee/fixnum.scm 2176 */
 uint8_t BgL_tmpz00_16038;
{ /* Ieee/fixnum.scm 2176 */
 uint8_t BgL_auxz00_16048; uint8_t BgL_auxz00_16039;
{ /* Ieee/fixnum.scm 2176 */
 obj_t BgL_tmpz00_16049;
if(
BGL_UINT8P(BgL_yz00_6698))
{ /* Ieee/fixnum.scm 2176 */
BgL_tmpz00_16049 = BgL_yz00_6698
; }  else 
{ 
 obj_t BgL_auxz00_16052;
BgL_auxz00_16052 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100245L), BGl_string4896z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6698); 
FAILURE(BgL_auxz00_16052,BFALSE,BFALSE);} 
BgL_auxz00_16048 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_16049); } 
{ /* Ieee/fixnum.scm 2176 */
 obj_t BgL_tmpz00_16040;
if(
BGL_UINT8P(BgL_xz00_6697))
{ /* Ieee/fixnum.scm 2176 */
BgL_tmpz00_16040 = BgL_xz00_6697
; }  else 
{ 
 obj_t BgL_auxz00_16043;
BgL_auxz00_16043 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100245L), BGl_string4896z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6697); 
FAILURE(BgL_auxz00_16043,BFALSE,BFALSE);} 
BgL_auxz00_16039 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_16040); } 
BgL_tmpz00_16038 = 
BGl_modulou8z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_16039, BgL_auxz00_16048); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_16038);} } 

}



/* modulos16 */
BGL_EXPORTED_DEF int16_t BGl_modulos16z00zz__r4_numbers_6_5_fixnumz00(int16_t BgL_xz00_494, int16_t BgL_yz00_495)
{
{ /* Ieee/fixnum.scm 2183 */
{ /* Ieee/fixnum.scm 2184 */
 int16_t BgL_rz00_1462;
BgL_rz00_1462 = 
(BgL_xz00_494%BgL_yz00_495); 
{ /* Ieee/fixnum.scm 2185 */
 bool_t BgL_test6612z00_16060;
{ /* Ieee/fixnum.scm 1673 */
 int16_t BgL_arg1247z00_3493;
BgL_arg1247z00_3493 = 
(int16_t)(0L); 
BgL_test6612z00_16060 = 
(BgL_rz00_1462==BgL_arg1247z00_3493); } 
if(BgL_test6612z00_16060)
{ /* Ieee/fixnum.scm 2185 */
return BgL_rz00_1462;}  else 
{ /* Ieee/fixnum.scm 2187 */
 bool_t BgL_test6613z00_16063;
{ /* Ieee/fixnum.scm 1695 */
 int16_t BgL_arg1257z00_3497;
BgL_arg1257z00_3497 = 
(int16_t)(0L); 
BgL_test6613z00_16063 = 
(BgL_yz00_495>BgL_arg1257z00_3497); } 
if(BgL_test6613z00_16063)
{ /* Ieee/fixnum.scm 2188 */
 bool_t BgL_test6614z00_16066;
{ /* Ieee/fixnum.scm 1695 */
 int16_t BgL_arg1257z00_3501;
BgL_arg1257z00_3501 = 
(int16_t)(0L); 
BgL_test6614z00_16066 = 
(BgL_rz00_1462>BgL_arg1257z00_3501); } 
if(BgL_test6614z00_16066)
{ /* Ieee/fixnum.scm 2188 */
return BgL_rz00_1462;}  else 
{ /* Ieee/fixnum.scm 2188 */
return 
(BgL_yz00_495+BgL_rz00_1462);} }  else 
{ /* Ieee/fixnum.scm 2189 */
 bool_t BgL_test6615z00_16070;
{ /* Ieee/fixnum.scm 1717 */
 int16_t BgL_arg1281z00_3507;
BgL_arg1281z00_3507 = 
(int16_t)(0L); 
BgL_test6615z00_16070 = 
(BgL_rz00_1462<BgL_arg1281z00_3507); } 
if(BgL_test6615z00_16070)
{ /* Ieee/fixnum.scm 2189 */
return BgL_rz00_1462;}  else 
{ /* Ieee/fixnum.scm 2189 */
return 
(BgL_yz00_495+BgL_rz00_1462);} } } } } } 

}



/* &modulos16 */
obj_t BGl_z62modulos16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6699, obj_t BgL_xz00_6700, obj_t BgL_yz00_6701)
{
{ /* Ieee/fixnum.scm 2183 */
{ /* Ieee/fixnum.scm 2184 */
 int16_t BgL_tmpz00_16074;
{ /* Ieee/fixnum.scm 2184 */
 int16_t BgL_auxz00_16084; int16_t BgL_auxz00_16075;
{ /* Ieee/fixnum.scm 2184 */
 obj_t BgL_tmpz00_16085;
if(
BGL_INT16P(BgL_yz00_6701))
{ /* Ieee/fixnum.scm 2184 */
BgL_tmpz00_16085 = BgL_yz00_6701
; }  else 
{ 
 obj_t BgL_auxz00_16088;
BgL_auxz00_16088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100425L), BGl_string4897z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6701); 
FAILURE(BgL_auxz00_16088,BFALSE,BFALSE);} 
BgL_auxz00_16084 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_16085); } 
{ /* Ieee/fixnum.scm 2184 */
 obj_t BgL_tmpz00_16076;
if(
BGL_INT16P(BgL_xz00_6700))
{ /* Ieee/fixnum.scm 2184 */
BgL_tmpz00_16076 = BgL_xz00_6700
; }  else 
{ 
 obj_t BgL_auxz00_16079;
BgL_auxz00_16079 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100425L), BGl_string4897z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6700); 
FAILURE(BgL_auxz00_16079,BFALSE,BFALSE);} 
BgL_auxz00_16075 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_16076); } 
BgL_tmpz00_16074 = 
BGl_modulos16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_16075, BgL_auxz00_16084); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_16074);} } 

}



/* modulou16 */
BGL_EXPORTED_DEF uint16_t BGl_modulou16z00zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_xz00_496, uint16_t BgL_yz00_497)
{
{ /* Ieee/fixnum.scm 2190 */
{ /* Ieee/fixnum.scm 2191 */
 uint16_t BgL_rz00_1467;
{ /* Ieee/fixnum.scm 2128 */
 int16_t BgL_tmpz00_16095;
BgL_tmpz00_16095 = 
(int16_t)(BgL_yz00_497); 
BgL_rz00_1467 = 
(BgL_xz00_496%BgL_tmpz00_16095); } 
{ /* Ieee/fixnum.scm 2192 */
 bool_t BgL_test6618z00_16098;
{ /* Ieee/fixnum.scm 1674 */
 uint16_t BgL_arg1248z00_3515;
BgL_arg1248z00_3515 = 
(uint16_t)(0L); 
BgL_test6618z00_16098 = 
(BgL_rz00_1467==BgL_arg1248z00_3515); } 
if(BgL_test6618z00_16098)
{ /* Ieee/fixnum.scm 2192 */
return BgL_rz00_1467;}  else 
{ /* Ieee/fixnum.scm 2194 */
 bool_t BgL_test6619z00_16101;
{ /* Ieee/fixnum.scm 1696 */
 uint16_t BgL_arg1259z00_3519;
BgL_arg1259z00_3519 = 
(uint16_t)(0L); 
BgL_test6619z00_16101 = 
(BgL_yz00_497>BgL_arg1259z00_3519); } 
if(BgL_test6619z00_16101)
{ /* Ieee/fixnum.scm 2195 */
 bool_t BgL_test6620z00_16104;
{ /* Ieee/fixnum.scm 1696 */
 uint16_t BgL_arg1259z00_3523;
BgL_arg1259z00_3523 = 
(uint16_t)(0L); 
BgL_test6620z00_16104 = 
(BgL_rz00_1467>BgL_arg1259z00_3523); } 
if(BgL_test6620z00_16104)
{ /* Ieee/fixnum.scm 2195 */
return BgL_rz00_1467;}  else 
{ /* Ieee/fixnum.scm 2195 */
return 
(BgL_yz00_497+BgL_rz00_1467);} }  else 
{ /* Ieee/fixnum.scm 2196 */
 bool_t BgL_test6621z00_16108;
{ /* Ieee/fixnum.scm 1718 */
 uint16_t BgL_arg1282z00_3529;
BgL_arg1282z00_3529 = 
(uint16_t)(0L); 
BgL_test6621z00_16108 = 
(BgL_rz00_1467<BgL_arg1282z00_3529); } 
if(BgL_test6621z00_16108)
{ /* Ieee/fixnum.scm 2196 */
return BgL_rz00_1467;}  else 
{ /* Ieee/fixnum.scm 2196 */
return 
(BgL_yz00_497+BgL_rz00_1467);} } } } } } 

}



/* &modulou16 */
obj_t BGl_z62modulou16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6702, obj_t BgL_xz00_6703, obj_t BgL_yz00_6704)
{
{ /* Ieee/fixnum.scm 2190 */
{ /* Ieee/fixnum.scm 2191 */
 uint16_t BgL_tmpz00_16112;
{ /* Ieee/fixnum.scm 2191 */
 uint16_t BgL_auxz00_16122; uint16_t BgL_auxz00_16113;
{ /* Ieee/fixnum.scm 2191 */
 obj_t BgL_tmpz00_16123;
if(
BGL_UINT16P(BgL_yz00_6704))
{ /* Ieee/fixnum.scm 2191 */
BgL_tmpz00_16123 = BgL_yz00_6704
; }  else 
{ 
 obj_t BgL_auxz00_16126;
BgL_auxz00_16126 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100611L), BGl_string4898z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6704); 
FAILURE(BgL_auxz00_16126,BFALSE,BFALSE);} 
BgL_auxz00_16122 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_16123); } 
{ /* Ieee/fixnum.scm 2191 */
 obj_t BgL_tmpz00_16114;
if(
BGL_UINT16P(BgL_xz00_6703))
{ /* Ieee/fixnum.scm 2191 */
BgL_tmpz00_16114 = BgL_xz00_6703
; }  else 
{ 
 obj_t BgL_auxz00_16117;
BgL_auxz00_16117 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100611L), BGl_string4898z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6703); 
FAILURE(BgL_auxz00_16117,BFALSE,BFALSE);} 
BgL_auxz00_16113 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_16114); } 
BgL_tmpz00_16112 = 
BGl_modulou16z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_16113, BgL_auxz00_16122); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_16112);} } 

}



/* modulos32 */
BGL_EXPORTED_DEF int32_t BGl_modulos32z00zz__r4_numbers_6_5_fixnumz00(int32_t BgL_xz00_498, int32_t BgL_yz00_499)
{
{ /* Ieee/fixnum.scm 2198 */
{ /* Ieee/fixnum.scm 2199 */
 int32_t BgL_rz00_1472;
BgL_rz00_1472 = 
(BgL_xz00_498%BgL_yz00_499); 
{ /* Ieee/fixnum.scm 2200 */
 bool_t BgL_test6624z00_16134;
{ /* Ieee/fixnum.scm 1676 */
 int32_t BgL_arg1249z00_3537;
BgL_arg1249z00_3537 = 
(int32_t)(0L); 
BgL_test6624z00_16134 = 
(BgL_rz00_1472==BgL_arg1249z00_3537); } 
if(BgL_test6624z00_16134)
{ /* Ieee/fixnum.scm 2200 */
return BgL_rz00_1472;}  else 
{ /* Ieee/fixnum.scm 2202 */
 bool_t BgL_test6625z00_16137;
{ /* Ieee/fixnum.scm 1698 */
 int32_t BgL_arg1260z00_3541;
BgL_arg1260z00_3541 = 
(int32_t)(0L); 
BgL_test6625z00_16137 = 
(BgL_yz00_499>BgL_arg1260z00_3541); } 
if(BgL_test6625z00_16137)
{ /* Ieee/fixnum.scm 2203 */
 bool_t BgL_test6626z00_16140;
{ /* Ieee/fixnum.scm 1698 */
 int32_t BgL_arg1260z00_3545;
BgL_arg1260z00_3545 = 
(int32_t)(0L); 
BgL_test6626z00_16140 = 
(BgL_rz00_1472>BgL_arg1260z00_3545); } 
if(BgL_test6626z00_16140)
{ /* Ieee/fixnum.scm 2203 */
return BgL_rz00_1472;}  else 
{ /* Ieee/fixnum.scm 2203 */
return 
(BgL_yz00_499+BgL_rz00_1472);} }  else 
{ /* Ieee/fixnum.scm 2204 */
 bool_t BgL_test6627z00_16144;
{ /* Ieee/fixnum.scm 1720 */
 int32_t BgL_arg1283z00_3551;
BgL_arg1283z00_3551 = 
(int32_t)(0L); 
BgL_test6627z00_16144 = 
(BgL_rz00_1472<BgL_arg1283z00_3551); } 
if(BgL_test6627z00_16144)
{ /* Ieee/fixnum.scm 2204 */
return BgL_rz00_1472;}  else 
{ /* Ieee/fixnum.scm 2204 */
return 
(BgL_yz00_499+BgL_rz00_1472);} } } } } } 

}



/* &modulos32 */
obj_t BGl_z62modulos32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6705, obj_t BgL_xz00_6706, obj_t BgL_yz00_6707)
{
{ /* Ieee/fixnum.scm 2198 */
{ /* Ieee/fixnum.scm 2199 */
 int32_t BgL_tmpz00_16148;
{ /* Ieee/fixnum.scm 2199 */
 int32_t BgL_auxz00_16158; int32_t BgL_auxz00_16149;
{ /* Ieee/fixnum.scm 2199 */
 obj_t BgL_tmpz00_16159;
if(
BGL_INT32P(BgL_yz00_6707))
{ /* Ieee/fixnum.scm 2199 */
BgL_tmpz00_16159 = BgL_yz00_6707
; }  else 
{ 
 obj_t BgL_auxz00_16162;
BgL_auxz00_16162 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100798L), BGl_string4899z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6707); 
FAILURE(BgL_auxz00_16162,BFALSE,BFALSE);} 
BgL_auxz00_16158 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_16159); } 
{ /* Ieee/fixnum.scm 2199 */
 obj_t BgL_tmpz00_16150;
if(
BGL_INT32P(BgL_xz00_6706))
{ /* Ieee/fixnum.scm 2199 */
BgL_tmpz00_16150 = BgL_xz00_6706
; }  else 
{ 
 obj_t BgL_auxz00_16153;
BgL_auxz00_16153 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100798L), BGl_string4899z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6706); 
FAILURE(BgL_auxz00_16153,BFALSE,BFALSE);} 
BgL_auxz00_16149 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_16150); } 
BgL_tmpz00_16148 = 
BGl_modulos32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_16149, BgL_auxz00_16158); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_16148);} } 

}



/* modulou32 */
BGL_EXPORTED_DEF uint32_t BGl_modulou32z00zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_xz00_500, uint32_t BgL_yz00_501)
{
{ /* Ieee/fixnum.scm 2205 */
{ /* Ieee/fixnum.scm 2206 */
 uint32_t BgL_rz00_1477;
{ /* Ieee/fixnum.scm 2131 */
 int32_t BgL_tmpz00_16169;
BgL_tmpz00_16169 = 
(int32_t)(BgL_yz00_501); 
BgL_rz00_1477 = 
(BgL_xz00_500%BgL_tmpz00_16169); } 
{ /* Ieee/fixnum.scm 2207 */
 bool_t BgL_test6630z00_16172;
{ /* Ieee/fixnum.scm 1677 */
 uint32_t BgL_arg1250z00_3559;
BgL_arg1250z00_3559 = 
(uint32_t)(0L); 
BgL_test6630z00_16172 = 
(BgL_rz00_1477==BgL_arg1250z00_3559); } 
if(BgL_test6630z00_16172)
{ /* Ieee/fixnum.scm 2207 */
return BgL_rz00_1477;}  else 
{ /* Ieee/fixnum.scm 2209 */
 bool_t BgL_test6631z00_16175;
{ /* Ieee/fixnum.scm 1699 */
 uint32_t BgL_arg1265z00_3563;
BgL_arg1265z00_3563 = 
(uint32_t)(0L); 
BgL_test6631z00_16175 = 
(BgL_yz00_501>BgL_arg1265z00_3563); } 
if(BgL_test6631z00_16175)
{ /* Ieee/fixnum.scm 2210 */
 bool_t BgL_test6632z00_16178;
{ /* Ieee/fixnum.scm 1699 */
 uint32_t BgL_arg1265z00_3567;
BgL_arg1265z00_3567 = 
(uint32_t)(0L); 
BgL_test6632z00_16178 = 
(BgL_rz00_1477>BgL_arg1265z00_3567); } 
if(BgL_test6632z00_16178)
{ /* Ieee/fixnum.scm 2210 */
return BgL_rz00_1477;}  else 
{ /* Ieee/fixnum.scm 2210 */
return 
(BgL_yz00_501+BgL_rz00_1477);} }  else 
{ /* Ieee/fixnum.scm 2211 */
 bool_t BgL_test6633z00_16182;
{ /* Ieee/fixnum.scm 1721 */
 uint32_t BgL_arg1284z00_3573;
BgL_arg1284z00_3573 = 
(uint32_t)(0L); 
BgL_test6633z00_16182 = 
(BgL_rz00_1477<BgL_arg1284z00_3573); } 
if(BgL_test6633z00_16182)
{ /* Ieee/fixnum.scm 2211 */
return BgL_rz00_1477;}  else 
{ /* Ieee/fixnum.scm 2211 */
return 
(BgL_yz00_501+BgL_rz00_1477);} } } } } } 

}



/* &modulou32 */
obj_t BGl_z62modulou32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6708, obj_t BgL_xz00_6709, obj_t BgL_yz00_6710)
{
{ /* Ieee/fixnum.scm 2205 */
{ /* Ieee/fixnum.scm 2206 */
 uint32_t BgL_tmpz00_16186;
{ /* Ieee/fixnum.scm 2206 */
 uint32_t BgL_auxz00_16196; uint32_t BgL_auxz00_16187;
{ /* Ieee/fixnum.scm 2206 */
 obj_t BgL_tmpz00_16197;
if(
BGL_UINT32P(BgL_yz00_6710))
{ /* Ieee/fixnum.scm 2206 */
BgL_tmpz00_16197 = BgL_yz00_6710
; }  else 
{ 
 obj_t BgL_auxz00_16200;
BgL_auxz00_16200 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100984L), BGl_string4900z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6710); 
FAILURE(BgL_auxz00_16200,BFALSE,BFALSE);} 
BgL_auxz00_16196 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_16197); } 
{ /* Ieee/fixnum.scm 2206 */
 obj_t BgL_tmpz00_16188;
if(
BGL_UINT32P(BgL_xz00_6709))
{ /* Ieee/fixnum.scm 2206 */
BgL_tmpz00_16188 = BgL_xz00_6709
; }  else 
{ 
 obj_t BgL_auxz00_16191;
BgL_auxz00_16191 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(100984L), BGl_string4900z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6709); 
FAILURE(BgL_auxz00_16191,BFALSE,BFALSE);} 
BgL_auxz00_16187 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_16188); } 
BgL_tmpz00_16186 = 
BGl_modulou32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_16187, BgL_auxz00_16196); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_16186);} } 

}



/* modulos64 */
BGL_EXPORTED_DEF int64_t BGl_modulos64z00zz__r4_numbers_6_5_fixnumz00(int64_t BgL_xz00_502, int64_t BgL_yz00_503)
{
{ /* Ieee/fixnum.scm 2213 */
{ /* Ieee/fixnum.scm 2214 */
 int64_t BgL_rz00_1482;
BgL_rz00_1482 = 
(BgL_xz00_502%BgL_yz00_503); 
{ /* Ieee/fixnum.scm 2215 */
 bool_t BgL_test6636z00_16208;
{ /* Ieee/fixnum.scm 1679 */
 int64_t BgL_arg1252z00_3581;
BgL_arg1252z00_3581 = 
(int64_t)(0L); 
BgL_test6636z00_16208 = 
(BgL_rz00_1482==BgL_arg1252z00_3581); } 
if(BgL_test6636z00_16208)
{ /* Ieee/fixnum.scm 2215 */
return BgL_rz00_1482;}  else 
{ /* Ieee/fixnum.scm 2217 */
 bool_t BgL_test6637z00_16211;
{ /* Ieee/fixnum.scm 1701 */
 int64_t BgL_arg1275z00_3585;
BgL_arg1275z00_3585 = 
(int64_t)(0L); 
BgL_test6637z00_16211 = 
(BgL_yz00_503>BgL_arg1275z00_3585); } 
if(BgL_test6637z00_16211)
{ /* Ieee/fixnum.scm 2218 */
 bool_t BgL_test6638z00_16214;
{ /* Ieee/fixnum.scm 1701 */
 int64_t BgL_arg1275z00_3589;
BgL_arg1275z00_3589 = 
(int64_t)(0L); 
BgL_test6638z00_16214 = 
(BgL_rz00_1482>BgL_arg1275z00_3589); } 
if(BgL_test6638z00_16214)
{ /* Ieee/fixnum.scm 2218 */
return BgL_rz00_1482;}  else 
{ /* Ieee/fixnum.scm 2218 */
return 
(BgL_yz00_503+BgL_rz00_1482);} }  else 
{ /* Ieee/fixnum.scm 2219 */
 bool_t BgL_test6639z00_16218;
{ /* Ieee/fixnum.scm 1723 */
 int64_t BgL_arg1285z00_3595;
BgL_arg1285z00_3595 = 
(int64_t)(0L); 
BgL_test6639z00_16218 = 
(BgL_rz00_1482<BgL_arg1285z00_3595); } 
if(BgL_test6639z00_16218)
{ /* Ieee/fixnum.scm 2219 */
return BgL_rz00_1482;}  else 
{ /* Ieee/fixnum.scm 2219 */
return 
(BgL_yz00_503+BgL_rz00_1482);} } } } } } 

}



/* &modulos64 */
obj_t BGl_z62modulos64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6711, obj_t BgL_xz00_6712, obj_t BgL_yz00_6713)
{
{ /* Ieee/fixnum.scm 2213 */
{ /* Ieee/fixnum.scm 2214 */
 int64_t BgL_tmpz00_16222;
{ /* Ieee/fixnum.scm 2214 */
 int64_t BgL_auxz00_16232; int64_t BgL_auxz00_16223;
{ /* Ieee/fixnum.scm 2214 */
 obj_t BgL_tmpz00_16233;
if(
BGL_INT64P(BgL_yz00_6713))
{ /* Ieee/fixnum.scm 2214 */
BgL_tmpz00_16233 = BgL_yz00_6713
; }  else 
{ 
 obj_t BgL_auxz00_16236;
BgL_auxz00_16236 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(101171L), BGl_string4901z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6713); 
FAILURE(BgL_auxz00_16236,BFALSE,BFALSE);} 
BgL_auxz00_16232 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_16233); } 
{ /* Ieee/fixnum.scm 2214 */
 obj_t BgL_tmpz00_16224;
if(
BGL_INT64P(BgL_xz00_6712))
{ /* Ieee/fixnum.scm 2214 */
BgL_tmpz00_16224 = BgL_xz00_6712
; }  else 
{ 
 obj_t BgL_auxz00_16227;
BgL_auxz00_16227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(101171L), BGl_string4901z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6712); 
FAILURE(BgL_auxz00_16227,BFALSE,BFALSE);} 
BgL_auxz00_16223 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_16224); } 
BgL_tmpz00_16222 = 
BGl_modulos64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_16223, BgL_auxz00_16232); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_16222);} } 

}



/* modulou64 */
BGL_EXPORTED_DEF uint64_t BGl_modulou64z00zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_xz00_504, uint64_t BgL_yz00_505)
{
{ /* Ieee/fixnum.scm 2220 */
{ /* Ieee/fixnum.scm 2221 */
 uint64_t BgL_rz00_1487;
{ /* Ieee/fixnum.scm 2134 */
 int64_t BgL_tmpz00_16243;
BgL_tmpz00_16243 = 
(int64_t)(BgL_yz00_505); 
BgL_rz00_1487 = 
(BgL_xz00_504%BgL_tmpz00_16243); } 
{ /* Ieee/fixnum.scm 2222 */
 bool_t BgL_test6642z00_16246;
{ /* Ieee/fixnum.scm 1680 */
 uint64_t BgL_arg1253z00_3603;
BgL_arg1253z00_3603 = 
(uint64_t)(0L); 
BgL_test6642z00_16246 = 
(BgL_rz00_1487==BgL_arg1253z00_3603); } 
if(BgL_test6642z00_16246)
{ /* Ieee/fixnum.scm 2222 */
return BgL_rz00_1487;}  else 
{ /* Ieee/fixnum.scm 2224 */
 bool_t BgL_test6643z00_16249;
{ /* Ieee/fixnum.scm 1702 */
 uint64_t BgL_arg1276z00_3607;
BgL_arg1276z00_3607 = 
(uint64_t)(0L); 
BgL_test6643z00_16249 = 
(BgL_yz00_505>BgL_arg1276z00_3607); } 
if(BgL_test6643z00_16249)
{ /* Ieee/fixnum.scm 2225 */
 bool_t BgL_test6644z00_16252;
{ /* Ieee/fixnum.scm 1702 */
 uint64_t BgL_arg1276z00_3611;
BgL_arg1276z00_3611 = 
(uint64_t)(0L); 
BgL_test6644z00_16252 = 
(BgL_rz00_1487>BgL_arg1276z00_3611); } 
if(BgL_test6644z00_16252)
{ /* Ieee/fixnum.scm 2225 */
return BgL_rz00_1487;}  else 
{ /* Ieee/fixnum.scm 2225 */
return 
(BgL_yz00_505+BgL_rz00_1487);} }  else 
{ /* Ieee/fixnum.scm 2226 */
 bool_t BgL_test6645z00_16256;
{ /* Ieee/fixnum.scm 1724 */
 uint64_t BgL_arg1287z00_3617;
BgL_arg1287z00_3617 = 
(uint64_t)(0L); 
BgL_test6645z00_16256 = 
(BgL_rz00_1487<BgL_arg1287z00_3617); } 
if(BgL_test6645z00_16256)
{ /* Ieee/fixnum.scm 2226 */
return BgL_rz00_1487;}  else 
{ /* Ieee/fixnum.scm 2226 */
return 
(BgL_yz00_505+BgL_rz00_1487);} } } } } } 

}



/* &modulou64 */
obj_t BGl_z62modulou64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6714, obj_t BgL_xz00_6715, obj_t BgL_yz00_6716)
{
{ /* Ieee/fixnum.scm 2220 */
{ /* Ieee/fixnum.scm 2221 */
 uint64_t BgL_tmpz00_16260;
{ /* Ieee/fixnum.scm 2221 */
 uint64_t BgL_auxz00_16270; uint64_t BgL_auxz00_16261;
{ /* Ieee/fixnum.scm 2221 */
 obj_t BgL_tmpz00_16271;
if(
BGL_UINT64P(BgL_yz00_6716))
{ /* Ieee/fixnum.scm 2221 */
BgL_tmpz00_16271 = BgL_yz00_6716
; }  else 
{ 
 obj_t BgL_auxz00_16274;
BgL_auxz00_16274 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(101357L), BGl_string4902z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6716); 
FAILURE(BgL_auxz00_16274,BFALSE,BFALSE);} 
BgL_auxz00_16270 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_16271); } 
{ /* Ieee/fixnum.scm 2221 */
 obj_t BgL_tmpz00_16262;
if(
BGL_UINT64P(BgL_xz00_6715))
{ /* Ieee/fixnum.scm 2221 */
BgL_tmpz00_16262 = BgL_xz00_6715
; }  else 
{ 
 obj_t BgL_auxz00_16265;
BgL_auxz00_16265 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(101357L), BGl_string4902z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6715); 
FAILURE(BgL_auxz00_16265,BFALSE,BFALSE);} 
BgL_auxz00_16261 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_16262); } 
BgL_tmpz00_16260 = 
BGl_modulou64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_16261, BgL_auxz00_16270); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_16260);} } 

}



/* modulobx */
BGL_EXPORTED_DEF obj_t BGl_modulobxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_506, obj_t BgL_yz00_507)
{
{ /* Ieee/fixnum.scm 2228 */
{ /* Ieee/fixnum.scm 2229 */
 obj_t BgL_rz00_1492;
BgL_rz00_1492 = 
bgl_bignum_remainder(BgL_xz00_506, BgL_yz00_507); 
if(
BXZERO(BgL_rz00_1492))
{ /* Ieee/fixnum.scm 2230 */
return BgL_rz00_1492;}  else 
{ /* Ieee/fixnum.scm 2230 */
if(
BXPOSITIVE(BgL_yz00_507))
{ /* Ieee/fixnum.scm 2232 */
if(
BXPOSITIVE(BgL_rz00_1492))
{ /* Ieee/fixnum.scm 2233 */
return BgL_rz00_1492;}  else 
{ /* Ieee/fixnum.scm 2233 */
BGL_TAIL return 
bgl_bignum_add(BgL_yz00_507, BgL_rz00_1492);} }  else 
{ /* Ieee/fixnum.scm 2232 */
if(
BXNEGATIVE(BgL_rz00_1492))
{ /* Ieee/fixnum.scm 2234 */
return BgL_rz00_1492;}  else 
{ /* Ieee/fixnum.scm 2234 */
BGL_TAIL return 
bgl_bignum_add(BgL_yz00_507, BgL_rz00_1492);} } } } } 

}



/* &modulobx */
obj_t BGl_z62modulobxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6717, obj_t BgL_xz00_6718, obj_t BgL_yz00_6719)
{
{ /* Ieee/fixnum.scm 2228 */
{ /* Ieee/fixnum.scm 2229 */
 obj_t BgL_auxz00_16299; obj_t BgL_auxz00_16292;
if(
BIGNUMP(BgL_yz00_6719))
{ /* Ieee/fixnum.scm 2229 */
BgL_auxz00_16299 = BgL_yz00_6719
; }  else 
{ 
 obj_t BgL_auxz00_16302;
BgL_auxz00_16302 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(101544L), BGl_string4903z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6719); 
FAILURE(BgL_auxz00_16302,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_xz00_6718))
{ /* Ieee/fixnum.scm 2229 */
BgL_auxz00_16292 = BgL_xz00_6718
; }  else 
{ 
 obj_t BgL_auxz00_16295;
BgL_auxz00_16295 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(101544L), BGl_string4903z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6718); 
FAILURE(BgL_auxz00_16295,BFALSE,BFALSE);} 
return 
BGl_modulobxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_16292, BgL_auxz00_16299);} } 

}



/* gcd */
BGL_EXPORTED_DEF obj_t BGl_gcdz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_508)
{
{ /* Ieee/fixnum.scm 2260 */
if(
NULLP(BgL_xz00_508))
{ /* Ieee/fixnum.scm 2260 */
return 
BINT(0L);}  else 
{ /* Ieee/fixnum.scm 2260 */
 bool_t BgL_test6655z00_16310;
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_tmpz00_16311;
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_pairz00_3632;
if(
PAIRP(BgL_xz00_508))
{ /* Ieee/fixnum.scm 2260 */
BgL_pairz00_3632 = BgL_xz00_508; }  else 
{ 
 obj_t BgL_auxz00_16314;
BgL_auxz00_16314 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102587L), BGl_string4904z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_508); 
FAILURE(BgL_auxz00_16314,BFALSE,BFALSE);} 
BgL_tmpz00_16311 = 
CDR(BgL_pairz00_3632); } 
BgL_test6655z00_16310 = 
NULLP(BgL_tmpz00_16311); } 
if(BgL_test6655z00_16310)
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_auxz00_16320;
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_pairz00_3633;
if(
PAIRP(BgL_xz00_508))
{ /* Ieee/fixnum.scm 2260 */
BgL_pairz00_3633 = BgL_xz00_508; }  else 
{ 
 obj_t BgL_auxz00_16323;
BgL_auxz00_16323 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102587L), BGl_string4904z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_508); 
FAILURE(BgL_auxz00_16323,BFALSE,BFALSE);} 
BgL_auxz00_16320 = 
CAR(BgL_pairz00_3633); } 
BGL_TAIL return 
BGl_absz00zz__r4_numbers_6_5z00(BgL_auxz00_16320);}  else 
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_g1032z00_1502; obj_t BgL_g1033z00_1503;
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_arg1803z00_1514; obj_t BgL_arg1804z00_1515;
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_auxz00_16329;
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_pairz00_3635;
if(
PAIRP(BgL_xz00_508))
{ /* Ieee/fixnum.scm 2260 */
BgL_pairz00_3635 = BgL_xz00_508; }  else 
{ 
 obj_t BgL_auxz00_16332;
BgL_auxz00_16332 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102587L), BGl_string4904z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_508); 
FAILURE(BgL_auxz00_16332,BFALSE,BFALSE);} 
BgL_auxz00_16329 = 
CAR(BgL_pairz00_3635); } 
BgL_arg1803z00_1514 = 
BGl_absz00zz__r4_numbers_6_5z00(BgL_auxz00_16329); } 
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_auxz00_16338;
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_pairz00_3636;
if(
PAIRP(BgL_xz00_508))
{ /* Ieee/fixnum.scm 2260 */
BgL_pairz00_3636 = BgL_xz00_508; }  else 
{ 
 obj_t BgL_auxz00_16341;
BgL_auxz00_16341 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102587L), BGl_string4904z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_508); 
FAILURE(BgL_auxz00_16341,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_pairz00_3639;
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_aux3907z00_8019;
BgL_aux3907z00_8019 = 
CDR(BgL_pairz00_3636); 
if(
PAIRP(BgL_aux3907z00_8019))
{ /* Ieee/fixnum.scm 2260 */
BgL_pairz00_3639 = BgL_aux3907z00_8019; }  else 
{ 
 obj_t BgL_auxz00_16348;
BgL_auxz00_16348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102587L), BGl_string4904z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3907z00_8019); 
FAILURE(BgL_auxz00_16348,BFALSE,BFALSE);} } 
BgL_auxz00_16338 = 
CAR(BgL_pairz00_3639); } } 
BgL_arg1804z00_1515 = 
BGl_absz00zz__r4_numbers_6_5z00(BgL_auxz00_16338); } 
BgL_g1032z00_1502 = 
BGl_gcd2ze78ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg1803z00_1514, BgL_arg1804z00_1515); } 
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_pairz00_3640;
if(
PAIRP(BgL_xz00_508))
{ /* Ieee/fixnum.scm 2260 */
BgL_pairz00_3640 = BgL_xz00_508; }  else 
{ 
 obj_t BgL_auxz00_16357;
BgL_auxz00_16357 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102587L), BGl_string4904z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_508); 
FAILURE(BgL_auxz00_16357,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_pairz00_3643;
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_aux3911z00_8023;
BgL_aux3911z00_8023 = 
CDR(BgL_pairz00_3640); 
if(
PAIRP(BgL_aux3911z00_8023))
{ /* Ieee/fixnum.scm 2260 */
BgL_pairz00_3643 = BgL_aux3911z00_8023; }  else 
{ 
 obj_t BgL_auxz00_16364;
BgL_auxz00_16364 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102587L), BGl_string4904z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3911z00_8023); 
FAILURE(BgL_auxz00_16364,BFALSE,BFALSE);} } 
BgL_g1033z00_1503 = 
CDR(BgL_pairz00_3643); } } 
{ 
 obj_t BgL_tmpz00_3659; obj_t BgL_leftz00_3660;
BgL_tmpz00_3659 = BgL_g1032z00_1502; 
BgL_leftz00_3660 = BgL_g1033z00_1503; 
BgL_loopz00_3658:
if(
PAIRP(BgL_leftz00_3660))
{ 
 obj_t BgL_leftz00_16375; obj_t BgL_tmpz00_16371;
BgL_tmpz00_16371 = 
BGl_gcd2ze78ze7zz__r4_numbers_6_5_fixnumz00(BgL_tmpz00_3659, 
BGl_absz00zz__r4_numbers_6_5z00(
CAR(BgL_leftz00_3660))); 
BgL_leftz00_16375 = 
CDR(BgL_leftz00_3660); 
BgL_leftz00_3660 = BgL_leftz00_16375; 
BgL_tmpz00_3659 = BgL_tmpz00_16371; 
goto BgL_loopz00_3658;}  else 
{ /* Ieee/fixnum.scm 2260 */
return BgL_tmpz00_3659;} } } } } 

}



/* gcd2~8 */
obj_t BGl_gcd2ze78ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_1518, obj_t BgL_nz00_1519)
{
{ /* Ieee/fixnum.scm 2260 */
BGl_gcd2ze78ze7zz__r4_numbers_6_5_fixnumz00:
if(
BGl_za7erozf3z54zz__r4_numbers_6_5z00(BgL_nz00_1519))
{ /* Ieee/fixnum.scm 2260 */
return BgL_mz00_1518;}  else 
{ /* Ieee/fixnum.scm 2260 */
 obj_t BgL_rz00_1522;
BgL_rz00_1522 = 
BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(BgL_mz00_1518, BgL_nz00_1519); 
{ /* Ieee/fixnum.scm 2260 */
 bool_t BgL_test6665z00_16380;
if(
INTEGERP(BgL_rz00_1522))
{ /* Ieee/fixnum.scm 2260 */
BgL_test6665z00_16380 = 
(
(long)CINT(BgL_rz00_1522)==0L)
; }  else 
{ /* Ieee/fixnum.scm 2260 */
BgL_test6665z00_16380 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_rz00_1522, 
BINT(0L))
; } 
if(BgL_test6665z00_16380)
{ /* Ieee/fixnum.scm 2260 */
return BgL_nz00_1519;}  else 
{ 
 obj_t BgL_nz00_16388; obj_t BgL_mz00_16387;
BgL_mz00_16387 = BgL_nz00_1519; 
BgL_nz00_16388 = BgL_rz00_1522; 
BgL_nz00_1519 = BgL_nz00_16388; 
BgL_mz00_1518 = BgL_mz00_16387; 
goto BGl_gcd2ze78ze7zz__r4_numbers_6_5_fixnumz00;} } } } 

}



/* &gcd */
obj_t BGl_z62gcdz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6720, obj_t BgL_xz00_6721)
{
{ /* Ieee/fixnum.scm 2260 */
return 
BGl_gcdz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6721);} 

}



/* gcdfx */
BGL_EXPORTED_DEF long BGl_gcdfxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_509)
{
{ /* Ieee/fixnum.scm 2262 */
if(
NULLP(BgL_xz00_509))
{ /* Ieee/fixnum.scm 2262 */
return 0L;}  else 
{ /* Ieee/fixnum.scm 2262 */
 bool_t BgL_test6668z00_16392;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_tmpz00_16393;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_pairz00_3673;
if(
PAIRP(BgL_xz00_509))
{ /* Ieee/fixnum.scm 2262 */
BgL_pairz00_3673 = BgL_xz00_509; }  else 
{ 
 obj_t BgL_auxz00_16396;
BgL_auxz00_16396 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_509); 
FAILURE(BgL_auxz00_16396,BFALSE,BFALSE);} 
BgL_tmpz00_16393 = 
CDR(BgL_pairz00_3673); } 
BgL_test6668z00_16392 = 
NULLP(BgL_tmpz00_16393); } 
if(BgL_test6668z00_16392)
{ /* Ieee/fixnum.scm 2262 */
 long BgL_nz00_3675;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_pairz00_3674;
if(
PAIRP(BgL_xz00_509))
{ /* Ieee/fixnum.scm 2262 */
BgL_pairz00_3674 = BgL_xz00_509; }  else 
{ 
 obj_t BgL_auxz00_16404;
BgL_auxz00_16404 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_509); 
FAILURE(BgL_auxz00_16404,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_tmpz00_16408;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_aux3917z00_8029;
BgL_aux3917z00_8029 = 
CAR(BgL_pairz00_3674); 
if(
INTEGERP(BgL_aux3917z00_8029))
{ /* Ieee/fixnum.scm 2262 */
BgL_tmpz00_16408 = BgL_aux3917z00_8029
; }  else 
{ 
 obj_t BgL_auxz00_16412;
BgL_auxz00_16412 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3917z00_8029); 
FAILURE(BgL_auxz00_16412,BFALSE,BFALSE);} } 
BgL_nz00_3675 = 
(long)CINT(BgL_tmpz00_16408); } } 
if(
(BgL_nz00_3675<0L))
{ /* Ieee/fixnum.scm 1997 */
return 
NEG(BgL_nz00_3675);}  else 
{ /* Ieee/fixnum.scm 1997 */
return BgL_nz00_3675;} }  else 
{ 
 long BgL_mz00_1547; long BgL_nz00_1548;
{ /* Ieee/fixnum.scm 2262 */
 long BgL_g1034z00_1531; obj_t BgL_g1035z00_1532;
{ /* Ieee/fixnum.scm 2262 */
 long BgL_arg1822z00_1543; long BgL_arg1823z00_1544;
{ /* Ieee/fixnum.scm 2262 */
 long BgL_nz00_3718;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_pairz00_3717;
if(
PAIRP(BgL_xz00_509))
{ /* Ieee/fixnum.scm 2262 */
BgL_pairz00_3717 = BgL_xz00_509; }  else 
{ 
 obj_t BgL_auxz00_16422;
BgL_auxz00_16422 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_509); 
FAILURE(BgL_auxz00_16422,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_tmpz00_16426;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_aux3920z00_8032;
BgL_aux3920z00_8032 = 
CAR(BgL_pairz00_3717); 
if(
INTEGERP(BgL_aux3920z00_8032))
{ /* Ieee/fixnum.scm 2262 */
BgL_tmpz00_16426 = BgL_aux3920z00_8032
; }  else 
{ 
 obj_t BgL_auxz00_16430;
BgL_auxz00_16430 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3920z00_8032); 
FAILURE(BgL_auxz00_16430,BFALSE,BFALSE);} } 
BgL_nz00_3718 = 
(long)CINT(BgL_tmpz00_16426); } } 
if(
(BgL_nz00_3718<0L))
{ /* Ieee/fixnum.scm 1997 */
BgL_arg1822z00_1543 = 
NEG(BgL_nz00_3718); }  else 
{ /* Ieee/fixnum.scm 1997 */
BgL_arg1822z00_1543 = BgL_nz00_3718; } } 
{ /* Ieee/fixnum.scm 2262 */
 long BgL_nz00_3726;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_pairz00_3722;
if(
PAIRP(BgL_xz00_509))
{ /* Ieee/fixnum.scm 2262 */
BgL_pairz00_3722 = BgL_xz00_509; }  else 
{ 
 obj_t BgL_auxz00_16440;
BgL_auxz00_16440 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_509); 
FAILURE(BgL_auxz00_16440,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_pairz00_3725;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_aux3923z00_8035;
BgL_aux3923z00_8035 = 
CDR(BgL_pairz00_3722); 
if(
PAIRP(BgL_aux3923z00_8035))
{ /* Ieee/fixnum.scm 2262 */
BgL_pairz00_3725 = BgL_aux3923z00_8035; }  else 
{ 
 obj_t BgL_auxz00_16447;
BgL_auxz00_16447 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3923z00_8035); 
FAILURE(BgL_auxz00_16447,BFALSE,BFALSE);} } 
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_tmpz00_16451;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_aux3925z00_8037;
BgL_aux3925z00_8037 = 
CAR(BgL_pairz00_3725); 
if(
INTEGERP(BgL_aux3925z00_8037))
{ /* Ieee/fixnum.scm 2262 */
BgL_tmpz00_16451 = BgL_aux3925z00_8037
; }  else 
{ 
 obj_t BgL_auxz00_16455;
BgL_auxz00_16455 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3925z00_8037); 
FAILURE(BgL_auxz00_16455,BFALSE,BFALSE);} } 
BgL_nz00_3726 = 
(long)CINT(BgL_tmpz00_16451); } } } 
if(
(BgL_nz00_3726<0L))
{ /* Ieee/fixnum.scm 1997 */
BgL_arg1823z00_1544 = 
NEG(BgL_nz00_3726); }  else 
{ /* Ieee/fixnum.scm 1997 */
BgL_arg1823z00_1544 = BgL_nz00_3726; } } 
{ 
 long BgL_mz00_3731; long BgL_nz00_3732;
BgL_mz00_3731 = BgL_arg1822z00_1543; 
BgL_nz00_3732 = BgL_arg1823z00_1544; 
BgL_gcd2z00_3730:
if(
(BgL_nz00_3732==0L))
{ /* Ieee/fixnum.scm 2262 */
BgL_g1034z00_1531 = BgL_mz00_3731; }  else 
{ /* Ieee/fixnum.scm 2262 */
 long BgL_rz00_3737;
{ /* Ieee/fixnum.scm 2262 */
 long BgL_n1z00_3741; long BgL_n2z00_3742;
BgL_n1z00_3741 = BgL_mz00_3731; 
BgL_n2z00_3742 = BgL_nz00_3732; 
{ /* Ieee/fixnum.scm 2115 */
 bool_t BgL_test6681z00_16465;
{ /* Ieee/fixnum.scm 2115 */
 long BgL_arg1707z00_3744;
BgL_arg1707z00_3744 = 
(((BgL_n1z00_3741) | (BgL_n2z00_3742)) & -2147483648); 
BgL_test6681z00_16465 = 
(BgL_arg1707z00_3744==0L); } 
if(BgL_test6681z00_16465)
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1703z00_3745;
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1704z00_3746; int32_t BgL_arg1706z00_3747;
BgL_arg1704z00_3746 = 
(int32_t)(BgL_n1z00_3741); 
BgL_arg1706z00_3747 = 
(int32_t)(BgL_n2z00_3742); 
BgL_arg1703z00_3745 = 
(BgL_arg1704z00_3746%BgL_arg1706z00_3747); } 
{ /* Ieee/fixnum.scm 1519 */
 long BgL_arg1228z00_3752;
BgL_arg1228z00_3752 = 
(long)(BgL_arg1703z00_3745); 
BgL_rz00_3737 = 
(long)(BgL_arg1228z00_3752); } }  else 
{ /* Ieee/fixnum.scm 2115 */
BgL_rz00_3737 = 
(BgL_n1z00_3741%BgL_n2z00_3742); } } } 
if(
(BgL_rz00_3737==0L))
{ /* Ieee/fixnum.scm 2262 */
BgL_g1034z00_1531 = BgL_nz00_3732; }  else 
{ 
 long BgL_nz00_16477; long BgL_mz00_16476;
BgL_mz00_16476 = BgL_nz00_3732; 
BgL_nz00_16477 = BgL_rz00_3737; 
BgL_nz00_3732 = BgL_nz00_16477; 
BgL_mz00_3731 = BgL_mz00_16476; 
goto BgL_gcd2z00_3730;} } } } 
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_pairz00_3755;
if(
PAIRP(BgL_xz00_509))
{ /* Ieee/fixnum.scm 2262 */
BgL_pairz00_3755 = BgL_xz00_509; }  else 
{ 
 obj_t BgL_auxz00_16480;
BgL_auxz00_16480 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_509); 
FAILURE(BgL_auxz00_16480,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_pairz00_3758;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_aux3928z00_8040;
BgL_aux3928z00_8040 = 
CDR(BgL_pairz00_3755); 
if(
PAIRP(BgL_aux3928z00_8040))
{ /* Ieee/fixnum.scm 2262 */
BgL_pairz00_3758 = BgL_aux3928z00_8040; }  else 
{ 
 obj_t BgL_auxz00_16487;
BgL_auxz00_16487 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4905z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3928z00_8040); 
FAILURE(BgL_auxz00_16487,BFALSE,BFALSE);} } 
BgL_g1035z00_1532 = 
CDR(BgL_pairz00_3758); } } 
{ 
 long BgL_tmpz00_3807; obj_t BgL_leftz00_3808;
BgL_tmpz00_3807 = BgL_g1034z00_1531; 
BgL_leftz00_3808 = BgL_g1035z00_1532; 
BgL_loopz00_3806:
if(
PAIRP(BgL_leftz00_3808))
{ 
 obj_t BgL_leftz00_16535; long BgL_tmpz00_16494;
BgL_mz00_1547 = BgL_tmpz00_3807; 
{ /* Ieee/fixnum.scm 2262 */
 long BgL_nz00_3820;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_tmpz00_16523;
{ /* Ieee/fixnum.scm 2262 */
 obj_t BgL_aux3930z00_8042;
BgL_aux3930z00_8042 = 
CAR(BgL_leftz00_3808); 
if(
INTEGERP(BgL_aux3930z00_8042))
{ /* Ieee/fixnum.scm 2262 */
BgL_tmpz00_16523 = BgL_aux3930z00_8042
; }  else 
{ 
 obj_t BgL_auxz00_16527;
BgL_auxz00_16527 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102624L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3930z00_8042); 
FAILURE(BgL_auxz00_16527,BFALSE,BFALSE);} } 
BgL_nz00_3820 = 
(long)CINT(BgL_tmpz00_16523); } 
if(
(BgL_nz00_3820<0L))
{ /* Ieee/fixnum.scm 1997 */
BgL_nz00_1548 = 
NEG(BgL_nz00_3820); }  else 
{ /* Ieee/fixnum.scm 1997 */
BgL_nz00_1548 = BgL_nz00_3820; } } 
BgL_zc3z04anonymousza31826ze3z87_1549:
if(
(BgL_nz00_1548==0L))
{ /* Ieee/fixnum.scm 2262 */
BgL_tmpz00_16494 = BgL_mz00_1547; }  else 
{ /* Ieee/fixnum.scm 2262 */
 long BgL_rz00_3680;
{ /* Ieee/fixnum.scm 2262 */
 long BgL_n1z00_3684; long BgL_n2z00_3685;
BgL_n1z00_3684 = BgL_mz00_1547; 
BgL_n2z00_3685 = BgL_nz00_1548; 
{ /* Ieee/fixnum.scm 2115 */
 bool_t BgL_test6687z00_16497;
{ /* Ieee/fixnum.scm 2115 */
 long BgL_arg1707z00_3687;
BgL_arg1707z00_3687 = 
(((BgL_n1z00_3684) | (BgL_n2z00_3685)) & -2147483648); 
BgL_test6687z00_16497 = 
(BgL_arg1707z00_3687==0L); } 
if(BgL_test6687z00_16497)
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1703z00_3688;
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1704z00_3689; int32_t BgL_arg1706z00_3690;
BgL_arg1704z00_3689 = 
(int32_t)(BgL_n1z00_3684); 
BgL_arg1706z00_3690 = 
(int32_t)(BgL_n2z00_3685); 
BgL_arg1703z00_3688 = 
(BgL_arg1704z00_3689%BgL_arg1706z00_3690); } 
{ /* Ieee/fixnum.scm 1519 */
 long BgL_arg1228z00_3695;
BgL_arg1228z00_3695 = 
(long)(BgL_arg1703z00_3688); 
BgL_rz00_3680 = 
(long)(BgL_arg1228z00_3695); } }  else 
{ /* Ieee/fixnum.scm 2115 */
BgL_rz00_3680 = 
(BgL_n1z00_3684%BgL_n2z00_3685); } } } 
if(
(BgL_rz00_3680==0L))
{ /* Ieee/fixnum.scm 2262 */
BgL_tmpz00_16494 = BgL_nz00_1548; }  else 
{ /* Ieee/fixnum.scm 2262 */
if(
(BgL_rz00_3680==0L))
{ /* Ieee/fixnum.scm 2262 */
BgL_tmpz00_16494 = BgL_nz00_1548; }  else 
{ /* Ieee/fixnum.scm 2262 */
 long BgL_rz00_3699;
{ /* Ieee/fixnum.scm 2262 */
 long BgL_n1z00_3703; long BgL_n2z00_3704;
BgL_n1z00_3703 = BgL_nz00_1548; 
BgL_n2z00_3704 = BgL_rz00_3680; 
{ /* Ieee/fixnum.scm 2115 */
 bool_t BgL_test6690z00_16510;
{ /* Ieee/fixnum.scm 2115 */
 long BgL_arg1707z00_3706;
BgL_arg1707z00_3706 = 
(((BgL_n1z00_3703) | (BgL_n2z00_3704)) & -2147483648); 
BgL_test6690z00_16510 = 
(BgL_arg1707z00_3706==0L); } 
if(BgL_test6690z00_16510)
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1703z00_3707;
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1704z00_3708; int32_t BgL_arg1706z00_3709;
BgL_arg1704z00_3708 = 
(int32_t)(BgL_n1z00_3703); 
BgL_arg1706z00_3709 = 
(int32_t)(BgL_n2z00_3704); 
BgL_arg1703z00_3707 = 
(BgL_arg1704z00_3708%BgL_arg1706z00_3709); } 
{ /* Ieee/fixnum.scm 1519 */
 long BgL_arg1228z00_3714;
BgL_arg1228z00_3714 = 
(long)(BgL_arg1703z00_3707); 
BgL_rz00_3699 = 
(long)(BgL_arg1228z00_3714); } }  else 
{ /* Ieee/fixnum.scm 2115 */
BgL_rz00_3699 = 
(BgL_n1z00_3703%BgL_n2z00_3704); } } } 
if(
(BgL_rz00_3699==0L))
{ /* Ieee/fixnum.scm 2262 */
BgL_tmpz00_16494 = BgL_rz00_3680; }  else 
{ 
 long BgL_nz00_16522; long BgL_mz00_16521;
BgL_mz00_16521 = BgL_rz00_3680; 
BgL_nz00_16522 = BgL_rz00_3699; 
BgL_nz00_1548 = BgL_nz00_16522; 
BgL_mz00_1547 = BgL_mz00_16521; 
goto BgL_zc3z04anonymousza31826ze3z87_1549;} } } } 
BgL_leftz00_16535 = 
CDR(BgL_leftz00_3808); 
BgL_leftz00_3808 = BgL_leftz00_16535; 
BgL_tmpz00_3807 = BgL_tmpz00_16494; 
goto BgL_loopz00_3806;}  else 
{ /* Ieee/fixnum.scm 2262 */
return BgL_tmpz00_3807;} } } } } } 

}



/* &gcdfx */
obj_t BGl_z62gcdfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6722, obj_t BgL_xz00_6723)
{
{ /* Ieee/fixnum.scm 2262 */
return 
BINT(
BGl_gcdfxz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6723));} 

}



/* gcdelong */
BGL_EXPORTED_DEF long BGl_gcdelongz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_510)
{
{ /* Ieee/fixnum.scm 2264 */
if(
NULLP(BgL_xz00_510))
{ /* Ieee/fixnum.scm 2264 */
return ((long)0);}  else 
{ /* Ieee/fixnum.scm 2264 */
 bool_t BgL_test6695z00_16541;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_tmpz00_16542;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_pairz00_3825;
if(
PAIRP(BgL_xz00_510))
{ /* Ieee/fixnum.scm 2264 */
BgL_pairz00_3825 = BgL_xz00_510; }  else 
{ 
 obj_t BgL_auxz00_16545;
BgL_auxz00_16545 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_510); 
FAILURE(BgL_auxz00_16545,BFALSE,BFALSE);} 
BgL_tmpz00_16542 = 
CDR(BgL_pairz00_3825); } 
BgL_test6695z00_16541 = 
NULLP(BgL_tmpz00_16542); } 
if(BgL_test6695z00_16541)
{ /* Ieee/fixnum.scm 2264 */
 long BgL_nz00_3827;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_pairz00_3826;
if(
PAIRP(BgL_xz00_510))
{ /* Ieee/fixnum.scm 2264 */
BgL_pairz00_3826 = BgL_xz00_510; }  else 
{ 
 obj_t BgL_auxz00_16553;
BgL_auxz00_16553 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_510); 
FAILURE(BgL_auxz00_16553,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_tmpz00_16557;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_aux3935z00_8047;
BgL_aux3935z00_8047 = 
CAR(BgL_pairz00_3826); 
if(
ELONGP(BgL_aux3935z00_8047))
{ /* Ieee/fixnum.scm 2264 */
BgL_tmpz00_16557 = BgL_aux3935z00_8047
; }  else 
{ 
 obj_t BgL_auxz00_16561;
BgL_auxz00_16561 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3935z00_8047); 
FAILURE(BgL_auxz00_16561,BFALSE,BFALSE);} } 
BgL_nz00_3827 = 
BELONG_TO_LONG(BgL_tmpz00_16557); } } 
if(
(BgL_nz00_3827<((long)0)))
{ /* Ieee/fixnum.scm 1999 */
return 
NEG(BgL_nz00_3827);}  else 
{ /* Ieee/fixnum.scm 1999 */
return BgL_nz00_3827;} }  else 
{ 
 long BgL_mz00_1576; long BgL_nz00_1577;
{ /* Ieee/fixnum.scm 2264 */
 long BgL_g1036z00_1560; obj_t BgL_g1037z00_1561;
{ /* Ieee/fixnum.scm 2264 */
 long BgL_arg1840z00_1572; long BgL_arg1841z00_1573;
{ /* Ieee/fixnum.scm 2264 */
 long BgL_nz00_3853;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_pairz00_3852;
if(
PAIRP(BgL_xz00_510))
{ /* Ieee/fixnum.scm 2264 */
BgL_pairz00_3852 = BgL_xz00_510; }  else 
{ 
 obj_t BgL_auxz00_16571;
BgL_auxz00_16571 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_510); 
FAILURE(BgL_auxz00_16571,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_tmpz00_16575;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_aux3939z00_8051;
BgL_aux3939z00_8051 = 
CAR(BgL_pairz00_3852); 
if(
ELONGP(BgL_aux3939z00_8051))
{ /* Ieee/fixnum.scm 2264 */
BgL_tmpz00_16575 = BgL_aux3939z00_8051
; }  else 
{ 
 obj_t BgL_auxz00_16579;
BgL_auxz00_16579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3939z00_8051); 
FAILURE(BgL_auxz00_16579,BFALSE,BFALSE);} } 
BgL_nz00_3853 = 
BELONG_TO_LONG(BgL_tmpz00_16575); } } 
if(
(BgL_nz00_3853<((long)0)))
{ /* Ieee/fixnum.scm 1999 */
BgL_arg1840z00_1572 = 
NEG(BgL_nz00_3853); }  else 
{ /* Ieee/fixnum.scm 1999 */
BgL_arg1840z00_1572 = BgL_nz00_3853; } } 
{ /* Ieee/fixnum.scm 2264 */
 long BgL_nz00_3862;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_pairz00_3858;
if(
PAIRP(BgL_xz00_510))
{ /* Ieee/fixnum.scm 2264 */
BgL_pairz00_3858 = BgL_xz00_510; }  else 
{ 
 obj_t BgL_auxz00_16589;
BgL_auxz00_16589 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_510); 
FAILURE(BgL_auxz00_16589,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_pairz00_3861;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_aux3943z00_8055;
BgL_aux3943z00_8055 = 
CDR(BgL_pairz00_3858); 
if(
PAIRP(BgL_aux3943z00_8055))
{ /* Ieee/fixnum.scm 2264 */
BgL_pairz00_3861 = BgL_aux3943z00_8055; }  else 
{ 
 obj_t BgL_auxz00_16596;
BgL_auxz00_16596 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3943z00_8055); 
FAILURE(BgL_auxz00_16596,BFALSE,BFALSE);} } 
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_tmpz00_16600;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_aux3945z00_8057;
BgL_aux3945z00_8057 = 
CAR(BgL_pairz00_3861); 
if(
ELONGP(BgL_aux3945z00_8057))
{ /* Ieee/fixnum.scm 2264 */
BgL_tmpz00_16600 = BgL_aux3945z00_8057
; }  else 
{ 
 obj_t BgL_auxz00_16604;
BgL_auxz00_16604 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3945z00_8057); 
FAILURE(BgL_auxz00_16604,BFALSE,BFALSE);} } 
BgL_nz00_3862 = 
BELONG_TO_LONG(BgL_tmpz00_16600); } } } 
if(
(BgL_nz00_3862<((long)0)))
{ /* Ieee/fixnum.scm 1999 */
BgL_arg1841z00_1573 = 
NEG(BgL_nz00_3862); }  else 
{ /* Ieee/fixnum.scm 1999 */
BgL_arg1841z00_1573 = BgL_nz00_3862; } } 
{ 
 long BgL_mz00_3868; long BgL_nz00_3869;
BgL_mz00_3868 = BgL_arg1840z00_1572; 
BgL_nz00_3869 = BgL_arg1841z00_1573; 
BgL_gcd2z00_3867:
if(
(BgL_nz00_3869==((long)0)))
{ /* Ieee/fixnum.scm 2264 */
BgL_g1036z00_1560 = BgL_mz00_3868; }  else 
{ /* Ieee/fixnum.scm 2264 */
 long BgL_rz00_3874;
BgL_rz00_3874 = 
(BgL_mz00_3868%BgL_nz00_3869); 
if(
(BgL_rz00_3874==((long)0)))
{ /* Ieee/fixnum.scm 2264 */
BgL_g1036z00_1560 = BgL_nz00_3869; }  else 
{ 
 long BgL_nz00_16618; long BgL_mz00_16617;
BgL_mz00_16617 = BgL_nz00_3869; 
BgL_nz00_16618 = BgL_rz00_3874; 
BgL_nz00_3869 = BgL_nz00_16618; 
BgL_mz00_3868 = BgL_mz00_16617; 
goto BgL_gcd2z00_3867;} } } } 
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_pairz00_3883;
if(
PAIRP(BgL_xz00_510))
{ /* Ieee/fixnum.scm 2264 */
BgL_pairz00_3883 = BgL_xz00_510; }  else 
{ 
 obj_t BgL_auxz00_16621;
BgL_auxz00_16621 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_510); 
FAILURE(BgL_auxz00_16621,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_pairz00_3886;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_aux3949z00_8061;
BgL_aux3949z00_8061 = 
CDR(BgL_pairz00_3883); 
if(
PAIRP(BgL_aux3949z00_8061))
{ /* Ieee/fixnum.scm 2264 */
BgL_pairz00_3886 = BgL_aux3949z00_8061; }  else 
{ 
 obj_t BgL_auxz00_16628;
BgL_auxz00_16628 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4906z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3949z00_8061); 
FAILURE(BgL_auxz00_16628,BFALSE,BFALSE);} } 
BgL_g1037z00_1561 = 
CDR(BgL_pairz00_3886); } } 
{ 
 long BgL_tmpz00_3928; obj_t BgL_leftz00_3929;
BgL_tmpz00_3928 = BgL_g1036z00_1560; 
BgL_leftz00_3929 = BgL_g1037z00_1561; 
BgL_loopz00_3927:
if(
PAIRP(BgL_leftz00_3929))
{ 
 obj_t BgL_leftz00_16660; long BgL_tmpz00_16635;
BgL_mz00_1576 = BgL_tmpz00_3928; 
{ /* Ieee/fixnum.scm 2264 */
 long BgL_nz00_3941;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_tmpz00_16648;
{ /* Ieee/fixnum.scm 2264 */
 obj_t BgL_aux3951z00_8063;
BgL_aux3951z00_8063 = 
CAR(BgL_leftz00_3929); 
if(
ELONGP(BgL_aux3951z00_8063))
{ /* Ieee/fixnum.scm 2264 */
BgL_tmpz00_16648 = BgL_aux3951z00_8063
; }  else 
{ 
 obj_t BgL_auxz00_16652;
BgL_auxz00_16652 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102664L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3951z00_8063); 
FAILURE(BgL_auxz00_16652,BFALSE,BFALSE);} } 
BgL_nz00_3941 = 
BELONG_TO_LONG(BgL_tmpz00_16648); } 
if(
(BgL_nz00_3941<((long)0)))
{ /* Ieee/fixnum.scm 1999 */
BgL_nz00_1577 = 
NEG(BgL_nz00_3941); }  else 
{ /* Ieee/fixnum.scm 1999 */
BgL_nz00_1577 = BgL_nz00_3941; } } 
BgL_zc3z04anonymousza31844ze3z87_1578:
if(
(BgL_nz00_1577==((long)0)))
{ /* Ieee/fixnum.scm 2264 */
BgL_tmpz00_16635 = BgL_mz00_1576; }  else 
{ /* Ieee/fixnum.scm 2264 */
 long BgL_rz00_3833;
BgL_rz00_3833 = 
(BgL_mz00_1576%BgL_nz00_1577); 
if(
(BgL_rz00_3833==((long)0)))
{ /* Ieee/fixnum.scm 2264 */
BgL_tmpz00_16635 = BgL_nz00_1577; }  else 
{ /* Ieee/fixnum.scm 2264 */
if(
(BgL_rz00_3833==((long)0)))
{ /* Ieee/fixnum.scm 2264 */
BgL_tmpz00_16635 = BgL_nz00_1577; }  else 
{ /* Ieee/fixnum.scm 2264 */
 long BgL_rz00_3843;
BgL_rz00_3843 = 
(BgL_nz00_1577%BgL_rz00_3833); 
if(
(BgL_rz00_3843==((long)0)))
{ /* Ieee/fixnum.scm 2264 */
BgL_tmpz00_16635 = BgL_rz00_3833; }  else 
{ 
 long BgL_nz00_16647; long BgL_mz00_16646;
BgL_mz00_16646 = BgL_rz00_3833; 
BgL_nz00_16647 = BgL_rz00_3843; 
BgL_nz00_1577 = BgL_nz00_16647; 
BgL_mz00_1576 = BgL_mz00_16646; 
goto BgL_zc3z04anonymousza31844ze3z87_1578;} } } } 
BgL_leftz00_16660 = 
CDR(BgL_leftz00_3929); 
BgL_leftz00_3929 = BgL_leftz00_16660; 
BgL_tmpz00_3928 = BgL_tmpz00_16635; 
goto BgL_loopz00_3927;}  else 
{ /* Ieee/fixnum.scm 2264 */
return BgL_tmpz00_3928;} } } } } } 

}



/* &gcdelong */
obj_t BGl_z62gcdelongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6724, obj_t BgL_xz00_6725)
{
{ /* Ieee/fixnum.scm 2264 */
{ /* Ieee/fixnum.scm 2264 */
 long BgL_tmpz00_16662;
BgL_tmpz00_16662 = 
BGl_gcdelongz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6725); 
return 
make_belong(BgL_tmpz00_16662);} } 

}



/* gcdllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_gcdllongz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_511)
{
{ /* Ieee/fixnum.scm 2265 */
if(
NULLP(BgL_xz00_511))
{ /* Ieee/fixnum.scm 2265 */
return ((BGL_LONGLONG_T)0);}  else 
{ /* Ieee/fixnum.scm 2265 */
 bool_t BgL_test6719z00_16667;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_tmpz00_16668;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_pairz00_3947;
if(
PAIRP(BgL_xz00_511))
{ /* Ieee/fixnum.scm 2265 */
BgL_pairz00_3947 = BgL_xz00_511; }  else 
{ 
 obj_t BgL_auxz00_16671;
BgL_auxz00_16671 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_511); 
FAILURE(BgL_auxz00_16671,BFALSE,BFALSE);} 
BgL_tmpz00_16668 = 
CDR(BgL_pairz00_3947); } 
BgL_test6719z00_16667 = 
NULLP(BgL_tmpz00_16668); } 
if(BgL_test6719z00_16667)
{ /* Ieee/fixnum.scm 2265 */
 BGL_LONGLONG_T BgL_nz00_3949;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_pairz00_3948;
if(
PAIRP(BgL_xz00_511))
{ /* Ieee/fixnum.scm 2265 */
BgL_pairz00_3948 = BgL_xz00_511; }  else 
{ 
 obj_t BgL_auxz00_16679;
BgL_auxz00_16679 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_511); 
FAILURE(BgL_auxz00_16679,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_tmpz00_16683;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_aux3957z00_8069;
BgL_aux3957z00_8069 = 
CAR(BgL_pairz00_3948); 
if(
LLONGP(BgL_aux3957z00_8069))
{ /* Ieee/fixnum.scm 2265 */
BgL_tmpz00_16683 = BgL_aux3957z00_8069
; }  else 
{ 
 obj_t BgL_auxz00_16687;
BgL_auxz00_16687 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3957z00_8069); 
FAILURE(BgL_auxz00_16687,BFALSE,BFALSE);} } 
BgL_nz00_3949 = 
BLLONG_TO_LLONG(BgL_tmpz00_16683); } } 
if(
(BgL_nz00_3949<((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2000 */
return 
NEG(BgL_nz00_3949);}  else 
{ /* Ieee/fixnum.scm 2000 */
return BgL_nz00_3949;} }  else 
{ 
 BGL_LONGLONG_T BgL_mz00_1605; BGL_LONGLONG_T BgL_nz00_1606;
{ /* Ieee/fixnum.scm 2265 */
 BGL_LONGLONG_T BgL_g1038z00_1589; obj_t BgL_g1039z00_1590;
{ /* Ieee/fixnum.scm 2265 */
 BGL_LONGLONG_T BgL_arg1861z00_1601; BGL_LONGLONG_T BgL_arg1864z00_1602;
{ /* Ieee/fixnum.scm 2265 */
 BGL_LONGLONG_T BgL_nz00_3975;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_pairz00_3974;
if(
PAIRP(BgL_xz00_511))
{ /* Ieee/fixnum.scm 2265 */
BgL_pairz00_3974 = BgL_xz00_511; }  else 
{ 
 obj_t BgL_auxz00_16697;
BgL_auxz00_16697 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_511); 
FAILURE(BgL_auxz00_16697,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_tmpz00_16701;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_aux3961z00_8073;
BgL_aux3961z00_8073 = 
CAR(BgL_pairz00_3974); 
if(
LLONGP(BgL_aux3961z00_8073))
{ /* Ieee/fixnum.scm 2265 */
BgL_tmpz00_16701 = BgL_aux3961z00_8073
; }  else 
{ 
 obj_t BgL_auxz00_16705;
BgL_auxz00_16705 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3961z00_8073); 
FAILURE(BgL_auxz00_16705,BFALSE,BFALSE);} } 
BgL_nz00_3975 = 
BLLONG_TO_LLONG(BgL_tmpz00_16701); } } 
if(
(BgL_nz00_3975<((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2000 */
BgL_arg1861z00_1601 = 
NEG(BgL_nz00_3975); }  else 
{ /* Ieee/fixnum.scm 2000 */
BgL_arg1861z00_1601 = BgL_nz00_3975; } } 
{ /* Ieee/fixnum.scm 2265 */
 BGL_LONGLONG_T BgL_nz00_3984;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_pairz00_3980;
if(
PAIRP(BgL_xz00_511))
{ /* Ieee/fixnum.scm 2265 */
BgL_pairz00_3980 = BgL_xz00_511; }  else 
{ 
 obj_t BgL_auxz00_16715;
BgL_auxz00_16715 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_511); 
FAILURE(BgL_auxz00_16715,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_pairz00_3983;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_aux3965z00_8077;
BgL_aux3965z00_8077 = 
CDR(BgL_pairz00_3980); 
if(
PAIRP(BgL_aux3965z00_8077))
{ /* Ieee/fixnum.scm 2265 */
BgL_pairz00_3983 = BgL_aux3965z00_8077; }  else 
{ 
 obj_t BgL_auxz00_16722;
BgL_auxz00_16722 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3965z00_8077); 
FAILURE(BgL_auxz00_16722,BFALSE,BFALSE);} } 
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_tmpz00_16726;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_aux3967z00_8079;
BgL_aux3967z00_8079 = 
CAR(BgL_pairz00_3983); 
if(
LLONGP(BgL_aux3967z00_8079))
{ /* Ieee/fixnum.scm 2265 */
BgL_tmpz00_16726 = BgL_aux3967z00_8079
; }  else 
{ 
 obj_t BgL_auxz00_16730;
BgL_auxz00_16730 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3967z00_8079); 
FAILURE(BgL_auxz00_16730,BFALSE,BFALSE);} } 
BgL_nz00_3984 = 
BLLONG_TO_LLONG(BgL_tmpz00_16726); } } } 
if(
(BgL_nz00_3984<((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2000 */
BgL_arg1864z00_1602 = 
NEG(BgL_nz00_3984); }  else 
{ /* Ieee/fixnum.scm 2000 */
BgL_arg1864z00_1602 = BgL_nz00_3984; } } 
{ 
 BGL_LONGLONG_T BgL_mz00_3990; BGL_LONGLONG_T BgL_nz00_3991;
BgL_mz00_3990 = BgL_arg1861z00_1601; 
BgL_nz00_3991 = BgL_arg1864z00_1602; 
BgL_gcd2z00_3989:
if(
(BgL_nz00_3991==((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2265 */
BgL_g1038z00_1589 = BgL_mz00_3990; }  else 
{ /* Ieee/fixnum.scm 2265 */
 BGL_LONGLONG_T BgL_rz00_3996;
BgL_rz00_3996 = 
(BgL_mz00_3990%BgL_nz00_3991); 
if(
(BgL_rz00_3996==((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2265 */
BgL_g1038z00_1589 = BgL_nz00_3991; }  else 
{ 
 BGL_LONGLONG_T BgL_nz00_16744; BGL_LONGLONG_T BgL_mz00_16743;
BgL_mz00_16743 = BgL_nz00_3991; 
BgL_nz00_16744 = BgL_rz00_3996; 
BgL_nz00_3991 = BgL_nz00_16744; 
BgL_mz00_3990 = BgL_mz00_16743; 
goto BgL_gcd2z00_3989;} } } } 
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_pairz00_4005;
if(
PAIRP(BgL_xz00_511))
{ /* Ieee/fixnum.scm 2265 */
BgL_pairz00_4005 = BgL_xz00_511; }  else 
{ 
 obj_t BgL_auxz00_16747;
BgL_auxz00_16747 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_511); 
FAILURE(BgL_auxz00_16747,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_pairz00_4008;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_aux3971z00_8083;
BgL_aux3971z00_8083 = 
CDR(BgL_pairz00_4005); 
if(
PAIRP(BgL_aux3971z00_8083))
{ /* Ieee/fixnum.scm 2265 */
BgL_pairz00_4008 = BgL_aux3971z00_8083; }  else 
{ 
 obj_t BgL_auxz00_16754;
BgL_auxz00_16754 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4907z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3971z00_8083); 
FAILURE(BgL_auxz00_16754,BFALSE,BFALSE);} } 
BgL_g1039z00_1590 = 
CDR(BgL_pairz00_4008); } } 
{ 
 BGL_LONGLONG_T BgL_tmpz00_4050; obj_t BgL_leftz00_4051;
BgL_tmpz00_4050 = BgL_g1038z00_1589; 
BgL_leftz00_4051 = BgL_g1039z00_1590; 
BgL_loopz00_4049:
if(
PAIRP(BgL_leftz00_4051))
{ 
 obj_t BgL_leftz00_16786; BGL_LONGLONG_T BgL_tmpz00_16761;
BgL_mz00_1605 = BgL_tmpz00_4050; 
{ /* Ieee/fixnum.scm 2265 */
 BGL_LONGLONG_T BgL_nz00_4063;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_tmpz00_16774;
{ /* Ieee/fixnum.scm 2265 */
 obj_t BgL_aux3973z00_8085;
BgL_aux3973z00_8085 = 
CAR(BgL_leftz00_4051); 
if(
LLONGP(BgL_aux3973z00_8085))
{ /* Ieee/fixnum.scm 2265 */
BgL_tmpz00_16774 = BgL_aux3973z00_8085
; }  else 
{ 
 obj_t BgL_auxz00_16778;
BgL_auxz00_16778 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102708L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3973z00_8085); 
FAILURE(BgL_auxz00_16778,BFALSE,BFALSE);} } 
BgL_nz00_4063 = 
BLLONG_TO_LLONG(BgL_tmpz00_16774); } 
if(
(BgL_nz00_4063<((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2000 */
BgL_nz00_1606 = 
NEG(BgL_nz00_4063); }  else 
{ /* Ieee/fixnum.scm 2000 */
BgL_nz00_1606 = BgL_nz00_4063; } } 
BgL_zc3z04anonymousza31868ze3z87_1607:
if(
(BgL_nz00_1606==((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2265 */
BgL_tmpz00_16761 = BgL_mz00_1605; }  else 
{ /* Ieee/fixnum.scm 2265 */
 BGL_LONGLONG_T BgL_rz00_3955;
BgL_rz00_3955 = 
(BgL_mz00_1605%BgL_nz00_1606); 
if(
(BgL_rz00_3955==((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2265 */
BgL_tmpz00_16761 = BgL_nz00_1606; }  else 
{ /* Ieee/fixnum.scm 2265 */
if(
(BgL_rz00_3955==((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2265 */
BgL_tmpz00_16761 = BgL_nz00_1606; }  else 
{ /* Ieee/fixnum.scm 2265 */
 BGL_LONGLONG_T BgL_rz00_3965;
BgL_rz00_3965 = 
(BgL_nz00_1606%BgL_rz00_3955); 
if(
(BgL_rz00_3965==((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2265 */
BgL_tmpz00_16761 = BgL_rz00_3955; }  else 
{ 
 BGL_LONGLONG_T BgL_nz00_16773; BGL_LONGLONG_T BgL_mz00_16772;
BgL_mz00_16772 = BgL_rz00_3955; 
BgL_nz00_16773 = BgL_rz00_3965; 
BgL_nz00_1606 = BgL_nz00_16773; 
BgL_mz00_1605 = BgL_mz00_16772; 
goto BgL_zc3z04anonymousza31868ze3z87_1607;} } } } 
BgL_leftz00_16786 = 
CDR(BgL_leftz00_4051); 
BgL_leftz00_4051 = BgL_leftz00_16786; 
BgL_tmpz00_4050 = BgL_tmpz00_16761; 
goto BgL_loopz00_4049;}  else 
{ /* Ieee/fixnum.scm 2265 */
return BgL_tmpz00_4050;} } } } } } 

}



/* &gcdllong */
obj_t BGl_z62gcdllongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6726, obj_t BgL_xz00_6727)
{
{ /* Ieee/fixnum.scm 2265 */
return 
make_bllong(
BGl_gcdllongz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6727));} 

}



/* gcds8 */
BGL_EXPORTED_DEF int8_t BGl_gcds8z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_512)
{
{ /* Ieee/fixnum.scm 2267 */
if(
NULLP(BgL_xz00_512))
{ /* Ieee/fixnum.scm 2267 */
return 
(int8_t)(0L);}  else 
{ /* Ieee/fixnum.scm 2267 */
 bool_t BgL_test6743z00_16793;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_tmpz00_16794;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_pairz00_4069;
if(
PAIRP(BgL_xz00_512))
{ /* Ieee/fixnum.scm 2267 */
BgL_pairz00_4069 = BgL_xz00_512; }  else 
{ 
 obj_t BgL_auxz00_16797;
BgL_auxz00_16797 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_512); 
FAILURE(BgL_auxz00_16797,BFALSE,BFALSE);} 
BgL_tmpz00_16794 = 
CDR(BgL_pairz00_4069); } 
BgL_test6743z00_16793 = 
NULLP(BgL_tmpz00_16794); } 
if(BgL_test6743z00_16793)
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_arg1877z00_1616;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_pairz00_4070;
if(
PAIRP(BgL_xz00_512))
{ /* Ieee/fixnum.scm 2267 */
BgL_pairz00_4070 = BgL_xz00_512; }  else 
{ 
 obj_t BgL_auxz00_16805;
BgL_auxz00_16805 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_512); 
FAILURE(BgL_auxz00_16805,BFALSE,BFALSE);} 
BgL_arg1877z00_1616 = 
CAR(BgL_pairz00_4070); } 
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_za7za7_4071;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_tmpz00_16810;
if(
BGL_INT8P(BgL_arg1877z00_1616))
{ /* Ieee/fixnum.scm 2267 */
BgL_tmpz00_16810 = BgL_arg1877z00_1616
; }  else 
{ 
 obj_t BgL_auxz00_16813;
BgL_auxz00_16813 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1877z00_1616); 
FAILURE(BgL_auxz00_16813,BFALSE,BFALSE);} 
BgL_za7za7_4071 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_16810); } 
{ /* Ieee/fixnum.scm 2002 */
 bool_t BgL_test6747z00_16818;
{ /* Ieee/fixnum.scm 2002 */
 int8_t BgL_arg1609z00_4073;
BgL_arg1609z00_4073 = 
(int8_t)(0L); 
BgL_test6747z00_16818 = 
(BgL_za7za7_4071<BgL_arg1609z00_4073); } 
if(BgL_test6747z00_16818)
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_arg1591z00_4077;
BgL_arg1591z00_4077 = 
(int8_t)(0L); 
return 
(BgL_arg1591z00_4077-BgL_za7za7_4071);}  else 
{ /* Ieee/fixnum.scm 2002 */
return BgL_za7za7_4071;} } } }  else 
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_g1040z00_1618; obj_t BgL_g1041z00_1619;
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_arg1884z00_1630; int8_t BgL_arg1885z00_1631;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_arg1886z00_1632;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_pairz00_4088;
if(
PAIRP(BgL_xz00_512))
{ /* Ieee/fixnum.scm 2267 */
BgL_pairz00_4088 = BgL_xz00_512; }  else 
{ 
 obj_t BgL_auxz00_16825;
BgL_auxz00_16825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_512); 
FAILURE(BgL_auxz00_16825,BFALSE,BFALSE);} 
BgL_arg1886z00_1632 = 
CAR(BgL_pairz00_4088); } 
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_za7za7_4089;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_tmpz00_16830;
if(
BGL_INT8P(BgL_arg1886z00_1632))
{ /* Ieee/fixnum.scm 2267 */
BgL_tmpz00_16830 = BgL_arg1886z00_1632
; }  else 
{ 
 obj_t BgL_auxz00_16833;
BgL_auxz00_16833 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1886z00_1632); 
FAILURE(BgL_auxz00_16833,BFALSE,BFALSE);} 
BgL_za7za7_4089 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_16830); } 
{ /* Ieee/fixnum.scm 2002 */
 bool_t BgL_test6750z00_16838;
{ /* Ieee/fixnum.scm 2002 */
 int8_t BgL_arg1609z00_4091;
BgL_arg1609z00_4091 = 
(int8_t)(0L); 
BgL_test6750z00_16838 = 
(BgL_za7za7_4089<BgL_arg1609z00_4091); } 
if(BgL_test6750z00_16838)
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_arg1591z00_4095;
BgL_arg1591z00_4095 = 
(int8_t)(0L); 
BgL_arg1884z00_1630 = 
(BgL_arg1591z00_4095-BgL_za7za7_4089); }  else 
{ /* Ieee/fixnum.scm 2002 */
BgL_arg1884z00_1630 = BgL_za7za7_4089; } } } } 
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_arg1888z00_1633;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_pairz00_4098;
if(
PAIRP(BgL_xz00_512))
{ /* Ieee/fixnum.scm 2267 */
BgL_pairz00_4098 = BgL_xz00_512; }  else 
{ 
 obj_t BgL_auxz00_16845;
BgL_auxz00_16845 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_512); 
FAILURE(BgL_auxz00_16845,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_pairz00_4101;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_aux3987z00_8099;
BgL_aux3987z00_8099 = 
CDR(BgL_pairz00_4098); 
if(
PAIRP(BgL_aux3987z00_8099))
{ /* Ieee/fixnum.scm 2267 */
BgL_pairz00_4101 = BgL_aux3987z00_8099; }  else 
{ 
 obj_t BgL_auxz00_16852;
BgL_auxz00_16852 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3987z00_8099); 
FAILURE(BgL_auxz00_16852,BFALSE,BFALSE);} } 
BgL_arg1888z00_1633 = 
CAR(BgL_pairz00_4101); } } 
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_za7za7_4102;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_tmpz00_16857;
if(
BGL_INT8P(BgL_arg1888z00_1633))
{ /* Ieee/fixnum.scm 2267 */
BgL_tmpz00_16857 = BgL_arg1888z00_1633
; }  else 
{ 
 obj_t BgL_auxz00_16860;
BgL_auxz00_16860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1888z00_1633); 
FAILURE(BgL_auxz00_16860,BFALSE,BFALSE);} 
BgL_za7za7_4102 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_16857); } 
{ /* Ieee/fixnum.scm 2002 */
 bool_t BgL_test6754z00_16865;
{ /* Ieee/fixnum.scm 2002 */
 int8_t BgL_arg1609z00_4104;
BgL_arg1609z00_4104 = 
(int8_t)(0L); 
BgL_test6754z00_16865 = 
(BgL_za7za7_4102<BgL_arg1609z00_4104); } 
if(BgL_test6754z00_16865)
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_arg1591z00_4108;
BgL_arg1591z00_4108 = 
(int8_t)(0L); 
BgL_arg1885z00_1631 = 
(BgL_arg1591z00_4108-BgL_za7za7_4102); }  else 
{ /* Ieee/fixnum.scm 2002 */
BgL_arg1885z00_1631 = BgL_za7za7_4102; } } } } 
BgL_g1040z00_1618 = 
BGl_gcd2ze77ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg1884z00_1630, BgL_arg1885z00_1631); } 
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_pairz00_4111;
if(
PAIRP(BgL_xz00_512))
{ /* Ieee/fixnum.scm 2267 */
BgL_pairz00_4111 = BgL_xz00_512; }  else 
{ 
 obj_t BgL_auxz00_16873;
BgL_auxz00_16873 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_512); 
FAILURE(BgL_auxz00_16873,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_pairz00_4114;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_aux3993z00_8105;
BgL_aux3993z00_8105 = 
CDR(BgL_pairz00_4111); 
if(
PAIRP(BgL_aux3993z00_8105))
{ /* Ieee/fixnum.scm 2267 */
BgL_pairz00_4114 = BgL_aux3993z00_8105; }  else 
{ 
 obj_t BgL_auxz00_16880;
BgL_auxz00_16880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4908z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3993z00_8105); 
FAILURE(BgL_auxz00_16880,BFALSE,BFALSE);} } 
BgL_g1041z00_1619 = 
CDR(BgL_pairz00_4114); } } 
{ 
 int8_t BgL_tmpz00_4148; obj_t BgL_leftz00_4149;
BgL_tmpz00_4148 = BgL_g1040z00_1618; 
BgL_leftz00_4149 = BgL_g1041z00_1619; 
BgL_loopz00_4147:
if(
PAIRP(BgL_leftz00_4149))
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_arg1880z00_4156; obj_t BgL_arg1881z00_4157;
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_arg1882z00_4158;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_arg1883z00_4159;
BgL_arg1883z00_4159 = 
CAR(BgL_leftz00_4149); 
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_za7za7_4161;
{ /* Ieee/fixnum.scm 2267 */
 obj_t BgL_tmpz00_16888;
if(
BGL_INT8P(BgL_arg1883z00_4159))
{ /* Ieee/fixnum.scm 2267 */
BgL_tmpz00_16888 = BgL_arg1883z00_4159
; }  else 
{ 
 obj_t BgL_auxz00_16891;
BgL_auxz00_16891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102750L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1883z00_4159); 
FAILURE(BgL_auxz00_16891,BFALSE,BFALSE);} 
BgL_za7za7_4161 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_16888); } 
{ /* Ieee/fixnum.scm 2002 */
 bool_t BgL_test6759z00_16896;
{ /* Ieee/fixnum.scm 2002 */
 int8_t BgL_arg1609z00_4163;
BgL_arg1609z00_4163 = 
(int8_t)(0L); 
BgL_test6759z00_16896 = 
(BgL_za7za7_4161<BgL_arg1609z00_4163); } 
if(BgL_test6759z00_16896)
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_arg1591z00_4167;
BgL_arg1591z00_4167 = 
(int8_t)(0L); 
BgL_arg1882z00_4158 = 
(BgL_arg1591z00_4167-BgL_za7za7_4161); }  else 
{ /* Ieee/fixnum.scm 2002 */
BgL_arg1882z00_4158 = BgL_za7za7_4161; } } } } 
BgL_arg1880z00_4156 = 
BGl_gcd2ze77ze7zz__r4_numbers_6_5_fixnumz00(BgL_tmpz00_4148, BgL_arg1882z00_4158); } 
BgL_arg1881z00_4157 = 
CDR(BgL_leftz00_4149); 
{ 
 obj_t BgL_leftz00_16904; int8_t BgL_tmpz00_16903;
BgL_tmpz00_16903 = BgL_arg1880z00_4156; 
BgL_leftz00_16904 = BgL_arg1881z00_4157; 
BgL_leftz00_4149 = BgL_leftz00_16904; 
BgL_tmpz00_4148 = BgL_tmpz00_16903; 
goto BgL_loopz00_4147;} }  else 
{ /* Ieee/fixnum.scm 2267 */
return BgL_tmpz00_4148;} } } } } 

}



/* gcd2~7 */
int8_t BGl_gcd2ze77ze7zz__r4_numbers_6_5_fixnumz00(int8_t BgL_mz00_1634, int8_t BgL_nz00_1635)
{
{ /* Ieee/fixnum.scm 2267 */
BGl_gcd2ze77ze7zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2267 */
 bool_t BgL_test6760z00_16905;
{ /* Ieee/fixnum.scm 1670 */
 int8_t BgL_arg1244z00_4081;
BgL_arg1244z00_4081 = 
(int8_t)(0L); 
BgL_test6760z00_16905 = 
(BgL_nz00_1635==BgL_arg1244z00_4081); } 
if(BgL_test6760z00_16905)
{ /* Ieee/fixnum.scm 2267 */
return BgL_mz00_1634;}  else 
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_rz00_1638;
BgL_rz00_1638 = 
(BgL_mz00_1634%BgL_nz00_1635); 
{ /* Ieee/fixnum.scm 2267 */
 bool_t BgL_test6761z00_16909;
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_arg1894z00_1641;
BgL_arg1894z00_1641 = 
(int8_t)(0L); 
BgL_test6761z00_16909 = 
(BgL_rz00_1638==BgL_arg1894z00_1641); } 
if(BgL_test6761z00_16909)
{ /* Ieee/fixnum.scm 2267 */
return BgL_nz00_1635;}  else 
{ 
 int8_t BgL_nz00_16913; int8_t BgL_mz00_16912;
BgL_mz00_16912 = BgL_nz00_1635; 
BgL_nz00_16913 = BgL_rz00_1638; 
BgL_nz00_1635 = BgL_nz00_16913; 
BgL_mz00_1634 = BgL_mz00_16912; 
goto BGl_gcd2ze77ze7zz__r4_numbers_6_5_fixnumz00;} } } } } 

}



/* &gcds8 */
obj_t BGl_z62gcds8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6728, obj_t BgL_xz00_6729)
{
{ /* Ieee/fixnum.scm 2267 */
{ /* Ieee/fixnum.scm 2267 */
 int8_t BgL_tmpz00_16914;
BgL_tmpz00_16914 = 
BGl_gcds8z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6729); 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_16914);} } 

}



/* gcdu8 */
BGL_EXPORTED_DEF uint8_t BGl_gcdu8z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_513)
{
{ /* Ieee/fixnum.scm 2268 */
if(
NULLP(BgL_xz00_513))
{ /* Ieee/fixnum.scm 2268 */
return 
(uint8_t)(0L);}  else 
{ /* Ieee/fixnum.scm 2268 */
 bool_t BgL_test6763z00_16920;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_tmpz00_16921;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_pairz00_4171;
if(
PAIRP(BgL_xz00_513))
{ /* Ieee/fixnum.scm 2268 */
BgL_pairz00_4171 = BgL_xz00_513; }  else 
{ 
 obj_t BgL_auxz00_16924;
BgL_auxz00_16924 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_513); 
FAILURE(BgL_auxz00_16924,BFALSE,BFALSE);} 
BgL_tmpz00_16921 = 
CDR(BgL_pairz00_4171); } 
BgL_test6763z00_16920 = 
NULLP(BgL_tmpz00_16921); } 
if(BgL_test6763z00_16920)
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_za7za7_4173;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_pairz00_4172;
if(
PAIRP(BgL_xz00_513))
{ /* Ieee/fixnum.scm 2268 */
BgL_pairz00_4172 = BgL_xz00_513; }  else 
{ 
 obj_t BgL_auxz00_16932;
BgL_auxz00_16932 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_513); 
FAILURE(BgL_auxz00_16932,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_tmpz00_16936;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_aux4001z00_8113;
BgL_aux4001z00_8113 = 
CAR(BgL_pairz00_4172); 
if(
BGL_UINT8P(BgL_aux4001z00_8113))
{ /* Ieee/fixnum.scm 2268 */
BgL_tmpz00_16936 = BgL_aux4001z00_8113
; }  else 
{ 
 obj_t BgL_auxz00_16940;
BgL_auxz00_16940 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4001z00_8113); 
FAILURE(BgL_auxz00_16940,BFALSE,BFALSE);} } 
BgL_za7za7_4173 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_16936); } } 
return BgL_za7za7_4173;}  else 
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_g1042z00_1649; obj_t BgL_g1043z00_1650;
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_arg1914z00_1661; uint8_t BgL_arg1915z00_1662;
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_za7za7_4183;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_pairz00_4182;
if(
PAIRP(BgL_xz00_513))
{ /* Ieee/fixnum.scm 2268 */
BgL_pairz00_4182 = BgL_xz00_513; }  else 
{ 
 obj_t BgL_auxz00_16947;
BgL_auxz00_16947 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_513); 
FAILURE(BgL_auxz00_16947,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_tmpz00_16951;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_aux4005z00_8117;
BgL_aux4005z00_8117 = 
CAR(BgL_pairz00_4182); 
if(
BGL_UINT8P(BgL_aux4005z00_8117))
{ /* Ieee/fixnum.scm 2268 */
BgL_tmpz00_16951 = BgL_aux4005z00_8117
; }  else 
{ 
 obj_t BgL_auxz00_16955;
BgL_auxz00_16955 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4005z00_8117); 
FAILURE(BgL_auxz00_16955,BFALSE,BFALSE);} } 
BgL_za7za7_4183 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_16951); } } 
BgL_arg1914z00_1661 = BgL_za7za7_4183; } 
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_za7za7_4188;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_pairz00_4184;
if(
PAIRP(BgL_xz00_513))
{ /* Ieee/fixnum.scm 2268 */
BgL_pairz00_4184 = BgL_xz00_513; }  else 
{ 
 obj_t BgL_auxz00_16962;
BgL_auxz00_16962 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_513); 
FAILURE(BgL_auxz00_16962,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_pairz00_4187;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_aux4009z00_8121;
BgL_aux4009z00_8121 = 
CDR(BgL_pairz00_4184); 
if(
PAIRP(BgL_aux4009z00_8121))
{ /* Ieee/fixnum.scm 2268 */
BgL_pairz00_4187 = BgL_aux4009z00_8121; }  else 
{ 
 obj_t BgL_auxz00_16969;
BgL_auxz00_16969 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4009z00_8121); 
FAILURE(BgL_auxz00_16969,BFALSE,BFALSE);} } 
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_tmpz00_16973;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_aux4011z00_8123;
BgL_aux4011z00_8123 = 
CAR(BgL_pairz00_4187); 
if(
BGL_UINT8P(BgL_aux4011z00_8123))
{ /* Ieee/fixnum.scm 2268 */
BgL_tmpz00_16973 = BgL_aux4011z00_8123
; }  else 
{ 
 obj_t BgL_auxz00_16977;
BgL_auxz00_16977 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4011z00_8123); 
FAILURE(BgL_auxz00_16977,BFALSE,BFALSE);} } 
BgL_za7za7_4188 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_16973); } } } 
BgL_arg1915z00_1662 = BgL_za7za7_4188; } 
BgL_g1042z00_1649 = 
BGl_gcd2ze76ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg1914z00_1661, BgL_arg1915z00_1662); } 
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_pairz00_4189;
if(
PAIRP(BgL_xz00_513))
{ /* Ieee/fixnum.scm 2268 */
BgL_pairz00_4189 = BgL_xz00_513; }  else 
{ 
 obj_t BgL_auxz00_16985;
BgL_auxz00_16985 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_513); 
FAILURE(BgL_auxz00_16985,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_pairz00_4192;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_aux4015z00_8127;
BgL_aux4015z00_8127 = 
CDR(BgL_pairz00_4189); 
if(
PAIRP(BgL_aux4015z00_8127))
{ /* Ieee/fixnum.scm 2268 */
BgL_pairz00_4192 = BgL_aux4015z00_8127; }  else 
{ 
 obj_t BgL_auxz00_16992;
BgL_auxz00_16992 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4909z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4015z00_8127); 
FAILURE(BgL_auxz00_16992,BFALSE,BFALSE);} } 
BgL_g1043z00_1650 = 
CDR(BgL_pairz00_4192); } } 
{ 
 uint8_t BgL_tmpz00_4210; obj_t BgL_leftz00_4211;
BgL_tmpz00_4210 = BgL_g1042z00_1649; 
BgL_leftz00_4211 = BgL_g1043z00_1650; 
BgL_loopz00_4209:
if(
PAIRP(BgL_leftz00_4211))
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_arg1905z00_4218; obj_t BgL_arg1908z00_4219;
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_arg1909z00_4220;
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_za7za7_4223;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_tmpz00_16999;
{ /* Ieee/fixnum.scm 2268 */
 obj_t BgL_aux4017z00_8129;
BgL_aux4017z00_8129 = 
CAR(BgL_leftz00_4211); 
if(
BGL_UINT8P(BgL_aux4017z00_8129))
{ /* Ieee/fixnum.scm 2268 */
BgL_tmpz00_16999 = BgL_aux4017z00_8129
; }  else 
{ 
 obj_t BgL_auxz00_17003;
BgL_auxz00_17003 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102801L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4017z00_8129); 
FAILURE(BgL_auxz00_17003,BFALSE,BFALSE);} } 
BgL_za7za7_4223 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_16999); } 
BgL_arg1909z00_4220 = BgL_za7za7_4223; } 
BgL_arg1905z00_4218 = 
BGl_gcd2ze76ze7zz__r4_numbers_6_5_fixnumz00(BgL_tmpz00_4210, BgL_arg1909z00_4220); } 
BgL_arg1908z00_4219 = 
CDR(BgL_leftz00_4211); 
{ 
 obj_t BgL_leftz00_17011; uint8_t BgL_tmpz00_17010;
BgL_tmpz00_17010 = BgL_arg1905z00_4218; 
BgL_leftz00_17011 = BgL_arg1908z00_4219; 
BgL_leftz00_4211 = BgL_leftz00_17011; 
BgL_tmpz00_4210 = BgL_tmpz00_17010; 
goto BgL_loopz00_4209;} }  else 
{ /* Ieee/fixnum.scm 2268 */
return BgL_tmpz00_4210;} } } } } 

}



/* gcd2~6 */
uint8_t BGl_gcd2ze76ze7zz__r4_numbers_6_5_fixnumz00(uint8_t BgL_mz00_1665, uint8_t BgL_nz00_1666)
{
{ /* Ieee/fixnum.scm 2268 */
BGl_gcd2ze76ze7zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2268 */
 bool_t BgL_test6776z00_17012;
{ /* Ieee/fixnum.scm 1671 */
 uint8_t BgL_arg1246z00_4175;
BgL_arg1246z00_4175 = 
(uint8_t)(0L); 
BgL_test6776z00_17012 = 
(BgL_nz00_1666==BgL_arg1246z00_4175); } 
if(BgL_test6776z00_17012)
{ /* Ieee/fixnum.scm 2268 */
return BgL_mz00_1665;}  else 
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_rz00_1669;
{ /* Ieee/fixnum.scm 2125 */
 int8_t BgL_tmpz00_17015;
BgL_tmpz00_17015 = 
(int8_t)(BgL_nz00_1666); 
BgL_rz00_1669 = 
(BgL_mz00_1665%BgL_tmpz00_17015); } 
{ /* Ieee/fixnum.scm 2268 */
 bool_t BgL_test6777z00_17018;
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_arg1922z00_1672;
BgL_arg1922z00_1672 = 
(uint8_t)(0L); 
BgL_test6777z00_17018 = 
(BgL_rz00_1669==BgL_arg1922z00_1672); } 
if(BgL_test6777z00_17018)
{ /* Ieee/fixnum.scm 2268 */
return BgL_nz00_1666;}  else 
{ 
 uint8_t BgL_nz00_17022; uint8_t BgL_mz00_17021;
BgL_mz00_17021 = BgL_nz00_1666; 
BgL_nz00_17022 = BgL_rz00_1669; 
BgL_nz00_1666 = BgL_nz00_17022; 
BgL_mz00_1665 = BgL_mz00_17021; 
goto BGl_gcd2ze76ze7zz__r4_numbers_6_5_fixnumz00;} } } } } 

}



/* &gcdu8 */
obj_t BGl_z62gcdu8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6730, obj_t BgL_xz00_6731)
{
{ /* Ieee/fixnum.scm 2268 */
{ /* Ieee/fixnum.scm 2268 */
 uint8_t BgL_tmpz00_17023;
BgL_tmpz00_17023 = 
BGl_gcdu8z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6731); 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_17023);} } 

}



/* gcds16 */
BGL_EXPORTED_DEF int16_t BGl_gcds16z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_514)
{
{ /* Ieee/fixnum.scm 2270 */
if(
NULLP(BgL_xz00_514))
{ /* Ieee/fixnum.scm 2270 */
return 
(int16_t)(0L);}  else 
{ /* Ieee/fixnum.scm 2270 */
 bool_t BgL_test6779z00_17029;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_tmpz00_17030;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_pairz00_4225;
if(
PAIRP(BgL_xz00_514))
{ /* Ieee/fixnum.scm 2270 */
BgL_pairz00_4225 = BgL_xz00_514; }  else 
{ 
 obj_t BgL_auxz00_17033;
BgL_auxz00_17033 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_514); 
FAILURE(BgL_auxz00_17033,BFALSE,BFALSE);} 
BgL_tmpz00_17030 = 
CDR(BgL_pairz00_4225); } 
BgL_test6779z00_17029 = 
NULLP(BgL_tmpz00_17030); } 
if(BgL_test6779z00_17029)
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_arg1927z00_1678;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_pairz00_4226;
if(
PAIRP(BgL_xz00_514))
{ /* Ieee/fixnum.scm 2270 */
BgL_pairz00_4226 = BgL_xz00_514; }  else 
{ 
 obj_t BgL_auxz00_17041;
BgL_auxz00_17041 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_514); 
FAILURE(BgL_auxz00_17041,BFALSE,BFALSE);} 
BgL_arg1927z00_1678 = 
CAR(BgL_pairz00_4226); } 
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_za7za7_4227;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_tmpz00_17046;
if(
BGL_INT16P(BgL_arg1927z00_1678))
{ /* Ieee/fixnum.scm 2270 */
BgL_tmpz00_17046 = BgL_arg1927z00_1678
; }  else 
{ 
 obj_t BgL_auxz00_17049;
BgL_auxz00_17049 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1927z00_1678); 
FAILURE(BgL_auxz00_17049,BFALSE,BFALSE);} 
BgL_za7za7_4227 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_17046); } 
{ /* Ieee/fixnum.scm 2005 */
 bool_t BgL_test6783z00_17054;
{ /* Ieee/fixnum.scm 2005 */
 int16_t BgL_arg1613z00_4229;
BgL_arg1613z00_4229 = 
(int16_t)(0L); 
BgL_test6783z00_17054 = 
(BgL_za7za7_4227<BgL_arg1613z00_4229); } 
if(BgL_test6783z00_17054)
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_arg1595z00_4233;
BgL_arg1595z00_4233 = 
(int16_t)(0L); 
return 
(BgL_arg1595z00_4233-BgL_za7za7_4227);}  else 
{ /* Ieee/fixnum.scm 2005 */
return BgL_za7za7_4227;} } } }  else 
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_g1044z00_1680; obj_t BgL_g1045z00_1681;
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_arg1935z00_1692; int16_t BgL_arg1936z00_1693;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_arg1937z00_1694;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_pairz00_4244;
if(
PAIRP(BgL_xz00_514))
{ /* Ieee/fixnum.scm 2270 */
BgL_pairz00_4244 = BgL_xz00_514; }  else 
{ 
 obj_t BgL_auxz00_17061;
BgL_auxz00_17061 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_514); 
FAILURE(BgL_auxz00_17061,BFALSE,BFALSE);} 
BgL_arg1937z00_1694 = 
CAR(BgL_pairz00_4244); } 
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_za7za7_4245;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_tmpz00_17066;
if(
BGL_INT16P(BgL_arg1937z00_1694))
{ /* Ieee/fixnum.scm 2270 */
BgL_tmpz00_17066 = BgL_arg1937z00_1694
; }  else 
{ 
 obj_t BgL_auxz00_17069;
BgL_auxz00_17069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1937z00_1694); 
FAILURE(BgL_auxz00_17069,BFALSE,BFALSE);} 
BgL_za7za7_4245 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_17066); } 
{ /* Ieee/fixnum.scm 2005 */
 bool_t BgL_test6786z00_17074;
{ /* Ieee/fixnum.scm 2005 */
 int16_t BgL_arg1613z00_4247;
BgL_arg1613z00_4247 = 
(int16_t)(0L); 
BgL_test6786z00_17074 = 
(BgL_za7za7_4245<BgL_arg1613z00_4247); } 
if(BgL_test6786z00_17074)
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_arg1595z00_4251;
BgL_arg1595z00_4251 = 
(int16_t)(0L); 
BgL_arg1935z00_1692 = 
(BgL_arg1595z00_4251-BgL_za7za7_4245); }  else 
{ /* Ieee/fixnum.scm 2005 */
BgL_arg1935z00_1692 = BgL_za7za7_4245; } } } } 
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_arg1938z00_1695;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_pairz00_4254;
if(
PAIRP(BgL_xz00_514))
{ /* Ieee/fixnum.scm 2270 */
BgL_pairz00_4254 = BgL_xz00_514; }  else 
{ 
 obj_t BgL_auxz00_17081;
BgL_auxz00_17081 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_514); 
FAILURE(BgL_auxz00_17081,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_pairz00_4257;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_aux4031z00_8143;
BgL_aux4031z00_8143 = 
CDR(BgL_pairz00_4254); 
if(
PAIRP(BgL_aux4031z00_8143))
{ /* Ieee/fixnum.scm 2270 */
BgL_pairz00_4257 = BgL_aux4031z00_8143; }  else 
{ 
 obj_t BgL_auxz00_17088;
BgL_auxz00_17088 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4031z00_8143); 
FAILURE(BgL_auxz00_17088,BFALSE,BFALSE);} } 
BgL_arg1938z00_1695 = 
CAR(BgL_pairz00_4257); } } 
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_za7za7_4258;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_tmpz00_17093;
if(
BGL_INT16P(BgL_arg1938z00_1695))
{ /* Ieee/fixnum.scm 2270 */
BgL_tmpz00_17093 = BgL_arg1938z00_1695
; }  else 
{ 
 obj_t BgL_auxz00_17096;
BgL_auxz00_17096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1938z00_1695); 
FAILURE(BgL_auxz00_17096,BFALSE,BFALSE);} 
BgL_za7za7_4258 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_17093); } 
{ /* Ieee/fixnum.scm 2005 */
 bool_t BgL_test6790z00_17101;
{ /* Ieee/fixnum.scm 2005 */
 int16_t BgL_arg1613z00_4260;
BgL_arg1613z00_4260 = 
(int16_t)(0L); 
BgL_test6790z00_17101 = 
(BgL_za7za7_4258<BgL_arg1613z00_4260); } 
if(BgL_test6790z00_17101)
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_arg1595z00_4264;
BgL_arg1595z00_4264 = 
(int16_t)(0L); 
BgL_arg1936z00_1693 = 
(BgL_arg1595z00_4264-BgL_za7za7_4258); }  else 
{ /* Ieee/fixnum.scm 2005 */
BgL_arg1936z00_1693 = BgL_za7za7_4258; } } } } 
BgL_g1044z00_1680 = 
BGl_gcd2ze75ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg1935z00_1692, BgL_arg1936z00_1693); } 
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_pairz00_4267;
if(
PAIRP(BgL_xz00_514))
{ /* Ieee/fixnum.scm 2270 */
BgL_pairz00_4267 = BgL_xz00_514; }  else 
{ 
 obj_t BgL_auxz00_17109;
BgL_auxz00_17109 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_514); 
FAILURE(BgL_auxz00_17109,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_pairz00_4270;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_aux4037z00_8149;
BgL_aux4037z00_8149 = 
CDR(BgL_pairz00_4267); 
if(
PAIRP(BgL_aux4037z00_8149))
{ /* Ieee/fixnum.scm 2270 */
BgL_pairz00_4270 = BgL_aux4037z00_8149; }  else 
{ 
 obj_t BgL_auxz00_17116;
BgL_auxz00_17116 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4910z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4037z00_8149); 
FAILURE(BgL_auxz00_17116,BFALSE,BFALSE);} } 
BgL_g1045z00_1681 = 
CDR(BgL_pairz00_4270); } } 
{ 
 int16_t BgL_tmpz00_4304; obj_t BgL_leftz00_4305;
BgL_tmpz00_4304 = BgL_g1044z00_1680; 
BgL_leftz00_4305 = BgL_g1045z00_1681; 
BgL_loopz00_4303:
if(
PAIRP(BgL_leftz00_4305))
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_arg1930z00_4312; obj_t BgL_arg1931z00_4313;
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_arg1933z00_4314;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_arg1934z00_4315;
BgL_arg1934z00_4315 = 
CAR(BgL_leftz00_4305); 
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_za7za7_4317;
{ /* Ieee/fixnum.scm 2270 */
 obj_t BgL_tmpz00_17124;
if(
BGL_INT16P(BgL_arg1934z00_4315))
{ /* Ieee/fixnum.scm 2270 */
BgL_tmpz00_17124 = BgL_arg1934z00_4315
; }  else 
{ 
 obj_t BgL_auxz00_17127;
BgL_auxz00_17127 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102855L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1934z00_4315); 
FAILURE(BgL_auxz00_17127,BFALSE,BFALSE);} 
BgL_za7za7_4317 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_17124); } 
{ /* Ieee/fixnum.scm 2005 */
 bool_t BgL_test6795z00_17132;
{ /* Ieee/fixnum.scm 2005 */
 int16_t BgL_arg1613z00_4319;
BgL_arg1613z00_4319 = 
(int16_t)(0L); 
BgL_test6795z00_17132 = 
(BgL_za7za7_4317<BgL_arg1613z00_4319); } 
if(BgL_test6795z00_17132)
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_arg1595z00_4323;
BgL_arg1595z00_4323 = 
(int16_t)(0L); 
BgL_arg1933z00_4314 = 
(BgL_arg1595z00_4323-BgL_za7za7_4317); }  else 
{ /* Ieee/fixnum.scm 2005 */
BgL_arg1933z00_4314 = BgL_za7za7_4317; } } } } 
BgL_arg1930z00_4312 = 
BGl_gcd2ze75ze7zz__r4_numbers_6_5_fixnumz00(BgL_tmpz00_4304, BgL_arg1933z00_4314); } 
BgL_arg1931z00_4313 = 
CDR(BgL_leftz00_4305); 
{ 
 obj_t BgL_leftz00_17140; int16_t BgL_tmpz00_17139;
BgL_tmpz00_17139 = BgL_arg1930z00_4312; 
BgL_leftz00_17140 = BgL_arg1931z00_4313; 
BgL_leftz00_4305 = BgL_leftz00_17140; 
BgL_tmpz00_4304 = BgL_tmpz00_17139; 
goto BgL_loopz00_4303;} }  else 
{ /* Ieee/fixnum.scm 2270 */
return BgL_tmpz00_4304;} } } } } 

}



/* gcd2~5 */
int16_t BGl_gcd2ze75ze7zz__r4_numbers_6_5_fixnumz00(int16_t BgL_mz00_1696, int16_t BgL_nz00_1697)
{
{ /* Ieee/fixnum.scm 2270 */
BGl_gcd2ze75ze7zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2270 */
 bool_t BgL_test6796z00_17141;
{ /* Ieee/fixnum.scm 1673 */
 int16_t BgL_arg1247z00_4237;
BgL_arg1247z00_4237 = 
(int16_t)(0L); 
BgL_test6796z00_17141 = 
(BgL_nz00_1697==BgL_arg1247z00_4237); } 
if(BgL_test6796z00_17141)
{ /* Ieee/fixnum.scm 2270 */
return BgL_mz00_1696;}  else 
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_rz00_1700;
BgL_rz00_1700 = 
(BgL_mz00_1696%BgL_nz00_1697); 
{ /* Ieee/fixnum.scm 2270 */
 bool_t BgL_test6797z00_17145;
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_arg1943z00_1703;
BgL_arg1943z00_1703 = 
(int16_t)(0L); 
BgL_test6797z00_17145 = 
(BgL_rz00_1700==BgL_arg1943z00_1703); } 
if(BgL_test6797z00_17145)
{ /* Ieee/fixnum.scm 2270 */
return BgL_nz00_1697;}  else 
{ 
 int16_t BgL_nz00_17149; int16_t BgL_mz00_17148;
BgL_mz00_17148 = BgL_nz00_1697; 
BgL_nz00_17149 = BgL_rz00_1700; 
BgL_nz00_1697 = BgL_nz00_17149; 
BgL_mz00_1696 = BgL_mz00_17148; 
goto BGl_gcd2ze75ze7zz__r4_numbers_6_5_fixnumz00;} } } } } 

}



/* &gcds16 */
obj_t BGl_z62gcds16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6732, obj_t BgL_xz00_6733)
{
{ /* Ieee/fixnum.scm 2270 */
{ /* Ieee/fixnum.scm 2270 */
 int16_t BgL_tmpz00_17150;
BgL_tmpz00_17150 = 
BGl_gcds16z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6733); 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_17150);} } 

}



/* gcdu16 */
BGL_EXPORTED_DEF uint16_t BGl_gcdu16z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_515)
{
{ /* Ieee/fixnum.scm 2271 */
if(
NULLP(BgL_xz00_515))
{ /* Ieee/fixnum.scm 2271 */
return 
(uint16_t)(0L);}  else 
{ /* Ieee/fixnum.scm 2271 */
 bool_t BgL_test6799z00_17156;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_tmpz00_17157;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_pairz00_4327;
if(
PAIRP(BgL_xz00_515))
{ /* Ieee/fixnum.scm 2271 */
BgL_pairz00_4327 = BgL_xz00_515; }  else 
{ 
 obj_t BgL_auxz00_17160;
BgL_auxz00_17160 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_515); 
FAILURE(BgL_auxz00_17160,BFALSE,BFALSE);} 
BgL_tmpz00_17157 = 
CDR(BgL_pairz00_4327); } 
BgL_test6799z00_17156 = 
NULLP(BgL_tmpz00_17157); } 
if(BgL_test6799z00_17156)
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_za7za7_4329;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_pairz00_4328;
if(
PAIRP(BgL_xz00_515))
{ /* Ieee/fixnum.scm 2271 */
BgL_pairz00_4328 = BgL_xz00_515; }  else 
{ 
 obj_t BgL_auxz00_17168;
BgL_auxz00_17168 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_515); 
FAILURE(BgL_auxz00_17168,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_tmpz00_17172;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_aux4045z00_8157;
BgL_aux4045z00_8157 = 
CAR(BgL_pairz00_4328); 
if(
BGL_UINT16P(BgL_aux4045z00_8157))
{ /* Ieee/fixnum.scm 2271 */
BgL_tmpz00_17172 = BgL_aux4045z00_8157
; }  else 
{ 
 obj_t BgL_auxz00_17176;
BgL_auxz00_17176 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4045z00_8157); 
FAILURE(BgL_auxz00_17176,BFALSE,BFALSE);} } 
BgL_za7za7_4329 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_17172); } } 
return BgL_za7za7_4329;}  else 
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_g1046z00_1711; obj_t BgL_g1047z00_1712;
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_arg1955z00_1723; uint16_t BgL_arg1956z00_1724;
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_za7za7_4339;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_pairz00_4338;
if(
PAIRP(BgL_xz00_515))
{ /* Ieee/fixnum.scm 2271 */
BgL_pairz00_4338 = BgL_xz00_515; }  else 
{ 
 obj_t BgL_auxz00_17183;
BgL_auxz00_17183 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_515); 
FAILURE(BgL_auxz00_17183,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_tmpz00_17187;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_aux4049z00_8161;
BgL_aux4049z00_8161 = 
CAR(BgL_pairz00_4338); 
if(
BGL_UINT16P(BgL_aux4049z00_8161))
{ /* Ieee/fixnum.scm 2271 */
BgL_tmpz00_17187 = BgL_aux4049z00_8161
; }  else 
{ 
 obj_t BgL_auxz00_17191;
BgL_auxz00_17191 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4049z00_8161); 
FAILURE(BgL_auxz00_17191,BFALSE,BFALSE);} } 
BgL_za7za7_4339 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_17187); } } 
BgL_arg1955z00_1723 = BgL_za7za7_4339; } 
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_za7za7_4344;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_pairz00_4340;
if(
PAIRP(BgL_xz00_515))
{ /* Ieee/fixnum.scm 2271 */
BgL_pairz00_4340 = BgL_xz00_515; }  else 
{ 
 obj_t BgL_auxz00_17198;
BgL_auxz00_17198 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_515); 
FAILURE(BgL_auxz00_17198,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_pairz00_4343;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_aux4053z00_8165;
BgL_aux4053z00_8165 = 
CDR(BgL_pairz00_4340); 
if(
PAIRP(BgL_aux4053z00_8165))
{ /* Ieee/fixnum.scm 2271 */
BgL_pairz00_4343 = BgL_aux4053z00_8165; }  else 
{ 
 obj_t BgL_auxz00_17205;
BgL_auxz00_17205 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4053z00_8165); 
FAILURE(BgL_auxz00_17205,BFALSE,BFALSE);} } 
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_tmpz00_17209;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_aux4055z00_8167;
BgL_aux4055z00_8167 = 
CAR(BgL_pairz00_4343); 
if(
BGL_UINT16P(BgL_aux4055z00_8167))
{ /* Ieee/fixnum.scm 2271 */
BgL_tmpz00_17209 = BgL_aux4055z00_8167
; }  else 
{ 
 obj_t BgL_auxz00_17213;
BgL_auxz00_17213 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4055z00_8167); 
FAILURE(BgL_auxz00_17213,BFALSE,BFALSE);} } 
BgL_za7za7_4344 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_17209); } } } 
BgL_arg1956z00_1724 = BgL_za7za7_4344; } 
BgL_g1046z00_1711 = 
BGl_gcd2ze74ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg1955z00_1723, BgL_arg1956z00_1724); } 
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_pairz00_4345;
if(
PAIRP(BgL_xz00_515))
{ /* Ieee/fixnum.scm 2271 */
BgL_pairz00_4345 = BgL_xz00_515; }  else 
{ 
 obj_t BgL_auxz00_17221;
BgL_auxz00_17221 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_515); 
FAILURE(BgL_auxz00_17221,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_pairz00_4348;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_aux4059z00_8171;
BgL_aux4059z00_8171 = 
CDR(BgL_pairz00_4345); 
if(
PAIRP(BgL_aux4059z00_8171))
{ /* Ieee/fixnum.scm 2271 */
BgL_pairz00_4348 = BgL_aux4059z00_8171; }  else 
{ 
 obj_t BgL_auxz00_17228;
BgL_auxz00_17228 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4911z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4059z00_8171); 
FAILURE(BgL_auxz00_17228,BFALSE,BFALSE);} } 
BgL_g1047z00_1712 = 
CDR(BgL_pairz00_4348); } } 
{ 
 uint16_t BgL_tmpz00_4366; obj_t BgL_leftz00_4367;
BgL_tmpz00_4366 = BgL_g1046z00_1711; 
BgL_leftz00_4367 = BgL_g1047z00_1712; 
BgL_loopz00_4365:
if(
PAIRP(BgL_leftz00_4367))
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_arg1951z00_4374; obj_t BgL_arg1952z00_4375;
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_arg1953z00_4376;
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_za7za7_4379;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_tmpz00_17235;
{ /* Ieee/fixnum.scm 2271 */
 obj_t BgL_aux4061z00_8173;
BgL_aux4061z00_8173 = 
CAR(BgL_leftz00_4367); 
if(
BGL_UINT16P(BgL_aux4061z00_8173))
{ /* Ieee/fixnum.scm 2271 */
BgL_tmpz00_17235 = BgL_aux4061z00_8173
; }  else 
{ 
 obj_t BgL_auxz00_17239;
BgL_auxz00_17239 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102909L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4061z00_8173); 
FAILURE(BgL_auxz00_17239,BFALSE,BFALSE);} } 
BgL_za7za7_4379 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_17235); } 
BgL_arg1953z00_4376 = BgL_za7za7_4379; } 
BgL_arg1951z00_4374 = 
BGl_gcd2ze74ze7zz__r4_numbers_6_5_fixnumz00(BgL_tmpz00_4366, BgL_arg1953z00_4376); } 
BgL_arg1952z00_4375 = 
CDR(BgL_leftz00_4367); 
{ 
 obj_t BgL_leftz00_17247; uint16_t BgL_tmpz00_17246;
BgL_tmpz00_17246 = BgL_arg1951z00_4374; 
BgL_leftz00_17247 = BgL_arg1952z00_4375; 
BgL_leftz00_4367 = BgL_leftz00_17247; 
BgL_tmpz00_4366 = BgL_tmpz00_17246; 
goto BgL_loopz00_4365;} }  else 
{ /* Ieee/fixnum.scm 2271 */
return BgL_tmpz00_4366;} } } } } 

}



/* gcd2~4 */
uint16_t BGl_gcd2ze74ze7zz__r4_numbers_6_5_fixnumz00(uint16_t BgL_mz00_1727, uint16_t BgL_nz00_1728)
{
{ /* Ieee/fixnum.scm 2271 */
BGl_gcd2ze74ze7zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2271 */
 bool_t BgL_test6812z00_17248;
{ /* Ieee/fixnum.scm 1674 */
 uint16_t BgL_arg1248z00_4331;
BgL_arg1248z00_4331 = 
(uint16_t)(0L); 
BgL_test6812z00_17248 = 
(BgL_nz00_1728==BgL_arg1248z00_4331); } 
if(BgL_test6812z00_17248)
{ /* Ieee/fixnum.scm 2271 */
return BgL_mz00_1727;}  else 
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_rz00_1731;
{ /* Ieee/fixnum.scm 2128 */
 int16_t BgL_tmpz00_17251;
BgL_tmpz00_17251 = 
(int16_t)(BgL_nz00_1728); 
BgL_rz00_1731 = 
(BgL_mz00_1727%BgL_tmpz00_17251); } 
{ /* Ieee/fixnum.scm 2271 */
 bool_t BgL_test6813z00_17254;
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_arg1963z00_1734;
BgL_arg1963z00_1734 = 
(uint16_t)(0L); 
BgL_test6813z00_17254 = 
(BgL_rz00_1731==BgL_arg1963z00_1734); } 
if(BgL_test6813z00_17254)
{ /* Ieee/fixnum.scm 2271 */
return BgL_nz00_1728;}  else 
{ 
 uint16_t BgL_nz00_17258; uint16_t BgL_mz00_17257;
BgL_mz00_17257 = BgL_nz00_1728; 
BgL_nz00_17258 = BgL_rz00_1731; 
BgL_nz00_1728 = BgL_nz00_17258; 
BgL_mz00_1727 = BgL_mz00_17257; 
goto BGl_gcd2ze74ze7zz__r4_numbers_6_5_fixnumz00;} } } } } 

}



/* &gcdu16 */
obj_t BGl_z62gcdu16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6734, obj_t BgL_xz00_6735)
{
{ /* Ieee/fixnum.scm 2271 */
{ /* Ieee/fixnum.scm 2271 */
 uint16_t BgL_tmpz00_17259;
BgL_tmpz00_17259 = 
BGl_gcdu16z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6735); 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_17259);} } 

}



/* gcds32 */
BGL_EXPORTED_DEF int32_t BGl_gcds32z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_516)
{
{ /* Ieee/fixnum.scm 2273 */
if(
NULLP(BgL_xz00_516))
{ /* Ieee/fixnum.scm 2273 */
return 
(int32_t)(0L);}  else 
{ /* Ieee/fixnum.scm 2273 */
 bool_t BgL_test6815z00_17265;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_tmpz00_17266;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_pairz00_4381;
if(
PAIRP(BgL_xz00_516))
{ /* Ieee/fixnum.scm 2273 */
BgL_pairz00_4381 = BgL_xz00_516; }  else 
{ 
 obj_t BgL_auxz00_17269;
BgL_auxz00_17269 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_516); 
FAILURE(BgL_auxz00_17269,BFALSE,BFALSE);} 
BgL_tmpz00_17266 = 
CDR(BgL_pairz00_4381); } 
BgL_test6815z00_17265 = 
NULLP(BgL_tmpz00_17266); } 
if(BgL_test6815z00_17265)
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_arg1968z00_1740;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_pairz00_4382;
if(
PAIRP(BgL_xz00_516))
{ /* Ieee/fixnum.scm 2273 */
BgL_pairz00_4382 = BgL_xz00_516; }  else 
{ 
 obj_t BgL_auxz00_17277;
BgL_auxz00_17277 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_516); 
FAILURE(BgL_auxz00_17277,BFALSE,BFALSE);} 
BgL_arg1968z00_1740 = 
CAR(BgL_pairz00_4382); } 
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_za7za7_4383;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_tmpz00_17282;
if(
BGL_INT32P(BgL_arg1968z00_1740))
{ /* Ieee/fixnum.scm 2273 */
BgL_tmpz00_17282 = BgL_arg1968z00_1740
; }  else 
{ 
 obj_t BgL_auxz00_17285;
BgL_auxz00_17285 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1968z00_1740); 
FAILURE(BgL_auxz00_17285,BFALSE,BFALSE);} 
BgL_za7za7_4383 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_17282); } 
{ /* Ieee/fixnum.scm 2008 */
 bool_t BgL_test6819z00_17290;
{ /* Ieee/fixnum.scm 2008 */
 int32_t BgL_arg1616z00_4385;
BgL_arg1616z00_4385 = 
(int32_t)(0L); 
BgL_test6819z00_17290 = 
(BgL_za7za7_4383<BgL_arg1616z00_4385); } 
if(BgL_test6819z00_17290)
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_arg1598z00_4389;
BgL_arg1598z00_4389 = 
(int32_t)(0L); 
return 
(BgL_arg1598z00_4389-BgL_za7za7_4383);}  else 
{ /* Ieee/fixnum.scm 2008 */
return BgL_za7za7_4383;} } } }  else 
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_g1048z00_1742; obj_t BgL_g1049z00_1743;
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_arg1975z00_1754; int32_t BgL_arg1976z00_1755;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_arg1977z00_1756;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_pairz00_4400;
if(
PAIRP(BgL_xz00_516))
{ /* Ieee/fixnum.scm 2273 */
BgL_pairz00_4400 = BgL_xz00_516; }  else 
{ 
 obj_t BgL_auxz00_17297;
BgL_auxz00_17297 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_516); 
FAILURE(BgL_auxz00_17297,BFALSE,BFALSE);} 
BgL_arg1977z00_1756 = 
CAR(BgL_pairz00_4400); } 
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_za7za7_4401;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_tmpz00_17302;
if(
BGL_INT32P(BgL_arg1977z00_1756))
{ /* Ieee/fixnum.scm 2273 */
BgL_tmpz00_17302 = BgL_arg1977z00_1756
; }  else 
{ 
 obj_t BgL_auxz00_17305;
BgL_auxz00_17305 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1977z00_1756); 
FAILURE(BgL_auxz00_17305,BFALSE,BFALSE);} 
BgL_za7za7_4401 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_17302); } 
{ /* Ieee/fixnum.scm 2008 */
 bool_t BgL_test6822z00_17310;
{ /* Ieee/fixnum.scm 2008 */
 int32_t BgL_arg1616z00_4403;
BgL_arg1616z00_4403 = 
(int32_t)(0L); 
BgL_test6822z00_17310 = 
(BgL_za7za7_4401<BgL_arg1616z00_4403); } 
if(BgL_test6822z00_17310)
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_arg1598z00_4407;
BgL_arg1598z00_4407 = 
(int32_t)(0L); 
BgL_arg1975z00_1754 = 
(BgL_arg1598z00_4407-BgL_za7za7_4401); }  else 
{ /* Ieee/fixnum.scm 2008 */
BgL_arg1975z00_1754 = BgL_za7za7_4401; } } } } 
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_arg1978z00_1757;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_pairz00_4410;
if(
PAIRP(BgL_xz00_516))
{ /* Ieee/fixnum.scm 2273 */
BgL_pairz00_4410 = BgL_xz00_516; }  else 
{ 
 obj_t BgL_auxz00_17317;
BgL_auxz00_17317 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_516); 
FAILURE(BgL_auxz00_17317,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_pairz00_4413;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_aux4075z00_8187;
BgL_aux4075z00_8187 = 
CDR(BgL_pairz00_4410); 
if(
PAIRP(BgL_aux4075z00_8187))
{ /* Ieee/fixnum.scm 2273 */
BgL_pairz00_4413 = BgL_aux4075z00_8187; }  else 
{ 
 obj_t BgL_auxz00_17324;
BgL_auxz00_17324 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4075z00_8187); 
FAILURE(BgL_auxz00_17324,BFALSE,BFALSE);} } 
BgL_arg1978z00_1757 = 
CAR(BgL_pairz00_4413); } } 
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_za7za7_4414;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_tmpz00_17329;
if(
BGL_INT32P(BgL_arg1978z00_1757))
{ /* Ieee/fixnum.scm 2273 */
BgL_tmpz00_17329 = BgL_arg1978z00_1757
; }  else 
{ 
 obj_t BgL_auxz00_17332;
BgL_auxz00_17332 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1978z00_1757); 
FAILURE(BgL_auxz00_17332,BFALSE,BFALSE);} 
BgL_za7za7_4414 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_17329); } 
{ /* Ieee/fixnum.scm 2008 */
 bool_t BgL_test6826z00_17337;
{ /* Ieee/fixnum.scm 2008 */
 int32_t BgL_arg1616z00_4416;
BgL_arg1616z00_4416 = 
(int32_t)(0L); 
BgL_test6826z00_17337 = 
(BgL_za7za7_4414<BgL_arg1616z00_4416); } 
if(BgL_test6826z00_17337)
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_arg1598z00_4420;
BgL_arg1598z00_4420 = 
(int32_t)(0L); 
BgL_arg1976z00_1755 = 
(BgL_arg1598z00_4420-BgL_za7za7_4414); }  else 
{ /* Ieee/fixnum.scm 2008 */
BgL_arg1976z00_1755 = BgL_za7za7_4414; } } } } 
BgL_g1048z00_1742 = 
BGl_gcd2ze73ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg1975z00_1754, BgL_arg1976z00_1755); } 
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_pairz00_4423;
if(
PAIRP(BgL_xz00_516))
{ /* Ieee/fixnum.scm 2273 */
BgL_pairz00_4423 = BgL_xz00_516; }  else 
{ 
 obj_t BgL_auxz00_17345;
BgL_auxz00_17345 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_516); 
FAILURE(BgL_auxz00_17345,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_pairz00_4426;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_aux4081z00_8193;
BgL_aux4081z00_8193 = 
CDR(BgL_pairz00_4423); 
if(
PAIRP(BgL_aux4081z00_8193))
{ /* Ieee/fixnum.scm 2273 */
BgL_pairz00_4426 = BgL_aux4081z00_8193; }  else 
{ 
 obj_t BgL_auxz00_17352;
BgL_auxz00_17352 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4912z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4081z00_8193); 
FAILURE(BgL_auxz00_17352,BFALSE,BFALSE);} } 
BgL_g1049z00_1743 = 
CDR(BgL_pairz00_4426); } } 
{ 
 int32_t BgL_tmpz00_4460; obj_t BgL_leftz00_4461;
BgL_tmpz00_4460 = BgL_g1048z00_1742; 
BgL_leftz00_4461 = BgL_g1049z00_1743; 
BgL_loopz00_4459:
if(
PAIRP(BgL_leftz00_4461))
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_arg1971z00_4468; obj_t BgL_arg1972z00_4469;
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_arg1973z00_4470;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_arg1974z00_4471;
BgL_arg1974z00_4471 = 
CAR(BgL_leftz00_4461); 
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_za7za7_4473;
{ /* Ieee/fixnum.scm 2273 */
 obj_t BgL_tmpz00_17360;
if(
BGL_INT32P(BgL_arg1974z00_4471))
{ /* Ieee/fixnum.scm 2273 */
BgL_tmpz00_17360 = BgL_arg1974z00_4471
; }  else 
{ 
 obj_t BgL_auxz00_17363;
BgL_auxz00_17363 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(102965L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1974z00_4471); 
FAILURE(BgL_auxz00_17363,BFALSE,BFALSE);} 
BgL_za7za7_4473 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_17360); } 
{ /* Ieee/fixnum.scm 2008 */
 bool_t BgL_test6831z00_17368;
{ /* Ieee/fixnum.scm 2008 */
 int32_t BgL_arg1616z00_4475;
BgL_arg1616z00_4475 = 
(int32_t)(0L); 
BgL_test6831z00_17368 = 
(BgL_za7za7_4473<BgL_arg1616z00_4475); } 
if(BgL_test6831z00_17368)
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_arg1598z00_4479;
BgL_arg1598z00_4479 = 
(int32_t)(0L); 
BgL_arg1973z00_4470 = 
(BgL_arg1598z00_4479-BgL_za7za7_4473); }  else 
{ /* Ieee/fixnum.scm 2008 */
BgL_arg1973z00_4470 = BgL_za7za7_4473; } } } } 
BgL_arg1971z00_4468 = 
BGl_gcd2ze73ze7zz__r4_numbers_6_5_fixnumz00(BgL_tmpz00_4460, BgL_arg1973z00_4470); } 
BgL_arg1972z00_4469 = 
CDR(BgL_leftz00_4461); 
{ 
 obj_t BgL_leftz00_17376; int32_t BgL_tmpz00_17375;
BgL_tmpz00_17375 = BgL_arg1971z00_4468; 
BgL_leftz00_17376 = BgL_arg1972z00_4469; 
BgL_leftz00_4461 = BgL_leftz00_17376; 
BgL_tmpz00_4460 = BgL_tmpz00_17375; 
goto BgL_loopz00_4459;} }  else 
{ /* Ieee/fixnum.scm 2273 */
return BgL_tmpz00_4460;} } } } } 

}



/* gcd2~3 */
int32_t BGl_gcd2ze73ze7zz__r4_numbers_6_5_fixnumz00(int32_t BgL_mz00_1758, int32_t BgL_nz00_1759)
{
{ /* Ieee/fixnum.scm 2273 */
BGl_gcd2ze73ze7zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2273 */
 bool_t BgL_test6832z00_17377;
{ /* Ieee/fixnum.scm 1676 */
 int32_t BgL_arg1249z00_4393;
BgL_arg1249z00_4393 = 
(int32_t)(0L); 
BgL_test6832z00_17377 = 
(BgL_nz00_1759==BgL_arg1249z00_4393); } 
if(BgL_test6832z00_17377)
{ /* Ieee/fixnum.scm 2273 */
return BgL_mz00_1758;}  else 
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_rz00_1762;
BgL_rz00_1762 = 
(BgL_mz00_1758%BgL_nz00_1759); 
{ /* Ieee/fixnum.scm 2273 */
 bool_t BgL_test6833z00_17381;
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_arg1983z00_1765;
BgL_arg1983z00_1765 = 
(int32_t)(0L); 
BgL_test6833z00_17381 = 
(BgL_rz00_1762==BgL_arg1983z00_1765); } 
if(BgL_test6833z00_17381)
{ /* Ieee/fixnum.scm 2273 */
return BgL_nz00_1759;}  else 
{ 
 int32_t BgL_nz00_17385; int32_t BgL_mz00_17384;
BgL_mz00_17384 = BgL_nz00_1759; 
BgL_nz00_17385 = BgL_rz00_1762; 
BgL_nz00_1759 = BgL_nz00_17385; 
BgL_mz00_1758 = BgL_mz00_17384; 
goto BGl_gcd2ze73ze7zz__r4_numbers_6_5_fixnumz00;} } } } } 

}



/* &gcds32 */
obj_t BGl_z62gcds32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6736, obj_t BgL_xz00_6737)
{
{ /* Ieee/fixnum.scm 2273 */
{ /* Ieee/fixnum.scm 2273 */
 int32_t BgL_tmpz00_17386;
BgL_tmpz00_17386 = 
BGl_gcds32z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6737); 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_17386);} } 

}



/* gcdu32 */
BGL_EXPORTED_DEF uint32_t BGl_gcdu32z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_517)
{
{ /* Ieee/fixnum.scm 2274 */
if(
NULLP(BgL_xz00_517))
{ /* Ieee/fixnum.scm 2274 */
return 
(uint32_t)(0L);}  else 
{ /* Ieee/fixnum.scm 2274 */
 bool_t BgL_test6835z00_17392;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_tmpz00_17393;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_pairz00_4483;
if(
PAIRP(BgL_xz00_517))
{ /* Ieee/fixnum.scm 2274 */
BgL_pairz00_4483 = BgL_xz00_517; }  else 
{ 
 obj_t BgL_auxz00_17396;
BgL_auxz00_17396 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_517); 
FAILURE(BgL_auxz00_17396,BFALSE,BFALSE);} 
BgL_tmpz00_17393 = 
CDR(BgL_pairz00_4483); } 
BgL_test6835z00_17392 = 
NULLP(BgL_tmpz00_17393); } 
if(BgL_test6835z00_17392)
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_za7za7_4485;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_pairz00_4484;
if(
PAIRP(BgL_xz00_517))
{ /* Ieee/fixnum.scm 2274 */
BgL_pairz00_4484 = BgL_xz00_517; }  else 
{ 
 obj_t BgL_auxz00_17404;
BgL_auxz00_17404 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_517); 
FAILURE(BgL_auxz00_17404,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_tmpz00_17408;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_aux4089z00_8201;
BgL_aux4089z00_8201 = 
CAR(BgL_pairz00_4484); 
if(
BGL_UINT32P(BgL_aux4089z00_8201))
{ /* Ieee/fixnum.scm 2274 */
BgL_tmpz00_17408 = BgL_aux4089z00_8201
; }  else 
{ 
 obj_t BgL_auxz00_17412;
BgL_auxz00_17412 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4089z00_8201); 
FAILURE(BgL_auxz00_17412,BFALSE,BFALSE);} } 
BgL_za7za7_4485 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_17408); } } 
return BgL_za7za7_4485;}  else 
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_g1050z00_1773; obj_t BgL_g1051z00_1774;
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_arg1995z00_1785; uint32_t BgL_arg1996z00_1786;
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_za7za7_4495;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_pairz00_4494;
if(
PAIRP(BgL_xz00_517))
{ /* Ieee/fixnum.scm 2274 */
BgL_pairz00_4494 = BgL_xz00_517; }  else 
{ 
 obj_t BgL_auxz00_17419;
BgL_auxz00_17419 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_517); 
FAILURE(BgL_auxz00_17419,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_tmpz00_17423;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_aux4093z00_8205;
BgL_aux4093z00_8205 = 
CAR(BgL_pairz00_4494); 
if(
BGL_UINT32P(BgL_aux4093z00_8205))
{ /* Ieee/fixnum.scm 2274 */
BgL_tmpz00_17423 = BgL_aux4093z00_8205
; }  else 
{ 
 obj_t BgL_auxz00_17427;
BgL_auxz00_17427 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4093z00_8205); 
FAILURE(BgL_auxz00_17427,BFALSE,BFALSE);} } 
BgL_za7za7_4495 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_17423); } } 
BgL_arg1995z00_1785 = BgL_za7za7_4495; } 
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_za7za7_4500;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_pairz00_4496;
if(
PAIRP(BgL_xz00_517))
{ /* Ieee/fixnum.scm 2274 */
BgL_pairz00_4496 = BgL_xz00_517; }  else 
{ 
 obj_t BgL_auxz00_17434;
BgL_auxz00_17434 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_517); 
FAILURE(BgL_auxz00_17434,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_pairz00_4499;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_aux4097z00_8209;
BgL_aux4097z00_8209 = 
CDR(BgL_pairz00_4496); 
if(
PAIRP(BgL_aux4097z00_8209))
{ /* Ieee/fixnum.scm 2274 */
BgL_pairz00_4499 = BgL_aux4097z00_8209; }  else 
{ 
 obj_t BgL_auxz00_17441;
BgL_auxz00_17441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4097z00_8209); 
FAILURE(BgL_auxz00_17441,BFALSE,BFALSE);} } 
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_tmpz00_17445;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_aux4099z00_8211;
BgL_aux4099z00_8211 = 
CAR(BgL_pairz00_4499); 
if(
BGL_UINT32P(BgL_aux4099z00_8211))
{ /* Ieee/fixnum.scm 2274 */
BgL_tmpz00_17445 = BgL_aux4099z00_8211
; }  else 
{ 
 obj_t BgL_auxz00_17449;
BgL_auxz00_17449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4099z00_8211); 
FAILURE(BgL_auxz00_17449,BFALSE,BFALSE);} } 
BgL_za7za7_4500 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_17445); } } } 
BgL_arg1996z00_1786 = BgL_za7za7_4500; } 
BgL_g1050z00_1773 = 
BGl_gcd2ze72ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg1995z00_1785, BgL_arg1996z00_1786); } 
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_pairz00_4501;
if(
PAIRP(BgL_xz00_517))
{ /* Ieee/fixnum.scm 2274 */
BgL_pairz00_4501 = BgL_xz00_517; }  else 
{ 
 obj_t BgL_auxz00_17457;
BgL_auxz00_17457 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_517); 
FAILURE(BgL_auxz00_17457,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_pairz00_4504;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_aux4103z00_8215;
BgL_aux4103z00_8215 = 
CDR(BgL_pairz00_4501); 
if(
PAIRP(BgL_aux4103z00_8215))
{ /* Ieee/fixnum.scm 2274 */
BgL_pairz00_4504 = BgL_aux4103z00_8215; }  else 
{ 
 obj_t BgL_auxz00_17464;
BgL_auxz00_17464 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4913z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4103z00_8215); 
FAILURE(BgL_auxz00_17464,BFALSE,BFALSE);} } 
BgL_g1051z00_1774 = 
CDR(BgL_pairz00_4504); } } 
{ 
 uint32_t BgL_tmpz00_4522; obj_t BgL_leftz00_4523;
BgL_tmpz00_4522 = BgL_g1050z00_1773; 
BgL_leftz00_4523 = BgL_g1051z00_1774; 
BgL_loopz00_4521:
if(
PAIRP(BgL_leftz00_4523))
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_arg1991z00_4530; obj_t BgL_arg1992z00_4531;
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_arg1993z00_4532;
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_za7za7_4535;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_tmpz00_17471;
{ /* Ieee/fixnum.scm 2274 */
 obj_t BgL_aux4105z00_8217;
BgL_aux4105z00_8217 = 
CAR(BgL_leftz00_4523); 
if(
BGL_UINT32P(BgL_aux4105z00_8217))
{ /* Ieee/fixnum.scm 2274 */
BgL_tmpz00_17471 = BgL_aux4105z00_8217
; }  else 
{ 
 obj_t BgL_auxz00_17475;
BgL_auxz00_17475 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103019L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4105z00_8217); 
FAILURE(BgL_auxz00_17475,BFALSE,BFALSE);} } 
BgL_za7za7_4535 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_17471); } 
BgL_arg1993z00_4532 = BgL_za7za7_4535; } 
BgL_arg1991z00_4530 = 
BGl_gcd2ze72ze7zz__r4_numbers_6_5_fixnumz00(BgL_tmpz00_4522, BgL_arg1993z00_4532); } 
BgL_arg1992z00_4531 = 
CDR(BgL_leftz00_4523); 
{ 
 obj_t BgL_leftz00_17483; uint32_t BgL_tmpz00_17482;
BgL_tmpz00_17482 = BgL_arg1991z00_4530; 
BgL_leftz00_17483 = BgL_arg1992z00_4531; 
BgL_leftz00_4523 = BgL_leftz00_17483; 
BgL_tmpz00_4522 = BgL_tmpz00_17482; 
goto BgL_loopz00_4521;} }  else 
{ /* Ieee/fixnum.scm 2274 */
return BgL_tmpz00_4522;} } } } } 

}



/* gcd2~2 */
uint32_t BGl_gcd2ze72ze7zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_mz00_1789, uint32_t BgL_nz00_1790)
{
{ /* Ieee/fixnum.scm 2274 */
BGl_gcd2ze72ze7zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2274 */
 bool_t BgL_test6848z00_17484;
{ /* Ieee/fixnum.scm 1677 */
 uint32_t BgL_arg1250z00_4487;
BgL_arg1250z00_4487 = 
(uint32_t)(0L); 
BgL_test6848z00_17484 = 
(BgL_nz00_1790==BgL_arg1250z00_4487); } 
if(BgL_test6848z00_17484)
{ /* Ieee/fixnum.scm 2274 */
return BgL_mz00_1789;}  else 
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_rz00_1793;
{ /* Ieee/fixnum.scm 2131 */
 int32_t BgL_tmpz00_17487;
BgL_tmpz00_17487 = 
(int32_t)(BgL_nz00_1790); 
BgL_rz00_1793 = 
(BgL_mz00_1789%BgL_tmpz00_17487); } 
{ /* Ieee/fixnum.scm 2274 */
 bool_t BgL_test6849z00_17490;
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_arg2003z00_1796;
BgL_arg2003z00_1796 = 
(uint32_t)(0L); 
BgL_test6849z00_17490 = 
(BgL_rz00_1793==BgL_arg2003z00_1796); } 
if(BgL_test6849z00_17490)
{ /* Ieee/fixnum.scm 2274 */
return BgL_nz00_1790;}  else 
{ 
 uint32_t BgL_nz00_17494; uint32_t BgL_mz00_17493;
BgL_mz00_17493 = BgL_nz00_1790; 
BgL_nz00_17494 = BgL_rz00_1793; 
BgL_nz00_1790 = BgL_nz00_17494; 
BgL_mz00_1789 = BgL_mz00_17493; 
goto BGl_gcd2ze72ze7zz__r4_numbers_6_5_fixnumz00;} } } } } 

}



/* &gcdu32 */
obj_t BGl_z62gcdu32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6738, obj_t BgL_xz00_6739)
{
{ /* Ieee/fixnum.scm 2274 */
{ /* Ieee/fixnum.scm 2274 */
 uint32_t BgL_tmpz00_17495;
BgL_tmpz00_17495 = 
BGl_gcdu32z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6739); 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_17495);} } 

}



/* gcds64 */
BGL_EXPORTED_DEF int64_t BGl_gcds64z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_518)
{
{ /* Ieee/fixnum.scm 2276 */
if(
NULLP(BgL_xz00_518))
{ /* Ieee/fixnum.scm 2276 */
return 
(int64_t)(0L);}  else 
{ /* Ieee/fixnum.scm 2276 */
 bool_t BgL_test6851z00_17501;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_tmpz00_17502;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_pairz00_4537;
if(
PAIRP(BgL_xz00_518))
{ /* Ieee/fixnum.scm 2276 */
BgL_pairz00_4537 = BgL_xz00_518; }  else 
{ 
 obj_t BgL_auxz00_17505;
BgL_auxz00_17505 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_518); 
FAILURE(BgL_auxz00_17505,BFALSE,BFALSE);} 
BgL_tmpz00_17502 = 
CDR(BgL_pairz00_4537); } 
BgL_test6851z00_17501 = 
NULLP(BgL_tmpz00_17502); } 
if(BgL_test6851z00_17501)
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_arg2008z00_1802;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_pairz00_4538;
if(
PAIRP(BgL_xz00_518))
{ /* Ieee/fixnum.scm 2276 */
BgL_pairz00_4538 = BgL_xz00_518; }  else 
{ 
 obj_t BgL_auxz00_17513;
BgL_auxz00_17513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_518); 
FAILURE(BgL_auxz00_17513,BFALSE,BFALSE);} 
BgL_arg2008z00_1802 = 
CAR(BgL_pairz00_4538); } 
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_za7za7_4539;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_tmpz00_17518;
if(
BGL_INT64P(BgL_arg2008z00_1802))
{ /* Ieee/fixnum.scm 2276 */
BgL_tmpz00_17518 = BgL_arg2008z00_1802
; }  else 
{ 
 obj_t BgL_auxz00_17521;
BgL_auxz00_17521 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_arg2008z00_1802); 
FAILURE(BgL_auxz00_17521,BFALSE,BFALSE);} 
BgL_za7za7_4539 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_17518); } 
{ /* Ieee/fixnum.scm 2011 */
 bool_t BgL_test6855z00_17526;
{ /* Ieee/fixnum.scm 2011 */
 int64_t BgL_arg1619z00_4541;
BgL_arg1619z00_4541 = 
(int64_t)(0L); 
BgL_test6855z00_17526 = 
(BgL_za7za7_4539<BgL_arg1619z00_4541); } 
if(BgL_test6855z00_17526)
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_arg1602z00_4545;
BgL_arg1602z00_4545 = 
(int64_t)(0L); 
return 
(BgL_arg1602z00_4545-BgL_za7za7_4539);}  else 
{ /* Ieee/fixnum.scm 2011 */
return BgL_za7za7_4539;} } } }  else 
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_g1052z00_1804; obj_t BgL_g1053z00_1805;
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_arg2015z00_1816; int64_t BgL_arg2016z00_1817;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_arg2018z00_1818;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_pairz00_4556;
if(
PAIRP(BgL_xz00_518))
{ /* Ieee/fixnum.scm 2276 */
BgL_pairz00_4556 = BgL_xz00_518; }  else 
{ 
 obj_t BgL_auxz00_17533;
BgL_auxz00_17533 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_518); 
FAILURE(BgL_auxz00_17533,BFALSE,BFALSE);} 
BgL_arg2018z00_1818 = 
CAR(BgL_pairz00_4556); } 
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_za7za7_4557;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_tmpz00_17538;
if(
BGL_INT64P(BgL_arg2018z00_1818))
{ /* Ieee/fixnum.scm 2276 */
BgL_tmpz00_17538 = BgL_arg2018z00_1818
; }  else 
{ 
 obj_t BgL_auxz00_17541;
BgL_auxz00_17541 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_arg2018z00_1818); 
FAILURE(BgL_auxz00_17541,BFALSE,BFALSE);} 
BgL_za7za7_4557 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_17538); } 
{ /* Ieee/fixnum.scm 2011 */
 bool_t BgL_test6858z00_17546;
{ /* Ieee/fixnum.scm 2011 */
 int64_t BgL_arg1619z00_4559;
BgL_arg1619z00_4559 = 
(int64_t)(0L); 
BgL_test6858z00_17546 = 
(BgL_za7za7_4557<BgL_arg1619z00_4559); } 
if(BgL_test6858z00_17546)
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_arg1602z00_4563;
BgL_arg1602z00_4563 = 
(int64_t)(0L); 
BgL_arg2015z00_1816 = 
(BgL_arg1602z00_4563-BgL_za7za7_4557); }  else 
{ /* Ieee/fixnum.scm 2011 */
BgL_arg2015z00_1816 = BgL_za7za7_4557; } } } } 
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_arg2019z00_1819;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_pairz00_4566;
if(
PAIRP(BgL_xz00_518))
{ /* Ieee/fixnum.scm 2276 */
BgL_pairz00_4566 = BgL_xz00_518; }  else 
{ 
 obj_t BgL_auxz00_17553;
BgL_auxz00_17553 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_518); 
FAILURE(BgL_auxz00_17553,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_pairz00_4569;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_aux4119z00_8231;
BgL_aux4119z00_8231 = 
CDR(BgL_pairz00_4566); 
if(
PAIRP(BgL_aux4119z00_8231))
{ /* Ieee/fixnum.scm 2276 */
BgL_pairz00_4569 = BgL_aux4119z00_8231; }  else 
{ 
 obj_t BgL_auxz00_17560;
BgL_auxz00_17560 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4119z00_8231); 
FAILURE(BgL_auxz00_17560,BFALSE,BFALSE);} } 
BgL_arg2019z00_1819 = 
CAR(BgL_pairz00_4569); } } 
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_za7za7_4570;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_tmpz00_17565;
if(
BGL_INT64P(BgL_arg2019z00_1819))
{ /* Ieee/fixnum.scm 2276 */
BgL_tmpz00_17565 = BgL_arg2019z00_1819
; }  else 
{ 
 obj_t BgL_auxz00_17568;
BgL_auxz00_17568 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_arg2019z00_1819); 
FAILURE(BgL_auxz00_17568,BFALSE,BFALSE);} 
BgL_za7za7_4570 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_17565); } 
{ /* Ieee/fixnum.scm 2011 */
 bool_t BgL_test6862z00_17573;
{ /* Ieee/fixnum.scm 2011 */
 int64_t BgL_arg1619z00_4572;
BgL_arg1619z00_4572 = 
(int64_t)(0L); 
BgL_test6862z00_17573 = 
(BgL_za7za7_4570<BgL_arg1619z00_4572); } 
if(BgL_test6862z00_17573)
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_arg1602z00_4576;
BgL_arg1602z00_4576 = 
(int64_t)(0L); 
BgL_arg2016z00_1817 = 
(BgL_arg1602z00_4576-BgL_za7za7_4570); }  else 
{ /* Ieee/fixnum.scm 2011 */
BgL_arg2016z00_1817 = BgL_za7za7_4570; } } } } 
BgL_g1052z00_1804 = 
BGl_gcd2ze71ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2015z00_1816, BgL_arg2016z00_1817); } 
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_pairz00_4579;
if(
PAIRP(BgL_xz00_518))
{ /* Ieee/fixnum.scm 2276 */
BgL_pairz00_4579 = BgL_xz00_518; }  else 
{ 
 obj_t BgL_auxz00_17581;
BgL_auxz00_17581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_518); 
FAILURE(BgL_auxz00_17581,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_pairz00_4582;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_aux4125z00_8237;
BgL_aux4125z00_8237 = 
CDR(BgL_pairz00_4579); 
if(
PAIRP(BgL_aux4125z00_8237))
{ /* Ieee/fixnum.scm 2276 */
BgL_pairz00_4582 = BgL_aux4125z00_8237; }  else 
{ 
 obj_t BgL_auxz00_17588;
BgL_auxz00_17588 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4914z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4125z00_8237); 
FAILURE(BgL_auxz00_17588,BFALSE,BFALSE);} } 
BgL_g1053z00_1805 = 
CDR(BgL_pairz00_4582); } } 
{ 
 int64_t BgL_tmpz00_4616; obj_t BgL_leftz00_4617;
BgL_tmpz00_4616 = BgL_g1052z00_1804; 
BgL_leftz00_4617 = BgL_g1053z00_1805; 
BgL_loopz00_4615:
if(
PAIRP(BgL_leftz00_4617))
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_arg2011z00_4624; obj_t BgL_arg2012z00_4625;
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_arg2013z00_4626;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_arg2014z00_4627;
BgL_arg2014z00_4627 = 
CAR(BgL_leftz00_4617); 
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_za7za7_4629;
{ /* Ieee/fixnum.scm 2276 */
 obj_t BgL_tmpz00_17596;
if(
BGL_INT64P(BgL_arg2014z00_4627))
{ /* Ieee/fixnum.scm 2276 */
BgL_tmpz00_17596 = BgL_arg2014z00_4627
; }  else 
{ 
 obj_t BgL_auxz00_17599;
BgL_auxz00_17599 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103075L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_arg2014z00_4627); 
FAILURE(BgL_auxz00_17599,BFALSE,BFALSE);} 
BgL_za7za7_4629 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_17596); } 
{ /* Ieee/fixnum.scm 2011 */
 bool_t BgL_test6867z00_17604;
{ /* Ieee/fixnum.scm 2011 */
 int64_t BgL_arg1619z00_4631;
BgL_arg1619z00_4631 = 
(int64_t)(0L); 
BgL_test6867z00_17604 = 
(BgL_za7za7_4629<BgL_arg1619z00_4631); } 
if(BgL_test6867z00_17604)
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_arg1602z00_4635;
BgL_arg1602z00_4635 = 
(int64_t)(0L); 
BgL_arg2013z00_4626 = 
(BgL_arg1602z00_4635-BgL_za7za7_4629); }  else 
{ /* Ieee/fixnum.scm 2011 */
BgL_arg2013z00_4626 = BgL_za7za7_4629; } } } } 
BgL_arg2011z00_4624 = 
BGl_gcd2ze71ze7zz__r4_numbers_6_5_fixnumz00(BgL_tmpz00_4616, BgL_arg2013z00_4626); } 
BgL_arg2012z00_4625 = 
CDR(BgL_leftz00_4617); 
{ 
 obj_t BgL_leftz00_17612; int64_t BgL_tmpz00_17611;
BgL_tmpz00_17611 = BgL_arg2011z00_4624; 
BgL_leftz00_17612 = BgL_arg2012z00_4625; 
BgL_leftz00_4617 = BgL_leftz00_17612; 
BgL_tmpz00_4616 = BgL_tmpz00_17611; 
goto BgL_loopz00_4615;} }  else 
{ /* Ieee/fixnum.scm 2276 */
return BgL_tmpz00_4616;} } } } } 

}



/* gcd2~1 */
int64_t BGl_gcd2ze71ze7zz__r4_numbers_6_5_fixnumz00(int64_t BgL_mz00_1820, int64_t BgL_nz00_1821)
{
{ /* Ieee/fixnum.scm 2276 */
BGl_gcd2ze71ze7zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2276 */
 bool_t BgL_test6868z00_17613;
{ /* Ieee/fixnum.scm 1679 */
 int64_t BgL_arg1252z00_4549;
BgL_arg1252z00_4549 = 
(int64_t)(0L); 
BgL_test6868z00_17613 = 
(BgL_nz00_1821==BgL_arg1252z00_4549); } 
if(BgL_test6868z00_17613)
{ /* Ieee/fixnum.scm 2276 */
return BgL_mz00_1820;}  else 
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_rz00_1824;
BgL_rz00_1824 = 
(BgL_mz00_1820%BgL_nz00_1821); 
{ /* Ieee/fixnum.scm 2276 */
 bool_t BgL_test6869z00_17617;
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_arg2025z00_1827;
BgL_arg2025z00_1827 = 
(int64_t)(0L); 
BgL_test6869z00_17617 = 
(BgL_rz00_1824==BgL_arg2025z00_1827); } 
if(BgL_test6869z00_17617)
{ /* Ieee/fixnum.scm 2276 */
return BgL_nz00_1821;}  else 
{ 
 int64_t BgL_nz00_17621; int64_t BgL_mz00_17620;
BgL_mz00_17620 = BgL_nz00_1821; 
BgL_nz00_17621 = BgL_rz00_1824; 
BgL_nz00_1821 = BgL_nz00_17621; 
BgL_mz00_1820 = BgL_mz00_17620; 
goto BGl_gcd2ze71ze7zz__r4_numbers_6_5_fixnumz00;} } } } } 

}



/* &gcds64 */
obj_t BGl_z62gcds64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6740, obj_t BgL_xz00_6741)
{
{ /* Ieee/fixnum.scm 2276 */
{ /* Ieee/fixnum.scm 2276 */
 int64_t BgL_tmpz00_17622;
BgL_tmpz00_17622 = 
BGl_gcds64z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6741); 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_17622);} } 

}



/* gcdu64 */
BGL_EXPORTED_DEF uint64_t BGl_gcdu64z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_519)
{
{ /* Ieee/fixnum.scm 2277 */
if(
NULLP(BgL_xz00_519))
{ /* Ieee/fixnum.scm 2277 */
return 
(uint64_t)(0L);}  else 
{ /* Ieee/fixnum.scm 2277 */
 bool_t BgL_test6871z00_17628;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_tmpz00_17629;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_pairz00_4639;
if(
PAIRP(BgL_xz00_519))
{ /* Ieee/fixnum.scm 2277 */
BgL_pairz00_4639 = BgL_xz00_519; }  else 
{ 
 obj_t BgL_auxz00_17632;
BgL_auxz00_17632 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_519); 
FAILURE(BgL_auxz00_17632,BFALSE,BFALSE);} 
BgL_tmpz00_17629 = 
CDR(BgL_pairz00_4639); } 
BgL_test6871z00_17628 = 
NULLP(BgL_tmpz00_17629); } 
if(BgL_test6871z00_17628)
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_za7za7_4641;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_pairz00_4640;
if(
PAIRP(BgL_xz00_519))
{ /* Ieee/fixnum.scm 2277 */
BgL_pairz00_4640 = BgL_xz00_519; }  else 
{ 
 obj_t BgL_auxz00_17640;
BgL_auxz00_17640 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_519); 
FAILURE(BgL_auxz00_17640,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_tmpz00_17644;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_aux4133z00_8245;
BgL_aux4133z00_8245 = 
CAR(BgL_pairz00_4640); 
if(
BGL_UINT64P(BgL_aux4133z00_8245))
{ /* Ieee/fixnum.scm 2277 */
BgL_tmpz00_17644 = BgL_aux4133z00_8245
; }  else 
{ 
 obj_t BgL_auxz00_17648;
BgL_auxz00_17648 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4133z00_8245); 
FAILURE(BgL_auxz00_17648,BFALSE,BFALSE);} } 
BgL_za7za7_4641 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_17644); } } 
return BgL_za7za7_4641;}  else 
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_g1054z00_1835; obj_t BgL_g1055z00_1836;
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_arg2040z00_1847; uint64_t BgL_arg2041z00_1848;
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_za7za7_4651;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_pairz00_4650;
if(
PAIRP(BgL_xz00_519))
{ /* Ieee/fixnum.scm 2277 */
BgL_pairz00_4650 = BgL_xz00_519; }  else 
{ 
 obj_t BgL_auxz00_17655;
BgL_auxz00_17655 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_519); 
FAILURE(BgL_auxz00_17655,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_tmpz00_17659;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_aux4137z00_8249;
BgL_aux4137z00_8249 = 
CAR(BgL_pairz00_4650); 
if(
BGL_UINT64P(BgL_aux4137z00_8249))
{ /* Ieee/fixnum.scm 2277 */
BgL_tmpz00_17659 = BgL_aux4137z00_8249
; }  else 
{ 
 obj_t BgL_auxz00_17663;
BgL_auxz00_17663 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4137z00_8249); 
FAILURE(BgL_auxz00_17663,BFALSE,BFALSE);} } 
BgL_za7za7_4651 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_17659); } } 
BgL_arg2040z00_1847 = BgL_za7za7_4651; } 
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_za7za7_4656;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_pairz00_4652;
if(
PAIRP(BgL_xz00_519))
{ /* Ieee/fixnum.scm 2277 */
BgL_pairz00_4652 = BgL_xz00_519; }  else 
{ 
 obj_t BgL_auxz00_17670;
BgL_auxz00_17670 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_519); 
FAILURE(BgL_auxz00_17670,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_pairz00_4655;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_aux4141z00_8253;
BgL_aux4141z00_8253 = 
CDR(BgL_pairz00_4652); 
if(
PAIRP(BgL_aux4141z00_8253))
{ /* Ieee/fixnum.scm 2277 */
BgL_pairz00_4655 = BgL_aux4141z00_8253; }  else 
{ 
 obj_t BgL_auxz00_17677;
BgL_auxz00_17677 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4141z00_8253); 
FAILURE(BgL_auxz00_17677,BFALSE,BFALSE);} } 
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_tmpz00_17681;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_aux4143z00_8255;
BgL_aux4143z00_8255 = 
CAR(BgL_pairz00_4655); 
if(
BGL_UINT64P(BgL_aux4143z00_8255))
{ /* Ieee/fixnum.scm 2277 */
BgL_tmpz00_17681 = BgL_aux4143z00_8255
; }  else 
{ 
 obj_t BgL_auxz00_17685;
BgL_auxz00_17685 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4143z00_8255); 
FAILURE(BgL_auxz00_17685,BFALSE,BFALSE);} } 
BgL_za7za7_4656 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_17681); } } } 
BgL_arg2041z00_1848 = BgL_za7za7_4656; } 
BgL_g1054z00_1835 = 
BGl_gcd2ze70ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2040z00_1847, BgL_arg2041z00_1848); } 
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_pairz00_4657;
if(
PAIRP(BgL_xz00_519))
{ /* Ieee/fixnum.scm 2277 */
BgL_pairz00_4657 = BgL_xz00_519; }  else 
{ 
 obj_t BgL_auxz00_17693;
BgL_auxz00_17693 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_519); 
FAILURE(BgL_auxz00_17693,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_pairz00_4660;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_aux4147z00_8259;
BgL_aux4147z00_8259 = 
CDR(BgL_pairz00_4657); 
if(
PAIRP(BgL_aux4147z00_8259))
{ /* Ieee/fixnum.scm 2277 */
BgL_pairz00_4660 = BgL_aux4147z00_8259; }  else 
{ 
 obj_t BgL_auxz00_17700;
BgL_auxz00_17700 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4915z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4147z00_8259); 
FAILURE(BgL_auxz00_17700,BFALSE,BFALSE);} } 
BgL_g1055z00_1836 = 
CDR(BgL_pairz00_4660); } } 
{ 
 uint64_t BgL_tmpz00_4678; obj_t BgL_leftz00_4679;
BgL_tmpz00_4678 = BgL_g1054z00_1835; 
BgL_leftz00_4679 = BgL_g1055z00_1836; 
BgL_loopz00_4677:
if(
PAIRP(BgL_leftz00_4679))
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_arg2036z00_4686; obj_t BgL_arg2037z00_4687;
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_arg2038z00_4688;
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_za7za7_4691;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_tmpz00_17707;
{ /* Ieee/fixnum.scm 2277 */
 obj_t BgL_aux4149z00_8261;
BgL_aux4149z00_8261 = 
CAR(BgL_leftz00_4679); 
if(
BGL_UINT64P(BgL_aux4149z00_8261))
{ /* Ieee/fixnum.scm 2277 */
BgL_tmpz00_17707 = BgL_aux4149z00_8261
; }  else 
{ 
 obj_t BgL_auxz00_17711;
BgL_auxz00_17711 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103129L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4149z00_8261); 
FAILURE(BgL_auxz00_17711,BFALSE,BFALSE);} } 
BgL_za7za7_4691 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_17707); } 
BgL_arg2038z00_4688 = BgL_za7za7_4691; } 
BgL_arg2036z00_4686 = 
BGl_gcd2ze70ze7zz__r4_numbers_6_5_fixnumz00(BgL_tmpz00_4678, BgL_arg2038z00_4688); } 
BgL_arg2037z00_4687 = 
CDR(BgL_leftz00_4679); 
{ 
 obj_t BgL_leftz00_17719; uint64_t BgL_tmpz00_17718;
BgL_tmpz00_17718 = BgL_arg2036z00_4686; 
BgL_leftz00_17719 = BgL_arg2037z00_4687; 
BgL_leftz00_4679 = BgL_leftz00_17719; 
BgL_tmpz00_4678 = BgL_tmpz00_17718; 
goto BgL_loopz00_4677;} }  else 
{ /* Ieee/fixnum.scm 2277 */
return BgL_tmpz00_4678;} } } } } 

}



/* gcd2~0 */
uint64_t BGl_gcd2ze70ze7zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_mz00_1851, uint64_t BgL_nz00_1852)
{
{ /* Ieee/fixnum.scm 2277 */
BGl_gcd2ze70ze7zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2277 */
 bool_t BgL_test6884z00_17720;
{ /* Ieee/fixnum.scm 1680 */
 uint64_t BgL_arg1253z00_4643;
BgL_arg1253z00_4643 = 
(uint64_t)(0L); 
BgL_test6884z00_17720 = 
(BgL_nz00_1852==BgL_arg1253z00_4643); } 
if(BgL_test6884z00_17720)
{ /* Ieee/fixnum.scm 2277 */
return BgL_mz00_1851;}  else 
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_rz00_1855;
{ /* Ieee/fixnum.scm 2134 */
 int64_t BgL_tmpz00_17723;
BgL_tmpz00_17723 = 
(int64_t)(BgL_nz00_1852); 
BgL_rz00_1855 = 
(BgL_mz00_1851%BgL_tmpz00_17723); } 
{ /* Ieee/fixnum.scm 2277 */
 bool_t BgL_test6885z00_17726;
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_arg2048z00_1858;
BgL_arg2048z00_1858 = 
(uint64_t)(0L); 
BgL_test6885z00_17726 = 
(BgL_rz00_1855==BgL_arg2048z00_1858); } 
if(BgL_test6885z00_17726)
{ /* Ieee/fixnum.scm 2277 */
return BgL_nz00_1852;}  else 
{ 
 uint64_t BgL_nz00_17730; uint64_t BgL_mz00_17729;
BgL_mz00_17729 = BgL_nz00_1852; 
BgL_nz00_17730 = BgL_rz00_1855; 
BgL_nz00_1852 = BgL_nz00_17730; 
BgL_mz00_1851 = BgL_mz00_17729; 
goto BGl_gcd2ze70ze7zz__r4_numbers_6_5_fixnumz00;} } } } } 

}



/* &gcdu64 */
obj_t BGl_z62gcdu64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6742, obj_t BgL_xz00_6743)
{
{ /* Ieee/fixnum.scm 2277 */
{ /* Ieee/fixnum.scm 2277 */
 uint64_t BgL_tmpz00_17731;
BgL_tmpz00_17731 = 
BGl_gcdu64z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6743); 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_17731);} } 

}



/* gcdbx */
BGL_EXPORTED_DEF obj_t BGl_gcdbxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_520)
{
{ /* Ieee/fixnum.scm 2279 */
if(
NULLP(BgL_xz00_520))
{ /* Ieee/fixnum.scm 2280 */
return 
bgl_long_to_bignum(0L);}  else 
{ /* Ieee/fixnum.scm 2281 */
 bool_t BgL_test6887z00_17737;
{ /* Ieee/fixnum.scm 2281 */
 obj_t BgL_tmpz00_17738;
{ /* Ieee/fixnum.scm 2281 */
 obj_t BgL_pairz00_4693;
if(
PAIRP(BgL_xz00_520))
{ /* Ieee/fixnum.scm 2281 */
BgL_pairz00_4693 = BgL_xz00_520; }  else 
{ 
 obj_t BgL_auxz00_17741;
BgL_auxz00_17741 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103237L), BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_520); 
FAILURE(BgL_auxz00_17741,BFALSE,BFALSE);} 
BgL_tmpz00_17738 = 
CDR(BgL_pairz00_4693); } 
BgL_test6887z00_17737 = 
NULLP(BgL_tmpz00_17738); } 
if(BgL_test6887z00_17737)
{ /* Ieee/fixnum.scm 2281 */
 obj_t BgL_nz00_4695;
{ /* Ieee/fixnum.scm 2281 */
 obj_t BgL_pairz00_4694;
if(
PAIRP(BgL_xz00_520))
{ /* Ieee/fixnum.scm 2281 */
BgL_pairz00_4694 = BgL_xz00_520; }  else 
{ 
 obj_t BgL_auxz00_17749;
BgL_auxz00_17749 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103253L), BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_520); 
FAILURE(BgL_auxz00_17749,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2281 */
 obj_t BgL_aux4155z00_8267;
BgL_aux4155z00_8267 = 
CAR(BgL_pairz00_4694); 
if(
BIGNUMP(BgL_aux4155z00_8267))
{ /* Ieee/fixnum.scm 2281 */
BgL_nz00_4695 = BgL_aux4155z00_8267; }  else 
{ 
 obj_t BgL_auxz00_17756;
BgL_auxz00_17756 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103248L), BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4155z00_8267); 
FAILURE(BgL_auxz00_17756,BFALSE,BFALSE);} } } 
return 
bgl_bignum_abs(BgL_nz00_4695);}  else 
{ /* Ieee/fixnum.scm 2283 */
 obj_t BgL_g1056z00_1865; obj_t BgL_g1057z00_1866;
{ /* Ieee/fixnum.scm 2283 */
 obj_t BgL_auxz00_17776; obj_t BgL_tmpz00_17761;
{ /* Ieee/fixnum.scm 2283 */
 obj_t BgL_nz00_4702;
{ /* Ieee/fixnum.scm 2283 */
 obj_t BgL_pairz00_4698;
if(
PAIRP(BgL_xz00_520))
{ /* Ieee/fixnum.scm 2283 */
BgL_pairz00_4698 = BgL_xz00_520; }  else 
{ 
 obj_t BgL_auxz00_17779;
BgL_auxz00_17779 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103320L), BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_520); 
FAILURE(BgL_auxz00_17779,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2283 */
 obj_t BgL_pairz00_4701;
{ /* Ieee/fixnum.scm 2283 */
 obj_t BgL_aux4163z00_8275;
BgL_aux4163z00_8275 = 
CDR(BgL_pairz00_4698); 
if(
PAIRP(BgL_aux4163z00_8275))
{ /* Ieee/fixnum.scm 2283 */
BgL_pairz00_4701 = BgL_aux4163z00_8275; }  else 
{ 
 obj_t BgL_auxz00_17786;
BgL_auxz00_17786 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103314L), BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4163z00_8275); 
FAILURE(BgL_auxz00_17786,BFALSE,BFALSE);} } 
{ /* Ieee/fixnum.scm 2283 */
 obj_t BgL_aux4165z00_8277;
BgL_aux4165z00_8277 = 
CAR(BgL_pairz00_4701); 
if(
BIGNUMP(BgL_aux4165z00_8277))
{ /* Ieee/fixnum.scm 2283 */
BgL_nz00_4702 = BgL_aux4165z00_8277; }  else 
{ 
 obj_t BgL_auxz00_17793;
BgL_auxz00_17793 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103314L), BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4165z00_8277); 
FAILURE(BgL_auxz00_17793,BFALSE,BFALSE);} } } } 
BgL_auxz00_17776 = 
bgl_bignum_abs(BgL_nz00_4702); } 
{ /* Ieee/fixnum.scm 2283 */
 obj_t BgL_nz00_4697;
{ /* Ieee/fixnum.scm 2283 */
 obj_t BgL_pairz00_4696;
if(
PAIRP(BgL_xz00_520))
{ /* Ieee/fixnum.scm 2283 */
BgL_pairz00_4696 = BgL_xz00_520; }  else 
{ 
 obj_t BgL_auxz00_17764;
BgL_auxz00_17764 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103303L), BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_520); 
FAILURE(BgL_auxz00_17764,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2283 */
 obj_t BgL_aux4159z00_8271;
BgL_aux4159z00_8271 = 
CAR(BgL_pairz00_4696); 
if(
BIGNUMP(BgL_aux4159z00_8271))
{ /* Ieee/fixnum.scm 2283 */
BgL_nz00_4697 = BgL_aux4159z00_8271; }  else 
{ 
 obj_t BgL_auxz00_17771;
BgL_auxz00_17771 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103298L), BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4159z00_8271); 
FAILURE(BgL_auxz00_17771,BFALSE,BFALSE);} } } 
BgL_tmpz00_17761 = 
bgl_bignum_abs(BgL_nz00_4697); } 
BgL_g1056z00_1865 = 
bgl_bignum_gcd(BgL_tmpz00_17761, BgL_auxz00_17776); } 
{ /* Ieee/fixnum.scm 2284 */
 obj_t BgL_pairz00_4703;
if(
PAIRP(BgL_xz00_520))
{ /* Ieee/fixnum.scm 2284 */
BgL_pairz00_4703 = BgL_xz00_520; }  else 
{ 
 obj_t BgL_auxz00_17801;
BgL_auxz00_17801 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103344L), BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_520); 
FAILURE(BgL_auxz00_17801,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2284 */
 obj_t BgL_pairz00_4706;
{ /* Ieee/fixnum.scm 2284 */
 obj_t BgL_aux4169z00_8281;
BgL_aux4169z00_8281 = 
CDR(BgL_pairz00_4703); 
if(
PAIRP(BgL_aux4169z00_8281))
{ /* Ieee/fixnum.scm 2284 */
BgL_pairz00_4706 = BgL_aux4169z00_8281; }  else 
{ 
 obj_t BgL_auxz00_17808;
BgL_auxz00_17808 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103338L), BGl_string4916z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4169z00_8281); 
FAILURE(BgL_auxz00_17808,BFALSE,BFALSE);} } 
BgL_g1057z00_1866 = 
CDR(BgL_pairz00_4706); } } 
{ 
 obj_t BgL_tmpz00_4724; obj_t BgL_leftz00_4725;
BgL_tmpz00_4724 = BgL_g1056z00_1865; 
BgL_leftz00_4725 = BgL_g1057z00_1866; 
BgL_loopz00_4723:
if(
PAIRP(BgL_leftz00_4725))
{ 
 obj_t BgL_leftz00_17826; obj_t BgL_tmpz00_17815;
{ /* Ieee/fixnum.scm 2286 */
 obj_t BgL_tmpz00_17816;
{ /* Ieee/fixnum.scm 2286 */
 obj_t BgL_nz00_4737;
{ /* Ieee/fixnum.scm 2286 */
 obj_t BgL_aux4171z00_8283;
BgL_aux4171z00_8283 = 
CAR(BgL_leftz00_4725); 
if(
BIGNUMP(BgL_aux4171z00_8283))
{ /* Ieee/fixnum.scm 2286 */
BgL_nz00_4737 = BgL_aux4171z00_8283; }  else 
{ 
 obj_t BgL_auxz00_17820;
BgL_auxz00_17820 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(103403L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4171z00_8283); 
FAILURE(BgL_auxz00_17820,BFALSE,BFALSE);} } 
BgL_tmpz00_17816 = 
bgl_bignum_abs(BgL_nz00_4737); } 
BgL_tmpz00_17815 = 
bgl_bignum_gcd(BgL_tmpz00_4724, BgL_tmpz00_17816); } 
BgL_leftz00_17826 = 
CDR(BgL_leftz00_4725); 
BgL_leftz00_4725 = BgL_leftz00_17826; 
BgL_tmpz00_4724 = BgL_tmpz00_17815; 
goto BgL_loopz00_4723;}  else 
{ /* Ieee/fixnum.scm 2285 */
return BgL_tmpz00_4724;} } } } } 

}



/* &gcdbx */
obj_t BGl_z62gcdbxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6744, obj_t BgL_xz00_6745)
{
{ /* Ieee/fixnum.scm 2279 */
return 
BGl_gcdbxz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6745);} 

}



/* lcm */
BGL_EXPORTED_DEF obj_t BGl_lcmz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_521)
{
{ /* Ieee/fixnum.scm 2314 */
if(
NULLP(BgL_xz00_521))
{ /* Ieee/fixnum.scm 2314 */
return 
BINT(1L);}  else 
{ /* Ieee/fixnum.scm 2314 */
 bool_t BgL_test6901z00_17832;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_tmpz00_17833;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_pairz00_4739;
if(
PAIRP(BgL_xz00_521))
{ /* Ieee/fixnum.scm 2314 */
BgL_pairz00_4739 = BgL_xz00_521; }  else 
{ 
 obj_t BgL_auxz00_17836;
BgL_auxz00_17836 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104407L), BGl_string4917z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_521); 
FAILURE(BgL_auxz00_17836,BFALSE,BFALSE);} 
BgL_tmpz00_17833 = 
CDR(BgL_pairz00_4739); } 
BgL_test6901z00_17832 = 
NULLP(BgL_tmpz00_17833); } 
if(BgL_test6901z00_17832)
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_auxz00_17842;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_pairz00_4740;
if(
PAIRP(BgL_xz00_521))
{ /* Ieee/fixnum.scm 2314 */
BgL_pairz00_4740 = BgL_xz00_521; }  else 
{ 
 obj_t BgL_auxz00_17845;
BgL_auxz00_17845 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104407L), BGl_string4917z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_521); 
FAILURE(BgL_auxz00_17845,BFALSE,BFALSE);} 
BgL_auxz00_17842 = 
CAR(BgL_pairz00_4740); } 
BGL_TAIL return 
BGl_absz00zz__r4_numbers_6_5z00(BgL_auxz00_17842);}  else 
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_g1061z00_1887; obj_t BgL_g1062z00_1888;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_arg2078z00_1898; obj_t BgL_arg2079z00_1899;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_pairz00_4749;
if(
PAIRP(BgL_xz00_521))
{ /* Ieee/fixnum.scm 2314 */
BgL_pairz00_4749 = BgL_xz00_521; }  else 
{ 
 obj_t BgL_auxz00_17853;
BgL_auxz00_17853 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104407L), BGl_string4917z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_521); 
FAILURE(BgL_auxz00_17853,BFALSE,BFALSE);} 
BgL_arg2078z00_1898 = 
CAR(BgL_pairz00_4749); } 
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_pairz00_4750;
if(
PAIRP(BgL_xz00_521))
{ /* Ieee/fixnum.scm 2314 */
BgL_pairz00_4750 = BgL_xz00_521; }  else 
{ 
 obj_t BgL_auxz00_17860;
BgL_auxz00_17860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104407L), BGl_string4917z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_521); 
FAILURE(BgL_auxz00_17860,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_pairz00_4753;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_aux4181z00_8293;
BgL_aux4181z00_8293 = 
CDR(BgL_pairz00_4750); 
if(
PAIRP(BgL_aux4181z00_8293))
{ /* Ieee/fixnum.scm 2314 */
BgL_pairz00_4753 = BgL_aux4181z00_8293; }  else 
{ 
 obj_t BgL_auxz00_17867;
BgL_auxz00_17867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104407L), BGl_string4917z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4181z00_8293); 
FAILURE(BgL_auxz00_17867,BFALSE,BFALSE);} } 
BgL_arg2079z00_1899 = 
CAR(BgL_pairz00_4753); } } 
BgL_g1061z00_1887 = 
BGl_lcm2ze711ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2078z00_1898, BgL_arg2079z00_1899); } 
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_pairz00_4754;
if(
PAIRP(BgL_xz00_521))
{ /* Ieee/fixnum.scm 2314 */
BgL_pairz00_4754 = BgL_xz00_521; }  else 
{ 
 obj_t BgL_auxz00_17875;
BgL_auxz00_17875 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104407L), BGl_string4917z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_521); 
FAILURE(BgL_auxz00_17875,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_pairz00_4757;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_aux4185z00_8297;
BgL_aux4185z00_8297 = 
CDR(BgL_pairz00_4754); 
if(
PAIRP(BgL_aux4185z00_8297))
{ /* Ieee/fixnum.scm 2314 */
BgL_pairz00_4757 = BgL_aux4185z00_8297; }  else 
{ 
 obj_t BgL_auxz00_17882;
BgL_auxz00_17882 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104407L), BGl_string4917z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4185z00_8297); 
FAILURE(BgL_auxz00_17882,BFALSE,BFALSE);} } 
BgL_g1062z00_1888 = 
CDR(BgL_pairz00_4757); } } 
{ 
 obj_t BgL_tmpz00_4771; obj_t BgL_leftz00_4772;
BgL_tmpz00_4771 = BgL_g1061z00_1887; 
BgL_leftz00_4772 = BgL_g1062z00_1888; 
BgL_loopz00_4770:
if(
PAIRP(BgL_leftz00_4772))
{ 
 obj_t BgL_leftz00_17892; obj_t BgL_tmpz00_17889;
BgL_tmpz00_17889 = 
BGl_lcm2ze711ze7zz__r4_numbers_6_5_fixnumz00(BgL_tmpz00_4771, 
CAR(BgL_leftz00_4772)); 
BgL_leftz00_17892 = 
CDR(BgL_leftz00_4772); 
BgL_leftz00_4772 = BgL_leftz00_17892; 
BgL_tmpz00_4771 = BgL_tmpz00_17889; 
goto BgL_loopz00_4770;}  else 
{ /* Ieee/fixnum.scm 2314 */
return BgL_tmpz00_4771;} } } } } 

}



/* lcm2~11 */
obj_t BGl_lcm2ze711ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_1900, obj_t BgL_nz00_1901)
{
{ /* Ieee/fixnum.scm 2314 */
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_mz00_1903; obj_t BgL_nz00_1904;
BgL_mz00_1903 = 
BGl_absz00zz__r4_numbers_6_5z00(BgL_mz00_1900); 
BgL_nz00_1904 = 
BGl_absz00zz__r4_numbers_6_5z00(BgL_nz00_1901); 
{ /* Ieee/fixnum.scm 2314 */
 bool_t BgL_test6910z00_17896;
{ /* Ieee/fixnum.scm 2314 */
 bool_t BgL_test6911z00_17897;
if(
INTEGERP(BgL_mz00_1903))
{ /* Ieee/fixnum.scm 2314 */
BgL_test6911z00_17897 = 
INTEGERP(BgL_nz00_1904)
; }  else 
{ /* Ieee/fixnum.scm 2314 */
BgL_test6911z00_17897 = ((bool_t)0)
; } 
if(BgL_test6911z00_17897)
{ /* Ieee/fixnum.scm 2314 */
BgL_test6910z00_17896 = 
(
(long)CINT(BgL_mz00_1903)==
(long)CINT(BgL_nz00_1904))
; }  else 
{ /* Ieee/fixnum.scm 2314 */
BgL_test6910z00_17896 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_mz00_1903, BgL_nz00_1904)
; } } 
if(BgL_test6910z00_17896)
{ /* Ieee/fixnum.scm 2314 */
return BgL_mz00_1903;}  else 
{ /* Ieee/fixnum.scm 2314 */
 bool_t BgL_test6913z00_17905;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_a1131z00_1923;
BgL_a1131z00_1923 = 
BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(BgL_mz00_1903, BgL_nz00_1904); 
{ /* Ieee/fixnum.scm 2314 */

if(
INTEGERP(BgL_a1131z00_1923))
{ /* Ieee/fixnum.scm 2314 */
BgL_test6913z00_17905 = 
(
(long)CINT(BgL_a1131z00_1923)==0L)
; }  else 
{ /* Ieee/fixnum.scm 2314 */
BgL_test6913z00_17905 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_a1131z00_1923, 
BINT(0L))
; } } } 
if(BgL_test6913z00_17905)
{ /* Ieee/fixnum.scm 2314 */
return BgL_mz00_1903;}  else 
{ /* Ieee/fixnum.scm 2314 */
 bool_t BgL_test6915z00_17913;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_a1133z00_1920;
BgL_a1133z00_1920 = 
BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(BgL_nz00_1904, BgL_mz00_1903); 
{ /* Ieee/fixnum.scm 2314 */

if(
INTEGERP(BgL_a1133z00_1920))
{ /* Ieee/fixnum.scm 2314 */
BgL_test6915z00_17913 = 
(
(long)CINT(BgL_a1133z00_1920)==0L)
; }  else 
{ /* Ieee/fixnum.scm 2314 */
BgL_test6915z00_17913 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_a1133z00_1920, 
BINT(0L))
; } } } 
if(BgL_test6915z00_17913)
{ /* Ieee/fixnum.scm 2314 */
return BgL_nz00_1904;}  else 
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_a1135z00_1915;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_arg2088z00_1917;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_list2089z00_1918;
{ /* Ieee/fixnum.scm 2314 */
 obj_t BgL_arg2090z00_1919;
BgL_arg2090z00_1919 = 
MAKE_YOUNG_PAIR(BgL_nz00_1904, BNIL); 
BgL_list2089z00_1918 = 
MAKE_YOUNG_PAIR(BgL_mz00_1903, BgL_arg2090z00_1919); } 
BgL_arg2088z00_1917 = 
BGl_gcdz00zz__r4_numbers_6_5_fixnumz00(BgL_list2089z00_1918); } 
BgL_a1135z00_1915 = 
BGl_2zf2zf2zz__r4_numbers_6_5z00(BgL_mz00_1903, BgL_arg2088z00_1917); } 
{ /* Ieee/fixnum.scm 2314 */
 bool_t BgL_test6917z00_17925;
if(
INTEGERP(BgL_a1135z00_1915))
{ /* Ieee/fixnum.scm 2314 */
BgL_test6917z00_17925 = 
INTEGERP(BgL_nz00_1904)
; }  else 
{ /* Ieee/fixnum.scm 2314 */
BgL_test6917z00_17925 = ((bool_t)0)
; } 
if(BgL_test6917z00_17925)
{ /* Ieee/fixnum.scm 2314 */
return 
BINT(
(
(long)CINT(BgL_a1135z00_1915)*
(long)CINT(BgL_nz00_1904)));}  else 
{ /* Ieee/fixnum.scm 2314 */
BGL_TAIL return 
BGl_2za2za2zz__r4_numbers_6_5z00(BgL_a1135z00_1915, BgL_nz00_1904);} } } } } } } } 

}



/* &lcm */
obj_t BGl_z62lcmz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6746, obj_t BgL_xz00_6747)
{
{ /* Ieee/fixnum.scm 2314 */
return 
BGl_lcmz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6747);} 

}



/* lcmfx */
BGL_EXPORTED_DEF long BGl_lcmfxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_522)
{
{ /* Ieee/fixnum.scm 2316 */
if(
NULLP(BgL_xz00_522))
{ /* Ieee/fixnum.scm 2316 */
return 1L;}  else 
{ /* Ieee/fixnum.scm 2316 */
 bool_t BgL_test6920z00_17937;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_tmpz00_17938;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_pairz00_4783;
if(
PAIRP(BgL_xz00_522))
{ /* Ieee/fixnum.scm 2316 */
BgL_pairz00_4783 = BgL_xz00_522; }  else 
{ 
 obj_t BgL_auxz00_17941;
BgL_auxz00_17941 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104446L), BGl_string4918z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_522); 
FAILURE(BgL_auxz00_17941,BFALSE,BFALSE);} 
BgL_tmpz00_17938 = 
CDR(BgL_pairz00_4783); } 
BgL_test6920z00_17937 = 
NULLP(BgL_tmpz00_17938); } 
if(BgL_test6920z00_17937)
{ /* Ieee/fixnum.scm 2316 */
 long BgL_nz00_4785;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_pairz00_4784;
if(
PAIRP(BgL_xz00_522))
{ /* Ieee/fixnum.scm 2316 */
BgL_pairz00_4784 = BgL_xz00_522; }  else 
{ 
 obj_t BgL_auxz00_17949;
BgL_auxz00_17949 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104446L), BGl_string4918z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_522); 
FAILURE(BgL_auxz00_17949,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_tmpz00_17953;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_aux4191z00_8303;
BgL_aux4191z00_8303 = 
CAR(BgL_pairz00_4784); 
if(
INTEGERP(BgL_aux4191z00_8303))
{ /* Ieee/fixnum.scm 2316 */
BgL_tmpz00_17953 = BgL_aux4191z00_8303
; }  else 
{ 
 obj_t BgL_auxz00_17957;
BgL_auxz00_17957 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104446L), BGl_string4918z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4191z00_8303); 
FAILURE(BgL_auxz00_17957,BFALSE,BFALSE);} } 
BgL_nz00_4785 = 
(long)CINT(BgL_tmpz00_17953); } } 
if(
(BgL_nz00_4785<0L))
{ /* Ieee/fixnum.scm 1997 */
return 
NEG(BgL_nz00_4785);}  else 
{ /* Ieee/fixnum.scm 1997 */
return BgL_nz00_4785;} }  else 
{ /* Ieee/fixnum.scm 2316 */
 long BgL_g1063z00_1934; obj_t BgL_g1064z00_1935;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_arg2101z00_1945; obj_t BgL_arg2102z00_1946;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_pairz00_4831;
if(
PAIRP(BgL_xz00_522))
{ /* Ieee/fixnum.scm 2316 */
BgL_pairz00_4831 = BgL_xz00_522; }  else 
{ 
 obj_t BgL_auxz00_17967;
BgL_auxz00_17967 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104446L), BGl_string4918z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_522); 
FAILURE(BgL_auxz00_17967,BFALSE,BFALSE);} 
BgL_arg2101z00_1945 = 
CAR(BgL_pairz00_4831); } 
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_pairz00_4832;
if(
PAIRP(BgL_xz00_522))
{ /* Ieee/fixnum.scm 2316 */
BgL_pairz00_4832 = BgL_xz00_522; }  else 
{ 
 obj_t BgL_auxz00_17974;
BgL_auxz00_17974 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104446L), BGl_string4918z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_522); 
FAILURE(BgL_auxz00_17974,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_pairz00_4835;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_aux4196z00_8308;
BgL_aux4196z00_8308 = 
CDR(BgL_pairz00_4832); 
if(
PAIRP(BgL_aux4196z00_8308))
{ /* Ieee/fixnum.scm 2316 */
BgL_pairz00_4835 = BgL_aux4196z00_8308; }  else 
{ 
 obj_t BgL_auxz00_17981;
BgL_auxz00_17981 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104446L), BGl_string4918z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4196z00_8308); 
FAILURE(BgL_auxz00_17981,BFALSE,BFALSE);} } 
BgL_arg2102z00_1946 = 
CAR(BgL_pairz00_4835); } } 
BgL_g1063z00_1934 = 
BGl_lcm2ze710ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2101z00_1945, BgL_arg2102z00_1946); } 
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_pairz00_4836;
if(
PAIRP(BgL_xz00_522))
{ /* Ieee/fixnum.scm 2316 */
BgL_pairz00_4836 = BgL_xz00_522; }  else 
{ 
 obj_t BgL_auxz00_17989;
BgL_auxz00_17989 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104446L), BGl_string4918z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_522); 
FAILURE(BgL_auxz00_17989,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_pairz00_4839;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_aux4200z00_8312;
BgL_aux4200z00_8312 = 
CDR(BgL_pairz00_4836); 
if(
PAIRP(BgL_aux4200z00_8312))
{ /* Ieee/fixnum.scm 2316 */
BgL_pairz00_4839 = BgL_aux4200z00_8312; }  else 
{ 
 obj_t BgL_auxz00_17996;
BgL_auxz00_17996 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104446L), BGl_string4918z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4200z00_8312); 
FAILURE(BgL_auxz00_17996,BFALSE,BFALSE);} } 
BgL_g1064z00_1935 = 
CDR(BgL_pairz00_4839); } } 
{ 
 long BgL_tmpz00_4853; obj_t BgL_leftz00_4854;
BgL_tmpz00_4853 = BgL_g1063z00_1934; 
BgL_leftz00_4854 = BgL_g1064z00_1935; 
BgL_loopz00_4852:
if(
PAIRP(BgL_leftz00_4854))
{ 
 obj_t BgL_leftz00_18007; long BgL_tmpz00_18003;
BgL_tmpz00_18003 = 
BGl_lcm2ze710ze7zz__r4_numbers_6_5_fixnumz00(
BINT(BgL_tmpz00_4853), 
CAR(BgL_leftz00_4854)); 
BgL_leftz00_18007 = 
CDR(BgL_leftz00_4854); 
BgL_leftz00_4854 = BgL_leftz00_18007; 
BgL_tmpz00_4853 = BgL_tmpz00_18003; 
goto BgL_loopz00_4852;}  else 
{ /* Ieee/fixnum.scm 2316 */
return BgL_tmpz00_4853;} } } } } 

}



/* lcm2~10 */
long BGl_lcm2ze710ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_1947, obj_t BgL_nz00_1948)
{
{ /* Ieee/fixnum.scm 2316 */
{ /* Ieee/fixnum.scm 2316 */
 long BgL_mz00_1950; long BgL_nz00_1951;
{ /* Ieee/fixnum.scm 2316 */
 long BgL_nz00_4789;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_tmpz00_18009;
if(
INTEGERP(BgL_mz00_1947))
{ /* Ieee/fixnum.scm 2316 */
BgL_tmpz00_18009 = BgL_mz00_1947
; }  else 
{ 
 obj_t BgL_auxz00_18012;
BgL_auxz00_18012 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104446L), BGl_string4919z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_1947); 
FAILURE(BgL_auxz00_18012,BFALSE,BFALSE);} 
BgL_nz00_4789 = 
(long)CINT(BgL_tmpz00_18009); } 
if(
(BgL_nz00_4789<0L))
{ /* Ieee/fixnum.scm 1997 */
BgL_mz00_1950 = 
NEG(BgL_nz00_4789); }  else 
{ /* Ieee/fixnum.scm 1997 */
BgL_mz00_1950 = BgL_nz00_4789; } } 
{ /* Ieee/fixnum.scm 2316 */
 long BgL_nz00_4793;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_tmpz00_18020;
if(
INTEGERP(BgL_nz00_1948))
{ /* Ieee/fixnum.scm 2316 */
BgL_tmpz00_18020 = BgL_nz00_1948
; }  else 
{ 
 obj_t BgL_auxz00_18023;
BgL_auxz00_18023 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104446L), BGl_string4919z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_1948); 
FAILURE(BgL_auxz00_18023,BFALSE,BFALSE);} 
BgL_nz00_4793 = 
(long)CINT(BgL_tmpz00_18020); } 
if(
(BgL_nz00_4793<0L))
{ /* Ieee/fixnum.scm 1997 */
BgL_nz00_1951 = 
NEG(BgL_nz00_4793); }  else 
{ /* Ieee/fixnum.scm 1997 */
BgL_nz00_1951 = BgL_nz00_4793; } } 
if(
(BgL_mz00_1950==BgL_nz00_1951))
{ /* Ieee/fixnum.scm 2316 */
return BgL_mz00_1950;}  else 
{ /* Ieee/fixnum.scm 2316 */
 bool_t BgL_test6936z00_18033;
{ /* Ieee/fixnum.scm 2316 */
 long BgL_arg2114z00_1962;
{ /* Ieee/fixnum.scm 2316 */
 long BgL_n1z00_4799; long BgL_n2z00_4800;
BgL_n1z00_4799 = BgL_mz00_1950; 
BgL_n2z00_4800 = BgL_nz00_1951; 
{ /* Ieee/fixnum.scm 2115 */
 bool_t BgL_test6937z00_18034;
{ /* Ieee/fixnum.scm 2115 */
 long BgL_arg1707z00_4802;
BgL_arg1707z00_4802 = 
(((BgL_n1z00_4799) | (BgL_n2z00_4800)) & -2147483648); 
BgL_test6937z00_18034 = 
(BgL_arg1707z00_4802==0L); } 
if(BgL_test6937z00_18034)
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1703z00_4803;
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1704z00_4804; int32_t BgL_arg1706z00_4805;
BgL_arg1704z00_4804 = 
(int32_t)(BgL_n1z00_4799); 
BgL_arg1706z00_4805 = 
(int32_t)(BgL_n2z00_4800); 
BgL_arg1703z00_4803 = 
(BgL_arg1704z00_4804%BgL_arg1706z00_4805); } 
{ /* Ieee/fixnum.scm 1519 */
 long BgL_arg1228z00_4810;
BgL_arg1228z00_4810 = 
(long)(BgL_arg1703z00_4803); 
BgL_arg2114z00_1962 = 
(long)(BgL_arg1228z00_4810); } }  else 
{ /* Ieee/fixnum.scm 2115 */
BgL_arg2114z00_1962 = 
(BgL_n1z00_4799%BgL_n2z00_4800); } } } 
BgL_test6936z00_18033 = 
(BgL_arg2114z00_1962==0L); } 
if(BgL_test6936z00_18033)
{ /* Ieee/fixnum.scm 2316 */
return BgL_mz00_1950;}  else 
{ /* Ieee/fixnum.scm 2316 */
 bool_t BgL_test6938z00_18044;
{ /* Ieee/fixnum.scm 2316 */
 long BgL_arg2113z00_1961;
{ /* Ieee/fixnum.scm 2316 */
 long BgL_n1z00_4813; long BgL_n2z00_4814;
BgL_n1z00_4813 = BgL_nz00_1951; 
BgL_n2z00_4814 = BgL_mz00_1950; 
{ /* Ieee/fixnum.scm 2115 */
 bool_t BgL_test6939z00_18045;
{ /* Ieee/fixnum.scm 2115 */
 long BgL_arg1707z00_4816;
BgL_arg1707z00_4816 = 
(((BgL_n1z00_4813) | (BgL_n2z00_4814)) & -2147483648); 
BgL_test6939z00_18045 = 
(BgL_arg1707z00_4816==0L); } 
if(BgL_test6939z00_18045)
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1703z00_4817;
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1704z00_4818; int32_t BgL_arg1706z00_4819;
BgL_arg1704z00_4818 = 
(int32_t)(BgL_n1z00_4813); 
BgL_arg1706z00_4819 = 
(int32_t)(BgL_n2z00_4814); 
BgL_arg1703z00_4817 = 
(BgL_arg1704z00_4818%BgL_arg1706z00_4819); } 
{ /* Ieee/fixnum.scm 1519 */
 long BgL_arg1228z00_4824;
BgL_arg1228z00_4824 = 
(long)(BgL_arg1703z00_4817); 
BgL_arg2113z00_1961 = 
(long)(BgL_arg1228z00_4824); } }  else 
{ /* Ieee/fixnum.scm 2115 */
BgL_arg2113z00_1961 = 
(BgL_n1z00_4813%BgL_n2z00_4814); } } } 
BgL_test6938z00_18044 = 
(BgL_arg2113z00_1961==0L); } 
if(BgL_test6938z00_18044)
{ /* Ieee/fixnum.scm 2316 */
return BgL_nz00_1951;}  else 
{ /* Ieee/fixnum.scm 2316 */
 long BgL_arg2109z00_1957;
{ /* Ieee/fixnum.scm 2316 */
 long BgL_arg2110z00_1958;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_list2111z00_1959;
{ /* Ieee/fixnum.scm 2316 */
 obj_t BgL_arg2112z00_1960;
BgL_arg2112z00_1960 = 
MAKE_YOUNG_PAIR(
BINT(BgL_nz00_1951), BNIL); 
BgL_list2111z00_1959 = 
MAKE_YOUNG_PAIR(
BINT(BgL_mz00_1950), BgL_arg2112z00_1960); } 
BgL_arg2110z00_1958 = 
BGl_gcdfxz00zz__r4_numbers_6_5_fixnumz00(BgL_list2111z00_1959); } 
BgL_arg2109z00_1957 = 
(BgL_mz00_1950/BgL_arg2110z00_1958); } 
return 
(BgL_arg2109z00_1957*BgL_nz00_1951);} } } } } 

}



/* &lcmfx */
obj_t BGl_z62lcmfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6748, obj_t BgL_xz00_6749)
{
{ /* Ieee/fixnum.scm 2316 */
return 
BINT(
BGl_lcmfxz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6749));} 

}



/* lcmelong */
BGL_EXPORTED_DEF long BGl_lcmelongz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_523)
{
{ /* Ieee/fixnum.scm 2318 */
if(
NULLP(BgL_xz00_523))
{ /* Ieee/fixnum.scm 2318 */
return ((long)1);}  else 
{ /* Ieee/fixnum.scm 2318 */
 bool_t BgL_test6941z00_18066;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_tmpz00_18067;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_pairz00_4865;
if(
PAIRP(BgL_xz00_523))
{ /* Ieee/fixnum.scm 2318 */
BgL_pairz00_4865 = BgL_xz00_523; }  else 
{ 
 obj_t BgL_auxz00_18070;
BgL_auxz00_18070 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104488L), BGl_string4920z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_523); 
FAILURE(BgL_auxz00_18070,BFALSE,BFALSE);} 
BgL_tmpz00_18067 = 
CDR(BgL_pairz00_4865); } 
BgL_test6941z00_18066 = 
NULLP(BgL_tmpz00_18067); } 
if(BgL_test6941z00_18066)
{ /* Ieee/fixnum.scm 2318 */
 long BgL_nz00_4867;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_pairz00_4866;
if(
PAIRP(BgL_xz00_523))
{ /* Ieee/fixnum.scm 2318 */
BgL_pairz00_4866 = BgL_xz00_523; }  else 
{ 
 obj_t BgL_auxz00_18078;
BgL_auxz00_18078 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104488L), BGl_string4920z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_523); 
FAILURE(BgL_auxz00_18078,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_tmpz00_18082;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_aux4208z00_8320;
BgL_aux4208z00_8320 = 
CAR(BgL_pairz00_4866); 
if(
ELONGP(BgL_aux4208z00_8320))
{ /* Ieee/fixnum.scm 2318 */
BgL_tmpz00_18082 = BgL_aux4208z00_8320
; }  else 
{ 
 obj_t BgL_auxz00_18086;
BgL_auxz00_18086 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104488L), BGl_string4920z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4208z00_8320); 
FAILURE(BgL_auxz00_18086,BFALSE,BFALSE);} } 
BgL_nz00_4867 = 
BELONG_TO_LONG(BgL_tmpz00_18082); } } 
if(
(BgL_nz00_4867<((long)0)))
{ /* Ieee/fixnum.scm 1999 */
return 
NEG(BgL_nz00_4867);}  else 
{ /* Ieee/fixnum.scm 1999 */
return BgL_nz00_4867;} }  else 
{ /* Ieee/fixnum.scm 2318 */
 long BgL_g1065z00_1970; obj_t BgL_g1066z00_1971;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_arg2125z00_1981; obj_t BgL_arg2126z00_1982;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_pairz00_4896;
if(
PAIRP(BgL_xz00_523))
{ /* Ieee/fixnum.scm 2318 */
BgL_pairz00_4896 = BgL_xz00_523; }  else 
{ 
 obj_t BgL_auxz00_18096;
BgL_auxz00_18096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104488L), BGl_string4920z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_523); 
FAILURE(BgL_auxz00_18096,BFALSE,BFALSE);} 
BgL_arg2125z00_1981 = 
CAR(BgL_pairz00_4896); } 
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_pairz00_4897;
if(
PAIRP(BgL_xz00_523))
{ /* Ieee/fixnum.scm 2318 */
BgL_pairz00_4897 = BgL_xz00_523; }  else 
{ 
 obj_t BgL_auxz00_18103;
BgL_auxz00_18103 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104488L), BGl_string4920z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_523); 
FAILURE(BgL_auxz00_18103,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_pairz00_4900;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_aux4214z00_8326;
BgL_aux4214z00_8326 = 
CDR(BgL_pairz00_4897); 
if(
PAIRP(BgL_aux4214z00_8326))
{ /* Ieee/fixnum.scm 2318 */
BgL_pairz00_4900 = BgL_aux4214z00_8326; }  else 
{ 
 obj_t BgL_auxz00_18110;
BgL_auxz00_18110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104488L), BGl_string4920z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4214z00_8326); 
FAILURE(BgL_auxz00_18110,BFALSE,BFALSE);} } 
BgL_arg2126z00_1982 = 
CAR(BgL_pairz00_4900); } } 
BgL_g1065z00_1970 = 
BGl_lcm2ze79ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2125z00_1981, BgL_arg2126z00_1982); } 
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_pairz00_4901;
if(
PAIRP(BgL_xz00_523))
{ /* Ieee/fixnum.scm 2318 */
BgL_pairz00_4901 = BgL_xz00_523; }  else 
{ 
 obj_t BgL_auxz00_18118;
BgL_auxz00_18118 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104488L), BGl_string4920z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_523); 
FAILURE(BgL_auxz00_18118,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_pairz00_4904;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_aux4218z00_8330;
BgL_aux4218z00_8330 = 
CDR(BgL_pairz00_4901); 
if(
PAIRP(BgL_aux4218z00_8330))
{ /* Ieee/fixnum.scm 2318 */
BgL_pairz00_4904 = BgL_aux4218z00_8330; }  else 
{ 
 obj_t BgL_auxz00_18125;
BgL_auxz00_18125 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104488L), BGl_string4920z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4218z00_8330); 
FAILURE(BgL_auxz00_18125,BFALSE,BFALSE);} } 
BgL_g1066z00_1971 = 
CDR(BgL_pairz00_4904); } } 
{ 
 long BgL_tmpz00_4918; obj_t BgL_leftz00_4919;
BgL_tmpz00_4918 = BgL_g1065z00_1970; 
BgL_leftz00_4919 = BgL_g1066z00_1971; 
BgL_loopz00_4917:
if(
PAIRP(BgL_leftz00_4919))
{ /* Ieee/fixnum.scm 2318 */
 long BgL_arg2122z00_4925; obj_t BgL_arg2123z00_4926;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_arg2124z00_4927;
BgL_arg2124z00_4927 = 
CAR(BgL_leftz00_4919); 
BgL_arg2122z00_4925 = 
BGl_lcm2ze79ze7zz__r4_numbers_6_5_fixnumz00(
make_belong(BgL_tmpz00_4918), BgL_arg2124z00_4927); } 
BgL_arg2123z00_4926 = 
CDR(BgL_leftz00_4919); 
{ 
 obj_t BgL_leftz00_18137; long BgL_tmpz00_18136;
BgL_tmpz00_18136 = BgL_arg2122z00_4925; 
BgL_leftz00_18137 = BgL_arg2123z00_4926; 
BgL_leftz00_4919 = BgL_leftz00_18137; 
BgL_tmpz00_4918 = BgL_tmpz00_18136; 
goto BgL_loopz00_4917;} }  else 
{ /* Ieee/fixnum.scm 2318 */
return BgL_tmpz00_4918;} } } } } 

}



/* lcm2~9 */
long BGl_lcm2ze79ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_1983, obj_t BgL_nz00_1984)
{
{ /* Ieee/fixnum.scm 2318 */
{ /* Ieee/fixnum.scm 2318 */
 long BgL_mz00_1986; long BgL_nz00_1987;
{ /* Ieee/fixnum.scm 2318 */
 long BgL_nz00_4872;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_tmpz00_18138;
if(
ELONGP(BgL_mz00_1983))
{ /* Ieee/fixnum.scm 2318 */
BgL_tmpz00_18138 = BgL_mz00_1983
; }  else 
{ 
 obj_t BgL_auxz00_18141;
BgL_auxz00_18141 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104488L), BGl_string4921z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_1983); 
FAILURE(BgL_auxz00_18141,BFALSE,BFALSE);} 
BgL_nz00_4872 = 
BELONG_TO_LONG(BgL_tmpz00_18138); } 
if(
(BgL_nz00_4872<((long)0)))
{ /* Ieee/fixnum.scm 1999 */
BgL_mz00_1986 = 
NEG(BgL_nz00_4872); }  else 
{ /* Ieee/fixnum.scm 1999 */
BgL_mz00_1986 = BgL_nz00_4872; } } 
{ /* Ieee/fixnum.scm 2318 */
 long BgL_nz00_4877;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_tmpz00_18149;
if(
ELONGP(BgL_nz00_1984))
{ /* Ieee/fixnum.scm 2318 */
BgL_tmpz00_18149 = BgL_nz00_1984
; }  else 
{ 
 obj_t BgL_auxz00_18152;
BgL_auxz00_18152 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104488L), BGl_string4921z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_1984); 
FAILURE(BgL_auxz00_18152,BFALSE,BFALSE);} 
BgL_nz00_4877 = 
BELONG_TO_LONG(BgL_tmpz00_18149); } 
if(
(BgL_nz00_4877<((long)0)))
{ /* Ieee/fixnum.scm 1999 */
BgL_nz00_1987 = 
NEG(BgL_nz00_4877); }  else 
{ /* Ieee/fixnum.scm 1999 */
BgL_nz00_1987 = BgL_nz00_4877; } } 
if(
(BgL_mz00_1986==BgL_nz00_1987))
{ /* Ieee/fixnum.scm 2318 */
return BgL_mz00_1986;}  else 
{ /* Ieee/fixnum.scm 2318 */
 bool_t BgL_test6957z00_18162;
{ /* Ieee/fixnum.scm 2318 */
 long BgL_arg2139z00_1998;
BgL_arg2139z00_1998 = 
(BgL_mz00_1986%BgL_nz00_1987); 
BgL_test6957z00_18162 = 
(BgL_arg2139z00_1998==((long)0)); } 
if(BgL_test6957z00_18162)
{ /* Ieee/fixnum.scm 2318 */
return BgL_mz00_1986;}  else 
{ /* Ieee/fixnum.scm 2318 */
 bool_t BgL_test6958z00_18165;
{ /* Ieee/fixnum.scm 2318 */
 long BgL_arg2138z00_1997;
BgL_arg2138z00_1997 = 
(BgL_nz00_1987%BgL_mz00_1986); 
BgL_test6958z00_18165 = 
(BgL_arg2138z00_1997==((long)0)); } 
if(BgL_test6958z00_18165)
{ /* Ieee/fixnum.scm 2318 */
return BgL_nz00_1987;}  else 
{ /* Ieee/fixnum.scm 2318 */
 long BgL_arg2134z00_1993;
{ /* Ieee/fixnum.scm 2318 */
 long BgL_arg2135z00_1994;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_list2136z00_1995;
{ /* Ieee/fixnum.scm 2318 */
 obj_t BgL_arg2137z00_1996;
BgL_arg2137z00_1996 = 
MAKE_YOUNG_PAIR(
make_belong(BgL_nz00_1987), BNIL); 
BgL_list2136z00_1995 = 
MAKE_YOUNG_PAIR(
make_belong(BgL_mz00_1986), BgL_arg2137z00_1996); } 
BgL_arg2135z00_1994 = 
BGl_gcdelongz00zz__r4_numbers_6_5_fixnumz00(BgL_list2136z00_1995); } 
BgL_arg2134z00_1993 = 
(BgL_mz00_1986/BgL_arg2135z00_1994); } 
return 
(BgL_arg2134z00_1993*BgL_nz00_1987);} } } } } 

}



/* &lcmelong */
obj_t BGl_z62lcmelongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6750, obj_t BgL_xz00_6751)
{
{ /* Ieee/fixnum.scm 2318 */
{ /* Ieee/fixnum.scm 2318 */
 long BgL_tmpz00_18175;
BgL_tmpz00_18175 = 
BGl_lcmelongz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6751); 
return 
make_belong(BgL_tmpz00_18175);} } 

}



/* lcmllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_lcmllongz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_524)
{
{ /* Ieee/fixnum.scm 2320 */
if(
NULLP(BgL_xz00_524))
{ /* Ieee/fixnum.scm 2320 */
return ((BGL_LONGLONG_T)1);}  else 
{ /* Ieee/fixnum.scm 2320 */
 bool_t BgL_test6960z00_18180;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_tmpz00_18181;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_pairz00_4930;
if(
PAIRP(BgL_xz00_524))
{ /* Ieee/fixnum.scm 2320 */
BgL_pairz00_4930 = BgL_xz00_524; }  else 
{ 
 obj_t BgL_auxz00_18184;
BgL_auxz00_18184 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104537L), BGl_string4922z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_524); 
FAILURE(BgL_auxz00_18184,BFALSE,BFALSE);} 
BgL_tmpz00_18181 = 
CDR(BgL_pairz00_4930); } 
BgL_test6960z00_18180 = 
NULLP(BgL_tmpz00_18181); } 
if(BgL_test6960z00_18180)
{ /* Ieee/fixnum.scm 2320 */
 BGL_LONGLONG_T BgL_nz00_4932;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_pairz00_4931;
if(
PAIRP(BgL_xz00_524))
{ /* Ieee/fixnum.scm 2320 */
BgL_pairz00_4931 = BgL_xz00_524; }  else 
{ 
 obj_t BgL_auxz00_18192;
BgL_auxz00_18192 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104537L), BGl_string4922z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_524); 
FAILURE(BgL_auxz00_18192,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_tmpz00_18196;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_aux4228z00_8340;
BgL_aux4228z00_8340 = 
CAR(BgL_pairz00_4931); 
if(
LLONGP(BgL_aux4228z00_8340))
{ /* Ieee/fixnum.scm 2320 */
BgL_tmpz00_18196 = BgL_aux4228z00_8340
; }  else 
{ 
 obj_t BgL_auxz00_18200;
BgL_auxz00_18200 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104537L), BGl_string4922z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4228z00_8340); 
FAILURE(BgL_auxz00_18200,BFALSE,BFALSE);} } 
BgL_nz00_4932 = 
BLLONG_TO_LLONG(BgL_tmpz00_18196); } } 
if(
(BgL_nz00_4932<((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2000 */
return 
NEG(BgL_nz00_4932);}  else 
{ /* Ieee/fixnum.scm 2000 */
return BgL_nz00_4932;} }  else 
{ /* Ieee/fixnum.scm 2320 */
 BGL_LONGLONG_T BgL_g1067z00_2006; obj_t BgL_g1068z00_2007;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_arg2151z00_2017; obj_t BgL_arg2152z00_2018;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_pairz00_4961;
if(
PAIRP(BgL_xz00_524))
{ /* Ieee/fixnum.scm 2320 */
BgL_pairz00_4961 = BgL_xz00_524; }  else 
{ 
 obj_t BgL_auxz00_18210;
BgL_auxz00_18210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104537L), BGl_string4922z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_524); 
FAILURE(BgL_auxz00_18210,BFALSE,BFALSE);} 
BgL_arg2151z00_2017 = 
CAR(BgL_pairz00_4961); } 
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_pairz00_4962;
if(
PAIRP(BgL_xz00_524))
{ /* Ieee/fixnum.scm 2320 */
BgL_pairz00_4962 = BgL_xz00_524; }  else 
{ 
 obj_t BgL_auxz00_18217;
BgL_auxz00_18217 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104537L), BGl_string4922z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_524); 
FAILURE(BgL_auxz00_18217,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_pairz00_4965;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_aux4234z00_8346;
BgL_aux4234z00_8346 = 
CDR(BgL_pairz00_4962); 
if(
PAIRP(BgL_aux4234z00_8346))
{ /* Ieee/fixnum.scm 2320 */
BgL_pairz00_4965 = BgL_aux4234z00_8346; }  else 
{ 
 obj_t BgL_auxz00_18224;
BgL_auxz00_18224 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104537L), BGl_string4922z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4234z00_8346); 
FAILURE(BgL_auxz00_18224,BFALSE,BFALSE);} } 
BgL_arg2152z00_2018 = 
CAR(BgL_pairz00_4965); } } 
BgL_g1067z00_2006 = 
BGl_lcm2ze78ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2151z00_2017, BgL_arg2152z00_2018); } 
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_pairz00_4966;
if(
PAIRP(BgL_xz00_524))
{ /* Ieee/fixnum.scm 2320 */
BgL_pairz00_4966 = BgL_xz00_524; }  else 
{ 
 obj_t BgL_auxz00_18232;
BgL_auxz00_18232 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104537L), BGl_string4922z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_524); 
FAILURE(BgL_auxz00_18232,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_pairz00_4969;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_aux4238z00_8350;
BgL_aux4238z00_8350 = 
CDR(BgL_pairz00_4966); 
if(
PAIRP(BgL_aux4238z00_8350))
{ /* Ieee/fixnum.scm 2320 */
BgL_pairz00_4969 = BgL_aux4238z00_8350; }  else 
{ 
 obj_t BgL_auxz00_18239;
BgL_auxz00_18239 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104537L), BGl_string4922z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4238z00_8350); 
FAILURE(BgL_auxz00_18239,BFALSE,BFALSE);} } 
BgL_g1068z00_2007 = 
CDR(BgL_pairz00_4969); } } 
{ 
 BGL_LONGLONG_T BgL_tmpz00_4983; obj_t BgL_leftz00_4984;
BgL_tmpz00_4983 = BgL_g1067z00_2006; 
BgL_leftz00_4984 = BgL_g1068z00_2007; 
BgL_loopz00_4982:
if(
PAIRP(BgL_leftz00_4984))
{ /* Ieee/fixnum.scm 2320 */
 BGL_LONGLONG_T BgL_arg2148z00_4990; obj_t BgL_arg2149z00_4991;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_arg2150z00_4992;
BgL_arg2150z00_4992 = 
CAR(BgL_leftz00_4984); 
BgL_arg2148z00_4990 = 
BGl_lcm2ze78ze7zz__r4_numbers_6_5_fixnumz00(
make_bllong(BgL_tmpz00_4983), BgL_arg2150z00_4992); } 
BgL_arg2149z00_4991 = 
CDR(BgL_leftz00_4984); 
{ 
 obj_t BgL_leftz00_18251; BGL_LONGLONG_T BgL_tmpz00_18250;
BgL_tmpz00_18250 = BgL_arg2148z00_4990; 
BgL_leftz00_18251 = BgL_arg2149z00_4991; 
BgL_leftz00_4984 = BgL_leftz00_18251; 
BgL_tmpz00_4983 = BgL_tmpz00_18250; 
goto BgL_loopz00_4982;} }  else 
{ /* Ieee/fixnum.scm 2320 */
return BgL_tmpz00_4983;} } } } } 

}



/* lcm2~8 */
BGL_LONGLONG_T BGl_lcm2ze78ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_2019, obj_t BgL_nz00_2020)
{
{ /* Ieee/fixnum.scm 2320 */
{ /* Ieee/fixnum.scm 2320 */
 BGL_LONGLONG_T BgL_mz00_2022; BGL_LONGLONG_T BgL_nz00_2023;
{ /* Ieee/fixnum.scm 2320 */
 BGL_LONGLONG_T BgL_nz00_4937;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_tmpz00_18252;
if(
LLONGP(BgL_mz00_2019))
{ /* Ieee/fixnum.scm 2320 */
BgL_tmpz00_18252 = BgL_mz00_2019
; }  else 
{ 
 obj_t BgL_auxz00_18255;
BgL_auxz00_18255 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104537L), BGl_string4923z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_2019); 
FAILURE(BgL_auxz00_18255,BFALSE,BFALSE);} 
BgL_nz00_4937 = 
BLLONG_TO_LLONG(BgL_tmpz00_18252); } 
if(
(BgL_nz00_4937<((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2000 */
BgL_mz00_2022 = 
NEG(BgL_nz00_4937); }  else 
{ /* Ieee/fixnum.scm 2000 */
BgL_mz00_2022 = BgL_nz00_4937; } } 
{ /* Ieee/fixnum.scm 2320 */
 BGL_LONGLONG_T BgL_nz00_4942;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_tmpz00_18263;
if(
LLONGP(BgL_nz00_2020))
{ /* Ieee/fixnum.scm 2320 */
BgL_tmpz00_18263 = BgL_nz00_2020
; }  else 
{ 
 obj_t BgL_auxz00_18266;
BgL_auxz00_18266 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104537L), BGl_string4923z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_2020); 
FAILURE(BgL_auxz00_18266,BFALSE,BFALSE);} 
BgL_nz00_4942 = 
BLLONG_TO_LLONG(BgL_tmpz00_18263); } 
if(
(BgL_nz00_4942<((BGL_LONGLONG_T)0)))
{ /* Ieee/fixnum.scm 2000 */
BgL_nz00_2023 = 
NEG(BgL_nz00_4942); }  else 
{ /* Ieee/fixnum.scm 2000 */
BgL_nz00_2023 = BgL_nz00_4942; } } 
if(
(BgL_mz00_2022==BgL_nz00_2023))
{ /* Ieee/fixnum.scm 2320 */
return BgL_mz00_2022;}  else 
{ /* Ieee/fixnum.scm 2320 */
 bool_t BgL_test6976z00_18276;
{ /* Ieee/fixnum.scm 2320 */
 BGL_LONGLONG_T BgL_arg2164z00_2034;
BgL_arg2164z00_2034 = 
(BgL_mz00_2022%BgL_nz00_2023); 
BgL_test6976z00_18276 = 
(BgL_arg2164z00_2034==((BGL_LONGLONG_T)0)); } 
if(BgL_test6976z00_18276)
{ /* Ieee/fixnum.scm 2320 */
return BgL_mz00_2022;}  else 
{ /* Ieee/fixnum.scm 2320 */
 bool_t BgL_test6977z00_18279;
{ /* Ieee/fixnum.scm 2320 */
 BGL_LONGLONG_T BgL_arg2163z00_2033;
BgL_arg2163z00_2033 = 
(BgL_nz00_2023%BgL_mz00_2022); 
BgL_test6977z00_18279 = 
(BgL_arg2163z00_2033==((BGL_LONGLONG_T)0)); } 
if(BgL_test6977z00_18279)
{ /* Ieee/fixnum.scm 2320 */
return BgL_nz00_2023;}  else 
{ /* Ieee/fixnum.scm 2320 */
 BGL_LONGLONG_T BgL_arg2159z00_2029;
{ /* Ieee/fixnum.scm 2320 */
 BGL_LONGLONG_T BgL_arg2160z00_2030;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_list2161z00_2031;
{ /* Ieee/fixnum.scm 2320 */
 obj_t BgL_arg2162z00_2032;
BgL_arg2162z00_2032 = 
MAKE_YOUNG_PAIR(
make_bllong(BgL_nz00_2023), BNIL); 
BgL_list2161z00_2031 = 
MAKE_YOUNG_PAIR(
make_bllong(BgL_mz00_2022), BgL_arg2162z00_2032); } 
BgL_arg2160z00_2030 = 
BGl_gcdllongz00zz__r4_numbers_6_5_fixnumz00(BgL_list2161z00_2031); } 
BgL_arg2159z00_2029 = 
(BgL_mz00_2022/BgL_arg2160z00_2030); } 
return 
(BgL_arg2159z00_2029*BgL_nz00_2023);} } } } } 

}



/* &lcmllong */
obj_t BGl_z62lcmllongz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6752, obj_t BgL_xz00_6753)
{
{ /* Ieee/fixnum.scm 2320 */
return 
make_bllong(
BGl_lcmllongz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6753));} 

}



/* lcms8 */
BGL_EXPORTED_DEF int8_t BGl_lcms8z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_525)
{
{ /* Ieee/fixnum.scm 2322 */
if(
NULLP(BgL_xz00_525))
{ /* Ieee/fixnum.scm 2322 */
return 
(int8_t)(1L);}  else 
{ /* Ieee/fixnum.scm 2322 */
 bool_t BgL_test6979z00_18294;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_tmpz00_18295;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_pairz00_4995;
if(
PAIRP(BgL_xz00_525))
{ /* Ieee/fixnum.scm 2322 */
BgL_pairz00_4995 = BgL_xz00_525; }  else 
{ 
 obj_t BgL_auxz00_18298;
BgL_auxz00_18298 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104583L), BGl_string4924z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_525); 
FAILURE(BgL_auxz00_18298,BFALSE,BFALSE);} 
BgL_tmpz00_18295 = 
CDR(BgL_pairz00_4995); } 
BgL_test6979z00_18294 = 
NULLP(BgL_tmpz00_18295); } 
if(BgL_test6979z00_18294)
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_arg2169z00_2040;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_pairz00_4996;
if(
PAIRP(BgL_xz00_525))
{ /* Ieee/fixnum.scm 2322 */
BgL_pairz00_4996 = BgL_xz00_525; }  else 
{ 
 obj_t BgL_auxz00_18306;
BgL_auxz00_18306 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104583L), BGl_string4924z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_525); 
FAILURE(BgL_auxz00_18306,BFALSE,BFALSE);} 
BgL_arg2169z00_2040 = 
CAR(BgL_pairz00_4996); } 
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_za7za7_4997;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_tmpz00_18311;
if(
BGL_INT8P(BgL_arg2169z00_2040))
{ /* Ieee/fixnum.scm 2322 */
BgL_tmpz00_18311 = BgL_arg2169z00_2040
; }  else 
{ 
 obj_t BgL_auxz00_18314;
BgL_auxz00_18314 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104583L), BGl_string4924z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_arg2169z00_2040); 
FAILURE(BgL_auxz00_18314,BFALSE,BFALSE);} 
BgL_za7za7_4997 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_18311); } 
{ /* Ieee/fixnum.scm 2002 */
 bool_t BgL_test6983z00_18319;
{ /* Ieee/fixnum.scm 2002 */
 int8_t BgL_arg1609z00_4999;
BgL_arg1609z00_4999 = 
(int8_t)(0L); 
BgL_test6983z00_18319 = 
(BgL_za7za7_4997<BgL_arg1609z00_4999); } 
if(BgL_test6983z00_18319)
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_arg1591z00_5003;
BgL_arg1591z00_5003 = 
(int8_t)(0L); 
return 
(BgL_arg1591z00_5003-BgL_za7za7_4997);}  else 
{ /* Ieee/fixnum.scm 2002 */
return BgL_za7za7_4997;} } } }  else 
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_g1069z00_2042; obj_t BgL_g1070z00_2043;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_arg2175z00_2053; obj_t BgL_arg2176z00_2054;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_pairz00_5038;
if(
PAIRP(BgL_xz00_525))
{ /* Ieee/fixnum.scm 2322 */
BgL_pairz00_5038 = BgL_xz00_525; }  else 
{ 
 obj_t BgL_auxz00_18326;
BgL_auxz00_18326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104583L), BGl_string4924z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_525); 
FAILURE(BgL_auxz00_18326,BFALSE,BFALSE);} 
BgL_arg2175z00_2053 = 
CAR(BgL_pairz00_5038); } 
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_pairz00_5039;
if(
PAIRP(BgL_xz00_525))
{ /* Ieee/fixnum.scm 2322 */
BgL_pairz00_5039 = BgL_xz00_525; }  else 
{ 
 obj_t BgL_auxz00_18333;
BgL_auxz00_18333 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104583L), BGl_string4924z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_525); 
FAILURE(BgL_auxz00_18333,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_pairz00_5042;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_aux4254z00_8366;
BgL_aux4254z00_8366 = 
CDR(BgL_pairz00_5039); 
if(
PAIRP(BgL_aux4254z00_8366))
{ /* Ieee/fixnum.scm 2322 */
BgL_pairz00_5042 = BgL_aux4254z00_8366; }  else 
{ 
 obj_t BgL_auxz00_18340;
BgL_auxz00_18340 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104583L), BGl_string4924z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4254z00_8366); 
FAILURE(BgL_auxz00_18340,BFALSE,BFALSE);} } 
BgL_arg2176z00_2054 = 
CAR(BgL_pairz00_5042); } } 
BgL_g1069z00_2042 = 
BGl_lcm2ze77ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2175z00_2053, BgL_arg2176z00_2054); } 
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_pairz00_5043;
if(
PAIRP(BgL_xz00_525))
{ /* Ieee/fixnum.scm 2322 */
BgL_pairz00_5043 = BgL_xz00_525; }  else 
{ 
 obj_t BgL_auxz00_18348;
BgL_auxz00_18348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104583L), BGl_string4924z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_525); 
FAILURE(BgL_auxz00_18348,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_pairz00_5046;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_aux4258z00_8370;
BgL_aux4258z00_8370 = 
CDR(BgL_pairz00_5043); 
if(
PAIRP(BgL_aux4258z00_8370))
{ /* Ieee/fixnum.scm 2322 */
BgL_pairz00_5046 = BgL_aux4258z00_8370; }  else 
{ 
 obj_t BgL_auxz00_18355;
BgL_auxz00_18355 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104583L), BGl_string4924z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4258z00_8370); 
FAILURE(BgL_auxz00_18355,BFALSE,BFALSE);} } 
BgL_g1070z00_2043 = 
CDR(BgL_pairz00_5046); } } 
{ 
 int8_t BgL_tmpz00_5060; obj_t BgL_leftz00_5061;
BgL_tmpz00_5060 = BgL_g1069z00_2042; 
BgL_leftz00_5061 = BgL_g1070z00_2043; 
BgL_loopz00_5059:
if(
PAIRP(BgL_leftz00_5061))
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_arg2172z00_5067; obj_t BgL_arg2173z00_5068;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_arg2174z00_5069;
BgL_arg2174z00_5069 = 
CAR(BgL_leftz00_5061); 
BgL_arg2172z00_5067 = 
BGl_lcm2ze77ze7zz__r4_numbers_6_5_fixnumz00(
BGL_INT8_TO_BINT8(BgL_tmpz00_5060), BgL_arg2174z00_5069); } 
BgL_arg2173z00_5068 = 
CDR(BgL_leftz00_5061); 
{ 
 obj_t BgL_leftz00_18367; int8_t BgL_tmpz00_18366;
BgL_tmpz00_18366 = BgL_arg2172z00_5067; 
BgL_leftz00_18367 = BgL_arg2173z00_5068; 
BgL_leftz00_5061 = BgL_leftz00_18367; 
BgL_tmpz00_5060 = BgL_tmpz00_18366; 
goto BgL_loopz00_5059;} }  else 
{ /* Ieee/fixnum.scm 2322 */
return BgL_tmpz00_5060;} } } } } 

}



/* lcm2~7 */
int8_t BGl_lcm2ze77ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_2055, obj_t BgL_nz00_2056)
{
{ /* Ieee/fixnum.scm 2322 */
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_mz00_2058; int8_t BgL_nz00_2059;
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_za7za7_5006;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_tmpz00_18368;
if(
BGL_INT8P(BgL_mz00_2055))
{ /* Ieee/fixnum.scm 2322 */
BgL_tmpz00_18368 = BgL_mz00_2055
; }  else 
{ 
 obj_t BgL_auxz00_18371;
BgL_auxz00_18371 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104583L), BGl_string4925z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_2055); 
FAILURE(BgL_auxz00_18371,BFALSE,BFALSE);} 
BgL_za7za7_5006 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_18368); } 
{ /* Ieee/fixnum.scm 2002 */
 bool_t BgL_test6991z00_18376;
{ /* Ieee/fixnum.scm 2002 */
 int8_t BgL_arg1609z00_5008;
BgL_arg1609z00_5008 = 
(int8_t)(0L); 
BgL_test6991z00_18376 = 
(BgL_za7za7_5006<BgL_arg1609z00_5008); } 
if(BgL_test6991z00_18376)
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_arg1591z00_5012;
BgL_arg1591z00_5012 = 
(int8_t)(0L); 
BgL_mz00_2058 = 
(BgL_arg1591z00_5012-BgL_za7za7_5006); }  else 
{ /* Ieee/fixnum.scm 2002 */
BgL_mz00_2058 = BgL_za7za7_5006; } } } 
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_za7za7_5015;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_tmpz00_18381;
if(
BGL_INT8P(BgL_nz00_2056))
{ /* Ieee/fixnum.scm 2322 */
BgL_tmpz00_18381 = BgL_nz00_2056
; }  else 
{ 
 obj_t BgL_auxz00_18384;
BgL_auxz00_18384 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104583L), BGl_string4925z00zz__r4_numbers_6_5_fixnumz00, BGl_string4573z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_2056); 
FAILURE(BgL_auxz00_18384,BFALSE,BFALSE);} 
BgL_za7za7_5015 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_18381); } 
{ /* Ieee/fixnum.scm 2002 */
 bool_t BgL_test6993z00_18389;
{ /* Ieee/fixnum.scm 2002 */
 int8_t BgL_arg1609z00_5017;
BgL_arg1609z00_5017 = 
(int8_t)(0L); 
BgL_test6993z00_18389 = 
(BgL_za7za7_5015<BgL_arg1609z00_5017); } 
if(BgL_test6993z00_18389)
{ /* Ieee/fixnum.scm 1980 */
 int8_t BgL_arg1591z00_5021;
BgL_arg1591z00_5021 = 
(int8_t)(0L); 
BgL_nz00_2059 = 
(BgL_arg1591z00_5021-BgL_za7za7_5015); }  else 
{ /* Ieee/fixnum.scm 2002 */
BgL_nz00_2059 = BgL_za7za7_5015; } } } 
if(
(BgL_mz00_2058==BgL_nz00_2059))
{ /* Ieee/fixnum.scm 2322 */
return BgL_mz00_2058;}  else 
{ /* Ieee/fixnum.scm 2322 */
 bool_t BgL_test6995z00_18396;
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_arg2191z00_2073; int8_t BgL_arg2192z00_2074;
BgL_arg2191z00_2073 = 
(BgL_mz00_2058%BgL_nz00_2059); 
BgL_arg2192z00_2074 = 
(int8_t)(0L); 
BgL_test6995z00_18396 = 
(BgL_arg2191z00_2073==BgL_arg2192z00_2074); } 
if(BgL_test6995z00_18396)
{ /* Ieee/fixnum.scm 2322 */
return BgL_mz00_2058;}  else 
{ /* Ieee/fixnum.scm 2322 */
 bool_t BgL_test6996z00_18400;
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_arg2189z00_2071; int8_t BgL_arg2190z00_2072;
BgL_arg2189z00_2071 = 
(BgL_nz00_2059%BgL_mz00_2058); 
BgL_arg2190z00_2072 = 
(int8_t)(0L); 
BgL_test6996z00_18400 = 
(BgL_arg2189z00_2071==BgL_arg2190z00_2072); } 
if(BgL_test6996z00_18400)
{ /* Ieee/fixnum.scm 2322 */
return BgL_nz00_2059;}  else 
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_arg2185z00_2067;
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_arg2186z00_2068;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_list2187z00_2069;
{ /* Ieee/fixnum.scm 2322 */
 obj_t BgL_arg2188z00_2070;
BgL_arg2188z00_2070 = 
MAKE_YOUNG_PAIR(
BGL_INT8_TO_BINT8(BgL_nz00_2059), BNIL); 
BgL_list2187z00_2069 = 
MAKE_YOUNG_PAIR(
BGL_INT8_TO_BINT8(BgL_mz00_2058), BgL_arg2188z00_2070); } 
BgL_arg2186z00_2068 = 
BGl_gcds8z00zz__r4_numbers_6_5_fixnumz00(BgL_list2187z00_2069); } 
BgL_arg2185z00_2067 = 
(BgL_mz00_2058/BgL_arg2186z00_2068); } 
return 
(BgL_arg2185z00_2067*BgL_nz00_2059);} } } } } 

}



/* &lcms8 */
obj_t BGl_z62lcms8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6754, obj_t BgL_xz00_6755)
{
{ /* Ieee/fixnum.scm 2322 */
{ /* Ieee/fixnum.scm 2322 */
 int8_t BgL_tmpz00_18411;
BgL_tmpz00_18411 = 
BGl_lcms8z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6755); 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_18411);} } 

}



/* lcmu8 */
BGL_EXPORTED_DEF uint8_t BGl_lcmu8z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_526)
{
{ /* Ieee/fixnum.scm 2323 */
if(
NULLP(BgL_xz00_526))
{ /* Ieee/fixnum.scm 2323 */
return 
(uint8_t)(1L);}  else 
{ /* Ieee/fixnum.scm 2323 */
 bool_t BgL_test6998z00_18417;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_tmpz00_18418;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_pairz00_5072;
if(
PAIRP(BgL_xz00_526))
{ /* Ieee/fixnum.scm 2323 */
BgL_pairz00_5072 = BgL_xz00_526; }  else 
{ 
 obj_t BgL_auxz00_18421;
BgL_auxz00_18421 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104651L), BGl_string4926z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_526); 
FAILURE(BgL_auxz00_18421,BFALSE,BFALSE);} 
BgL_tmpz00_18418 = 
CDR(BgL_pairz00_5072); } 
BgL_test6998z00_18417 = 
NULLP(BgL_tmpz00_18418); } 
if(BgL_test6998z00_18417)
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_za7za7_5074;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_pairz00_5073;
if(
PAIRP(BgL_xz00_526))
{ /* Ieee/fixnum.scm 2323 */
BgL_pairz00_5073 = BgL_xz00_526; }  else 
{ 
 obj_t BgL_auxz00_18429;
BgL_auxz00_18429 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104651L), BGl_string4926z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_526); 
FAILURE(BgL_auxz00_18429,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_tmpz00_18433;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_aux4268z00_8380;
BgL_aux4268z00_8380 = 
CAR(BgL_pairz00_5073); 
if(
BGL_UINT8P(BgL_aux4268z00_8380))
{ /* Ieee/fixnum.scm 2323 */
BgL_tmpz00_18433 = BgL_aux4268z00_8380
; }  else 
{ 
 obj_t BgL_auxz00_18437;
BgL_auxz00_18437 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104651L), BGl_string4926z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4268z00_8380); 
FAILURE(BgL_auxz00_18437,BFALSE,BFALSE);} } 
BgL_za7za7_5074 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_18433); } } 
return BgL_za7za7_5074;}  else 
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_g1071z00_2082; obj_t BgL_g1072z00_2083;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_arg2204z00_2093; obj_t BgL_arg2205z00_2094;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_pairz00_5091;
if(
PAIRP(BgL_xz00_526))
{ /* Ieee/fixnum.scm 2323 */
BgL_pairz00_5091 = BgL_xz00_526; }  else 
{ 
 obj_t BgL_auxz00_18444;
BgL_auxz00_18444 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104651L), BGl_string4926z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_526); 
FAILURE(BgL_auxz00_18444,BFALSE,BFALSE);} 
BgL_arg2204z00_2093 = 
CAR(BgL_pairz00_5091); } 
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_pairz00_5092;
if(
PAIRP(BgL_xz00_526))
{ /* Ieee/fixnum.scm 2323 */
BgL_pairz00_5092 = BgL_xz00_526; }  else 
{ 
 obj_t BgL_auxz00_18451;
BgL_auxz00_18451 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104651L), BGl_string4926z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_526); 
FAILURE(BgL_auxz00_18451,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_pairz00_5095;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_aux4274z00_8386;
BgL_aux4274z00_8386 = 
CDR(BgL_pairz00_5092); 
if(
PAIRP(BgL_aux4274z00_8386))
{ /* Ieee/fixnum.scm 2323 */
BgL_pairz00_5095 = BgL_aux4274z00_8386; }  else 
{ 
 obj_t BgL_auxz00_18458;
BgL_auxz00_18458 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104651L), BGl_string4926z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4274z00_8386); 
FAILURE(BgL_auxz00_18458,BFALSE,BFALSE);} } 
BgL_arg2205z00_2094 = 
CAR(BgL_pairz00_5095); } } 
BgL_g1071z00_2082 = 
BGl_lcm2ze76ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2204z00_2093, BgL_arg2205z00_2094); } 
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_pairz00_5096;
if(
PAIRP(BgL_xz00_526))
{ /* Ieee/fixnum.scm 2323 */
BgL_pairz00_5096 = BgL_xz00_526; }  else 
{ 
 obj_t BgL_auxz00_18466;
BgL_auxz00_18466 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104651L), BGl_string4926z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_526); 
FAILURE(BgL_auxz00_18466,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_pairz00_5099;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_aux4278z00_8390;
BgL_aux4278z00_8390 = 
CDR(BgL_pairz00_5096); 
if(
PAIRP(BgL_aux4278z00_8390))
{ /* Ieee/fixnum.scm 2323 */
BgL_pairz00_5099 = BgL_aux4278z00_8390; }  else 
{ 
 obj_t BgL_auxz00_18473;
BgL_auxz00_18473 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104651L), BGl_string4926z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4278z00_8390); 
FAILURE(BgL_auxz00_18473,BFALSE,BFALSE);} } 
BgL_g1072z00_2083 = 
CDR(BgL_pairz00_5099); } } 
{ 
 uint8_t BgL_tmpz00_5113; obj_t BgL_leftz00_5114;
BgL_tmpz00_5113 = BgL_g1071z00_2082; 
BgL_leftz00_5114 = BgL_g1072z00_2083; 
BgL_loopz00_5112:
if(
PAIRP(BgL_leftz00_5114))
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_arg2201z00_5120; obj_t BgL_arg2202z00_5121;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_arg2203z00_5122;
BgL_arg2203z00_5122 = 
CAR(BgL_leftz00_5114); 
BgL_arg2201z00_5120 = 
BGl_lcm2ze76ze7zz__r4_numbers_6_5_fixnumz00(
BGL_UINT8_TO_BUINT8(BgL_tmpz00_5113), BgL_arg2203z00_5122); } 
BgL_arg2202z00_5121 = 
CDR(BgL_leftz00_5114); 
{ 
 obj_t BgL_leftz00_18485; uint8_t BgL_tmpz00_18484;
BgL_tmpz00_18484 = BgL_arg2201z00_5120; 
BgL_leftz00_18485 = BgL_arg2202z00_5121; 
BgL_leftz00_5114 = BgL_leftz00_18485; 
BgL_tmpz00_5113 = BgL_tmpz00_18484; 
goto BgL_loopz00_5112;} }  else 
{ /* Ieee/fixnum.scm 2323 */
return BgL_tmpz00_5113;} } } } } 

}



/* lcm2~6 */
uint8_t BGl_lcm2ze76ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_2095, obj_t BgL_nz00_2096)
{
{ /* Ieee/fixnum.scm 2323 */
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_mz00_2098; uint8_t BgL_nz00_2099;
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_za7za7_5075;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_tmpz00_18486;
if(
BGL_UINT8P(BgL_mz00_2095))
{ /* Ieee/fixnum.scm 2323 */
BgL_tmpz00_18486 = BgL_mz00_2095
; }  else 
{ 
 obj_t BgL_auxz00_18489;
BgL_auxz00_18489 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104651L), BGl_string4927z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_2095); 
FAILURE(BgL_auxz00_18489,BFALSE,BFALSE);} 
BgL_za7za7_5075 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_18486); } 
BgL_mz00_2098 = BgL_za7za7_5075; } 
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_za7za7_5076;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_tmpz00_18494;
if(
BGL_UINT8P(BgL_nz00_2096))
{ /* Ieee/fixnum.scm 2323 */
BgL_tmpz00_18494 = BgL_nz00_2096
; }  else 
{ 
 obj_t BgL_auxz00_18497;
BgL_auxz00_18497 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104651L), BGl_string4927z00zz__r4_numbers_6_5_fixnumz00, BGl_string4571z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_2096); 
FAILURE(BgL_auxz00_18497,BFALSE,BFALSE);} 
BgL_za7za7_5076 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_18494); } 
BgL_nz00_2099 = BgL_za7za7_5076; } 
if(
(BgL_mz00_2098==BgL_nz00_2099))
{ /* Ieee/fixnum.scm 2323 */
return BgL_mz00_2098;}  else 
{ /* Ieee/fixnum.scm 2323 */
 bool_t BgL_test7011z00_18504;
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_arg2220z00_2113; uint8_t BgL_arg2221z00_2114;
{ /* Ieee/fixnum.scm 2125 */
 int8_t BgL_tmpz00_18505;
BgL_tmpz00_18505 = 
(int8_t)(BgL_nz00_2099); 
BgL_arg2220z00_2113 = 
(BgL_mz00_2098%BgL_tmpz00_18505); } 
BgL_arg2221z00_2114 = 
(uint8_t)(0L); 
BgL_test7011z00_18504 = 
(BgL_arg2220z00_2113==BgL_arg2221z00_2114); } 
if(BgL_test7011z00_18504)
{ /* Ieee/fixnum.scm 2323 */
return BgL_mz00_2098;}  else 
{ /* Ieee/fixnum.scm 2323 */
 bool_t BgL_test7012z00_18510;
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_arg2218z00_2111; uint8_t BgL_arg2219z00_2112;
{ /* Ieee/fixnum.scm 2125 */
 int8_t BgL_tmpz00_18511;
BgL_tmpz00_18511 = 
(int8_t)(BgL_mz00_2098); 
BgL_arg2218z00_2111 = 
(BgL_nz00_2099%BgL_tmpz00_18511); } 
BgL_arg2219z00_2112 = 
(uint8_t)(0L); 
BgL_test7012z00_18510 = 
(BgL_arg2218z00_2111==BgL_arg2219z00_2112); } 
if(BgL_test7012z00_18510)
{ /* Ieee/fixnum.scm 2323 */
return BgL_nz00_2099;}  else 
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_arg2214z00_2107;
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_arg2215z00_2108;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_list2216z00_2109;
{ /* Ieee/fixnum.scm 2323 */
 obj_t BgL_arg2217z00_2110;
BgL_arg2217z00_2110 = 
MAKE_YOUNG_PAIR(
BGL_UINT8_TO_BUINT8(BgL_nz00_2099), BNIL); 
BgL_list2216z00_2109 = 
MAKE_YOUNG_PAIR(
BGL_UINT8_TO_BUINT8(BgL_mz00_2098), BgL_arg2217z00_2110); } 
BgL_arg2215z00_2108 = 
BGl_gcdu8z00zz__r4_numbers_6_5_fixnumz00(BgL_list2216z00_2109); } 
BgL_arg2214z00_2107 = 
(BgL_mz00_2098/BgL_arg2215z00_2108); } 
return 
(BgL_arg2214z00_2107*BgL_nz00_2099);} } } } } 

}



/* &lcmu8 */
obj_t BGl_z62lcmu8z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6756, obj_t BgL_xz00_6757)
{
{ /* Ieee/fixnum.scm 2323 */
{ /* Ieee/fixnum.scm 2323 */
 uint8_t BgL_tmpz00_18523;
BgL_tmpz00_18523 = 
BGl_lcmu8z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6757); 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_18523);} } 

}



/* lcms16 */
BGL_EXPORTED_DEF int16_t BGl_lcms16z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_527)
{
{ /* Ieee/fixnum.scm 2325 */
if(
NULLP(BgL_xz00_527))
{ /* Ieee/fixnum.scm 2325 */
return 
(int16_t)(1L);}  else 
{ /* Ieee/fixnum.scm 2325 */
 bool_t BgL_test7014z00_18529;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_tmpz00_18530;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_pairz00_5125;
if(
PAIRP(BgL_xz00_527))
{ /* Ieee/fixnum.scm 2325 */
BgL_pairz00_5125 = BgL_xz00_527; }  else 
{ 
 obj_t BgL_auxz00_18533;
BgL_auxz00_18533 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104723L), BGl_string4928z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_527); 
FAILURE(BgL_auxz00_18533,BFALSE,BFALSE);} 
BgL_tmpz00_18530 = 
CDR(BgL_pairz00_5125); } 
BgL_test7014z00_18529 = 
NULLP(BgL_tmpz00_18530); } 
if(BgL_test7014z00_18529)
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_arg2226z00_2120;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_pairz00_5126;
if(
PAIRP(BgL_xz00_527))
{ /* Ieee/fixnum.scm 2325 */
BgL_pairz00_5126 = BgL_xz00_527; }  else 
{ 
 obj_t BgL_auxz00_18541;
BgL_auxz00_18541 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104723L), BGl_string4928z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_527); 
FAILURE(BgL_auxz00_18541,BFALSE,BFALSE);} 
BgL_arg2226z00_2120 = 
CAR(BgL_pairz00_5126); } 
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_za7za7_5127;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_tmpz00_18546;
if(
BGL_INT16P(BgL_arg2226z00_2120))
{ /* Ieee/fixnum.scm 2325 */
BgL_tmpz00_18546 = BgL_arg2226z00_2120
; }  else 
{ 
 obj_t BgL_auxz00_18549;
BgL_auxz00_18549 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104723L), BGl_string4928z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_arg2226z00_2120); 
FAILURE(BgL_auxz00_18549,BFALSE,BFALSE);} 
BgL_za7za7_5127 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_18546); } 
{ /* Ieee/fixnum.scm 2005 */
 bool_t BgL_test7018z00_18554;
{ /* Ieee/fixnum.scm 2005 */
 int16_t BgL_arg1613z00_5129;
BgL_arg1613z00_5129 = 
(int16_t)(0L); 
BgL_test7018z00_18554 = 
(BgL_za7za7_5127<BgL_arg1613z00_5129); } 
if(BgL_test7018z00_18554)
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_arg1595z00_5133;
BgL_arg1595z00_5133 = 
(int16_t)(0L); 
return 
(BgL_arg1595z00_5133-BgL_za7za7_5127);}  else 
{ /* Ieee/fixnum.scm 2005 */
return BgL_za7za7_5127;} } } }  else 
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_g1073z00_2122; obj_t BgL_g1074z00_2123;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_arg2232z00_2133; obj_t BgL_arg2233z00_2134;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_pairz00_5168;
if(
PAIRP(BgL_xz00_527))
{ /* Ieee/fixnum.scm 2325 */
BgL_pairz00_5168 = BgL_xz00_527; }  else 
{ 
 obj_t BgL_auxz00_18561;
BgL_auxz00_18561 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104723L), BGl_string4928z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_527); 
FAILURE(BgL_auxz00_18561,BFALSE,BFALSE);} 
BgL_arg2232z00_2133 = 
CAR(BgL_pairz00_5168); } 
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_pairz00_5169;
if(
PAIRP(BgL_xz00_527))
{ /* Ieee/fixnum.scm 2325 */
BgL_pairz00_5169 = BgL_xz00_527; }  else 
{ 
 obj_t BgL_auxz00_18568;
BgL_auxz00_18568 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104723L), BGl_string4928z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_527); 
FAILURE(BgL_auxz00_18568,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_pairz00_5172;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_aux4294z00_8406;
BgL_aux4294z00_8406 = 
CDR(BgL_pairz00_5169); 
if(
PAIRP(BgL_aux4294z00_8406))
{ /* Ieee/fixnum.scm 2325 */
BgL_pairz00_5172 = BgL_aux4294z00_8406; }  else 
{ 
 obj_t BgL_auxz00_18575;
BgL_auxz00_18575 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104723L), BGl_string4928z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4294z00_8406); 
FAILURE(BgL_auxz00_18575,BFALSE,BFALSE);} } 
BgL_arg2233z00_2134 = 
CAR(BgL_pairz00_5172); } } 
BgL_g1073z00_2122 = 
BGl_lcm2ze75ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2232z00_2133, BgL_arg2233z00_2134); } 
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_pairz00_5173;
if(
PAIRP(BgL_xz00_527))
{ /* Ieee/fixnum.scm 2325 */
BgL_pairz00_5173 = BgL_xz00_527; }  else 
{ 
 obj_t BgL_auxz00_18583;
BgL_auxz00_18583 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104723L), BGl_string4928z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_527); 
FAILURE(BgL_auxz00_18583,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_pairz00_5176;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_aux4298z00_8410;
BgL_aux4298z00_8410 = 
CDR(BgL_pairz00_5173); 
if(
PAIRP(BgL_aux4298z00_8410))
{ /* Ieee/fixnum.scm 2325 */
BgL_pairz00_5176 = BgL_aux4298z00_8410; }  else 
{ 
 obj_t BgL_auxz00_18590;
BgL_auxz00_18590 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104723L), BGl_string4928z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4298z00_8410); 
FAILURE(BgL_auxz00_18590,BFALSE,BFALSE);} } 
BgL_g1074z00_2123 = 
CDR(BgL_pairz00_5176); } } 
{ 
 int16_t BgL_tmpz00_5190; obj_t BgL_leftz00_5191;
BgL_tmpz00_5190 = BgL_g1073z00_2122; 
BgL_leftz00_5191 = BgL_g1074z00_2123; 
BgL_loopz00_5189:
if(
PAIRP(BgL_leftz00_5191))
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_arg2229z00_5197; obj_t BgL_arg2230z00_5198;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_arg2231z00_5199;
BgL_arg2231z00_5199 = 
CAR(BgL_leftz00_5191); 
BgL_arg2229z00_5197 = 
BGl_lcm2ze75ze7zz__r4_numbers_6_5_fixnumz00(
BGL_INT16_TO_BINT16(BgL_tmpz00_5190), BgL_arg2231z00_5199); } 
BgL_arg2230z00_5198 = 
CDR(BgL_leftz00_5191); 
{ 
 obj_t BgL_leftz00_18602; int16_t BgL_tmpz00_18601;
BgL_tmpz00_18601 = BgL_arg2229z00_5197; 
BgL_leftz00_18602 = BgL_arg2230z00_5198; 
BgL_leftz00_5191 = BgL_leftz00_18602; 
BgL_tmpz00_5190 = BgL_tmpz00_18601; 
goto BgL_loopz00_5189;} }  else 
{ /* Ieee/fixnum.scm 2325 */
return BgL_tmpz00_5190;} } } } } 

}



/* lcm2~5 */
int16_t BGl_lcm2ze75ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_2135, obj_t BgL_nz00_2136)
{
{ /* Ieee/fixnum.scm 2325 */
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_mz00_2138; int16_t BgL_nz00_2139;
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_za7za7_5136;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_tmpz00_18603;
if(
BGL_INT16P(BgL_mz00_2135))
{ /* Ieee/fixnum.scm 2325 */
BgL_tmpz00_18603 = BgL_mz00_2135
; }  else 
{ 
 obj_t BgL_auxz00_18606;
BgL_auxz00_18606 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104723L), BGl_string4929z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_2135); 
FAILURE(BgL_auxz00_18606,BFALSE,BFALSE);} 
BgL_za7za7_5136 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_18603); } 
{ /* Ieee/fixnum.scm 2005 */
 bool_t BgL_test7026z00_18611;
{ /* Ieee/fixnum.scm 2005 */
 int16_t BgL_arg1613z00_5138;
BgL_arg1613z00_5138 = 
(int16_t)(0L); 
BgL_test7026z00_18611 = 
(BgL_za7za7_5136<BgL_arg1613z00_5138); } 
if(BgL_test7026z00_18611)
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_arg1595z00_5142;
BgL_arg1595z00_5142 = 
(int16_t)(0L); 
BgL_mz00_2138 = 
(BgL_arg1595z00_5142-BgL_za7za7_5136); }  else 
{ /* Ieee/fixnum.scm 2005 */
BgL_mz00_2138 = BgL_za7za7_5136; } } } 
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_za7za7_5145;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_tmpz00_18616;
if(
BGL_INT16P(BgL_nz00_2136))
{ /* Ieee/fixnum.scm 2325 */
BgL_tmpz00_18616 = BgL_nz00_2136
; }  else 
{ 
 obj_t BgL_auxz00_18619;
BgL_auxz00_18619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104723L), BGl_string4929z00zz__r4_numbers_6_5_fixnumz00, BGl_string4577z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_2136); 
FAILURE(BgL_auxz00_18619,BFALSE,BFALSE);} 
BgL_za7za7_5145 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_18616); } 
{ /* Ieee/fixnum.scm 2005 */
 bool_t BgL_test7028z00_18624;
{ /* Ieee/fixnum.scm 2005 */
 int16_t BgL_arg1613z00_5147;
BgL_arg1613z00_5147 = 
(int16_t)(0L); 
BgL_test7028z00_18624 = 
(BgL_za7za7_5145<BgL_arg1613z00_5147); } 
if(BgL_test7028z00_18624)
{ /* Ieee/fixnum.scm 1983 */
 int16_t BgL_arg1595z00_5151;
BgL_arg1595z00_5151 = 
(int16_t)(0L); 
BgL_nz00_2139 = 
(BgL_arg1595z00_5151-BgL_za7za7_5145); }  else 
{ /* Ieee/fixnum.scm 2005 */
BgL_nz00_2139 = BgL_za7za7_5145; } } } 
if(
(BgL_mz00_2138==BgL_nz00_2139))
{ /* Ieee/fixnum.scm 2325 */
return BgL_mz00_2138;}  else 
{ /* Ieee/fixnum.scm 2325 */
 bool_t BgL_test7030z00_18631;
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_arg2248z00_2153; int16_t BgL_arg2249z00_2154;
BgL_arg2248z00_2153 = 
(BgL_mz00_2138%BgL_nz00_2139); 
BgL_arg2249z00_2154 = 
(int16_t)(0L); 
BgL_test7030z00_18631 = 
(BgL_arg2248z00_2153==BgL_arg2249z00_2154); } 
if(BgL_test7030z00_18631)
{ /* Ieee/fixnum.scm 2325 */
return BgL_mz00_2138;}  else 
{ /* Ieee/fixnum.scm 2325 */
 bool_t BgL_test7031z00_18635;
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_arg2246z00_2151; int16_t BgL_arg2247z00_2152;
BgL_arg2246z00_2151 = 
(BgL_nz00_2139%BgL_mz00_2138); 
BgL_arg2247z00_2152 = 
(int16_t)(0L); 
BgL_test7031z00_18635 = 
(BgL_arg2246z00_2151==BgL_arg2247z00_2152); } 
if(BgL_test7031z00_18635)
{ /* Ieee/fixnum.scm 2325 */
return BgL_nz00_2139;}  else 
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_arg2242z00_2147;
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_arg2243z00_2148;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_list2244z00_2149;
{ /* Ieee/fixnum.scm 2325 */
 obj_t BgL_arg2245z00_2150;
BgL_arg2245z00_2150 = 
MAKE_YOUNG_PAIR(
BGL_INT16_TO_BINT16(BgL_nz00_2139), BNIL); 
BgL_list2244z00_2149 = 
MAKE_YOUNG_PAIR(
BGL_INT16_TO_BINT16(BgL_mz00_2138), BgL_arg2245z00_2150); } 
BgL_arg2243z00_2148 = 
BGl_gcds16z00zz__r4_numbers_6_5_fixnumz00(BgL_list2244z00_2149); } 
BgL_arg2242z00_2147 = 
(BgL_mz00_2138/BgL_arg2243z00_2148); } 
return 
(BgL_arg2242z00_2147*BgL_nz00_2139);} } } } } 

}



/* &lcms16 */
obj_t BGl_z62lcms16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6758, obj_t BgL_xz00_6759)
{
{ /* Ieee/fixnum.scm 2325 */
{ /* Ieee/fixnum.scm 2325 */
 int16_t BgL_tmpz00_18646;
BgL_tmpz00_18646 = 
BGl_lcms16z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6759); 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_18646);} } 

}



/* lcmu16 */
BGL_EXPORTED_DEF uint16_t BGl_lcmu16z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_528)
{
{ /* Ieee/fixnum.scm 2326 */
if(
NULLP(BgL_xz00_528))
{ /* Ieee/fixnum.scm 2326 */
return 
(uint16_t)(1L);}  else 
{ /* Ieee/fixnum.scm 2326 */
 bool_t BgL_test7033z00_18652;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_tmpz00_18653;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_pairz00_5202;
if(
PAIRP(BgL_xz00_528))
{ /* Ieee/fixnum.scm 2326 */
BgL_pairz00_5202 = BgL_xz00_528; }  else 
{ 
 obj_t BgL_auxz00_18656;
BgL_auxz00_18656 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104795L), BGl_string4930z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_528); 
FAILURE(BgL_auxz00_18656,BFALSE,BFALSE);} 
BgL_tmpz00_18653 = 
CDR(BgL_pairz00_5202); } 
BgL_test7033z00_18652 = 
NULLP(BgL_tmpz00_18653); } 
if(BgL_test7033z00_18652)
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_za7za7_5204;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_pairz00_5203;
if(
PAIRP(BgL_xz00_528))
{ /* Ieee/fixnum.scm 2326 */
BgL_pairz00_5203 = BgL_xz00_528; }  else 
{ 
 obj_t BgL_auxz00_18664;
BgL_auxz00_18664 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104795L), BGl_string4930z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_528); 
FAILURE(BgL_auxz00_18664,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_tmpz00_18668;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_aux4308z00_8420;
BgL_aux4308z00_8420 = 
CAR(BgL_pairz00_5203); 
if(
BGL_UINT16P(BgL_aux4308z00_8420))
{ /* Ieee/fixnum.scm 2326 */
BgL_tmpz00_18668 = BgL_aux4308z00_8420
; }  else 
{ 
 obj_t BgL_auxz00_18672;
BgL_auxz00_18672 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104795L), BGl_string4930z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4308z00_8420); 
FAILURE(BgL_auxz00_18672,BFALSE,BFALSE);} } 
BgL_za7za7_5204 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_18668); } } 
return BgL_za7za7_5204;}  else 
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_g1075z00_2162; obj_t BgL_g1077z00_2163;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_arg2260z00_2173; obj_t BgL_arg2261z00_2174;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_pairz00_5221;
if(
PAIRP(BgL_xz00_528))
{ /* Ieee/fixnum.scm 2326 */
BgL_pairz00_5221 = BgL_xz00_528; }  else 
{ 
 obj_t BgL_auxz00_18679;
BgL_auxz00_18679 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104795L), BGl_string4930z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_528); 
FAILURE(BgL_auxz00_18679,BFALSE,BFALSE);} 
BgL_arg2260z00_2173 = 
CAR(BgL_pairz00_5221); } 
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_pairz00_5222;
if(
PAIRP(BgL_xz00_528))
{ /* Ieee/fixnum.scm 2326 */
BgL_pairz00_5222 = BgL_xz00_528; }  else 
{ 
 obj_t BgL_auxz00_18686;
BgL_auxz00_18686 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104795L), BGl_string4930z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_528); 
FAILURE(BgL_auxz00_18686,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_pairz00_5225;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_aux4314z00_8426;
BgL_aux4314z00_8426 = 
CDR(BgL_pairz00_5222); 
if(
PAIRP(BgL_aux4314z00_8426))
{ /* Ieee/fixnum.scm 2326 */
BgL_pairz00_5225 = BgL_aux4314z00_8426; }  else 
{ 
 obj_t BgL_auxz00_18693;
BgL_auxz00_18693 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104795L), BGl_string4930z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4314z00_8426); 
FAILURE(BgL_auxz00_18693,BFALSE,BFALSE);} } 
BgL_arg2261z00_2174 = 
CAR(BgL_pairz00_5225); } } 
BgL_g1075z00_2162 = 
BGl_lcm2ze74ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2260z00_2173, BgL_arg2261z00_2174); } 
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_pairz00_5226;
if(
PAIRP(BgL_xz00_528))
{ /* Ieee/fixnum.scm 2326 */
BgL_pairz00_5226 = BgL_xz00_528; }  else 
{ 
 obj_t BgL_auxz00_18701;
BgL_auxz00_18701 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104795L), BGl_string4930z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_528); 
FAILURE(BgL_auxz00_18701,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_pairz00_5229;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_aux4318z00_8430;
BgL_aux4318z00_8430 = 
CDR(BgL_pairz00_5226); 
if(
PAIRP(BgL_aux4318z00_8430))
{ /* Ieee/fixnum.scm 2326 */
BgL_pairz00_5229 = BgL_aux4318z00_8430; }  else 
{ 
 obj_t BgL_auxz00_18708;
BgL_auxz00_18708 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104795L), BGl_string4930z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4318z00_8430); 
FAILURE(BgL_auxz00_18708,BFALSE,BFALSE);} } 
BgL_g1077z00_2163 = 
CDR(BgL_pairz00_5229); } } 
{ 
 uint16_t BgL_tmpz00_5243; obj_t BgL_leftz00_5244;
BgL_tmpz00_5243 = BgL_g1075z00_2162; 
BgL_leftz00_5244 = BgL_g1077z00_2163; 
BgL_loopz00_5242:
if(
PAIRP(BgL_leftz00_5244))
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_arg2257z00_5250; obj_t BgL_arg2258z00_5251;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_arg2259z00_5252;
BgL_arg2259z00_5252 = 
CAR(BgL_leftz00_5244); 
BgL_arg2257z00_5250 = 
BGl_lcm2ze74ze7zz__r4_numbers_6_5_fixnumz00(
BGL_UINT16_TO_BUINT16(BgL_tmpz00_5243), BgL_arg2259z00_5252); } 
BgL_arg2258z00_5251 = 
CDR(BgL_leftz00_5244); 
{ 
 obj_t BgL_leftz00_18720; uint16_t BgL_tmpz00_18719;
BgL_tmpz00_18719 = BgL_arg2257z00_5250; 
BgL_leftz00_18720 = BgL_arg2258z00_5251; 
BgL_leftz00_5244 = BgL_leftz00_18720; 
BgL_tmpz00_5243 = BgL_tmpz00_18719; 
goto BgL_loopz00_5242;} }  else 
{ /* Ieee/fixnum.scm 2326 */
return BgL_tmpz00_5243;} } } } } 

}



/* lcm2~4 */
uint16_t BGl_lcm2ze74ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_2175, obj_t BgL_nz00_2176)
{
{ /* Ieee/fixnum.scm 2326 */
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_mz00_2178; uint16_t BgL_nz00_2179;
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_za7za7_5205;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_tmpz00_18721;
if(
BGL_UINT16P(BgL_mz00_2175))
{ /* Ieee/fixnum.scm 2326 */
BgL_tmpz00_18721 = BgL_mz00_2175
; }  else 
{ 
 obj_t BgL_auxz00_18724;
BgL_auxz00_18724 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104795L), BGl_string4931z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_2175); 
FAILURE(BgL_auxz00_18724,BFALSE,BFALSE);} 
BgL_za7za7_5205 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_18721); } 
BgL_mz00_2178 = BgL_za7za7_5205; } 
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_za7za7_5206;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_tmpz00_18729;
if(
BGL_UINT16P(BgL_nz00_2176))
{ /* Ieee/fixnum.scm 2326 */
BgL_tmpz00_18729 = BgL_nz00_2176
; }  else 
{ 
 obj_t BgL_auxz00_18732;
BgL_auxz00_18732 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104795L), BGl_string4931z00zz__r4_numbers_6_5_fixnumz00, BGl_string4575z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_2176); 
FAILURE(BgL_auxz00_18732,BFALSE,BFALSE);} 
BgL_za7za7_5206 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_18729); } 
BgL_nz00_2179 = BgL_za7za7_5206; } 
if(
(BgL_mz00_2178==BgL_nz00_2179))
{ /* Ieee/fixnum.scm 2326 */
return BgL_mz00_2178;}  else 
{ /* Ieee/fixnum.scm 2326 */
 bool_t BgL_test7046z00_18739;
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_arg2276z00_2193; uint16_t BgL_arg2277z00_2194;
{ /* Ieee/fixnum.scm 2128 */
 int16_t BgL_tmpz00_18740;
BgL_tmpz00_18740 = 
(int16_t)(BgL_nz00_2179); 
BgL_arg2276z00_2193 = 
(BgL_mz00_2178%BgL_tmpz00_18740); } 
BgL_arg2277z00_2194 = 
(uint16_t)(0L); 
BgL_test7046z00_18739 = 
(BgL_arg2276z00_2193==BgL_arg2277z00_2194); } 
if(BgL_test7046z00_18739)
{ /* Ieee/fixnum.scm 2326 */
return BgL_mz00_2178;}  else 
{ /* Ieee/fixnum.scm 2326 */
 bool_t BgL_test7047z00_18745;
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_arg2274z00_2191; uint16_t BgL_arg2275z00_2192;
{ /* Ieee/fixnum.scm 2128 */
 int16_t BgL_tmpz00_18746;
BgL_tmpz00_18746 = 
(int16_t)(BgL_mz00_2178); 
BgL_arg2274z00_2191 = 
(BgL_nz00_2179%BgL_tmpz00_18746); } 
BgL_arg2275z00_2192 = 
(uint16_t)(0L); 
BgL_test7047z00_18745 = 
(BgL_arg2274z00_2191==BgL_arg2275z00_2192); } 
if(BgL_test7047z00_18745)
{ /* Ieee/fixnum.scm 2326 */
return BgL_nz00_2179;}  else 
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_arg2270z00_2187;
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_arg2271z00_2188;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_list2272z00_2189;
{ /* Ieee/fixnum.scm 2326 */
 obj_t BgL_arg2273z00_2190;
BgL_arg2273z00_2190 = 
MAKE_YOUNG_PAIR(
BGL_UINT16_TO_BUINT16(BgL_nz00_2179), BNIL); 
BgL_list2272z00_2189 = 
MAKE_YOUNG_PAIR(
BGL_UINT16_TO_BUINT16(BgL_mz00_2178), BgL_arg2273z00_2190); } 
BgL_arg2271z00_2188 = 
BGl_gcdu16z00zz__r4_numbers_6_5_fixnumz00(BgL_list2272z00_2189); } 
BgL_arg2270z00_2187 = 
(BgL_mz00_2178/BgL_arg2271z00_2188); } 
return 
(BgL_arg2270z00_2187*BgL_nz00_2179);} } } } } 

}



/* &lcmu16 */
obj_t BGl_z62lcmu16z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6760, obj_t BgL_xz00_6761)
{
{ /* Ieee/fixnum.scm 2326 */
{ /* Ieee/fixnum.scm 2326 */
 uint16_t BgL_tmpz00_18758;
BgL_tmpz00_18758 = 
BGl_lcmu16z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6761); 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_18758);} } 

}



/* lcms32 */
BGL_EXPORTED_DEF int32_t BGl_lcms32z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_529)
{
{ /* Ieee/fixnum.scm 2328 */
if(
NULLP(BgL_xz00_529))
{ /* Ieee/fixnum.scm 2328 */
return 
(int32_t)(1L);}  else 
{ /* Ieee/fixnum.scm 2328 */
 bool_t BgL_test7049z00_18764;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_tmpz00_18765;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_pairz00_5255;
if(
PAIRP(BgL_xz00_529))
{ /* Ieee/fixnum.scm 2328 */
BgL_pairz00_5255 = BgL_xz00_529; }  else 
{ 
 obj_t BgL_auxz00_18768;
BgL_auxz00_18768 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104870L), BGl_string4932z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_529); 
FAILURE(BgL_auxz00_18768,BFALSE,BFALSE);} 
BgL_tmpz00_18765 = 
CDR(BgL_pairz00_5255); } 
BgL_test7049z00_18764 = 
NULLP(BgL_tmpz00_18765); } 
if(BgL_test7049z00_18764)
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_arg2283z00_2200;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_pairz00_5256;
if(
PAIRP(BgL_xz00_529))
{ /* Ieee/fixnum.scm 2328 */
BgL_pairz00_5256 = BgL_xz00_529; }  else 
{ 
 obj_t BgL_auxz00_18776;
BgL_auxz00_18776 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104870L), BGl_string4932z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_529); 
FAILURE(BgL_auxz00_18776,BFALSE,BFALSE);} 
BgL_arg2283z00_2200 = 
CAR(BgL_pairz00_5256); } 
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_za7za7_5257;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_tmpz00_18781;
if(
BGL_INT32P(BgL_arg2283z00_2200))
{ /* Ieee/fixnum.scm 2328 */
BgL_tmpz00_18781 = BgL_arg2283z00_2200
; }  else 
{ 
 obj_t BgL_auxz00_18784;
BgL_auxz00_18784 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104870L), BGl_string4932z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_arg2283z00_2200); 
FAILURE(BgL_auxz00_18784,BFALSE,BFALSE);} 
BgL_za7za7_5257 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_18781); } 
{ /* Ieee/fixnum.scm 2008 */
 bool_t BgL_test7053z00_18789;
{ /* Ieee/fixnum.scm 2008 */
 int32_t BgL_arg1616z00_5259;
BgL_arg1616z00_5259 = 
(int32_t)(0L); 
BgL_test7053z00_18789 = 
(BgL_za7za7_5257<BgL_arg1616z00_5259); } 
if(BgL_test7053z00_18789)
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_arg1598z00_5263;
BgL_arg1598z00_5263 = 
(int32_t)(0L); 
return 
(BgL_arg1598z00_5263-BgL_za7za7_5257);}  else 
{ /* Ieee/fixnum.scm 2008 */
return BgL_za7za7_5257;} } } }  else 
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_g1078z00_2202; obj_t BgL_g1079z00_2203;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_arg2289z00_2213; obj_t BgL_arg2290z00_2214;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_pairz00_5298;
if(
PAIRP(BgL_xz00_529))
{ /* Ieee/fixnum.scm 2328 */
BgL_pairz00_5298 = BgL_xz00_529; }  else 
{ 
 obj_t BgL_auxz00_18796;
BgL_auxz00_18796 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104870L), BGl_string4932z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_529); 
FAILURE(BgL_auxz00_18796,BFALSE,BFALSE);} 
BgL_arg2289z00_2213 = 
CAR(BgL_pairz00_5298); } 
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_pairz00_5299;
if(
PAIRP(BgL_xz00_529))
{ /* Ieee/fixnum.scm 2328 */
BgL_pairz00_5299 = BgL_xz00_529; }  else 
{ 
 obj_t BgL_auxz00_18803;
BgL_auxz00_18803 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104870L), BGl_string4932z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_529); 
FAILURE(BgL_auxz00_18803,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_pairz00_5302;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_aux4334z00_8446;
BgL_aux4334z00_8446 = 
CDR(BgL_pairz00_5299); 
if(
PAIRP(BgL_aux4334z00_8446))
{ /* Ieee/fixnum.scm 2328 */
BgL_pairz00_5302 = BgL_aux4334z00_8446; }  else 
{ 
 obj_t BgL_auxz00_18810;
BgL_auxz00_18810 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104870L), BGl_string4932z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4334z00_8446); 
FAILURE(BgL_auxz00_18810,BFALSE,BFALSE);} } 
BgL_arg2290z00_2214 = 
CAR(BgL_pairz00_5302); } } 
BgL_g1078z00_2202 = 
BGl_lcm2ze73ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2289z00_2213, BgL_arg2290z00_2214); } 
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_pairz00_5303;
if(
PAIRP(BgL_xz00_529))
{ /* Ieee/fixnum.scm 2328 */
BgL_pairz00_5303 = BgL_xz00_529; }  else 
{ 
 obj_t BgL_auxz00_18818;
BgL_auxz00_18818 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104870L), BGl_string4932z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_529); 
FAILURE(BgL_auxz00_18818,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_pairz00_5306;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_aux4338z00_8450;
BgL_aux4338z00_8450 = 
CDR(BgL_pairz00_5303); 
if(
PAIRP(BgL_aux4338z00_8450))
{ /* Ieee/fixnum.scm 2328 */
BgL_pairz00_5306 = BgL_aux4338z00_8450; }  else 
{ 
 obj_t BgL_auxz00_18825;
BgL_auxz00_18825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104870L), BGl_string4932z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4338z00_8450); 
FAILURE(BgL_auxz00_18825,BFALSE,BFALSE);} } 
BgL_g1079z00_2203 = 
CDR(BgL_pairz00_5306); } } 
{ 
 int32_t BgL_tmpz00_5320; obj_t BgL_leftz00_5321;
BgL_tmpz00_5320 = BgL_g1078z00_2202; 
BgL_leftz00_5321 = BgL_g1079z00_2203; 
BgL_loopz00_5319:
if(
PAIRP(BgL_leftz00_5321))
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_arg2286z00_5327; obj_t BgL_arg2287z00_5328;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_arg2288z00_5329;
BgL_arg2288z00_5329 = 
CAR(BgL_leftz00_5321); 
BgL_arg2286z00_5327 = 
BGl_lcm2ze73ze7zz__r4_numbers_6_5_fixnumz00(
BGL_INT32_TO_BINT32(BgL_tmpz00_5320), BgL_arg2288z00_5329); } 
BgL_arg2287z00_5328 = 
CDR(BgL_leftz00_5321); 
{ 
 obj_t BgL_leftz00_18837; int32_t BgL_tmpz00_18836;
BgL_tmpz00_18836 = BgL_arg2286z00_5327; 
BgL_leftz00_18837 = BgL_arg2287z00_5328; 
BgL_leftz00_5321 = BgL_leftz00_18837; 
BgL_tmpz00_5320 = BgL_tmpz00_18836; 
goto BgL_loopz00_5319;} }  else 
{ /* Ieee/fixnum.scm 2328 */
return BgL_tmpz00_5320;} } } } } 

}



/* lcm2~3 */
int32_t BGl_lcm2ze73ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_2215, obj_t BgL_nz00_2216)
{
{ /* Ieee/fixnum.scm 2328 */
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_mz00_2218; int32_t BgL_nz00_2219;
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_za7za7_5266;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_tmpz00_18838;
if(
BGL_INT32P(BgL_mz00_2215))
{ /* Ieee/fixnum.scm 2328 */
BgL_tmpz00_18838 = BgL_mz00_2215
; }  else 
{ 
 obj_t BgL_auxz00_18841;
BgL_auxz00_18841 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104870L), BGl_string4933z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_2215); 
FAILURE(BgL_auxz00_18841,BFALSE,BFALSE);} 
BgL_za7za7_5266 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_18838); } 
{ /* Ieee/fixnum.scm 2008 */
 bool_t BgL_test7061z00_18846;
{ /* Ieee/fixnum.scm 2008 */
 int32_t BgL_arg1616z00_5268;
BgL_arg1616z00_5268 = 
(int32_t)(0L); 
BgL_test7061z00_18846 = 
(BgL_za7za7_5266<BgL_arg1616z00_5268); } 
if(BgL_test7061z00_18846)
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_arg1598z00_5272;
BgL_arg1598z00_5272 = 
(int32_t)(0L); 
BgL_mz00_2218 = 
(BgL_arg1598z00_5272-BgL_za7za7_5266); }  else 
{ /* Ieee/fixnum.scm 2008 */
BgL_mz00_2218 = BgL_za7za7_5266; } } } 
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_za7za7_5275;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_tmpz00_18851;
if(
BGL_INT32P(BgL_nz00_2216))
{ /* Ieee/fixnum.scm 2328 */
BgL_tmpz00_18851 = BgL_nz00_2216
; }  else 
{ 
 obj_t BgL_auxz00_18854;
BgL_auxz00_18854 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104870L), BGl_string4933z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_2216); 
FAILURE(BgL_auxz00_18854,BFALSE,BFALSE);} 
BgL_za7za7_5275 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_18851); } 
{ /* Ieee/fixnum.scm 2008 */
 bool_t BgL_test7063z00_18859;
{ /* Ieee/fixnum.scm 2008 */
 int32_t BgL_arg1616z00_5277;
BgL_arg1616z00_5277 = 
(int32_t)(0L); 
BgL_test7063z00_18859 = 
(BgL_za7za7_5275<BgL_arg1616z00_5277); } 
if(BgL_test7063z00_18859)
{ /* Ieee/fixnum.scm 1986 */
 int32_t BgL_arg1598z00_5281;
BgL_arg1598z00_5281 = 
(int32_t)(0L); 
BgL_nz00_2219 = 
(BgL_arg1598z00_5281-BgL_za7za7_5275); }  else 
{ /* Ieee/fixnum.scm 2008 */
BgL_nz00_2219 = BgL_za7za7_5275; } } } 
if(
(BgL_mz00_2218==BgL_nz00_2219))
{ /* Ieee/fixnum.scm 2328 */
return BgL_mz00_2218;}  else 
{ /* Ieee/fixnum.scm 2328 */
 bool_t BgL_test7065z00_18866;
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_arg2306z00_2233; int32_t BgL_arg2307z00_2234;
BgL_arg2306z00_2233 = 
(BgL_mz00_2218%BgL_nz00_2219); 
BgL_arg2307z00_2234 = 
(int32_t)(0L); 
BgL_test7065z00_18866 = 
(BgL_arg2306z00_2233==BgL_arg2307z00_2234); } 
if(BgL_test7065z00_18866)
{ /* Ieee/fixnum.scm 2328 */
return BgL_mz00_2218;}  else 
{ /* Ieee/fixnum.scm 2328 */
 bool_t BgL_test7066z00_18870;
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_arg2304z00_2231; int32_t BgL_arg2305z00_2232;
BgL_arg2304z00_2231 = 
(BgL_nz00_2219%BgL_mz00_2218); 
BgL_arg2305z00_2232 = 
(int32_t)(0L); 
BgL_test7066z00_18870 = 
(BgL_arg2304z00_2231==BgL_arg2305z00_2232); } 
if(BgL_test7066z00_18870)
{ /* Ieee/fixnum.scm 2328 */
return BgL_nz00_2219;}  else 
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_arg2299z00_2227;
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_arg2300z00_2228;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_list2301z00_2229;
{ /* Ieee/fixnum.scm 2328 */
 obj_t BgL_arg2302z00_2230;
BgL_arg2302z00_2230 = 
MAKE_YOUNG_PAIR(
BGL_INT32_TO_BINT32(BgL_nz00_2219), BNIL); 
BgL_list2301z00_2229 = 
MAKE_YOUNG_PAIR(
BGL_INT32_TO_BINT32(BgL_mz00_2218), BgL_arg2302z00_2230); } 
BgL_arg2300z00_2228 = 
BGl_gcds32z00zz__r4_numbers_6_5_fixnumz00(BgL_list2301z00_2229); } 
BgL_arg2299z00_2227 = 
(BgL_mz00_2218/BgL_arg2300z00_2228); } 
return 
(BgL_arg2299z00_2227*BgL_nz00_2219);} } } } } 

}



/* &lcms32 */
obj_t BGl_z62lcms32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6762, obj_t BgL_xz00_6763)
{
{ /* Ieee/fixnum.scm 2328 */
{ /* Ieee/fixnum.scm 2328 */
 int32_t BgL_tmpz00_18881;
BgL_tmpz00_18881 = 
BGl_lcms32z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6763); 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_18881);} } 

}



/* lcmu32 */
BGL_EXPORTED_DEF uint32_t BGl_lcmu32z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_530)
{
{ /* Ieee/fixnum.scm 2329 */
if(
NULLP(BgL_xz00_530))
{ /* Ieee/fixnum.scm 2329 */
return 
(uint32_t)(1L);}  else 
{ /* Ieee/fixnum.scm 2329 */
 bool_t BgL_test7068z00_18887;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_tmpz00_18888;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_pairz00_5332;
if(
PAIRP(BgL_xz00_530))
{ /* Ieee/fixnum.scm 2329 */
BgL_pairz00_5332 = BgL_xz00_530; }  else 
{ 
 obj_t BgL_auxz00_18891;
BgL_auxz00_18891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104942L), BGl_string4934z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_530); 
FAILURE(BgL_auxz00_18891,BFALSE,BFALSE);} 
BgL_tmpz00_18888 = 
CDR(BgL_pairz00_5332); } 
BgL_test7068z00_18887 = 
NULLP(BgL_tmpz00_18888); } 
if(BgL_test7068z00_18887)
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_za7za7_5334;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_pairz00_5333;
if(
PAIRP(BgL_xz00_530))
{ /* Ieee/fixnum.scm 2329 */
BgL_pairz00_5333 = BgL_xz00_530; }  else 
{ 
 obj_t BgL_auxz00_18899;
BgL_auxz00_18899 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104942L), BGl_string4934z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_530); 
FAILURE(BgL_auxz00_18899,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_tmpz00_18903;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_aux4348z00_8460;
BgL_aux4348z00_8460 = 
CAR(BgL_pairz00_5333); 
if(
BGL_UINT32P(BgL_aux4348z00_8460))
{ /* Ieee/fixnum.scm 2329 */
BgL_tmpz00_18903 = BgL_aux4348z00_8460
; }  else 
{ 
 obj_t BgL_auxz00_18907;
BgL_auxz00_18907 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104942L), BGl_string4934z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4348z00_8460); 
FAILURE(BgL_auxz00_18907,BFALSE,BFALSE);} } 
BgL_za7za7_5334 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_18903); } } 
return BgL_za7za7_5334;}  else 
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_g1080z00_2242; obj_t BgL_g1081z00_2243;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_arg2320z00_2253; obj_t BgL_arg2322z00_2254;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_pairz00_5351;
if(
PAIRP(BgL_xz00_530))
{ /* Ieee/fixnum.scm 2329 */
BgL_pairz00_5351 = BgL_xz00_530; }  else 
{ 
 obj_t BgL_auxz00_18914;
BgL_auxz00_18914 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104942L), BGl_string4934z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_530); 
FAILURE(BgL_auxz00_18914,BFALSE,BFALSE);} 
BgL_arg2320z00_2253 = 
CAR(BgL_pairz00_5351); } 
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_pairz00_5352;
if(
PAIRP(BgL_xz00_530))
{ /* Ieee/fixnum.scm 2329 */
BgL_pairz00_5352 = BgL_xz00_530; }  else 
{ 
 obj_t BgL_auxz00_18921;
BgL_auxz00_18921 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104942L), BGl_string4934z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_530); 
FAILURE(BgL_auxz00_18921,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_pairz00_5355;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_aux4354z00_8466;
BgL_aux4354z00_8466 = 
CDR(BgL_pairz00_5352); 
if(
PAIRP(BgL_aux4354z00_8466))
{ /* Ieee/fixnum.scm 2329 */
BgL_pairz00_5355 = BgL_aux4354z00_8466; }  else 
{ 
 obj_t BgL_auxz00_18928;
BgL_auxz00_18928 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104942L), BGl_string4934z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4354z00_8466); 
FAILURE(BgL_auxz00_18928,BFALSE,BFALSE);} } 
BgL_arg2322z00_2254 = 
CAR(BgL_pairz00_5355); } } 
BgL_g1080z00_2242 = 
BGl_lcm2ze72ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2320z00_2253, BgL_arg2322z00_2254); } 
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_pairz00_5356;
if(
PAIRP(BgL_xz00_530))
{ /* Ieee/fixnum.scm 2329 */
BgL_pairz00_5356 = BgL_xz00_530; }  else 
{ 
 obj_t BgL_auxz00_18936;
BgL_auxz00_18936 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104942L), BGl_string4934z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_530); 
FAILURE(BgL_auxz00_18936,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_pairz00_5359;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_aux4358z00_8470;
BgL_aux4358z00_8470 = 
CDR(BgL_pairz00_5356); 
if(
PAIRP(BgL_aux4358z00_8470))
{ /* Ieee/fixnum.scm 2329 */
BgL_pairz00_5359 = BgL_aux4358z00_8470; }  else 
{ 
 obj_t BgL_auxz00_18943;
BgL_auxz00_18943 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104942L), BGl_string4934z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4358z00_8470); 
FAILURE(BgL_auxz00_18943,BFALSE,BFALSE);} } 
BgL_g1081z00_2243 = 
CDR(BgL_pairz00_5359); } } 
{ 
 uint32_t BgL_tmpz00_5373; obj_t BgL_leftz00_5374;
BgL_tmpz00_5373 = BgL_g1080z00_2242; 
BgL_leftz00_5374 = BgL_g1081z00_2243; 
BgL_loopz00_5372:
if(
PAIRP(BgL_leftz00_5374))
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_arg2315z00_5380; obj_t BgL_arg2316z00_5381;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_arg2317z00_5382;
BgL_arg2317z00_5382 = 
CAR(BgL_leftz00_5374); 
BgL_arg2315z00_5380 = 
BGl_lcm2ze72ze7zz__r4_numbers_6_5_fixnumz00(
BGL_UINT32_TO_BUINT32(BgL_tmpz00_5373), BgL_arg2317z00_5382); } 
BgL_arg2316z00_5381 = 
CDR(BgL_leftz00_5374); 
{ 
 obj_t BgL_leftz00_18955; uint32_t BgL_tmpz00_18954;
BgL_tmpz00_18954 = BgL_arg2315z00_5380; 
BgL_leftz00_18955 = BgL_arg2316z00_5381; 
BgL_leftz00_5374 = BgL_leftz00_18955; 
BgL_tmpz00_5373 = BgL_tmpz00_18954; 
goto BgL_loopz00_5372;} }  else 
{ /* Ieee/fixnum.scm 2329 */
return BgL_tmpz00_5373;} } } } } 

}



/* lcm2~2 */
uint32_t BGl_lcm2ze72ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_2255, obj_t BgL_nz00_2256)
{
{ /* Ieee/fixnum.scm 2329 */
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_mz00_2258; uint32_t BgL_nz00_2259;
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_za7za7_5335;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_tmpz00_18956;
if(
BGL_UINT32P(BgL_mz00_2255))
{ /* Ieee/fixnum.scm 2329 */
BgL_tmpz00_18956 = BgL_mz00_2255
; }  else 
{ 
 obj_t BgL_auxz00_18959;
BgL_auxz00_18959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104942L), BGl_string4935z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_2255); 
FAILURE(BgL_auxz00_18959,BFALSE,BFALSE);} 
BgL_za7za7_5335 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_18956); } 
BgL_mz00_2258 = BgL_za7za7_5335; } 
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_za7za7_5336;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_tmpz00_18964;
if(
BGL_UINT32P(BgL_nz00_2256))
{ /* Ieee/fixnum.scm 2329 */
BgL_tmpz00_18964 = BgL_nz00_2256
; }  else 
{ 
 obj_t BgL_auxz00_18967;
BgL_auxz00_18967 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(104942L), BGl_string4935z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_2256); 
FAILURE(BgL_auxz00_18967,BFALSE,BFALSE);} 
BgL_za7za7_5336 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_18964); } 
BgL_nz00_2259 = BgL_za7za7_5336; } 
if(
(BgL_mz00_2258==BgL_nz00_2259))
{ /* Ieee/fixnum.scm 2329 */
return BgL_mz00_2258;}  else 
{ /* Ieee/fixnum.scm 2329 */
 bool_t BgL_test7081z00_18974;
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_arg2337z00_2273; uint32_t BgL_arg2338z00_2274;
{ /* Ieee/fixnum.scm 2131 */
 int32_t BgL_tmpz00_18975;
BgL_tmpz00_18975 = 
(int32_t)(BgL_nz00_2259); 
BgL_arg2337z00_2273 = 
(BgL_mz00_2258%BgL_tmpz00_18975); } 
BgL_arg2338z00_2274 = 
(uint32_t)(0L); 
BgL_test7081z00_18974 = 
(BgL_arg2337z00_2273==BgL_arg2338z00_2274); } 
if(BgL_test7081z00_18974)
{ /* Ieee/fixnum.scm 2329 */
return BgL_mz00_2258;}  else 
{ /* Ieee/fixnum.scm 2329 */
 bool_t BgL_test7082z00_18980;
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_arg2335z00_2271; uint32_t BgL_arg2336z00_2272;
{ /* Ieee/fixnum.scm 2131 */
 int32_t BgL_tmpz00_18981;
BgL_tmpz00_18981 = 
(int32_t)(BgL_mz00_2258); 
BgL_arg2335z00_2271 = 
(BgL_nz00_2259%BgL_tmpz00_18981); } 
BgL_arg2336z00_2272 = 
(uint32_t)(0L); 
BgL_test7082z00_18980 = 
(BgL_arg2335z00_2271==BgL_arg2336z00_2272); } 
if(BgL_test7082z00_18980)
{ /* Ieee/fixnum.scm 2329 */
return BgL_nz00_2259;}  else 
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_arg2331z00_2267;
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_arg2332z00_2268;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_list2333z00_2269;
{ /* Ieee/fixnum.scm 2329 */
 obj_t BgL_arg2334z00_2270;
BgL_arg2334z00_2270 = 
MAKE_YOUNG_PAIR(
BGL_UINT32_TO_BUINT32(BgL_nz00_2259), BNIL); 
BgL_list2333z00_2269 = 
MAKE_YOUNG_PAIR(
BGL_UINT32_TO_BUINT32(BgL_mz00_2258), BgL_arg2334z00_2270); } 
BgL_arg2332z00_2268 = 
BGl_gcdu32z00zz__r4_numbers_6_5_fixnumz00(BgL_list2333z00_2269); } 
BgL_arg2331z00_2267 = 
(BgL_mz00_2258/BgL_arg2332z00_2268); } 
return 
(BgL_arg2331z00_2267*BgL_nz00_2259);} } } } } 

}



/* &lcmu32 */
obj_t BGl_z62lcmu32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6764, obj_t BgL_xz00_6765)
{
{ /* Ieee/fixnum.scm 2329 */
{ /* Ieee/fixnum.scm 2329 */
 uint32_t BgL_tmpz00_18993;
BgL_tmpz00_18993 = 
BGl_lcmu32z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6765); 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_18993);} } 

}



/* lcms64 */
BGL_EXPORTED_DEF int64_t BGl_lcms64z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_531)
{
{ /* Ieee/fixnum.scm 2331 */
if(
NULLP(BgL_xz00_531))
{ /* Ieee/fixnum.scm 2331 */
return 
(int64_t)(1L);}  else 
{ /* Ieee/fixnum.scm 2331 */
 bool_t BgL_test7084z00_18999;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_tmpz00_19000;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_pairz00_5385;
if(
PAIRP(BgL_xz00_531))
{ /* Ieee/fixnum.scm 2331 */
BgL_pairz00_5385 = BgL_xz00_531; }  else 
{ 
 obj_t BgL_auxz00_19003;
BgL_auxz00_19003 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105017L), BGl_string4936z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_531); 
FAILURE(BgL_auxz00_19003,BFALSE,BFALSE);} 
BgL_tmpz00_19000 = 
CDR(BgL_pairz00_5385); } 
BgL_test7084z00_18999 = 
NULLP(BgL_tmpz00_19000); } 
if(BgL_test7084z00_18999)
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_arg2344z00_2280;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_pairz00_5386;
if(
PAIRP(BgL_xz00_531))
{ /* Ieee/fixnum.scm 2331 */
BgL_pairz00_5386 = BgL_xz00_531; }  else 
{ 
 obj_t BgL_auxz00_19011;
BgL_auxz00_19011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105017L), BGl_string4936z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_531); 
FAILURE(BgL_auxz00_19011,BFALSE,BFALSE);} 
BgL_arg2344z00_2280 = 
CAR(BgL_pairz00_5386); } 
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_za7za7_5387;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_tmpz00_19016;
if(
BGL_INT64P(BgL_arg2344z00_2280))
{ /* Ieee/fixnum.scm 2331 */
BgL_tmpz00_19016 = BgL_arg2344z00_2280
; }  else 
{ 
 obj_t BgL_auxz00_19019;
BgL_auxz00_19019 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105017L), BGl_string4936z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_arg2344z00_2280); 
FAILURE(BgL_auxz00_19019,BFALSE,BFALSE);} 
BgL_za7za7_5387 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_19016); } 
{ /* Ieee/fixnum.scm 2011 */
 bool_t BgL_test7088z00_19024;
{ /* Ieee/fixnum.scm 2011 */
 int64_t BgL_arg1619z00_5389;
BgL_arg1619z00_5389 = 
(int64_t)(0L); 
BgL_test7088z00_19024 = 
(BgL_za7za7_5387<BgL_arg1619z00_5389); } 
if(BgL_test7088z00_19024)
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_arg1602z00_5393;
BgL_arg1602z00_5393 = 
(int64_t)(0L); 
return 
(BgL_arg1602z00_5393-BgL_za7za7_5387);}  else 
{ /* Ieee/fixnum.scm 2011 */
return BgL_za7za7_5387;} } } }  else 
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_g1082z00_2282; obj_t BgL_g1083z00_2283;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_arg2352z00_2293; obj_t BgL_arg2353z00_2294;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_pairz00_5428;
if(
PAIRP(BgL_xz00_531))
{ /* Ieee/fixnum.scm 2331 */
BgL_pairz00_5428 = BgL_xz00_531; }  else 
{ 
 obj_t BgL_auxz00_19031;
BgL_auxz00_19031 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105017L), BGl_string4936z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_531); 
FAILURE(BgL_auxz00_19031,BFALSE,BFALSE);} 
BgL_arg2352z00_2293 = 
CAR(BgL_pairz00_5428); } 
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_pairz00_5429;
if(
PAIRP(BgL_xz00_531))
{ /* Ieee/fixnum.scm 2331 */
BgL_pairz00_5429 = BgL_xz00_531; }  else 
{ 
 obj_t BgL_auxz00_19038;
BgL_auxz00_19038 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105017L), BGl_string4936z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_531); 
FAILURE(BgL_auxz00_19038,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_pairz00_5432;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_aux4374z00_8486;
BgL_aux4374z00_8486 = 
CDR(BgL_pairz00_5429); 
if(
PAIRP(BgL_aux4374z00_8486))
{ /* Ieee/fixnum.scm 2331 */
BgL_pairz00_5432 = BgL_aux4374z00_8486; }  else 
{ 
 obj_t BgL_auxz00_19045;
BgL_auxz00_19045 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105017L), BGl_string4936z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4374z00_8486); 
FAILURE(BgL_auxz00_19045,BFALSE,BFALSE);} } 
BgL_arg2353z00_2294 = 
CAR(BgL_pairz00_5432); } } 
BgL_g1082z00_2282 = 
BGl_lcm2ze71ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2352z00_2293, BgL_arg2353z00_2294); } 
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_pairz00_5433;
if(
PAIRP(BgL_xz00_531))
{ /* Ieee/fixnum.scm 2331 */
BgL_pairz00_5433 = BgL_xz00_531; }  else 
{ 
 obj_t BgL_auxz00_19053;
BgL_auxz00_19053 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105017L), BGl_string4936z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_531); 
FAILURE(BgL_auxz00_19053,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_pairz00_5436;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_aux4378z00_8490;
BgL_aux4378z00_8490 = 
CDR(BgL_pairz00_5433); 
if(
PAIRP(BgL_aux4378z00_8490))
{ /* Ieee/fixnum.scm 2331 */
BgL_pairz00_5436 = BgL_aux4378z00_8490; }  else 
{ 
 obj_t BgL_auxz00_19060;
BgL_auxz00_19060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105017L), BGl_string4936z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4378z00_8490); 
FAILURE(BgL_auxz00_19060,BFALSE,BFALSE);} } 
BgL_g1083z00_2283 = 
CDR(BgL_pairz00_5436); } } 
{ 
 int64_t BgL_tmpz00_5450; obj_t BgL_leftz00_5451;
BgL_tmpz00_5450 = BgL_g1082z00_2282; 
BgL_leftz00_5451 = BgL_g1083z00_2283; 
BgL_loopz00_5449:
if(
PAIRP(BgL_leftz00_5451))
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_arg2348z00_5457; obj_t BgL_arg2349z00_5458;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_arg2351z00_5459;
BgL_arg2351z00_5459 = 
CAR(BgL_leftz00_5451); 
BgL_arg2348z00_5457 = 
BGl_lcm2ze71ze7zz__r4_numbers_6_5_fixnumz00(
BGL_INT64_TO_BINT64(BgL_tmpz00_5450), BgL_arg2351z00_5459); } 
BgL_arg2349z00_5458 = 
CDR(BgL_leftz00_5451); 
{ 
 obj_t BgL_leftz00_19072; int64_t BgL_tmpz00_19071;
BgL_tmpz00_19071 = BgL_arg2348z00_5457; 
BgL_leftz00_19072 = BgL_arg2349z00_5458; 
BgL_leftz00_5451 = BgL_leftz00_19072; 
BgL_tmpz00_5450 = BgL_tmpz00_19071; 
goto BgL_loopz00_5449;} }  else 
{ /* Ieee/fixnum.scm 2331 */
return BgL_tmpz00_5450;} } } } } 

}



/* lcm2~1 */
int64_t BGl_lcm2ze71ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_2295, obj_t BgL_nz00_2296)
{
{ /* Ieee/fixnum.scm 2331 */
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_mz00_2298; int64_t BgL_nz00_2299;
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_za7za7_5396;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_tmpz00_19073;
if(
BGL_INT64P(BgL_mz00_2295))
{ /* Ieee/fixnum.scm 2331 */
BgL_tmpz00_19073 = BgL_mz00_2295
; }  else 
{ 
 obj_t BgL_auxz00_19076;
BgL_auxz00_19076 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105017L), BGl_string4937z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_2295); 
FAILURE(BgL_auxz00_19076,BFALSE,BFALSE);} 
BgL_za7za7_5396 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_19073); } 
{ /* Ieee/fixnum.scm 2011 */
 bool_t BgL_test7096z00_19081;
{ /* Ieee/fixnum.scm 2011 */
 int64_t BgL_arg1619z00_5398;
BgL_arg1619z00_5398 = 
(int64_t)(0L); 
BgL_test7096z00_19081 = 
(BgL_za7za7_5396<BgL_arg1619z00_5398); } 
if(BgL_test7096z00_19081)
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_arg1602z00_5402;
BgL_arg1602z00_5402 = 
(int64_t)(0L); 
BgL_mz00_2298 = 
(BgL_arg1602z00_5402-BgL_za7za7_5396); }  else 
{ /* Ieee/fixnum.scm 2011 */
BgL_mz00_2298 = BgL_za7za7_5396; } } } 
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_za7za7_5405;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_tmpz00_19086;
if(
BGL_INT64P(BgL_nz00_2296))
{ /* Ieee/fixnum.scm 2331 */
BgL_tmpz00_19086 = BgL_nz00_2296
; }  else 
{ 
 obj_t BgL_auxz00_19089;
BgL_auxz00_19089 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105017L), BGl_string4937z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_2296); 
FAILURE(BgL_auxz00_19089,BFALSE,BFALSE);} 
BgL_za7za7_5405 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_19086); } 
{ /* Ieee/fixnum.scm 2011 */
 bool_t BgL_test7098z00_19094;
{ /* Ieee/fixnum.scm 2011 */
 int64_t BgL_arg1619z00_5407;
BgL_arg1619z00_5407 = 
(int64_t)(0L); 
BgL_test7098z00_19094 = 
(BgL_za7za7_5405<BgL_arg1619z00_5407); } 
if(BgL_test7098z00_19094)
{ /* Ieee/fixnum.scm 1989 */
 int64_t BgL_arg1602z00_5411;
BgL_arg1602z00_5411 = 
(int64_t)(0L); 
BgL_nz00_2299 = 
(BgL_arg1602z00_5411-BgL_za7za7_5405); }  else 
{ /* Ieee/fixnum.scm 2011 */
BgL_nz00_2299 = BgL_za7za7_5405; } } } 
if(
(BgL_mz00_2298==BgL_nz00_2299))
{ /* Ieee/fixnum.scm 2331 */
return BgL_mz00_2298;}  else 
{ /* Ieee/fixnum.scm 2331 */
 bool_t BgL_test7100z00_19101;
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_arg2368z00_2313; int64_t BgL_arg2369z00_2314;
BgL_arg2368z00_2313 = 
(BgL_mz00_2298%BgL_nz00_2299); 
BgL_arg2369z00_2314 = 
(int64_t)(0L); 
BgL_test7100z00_19101 = 
(BgL_arg2368z00_2313==BgL_arg2369z00_2314); } 
if(BgL_test7100z00_19101)
{ /* Ieee/fixnum.scm 2331 */
return BgL_mz00_2298;}  else 
{ /* Ieee/fixnum.scm 2331 */
 bool_t BgL_test7101z00_19105;
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_arg2366z00_2311; int64_t BgL_arg2367z00_2312;
BgL_arg2366z00_2311 = 
(BgL_nz00_2299%BgL_mz00_2298); 
BgL_arg2367z00_2312 = 
(int64_t)(0L); 
BgL_test7101z00_19105 = 
(BgL_arg2366z00_2311==BgL_arg2367z00_2312); } 
if(BgL_test7101z00_19105)
{ /* Ieee/fixnum.scm 2331 */
return BgL_nz00_2299;}  else 
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_arg2362z00_2307;
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_arg2363z00_2308;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_list2364z00_2309;
{ /* Ieee/fixnum.scm 2331 */
 obj_t BgL_arg2365z00_2310;
BgL_arg2365z00_2310 = 
MAKE_YOUNG_PAIR(
BGL_INT64_TO_BINT64(BgL_nz00_2299), BNIL); 
BgL_list2364z00_2309 = 
MAKE_YOUNG_PAIR(
BGL_INT64_TO_BINT64(BgL_mz00_2298), BgL_arg2365z00_2310); } 
BgL_arg2363z00_2308 = 
BGl_gcds64z00zz__r4_numbers_6_5_fixnumz00(BgL_list2364z00_2309); } 
BgL_arg2362z00_2307 = 
(BgL_mz00_2298/BgL_arg2363z00_2308); } 
return 
(BgL_arg2362z00_2307*BgL_nz00_2299);} } } } } 

}



/* &lcms64 */
obj_t BGl_z62lcms64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6766, obj_t BgL_xz00_6767)
{
{ /* Ieee/fixnum.scm 2331 */
{ /* Ieee/fixnum.scm 2331 */
 int64_t BgL_tmpz00_19116;
BgL_tmpz00_19116 = 
BGl_lcms64z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6767); 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_19116);} } 

}



/* lcmu64 */
BGL_EXPORTED_DEF uint64_t BGl_lcmu64z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_532)
{
{ /* Ieee/fixnum.scm 2332 */
if(
NULLP(BgL_xz00_532))
{ /* Ieee/fixnum.scm 2332 */
return 
(uint64_t)(1L);}  else 
{ /* Ieee/fixnum.scm 2332 */
 bool_t BgL_test7103z00_19122;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_tmpz00_19123;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_pairz00_5462;
if(
PAIRP(BgL_xz00_532))
{ /* Ieee/fixnum.scm 2332 */
BgL_pairz00_5462 = BgL_xz00_532; }  else 
{ 
 obj_t BgL_auxz00_19126;
BgL_auxz00_19126 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105089L), BGl_string4938z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_532); 
FAILURE(BgL_auxz00_19126,BFALSE,BFALSE);} 
BgL_tmpz00_19123 = 
CDR(BgL_pairz00_5462); } 
BgL_test7103z00_19122 = 
NULLP(BgL_tmpz00_19123); } 
if(BgL_test7103z00_19122)
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_za7za7_5464;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_pairz00_5463;
if(
PAIRP(BgL_xz00_532))
{ /* Ieee/fixnum.scm 2332 */
BgL_pairz00_5463 = BgL_xz00_532; }  else 
{ 
 obj_t BgL_auxz00_19134;
BgL_auxz00_19134 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105089L), BGl_string4938z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_532); 
FAILURE(BgL_auxz00_19134,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_tmpz00_19138;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_aux4388z00_8500;
BgL_aux4388z00_8500 = 
CAR(BgL_pairz00_5463); 
if(
BGL_UINT64P(BgL_aux4388z00_8500))
{ /* Ieee/fixnum.scm 2332 */
BgL_tmpz00_19138 = BgL_aux4388z00_8500
; }  else 
{ 
 obj_t BgL_auxz00_19142;
BgL_auxz00_19142 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105089L), BGl_string4938z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4388z00_8500); 
FAILURE(BgL_auxz00_19142,BFALSE,BFALSE);} } 
BgL_za7za7_5464 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_19138); } } 
return BgL_za7za7_5464;}  else 
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_g1084z00_2322; obj_t BgL_g1085z00_2323;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_arg2382z00_2333; obj_t BgL_arg2383z00_2334;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_pairz00_5481;
if(
PAIRP(BgL_xz00_532))
{ /* Ieee/fixnum.scm 2332 */
BgL_pairz00_5481 = BgL_xz00_532; }  else 
{ 
 obj_t BgL_auxz00_19149;
BgL_auxz00_19149 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105089L), BGl_string4938z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_532); 
FAILURE(BgL_auxz00_19149,BFALSE,BFALSE);} 
BgL_arg2382z00_2333 = 
CAR(BgL_pairz00_5481); } 
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_pairz00_5482;
if(
PAIRP(BgL_xz00_532))
{ /* Ieee/fixnum.scm 2332 */
BgL_pairz00_5482 = BgL_xz00_532; }  else 
{ 
 obj_t BgL_auxz00_19156;
BgL_auxz00_19156 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105089L), BGl_string4938z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_532); 
FAILURE(BgL_auxz00_19156,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_pairz00_5485;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_aux4394z00_8506;
BgL_aux4394z00_8506 = 
CDR(BgL_pairz00_5482); 
if(
PAIRP(BgL_aux4394z00_8506))
{ /* Ieee/fixnum.scm 2332 */
BgL_pairz00_5485 = BgL_aux4394z00_8506; }  else 
{ 
 obj_t BgL_auxz00_19163;
BgL_auxz00_19163 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105089L), BGl_string4938z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4394z00_8506); 
FAILURE(BgL_auxz00_19163,BFALSE,BFALSE);} } 
BgL_arg2383z00_2334 = 
CAR(BgL_pairz00_5485); } } 
BgL_g1084z00_2322 = 
BGl_lcm2ze70ze7zz__r4_numbers_6_5_fixnumz00(BgL_arg2382z00_2333, BgL_arg2383z00_2334); } 
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_pairz00_5486;
if(
PAIRP(BgL_xz00_532))
{ /* Ieee/fixnum.scm 2332 */
BgL_pairz00_5486 = BgL_xz00_532; }  else 
{ 
 obj_t BgL_auxz00_19171;
BgL_auxz00_19171 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105089L), BGl_string4938z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_532); 
FAILURE(BgL_auxz00_19171,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_pairz00_5489;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_aux4398z00_8510;
BgL_aux4398z00_8510 = 
CDR(BgL_pairz00_5486); 
if(
PAIRP(BgL_aux4398z00_8510))
{ /* Ieee/fixnum.scm 2332 */
BgL_pairz00_5489 = BgL_aux4398z00_8510; }  else 
{ 
 obj_t BgL_auxz00_19178;
BgL_auxz00_19178 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105089L), BGl_string4938z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4398z00_8510); 
FAILURE(BgL_auxz00_19178,BFALSE,BFALSE);} } 
BgL_g1085z00_2323 = 
CDR(BgL_pairz00_5489); } } 
{ 
 uint64_t BgL_tmpz00_5503; obj_t BgL_leftz00_5504;
BgL_tmpz00_5503 = BgL_g1084z00_2322; 
BgL_leftz00_5504 = BgL_g1085z00_2323; 
BgL_loopz00_5502:
if(
PAIRP(BgL_leftz00_5504))
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_arg2378z00_5510; obj_t BgL_arg2380z00_5511;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_arg2381z00_5512;
BgL_arg2381z00_5512 = 
CAR(BgL_leftz00_5504); 
BgL_arg2378z00_5510 = 
BGl_lcm2ze70ze7zz__r4_numbers_6_5_fixnumz00(
BGL_UINT64_TO_BUINT64(BgL_tmpz00_5503), BgL_arg2381z00_5512); } 
BgL_arg2380z00_5511 = 
CDR(BgL_leftz00_5504); 
{ 
 obj_t BgL_leftz00_19190; uint64_t BgL_tmpz00_19189;
BgL_tmpz00_19189 = BgL_arg2378z00_5510; 
BgL_leftz00_19190 = BgL_arg2380z00_5511; 
BgL_leftz00_5504 = BgL_leftz00_19190; 
BgL_tmpz00_5503 = BgL_tmpz00_19189; 
goto BgL_loopz00_5502;} }  else 
{ /* Ieee/fixnum.scm 2332 */
return BgL_tmpz00_5503;} } } } } 

}



/* lcm2~0 */
uint64_t BGl_lcm2ze70ze7zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_2335, obj_t BgL_nz00_2336)
{
{ /* Ieee/fixnum.scm 2332 */
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_mz00_2338; uint64_t BgL_nz00_2339;
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_za7za7_5465;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_tmpz00_19191;
if(
BGL_UINT64P(BgL_mz00_2335))
{ /* Ieee/fixnum.scm 2332 */
BgL_tmpz00_19191 = BgL_mz00_2335
; }  else 
{ 
 obj_t BgL_auxz00_19194;
BgL_auxz00_19194 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105089L), BGl_string4939z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_2335); 
FAILURE(BgL_auxz00_19194,BFALSE,BFALSE);} 
BgL_za7za7_5465 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_19191); } 
BgL_mz00_2338 = BgL_za7za7_5465; } 
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_za7za7_5466;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_tmpz00_19199;
if(
BGL_UINT64P(BgL_nz00_2336))
{ /* Ieee/fixnum.scm 2332 */
BgL_tmpz00_19199 = BgL_nz00_2336
; }  else 
{ 
 obj_t BgL_auxz00_19202;
BgL_auxz00_19202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105089L), BGl_string4939z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_2336); 
FAILURE(BgL_auxz00_19202,BFALSE,BFALSE);} 
BgL_za7za7_5466 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_19199); } 
BgL_nz00_2339 = BgL_za7za7_5466; } 
if(
(BgL_mz00_2338==BgL_nz00_2339))
{ /* Ieee/fixnum.scm 2332 */
return BgL_mz00_2338;}  else 
{ /* Ieee/fixnum.scm 2332 */
 bool_t BgL_test7116z00_19209;
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_arg2402z00_2353; uint64_t BgL_arg2403z00_2354;
{ /* Ieee/fixnum.scm 2134 */
 int64_t BgL_tmpz00_19210;
BgL_tmpz00_19210 = 
(int64_t)(BgL_nz00_2339); 
BgL_arg2402z00_2353 = 
(BgL_mz00_2338%BgL_tmpz00_19210); } 
BgL_arg2403z00_2354 = 
(uint64_t)(0L); 
BgL_test7116z00_19209 = 
(BgL_arg2402z00_2353==BgL_arg2403z00_2354); } 
if(BgL_test7116z00_19209)
{ /* Ieee/fixnum.scm 2332 */
return BgL_mz00_2338;}  else 
{ /* Ieee/fixnum.scm 2332 */
 bool_t BgL_test7117z00_19215;
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_arg2399z00_2351; uint64_t BgL_arg2401z00_2352;
{ /* Ieee/fixnum.scm 2134 */
 int64_t BgL_tmpz00_19216;
BgL_tmpz00_19216 = 
(int64_t)(BgL_mz00_2338); 
BgL_arg2399z00_2351 = 
(BgL_nz00_2339%BgL_tmpz00_19216); } 
BgL_arg2401z00_2352 = 
(uint64_t)(0L); 
BgL_test7117z00_19215 = 
(BgL_arg2399z00_2351==BgL_arg2401z00_2352); } 
if(BgL_test7117z00_19215)
{ /* Ieee/fixnum.scm 2332 */
return BgL_nz00_2339;}  else 
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_arg2395z00_2347;
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_arg2396z00_2348;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_list2397z00_2349;
{ /* Ieee/fixnum.scm 2332 */
 obj_t BgL_arg2398z00_2350;
BgL_arg2398z00_2350 = 
MAKE_YOUNG_PAIR(
BGL_UINT64_TO_BUINT64(BgL_nz00_2339), BNIL); 
BgL_list2397z00_2349 = 
MAKE_YOUNG_PAIR(
BGL_UINT64_TO_BUINT64(BgL_mz00_2338), BgL_arg2398z00_2350); } 
BgL_arg2396z00_2348 = 
BGl_gcdu64z00zz__r4_numbers_6_5_fixnumz00(BgL_list2397z00_2349); } 
BgL_arg2395z00_2347 = 
(BgL_mz00_2338/BgL_arg2396z00_2348); } 
return 
(BgL_arg2395z00_2347*BgL_nz00_2339);} } } } } 

}



/* &lcmu64 */
obj_t BGl_z62lcmu64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6768, obj_t BgL_xz00_6769)
{
{ /* Ieee/fixnum.scm 2332 */
{ /* Ieee/fixnum.scm 2332 */
 uint64_t BgL_tmpz00_19228;
BgL_tmpz00_19228 = 
BGl_lcmu64z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6769); 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_19228);} } 

}



/* lcmbx */
BGL_EXPORTED_DEF obj_t BGl_lcmbxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_533)
{
{ /* Ieee/fixnum.scm 2334 */
if(
NULLP(BgL_xz00_533))
{ /* Ieee/fixnum.scm 2335 */
return 
bgl_long_to_bignum(1L);}  else 
{ /* Ieee/fixnum.scm 2336 */
 bool_t BgL_test7119z00_19234;
{ /* Ieee/fixnum.scm 2336 */
 obj_t BgL_tmpz00_19235;
{ /* Ieee/fixnum.scm 2336 */
 obj_t BgL_pairz00_5515;
if(
PAIRP(BgL_xz00_533))
{ /* Ieee/fixnum.scm 2336 */
BgL_pairz00_5515 = BgL_xz00_533; }  else 
{ 
 obj_t BgL_auxz00_19238;
BgL_auxz00_19238 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105216L), BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_533); 
FAILURE(BgL_auxz00_19238,BFALSE,BFALSE);} 
BgL_tmpz00_19235 = 
CDR(BgL_pairz00_5515); } 
BgL_test7119z00_19234 = 
NULLP(BgL_tmpz00_19235); } 
if(BgL_test7119z00_19234)
{ /* Ieee/fixnum.scm 2336 */
 obj_t BgL_nz00_5517;
{ /* Ieee/fixnum.scm 2336 */
 obj_t BgL_pairz00_5516;
if(
PAIRP(BgL_xz00_533))
{ /* Ieee/fixnum.scm 2336 */
BgL_pairz00_5516 = BgL_xz00_533; }  else 
{ 
 obj_t BgL_auxz00_19246;
BgL_auxz00_19246 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105232L), BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_533); 
FAILURE(BgL_auxz00_19246,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2336 */
 obj_t BgL_aux4408z00_8520;
BgL_aux4408z00_8520 = 
CAR(BgL_pairz00_5516); 
if(
BIGNUMP(BgL_aux4408z00_8520))
{ /* Ieee/fixnum.scm 2336 */
BgL_nz00_5517 = BgL_aux4408z00_8520; }  else 
{ 
 obj_t BgL_auxz00_19253;
BgL_auxz00_19253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105227L), BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4408z00_8520); 
FAILURE(BgL_auxz00_19253,BFALSE,BFALSE);} } } 
return 
bgl_bignum_abs(BgL_nz00_5517);}  else 
{ /* Ieee/fixnum.scm 2338 */
 obj_t BgL_g1086z00_2361; obj_t BgL_g1087z00_2362;
{ /* Ieee/fixnum.scm 2338 */
 obj_t BgL_auxz00_19272; obj_t BgL_tmpz00_19258;
{ /* Ieee/fixnum.scm 2338 */
 obj_t BgL_pairz00_5519;
if(
PAIRP(BgL_xz00_533))
{ /* Ieee/fixnum.scm 2338 */
BgL_pairz00_5519 = BgL_xz00_533; }  else 
{ 
 obj_t BgL_auxz00_19275;
BgL_auxz00_19275 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105284L), BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_533); 
FAILURE(BgL_auxz00_19275,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2338 */
 obj_t BgL_pairz00_5522;
{ /* Ieee/fixnum.scm 2338 */
 obj_t BgL_aux4416z00_8528;
BgL_aux4416z00_8528 = 
CDR(BgL_pairz00_5519); 
if(
PAIRP(BgL_aux4416z00_8528))
{ /* Ieee/fixnum.scm 2338 */
BgL_pairz00_5522 = BgL_aux4416z00_8528; }  else 
{ 
 obj_t BgL_auxz00_19282;
BgL_auxz00_19282 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105278L), BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4416z00_8528); 
FAILURE(BgL_auxz00_19282,BFALSE,BFALSE);} } 
{ /* Ieee/fixnum.scm 2338 */
 obj_t BgL_aux4418z00_8530;
BgL_aux4418z00_8530 = 
CAR(BgL_pairz00_5522); 
if(
BIGNUMP(BgL_aux4418z00_8530))
{ /* Ieee/fixnum.scm 2338 */
BgL_auxz00_19272 = BgL_aux4418z00_8530
; }  else 
{ 
 obj_t BgL_auxz00_19289;
BgL_auxz00_19289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105278L), BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4418z00_8530); 
FAILURE(BgL_auxz00_19289,BFALSE,BFALSE);} } } } 
{ /* Ieee/fixnum.scm 2338 */
 obj_t BgL_pairz00_5518;
if(
PAIRP(BgL_xz00_533))
{ /* Ieee/fixnum.scm 2338 */
BgL_pairz00_5518 = BgL_xz00_533; }  else 
{ 
 obj_t BgL_auxz00_19261;
BgL_auxz00_19261 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105275L), BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_533); 
FAILURE(BgL_auxz00_19261,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2338 */
 obj_t BgL_aux4412z00_8524;
BgL_aux4412z00_8524 = 
CAR(BgL_pairz00_5518); 
if(
BIGNUMP(BgL_aux4412z00_8524))
{ /* Ieee/fixnum.scm 2338 */
BgL_tmpz00_19258 = BgL_aux4412z00_8524
; }  else 
{ 
 obj_t BgL_auxz00_19268;
BgL_auxz00_19268 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105270L), BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4412z00_8524); 
FAILURE(BgL_auxz00_19268,BFALSE,BFALSE);} } } 
BgL_g1086z00_2361 = 
bgl_bignum_lcm(BgL_tmpz00_19258, BgL_auxz00_19272); } 
{ /* Ieee/fixnum.scm 2339 */
 obj_t BgL_pairz00_5523;
if(
PAIRP(BgL_xz00_533))
{ /* Ieee/fixnum.scm 2339 */
BgL_pairz00_5523 = BgL_xz00_533; }  else 
{ 
 obj_t BgL_auxz00_19296;
BgL_auxz00_19296 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105307L), BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_533); 
FAILURE(BgL_auxz00_19296,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2339 */
 obj_t BgL_pairz00_5526;
{ /* Ieee/fixnum.scm 2339 */
 obj_t BgL_aux4422z00_8534;
BgL_aux4422z00_8534 = 
CDR(BgL_pairz00_5523); 
if(
PAIRP(BgL_aux4422z00_8534))
{ /* Ieee/fixnum.scm 2339 */
BgL_pairz00_5526 = BgL_aux4422z00_8534; }  else 
{ 
 obj_t BgL_auxz00_19303;
BgL_auxz00_19303 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105301L), BGl_string4940z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4422z00_8534); 
FAILURE(BgL_auxz00_19303,BFALSE,BFALSE);} } 
BgL_g1087z00_2362 = 
CDR(BgL_pairz00_5526); } } 
{ 
 obj_t BgL_tmpz00_5540; obj_t BgL_leftz00_5541;
BgL_tmpz00_5540 = BgL_g1086z00_2361; 
BgL_leftz00_5541 = BgL_g1087z00_2362; 
BgL_loopz00_5539:
if(
PAIRP(BgL_leftz00_5541))
{ 
 obj_t BgL_leftz00_19320; obj_t BgL_tmpz00_19310;
{ /* Ieee/fixnum.scm 2341 */
 obj_t BgL_tmpz00_19311;
{ /* Ieee/fixnum.scm 2341 */
 obj_t BgL_aux4424z00_8536;
BgL_aux4424z00_8536 = 
CAR(BgL_leftz00_5541); 
if(
BIGNUMP(BgL_aux4424z00_8536))
{ /* Ieee/fixnum.scm 2341 */
BgL_tmpz00_19311 = BgL_aux4424z00_8536
; }  else 
{ 
 obj_t BgL_auxz00_19315;
BgL_auxz00_19315 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105359L), BGl_string4736z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4424z00_8536); 
FAILURE(BgL_auxz00_19315,BFALSE,BFALSE);} } 
BgL_tmpz00_19310 = 
bgl_bignum_lcm(BgL_tmpz00_5540, BgL_tmpz00_19311); } 
BgL_leftz00_19320 = 
CDR(BgL_leftz00_5541); 
BgL_leftz00_5541 = BgL_leftz00_19320; 
BgL_tmpz00_5540 = BgL_tmpz00_19310; 
goto BgL_loopz00_5539;}  else 
{ /* Ieee/fixnum.scm 2340 */
return BgL_tmpz00_5540;} } } } } 

}



/* &lcmbx */
obj_t BGl_z62lcmbxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6770, obj_t BgL_xz00_6771)
{
{ /* Ieee/fixnum.scm 2334 */
return 
BGl_lcmbxz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_6771);} 

}



/* exptfx */
BGL_EXPORTED_DEF long BGl_exptfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_534, long BgL_yz00_535)
{
{ /* Ieee/fixnum.scm 2347 */
BGl_exptfxz00zz__r4_numbers_6_5_fixnumz00:
if(
(BgL_yz00_535==0L))
{ /* Ieee/fixnum.scm 2349 */
return 1L;}  else 
{ /* Ieee/fixnum.scm 2349 */
if(
EVENP_FX(BgL_yz00_535))
{ /* Ieee/fixnum.scm 2350 */
 long BgL_arg2421z00_2377; long BgL_arg2422z00_2378;
BgL_arg2421z00_2377 = 
(BgL_xz00_534*BgL_xz00_534); 
BgL_arg2422z00_2378 = 
(BgL_yz00_535/2L); 
{ 
 long BgL_yz00_19330; long BgL_xz00_19329;
BgL_xz00_19329 = BgL_arg2421z00_2377; 
BgL_yz00_19330 = BgL_arg2422z00_2378; 
BgL_yz00_535 = BgL_yz00_19330; 
BgL_xz00_534 = BgL_xz00_19329; 
goto BGl_exptfxz00zz__r4_numbers_6_5_fixnumz00;} }  else 
{ /* Ieee/fixnum.scm 2350 */
return 
(BgL_xz00_534*
BGl_exptfxz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_534, 
(BgL_yz00_535-1L)));} } } 

}



/* &exptfx */
obj_t BGl_z62exptfxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6772, obj_t BgL_xz00_6773, obj_t BgL_yz00_6774)
{
{ /* Ieee/fixnum.scm 2347 */
{ /* Ieee/fixnum.scm 2349 */
 long BgL_tmpz00_19334;
{ /* Ieee/fixnum.scm 2349 */
 long BgL_auxz00_19344; long BgL_auxz00_19335;
{ /* Ieee/fixnum.scm 2349 */
 obj_t BgL_tmpz00_19345;
if(
INTEGERP(BgL_yz00_6774))
{ /* Ieee/fixnum.scm 2349 */
BgL_tmpz00_19345 = BgL_yz00_6774
; }  else 
{ 
 obj_t BgL_auxz00_19348;
BgL_auxz00_19348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105659L), BGl_string4941z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6774); 
FAILURE(BgL_auxz00_19348,BFALSE,BFALSE);} 
BgL_auxz00_19344 = 
(long)CINT(BgL_tmpz00_19345); } 
{ /* Ieee/fixnum.scm 2349 */
 obj_t BgL_tmpz00_19336;
if(
INTEGERP(BgL_xz00_6773))
{ /* Ieee/fixnum.scm 2349 */
BgL_tmpz00_19336 = BgL_xz00_6773
; }  else 
{ 
 obj_t BgL_auxz00_19339;
BgL_auxz00_19339 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(105659L), BGl_string4941z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6773); 
FAILURE(BgL_auxz00_19339,BFALSE,BFALSE);} 
BgL_auxz00_19335 = 
(long)CINT(BgL_tmpz00_19336); } 
BgL_tmpz00_19334 = 
BGl_exptfxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19335, BgL_auxz00_19344); } 
return 
BINT(BgL_tmpz00_19334);} } 

}



/* expts32 */
BGL_EXPORTED_DEF int32_t BGl_expts32z00zz__r4_numbers_6_5_fixnumz00(int32_t BgL_xz00_536, int32_t BgL_yz00_537)
{
{ /* Ieee/fixnum.scm 2356 */
BGl_expts32z00zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2358 */
 bool_t BgL_test7136z00_19355;
{ /* Ieee/fixnum.scm 1676 */
 int32_t BgL_arg1249z00_5562;
BgL_arg1249z00_5562 = 
(int32_t)(0L); 
BgL_test7136z00_19355 = 
(BgL_yz00_537==BgL_arg1249z00_5562); } 
if(BgL_test7136z00_19355)
{ /* Ieee/fixnum.scm 2358 */
return (int32_t)(1);}  else 
{ /* Ieee/fixnum.scm 2359 */
 bool_t BgL_test7137z00_19358;
{ /* Ieee/fixnum.scm 1792 */
 bool_t BgL_test7138z00_19359;
{ /* Ieee/fixnum.scm 1757 */
 int32_t BgL_arg1336z00_5568; int32_t BgL_arg1337z00_5569;
{ /* Ieee/fixnum.scm 1757 */
 int32_t BgL_arg1338z00_5570;
BgL_arg1338z00_5570 = 
(int32_t)(2L); 
BgL_arg1336z00_5568 = 
(BgL_yz00_537%BgL_arg1338z00_5570); } 
BgL_arg1337z00_5569 = 
(int32_t)(1L); 
BgL_test7138z00_19359 = 
(BgL_arg1336z00_5568==BgL_arg1337z00_5569); } 
if(BgL_test7138z00_19359)
{ /* Ieee/fixnum.scm 1792 */
BgL_test7137z00_19358 = ((bool_t)0)
; }  else 
{ /* Ieee/fixnum.scm 1792 */
BgL_test7137z00_19358 = ((bool_t)1)
; } } 
if(BgL_test7137z00_19358)
{ /* Ieee/fixnum.scm 2359 */
 int32_t BgL_arg2429z00_2383; int32_t BgL_arg2430z00_2384;
BgL_arg2429z00_2383 = 
(BgL_xz00_536*BgL_xz00_536); 
BgL_arg2430z00_2384 = 
(BgL_yz00_537/(int32_t)(2)); 
{ 
 int32_t BgL_yz00_19367; int32_t BgL_xz00_19366;
BgL_xz00_19366 = BgL_arg2429z00_2383; 
BgL_yz00_19367 = BgL_arg2430z00_2384; 
BgL_yz00_537 = BgL_yz00_19367; 
BgL_xz00_536 = BgL_xz00_19366; 
goto BGl_expts32z00zz__r4_numbers_6_5_fixnumz00;} }  else 
{ /* Ieee/fixnum.scm 2359 */
return 
(BgL_xz00_536*
BGl_expts32z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_536, 
(BgL_yz00_537-(int32_t)(1))));} } } } 

}



/* &expts32 */
obj_t BGl_z62expts32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6775, obj_t BgL_xz00_6776, obj_t BgL_yz00_6777)
{
{ /* Ieee/fixnum.scm 2356 */
{ /* Ieee/fixnum.scm 2358 */
 int32_t BgL_tmpz00_19371;
{ /* Ieee/fixnum.scm 2358 */
 int32_t BgL_auxz00_19381; int32_t BgL_auxz00_19372;
{ /* Ieee/fixnum.scm 2358 */
 obj_t BgL_tmpz00_19382;
if(
BGL_INT32P(BgL_yz00_6777))
{ /* Ieee/fixnum.scm 2358 */
BgL_tmpz00_19382 = BgL_yz00_6777
; }  else 
{ 
 obj_t BgL_auxz00_19385;
BgL_auxz00_19385 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(106035L), BGl_string4942z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6777); 
FAILURE(BgL_auxz00_19385,BFALSE,BFALSE);} 
BgL_auxz00_19381 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_19382); } 
{ /* Ieee/fixnum.scm 2358 */
 obj_t BgL_tmpz00_19373;
if(
BGL_INT32P(BgL_xz00_6776))
{ /* Ieee/fixnum.scm 2358 */
BgL_tmpz00_19373 = BgL_xz00_6776
; }  else 
{ 
 obj_t BgL_auxz00_19376;
BgL_auxz00_19376 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(106035L), BGl_string4942z00zz__r4_numbers_6_5_fixnumz00, BGl_string4553z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6776); 
FAILURE(BgL_auxz00_19376,BFALSE,BFALSE);} 
BgL_auxz00_19372 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_19373); } 
BgL_tmpz00_19371 = 
BGl_expts32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19372, BgL_auxz00_19381); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_19371);} } 

}



/* exptu32 */
BGL_EXPORTED_DEF uint32_t BGl_exptu32z00zz__r4_numbers_6_5_fixnumz00(uint32_t BgL_xz00_538, uint32_t BgL_yz00_539)
{
{ /* Ieee/fixnum.scm 2365 */
BGl_exptu32z00zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2367 */
 bool_t BgL_test7141z00_19392;
{ /* Ieee/fixnum.scm 1677 */
 uint32_t BgL_arg1250z00_5584;
BgL_arg1250z00_5584 = 
(uint32_t)(0L); 
BgL_test7141z00_19392 = 
(BgL_yz00_539==BgL_arg1250z00_5584); } 
if(BgL_test7141z00_19392)
{ /* Ieee/fixnum.scm 2367 */
return (uint32_t)(1);}  else 
{ /* Ieee/fixnum.scm 2368 */
 bool_t BgL_test7142z00_19395;
{ /* Ieee/fixnum.scm 1793 */
 bool_t BgL_test7143z00_19396;
{ /* Ieee/fixnum.scm 1759 */
 uint32_t BgL_arg1339z00_5590; uint32_t BgL_arg1341z00_5591;
{ /* Ieee/fixnum.scm 1759 */
 uint32_t BgL_arg1342z00_5592;
BgL_arg1342z00_5592 = 
(uint32_t)(2L); 
{ /* Ieee/fixnum.scm 2131 */
 int32_t BgL_tmpz00_19398;
BgL_tmpz00_19398 = 
(int32_t)(BgL_arg1342z00_5592); 
BgL_arg1339z00_5590 = 
(BgL_yz00_539%BgL_tmpz00_19398); } } 
BgL_arg1341z00_5591 = 
(uint32_t)(1L); 
BgL_test7143z00_19396 = 
(BgL_arg1339z00_5590==BgL_arg1341z00_5591); } 
if(BgL_test7143z00_19396)
{ /* Ieee/fixnum.scm 1793 */
BgL_test7142z00_19395 = ((bool_t)0)
; }  else 
{ /* Ieee/fixnum.scm 1793 */
BgL_test7142z00_19395 = ((bool_t)1)
; } } 
if(BgL_test7142z00_19395)
{ /* Ieee/fixnum.scm 2368 */
 uint32_t BgL_arg2437z00_2389; uint32_t BgL_arg2438z00_2390;
BgL_arg2437z00_2389 = 
(BgL_xz00_538*BgL_xz00_538); 
{ /* Ieee/fixnum.scm 2093 */
 int32_t BgL_tmpz00_19404;
BgL_tmpz00_19404 = 
(int32_t)((uint32_t)(2)); 
BgL_arg2438z00_2390 = 
(BgL_yz00_539/BgL_tmpz00_19404); } 
{ 
 uint32_t BgL_yz00_19408; uint32_t BgL_xz00_19407;
BgL_xz00_19407 = BgL_arg2437z00_2389; 
BgL_yz00_19408 = BgL_arg2438z00_2390; 
BgL_yz00_539 = BgL_yz00_19408; 
BgL_xz00_538 = BgL_xz00_19407; 
goto BGl_exptu32z00zz__r4_numbers_6_5_fixnumz00;} }  else 
{ /* Ieee/fixnum.scm 2368 */
return 
(BgL_xz00_538*
BGl_exptu32z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_538, 
(BgL_yz00_539-(uint32_t)(1))));} } } } 

}



/* &exptu32 */
obj_t BGl_z62exptu32z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6778, obj_t BgL_xz00_6779, obj_t BgL_yz00_6780)
{
{ /* Ieee/fixnum.scm 2365 */
{ /* Ieee/fixnum.scm 2367 */
 uint32_t BgL_tmpz00_19412;
{ /* Ieee/fixnum.scm 2367 */
 uint32_t BgL_auxz00_19422; uint32_t BgL_auxz00_19413;
{ /* Ieee/fixnum.scm 2367 */
 obj_t BgL_tmpz00_19423;
if(
BGL_UINT32P(BgL_yz00_6780))
{ /* Ieee/fixnum.scm 2367 */
BgL_tmpz00_19423 = BgL_yz00_6780
; }  else 
{ 
 obj_t BgL_auxz00_19426;
BgL_auxz00_19426 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(106434L), BGl_string4943z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6780); 
FAILURE(BgL_auxz00_19426,BFALSE,BFALSE);} 
BgL_auxz00_19422 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_19423); } 
{ /* Ieee/fixnum.scm 2367 */
 obj_t BgL_tmpz00_19414;
if(
BGL_UINT32P(BgL_xz00_6779))
{ /* Ieee/fixnum.scm 2367 */
BgL_tmpz00_19414 = BgL_xz00_6779
; }  else 
{ 
 obj_t BgL_auxz00_19417;
BgL_auxz00_19417 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(106434L), BGl_string4943z00zz__r4_numbers_6_5_fixnumz00, BGl_string4555z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6779); 
FAILURE(BgL_auxz00_19417,BFALSE,BFALSE);} 
BgL_auxz00_19413 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_19414); } 
BgL_tmpz00_19412 = 
BGl_exptu32z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19413, BgL_auxz00_19422); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_19412);} } 

}



/* expts64 */
BGL_EXPORTED_DEF int64_t BGl_expts64z00zz__r4_numbers_6_5_fixnumz00(int64_t BgL_xz00_540, int64_t BgL_yz00_541)
{
{ /* Ieee/fixnum.scm 2374 */
BGl_expts64z00zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2376 */
 bool_t BgL_test7146z00_19433;
{ /* Ieee/fixnum.scm 1679 */
 int64_t BgL_arg1252z00_5606;
BgL_arg1252z00_5606 = 
(int64_t)(0L); 
BgL_test7146z00_19433 = 
(BgL_yz00_541==BgL_arg1252z00_5606); } 
if(BgL_test7146z00_19433)
{ /* Ieee/fixnum.scm 2376 */
return (int64_t)(1);}  else 
{ /* Ieee/fixnum.scm 2377 */
 bool_t BgL_test7147z00_19436;
{ /* Ieee/fixnum.scm 1795 */
 bool_t BgL_test7148z00_19437;
{ /* Ieee/fixnum.scm 1762 */
 int64_t BgL_arg1343z00_5612; int64_t BgL_arg1344z00_5613;
{ /* Ieee/fixnum.scm 1762 */
 int64_t BgL_arg1345z00_5614;
BgL_arg1345z00_5614 = 
(int64_t)(2L); 
BgL_arg1343z00_5612 = 
(BgL_yz00_541%BgL_arg1345z00_5614); } 
BgL_arg1344z00_5613 = 
(int64_t)(1L); 
BgL_test7148z00_19437 = 
(BgL_arg1343z00_5612==BgL_arg1344z00_5613); } 
if(BgL_test7148z00_19437)
{ /* Ieee/fixnum.scm 1795 */
BgL_test7147z00_19436 = ((bool_t)0)
; }  else 
{ /* Ieee/fixnum.scm 1795 */
BgL_test7147z00_19436 = ((bool_t)1)
; } } 
if(BgL_test7147z00_19436)
{ /* Ieee/fixnum.scm 2377 */
 int64_t BgL_arg2443z00_2395; int64_t BgL_arg2444z00_2396;
BgL_arg2443z00_2395 = 
(BgL_xz00_540*BgL_xz00_540); 
BgL_arg2444z00_2396 = 
(BgL_yz00_541/(int64_t)(2)); 
{ 
 int64_t BgL_yz00_19445; int64_t BgL_xz00_19444;
BgL_xz00_19444 = BgL_arg2443z00_2395; 
BgL_yz00_19445 = BgL_arg2444z00_2396; 
BgL_yz00_541 = BgL_yz00_19445; 
BgL_xz00_540 = BgL_xz00_19444; 
goto BGl_expts64z00zz__r4_numbers_6_5_fixnumz00;} }  else 
{ /* Ieee/fixnum.scm 2377 */
return 
(BgL_xz00_540*
BGl_expts64z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_540, 
(BgL_yz00_541-(int64_t)(1))));} } } } 

}



/* &expts64 */
obj_t BGl_z62expts64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6781, obj_t BgL_xz00_6782, obj_t BgL_yz00_6783)
{
{ /* Ieee/fixnum.scm 2374 */
{ /* Ieee/fixnum.scm 2376 */
 int64_t BgL_tmpz00_19449;
{ /* Ieee/fixnum.scm 2376 */
 int64_t BgL_auxz00_19459; int64_t BgL_auxz00_19450;
{ /* Ieee/fixnum.scm 2376 */
 obj_t BgL_tmpz00_19460;
if(
BGL_INT64P(BgL_yz00_6783))
{ /* Ieee/fixnum.scm 2376 */
BgL_tmpz00_19460 = BgL_yz00_6783
; }  else 
{ 
 obj_t BgL_auxz00_19463;
BgL_auxz00_19463 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(106833L), BGl_string4944z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6783); 
FAILURE(BgL_auxz00_19463,BFALSE,BFALSE);} 
BgL_auxz00_19459 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_19460); } 
{ /* Ieee/fixnum.scm 2376 */
 obj_t BgL_tmpz00_19451;
if(
BGL_INT64P(BgL_xz00_6782))
{ /* Ieee/fixnum.scm 2376 */
BgL_tmpz00_19451 = BgL_xz00_6782
; }  else 
{ 
 obj_t BgL_auxz00_19454;
BgL_auxz00_19454 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(106833L), BGl_string4944z00zz__r4_numbers_6_5_fixnumz00, BGl_string4564z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6782); 
FAILURE(BgL_auxz00_19454,BFALSE,BFALSE);} 
BgL_auxz00_19450 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_19451); } 
BgL_tmpz00_19449 = 
BGl_expts64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19450, BgL_auxz00_19459); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_19449);} } 

}



/* exptu64 */
BGL_EXPORTED_DEF uint64_t BGl_exptu64z00zz__r4_numbers_6_5_fixnumz00(uint64_t BgL_xz00_542, uint64_t BgL_yz00_543)
{
{ /* Ieee/fixnum.scm 2383 */
BGl_exptu64z00zz__r4_numbers_6_5_fixnumz00:
{ /* Ieee/fixnum.scm 2385 */
 bool_t BgL_test7151z00_19470;
{ /* Ieee/fixnum.scm 1680 */
 uint64_t BgL_arg1253z00_5628;
BgL_arg1253z00_5628 = 
(uint64_t)(0L); 
BgL_test7151z00_19470 = 
(BgL_yz00_543==BgL_arg1253z00_5628); } 
if(BgL_test7151z00_19470)
{ /* Ieee/fixnum.scm 2385 */
return (uint64_t)(1);}  else 
{ /* Ieee/fixnum.scm 2386 */
 bool_t BgL_test7152z00_19473;
{ /* Ieee/fixnum.scm 1796 */
 bool_t BgL_test7153z00_19474;
{ /* Ieee/fixnum.scm 1764 */
 uint64_t BgL_arg1346z00_5634; uint64_t BgL_arg1347z00_5635;
{ /* Ieee/fixnum.scm 1764 */
 uint64_t BgL_arg1348z00_5636;
BgL_arg1348z00_5636 = 
(uint64_t)(2L); 
{ /* Ieee/fixnum.scm 2134 */
 int64_t BgL_tmpz00_19476;
BgL_tmpz00_19476 = 
(int64_t)(BgL_arg1348z00_5636); 
BgL_arg1346z00_5634 = 
(BgL_yz00_543%BgL_tmpz00_19476); } } 
BgL_arg1347z00_5635 = 
(uint64_t)(1L); 
BgL_test7153z00_19474 = 
(BgL_arg1346z00_5634==BgL_arg1347z00_5635); } 
if(BgL_test7153z00_19474)
{ /* Ieee/fixnum.scm 1796 */
BgL_test7152z00_19473 = ((bool_t)0)
; }  else 
{ /* Ieee/fixnum.scm 1796 */
BgL_test7152z00_19473 = ((bool_t)1)
; } } 
if(BgL_test7152z00_19473)
{ /* Ieee/fixnum.scm 2386 */
 uint64_t BgL_arg2450z00_2401; uint64_t BgL_arg2451z00_2402;
BgL_arg2450z00_2401 = 
(BgL_xz00_542*BgL_xz00_542); 
{ /* Ieee/fixnum.scm 2096 */
 int64_t BgL_tmpz00_19482;
BgL_tmpz00_19482 = 
(int64_t)((uint64_t)(2)); 
BgL_arg2451z00_2402 = 
(BgL_yz00_543/BgL_tmpz00_19482); } 
{ 
 uint64_t BgL_yz00_19486; uint64_t BgL_xz00_19485;
BgL_xz00_19485 = BgL_arg2450z00_2401; 
BgL_yz00_19486 = BgL_arg2451z00_2402; 
BgL_yz00_543 = BgL_yz00_19486; 
BgL_xz00_542 = BgL_xz00_19485; 
goto BGl_exptu64z00zz__r4_numbers_6_5_fixnumz00;} }  else 
{ /* Ieee/fixnum.scm 2386 */
return 
(BgL_xz00_542*
BGl_exptu64z00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_542, 
(BgL_yz00_543-(uint64_t)(1))));} } } } 

}



/* &exptu64 */
obj_t BGl_z62exptu64z62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6784, obj_t BgL_xz00_6785, obj_t BgL_yz00_6786)
{
{ /* Ieee/fixnum.scm 2383 */
{ /* Ieee/fixnum.scm 2385 */
 uint64_t BgL_tmpz00_19490;
{ /* Ieee/fixnum.scm 2385 */
 uint64_t BgL_auxz00_19500; uint64_t BgL_auxz00_19491;
{ /* Ieee/fixnum.scm 2385 */
 obj_t BgL_tmpz00_19501;
if(
BGL_UINT64P(BgL_yz00_6786))
{ /* Ieee/fixnum.scm 2385 */
BgL_tmpz00_19501 = BgL_yz00_6786
; }  else 
{ 
 obj_t BgL_auxz00_19504;
BgL_auxz00_19504 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(107232L), BGl_string4945z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6786); 
FAILURE(BgL_auxz00_19504,BFALSE,BFALSE);} 
BgL_auxz00_19500 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_19501); } 
{ /* Ieee/fixnum.scm 2385 */
 obj_t BgL_tmpz00_19492;
if(
BGL_UINT64P(BgL_xz00_6785))
{ /* Ieee/fixnum.scm 2385 */
BgL_tmpz00_19492 = BgL_xz00_6785
; }  else 
{ 
 obj_t BgL_auxz00_19495;
BgL_auxz00_19495 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(107232L), BGl_string4945z00zz__r4_numbers_6_5_fixnumz00, BGl_string4566z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6785); 
FAILURE(BgL_auxz00_19495,BFALSE,BFALSE);} 
BgL_auxz00_19491 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_19492); } 
BgL_tmpz00_19490 = 
BGl_exptu64z00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19491, BgL_auxz00_19500); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_19490);} } 

}



/* exptbx */
BGL_EXPORTED_DEF obj_t BGl_exptbxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_544, obj_t BgL_yz00_545)
{
{ /* Ieee/fixnum.scm 2392 */
BGL_TAIL return 
bgl_bignum_expt(BgL_xz00_544, BgL_yz00_545);} 

}



/* &exptbx */
obj_t BGl_z62exptbxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6787, obj_t BgL_xz00_6788, obj_t BgL_yz00_6789)
{
{ /* Ieee/fixnum.scm 2392 */
{ /* Ieee/fixnum.scm 2395 */
 obj_t BgL_auxz00_19519; obj_t BgL_auxz00_19512;
if(
BIGNUMP(BgL_yz00_6789))
{ /* Ieee/fixnum.scm 2395 */
BgL_auxz00_19519 = BgL_yz00_6789
; }  else 
{ 
 obj_t BgL_auxz00_19522;
BgL_auxz00_19522 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(107661L), BGl_string4946z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_6789); 
FAILURE(BgL_auxz00_19522,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_xz00_6788))
{ /* Ieee/fixnum.scm 2395 */
BgL_auxz00_19512 = BgL_xz00_6788
; }  else 
{ 
 obj_t BgL_auxz00_19515;
BgL_auxz00_19515 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(107661L), BGl_string4946z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6788); 
FAILURE(BgL_auxz00_19515,BFALSE,BFALSE);} 
return 
BGl_exptbxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19512, BgL_auxz00_19519);} } 

}



/* _fixnum->string */
obj_t BGl__fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_env1151z00_549, obj_t BgL_opt1150z00_548)
{
{ /* Ieee/fixnum.scm 2421 */
{ /* Ieee/fixnum.scm 2421 */
 obj_t BgL_g1152z00_2405;
BgL_g1152z00_2405 = 
VECTOR_REF(BgL_opt1150z00_548,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1150z00_548)) { case 1L : 

{ /* Ieee/fixnum.scm 2421 */

{ /* Ieee/fixnum.scm 2421 */
 long BgL_auxz00_19528;
{ /* Ieee/fixnum.scm 2421 */
 obj_t BgL_tmpz00_19529;
if(
INTEGERP(BgL_g1152z00_2405))
{ /* Ieee/fixnum.scm 2421 */
BgL_tmpz00_19529 = BgL_g1152z00_2405
; }  else 
{ 
 obj_t BgL_auxz00_19532;
BgL_auxz00_19532 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(108702L), BGl_string4950z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_g1152z00_2405); 
FAILURE(BgL_auxz00_19532,BFALSE,BFALSE);} 
BgL_auxz00_19528 = 
(long)CINT(BgL_tmpz00_19529); } 
return 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19528, 10L);} } break;case 2L : 

{ /* Ieee/fixnum.scm 2421 */
 obj_t BgL_radixz00_2409;
BgL_radixz00_2409 = 
VECTOR_REF(BgL_opt1150z00_548,1L); 
{ /* Ieee/fixnum.scm 2421 */

{ /* Ieee/fixnum.scm 2421 */
 long BgL_auxz00_19548; long BgL_auxz00_19539;
{ /* Ieee/fixnum.scm 2421 */
 obj_t BgL_tmpz00_19549;
if(
INTEGERP(BgL_radixz00_2409))
{ /* Ieee/fixnum.scm 2421 */
BgL_tmpz00_19549 = BgL_radixz00_2409
; }  else 
{ 
 obj_t BgL_auxz00_19552;
BgL_auxz00_19552 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(108702L), BGl_string4950z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_2409); 
FAILURE(BgL_auxz00_19552,BFALSE,BFALSE);} 
BgL_auxz00_19548 = 
(long)CINT(BgL_tmpz00_19549); } 
{ /* Ieee/fixnum.scm 2421 */
 obj_t BgL_tmpz00_19540;
if(
INTEGERP(BgL_g1152z00_2405))
{ /* Ieee/fixnum.scm 2421 */
BgL_tmpz00_19540 = BgL_g1152z00_2405
; }  else 
{ 
 obj_t BgL_auxz00_19543;
BgL_auxz00_19543 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(108702L), BGl_string4950z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_g1152z00_2405); 
FAILURE(BgL_auxz00_19543,BFALSE,BFALSE);} 
BgL_auxz00_19539 = 
(long)CINT(BgL_tmpz00_19540); } 
return 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19539, BgL_auxz00_19548);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4947z00zz__r4_numbers_6_5_fixnumz00, BGl_string4949z00zz__r4_numbers_6_5_fixnumz00, 
BINT(
VECTOR_LENGTH(BgL_opt1150z00_548)));} } } } 

}



/* fixnum->string */
BGL_EXPORTED_DEF obj_t BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_546, long BgL_radixz00_547)
{
{ /* Ieee/fixnum.scm 2421 */
{ /* Ieee/fixnum.scm 2422 */
 bool_t BgL_test7161z00_19563;
if(
(BgL_radixz00_547>=2L))
{ /* Ieee/fixnum.scm 2422 */
BgL_test7161z00_19563 = 
(BgL_radixz00_547<=36L)
; }  else 
{ /* Ieee/fixnum.scm 2422 */
BgL_test7161z00_19563 = ((bool_t)0)
; } 
if(BgL_test7161z00_19563)
{ /* Ieee/fixnum.scm 2422 */
BGL_TAIL return 
integer_to_string(BgL_xz00_546, BgL_radixz00_547);}  else 
{ /* Ieee/fixnum.scm 2422 */
 obj_t BgL_aux4451z00_8563;
BgL_aux4451z00_8563 = 
BGl_errorz00zz__errorz00(BGl_string4948z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_547)); 
if(
STRINGP(BgL_aux4451z00_8563))
{ /* Ieee/fixnum.scm 2422 */
return BgL_aux4451z00_8563;}  else 
{ 
 obj_t BgL_auxz00_19572;
BgL_auxz00_19572 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(108760L), BGl_string4948z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4451z00_8563); 
FAILURE(BgL_auxz00_19572,BFALSE,BFALSE);} } } } 

}



/* _integer->string */
obj_t BGl__integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_env1156z00_553, obj_t BgL_opt1155z00_552)
{
{ /* Ieee/fixnum.scm 2427 */
{ /* Ieee/fixnum.scm 2427 */
 obj_t BgL_g1157z00_2415;
BgL_g1157z00_2415 = 
VECTOR_REF(BgL_opt1155z00_552,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1155z00_552)) { case 1L : 

{ /* Ieee/fixnum.scm 2427 */

{ /* Ieee/fixnum.scm 2427 */
 long BgL_auxz00_19577;
{ /* Ieee/fixnum.scm 2427 */
 obj_t BgL_tmpz00_19578;
if(
INTEGERP(BgL_g1157z00_2415))
{ /* Ieee/fixnum.scm 2427 */
BgL_tmpz00_19578 = BgL_g1157z00_2415
; }  else 
{ 
 obj_t BgL_auxz00_19581;
BgL_auxz00_19581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(109020L), BGl_string4955z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_g1157z00_2415); 
FAILURE(BgL_auxz00_19581,BFALSE,BFALSE);} 
BgL_auxz00_19577 = 
(long)CINT(BgL_tmpz00_19578); } 
return 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19577, 10L);} } break;case 2L : 

{ /* Ieee/fixnum.scm 2427 */
 obj_t BgL_radixz00_2419;
BgL_radixz00_2419 = 
VECTOR_REF(BgL_opt1155z00_552,1L); 
{ /* Ieee/fixnum.scm 2427 */

{ /* Ieee/fixnum.scm 2427 */
 long BgL_auxz00_19597; long BgL_auxz00_19588;
{ /* Ieee/fixnum.scm 2427 */
 obj_t BgL_tmpz00_19598;
if(
INTEGERP(BgL_radixz00_2419))
{ /* Ieee/fixnum.scm 2427 */
BgL_tmpz00_19598 = BgL_radixz00_2419
; }  else 
{ 
 obj_t BgL_auxz00_19601;
BgL_auxz00_19601 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(109020L), BGl_string4955z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_2419); 
FAILURE(BgL_auxz00_19601,BFALSE,BFALSE);} 
BgL_auxz00_19597 = 
(long)CINT(BgL_tmpz00_19598); } 
{ /* Ieee/fixnum.scm 2427 */
 obj_t BgL_tmpz00_19589;
if(
INTEGERP(BgL_g1157z00_2415))
{ /* Ieee/fixnum.scm 2427 */
BgL_tmpz00_19589 = BgL_g1157z00_2415
; }  else 
{ 
 obj_t BgL_auxz00_19592;
BgL_auxz00_19592 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(109020L), BGl_string4955z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_g1157z00_2415); 
FAILURE(BgL_auxz00_19592,BFALSE,BFALSE);} 
BgL_auxz00_19588 = 
(long)CINT(BgL_tmpz00_19589); } 
return 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19588, BgL_auxz00_19597);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4953z00zz__r4_numbers_6_5_fixnumz00, BGl_string4949z00zz__r4_numbers_6_5_fixnumz00, 
BINT(
VECTOR_LENGTH(BgL_opt1155z00_552)));} } } } 

}



/* integer->string */
BGL_EXPORTED_DEF obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_550, long BgL_radixz00_551)
{
{ /* Ieee/fixnum.scm 2427 */
BGL_TAIL return 
BGl_fixnumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_xz00_550, BgL_radixz00_551);} 

}



/* _integer->string/padding */
obj_t BGl__integerzd2ze3stringzf2paddingzc3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_env1161z00_558, obj_t BgL_opt1160z00_557)
{
{ /* Ieee/fixnum.scm 2443 */
{ /* Ieee/fixnum.scm 2443 */
 obj_t BgL_g1162z00_2427; obj_t BgL_g1163z00_2428;
BgL_g1162z00_2427 = 
VECTOR_REF(BgL_opt1160z00_557,0L); 
BgL_g1163z00_2428 = 
VECTOR_REF(BgL_opt1160z00_557,1L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1160z00_557)) { case 2L : 

{ /* Ieee/fixnum.scm 2443 */

{ /* Ieee/fixnum.scm 2443 */
 long BgL_auxz00_19624; long BgL_auxz00_19615;
{ /* Ieee/fixnum.scm 2443 */
 obj_t BgL_tmpz00_19625;
if(
INTEGERP(BgL_g1163z00_2428))
{ /* Ieee/fixnum.scm 2443 */
BgL_tmpz00_19625 = BgL_g1163z00_2428
; }  else 
{ 
 obj_t BgL_auxz00_19628;
BgL_auxz00_19628 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(109573L), BGl_string4959z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_g1163z00_2428); 
FAILURE(BgL_auxz00_19628,BFALSE,BFALSE);} 
BgL_auxz00_19624 = 
(long)CINT(BgL_tmpz00_19625); } 
{ /* Ieee/fixnum.scm 2443 */
 obj_t BgL_tmpz00_19616;
if(
INTEGERP(BgL_g1162z00_2427))
{ /* Ieee/fixnum.scm 2443 */
BgL_tmpz00_19616 = BgL_g1162z00_2427
; }  else 
{ 
 obj_t BgL_auxz00_19619;
BgL_auxz00_19619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(109573L), BGl_string4959z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_g1162z00_2427); 
FAILURE(BgL_auxz00_19619,BFALSE,BFALSE);} 
BgL_auxz00_19615 = 
(long)CINT(BgL_tmpz00_19616); } 
return 
BGl_integerzd2ze3stringzf2paddingzc3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19615, BgL_auxz00_19624, 10L);} } break;case 3L : 

{ /* Ieee/fixnum.scm 2443 */
 obj_t BgL_radixz00_2432;
BgL_radixz00_2432 = 
VECTOR_REF(BgL_opt1160z00_557,2L); 
{ /* Ieee/fixnum.scm 2443 */

{ /* Ieee/fixnum.scm 2443 */
 obj_t BgL_res2693z00_5656;
{ /* Ieee/fixnum.scm 2443 */
 long BgL_xz00_5651; long BgL_paddingz00_5652; long BgL_radixz00_5653;
{ /* Ieee/fixnum.scm 2443 */
 obj_t BgL_tmpz00_19635;
if(
INTEGERP(BgL_g1162z00_2427))
{ /* Ieee/fixnum.scm 2443 */
BgL_tmpz00_19635 = BgL_g1162z00_2427
; }  else 
{ 
 obj_t BgL_auxz00_19638;
BgL_auxz00_19638 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(109573L), BGl_string4959z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_g1162z00_2427); 
FAILURE(BgL_auxz00_19638,BFALSE,BFALSE);} 
BgL_xz00_5651 = 
(long)CINT(BgL_tmpz00_19635); } 
{ /* Ieee/fixnum.scm 2443 */
 obj_t BgL_tmpz00_19643;
if(
INTEGERP(BgL_g1163z00_2428))
{ /* Ieee/fixnum.scm 2443 */
BgL_tmpz00_19643 = BgL_g1163z00_2428
; }  else 
{ 
 obj_t BgL_auxz00_19646;
BgL_auxz00_19646 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(109573L), BGl_string4959z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_g1163z00_2428); 
FAILURE(BgL_auxz00_19646,BFALSE,BFALSE);} 
BgL_paddingz00_5652 = 
(long)CINT(BgL_tmpz00_19643); } 
{ /* Ieee/fixnum.scm 2443 */
 obj_t BgL_tmpz00_19651;
if(
INTEGERP(BgL_radixz00_2432))
{ /* Ieee/fixnum.scm 2443 */
BgL_tmpz00_19651 = BgL_radixz00_2432
; }  else 
{ 
 obj_t BgL_auxz00_19654;
BgL_auxz00_19654 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(109573L), BGl_string4959z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_2432); 
FAILURE(BgL_auxz00_19654,BFALSE,BFALSE);} 
BgL_radixz00_5653 = 
(long)CINT(BgL_tmpz00_19651); } 
{ 

switch( BgL_radixz00_5653) { case 2L : 
case 8L : 
case 10L : 
case 16L : 

BgL_res2693z00_5656 = 
integer_to_string_padding(BgL_xz00_5651, BgL_paddingz00_5652, BgL_radixz00_5653); break;
default: 
{ /* Ieee/fixnum.scm 2444 */
 obj_t BgL_aux4461z00_8573;
BgL_aux4461z00_8573 = 
BGl_errorz00zz__errorz00(BGl_string4957z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_5653)); 
if(
STRINGP(BgL_aux4461z00_8573))
{ /* Ieee/fixnum.scm 2444 */
BgL_res2693z00_5656 = BgL_aux4461z00_8573; }  else 
{ 
 obj_t BgL_auxz00_19664;
BgL_auxz00_19664 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(109648L), BGl_string4959z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4461z00_8573); 
FAILURE(BgL_auxz00_19664,BFALSE,BFALSE);} } } } } 
return BgL_res2693z00_5656;} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4956z00zz__r4_numbers_6_5_fixnumz00, BGl_string4958z00zz__r4_numbers_6_5_fixnumz00, 
BINT(
VECTOR_LENGTH(BgL_opt1160z00_557)));} } } } 

}



/* integer->string/padding */
BGL_EXPORTED_DEF obj_t BGl_integerzd2ze3stringzf2paddingzc3zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_554, long BgL_paddingz00_555, long BgL_radixz00_556)
{
{ /* Ieee/fixnum.scm 2443 */
switch( BgL_radixz00_556) { case 2L : 
case 8L : 
case 10L : 
case 16L : 

BGL_TAIL return 
integer_to_string_padding(BgL_xz00_554, BgL_paddingz00_555, BgL_radixz00_556);break;
default: 
{ /* Ieee/fixnum.scm 2448 */
 obj_t BgL_aux4463z00_8575;
BgL_aux4463z00_8575 = 
BGl_errorz00zz__errorz00(BGl_string4957z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_556)); 
if(
STRINGP(BgL_aux4463z00_8575))
{ /* Ieee/fixnum.scm 2448 */
return BgL_aux4463z00_8575;}  else 
{ 
 obj_t BgL_auxz00_19679;
BgL_auxz00_19679 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(109749L), BGl_string4957z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4463z00_8575); 
FAILURE(BgL_auxz00_19679,BFALSE,BFALSE);} } } } 

}



/* _unsigned->string */
obj_t BGl__unsignedzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_env1167z00_562, obj_t BgL_opt1166z00_561)
{
{ /* Ieee/fixnum.scm 2453 */
{ /* Ieee/fixnum.scm 2453 */
 obj_t BgL_g1168z00_2436;
BgL_g1168z00_2436 = 
VECTOR_REF(BgL_opt1166z00_561,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1166z00_561)) { case 1L : 

{ /* Ieee/fixnum.scm 2453 */

return 
BGl_unsignedzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_g1168z00_2436, 16L);} break;case 2L : 

{ /* Ieee/fixnum.scm 2453 */
 obj_t BgL_radixz00_2440;
BgL_radixz00_2440 = 
VECTOR_REF(BgL_opt1166z00_561,1L); 
{ /* Ieee/fixnum.scm 2453 */

{ /* Ieee/fixnum.scm 2453 */
 long BgL_auxz00_19687;
{ /* Ieee/fixnum.scm 2453 */
 obj_t BgL_tmpz00_19688;
if(
INTEGERP(BgL_radixz00_2440))
{ /* Ieee/fixnum.scm 2453 */
BgL_tmpz00_19688 = BgL_radixz00_2440
; }  else 
{ 
 obj_t BgL_auxz00_19691;
BgL_auxz00_19691 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110034L), BGl_string4962z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_2440); 
FAILURE(BgL_auxz00_19691,BFALSE,BFALSE);} 
BgL_auxz00_19687 = 
(long)CINT(BgL_tmpz00_19688); } 
return 
BGl_unsignedzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_g1168z00_2436, BgL_auxz00_19687);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4960z00zz__r4_numbers_6_5_fixnumz00, BGl_string4949z00zz__r4_numbers_6_5_fixnumz00, 
BINT(
VECTOR_LENGTH(BgL_opt1166z00_561)));} } } } 

}



/* unsigned->string */
BGL_EXPORTED_DEF obj_t BGl_unsignedzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_559, long BgL_radixz00_560)
{
{ /* Ieee/fixnum.scm 2453 */
switch( BgL_radixz00_560) { case 2L : 
case 8L : 
case 16L : 

if(
INTEGERP(BgL_xz00_559))
{ /* Ieee/fixnum.scm 2457 */
return 
unsigned_to_string(
(long)CINT(BgL_xz00_559), BgL_radixz00_560);}  else 
{ /* Ieee/fixnum.scm 2457 */
if(
ELONGP(BgL_xz00_559))
{ /* Ieee/fixnum.scm 2459 */
return 
unsigned_to_string(
BELONG_TO_LONG(BgL_xz00_559), BgL_radixz00_560);}  else 
{ /* Ieee/fixnum.scm 2459 */
if(
LLONGP(BgL_xz00_559))
{ /* Ieee/fixnum.scm 2461 */
return 
ullong_to_string(
BLLONG_TO_LLONG(BgL_xz00_559), BgL_radixz00_560);}  else 
{ /* Ieee/fixnum.scm 2464 */
 obj_t BgL_aux4466z00_8578;
BgL_aux4466z00_8578 = 
BGl_errorz00zz__errorz00(BGl_string4961z00zz__r4_numbers_6_5_fixnumz00, BGl_string4710z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_559); 
if(
STRINGP(BgL_aux4466z00_8578))
{ /* Ieee/fixnum.scm 2464 */
return BgL_aux4466z00_8578;}  else 
{ 
 obj_t BgL_auxz00_19717;
BgL_auxz00_19717 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110289L), BGl_string4961z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4466z00_8578); 
FAILURE(BgL_auxz00_19717,BFALSE,BFALSE);} } } } break;
default: 
{ /* Ieee/fixnum.scm 2466 */
 obj_t BgL_aux4468z00_8580;
BgL_aux4468z00_8580 = 
BGl_errorz00zz__errorz00(BGl_string4961z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_560)); 
if(
STRINGP(BgL_aux4468z00_8580))
{ /* Ieee/fixnum.scm 2466 */
return BgL_aux4468z00_8580;}  else 
{ 
 obj_t BgL_auxz00_19725;
BgL_auxz00_19725 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110358L), BGl_string4961z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4468z00_8580); 
FAILURE(BgL_auxz00_19725,BFALSE,BFALSE);} } } } 

}



/* elong->string */
BGL_EXPORTED_DEF obj_t BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_563, obj_t BgL_radixz00_564)
{
{ /* Ieee/fixnum.scm 2471 */
{ /* Ieee/fixnum.scm 2472 */
 obj_t BgL_radix1101z00_2447;
if(
NULLP(BgL_radixz00_564))
{ /* Ieee/fixnum.scm 2472 */
BgL_radix1101z00_2447 = 
BINT(10L); }  else 
{ /* Ieee/fixnum.scm 2472 */
 obj_t BgL_pairz00_5659;
if(
PAIRP(BgL_radixz00_564))
{ /* Ieee/fixnum.scm 2472 */
BgL_pairz00_5659 = BgL_radixz00_564; }  else 
{ 
 obj_t BgL_auxz00_19735;
BgL_auxz00_19735 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110723L), BGl_string4963z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_564); 
FAILURE(BgL_auxz00_19735,BFALSE,BFALSE);} 
BgL_radix1101z00_2447 = 
CAR(BgL_pairz00_5659); } 
{ /* Ieee/fixnum.scm 2472 */
 bool_t BgL_test7182z00_19740;
{ /* Ieee/fixnum.scm 2472 */
 bool_t BgL_test7183z00_19741;
{ /* Ieee/fixnum.scm 2472 */
 long BgL_n1z00_5660;
{ /* Ieee/fixnum.scm 2472 */
 obj_t BgL_tmpz00_19742;
if(
INTEGERP(BgL_radix1101z00_2447))
{ /* Ieee/fixnum.scm 2472 */
BgL_tmpz00_19742 = BgL_radix1101z00_2447
; }  else 
{ 
 obj_t BgL_auxz00_19745;
BgL_auxz00_19745 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110669L), BGl_string4963z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radix1101z00_2447); 
FAILURE(BgL_auxz00_19745,BFALSE,BFALSE);} 
BgL_n1z00_5660 = 
(long)CINT(BgL_tmpz00_19742); } 
BgL_test7183z00_19741 = 
(BgL_n1z00_5660>=2L); } 
if(BgL_test7183z00_19741)
{ /* Ieee/fixnum.scm 2472 */
 long BgL_n1z00_5661;
{ /* Ieee/fixnum.scm 2472 */
 obj_t BgL_tmpz00_19751;
if(
INTEGERP(BgL_radix1101z00_2447))
{ /* Ieee/fixnum.scm 2472 */
BgL_tmpz00_19751 = BgL_radix1101z00_2447
; }  else 
{ 
 obj_t BgL_auxz00_19754;
BgL_auxz00_19754 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110669L), BGl_string4963z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radix1101z00_2447); 
FAILURE(BgL_auxz00_19754,BFALSE,BFALSE);} 
BgL_n1z00_5661 = 
(long)CINT(BgL_tmpz00_19751); } 
BgL_test7182z00_19740 = 
(BgL_n1z00_5661<=36L); }  else 
{ /* Ieee/fixnum.scm 2472 */
BgL_test7182z00_19740 = ((bool_t)0)
; } } 
if(BgL_test7182z00_19740)
{ /* Ieee/fixnum.scm 2472 */
 long BgL_tmpz00_19760;
{ /* Ieee/fixnum.scm 2472 */
 obj_t BgL_tmpz00_19761;
if(
INTEGERP(BgL_radix1101z00_2447))
{ /* Ieee/fixnum.scm 2472 */
BgL_tmpz00_19761 = BgL_radix1101z00_2447
; }  else 
{ 
 obj_t BgL_auxz00_19764;
BgL_auxz00_19764 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110669L), BGl_string4963z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radix1101z00_2447); 
FAILURE(BgL_auxz00_19764,BFALSE,BFALSE);} 
BgL_tmpz00_19760 = 
(long)CINT(BgL_tmpz00_19761); } 
return 
integer_to_string(BgL_xz00_563, BgL_tmpz00_19760);}  else 
{ /* Ieee/fixnum.scm 2472 */
 obj_t BgL_aux4475z00_8587;
BgL_aux4475z00_8587 = 
BGl_errorz00zz__errorz00(BGl_string4963z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, BgL_radix1101z00_2447); 
if(
STRINGP(BgL_aux4475z00_8587))
{ /* Ieee/fixnum.scm 2472 */
return BgL_aux4475z00_8587;}  else 
{ 
 obj_t BgL_auxz00_19773;
BgL_auxz00_19773 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110669L), BGl_string4963z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4475z00_8587); 
FAILURE(BgL_auxz00_19773,BFALSE,BFALSE);} } } } } 

}



/* &elong->string */
obj_t BGl_z62elongzd2ze3stringz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6790, obj_t BgL_xz00_6791, obj_t BgL_radixz00_6792)
{
{ /* Ieee/fixnum.scm 2471 */
{ /* Ieee/fixnum.scm 2472 */
 long BgL_auxz00_19777;
{ /* Ieee/fixnum.scm 2472 */
 obj_t BgL_tmpz00_19778;
if(
ELONGP(BgL_xz00_6791))
{ /* Ieee/fixnum.scm 2472 */
BgL_tmpz00_19778 = BgL_xz00_6791
; }  else 
{ 
 obj_t BgL_auxz00_19781;
BgL_auxz00_19781 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110669L), BGl_string4964z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6791); 
FAILURE(BgL_auxz00_19781,BFALSE,BFALSE);} 
BgL_auxz00_19777 = 
BELONG_TO_LONG(BgL_tmpz00_19778); } 
return 
BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19777, BgL_radixz00_6792);} } 

}



/* llong->string */
BGL_EXPORTED_DEF obj_t BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BGL_LONGLONG_T BgL_xz00_565, obj_t BgL_radixz00_566)
{
{ /* Ieee/fixnum.scm 2477 */
{ /* Ieee/fixnum.scm 2478 */
 obj_t BgL_radix1102z00_2452;
if(
NULLP(BgL_radixz00_566))
{ /* Ieee/fixnum.scm 2478 */
BgL_radix1102z00_2452 = 
BINT(10L); }  else 
{ /* Ieee/fixnum.scm 2478 */
 obj_t BgL_pairz00_5662;
if(
PAIRP(BgL_radixz00_566))
{ /* Ieee/fixnum.scm 2478 */
BgL_pairz00_5662 = BgL_radixz00_566; }  else 
{ 
 obj_t BgL_auxz00_19792;
BgL_auxz00_19792 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(111046L), BGl_string4965z00zz__r4_numbers_6_5_fixnumz00, BGl_string4737z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_566); 
FAILURE(BgL_auxz00_19792,BFALSE,BFALSE);} 
BgL_radix1102z00_2452 = 
CAR(BgL_pairz00_5662); } 
{ /* Ieee/fixnum.scm 2478 */
 bool_t BgL_test7191z00_19797;
{ /* Ieee/fixnum.scm 2478 */
 bool_t BgL_test7192z00_19798;
{ /* Ieee/fixnum.scm 2478 */
 long BgL_n1z00_5663;
{ /* Ieee/fixnum.scm 2478 */
 obj_t BgL_tmpz00_19799;
if(
INTEGERP(BgL_radix1102z00_2452))
{ /* Ieee/fixnum.scm 2478 */
BgL_tmpz00_19799 = BgL_radix1102z00_2452
; }  else 
{ 
 obj_t BgL_auxz00_19802;
BgL_auxz00_19802 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110992L), BGl_string4965z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radix1102z00_2452); 
FAILURE(BgL_auxz00_19802,BFALSE,BFALSE);} 
BgL_n1z00_5663 = 
(long)CINT(BgL_tmpz00_19799); } 
BgL_test7192z00_19798 = 
(BgL_n1z00_5663>=2L); } 
if(BgL_test7192z00_19798)
{ /* Ieee/fixnum.scm 2478 */
 long BgL_n1z00_5664;
{ /* Ieee/fixnum.scm 2478 */
 obj_t BgL_tmpz00_19808;
if(
INTEGERP(BgL_radix1102z00_2452))
{ /* Ieee/fixnum.scm 2478 */
BgL_tmpz00_19808 = BgL_radix1102z00_2452
; }  else 
{ 
 obj_t BgL_auxz00_19811;
BgL_auxz00_19811 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110992L), BGl_string4965z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radix1102z00_2452); 
FAILURE(BgL_auxz00_19811,BFALSE,BFALSE);} 
BgL_n1z00_5664 = 
(long)CINT(BgL_tmpz00_19808); } 
BgL_test7191z00_19797 = 
(BgL_n1z00_5664<=36L); }  else 
{ /* Ieee/fixnum.scm 2478 */
BgL_test7191z00_19797 = ((bool_t)0)
; } } 
if(BgL_test7191z00_19797)
{ /* Ieee/fixnum.scm 2478 */
 long BgL_tmpz00_19817;
{ /* Ieee/fixnum.scm 2478 */
 obj_t BgL_tmpz00_19818;
if(
INTEGERP(BgL_radix1102z00_2452))
{ /* Ieee/fixnum.scm 2478 */
BgL_tmpz00_19818 = BgL_radix1102z00_2452
; }  else 
{ 
 obj_t BgL_auxz00_19821;
BgL_auxz00_19821 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110992L), BGl_string4965z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radix1102z00_2452); 
FAILURE(BgL_auxz00_19821,BFALSE,BFALSE);} 
BgL_tmpz00_19817 = 
(long)CINT(BgL_tmpz00_19818); } 
return 
llong_to_string(BgL_xz00_565, BgL_tmpz00_19817);}  else 
{ /* Ieee/fixnum.scm 2478 */
 obj_t BgL_aux4484z00_8596;
BgL_aux4484z00_8596 = 
BGl_errorz00zz__errorz00(BGl_string4965z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, BgL_radix1102z00_2452); 
if(
STRINGP(BgL_aux4484z00_8596))
{ /* Ieee/fixnum.scm 2478 */
return BgL_aux4484z00_8596;}  else 
{ 
 obj_t BgL_auxz00_19830;
BgL_auxz00_19830 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110992L), BGl_string4965z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4484z00_8596); 
FAILURE(BgL_auxz00_19830,BFALSE,BFALSE);} } } } } 

}



/* &llong->string */
obj_t BGl_z62llongzd2ze3stringz53zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6793, obj_t BgL_xz00_6794, obj_t BgL_radixz00_6795)
{
{ /* Ieee/fixnum.scm 2477 */
{ /* Ieee/fixnum.scm 2478 */
 BGL_LONGLONG_T BgL_auxz00_19834;
{ /* Ieee/fixnum.scm 2478 */
 obj_t BgL_tmpz00_19835;
if(
LLONGP(BgL_xz00_6794))
{ /* Ieee/fixnum.scm 2478 */
BgL_tmpz00_19835 = BgL_xz00_6794
; }  else 
{ 
 obj_t BgL_auxz00_19838;
BgL_auxz00_19838 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(110992L), BGl_string4966z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6794); 
FAILURE(BgL_auxz00_19838,BFALSE,BFALSE);} 
BgL_auxz00_19834 = 
BLLONG_TO_LLONG(BgL_tmpz00_19835); } 
return 
BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19834, BgL_radixz00_6795);} } 

}



/* _bignum->string */
obj_t BGl__bignumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_env1172z00_570, obj_t BgL_opt1171z00_569)
{
{ /* Ieee/fixnum.scm 2483 */
{ /* Ieee/fixnum.scm 2483 */
 obj_t BgL_g1173z00_2457;
BgL_g1173z00_2457 = 
VECTOR_REF(BgL_opt1171z00_569,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1171z00_569)) { case 1L : 

{ /* Ieee/fixnum.scm 2483 */

{ /* Ieee/fixnum.scm 2483 */
 obj_t BgL_auxz00_19845;
if(
BIGNUMP(BgL_g1173z00_2457))
{ /* Ieee/fixnum.scm 2483 */
BgL_auxz00_19845 = BgL_g1173z00_2457
; }  else 
{ 
 obj_t BgL_auxz00_19848;
BgL_auxz00_19848 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(111279L), BGl_string4969z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_g1173z00_2457); 
FAILURE(BgL_auxz00_19848,BFALSE,BFALSE);} 
return 
BGl_bignumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19845, 10L);} } break;case 2L : 

{ /* Ieee/fixnum.scm 2483 */
 obj_t BgL_radixz00_2461;
BgL_radixz00_2461 = 
VECTOR_REF(BgL_opt1171z00_569,1L); 
{ /* Ieee/fixnum.scm 2483 */

{ /* Ieee/fixnum.scm 2483 */
 long BgL_auxz00_19861; obj_t BgL_auxz00_19854;
{ /* Ieee/fixnum.scm 2483 */
 obj_t BgL_tmpz00_19862;
if(
INTEGERP(BgL_radixz00_2461))
{ /* Ieee/fixnum.scm 2483 */
BgL_tmpz00_19862 = BgL_radixz00_2461
; }  else 
{ 
 obj_t BgL_auxz00_19865;
BgL_auxz00_19865 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(111279L), BGl_string4969z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_2461); 
FAILURE(BgL_auxz00_19865,BFALSE,BFALSE);} 
BgL_auxz00_19861 = 
(long)CINT(BgL_tmpz00_19862); } 
if(
BIGNUMP(BgL_g1173z00_2457))
{ /* Ieee/fixnum.scm 2483 */
BgL_auxz00_19854 = BgL_g1173z00_2457
; }  else 
{ 
 obj_t BgL_auxz00_19857;
BgL_auxz00_19857 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(111279L), BGl_string4969z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_g1173z00_2457); 
FAILURE(BgL_auxz00_19857,BFALSE,BFALSE);} 
return 
BGl_bignumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19854, BgL_auxz00_19861);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4967z00zz__r4_numbers_6_5_fixnumz00, BGl_string4949z00zz__r4_numbers_6_5_fixnumz00, 
BINT(
VECTOR_LENGTH(BgL_opt1171z00_569)));} } } } 

}



/* bignum->string */
BGL_EXPORTED_DEF obj_t BGl_bignumzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_567, long BgL_radixz00_568)
{
{ /* Ieee/fixnum.scm 2483 */
{ /* Ieee/fixnum.scm 2484 */
 bool_t BgL_test7201z00_19876;
if(
(BgL_radixz00_568>=2L))
{ /* Ieee/fixnum.scm 2484 */
BgL_test7201z00_19876 = 
(BgL_radixz00_568<=36L)
; }  else 
{ /* Ieee/fixnum.scm 2484 */
BgL_test7201z00_19876 = ((bool_t)0)
; } 
if(BgL_test7201z00_19876)
{ /* Ieee/fixnum.scm 2484 */
return 
bgl_bignum_to_string(BgL_xz00_567, 
(int)(BgL_radixz00_568));}  else 
{ /* Ieee/fixnum.scm 2484 */
 obj_t BgL_aux4493z00_8605;
BgL_aux4493z00_8605 = 
BGl_errorz00zz__errorz00(BGl_string4968z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_568)); 
if(
STRINGP(BgL_aux4493z00_8605))
{ /* Ieee/fixnum.scm 2484 */
return BgL_aux4493z00_8605;}  else 
{ 
 obj_t BgL_auxz00_19886;
BgL_auxz00_19886 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(111336L), BGl_string4968z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4493z00_8605); 
FAILURE(BgL_auxz00_19886,BFALSE,BFALSE);} } } } 

}



/* bignum->octet-string */
BGL_EXPORTED_DEF obj_t BGl_bignumzd2ze3octetzd2stringze3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_571)
{
{ /* Ieee/fixnum.scm 2489 */
{ 
 obj_t BgL_bz00_2495;
{ /* Ieee/fixnum.scm 2521 */
 long BgL_lenz00_2470;
{ /* Ieee/fixnum.scm 2521 */
 long BgL_arg2490z00_2487;
BgL_bz00_2495 = BgL_xz00_571; 
{ 
 obj_t BgL_bz00_2498; long BgL_resz00_2499;
BgL_bz00_2498 = BgL_bz00_2495; 
BgL_resz00_2499 = 0L; 
BgL_zc3z04anonymousza32495ze3z87_2500:
{ /* Ieee/fixnum.scm 2501 */
 obj_t BgL_dividedz00_2501;
BgL_dividedz00_2501 = 
bgl_bignum_quotient(BgL_bz00_2498, BGl_Z256z00zz__r4_numbers_6_5_fixnumz00); 
if(
BXZERO(BgL_bz00_2498))
{ /* Ieee/fixnum.scm 2503 */
BgL_arg2490z00_2487 = BgL_resz00_2499; }  else 
{ /* Ieee/fixnum.scm 2503 */
if(
BXZERO(BgL_dividedz00_2501))
{ /* Ieee/fixnum.scm 2505 */
 long BgL_xz00_2504;
BgL_xz00_2504 = 
bgl_bignum_to_long(BgL_bz00_2498); 
if(
(BgL_xz00_2504<2L))
{ /* Ieee/fixnum.scm 2507 */
BgL_arg2490z00_2487 = 
(BgL_resz00_2499+1L); }  else 
{ /* Ieee/fixnum.scm 2507 */
if(
(BgL_xz00_2504<4L))
{ /* Ieee/fixnum.scm 2508 */
BgL_arg2490z00_2487 = 
(BgL_resz00_2499+2L); }  else 
{ /* Ieee/fixnum.scm 2508 */
if(
(BgL_xz00_2504<8L))
{ /* Ieee/fixnum.scm 2509 */
BgL_arg2490z00_2487 = 
(BgL_resz00_2499+3L); }  else 
{ /* Ieee/fixnum.scm 2509 */
if(
(BgL_xz00_2504<16L))
{ /* Ieee/fixnum.scm 2510 */
BgL_arg2490z00_2487 = 
(BgL_resz00_2499+4L); }  else 
{ /* Ieee/fixnum.scm 2510 */
if(
(BgL_xz00_2504<32L))
{ /* Ieee/fixnum.scm 2511 */
BgL_arg2490z00_2487 = 
(BgL_resz00_2499+5L); }  else 
{ /* Ieee/fixnum.scm 2511 */
if(
(BgL_xz00_2504<64L))
{ /* Ieee/fixnum.scm 2512 */
BgL_arg2490z00_2487 = 
(BgL_resz00_2499+6L); }  else 
{ /* Ieee/fixnum.scm 2512 */
if(
(BgL_xz00_2504<128L))
{ /* Ieee/fixnum.scm 2513 */
BgL_arg2490z00_2487 = 
(BgL_resz00_2499+7L); }  else 
{ /* Ieee/fixnum.scm 2513 */
BgL_arg2490z00_2487 = 
(BgL_resz00_2499+8L); } } } } } } } }  else 
{ 
 long BgL_resz00_19919; obj_t BgL_bz00_19918;
BgL_bz00_19918 = BgL_dividedz00_2501; 
BgL_resz00_19919 = 
(BgL_resz00_2499+8L); 
BgL_resz00_2499 = BgL_resz00_19919; 
BgL_bz00_2498 = BgL_bz00_19918; 
goto BgL_zc3z04anonymousza32495ze3z87_2500;} } } } 
{ /* Ieee/fixnum.scm 2491 */
 long BgL_qz00_5714; long BgL_rz00_5715;
BgL_qz00_5714 = 
(BgL_arg2490z00_2487/8L); 
{ /* Ieee/fixnum.scm 2492 */
 long BgL_n1z00_5718; long BgL_n2z00_5719;
BgL_n1z00_5718 = BgL_arg2490z00_2487; 
BgL_n2z00_5719 = 8L; 
{ /* Ieee/fixnum.scm 2115 */
 bool_t BgL_test7213z00_19922;
{ /* Ieee/fixnum.scm 2115 */
 long BgL_arg1707z00_5721;
BgL_arg1707z00_5721 = 
(((BgL_n1z00_5718) | (BgL_n2z00_5719)) & -2147483648); 
BgL_test7213z00_19922 = 
(BgL_arg1707z00_5721==0L); } 
if(BgL_test7213z00_19922)
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1703z00_5723;
{ /* Ieee/fixnum.scm 2116 */
 int32_t BgL_arg1704z00_5724; int32_t BgL_arg1706z00_5725;
BgL_arg1704z00_5724 = 
(int32_t)(BgL_n1z00_5718); 
BgL_arg1706z00_5725 = 
(int32_t)(BgL_n2z00_5719); 
BgL_arg1703z00_5723 = 
(BgL_arg1704z00_5724%BgL_arg1706z00_5725); } 
{ /* Ieee/fixnum.scm 1519 */
 long BgL_arg1228z00_5729;
BgL_arg1228z00_5729 = 
(long)(BgL_arg1703z00_5723); 
BgL_rz00_5715 = 
(long)(BgL_arg1228z00_5729); } }  else 
{ /* Ieee/fixnum.scm 2115 */
BgL_rz00_5715 = 
(BgL_n1z00_5718%BgL_n2z00_5719); } } } 
if(
(BgL_rz00_5715==0L))
{ /* Ieee/fixnum.scm 2494 */
BgL_lenz00_2470 = BgL_qz00_5714; }  else 
{ /* Ieee/fixnum.scm 2494 */
if(
(BgL_rz00_5715>0L))
{ /* Ieee/fixnum.scm 2495 */
BgL_lenz00_2470 = 
(BgL_qz00_5714+1L); }  else 
{ /* Ieee/fixnum.scm 2495 */
BgL_lenz00_2470 = 
(BgL_qz00_5714-1L); } } } } 
{ /* Ieee/fixnum.scm 2521 */
 obj_t BgL_bufferz00_2471;
{ /* Ieee/string.scm 168 */

BgL_bufferz00_2471 = 
make_string(BgL_lenz00_2470, ((unsigned char)' ')); } 
{ /* Ieee/fixnum.scm 2522 */

{ /* Ieee/fixnum.scm 2523 */
 long BgL_g1105z00_2472;
BgL_g1105z00_2472 = 
(BgL_lenz00_2470-1L); 
{ 
 obj_t BgL_xz00_2474; long BgL_iz00_2475;
{ /* Ieee/fixnum.scm 2523 */
 obj_t BgL_aux4495z00_8607;
BgL_xz00_2474 = BgL_xz00_571; 
BgL_iz00_2475 = BgL_g1105z00_2472; 
BgL_zc3z04anonymousza32482ze3z87_2476:
{ /* Ieee/fixnum.scm 2526 */
 bool_t BgL_test7216z00_19939;
if(
(BgL_iz00_2475<0L))
{ /* Ieee/fixnum.scm 2526 */
BgL_test7216z00_19939 = 
BXZERO(BgL_xz00_2474)
; }  else 
{ /* Ieee/fixnum.scm 2526 */
BgL_test7216z00_19939 = ((bool_t)0)
; } 
if(BgL_test7216z00_19939)
{ /* Ieee/fixnum.scm 2526 */
BgL_aux4495z00_8607 = BgL_bufferz00_2471; }  else 
{ /* Ieee/fixnum.scm 2526 */
if(
(BgL_iz00_2475<0L))
{ /* Ieee/fixnum.scm 2529 */
BgL_aux4495z00_8607 = 
BGl_errorz00zz__errorz00(BGl_string4970z00zz__r4_numbers_6_5_fixnumz00, BGl_string4971z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_2474); }  else 
{ /* Ieee/fixnum.scm 2529 */
{ /* Ieee/fixnum.scm 2532 */
 unsigned char BgL_arg2486z00_2480;
BgL_arg2486z00_2480 = 
(
bgl_bignum_to_long(
bgl_bignum_remainder(BgL_xz00_2474, BGl_Z256z00zz__r4_numbers_6_5_fixnumz00))); 
{ /* Ieee/fixnum.scm 2532 */
 long BgL_l2699z00_6811;
BgL_l2699z00_6811 = 
STRING_LENGTH(BgL_bufferz00_2471); 
if(
BOUND_CHECK(BgL_iz00_2475, BgL_l2699z00_6811))
{ /* Ieee/fixnum.scm 2532 */
STRING_SET(BgL_bufferz00_2471, BgL_iz00_2475, BgL_arg2486z00_2480); }  else 
{ 
 obj_t BgL_auxz00_19953;
BgL_auxz00_19953 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(112766L), BGl_string4972z00zz__r4_numbers_6_5_fixnumz00, BgL_bufferz00_2471, 
(int)(BgL_l2699z00_6811), 
(int)(BgL_iz00_2475)); 
FAILURE(BgL_auxz00_19953,BFALSE,BFALSE);} } } 
{ 
 long BgL_iz00_19961; obj_t BgL_xz00_19959;
BgL_xz00_19959 = 
bgl_bignum_quotient(BgL_xz00_2474, BGl_Z256z00zz__r4_numbers_6_5_fixnumz00); 
BgL_iz00_19961 = 
(BgL_iz00_2475-1L); 
BgL_iz00_2475 = BgL_iz00_19961; 
BgL_xz00_2474 = BgL_xz00_19959; 
goto BgL_zc3z04anonymousza32482ze3z87_2476;} } } } 
if(
STRINGP(BgL_aux4495z00_8607))
{ /* Ieee/fixnum.scm 2523 */
return BgL_aux4495z00_8607;}  else 
{ 
 obj_t BgL_auxz00_19965;
BgL_auxz00_19965 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(112580L), BGl_string4973z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4495z00_8607); 
FAILURE(BgL_auxz00_19965,BFALSE,BFALSE);} } } } } } } } } 

}



/* &bignum->octet-string */
obj_t BGl_z62bignumzd2ze3octetzd2stringz81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6796, obj_t BgL_xz00_6797)
{
{ /* Ieee/fixnum.scm 2489 */
{ /* Ieee/fixnum.scm 2491 */
 obj_t BgL_auxz00_19969;
if(
BIGNUMP(BgL_xz00_6797))
{ /* Ieee/fixnum.scm 2491 */
BgL_auxz00_19969 = BgL_xz00_6797
; }  else 
{ 
 obj_t BgL_auxz00_19972;
BgL_auxz00_19972 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(111663L), BGl_string4974z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_6797); 
FAILURE(BgL_auxz00_19972,BFALSE,BFALSE);} 
return 
BGl_bignumzd2ze3octetzd2stringze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_19969);} } 

}



/* octet-string->bignum */
BGL_EXPORTED_DEF obj_t BGl_octetzd2stringzd2ze3bignumze3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_strz00_572)
{
{ /* Ieee/fixnum.scm 2538 */
{ 
 long BgL_iz00_2522; obj_t BgL_resz00_2523;
BgL_iz00_2522 = 0L; 
BgL_resz00_2523 = BGl_Z0z00zz__r4_numbers_6_5_fixnumz00; 
BgL_zc3z04anonymousza32510ze3z87_2524:
if(
(BgL_iz00_2522==
STRING_LENGTH(BgL_strz00_572)))
{ /* Ieee/fixnum.scm 2541 */
return BgL_resz00_2523;}  else 
{ /* Ieee/fixnum.scm 2543 */
 obj_t BgL_arg2515z00_2528;
{ /* Ieee/fixnum.scm 1874 */
 obj_t BgL_tmpz00_19980;
{ /* Ieee/fixnum.scm 1495 */
 long BgL_tmpz00_19982;
{ /* Ieee/fixnum.scm 2545 */
 unsigned char BgL_tmpz00_19983;
{ /* Ieee/fixnum.scm 2545 */
 long BgL_l2703z00_6815;
BgL_l2703z00_6815 = 
STRING_LENGTH(BgL_strz00_572); 
if(
BOUND_CHECK(BgL_iz00_2522, BgL_l2703z00_6815))
{ /* Ieee/fixnum.scm 2545 */
BgL_tmpz00_19983 = 
STRING_REF(BgL_strz00_572, BgL_iz00_2522)
; }  else 
{ 
 obj_t BgL_auxz00_19988;
BgL_auxz00_19988 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113269L), BGl_string4975z00zz__r4_numbers_6_5_fixnumz00, BgL_strz00_572, 
(int)(BgL_l2703z00_6815), 
(int)(BgL_iz00_2522)); 
FAILURE(BgL_auxz00_19988,BFALSE,BFALSE);} } 
BgL_tmpz00_19982 = 
(BgL_tmpz00_19983); } 
BgL_tmpz00_19980 = 
bgl_long_to_bignum(BgL_tmpz00_19982); } 
BgL_arg2515z00_2528 = 
bgl_bignum_add(
bgl_bignum_mul(BgL_resz00_2523, BGl_Z256z00zz__r4_numbers_6_5_fixnumz00), BgL_tmpz00_19980); } 
{ 
 obj_t BgL_resz00_19999; long BgL_iz00_19997;
BgL_iz00_19997 = 
(BgL_iz00_2522+1L); 
BgL_resz00_19999 = BgL_arg2515z00_2528; 
BgL_resz00_2523 = BgL_resz00_19999; 
BgL_iz00_2522 = BgL_iz00_19997; 
goto BgL_zc3z04anonymousza32510ze3z87_2524;} } } } 

}



/* &octet-string->bignum */
obj_t BGl_z62octetzd2stringzd2ze3bignumz81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6798, obj_t BgL_strz00_6799)
{
{ /* Ieee/fixnum.scm 2538 */
{ /* Ieee/fixnum.scm 2541 */
 obj_t BgL_auxz00_20000;
if(
STRINGP(BgL_strz00_6799))
{ /* Ieee/fixnum.scm 2541 */
BgL_auxz00_20000 = BgL_strz00_6799
; }  else 
{ 
 obj_t BgL_auxz00_20003;
BgL_auxz00_20003 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113151L), BGl_string4976z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_strz00_6799); 
FAILURE(BgL_auxz00_20003,BFALSE,BFALSE);} 
return 
BGl_octetzd2stringzd2ze3bignumze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20000);} } 

}



/* _string->integer */
obj_t BGl__stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_env1177z00_577, obj_t BgL_opt1176z00_576)
{
{ /* Ieee/fixnum.scm 2552 */
{ /* Ieee/fixnum.scm 2552 */
 obj_t BgL_g1178z00_2535;
BgL_g1178z00_2535 = 
VECTOR_REF(BgL_opt1176z00_576,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1176z00_576)) { case 1L : 

{ /* Ieee/fixnum.scm 2552 */

{ /* Ieee/fixnum.scm 2552 */
 long BgL_res2694z00_5775;
{ /* Ieee/fixnum.scm 2552 */
 obj_t BgL_stringz00_5768;
if(
STRINGP(BgL_g1178z00_2535))
{ /* Ieee/fixnum.scm 2552 */
BgL_stringz00_5768 = BgL_g1178z00_2535; }  else 
{ 
 obj_t BgL_auxz00_20011;
BgL_auxz00_20011 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113666L), BGl_string4980z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_g1178z00_2535); 
FAILURE(BgL_auxz00_20011,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2553 */
 bool_t BgL_test7226z00_20015;
if(
(10L>=2L))
{ /* Ieee/fixnum.scm 2553 */
BgL_test7226z00_20015 = 
(10L<=36L)
; }  else 
{ /* Ieee/fixnum.scm 2553 */
BgL_test7226z00_20015 = ((bool_t)0)
; } 
if(BgL_test7226z00_20015)
{ /* Ieee/fixnum.scm 2556 */
 char * BgL_tmpz00_20019;
BgL_tmpz00_20019 = 
BSTRING_TO_STRING(BgL_stringz00_5768); 
BgL_res2694z00_5775 = 
BGL_STRTOL(BgL_tmpz00_20019, 0L, 10L); }  else 
{ /* Ieee/fixnum.scm 2557 */
 obj_t BgL_tmpz00_20022;
{ /* Ieee/fixnum.scm 2557 */
 obj_t BgL_aux4503z00_8615;
BgL_aux4503z00_8615 = 
BGl_errorz00zz__errorz00(BGl_string4978z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(10L)); 
if(
INTEGERP(BgL_aux4503z00_8615))
{ /* Ieee/fixnum.scm 2557 */
BgL_tmpz00_20022 = BgL_aux4503z00_8615
; }  else 
{ 
 obj_t BgL_auxz00_20027;
BgL_auxz00_20027 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113924L), BGl_string4980z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4503z00_8615); 
FAILURE(BgL_auxz00_20027,BFALSE,BFALSE);} } 
BgL_res2694z00_5775 = 
(long)CINT(BgL_tmpz00_20022); } } } 
return 
BINT(BgL_res2694z00_5775);} } break;case 2L : 

{ /* Ieee/fixnum.scm 2552 */
 obj_t BgL_radixz00_2540;
BgL_radixz00_2540 = 
VECTOR_REF(BgL_opt1176z00_576,1L); 
{ /* Ieee/fixnum.scm 2552 */

{ /* Ieee/fixnum.scm 2552 */
 long BgL_res2695z00_5783;
{ /* Ieee/fixnum.scm 2552 */
 obj_t BgL_stringz00_5776; long BgL_radixz00_5777;
if(
STRINGP(BgL_g1178z00_2535))
{ /* Ieee/fixnum.scm 2552 */
BgL_stringz00_5776 = BgL_g1178z00_2535; }  else 
{ 
 obj_t BgL_auxz00_20036;
BgL_auxz00_20036 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113666L), BGl_string4980z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_g1178z00_2535); 
FAILURE(BgL_auxz00_20036,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2552 */
 obj_t BgL_tmpz00_20040;
if(
INTEGERP(BgL_radixz00_2540))
{ /* Ieee/fixnum.scm 2552 */
BgL_tmpz00_20040 = BgL_radixz00_2540
; }  else 
{ 
 obj_t BgL_auxz00_20043;
BgL_auxz00_20043 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113666L), BGl_string4980z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_2540); 
FAILURE(BgL_auxz00_20043,BFALSE,BFALSE);} 
BgL_radixz00_5777 = 
(long)CINT(BgL_tmpz00_20040); } 
{ /* Ieee/fixnum.scm 2553 */
 bool_t BgL_test7231z00_20048;
if(
(BgL_radixz00_5777>=2L))
{ /* Ieee/fixnum.scm 2553 */
BgL_test7231z00_20048 = 
(BgL_radixz00_5777<=36L)
; }  else 
{ /* Ieee/fixnum.scm 2553 */
BgL_test7231z00_20048 = ((bool_t)0)
; } 
if(BgL_test7231z00_20048)
{ /* Ieee/fixnum.scm 2556 */
 char * BgL_tmpz00_20052;
BgL_tmpz00_20052 = 
BSTRING_TO_STRING(BgL_stringz00_5776); 
BgL_res2695z00_5783 = 
BGL_STRTOL(BgL_tmpz00_20052, 0L, BgL_radixz00_5777); }  else 
{ /* Ieee/fixnum.scm 2557 */
 obj_t BgL_tmpz00_20055;
{ /* Ieee/fixnum.scm 2557 */
 obj_t BgL_aux4507z00_8619;
BgL_aux4507z00_8619 = 
BGl_errorz00zz__errorz00(BGl_string4978z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_5777)); 
if(
INTEGERP(BgL_aux4507z00_8619))
{ /* Ieee/fixnum.scm 2557 */
BgL_tmpz00_20055 = BgL_aux4507z00_8619
; }  else 
{ 
 obj_t BgL_auxz00_20060;
BgL_auxz00_20060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113924L), BGl_string4980z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4507z00_8619); 
FAILURE(BgL_auxz00_20060,BFALSE,BFALSE);} } 
BgL_res2695z00_5783 = 
(long)CINT(BgL_tmpz00_20055); } } } 
return 
BINT(BgL_res2695z00_5783);} } } break;case 3L : 

{ /* Ieee/fixnum.scm 2552 */
 obj_t BgL_radixz00_2542;
BgL_radixz00_2542 = 
VECTOR_REF(BgL_opt1176z00_576,1L); 
{ /* Ieee/fixnum.scm 2552 */
 obj_t BgL_startz00_2543;
BgL_startz00_2543 = 
VECTOR_REF(BgL_opt1176z00_576,2L); 
{ /* Ieee/fixnum.scm 2552 */

{ /* Ieee/fixnum.scm 2552 */
 long BgL_res2696z00_5791;
{ /* Ieee/fixnum.scm 2552 */
 obj_t BgL_stringz00_5784; long BgL_radixz00_5785; long BgL_startz00_5786;
if(
STRINGP(BgL_g1178z00_2535))
{ /* Ieee/fixnum.scm 2552 */
BgL_stringz00_5784 = BgL_g1178z00_2535; }  else 
{ 
 obj_t BgL_auxz00_20070;
BgL_auxz00_20070 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113666L), BGl_string4980z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_g1178z00_2535); 
FAILURE(BgL_auxz00_20070,BFALSE,BFALSE);} 
{ /* Ieee/fixnum.scm 2552 */
 obj_t BgL_tmpz00_20074;
if(
INTEGERP(BgL_radixz00_2542))
{ /* Ieee/fixnum.scm 2552 */
BgL_tmpz00_20074 = BgL_radixz00_2542
; }  else 
{ 
 obj_t BgL_auxz00_20077;
BgL_auxz00_20077 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113666L), BGl_string4980z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_2542); 
FAILURE(BgL_auxz00_20077,BFALSE,BFALSE);} 
BgL_radixz00_5785 = 
(long)CINT(BgL_tmpz00_20074); } 
{ /* Ieee/fixnum.scm 2552 */
 obj_t BgL_tmpz00_20082;
if(
INTEGERP(BgL_startz00_2543))
{ /* Ieee/fixnum.scm 2552 */
BgL_tmpz00_20082 = BgL_startz00_2543
; }  else 
{ 
 obj_t BgL_auxz00_20085;
BgL_auxz00_20085 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113666L), BGl_string4980z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_startz00_2543); 
FAILURE(BgL_auxz00_20085,BFALSE,BFALSE);} 
BgL_startz00_5786 = 
(long)CINT(BgL_tmpz00_20082); } 
{ /* Ieee/fixnum.scm 2553 */
 bool_t BgL_test7237z00_20090;
if(
(BgL_radixz00_5785>=2L))
{ /* Ieee/fixnum.scm 2553 */
BgL_test7237z00_20090 = 
(BgL_radixz00_5785<=36L)
; }  else 
{ /* Ieee/fixnum.scm 2553 */
BgL_test7237z00_20090 = ((bool_t)0)
; } 
if(BgL_test7237z00_20090)
{ /* Ieee/fixnum.scm 2556 */
 char * BgL_tmpz00_20094;
BgL_tmpz00_20094 = 
BSTRING_TO_STRING(BgL_stringz00_5784); 
BgL_res2696z00_5791 = 
BGL_STRTOL(BgL_tmpz00_20094, BgL_startz00_5786, BgL_radixz00_5785); }  else 
{ /* Ieee/fixnum.scm 2557 */
 obj_t BgL_tmpz00_20097;
{ /* Ieee/fixnum.scm 2557 */
 obj_t BgL_aux4512z00_8624;
BgL_aux4512z00_8624 = 
BGl_errorz00zz__errorz00(BGl_string4978z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_5785)); 
if(
INTEGERP(BgL_aux4512z00_8624))
{ /* Ieee/fixnum.scm 2557 */
BgL_tmpz00_20097 = BgL_aux4512z00_8624
; }  else 
{ 
 obj_t BgL_auxz00_20102;
BgL_auxz00_20102 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113924L), BGl_string4980z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4512z00_8624); 
FAILURE(BgL_auxz00_20102,BFALSE,BFALSE);} } 
BgL_res2696z00_5791 = 
(long)CINT(BgL_tmpz00_20097); } } } 
return 
BINT(BgL_res2696z00_5791);} } } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4977z00zz__r4_numbers_6_5_fixnumz00, BGl_string4979z00zz__r4_numbers_6_5_fixnumz00, 
BINT(
VECTOR_LENGTH(BgL_opt1176z00_576)));} } } } 

}



/* string->integer */
BGL_EXPORTED_DEF long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_stringz00_573, long BgL_radixz00_574, long BgL_startz00_575)
{
{ /* Ieee/fixnum.scm 2552 */
{ /* Ieee/fixnum.scm 2553 */
 bool_t BgL_test7240z00_20113;
if(
(BgL_radixz00_574>=2L))
{ /* Ieee/fixnum.scm 2553 */
BgL_test7240z00_20113 = 
(BgL_radixz00_574<=36L)
; }  else 
{ /* Ieee/fixnum.scm 2553 */
BgL_test7240z00_20113 = ((bool_t)0)
; } 
if(BgL_test7240z00_20113)
{ /* Ieee/fixnum.scm 2556 */
 char * BgL_tmpz00_20117;
BgL_tmpz00_20117 = 
BSTRING_TO_STRING(BgL_stringz00_573); 
return 
BGL_STRTOL(BgL_tmpz00_20117, BgL_startz00_575, BgL_radixz00_574);}  else 
{ /* Ieee/fixnum.scm 2557 */
 obj_t BgL_tmpz00_20120;
{ /* Ieee/fixnum.scm 2557 */
 obj_t BgL_aux4513z00_8625;
BgL_aux4513z00_8625 = 
BGl_errorz00zz__errorz00(BGl_string4978z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_574)); 
if(
INTEGERP(BgL_aux4513z00_8625))
{ /* Ieee/fixnum.scm 2557 */
BgL_tmpz00_20120 = BgL_aux4513z00_8625
; }  else 
{ 
 obj_t BgL_auxz00_20125;
BgL_auxz00_20125 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(113924L), BGl_string4978z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4513z00_8625); 
FAILURE(BgL_auxz00_20125,BFALSE,BFALSE);} } 
return 
(long)CINT(BgL_tmpz00_20120);} } } 

}



/* _string->elong */
obj_t BGl__stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_env1182z00_581, obj_t BgL_opt1181z00_580)
{
{ /* Ieee/fixnum.scm 2562 */
{ /* Ieee/fixnum.scm 2562 */
 obj_t BgL_g1183z00_2548;
BgL_g1183z00_2548 = 
VECTOR_REF(BgL_opt1181z00_580,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1181z00_580)) { case 1L : 

{ /* Ieee/fixnum.scm 2562 */

{ /* Ieee/fixnum.scm 2562 */
 long BgL_tmpz00_20131;
{ /* Ieee/fixnum.scm 2562 */
 obj_t BgL_auxz00_20132;
if(
STRINGP(BgL_g1183z00_2548))
{ /* Ieee/fixnum.scm 2562 */
BgL_auxz00_20132 = BgL_g1183z00_2548
; }  else 
{ 
 obj_t BgL_auxz00_20135;
BgL_auxz00_20135 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(114197L), BGl_string4983z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_g1183z00_2548); 
FAILURE(BgL_auxz00_20135,BFALSE,BFALSE);} 
BgL_tmpz00_20131 = 
BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20132, 10L); } 
return 
make_belong(BgL_tmpz00_20131);} } break;case 2L : 

{ /* Ieee/fixnum.scm 2562 */
 obj_t BgL_radixz00_2552;
BgL_radixz00_2552 = 
VECTOR_REF(BgL_opt1181z00_580,1L); 
{ /* Ieee/fixnum.scm 2562 */

{ /* Ieee/fixnum.scm 2562 */
 long BgL_tmpz00_20142;
{ /* Ieee/fixnum.scm 2562 */
 long BgL_auxz00_20150; obj_t BgL_auxz00_20143;
{ /* Ieee/fixnum.scm 2562 */
 obj_t BgL_tmpz00_20151;
if(
INTEGERP(BgL_radixz00_2552))
{ /* Ieee/fixnum.scm 2562 */
BgL_tmpz00_20151 = BgL_radixz00_2552
; }  else 
{ 
 obj_t BgL_auxz00_20154;
BgL_auxz00_20154 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(114197L), BGl_string4983z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_2552); 
FAILURE(BgL_auxz00_20154,BFALSE,BFALSE);} 
BgL_auxz00_20150 = 
(long)CINT(BgL_tmpz00_20151); } 
if(
STRINGP(BgL_g1183z00_2548))
{ /* Ieee/fixnum.scm 2562 */
BgL_auxz00_20143 = BgL_g1183z00_2548
; }  else 
{ 
 obj_t BgL_auxz00_20146;
BgL_auxz00_20146 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(114197L), BGl_string4983z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_g1183z00_2548); 
FAILURE(BgL_auxz00_20146,BFALSE,BFALSE);} 
BgL_tmpz00_20142 = 
BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20143, BgL_auxz00_20150); } 
return 
make_belong(BgL_tmpz00_20142);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4981z00zz__r4_numbers_6_5_fixnumz00, BGl_string4949z00zz__r4_numbers_6_5_fixnumz00, 
BINT(
VECTOR_LENGTH(BgL_opt1181z00_580)));} } } } 

}



/* string->elong */
BGL_EXPORTED_DEF long BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_stringz00_578, long BgL_radixz00_579)
{
{ /* Ieee/fixnum.scm 2562 */
{ /* Ieee/fixnum.scm 2563 */
 bool_t BgL_test7246z00_20166;
if(
(BgL_radixz00_579>=2L))
{ /* Ieee/fixnum.scm 2563 */
BgL_test7246z00_20166 = 
(BgL_radixz00_579<=36L)
; }  else 
{ /* Ieee/fixnum.scm 2563 */
BgL_test7246z00_20166 = ((bool_t)0)
; } 
if(BgL_test7246z00_20166)
{ /* Ieee/fixnum.scm 2564 */
 char * BgL_tmpz00_20170;
BgL_tmpz00_20170 = 
BSTRING_TO_STRING(BgL_stringz00_578); 
return 
BGL_STRTOL(BgL_tmpz00_20170, 0L, BgL_radixz00_579);}  else 
{ /* Ieee/fixnum.scm 2565 */
 obj_t BgL_tmpz00_20173;
{ /* Ieee/fixnum.scm 2565 */
 obj_t BgL_aux4519z00_8631;
BgL_aux4519z00_8631 = 
BGl_errorz00zz__errorz00(BGl_string4982z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_579)); 
if(
ELONGP(BgL_aux4519z00_8631))
{ /* Ieee/fixnum.scm 2565 */
BgL_tmpz00_20173 = BgL_aux4519z00_8631
; }  else 
{ 
 obj_t BgL_auxz00_20178;
BgL_auxz00_20178 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(114339L), BGl_string4982z00zz__r4_numbers_6_5_fixnumz00, BGl_string4547z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4519z00_8631); 
FAILURE(BgL_auxz00_20178,BFALSE,BFALSE);} } 
return 
BELONG_TO_LONG(BgL_tmpz00_20173);} } } 

}



/* _string->llong */
obj_t BGl__stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_env1187z00_585, obj_t BgL_opt1186z00_584)
{
{ /* Ieee/fixnum.scm 2570 */
{ /* Ieee/fixnum.scm 2570 */
 obj_t BgL_g1188z00_2557;
BgL_g1188z00_2557 = 
VECTOR_REF(BgL_opt1186z00_584,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1186z00_584)) { case 1L : 

{ /* Ieee/fixnum.scm 2570 */

{ /* Ieee/fixnum.scm 2570 */
 BGL_LONGLONG_T BgL_tmpz00_20184;
{ /* Ieee/fixnum.scm 2570 */
 obj_t BgL_auxz00_20185;
if(
STRINGP(BgL_g1188z00_2557))
{ /* Ieee/fixnum.scm 2570 */
BgL_auxz00_20185 = BgL_g1188z00_2557
; }  else 
{ 
 obj_t BgL_auxz00_20188;
BgL_auxz00_20188 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(114610L), BGl_string4986z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_g1188z00_2557); 
FAILURE(BgL_auxz00_20188,BFALSE,BFALSE);} 
BgL_tmpz00_20184 = 
BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20185, 10L); } 
return 
make_bllong(BgL_tmpz00_20184);} } break;case 2L : 

{ /* Ieee/fixnum.scm 2570 */
 obj_t BgL_radixz00_2561;
BgL_radixz00_2561 = 
VECTOR_REF(BgL_opt1186z00_584,1L); 
{ /* Ieee/fixnum.scm 2570 */

{ /* Ieee/fixnum.scm 2570 */
 BGL_LONGLONG_T BgL_tmpz00_20195;
{ /* Ieee/fixnum.scm 2570 */
 long BgL_auxz00_20203; obj_t BgL_auxz00_20196;
{ /* Ieee/fixnum.scm 2570 */
 obj_t BgL_tmpz00_20204;
if(
INTEGERP(BgL_radixz00_2561))
{ /* Ieee/fixnum.scm 2570 */
BgL_tmpz00_20204 = BgL_radixz00_2561
; }  else 
{ 
 obj_t BgL_auxz00_20207;
BgL_auxz00_20207 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(114610L), BGl_string4986z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_2561); 
FAILURE(BgL_auxz00_20207,BFALSE,BFALSE);} 
BgL_auxz00_20203 = 
(long)CINT(BgL_tmpz00_20204); } 
if(
STRINGP(BgL_g1188z00_2557))
{ /* Ieee/fixnum.scm 2570 */
BgL_auxz00_20196 = BgL_g1188z00_2557
; }  else 
{ 
 obj_t BgL_auxz00_20199;
BgL_auxz00_20199 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(114610L), BGl_string4986z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_g1188z00_2557); 
FAILURE(BgL_auxz00_20199,BFALSE,BFALSE);} 
BgL_tmpz00_20195 = 
BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20196, BgL_auxz00_20203); } 
return 
make_bllong(BgL_tmpz00_20195);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4984z00zz__r4_numbers_6_5_fixnumz00, BGl_string4949z00zz__r4_numbers_6_5_fixnumz00, 
BINT(
VECTOR_LENGTH(BgL_opt1186z00_584)));} } } } 

}



/* string->llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_stringz00_582, long BgL_radixz00_583)
{
{ /* Ieee/fixnum.scm 2570 */
{ /* Ieee/fixnum.scm 2571 */
 bool_t BgL_test7252z00_20219;
if(
(BgL_radixz00_583>=2L))
{ /* Ieee/fixnum.scm 2571 */
BgL_test7252z00_20219 = 
(BgL_radixz00_583<=36L)
; }  else 
{ /* Ieee/fixnum.scm 2571 */
BgL_test7252z00_20219 = ((bool_t)0)
; } 
if(BgL_test7252z00_20219)
{ /* Ieee/fixnum.scm 2572 */
 char * BgL_tmpz00_20223;
BgL_tmpz00_20223 = 
BSTRING_TO_STRING(BgL_stringz00_582); 
return 
BGL_STRTOLL(BgL_tmpz00_20223, 0L, BgL_radixz00_583);}  else 
{ /* Ieee/fixnum.scm 2573 */
 obj_t BgL_tmpz00_20226;
{ /* Ieee/fixnum.scm 2573 */
 obj_t BgL_aux4526z00_8638;
BgL_aux4526z00_8638 = 
BGl_errorz00zz__errorz00(BGl_string4985z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_583)); 
if(
LLONGP(BgL_aux4526z00_8638))
{ /* Ieee/fixnum.scm 2573 */
BgL_tmpz00_20226 = BgL_aux4526z00_8638
; }  else 
{ 
 obj_t BgL_auxz00_20231;
BgL_auxz00_20231 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(114752L), BGl_string4985z00zz__r4_numbers_6_5_fixnumz00, BGl_string4549z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4526z00_8638); 
FAILURE(BgL_auxz00_20231,BFALSE,BFALSE);} } 
return 
BLLONG_TO_LLONG(BgL_tmpz00_20226);} } } 

}



/* _string->bignum */
obj_t BGl__stringzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_env1192z00_589, obj_t BgL_opt1191z00_588)
{
{ /* Ieee/fixnum.scm 2578 */
{ /* Ieee/fixnum.scm 2578 */
 obj_t BgL_g1193z00_2566;
BgL_g1193z00_2566 = 
VECTOR_REF(BgL_opt1191z00_588,0L); 
{ 

switch( 
VECTOR_LENGTH(BgL_opt1191z00_588)) { case 1L : 

{ /* Ieee/fixnum.scm 2578 */

{ /* Ieee/fixnum.scm 2578 */
 obj_t BgL_auxz00_20237;
if(
STRINGP(BgL_g1193z00_2566))
{ /* Ieee/fixnum.scm 2578 */
BgL_auxz00_20237 = BgL_g1193z00_2566
; }  else 
{ 
 obj_t BgL_auxz00_20240;
BgL_auxz00_20240 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(115023L), BGl_string4989z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_g1193z00_2566); 
FAILURE(BgL_auxz00_20240,BFALSE,BFALSE);} 
return 
BGl_stringzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20237, 10L);} } break;case 2L : 

{ /* Ieee/fixnum.scm 2578 */
 obj_t BgL_radixz00_2570;
BgL_radixz00_2570 = 
VECTOR_REF(BgL_opt1191z00_588,1L); 
{ /* Ieee/fixnum.scm 2578 */

{ /* Ieee/fixnum.scm 2578 */
 long BgL_auxz00_20253; obj_t BgL_auxz00_20246;
{ /* Ieee/fixnum.scm 2578 */
 obj_t BgL_tmpz00_20254;
if(
INTEGERP(BgL_radixz00_2570))
{ /* Ieee/fixnum.scm 2578 */
BgL_tmpz00_20254 = BgL_radixz00_2570
; }  else 
{ 
 obj_t BgL_auxz00_20257;
BgL_auxz00_20257 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(115023L), BGl_string4989z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_2570); 
FAILURE(BgL_auxz00_20257,BFALSE,BFALSE);} 
BgL_auxz00_20253 = 
(long)CINT(BgL_tmpz00_20254); } 
if(
STRINGP(BgL_g1193z00_2566))
{ /* Ieee/fixnum.scm 2578 */
BgL_auxz00_20246 = BgL_g1193z00_2566
; }  else 
{ 
 obj_t BgL_auxz00_20249;
BgL_auxz00_20249 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(115023L), BGl_string4989z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_g1193z00_2566); 
FAILURE(BgL_auxz00_20249,BFALSE,BFALSE);} 
return 
BGl_stringzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20246, BgL_auxz00_20253);} } } break;
default: 
return 
BGl_errorz00zz__errorz00(BGl_symbol4987z00zz__r4_numbers_6_5_fixnumz00, BGl_string4949z00zz__r4_numbers_6_5_fixnumz00, 
BINT(
VECTOR_LENGTH(BgL_opt1191z00_588)));} } } } 

}



/* string->bignum */
BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3bignumz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_stringz00_586, long BgL_radixz00_587)
{
{ /* Ieee/fixnum.scm 2578 */
{ /* Ieee/fixnum.scm 2579 */
 bool_t BgL_test7258z00_20268;
if(
(BgL_radixz00_587>=2L))
{ /* Ieee/fixnum.scm 2579 */
BgL_test7258z00_20268 = 
(BgL_radixz00_587<=36L)
; }  else 
{ /* Ieee/fixnum.scm 2579 */
BgL_test7258z00_20268 = ((bool_t)0)
; } 
if(BgL_test7258z00_20268)
{ /* Ieee/fixnum.scm 2579 */
return 
bgl_string_to_bignum(
BSTRING_TO_STRING(BgL_stringz00_586), 
(int)(BgL_radixz00_587));}  else 
{ /* Ieee/fixnum.scm 2581 */
 obj_t BgL_aux4533z00_8645;
BgL_aux4533z00_8645 = 
BGl_errorz00zz__errorz00(BGl_string4988z00zz__r4_numbers_6_5_fixnumz00, BGl_string4951z00zz__r4_numbers_6_5_fixnumz00, 
BINT(BgL_radixz00_587)); 
if(
BIGNUMP(BgL_aux4533z00_8645))
{ /* Ieee/fixnum.scm 2581 */
return BgL_aux4533z00_8645;}  else 
{ 
 obj_t BgL_auxz00_20279;
BgL_auxz00_20279 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(115169L), BGl_string4988z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_aux4533z00_8645); 
FAILURE(BgL_auxz00_20279,BFALSE,BFALSE);} } } } 

}



/* string->integer-obj */
BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_stringz00_590, long BgL_radixz00_591)
{
{ /* Ieee/fixnum.scm 2586 */
return 
bgl_string_to_integer_obj(
BSTRING_TO_STRING(BgL_stringz00_590), 
(int)(BgL_radixz00_591));} 

}



/* &string->integer-obj */
obj_t BGl_z62stringzd2ze3integerzd2objz81zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6800, obj_t BgL_stringz00_6801, obj_t BgL_radixz00_6802)
{
{ /* Ieee/fixnum.scm 2586 */
{ /* Ieee/fixnum.scm 2587 */
 long BgL_auxz00_20293; obj_t BgL_auxz00_20286;
{ /* Ieee/fixnum.scm 2587 */
 obj_t BgL_tmpz00_20294;
if(
INTEGERP(BgL_radixz00_6802))
{ /* Ieee/fixnum.scm 2587 */
BgL_tmpz00_20294 = BgL_radixz00_6802
; }  else 
{ 
 obj_t BgL_auxz00_20297;
BgL_auxz00_20297 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(115486L), BGl_string4990z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_6802); 
FAILURE(BgL_auxz00_20297,BFALSE,BFALSE);} 
BgL_auxz00_20293 = 
(long)CINT(BgL_tmpz00_20294); } 
if(
STRINGP(BgL_stringz00_6801))
{ /* Ieee/fixnum.scm 2587 */
BgL_auxz00_20286 = BgL_stringz00_6801
; }  else 
{ 
 obj_t BgL_auxz00_20289;
BgL_auxz00_20289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(115486L), BGl_string4990z00zz__r4_numbers_6_5_fixnumz00, BGl_string4952z00zz__r4_numbers_6_5_fixnumz00, BgL_stringz00_6801); 
FAILURE(BgL_auxz00_20289,BFALSE,BFALSE);} 
return 
BGl_stringzd2ze3integerzd2objze3zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20286, BgL_auxz00_20293);} } 

}



/* random */
BGL_EXPORTED_DEF long BGl_randomz00zz__r4_numbers_6_5_fixnumz00(long BgL_maxz00_592)
{
{ /* Ieee/fixnum.scm 2592 */
if(
(BgL_maxz00_592==0L))
{ /* Ieee/fixnum.scm 2593 */
return 0L;}  else 
{ /* Ieee/fixnum.scm 2593 */
 int BgL_arg2545z00_8761;
BgL_arg2545z00_8761 = 
rand(); 
return 
BGl_modulofxz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_arg2545z00_8761), BgL_maxz00_592);} } 

}



/* &random */
obj_t BGl_z62randomz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6803, obj_t BgL_maxz00_6804)
{
{ /* Ieee/fixnum.scm 2592 */
{ /* Ieee/fixnum.scm 2593 */
 long BgL_tmpz00_20308;
{ /* Ieee/fixnum.scm 2593 */
 long BgL_auxz00_20309;
{ /* Ieee/fixnum.scm 2593 */
 obj_t BgL_tmpz00_20310;
if(
INTEGERP(BgL_maxz00_6804))
{ /* Ieee/fixnum.scm 2593 */
BgL_tmpz00_20310 = BgL_maxz00_6804
; }  else 
{ 
 obj_t BgL_auxz00_20313;
BgL_auxz00_20313 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(115783L), BGl_string4991z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_maxz00_6804); 
FAILURE(BgL_auxz00_20313,BFALSE,BFALSE);} 
BgL_auxz00_20309 = 
(long)CINT(BgL_tmpz00_20310); } 
BgL_tmpz00_20308 = 
BGl_randomz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20309); } 
return 
BINT(BgL_tmpz00_20308);} } 

}



/* randombx */
BGL_EXPORTED_DEF obj_t BGl_randombxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_maxz00_593)
{
{ /* Ieee/fixnum.scm 2598 */
if(
(
bgl_bignum_to_long(BgL_maxz00_593)==0L))
{ /* Ieee/fixnum.scm 2599 */
return (bgl_string_to_bignum( "0", 16 ));}  else 
{ /* Ieee/fixnum.scm 2599 */
BGL_TAIL return 
bgl_rand_bignum(BgL_maxz00_593);} } 

}



/* &randombx */
obj_t BGl_z62randombxz62zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6805, obj_t BgL_maxz00_6806)
{
{ /* Ieee/fixnum.scm 2598 */
{ /* Ieee/fixnum.scm 2599 */
 obj_t BgL_auxz00_20324;
if(
BIGNUMP(BgL_maxz00_6806))
{ /* Ieee/fixnum.scm 2599 */
BgL_auxz00_20324 = BgL_maxz00_6806
; }  else 
{ 
 obj_t BgL_auxz00_20327;
BgL_auxz00_20327 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(116090L), BGl_string4992z00zz__r4_numbers_6_5_fixnumz00, BGl_string4584z00zz__r4_numbers_6_5_fixnumz00, BgL_maxz00_6806); 
FAILURE(BgL_auxz00_20327,BFALSE,BFALSE);} 
return 
BGl_randombxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20324);} } 

}



/* seed-random! */
BGL_EXPORTED_DEF obj_t BGl_seedzd2randomz12zc0zz__r4_numbers_6_5_fixnumz00(int BgL_seedz00_594)
{
{ /* Ieee/fixnum.scm 2604 */
bgl_seed_rand(
(long)(BgL_seedz00_594)); BUNSPEC; 
return 
BINT(BgL_seedz00_594);} 

}



/* &seed-random! */
obj_t BGl_z62seedzd2randomz12za2zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_6807, obj_t BgL_seedz00_6808)
{
{ /* Ieee/fixnum.scm 2604 */
{ /* Ieee/fixnum.scm 2605 */
 int BgL_auxz00_20335;
{ /* Ieee/fixnum.scm 2605 */
 obj_t BgL_tmpz00_20336;
if(
INTEGERP(BgL_seedz00_6808))
{ /* Ieee/fixnum.scm 2605 */
BgL_tmpz00_20336 = BgL_seedz00_6808
; }  else 
{ 
 obj_t BgL_auxz00_20339;
BgL_auxz00_20339 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string4542z00zz__r4_numbers_6_5_fixnumz00, 
BINT(116413L), BGl_string4993z00zz__r4_numbers_6_5_fixnumz00, BGl_string4544z00zz__r4_numbers_6_5_fixnumz00, BgL_seedz00_6808); 
FAILURE(BgL_auxz00_20339,BFALSE,BFALSE);} 
BgL_auxz00_20335 = 
CINT(BgL_tmpz00_20336); } 
return 
BGl_seedzd2randomz12zc0zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_20335);} } 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_fixnumz00(void)
{
{ /* Ieee/fixnum.scm 14 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string4994z00zz__r4_numbers_6_5_fixnumz00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string4994z00zz__r4_numbers_6_5_fixnumz00)); 
return 
BGl_modulezd2initializa7ationz75zz__bignumz00(6519932L, 
BSTRING_TO_STRING(BGl_string4994z00zz__r4_numbers_6_5_fixnumz00));} 

}

#ifdef __cplusplus
}
#endif
