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

/* debug mode */
#define BIGLOO_DEBUG 1

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

static obj_t BGl_symbol3374z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3373z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_positivefxzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_symbol3372z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3371z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3370z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3369z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_symbol3368z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3367z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3366z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol3365z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3364z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3363z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3362z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_zc3fxzc3zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_symbol3360z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3359z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3358z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl__fixnumzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_za7erofxzf3z54zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl_symbol3357z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3356z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3355z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_symbol3354z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_quotientz00zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_symbol3353z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
extern double BGl_roundflz00zz__r4_numbers_6_5_flonumz00(double);
static obj_t BGl_symbol3352z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3351z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_lcmz00zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_symbol3350z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3349z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3348z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3347z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3346z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3345z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3344z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3343z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3342z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3340z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3339z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3337z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3336z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl__minfxz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3llongzd3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_symbol3335z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
extern long bgl_list_length(obj_t);
static obj_t BGl_symbol3334z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3332z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl__stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3331z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_fixnumzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_symbol3330z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3329z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl__negfxz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_symbol3326z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl__quotientz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__zb2fxzb2zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__ze3fxze3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__moduloz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zc3zd3fxz10zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_cnstzd2initzd2zz__r4_numbers_6_5_fixnumz00();
static obj_t BGl__absfxz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl__oddzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t integer_to_string(long, long);
BGL_EXPORTED_DECL long BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl__positivefxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t string_to_symbol(char *);
BGL_EXPORTED_DECL long BGl_zd2fxzd2zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl__evenzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
extern obj_t integer_to_string(long, long);
static obj_t BGl__makezd2elongzd2zz__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__elongzd2ze3string1999z31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3fxzd3zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL bool_t BGl_elongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl__integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__llongzf3zf3zz__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 long BGl_negfxz00zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl__zf2fxzf2zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2elongzd2zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL long BGl_gcdz00zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL int BGl_randomz00zz__r4_numbers_6_5_fixnumz00(int);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_fixnumz00();
BGL_EXPORTED_DECL bool_t BGl_oddzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL obj_t BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl__zd3elong1972zd3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__maxfxz00zz__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__negativefxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl__llongzd2ze3string2001z31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__zc3fxzc3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
extern obj_t llong_to_string(BGL_LONGLONG_T, long);
static obj_t BGl__lcmz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_evenzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
BGL_EXPORTED_DECL obj_t BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl__remainderz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__ze3zd3fxz30zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_zb2fxzb2zz__r4_numbers_6_5_fixnumz00(long, long);
BGL_EXPORTED_DECL bool_t BGl_ze3fxze3zz__r4_numbers_6_5_fixnumz00(long, long);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
static obj_t BGl__stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl__zd3llong1974zd3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_zd3elongzd3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl__stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, obj_t);
BGL_EXPORTED_DECL long BGl_moduloz00zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl__elongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_maxfxz00zz__r4_numbers_6_5_fixnumz00(long, obj_t);
BGL_EXPORTED_DECL bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_negativefxzf3zf3zz__r4_numbers_6_5_fixnumz00(long);
static obj_t BGl__zd2fxzd2zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__za2fxza2zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl__zd3fxzd3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static long BGl_lcm2z00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_symbol3410z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl__randomz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_symbol3408z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3398z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_ze3zd3fxz30zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_symbol3407z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3397z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3406z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3395z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl__integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_symbol3404z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3394z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_zf2fxzf2zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_symbol3403z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3392z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3401z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3391z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3400z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3387z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3386z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl__za7erofxzf3z54zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl__zc3zd3fxz10zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3382z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3381z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3380z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3379z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3378z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_llongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t);
static obj_t BGl_symbol3377z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl_symbol3376z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t BGl__gcdz00zz__r4_numbers_6_5_fixnumz00(obj_t, obj_t);
static obj_t BGl_symbol3375z00zz__r4_numbers_6_5_fixnumz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_lcmzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__lcmza700za7za7__r4_numbers_6_5_fixnumza7003443z00, va_generic_entry, BGl__lcmz00zz__r4_numbers_6_5_fixnumz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3zd3fxzd2envzc2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7c3za7d3fxza710za7za7__r4_numbers_6_5_fixnumza7003444z00, BGl__zc3zd3fxz10zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_STRING( BGl_string3409z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3409za700za7za7__r4_numbers_6_5_fixnumza7003445z00, "int", 3 );
DEFINE_STRING( BGl_string3399z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3399za700za7za7__r4_numbers_6_5_fixnumza7003446z00, "string->integer", 15 );
DEFINE_STRING( BGl_string3396z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3396za700za7za7__r4_numbers_6_5_fixnumza7003447z00, "llong->string", 13 );
DEFINE_STRING( BGl_string3405z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3405za700za7za7__r4_numbers_6_5_fixnumza7003448z00, "string->llong", 13 );
DEFINE_STRING( BGl_string3393z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3393za700za7za7__r4_numbers_6_5_fixnumza7003449z00, "elong->string", 13 );
DEFINE_STRING( BGl_string3402z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3402za700za7za7__r4_numbers_6_5_fixnumza7003450z00, "string->elong", 13 );
DEFINE_STRING( BGl_string3390z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3390za700za7za7__r4_numbers_6_5_fixnumza7003451z00, "bstring", 7 );
DEFINE_STRING( BGl_string3389z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3389za700za7za7__r4_numbers_6_5_fixnumza7003452z00, "Illegal radix", 13 );
DEFINE_STRING( BGl_string3388z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3388za700za7za7__r4_numbers_6_5_fixnumza7003453z00, "integer->string", 15 );
DEFINE_STRING( BGl_string3384z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3384za700za7za7__r4_numbers_6_5_fixnumza7003454z00, "pair-nil", 8 );
DEFINE_EXPORT_PROCEDURE( BGl_minfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__minfxza700za7za7__r4_numbers_6_5_fixnumza7003455z00, va_generic_entry, BGl__minfxz00zz__r4_numbers_6_5_fixnumz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze3llongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__stringza7d2za7e3llongza731za7za7__r4_numbers_6_5_fixnumza7003456z00, va_generic_entry, BGl__stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00, -2 );
DEFINE_STRING( BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3361za700za7za7__r4_numbers_6_5_fixnumza7003457z00, "pair", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_evenzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl__evenza7f3za7f3za7za7__r4_numbers_6_5_fixnumza7003458za7, BGl__evenzf3zf3zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_modulozd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__moduloza700za7za7__r4_numbers_6_5_fixnumza7003459z00, BGl__moduloz00zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_STRING( BGl_string3341z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3341za700za7za7__r4_numbers_6_5_fixnumza7003460z00, "bllong", 6 );
DEFINE_STRING( BGl_string3338z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3338za700za7za7__r4_numbers_6_5_fixnumza7003461z00, "belong", 6 );
DEFINE_STRING( BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3333za700za7za7__r4_numbers_6_5_fixnumza7003462z00, "long", 4 );
DEFINE_STRING( BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3328za700za7za7__r4_numbers_6_5_fixnumza7003463z00, "/tmp/bigloo/runtime/./Ieee/fixnum.scm", 37 );
DEFINE_STRING( BGl_string3327z00zz__r4_numbers_6_5_fixnumz00, BgL_bgl_string3327za700za7za7__r4_numbers_6_5_fixnumza7003464z00, "double", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_elongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl__elongza7f3za7f3za7za7__r4_numbers_6_5_fixnumza7003465za7, BGl__elongzf3zf3zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_llongzd2ze3stringzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__llongza7d2za7e3string2001za731za7za7__r4_numbers_6_5_fixnumza7003466z00, va_generic_entry, BGl__llongzd2ze3string2001z31zz__r4_numbers_6_5_fixnumz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_integerzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl__integerza7f3za7f3za7za7__r4_numbers_6_5_fixnumza7003467za7, BGl__integerzf3zf3zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_absfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__absfxza700za7za7__r4_numbers_6_5_fixnumza7003468z00, BGl__absfxz00zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zf2fxzd2envz20zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7f2fxza7f2za7za7__r4_numbers_6_5_fixnumza7003469za7, BGl__zf2fxzf2zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze3integerzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__stringza7d2za7e3integerza731za7za7__r4_numbers_6_5_fixnumza7003470z00, va_generic_entry, BGl__stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_randomzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__randomza700za7za7__r4_numbers_6_5_fixnumza7003471z00, BGl__randomz00zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_positivefxzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl__positivefxza7f3za7f3za7za7__r4_numbers_6_5_fixnumza7003472za7, BGl__positivefxzf3zf3zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zd3elongzd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7d3elong1972za7d3za7za7__r4_numbers_6_5_fixnumza7003473za7, BGl__zd3elong1972zd3zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_zd2fxzd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7d2fxza7d2za7za7__r4_numbers_6_5_fixnumza7003474za7, BGl__zd2fxzd2zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3fxzd2envz31zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7e3fxza7e3za7za7__r4_numbers_6_5_fixnumza7003475za7, BGl__ze3fxze3zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_za7erofxzf3zd2envz86zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7a7erofxza7f3za754za7za7__r4_numbers_6_5_fixnumza7003476z00, BGl__za7erofxzf3z54zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_negativefxzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl__negativefxza7f3za7f3za7za7__r4_numbers_6_5_fixnumza7003477za7, BGl__negativefxzf3zf3zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_gcdzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__gcdza700za7za7__r4_numbers_6_5_fixnumza7003478z00, va_generic_entry, BGl__gcdz00zz__r4_numbers_6_5_fixnumz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_zd3fxzd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7d3fxza7d3za7za7__r4_numbers_6_5_fixnumza7003479za7, BGl__zd3fxzd3zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fixnumzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl__fixnumza7f3za7f3za7za7__r4_numbers_6_5_fixnumza7003480za7, BGl__fixnumzf3zf3zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_oddzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl__oddza7f3za7f3za7za7__r4_numbers_6_5_fixnumza7003481za7, BGl__oddzf3zf3zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_llongzf3zd2envz21zz__r4_numbers_6_5_fixnumz00, BgL_bgl__llongza7f3za7f3za7za7__r4_numbers_6_5_fixnumza7003482za7, BGl__llongzf3zf3zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zb2fxzd2envz60zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7b2fxza7b2za7za7__r4_numbers_6_5_fixnumza7003483za7, BGl__zb2fxzb2zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3fxzd2envz11zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7c3fxza7c3za7za7__r4_numbers_6_5_fixnumza7003484za7, BGl__zc3fxzc3zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_maxfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__maxfxza700za7za7__r4_numbers_6_5_fixnumza7003485z00, va_generic_entry, BGl__maxfxz00zz__r4_numbers_6_5_fixnumz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_za2fxzd2envz70zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7a2fxza7a2za7za7__r4_numbers_6_5_fixnumza7003486za7, BGl__za2fxza2zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_zd3llongzd2envz01zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7d3llong1974za7d3za7za7__r4_numbers_6_5_fixnumza7003487za7, BGl__zd3llong1974zd3zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_integerzd2ze3stringzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__integerza7d2za7e3stringza731za7za7__r4_numbers_6_5_fixnumza7003488z00, va_generic_entry, BGl__integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_elongzd2ze3stringzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__elongza7d2za7e3string1999za731za7za7__r4_numbers_6_5_fixnumza7003489z00, va_generic_entry, BGl__elongzd2ze3string1999z31zz__r4_numbers_6_5_fixnumz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_negfxzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__negfxza700za7za7__r4_numbers_6_5_fixnumza7003490z00, BGl__negfxz00zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_quotientzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__quotientza700za7za7__r4_numbers_6_5_fixnumza7003491z00, BGl__quotientz00zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze3elongzd2envze3zz__r4_numbers_6_5_fixnumz00, BgL_bgl__stringza7d2za7e3elongza731za7za7__r4_numbers_6_5_fixnumza7003492z00, va_generic_entry, BGl__stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_remainderzd2envzd2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__remainderza700za7za7__r4_numbers_6_5_fixnumza7003493z00, BGl__remainderz00zz__r4_numbers_6_5_fixnumz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2elongzd2envz00zz__r4_numbers_6_5_fixnumz00, BgL_bgl__makeza7d2elongza7d2za7za7__r4_numbers_6_5_fixnumza7003494za7, BGl__makezd2elongzd2zz__r4_numbers_6_5_fixnumz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3zd3fxzd2envze2zz__r4_numbers_6_5_fixnumz00, BgL_bgl__za7e3za7d3fxza730za7za7__r4_numbers_6_5_fixnumza7003495z00, BGl__ze3zd3fxz30zz__r4_numbers_6_5_fixnumz00, 0L, 2 );



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



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_numbers_6_5_fixnumz00()
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 14 */
BGl_symbol3326z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("integer?"); 
BGl_symbol3329z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("elong?"); 
BGl_symbol3330z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("llong?"); 
BGl_symbol3331z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("make-elong"); 
BGl_symbol3332z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_make-elong"); 
BGl_symbol3334z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("=fx"); 
BGl_symbol3335z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_=fx"); 
BGl_symbol3336z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("=elong"); 
BGl_symbol3337z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_=elong1972"); 
BGl_symbol3339z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("=llong"); 
BGl_symbol3340z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_=llong1974"); 
BGl_symbol3342z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("<fx"); 
BGl_symbol3343z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_<fx"); 
BGl_symbol3344z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol(">fx"); 
BGl_symbol3345z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_>fx"); 
BGl_symbol3346z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("<=fx"); 
BGl_symbol3347z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_<=fx"); 
BGl_symbol3348z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol(">=fx"); 
BGl_symbol3349z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_>=fx"); 
BGl_symbol3350z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("zerofx?"); 
BGl_symbol3351z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_zerofx?"); 
BGl_symbol3352z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("positivefx?"); 
BGl_symbol3353z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_positivefx?"); 
BGl_symbol3354z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("negativefx?"); 
BGl_symbol3355z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_negativefx?"); 
BGl_symbol3356z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("odd?"); 
BGl_symbol3357z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_odd?"); 
BGl_symbol3358z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("even?"); 
BGl_symbol3359z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_even?"); 
BGl_symbol3360z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("maxfx"); 
BGl_symbol3362z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_maxfx"); 
BGl_symbol3363z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("minfx"); 
BGl_symbol3364z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_minfx"); 
BGl_symbol3365z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("+fx"); 
BGl_symbol3366z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_+fx"); 
BGl_symbol3367z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("-fx"); 
BGl_symbol3368z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_-fx"); 
BGl_symbol3369z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("*fx"); 
BGl_symbol3370z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_*fx"); 
BGl_symbol3371z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("/fx"); 
BGl_symbol3372z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_/fx"); 
BGl_symbol3373z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("negfx"); 
BGl_symbol3374z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_negfx"); 
BGl_symbol3375z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("absfx"); 
BGl_symbol3376z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_absfx"); 
BGl_symbol3377z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("quotient"); 
BGl_symbol3378z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_quotient"); 
BGl_symbol3379z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("remainder"); 
BGl_symbol3380z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_remainder"); 
BGl_symbol3381z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("modulo"); 
BGl_symbol3382z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_modulo"); 
BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("gcd"); 
BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("lcm"); 
BGl_symbol3386z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("lcm2"); 
BGl_symbol3387z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("integer->string"); 
BGl_symbol3391z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_integer->string"); 
BGl_symbol3392z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("elong->string"); 
BGl_symbol3394z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_elong->string1999"); 
BGl_symbol3395z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("llong->string"); 
BGl_symbol3397z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_llong->string2001"); 
BGl_symbol3398z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("string->integer"); 
BGl_symbol3400z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_string->integer"); 
BGl_symbol3401z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("string->elong"); 
BGl_symbol3403z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_string->elong"); 
BGl_symbol3404z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("string->llong"); 
BGl_symbol3406z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_string->llong"); 
BGl_symbol3407z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("random"); 
BGl_symbol3408z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("_random"); 
return ( 
BGl_symbol3410z00zz__r4_numbers_6_5_fixnumz00 = 
string_to_symbol("%import@__r4_numbers_6_5_fixnum"), BUNSPEC) ;} 
}



/* integer? */
BGL_EXPORTED_DEF bool_t BGl_integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 199 */
{ /* ./Ieee/fixnum.scm 200 */
obj_t BgL_symbol1813z00_1247;
BgL_symbol1813z00_1247 = BGl_symbol3326z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 200 */

PUSH_TRACE(BgL_symbol1813z00_1247); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 200 */
bool_t BgL_aux1812z00_1248;
if(
INTEGERP(BgL_objz00_1))
{ /* ./Ieee/fixnum.scm 200 */
BgL_aux1812z00_1248 = ((bool_t)1); }  else 
{ /* ./Ieee/fixnum.scm 200 */
bool_t BgL_test1020z00_1249;
BgL_test1020z00_1249 = 
REALP(BgL_objz00_1); 
if(BgL_test1020z00_1249)
{ /* ./Ieee/fixnum.scm 200 */
double BgL_arg1022z00_1250;
{ /* ./Ieee/fixnum.scm 200 */
double BgL_auxz00_1514;
{ /* ./Ieee/fixnum.scm 200 */
obj_t BgL_auxz00_1515;
if(BgL_test1020z00_1249)
{ /* ./Ieee/fixnum.scm 200 */
BgL_auxz00_1515 = BgL_objz00_1
; }  else 
{ /* ./Ieee/fixnum.scm 200 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3326z00zz__r4_numbers_6_5_fixnumz00, BGl_string3327z00zz__r4_numbers_6_5_fixnumz00, BgL_objz00_1, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)8967))); 
exit( -1 );} 
BgL_auxz00_1514 = 
REAL_TO_DOUBLE(BgL_auxz00_1515); } 
BgL_arg1022z00_1250 = 
BGl_roundflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1514); } 
{ /* ./Ieee/fixnum.scm 200 */
double BgL_r1z00_1251;
{ /* ./Ieee/fixnum.scm 200 */
obj_t BgL_auxz00_1522;
if(
REALP(BgL_objz00_1))
{ /* ./Ieee/fixnum.scm 200 */
BgL_auxz00_1522 = BgL_objz00_1
; }  else 
{ /* ./Ieee/fixnum.scm 200 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3326z00zz__r4_numbers_6_5_fixnumz00, BGl_string3327z00zz__r4_numbers_6_5_fixnumz00, BgL_objz00_1, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)8967))); 
exit( -1 );} 
BgL_r1z00_1251 = 
REAL_TO_DOUBLE(BgL_auxz00_1522); } 
BgL_aux1812z00_1248 = 
(BgL_r1z00_1251==BgL_arg1022z00_1250); } }  else 
{ /* ./Ieee/fixnum.scm 200 */
BgL_aux1812z00_1248 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux1812z00_1248;} } } } 
}



/* _integer? */
obj_t BGl__integerzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_919, obj_t BgL_objz00_920)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 199 */
{ /* ./Ieee/fixnum.scm 200 */
bool_t BgL_auxz00_1531;
{ /* ./Ieee/fixnum.scm 200 */
bool_t BgL_res3411z00_1258;
{ /* ./Ieee/fixnum.scm 200 */
obj_t BgL_symbol1813z00_1253;
BgL_symbol1813z00_1253 = BGl_symbol3326z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 200 */

PUSH_TRACE(BgL_symbol1813z00_1253); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 200 */
bool_t BgL_aux1812z00_1254;
if(
INTEGERP(BgL_objz00_920))
{ /* ./Ieee/fixnum.scm 200 */
BgL_aux1812z00_1254 = ((bool_t)1); }  else 
{ /* ./Ieee/fixnum.scm 200 */
bool_t BgL_test1020z00_1255;
BgL_test1020z00_1255 = 
REALP(BgL_objz00_920); 
if(BgL_test1020z00_1255)
{ /* ./Ieee/fixnum.scm 200 */
double BgL_arg1022z00_1256;
{ /* ./Ieee/fixnum.scm 200 */
double BgL_auxz00_1537;
{ /* ./Ieee/fixnum.scm 200 */
obj_t BgL_auxz00_1538;
if(BgL_test1020z00_1255)
{ /* ./Ieee/fixnum.scm 200 */
BgL_auxz00_1538 = BgL_objz00_920
; }  else 
{ /* ./Ieee/fixnum.scm 200 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3326z00zz__r4_numbers_6_5_fixnumz00, BGl_string3327z00zz__r4_numbers_6_5_fixnumz00, BgL_objz00_920, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)8967))); 
exit( -1 );} 
BgL_auxz00_1537 = 
REAL_TO_DOUBLE(BgL_auxz00_1538); } 
BgL_arg1022z00_1256 = 
BGl_roundflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_1537); } 
{ /* ./Ieee/fixnum.scm 200 */
double BgL_r1z00_1257;
{ /* ./Ieee/fixnum.scm 200 */
obj_t BgL_auxz00_1545;
if(
REALP(BgL_objz00_920))
{ /* ./Ieee/fixnum.scm 200 */
BgL_auxz00_1545 = BgL_objz00_920
; }  else 
{ /* ./Ieee/fixnum.scm 200 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3326z00zz__r4_numbers_6_5_fixnumz00, BGl_string3327z00zz__r4_numbers_6_5_fixnumz00, BgL_objz00_920, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)8967))); 
exit( -1 );} 
BgL_r1z00_1257 = 
REAL_TO_DOUBLE(BgL_auxz00_1545); } 
BgL_aux1812z00_1254 = 
(BgL_r1z00_1257==BgL_arg1022z00_1256); } }  else 
{ /* ./Ieee/fixnum.scm 200 */
BgL_aux1812z00_1254 = ((bool_t)0); } } 
POP_TRACE(); 
BgL_res3411z00_1258 = BgL_aux1812z00_1254; } } } 
BgL_auxz00_1531 = BgL_res3411z00_1258; } 
return 
BBOOL(BgL_auxz00_1531);} } 
}



/* fixnum? */
BGL_EXPORTED_DEF bool_t BGl_fixnumzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_2)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 209 */
return 
INTEGERP(BgL_objz00_2);} 
}



/* _fixnum? */
obj_t BGl__fixnumzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_921, obj_t BgL_objz00_922)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 209 */
{ /* ./Ieee/fixnum.scm 210 */
bool_t BgL_auxz00_1556;
BgL_auxz00_1556 = 
INTEGERP(BgL_objz00_922); 
return 
BBOOL(BgL_auxz00_1556);} } 
}



/* elong? */
BGL_EXPORTED_DEF bool_t BGl_elongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_3)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 215 */
{ /* ./Ieee/fixnum.scm 216 */
obj_t BgL_symbol1817z00_1260;
BgL_symbol1817z00_1260 = BGl_symbol3329z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 216 */

PUSH_TRACE(BgL_symbol1817z00_1260); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 216 */
bool_t BgL_aux1816z00_1261;
BgL_aux1816z00_1261 = 
ELONGP(BgL_objz00_3); 
POP_TRACE(); 
return BgL_aux1816z00_1261;} } } } 
}



/* _elong? */
obj_t BGl__elongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_923, obj_t BgL_objz00_924)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 215 */
{ /* ./Ieee/fixnum.scm 216 */
bool_t BgL_auxz00_1562;
{ /* ./Ieee/fixnum.scm 216 */
bool_t BgL_res3412z00_1265;
{ /* ./Ieee/fixnum.scm 216 */
obj_t BgL_symbol1817z00_1263;
BgL_symbol1817z00_1263 = BGl_symbol3329z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 216 */

PUSH_TRACE(BgL_symbol1817z00_1263); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 216 */
bool_t BgL_aux1816z00_1264;
BgL_aux1816z00_1264 = 
ELONGP(BgL_objz00_924); 
POP_TRACE(); 
BgL_res3412z00_1265 = BgL_aux1816z00_1264; } } } 
BgL_auxz00_1562 = BgL_res3412z00_1265; } 
return 
BBOOL(BgL_auxz00_1562);} } 
}



/* llong? */
BGL_EXPORTED_DEF bool_t BGl_llongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_objz00_4)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 221 */
{ /* ./Ieee/fixnum.scm 222 */
obj_t BgL_symbol1821z00_1266;
BgL_symbol1821z00_1266 = BGl_symbol3330z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 222 */

PUSH_TRACE(BgL_symbol1821z00_1266); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 222 */
bool_t BgL_aux1820z00_1267;
BgL_aux1820z00_1267 = 
LLONGP(BgL_objz00_4); 
POP_TRACE(); 
return BgL_aux1820z00_1267;} } } } 
}



/* _llong? */
obj_t BGl__llongzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_925, obj_t BgL_objz00_926)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 221 */
{ /* ./Ieee/fixnum.scm 222 */
bool_t BgL_auxz00_1570;
{ /* ./Ieee/fixnum.scm 222 */
bool_t BgL_res3413z00_1271;
{ /* ./Ieee/fixnum.scm 222 */
obj_t BgL_symbol1821z00_1269;
BgL_symbol1821z00_1269 = BGl_symbol3330z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 222 */

PUSH_TRACE(BgL_symbol1821z00_1269); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 222 */
bool_t BgL_aux1820z00_1270;
BgL_aux1820z00_1270 = 
LLONGP(BgL_objz00_926); 
POP_TRACE(); 
BgL_res3413z00_1271 = BgL_aux1820z00_1270; } } } 
BgL_auxz00_1570 = BgL_res3413z00_1271; } 
return 
BBOOL(BgL_auxz00_1570);} } 
}



/* make-elong */
BGL_EXPORTED_DEF obj_t BGl_makezd2elongzd2zz__r4_numbers_6_5_fixnumz00(long BgL_longz00_5)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 227 */
{ /* ./Ieee/fixnum.scm 228 */
obj_t BgL_symbol1825z00_1272;
BgL_symbol1825z00_1272 = BGl_symbol3331z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 228 */

PUSH_TRACE(BgL_symbol1825z00_1272); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 228 */
obj_t BgL_aux1824z00_1273;
BgL_aux1824z00_1273 = 
LONG_TO_BELONG(BgL_longz00_5); 
POP_TRACE(); 
return BgL_aux1824z00_1273;} } } } 
}



/* _make-elong */
obj_t BGl__makezd2elongzd2zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_927, obj_t BgL_longz00_928)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 227 */
{ /* ./Ieee/fixnum.scm 228 */
obj_t BgL_res3414z00_1277;
{ /* ./Ieee/fixnum.scm 228 */
long BgL_longz00_1274;
{ /* ./Ieee/fixnum.scm 228 */
obj_t BgL_auxz00_1578;
if(
INTEGERP(BgL_longz00_928))
{ /* ./Ieee/fixnum.scm 228 */
BgL_auxz00_1578 = BgL_longz00_928
; }  else 
{ /* ./Ieee/fixnum.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3332z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_longz00_928, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)10133))); 
exit( -1 );} 
BgL_longz00_1274 = 
(long)CINT(BgL_auxz00_1578); } 
{ /* ./Ieee/fixnum.scm 228 */
obj_t BgL_symbol1825z00_1275;
BgL_symbol1825z00_1275 = BGl_symbol3331z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 228 */

PUSH_TRACE(BgL_symbol1825z00_1275); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 228 */
obj_t BgL_aux1824z00_1276;
BgL_aux1824z00_1276 = 
LONG_TO_BELONG(BgL_longz00_1274); 
POP_TRACE(); 
BgL_res3414z00_1277 = BgL_aux1824z00_1276; } } } } 
return BgL_res3414z00_1277;} } 
}



/* =fx */
BGL_EXPORTED_DEF bool_t BGl_zd3fxzd3zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_6, long BgL_n2z00_7)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 233 */
{ /* ./Ieee/fixnum.scm 234 */
obj_t BgL_symbol1829z00_1278;
BgL_symbol1829z00_1278 = BGl_symbol3334z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 234 */

PUSH_TRACE(BgL_symbol1829z00_1278); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 234 */
bool_t BgL_aux1828z00_1279;
BgL_aux1828z00_1279 = 
(BgL_n1z00_6==BgL_n2z00_7); 
POP_TRACE(); 
return BgL_aux1828z00_1279;} } } } 
}



/* _=fx */
obj_t BGl__zd3fxzd3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_929, obj_t BgL_n1z00_930, obj_t BgL_n2z00_931)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 233 */
{ /* ./Ieee/fixnum.scm 234 */
bool_t BgL_auxz00_1591;
{ /* ./Ieee/fixnum.scm 234 */
bool_t BgL_res3415z00_1284;
{ /* ./Ieee/fixnum.scm 234 */
long BgL_n1z00_1280;long BgL_n2z00_1281;
{ /* ./Ieee/fixnum.scm 234 */
obj_t BgL_auxz00_1592;
if(
INTEGERP(BgL_n1z00_930))
{ /* ./Ieee/fixnum.scm 234 */
BgL_auxz00_1592 = BgL_n1z00_930
; }  else 
{ /* ./Ieee/fixnum.scm 234 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3335z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_930, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)10407))); 
exit( -1 );} 
BgL_n1z00_1280 = 
(long)CINT(BgL_auxz00_1592); } 
{ /* ./Ieee/fixnum.scm 234 */
obj_t BgL_auxz00_1599;
if(
INTEGERP(BgL_n2z00_931))
{ /* ./Ieee/fixnum.scm 234 */
BgL_auxz00_1599 = BgL_n2z00_931
; }  else 
{ /* ./Ieee/fixnum.scm 234 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3335z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_931, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)10407))); 
exit( -1 );} 
BgL_n2z00_1281 = 
(long)CINT(BgL_auxz00_1599); } 
{ /* ./Ieee/fixnum.scm 234 */
obj_t BgL_symbol1829z00_1282;
BgL_symbol1829z00_1282 = BGl_symbol3334z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 234 */

PUSH_TRACE(BgL_symbol1829z00_1282); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 234 */
bool_t BgL_aux1828z00_1283;
BgL_aux1828z00_1283 = 
(BgL_n1z00_1280==BgL_n2z00_1281); 
POP_TRACE(); 
BgL_res3415z00_1284 = BgL_aux1828z00_1283; } } } } 
BgL_auxz00_1591 = BgL_res3415z00_1284; } 
return 
BBOOL(BgL_auxz00_1591);} } 
}



/* =elong */
BGL_EXPORTED_DEF bool_t BGl_zd3elongzd3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_8, obj_t BgL_n2z00_9)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 239 */
{ /* ./Ieee/fixnum.scm 240 */
obj_t BgL_symbol1833z00_1285;
BgL_symbol1833z00_1285 = BGl_symbol3336z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 240 */

PUSH_TRACE(BgL_symbol1833z00_1285); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 240 */
bool_t BgL_aux1832z00_1286;
{ /* ./Ieee/fixnum.scm 240 */
long BgL_arg1033z00_1287;long BgL_arg1034z00_1288;
BgL_arg1033z00_1287 = 
BELONG_TO_LONG(BgL_n1z00_8); 
BgL_arg1034z00_1288 = 
BELONG_TO_LONG(BgL_n2z00_9); 
BgL_aux1832z00_1286 = 
(BgL_arg1033z00_1287==BgL_arg1034z00_1288); } 
POP_TRACE(); 
return BgL_aux1832z00_1286;} } } } 
}



/* _=elong1972 */
obj_t BGl__zd3elong1972zd3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_932, obj_t BgL_n1z00_933, obj_t BgL_n2z00_934)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 239 */
{ /* ./Ieee/fixnum.scm 240 */
bool_t BgL_auxz00_1615;
{ /* ./Ieee/fixnum.scm 240 */
bool_t BgL_res3416z00_1295;
{ /* ./Ieee/fixnum.scm 240 */
obj_t BgL_n1z00_1289;obj_t BgL_n2z00_1290;
if(
ELONGP(BgL_n1z00_933))
{ /* ./Ieee/fixnum.scm 240 */
BgL_n1z00_1289 = BgL_n1z00_933; }  else 
{ /* ./Ieee/fixnum.scm 240 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3337z00zz__r4_numbers_6_5_fixnumz00, BGl_string3338z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_933, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)10688))); 
exit( -1 );} 
if(
ELONGP(BgL_n2z00_934))
{ /* ./Ieee/fixnum.scm 240 */
BgL_n2z00_1290 = BgL_n2z00_934; }  else 
{ /* ./Ieee/fixnum.scm 240 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3337z00zz__r4_numbers_6_5_fixnumz00, BGl_string3338z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_934, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)10688))); 
exit( -1 );} 
{ /* ./Ieee/fixnum.scm 240 */
obj_t BgL_symbol1833z00_1291;
BgL_symbol1833z00_1291 = BGl_symbol3336z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 240 */

PUSH_TRACE(BgL_symbol1833z00_1291); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 240 */
bool_t BgL_aux1832z00_1292;
{ /* ./Ieee/fixnum.scm 240 */
long BgL_arg1033z00_1293;long BgL_arg1034z00_1294;
BgL_arg1033z00_1293 = 
BELONG_TO_LONG(BgL_n1z00_1289); 
BgL_arg1034z00_1294 = 
BELONG_TO_LONG(BgL_n2z00_1290); 
BgL_aux1832z00_1292 = 
(BgL_arg1033z00_1293==BgL_arg1034z00_1294); } 
POP_TRACE(); 
BgL_res3416z00_1295 = BgL_aux1832z00_1292; } } } } 
BgL_auxz00_1615 = BgL_res3416z00_1295; } 
return 
BBOOL(BgL_auxz00_1615);} } 
}



/* =llong */
BGL_EXPORTED_DEF bool_t BGl_zd3llongzd3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_n1z00_10, obj_t BgL_n2z00_11)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 245 */
{ /* ./Ieee/fixnum.scm 246 */
obj_t BgL_symbol1837z00_1296;
BgL_symbol1837z00_1296 = BGl_symbol3339z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 246 */

PUSH_TRACE(BgL_symbol1837z00_1296); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 246 */
bool_t BgL_aux1836z00_1297;
{ /* ./Ieee/fixnum.scm 246 */
BGL_LONGLONG_T BgL_auxz00_1635;BGL_LONGLONG_T BgL_auxz00_1633;
BgL_auxz00_1635 = 
BLLONG_TO_LLONG(BgL_n2z00_11); 
BgL_auxz00_1633 = 
BLLONG_TO_LLONG(BgL_n1z00_10); 
BgL_aux1836z00_1297 = 
(BgL_auxz00_1633==BgL_auxz00_1635); } 
POP_TRACE(); 
return BgL_aux1836z00_1297;} } } } 
}



/* _=llong1974 */
obj_t BGl__zd3llong1974zd3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_935, obj_t BgL_n1z00_936, obj_t BgL_n2z00_937)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 245 */
{ /* ./Ieee/fixnum.scm 246 */
bool_t BgL_auxz00_1639;
{ /* ./Ieee/fixnum.scm 246 */
bool_t BgL_res3417z00_1302;
{ /* ./Ieee/fixnum.scm 246 */
obj_t BgL_n1z00_1298;obj_t BgL_n2z00_1299;
if(
LLONGP(BgL_n1z00_936))
{ /* ./Ieee/fixnum.scm 246 */
BgL_n1z00_1298 = BgL_n1z00_936; }  else 
{ /* ./Ieee/fixnum.scm 246 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3340z00zz__r4_numbers_6_5_fixnumz00, BGl_string3341z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_936, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)10994))); 
exit( -1 );} 
if(
LLONGP(BgL_n2z00_937))
{ /* ./Ieee/fixnum.scm 246 */
BgL_n2z00_1299 = BgL_n2z00_937; }  else 
{ /* ./Ieee/fixnum.scm 246 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3340z00zz__r4_numbers_6_5_fixnumz00, BGl_string3341z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_937, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)10994))); 
exit( -1 );} 
{ /* ./Ieee/fixnum.scm 246 */
obj_t BgL_symbol1837z00_1300;
BgL_symbol1837z00_1300 = BGl_symbol3339z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 246 */

PUSH_TRACE(BgL_symbol1837z00_1300); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 246 */
bool_t BgL_aux1836z00_1301;
{ /* ./Ieee/fixnum.scm 246 */
BGL_LONGLONG_T BgL_auxz00_1653;BGL_LONGLONG_T BgL_auxz00_1651;
BgL_auxz00_1653 = 
BLLONG_TO_LLONG(BgL_n2z00_1299); 
BgL_auxz00_1651 = 
BLLONG_TO_LLONG(BgL_n1z00_1298); 
BgL_aux1836z00_1301 = 
(BgL_auxz00_1651==BgL_auxz00_1653); } 
POP_TRACE(); 
BgL_res3417z00_1302 = BgL_aux1836z00_1301; } } } } 
BgL_auxz00_1639 = BgL_res3417z00_1302; } 
return 
BBOOL(BgL_auxz00_1639);} } 
}



/* <fx */
BGL_EXPORTED_DEF bool_t BGl_zc3fxzc3zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_12, long BgL_n2z00_13)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 251 */
{ /* ./Ieee/fixnum.scm 252 */
obj_t BgL_symbol1841z00_1303;
BgL_symbol1841z00_1303 = BGl_symbol3342z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 252 */

PUSH_TRACE(BgL_symbol1841z00_1303); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 252 */
bool_t BgL_aux1840z00_1304;
BgL_aux1840z00_1304 = 
(BgL_n1z00_12<BgL_n2z00_13); 
POP_TRACE(); 
return BgL_aux1840z00_1304;} } } } 
}



/* _<fx */
obj_t BGl__zc3fxzc3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_938, obj_t BgL_n1z00_939, obj_t BgL_n2z00_940)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 251 */
{ /* ./Ieee/fixnum.scm 252 */
bool_t BgL_auxz00_1661;
{ /* ./Ieee/fixnum.scm 252 */
bool_t BgL_res3418z00_1309;
{ /* ./Ieee/fixnum.scm 252 */
long BgL_n1z00_1305;long BgL_n2z00_1306;
{ /* ./Ieee/fixnum.scm 252 */
obj_t BgL_auxz00_1662;
if(
INTEGERP(BgL_n1z00_939))
{ /* ./Ieee/fixnum.scm 252 */
BgL_auxz00_1662 = BgL_n1z00_939
; }  else 
{ /* ./Ieee/fixnum.scm 252 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3343z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_939, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)11287))); 
exit( -1 );} 
BgL_n1z00_1305 = 
(long)CINT(BgL_auxz00_1662); } 
{ /* ./Ieee/fixnum.scm 252 */
obj_t BgL_auxz00_1669;
if(
INTEGERP(BgL_n2z00_940))
{ /* ./Ieee/fixnum.scm 252 */
BgL_auxz00_1669 = BgL_n2z00_940
; }  else 
{ /* ./Ieee/fixnum.scm 252 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3343z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_940, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)11287))); 
exit( -1 );} 
BgL_n2z00_1306 = 
(long)CINT(BgL_auxz00_1669); } 
{ /* ./Ieee/fixnum.scm 252 */
obj_t BgL_symbol1841z00_1307;
BgL_symbol1841z00_1307 = BGl_symbol3342z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 252 */

PUSH_TRACE(BgL_symbol1841z00_1307); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 252 */
bool_t BgL_aux1840z00_1308;
BgL_aux1840z00_1308 = 
(BgL_n1z00_1305<BgL_n2z00_1306); 
POP_TRACE(); 
BgL_res3418z00_1309 = BgL_aux1840z00_1308; } } } } 
BgL_auxz00_1661 = BgL_res3418z00_1309; } 
return 
BBOOL(BgL_auxz00_1661);} } 
}



/* >fx */
BGL_EXPORTED_DEF bool_t BGl_ze3fxze3zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_14, long BgL_n2z00_15)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 257 */
{ /* ./Ieee/fixnum.scm 258 */
obj_t BgL_symbol1845z00_1310;
BgL_symbol1845z00_1310 = BGl_symbol3344z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 258 */

PUSH_TRACE(BgL_symbol1845z00_1310); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 258 */
bool_t BgL_aux1844z00_1311;
BgL_aux1844z00_1311 = 
(BgL_n1z00_14>BgL_n2z00_15); 
POP_TRACE(); 
return BgL_aux1844z00_1311;} } } } 
}



/* _>fx */
obj_t BGl__ze3fxze3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_941, obj_t BgL_n1z00_942, obj_t BgL_n2z00_943)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 257 */
{ /* ./Ieee/fixnum.scm 258 */
bool_t BgL_auxz00_1683;
{ /* ./Ieee/fixnum.scm 258 */
bool_t BgL_res3419z00_1316;
{ /* ./Ieee/fixnum.scm 258 */
long BgL_n1z00_1312;long BgL_n2z00_1313;
{ /* ./Ieee/fixnum.scm 258 */
obj_t BgL_auxz00_1684;
if(
INTEGERP(BgL_n1z00_942))
{ /* ./Ieee/fixnum.scm 258 */
BgL_auxz00_1684 = BgL_n1z00_942
; }  else 
{ /* ./Ieee/fixnum.scm 258 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3345z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_942, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)11555))); 
exit( -1 );} 
BgL_n1z00_1312 = 
(long)CINT(BgL_auxz00_1684); } 
{ /* ./Ieee/fixnum.scm 258 */
obj_t BgL_auxz00_1691;
if(
INTEGERP(BgL_n2z00_943))
{ /* ./Ieee/fixnum.scm 258 */
BgL_auxz00_1691 = BgL_n2z00_943
; }  else 
{ /* ./Ieee/fixnum.scm 258 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3345z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_943, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)11555))); 
exit( -1 );} 
BgL_n2z00_1313 = 
(long)CINT(BgL_auxz00_1691); } 
{ /* ./Ieee/fixnum.scm 258 */
obj_t BgL_symbol1845z00_1314;
BgL_symbol1845z00_1314 = BGl_symbol3344z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 258 */

PUSH_TRACE(BgL_symbol1845z00_1314); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 258 */
bool_t BgL_aux1844z00_1315;
BgL_aux1844z00_1315 = 
(BgL_n1z00_1312>BgL_n2z00_1313); 
POP_TRACE(); 
BgL_res3419z00_1316 = BgL_aux1844z00_1315; } } } } 
BgL_auxz00_1683 = BgL_res3419z00_1316; } 
return 
BBOOL(BgL_auxz00_1683);} } 
}



/* <=fx */
BGL_EXPORTED_DEF bool_t BGl_zc3zd3fxz10zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_16, long BgL_n2z00_17)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 263 */
{ /* ./Ieee/fixnum.scm 264 */
obj_t BgL_symbol1849z00_1317;
BgL_symbol1849z00_1317 = BGl_symbol3346z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 264 */

PUSH_TRACE(BgL_symbol1849z00_1317); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 264 */
bool_t BgL_aux1848z00_1318;
BgL_aux1848z00_1318 = 
(BgL_n1z00_16<=BgL_n2z00_17); 
POP_TRACE(); 
return BgL_aux1848z00_1318;} } } } 
}



/* _<=fx */
obj_t BGl__zc3zd3fxz10zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_944, obj_t BgL_n1z00_945, obj_t BgL_n2z00_946)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 263 */
{ /* ./Ieee/fixnum.scm 264 */
bool_t BgL_auxz00_1705;
{ /* ./Ieee/fixnum.scm 264 */
bool_t BgL_res3420z00_1323;
{ /* ./Ieee/fixnum.scm 264 */
long BgL_n1z00_1319;long BgL_n2z00_1320;
{ /* ./Ieee/fixnum.scm 264 */
obj_t BgL_auxz00_1706;
if(
INTEGERP(BgL_n1z00_945))
{ /* ./Ieee/fixnum.scm 264 */
BgL_auxz00_1706 = BgL_n1z00_945
; }  else 
{ /* ./Ieee/fixnum.scm 264 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3347z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_945, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)11824))); 
exit( -1 );} 
BgL_n1z00_1319 = 
(long)CINT(BgL_auxz00_1706); } 
{ /* ./Ieee/fixnum.scm 264 */
obj_t BgL_auxz00_1713;
if(
INTEGERP(BgL_n2z00_946))
{ /* ./Ieee/fixnum.scm 264 */
BgL_auxz00_1713 = BgL_n2z00_946
; }  else 
{ /* ./Ieee/fixnum.scm 264 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3347z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_946, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)11824))); 
exit( -1 );} 
BgL_n2z00_1320 = 
(long)CINT(BgL_auxz00_1713); } 
{ /* ./Ieee/fixnum.scm 264 */
obj_t BgL_symbol1849z00_1321;
BgL_symbol1849z00_1321 = BGl_symbol3346z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 264 */

PUSH_TRACE(BgL_symbol1849z00_1321); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 264 */
bool_t BgL_aux1848z00_1322;
BgL_aux1848z00_1322 = 
(BgL_n1z00_1319<=BgL_n2z00_1320); 
POP_TRACE(); 
BgL_res3420z00_1323 = BgL_aux1848z00_1322; } } } } 
BgL_auxz00_1705 = BgL_res3420z00_1323; } 
return 
BBOOL(BgL_auxz00_1705);} } 
}



/* >=fx */
BGL_EXPORTED_DEF bool_t BGl_ze3zd3fxz30zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_18, long BgL_n2z00_19)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 269 */
{ /* ./Ieee/fixnum.scm 270 */
obj_t BgL_symbol1853z00_1324;
BgL_symbol1853z00_1324 = BGl_symbol3348z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 270 */

PUSH_TRACE(BgL_symbol1853z00_1324); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 270 */
bool_t BgL_aux1852z00_1325;
BgL_aux1852z00_1325 = 
(BgL_n1z00_18>=BgL_n2z00_19); 
POP_TRACE(); 
return BgL_aux1852z00_1325;} } } } 
}



/* _>=fx */
obj_t BGl__ze3zd3fxz30zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_947, obj_t BgL_n1z00_948, obj_t BgL_n2z00_949)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 269 */
{ /* ./Ieee/fixnum.scm 270 */
bool_t BgL_auxz00_1727;
{ /* ./Ieee/fixnum.scm 270 */
bool_t BgL_res3421z00_1330;
{ /* ./Ieee/fixnum.scm 270 */
long BgL_n1z00_1326;long BgL_n2z00_1327;
{ /* ./Ieee/fixnum.scm 270 */
obj_t BgL_auxz00_1728;
if(
INTEGERP(BgL_n1z00_948))
{ /* ./Ieee/fixnum.scm 270 */
BgL_auxz00_1728 = BgL_n1z00_948
; }  else 
{ /* ./Ieee/fixnum.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3349z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_948, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)12094))); 
exit( -1 );} 
BgL_n1z00_1326 = 
(long)CINT(BgL_auxz00_1728); } 
{ /* ./Ieee/fixnum.scm 270 */
obj_t BgL_auxz00_1735;
if(
INTEGERP(BgL_n2z00_949))
{ /* ./Ieee/fixnum.scm 270 */
BgL_auxz00_1735 = BgL_n2z00_949
; }  else 
{ /* ./Ieee/fixnum.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3349z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_949, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)12094))); 
exit( -1 );} 
BgL_n2z00_1327 = 
(long)CINT(BgL_auxz00_1735); } 
{ /* ./Ieee/fixnum.scm 270 */
obj_t BgL_symbol1853z00_1328;
BgL_symbol1853z00_1328 = BGl_symbol3348z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 270 */

PUSH_TRACE(BgL_symbol1853z00_1328); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 270 */
bool_t BgL_aux1852z00_1329;
BgL_aux1852z00_1329 = 
(BgL_n1z00_1326>=BgL_n2z00_1327); 
POP_TRACE(); 
BgL_res3421z00_1330 = BgL_aux1852z00_1329; } } } } 
BgL_auxz00_1727 = BgL_res3421z00_1330; } 
return 
BBOOL(BgL_auxz00_1727);} } 
}



/* zerofx? */
BGL_EXPORTED_DEF bool_t BGl_za7erofxzf3z54zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_20)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 275 */
{ /* ./Ieee/fixnum.scm 276 */
obj_t BgL_symbol1857z00_1331;
BgL_symbol1857z00_1331 = BGl_symbol3350z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 276 */

PUSH_TRACE(BgL_symbol1857z00_1331); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 276 */
bool_t BgL_aux1856z00_1332;
BgL_aux1856z00_1332 = 
(BgL_nz00_20==((long)0)); 
POP_TRACE(); 
return BgL_aux1856z00_1332;} } } } 
}



/* _zerofx? */
obj_t BGl__za7erofxzf3z54zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_950, obj_t BgL_nz00_951)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 275 */
{ /* ./Ieee/fixnum.scm 276 */
bool_t BgL_auxz00_1749;
{ /* ./Ieee/fixnum.scm 276 */
bool_t BgL_res3422z00_1336;
{ /* ./Ieee/fixnum.scm 276 */
long BgL_nz00_1333;
{ /* ./Ieee/fixnum.scm 276 */
obj_t BgL_auxz00_1750;
if(
INTEGERP(BgL_nz00_951))
{ /* ./Ieee/fixnum.scm 276 */
BgL_auxz00_1750 = BgL_nz00_951
; }  else 
{ /* ./Ieee/fixnum.scm 276 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3351z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_951, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)12363))); 
exit( -1 );} 
BgL_nz00_1333 = 
(long)CINT(BgL_auxz00_1750); } 
{ /* ./Ieee/fixnum.scm 276 */
obj_t BgL_symbol1857z00_1334;
BgL_symbol1857z00_1334 = BGl_symbol3350z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 276 */

PUSH_TRACE(BgL_symbol1857z00_1334); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 276 */
bool_t BgL_aux1856z00_1335;
BgL_aux1856z00_1335 = 
(BgL_nz00_1333==((long)0)); 
POP_TRACE(); 
BgL_res3422z00_1336 = BgL_aux1856z00_1335; } } } } 
BgL_auxz00_1749 = BgL_res3422z00_1336; } 
return 
BBOOL(BgL_auxz00_1749);} } 
}



/* positivefx? */
BGL_EXPORTED_DEF bool_t BGl_positivefxzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_21)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 281 */
{ /* ./Ieee/fixnum.scm 282 */
obj_t BgL_symbol1861z00_1337;
BgL_symbol1861z00_1337 = BGl_symbol3352z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 282 */

PUSH_TRACE(BgL_symbol1861z00_1337); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 282 */
bool_t BgL_aux1860z00_1338;
BgL_aux1860z00_1338 = 
(BgL_nz00_21>((long)0)); 
POP_TRACE(); 
return BgL_aux1860z00_1338;} } } } 
}



/* _positivefx? */
obj_t BGl__positivefxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_952, obj_t BgL_nz00_953)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 281 */
{ /* ./Ieee/fixnum.scm 282 */
bool_t BgL_auxz00_1764;
{ /* ./Ieee/fixnum.scm 282 */
bool_t BgL_res3423z00_1342;
{ /* ./Ieee/fixnum.scm 282 */
long BgL_nz00_1339;
{ /* ./Ieee/fixnum.scm 282 */
obj_t BgL_auxz00_1765;
if(
INTEGERP(BgL_nz00_953))
{ /* ./Ieee/fixnum.scm 282 */
BgL_auxz00_1765 = BgL_nz00_953
; }  else 
{ /* ./Ieee/fixnum.scm 282 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3353z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_953, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)12631))); 
exit( -1 );} 
BgL_nz00_1339 = 
(long)CINT(BgL_auxz00_1765); } 
{ /* ./Ieee/fixnum.scm 282 */
obj_t BgL_symbol1861z00_1340;
BgL_symbol1861z00_1340 = BGl_symbol3352z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 282 */

PUSH_TRACE(BgL_symbol1861z00_1340); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 282 */
bool_t BgL_aux1860z00_1341;
BgL_aux1860z00_1341 = 
(BgL_nz00_1339>((long)0)); 
POP_TRACE(); 
BgL_res3423z00_1342 = BgL_aux1860z00_1341; } } } } 
BgL_auxz00_1764 = BgL_res3423z00_1342; } 
return 
BBOOL(BgL_auxz00_1764);} } 
}



/* negativefx? */
BGL_EXPORTED_DEF bool_t BGl_negativefxzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_22)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 287 */
{ /* ./Ieee/fixnum.scm 288 */
obj_t BgL_symbol1865z00_1343;
BgL_symbol1865z00_1343 = BGl_symbol3354z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 288 */

PUSH_TRACE(BgL_symbol1865z00_1343); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 288 */
bool_t BgL_aux1864z00_1344;
BgL_aux1864z00_1344 = 
(BgL_nz00_22<((long)0)); 
POP_TRACE(); 
return BgL_aux1864z00_1344;} } } } 
}



/* _negativefx? */
obj_t BGl__negativefxzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_954, obj_t BgL_nz00_955)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 287 */
{ /* ./Ieee/fixnum.scm 288 */
bool_t BgL_auxz00_1779;
{ /* ./Ieee/fixnum.scm 288 */
bool_t BgL_res3424z00_1348;
{ /* ./Ieee/fixnum.scm 288 */
long BgL_nz00_1345;
{ /* ./Ieee/fixnum.scm 288 */
obj_t BgL_auxz00_1780;
if(
INTEGERP(BgL_nz00_955))
{ /* ./Ieee/fixnum.scm 288 */
BgL_auxz00_1780 = BgL_nz00_955
; }  else 
{ /* ./Ieee/fixnum.scm 288 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3355z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_955, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)12899))); 
exit( -1 );} 
BgL_nz00_1345 = 
(long)CINT(BgL_auxz00_1780); } 
{ /* ./Ieee/fixnum.scm 288 */
obj_t BgL_symbol1865z00_1346;
BgL_symbol1865z00_1346 = BGl_symbol3354z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 288 */

PUSH_TRACE(BgL_symbol1865z00_1346); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 288 */
bool_t BgL_aux1864z00_1347;
BgL_aux1864z00_1347 = 
(BgL_nz00_1345<((long)0)); 
POP_TRACE(); 
BgL_res3424z00_1348 = BgL_aux1864z00_1347; } } } } 
BgL_auxz00_1779 = BgL_res3424z00_1348; } 
return 
BBOOL(BgL_auxz00_1779);} } 
}



/* odd? */
BGL_EXPORTED_DEF bool_t BGl_oddzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_23)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 293 */
{ /* ./Ieee/fixnum.scm 294 */
obj_t BgL_symbol1869z00_1349;
BgL_symbol1869z00_1349 = BGl_symbol3356z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 294 */

PUSH_TRACE(BgL_symbol1869z00_1349); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 294 */
bool_t BgL_aux1868z00_1350;
BgL_aux1868z00_1350 = 
ODDP_FX(BgL_xz00_23); 
POP_TRACE(); 
return BgL_aux1868z00_1350;} } } } 
}



/* _odd? */
obj_t BGl__oddzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_956, obj_t BgL_xz00_957)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 293 */
{ /* ./Ieee/fixnum.scm 294 */
bool_t BgL_auxz00_1794;
{ /* ./Ieee/fixnum.scm 294 */
bool_t BgL_res3425z00_1354;
{ /* ./Ieee/fixnum.scm 294 */
long BgL_xz00_1351;
{ /* ./Ieee/fixnum.scm 294 */
obj_t BgL_auxz00_1795;
if(
INTEGERP(BgL_xz00_957))
{ /* ./Ieee/fixnum.scm 294 */
BgL_auxz00_1795 = BgL_xz00_957
; }  else 
{ /* ./Ieee/fixnum.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3357z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_957, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)13160))); 
exit( -1 );} 
BgL_xz00_1351 = 
(long)CINT(BgL_auxz00_1795); } 
{ /* ./Ieee/fixnum.scm 294 */
obj_t BgL_symbol1869z00_1352;
BgL_symbol1869z00_1352 = BGl_symbol3356z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 294 */

PUSH_TRACE(BgL_symbol1869z00_1352); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 294 */
bool_t BgL_aux1868z00_1353;
BgL_aux1868z00_1353 = 
ODDP_FX(BgL_xz00_1351); 
POP_TRACE(); 
BgL_res3425z00_1354 = BgL_aux1868z00_1353; } } } } 
BgL_auxz00_1794 = BgL_res3425z00_1354; } 
return 
BBOOL(BgL_auxz00_1794);} } 
}



/* even? */
BGL_EXPORTED_DEF bool_t BGl_evenzf3zf3zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_24)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 299 */
{ /* ./Ieee/fixnum.scm 300 */
obj_t BgL_symbol1873z00_1355;
BgL_symbol1873z00_1355 = BGl_symbol3358z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 300 */

PUSH_TRACE(BgL_symbol1873z00_1355); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 300 */
bool_t BgL_aux1872z00_1356;
BgL_aux1872z00_1356 = 
EVENP_FX(BgL_xz00_24); 
POP_TRACE(); 
return BgL_aux1872z00_1356;} } } } 
}



/* _even? */
obj_t BGl__evenzf3zf3zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_958, obj_t BgL_xz00_959)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 299 */
{ /* ./Ieee/fixnum.scm 300 */
bool_t BgL_auxz00_1809;
{ /* ./Ieee/fixnum.scm 300 */
bool_t BgL_res3426z00_1360;
{ /* ./Ieee/fixnum.scm 300 */
long BgL_xz00_1357;
{ /* ./Ieee/fixnum.scm 300 */
obj_t BgL_auxz00_1810;
if(
INTEGERP(BgL_xz00_959))
{ /* ./Ieee/fixnum.scm 300 */
BgL_auxz00_1810 = BgL_xz00_959
; }  else 
{ /* ./Ieee/fixnum.scm 300 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3359z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_959, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)13423))); 
exit( -1 );} 
BgL_xz00_1357 = 
(long)CINT(BgL_auxz00_1810); } 
{ /* ./Ieee/fixnum.scm 300 */
obj_t BgL_symbol1873z00_1358;
BgL_symbol1873z00_1358 = BGl_symbol3358z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 300 */

PUSH_TRACE(BgL_symbol1873z00_1358); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 300 */
bool_t BgL_aux1872z00_1359;
BgL_aux1872z00_1359 = 
EVENP_FX(BgL_xz00_1357); 
POP_TRACE(); 
BgL_res3426z00_1360 = BgL_aux1872z00_1359; } } } } 
BgL_auxz00_1809 = BgL_res3426z00_1360; } 
return 
BBOOL(BgL_auxz00_1809);} } 
}



/* maxfx */
BGL_EXPORTED_DEF long BGl_maxfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_25, obj_t BgL_nnz00_26)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 305 */
{ /* ./Ieee/fixnum.scm 306 */
obj_t BgL_symbol1877z00_877;
BgL_symbol1877z00_877 = BGl_symbol3360z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 306 */

PUSH_TRACE(BgL_symbol1877z00_877); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 306 */
long BgL_aux1876z00_878;
{ 
obj_t BgL_maxz00_304;obj_t BgL_nnz00_305;
{ /* ./Ieee/fixnum.scm 306 */
obj_t BgL_auxz00_1822;
{ /* ./Ieee/fixnum.scm 306 */
obj_t BgL_aux2324z00_1071;
BgL_maxz00_304 = 
BINT(BgL_n1z00_25); 
BgL_nnz00_305 = BgL_nnz00_26; 
BgL_loopz00_306:
if(
NULLP(BgL_nnz00_305))
{ /* ./Ieee/fixnum.scm 308 */
BgL_aux2324z00_1071 = BgL_maxz00_304; }  else 
{ /* ./Ieee/fixnum.scm 310 */
bool_t BgL_test1056z00_308;
{ /* ./Ieee/fixnum.scm 310 */
obj_t BgL_arg1068z00_312;
{ /* ./Ieee/fixnum.scm 310 */
obj_t BgL_pairz00_562;
if(
PAIRP(BgL_nnz00_305))
{ /* ./Ieee/fixnum.scm 310 */
BgL_pairz00_562 = BgL_nnz00_305; }  else 
{ /* ./Ieee/fixnum.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3360z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_nnz00_305, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)13769))); 
exit( -1 );} 
BgL_arg1068z00_312 = 
CAR(BgL_pairz00_562); } 
{ /* ./Ieee/fixnum.scm 310 */
long BgL_n1z00_563;long BgL_n2z00_564;
{ /* ./Ieee/fixnum.scm 310 */
obj_t BgL_auxz00_1831;
if(
INTEGERP(BgL_arg1068z00_312))
{ /* ./Ieee/fixnum.scm 310 */
BgL_auxz00_1831 = BgL_arg1068z00_312
; }  else 
{ /* ./Ieee/fixnum.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3360z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1068z00_312, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)13770))); 
exit( -1 );} 
BgL_n1z00_563 = 
(long)CINT(BgL_auxz00_1831); } 
{ /* ./Ieee/fixnum.scm 310 */
obj_t BgL_auxz00_1838;
if(
INTEGERP(BgL_maxz00_304))
{ /* ./Ieee/fixnum.scm 310 */
BgL_auxz00_1838 = BgL_maxz00_304
; }  else 
{ /* ./Ieee/fixnum.scm 310 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3360z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_maxz00_304, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)13774))); 
exit( -1 );} 
BgL_n2z00_564 = 
(long)CINT(BgL_auxz00_1838); } 
BgL_test1056z00_308 = 
(BgL_n1z00_563>BgL_n2z00_564); } } 
if(BgL_test1056z00_308)
{ /* ./Ieee/fixnum.scm 311 */
obj_t BgL_arg1058z00_309;obj_t BgL_arg1059z00_310;
{ /* ./Ieee/fixnum.scm 311 */
obj_t BgL_pairz00_565;
if(
PAIRP(BgL_nnz00_305))
{ /* ./Ieee/fixnum.scm 311 */
BgL_pairz00_565 = BgL_nnz00_305; }  else 
{ /* ./Ieee/fixnum.scm 311 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3360z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_nnz00_305, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)13796))); 
exit( -1 );} 
BgL_arg1058z00_309 = 
CAR(BgL_pairz00_565); } 
{ /* ./Ieee/fixnum.scm 311 */
obj_t BgL_pairz00_566;
if(
PAIRP(BgL_nnz00_305))
{ /* ./Ieee/fixnum.scm 311 */
BgL_pairz00_566 = BgL_nnz00_305; }  else 
{ /* ./Ieee/fixnum.scm 311 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3360z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_nnz00_305, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)13805))); 
exit( -1 );} 
BgL_arg1059z00_310 = 
CDR(BgL_pairz00_566); } 
{ 
obj_t BgL_nnz00_1860;obj_t BgL_maxz00_1859;
BgL_maxz00_1859 = BgL_arg1058z00_309; 
BgL_nnz00_1860 = BgL_arg1059z00_310; 
BgL_nnz00_305 = BgL_nnz00_1860; 
BgL_maxz00_304 = BgL_maxz00_1859; 
goto BgL_loopz00_306;} }  else 
{ /* ./Ieee/fixnum.scm 312 */
obj_t BgL_arg1064z00_311;
{ /* ./Ieee/fixnum.scm 312 */
obj_t BgL_pairz00_567;
if(
PAIRP(BgL_nnz00_305))
{ /* ./Ieee/fixnum.scm 312 */
BgL_pairz00_567 = BgL_nnz00_305; }  else 
{ /* ./Ieee/fixnum.scm 312 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3360z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_nnz00_305, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)13832))); 
exit( -1 );} 
BgL_arg1064z00_311 = 
CDR(BgL_pairz00_567); } 
{ 
obj_t BgL_nnz00_1867;
BgL_nnz00_1867 = BgL_arg1064z00_311; 
BgL_nnz00_305 = BgL_nnz00_1867; 
goto BgL_loopz00_306;} } } 
if(
INTEGERP(BgL_aux2324z00_1071))
{ /* ./Ieee/fixnum.scm 306 */
BgL_auxz00_1822 = BgL_aux2324z00_1071
; }  else 
{ /* ./Ieee/fixnum.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3360z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_aux2324z00_1071, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)13686))); 
exit( -1 );} } 
BgL_aux1876z00_878 = 
(long)CINT(BgL_auxz00_1822); } } 
POP_TRACE(); 
return BgL_aux1876z00_878;} } } } 
}



/* _maxfx */
obj_t BGl__maxfxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_960, obj_t BgL_n1z00_961, obj_t BgL_nnz00_962)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 305 */
{ /* ./Ieee/fixnum.scm 306 */
long BgL_auxz00_1876;
{ /* ./Ieee/fixnum.scm 306 */
long BgL_auxz00_1877;
{ /* ./Ieee/fixnum.scm 306 */
obj_t BgL_auxz00_1878;
if(
INTEGERP(BgL_n1z00_961))
{ /* ./Ieee/fixnum.scm 306 */
BgL_auxz00_1878 = BgL_n1z00_961
; }  else 
{ /* ./Ieee/fixnum.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3362z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_961, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)13686))); 
exit( -1 );} 
BgL_auxz00_1877 = 
(long)CINT(BgL_auxz00_1878); } 
BgL_auxz00_1876 = 
BGl_maxfxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_1877, BgL_nnz00_962); } 
return 
BINT(BgL_auxz00_1876);} } 
}



/* minfx */
BGL_EXPORTED_DEF long BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_27, obj_t BgL_nnz00_28)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 317 */
{ /* ./Ieee/fixnum.scm 318 */
obj_t BgL_symbol1881z00_879;
BgL_symbol1881z00_879 = BGl_symbol3363z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 318 */

PUSH_TRACE(BgL_symbol1881z00_879); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 318 */
long BgL_aux1880z00_880;
{ 
obj_t BgL_minz00_313;obj_t BgL_nnz00_314;
{ /* ./Ieee/fixnum.scm 318 */
obj_t BgL_auxz00_1888;
{ /* ./Ieee/fixnum.scm 318 */
obj_t BgL_aux2410z00_1087;
BgL_minz00_313 = 
BINT(BgL_n1z00_27); 
BgL_nnz00_314 = BgL_nnz00_28; 
BgL_loopz00_315:
if(
NULLP(BgL_nnz00_314))
{ /* ./Ieee/fixnum.scm 320 */
BgL_aux2410z00_1087 = BgL_minz00_313; }  else 
{ /* ./Ieee/fixnum.scm 322 */
bool_t BgL_test1074z00_317;
{ /* ./Ieee/fixnum.scm 322 */
obj_t BgL_arg1088z00_321;
{ /* ./Ieee/fixnum.scm 322 */
obj_t BgL_pairz00_569;
if(
PAIRP(BgL_nnz00_314))
{ /* ./Ieee/fixnum.scm 322 */
BgL_pairz00_569 = BgL_nnz00_314; }  else 
{ /* ./Ieee/fixnum.scm 322 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3363z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_nnz00_314, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14173))); 
exit( -1 );} 
BgL_arg1088z00_321 = 
CAR(BgL_pairz00_569); } 
{ /* ./Ieee/fixnum.scm 322 */
long BgL_n1z00_570;long BgL_n2z00_571;
{ /* ./Ieee/fixnum.scm 322 */
obj_t BgL_auxz00_1897;
if(
INTEGERP(BgL_arg1088z00_321))
{ /* ./Ieee/fixnum.scm 322 */
BgL_auxz00_1897 = BgL_arg1088z00_321
; }  else 
{ /* ./Ieee/fixnum.scm 322 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3363z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1088z00_321, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14174))); 
exit( -1 );} 
BgL_n1z00_570 = 
(long)CINT(BgL_auxz00_1897); } 
{ /* ./Ieee/fixnum.scm 322 */
obj_t BgL_auxz00_1904;
if(
INTEGERP(BgL_minz00_313))
{ /* ./Ieee/fixnum.scm 322 */
BgL_auxz00_1904 = BgL_minz00_313
; }  else 
{ /* ./Ieee/fixnum.scm 322 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3363z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_minz00_313, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14178))); 
exit( -1 );} 
BgL_n2z00_571 = 
(long)CINT(BgL_auxz00_1904); } 
BgL_test1074z00_317 = 
(BgL_n1z00_570<BgL_n2z00_571); } } 
if(BgL_test1074z00_317)
{ /* ./Ieee/fixnum.scm 323 */
obj_t BgL_arg1076z00_318;obj_t BgL_arg1079z00_319;
{ /* ./Ieee/fixnum.scm 323 */
obj_t BgL_pairz00_572;
if(
PAIRP(BgL_nnz00_314))
{ /* ./Ieee/fixnum.scm 323 */
BgL_pairz00_572 = BgL_nnz00_314; }  else 
{ /* ./Ieee/fixnum.scm 323 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3363z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_nnz00_314, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14200))); 
exit( -1 );} 
BgL_arg1076z00_318 = 
CAR(BgL_pairz00_572); } 
{ /* ./Ieee/fixnum.scm 323 */
obj_t BgL_pairz00_573;
if(
PAIRP(BgL_nnz00_314))
{ /* ./Ieee/fixnum.scm 323 */
BgL_pairz00_573 = BgL_nnz00_314; }  else 
{ /* ./Ieee/fixnum.scm 323 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3363z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_nnz00_314, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14209))); 
exit( -1 );} 
BgL_arg1079z00_319 = 
CDR(BgL_pairz00_573); } 
{ 
obj_t BgL_nnz00_1926;obj_t BgL_minz00_1925;
BgL_minz00_1925 = BgL_arg1076z00_318; 
BgL_nnz00_1926 = BgL_arg1079z00_319; 
BgL_nnz00_314 = BgL_nnz00_1926; 
BgL_minz00_313 = BgL_minz00_1925; 
goto BgL_loopz00_315;} }  else 
{ /* ./Ieee/fixnum.scm 324 */
obj_t BgL_arg1084z00_320;
{ /* ./Ieee/fixnum.scm 324 */
obj_t BgL_pairz00_574;
if(
PAIRP(BgL_nnz00_314))
{ /* ./Ieee/fixnum.scm 324 */
BgL_pairz00_574 = BgL_nnz00_314; }  else 
{ /* ./Ieee/fixnum.scm 324 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3363z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_nnz00_314, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14236))); 
exit( -1 );} 
BgL_arg1084z00_320 = 
CDR(BgL_pairz00_574); } 
{ 
obj_t BgL_nnz00_1933;
BgL_nnz00_1933 = BgL_arg1084z00_320; 
BgL_nnz00_314 = BgL_nnz00_1933; 
goto BgL_loopz00_315;} } } 
if(
INTEGERP(BgL_aux2410z00_1087))
{ /* ./Ieee/fixnum.scm 318 */
BgL_auxz00_1888 = BgL_aux2410z00_1087
; }  else 
{ /* ./Ieee/fixnum.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3363z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_aux2410z00_1087, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14090))); 
exit( -1 );} } 
BgL_aux1880z00_880 = 
(long)CINT(BgL_auxz00_1888); } } 
POP_TRACE(); 
return BgL_aux1880z00_880;} } } } 
}



/* _minfx */
obj_t BGl__minfxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_963, obj_t BgL_n1z00_964, obj_t BgL_nnz00_965)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 317 */
{ /* ./Ieee/fixnum.scm 318 */
long BgL_auxz00_1942;
{ /* ./Ieee/fixnum.scm 318 */
long BgL_auxz00_1943;
{ /* ./Ieee/fixnum.scm 318 */
obj_t BgL_auxz00_1944;
if(
INTEGERP(BgL_n1z00_964))
{ /* ./Ieee/fixnum.scm 318 */
BgL_auxz00_1944 = BgL_n1z00_964
; }  else 
{ /* ./Ieee/fixnum.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3364z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_964, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14090))); 
exit( -1 );} 
BgL_auxz00_1943 = 
(long)CINT(BgL_auxz00_1944); } 
BgL_auxz00_1942 = 
BGl_minfxz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_1943, BgL_nnz00_965); } 
return 
BINT(BgL_auxz00_1942);} } 
}



/* +fx */
BGL_EXPORTED_DEF long BGl_zb2fxzb2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_29, long BgL_za72za7_30)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 329 */
{ /* ./Ieee/fixnum.scm 330 */
obj_t BgL_symbol1885z00_1361;
BgL_symbol1885z00_1361 = BGl_symbol3365z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 330 */

PUSH_TRACE(BgL_symbol1885z00_1361); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 330 */
long BgL_aux1884z00_1362;
BgL_aux1884z00_1362 = 
(BgL_za71za7_29+BgL_za72za7_30); 
POP_TRACE(); 
return BgL_aux1884z00_1362;} } } } 
}



/* _+fx */
obj_t BGl__zb2fxzb2zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_966, obj_t BgL_za71za7_967, obj_t BgL_za72za7_968)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 329 */
{ /* ./Ieee/fixnum.scm 330 */
long BgL_auxz00_1956;
{ /* ./Ieee/fixnum.scm 330 */
long BgL_res3427z00_1367;
{ /* ./Ieee/fixnum.scm 330 */
long BgL_za71za7_1363;long BgL_za72za7_1364;
{ /* ./Ieee/fixnum.scm 330 */
obj_t BgL_auxz00_1957;
if(
INTEGERP(BgL_za71za7_967))
{ /* ./Ieee/fixnum.scm 330 */
BgL_auxz00_1957 = BgL_za71za7_967
; }  else 
{ /* ./Ieee/fixnum.scm 330 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3366z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_967, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14497))); 
exit( -1 );} 
BgL_za71za7_1363 = 
(long)CINT(BgL_auxz00_1957); } 
{ /* ./Ieee/fixnum.scm 330 */
obj_t BgL_auxz00_1964;
if(
INTEGERP(BgL_za72za7_968))
{ /* ./Ieee/fixnum.scm 330 */
BgL_auxz00_1964 = BgL_za72za7_968
; }  else 
{ /* ./Ieee/fixnum.scm 330 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3366z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_968, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14497))); 
exit( -1 );} 
BgL_za72za7_1364 = 
(long)CINT(BgL_auxz00_1964); } 
{ /* ./Ieee/fixnum.scm 330 */
obj_t BgL_symbol1885z00_1365;
BgL_symbol1885z00_1365 = BGl_symbol3365z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 330 */

PUSH_TRACE(BgL_symbol1885z00_1365); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 330 */
long BgL_aux1884z00_1366;
BgL_aux1884z00_1366 = 
(BgL_za71za7_1363+BgL_za72za7_1364); 
POP_TRACE(); 
BgL_res3427z00_1367 = BgL_aux1884z00_1366; } } } } 
BgL_auxz00_1956 = BgL_res3427z00_1367; } 
return 
BINT(BgL_auxz00_1956);} } 
}



/* -fx */
BGL_EXPORTED_DEF long BGl_zd2fxzd2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_31, long BgL_za72za7_32)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 335 */
{ /* ./Ieee/fixnum.scm 336 */
obj_t BgL_symbol1889z00_1368;
BgL_symbol1889z00_1368 = BGl_symbol3367z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 336 */

PUSH_TRACE(BgL_symbol1889z00_1368); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 336 */
long BgL_aux1888z00_1369;
BgL_aux1888z00_1369 = 
(BgL_za71za7_31-BgL_za72za7_32); 
POP_TRACE(); 
return BgL_aux1888z00_1369;} } } } 
}



/* _-fx */
obj_t BGl__zd2fxzd2zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_969, obj_t BgL_za71za7_970, obj_t BgL_za72za7_971)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 335 */
{ /* ./Ieee/fixnum.scm 336 */
long BgL_auxz00_1978;
{ /* ./Ieee/fixnum.scm 336 */
long BgL_res3428z00_1374;
{ /* ./Ieee/fixnum.scm 336 */
long BgL_za71za7_1370;long BgL_za72za7_1371;
{ /* ./Ieee/fixnum.scm 336 */
obj_t BgL_auxz00_1979;
if(
INTEGERP(BgL_za71za7_970))
{ /* ./Ieee/fixnum.scm 336 */
BgL_auxz00_1979 = BgL_za71za7_970
; }  else 
{ /* ./Ieee/fixnum.scm 336 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3368z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_970, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14765))); 
exit( -1 );} 
BgL_za71za7_1370 = 
(long)CINT(BgL_auxz00_1979); } 
{ /* ./Ieee/fixnum.scm 336 */
obj_t BgL_auxz00_1986;
if(
INTEGERP(BgL_za72za7_971))
{ /* ./Ieee/fixnum.scm 336 */
BgL_auxz00_1986 = BgL_za72za7_971
; }  else 
{ /* ./Ieee/fixnum.scm 336 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3368z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_971, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)14765))); 
exit( -1 );} 
BgL_za72za7_1371 = 
(long)CINT(BgL_auxz00_1986); } 
{ /* ./Ieee/fixnum.scm 336 */
obj_t BgL_symbol1889z00_1372;
BgL_symbol1889z00_1372 = BGl_symbol3367z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 336 */

PUSH_TRACE(BgL_symbol1889z00_1372); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 336 */
long BgL_aux1888z00_1373;
BgL_aux1888z00_1373 = 
(BgL_za71za7_1370-BgL_za72za7_1371); 
POP_TRACE(); 
BgL_res3428z00_1374 = BgL_aux1888z00_1373; } } } } 
BgL_auxz00_1978 = BgL_res3428z00_1374; } 
return 
BINT(BgL_auxz00_1978);} } 
}



/* *fx */
BGL_EXPORTED_DEF long BGl_za2fxza2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_33, long BgL_za72za7_34)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 341 */
{ /* ./Ieee/fixnum.scm 342 */
obj_t BgL_symbol1893z00_1375;
BgL_symbol1893z00_1375 = BGl_symbol3369z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 342 */

PUSH_TRACE(BgL_symbol1893z00_1375); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 342 */
long BgL_aux1892z00_1376;
BgL_aux1892z00_1376 = 
(BgL_za71za7_33*BgL_za72za7_34); 
POP_TRACE(); 
return BgL_aux1892z00_1376;} } } } 
}



/* _*fx */
obj_t BGl__za2fxza2zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_972, obj_t BgL_za71za7_973, obj_t BgL_za72za7_974)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 341 */
{ /* ./Ieee/fixnum.scm 342 */
long BgL_auxz00_2000;
{ /* ./Ieee/fixnum.scm 342 */
long BgL_res3429z00_1381;
{ /* ./Ieee/fixnum.scm 342 */
long BgL_za71za7_1377;long BgL_za72za7_1378;
{ /* ./Ieee/fixnum.scm 342 */
obj_t BgL_auxz00_2001;
if(
INTEGERP(BgL_za71za7_973))
{ /* ./Ieee/fixnum.scm 342 */
BgL_auxz00_2001 = BgL_za71za7_973
; }  else 
{ /* ./Ieee/fixnum.scm 342 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3370z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_973, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)15033))); 
exit( -1 );} 
BgL_za71za7_1377 = 
(long)CINT(BgL_auxz00_2001); } 
{ /* ./Ieee/fixnum.scm 342 */
obj_t BgL_auxz00_2008;
if(
INTEGERP(BgL_za72za7_974))
{ /* ./Ieee/fixnum.scm 342 */
BgL_auxz00_2008 = BgL_za72za7_974
; }  else 
{ /* ./Ieee/fixnum.scm 342 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3370z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_974, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)15033))); 
exit( -1 );} 
BgL_za72za7_1378 = 
(long)CINT(BgL_auxz00_2008); } 
{ /* ./Ieee/fixnum.scm 342 */
obj_t BgL_symbol1893z00_1379;
BgL_symbol1893z00_1379 = BGl_symbol3369z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 342 */

PUSH_TRACE(BgL_symbol1893z00_1379); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 342 */
long BgL_aux1892z00_1380;
BgL_aux1892z00_1380 = 
(BgL_za71za7_1377*BgL_za72za7_1378); 
POP_TRACE(); 
BgL_res3429z00_1381 = BgL_aux1892z00_1380; } } } } 
BgL_auxz00_2000 = BgL_res3429z00_1381; } 
return 
BINT(BgL_auxz00_2000);} } 
}



/* /fx */
BGL_EXPORTED_DEF long BGl_zf2fxzf2zz__r4_numbers_6_5_fixnumz00(long BgL_za71za7_35, long BgL_za72za7_36)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 347 */
{ /* ./Ieee/fixnum.scm 348 */
obj_t BgL_symbol1897z00_1382;
BgL_symbol1897z00_1382 = BGl_symbol3371z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 348 */

PUSH_TRACE(BgL_symbol1897z00_1382); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 348 */
long BgL_aux1896z00_1383;
BgL_aux1896z00_1383 = 
(BgL_za71za7_35/BgL_za72za7_36); 
POP_TRACE(); 
return BgL_aux1896z00_1383;} } } } 
}



/* _/fx */
obj_t BGl__zf2fxzf2zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_975, obj_t BgL_za71za7_976, obj_t BgL_za72za7_977)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 347 */
{ /* ./Ieee/fixnum.scm 348 */
long BgL_auxz00_2022;
{ /* ./Ieee/fixnum.scm 348 */
long BgL_res3430z00_1388;
{ /* ./Ieee/fixnum.scm 348 */
long BgL_za71za7_1384;long BgL_za72za7_1385;
{ /* ./Ieee/fixnum.scm 348 */
obj_t BgL_auxz00_2023;
if(
INTEGERP(BgL_za71za7_976))
{ /* ./Ieee/fixnum.scm 348 */
BgL_auxz00_2023 = BgL_za71za7_976
; }  else 
{ /* ./Ieee/fixnum.scm 348 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3372z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_za71za7_976, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)15301))); 
exit( -1 );} 
BgL_za71za7_1384 = 
(long)CINT(BgL_auxz00_2023); } 
{ /* ./Ieee/fixnum.scm 348 */
obj_t BgL_auxz00_2030;
if(
INTEGERP(BgL_za72za7_977))
{ /* ./Ieee/fixnum.scm 348 */
BgL_auxz00_2030 = BgL_za72za7_977
; }  else 
{ /* ./Ieee/fixnum.scm 348 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3372z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_za72za7_977, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)15301))); 
exit( -1 );} 
BgL_za72za7_1385 = 
(long)CINT(BgL_auxz00_2030); } 
{ /* ./Ieee/fixnum.scm 348 */
obj_t BgL_symbol1897z00_1386;
BgL_symbol1897z00_1386 = BGl_symbol3371z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 348 */

PUSH_TRACE(BgL_symbol1897z00_1386); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 348 */
long BgL_aux1896z00_1387;
BgL_aux1896z00_1387 = 
(BgL_za71za7_1384/BgL_za72za7_1385); 
POP_TRACE(); 
BgL_res3430z00_1388 = BgL_aux1896z00_1387; } } } } 
BgL_auxz00_2022 = BgL_res3430z00_1388; } 
return 
BINT(BgL_auxz00_2022);} } 
}



/* negfx */
BGL_EXPORTED_DEF long BGl_negfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_37)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 353 */
{ /* ./Ieee/fixnum.scm 354 */
obj_t BgL_symbol1901z00_1389;
BgL_symbol1901z00_1389 = BGl_symbol3373z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 354 */

PUSH_TRACE(BgL_symbol1901z00_1389); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 354 */
long BgL_aux1900z00_1390;
BgL_aux1900z00_1390 = 
NEG(BgL_n1z00_37); 
POP_TRACE(); 
return BgL_aux1900z00_1390;} } } } 
}



/* _negfx */
obj_t BGl__negfxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_978, obj_t BgL_n1z00_979)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 353 */
{ /* ./Ieee/fixnum.scm 354 */
long BgL_auxz00_2044;
{ /* ./Ieee/fixnum.scm 354 */
long BgL_res3431z00_1394;
{ /* ./Ieee/fixnum.scm 354 */
long BgL_n1z00_1391;
{ /* ./Ieee/fixnum.scm 354 */
obj_t BgL_auxz00_2045;
if(
INTEGERP(BgL_n1z00_979))
{ /* ./Ieee/fixnum.scm 354 */
BgL_auxz00_2045 = BgL_n1z00_979
; }  else 
{ /* ./Ieee/fixnum.scm 354 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3374z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_979, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)15568))); 
exit( -1 );} 
BgL_n1z00_1391 = 
(long)CINT(BgL_auxz00_2045); } 
{ /* ./Ieee/fixnum.scm 354 */
obj_t BgL_symbol1901z00_1392;
BgL_symbol1901z00_1392 = BGl_symbol3373z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 354 */

PUSH_TRACE(BgL_symbol1901z00_1392); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 354 */
long BgL_aux1900z00_1393;
BgL_aux1900z00_1393 = 
NEG(BgL_n1z00_1391); 
POP_TRACE(); 
BgL_res3431z00_1394 = BgL_aux1900z00_1393; } } } } 
BgL_auxz00_2044 = BgL_res3431z00_1394; } 
return 
BINT(BgL_auxz00_2044);} } 
}



/* absfx */
BGL_EXPORTED_DEF long BGl_absfxz00zz__r4_numbers_6_5_fixnumz00(long BgL_nz00_38)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 359 */
{ /* ./Ieee/fixnum.scm 360 */
obj_t BgL_symbol1905z00_1395;
BgL_symbol1905z00_1395 = BGl_symbol3375z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 360 */

PUSH_TRACE(BgL_symbol1905z00_1395); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 360 */
long BgL_aux1904z00_1396;
if(
(BgL_nz00_38<((long)0)))
{ /* ./Ieee/fixnum.scm 360 */
BgL_aux1904z00_1396 = 
NEG(BgL_nz00_38); }  else 
{ /* ./Ieee/fixnum.scm 360 */
BgL_aux1904z00_1396 = BgL_nz00_38; } 
POP_TRACE(); 
return BgL_aux1904z00_1396;} } } } 
}



/* _absfx */
obj_t BGl__absfxz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_980, obj_t BgL_nz00_981)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 359 */
{ /* ./Ieee/fixnum.scm 360 */
long BgL_auxz00_2061;
{ /* ./Ieee/fixnum.scm 360 */
long BgL_res3432z00_1400;
{ /* ./Ieee/fixnum.scm 360 */
long BgL_nz00_1397;
{ /* ./Ieee/fixnum.scm 360 */
obj_t BgL_auxz00_2062;
if(
INTEGERP(BgL_nz00_981))
{ /* ./Ieee/fixnum.scm 360 */
BgL_auxz00_2062 = BgL_nz00_981
; }  else 
{ /* ./Ieee/fixnum.scm 360 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3376z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_981, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)15833))); 
exit( -1 );} 
BgL_nz00_1397 = 
(long)CINT(BgL_auxz00_2062); } 
{ /* ./Ieee/fixnum.scm 360 */
obj_t BgL_symbol1905z00_1398;
BgL_symbol1905z00_1398 = BGl_symbol3375z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 360 */

PUSH_TRACE(BgL_symbol1905z00_1398); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 360 */
long BgL_aux1904z00_1399;
if(
(BgL_nz00_1397<((long)0)))
{ /* ./Ieee/fixnum.scm 360 */
BgL_aux1904z00_1399 = 
NEG(BgL_nz00_1397); }  else 
{ /* ./Ieee/fixnum.scm 360 */
BgL_aux1904z00_1399 = BgL_nz00_1397; } 
POP_TRACE(); 
BgL_res3432z00_1400 = BgL_aux1904z00_1399; } } } } 
BgL_auxz00_2061 = BgL_res3432z00_1400; } 
return 
BINT(BgL_auxz00_2061);} } 
}



/* quotient */
BGL_EXPORTED_DEF long BGl_quotientz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_39, long BgL_n2z00_40)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 367 */
{ /* ./Ieee/fixnum.scm 368 */
obj_t BgL_symbol1909z00_1401;
BgL_symbol1909z00_1401 = BGl_symbol3377z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 368 */

PUSH_TRACE(BgL_symbol1909z00_1401); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 368 */
long BgL_aux1908z00_1402;
BgL_aux1908z00_1402 = 
(BgL_n1z00_39/BgL_n2z00_40); 
POP_TRACE(); 
return BgL_aux1908z00_1402;} } } } 
}



/* _quotient */
obj_t BGl__quotientz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_982, obj_t BgL_n1z00_983, obj_t BgL_n2z00_984)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 367 */
{ /* ./Ieee/fixnum.scm 368 */
long BgL_auxz00_2078;
{ /* ./Ieee/fixnum.scm 368 */
long BgL_res3433z00_1407;
{ /* ./Ieee/fixnum.scm 368 */
long BgL_n1z00_1403;long BgL_n2z00_1404;
{ /* ./Ieee/fixnum.scm 368 */
obj_t BgL_auxz00_2079;
if(
INTEGERP(BgL_n1z00_983))
{ /* ./Ieee/fixnum.scm 368 */
BgL_auxz00_2079 = BgL_n1z00_983
; }  else 
{ /* ./Ieee/fixnum.scm 368 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3378z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_983, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)16133))); 
exit( -1 );} 
BgL_n1z00_1403 = 
(long)CINT(BgL_auxz00_2079); } 
{ /* ./Ieee/fixnum.scm 368 */
obj_t BgL_auxz00_2086;
if(
INTEGERP(BgL_n2z00_984))
{ /* ./Ieee/fixnum.scm 368 */
BgL_auxz00_2086 = BgL_n2z00_984
; }  else 
{ /* ./Ieee/fixnum.scm 368 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3378z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_984, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)16133))); 
exit( -1 );} 
BgL_n2z00_1404 = 
(long)CINT(BgL_auxz00_2086); } 
{ /* ./Ieee/fixnum.scm 368 */
obj_t BgL_symbol1909z00_1405;
BgL_symbol1909z00_1405 = BGl_symbol3377z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 368 */

PUSH_TRACE(BgL_symbol1909z00_1405); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 368 */
long BgL_aux1908z00_1406;
BgL_aux1908z00_1406 = 
(BgL_n1z00_1403/BgL_n2z00_1404); 
POP_TRACE(); 
BgL_res3433z00_1407 = BgL_aux1908z00_1406; } } } } 
BgL_auxz00_2078 = BgL_res3433z00_1407; } 
return 
BINT(BgL_auxz00_2078);} } 
}



/* remainder */
BGL_EXPORTED_DEF long BGl_remainderz00zz__r4_numbers_6_5_fixnumz00(long BgL_n1z00_41, long BgL_n2z00_42)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 373 */
{ /* ./Ieee/fixnum.scm 374 */
obj_t BgL_symbol1913z00_1408;
BgL_symbol1913z00_1408 = BGl_symbol3379z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 374 */

PUSH_TRACE(BgL_symbol1913z00_1408); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 374 */
long BgL_aux1912z00_1409;
BgL_aux1912z00_1409 = 
(BgL_n1z00_41%BgL_n2z00_42); 
POP_TRACE(); 
return BgL_aux1912z00_1409;} } } } 
}



/* _remainder */
obj_t BGl__remainderz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_985, obj_t BgL_n1z00_986, obj_t BgL_n2z00_987)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 373 */
{ /* ./Ieee/fixnum.scm 374 */
long BgL_auxz00_2100;
{ /* ./Ieee/fixnum.scm 374 */
long BgL_res3434z00_1414;
{ /* ./Ieee/fixnum.scm 374 */
long BgL_n1z00_1410;long BgL_n2z00_1411;
{ /* ./Ieee/fixnum.scm 374 */
obj_t BgL_auxz00_2101;
if(
INTEGERP(BgL_n1z00_986))
{ /* ./Ieee/fixnum.scm 374 */
BgL_auxz00_2101 = BgL_n1z00_986
; }  else 
{ /* ./Ieee/fixnum.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3380z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n1z00_986, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)16412))); 
exit( -1 );} 
BgL_n1z00_1410 = 
(long)CINT(BgL_auxz00_2101); } 
{ /* ./Ieee/fixnum.scm 374 */
obj_t BgL_auxz00_2108;
if(
INTEGERP(BgL_n2z00_987))
{ /* ./Ieee/fixnum.scm 374 */
BgL_auxz00_2108 = BgL_n2z00_987
; }  else 
{ /* ./Ieee/fixnum.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3380z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_n2z00_987, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)16412))); 
exit( -1 );} 
BgL_n2z00_1411 = 
(long)CINT(BgL_auxz00_2108); } 
{ /* ./Ieee/fixnum.scm 374 */
obj_t BgL_symbol1913z00_1412;
BgL_symbol1913z00_1412 = BGl_symbol3379z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 374 */

PUSH_TRACE(BgL_symbol1913z00_1412); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 374 */
long BgL_aux1912z00_1413;
BgL_aux1912z00_1413 = 
(BgL_n1z00_1410%BgL_n2z00_1411); 
POP_TRACE(); 
BgL_res3434z00_1414 = BgL_aux1912z00_1413; } } } } 
BgL_auxz00_2100 = BgL_res3434z00_1414; } 
return 
BINT(BgL_auxz00_2100);} } 
}



/* modulo */
BGL_EXPORTED_DEF long BGl_moduloz00zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_43, long BgL_yz00_44)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 379 */
{ /* ./Ieee/fixnum.scm 380 */
obj_t BgL_symbol1917z00_897;
BgL_symbol1917z00_897 = BGl_symbol3381z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 380 */

PUSH_TRACE(BgL_symbol1917z00_897); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 380 */
long BgL_aux1916z00_898;
{ /* ./Ieee/fixnum.scm 380 */
long BgL_rz00_323;
BgL_rz00_323 = 
(BgL_xz00_43%BgL_yz00_44); 
if(
(BgL_rz00_323==((long)0)))
{ /* ./Ieee/fixnum.scm 381 */
BgL_aux1916z00_898 = BgL_rz00_323; }  else 
{ /* ./Ieee/fixnum.scm 381 */
if(
(BgL_yz00_44>((long)0)))
{ /* ./Ieee/fixnum.scm 383 */
if(
(BgL_rz00_323>((long)0)))
{ /* ./Ieee/fixnum.scm 384 */
BgL_aux1916z00_898 = BgL_rz00_323; }  else 
{ /* ./Ieee/fixnum.scm 384 */
BgL_aux1916z00_898 = 
(BgL_yz00_44+BgL_rz00_323); } }  else 
{ /* ./Ieee/fixnum.scm 383 */
if(
(BgL_rz00_323<((long)0)))
{ /* ./Ieee/fixnum.scm 385 */
BgL_aux1916z00_898 = BgL_rz00_323; }  else 
{ /* ./Ieee/fixnum.scm 385 */
BgL_aux1916z00_898 = 
(BgL_yz00_44+BgL_rz00_323); } } } } 
POP_TRACE(); 
return BgL_aux1916z00_898;} } } } 
}



/* _modulo */
obj_t BGl__moduloz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_988, obj_t BgL_xz00_989, obj_t BgL_yz00_990)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 379 */
{ /* ./Ieee/fixnum.scm 380 */
long BgL_auxz00_2132;
{ /* ./Ieee/fixnum.scm 380 */
long BgL_auxz00_2141;long BgL_auxz00_2133;
{ /* ./Ieee/fixnum.scm 380 */
obj_t BgL_auxz00_2142;
if(
INTEGERP(BgL_yz00_990))
{ /* ./Ieee/fixnum.scm 380 */
BgL_auxz00_2142 = BgL_yz00_990
; }  else 
{ /* ./Ieee/fixnum.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3382z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_yz00_990, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)16680))); 
exit( -1 );} 
BgL_auxz00_2141 = 
(long)CINT(BgL_auxz00_2142); } 
{ /* ./Ieee/fixnum.scm 380 */
obj_t BgL_auxz00_2134;
if(
INTEGERP(BgL_xz00_989))
{ /* ./Ieee/fixnum.scm 380 */
BgL_auxz00_2134 = BgL_xz00_989
; }  else 
{ /* ./Ieee/fixnum.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3382z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_989, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)16680))); 
exit( -1 );} 
BgL_auxz00_2133 = 
(long)CINT(BgL_auxz00_2134); } 
BgL_auxz00_2132 = 
BGl_moduloz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_2133, BgL_auxz00_2141); } 
return 
BINT(BgL_auxz00_2132);} } 
}



/* gcd */
BGL_EXPORTED_DEF long BGl_gcdz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_45)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 390 */
{ /* ./Ieee/fixnum.scm 397 */
obj_t BgL_symbol1921z00_899;
BgL_symbol1921z00_899 = BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 397 */

PUSH_TRACE(BgL_symbol1921z00_899); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 397 */
long BgL_aux1920z00_900;
{ 
long BgL_mz00_347;long BgL_nz00_348;
{ 

{ /* ./Ieee/fixnum.scm 398 */
long BgL_aux1004z00_330;
{ /* ./Ieee/fixnum.scm 398 */
obj_t BgL_auxz00_2152;
{ /* ./Ieee/fixnum.scm 398 */
bool_t BgL_testz00_2153;
if(
PAIRP(BgL_xz00_45))
{ /* ./Ieee/fixnum.scm 398 */
BgL_testz00_2153 = ((bool_t)1)
; }  else 
{ /* ./Ieee/fixnum.scm 398 */
BgL_testz00_2153 = 
NULLP(BgL_xz00_45)
; } 
if(BgL_testz00_2153)
{ /* ./Ieee/fixnum.scm 398 */
BgL_auxz00_2152 = BgL_xz00_45
; }  else 
{ /* ./Ieee/fixnum.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3384z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_45, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17229))); 
exit( -1 );} } 
BgL_aux1004z00_330 = 
bgl_list_length(BgL_auxz00_2152); } 
switch( BgL_aux1004z00_330) { case ((long)0) : 

BgL_aux1920z00_900 = ((long)0); break;case ((long)1) : 

{ /* ./Ieee/fixnum.scm 400 */
obj_t BgL_arg1115z00_332;
{ /* ./Ieee/fixnum.scm 400 */
obj_t BgL_pairz00_597;
if(
PAIRP(BgL_xz00_45))
{ /* ./Ieee/fixnum.scm 400 */
BgL_pairz00_597 = BgL_xz00_45; }  else 
{ /* ./Ieee/fixnum.scm 400 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_45, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17271))); 
exit( -1 );} 
BgL_arg1115z00_332 = 
CAR(BgL_pairz00_597); } 
{ /* ./Ieee/fixnum.scm 400 */
long BgL_res1803z00_603;
{ /* ./Ieee/fixnum.scm 400 */
long BgL_nz00_598;
{ /* ./Ieee/fixnum.scm 400 */
obj_t BgL_auxz00_2167;
if(
INTEGERP(BgL_arg1115z00_332))
{ /* ./Ieee/fixnum.scm 400 */
BgL_auxz00_2167 = BgL_arg1115z00_332
; }  else 
{ /* ./Ieee/fixnum.scm 400 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1115z00_332, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17272))); 
exit( -1 );} 
BgL_nz00_598 = 
(long)CINT(BgL_auxz00_2167); } 
if(
(BgL_nz00_598<((long)0)))
{ /* ./Ieee/fixnum.scm 400 */
BgL_res1803z00_603 = 
NEG(BgL_nz00_598); }  else 
{ /* ./Ieee/fixnum.scm 400 */
BgL_res1803z00_603 = BgL_nz00_598; } } 
BgL_aux1920z00_900 = BgL_res1803z00_603; } } break;
default: 
{ /* ./Ieee/fixnum.scm 402 */
long BgL_arg1123z00_336;obj_t BgL_arg1124z00_337;
{ /* ./Ieee/fixnum.scm 402 */
long BgL_arg1127z00_338;long BgL_arg1128z00_339;
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_arg1131z00_340;
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_pairz00_604;
if(
PAIRP(BgL_xz00_45))
{ /* ./Ieee/fixnum.scm 402 */
BgL_pairz00_604 = BgL_xz00_45; }  else 
{ /* ./Ieee/fixnum.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_45, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17327))); 
exit( -1 );} 
BgL_arg1131z00_340 = 
CAR(BgL_pairz00_604); } 
{ /* ./Ieee/fixnum.scm 402 */
long BgL_res1804z00_610;
{ /* ./Ieee/fixnum.scm 402 */
long BgL_nz00_605;
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_auxz00_2183;
if(
INTEGERP(BgL_arg1131z00_340))
{ /* ./Ieee/fixnum.scm 402 */
BgL_auxz00_2183 = BgL_arg1131z00_340
; }  else 
{ /* ./Ieee/fixnum.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1131z00_340, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17328))); 
exit( -1 );} 
BgL_nz00_605 = 
(long)CINT(BgL_auxz00_2183); } 
if(
(BgL_nz00_605<((long)0)))
{ /* ./Ieee/fixnum.scm 402 */
BgL_res1804z00_610 = 
NEG(BgL_nz00_605); }  else 
{ /* ./Ieee/fixnum.scm 402 */
BgL_res1804z00_610 = BgL_nz00_605; } } 
BgL_arg1127z00_338 = BgL_res1804z00_610; } } 
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_arg1135z00_341;
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_pairz00_611;
if(
PAIRP(BgL_xz00_45))
{ /* ./Ieee/fixnum.scm 402 */
BgL_pairz00_611 = BgL_xz00_45; }  else 
{ /* ./Ieee/fixnum.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_45, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17344))); 
exit( -1 );} 
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_arg1541z00_612;
BgL_arg1541z00_612 = 
CDR(BgL_pairz00_611); 
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_pairz00_614;
if(
PAIRP(BgL_arg1541z00_612))
{ /* ./Ieee/fixnum.scm 402 */
BgL_pairz00_614 = BgL_arg1541z00_612; }  else 
{ /* ./Ieee/fixnum.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1541z00_612, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17338))); 
exit( -1 );} 
BgL_arg1135z00_341 = 
CAR(BgL_pairz00_614); } } } 
{ /* ./Ieee/fixnum.scm 402 */
long BgL_res1805z00_620;
{ /* ./Ieee/fixnum.scm 402 */
long BgL_nz00_615;
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_auxz00_2205;
if(
INTEGERP(BgL_arg1135z00_341))
{ /* ./Ieee/fixnum.scm 402 */
BgL_auxz00_2205 = BgL_arg1135z00_341
; }  else 
{ /* ./Ieee/fixnum.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1135z00_341, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17345))); 
exit( -1 );} 
BgL_nz00_615 = 
(long)CINT(BgL_auxz00_2205); } 
if(
(BgL_nz00_615<((long)0)))
{ /* ./Ieee/fixnum.scm 402 */
BgL_res1805z00_620 = 
NEG(BgL_nz00_615); }  else 
{ /* ./Ieee/fixnum.scm 402 */
BgL_res1805z00_620 = BgL_nz00_615; } } 
BgL_arg1128z00_339 = BgL_res1805z00_620; } } 
{ 
long BgL_mz00_622;long BgL_nz00_623;
BgL_mz00_622 = BgL_arg1127z00_338; 
BgL_nz00_623 = BgL_arg1128z00_339; 
BgL_gcd2z00_621:
if(
(BgL_nz00_623==((long)0)))
{ /* ./Ieee/fixnum.scm 402 */
BgL_arg1123z00_336 = BgL_mz00_622; }  else 
{ /* ./Ieee/fixnum.scm 402 */
long BgL_rz00_628;
BgL_rz00_628 = 
(BgL_mz00_622%BgL_nz00_623); 
if(
(BgL_rz00_628==((long)0)))
{ /* ./Ieee/fixnum.scm 402 */
BgL_arg1123z00_336 = BgL_nz00_623; }  else 
{ 
long BgL_nz00_2221;long BgL_mz00_2220;
BgL_mz00_2220 = BgL_nz00_623; 
BgL_nz00_2221 = BgL_rz00_628; 
BgL_nz00_623 = BgL_nz00_2221; 
BgL_mz00_622 = BgL_mz00_2220; 
goto BgL_gcd2z00_621;} } } } 
{ /* ./Ieee/fixnum.scm 403 */
obj_t BgL_pairz00_637;
if(
PAIRP(BgL_xz00_45))
{ /* ./Ieee/fixnum.scm 403 */
BgL_pairz00_637 = BgL_xz00_45; }  else 
{ /* ./Ieee/fixnum.scm 403 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_45, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17365))); 
exit( -1 );} 
{ /* ./Ieee/fixnum.scm 403 */
obj_t BgL_arg1532z00_638;
BgL_arg1532z00_638 = 
CDR(BgL_pairz00_637); 
{ /* ./Ieee/fixnum.scm 403 */
obj_t BgL_pairz00_640;
if(
PAIRP(BgL_arg1532z00_638))
{ /* ./Ieee/fixnum.scm 403 */
BgL_pairz00_640 = BgL_arg1532z00_638; }  else 
{ /* ./Ieee/fixnum.scm 403 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1532z00_638, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17359))); 
exit( -1 );} 
BgL_arg1124z00_337 = 
CDR(BgL_pairz00_640); } } } 
{ 
long BgL_resultz00_642;obj_t BgL_leftz00_643;
BgL_resultz00_642 = BgL_arg1123z00_336; 
BgL_leftz00_643 = BgL_arg1124z00_337; 
BgL_loopz00_641:
{ /* ./Ieee/fixnum.scm 402 */
bool_t BgL_test1139z00_649;
BgL_test1139z00_649 = 
PAIRP(BgL_leftz00_643); 
if(BgL_test1139z00_649)
{ /* ./Ieee/fixnum.scm 402 */
long BgL_arg1141z00_650;obj_t BgL_arg1142z00_651;
{ /* ./Ieee/fixnum.scm 402 */
long BgL_arg1146z00_652;
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_arg1149z00_653;
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_pairz00_655;
if(BgL_test1139z00_649)
{ /* ./Ieee/fixnum.scm 402 */
BgL_pairz00_655 = BgL_leftz00_643; }  else 
{ /* ./Ieee/fixnum.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_leftz00_643, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17290))); 
exit( -1 );} 
BgL_arg1149z00_653 = 
CAR(BgL_pairz00_655); } 
{ /* ./Ieee/fixnum.scm 402 */
long BgL_res1806z00_661;
{ /* ./Ieee/fixnum.scm 402 */
long BgL_nz00_656;
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_auxz00_2241;
if(
INTEGERP(BgL_arg1149z00_653))
{ /* ./Ieee/fixnum.scm 402 */
BgL_auxz00_2241 = BgL_arg1149z00_653
; }  else 
{ /* ./Ieee/fixnum.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1149z00_653, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17290))); 
exit( -1 );} 
BgL_nz00_656 = 
(long)CINT(BgL_auxz00_2241); } 
if(
(BgL_nz00_656<((long)0)))
{ /* ./Ieee/fixnum.scm 402 */
BgL_res1806z00_661 = 
NEG(BgL_nz00_656); }  else 
{ /* ./Ieee/fixnum.scm 402 */
BgL_res1806z00_661 = BgL_nz00_656; } } 
BgL_arg1146z00_652 = BgL_res1806z00_661; } } 
BgL_mz00_347 = BgL_resultz00_642; 
BgL_nz00_348 = BgL_arg1146z00_652; 
BgL_zc3anonymousza31154za3ieeezf2fixnumze2scmza3398ze3z93_349:
if(
(BgL_nz00_348==((long)0)))
{ /* ./Ieee/fixnum.scm 392 */
BgL_arg1141z00_650 = BgL_mz00_347; }  else 
{ /* ./Ieee/fixnum.scm 392 */
long BgL_rz00_710;
BgL_rz00_710 = 
(BgL_mz00_347%BgL_nz00_348); 
{ /* ./Ieee/fixnum.scm 392 */
bool_t BgL_test1156z00_711;
BgL_test1156z00_711 = 
(BgL_rz00_710==((long)0)); 
if(BgL_test1156z00_711)
{ /* ./Ieee/fixnum.scm 392 */
BgL_arg1141z00_650 = BgL_nz00_348; }  else 
{ /* ./Ieee/fixnum.scm 392 */
if(BgL_test1156z00_711)
{ /* ./Ieee/fixnum.scm 392 */
BgL_arg1141z00_650 = BgL_nz00_348; }  else 
{ /* ./Ieee/fixnum.scm 392 */
long BgL_rz00_722;
BgL_rz00_722 = 
(BgL_nz00_348%BgL_rz00_710); 
if(
(BgL_rz00_722==((long)0)))
{ /* ./Ieee/fixnum.scm 392 */
BgL_arg1141z00_650 = BgL_rz00_710; }  else 
{ 
long BgL_nz00_2261;long BgL_mz00_2260;
BgL_mz00_2260 = BgL_rz00_710; 
BgL_nz00_2261 = BgL_rz00_722; 
BgL_nz00_348 = BgL_nz00_2261; 
BgL_mz00_347 = BgL_mz00_2260; 
goto BgL_zc3anonymousza31154za3ieeezf2fixnumze2scmza3398ze3z93_349;} } } } } } 
{ /* ./Ieee/fixnum.scm 402 */
obj_t BgL_pairz00_662;
if(BgL_test1139z00_649)
{ /* ./Ieee/fixnum.scm 402 */
BgL_pairz00_662 = BgL_leftz00_643; }  else 
{ /* ./Ieee/fixnum.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3383z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_leftz00_643, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17290))); 
exit( -1 );} 
BgL_arg1142z00_651 = 
CDR(BgL_pairz00_662); } 
{ 
obj_t BgL_leftz00_2268;long BgL_resultz00_2267;
BgL_resultz00_2267 = BgL_arg1141z00_650; 
BgL_leftz00_2268 = BgL_arg1142z00_651; 
BgL_leftz00_643 = BgL_leftz00_2268; 
BgL_resultz00_642 = BgL_resultz00_2267; 
goto BgL_loopz00_641;} }  else 
{ /* ./Ieee/fixnum.scm 402 */
BgL_aux1920z00_900 = BgL_resultz00_642; } } } } } } } } 
POP_TRACE(); 
return BgL_aux1920z00_900;} } } } 
}



/* _gcd */
obj_t BGl__gcdz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_991, obj_t BgL_xz00_992)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 390 */
{ /* ./Ieee/fixnum.scm 397 */
long BgL_auxz00_2271;
BgL_auxz00_2271 = 
BGl_gcdz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_992); 
return 
BINT(BgL_auxz00_2271);} } 
}



/* lcm */
BGL_EXPORTED_DEF long BGl_lcmz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_46)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 411 */
{ /* ./Ieee/fixnum.scm 417 */
obj_t BgL_symbol1925z00_901;
BgL_symbol1925z00_901 = BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 417 */

PUSH_TRACE(BgL_symbol1925z00_901); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 417 */
long BgL_aux1924z00_902;
{ 

{ /* ./Ieee/fixnum.scm 418 */
long BgL_aux1006z00_356;
{ /* ./Ieee/fixnum.scm 418 */
obj_t BgL_auxz00_2275;
{ /* ./Ieee/fixnum.scm 418 */
bool_t BgL_testz00_2276;
if(
PAIRP(BgL_xz00_46))
{ /* ./Ieee/fixnum.scm 418 */
BgL_testz00_2276 = ((bool_t)1)
; }  else 
{ /* ./Ieee/fixnum.scm 418 */
BgL_testz00_2276 = 
NULLP(BgL_xz00_46)
; } 
if(BgL_testz00_2276)
{ /* ./Ieee/fixnum.scm 418 */
BgL_auxz00_2275 = BgL_xz00_46
; }  else 
{ /* ./Ieee/fixnum.scm 418 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00, BGl_string3384z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_46, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17923))); 
exit( -1 );} } 
BgL_aux1006z00_356 = 
bgl_list_length(BgL_auxz00_2275); } 
switch( BgL_aux1006z00_356) { case ((long)0) : 

BgL_aux1924z00_902 = ((long)1); break;case ((long)1) : 

{ /* ./Ieee/fixnum.scm 420 */
obj_t BgL_arg1163z00_358;
{ /* ./Ieee/fixnum.scm 420 */
obj_t BgL_pairz00_731;
if(
PAIRP(BgL_xz00_46))
{ /* ./Ieee/fixnum.scm 420 */
BgL_pairz00_731 = BgL_xz00_46; }  else 
{ /* ./Ieee/fixnum.scm 420 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_46, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17963))); 
exit( -1 );} 
BgL_arg1163z00_358 = 
CAR(BgL_pairz00_731); } 
{ /* ./Ieee/fixnum.scm 420 */
long BgL_res1809z00_737;
{ /* ./Ieee/fixnum.scm 420 */
long BgL_nz00_732;
{ /* ./Ieee/fixnum.scm 420 */
obj_t BgL_auxz00_2290;
if(
INTEGERP(BgL_arg1163z00_358))
{ /* ./Ieee/fixnum.scm 420 */
BgL_auxz00_2290 = BgL_arg1163z00_358
; }  else 
{ /* ./Ieee/fixnum.scm 420 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1163z00_358, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17964))); 
exit( -1 );} 
BgL_nz00_732 = 
(long)CINT(BgL_auxz00_2290); } 
if(
(BgL_nz00_732<((long)0)))
{ /* ./Ieee/fixnum.scm 420 */
BgL_res1809z00_737 = 
NEG(BgL_nz00_732); }  else 
{ /* ./Ieee/fixnum.scm 420 */
BgL_res1809z00_737 = BgL_nz00_732; } } 
BgL_aux1924z00_902 = BgL_res1809z00_737; } } break;
default: 
{ /* ./Ieee/fixnum.scm 421 */
long BgL_arg1171z00_362;obj_t BgL_arg1172z00_363;
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_arg1175z00_364;obj_t BgL_arg1177z00_365;
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_pairz00_738;
if(
PAIRP(BgL_xz00_46))
{ /* ./Ieee/fixnum.scm 421 */
BgL_pairz00_738 = BgL_xz00_46; }  else 
{ /* ./Ieee/fixnum.scm 421 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_46, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18010))); 
exit( -1 );} 
BgL_arg1175z00_364 = 
CAR(BgL_pairz00_738); } 
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_pairz00_739;
if(
PAIRP(BgL_xz00_46))
{ /* ./Ieee/fixnum.scm 421 */
BgL_pairz00_739 = BgL_xz00_46; }  else 
{ /* ./Ieee/fixnum.scm 421 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_46, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18019))); 
exit( -1 );} 
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_arg1541z00_740;
BgL_arg1541z00_740 = 
CDR(BgL_pairz00_739); 
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_pairz00_742;
if(
PAIRP(BgL_arg1541z00_740))
{ /* ./Ieee/fixnum.scm 421 */
BgL_pairz00_742 = BgL_arg1541z00_740; }  else 
{ /* ./Ieee/fixnum.scm 421 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1541z00_740, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18013))); 
exit( -1 );} 
BgL_arg1177z00_365 = 
CAR(BgL_pairz00_742); } } } 
BgL_arg1171z00_362 = 
BGl_lcm2z00zz__r4_numbers_6_5_fixnumz00(BgL_arg1175z00_364, BgL_arg1177z00_365); } 
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_pairz00_743;
if(
PAIRP(BgL_xz00_46))
{ /* ./Ieee/fixnum.scm 421 */
BgL_pairz00_743 = BgL_xz00_46; }  else 
{ /* ./Ieee/fixnum.scm 421 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_46, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18036))); 
exit( -1 );} 
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_arg1532z00_744;
BgL_arg1532z00_744 = 
CDR(BgL_pairz00_743); 
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_pairz00_746;
if(
PAIRP(BgL_arg1532z00_744))
{ /* ./Ieee/fixnum.scm 421 */
BgL_pairz00_746 = BgL_arg1532z00_744; }  else 
{ /* ./Ieee/fixnum.scm 421 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_arg1532z00_744, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18030))); 
exit( -1 );} 
BgL_arg1172z00_363 = 
CDR(BgL_pairz00_746); } } } 
{ 
long BgL_resultz00_748;obj_t BgL_leftz00_749;
BgL_resultz00_748 = BgL_arg1171z00_362; 
BgL_leftz00_749 = BgL_arg1172z00_363; 
BgL_loopz00_747:
{ /* ./Ieee/fixnum.scm 421 */
bool_t BgL_test1182z00_754;
BgL_test1182z00_754 = 
PAIRP(BgL_leftz00_749); 
if(BgL_test1182z00_754)
{ /* ./Ieee/fixnum.scm 421 */
long BgL_arg1184z00_755;obj_t BgL_arg1187z00_756;
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_arg1190z00_757;
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_pairz00_759;
if(BgL_test1182z00_754)
{ /* ./Ieee/fixnum.scm 421 */
BgL_pairz00_759 = BgL_leftz00_749; }  else 
{ /* ./Ieee/fixnum.scm 421 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_leftz00_749, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17980))); 
exit( -1 );} 
BgL_arg1190z00_757 = 
CAR(BgL_pairz00_759); } 
BgL_arg1184z00_755 = 
BGl_lcm2z00zz__r4_numbers_6_5_fixnumz00(
BINT(BgL_resultz00_748), BgL_arg1190z00_757); } 
{ /* ./Ieee/fixnum.scm 421 */
obj_t BgL_pairz00_760;
if(BgL_test1182z00_754)
{ /* ./Ieee/fixnum.scm 421 */
BgL_pairz00_760 = BgL_leftz00_749; }  else 
{ /* ./Ieee/fixnum.scm 421 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3385z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_leftz00_749, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17980))); 
exit( -1 );} 
BgL_arg1187z00_756 = 
CDR(BgL_pairz00_760); } 
{ 
obj_t BgL_leftz00_2346;long BgL_resultz00_2345;
BgL_resultz00_2345 = BgL_arg1184z00_755; 
BgL_leftz00_2346 = BgL_arg1187z00_756; 
BgL_leftz00_749 = BgL_leftz00_2346; 
BgL_resultz00_748 = BgL_resultz00_2345; 
goto BgL_loopz00_747;} }  else 
{ /* ./Ieee/fixnum.scm 421 */
BgL_aux1924z00_902 = BgL_resultz00_748; } } } } } } } 
POP_TRACE(); 
return BgL_aux1924z00_902;} } } } 
}



/* lcm2 */
long BGl_lcm2z00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_mz00_370, obj_t BgL_nz00_371)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 417 */
{ /* ./Ieee/fixnum.scm 413 */
long BgL_mz00_373;long BgL_nz00_374;
{ /* ./Ieee/fixnum.scm 413 */
long BgL_res1810z00_782;
{ /* ./Ieee/fixnum.scm 413 */
long BgL_nz00_777;
{ /* ./Ieee/fixnum.scm 413 */
obj_t BgL_auxz00_2349;
if(
INTEGERP(BgL_mz00_370))
{ /* ./Ieee/fixnum.scm 413 */
BgL_auxz00_2349 = BgL_mz00_370
; }  else 
{ /* ./Ieee/fixnum.scm 413 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3386z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_mz00_370, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17749))); 
exit( -1 );} 
BgL_nz00_777 = 
(long)CINT(BgL_auxz00_2349); } 
if(
(BgL_nz00_777<((long)0)))
{ /* ./Ieee/fixnum.scm 413 */
BgL_res1810z00_782 = 
NEG(BgL_nz00_777); }  else 
{ /* ./Ieee/fixnum.scm 413 */
BgL_res1810z00_782 = BgL_nz00_777; } } 
BgL_mz00_373 = BgL_res1810z00_782; } 
{ /* ./Ieee/fixnum.scm 413 */
long BgL_res1811z00_788;
{ /* ./Ieee/fixnum.scm 413 */
long BgL_nz00_783;
{ /* ./Ieee/fixnum.scm 413 */
obj_t BgL_auxz00_2359;
if(
INTEGERP(BgL_nz00_371))
{ /* ./Ieee/fixnum.scm 413 */
BgL_auxz00_2359 = BgL_nz00_371
; }  else 
{ /* ./Ieee/fixnum.scm 413 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3386z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_nz00_371, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)17763))); 
exit( -1 );} 
BgL_nz00_783 = 
(long)CINT(BgL_auxz00_2359); } 
if(
(BgL_nz00_783<((long)0)))
{ /* ./Ieee/fixnum.scm 413 */
BgL_res1811z00_788 = 
NEG(BgL_nz00_783); }  else 
{ /* ./Ieee/fixnum.scm 413 */
BgL_res1811z00_788 = BgL_nz00_783; } } 
BgL_nz00_374 = BgL_res1811z00_788; } 
if(
(BgL_mz00_373==BgL_nz00_374))
{ /* ./Ieee/fixnum.scm 414 */
return BgL_mz00_373;}  else 
{ /* ./Ieee/fixnum.scm 415 */
bool_t BgL_test1197z00_376;
{ /* ./Ieee/fixnum.scm 415 */
long BgL_arg1217z00_384;
BgL_arg1217z00_384 = 
(BgL_mz00_373%BgL_nz00_374); 
BgL_test1197z00_376 = 
(BgL_arg1217z00_384==((long)0)); } 
if(BgL_test1197z00_376)
{ /* ./Ieee/fixnum.scm 415 */
return BgL_mz00_373;}  else 
{ /* ./Ieee/fixnum.scm 416 */
bool_t BgL_test1198z00_377;
{ /* ./Ieee/fixnum.scm 416 */
long BgL_arg1212z00_382;
BgL_arg1212z00_382 = 
(BgL_nz00_374%BgL_mz00_373); 
BgL_test1198z00_377 = 
(BgL_arg1212z00_382==((long)0)); } 
if(BgL_test1198z00_377)
{ /* ./Ieee/fixnum.scm 416 */
return BgL_nz00_374;}  else 
{ /* ./Ieee/fixnum.scm 416 */
{ /* ./Ieee/fixnum.scm 417 */
long BgL_arg1200z00_378;
{ /* ./Ieee/fixnum.scm 417 */
long BgL_arg1203z00_379;
{ /* ./Ieee/fixnum.scm 417 */
obj_t BgL_list1206z00_380;
{ /* ./Ieee/fixnum.scm 417 */
obj_t BgL_arg1208z00_381;
{ /* ./Ieee/fixnum.scm 417 */
obj_t BgL_auxz00_2377;
BgL_auxz00_2377 = 
BINT(BgL_nz00_374); 
BgL_arg1208z00_381 = 
MAKE_PAIR(BgL_auxz00_2377, BNIL); } 
{ /* ./Ieee/fixnum.scm 417 */
obj_t BgL_auxz00_2380;
BgL_auxz00_2380 = 
BINT(BgL_mz00_373); 
BgL_list1206z00_380 = 
MAKE_PAIR(BgL_auxz00_2380, BgL_arg1208z00_381); } } 
BgL_arg1203z00_379 = 
BGl_gcdz00zz__r4_numbers_6_5_fixnumz00(BgL_list1206z00_380); } 
BgL_arg1200z00_378 = 
(BgL_mz00_373/BgL_arg1203z00_379); } 
return 
(BgL_arg1200z00_378*BgL_nz00_374);} } } } } } 
}



/* _lcm */
obj_t BGl__lcmz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_993, obj_t BgL_xz00_994)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 411 */
{ /* ./Ieee/fixnum.scm 417 */
long BgL_auxz00_2386;
BgL_auxz00_2386 = 
BGl_lcmz00zz__r4_numbers_6_5_fixnumz00(BgL_xz00_994); 
return 
BINT(BgL_auxz00_2386);} } 
}



/* integer->string */
BGL_EXPORTED_DEF obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long BgL_xz00_47, obj_t BgL_radixz00_48)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 429 */
{ /* ./Ieee/fixnum.scm 430 */
obj_t BgL_symbol1929z00_903;
BgL_symbol1929z00_903 = BGl_symbol3387z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 430 */

PUSH_TRACE(BgL_symbol1929z00_903); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 430 */
obj_t BgL_aux1928z00_904;
{ /* ./Ieee/fixnum.scm 430 */
obj_t BgL_rz00_387;
if(
NULLP(BgL_radixz00_48))
{ /* ./Ieee/fixnum.scm 430 */
BgL_rz00_387 = 
BINT(((long)10)); }  else 
{ /* ./Ieee/fixnum.scm 430 */
obj_t BgL_pairz00_804;
if(
PAIRP(BgL_radixz00_48))
{ /* ./Ieee/fixnum.scm 430 */
BgL_pairz00_804 = BgL_radixz00_48; }  else 
{ /* ./Ieee/fixnum.scm 430 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3387z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_48, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18432))); 
exit( -1 );} 
BgL_rz00_387 = 
CAR(BgL_pairz00_804); } 
{ 

{ /* ./Ieee/fixnum.scm 431 */
bool_t BgL_test1224z00_390;
BgL_test1224z00_390 = 
INTEGERP(BgL_rz00_387); 
if(BgL_test1224z00_390)
{ /* ./Ieee/fixnum.scm 431 */
long BgL_auxz00_2417;
{ /* ./Ieee/fixnum.scm 431 */
obj_t BgL_auxz00_2418;
if(BgL_test1224z00_390)
{ /* ./Ieee/fixnum.scm 431 */
BgL_auxz00_2418 = BgL_rz00_387
; }  else 
{ /* ./Ieee/fixnum.scm 431 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3387z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_387, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18444))); 
exit( -1 );} 
BgL_auxz00_2417 = 
(long)CINT(BgL_auxz00_2418); } 
switch( BgL_auxz00_2417) { case ((long)2) : 
case ((long)8) : 
case ((long)10) : 
case ((long)16) : 

{ /* ./Ieee/fixnum.scm 433 */
long BgL_auxz00_2401;
{ /* ./Ieee/fixnum.scm 433 */
obj_t BgL_auxz00_2402;
if(BgL_test1224z00_390)
{ /* ./Ieee/fixnum.scm 433 */
BgL_auxz00_2402 = BgL_rz00_387
; }  else 
{ /* ./Ieee/fixnum.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3387z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_387, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18487))); 
exit( -1 );} 
BgL_auxz00_2401 = 
(long)CINT(BgL_auxz00_2402); } 
BgL_aux1928z00_904 = 
integer_to_string(BgL_xz00_47, BgL_auxz00_2401); } break;
default: 
{ /* ./Ieee/fixnum.scm 431 */
obj_t BgL_aux2922z00_1179;
BgL_case_else1007z00_388:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3388z00zz__r4_numbers_6_5_fixnumz00, BGl_string3389z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_387, "./Ieee/fixnum.scm", ((long)18502)); 
BgL_aux2922z00_1179 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18444))); 
if(
STRINGP(BgL_aux2922z00_1179))
{ /* ./Ieee/fixnum.scm 431 */
BgL_aux1928z00_904 = BgL_aux2922z00_1179; }  else 
{ /* ./Ieee/fixnum.scm 431 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3387z00zz__r4_numbers_6_5_fixnumz00, BGl_string3390z00zz__r4_numbers_6_5_fixnumz00, BgL_aux2922z00_1179, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18444))); 
exit( -1 );} } } }  else 
{ /* ./Ieee/fixnum.scm 431 */
obj_t BgL_aux2932z00_1181;
goto BgL_case_else1007z00_388;
if(
STRINGP(BgL_aux2932z00_1181))
{ /* ./Ieee/fixnum.scm 431 */
BgL_aux1928z00_904 = BgL_aux2932z00_1181; }  else 
{ /* ./Ieee/fixnum.scm 431 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3387z00zz__r4_numbers_6_5_fixnumz00, BGl_string3390z00zz__r4_numbers_6_5_fixnumz00, BgL_aux2932z00_1181, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18444))); 
exit( -1 );} } } } } 
POP_TRACE(); 
return BgL_aux1928z00_904;} } } } 
}



/* _integer->string */
obj_t BGl__integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_995, obj_t BgL_xz00_996, obj_t BgL_radixz00_997)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 429 */
{ /* ./Ieee/fixnum.scm 430 */
long BgL_auxz00_2430;
{ /* ./Ieee/fixnum.scm 430 */
obj_t BgL_auxz00_2431;
if(
INTEGERP(BgL_xz00_996))
{ /* ./Ieee/fixnum.scm 430 */
BgL_auxz00_2431 = BgL_xz00_996
; }  else 
{ /* ./Ieee/fixnum.scm 430 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3391z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_996, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18393))); 
exit( -1 );} 
BgL_auxz00_2430 = 
(long)CINT(BgL_auxz00_2431); } 
return 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_2430, BgL_radixz00_997);} } 
}



/* elong->string */
BGL_EXPORTED_DEF obj_t BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_49, obj_t BgL_radixz00_50)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 440 */
{ /* ./Ieee/fixnum.scm 441 */
obj_t BgL_symbol1933z00_905;
BgL_symbol1933z00_905 = BGl_symbol3392z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 441 */

PUSH_TRACE(BgL_symbol1933z00_905); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 441 */
obj_t BgL_aux1932z00_906;
{ /* ./Ieee/fixnum.scm 441 */
obj_t BgL_rz00_392;
if(
NULLP(BgL_radixz00_50))
{ /* ./Ieee/fixnum.scm 441 */
BgL_rz00_392 = 
BINT(((long)10)); }  else 
{ /* ./Ieee/fixnum.scm 441 */
obj_t BgL_pairz00_809;
if(
PAIRP(BgL_radixz00_50))
{ /* ./Ieee/fixnum.scm 441 */
BgL_pairz00_809 = BgL_radixz00_50; }  else 
{ /* ./Ieee/fixnum.scm 441 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3392z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_50, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18849))); 
exit( -1 );} 
BgL_rz00_392 = 
CAR(BgL_pairz00_809); } 
{ 

{ /* ./Ieee/fixnum.scm 442 */
bool_t BgL_test1234z00_395;
BgL_test1234z00_395 = 
INTEGERP(BgL_rz00_392); 
if(BgL_test1234z00_395)
{ /* ./Ieee/fixnum.scm 442 */
long BgL_auxz00_2469;
{ /* ./Ieee/fixnum.scm 442 */
obj_t BgL_auxz00_2470;
if(BgL_test1234z00_395)
{ /* ./Ieee/fixnum.scm 442 */
BgL_auxz00_2470 = BgL_rz00_392
; }  else 
{ /* ./Ieee/fixnum.scm 442 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3392z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_392, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18861))); 
exit( -1 );} 
BgL_auxz00_2469 = 
(long)CINT(BgL_auxz00_2470); } 
switch( BgL_auxz00_2469) { case ((long)2) : 
case ((long)8) : 
case ((long)10) : 
case ((long)16) : 

{ /* ./Ieee/fixnum.scm 444 */
long BgL_arg1236z00_396;
BgL_arg1236z00_396 = 
BELONG_TO_LONG(BgL_xz00_49); 
{ /* ./Ieee/fixnum.scm 444 */
long BgL_auxz00_2452;
{ /* ./Ieee/fixnum.scm 444 */
obj_t BgL_auxz00_2453;
if(
INTEGERP(BgL_rz00_392))
{ /* ./Ieee/fixnum.scm 444 */
BgL_auxz00_2453 = BgL_rz00_392
; }  else 
{ /* ./Ieee/fixnum.scm 444 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3392z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_392, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18922))); 
exit( -1 );} 
BgL_auxz00_2452 = 
(long)CINT(BgL_auxz00_2453); } 
BgL_aux1932z00_906 = 
integer_to_string(BgL_arg1236z00_396, BgL_auxz00_2452); } } break;
default: 
{ /* ./Ieee/fixnum.scm 442 */
obj_t BgL_aux2993z00_1191;
BgL_case_else1009z00_393:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3393z00zz__r4_numbers_6_5_fixnumz00, BGl_string3389z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_392, "./Ieee/fixnum.scm", ((long)18937)); 
BgL_aux2993z00_1191 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18861))); 
if(
STRINGP(BgL_aux2993z00_1191))
{ /* ./Ieee/fixnum.scm 442 */
BgL_aux1932z00_906 = BgL_aux2993z00_1191; }  else 
{ /* ./Ieee/fixnum.scm 442 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3392z00zz__r4_numbers_6_5_fixnumz00, BGl_string3390z00zz__r4_numbers_6_5_fixnumz00, BgL_aux2993z00_1191, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18861))); 
exit( -1 );} } } }  else 
{ /* ./Ieee/fixnum.scm 442 */
obj_t BgL_aux3003z00_1193;
goto BgL_case_else1009z00_393;
if(
STRINGP(BgL_aux3003z00_1193))
{ /* ./Ieee/fixnum.scm 442 */
BgL_aux1932z00_906 = BgL_aux3003z00_1193; }  else 
{ /* ./Ieee/fixnum.scm 442 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3392z00zz__r4_numbers_6_5_fixnumz00, BGl_string3390z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3003z00_1193, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18861))); 
exit( -1 );} } } } } 
POP_TRACE(); 
return BgL_aux1932z00_906;} } } } 
}



/* _elong->string1999 */
obj_t BGl__elongzd2ze3string1999z31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_998, obj_t BgL_xz00_999, obj_t BgL_radixz00_1000)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 440 */
{ /* ./Ieee/fixnum.scm 441 */
obj_t BgL_auxz00_2482;
if(
ELONGP(BgL_xz00_999))
{ /* ./Ieee/fixnum.scm 441 */
BgL_auxz00_2482 = BgL_xz00_999
; }  else 
{ /* ./Ieee/fixnum.scm 441 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3394z00zz__r4_numbers_6_5_fixnumz00, BGl_string3338z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_999, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)18810))); 
exit( -1 );} 
return 
BGl_elongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_2482, BgL_radixz00_1000);} } 
}



/* llong->string */
BGL_EXPORTED_DEF obj_t BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_xz00_51, obj_t BgL_radixz00_52)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 451 */
{ /* ./Ieee/fixnum.scm 452 */
obj_t BgL_symbol1937z00_907;
BgL_symbol1937z00_907 = BGl_symbol3395z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 452 */

PUSH_TRACE(BgL_symbol1937z00_907); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 452 */
obj_t BgL_aux1936z00_908;
{ /* ./Ieee/fixnum.scm 452 */
obj_t BgL_rz00_398;
if(
NULLP(BgL_radixz00_52))
{ /* ./Ieee/fixnum.scm 452 */
BgL_rz00_398 = 
BINT(((long)10)); }  else 
{ /* ./Ieee/fixnum.scm 452 */
obj_t BgL_pairz00_814;
if(
PAIRP(BgL_radixz00_52))
{ /* ./Ieee/fixnum.scm 452 */
BgL_pairz00_814 = BgL_radixz00_52; }  else 
{ /* ./Ieee/fixnum.scm 452 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3395z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_52, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19282))); 
exit( -1 );} 
BgL_rz00_398 = 
CAR(BgL_pairz00_814); } 
{ 

{ /* ./Ieee/fixnum.scm 453 */
bool_t BgL_test1247z00_401;
BgL_test1247z00_401 = 
INTEGERP(BgL_rz00_398); 
if(BgL_test1247z00_401)
{ /* ./Ieee/fixnum.scm 453 */
long BgL_auxz00_2518;
{ /* ./Ieee/fixnum.scm 453 */
obj_t BgL_auxz00_2519;
if(BgL_test1247z00_401)
{ /* ./Ieee/fixnum.scm 453 */
BgL_auxz00_2519 = BgL_rz00_398
; }  else 
{ /* ./Ieee/fixnum.scm 453 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3395z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_398, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19294))); 
exit( -1 );} 
BgL_auxz00_2518 = 
(long)CINT(BgL_auxz00_2519); } 
switch( BgL_auxz00_2518) { case ((long)2) : 
case ((long)8) : 
case ((long)10) : 
case ((long)16) : 

{ /* ./Ieee/fixnum.scm 455 */
BGL_LONGLONG_T BgL_arg1249z00_402;
BgL_arg1249z00_402 = 
BLLONG_TO_LLONG(BgL_xz00_51); 
{ /* ./Ieee/fixnum.scm 455 */
long BgL_auxz00_2502;
{ /* ./Ieee/fixnum.scm 455 */
obj_t BgL_auxz00_2503;
if(BgL_test1247z00_401)
{ /* ./Ieee/fixnum.scm 455 */
BgL_auxz00_2503 = BgL_rz00_398
; }  else 
{ /* ./Ieee/fixnum.scm 455 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3395z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_398, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19355))); 
exit( -1 );} 
BgL_auxz00_2502 = 
(long)CINT(BgL_auxz00_2503); } 
BgL_aux1936z00_908 = 
llong_to_string(BgL_arg1249z00_402, BgL_auxz00_2502); } } break;
default: 
{ /* ./Ieee/fixnum.scm 453 */
obj_t BgL_aux3063z00_1203;
BgL_case_else1011z00_399:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3396z00zz__r4_numbers_6_5_fixnumz00, BGl_string3389z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_398, "./Ieee/fixnum.scm", ((long)19370)); 
BgL_aux3063z00_1203 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19294))); 
if(
STRINGP(BgL_aux3063z00_1203))
{ /* ./Ieee/fixnum.scm 453 */
BgL_aux1936z00_908 = BgL_aux3063z00_1203; }  else 
{ /* ./Ieee/fixnum.scm 453 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3395z00zz__r4_numbers_6_5_fixnumz00, BGl_string3390z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3063z00_1203, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19294))); 
exit( -1 );} } } }  else 
{ /* ./Ieee/fixnum.scm 453 */
obj_t BgL_aux3073z00_1205;
goto BgL_case_else1011z00_399;
if(
STRINGP(BgL_aux3073z00_1205))
{ /* ./Ieee/fixnum.scm 453 */
BgL_aux1936z00_908 = BgL_aux3073z00_1205; }  else 
{ /* ./Ieee/fixnum.scm 453 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3395z00zz__r4_numbers_6_5_fixnumz00, BGl_string3390z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3073z00_1205, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19294))); 
exit( -1 );} } } } } 
POP_TRACE(); 
return BgL_aux1936z00_908;} } } } 
}



/* _llong->string2001 */
obj_t BGl__llongzd2ze3string2001z31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_1001, obj_t BgL_xz00_1002, obj_t BgL_radixz00_1003)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 451 */
{ /* ./Ieee/fixnum.scm 452 */
obj_t BgL_auxz00_2531;
if(
LLONGP(BgL_xz00_1002))
{ /* ./Ieee/fixnum.scm 452 */
BgL_auxz00_2531 = BgL_xz00_1002
; }  else 
{ /* ./Ieee/fixnum.scm 452 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3397z00zz__r4_numbers_6_5_fixnumz00, BGl_string3341z00zz__r4_numbers_6_5_fixnumz00, BgL_xz00_1002, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19243))); 
exit( -1 );} 
return 
BGl_llongzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_2531, BgL_radixz00_1003);} } 
}



/* string->integer */
BGL_EXPORTED_DEF long BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_stringz00_53, obj_t BgL_radixz00_54)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 462 */
{ /* ./Ieee/fixnum.scm 463 */
obj_t BgL_symbol1941z00_909;
BgL_symbol1941z00_909 = BGl_symbol3398z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 463 */

PUSH_TRACE(BgL_symbol1941z00_909); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 463 */
long BgL_aux1940z00_910;
{ /* ./Ieee/fixnum.scm 463 */
obj_t BgL_rz00_404;
if(
NULLP(BgL_radixz00_54))
{ /* ./Ieee/fixnum.scm 463 */
BgL_rz00_404 = 
BINT(((long)10)); }  else 
{ /* ./Ieee/fixnum.scm 463 */
obj_t BgL_pairz00_819;
if(
PAIRP(BgL_radixz00_54))
{ /* ./Ieee/fixnum.scm 463 */
BgL_pairz00_819 = BgL_radixz00_54; }  else 
{ /* ./Ieee/fixnum.scm 463 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3398z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_54, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19722))); 
exit( -1 );} 
BgL_rz00_404 = 
CAR(BgL_pairz00_819); } 
{ 

{ /* ./Ieee/fixnum.scm 464 */
bool_t BgL_test1260z00_407;
BgL_test1260z00_407 = 
INTEGERP(BgL_rz00_404); 
if(BgL_test1260z00_407)
{ /* ./Ieee/fixnum.scm 464 */
long BgL_auxz00_2570;
{ /* ./Ieee/fixnum.scm 464 */
obj_t BgL_auxz00_2571;
if(BgL_test1260z00_407)
{ /* ./Ieee/fixnum.scm 464 */
BgL_auxz00_2571 = BgL_rz00_404
; }  else 
{ /* ./Ieee/fixnum.scm 464 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3398z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_404, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19734))); 
exit( -1 );} 
BgL_auxz00_2570 = 
(long)CINT(BgL_auxz00_2571); } 
switch( BgL_auxz00_2570) { case ((long)2) : 
case ((long)8) : 
case ((long)10) : 
case ((long)16) : 

{ /* ./Ieee/fixnum.scm 466 */
long BgL_auxz00_2552;char * BgL_auxz00_2550;
{ /* ./Ieee/fixnum.scm 466 */
obj_t BgL_auxz00_2553;
if(BgL_test1260z00_407)
{ /* ./Ieee/fixnum.scm 466 */
BgL_auxz00_2553 = BgL_rz00_404
; }  else 
{ /* ./Ieee/fixnum.scm 466 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3398z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_404, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19777))); 
exit( -1 );} 
BgL_auxz00_2552 = 
(long)CINT(BgL_auxz00_2553); } 
BgL_auxz00_2550 = 
BSTRING_TO_STRING(BgL_stringz00_53); 
BgL_aux1940z00_910 = 
strtol(BgL_auxz00_2550, ((long)0), BgL_auxz00_2552); } break;
default: 
{ /* ./Ieee/fixnum.scm 464 */
obj_t BgL_auxz00_2560;
{ /* ./Ieee/fixnum.scm 464 */
obj_t BgL_aux3134z00_1215;
BgL_case_else1013z00_405:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3399z00zz__r4_numbers_6_5_fixnumz00, BGl_string3389z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_404, "./Ieee/fixnum.scm", ((long)19792)); 
BgL_aux3134z00_1215 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19734))); 
if(
INTEGERP(BgL_aux3134z00_1215))
{ /* ./Ieee/fixnum.scm 464 */
BgL_auxz00_2560 = BgL_aux3134z00_1215
; }  else 
{ /* ./Ieee/fixnum.scm 464 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3398z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3134z00_1215, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19734))); 
exit( -1 );} } 
BgL_aux1940z00_910 = 
(long)CINT(BgL_auxz00_2560); } } }  else 
{ /* ./Ieee/fixnum.scm 464 */
obj_t BgL_auxz00_2577;
{ /* ./Ieee/fixnum.scm 464 */
obj_t BgL_aux3145z00_1217;
goto BgL_case_else1013z00_405;
if(
INTEGERP(BgL_aux3145z00_1217))
{ /* ./Ieee/fixnum.scm 464 */
BgL_auxz00_2577 = BgL_aux3145z00_1217
; }  else 
{ /* ./Ieee/fixnum.scm 464 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3398z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3145z00_1217, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19734))); 
exit( -1 );} } 
BgL_aux1940z00_910 = 
(long)CINT(BgL_auxz00_2577); } } } } 
POP_TRACE(); 
return BgL_aux1940z00_910;} } } } 
}



/* _string->integer */
obj_t BGl__stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_1004, obj_t BgL_stringz00_1005, obj_t BgL_radixz00_1006)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 462 */
{ /* ./Ieee/fixnum.scm 463 */
long BgL_auxz00_2585;
{ /* ./Ieee/fixnum.scm 463 */
obj_t BgL_auxz00_2586;
if(
STRINGP(BgL_stringz00_1005))
{ /* ./Ieee/fixnum.scm 463 */
BgL_auxz00_2586 = BgL_stringz00_1005
; }  else 
{ /* ./Ieee/fixnum.scm 463 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3400z00zz__r4_numbers_6_5_fixnumz00, BGl_string3390z00zz__r4_numbers_6_5_fixnumz00, BgL_stringz00_1005, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)19683))); 
exit( -1 );} 
BgL_auxz00_2585 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_2586, BgL_radixz00_1006); } 
return 
BINT(BgL_auxz00_2585);} } 
}



/* string->elong */
BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_stringz00_55, obj_t BgL_radixz00_56)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 473 */
{ /* ./Ieee/fixnum.scm 474 */
obj_t BgL_symbol1945z00_911;
BgL_symbol1945z00_911 = BGl_symbol3401z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 474 */

PUSH_TRACE(BgL_symbol1945z00_911); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 474 */
obj_t BgL_aux1944z00_912;
{ /* ./Ieee/fixnum.scm 474 */
obj_t BgL_rz00_409;
if(
NULLP(BgL_radixz00_56))
{ /* ./Ieee/fixnum.scm 474 */
BgL_rz00_409 = 
BINT(((long)10)); }  else 
{ /* ./Ieee/fixnum.scm 474 */
obj_t BgL_pairz00_824;
if(
PAIRP(BgL_radixz00_56))
{ /* ./Ieee/fixnum.scm 474 */
BgL_pairz00_824 = BgL_radixz00_56; }  else 
{ /* ./Ieee/fixnum.scm 474 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3401z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_56, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20144))); 
exit( -1 );} 
BgL_rz00_409 = 
CAR(BgL_pairz00_824); } 
{ 

{ /* ./Ieee/fixnum.scm 475 */
bool_t BgL_test1270z00_412;
BgL_test1270z00_412 = 
INTEGERP(BgL_rz00_409); 
if(BgL_test1270z00_412)
{ /* ./Ieee/fixnum.scm 475 */
long BgL_auxz00_2626;
{ /* ./Ieee/fixnum.scm 475 */
obj_t BgL_auxz00_2627;
if(BgL_test1270z00_412)
{ /* ./Ieee/fixnum.scm 475 */
BgL_auxz00_2627 = BgL_rz00_409
; }  else 
{ /* ./Ieee/fixnum.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3401z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_409, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20156))); 
exit( -1 );} 
BgL_auxz00_2626 = 
(long)CINT(BgL_auxz00_2627); } 
switch( BgL_auxz00_2626) { case ((long)2) : 
case ((long)8) : 
case ((long)10) : 
case ((long)16) : 

{ /* ./Ieee/fixnum.scm 477 */
long BgL_auxz00_2606;
{ /* ./Ieee/fixnum.scm 477 */
long BgL_auxz00_2609;char * BgL_auxz00_2607;
{ /* ./Ieee/fixnum.scm 477 */
obj_t BgL_auxz00_2610;
if(BgL_test1270z00_412)
{ /* ./Ieee/fixnum.scm 477 */
BgL_auxz00_2610 = BgL_rz00_409
; }  else 
{ /* ./Ieee/fixnum.scm 477 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3401z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_409, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20200))); 
exit( -1 );} 
BgL_auxz00_2609 = 
(long)CINT(BgL_auxz00_2610); } 
BgL_auxz00_2607 = 
BSTRING_TO_STRING(BgL_stringz00_55); 
BgL_auxz00_2606 = 
strtol(BgL_auxz00_2607, ((long)0), BgL_auxz00_2609); } 
BgL_aux1944z00_912 = 
LONG_TO_BELONG(BgL_auxz00_2606); } break;
default: 
{ /* ./Ieee/fixnum.scm 475 */
obj_t BgL_aux3209z00_1227;
BgL_case_else1015z00_410:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3402z00zz__r4_numbers_6_5_fixnumz00, BGl_string3389z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_409, "./Ieee/fixnum.scm", ((long)20215)); 
BgL_aux3209z00_1227 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20156))); 
if(
ELONGP(BgL_aux3209z00_1227))
{ /* ./Ieee/fixnum.scm 475 */
BgL_aux1944z00_912 = BgL_aux3209z00_1227; }  else 
{ /* ./Ieee/fixnum.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3401z00zz__r4_numbers_6_5_fixnumz00, BGl_string3338z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3209z00_1227, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20156))); 
exit( -1 );} } } }  else 
{ /* ./Ieee/fixnum.scm 475 */
obj_t BgL_aux3219z00_1229;
goto BgL_case_else1015z00_410;
if(
ELONGP(BgL_aux3219z00_1229))
{ /* ./Ieee/fixnum.scm 475 */
BgL_aux1944z00_912 = BgL_aux3219z00_1229; }  else 
{ /* ./Ieee/fixnum.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3401z00zz__r4_numbers_6_5_fixnumz00, BGl_string3338z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3219z00_1229, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20156))); 
exit( -1 );} } } } } 
POP_TRACE(); 
return BgL_aux1944z00_912;} } } } 
}



/* _string->elong */
obj_t BGl__stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_1007, obj_t BgL_stringz00_1008, obj_t BgL_radixz00_1009)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 473 */
{ /* ./Ieee/fixnum.scm 474 */
obj_t BgL_auxz00_2639;
if(
STRINGP(BgL_stringz00_1008))
{ /* ./Ieee/fixnum.scm 474 */
BgL_auxz00_2639 = BgL_stringz00_1008
; }  else 
{ /* ./Ieee/fixnum.scm 474 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3403z00zz__r4_numbers_6_5_fixnumz00, BGl_string3390z00zz__r4_numbers_6_5_fixnumz00, BgL_stringz00_1008, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20105))); 
exit( -1 );} 
return 
BGl_stringzd2ze3elongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_2639, BgL_radixz00_1009);} } 
}



/* string->llong */
BGL_EXPORTED_DEF obj_t BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_stringz00_57, obj_t BgL_radixz00_58)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 484 */
{ /* ./Ieee/fixnum.scm 485 */
obj_t BgL_symbol1949z00_913;
BgL_symbol1949z00_913 = BGl_symbol3404z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 485 */

PUSH_TRACE(BgL_symbol1949z00_913); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 485 */
obj_t BgL_aux1948z00_914;
{ /* ./Ieee/fixnum.scm 485 */
obj_t BgL_rz00_414;
if(
NULLP(BgL_radixz00_58))
{ /* ./Ieee/fixnum.scm 485 */
BgL_rz00_414 = 
BINT(((long)10)); }  else 
{ /* ./Ieee/fixnum.scm 485 */
obj_t BgL_pairz00_829;
if(
PAIRP(BgL_radixz00_58))
{ /* ./Ieee/fixnum.scm 485 */
BgL_pairz00_829 = BgL_radixz00_58; }  else 
{ /* ./Ieee/fixnum.scm 485 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3404z00zz__r4_numbers_6_5_fixnumz00, BGl_string3361z00zz__r4_numbers_6_5_fixnumz00, BgL_radixz00_58, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20565))); 
exit( -1 );} 
BgL_rz00_414 = 
CAR(BgL_pairz00_829); } 
{ 

{ /* ./Ieee/fixnum.scm 486 */
bool_t BgL_test1280z00_417;
BgL_test1280z00_417 = 
INTEGERP(BgL_rz00_414); 
if(BgL_test1280z00_417)
{ /* ./Ieee/fixnum.scm 486 */
long BgL_auxz00_2678;
{ /* ./Ieee/fixnum.scm 486 */
obj_t BgL_auxz00_2679;
if(BgL_test1280z00_417)
{ /* ./Ieee/fixnum.scm 486 */
BgL_auxz00_2679 = BgL_rz00_414
; }  else 
{ /* ./Ieee/fixnum.scm 486 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3404z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_414, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20577))); 
exit( -1 );} 
BgL_auxz00_2678 = 
(long)CINT(BgL_auxz00_2679); } 
switch( BgL_auxz00_2678) { case ((long)2) : 
case ((long)8) : 
case ((long)10) : 
case ((long)16) : 

{ /* ./Ieee/fixnum.scm 488 */
BGL_LONGLONG_T BgL_auxz00_2658;
{ /* ./Ieee/fixnum.scm 488 */
long BgL_auxz00_2661;char * BgL_auxz00_2659;
{ /* ./Ieee/fixnum.scm 488 */
obj_t BgL_auxz00_2662;
if(BgL_test1280z00_417)
{ /* ./Ieee/fixnum.scm 488 */
BgL_auxz00_2662 = BgL_rz00_414
; }  else 
{ /* ./Ieee/fixnum.scm 488 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3404z00zz__r4_numbers_6_5_fixnumz00, BGl_string3333z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_414, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20621))); 
exit( -1 );} 
BgL_auxz00_2661 = 
(long)CINT(BgL_auxz00_2662); } 
BgL_auxz00_2659 = 
BSTRING_TO_STRING(BgL_stringz00_57); 
BgL_auxz00_2658 = 
BGL_STRTOLL(BgL_auxz00_2659, ((long)0), BgL_auxz00_2661); } 
BgL_aux1948z00_914 = 
LLONG_TO_BLLONG(BgL_auxz00_2658); } break;
default: 
{ /* ./Ieee/fixnum.scm 486 */
obj_t BgL_aux3281z00_1239;
BgL_case_else1017z00_415:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string3405z00zz__r4_numbers_6_5_fixnumz00, BGl_string3389z00zz__r4_numbers_6_5_fixnumz00, BgL_rz00_414, "./Ieee/fixnum.scm", ((long)20636)); 
BgL_aux3281z00_1239 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20577))); 
if(
LLONGP(BgL_aux3281z00_1239))
{ /* ./Ieee/fixnum.scm 486 */
BgL_aux1948z00_914 = BgL_aux3281z00_1239; }  else 
{ /* ./Ieee/fixnum.scm 486 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3404z00zz__r4_numbers_6_5_fixnumz00, BGl_string3341z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3281z00_1239, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20577))); 
exit( -1 );} } } }  else 
{ /* ./Ieee/fixnum.scm 486 */
obj_t BgL_aux3291z00_1241;
goto BgL_case_else1017z00_415;
if(
LLONGP(BgL_aux3291z00_1241))
{ /* ./Ieee/fixnum.scm 486 */
BgL_aux1948z00_914 = BgL_aux3291z00_1241; }  else 
{ /* ./Ieee/fixnum.scm 486 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3404z00zz__r4_numbers_6_5_fixnumz00, BGl_string3341z00zz__r4_numbers_6_5_fixnumz00, BgL_aux3291z00_1241, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20577))); 
exit( -1 );} } } } } 
POP_TRACE(); 
return BgL_aux1948z00_914;} } } } 
}



/* _string->llong */
obj_t BGl__stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_1010, obj_t BgL_stringz00_1011, obj_t BgL_radixz00_1012)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 484 */
{ /* ./Ieee/fixnum.scm 485 */
obj_t BgL_auxz00_2691;
if(
STRINGP(BgL_stringz00_1011))
{ /* ./Ieee/fixnum.scm 485 */
BgL_auxz00_2691 = BgL_stringz00_1011
; }  else 
{ /* ./Ieee/fixnum.scm 485 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3406z00zz__r4_numbers_6_5_fixnumz00, BGl_string3390z00zz__r4_numbers_6_5_fixnumz00, BgL_stringz00_1011, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20526))); 
exit( -1 );} 
return 
BGl_stringzd2ze3llongz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_2691, BgL_radixz00_1012);} } 
}



/* random */
BGL_EXPORTED_DEF int BGl_randomz00zz__r4_numbers_6_5_fixnumz00(int BgL_maxz00_59)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 495 */
{ /* ./Ieee/fixnum.scm 496 */
obj_t BgL_symbol1953z00_1425;
BgL_symbol1953z00_1425 = BGl_symbol3407z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 496 */

PUSH_TRACE(BgL_symbol1953z00_1425); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 496 */
int BgL_aux1952z00_1426;
{ /* ./Ieee/fixnum.scm 496 */
int BgL_arg1291z00_1427;
BgL_arg1291z00_1427 = 
rand(); 
{ /* ./Ieee/fixnum.scm 496 */
long BgL_auxz00_2700;
BgL_auxz00_2700 = 
BGl_moduloz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_arg1291z00_1427), 
(long)(BgL_maxz00_59)); 
BgL_aux1952z00_1426 = 
(int)(BgL_auxz00_2700); } } 
POP_TRACE(); 
return BgL_aux1952z00_1426;} } } } 
}



/* _random */
obj_t BGl__randomz00zz__r4_numbers_6_5_fixnumz00(obj_t BgL_envz00_1013, obj_t BgL_maxz00_1014)
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 495 */
{ /* ./Ieee/fixnum.scm 496 */
int BgL_auxz00_2706;
{ /* ./Ieee/fixnum.scm 496 */
int BgL_res3437z00_1432;
{ /* ./Ieee/fixnum.scm 496 */
int BgL_maxz00_1428;
{ /* ./Ieee/fixnum.scm 496 */
obj_t BgL_auxz00_2707;
if(
INTEGERP(BgL_maxz00_1014))
{ /* ./Ieee/fixnum.scm 496 */
BgL_auxz00_2707 = BgL_maxz00_1014
; }  else 
{ /* ./Ieee/fixnum.scm 496 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol3408z00zz__r4_numbers_6_5_fixnumz00, BGl_string3409z00zz__r4_numbers_6_5_fixnumz00, BgL_maxz00_1014, BGl_string3328z00zz__r4_numbers_6_5_fixnumz00, 
BINT(((long)20949))); 
exit( -1 );} 
BgL_maxz00_1428 = 
CINT(BgL_auxz00_2707); } 
{ /* ./Ieee/fixnum.scm 496 */
obj_t BgL_symbol1953z00_1429;
BgL_symbol1953z00_1429 = BGl_symbol3407z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 496 */

PUSH_TRACE(BgL_symbol1953z00_1429); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 496 */
int BgL_aux1952z00_1430;
{ /* ./Ieee/fixnum.scm 496 */
int BgL_arg1291z00_1431;
BgL_arg1291z00_1431 = 
rand(); 
{ /* ./Ieee/fixnum.scm 496 */
long BgL_auxz00_2716;
BgL_auxz00_2716 = 
BGl_moduloz00zz__r4_numbers_6_5_fixnumz00(
(long)(BgL_arg1291z00_1431), 
(long)(BgL_maxz00_1428)); 
BgL_aux1952z00_1430 = 
(int)(BgL_auxz00_2716); } } 
POP_TRACE(); 
BgL_res3437z00_1432 = BgL_aux1952z00_1430; } } } } 
BgL_auxz00_2706 = BgL_res3437z00_1432; } 
return 
BINT(BgL_auxz00_2706);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5_fixnumz00()
{ AN_OBJECT;
{ /* ./Ieee/fixnum.scm 14 */
{ /* ./Ieee/fixnum.scm 14 */
obj_t BgL_symbol1957z00_917;
BgL_symbol1957z00_917 = BGl_symbol3410z00zz__r4_numbers_6_5_fixnumz00; 
{ /* ./Ieee/fixnum.scm 14 */

PUSH_TRACE(BgL_symbol1957z00_917); BUNSPEC; 
{ /* ./Ieee/fixnum.scm 14 */
obj_t BgL_aux1956z00_918;
BgL_aux1956z00_918 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_numbers_6_5_fixnum"); 
POP_TRACE(); 
return BgL_aux1956z00_918;} } } } 
}

