/*===========================================================================*/
/*   (SawBbv/bbv-range.scm)                                                  */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -q -afile .afile -fsharing -fno-reflection -cc gcc -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -unsafev -gno-error-localization -no-hello -O2 -rm -unsafe -s -stdc -indent SawBbv/bbv-range.scm) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

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

#ifdef __cplusplus
extern "C"
{
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL_BgL_SAW_BBVzd2RANGEzd2_TYPE_DEFINITIONS
#define BGL_BgL_SAW_BBVzd2RANGEzd2_TYPE_DEFINITIONS

/* object type definitions */
	typedef struct BgL_valuez00_bgl
	{
		header_t header;
		obj_t widening;
	}               *BgL_valuez00_bglt;

	typedef struct BgL_globalz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_idz00;
		obj_t BgL_namez00;
		struct BgL_typez00_bgl *BgL_typez00;
		struct BgL_valuez00_bgl *BgL_valuez00;
		obj_t BgL_accessz00;
		obj_t BgL_fastzd2alphazd2;
		obj_t BgL_removablez00;
		long BgL_occurrencez00;
		long BgL_occurrencewz00;
		bool_t BgL_userzf3zf3;
		obj_t BgL_modulez00;
		obj_t BgL_importz00;
		bool_t BgL_evaluablezf3zf3;
		bool_t BgL_evalzf3zf3;
		obj_t BgL_libraryz00;
		obj_t BgL_pragmaz00;
		obj_t BgL_srcz00;
		obj_t BgL_jvmzd2typezd2namez00;
		obj_t BgL_initz00;
		obj_t BgL_aliasz00;
	}                *BgL_globalz00_bglt;

	typedef struct BgL_atomz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_valuez00;
	}              *BgL_atomz00_bglt;

	typedef struct BgL_typez00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_idz00;
		obj_t BgL_namez00;
		obj_t BgL_siza7eza7;
		obj_t BgL_classz00;
		obj_t BgL_coercezd2tozd2;
		obj_t BgL_parentsz00;
		bool_t BgL_initzf3zf3;
		bool_t BgL_magiczf3zf3;
		obj_t BgL_z42z42;
		obj_t BgL_aliasz00;
		obj_t BgL_pointedzd2tozd2byz00;
		obj_t BgL_tvectorz00;
		obj_t BgL_locationz00;
		obj_t BgL_importzd2locationzd2;
		int BgL_occurrencez00;
	}              *BgL_typez00_bglt;

	typedef struct BgL_rtl_regz00_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_typez00_bgl *BgL_typez00;
		obj_t BgL_varz00;
		obj_t BgL_onexprzf3zf3;
		obj_t BgL_namez00;
		obj_t BgL_keyz00;
		obj_t BgL_debugnamez00;
		obj_t BgL_hardwarez00;
	}                 *BgL_rtl_regz00_bglt;

	typedef struct BgL_rtl_funz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
	}                 *BgL_rtl_funz00_bglt;

	typedef struct BgL_rtl_loadiz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_atomz00_bgl *BgL_constantz00;
	}                   *BgL_rtl_loadiz00_bglt;

	typedef struct BgL_rtl_callz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		struct BgL_globalz00_bgl *BgL_varz00;
	}                  *BgL_rtl_callz00_bglt;

	typedef struct BgL_rtl_insz00_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_locz00;
		obj_t BgL_z52spillz52;
		obj_t BgL_destz00;
		struct BgL_rtl_funz00_bgl *BgL_funz00;
		obj_t BgL_argsz00;
	}                 *BgL_rtl_insz00_bglt;

	typedef struct BgL_bbvzd2ctxzd2_bgl
	{
		header_t header;
		obj_t widening;
		long BgL_idz00;
		obj_t BgL_entriesz00;
	}                   *BgL_bbvzd2ctxzd2_bglt;

	typedef struct BgL_bbvzd2ctxentryzd2_bgl
	{
		header_t header;
		obj_t widening;
		struct BgL_rtl_regz00_bgl *BgL_regz00;
		obj_t BgL_typesz00;
		bool_t BgL_polarityz00;
		obj_t BgL_valuez00;
		obj_t BgL_aliasesz00;
		obj_t BgL_initvalz00;
	}                        *BgL_bbvzd2ctxentryzd2_bglt;

	typedef struct BgL_bbvzd2rangezd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_loz00;
		obj_t BgL_upz00;
	}                     *BgL_bbvzd2rangezd2_bglt;

	typedef struct BgL_bbvzd2vlenzd2_bgl
	{
		header_t header;
		obj_t widening;
		obj_t BgL_vecz00;
		int BgL_offsetz00;
	}                    *BgL_bbvzd2vlenzd2_bglt;


#endif													// BGL_BgL_SAW_BBVzd2RANGEzd2_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	static obj_t BGl_z62rtlzd2rangezb0zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_IMPORT obj_t BGl_2minz00zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_bbvzd2ctxzd2getz00zzsaw_bbvzd2typeszd2(BgL_bbvzd2ctxzd2_bglt,
		BgL_rtl_regz00_bglt);
	static obj_t BGl_requirezd2initializa7ationz75zzsaw_bbvzd2rangezd2 = BUNSPEC;
	BGL_EXPORTED_DEF obj_t BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2 = BUNSPEC;
	static obj_t BGl_z62bbvzd2minzd2fixnumz62zzsaw_bbvzd2rangezd2(obj_t);
	static obj_t BGl_zd2zd2z00zzsaw_bbvzd2rangezd2(obj_t);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2eqz62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_IMPORT obj_t bgl_display_obj(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62bbvzd2vlenzf3z43zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_za2classesza2z00zz__objectz00;
	extern obj_t BGl_za2bbvzd2optimzd2vlengthza2z00zzsaw_bbvzd2configzd2;
	BGL_EXPORTED_DEF obj_t BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2 = BUNSPEC;
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2gtz62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	extern bool_t
		BGl_rtl_inszd2callzf3z21zzsaw_bbvzd2typeszd2(BgL_rtl_insz00_bglt);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2ltez00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	static obj_t BGl_z62zd3rvzb1zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t BGl_rtlzd2rangezd2zzsaw_bbvzd2rangezd2(obj_t,
		BgL_bbvzd2ctxzd2_bglt);
	static obj_t BGl_toplevelzd2initzd2zzsaw_bbvzd2rangezd2(void);
	static BgL_bbvzd2rangezd2_bglt
		BGl_vlenzd2ze3rangez31zzsaw_bbvzd2rangezd2(obj_t, BgL_bbvzd2ctxzd2_bglt);
	BGL_IMPORT obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_vlenzd2rangezd2zzsaw_bbvzd2rangezd2(void);
	extern bool_t
		BGl_rtl_inszd2vlenzf3z21zzsaw_bbvzd2typeszd2(BgL_rtl_insz00_bglt);
	static obj_t BGl_genericzd2initzd2zzsaw_bbvzd2rangezd2(void);
	static obj_t BGl_z62rangezd2typezf3z43zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t,
		bool_t, bool_t, obj_t, obj_t, obj_t);
	static obj_t BGl_objectzd2initzd2zzsaw_bbvzd2rangezd2(void);
	BGL_EXPORTED_DECL bool_t BGl_bbvzd2vlenzf3z21zzsaw_bbvzd2rangezd2(obj_t);
	BGL_IMPORT obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
	BGL_IMPORT obj_t bgl_bignum_mul(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2mulz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	BGL_EXPORTED_DECL long BGl_bbvzd2minzd2fixnumz00zzsaw_bbvzd2rangezd2(void);
	BGL_IMPORT bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t);
	BGL_IMPORT bool_t BGl_2ze3ze3zz__r4_numbers_6_5z00(obj_t, obj_t);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2subz62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	extern obj_t BGl_shapez00zztools_shapez00(obj_t);
	BGL_IMPORT obj_t BGl_za2inheritancesza2z00zz__objectz00;
	static obj_t BGl_zb2rvzb2zzsaw_bbvzd2rangezd2(obj_t, obj_t, double);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62vlenzd2rangezb0zzsaw_bbvzd2rangezd2(obj_t);
	static obj_t BGl_z62bbvzd2maxzd2fixnumz62zzsaw_bbvzd2rangezd2(obj_t);
	static obj_t
		BGl_z62objectzd2printzd2bbvzd2vle1529zb0zzsaw_bbvzd2rangezd2(obj_t, obj_t,
		obj_t, obj_t);
	extern obj_t BGl_za2longza2z00zztype_cachez00;
	extern obj_t BGl_rtl_regz00zzsaw_defsz00;
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2ltz62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_IMPORT obj_t bgl_bignum_add(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2intersectionz00zzsaw_bbvzd2rangezd2
		(BgL_bbvzd2rangezd2_bglt, BgL_bbvzd2rangezd2_bglt);
	extern obj_t BGl_za2longzd2ze3bintza2z31zzsaw_bbvzd2cachezd2;
	BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt);
	BGL_IMPORT obj_t BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00(obj_t,
		obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zzsaw_bbvzd2rangezd2(void);
	BGL_EXPORTED_DECL obj_t
		BGl_bbvzd2vlenzd2vecz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2vlenzd2_bglt);
	static obj_t BGl_z62zc3z04anonymousza32231ze3ze5zzsaw_bbvzd2rangezd2(obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t BGl_maxrvz00zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	static obj_t BGl_zd2rvzd2zzsaw_bbvzd2rangezd2(obj_t, obj_t, double);
	BGL_EXPORTED_DECL obj_t BGl_zd3rvzd3zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62fixnumzd2rangezb0zzsaw_bbvzd2rangezd2(obj_t);
	extern bool_t
		BGl_rtl_inszd2strlenzf3z21zzsaw_bbvzd2typeszd2(BgL_rtl_insz00_bglt);
	static obj_t BGl_ze3zd3rvz30zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2neqz62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_IMPORT obj_t bgl_bignum_sub(obj_t, obj_t);
	extern bool_t
		BGl_rtl_inszd2loadizf3z21zzsaw_bbvzd2typeszd2(BgL_rtl_insz00_bglt);
	BGL_EXPORTED_DECL long BGl_bbvzd2maxzd2fixnumz00zzsaw_bbvzd2rangezd2(void);
	static obj_t BGl_ze3rvze3zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2gtez62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_IMPORT obj_t bgl_long_to_bignum(long);
	static obj_t BGl__maxrvz00zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	BGL_IMPORT obj_t BGl_zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
	BGL_EXPORTED_DECL int
		BGl_bbvzd2vlenzd2offsetz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2vlenzd2_bglt);
	static obj_t BGl_z62bbvzd2vlenzd2offsetz62zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t
		BGl_bbvzd2rangezd2fixnumzf3zf3zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt);
	static BgL_bbvzd2rangezd2_bglt BGl_za2vlenzd2rangeza2zd2zzsaw_bbvzd2rangezd2;
	BGL_EXPORTED_DECL obj_t BGl_minrvz00zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	static obj_t BGl_z62zc3z04anonymousza32251ze3ze5zzsaw_bbvzd2rangezd2(obj_t,
		obj_t);
	static obj_t BGl_zd2ze3rangez31zzsaw_bbvzd2rangezd2(obj_t);
	static obj_t BGl_z62bbvzd2singletonzf3z43zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2addz62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	extern obj_t BGl_za2intzd2ze3longza2z31zzsaw_bbvzd2cachezd2;
	static obj_t BGl__minrvz00zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static obj_t BGl_maxrvzd2lozd2zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zzsaw_bbvzd2rangezd2(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzsaw_bbvzd2typeszd2(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzsaw_bbvzd2cachezd2(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzsaw_bbvzd2configzd2(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzsaw_bbvzd2debugzd2(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzsaw_regsetz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzsaw_defsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztools_shapez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_cachez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_nodez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzast_varz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	BGL_IMPORT obj_t
		BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__configurez00(long,
		char *);
	static obj_t BGl_z62shapezd2bbvzd2range1551z62zzsaw_bbvzd2rangezd2(obj_t,
		obj_t);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2subz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	BGL_EXPORTED_DECL obj_t
		BGl_bbvzd2rangezc3zd3zc2zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62fixnumzd2ze3rangez53zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2eqz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2intersectionz62zzsaw_bbvzd2rangezd2(obj_t, obj_t,
		obj_t);
	BGL_IMPORT bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
	static BgL_bbvzd2rangezd2_bglt BGl_z62lambda2227z62zzsaw_bbvzd2rangezd2(obj_t,
		obj_t, obj_t);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62lambda2229z62zzsaw_bbvzd2rangezd2(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_bbvzd2rangeze3zd3ze2zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	static obj_t BGl_z62lambda2235z62zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static obj_t BGl_z62lambda2236z62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	static obj_t BGl_cnstzd2initzd2zzsaw_bbvzd2rangezd2(void);
	static obj_t BGl_libraryzd2moduleszd2initz00zzsaw_bbvzd2rangezd2(void);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2gtz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	BGL_IMPORT obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t,
		long, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zzsaw_bbvzd2rangezd2(void);
	static obj_t BGl_z62lambda2240z62zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static obj_t BGl_gczd2rootszd2initz00zzsaw_bbvzd2rangezd2(void);
	static obj_t BGl_z62lambda2241z62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	static BgL_bbvzd2vlenzd2_bglt BGl_z62lambda2247z62zzsaw_bbvzd2rangezd2(obj_t,
		obj_t, obj_t);
	static BgL_bbvzd2vlenzd2_bglt BGl_z62lambda2249z62zzsaw_bbvzd2rangezd2(obj_t);
	BGL_EXPORTED_DECL bool_t BGl_bbvzd2singletonzf3z21zzsaw_bbvzd2rangezd2(obj_t);
	static obj_t BGl_z62lambda2255z62zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static obj_t BGl_z62lambda2256z62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_IMPORT obj_t BGl_objectz00zz__objectz00;
	extern obj_t BGl_za2bintzd2ze3longza2z31zzsaw_bbvzd2cachezd2;
	BGL_IMPORT obj_t BGl_bigloozd2configzd2zz__configurez00(obj_t);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2ltez62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	static obj_t BGl_z62emptyzd2rangezf3z43zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static obj_t BGl_z62lambda2260z62zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static obj_t BGl_z62lambda2261z62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_IMPORT obj_t BGl_2maxz00zz__r4_numbers_6_5z00(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2neqz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	static obj_t BGl_z62bbvzd2vlenzd2vecz62zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	static obj_t BGl_minrvzd2upzd2zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2gtez00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	static obj_t BGl_z62bbvzd2rangezd2fixnumzf3z91zzsaw_bbvzd2rangezd2(obj_t,
		obj_t);
	extern obj_t BGl_za2bintza2z00zztype_cachez00;
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2ltz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	BGL_IMPORT obj_t BGl_genericzd2addzd2methodz12z12zz__objectz00(obj_t, obj_t,
		obj_t, obj_t);
	static obj_t BGl_strze70ze7zzsaw_bbvzd2rangezd2(obj_t);
	static obj_t BGl_z62bbvzd2rangezc3zd3za0zzsaw_bbvzd2rangezd2(obj_t, obj_t,
		obj_t);
	static BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2mulz62zzsaw_bbvzd2rangezd2(obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_bbvzd2rangezc3z11zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	BGL_EXPORTED_DECL obj_t
		BGl_bbvzd2rangezd3z01zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	BGL_EXPORTED_DECL obj_t
		BGl_bbvzd2rangeze3z31zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	BGL_EXPORTED_DECL bool_t BGl_bbvzd2rangezf3z21zzsaw_bbvzd2rangezd2(obj_t);
	extern bool_t
		BGl_rtl_inszd2movzf3z21zzsaw_bbvzd2typeszd2(BgL_rtl_insz00_bglt);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2addz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt,
		BgL_bbvzd2rangezd2_bglt);
	static obj_t BGl_z62bbvzd2rangeze3zd3z80zzsaw_bbvzd2rangezd2(obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL bool_t BGl_rangezd2typezf3z21zzsaw_bbvzd2rangezd2(obj_t);
	static BgL_bbvzd2rangezd2_bglt
		BGl_za2fixnumzd2rangeza2zd2zzsaw_bbvzd2rangezd2;
	BGL_IMPORT bool_t BGl_2ze3zd3z30zz__r4_numbers_6_5z00(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_fixnumzd2rangezd2zzsaw_bbvzd2rangezd2(void);
	static obj_t BGl_z62bbvzd2rangezc3z73zzsaw_bbvzd2rangezd2(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62bbvzd2rangezd3z63zzsaw_bbvzd2rangezd2(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62bbvzd2rangeze3z53zzsaw_bbvzd2rangezd2(obj_t, obj_t,
		obj_t);
	static obj_t BGl_z62bbvzd2rangezf3z43zzsaw_bbvzd2rangezd2(obj_t, obj_t);
	BGL_EXPORTED_DECL BgL_bbvzd2rangezd2_bglt
		BGl_fixnumzd2ze3rangez31zzsaw_bbvzd2rangezd2(long);
	static obj_t BGl_zb2zb2z00zzsaw_bbvzd2rangezd2(obj_t);
	static obj_t __cnst[11];


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_vlenzd2rangezd2envz00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762vlenza7d2rangeza72566za7,
		BGl_z62vlenzd2rangezb0zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_fixnumzd2rangezd2envz00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762fixnumza7d2rang2567z00,
		BGl_z62fixnumzd2rangezb0zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 0);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_maxrvzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl__maxrvza700za7za7saw_b2568za7, opt_generic_entry,
		BGl__maxrvz00zzsaw_bbvzd2rangezd2, BFALSE, -1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2mulzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2569za7,
		BGl_z62bbvzd2rangezd2mulz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2minzd2fixnumzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2minza7d2f2570za7,
		BGl_z62bbvzd2minzd2fixnumz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_bbvzd2rangeze3zd2envze3zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7e2571za7,
		BGl_z62bbvzd2rangeze3z53zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2addzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2572za7,
		BGl_z62bbvzd2rangezd2addz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2gtzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2573za7,
		BGl_z62bbvzd2rangezd2gtz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2vlenzd2veczd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2vlenza7d22574za7,
		BGl_z62bbvzd2vlenzd2vecz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezc3zd3zd2envz10zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7c2575za7,
		BGl_z62bbvzd2rangezc3zd3za0zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
#define BGl_real2525z00zzsaw_bbvzd2rangezd2 bigloo_infinity
#define BGl_real2526z00zzsaw_bbvzd2rangezd2 bigloo_minfinity
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_bbvzd2rangezf3zd2envzf3zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7f2576za7,
		BGl_z62bbvzd2rangezf3z43zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2527z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2527za700za7za7s2577za7,
		"/tmp/bigloo/comptime/SawBbv/bbv-range.scm", 41);
	      DEFINE_STRING(BGl_string2528z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2528za700za7za7s2578za7, "-rv", 3);
	      DEFINE_STRING(BGl_string2529z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2529za700za7za7s2579za7, "bbv-vlen", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2intersectionzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2580za7,
		BGl_z62bbvzd2rangezd2intersectionz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_rangezd2typezf3zd2envzf3zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762rangeza7d2typeza72581za7,
		BGl_z62rangezd2typezf3z43zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_emptyzd2rangezf3zd2envzf3zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762emptyza7d2range2582z00,
		BGl_z62emptyzd2rangezf3z43zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2fixnumzf3zd2envz21zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2583za7,
		BGl_z62bbvzd2rangezd2fixnumzf3z91zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2530z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2236za7622584z00,
		BGl_z62lambda2236z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2531z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2235za7622585z00,
		BGl_z62lambda2235z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2532z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2241za7622586z00,
		BGl_z62lambda2241z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2533z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2240za7622587z00,
		BGl_z62lambda2240z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2534z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762za7c3za704anonymo2588za7,
		BGl_z62zc3z04anonymousza32231ze3ze5zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2535z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2229za7622589z00,
		BGl_z62lambda2229z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2536z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2227za7622590z00,
		BGl_z62lambda2227z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2537z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2256za7622591z00,
		BGl_z62lambda2256z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2538z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2255za7622592z00,
		BGl_z62lambda2255z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2545z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2545za700za7za7s2593za7, "object-print", 12);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2539z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2261za7622594z00,
		BGl_z62lambda2261z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	extern obj_t BGl_shapezd2envzd2zztools_shapez00;
	   
		 
		DEFINE_STRING(BGl_string2547z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2547za700za7za7s2595za7, "shape", 5);
	      DEFINE_STRING(BGl_string2548z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2548za700za7za7s2596za7, "[empty]", 7);
	      DEFINE_STRING(BGl_string2549z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2549za700za7za7s2597za7, "[~a..~a]", 8);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2540z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2260za7622598z00,
		BGl_z62lambda2260z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2541z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762za7c3za704anonymo2599za7,
		BGl_z62zc3z04anonymousza32251ze3ze5zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2542z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2249za7622600z00,
		BGl_z62lambda2249z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 0);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2543z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762lambda2247za7622601z00,
		BGl_z62lambda2247z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2550z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2550za700za7za7s2602za7, "#(~a ~a)", 8);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2544z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762objectza7d2prin2603z00,
		BGl_z62objectzd2printzd2bbvzd2vle1529zb0zzsaw_bbvzd2rangezd2, 0L, BUNSPEC,
		3);
	      DEFINE_STRING(BGl_string2551z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2551za700za7za7s2604za7, "upfx", 4);
	      DEFINE_STRING(BGl_string2552z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2552za700za7za7s2605za7, "upfx-1", 6);
	      DEFINE_STATIC_BGL_PROCEDURE(BGl_proc2546z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762shapeza7d2bbvza7d2606za7,
		BGl_z62shapezd2bbvzd2range1551z62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2553z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2553za700za7za7s2607za7, "upfx-~a", 7);
	      DEFINE_STRING(BGl_string2554z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2554za700za7za7s2608za7, "lofx", 4);
	      DEFINE_STRING(BGl_string2555z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2555za700za7za7s2609za7, "lofx+1", 6);
	      DEFINE_STRING(BGl_string2556z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2556za700za7za7s2610za7, "lofx+2", 6);
	      DEFINE_STRING(BGl_string2557z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2557za700za7za7s2611za7, "lofx+~a", 7);
	      DEFINE_STRING(BGl_string2558z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2558za700za7za7s2612za7, "-inf", 4);
	      DEFINE_STRING(BGl_string2559z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2559za700za7za7s2613za7, "+inf", 4);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2neqzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2614za7,
		BGl_z62bbvzd2rangezd2neqz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2560za700za7za7s2615za7, "saw_bbv-range", 13);
	      DEFINE_STRING(BGl_string2561z00zzsaw_bbvzd2rangezd2,
		BgL_bgl_string2561za700za7za7s2616za7,
		"bbv-vlen int offset vec saw_bbv-range bbv-range up obj lo #z1 int-size ",
		71);
	BGL_IMPORT obj_t BGl_objectzd2printzd2envz00zz__objectz00;
	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2vlenzd2offsetzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2vlenza7d22617za7,
		BGl_z62bbvzd2vlenzd2offsetz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2eqzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2618za7,
		BGl_z62bbvzd2rangezd2eqz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangeze3zd3zd2envz30zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7e2619za7,
		BGl_z62bbvzd2rangeze3zd3z80zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2maxzd2fixnumzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2maxza7d2f2620za7,
		BGl_z62bbvzd2maxzd2fixnumz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 0);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_bbvzd2vlenzf3zd2envzf3zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2vlenza7f32621za7,
		BGl_z62bbvzd2vlenzf3z43zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_rtlzd2rangezd2envz00zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762rtlza7d2rangeza7b2622za7,
		BGl_z62rtlzd2rangezb0zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2singletonzf3zd2envzf3zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2singlet2623z00,
		BGl_z62bbvzd2singletonzf3z43zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_fixnumzd2ze3rangezd2envze3zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762fixnumza7d2za7e3r2624za7,
		BGl_z62fixnumzd2ze3rangez53zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2ltezd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2625za7,
		BGl_z62bbvzd2rangezd2ltez62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_bbvzd2rangezc3zd2envzc3zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7c2626za7,
		BGl_z62bbvzd2rangezc3z73zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2gtezd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2627za7,
		BGl_z62bbvzd2rangezd2gtez62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2ltzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2628za7,
		BGl_z62bbvzd2rangezd2ltz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_bbvzd2rangezd2subzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2629za7,
		BGl_z62bbvzd2rangezd2subz62zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_minrvzd2envzd2zzsaw_bbvzd2rangezd2,
		BgL_bgl__minrvza700za7za7saw_b2630za7, opt_generic_entry,
		BGl__minrvz00zzsaw_bbvzd2rangezd2, BFALSE, -1);
	      DEFINE_EXPORT_BGL_PROCEDURE(BGl_zd3rvzd2envz01zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762za7d3rvza7b1za7za7saw2631za7,
		BGl_z62zd3rvzb1zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE(BGl_bbvzd2rangezd3zd2envzd3zzsaw_bbvzd2rangezd2,
		BgL_bgl_za762bbvza7d2rangeza7d2632za7,
		BGl_z62bbvzd2rangezd3z63zzsaw_bbvzd2rangezd2, 0L, BUNSPEC, 2);

/* GC roots registration */
	static obj_t bgl_gc_roots_register()
	{
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
		void *roots_min = (void *) ULONG_MAX, *roots_max = 0;
		   
			 ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zzsaw_bbvzd2rangezd2));
		     ADD_ROOT((void *) (&BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2));
		     ADD_ROOT((void *) (&BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2));
		     ADD_ROOT((void *) (&BGl_za2vlenzd2rangeza2zd2zzsaw_bbvzd2rangezd2));
		     ADD_ROOT((void *) (&BGl_za2fixnumzd2rangeza2zd2zzsaw_bbvzd2rangezd2));
#undef ADD_ROOT
		if   (roots_max > 0)
			     GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		     return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t
		BGl_modulezd2initializa7ationz75zzsaw_bbvzd2rangezd2(long
		BgL_checksumz00_6025, char *BgL_fromz00_6026)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zzsaw_bbvzd2rangezd2))
				{
					BGl_requirezd2initializa7ationz75zzsaw_bbvzd2rangezd2 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zzsaw_bbvzd2rangezd2();
					BGl_libraryzd2moduleszd2initz00zzsaw_bbvzd2rangezd2();
					BGl_cnstzd2initzd2zzsaw_bbvzd2rangezd2();
					BGl_importedzd2moduleszd2initz00zzsaw_bbvzd2rangezd2();
					BGl_objectzd2initzd2zzsaw_bbvzd2rangezd2();
					BGl_methodzd2initzd2zzsaw_bbvzd2rangezd2();
					return BGl_toplevelzd2initzd2zzsaw_bbvzd2rangezd2();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* library-modules-init */
	obj_t BGl_libraryzd2moduleszd2initz00zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 15 */
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(0L,
				"saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(0L,
				"saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__errorz00(0L, "saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__objectz00(0L, "saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__readerz00(0L, "saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(0L,
				"saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__configurez00(0L, "saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(0L,
				"saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(0L,
				"saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(0L,
				"saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__biglooz00(0L, "saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(0L,
				"saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(0L,
				"saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__bitz00(0L, "saw_bbv-range");
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(0L,
				"saw_bbv-range");
			return BUNSPEC;
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 15 */
			{	/* SawBbv/bbv-range.scm 15 */
				obj_t BgL_cportz00_5945;

				{	/* SawBbv/bbv-range.scm 15 */
					obj_t BgL_stringz00_5952;

					BgL_stringz00_5952 = BGl_string2561z00zzsaw_bbvzd2rangezd2;
					{	/* SawBbv/bbv-range.scm 15 */
						obj_t BgL_startz00_5953;

						BgL_startz00_5953 = BINT(0L);
						{	/* SawBbv/bbv-range.scm 15 */
							obj_t BgL_endz00_5954;

							BgL_endz00_5954 =
								BINT(STRING_LENGTH(((obj_t) BgL_stringz00_5952)));
							{	/* SawBbv/bbv-range.scm 15 */

								BgL_cportz00_5945 =
									BGl_openzd2inputzd2stringz12z12zz__r4_ports_6_10_1z00
									(BgL_stringz00_5952, BgL_startz00_5953, BgL_endz00_5954);
				}}}}
				{
					long BgL_iz00_5946;

					BgL_iz00_5946 = 10L;
				BgL_loopz00_5947:
					if ((BgL_iz00_5946 == -1L))
						{	/* SawBbv/bbv-range.scm 15 */
							return BUNSPEC;
						}
					else
						{	/* SawBbv/bbv-range.scm 15 */
							{	/* SawBbv/bbv-range.scm 15 */
								obj_t BgL_arg2565z00_5948;

								{	/* SawBbv/bbv-range.scm 15 */

									{	/* SawBbv/bbv-range.scm 15 */
										obj_t BgL_locationz00_5950;

										BgL_locationz00_5950 = BBOOL(((bool_t) 0));
										{	/* SawBbv/bbv-range.scm 15 */

											BgL_arg2565z00_5948 =
												BGl_readz00zz__readerz00(BgL_cportz00_5945,
												BgL_locationz00_5950);
										}
									}
								}
								{	/* SawBbv/bbv-range.scm 15 */
									int BgL_tmpz00_6061;

									BgL_tmpz00_6061 = (int) (BgL_iz00_5946);
									CNST_TABLE_SET(BgL_tmpz00_6061, BgL_arg2565z00_5948);
							}}
							{	/* SawBbv/bbv-range.scm 15 */
								int BgL_auxz00_5951;

								BgL_auxz00_5951 = (int) ((BgL_iz00_5946 - 1L));
								{
									long BgL_iz00_6066;

									BgL_iz00_6066 = (long) (BgL_auxz00_5951);
									BgL_iz00_5946 = BgL_iz00_6066;
									goto BgL_loopz00_5947;
								}
							}
						}
				}
			}
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 15 */
			{	/* SawBbv/bbv-range.scm 357 */
				BgL_bbvzd2rangezd2_bglt BgL_new1209z00_1932;

				{	/* SawBbv/bbv-range.scm 358 */
					BgL_bbvzd2rangezd2_bglt BgL_new1208z00_1933;

					BgL_new1208z00_1933 =
						((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_bbvzd2rangezd2_bgl))));
					{	/* SawBbv/bbv-range.scm 358 */
						long BgL_arg1554z00_1934;

						BgL_arg1554z00_1934 =
							BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1208z00_1933), BgL_arg1554z00_1934);
					}
					BgL_new1209z00_1932 = BgL_new1208z00_1933;
				}
				{
					obj_t BgL_auxz00_6073;

					{	/* SawBbv/bbv-range.scm 244 */
						long BgL_arg1771z00_3230;

						{	/* SawBbv/bbv-range.scm 244 */
							long BgL_arg1773z00_3231;

							{	/* SawBbv/bbv-range.scm 242 */
								long BgL_arg1763z00_3232;

								{	/* SawBbv/bbv-range.scm 242 */
									obj_t BgL_arg1768z00_3233;

									BgL_arg1768z00_3233 =
										BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF(0L));
									BgL_arg1763z00_3232 = ((long) CINT(BgL_arg1768z00_3233) - 2L);
								}
								BgL_arg1773z00_3231 = (1L << (int) (BgL_arg1763z00_3232));
							}
							BgL_arg1771z00_3230 = NEG(BgL_arg1773z00_3231);
						}
						BgL_auxz00_6073 = BINT((BgL_arg1771z00_3230 - 1L));
					}
					((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1209z00_1932))->
							BgL_loz00) = ((obj_t) BgL_auxz00_6073), BUNSPEC);
				}
				{
					obj_t BgL_auxz00_6084;

					{	/* SawBbv/bbv-range.scm 242 */
						long BgL_arg1763z00_3238;

						{	/* SawBbv/bbv-range.scm 242 */
							obj_t BgL_arg1768z00_3239;

							BgL_arg1768z00_3239 =
								BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF(0L));
							BgL_arg1763z00_3238 = ((long) CINT(BgL_arg1768z00_3239) - 2L);
						}
						BgL_auxz00_6084 = BINT((1L << (int) (BgL_arg1763z00_3238)));
					}
					((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1209z00_1932))->
							BgL_upz00) = ((obj_t) BgL_auxz00_6084), BUNSPEC);
				}
				BGl_za2fixnumzd2rangeza2zd2zzsaw_bbvzd2rangezd2 = BgL_new1209z00_1932;
			}
			{	/* SawBbv/bbv-range.scm 379 */
				BgL_bbvzd2rangezd2_bglt BgL_new1213z00_1935;

				{	/* SawBbv/bbv-range.scm 380 */
					BgL_bbvzd2rangezd2_bglt BgL_new1212z00_1936;

					BgL_new1212z00_1936 =
						((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_bbvzd2rangezd2_bgl))));
					{	/* SawBbv/bbv-range.scm 380 */
						long BgL_arg1555z00_1937;

						BgL_arg1555z00_1937 =
							BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1212z00_1936), BgL_arg1555z00_1937);
					}
					BgL_new1213z00_1935 = BgL_new1212z00_1936;
				}
				((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1213z00_1935))->BgL_loz00) =
					((obj_t) BINT(0L)), BUNSPEC);
				{
					obj_t BgL_auxz00_6099;

					{	/* SawBbv/bbv-range.scm 242 */
						long BgL_arg1763z00_3245;

						{	/* SawBbv/bbv-range.scm 242 */
							obj_t BgL_arg1768z00_3246;

							BgL_arg1768z00_3246 =
								BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF(0L));
							BgL_arg1763z00_3245 = ((long) CINT(BgL_arg1768z00_3246) - 2L);
						}
						BgL_auxz00_6099 = BINT((1L << (int) (BgL_arg1763z00_3245)));
					}
					((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1213z00_1935))->
							BgL_upz00) = ((obj_t) BgL_auxz00_6099), BUNSPEC);
				}
				return (BGl_za2vlenzd2rangeza2zd2zzsaw_bbvzd2rangezd2 =
					BgL_new1213z00_1935, BUNSPEC);
			}
		}

	}



/* bbv-vlen? */
	BGL_EXPORTED_DEF bool_t BGl_bbvzd2vlenzf3z21zzsaw_bbvzd2rangezd2(obj_t
		BgL_oz00_6)
	{
		{	/* SawBbv/bbv-range.scm 83 */
			{	/* SawBbv/bbv-range.scm 84 */
				obj_t BgL_classz00_5956;

				BgL_classz00_5956 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
				if (BGL_OBJECTP(BgL_oz00_6))
					{	/* SawBbv/bbv-range.scm 84 */
						BgL_objectz00_bglt BgL_arg1801z00_5957;

						BgL_arg1801z00_5957 = (BgL_objectz00_bglt) (BgL_oz00_6);
						if (BGL_CONDEXPAND_ISA_ARCH64())
							{	/* SawBbv/bbv-range.scm 84 */
								long BgL_idxz00_5958;

								BgL_idxz00_5958 =
									BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5957);
								return
									(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
										(BgL_idxz00_5958 + 1L)) == BgL_classz00_5956);
							}
						else
							{	/* SawBbv/bbv-range.scm 84 */
								bool_t BgL_res2457z00_5961;

								{	/* SawBbv/bbv-range.scm 84 */
									obj_t BgL_oclassz00_5962;

									{	/* SawBbv/bbv-range.scm 84 */
										long BgL_arg1808z00_5963;

										{	/* SawBbv/bbv-range.scm 84 */
											long BgL_arg1809z00_5964;

											BgL_arg1809z00_5964 =
												BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5957);
											BgL_arg1808z00_5963 = (BgL_arg1809z00_5964 - OBJECT_TYPE);
										}
										BgL_oclassz00_5962 =
											VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
											BgL_arg1808z00_5963);
									}
									{	/* SawBbv/bbv-range.scm 84 */
										bool_t BgL__ortest_1115z00_5965;

										BgL__ortest_1115z00_5965 =
											(BgL_classz00_5956 == BgL_oclassz00_5962);
										if (BgL__ortest_1115z00_5965)
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_res2457z00_5961 = BgL__ortest_1115z00_5965;
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_odepthz00_5966;

												BgL_odepthz00_5966 =
													BGL_CLASS_DEPTH(BgL_oclassz00_5962);
												if ((1L < BgL_odepthz00_5966))
													{	/* SawBbv/bbv-range.scm 84 */
														obj_t BgL_arg1797z00_5967;

														BgL_arg1797z00_5967 =
															BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_5962, 1L);
														BgL_res2457z00_5961 =
															(BgL_arg1797z00_5967 == BgL_classz00_5956);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_res2457z00_5961 = ((bool_t) 0);
													}
											}
									}
								}
								return BgL_res2457z00_5961;
							}
					}
				else
					{	/* SawBbv/bbv-range.scm 84 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &bbv-vlen? */
	obj_t BGl_z62bbvzd2vlenzf3z43zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5811,
		obj_t BgL_oz00_5812)
	{
		{	/* SawBbv/bbv-range.scm 83 */
			return BBOOL(BGl_bbvzd2vlenzf3z21zzsaw_bbvzd2rangezd2(BgL_oz00_5812));
		}

	}



/* bbv-vlen-vec */
	BGL_EXPORTED_DEF obj_t
		BGl_bbvzd2vlenzd2vecz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2vlenzd2_bglt
		BgL_oz00_7)
	{
		{	/* SawBbv/bbv-range.scm 86 */
			return (((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_oz00_7))->BgL_vecz00);
		}

	}



/* &bbv-vlen-vec */
	obj_t BGl_z62bbvzd2vlenzd2vecz62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5813,
		obj_t BgL_oz00_5814)
	{
		{	/* SawBbv/bbv-range.scm 86 */
			return
				BGl_bbvzd2vlenzd2vecz00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2vlenzd2_bglt) BgL_oz00_5814));
		}

	}



/* bbv-vlen-offset */
	BGL_EXPORTED_DEF int
		BGl_bbvzd2vlenzd2offsetz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2vlenzd2_bglt
		BgL_oz00_8)
	{
		{	/* SawBbv/bbv-range.scm 89 */
			return (((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_oz00_8))->BgL_offsetz00);
		}

	}



/* &bbv-vlen-offset */
	obj_t BGl_z62bbvzd2vlenzd2offsetz62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5815,
		obj_t BgL_oz00_5816)
	{
		{	/* SawBbv/bbv-range.scm 89 */
			return
				BINT(BGl_bbvzd2vlenzd2offsetz00zzsaw_bbvzd2rangezd2(
					((BgL_bbvzd2vlenzd2_bglt) BgL_oz00_5816)));
		}

	}



/* =rv */
	BGL_EXPORTED_DEF obj_t BGl_zd3rvzd3zzsaw_bbvzd2rangezd2(obj_t BgL_xz00_11,
		obj_t BgL_yz00_12)
	{
		{	/* SawBbv/bbv-range.scm 98 */
			{	/* SawBbv/bbv-range.scm 100 */
				bool_t BgL_test2639z00_6136;

				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_xz00_11))
					{	/* SawBbv/bbv-range.scm 100 */
						BgL_test2639z00_6136 =
							BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_yz00_12);
					}
				else
					{	/* SawBbv/bbv-range.scm 100 */
						BgL_test2639z00_6136 = ((bool_t) 0);
					}
				if (BgL_test2639z00_6136)
					{	/* SawBbv/bbv-range.scm 101 */
						bool_t BgL_test2641z00_6140;

						if (INTEGERP(BgL_xz00_11))
							{	/* SawBbv/bbv-range.scm 101 */
								BgL_test2641z00_6140 = INTEGERP(BgL_yz00_12);
							}
						else
							{	/* SawBbv/bbv-range.scm 101 */
								BgL_test2641z00_6140 = ((bool_t) 0);
							}
						if (BgL_test2641z00_6140)
							{	/* SawBbv/bbv-range.scm 101 */
								return
									BBOOL(((long) CINT(BgL_xz00_11) == (long) CINT(BgL_yz00_12)));
							}
						else
							{	/* SawBbv/bbv-range.scm 101 */
								return
									BBOOL(BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_xz00_11,
										BgL_yz00_12));
							}
					}
				else
					{	/* SawBbv/bbv-range.scm 102 */
						bool_t BgL_test2643z00_6150;

						{	/* SawBbv/bbv-range.scm 93 */
							bool_t BgL_test2644z00_6151;

							{	/* SawBbv/bbv-range.scm 84 */
								obj_t BgL_classz00_3358;

								BgL_classz00_3358 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
								if (BGL_OBJECTP(BgL_xz00_11))
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_objectz00_bglt BgL_arg1801z00_3360;

										BgL_arg1801z00_3360 = (BgL_objectz00_bglt) (BgL_xz00_11);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_idxz00_3366;

												BgL_idxz00_3366 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3360);
												BgL_test2644z00_6151 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_3366 + 1L)) == BgL_classz00_3358);
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												bool_t BgL_res2460z00_3388;

												{	/* SawBbv/bbv-range.scm 84 */
													obj_t BgL_oclassz00_3374;

													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_arg1808z00_3380;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1809z00_3381;

															BgL_arg1809z00_3381 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3360);
															BgL_arg1808z00_3380 =
																(BgL_arg1809z00_3381 - OBJECT_TYPE);
														}
														BgL_oclassz00_3374 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_3380);
													}
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL__ortest_1115z00_3375;

														BgL__ortest_1115z00_3375 =
															(BgL_classz00_3358 == BgL_oclassz00_3374);
														if (BgL__ortest_1115z00_3375)
															{	/* SawBbv/bbv-range.scm 84 */
																BgL_res2460z00_3388 = BgL__ortest_1115z00_3375;
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_odepthz00_3376;

																BgL_odepthz00_3376 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_3374);
																if ((1L < BgL_odepthz00_3376))
																	{	/* SawBbv/bbv-range.scm 84 */
																		obj_t BgL_arg1797z00_3378;

																		BgL_arg1797z00_3378 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_3374, 1L);
																		BgL_res2460z00_3388 =
																			(BgL_arg1797z00_3378 ==
																			BgL_classz00_3358);
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2460z00_3388 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2644z00_6151 = BgL_res2460z00_3388;
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_test2644z00_6151 = ((bool_t) 0);
									}
							}
							if (BgL_test2644z00_6151)
								{	/* SawBbv/bbv-range.scm 93 */
									bool_t BgL_test2649z00_6171;

									{	/* SawBbv/bbv-range.scm 84 */
										obj_t BgL_classz00_3389;

										BgL_classz00_3389 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
										if (BGL_OBJECTP(BgL_yz00_12))
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_objectz00_bglt BgL_arg1801z00_3391;

												BgL_arg1801z00_3391 =
													(BgL_objectz00_bglt) (BgL_yz00_12);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_idxz00_3397;

														BgL_idxz00_3397 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3391);
														BgL_test2649z00_6171 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_3397 + 1L)) == BgL_classz00_3389);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL_res2461z00_3419;

														{	/* SawBbv/bbv-range.scm 84 */
															obj_t BgL_oclassz00_3405;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1808z00_3411;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1809z00_3412;

																	BgL_arg1809z00_3412 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3391);
																	BgL_arg1808z00_3411 =
																		(BgL_arg1809z00_3412 - OBJECT_TYPE);
																}
																BgL_oclassz00_3405 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_3411);
															}
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL__ortest_1115z00_3406;

																BgL__ortest_1115z00_3406 =
																	(BgL_classz00_3389 == BgL_oclassz00_3405);
																if (BgL__ortest_1115z00_3406)
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2461z00_3419 =
																			BgL__ortest_1115z00_3406;
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_odepthz00_3407;

																		BgL_odepthz00_3407 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_3405);
																		if ((1L < BgL_odepthz00_3407))
																			{	/* SawBbv/bbv-range.scm 84 */
																				obj_t BgL_arg1797z00_3409;

																				BgL_arg1797z00_3409 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_3405, 1L);
																				BgL_res2461z00_3419 =
																					(BgL_arg1797z00_3409 ==
																					BgL_classz00_3389);
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2461z00_3419 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2649z00_6171 = BgL_res2461z00_3419;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_test2649z00_6171 = ((bool_t) 0);
											}
									}
									if (BgL_test2649z00_6171)
										{	/* SawBbv/bbv-range.scm 93 */
											BgL_test2643z00_6150 =
												(
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
															((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_11)))->
													BgL_vecz00) ==
												(((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_12)))->
													BgL_vecz00));
										}
									else
										{	/* SawBbv/bbv-range.scm 93 */
											BgL_test2643z00_6150 = ((bool_t) 0);
										}
								}
							else
								{	/* SawBbv/bbv-range.scm 93 */
									BgL_test2643z00_6150 = ((bool_t) 0);
								}
						}
						if (BgL_test2643z00_6150)
							{	/* SawBbv/bbv-range.scm 102 */
								return
									BBOOL(
									((long) (
											(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
														((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_11)))->
												BgL_offsetz00)) ==
										(long) ((((BgL_bbvzd2vlenzd2_bglt)
													COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_12)))->
												BgL_offsetz00))));
							}
						else
							{	/* SawBbv/bbv-range.scm 104 */
								bool_t BgL_test2654z00_6204;

								if (INTEGERP(BgL_xz00_11))
									{	/* SawBbv/bbv-range.scm 84 */
										obj_t BgL_classz00_3430;

										BgL_classz00_3430 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
										if (BGL_OBJECTP(BgL_yz00_12))
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_objectz00_bglt BgL_arg1801z00_3432;

												BgL_arg1801z00_3432 =
													(BgL_objectz00_bglt) (BgL_yz00_12);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_idxz00_3438;

														BgL_idxz00_3438 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3432);
														BgL_test2654z00_6204 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_3438 + 1L)) == BgL_classz00_3430);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL_res2462z00_3460;

														{	/* SawBbv/bbv-range.scm 84 */
															obj_t BgL_oclassz00_3446;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1808z00_3452;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1809z00_3453;

																	BgL_arg1809z00_3453 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3432);
																	BgL_arg1808z00_3452 =
																		(BgL_arg1809z00_3453 - OBJECT_TYPE);
																}
																BgL_oclassz00_3446 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_3452);
															}
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL__ortest_1115z00_3447;

																BgL__ortest_1115z00_3447 =
																	(BgL_classz00_3430 == BgL_oclassz00_3446);
																if (BgL__ortest_1115z00_3447)
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2462z00_3460 =
																			BgL__ortest_1115z00_3447;
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_odepthz00_3448;

																		BgL_odepthz00_3448 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_3446);
																		if ((1L < BgL_odepthz00_3448))
																			{	/* SawBbv/bbv-range.scm 84 */
																				obj_t BgL_arg1797z00_3450;

																				BgL_arg1797z00_3450 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_3446, 1L);
																				BgL_res2462z00_3460 =
																					(BgL_arg1797z00_3450 ==
																					BgL_classz00_3430);
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2462z00_3460 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2654z00_6204 = BgL_res2462z00_3460;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_test2654z00_6204 = ((bool_t) 0);
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 104 */
										BgL_test2654z00_6204 = ((bool_t) 0);
									}
								if (BgL_test2654z00_6204)
									{	/* SawBbv/bbv-range.scm 104 */
										if (
											((long) CINT(BgL_xz00_11) <
												(long) (
													(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_12)))->
														BgL_offsetz00))))
											{	/* SawBbv/bbv-range.scm 105 */
												return BFALSE;
											}
										else
											{	/* SawBbv/bbv-range.scm 105 */
												return BUNSPEC;
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 106 */
										bool_t BgL_test2661z00_6232;

										{	/* SawBbv/bbv-range.scm 106 */
											bool_t BgL_test2662z00_6233;

											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_3465;

												BgL_classz00_3465 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_xz00_11))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_3467;

														BgL_arg1801z00_3467 =
															(BgL_objectz00_bglt) (BgL_xz00_11);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_3473;

																BgL_idxz00_3473 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_3467);
																BgL_test2662z00_6233 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_3473 + 1L)) ==
																	BgL_classz00_3465);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2463z00_3495;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_3481;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_3487;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_3488;

																			BgL_arg1809z00_3488 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_3467);
																			BgL_arg1808z00_3487 =
																				(BgL_arg1809z00_3488 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_3481 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_3487);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_3482;

																		BgL__ortest_1115z00_3482 =
																			(BgL_classz00_3465 == BgL_oclassz00_3481);
																		if (BgL__ortest_1115z00_3482)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2463z00_3495 =
																					BgL__ortest_1115z00_3482;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_3483;

																				BgL_odepthz00_3483 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_3481);
																				if ((1L < BgL_odepthz00_3483))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_3485;

																						BgL_arg1797z00_3485 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_3481, 1L);
																						BgL_res2463z00_3495 =
																							(BgL_arg1797z00_3485 ==
																							BgL_classz00_3465);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2463z00_3495 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2662z00_6233 = BgL_res2463z00_3495;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test2662z00_6233 = ((bool_t) 0);
													}
											}
											if (BgL_test2662z00_6233)
												{	/* SawBbv/bbv-range.scm 106 */
													BgL_test2661z00_6232 = INTEGERP(BgL_yz00_12);
												}
											else
												{	/* SawBbv/bbv-range.scm 106 */
													BgL_test2661z00_6232 = ((bool_t) 0);
												}
										}
										if (BgL_test2661z00_6232)
											{	/* SawBbv/bbv-range.scm 106 */
												if (
													((long) (
															(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																		((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_11)))->
																BgL_offsetz00)) > (long) CINT(BgL_yz00_12)))
													{	/* SawBbv/bbv-range.scm 107 */
														return BFALSE;
													}
												else
													{	/* SawBbv/bbv-range.scm 107 */
														return BUNSPEC;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 106 */
												return BUNSPEC;
											}
									}
							}
					}
			}
		}

	}



/* &=rv */
	obj_t BGl_z62zd3rvzb1zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5817,
		obj_t BgL_xz00_5818, obj_t BgL_yz00_5819)
	{
		{	/* SawBbv/bbv-range.scm 98 */
			return BGl_zd3rvzd3zzsaw_bbvzd2rangezd2(BgL_xz00_5818, BgL_yz00_5819);
		}

	}



/* >rv */
	obj_t BGl_ze3rvze3zzsaw_bbvzd2rangezd2(obj_t BgL_xz00_13, obj_t BgL_yz00_14)
	{
		{	/* SawBbv/bbv-range.scm 114 */
			{	/* SawBbv/bbv-range.scm 116 */
				bool_t BgL_test2668z00_6261;

				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_xz00_13))
					{	/* SawBbv/bbv-range.scm 116 */
						BgL_test2668z00_6261 =
							BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_yz00_14);
					}
				else
					{	/* SawBbv/bbv-range.scm 116 */
						BgL_test2668z00_6261 = ((bool_t) 0);
					}
				if (BgL_test2668z00_6261)
					{	/* SawBbv/bbv-range.scm 117 */
						bool_t BgL_test2670z00_6265;

						if (INTEGERP(BgL_xz00_13))
							{	/* SawBbv/bbv-range.scm 117 */
								BgL_test2670z00_6265 = INTEGERP(BgL_yz00_14);
							}
						else
							{	/* SawBbv/bbv-range.scm 117 */
								BgL_test2670z00_6265 = ((bool_t) 0);
							}
						if (BgL_test2670z00_6265)
							{	/* SawBbv/bbv-range.scm 117 */
								return
									BBOOL(((long) CINT(BgL_xz00_13) > (long) CINT(BgL_yz00_14)));
							}
						else
							{	/* SawBbv/bbv-range.scm 117 */
								return
									BBOOL(BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_13,
										BgL_yz00_14));
							}
					}
				else
					{	/* SawBbv/bbv-range.scm 118 */
						bool_t BgL_test2672z00_6275;

						{	/* SawBbv/bbv-range.scm 93 */
							bool_t BgL_test2673z00_6276;

							{	/* SawBbv/bbv-range.scm 84 */
								obj_t BgL_classz00_3506;

								BgL_classz00_3506 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
								if (BGL_OBJECTP(BgL_xz00_13))
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_objectz00_bglt BgL_arg1801z00_3508;

										BgL_arg1801z00_3508 = (BgL_objectz00_bglt) (BgL_xz00_13);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_idxz00_3514;

												BgL_idxz00_3514 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3508);
												BgL_test2673z00_6276 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_3514 + 1L)) == BgL_classz00_3506);
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												bool_t BgL_res2464z00_3536;

												{	/* SawBbv/bbv-range.scm 84 */
													obj_t BgL_oclassz00_3522;

													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_arg1808z00_3528;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1809z00_3529;

															BgL_arg1809z00_3529 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3508);
															BgL_arg1808z00_3528 =
																(BgL_arg1809z00_3529 - OBJECT_TYPE);
														}
														BgL_oclassz00_3522 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_3528);
													}
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL__ortest_1115z00_3523;

														BgL__ortest_1115z00_3523 =
															(BgL_classz00_3506 == BgL_oclassz00_3522);
														if (BgL__ortest_1115z00_3523)
															{	/* SawBbv/bbv-range.scm 84 */
																BgL_res2464z00_3536 = BgL__ortest_1115z00_3523;
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_odepthz00_3524;

																BgL_odepthz00_3524 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_3522);
																if ((1L < BgL_odepthz00_3524))
																	{	/* SawBbv/bbv-range.scm 84 */
																		obj_t BgL_arg1797z00_3526;

																		BgL_arg1797z00_3526 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_3522, 1L);
																		BgL_res2464z00_3536 =
																			(BgL_arg1797z00_3526 ==
																			BgL_classz00_3506);
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2464z00_3536 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2673z00_6276 = BgL_res2464z00_3536;
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_test2673z00_6276 = ((bool_t) 0);
									}
							}
							if (BgL_test2673z00_6276)
								{	/* SawBbv/bbv-range.scm 93 */
									bool_t BgL_test2678z00_6296;

									{	/* SawBbv/bbv-range.scm 84 */
										obj_t BgL_classz00_3537;

										BgL_classz00_3537 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
										if (BGL_OBJECTP(BgL_yz00_14))
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_objectz00_bglt BgL_arg1801z00_3539;

												BgL_arg1801z00_3539 =
													(BgL_objectz00_bglt) (BgL_yz00_14);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_idxz00_3545;

														BgL_idxz00_3545 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3539);
														BgL_test2678z00_6296 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_3545 + 1L)) == BgL_classz00_3537);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL_res2465z00_3567;

														{	/* SawBbv/bbv-range.scm 84 */
															obj_t BgL_oclassz00_3553;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1808z00_3559;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1809z00_3560;

																	BgL_arg1809z00_3560 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3539);
																	BgL_arg1808z00_3559 =
																		(BgL_arg1809z00_3560 - OBJECT_TYPE);
																}
																BgL_oclassz00_3553 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_3559);
															}
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL__ortest_1115z00_3554;

																BgL__ortest_1115z00_3554 =
																	(BgL_classz00_3537 == BgL_oclassz00_3553);
																if (BgL__ortest_1115z00_3554)
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2465z00_3567 =
																			BgL__ortest_1115z00_3554;
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_odepthz00_3555;

																		BgL_odepthz00_3555 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_3553);
																		if ((1L < BgL_odepthz00_3555))
																			{	/* SawBbv/bbv-range.scm 84 */
																				obj_t BgL_arg1797z00_3557;

																				BgL_arg1797z00_3557 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_3553, 1L);
																				BgL_res2465z00_3567 =
																					(BgL_arg1797z00_3557 ==
																					BgL_classz00_3537);
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2465z00_3567 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2678z00_6296 = BgL_res2465z00_3567;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_test2678z00_6296 = ((bool_t) 0);
											}
									}
									if (BgL_test2678z00_6296)
										{	/* SawBbv/bbv-range.scm 93 */
											BgL_test2672z00_6275 =
												(
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
															((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_13)))->
													BgL_vecz00) ==
												(((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_14)))->
													BgL_vecz00));
										}
									else
										{	/* SawBbv/bbv-range.scm 93 */
											BgL_test2672z00_6275 = ((bool_t) 0);
										}
								}
							else
								{	/* SawBbv/bbv-range.scm 93 */
									BgL_test2672z00_6275 = ((bool_t) 0);
								}
						}
						if (BgL_test2672z00_6275)
							{	/* SawBbv/bbv-range.scm 118 */
								return
									BBOOL(
									((long) (
											(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
														((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_13)))->
												BgL_offsetz00)) >
										(long) ((((BgL_bbvzd2vlenzd2_bglt)
													COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_14)))->
												BgL_offsetz00))));
							}
						else
							{	/* SawBbv/bbv-range.scm 120 */
								bool_t BgL_test2683z00_6329;

								{	/* SawBbv/bbv-range.scm 120 */
									bool_t BgL_test2684z00_6330;

									{	/* SawBbv/bbv-range.scm 84 */
										obj_t BgL_classz00_3578;

										BgL_classz00_3578 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
										if (BGL_OBJECTP(BgL_xz00_13))
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_objectz00_bglt BgL_arg1801z00_3580;

												BgL_arg1801z00_3580 =
													(BgL_objectz00_bglt) (BgL_xz00_13);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_idxz00_3586;

														BgL_idxz00_3586 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3580);
														BgL_test2684z00_6330 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_3586 + 1L)) == BgL_classz00_3578);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL_res2466z00_3608;

														{	/* SawBbv/bbv-range.scm 84 */
															obj_t BgL_oclassz00_3594;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1808z00_3600;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1809z00_3601;

																	BgL_arg1809z00_3601 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3580);
																	BgL_arg1808z00_3600 =
																		(BgL_arg1809z00_3601 - OBJECT_TYPE);
																}
																BgL_oclassz00_3594 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_3600);
															}
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL__ortest_1115z00_3595;

																BgL__ortest_1115z00_3595 =
																	(BgL_classz00_3578 == BgL_oclassz00_3594);
																if (BgL__ortest_1115z00_3595)
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2466z00_3608 =
																			BgL__ortest_1115z00_3595;
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_odepthz00_3596;

																		BgL_odepthz00_3596 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_3594);
																		if ((1L < BgL_odepthz00_3596))
																			{	/* SawBbv/bbv-range.scm 84 */
																				obj_t BgL_arg1797z00_3598;

																				BgL_arg1797z00_3598 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_3594, 1L);
																				BgL_res2466z00_3608 =
																					(BgL_arg1797z00_3598 ==
																					BgL_classz00_3578);
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2466z00_3608 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2684z00_6330 = BgL_res2466z00_3608;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_test2684z00_6330 = ((bool_t) 0);
											}
									}
									if (BgL_test2684z00_6330)
										{	/* SawBbv/bbv-range.scm 120 */
											BgL_test2683z00_6329 = INTEGERP(BgL_yz00_14);
										}
									else
										{	/* SawBbv/bbv-range.scm 120 */
											BgL_test2683z00_6329 = ((bool_t) 0);
										}
								}
								if (BgL_test2683z00_6329)
									{	/* SawBbv/bbv-range.scm 120 */
										if (
											((long) (
													(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_13)))->
														BgL_offsetz00)) > (long) CINT(BgL_yz00_14)))
											{	/* SawBbv/bbv-range.scm 121 */
												return BTRUE;
											}
										else
											{	/* SawBbv/bbv-range.scm 123 */
												bool_t BgL_test2690z00_6357;

												{	/* SawBbv/bbv-range.scm 123 */
													long BgL_a1504z00_1986;

													{	/* SawBbv/bbv-range.scm 123 */
														long BgL_arg1616z00_1988;
														int BgL_arg1620z00_1989;

														{	/* SawBbv/bbv-range.scm 242 */
															long BgL_arg1763z00_3613;

															{	/* SawBbv/bbv-range.scm 242 */
																obj_t BgL_arg1768z00_3614;

																BgL_arg1768z00_3614 =
																	BGl_bigloozd2configzd2zz__configurez00
																	(CNST_TABLE_REF(0L));
																BgL_arg1763z00_3613 =
																	((long) CINT(BgL_arg1768z00_3614) - 2L);
															}
															BgL_arg1616z00_1988 =
																(1L << (int) (BgL_arg1763z00_3613));
														}
														BgL_arg1620z00_1989 =
															(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																	((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_13)))->
															BgL_offsetz00);
														BgL_a1504z00_1986 =
															(BgL_arg1616z00_1988 +
															(long) (BgL_arg1620z00_1989));
													}
													BgL_test2690z00_6357 =
														(BgL_a1504z00_1986 <= (long) CINT(BgL_yz00_14));
												}
												if (BgL_test2690z00_6357)
													{	/* SawBbv/bbv-range.scm 123 */
														return BFALSE;
													}
												else
													{	/* SawBbv/bbv-range.scm 123 */
														return BUNSPEC;
													}
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 126 */
										bool_t BgL_test2691z00_6370;

										if (INTEGERP(BgL_xz00_13))
											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_3623;

												BgL_classz00_3623 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_yz00_14))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_3625;

														BgL_arg1801z00_3625 =
															(BgL_objectz00_bglt) (BgL_yz00_14);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_3631;

																BgL_idxz00_3631 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_3625);
																BgL_test2691z00_6370 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_3631 + 1L)) ==
																	BgL_classz00_3623);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2467z00_3653;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_3639;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_3645;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_3646;

																			BgL_arg1809z00_3646 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_3625);
																			BgL_arg1808z00_3645 =
																				(BgL_arg1809z00_3646 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_3639 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_3645);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_3640;

																		BgL__ortest_1115z00_3640 =
																			(BgL_classz00_3623 == BgL_oclassz00_3639);
																		if (BgL__ortest_1115z00_3640)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2467z00_3653 =
																					BgL__ortest_1115z00_3640;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_3641;

																				BgL_odepthz00_3641 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_3639);
																				if ((1L < BgL_odepthz00_3641))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_3643;

																						BgL_arg1797z00_3643 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_3639, 1L);
																						BgL_res2467z00_3653 =
																							(BgL_arg1797z00_3643 ==
																							BgL_classz00_3623);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2467z00_3653 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2691z00_6370 = BgL_res2467z00_3653;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test2691z00_6370 = ((bool_t) 0);
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 126 */
												BgL_test2691z00_6370 = ((bool_t) 0);
											}
										if (BgL_test2691z00_6370)
											{	/* SawBbv/bbv-range.scm 127 */
												bool_t BgL_test2697z00_6392;

												{	/* SawBbv/bbv-range.scm 127 */
													long BgL_arg1658z00_2000;

													{	/* SawBbv/bbv-range.scm 127 */
														long BgL_arg1661z00_2001;
														int BgL_arg1669z00_2002;

														{	/* SawBbv/bbv-range.scm 242 */
															long BgL_arg1763z00_3654;

															{	/* SawBbv/bbv-range.scm 242 */
																obj_t BgL_arg1768z00_3655;

																BgL_arg1768z00_3655 =
																	BGl_bigloozd2configzd2zz__configurez00
																	(CNST_TABLE_REF(0L));
																BgL_arg1763z00_3654 =
																	((long) CINT(BgL_arg1768z00_3655) - 2L);
															}
															BgL_arg1661z00_2001 =
																(1L << (int) (BgL_arg1763z00_3654));
														}
														BgL_arg1669z00_2002 =
															(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																	((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_14)))->
															BgL_offsetz00);
														BgL_arg1658z00_2000 =
															(BgL_arg1661z00_2001 +
															(long) (BgL_arg1669z00_2002));
													}
													BgL_test2697z00_6392 =
														((long) CINT(BgL_xz00_13) > BgL_arg1658z00_2000);
												}
												if (BgL_test2697z00_6392)
													{	/* SawBbv/bbv-range.scm 127 */
														return BTRUE;
													}
												else
													{	/* SawBbv/bbv-range.scm 127 */
														if (
															((long) CINT(BgL_xz00_13) <=
																(long) (
																	(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																				((BgL_bbvzd2vlenzd2_bglt)
																					BgL_yz00_14)))->BgL_offsetz00))))
															{	/* SawBbv/bbv-range.scm 129 */
																return BFALSE;
															}
														else
															{	/* SawBbv/bbv-range.scm 129 */
																return BUNSPEC;
															}
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 126 */
												return BUNSPEC;
											}
									}
							}
					}
			}
		}

	}



/* >=rv */
	obj_t BGl_ze3zd3rvz30zzsaw_bbvzd2rangezd2(obj_t BgL_xz00_15,
		obj_t BgL_yz00_16)
	{
		{	/* SawBbv/bbv-range.scm 138 */
			{	/* SawBbv/bbv-range.scm 140 */
				bool_t BgL_test2699z00_6411;

				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_xz00_15))
					{	/* SawBbv/bbv-range.scm 140 */
						BgL_test2699z00_6411 =
							BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_yz00_16);
					}
				else
					{	/* SawBbv/bbv-range.scm 140 */
						BgL_test2699z00_6411 = ((bool_t) 0);
					}
				if (BgL_test2699z00_6411)
					{	/* SawBbv/bbv-range.scm 141 */
						bool_t BgL_test2701z00_6415;

						if (INTEGERP(BgL_xz00_15))
							{	/* SawBbv/bbv-range.scm 141 */
								BgL_test2701z00_6415 = INTEGERP(BgL_yz00_16);
							}
						else
							{	/* SawBbv/bbv-range.scm 141 */
								BgL_test2701z00_6415 = ((bool_t) 0);
							}
						if (BgL_test2701z00_6415)
							{	/* SawBbv/bbv-range.scm 141 */
								return
									BBOOL(((long) CINT(BgL_xz00_15) >= (long) CINT(BgL_yz00_16)));
							}
						else
							{	/* SawBbv/bbv-range.scm 141 */
								return
									BBOOL(BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_xz00_15,
										BgL_yz00_16));
							}
					}
				else
					{	/* SawBbv/bbv-range.scm 142 */
						bool_t BgL_test2703z00_6425;

						{	/* SawBbv/bbv-range.scm 93 */
							bool_t BgL_test2704z00_6426;

							{	/* SawBbv/bbv-range.scm 84 */
								obj_t BgL_classz00_3674;

								BgL_classz00_3674 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
								if (BGL_OBJECTP(BgL_xz00_15))
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_objectz00_bglt BgL_arg1801z00_3676;

										BgL_arg1801z00_3676 = (BgL_objectz00_bglt) (BgL_xz00_15);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_idxz00_3682;

												BgL_idxz00_3682 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3676);
												BgL_test2704z00_6426 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_3682 + 1L)) == BgL_classz00_3674);
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												bool_t BgL_res2468z00_3704;

												{	/* SawBbv/bbv-range.scm 84 */
													obj_t BgL_oclassz00_3690;

													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_arg1808z00_3696;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1809z00_3697;

															BgL_arg1809z00_3697 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3676);
															BgL_arg1808z00_3696 =
																(BgL_arg1809z00_3697 - OBJECT_TYPE);
														}
														BgL_oclassz00_3690 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_3696);
													}
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL__ortest_1115z00_3691;

														BgL__ortest_1115z00_3691 =
															(BgL_classz00_3674 == BgL_oclassz00_3690);
														if (BgL__ortest_1115z00_3691)
															{	/* SawBbv/bbv-range.scm 84 */
																BgL_res2468z00_3704 = BgL__ortest_1115z00_3691;
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_odepthz00_3692;

																BgL_odepthz00_3692 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_3690);
																if ((1L < BgL_odepthz00_3692))
																	{	/* SawBbv/bbv-range.scm 84 */
																		obj_t BgL_arg1797z00_3694;

																		BgL_arg1797z00_3694 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_3690, 1L);
																		BgL_res2468z00_3704 =
																			(BgL_arg1797z00_3694 ==
																			BgL_classz00_3674);
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2468z00_3704 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2704z00_6426 = BgL_res2468z00_3704;
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_test2704z00_6426 = ((bool_t) 0);
									}
							}
							if (BgL_test2704z00_6426)
								{	/* SawBbv/bbv-range.scm 93 */
									bool_t BgL_test2709z00_6446;

									{	/* SawBbv/bbv-range.scm 84 */
										obj_t BgL_classz00_3705;

										BgL_classz00_3705 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
										if (BGL_OBJECTP(BgL_yz00_16))
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_objectz00_bglt BgL_arg1801z00_3707;

												BgL_arg1801z00_3707 =
													(BgL_objectz00_bglt) (BgL_yz00_16);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_idxz00_3713;

														BgL_idxz00_3713 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3707);
														BgL_test2709z00_6446 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_3713 + 1L)) == BgL_classz00_3705);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL_res2469z00_3735;

														{	/* SawBbv/bbv-range.scm 84 */
															obj_t BgL_oclassz00_3721;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1808z00_3727;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1809z00_3728;

																	BgL_arg1809z00_3728 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3707);
																	BgL_arg1808z00_3727 =
																		(BgL_arg1809z00_3728 - OBJECT_TYPE);
																}
																BgL_oclassz00_3721 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_3727);
															}
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL__ortest_1115z00_3722;

																BgL__ortest_1115z00_3722 =
																	(BgL_classz00_3705 == BgL_oclassz00_3721);
																if (BgL__ortest_1115z00_3722)
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2469z00_3735 =
																			BgL__ortest_1115z00_3722;
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_odepthz00_3723;

																		BgL_odepthz00_3723 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_3721);
																		if ((1L < BgL_odepthz00_3723))
																			{	/* SawBbv/bbv-range.scm 84 */
																				obj_t BgL_arg1797z00_3725;

																				BgL_arg1797z00_3725 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_3721, 1L);
																				BgL_res2469z00_3735 =
																					(BgL_arg1797z00_3725 ==
																					BgL_classz00_3705);
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2469z00_3735 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2709z00_6446 = BgL_res2469z00_3735;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_test2709z00_6446 = ((bool_t) 0);
											}
									}
									if (BgL_test2709z00_6446)
										{	/* SawBbv/bbv-range.scm 93 */
											BgL_test2703z00_6425 =
												(
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
															((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_15)))->
													BgL_vecz00) ==
												(((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_16)))->
													BgL_vecz00));
										}
									else
										{	/* SawBbv/bbv-range.scm 93 */
											BgL_test2703z00_6425 = ((bool_t) 0);
										}
								}
							else
								{	/* SawBbv/bbv-range.scm 93 */
									BgL_test2703z00_6425 = ((bool_t) 0);
								}
						}
						if (BgL_test2703z00_6425)
							{	/* SawBbv/bbv-range.scm 142 */
								return
									BBOOL(
									((long) (
											(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
														((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_15)))->
												BgL_offsetz00)) >=
										(long) ((((BgL_bbvzd2vlenzd2_bglt)
													COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_16)))->
												BgL_offsetz00))));
							}
						else
							{	/* SawBbv/bbv-range.scm 144 */
								bool_t BgL_test2714z00_6479;

								{	/* SawBbv/bbv-range.scm 144 */
									bool_t BgL_test2715z00_6480;

									{	/* SawBbv/bbv-range.scm 84 */
										obj_t BgL_classz00_3746;

										BgL_classz00_3746 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
										if (BGL_OBJECTP(BgL_xz00_15))
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_objectz00_bglt BgL_arg1801z00_3748;

												BgL_arg1801z00_3748 =
													(BgL_objectz00_bglt) (BgL_xz00_15);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_idxz00_3754;

														BgL_idxz00_3754 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3748);
														BgL_test2715z00_6480 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_3754 + 1L)) == BgL_classz00_3746);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL_res2470z00_3776;

														{	/* SawBbv/bbv-range.scm 84 */
															obj_t BgL_oclassz00_3762;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1808z00_3768;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1809z00_3769;

																	BgL_arg1809z00_3769 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3748);
																	BgL_arg1808z00_3768 =
																		(BgL_arg1809z00_3769 - OBJECT_TYPE);
																}
																BgL_oclassz00_3762 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_3768);
															}
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL__ortest_1115z00_3763;

																BgL__ortest_1115z00_3763 =
																	(BgL_classz00_3746 == BgL_oclassz00_3762);
																if (BgL__ortest_1115z00_3763)
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2470z00_3776 =
																			BgL__ortest_1115z00_3763;
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_odepthz00_3764;

																		BgL_odepthz00_3764 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_3762);
																		if ((1L < BgL_odepthz00_3764))
																			{	/* SawBbv/bbv-range.scm 84 */
																				obj_t BgL_arg1797z00_3766;

																				BgL_arg1797z00_3766 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_3762, 1L);
																				BgL_res2470z00_3776 =
																					(BgL_arg1797z00_3766 ==
																					BgL_classz00_3746);
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2470z00_3776 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2715z00_6480 = BgL_res2470z00_3776;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_test2715z00_6480 = ((bool_t) 0);
											}
									}
									if (BgL_test2715z00_6480)
										{	/* SawBbv/bbv-range.scm 144 */
											BgL_test2714z00_6479 = INTEGERP(BgL_yz00_16);
										}
									else
										{	/* SawBbv/bbv-range.scm 144 */
											BgL_test2714z00_6479 = ((bool_t) 0);
										}
								}
								if (BgL_test2714z00_6479)
									{	/* SawBbv/bbv-range.scm 144 */
										if (
											((long) (
													(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_15)))->
														BgL_offsetz00)) >= (long) CINT(BgL_yz00_16)))
											{	/* SawBbv/bbv-range.scm 145 */
												return BTRUE;
											}
										else
											{	/* SawBbv/bbv-range.scm 147 */
												bool_t BgL_test2721z00_6507;

												{	/* SawBbv/bbv-range.scm 147 */
													long BgL_a1505z00_2021;

													{	/* SawBbv/bbv-range.scm 147 */
														long BgL_arg1695z00_2023;
														int BgL_arg1696z00_2024;

														{	/* SawBbv/bbv-range.scm 242 */
															long BgL_arg1763z00_3781;

															{	/* SawBbv/bbv-range.scm 242 */
																obj_t BgL_arg1768z00_3782;

																BgL_arg1768z00_3782 =
																	BGl_bigloozd2configzd2zz__configurez00
																	(CNST_TABLE_REF(0L));
																BgL_arg1763z00_3781 =
																	((long) CINT(BgL_arg1768z00_3782) - 2L);
															}
															BgL_arg1695z00_2023 =
																(1L << (int) (BgL_arg1763z00_3781));
														}
														BgL_arg1696z00_2024 =
															(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																	((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_15)))->
															BgL_offsetz00);
														BgL_a1505z00_2021 =
															(BgL_arg1695z00_2023 +
															(long) (BgL_arg1696z00_2024));
													}
													BgL_test2721z00_6507 =
														(BgL_a1505z00_2021 < (long) CINT(BgL_yz00_16));
												}
												if (BgL_test2721z00_6507)
													{	/* SawBbv/bbv-range.scm 147 */
														return BFALSE;
													}
												else
													{	/* SawBbv/bbv-range.scm 147 */
														return BUNSPEC;
													}
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 150 */
										bool_t BgL_test2722z00_6520;

										if (INTEGERP(BgL_xz00_15))
											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_3791;

												BgL_classz00_3791 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_yz00_16))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_3793;

														BgL_arg1801z00_3793 =
															(BgL_objectz00_bglt) (BgL_yz00_16);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_3799;

																BgL_idxz00_3799 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_3793);
																BgL_test2722z00_6520 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_3799 + 1L)) ==
																	BgL_classz00_3791);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2471z00_3821;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_3807;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_3813;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_3814;

																			BgL_arg1809z00_3814 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_3793);
																			BgL_arg1808z00_3813 =
																				(BgL_arg1809z00_3814 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_3807 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_3813);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_3808;

																		BgL__ortest_1115z00_3808 =
																			(BgL_classz00_3791 == BgL_oclassz00_3807);
																		if (BgL__ortest_1115z00_3808)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2471z00_3821 =
																					BgL__ortest_1115z00_3808;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_3809;

																				BgL_odepthz00_3809 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_3807);
																				if ((1L < BgL_odepthz00_3809))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_3811;

																						BgL_arg1797z00_3811 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_3807, 1L);
																						BgL_res2471z00_3821 =
																							(BgL_arg1797z00_3811 ==
																							BgL_classz00_3791);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2471z00_3821 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2722z00_6520 = BgL_res2471z00_3821;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test2722z00_6520 = ((bool_t) 0);
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 150 */
												BgL_test2722z00_6520 = ((bool_t) 0);
											}
										if (BgL_test2722z00_6520)
											{	/* SawBbv/bbv-range.scm 151 */
												bool_t BgL_test2728z00_6542;

												{	/* SawBbv/bbv-range.scm 151 */
													long BgL_arg1714z00_2035;

													{	/* SawBbv/bbv-range.scm 151 */
														long BgL_arg1715z00_2036;
														int BgL_arg1717z00_2037;

														{	/* SawBbv/bbv-range.scm 242 */
															long BgL_arg1763z00_3822;

															{	/* SawBbv/bbv-range.scm 242 */
																obj_t BgL_arg1768z00_3823;

																BgL_arg1768z00_3823 =
																	BGl_bigloozd2configzd2zz__configurez00
																	(CNST_TABLE_REF(0L));
																BgL_arg1763z00_3822 =
																	((long) CINT(BgL_arg1768z00_3823) - 2L);
															}
															BgL_arg1715z00_2036 =
																(1L << (int) (BgL_arg1763z00_3822));
														}
														BgL_arg1717z00_2037 =
															(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																	((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_16)))->
															BgL_offsetz00);
														BgL_arg1714z00_2035 =
															(BgL_arg1715z00_2036 +
															(long) (BgL_arg1717z00_2037));
													}
													BgL_test2728z00_6542 =
														((long) CINT(BgL_xz00_15) >= BgL_arg1714z00_2035);
												}
												if (BgL_test2728z00_6542)
													{	/* SawBbv/bbv-range.scm 151 */
														return BTRUE;
													}
												else
													{	/* SawBbv/bbv-range.scm 151 */
														if (
															((long) CINT(BgL_xz00_15) <
																(long) (
																	(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																				((BgL_bbvzd2vlenzd2_bglt)
																					BgL_yz00_16)))->BgL_offsetz00))))
															{	/* SawBbv/bbv-range.scm 153 */
																return BFALSE;
															}
														else
															{	/* SawBbv/bbv-range.scm 153 */
																return BUNSPEC;
															}
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 150 */
												return BUNSPEC;
											}
									}
							}
					}
			}
		}

	}



/* _minrv */
	obj_t BGl__minrvz00zzsaw_bbvzd2rangezd2(obj_t BgL_env1531z00_25,
		obj_t BgL_opt1530z00_24)
	{
		{	/* SawBbv/bbv-range.scm 174 */
			{	/* SawBbv/bbv-range.scm 174 */
				obj_t BgL_g1532z00_2041;
				obj_t BgL_g1533z00_2042;

				BgL_g1532z00_2041 = VECTOR_REF(BgL_opt1530z00_24, 0L);
				BgL_g1533z00_2042 = VECTOR_REF(BgL_opt1530z00_24, 1L);
				switch (VECTOR_LENGTH(BgL_opt1530z00_24))
					{
					case 2L:

						{	/* SawBbv/bbv-range.scm 174 */

							return
								BGl_minrvz00zzsaw_bbvzd2rangezd2(BgL_g1532z00_2041,
								BgL_g1533z00_2042, BUNSPEC);
						}
						break;
					case 3L:

						{	/* SawBbv/bbv-range.scm 174 */
							obj_t BgL_unspecifiedz00_2046;

							BgL_unspecifiedz00_2046 = VECTOR_REF(BgL_opt1530z00_24, 2L);
							{	/* SawBbv/bbv-range.scm 174 */

								return
									BGl_minrvz00zzsaw_bbvzd2rangezd2(BgL_g1532z00_2041,
									BgL_g1533z00_2042, BgL_unspecifiedz00_2046);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* minrv */
	BGL_EXPORTED_DEF obj_t BGl_minrvz00zzsaw_bbvzd2rangezd2(obj_t BgL_xz00_21,
		obj_t BgL_yz00_22, obj_t BgL_unspecifiedz00_23)
	{
		{	/* SawBbv/bbv-range.scm 174 */
			{	/* SawBbv/bbv-range.scm 175 */
				long BgL_aux1173z00_2048;

				{	/* SawBbv/bbv-range.scm 175 */
					obj_t BgL_aux1171z00_2049;

					BgL_aux1171z00_2049 =
						BGl_ze3zd3rvz30zzsaw_bbvzd2rangezd2(BgL_yz00_22, BgL_xz00_21);
					if (CNSTP(BgL_aux1171z00_2049))
						{	/* SawBbv/bbv-range.scm 175 */
							BgL_aux1173z00_2048 = CCNST(BgL_aux1171z00_2049);
						}
					else
						{	/* SawBbv/bbv-range.scm 175 */
							BgL_aux1173z00_2048 = -1L;
						}
				}
				switch (BgL_aux1173z00_2048)
					{
					case 4L:

						return BgL_xz00_21;
						break;
					case 2L:

						return BgL_yz00_22;
						break;
					default:
						return BgL_unspecifiedz00_23;
					}
			}
		}

	}



/* minrv-up */
	obj_t BGl_minrvzd2upzd2zzsaw_bbvzd2rangezd2(obj_t BgL_xz00_26,
		obj_t BgL_yz00_27, obj_t BgL_unspecifiedz00_28)
	{
		{	/* SawBbv/bbv-range.scm 186 */
			{	/* SawBbv/bbv-range.scm 187 */
				obj_t BgL_mz00_2057;

				{	/* SawBbv/bbv-range.scm 45 */

					BgL_mz00_2057 =
						BGl_minrvz00zzsaw_bbvzd2rangezd2(BgL_xz00_26, BgL_yz00_27, BUNSPEC);
				}
				if ((BgL_mz00_2057 == BgL_unspecifiedz00_28))
					{
						obj_t BgL_xz00_2059;
						obj_t BgL_yz00_2060;

						BgL_xz00_2059 = BgL_xz00_26;
						BgL_yz00_2060 = BgL_yz00_27;
					BgL_zc3z04anonymousza31719ze3z87_2061:
						{	/* SawBbv/bbv-range.scm 193 */
							bool_t BgL_test2732z00_6576;

							{	/* SawBbv/bbv-range.scm 193 */
								bool_t BgL_test2733z00_6577;

								{	/* SawBbv/bbv-range.scm 84 */
									obj_t BgL_classz00_3836;

									BgL_classz00_3836 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
									if (BGL_OBJECTP(BgL_xz00_2059))
										{	/* SawBbv/bbv-range.scm 84 */
											BgL_objectz00_bglt BgL_arg1801z00_3838;

											BgL_arg1801z00_3838 =
												(BgL_objectz00_bglt) (BgL_xz00_2059);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* SawBbv/bbv-range.scm 84 */
													long BgL_idxz00_3844;

													BgL_idxz00_3844 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3838);
													BgL_test2733z00_6577 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_3844 + 1L)) == BgL_classz00_3836);
												}
											else
												{	/* SawBbv/bbv-range.scm 84 */
													bool_t BgL_res2472z00_3866;

													{	/* SawBbv/bbv-range.scm 84 */
														obj_t BgL_oclassz00_3852;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1808z00_3858;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1809z00_3859;

																BgL_arg1809z00_3859 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3838);
																BgL_arg1808z00_3858 =
																	(BgL_arg1809z00_3859 - OBJECT_TYPE);
															}
															BgL_oclassz00_3852 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_3858);
														}
														{	/* SawBbv/bbv-range.scm 84 */
															bool_t BgL__ortest_1115z00_3853;

															BgL__ortest_1115z00_3853 =
																(BgL_classz00_3836 == BgL_oclassz00_3852);
															if (BgL__ortest_1115z00_3853)
																{	/* SawBbv/bbv-range.scm 84 */
																	BgL_res2472z00_3866 =
																		BgL__ortest_1115z00_3853;
																}
															else
																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_odepthz00_3854;

																	BgL_odepthz00_3854 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_3852);
																	if ((1L < BgL_odepthz00_3854))
																		{	/* SawBbv/bbv-range.scm 84 */
																			obj_t BgL_arg1797z00_3856;

																			BgL_arg1797z00_3856 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_3852, 1L);
																			BgL_res2472z00_3866 =
																				(BgL_arg1797z00_3856 ==
																				BgL_classz00_3836);
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 84 */
																			BgL_res2472z00_3866 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2733z00_6577 = BgL_res2472z00_3866;
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 84 */
											BgL_test2733z00_6577 = ((bool_t) 0);
										}
								}
								if (BgL_test2733z00_6577)
									{	/* SawBbv/bbv-range.scm 193 */
										BgL_test2732z00_6576 = INTEGERP(BgL_yz00_2060);
									}
								else
									{	/* SawBbv/bbv-range.scm 193 */
										BgL_test2732z00_6576 = ((bool_t) 0);
									}
							}
							if (BgL_test2732z00_6576)
								{	/* SawBbv/bbv-range.scm 194 */
									BgL_bbvzd2vlenzd2_bglt BgL_new1175z00_2065;

									{	/* SawBbv/bbv-range.scm 194 */
										BgL_bbvzd2vlenzd2_bglt BgL_new1179z00_2069;

										BgL_new1179z00_2069 =
											((BgL_bbvzd2vlenzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_bbvzd2vlenzd2_bgl))));
										{	/* SawBbv/bbv-range.scm 194 */
											long BgL_arg1729z00_2070;

											BgL_arg1729z00_2070 =
												BGL_CLASS_NUM(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1179z00_2069),
												BgL_arg1729z00_2070);
										}
										BgL_new1175z00_2065 = BgL_new1179z00_2069;
									}
									((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1175z00_2065))->
											BgL_vecz00) =
										((obj_t) (((BgL_bbvzd2vlenzd2_bglt)
													COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_2059)))->
												BgL_vecz00)), BUNSPEC);
									{
										int BgL_auxz00_6605;

										{	/* SawBbv/bbv-range.scm 195 */
											int BgL_az00_2066;
											obj_t BgL_bz00_2067;

											BgL_az00_2066 =
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
														((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_2059)))->
												BgL_offsetz00);
											BgL_bz00_2067 = BgL_yz00_2060;
											if (((long) (BgL_az00_2066) < (long) CINT(BgL_bz00_2067)))
												{	/* SawBbv/bbv-range.scm 195 */
													BgL_auxz00_6605 = BgL_az00_2066;
												}
											else
												{	/* SawBbv/bbv-range.scm 195 */
													BgL_auxz00_6605 = CINT(BgL_bz00_2067);
												}
										}
										((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1175z00_2065))->
												BgL_offsetz00) = ((int) BgL_auxz00_6605), BUNSPEC);
									}
									return ((obj_t) BgL_new1175z00_2065);
								}
							else
								{	/* SawBbv/bbv-range.scm 196 */
									bool_t BgL_test2739z00_6615;

									{	/* SawBbv/bbv-range.scm 196 */
										bool_t BgL_test2740z00_6616;

										{	/* SawBbv/bbv-range.scm 84 */
											obj_t BgL_classz00_3874;

											BgL_classz00_3874 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
											if (BGL_OBJECTP(BgL_xz00_2059))
												{	/* SawBbv/bbv-range.scm 84 */
													BgL_objectz00_bglt BgL_arg1801z00_3876;

													BgL_arg1801z00_3876 =
														(BgL_objectz00_bglt) (BgL_xz00_2059);
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_idxz00_3882;

															BgL_idxz00_3882 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3876);
															BgL_test2740z00_6616 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_3882 + 1L)) == BgL_classz00_3874);
														}
													else
														{	/* SawBbv/bbv-range.scm 84 */
															bool_t BgL_res2473z00_3904;

															{	/* SawBbv/bbv-range.scm 84 */
																obj_t BgL_oclassz00_3890;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1808z00_3896;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1809z00_3897;

																		BgL_arg1809z00_3897 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3876);
																		BgL_arg1808z00_3896 =
																			(BgL_arg1809z00_3897 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_3890 =
																		VECTOR_REF
																		(BGl_za2classesza2z00zz__objectz00,
																		BgL_arg1808z00_3896);
																}
																{	/* SawBbv/bbv-range.scm 84 */
																	bool_t BgL__ortest_1115z00_3891;

																	BgL__ortest_1115z00_3891 =
																		(BgL_classz00_3874 == BgL_oclassz00_3890);
																	if (BgL__ortest_1115z00_3891)
																		{	/* SawBbv/bbv-range.scm 84 */
																			BgL_res2473z00_3904 =
																				BgL__ortest_1115z00_3891;
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_odepthz00_3892;

																			BgL_odepthz00_3892 =
																				BGL_CLASS_DEPTH(BgL_oclassz00_3890);
																			if ((1L < BgL_odepthz00_3892))
																				{	/* SawBbv/bbv-range.scm 84 */
																					obj_t BgL_arg1797z00_3894;

																					BgL_arg1797z00_3894 =
																						BGL_CLASS_ANCESTORS_REF
																						(BgL_oclassz00_3890, 1L);
																					BgL_res2473z00_3904 =
																						(BgL_arg1797z00_3894 ==
																						BgL_classz00_3874);
																				}
																			else
																				{	/* SawBbv/bbv-range.scm 84 */
																					BgL_res2473z00_3904 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test2740z00_6616 = BgL_res2473z00_3904;
														}
												}
											else
												{	/* SawBbv/bbv-range.scm 84 */
													BgL_test2740z00_6616 = ((bool_t) 0);
												}
										}
										if (BgL_test2740z00_6616)
											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_3905;

												BgL_classz00_3905 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_yz00_2060))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_3907;

														BgL_arg1801z00_3907 =
															(BgL_objectz00_bglt) (BgL_yz00_2060);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_3913;

																BgL_idxz00_3913 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_3907);
																BgL_test2739z00_6615 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_3913 + 1L)) ==
																	BgL_classz00_3905);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2474z00_3935;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_3921;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_3927;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_3928;

																			BgL_arg1809z00_3928 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_3907);
																			BgL_arg1808z00_3927 =
																				(BgL_arg1809z00_3928 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_3921 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_3927);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_3922;

																		BgL__ortest_1115z00_3922 =
																			(BgL_classz00_3905 == BgL_oclassz00_3921);
																		if (BgL__ortest_1115z00_3922)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2474z00_3935 =
																					BgL__ortest_1115z00_3922;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_3923;

																				BgL_odepthz00_3923 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_3921);
																				if ((1L < BgL_odepthz00_3923))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_3925;

																						BgL_arg1797z00_3925 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_3921, 1L);
																						BgL_res2474z00_3935 =
																							(BgL_arg1797z00_3925 ==
																							BgL_classz00_3905);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2474z00_3935 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2739z00_6615 = BgL_res2474z00_3935;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test2739z00_6615 = ((bool_t) 0);
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 196 */
												BgL_test2739z00_6615 = ((bool_t) 0);
											}
									}
									if (BgL_test2739z00_6615)
										{	/* SawBbv/bbv-range.scm 196 */
											if (
												((long) (
														(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																	((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_2059)))->
															BgL_offsetz00)) <
													(long) ((((BgL_bbvzd2vlenzd2_bglt)
																COBJECT(((BgL_bbvzd2vlenzd2_bglt)
																		BgL_yz00_2060)))->BgL_offsetz00))))
												{	/* SawBbv/bbv-range.scm 197 */
													return BgL_xz00_2059;
												}
											else
												{	/* SawBbv/bbv-range.scm 197 */
													return BgL_yz00_2060;
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 199 */
											bool_t BgL_test2750z00_6663;

											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_3942;

												BgL_classz00_3942 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_yz00_2060))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_3944;

														BgL_arg1801z00_3944 =
															(BgL_objectz00_bglt) (BgL_yz00_2060);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_3950;

																BgL_idxz00_3950 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_3944);
																BgL_test2750z00_6663 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_3950 + 1L)) ==
																	BgL_classz00_3942);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2475z00_3972;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_3958;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_3964;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_3965;

																			BgL_arg1809z00_3965 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_3944);
																			BgL_arg1808z00_3964 =
																				(BgL_arg1809z00_3965 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_3958 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_3964);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_3959;

																		BgL__ortest_1115z00_3959 =
																			(BgL_classz00_3942 == BgL_oclassz00_3958);
																		if (BgL__ortest_1115z00_3959)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2475z00_3972 =
																					BgL__ortest_1115z00_3959;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_3960;

																				BgL_odepthz00_3960 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_3958);
																				if ((1L < BgL_odepthz00_3960))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_3962;

																						BgL_arg1797z00_3962 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_3958, 1L);
																						BgL_res2475z00_3972 =
																							(BgL_arg1797z00_3962 ==
																							BgL_classz00_3942);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2475z00_3972 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2750z00_6663 = BgL_res2475z00_3972;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test2750z00_6663 = ((bool_t) 0);
													}
											}
											if (BgL_test2750z00_6663)
												{
													obj_t BgL_yz00_6684;
													obj_t BgL_xz00_6683;

													BgL_xz00_6683 = BgL_yz00_2060;
													BgL_yz00_6684 = BgL_xz00_2059;
													BgL_yz00_2060 = BgL_yz00_6684;
													BgL_xz00_2059 = BgL_xz00_6683;
													goto BgL_zc3z04anonymousza31719ze3z87_2061;
												}
											else
												{	/* SawBbv/bbv-range.scm 199 */
													return BgL_unspecifiedz00_28;
												}
										}
								}
						}
					}
				else
					{	/* SawBbv/bbv-range.scm 188 */
						return BgL_mz00_2057;
					}
			}
		}

	}



/* _maxrv */
	obj_t BGl__maxrvz00zzsaw_bbvzd2rangezd2(obj_t BgL_env1541z00_35,
		obj_t BgL_opt1540z00_34)
	{
		{	/* SawBbv/bbv-range.scm 207 */
			{	/* SawBbv/bbv-range.scm 207 */
				obj_t BgL_g1542z00_2085;
				obj_t BgL_g1543z00_2086;

				BgL_g1542z00_2085 = VECTOR_REF(BgL_opt1540z00_34, 0L);
				BgL_g1543z00_2086 = VECTOR_REF(BgL_opt1540z00_34, 1L);
				switch (VECTOR_LENGTH(BgL_opt1540z00_34))
					{
					case 2L:

						{	/* SawBbv/bbv-range.scm 207 */

							return
								BGl_maxrvz00zzsaw_bbvzd2rangezd2(BgL_g1542z00_2085,
								BgL_g1543z00_2086, BUNSPEC);
						}
						break;
					case 3L:

						{	/* SawBbv/bbv-range.scm 207 */
							obj_t BgL_unspecifiedz00_2090;

							BgL_unspecifiedz00_2090 = VECTOR_REF(BgL_opt1540z00_34, 2L);
							{	/* SawBbv/bbv-range.scm 207 */

								return
									BGl_maxrvz00zzsaw_bbvzd2rangezd2(BgL_g1542z00_2085,
									BgL_g1543z00_2086, BgL_unspecifiedz00_2090);
							}
						}
						break;
					default:
						return BUNSPEC;
					}
			}
		}

	}



/* maxrv */
	BGL_EXPORTED_DEF obj_t BGl_maxrvz00zzsaw_bbvzd2rangezd2(obj_t BgL_xz00_31,
		obj_t BgL_yz00_32, obj_t BgL_unspecifiedz00_33)
	{
		{	/* SawBbv/bbv-range.scm 207 */
			{	/* SawBbv/bbv-range.scm 208 */
				long BgL_aux1183z00_2092;

				{	/* SawBbv/bbv-range.scm 208 */
					obj_t BgL_aux1181z00_2093;

					BgL_aux1181z00_2093 =
						BGl_ze3zd3rvz30zzsaw_bbvzd2rangezd2(BgL_xz00_31, BgL_yz00_32);
					if (CNSTP(BgL_aux1181z00_2093))
						{	/* SawBbv/bbv-range.scm 208 */
							BgL_aux1183z00_2092 = CCNST(BgL_aux1181z00_2093);
						}
					else
						{	/* SawBbv/bbv-range.scm 208 */
							BgL_aux1183z00_2092 = -1L;
						}
				}
				switch (BgL_aux1183z00_2092)
					{
					case 4L:

						return BgL_xz00_31;
						break;
					case 2L:

						return BgL_yz00_32;
						break;
					default:
						return BgL_unspecifiedz00_33;
					}
			}
		}

	}



/* maxrv-lo */
	obj_t BGl_maxrvzd2lozd2zzsaw_bbvzd2rangezd2(obj_t BgL_xz00_36,
		obj_t BgL_yz00_37, obj_t BgL_unspecifiedz00_38)
	{
		{	/* SawBbv/bbv-range.scm 219 */
			{	/* SawBbv/bbv-range.scm 220 */
				obj_t BgL_mz00_2101;

				{	/* SawBbv/bbv-range.scm 46 */

					BgL_mz00_2101 =
						BGl_maxrvz00zzsaw_bbvzd2rangezd2(BgL_xz00_36, BgL_yz00_37, BUNSPEC);
				}
				if ((BgL_mz00_2101 == BgL_unspecifiedz00_38))
					{
						obj_t BgL_xz00_2103;
						obj_t BgL_yz00_2104;

						BgL_xz00_2103 = BgL_xz00_36;
						BgL_yz00_2104 = BgL_yz00_37;
					BgL_zc3z04anonymousza31742ze3z87_2105:
						{	/* SawBbv/bbv-range.scm 226 */
							bool_t BgL_test2757z00_6700;

							{	/* SawBbv/bbv-range.scm 226 */
								bool_t BgL_test2758z00_6701;

								{	/* SawBbv/bbv-range.scm 84 */
									obj_t BgL_classz00_3973;

									BgL_classz00_3973 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
									if (BGL_OBJECTP(BgL_xz00_2103))
										{	/* SawBbv/bbv-range.scm 84 */
											BgL_objectz00_bglt BgL_arg1801z00_3975;

											BgL_arg1801z00_3975 =
												(BgL_objectz00_bglt) (BgL_xz00_2103);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* SawBbv/bbv-range.scm 84 */
													long BgL_idxz00_3981;

													BgL_idxz00_3981 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_3975);
													BgL_test2758z00_6701 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_3981 + 1L)) == BgL_classz00_3973);
												}
											else
												{	/* SawBbv/bbv-range.scm 84 */
													bool_t BgL_res2476z00_4003;

													{	/* SawBbv/bbv-range.scm 84 */
														obj_t BgL_oclassz00_3989;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1808z00_3995;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1809z00_3996;

																BgL_arg1809z00_3996 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_3975);
																BgL_arg1808z00_3995 =
																	(BgL_arg1809z00_3996 - OBJECT_TYPE);
															}
															BgL_oclassz00_3989 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_3995);
														}
														{	/* SawBbv/bbv-range.scm 84 */
															bool_t BgL__ortest_1115z00_3990;

															BgL__ortest_1115z00_3990 =
																(BgL_classz00_3973 == BgL_oclassz00_3989);
															if (BgL__ortest_1115z00_3990)
																{	/* SawBbv/bbv-range.scm 84 */
																	BgL_res2476z00_4003 =
																		BgL__ortest_1115z00_3990;
																}
															else
																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_odepthz00_3991;

																	BgL_odepthz00_3991 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_3989);
																	if ((1L < BgL_odepthz00_3991))
																		{	/* SawBbv/bbv-range.scm 84 */
																			obj_t BgL_arg1797z00_3993;

																			BgL_arg1797z00_3993 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_3989, 1L);
																			BgL_res2476z00_4003 =
																				(BgL_arg1797z00_3993 ==
																				BgL_classz00_3973);
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 84 */
																			BgL_res2476z00_4003 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2758z00_6701 = BgL_res2476z00_4003;
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 84 */
											BgL_test2758z00_6701 = ((bool_t) 0);
										}
								}
								if (BgL_test2758z00_6701)
									{	/* SawBbv/bbv-range.scm 226 */
										BgL_test2757z00_6700 = INTEGERP(BgL_yz00_2104);
									}
								else
									{	/* SawBbv/bbv-range.scm 226 */
										BgL_test2757z00_6700 = ((bool_t) 0);
									}
							}
							if (BgL_test2757z00_6700)
								{	/* SawBbv/bbv-range.scm 227 */
									BgL_bbvzd2vlenzd2_bglt BgL_new1185z00_2109;

									{	/* SawBbv/bbv-range.scm 227 */
										BgL_bbvzd2vlenzd2_bglt BgL_new1188z00_2113;

										BgL_new1188z00_2113 =
											((BgL_bbvzd2vlenzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_bbvzd2vlenzd2_bgl))));
										{	/* SawBbv/bbv-range.scm 227 */
											long BgL_arg1747z00_2114;

											BgL_arg1747z00_2114 =
												BGL_CLASS_NUM(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1188z00_2113),
												BgL_arg1747z00_2114);
										}
										BgL_new1185z00_2109 = BgL_new1188z00_2113;
									}
									((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1185z00_2109))->
											BgL_vecz00) =
										((obj_t) (((BgL_bbvzd2vlenzd2_bglt)
													COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_2103)))->
												BgL_vecz00)), BUNSPEC);
									{
										int BgL_auxz00_6729;

										{	/* SawBbv/bbv-range.scm 228 */
											int BgL_az00_2110;
											obj_t BgL_bz00_2111;

											BgL_az00_2110 =
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
														((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_2103)))->
												BgL_offsetz00);
											BgL_bz00_2111 = BgL_yz00_2104;
											if (((long) (BgL_az00_2110) > (long) CINT(BgL_bz00_2111)))
												{	/* SawBbv/bbv-range.scm 228 */
													BgL_auxz00_6729 = BgL_az00_2110;
												}
											else
												{	/* SawBbv/bbv-range.scm 228 */
													BgL_auxz00_6729 = CINT(BgL_bz00_2111);
												}
										}
										((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1185z00_2109))->
												BgL_offsetz00) = ((int) BgL_auxz00_6729), BUNSPEC);
									}
									return ((obj_t) BgL_new1185z00_2109);
								}
							else
								{	/* SawBbv/bbv-range.scm 229 */
									bool_t BgL_test2764z00_6739;

									{	/* SawBbv/bbv-range.scm 229 */
										bool_t BgL_test2765z00_6740;

										{	/* SawBbv/bbv-range.scm 84 */
											obj_t BgL_classz00_4011;

											BgL_classz00_4011 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
											if (BGL_OBJECTP(BgL_xz00_2103))
												{	/* SawBbv/bbv-range.scm 84 */
													BgL_objectz00_bglt BgL_arg1801z00_4013;

													BgL_arg1801z00_4013 =
														(BgL_objectz00_bglt) (BgL_xz00_2103);
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_idxz00_4019;

															BgL_idxz00_4019 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4013);
															BgL_test2765z00_6740 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_4019 + 1L)) == BgL_classz00_4011);
														}
													else
														{	/* SawBbv/bbv-range.scm 84 */
															bool_t BgL_res2477z00_4041;

															{	/* SawBbv/bbv-range.scm 84 */
																obj_t BgL_oclassz00_4027;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1808z00_4033;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1809z00_4034;

																		BgL_arg1809z00_4034 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4013);
																		BgL_arg1808z00_4033 =
																			(BgL_arg1809z00_4034 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_4027 =
																		VECTOR_REF
																		(BGl_za2classesza2z00zz__objectz00,
																		BgL_arg1808z00_4033);
																}
																{	/* SawBbv/bbv-range.scm 84 */
																	bool_t BgL__ortest_1115z00_4028;

																	BgL__ortest_1115z00_4028 =
																		(BgL_classz00_4011 == BgL_oclassz00_4027);
																	if (BgL__ortest_1115z00_4028)
																		{	/* SawBbv/bbv-range.scm 84 */
																			BgL_res2477z00_4041 =
																				BgL__ortest_1115z00_4028;
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_odepthz00_4029;

																			BgL_odepthz00_4029 =
																				BGL_CLASS_DEPTH(BgL_oclassz00_4027);
																			if ((1L < BgL_odepthz00_4029))
																				{	/* SawBbv/bbv-range.scm 84 */
																					obj_t BgL_arg1797z00_4031;

																					BgL_arg1797z00_4031 =
																						BGL_CLASS_ANCESTORS_REF
																						(BgL_oclassz00_4027, 1L);
																					BgL_res2477z00_4041 =
																						(BgL_arg1797z00_4031 ==
																						BgL_classz00_4011);
																				}
																			else
																				{	/* SawBbv/bbv-range.scm 84 */
																					BgL_res2477z00_4041 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test2765z00_6740 = BgL_res2477z00_4041;
														}
												}
											else
												{	/* SawBbv/bbv-range.scm 84 */
													BgL_test2765z00_6740 = ((bool_t) 0);
												}
										}
										if (BgL_test2765z00_6740)
											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_4042;

												BgL_classz00_4042 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_yz00_2104))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_4044;

														BgL_arg1801z00_4044 =
															(BgL_objectz00_bglt) (BgL_yz00_2104);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_4050;

																BgL_idxz00_4050 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_4044);
																BgL_test2764z00_6739 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_4050 + 1L)) ==
																	BgL_classz00_4042);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2478z00_4072;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_4058;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_4064;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_4065;

																			BgL_arg1809z00_4065 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_4044);
																			BgL_arg1808z00_4064 =
																				(BgL_arg1809z00_4065 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_4058 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_4064);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_4059;

																		BgL__ortest_1115z00_4059 =
																			(BgL_classz00_4042 == BgL_oclassz00_4058);
																		if (BgL__ortest_1115z00_4059)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2478z00_4072 =
																					BgL__ortest_1115z00_4059;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_4060;

																				BgL_odepthz00_4060 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_4058);
																				if ((1L < BgL_odepthz00_4060))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_4062;

																						BgL_arg1797z00_4062 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_4058, 1L);
																						BgL_res2478z00_4072 =
																							(BgL_arg1797z00_4062 ==
																							BgL_classz00_4042);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2478z00_4072 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2764z00_6739 = BgL_res2478z00_4072;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test2764z00_6739 = ((bool_t) 0);
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 229 */
												BgL_test2764z00_6739 = ((bool_t) 0);
											}
									}
									if (BgL_test2764z00_6739)
										{	/* SawBbv/bbv-range.scm 229 */
											if (
												((long) (
														(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																	((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_2103)))->
															BgL_offsetz00)) >
													(long) ((((BgL_bbvzd2vlenzd2_bglt)
																COBJECT(((BgL_bbvzd2vlenzd2_bglt)
																		BgL_yz00_2104)))->BgL_offsetz00))))
												{	/* SawBbv/bbv-range.scm 230 */
													return BgL_xz00_2103;
												}
											else
												{	/* SawBbv/bbv-range.scm 230 */
													return BgL_yz00_2104;
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 233 */
											bool_t BgL_test2775z00_6787;

											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_4079;

												BgL_classz00_4079 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_yz00_2104))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_4081;

														BgL_arg1801z00_4081 =
															(BgL_objectz00_bglt) (BgL_yz00_2104);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_4087;

																BgL_idxz00_4087 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_4081);
																BgL_test2775z00_6787 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_4087 + 1L)) ==
																	BgL_classz00_4079);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2479z00_4109;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_4095;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_4101;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_4102;

																			BgL_arg1809z00_4102 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_4081);
																			BgL_arg1808z00_4101 =
																				(BgL_arg1809z00_4102 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_4095 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_4101);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_4096;

																		BgL__ortest_1115z00_4096 =
																			(BgL_classz00_4079 == BgL_oclassz00_4095);
																		if (BgL__ortest_1115z00_4096)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2479z00_4109 =
																					BgL__ortest_1115z00_4096;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_4097;

																				BgL_odepthz00_4097 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_4095);
																				if ((1L < BgL_odepthz00_4097))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_4099;

																						BgL_arg1797z00_4099 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_4095, 1L);
																						BgL_res2479z00_4109 =
																							(BgL_arg1797z00_4099 ==
																							BgL_classz00_4079);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2479z00_4109 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2775z00_6787 = BgL_res2479z00_4109;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test2775z00_6787 = ((bool_t) 0);
													}
											}
											if (BgL_test2775z00_6787)
												{
													obj_t BgL_yz00_6808;
													obj_t BgL_xz00_6807;

													BgL_xz00_6807 = BgL_yz00_2104;
													BgL_yz00_6808 = BgL_xz00_2103;
													BgL_yz00_2104 = BgL_yz00_6808;
													BgL_xz00_2103 = BgL_xz00_6807;
													goto BgL_zc3z04anonymousza31742ze3z87_2105;
												}
											else
												{	/* SawBbv/bbv-range.scm 233 */
													return BgL_unspecifiedz00_38;
												}
										}
								}
						}
					}
				else
					{	/* SawBbv/bbv-range.scm 221 */
						return BgL_mz00_2101;
					}
			}
		}

	}



/* bbv-max-fixnum */
	BGL_EXPORTED_DEF long BGl_bbvzd2maxzd2fixnumz00zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 241 */
			{	/* SawBbv/bbv-range.scm 242 */
				long BgL_arg1763z00_5968;

				{	/* SawBbv/bbv-range.scm 242 */
					obj_t BgL_arg1768z00_5969;

					BgL_arg1768z00_5969 =
						BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF(0L));
					BgL_arg1763z00_5968 = ((long) CINT(BgL_arg1768z00_5969) - 2L);
				}
				return (1L << (int) (BgL_arg1763z00_5968));
		}}

	}



/* &bbv-max-fixnum */
	obj_t BGl_z62bbvzd2maxzd2fixnumz62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5820)
	{
		{	/* SawBbv/bbv-range.scm 241 */
			{	/* SawBbv/bbv-range.scm 242 */
				long BgL_tmpz00_6815;

				{	/* SawBbv/bbv-range.scm 242 */
					long BgL_arg1763z00_5970;

					{	/* SawBbv/bbv-range.scm 242 */
						obj_t BgL_arg1768z00_5971;

						BgL_arg1768z00_5971 =
							BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF(0L));
						BgL_arg1763z00_5970 = ((long) CINT(BgL_arg1768z00_5971) - 2L);
					}
					BgL_tmpz00_6815 = (1L << (int) (BgL_arg1763z00_5970));
				}
				return BINT(BgL_tmpz00_6815);
			}
		}

	}



/* bbv-min-fixnum */
	BGL_EXPORTED_DEF long BGl_bbvzd2minzd2fixnumz00zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 243 */
			{	/* SawBbv/bbv-range.scm 244 */
				long BgL_arg1771z00_5972;

				{	/* SawBbv/bbv-range.scm 244 */
					long BgL_arg1773z00_5973;

					{	/* SawBbv/bbv-range.scm 242 */
						long BgL_arg1763z00_5974;

						{	/* SawBbv/bbv-range.scm 242 */
							obj_t BgL_arg1768z00_5975;

							BgL_arg1768z00_5975 =
								BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF(0L));
							BgL_arg1763z00_5974 = ((long) CINT(BgL_arg1768z00_5975) - 2L);
						}
						BgL_arg1773z00_5973 = (1L << (int) (BgL_arg1763z00_5974));
					}
					BgL_arg1771z00_5972 = NEG(BgL_arg1773z00_5973);
				}
				return (BgL_arg1771z00_5972 - 1L);
			}
		}

	}



/* &bbv-min-fixnum */
	obj_t BGl_z62bbvzd2minzd2fixnumz62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5821)
	{
		{	/* SawBbv/bbv-range.scm 243 */
			{	/* SawBbv/bbv-range.scm 244 */
				long BgL_tmpz00_6831;

				{	/* SawBbv/bbv-range.scm 244 */
					long BgL_arg1771z00_5976;

					{	/* SawBbv/bbv-range.scm 244 */
						long BgL_arg1773z00_5977;

						{	/* SawBbv/bbv-range.scm 242 */
							long BgL_arg1763z00_5978;

							{	/* SawBbv/bbv-range.scm 242 */
								obj_t BgL_arg1768z00_5979;

								BgL_arg1768z00_5979 =
									BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF(0L));
								BgL_arg1763z00_5978 = ((long) CINT(BgL_arg1768z00_5979) - 2L);
							}
							BgL_arg1773z00_5977 = (1L << (int) (BgL_arg1763z00_5978));
						}
						BgL_arg1771z00_5976 = NEG(BgL_arg1773z00_5977);
					}
					BgL_tmpz00_6831 = (BgL_arg1771z00_5976 - 1L);
				}
				return BINT(BgL_tmpz00_6831);
			}
		}

	}



/* ++ */
	obj_t BGl_zb2zb2z00zzsaw_bbvzd2rangezd2(obj_t BgL_iz00_41)
	{
		{	/* SawBbv/bbv-range.scm 248 */
			if ((BgL_iz00_41 == BGl_bbvzd2maxzd2fixnumzd2envzd2zzsaw_bbvzd2rangezd2))
				{	/* SawBbv/bbv-range.scm 250 */
					return BGl_bbvzd2maxzd2fixnumzd2envzd2zzsaw_bbvzd2rangezd2;
				}
			else
				{	/* SawBbv/bbv-range.scm 252 */
					bool_t BgL_test2781z00_6843;

					{	/* SawBbv/bbv-range.scm 84 */
						obj_t BgL_classz00_4122;

						BgL_classz00_4122 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
						if (BGL_OBJECTP(BgL_iz00_41))
							{	/* SawBbv/bbv-range.scm 84 */
								BgL_objectz00_bglt BgL_arg1801z00_4124;

								BgL_arg1801z00_4124 = (BgL_objectz00_bglt) (BgL_iz00_41);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* SawBbv/bbv-range.scm 84 */
										long BgL_idxz00_4130;

										BgL_idxz00_4130 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4124);
										BgL_test2781z00_6843 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_4130 + 1L)) == BgL_classz00_4122);
									}
								else
									{	/* SawBbv/bbv-range.scm 84 */
										bool_t BgL_res2480z00_4152;

										{	/* SawBbv/bbv-range.scm 84 */
											obj_t BgL_oclassz00_4138;

											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_arg1808z00_4144;

												{	/* SawBbv/bbv-range.scm 84 */
													long BgL_arg1809z00_4145;

													BgL_arg1809z00_4145 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4124);
													BgL_arg1808z00_4144 =
														(BgL_arg1809z00_4145 - OBJECT_TYPE);
												}
												BgL_oclassz00_4138 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_4144);
											}
											{	/* SawBbv/bbv-range.scm 84 */
												bool_t BgL__ortest_1115z00_4139;

												BgL__ortest_1115z00_4139 =
													(BgL_classz00_4122 == BgL_oclassz00_4138);
												if (BgL__ortest_1115z00_4139)
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_res2480z00_4152 = BgL__ortest_1115z00_4139;
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_odepthz00_4140;

														BgL_odepthz00_4140 =
															BGL_CLASS_DEPTH(BgL_oclassz00_4138);
														if ((1L < BgL_odepthz00_4140))
															{	/* SawBbv/bbv-range.scm 84 */
																obj_t BgL_arg1797z00_4142;

																BgL_arg1797z00_4142 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4138,
																	1L);
																BgL_res2480z00_4152 =
																	(BgL_arg1797z00_4142 == BgL_classz00_4122);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																BgL_res2480z00_4152 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2781z00_6843 = BgL_res2480z00_4152;
									}
							}
						else
							{	/* SawBbv/bbv-range.scm 84 */
								BgL_test2781z00_6843 = ((bool_t) 0);
							}
					}
					if (BgL_test2781z00_6843)
						{	/* SawBbv/bbv-range.scm 253 */
							BgL_bbvzd2vlenzd2_bglt BgL_new1189z00_2135;

							{	/* SawBbv/bbv-range.scm 253 */
								BgL_bbvzd2vlenzd2_bglt BgL_new1192z00_2137;

								BgL_new1192z00_2137 =
									((BgL_bbvzd2vlenzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_bbvzd2vlenzd2_bgl))));
								{	/* SawBbv/bbv-range.scm 253 */
									long BgL_arg1793z00_2138;

									BgL_arg1793z00_2138 =
										BGL_CLASS_NUM(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1192z00_2137),
										BgL_arg1793z00_2138);
								}
								BgL_new1189z00_2135 = BgL_new1192z00_2137;
							}
							((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1189z00_2135))->
									BgL_vecz00) =
								((obj_t) (((BgL_bbvzd2vlenzd2_bglt)
											COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_iz00_41)))->
										BgL_vecz00)), BUNSPEC);
							((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1189z00_2135))->
									BgL_offsetz00) =
								((int) (int) (((long) ((((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_iz00_41)))->
													BgL_offsetz00)) + 1L))), BUNSPEC);
							return ((obj_t) BgL_new1189z00_2135);
						}
					else
						{	/* SawBbv/bbv-range.scm 252 */
							if (INTEGERP(BgL_iz00_41))
								{	/* SawBbv/bbv-range.scm 256 */
									obj_t BgL_tmpz00_4161;

									BgL_tmpz00_4161 = BINT(0L);
									{	/* SawBbv/bbv-range.scm 256 */
										bool_t BgL_test2787z00_6880;

										{	/* SawBbv/bbv-range.scm 256 */
											obj_t BgL_tmpz00_6881;

											BgL_tmpz00_6881 = BINT(1L);
											BgL_test2787z00_6880 =
												BGL_ADDFX_OV(BgL_iz00_41, BgL_tmpz00_6881,
												BgL_tmpz00_4161);
										}
										if (BgL_test2787z00_6880)
											{	/* SawBbv/bbv-range.scm 256 */
												return
													bgl_bignum_add(bgl_long_to_bignum(
														(long) CINT(BgL_iz00_41)), CNST_TABLE_REF(1L));
											}
										else
											{	/* SawBbv/bbv-range.scm 256 */
												return BgL_tmpz00_4161;
											}
									}
								}
							else
								{	/* SawBbv/bbv-range.scm 256 */
									return
										BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_iz00_41, BINT(1L));
								}
						}
				}
		}

	}



/* -- */
	obj_t BGl_zd2zd2z00zzsaw_bbvzd2rangezd2(obj_t BgL_iz00_42)
	{
		{	/* SawBbv/bbv-range.scm 258 */
			if ((BgL_iz00_42 == BGl_bbvzd2minzd2fixnumzd2envzd2zzsaw_bbvzd2rangezd2))
				{	/* SawBbv/bbv-range.scm 260 */
					return BGl_bbvzd2minzd2fixnumzd2envzd2zzsaw_bbvzd2rangezd2;
				}
			else
				{	/* SawBbv/bbv-range.scm 262 */
					bool_t BgL_test2789z00_6892;

					{	/* SawBbv/bbv-range.scm 84 */
						obj_t BgL_classz00_4169;

						BgL_classz00_4169 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
						if (BGL_OBJECTP(BgL_iz00_42))
							{	/* SawBbv/bbv-range.scm 84 */
								BgL_objectz00_bglt BgL_arg1801z00_4171;

								BgL_arg1801z00_4171 = (BgL_objectz00_bglt) (BgL_iz00_42);
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* SawBbv/bbv-range.scm 84 */
										long BgL_idxz00_4177;

										BgL_idxz00_4177 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4171);
										BgL_test2789z00_6892 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_4177 + 1L)) == BgL_classz00_4169);
									}
								else
									{	/* SawBbv/bbv-range.scm 84 */
										bool_t BgL_res2481z00_4199;

										{	/* SawBbv/bbv-range.scm 84 */
											obj_t BgL_oclassz00_4185;

											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_arg1808z00_4191;

												{	/* SawBbv/bbv-range.scm 84 */
													long BgL_arg1809z00_4192;

													BgL_arg1809z00_4192 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4171);
													BgL_arg1808z00_4191 =
														(BgL_arg1809z00_4192 - OBJECT_TYPE);
												}
												BgL_oclassz00_4185 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_4191);
											}
											{	/* SawBbv/bbv-range.scm 84 */
												bool_t BgL__ortest_1115z00_4186;

												BgL__ortest_1115z00_4186 =
													(BgL_classz00_4169 == BgL_oclassz00_4185);
												if (BgL__ortest_1115z00_4186)
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_res2481z00_4199 = BgL__ortest_1115z00_4186;
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_odepthz00_4187;

														BgL_odepthz00_4187 =
															BGL_CLASS_DEPTH(BgL_oclassz00_4185);
														if ((1L < BgL_odepthz00_4187))
															{	/* SawBbv/bbv-range.scm 84 */
																obj_t BgL_arg1797z00_4189;

																BgL_arg1797z00_4189 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4185,
																	1L);
																BgL_res2481z00_4199 =
																	(BgL_arg1797z00_4189 == BgL_classz00_4169);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																BgL_res2481z00_4199 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test2789z00_6892 = BgL_res2481z00_4199;
									}
							}
						else
							{	/* SawBbv/bbv-range.scm 84 */
								BgL_test2789z00_6892 = ((bool_t) 0);
							}
					}
					if (BgL_test2789z00_6892)
						{	/* SawBbv/bbv-range.scm 263 */
							BgL_bbvzd2vlenzd2_bglt BgL_new1193z00_2141;

							{	/* SawBbv/bbv-range.scm 263 */
								BgL_bbvzd2vlenzd2_bglt BgL_new1196z00_2143;

								BgL_new1196z00_2143 =
									((BgL_bbvzd2vlenzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_bbvzd2vlenzd2_bgl))));
								{	/* SawBbv/bbv-range.scm 263 */
									long BgL_arg1799z00_2144;

									BgL_arg1799z00_2144 =
										BGL_CLASS_NUM(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1196z00_2143),
										BgL_arg1799z00_2144);
								}
								BgL_new1193z00_2141 = BgL_new1196z00_2143;
							}
							((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1193z00_2141))->
									BgL_vecz00) =
								((obj_t) (((BgL_bbvzd2vlenzd2_bglt)
											COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_iz00_42)))->
										BgL_vecz00)), BUNSPEC);
							((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1193z00_2141))->
									BgL_offsetz00) =
								((int) (int) (((long) ((((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_iz00_42)))->
													BgL_offsetz00)) - 1L))), BUNSPEC);
							return ((obj_t) BgL_new1193z00_2141);
						}
					else
						{	/* SawBbv/bbv-range.scm 262 */
							if (INTEGERP(BgL_iz00_42))
								{	/* SawBbv/bbv-range.scm 266 */
									obj_t BgL_tmpz00_4208;

									BgL_tmpz00_4208 = BINT(0L);
									{	/* SawBbv/bbv-range.scm 266 */
										bool_t BgL_test2795z00_6929;

										{	/* SawBbv/bbv-range.scm 266 */
											obj_t BgL_tmpz00_6930;

											BgL_tmpz00_6930 = BINT(1L);
											BgL_test2795z00_6929 =
												BGL_SUBFX_OV(BgL_iz00_42, BgL_tmpz00_6930,
												BgL_tmpz00_4208);
										}
										if (BgL_test2795z00_6929)
											{	/* SawBbv/bbv-range.scm 266 */
												return
													bgl_bignum_sub(bgl_long_to_bignum(
														(long) CINT(BgL_iz00_42)), CNST_TABLE_REF(1L));
											}
										else
											{	/* SawBbv/bbv-range.scm 266 */
												return BgL_tmpz00_4208;
											}
									}
								}
							else
								{	/* SawBbv/bbv-range.scm 266 */
									return
										BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_iz00_42, BINT(1L));
								}
						}
				}
		}

	}



/* bbv-range? */
	BGL_EXPORTED_DEF bool_t BGl_bbvzd2rangezf3z21zzsaw_bbvzd2rangezd2(obj_t
		BgL_oz00_43)
	{
		{	/* SawBbv/bbv-range.scm 271 */
			{	/* SawBbv/bbv-range.scm 272 */
				obj_t BgL_classz00_5980;

				BgL_classz00_5980 = BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2;
				if (BGL_OBJECTP(BgL_oz00_43))
					{	/* SawBbv/bbv-range.scm 272 */
						BgL_objectz00_bglt BgL_arg1801z00_5981;

						BgL_arg1801z00_5981 = (BgL_objectz00_bglt) (BgL_oz00_43);
						if (BGL_CONDEXPAND_ISA_ARCH64())
							{	/* SawBbv/bbv-range.scm 272 */
								long BgL_idxz00_5982;

								BgL_idxz00_5982 =
									BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5981);
								return
									(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
										(BgL_idxz00_5982 + 1L)) == BgL_classz00_5980);
							}
						else
							{	/* SawBbv/bbv-range.scm 272 */
								bool_t BgL_res2482z00_5985;

								{	/* SawBbv/bbv-range.scm 272 */
									obj_t BgL_oclassz00_5986;

									{	/* SawBbv/bbv-range.scm 272 */
										long BgL_arg1808z00_5987;

										{	/* SawBbv/bbv-range.scm 272 */
											long BgL_arg1809z00_5988;

											BgL_arg1809z00_5988 =
												BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5981);
											BgL_arg1808z00_5987 = (BgL_arg1809z00_5988 - OBJECT_TYPE);
										}
										BgL_oclassz00_5986 =
											VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
											BgL_arg1808z00_5987);
									}
									{	/* SawBbv/bbv-range.scm 272 */
										bool_t BgL__ortest_1115z00_5989;

										BgL__ortest_1115z00_5989 =
											(BgL_classz00_5980 == BgL_oclassz00_5986);
										if (BgL__ortest_1115z00_5989)
											{	/* SawBbv/bbv-range.scm 272 */
												BgL_res2482z00_5985 = BgL__ortest_1115z00_5989;
											}
										else
											{	/* SawBbv/bbv-range.scm 272 */
												long BgL_odepthz00_5990;

												BgL_odepthz00_5990 =
													BGL_CLASS_DEPTH(BgL_oclassz00_5986);
												if ((1L < BgL_odepthz00_5990))
													{	/* SawBbv/bbv-range.scm 272 */
														obj_t BgL_arg1797z00_5991;

														BgL_arg1797z00_5991 =
															BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_5986, 1L);
														BgL_res2482z00_5985 =
															(BgL_arg1797z00_5991 == BgL_classz00_5980);
													}
												else
													{	/* SawBbv/bbv-range.scm 272 */
														BgL_res2482z00_5985 = ((bool_t) 0);
													}
											}
									}
								}
								return BgL_res2482z00_5985;
							}
					}
				else
					{	/* SawBbv/bbv-range.scm 272 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &bbv-range? */
	obj_t BGl_z62bbvzd2rangezf3z43zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5822,
		obj_t BgL_oz00_5823)
	{
		{	/* SawBbv/bbv-range.scm 271 */
			return BBOOL(BGl_bbvzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_oz00_5823));
		}

	}



/* bbv-range-fixnum? */
	BGL_EXPORTED_DEF bool_t
		BGl_bbvzd2rangezd2fixnumzf3zf3zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_oz00_44)
	{
		{	/* SawBbv/bbv-range.scm 277 */
			{	/* SawBbv/bbv-range.scm 279 */
				bool_t BgL_test2800z00_6960;

				{	/* SawBbv/bbv-range.scm 279 */
					bool_t BgL__ortest_1199z00_2153;

					{	/* SawBbv/bbv-range.scm 279 */
						obj_t BgL_arg1826z00_2158;

						BgL_arg1826z00_2158 =
							(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_oz00_44))->BgL_loz00);
						{	/* SawBbv/bbv-range.scm 84 */
							obj_t BgL_classz00_4247;

							BgL_classz00_4247 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
							if (BGL_OBJECTP(BgL_arg1826z00_2158))
								{	/* SawBbv/bbv-range.scm 84 */
									BgL_objectz00_bglt BgL_arg1801z00_4249;

									BgL_arg1801z00_4249 =
										(BgL_objectz00_bglt) (BgL_arg1826z00_2158);
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* SawBbv/bbv-range.scm 84 */
											long BgL_idxz00_4255;

											BgL_idxz00_4255 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4249);
											BgL__ortest_1199z00_2153 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_4255 + 1L)) == BgL_classz00_4247);
										}
									else
										{	/* SawBbv/bbv-range.scm 84 */
											bool_t BgL_res2483z00_4277;

											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_oclassz00_4263;

												{	/* SawBbv/bbv-range.scm 84 */
													long BgL_arg1808z00_4269;

													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_arg1809z00_4270;

														BgL_arg1809z00_4270 =
															BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4249);
														BgL_arg1808z00_4269 =
															(BgL_arg1809z00_4270 - OBJECT_TYPE);
													}
													BgL_oclassz00_4263 =
														VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
														BgL_arg1808z00_4269);
												}
												{	/* SawBbv/bbv-range.scm 84 */
													bool_t BgL__ortest_1115z00_4264;

													BgL__ortest_1115z00_4264 =
														(BgL_classz00_4247 == BgL_oclassz00_4263);
													if (BgL__ortest_1115z00_4264)
														{	/* SawBbv/bbv-range.scm 84 */
															BgL_res2483z00_4277 = BgL__ortest_1115z00_4264;
														}
													else
														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_odepthz00_4265;

															BgL_odepthz00_4265 =
																BGL_CLASS_DEPTH(BgL_oclassz00_4263);
															if ((1L < BgL_odepthz00_4265))
																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_arg1797z00_4267;

																	BgL_arg1797z00_4267 =
																		BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4263,
																		1L);
																	BgL_res2483z00_4277 =
																		(BgL_arg1797z00_4267 == BgL_classz00_4247);
																}
															else
																{	/* SawBbv/bbv-range.scm 84 */
																	BgL_res2483z00_4277 = ((bool_t) 0);
																}
														}
												}
											}
											BgL__ortest_1199z00_2153 = BgL_res2483z00_4277;
										}
								}
							else
								{	/* SawBbv/bbv-range.scm 84 */
									BgL__ortest_1199z00_2153 = ((bool_t) 0);
								}
						}
					}
					if (BgL__ortest_1199z00_2153)
						{	/* SawBbv/bbv-range.scm 279 */
							BgL_test2800z00_6960 = BgL__ortest_1199z00_2153;
						}
					else
						{	/* SawBbv/bbv-range.scm 279 */
							if (INTEGERP(
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_oz00_44))->
										BgL_loz00)))
								{	/* SawBbv/bbv-range.scm 279 */
									obj_t BgL_arg1823z00_2155;
									long BgL_arg1824z00_2156;

									BgL_arg1823z00_2155 =
										(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_oz00_44))->
										BgL_loz00);
									{	/* SawBbv/bbv-range.scm 244 */
										long BgL_arg1771z00_4278;

										{	/* SawBbv/bbv-range.scm 244 */
											long BgL_arg1773z00_4279;

											{	/* SawBbv/bbv-range.scm 242 */
												long BgL_arg1763z00_4280;

												{	/* SawBbv/bbv-range.scm 242 */
													obj_t BgL_arg1768z00_4281;

													BgL_arg1768z00_4281 =
														BGl_bigloozd2configzd2zz__configurez00
														(CNST_TABLE_REF(0L));
													BgL_arg1763z00_4280 =
														((long) CINT(BgL_arg1768z00_4281) - 2L);
												}
												BgL_arg1773z00_4279 =
													(1L << (int) (BgL_arg1763z00_4280));
											}
											BgL_arg1771z00_4278 = NEG(BgL_arg1773z00_4279);
										}
										BgL_arg1824z00_2156 = (BgL_arg1771z00_4278 - 1L);
									}
									BgL_test2800z00_6960 =
										((long) CINT(BgL_arg1823z00_2155) >= BgL_arg1824z00_2156);
								}
							else
								{	/* SawBbv/bbv-range.scm 279 */
									BgL_test2800z00_6960 = ((bool_t) 0);
								}
						}
				}
				if (BgL_test2800z00_6960)
					{	/* SawBbv/bbv-range.scm 280 */
						bool_t BgL__ortest_1201z00_2147;

						{	/* SawBbv/bbv-range.scm 280 */
							obj_t BgL_arg1822z00_2152;

							BgL_arg1822z00_2152 =
								(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_oz00_44))->BgL_upz00);
							{	/* SawBbv/bbv-range.scm 84 */
								obj_t BgL_classz00_4288;

								BgL_classz00_4288 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
								if (BGL_OBJECTP(BgL_arg1822z00_2152))
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_objectz00_bglt BgL_arg1801z00_4290;

										BgL_arg1801z00_4290 =
											(BgL_objectz00_bglt) (BgL_arg1822z00_2152);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_idxz00_4296;

												BgL_idxz00_4296 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4290);
												BgL__ortest_1201z00_2147 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_4296 + 1L)) == BgL_classz00_4288);
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												bool_t BgL_res2484z00_4318;

												{	/* SawBbv/bbv-range.scm 84 */
													obj_t BgL_oclassz00_4304;

													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_arg1808z00_4310;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1809z00_4311;

															BgL_arg1809z00_4311 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4290);
															BgL_arg1808z00_4310 =
																(BgL_arg1809z00_4311 - OBJECT_TYPE);
														}
														BgL_oclassz00_4304 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_4310);
													}
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL__ortest_1115z00_4305;

														BgL__ortest_1115z00_4305 =
															(BgL_classz00_4288 == BgL_oclassz00_4304);
														if (BgL__ortest_1115z00_4305)
															{	/* SawBbv/bbv-range.scm 84 */
																BgL_res2484z00_4318 = BgL__ortest_1115z00_4305;
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_odepthz00_4306;

																BgL_odepthz00_4306 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_4304);
																if ((1L < BgL_odepthz00_4306))
																	{	/* SawBbv/bbv-range.scm 84 */
																		obj_t BgL_arg1797z00_4308;

																		BgL_arg1797z00_4308 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_4304, 1L);
																		BgL_res2484z00_4318 =
																			(BgL_arg1797z00_4308 ==
																			BgL_classz00_4288);
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2484z00_4318 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL__ortest_1201z00_2147 = BgL_res2484z00_4318;
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 84 */
										BgL__ortest_1201z00_2147 = ((bool_t) 0);
									}
							}
						}
						if (BgL__ortest_1201z00_2147)
							{	/* SawBbv/bbv-range.scm 280 */
								return BgL__ortest_1201z00_2147;
							}
						else
							{	/* SawBbv/bbv-range.scm 280 */
								if (INTEGERP(
										(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_oz00_44))->
											BgL_upz00)))
									{	/* SawBbv/bbv-range.scm 280 */
										obj_t BgL_arg1800z00_2149;
										long BgL_arg1802z00_2150;

										BgL_arg1800z00_2149 =
											(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_oz00_44))->
											BgL_upz00);
										{	/* SawBbv/bbv-range.scm 242 */
											long BgL_arg1763z00_4319;

											{	/* SawBbv/bbv-range.scm 242 */
												obj_t BgL_arg1768z00_4320;

												BgL_arg1768z00_4320 =
													BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF
													(0L));
												BgL_arg1763z00_4319 =
													((long) CINT(BgL_arg1768z00_4320) - 2L);
											}
											BgL_arg1802z00_2150 = (1L << (int) (BgL_arg1763z00_4319));
										}
										return
											((long) CINT(BgL_arg1800z00_2149) <= BgL_arg1802z00_2150);
									}
								else
									{	/* SawBbv/bbv-range.scm 280 */
										return ((bool_t) 0);
									}
							}
					}
				else
					{	/* SawBbv/bbv-range.scm 279 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &bbv-range-fixnum? */
	obj_t BGl_z62bbvzd2rangezd2fixnumzf3z91zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5824, obj_t BgL_oz00_5825)
	{
		{	/* SawBbv/bbv-range.scm 277 */
			return
				BBOOL(BGl_bbvzd2rangezd2fixnumzf3zf3zzsaw_bbvzd2rangezd2(
					((BgL_bbvzd2rangezd2_bglt) BgL_oz00_5825)));
		}

	}



/* empty-range? */
	BGL_EXPORTED_DEF bool_t
		BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_rz00_50)
	{
		{	/* SawBbv/bbv-range.scm 349 */
			{	/* SawBbv/bbv-range.scm 350 */
				bool_t BgL_test2813z00_7032;

				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(
						(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_rz00_50))->BgL_loz00)))
					{	/* SawBbv/bbv-range.scm 350 */
						BgL_test2813z00_7032 =
							BGl_numberzf3zf3zz__r4_numbers_6_5z00(
							(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_rz00_50))->BgL_upz00));
					}
				else
					{	/* SawBbv/bbv-range.scm 350 */
						BgL_test2813z00_7032 = ((bool_t) 0);
					}
				if (BgL_test2813z00_7032)
					{	/* SawBbv/bbv-range.scm 351 */
						obj_t BgL_a1510z00_2173;

						BgL_a1510z00_2173 =
							(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_rz00_50))->BgL_loz00);
						{	/* SawBbv/bbv-range.scm 351 */
							obj_t BgL_b1511z00_2174;

							BgL_b1511z00_2174 =
								(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_rz00_50))->BgL_upz00);
							{	/* SawBbv/bbv-range.scm 351 */

								{	/* SawBbv/bbv-range.scm 351 */
									bool_t BgL_test2815z00_7040;

									if (INTEGERP(BgL_a1510z00_2173))
										{	/* SawBbv/bbv-range.scm 351 */
											BgL_test2815z00_7040 = INTEGERP(BgL_b1511z00_2174);
										}
									else
										{	/* SawBbv/bbv-range.scm 351 */
											BgL_test2815z00_7040 = ((bool_t) 0);
										}
									if (BgL_test2815z00_7040)
										{	/* SawBbv/bbv-range.scm 351 */
											return
												(
												(long) CINT(BgL_a1510z00_2173) >
												(long) CINT(BgL_b1511z00_2174));
										}
									else
										{	/* SawBbv/bbv-range.scm 351 */
											return
												BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_a1510z00_2173,
												BgL_b1511z00_2174);
										}
								}
							}
						}
					}
				else
					{	/* SawBbv/bbv-range.scm 350 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &empty-range? */
	obj_t BGl_z62emptyzd2rangezf3z43zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5826,
		obj_t BgL_rz00_5827)
	{
		{	/* SawBbv/bbv-range.scm 349 */
			return
				BBOOL(BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(
					((BgL_bbvzd2rangezd2_bglt) BgL_rz00_5827)));
		}

	}



/* fixnum-range */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_fixnumzd2rangezd2zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 364 */
			return BGl_za2fixnumzd2rangeza2zd2zzsaw_bbvzd2rangezd2;
		}

	}



/* &fixnum-range */
	BgL_bbvzd2rangezd2_bglt BGl_z62fixnumzd2rangezb0zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5828)
	{
		{	/* SawBbv/bbv-range.scm 364 */
			return BGl_fixnumzd2rangezd2zzsaw_bbvzd2rangezd2();
		}

	}



/* fixnum->range */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_fixnumzd2ze3rangez31zzsaw_bbvzd2rangezd2(long BgL_nz00_51)
	{
		{	/* SawBbv/bbv-range.scm 370 */
			{	/* SawBbv/bbv-range.scm 371 */
				BgL_bbvzd2rangezd2_bglt BgL_new1211z00_2179;

				{	/* SawBbv/bbv-range.scm 372 */
					BgL_bbvzd2rangezd2_bglt BgL_new1210z00_2180;

					BgL_new1210z00_2180 =
						((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_bbvzd2rangezd2_bgl))));
					{	/* SawBbv/bbv-range.scm 372 */
						long BgL_arg1840z00_2181;

						BgL_arg1840z00_2181 =
							BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1210z00_2180), BgL_arg1840z00_2181);
					}
					BgL_new1211z00_2179 = BgL_new1210z00_2180;
				}
				((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1211z00_2179))->BgL_loz00) =
					((obj_t) BINT(BgL_nz00_51)), BUNSPEC);
				((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1211z00_2179))->BgL_upz00) =
					((obj_t) BINT(BgL_nz00_51)), BUNSPEC);
				return BgL_new1211z00_2179;
			}
		}

	}



/* &fixnum->range */
	BgL_bbvzd2rangezd2_bglt BGl_z62fixnumzd2ze3rangez53zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5829, obj_t BgL_nz00_5830)
	{
		{	/* SawBbv/bbv-range.scm 370 */
			return
				BGl_fixnumzd2ze3rangez31zzsaw_bbvzd2rangezd2(
				(long) CINT(BgL_nz00_5830));
		}

	}



/* vlen-range */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_vlenzd2rangezd2zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 386 */
			return BGl_za2vlenzd2rangeza2zd2zzsaw_bbvzd2rangezd2;
		}

	}



/* &vlen-range */
	BgL_bbvzd2rangezd2_bglt BGl_z62vlenzd2rangezb0zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5831)
	{
		{	/* SawBbv/bbv-range.scm 386 */
			return BGl_vlenzd2rangezd2zzsaw_bbvzd2rangezd2();
		}

	}



/* vlen->range */
	BgL_bbvzd2rangezd2_bglt BGl_vlenzd2ze3rangez31zzsaw_bbvzd2rangezd2(obj_t
		BgL_regz00_52, BgL_bbvzd2ctxzd2_bglt BgL_ctxz00_53)
	{
		{	/* SawBbv/bbv-range.scm 392 */
			{
				obj_t BgL_regz00_2190;
				BgL_bbvzd2ctxzd2_bglt BgL_ctxz00_2191;

				if (CBOOL(BGl_za2bbvzd2optimzd2vlengthza2z00zzsaw_bbvzd2configzd2))
					{	/* SawBbv/bbv-range.scm 413 */
						BgL_bbvzd2vlenzd2_bglt BgL_valz00_2183;

						{	/* SawBbv/bbv-range.scm 413 */
							BgL_bbvzd2vlenzd2_bglt BgL_new1219z00_2187;

							{	/* SawBbv/bbv-range.scm 414 */
								BgL_bbvzd2vlenzd2_bglt BgL_new1218z00_2188;

								BgL_new1218z00_2188 =
									((BgL_bbvzd2vlenzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_bbvzd2vlenzd2_bgl))));
								{	/* SawBbv/bbv-range.scm 414 */
									long BgL_arg1842z00_2189;

									BgL_arg1842z00_2189 =
										BGL_CLASS_NUM(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1218z00_2188),
										BgL_arg1842z00_2189);
								}
								BgL_new1219z00_2187 = BgL_new1218z00_2188;
							}
							((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1219z00_2187))->
									BgL_vecz00) = ((obj_t) BgL_regz00_52), BUNSPEC);
							((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1219z00_2187))->
									BgL_offsetz00) = ((int) (int) (0L)), BUNSPEC);
							BgL_valz00_2183 = BgL_new1219z00_2187;
						}
						{	/* SawBbv/bbv-range.scm 416 */
							BgL_bbvzd2rangezd2_bglt BgL_new1221z00_2184;

							{	/* SawBbv/bbv-range.scm 417 */
								BgL_bbvzd2rangezd2_bglt BgL_new1220z00_2185;

								BgL_new1220z00_2185 =
									((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_bbvzd2rangezd2_bgl))));
								{	/* SawBbv/bbv-range.scm 417 */
									long BgL_arg1841z00_2186;

									BgL_arg1841z00_2186 =
										BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1220z00_2185),
										BgL_arg1841z00_2186);
								}
								BgL_new1221z00_2184 = BgL_new1220z00_2185;
							}
							{
								obj_t BgL_auxz00_7076;

								{	/* SawBbv/bbv-range.scm 417 */
									long BgL_tmpz00_7077;

									BgL_regz00_2190 = BgL_regz00_52;
									BgL_ctxz00_2191 = BgL_ctxz00_53;
									{
										long BgL_lowz00_2196;
										obj_t BgL_entriesz00_2197;

										BgL_lowz00_2196 = 0L;
										BgL_entriesz00_2197 =
											(((BgL_bbvzd2ctxzd2_bglt) COBJECT(BgL_ctxz00_2191))->
											BgL_entriesz00);
									BgL_zc3z04anonymousza31845ze3z87_2198:
										if (NULLP(BgL_entriesz00_2197))
											{	/* SawBbv/bbv-range.scm 398 */
												BgL_tmpz00_7077 = BgL_lowz00_2196;
											}
										else
											{	/* SawBbv/bbv-range.scm 400 */
												BgL_bbvzd2ctxentryzd2_bglt BgL_i1215z00_2200;

												BgL_i1215z00_2200 =
													((BgL_bbvzd2ctxentryzd2_bglt)
													CAR(((obj_t) BgL_entriesz00_2197)));
												{	/* SawBbv/bbv-range.scm 401 */
													bool_t BgL_test2819z00_7083;

													{	/* SawBbv/bbv-range.scm 401 */
														obj_t BgL_arg1870z00_2222;

														BgL_arg1870z00_2222 =
															(((BgL_bbvzd2ctxentryzd2_bglt)
																COBJECT(BgL_i1215z00_2200))->BgL_valuez00);
														{	/* SawBbv/bbv-range.scm 401 */
															obj_t BgL_classz00_4411;

															BgL_classz00_4411 =
																BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2;
															if (BGL_OBJECTP(BgL_arg1870z00_2222))
																{	/* SawBbv/bbv-range.scm 401 */
																	BgL_objectz00_bglt BgL_arg1801z00_4413;

																	BgL_arg1801z00_4413 =
																		(BgL_objectz00_bglt) (BgL_arg1870z00_2222);
																	if (BGL_CONDEXPAND_ISA_ARCH64())
																		{	/* SawBbv/bbv-range.scm 401 */
																			long BgL_idxz00_4419;

																			BgL_idxz00_4419 =
																				BGL_OBJECT_INHERITANCE_NUM
																				(BgL_arg1801z00_4413);
																			BgL_test2819z00_7083 =
																				(VECTOR_REF
																				(BGl_za2inheritancesza2z00zz__objectz00,
																					(BgL_idxz00_4419 + 1L)) ==
																				BgL_classz00_4411);
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 401 */
																			bool_t BgL_res2487z00_4441;

																			{	/* SawBbv/bbv-range.scm 401 */
																				obj_t BgL_oclassz00_4427;

																				{	/* SawBbv/bbv-range.scm 401 */
																					long BgL_arg1808z00_4433;

																					{	/* SawBbv/bbv-range.scm 401 */
																						long BgL_arg1809z00_4434;

																						BgL_arg1809z00_4434 =
																							BGL_OBJECT_CLASS_NUM
																							(BgL_arg1801z00_4413);
																						BgL_arg1808z00_4433 =
																							(BgL_arg1809z00_4434 -
																							OBJECT_TYPE);
																					}
																					BgL_oclassz00_4427 =
																						VECTOR_REF
																						(BGl_za2classesza2z00zz__objectz00,
																						BgL_arg1808z00_4433);
																				}
																				{	/* SawBbv/bbv-range.scm 401 */
																					bool_t BgL__ortest_1115z00_4428;

																					BgL__ortest_1115z00_4428 =
																						(BgL_classz00_4411 ==
																						BgL_oclassz00_4427);
																					if (BgL__ortest_1115z00_4428)
																						{	/* SawBbv/bbv-range.scm 401 */
																							BgL_res2487z00_4441 =
																								BgL__ortest_1115z00_4428;
																						}
																					else
																						{	/* SawBbv/bbv-range.scm 401 */
																							long BgL_odepthz00_4429;

																							BgL_odepthz00_4429 =
																								BGL_CLASS_DEPTH
																								(BgL_oclassz00_4427);
																							if ((1L < BgL_odepthz00_4429))
																								{	/* SawBbv/bbv-range.scm 401 */
																									obj_t BgL_arg1797z00_4431;

																									BgL_arg1797z00_4431 =
																										BGL_CLASS_ANCESTORS_REF
																										(BgL_oclassz00_4427, 1L);
																									BgL_res2487z00_4441 =
																										(BgL_arg1797z00_4431 ==
																										BgL_classz00_4411);
																								}
																							else
																								{	/* SawBbv/bbv-range.scm 401 */
																									BgL_res2487z00_4441 =
																										((bool_t) 0);
																								}
																						}
																				}
																			}
																			BgL_test2819z00_7083 =
																				BgL_res2487z00_4441;
																		}
																}
															else
																{	/* SawBbv/bbv-range.scm 401 */
																	BgL_test2819z00_7083 = ((bool_t) 0);
																}
														}
													}
													if (BgL_test2819z00_7083)
														{	/* SawBbv/bbv-range.scm 402 */
															BgL_bbvzd2rangezd2_bglt BgL_i1216z00_2203;

															BgL_i1216z00_2203 =
																((BgL_bbvzd2rangezd2_bglt)
																(((BgL_bbvzd2ctxentryzd2_bglt)
																		COBJECT(BgL_i1215z00_2200))->BgL_valuez00));
															{	/* SawBbv/bbv-range.scm 403 */
																bool_t BgL_test2824z00_7106;

																{	/* SawBbv/bbv-range.scm 403 */
																	obj_t BgL_arg1867z00_2220;

																	BgL_arg1867z00_2220 =
																		(((BgL_bbvzd2rangezd2_bglt)
																			COBJECT(BgL_i1216z00_2203))->BgL_upz00);
																	{	/* SawBbv/bbv-range.scm 84 */
																		obj_t BgL_classz00_4442;

																		BgL_classz00_4442 =
																			BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
																		if (BGL_OBJECTP(BgL_arg1867z00_2220))
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_objectz00_bglt BgL_arg1801z00_4444;

																				BgL_arg1801z00_4444 =
																					(BgL_objectz00_bglt)
																					(BgL_arg1867z00_2220);
																				if (BGL_CONDEXPAND_ISA_ARCH64())
																					{	/* SawBbv/bbv-range.scm 84 */
																						long BgL_idxz00_4450;

																						BgL_idxz00_4450 =
																							BGL_OBJECT_INHERITANCE_NUM
																							(BgL_arg1801z00_4444);
																						BgL_test2824z00_7106 =
																							(VECTOR_REF
																							(BGl_za2inheritancesza2z00zz__objectz00,
																								(BgL_idxz00_4450 + 1L)) ==
																							BgL_classz00_4442);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						bool_t BgL_res2488z00_4472;

																						{	/* SawBbv/bbv-range.scm 84 */
																							obj_t BgL_oclassz00_4458;

																							{	/* SawBbv/bbv-range.scm 84 */
																								long BgL_arg1808z00_4464;

																								{	/* SawBbv/bbv-range.scm 84 */
																									long BgL_arg1809z00_4465;

																									BgL_arg1809z00_4465 =
																										BGL_OBJECT_CLASS_NUM
																										(BgL_arg1801z00_4444);
																									BgL_arg1808z00_4464 =
																										(BgL_arg1809z00_4465 -
																										OBJECT_TYPE);
																								}
																								BgL_oclassz00_4458 =
																									VECTOR_REF
																									(BGl_za2classesza2z00zz__objectz00,
																									BgL_arg1808z00_4464);
																							}
																							{	/* SawBbv/bbv-range.scm 84 */
																								bool_t BgL__ortest_1115z00_4459;

																								BgL__ortest_1115z00_4459 =
																									(BgL_classz00_4442 ==
																									BgL_oclassz00_4458);
																								if (BgL__ortest_1115z00_4459)
																									{	/* SawBbv/bbv-range.scm 84 */
																										BgL_res2488z00_4472 =
																											BgL__ortest_1115z00_4459;
																									}
																								else
																									{	/* SawBbv/bbv-range.scm 84 */
																										long BgL_odepthz00_4460;

																										BgL_odepthz00_4460 =
																											BGL_CLASS_DEPTH
																											(BgL_oclassz00_4458);
																										if ((1L <
																												BgL_odepthz00_4460))
																											{	/* SawBbv/bbv-range.scm 84 */
																												obj_t
																													BgL_arg1797z00_4462;
																												BgL_arg1797z00_4462 =
																													BGL_CLASS_ANCESTORS_REF
																													(BgL_oclassz00_4458,
																													1L);
																												BgL_res2488z00_4472 =
																													(BgL_arg1797z00_4462
																													== BgL_classz00_4442);
																											}
																										else
																											{	/* SawBbv/bbv-range.scm 84 */
																												BgL_res2488z00_4472 =
																													((bool_t) 0);
																											}
																									}
																							}
																						}
																						BgL_test2824z00_7106 =
																							BgL_res2488z00_4472;
																					}
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_test2824z00_7106 = ((bool_t) 0);
																			}
																	}
																}
																if (BgL_test2824z00_7106)
																	{	/* SawBbv/bbv-range.scm 404 */
																		BgL_bbvzd2vlenzd2_bglt BgL_i1217z00_2206;

																		BgL_i1217z00_2206 =
																			((BgL_bbvzd2vlenzd2_bglt)
																			(((BgL_bbvzd2rangezd2_bglt)
																					COBJECT(BgL_i1216z00_2203))->
																				BgL_upz00));
																		if (((((BgL_bbvzd2vlenzd2_bglt)
																						COBJECT(BgL_i1217z00_2206))->
																					BgL_vecz00) == BgL_regz00_2190))
																			{
																				obj_t BgL_entriesz00_7140;
																				long BgL_lowz00_7132;

																				{	/* SawBbv/bbv-range.scm 407 */
																					long BgL_bz00_2213;

																					BgL_bz00_2213 =
																						(
																						(long) CINT(
																							(((BgL_bbvzd2rangezd2_bglt)
																									COBJECT(BgL_i1216z00_2203))->
																								BgL_loz00)) -
																						(long) ((((BgL_bbvzd2vlenzd2_bglt)
																									COBJECT(BgL_i1217z00_2206))->
																								BgL_offsetz00)));
																					if ((BgL_lowz00_2196 > BgL_bz00_2213))
																						{	/* SawBbv/bbv-range.scm 407 */
																							BgL_lowz00_7132 = BgL_lowz00_2196;
																						}
																					else
																						{	/* SawBbv/bbv-range.scm 407 */
																							BgL_lowz00_7132 = BgL_bz00_2213;
																						}
																				}
																				BgL_entriesz00_7140 =
																					CDR(((obj_t) BgL_entriesz00_2197));
																				BgL_entriesz00_2197 =
																					BgL_entriesz00_7140;
																				BgL_lowz00_2196 = BgL_lowz00_7132;
																				goto
																					BgL_zc3z04anonymousza31845ze3z87_2198;
																			}
																		else
																			{
																				obj_t BgL_entriesz00_7143;

																				BgL_entriesz00_7143 =
																					CDR(((obj_t) BgL_entriesz00_2197));
																				BgL_entriesz00_2197 =
																					BgL_entriesz00_7143;
																				goto
																					BgL_zc3z04anonymousza31845ze3z87_2198;
																			}
																	}
																else
																	{
																		obj_t BgL_entriesz00_7146;

																		BgL_entriesz00_7146 =
																			CDR(((obj_t) BgL_entriesz00_2197));
																		BgL_entriesz00_2197 = BgL_entriesz00_7146;
																		goto BgL_zc3z04anonymousza31845ze3z87_2198;
																	}
															}
														}
													else
														{
															obj_t BgL_entriesz00_7149;

															BgL_entriesz00_7149 =
																CDR(((obj_t) BgL_entriesz00_2197));
															BgL_entriesz00_2197 = BgL_entriesz00_7149;
															goto BgL_zc3z04anonymousza31845ze3z87_2198;
														}
												}
											}
									}
									BgL_auxz00_7076 = BINT(BgL_tmpz00_7077);
								}
								((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1221z00_2184))->
										BgL_loz00) = ((obj_t) BgL_auxz00_7076), BUNSPEC);
							}
							((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1221z00_2184))->
									BgL_upz00) = ((obj_t) ((obj_t) BgL_valz00_2183)), BUNSPEC);
							return BgL_new1221z00_2184;
						}
					}
				else
					{	/* SawBbv/bbv-range.scm 412 */
						return BGl_za2vlenzd2rangeza2zd2zzsaw_bbvzd2rangezd2;
					}
			}
		}

	}



/* range-type? */
	BGL_EXPORTED_DEF bool_t BGl_rangezd2typezf3z21zzsaw_bbvzd2rangezd2(obj_t
		BgL_tyz00_54)
	{
		{	/* SawBbv/bbv-range.scm 424 */
			{	/* SawBbv/bbv-range.scm 425 */
				bool_t BgL__ortest_1222z00_2225;

				BgL__ortest_1222z00_2225 =
					(BgL_tyz00_54 == BGl_za2bintza2z00zztype_cachez00);
				if (BgL__ortest_1222z00_2225)
					{	/* SawBbv/bbv-range.scm 425 */
						return BgL__ortest_1222z00_2225;
					}
				else
					{	/* SawBbv/bbv-range.scm 425 */
						return (BgL_tyz00_54 == BGl_za2longza2z00zztype_cachez00);
					}
			}
		}

	}



/* &range-type? */
	obj_t BGl_z62rangezd2typezf3z43zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5832,
		obj_t BgL_tyz00_5833)
	{
		{	/* SawBbv/bbv-range.scm 424 */
			return BBOOL(BGl_rangezd2typezf3z21zzsaw_bbvzd2rangezd2(BgL_tyz00_5833));
		}

	}



/* rtl-range */
	BGL_EXPORTED_DEF obj_t BGl_rtlzd2rangezd2zzsaw_bbvzd2rangezd2(obj_t
		BgL_iz00_55, BgL_bbvzd2ctxzd2_bglt BgL_ctxz00_56)
	{
		{	/* SawBbv/bbv-range.scm 430 */
		BGl_rtlzd2rangezd2zzsaw_bbvzd2rangezd2:
			{	/* SawBbv/bbv-range.scm 435 */
				bool_t BgL_test2832z00_7162;

				{	/* SawBbv/bbv-range.scm 435 */
					obj_t BgL_classz00_4487;

					BgL_classz00_4487 = BGl_rtl_regz00zzsaw_defsz00;
					if (BGL_OBJECTP(BgL_iz00_55))
						{	/* SawBbv/bbv-range.scm 435 */
							BgL_objectz00_bglt BgL_arg1801z00_4489;

							BgL_arg1801z00_4489 = (BgL_objectz00_bglt) (BgL_iz00_55);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* SawBbv/bbv-range.scm 435 */
									long BgL_idxz00_4495;

									BgL_idxz00_4495 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4489);
									BgL_test2832z00_7162 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_4495 + 1L)) == BgL_classz00_4487);
								}
							else
								{	/* SawBbv/bbv-range.scm 435 */
									bool_t BgL_res2489z00_4517;

									{	/* SawBbv/bbv-range.scm 435 */
										obj_t BgL_oclassz00_4503;

										{	/* SawBbv/bbv-range.scm 435 */
											long BgL_arg1808z00_4509;

											{	/* SawBbv/bbv-range.scm 435 */
												long BgL_arg1809z00_4510;

												BgL_arg1809z00_4510 =
													BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4489);
												BgL_arg1808z00_4509 =
													(BgL_arg1809z00_4510 - OBJECT_TYPE);
											}
											BgL_oclassz00_4503 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg1808z00_4509);
										}
										{	/* SawBbv/bbv-range.scm 435 */
											bool_t BgL__ortest_1115z00_4504;

											BgL__ortest_1115z00_4504 =
												(BgL_classz00_4487 == BgL_oclassz00_4503);
											if (BgL__ortest_1115z00_4504)
												{	/* SawBbv/bbv-range.scm 435 */
													BgL_res2489z00_4517 = BgL__ortest_1115z00_4504;
												}
											else
												{	/* SawBbv/bbv-range.scm 435 */
													long BgL_odepthz00_4505;

													BgL_odepthz00_4505 =
														BGL_CLASS_DEPTH(BgL_oclassz00_4503);
													if ((1L < BgL_odepthz00_4505))
														{	/* SawBbv/bbv-range.scm 435 */
															obj_t BgL_arg1797z00_4507;

															BgL_arg1797z00_4507 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4503, 1L);
															BgL_res2489z00_4517 =
																(BgL_arg1797z00_4507 == BgL_classz00_4487);
														}
													else
														{	/* SawBbv/bbv-range.scm 435 */
															BgL_res2489z00_4517 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2832z00_7162 = BgL_res2489z00_4517;
								}
						}
					else
						{	/* SawBbv/bbv-range.scm 435 */
							BgL_test2832z00_7162 = ((bool_t) 0);
						}
				}
				if (BgL_test2832z00_7162)
					{	/* SawBbv/bbv-range.scm 438 */
						obj_t BgL_ez00_2227;

						BgL_ez00_2227 =
							BGl_bbvzd2ctxzd2getz00zzsaw_bbvzd2typeszd2(BgL_ctxz00_56,
							((BgL_rtl_regz00_bglt) BgL_iz00_55));
						if (CBOOL(BgL_ez00_2227))
							{	/* SawBbv/bbv-range.scm 444 */
								bool_t BgL_test2838z00_7186;

								if (
									(((BgL_bbvzd2ctxentryzd2_bglt) COBJECT(
												((BgL_bbvzd2ctxentryzd2_bglt) BgL_ez00_2227)))->
										BgL_polarityz00))
									{
										obj_t BgL_l1512z00_2246;

										BgL_l1512z00_2246 =
											(((BgL_bbvzd2ctxentryzd2_bglt) COBJECT(
													((BgL_bbvzd2ctxentryzd2_bglt) BgL_ez00_2227)))->
											BgL_typesz00);
									BgL_zc3z04anonymousza31882ze3z87_2247:
										if (NULLP(BgL_l1512z00_2246))
											{	/* SawBbv/bbv-range.scm 444 */
												BgL_test2838z00_7186 = ((bool_t) 0);
											}
										else
											{	/* SawBbv/bbv-range.scm 444 */
												bool_t BgL__ortest_1515z00_2249;

												BgL__ortest_1515z00_2249 =
													BGl_rangezd2typezf3z21zzsaw_bbvzd2rangezd2(CAR(
														((obj_t) BgL_l1512z00_2246)));
												if (BgL__ortest_1515z00_2249)
													{	/* SawBbv/bbv-range.scm 444 */
														BgL_test2838z00_7186 = BgL__ortest_1515z00_2249;
													}
												else
													{
														obj_t BgL_l1512z00_7196;

														BgL_l1512z00_7196 =
															CDR(((obj_t) BgL_l1512z00_2246));
														BgL_l1512z00_2246 = BgL_l1512z00_7196;
														goto BgL_zc3z04anonymousza31882ze3z87_2247;
													}
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 444 */
										BgL_test2838z00_7186 = ((bool_t) 0);
									}
								if (BgL_test2838z00_7186)
									{	/* SawBbv/bbv-range.scm 445 */
										bool_t BgL_test2842z00_7201;

										{	/* SawBbv/bbv-range.scm 445 */
											obj_t BgL_arg1881z00_2242;

											BgL_arg1881z00_2242 =
												(((BgL_bbvzd2ctxentryzd2_bglt) COBJECT(
														((BgL_bbvzd2ctxentryzd2_bglt) BgL_ez00_2227)))->
												BgL_valuez00);
											{	/* SawBbv/bbv-range.scm 272 */
												obj_t BgL_classz00_4520;

												BgL_classz00_4520 =
													BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_arg1881z00_2242))
													{	/* SawBbv/bbv-range.scm 272 */
														BgL_objectz00_bglt BgL_arg1801z00_4522;

														BgL_arg1801z00_4522 =
															(BgL_objectz00_bglt) (BgL_arg1881z00_2242);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 272 */
																long BgL_idxz00_4528;

																BgL_idxz00_4528 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_4522);
																BgL_test2842z00_7201 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_4528 + 1L)) ==
																	BgL_classz00_4520);
															}
														else
															{	/* SawBbv/bbv-range.scm 272 */
																bool_t BgL_res2490z00_4550;

																{	/* SawBbv/bbv-range.scm 272 */
																	obj_t BgL_oclassz00_4536;

																	{	/* SawBbv/bbv-range.scm 272 */
																		long BgL_arg1808z00_4542;

																		{	/* SawBbv/bbv-range.scm 272 */
																			long BgL_arg1809z00_4543;

																			BgL_arg1809z00_4543 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_4522);
																			BgL_arg1808z00_4542 =
																				(BgL_arg1809z00_4543 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_4536 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_4542);
																	}
																	{	/* SawBbv/bbv-range.scm 272 */
																		bool_t BgL__ortest_1115z00_4537;

																		BgL__ortest_1115z00_4537 =
																			(BgL_classz00_4520 == BgL_oclassz00_4536);
																		if (BgL__ortest_1115z00_4537)
																			{	/* SawBbv/bbv-range.scm 272 */
																				BgL_res2490z00_4550 =
																					BgL__ortest_1115z00_4537;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 272 */
																				long BgL_odepthz00_4538;

																				BgL_odepthz00_4538 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_4536);
																				if ((1L < BgL_odepthz00_4538))
																					{	/* SawBbv/bbv-range.scm 272 */
																						obj_t BgL_arg1797z00_4540;

																						BgL_arg1797z00_4540 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_4536, 1L);
																						BgL_res2490z00_4550 =
																							(BgL_arg1797z00_4540 ==
																							BgL_classz00_4520);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 272 */
																						BgL_res2490z00_4550 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2842z00_7201 = BgL_res2490z00_4550;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 272 */
														BgL_test2842z00_7201 = ((bool_t) 0);
													}
											}
										}
										if (BgL_test2842z00_7201)
											{	/* SawBbv/bbv-range.scm 445 */
												return
													(((BgL_bbvzd2ctxentryzd2_bglt) COBJECT(
															((BgL_bbvzd2ctxentryzd2_bglt) BgL_ez00_2227)))->
													BgL_valuez00);
											}
										else
											{	/* SawBbv/bbv-range.scm 445 */
												return BFALSE;
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 444 */
										return BFALSE;
									}
							}
						else
							{	/* SawBbv/bbv-range.scm 439 */
								return BFALSE;
							}
					}
				else
					{	/* SawBbv/bbv-range.scm 435 */
						if (BGl_rtl_inszd2movzf3z21zzsaw_bbvzd2typeszd2(
								((BgL_rtl_insz00_bglt) BgL_iz00_55)))
							{	/* SawBbv/bbv-range.scm 449 */
								obj_t BgL_arg1886z00_2254;

								{	/* SawBbv/bbv-range.scm 449 */
									obj_t BgL_pairz00_4552;

									BgL_pairz00_4552 =
										(((BgL_rtl_insz00_bglt) COBJECT(
												((BgL_rtl_insz00_bglt) BgL_iz00_55)))->BgL_argsz00);
									BgL_arg1886z00_2254 = CAR(BgL_pairz00_4552);
								}
								{
									obj_t BgL_iz00_7231;

									BgL_iz00_7231 = BgL_arg1886z00_2254;
									BgL_iz00_55 = BgL_iz00_7231;
									goto BGl_rtlzd2rangezd2zzsaw_bbvzd2rangezd2;
								}
							}
						else
							{	/* SawBbv/bbv-range.scm 447 */
								if (BGl_rtl_inszd2strlenzf3z21zzsaw_bbvzd2typeszd2(
										((BgL_rtl_insz00_bglt) BgL_iz00_55)))
									{	/* SawBbv/bbv-range.scm 455 */
										bool_t BgL_test2849z00_7235;

										{	/* SawBbv/bbv-range.scm 455 */
											obj_t BgL_arg1898z00_2268;

											{	/* SawBbv/bbv-range.scm 455 */
												obj_t BgL_pairz00_4553;

												BgL_pairz00_4553 =
													(((BgL_rtl_insz00_bglt) COBJECT(
															((BgL_rtl_insz00_bglt) BgL_iz00_55)))->
													BgL_argsz00);
												BgL_arg1898z00_2268 = CAR(BgL_pairz00_4553);
											}
											{	/* SawBbv/bbv-range.scm 455 */
												obj_t BgL_classz00_4554;

												BgL_classz00_4554 = BGl_rtl_regz00zzsaw_defsz00;
												if (BGL_OBJECTP(BgL_arg1898z00_2268))
													{	/* SawBbv/bbv-range.scm 455 */
														BgL_objectz00_bglt BgL_arg1801z00_4556;

														BgL_arg1801z00_4556 =
															(BgL_objectz00_bglt) (BgL_arg1898z00_2268);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 455 */
																long BgL_idxz00_4562;

																BgL_idxz00_4562 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_4556);
																BgL_test2849z00_7235 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_4562 + 1L)) ==
																	BgL_classz00_4554);
															}
														else
															{	/* SawBbv/bbv-range.scm 455 */
																bool_t BgL_res2491z00_4584;

																{	/* SawBbv/bbv-range.scm 455 */
																	obj_t BgL_oclassz00_4570;

																	{	/* SawBbv/bbv-range.scm 455 */
																		long BgL_arg1808z00_4576;

																		{	/* SawBbv/bbv-range.scm 455 */
																			long BgL_arg1809z00_4577;

																			BgL_arg1809z00_4577 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_4556);
																			BgL_arg1808z00_4576 =
																				(BgL_arg1809z00_4577 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_4570 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_4576);
																	}
																	{	/* SawBbv/bbv-range.scm 455 */
																		bool_t BgL__ortest_1115z00_4571;

																		BgL__ortest_1115z00_4571 =
																			(BgL_classz00_4554 == BgL_oclassz00_4570);
																		if (BgL__ortest_1115z00_4571)
																			{	/* SawBbv/bbv-range.scm 455 */
																				BgL_res2491z00_4584 =
																					BgL__ortest_1115z00_4571;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 455 */
																				long BgL_odepthz00_4572;

																				BgL_odepthz00_4572 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_4570);
																				if ((1L < BgL_odepthz00_4572))
																					{	/* SawBbv/bbv-range.scm 455 */
																						obj_t BgL_arg1797z00_4574;

																						BgL_arg1797z00_4574 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_4570, 1L);
																						BgL_res2491z00_4584 =
																							(BgL_arg1797z00_4574 ==
																							BgL_classz00_4554);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 455 */
																						BgL_res2491z00_4584 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2849z00_7235 = BgL_res2491z00_4584;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 455 */
														BgL_test2849z00_7235 = ((bool_t) 0);
													}
											}
										}
										if (BgL_test2849z00_7235)
											{	/* SawBbv/bbv-range.scm 457 */
												obj_t BgL_g1225z00_2261;

												{	/* SawBbv/bbv-range.scm 457 */
													obj_t BgL_arg1896z00_2266;

													{	/* SawBbv/bbv-range.scm 457 */
														obj_t BgL_pairz00_4585;

														BgL_pairz00_4585 =
															(((BgL_rtl_insz00_bglt) COBJECT(
																	((BgL_rtl_insz00_bglt) BgL_iz00_55)))->
															BgL_argsz00);
														BgL_arg1896z00_2266 = CAR(BgL_pairz00_4585);
													}
													BgL_g1225z00_2261 =
														BGl_bbvzd2ctxzd2getz00zzsaw_bbvzd2typeszd2
														(BgL_ctxz00_56,
														((BgL_rtl_regz00_bglt) BgL_arg1896z00_2266));
												}
												if (CBOOL(BgL_g1225z00_2261))
													{	/* SawBbv/bbv-range.scm 460 */
														obj_t BgL_arg1894z00_2264;

														{	/* SawBbv/bbv-range.scm 460 */
															obj_t BgL_pairz00_4586;

															BgL_pairz00_4586 =
																(((BgL_rtl_insz00_bglt) COBJECT(
																		((BgL_rtl_insz00_bglt) BgL_iz00_55)))->
																BgL_argsz00);
															BgL_arg1894z00_2264 = CAR(BgL_pairz00_4586);
														}
														return
															((obj_t)
															BGl_vlenzd2ze3rangez31zzsaw_bbvzd2rangezd2
															(BgL_arg1894z00_2264, BgL_ctxz00_56));
													}
												else
													{	/* SawBbv/bbv-range.scm 462 */
														BgL_bbvzd2rangezd2_bglt BgL_res2492z00_4587;

														BgL_res2492z00_4587 =
															BGl_za2vlenzd2rangeza2zd2zzsaw_bbvzd2rangezd2;
														return ((obj_t) BgL_res2492z00_4587);
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 456 */
												BgL_bbvzd2rangezd2_bglt BgL_res2493z00_4588;

												BgL_res2493z00_4588 =
													BGl_za2vlenzd2rangeza2zd2zzsaw_bbvzd2rangezd2;
												return ((obj_t) BgL_res2493z00_4588);
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 450 */
										if (BGl_rtl_inszd2callzf3z21zzsaw_bbvzd2typeszd2(
												((BgL_rtl_insz00_bglt) BgL_iz00_55)))
											{	/* SawBbv/bbv-range.scm 466 */
												BgL_rtl_callz00_bglt BgL_i1229z00_2272;

												BgL_i1229z00_2272 =
													((BgL_rtl_callz00_bglt)
													(((BgL_rtl_insz00_bglt) COBJECT(
																((BgL_rtl_insz00_bglt) BgL_iz00_55)))->
														BgL_funz00));
												{	/* SawBbv/bbv-range.scm 468 */
													bool_t BgL_test2856z00_7278;

													{	/* SawBbv/bbv-range.scm 468 */
														BgL_globalz00_bglt BgL_arg1922z00_2287;

														BgL_arg1922z00_2287 =
															(((BgL_rtl_callz00_bglt)
																COBJECT(BgL_i1229z00_2272))->BgL_varz00);
														BgL_test2856z00_7278 =
															(((obj_t) BgL_arg1922z00_2287) ==
															BGl_za2intzd2ze3longza2z31zzsaw_bbvzd2cachezd2);
													}
													if (BgL_test2856z00_7278)
														{	/* SawBbv/bbv-range.scm 469 */
															obj_t BgL_arg1905z00_2275;

															{	/* SawBbv/bbv-range.scm 469 */
																obj_t BgL_pairz00_4590;

																BgL_pairz00_4590 =
																	(((BgL_rtl_insz00_bglt) COBJECT(
																			((BgL_rtl_insz00_bglt) BgL_iz00_55)))->
																	BgL_argsz00);
																BgL_arg1905z00_2275 = CAR(BgL_pairz00_4590);
															}
															{
																obj_t BgL_iz00_7285;

																BgL_iz00_7285 = BgL_arg1905z00_2275;
																BgL_iz00_55 = BgL_iz00_7285;
																goto BGl_rtlzd2rangezd2zzsaw_bbvzd2rangezd2;
															}
														}
													else
														{	/* SawBbv/bbv-range.scm 470 */
															bool_t BgL_test2857z00_7286;

															{	/* SawBbv/bbv-range.scm 470 */
																BgL_globalz00_bglt BgL_arg1921z00_2286;

																BgL_arg1921z00_2286 =
																	(((BgL_rtl_callz00_bglt)
																		COBJECT(BgL_i1229z00_2272))->BgL_varz00);
																BgL_test2857z00_7286 =
																	(((obj_t) BgL_arg1921z00_2286) ==
																	BGl_za2longzd2ze3bintza2z31zzsaw_bbvzd2cachezd2);
															}
															if (BgL_test2857z00_7286)
																{	/* SawBbv/bbv-range.scm 471 */
																	obj_t BgL_arg1911z00_2279;

																	{	/* SawBbv/bbv-range.scm 471 */
																		obj_t BgL_pairz00_4592;

																		BgL_pairz00_4592 =
																			(((BgL_rtl_insz00_bglt) COBJECT(
																					((BgL_rtl_insz00_bglt)
																						BgL_iz00_55)))->BgL_argsz00);
																		BgL_arg1911z00_2279 = CAR(BgL_pairz00_4592);
																	}
																	{
																		obj_t BgL_iz00_7293;

																		BgL_iz00_7293 = BgL_arg1911z00_2279;
																		BgL_iz00_55 = BgL_iz00_7293;
																		goto BGl_rtlzd2rangezd2zzsaw_bbvzd2rangezd2;
																	}
																}
															else
																{	/* SawBbv/bbv-range.scm 472 */
																	bool_t BgL_test2858z00_7294;

																	{	/* SawBbv/bbv-range.scm 472 */
																		BgL_globalz00_bglt BgL_arg1920z00_2285;

																		BgL_arg1920z00_2285 =
																			(((BgL_rtl_callz00_bglt)
																				COBJECT(BgL_i1229z00_2272))->
																			BgL_varz00);
																		BgL_test2858z00_7294 =
																			(((obj_t) BgL_arg1920z00_2285) ==
																			BGl_za2bintzd2ze3longza2z31zzsaw_bbvzd2cachezd2);
																	}
																	if (BgL_test2858z00_7294)
																		{	/* SawBbv/bbv-range.scm 473 */
																			obj_t BgL_arg1917z00_2283;

																			{	/* SawBbv/bbv-range.scm 473 */
																				obj_t BgL_pairz00_4594;

																				BgL_pairz00_4594 =
																					(((BgL_rtl_insz00_bglt) COBJECT(
																							((BgL_rtl_insz00_bglt)
																								BgL_iz00_55)))->BgL_argsz00);
																				BgL_arg1917z00_2283 =
																					CAR(BgL_pairz00_4594);
																			}
																			{
																				obj_t BgL_iz00_7301;

																				BgL_iz00_7301 = BgL_arg1917z00_2283;
																				BgL_iz00_55 = BgL_iz00_7301;
																				goto
																					BGl_rtlzd2rangezd2zzsaw_bbvzd2rangezd2;
																			}
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 472 */
																			return BFALSE;
																		}
																}
														}
												}
											}
										else
											{	/* SawBbv/bbv-range.scm 463 */
												if (BGl_rtl_inszd2loadizf3z21zzsaw_bbvzd2typeszd2(
														((BgL_rtl_insz00_bglt) BgL_iz00_55)))
													{	/* SawBbv/bbv-range.scm 479 */
														BgL_rtl_loadiz00_bglt BgL_i1231z00_2290;

														BgL_i1231z00_2290 =
															((BgL_rtl_loadiz00_bglt)
															(((BgL_rtl_insz00_bglt) COBJECT(
																		((BgL_rtl_insz00_bglt) BgL_iz00_55)))->
																BgL_funz00));
														{	/* SawBbv/bbv-range.scm 480 */
															BgL_atomz00_bglt BgL_i1232z00_2291;

															BgL_i1232z00_2291 =
																(((BgL_rtl_loadiz00_bglt)
																	COBJECT(BgL_i1231z00_2290))->BgL_constantz00);
															if (INTEGERP((((BgL_atomz00_bglt)
																			COBJECT(BgL_i1232z00_2291))->
																		BgL_valuez00)))
																{	/* SawBbv/bbv-range.scm 482 */
																	obj_t BgL_arg1926z00_2294;

																	BgL_arg1926z00_2294 =
																		(((BgL_atomz00_bglt)
																			COBJECT(BgL_i1232z00_2291))->
																		BgL_valuez00);
																	return ((obj_t)
																		BGl_fixnumzd2ze3rangez31zzsaw_bbvzd2rangezd2
																		((long) CINT(BgL_arg1926z00_2294)));
																}
															else
																{	/* SawBbv/bbv-range.scm 481 */
																	return BFALSE;
																}
														}
													}
												else
													{	/* SawBbv/bbv-range.scm 476 */
														if (BGl_rtl_inszd2vlenzf3z21zzsaw_bbvzd2typeszd2(
																((BgL_rtl_insz00_bglt) BgL_iz00_55)))
															{	/* SawBbv/bbv-range.scm 487 */
																bool_t BgL_test2862z00_7319;

																{	/* SawBbv/bbv-range.scm 487 */
																	obj_t BgL_arg1937z00_2308;

																	{	/* SawBbv/bbv-range.scm 487 */
																		obj_t BgL_pairz00_4595;

																		BgL_pairz00_4595 =
																			(((BgL_rtl_insz00_bglt) COBJECT(
																					((BgL_rtl_insz00_bglt)
																						BgL_iz00_55)))->BgL_argsz00);
																		BgL_arg1937z00_2308 = CAR(BgL_pairz00_4595);
																	}
																	{	/* SawBbv/bbv-range.scm 487 */
																		obj_t BgL_classz00_4596;

																		BgL_classz00_4596 =
																			BGl_rtl_regz00zzsaw_defsz00;
																		if (BGL_OBJECTP(BgL_arg1937z00_2308))
																			{	/* SawBbv/bbv-range.scm 487 */
																				BgL_objectz00_bglt BgL_arg1801z00_4598;

																				BgL_arg1801z00_4598 =
																					(BgL_objectz00_bglt)
																					(BgL_arg1937z00_2308);
																				if (BGL_CONDEXPAND_ISA_ARCH64())
																					{	/* SawBbv/bbv-range.scm 487 */
																						long BgL_idxz00_4604;

																						BgL_idxz00_4604 =
																							BGL_OBJECT_INHERITANCE_NUM
																							(BgL_arg1801z00_4598);
																						BgL_test2862z00_7319 =
																							(VECTOR_REF
																							(BGl_za2inheritancesza2z00zz__objectz00,
																								(BgL_idxz00_4604 + 1L)) ==
																							BgL_classz00_4596);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 487 */
																						bool_t BgL_res2494z00_4626;

																						{	/* SawBbv/bbv-range.scm 487 */
																							obj_t BgL_oclassz00_4612;

																							{	/* SawBbv/bbv-range.scm 487 */
																								long BgL_arg1808z00_4618;

																								{	/* SawBbv/bbv-range.scm 487 */
																									long BgL_arg1809z00_4619;

																									BgL_arg1809z00_4619 =
																										BGL_OBJECT_CLASS_NUM
																										(BgL_arg1801z00_4598);
																									BgL_arg1808z00_4618 =
																										(BgL_arg1809z00_4619 -
																										OBJECT_TYPE);
																								}
																								BgL_oclassz00_4612 =
																									VECTOR_REF
																									(BGl_za2classesza2z00zz__objectz00,
																									BgL_arg1808z00_4618);
																							}
																							{	/* SawBbv/bbv-range.scm 487 */
																								bool_t BgL__ortest_1115z00_4613;

																								BgL__ortest_1115z00_4613 =
																									(BgL_classz00_4596 ==
																									BgL_oclassz00_4612);
																								if (BgL__ortest_1115z00_4613)
																									{	/* SawBbv/bbv-range.scm 487 */
																										BgL_res2494z00_4626 =
																											BgL__ortest_1115z00_4613;
																									}
																								else
																									{	/* SawBbv/bbv-range.scm 487 */
																										long BgL_odepthz00_4614;

																										BgL_odepthz00_4614 =
																											BGL_CLASS_DEPTH
																											(BgL_oclassz00_4612);
																										if ((1L <
																												BgL_odepthz00_4614))
																											{	/* SawBbv/bbv-range.scm 487 */
																												obj_t
																													BgL_arg1797z00_4616;
																												BgL_arg1797z00_4616 =
																													BGL_CLASS_ANCESTORS_REF
																													(BgL_oclassz00_4612,
																													1L);
																												BgL_res2494z00_4626 =
																													(BgL_arg1797z00_4616
																													== BgL_classz00_4596);
																											}
																										else
																											{	/* SawBbv/bbv-range.scm 487 */
																												BgL_res2494z00_4626 =
																													((bool_t) 0);
																											}
																									}
																							}
																						}
																						BgL_test2862z00_7319 =
																							BgL_res2494z00_4626;
																					}
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 487 */
																				BgL_test2862z00_7319 = ((bool_t) 0);
																			}
																	}
																}
																if (BgL_test2862z00_7319)
																	{	/* SawBbv/bbv-range.scm 489 */
																		obj_t BgL_g1234z00_2301;

																		{	/* SawBbv/bbv-range.scm 489 */
																			obj_t BgL_arg1935z00_2306;

																			{	/* SawBbv/bbv-range.scm 489 */
																				obj_t BgL_pairz00_4627;

																				BgL_pairz00_4627 =
																					(((BgL_rtl_insz00_bglt) COBJECT(
																							((BgL_rtl_insz00_bglt)
																								BgL_iz00_55)))->BgL_argsz00);
																				BgL_arg1935z00_2306 =
																					CAR(BgL_pairz00_4627);
																			}
																			BgL_g1234z00_2301 =
																				BGl_bbvzd2ctxzd2getz00zzsaw_bbvzd2typeszd2
																				(BgL_ctxz00_56,
																				((BgL_rtl_regz00_bglt)
																					BgL_arg1935z00_2306));
																		}
																		if (CBOOL(BgL_g1234z00_2301))
																			{	/* SawBbv/bbv-range.scm 492 */
																				obj_t BgL_arg1933z00_2304;

																				{	/* SawBbv/bbv-range.scm 492 */
																					obj_t BgL_pairz00_4628;

																					BgL_pairz00_4628 =
																						(((BgL_rtl_insz00_bglt) COBJECT(
																								((BgL_rtl_insz00_bglt)
																									BgL_iz00_55)))->BgL_argsz00);
																					BgL_arg1933z00_2304 =
																						CAR(BgL_pairz00_4628);
																				}
																				return
																					((obj_t)
																					BGl_vlenzd2ze3rangez31zzsaw_bbvzd2rangezd2
																					(BgL_arg1933z00_2304, BgL_ctxz00_56));
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 494 */
																				BgL_bbvzd2rangezd2_bglt
																					BgL_res2495z00_4629;
																				BgL_res2495z00_4629 =
																					BGl_za2vlenzd2rangeza2zd2zzsaw_bbvzd2rangezd2;
																				return ((obj_t) BgL_res2495z00_4629);
																			}
																	}
																else
																	{	/* SawBbv/bbv-range.scm 488 */
																		BgL_bbvzd2rangezd2_bglt BgL_res2496z00_4630;

																		BgL_res2496z00_4630 =
																			BGl_za2vlenzd2rangeza2zd2zzsaw_bbvzd2rangezd2;
																		return ((obj_t) BgL_res2496z00_4630);
																	}
															}
														else
															{	/* SawBbv/bbv-range.scm 483 */
																return BFALSE;
															}
													}
											}
									}
							}
					}
			}
		}

	}



/* &rtl-range */
	obj_t BGl_z62rtlzd2rangezb0zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5834,
		obj_t BgL_iz00_5835, obj_t BgL_ctxz00_5836)
	{
		{	/* SawBbv/bbv-range.scm 430 */
			return
				BGl_rtlzd2rangezd2zzsaw_bbvzd2rangezd2(BgL_iz00_5835,
				((BgL_bbvzd2ctxzd2_bglt) BgL_ctxz00_5836));
		}

	}



/* bbv-singleton? */
	BGL_EXPORTED_DEF bool_t BGl_bbvzd2singletonzf3z21zzsaw_bbvzd2rangezd2(obj_t
		BgL_rngz00_57)
	{
		{	/* SawBbv/bbv-range.scm 501 */
			{	/* SawBbv/bbv-range.scm 502 */
				bool_t BgL_test2868z00_7358;

				{	/* SawBbv/bbv-range.scm 502 */
					obj_t BgL_classz00_4631;

					BgL_classz00_4631 = BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2;
					if (BGL_OBJECTP(BgL_rngz00_57))
						{	/* SawBbv/bbv-range.scm 502 */
							BgL_objectz00_bglt BgL_arg1801z00_4633;

							BgL_arg1801z00_4633 = (BgL_objectz00_bglt) (BgL_rngz00_57);
							if (BGL_CONDEXPAND_ISA_ARCH64())
								{	/* SawBbv/bbv-range.scm 502 */
									long BgL_idxz00_4639;

									BgL_idxz00_4639 =
										BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4633);
									BgL_test2868z00_7358 =
										(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
											(BgL_idxz00_4639 + 1L)) == BgL_classz00_4631);
								}
							else
								{	/* SawBbv/bbv-range.scm 502 */
									bool_t BgL_res2497z00_4661;

									{	/* SawBbv/bbv-range.scm 502 */
										obj_t BgL_oclassz00_4647;

										{	/* SawBbv/bbv-range.scm 502 */
											long BgL_arg1808z00_4653;

											{	/* SawBbv/bbv-range.scm 502 */
												long BgL_arg1809z00_4654;

												BgL_arg1809z00_4654 =
													BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4633);
												BgL_arg1808z00_4653 =
													(BgL_arg1809z00_4654 - OBJECT_TYPE);
											}
											BgL_oclassz00_4647 =
												VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
												BgL_arg1808z00_4653);
										}
										{	/* SawBbv/bbv-range.scm 502 */
											bool_t BgL__ortest_1115z00_4648;

											BgL__ortest_1115z00_4648 =
												(BgL_classz00_4631 == BgL_oclassz00_4647);
											if (BgL__ortest_1115z00_4648)
												{	/* SawBbv/bbv-range.scm 502 */
													BgL_res2497z00_4661 = BgL__ortest_1115z00_4648;
												}
											else
												{	/* SawBbv/bbv-range.scm 502 */
													long BgL_odepthz00_4649;

													BgL_odepthz00_4649 =
														BGL_CLASS_DEPTH(BgL_oclassz00_4647);
													if ((1L < BgL_odepthz00_4649))
														{	/* SawBbv/bbv-range.scm 502 */
															obj_t BgL_arg1797z00_4651;

															BgL_arg1797z00_4651 =
																BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_4647, 1L);
															BgL_res2497z00_4661 =
																(BgL_arg1797z00_4651 == BgL_classz00_4631);
														}
													else
														{	/* SawBbv/bbv-range.scm 502 */
															BgL_res2497z00_4661 = ((bool_t) 0);
														}
												}
										}
									}
									BgL_test2868z00_7358 = BgL_res2497z00_4661;
								}
						}
					else
						{	/* SawBbv/bbv-range.scm 502 */
							BgL_test2868z00_7358 = ((bool_t) 0);
						}
				}
				if (BgL_test2868z00_7358)
					{	/* SawBbv/bbv-range.scm 503 */
						bool_t BgL_test2873z00_7378;

						{	/* SawBbv/bbv-range.scm 503 */
							obj_t BgL_arg1945z00_2323;

							{	/* SawBbv/bbv-range.scm 503 */
								obj_t BgL_arg1946z00_2324;
								obj_t BgL_arg1947z00_2325;

								BgL_arg1946z00_2324 =
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(
											((BgL_bbvzd2rangezd2_bglt) BgL_rngz00_57)))->BgL_upz00);
								BgL_arg1947z00_2325 =
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(
											((BgL_bbvzd2rangezd2_bglt) BgL_rngz00_57)))->BgL_loz00);
								BgL_arg1945z00_2323 =
									BGl_zd3rvzd3zzsaw_bbvzd2rangezd2(BgL_arg1946z00_2324,
									BgL_arg1947z00_2325);
							}
							BgL_test2873z00_7378 = (BgL_arg1945z00_2323 == BTRUE);
						}
						if (BgL_test2873z00_7378)
							{	/* SawBbv/bbv-range.scm 504 */
								obj_t BgL__andtest_1238z00_2312;

								{	/* SawBbv/bbv-range.scm 504 */
									obj_t BgL_arg1942z00_2318;
									obj_t BgL_arg1943z00_2319;

									BgL_arg1942z00_2318 =
										(((BgL_bbvzd2rangezd2_bglt) COBJECT(
												((BgL_bbvzd2rangezd2_bglt) BgL_rngz00_57)))->BgL_upz00);
									{	/* SawBbv/bbv-range.scm 504 */
										long BgL_a1516z00_2320;

										{	/* SawBbv/bbv-range.scm 244 */
											long BgL_arg1771z00_4665;

											{	/* SawBbv/bbv-range.scm 244 */
												long BgL_arg1773z00_4666;

												{	/* SawBbv/bbv-range.scm 242 */
													long BgL_arg1763z00_4667;

													{	/* SawBbv/bbv-range.scm 242 */
														obj_t BgL_arg1768z00_4668;

														BgL_arg1768z00_4668 =
															BGl_bigloozd2configzd2zz__configurez00
															(CNST_TABLE_REF(0L));
														BgL_arg1763z00_4667 =
															((long) CINT(BgL_arg1768z00_4668) - 2L);
													}
													BgL_arg1773z00_4666 =
														(1L << (int) (BgL_arg1763z00_4667));
												}
												BgL_arg1771z00_4665 = NEG(BgL_arg1773z00_4666);
											}
											BgL_a1516z00_2320 = (BgL_arg1771z00_4665 - 1L);
										}
										{	/* SawBbv/bbv-range.scm 504 */

											{	/* SawBbv/bbv-range.scm 504 */
												obj_t BgL_za71za7_4673;
												obj_t BgL_za72za7_4674;

												BgL_za71za7_4673 = BINT(BgL_a1516z00_2320);
												BgL_za72za7_4674 = BINT(1L);
												{	/* SawBbv/bbv-range.scm 504 */
													obj_t BgL_tmpz00_4675;

													BgL_tmpz00_4675 = BINT(0L);
													if (BGL_ADDFX_OV(BgL_za71za7_4673, BgL_za72za7_4674,
															BgL_tmpz00_4675))
														{	/* SawBbv/bbv-range.scm 504 */
															BgL_arg1943z00_2319 =
																bgl_bignum_add(bgl_long_to_bignum(
																	(long) CINT(BgL_za71za7_4673)),
																bgl_long_to_bignum(
																	(long) CINT(BgL_za72za7_4674)));
														}
													else
														{	/* SawBbv/bbv-range.scm 504 */
															BgL_arg1943z00_2319 = BgL_tmpz00_4675;
														}
												}
											}
										}
									}
									BgL__andtest_1238z00_2312 =
										BGl_ze3rvze3zzsaw_bbvzd2rangezd2(BgL_arg1942z00_2318,
										BgL_arg1943z00_2319);
								}
								if (CBOOL(BgL__andtest_1238z00_2312))
									{	/* SawBbv/bbv-range.scm 505 */
										obj_t BgL_arg1939z00_2313;
										obj_t BgL_arg1940z00_2314;

										BgL_arg1939z00_2313 =
											(((BgL_bbvzd2rangezd2_bglt) COBJECT(
													((BgL_bbvzd2rangezd2_bglt) BgL_rngz00_57)))->
											BgL_upz00);
										{	/* SawBbv/bbv-range.scm 505 */
											long BgL_a1518z00_2315;

											{	/* SawBbv/bbv-range.scm 242 */
												long BgL_arg1763z00_4684;

												{	/* SawBbv/bbv-range.scm 242 */
													obj_t BgL_arg1768z00_4685;

													BgL_arg1768z00_4685 =
														BGl_bigloozd2configzd2zz__configurez00
														(CNST_TABLE_REF(0L));
													BgL_arg1763z00_4684 =
														((long) CINT(BgL_arg1768z00_4685) - 2L);
												}
												BgL_a1518z00_2315 = (1L << (int) (BgL_arg1763z00_4684));
											}
											{	/* SawBbv/bbv-range.scm 505 */

												{	/* SawBbv/bbv-range.scm 505 */
													obj_t BgL_za71za7_4688;
													obj_t BgL_za72za7_4689;

													BgL_za71za7_4688 = BINT(BgL_a1518z00_2315);
													BgL_za72za7_4689 = BINT(1L);
													{	/* SawBbv/bbv-range.scm 505 */
														obj_t BgL_tmpz00_4690;

														BgL_tmpz00_4690 = BINT(0L);
														if (BGL_SUBFX_OV(BgL_za71za7_4688, BgL_za72za7_4689,
																BgL_tmpz00_4690))
															{	/* SawBbv/bbv-range.scm 505 */
																BgL_arg1940z00_2314 =
																	bgl_bignum_sub(bgl_long_to_bignum(
																		(long) CINT(BgL_za71za7_4688)),
																	bgl_long_to_bignum(
																		(long) CINT(BgL_za72za7_4689)));
															}
														else
															{	/* SawBbv/bbv-range.scm 505 */
																BgL_arg1940z00_2314 = BgL_tmpz00_4690;
															}
													}
												}
											}
										}
										return
											CBOOL(BGl_ze3rvze3zzsaw_bbvzd2rangezd2
											(BgL_arg1940z00_2314, BgL_arg1939z00_2313));
									}
								else
									{	/* SawBbv/bbv-range.scm 504 */
										return ((bool_t) 0);
									}
							}
						else
							{	/* SawBbv/bbv-range.scm 503 */
								return ((bool_t) 0);
							}
					}
				else
					{	/* SawBbv/bbv-range.scm 502 */
						return ((bool_t) 0);
					}
			}
		}

	}



/* &bbv-singleton? */
	obj_t BGl_z62bbvzd2singletonzf3z43zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5837,
		obj_t BgL_rngz00_5838)
	{
		{	/* SawBbv/bbv-range.scm 501 */
			return
				BBOOL(BGl_bbvzd2singletonzf3z21zzsaw_bbvzd2rangezd2(BgL_rngz00_5838));
		}

	}



/* bbv-range< */
	BGL_EXPORTED_DEF obj_t
		BGl_bbvzd2rangezc3z11zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_59, BgL_bbvzd2rangezd2_bglt BgL_yz00_60)
	{
		{	/* SawBbv/bbv-range.scm 516 */
			{
				BgL_bbvzd2rangezd2_bglt BgL_xz00_2328;
				BgL_bbvzd2rangezd2_bglt BgL_yz00_2329;

				BgL_xz00_2328 = BgL_xz00_59;
				BgL_yz00_2329 = BgL_yz00_60;
				if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_xz00_2328))
					{	/* SawBbv/bbv-range.scm 520 */
						if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_yz00_2329))
							{	/* SawBbv/bbv-range.scm 520 */
								return BUNSPEC;
							}
						else
							{	/* SawBbv/bbv-range.scm 520 */
								return BTRUE;
							}
					}
				else
					{	/* SawBbv/bbv-range.scm 520 */
						if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_yz00_2329))
							{	/* SawBbv/bbv-range.scm 521 */
								return BTRUE;
							}
						else
							{	/* SawBbv/bbv-range.scm 522 */
								bool_t BgL_test2880z00_7436;

								{	/* SawBbv/bbv-range.scm 522 */
									obj_t BgL_arg1982z00_2363;
									obj_t BgL_arg1983z00_2364;

									BgL_arg1982z00_2363 =
										(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_2328))->
										BgL_upz00);
									BgL_arg1983z00_2364 =
										(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_2329))->
										BgL_upz00);
									{	/* SawBbv/bbv-range.scm 93 */
										bool_t BgL_test2881z00_7439;

										{	/* SawBbv/bbv-range.scm 84 */
											obj_t BgL_classz00_4708;

											BgL_classz00_4708 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
											if (BGL_OBJECTP(BgL_arg1982z00_2363))
												{	/* SawBbv/bbv-range.scm 84 */
													BgL_objectz00_bglt BgL_arg1801z00_4710;

													BgL_arg1801z00_4710 =
														(BgL_objectz00_bglt) (BgL_arg1982z00_2363);
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_idxz00_4716;

															BgL_idxz00_4716 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4710);
															BgL_test2881z00_7439 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_4716 + 1L)) == BgL_classz00_4708);
														}
													else
														{	/* SawBbv/bbv-range.scm 84 */
															bool_t BgL_res2498z00_4738;

															{	/* SawBbv/bbv-range.scm 84 */
																obj_t BgL_oclassz00_4724;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1808z00_4730;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1809z00_4731;

																		BgL_arg1809z00_4731 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4710);
																		BgL_arg1808z00_4730 =
																			(BgL_arg1809z00_4731 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_4724 =
																		VECTOR_REF
																		(BGl_za2classesza2z00zz__objectz00,
																		BgL_arg1808z00_4730);
																}
																{	/* SawBbv/bbv-range.scm 84 */
																	bool_t BgL__ortest_1115z00_4725;

																	BgL__ortest_1115z00_4725 =
																		(BgL_classz00_4708 == BgL_oclassz00_4724);
																	if (BgL__ortest_1115z00_4725)
																		{	/* SawBbv/bbv-range.scm 84 */
																			BgL_res2498z00_4738 =
																				BgL__ortest_1115z00_4725;
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_odepthz00_4726;

																			BgL_odepthz00_4726 =
																				BGL_CLASS_DEPTH(BgL_oclassz00_4724);
																			if ((1L < BgL_odepthz00_4726))
																				{	/* SawBbv/bbv-range.scm 84 */
																					obj_t BgL_arg1797z00_4728;

																					BgL_arg1797z00_4728 =
																						BGL_CLASS_ANCESTORS_REF
																						(BgL_oclassz00_4724, 1L);
																					BgL_res2498z00_4738 =
																						(BgL_arg1797z00_4728 ==
																						BgL_classz00_4708);
																				}
																			else
																				{	/* SawBbv/bbv-range.scm 84 */
																					BgL_res2498z00_4738 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test2881z00_7439 = BgL_res2498z00_4738;
														}
												}
											else
												{	/* SawBbv/bbv-range.scm 84 */
													BgL_test2881z00_7439 = ((bool_t) 0);
												}
										}
										if (BgL_test2881z00_7439)
											{	/* SawBbv/bbv-range.scm 93 */
												bool_t BgL_test2886z00_7459;

												{	/* SawBbv/bbv-range.scm 84 */
													obj_t BgL_classz00_4739;

													BgL_classz00_4739 =
														BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
													if (BGL_OBJECTP(BgL_arg1983z00_2364))
														{	/* SawBbv/bbv-range.scm 84 */
															BgL_objectz00_bglt BgL_arg1801z00_4741;

															BgL_arg1801z00_4741 =
																(BgL_objectz00_bglt) (BgL_arg1983z00_2364);
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_idxz00_4747;

																	BgL_idxz00_4747 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_4741);
																	BgL_test2886z00_7459 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_4747 + 1L)) ==
																		BgL_classz00_4739);
																}
															else
																{	/* SawBbv/bbv-range.scm 84 */
																	bool_t BgL_res2499z00_4769;

																	{	/* SawBbv/bbv-range.scm 84 */
																		obj_t BgL_oclassz00_4755;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1808z00_4761;

																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_arg1809z00_4762;

																				BgL_arg1809z00_4762 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_4741);
																				BgL_arg1808z00_4761 =
																					(BgL_arg1809z00_4762 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_4755 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_4761);
																		}
																		{	/* SawBbv/bbv-range.scm 84 */
																			bool_t BgL__ortest_1115z00_4756;

																			BgL__ortest_1115z00_4756 =
																				(BgL_classz00_4739 ==
																				BgL_oclassz00_4755);
																			if (BgL__ortest_1115z00_4756)
																				{	/* SawBbv/bbv-range.scm 84 */
																					BgL_res2499z00_4769 =
																						BgL__ortest_1115z00_4756;
																				}
																			else
																				{	/* SawBbv/bbv-range.scm 84 */
																					long BgL_odepthz00_4757;

																					BgL_odepthz00_4757 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_4755);
																					if ((1L < BgL_odepthz00_4757))
																						{	/* SawBbv/bbv-range.scm 84 */
																							obj_t BgL_arg1797z00_4759;

																							BgL_arg1797z00_4759 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_4755, 1L);
																							BgL_res2499z00_4769 =
																								(BgL_arg1797z00_4759 ==
																								BgL_classz00_4739);
																						}
																					else
																						{	/* SawBbv/bbv-range.scm 84 */
																							BgL_res2499z00_4769 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test2886z00_7459 = BgL_res2499z00_4769;
																}
														}
													else
														{	/* SawBbv/bbv-range.scm 84 */
															BgL_test2886z00_7459 = ((bool_t) 0);
														}
												}
												if (BgL_test2886z00_7459)
													{	/* SawBbv/bbv-range.scm 93 */
														BgL_test2880z00_7436 =
															(
															(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																		((BgL_bbvzd2vlenzd2_bglt)
																			BgL_arg1982z00_2363)))->BgL_vecz00) ==
															(((BgL_bbvzd2vlenzd2_bglt)
																	COBJECT(((BgL_bbvzd2vlenzd2_bglt)
																			BgL_arg1983z00_2364)))->BgL_vecz00));
													}
												else
													{	/* SawBbv/bbv-range.scm 93 */
														BgL_test2880z00_7436 = ((bool_t) 0);
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 93 */
												BgL_test2880z00_7436 = ((bool_t) 0);
											}
									}
								}
								if (BgL_test2880z00_7436)
									{	/* SawBbv/bbv-range.scm 522 */
										if (
											((long) (
													(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																((BgL_bbvzd2vlenzd2_bglt)
																	(((BgL_bbvzd2rangezd2_bglt)
																			COBJECT(BgL_xz00_2328))->BgL_upz00))))->
														BgL_offsetz00)) <
												(long) ((((BgL_bbvzd2vlenzd2_bglt)
															COBJECT(((BgL_bbvzd2vlenzd2_bglt) ((
																			(BgL_bbvzd2rangezd2_bglt)
																			COBJECT(BgL_yz00_2329))->BgL_upz00))))->
														BgL_offsetz00))))
											{	/* SawBbv/bbv-range.scm 523 */
												if (
													(BGl_ze3zd3rvz30zzsaw_bbvzd2rangezd2(
															(((BgL_bbvzd2rangezd2_bglt)
																	COBJECT(BgL_yz00_2329))->BgL_loz00),
															(((BgL_bbvzd2rangezd2_bglt)
																	COBJECT(BgL_xz00_2328))->BgL_loz00)) ==
														BTRUE))
													{	/* SawBbv/bbv-range.scm 524 */
														return BTRUE;
													}
												else
													{	/* SawBbv/bbv-range.scm 524 */
														return BUNSPEC;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 523 */
												return BUNSPEC;
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 522 */
										if (
											(BGl_ze3rvze3zzsaw_bbvzd2rangezd2(
													(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_2329))->
														BgL_loz00),
													(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_2328))->
														BgL_upz00)) == BTRUE))
											{	/* SawBbv/bbv-range.scm 528 */
												return BTRUE;
											}
										else
											{	/* SawBbv/bbv-range.scm 528 */
												if (
													(BGl_ze3zd3rvz30zzsaw_bbvzd2rangezd2(
															(((BgL_bbvzd2rangezd2_bglt)
																	COBJECT(BgL_xz00_2328))->BgL_loz00),
															(((BgL_bbvzd2rangezd2_bglt)
																	COBJECT(BgL_yz00_2329))->BgL_upz00)) ==
														BTRUE))
													{	/* SawBbv/bbv-range.scm 529 */
														return BFALSE;
													}
												else
													{	/* SawBbv/bbv-range.scm 529 */
														return BUNSPEC;
													}
											}
									}
							}
					}
			}
		}

	}



/* &bbv-range< */
	obj_t BGl_z62bbvzd2rangezc3z73zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5839,
		obj_t BgL_xz00_5840, obj_t BgL_yz00_5841)
	{
		{	/* SawBbv/bbv-range.scm 516 */
			return
				BGl_bbvzd2rangezc3z11zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5840),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5841));
		}

	}



/* bbv-range<= */
	BGL_EXPORTED_DEF obj_t
		BGl_bbvzd2rangezc3zd3zc2zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_61, BgL_bbvzd2rangezd2_bglt BgL_yz00_62)
	{
		{	/* SawBbv/bbv-range.scm 541 */
			if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_xz00_61))
				{	/* SawBbv/bbv-range.scm 543 */
					if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_yz00_62))
						{	/* SawBbv/bbv-range.scm 543 */
							return BUNSPEC;
						}
					else
						{	/* SawBbv/bbv-range.scm 543 */
							return BTRUE;
						}
				}
			else
				{	/* SawBbv/bbv-range.scm 543 */
					if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_yz00_62))
						{	/* SawBbv/bbv-range.scm 544 */
							return BTRUE;
						}
					else
						{	/* SawBbv/bbv-range.scm 545 */
							bool_t BgL_test2898z00_7518;

							{	/* SawBbv/bbv-range.scm 545 */
								obj_t BgL_arg2016z00_2398;
								obj_t BgL_arg2018z00_2399;

								BgL_arg2016z00_2398 =
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_61))->BgL_upz00);
								BgL_arg2018z00_2399 =
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_62))->BgL_upz00);
								{	/* SawBbv/bbv-range.scm 93 */
									bool_t BgL_test2899z00_7521;

									{	/* SawBbv/bbv-range.scm 84 */
										obj_t BgL_classz00_4796;

										BgL_classz00_4796 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
										if (BGL_OBJECTP(BgL_arg2016z00_2398))
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_objectz00_bglt BgL_arg1801z00_4798;

												BgL_arg1801z00_4798 =
													(BgL_objectz00_bglt) (BgL_arg2016z00_2398);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_idxz00_4804;

														BgL_idxz00_4804 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4798);
														BgL_test2899z00_7521 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_4804 + 1L)) == BgL_classz00_4796);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL_res2500z00_4826;

														{	/* SawBbv/bbv-range.scm 84 */
															obj_t BgL_oclassz00_4812;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1808z00_4818;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1809z00_4819;

																	BgL_arg1809z00_4819 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4798);
																	BgL_arg1808z00_4818 =
																		(BgL_arg1809z00_4819 - OBJECT_TYPE);
																}
																BgL_oclassz00_4812 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_4818);
															}
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL__ortest_1115z00_4813;

																BgL__ortest_1115z00_4813 =
																	(BgL_classz00_4796 == BgL_oclassz00_4812);
																if (BgL__ortest_1115z00_4813)
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2500z00_4826 =
																			BgL__ortest_1115z00_4813;
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_odepthz00_4814;

																		BgL_odepthz00_4814 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_4812);
																		if ((1L < BgL_odepthz00_4814))
																			{	/* SawBbv/bbv-range.scm 84 */
																				obj_t BgL_arg1797z00_4816;

																				BgL_arg1797z00_4816 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_4812, 1L);
																				BgL_res2500z00_4826 =
																					(BgL_arg1797z00_4816 ==
																					BgL_classz00_4796);
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2500z00_4826 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2899z00_7521 = BgL_res2500z00_4826;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_test2899z00_7521 = ((bool_t) 0);
											}
									}
									if (BgL_test2899z00_7521)
										{	/* SawBbv/bbv-range.scm 93 */
											bool_t BgL_test2904z00_7541;

											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_4827;

												BgL_classz00_4827 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_arg2018z00_2399))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_4829;

														BgL_arg1801z00_4829 =
															(BgL_objectz00_bglt) (BgL_arg2018z00_2399);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_4835;

																BgL_idxz00_4835 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_4829);
																BgL_test2904z00_7541 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_4835 + 1L)) ==
																	BgL_classz00_4827);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2501z00_4857;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_4843;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_4849;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_4850;

																			BgL_arg1809z00_4850 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_4829);
																			BgL_arg1808z00_4849 =
																				(BgL_arg1809z00_4850 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_4843 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_4849);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_4844;

																		BgL__ortest_1115z00_4844 =
																			(BgL_classz00_4827 == BgL_oclassz00_4843);
																		if (BgL__ortest_1115z00_4844)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2501z00_4857 =
																					BgL__ortest_1115z00_4844;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_4845;

																				BgL_odepthz00_4845 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_4843);
																				if ((1L < BgL_odepthz00_4845))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_4847;

																						BgL_arg1797z00_4847 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_4843, 1L);
																						BgL_res2501z00_4857 =
																							(BgL_arg1797z00_4847 ==
																							BgL_classz00_4827);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2501z00_4857 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2904z00_7541 = BgL_res2501z00_4857;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test2904z00_7541 = ((bool_t) 0);
													}
											}
											if (BgL_test2904z00_7541)
												{	/* SawBbv/bbv-range.scm 93 */
													BgL_test2898z00_7518 =
														(
														(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																	((BgL_bbvzd2vlenzd2_bglt)
																		BgL_arg2016z00_2398)))->BgL_vecz00) ==
														(((BgL_bbvzd2vlenzd2_bglt)
																COBJECT(((BgL_bbvzd2vlenzd2_bglt)
																		BgL_arg2018z00_2399)))->BgL_vecz00));
												}
											else
												{	/* SawBbv/bbv-range.scm 93 */
													BgL_test2898z00_7518 = ((bool_t) 0);
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 93 */
											BgL_test2898z00_7518 = ((bool_t) 0);
										}
								}
							}
							if (BgL_test2898z00_7518)
								{	/* SawBbv/bbv-range.scm 545 */
									if (
										((long) (
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
															((BgL_bbvzd2vlenzd2_bglt)
																(((BgL_bbvzd2rangezd2_bglt)
																		COBJECT(BgL_xz00_61))->BgL_upz00))))->
													BgL_offsetz00)) <=
											(long) ((((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(((BgL_bbvzd2vlenzd2_bglt) ((
																		(BgL_bbvzd2rangezd2_bglt)
																		COBJECT(BgL_yz00_62))->BgL_upz00))))->
													BgL_offsetz00))))
										{	/* SawBbv/bbv-range.scm 546 */
											if (
												(BGl_ze3zd3rvz30zzsaw_bbvzd2rangezd2(
														(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_62))->
															BgL_loz00),
														(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_61))->
															BgL_loz00)) == BTRUE))
												{	/* SawBbv/bbv-range.scm 547 */
													return BTRUE;
												}
											else
												{	/* SawBbv/bbv-range.scm 547 */
													return BUNSPEC;
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 546 */
											return BUNSPEC;
										}
								}
							else
								{	/* SawBbv/bbv-range.scm 545 */
									if (
										(BGl_ze3zd3rvz30zzsaw_bbvzd2rangezd2(
												(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_62))->
													BgL_loz00),
												(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_61))->
													BgL_upz00)) == BTRUE))
										{	/* SawBbv/bbv-range.scm 551 */
											return BTRUE;
										}
									else
										{	/* SawBbv/bbv-range.scm 551 */
											if (
												(BGl_ze3rvze3zzsaw_bbvzd2rangezd2(
														(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_61))->
															BgL_loz00),
														(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_62))->
															BgL_upz00)) == BTRUE))
												{	/* SawBbv/bbv-range.scm 552 */
													return BFALSE;
												}
											else
												{	/* SawBbv/bbv-range.scm 552 */
													return BUNSPEC;
												}
										}
								}
						}
				}
		}

	}



/* &bbv-range<= */
	obj_t BGl_z62bbvzd2rangezc3zd3za0zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5842,
		obj_t BgL_xz00_5843, obj_t BgL_yz00_5844)
	{
		{	/* SawBbv/bbv-range.scm 541 */
			return
				BGl_bbvzd2rangezc3zd3zc2zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5843),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5844));
		}

	}



/* bbv-range> */
	BGL_EXPORTED_DEF obj_t
		BGl_bbvzd2rangeze3z31zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_63, BgL_bbvzd2rangezd2_bglt BgL_yz00_64)
	{
		{	/* SawBbv/bbv-range.scm 558 */
			{
				BgL_bbvzd2rangezd2_bglt BgL_xz00_2401;
				BgL_bbvzd2rangezd2_bglt BgL_yz00_2402;

				BgL_xz00_2401 = BgL_xz00_63;
				BgL_yz00_2402 = BgL_yz00_64;
				if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_xz00_2401))
					{	/* SawBbv/bbv-range.scm 562 */
						if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_yz00_2402))
							{	/* SawBbv/bbv-range.scm 562 */
								return BUNSPEC;
							}
						else
							{	/* SawBbv/bbv-range.scm 562 */
								return BTRUE;
							}
					}
				else
					{	/* SawBbv/bbv-range.scm 562 */
						if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_yz00_2402))
							{	/* SawBbv/bbv-range.scm 563 */
								return BTRUE;
							}
						else
							{	/* SawBbv/bbv-range.scm 564 */
								bool_t BgL_test2916z00_7600;

								{	/* SawBbv/bbv-range.scm 564 */
									obj_t BgL_arg2053z00_2438;
									obj_t BgL_arg2054z00_2439;

									BgL_arg2053z00_2438 =
										(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_2401))->
										BgL_upz00);
									BgL_arg2054z00_2439 =
										(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_2402))->
										BgL_upz00);
									{	/* SawBbv/bbv-range.scm 93 */
										bool_t BgL_test2917z00_7603;

										{	/* SawBbv/bbv-range.scm 84 */
											obj_t BgL_classz00_4884;

											BgL_classz00_4884 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
											if (BGL_OBJECTP(BgL_arg2053z00_2438))
												{	/* SawBbv/bbv-range.scm 84 */
													BgL_objectz00_bglt BgL_arg1801z00_4886;

													BgL_arg1801z00_4886 =
														(BgL_objectz00_bglt) (BgL_arg2053z00_2438);
													if (BGL_CONDEXPAND_ISA_ARCH64())
														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_idxz00_4892;

															BgL_idxz00_4892 =
																BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4886);
															BgL_test2917z00_7603 =
																(VECTOR_REF
																(BGl_za2inheritancesza2z00zz__objectz00,
																	(BgL_idxz00_4892 + 1L)) == BgL_classz00_4884);
														}
													else
														{	/* SawBbv/bbv-range.scm 84 */
															bool_t BgL_res2502z00_4914;

															{	/* SawBbv/bbv-range.scm 84 */
																obj_t BgL_oclassz00_4900;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1808z00_4906;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1809z00_4907;

																		BgL_arg1809z00_4907 =
																			BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4886);
																		BgL_arg1808z00_4906 =
																			(BgL_arg1809z00_4907 - OBJECT_TYPE);
																	}
																	BgL_oclassz00_4900 =
																		VECTOR_REF
																		(BGl_za2classesza2z00zz__objectz00,
																		BgL_arg1808z00_4906);
																}
																{	/* SawBbv/bbv-range.scm 84 */
																	bool_t BgL__ortest_1115z00_4901;

																	BgL__ortest_1115z00_4901 =
																		(BgL_classz00_4884 == BgL_oclassz00_4900);
																	if (BgL__ortest_1115z00_4901)
																		{	/* SawBbv/bbv-range.scm 84 */
																			BgL_res2502z00_4914 =
																				BgL__ortest_1115z00_4901;
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_odepthz00_4902;

																			BgL_odepthz00_4902 =
																				BGL_CLASS_DEPTH(BgL_oclassz00_4900);
																			if ((1L < BgL_odepthz00_4902))
																				{	/* SawBbv/bbv-range.scm 84 */
																					obj_t BgL_arg1797z00_4904;

																					BgL_arg1797z00_4904 =
																						BGL_CLASS_ANCESTORS_REF
																						(BgL_oclassz00_4900, 1L);
																					BgL_res2502z00_4914 =
																						(BgL_arg1797z00_4904 ==
																						BgL_classz00_4884);
																				}
																			else
																				{	/* SawBbv/bbv-range.scm 84 */
																					BgL_res2502z00_4914 = ((bool_t) 0);
																				}
																		}
																}
															}
															BgL_test2917z00_7603 = BgL_res2502z00_4914;
														}
												}
											else
												{	/* SawBbv/bbv-range.scm 84 */
													BgL_test2917z00_7603 = ((bool_t) 0);
												}
										}
										if (BgL_test2917z00_7603)
											{	/* SawBbv/bbv-range.scm 93 */
												bool_t BgL_test2922z00_7623;

												{	/* SawBbv/bbv-range.scm 84 */
													obj_t BgL_classz00_4915;

													BgL_classz00_4915 =
														BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
													if (BGL_OBJECTP(BgL_arg2054z00_2439))
														{	/* SawBbv/bbv-range.scm 84 */
															BgL_objectz00_bglt BgL_arg1801z00_4917;

															BgL_arg1801z00_4917 =
																(BgL_objectz00_bglt) (BgL_arg2054z00_2439);
															if (BGL_CONDEXPAND_ISA_ARCH64())
																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_idxz00_4923;

																	BgL_idxz00_4923 =
																		BGL_OBJECT_INHERITANCE_NUM
																		(BgL_arg1801z00_4917);
																	BgL_test2922z00_7623 =
																		(VECTOR_REF
																		(BGl_za2inheritancesza2z00zz__objectz00,
																			(BgL_idxz00_4923 + 1L)) ==
																		BgL_classz00_4915);
																}
															else
																{	/* SawBbv/bbv-range.scm 84 */
																	bool_t BgL_res2503z00_4945;

																	{	/* SawBbv/bbv-range.scm 84 */
																		obj_t BgL_oclassz00_4931;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1808z00_4937;

																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_arg1809z00_4938;

																				BgL_arg1809z00_4938 =
																					BGL_OBJECT_CLASS_NUM
																					(BgL_arg1801z00_4917);
																				BgL_arg1808z00_4937 =
																					(BgL_arg1809z00_4938 - OBJECT_TYPE);
																			}
																			BgL_oclassz00_4931 =
																				VECTOR_REF
																				(BGl_za2classesza2z00zz__objectz00,
																				BgL_arg1808z00_4937);
																		}
																		{	/* SawBbv/bbv-range.scm 84 */
																			bool_t BgL__ortest_1115z00_4932;

																			BgL__ortest_1115z00_4932 =
																				(BgL_classz00_4915 ==
																				BgL_oclassz00_4931);
																			if (BgL__ortest_1115z00_4932)
																				{	/* SawBbv/bbv-range.scm 84 */
																					BgL_res2503z00_4945 =
																						BgL__ortest_1115z00_4932;
																				}
																			else
																				{	/* SawBbv/bbv-range.scm 84 */
																					long BgL_odepthz00_4933;

																					BgL_odepthz00_4933 =
																						BGL_CLASS_DEPTH(BgL_oclassz00_4931);
																					if ((1L < BgL_odepthz00_4933))
																						{	/* SawBbv/bbv-range.scm 84 */
																							obj_t BgL_arg1797z00_4935;

																							BgL_arg1797z00_4935 =
																								BGL_CLASS_ANCESTORS_REF
																								(BgL_oclassz00_4931, 1L);
																							BgL_res2503z00_4945 =
																								(BgL_arg1797z00_4935 ==
																								BgL_classz00_4915);
																						}
																					else
																						{	/* SawBbv/bbv-range.scm 84 */
																							BgL_res2503z00_4945 =
																								((bool_t) 0);
																						}
																				}
																		}
																	}
																	BgL_test2922z00_7623 = BgL_res2503z00_4945;
																}
														}
													else
														{	/* SawBbv/bbv-range.scm 84 */
															BgL_test2922z00_7623 = ((bool_t) 0);
														}
												}
												if (BgL_test2922z00_7623)
													{	/* SawBbv/bbv-range.scm 93 */
														BgL_test2916z00_7600 =
															(
															(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																		((BgL_bbvzd2vlenzd2_bglt)
																			BgL_arg2053z00_2438)))->BgL_vecz00) ==
															(((BgL_bbvzd2vlenzd2_bglt)
																	COBJECT(((BgL_bbvzd2vlenzd2_bglt)
																			BgL_arg2054z00_2439)))->BgL_vecz00));
													}
												else
													{	/* SawBbv/bbv-range.scm 93 */
														BgL_test2916z00_7600 = ((bool_t) 0);
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 93 */
												BgL_test2916z00_7600 = ((bool_t) 0);
											}
									}
								}
								if (BgL_test2916z00_7600)
									{	/* SawBbv/bbv-range.scm 564 */
										if (
											((long) (
													(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																((BgL_bbvzd2vlenzd2_bglt)
																	(((BgL_bbvzd2rangezd2_bglt)
																			COBJECT(BgL_xz00_2401))->BgL_upz00))))->
														BgL_offsetz00)) >
												(long) ((((BgL_bbvzd2vlenzd2_bglt)
															COBJECT(((BgL_bbvzd2vlenzd2_bglt) ((
																			(BgL_bbvzd2rangezd2_bglt)
																			COBJECT(BgL_yz00_2402))->BgL_upz00))))->
														BgL_offsetz00))))
											{	/* SawBbv/bbv-range.scm 566 */
												bool_t BgL_test2928z00_7658;

												{	/* SawBbv/bbv-range.scm 566 */
													obj_t BgL_tmpz00_7659;

													{	/* SawBbv/bbv-range.scm 566 */
														obj_t BgL_a1520z00_2419;

														BgL_a1520z00_2419 =
															(((BgL_bbvzd2rangezd2_bglt)
																COBJECT(BgL_xz00_2401))->BgL_loz00);
														{	/* SawBbv/bbv-range.scm 566 */
															obj_t BgL_b1521z00_2420;

															BgL_b1521z00_2420 =
																(((BgL_bbvzd2rangezd2_bglt)
																	COBJECT(BgL_yz00_2402))->BgL_loz00);
															{	/* SawBbv/bbv-range.scm 566 */

																{	/* SawBbv/bbv-range.scm 566 */
																	bool_t BgL_test2929z00_7662;

																	if (INTEGERP(BgL_a1520z00_2419))
																		{	/* SawBbv/bbv-range.scm 566 */
																			BgL_test2929z00_7662 =
																				INTEGERP(BgL_b1521z00_2420);
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 566 */
																			BgL_test2929z00_7662 = ((bool_t) 0);
																		}
																	if (BgL_test2929z00_7662)
																		{	/* SawBbv/bbv-range.scm 566 */
																			BgL_tmpz00_7659 =
																				BBOOL(
																				((long) CINT(BgL_a1520z00_2419) >=
																					(long) CINT(BgL_b1521z00_2420)));
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 566 */
																			BgL_tmpz00_7659 =
																				BBOOL
																				(BGl_2ze3zd3z30zz__r4_numbers_6_5z00
																				(BgL_a1520z00_2419, BgL_b1521z00_2420));
																		}
																}
															}
														}
													}
													BgL_test2928z00_7658 = (BgL_tmpz00_7659 == BTRUE);
												}
												if (BgL_test2928z00_7658)
													{	/* SawBbv/bbv-range.scm 566 */
														return BTRUE;
													}
												else
													{	/* SawBbv/bbv-range.scm 566 */
														return BUNSPEC;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 565 */
												return BFALSE;
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 564 */
										if (
											(BGl_ze3rvze3zzsaw_bbvzd2rangezd2(
													(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_2401))->
														BgL_loz00),
													(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_2402))->
														BgL_upz00)) == BTRUE))
											{	/* SawBbv/bbv-range.scm 569 */
												return BTRUE;
											}
										else
											{	/* SawBbv/bbv-range.scm 569 */
												if (
													(BGl_ze3zd3rvz30zzsaw_bbvzd2rangezd2(
															(((BgL_bbvzd2rangezd2_bglt)
																	COBJECT(BgL_yz00_2402))->BgL_loz00),
															(((BgL_bbvzd2rangezd2_bglt)
																	COBJECT(BgL_xz00_2401))->BgL_upz00)) ==
														BTRUE))
													{	/* SawBbv/bbv-range.scm 570 */
														return BFALSE;
													}
												else
													{	/* SawBbv/bbv-range.scm 570 */
														return BUNSPEC;
													}
											}
									}
							}
					}
			}
		}

	}



/* &bbv-range> */
	obj_t BGl_z62bbvzd2rangeze3z53zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5845,
		obj_t BgL_xz00_5846, obj_t BgL_yz00_5847)
	{
		{	/* SawBbv/bbv-range.scm 558 */
			return
				BGl_bbvzd2rangeze3z31zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5846),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5847));
		}

	}



/* bbv-range>= */
	BGL_EXPORTED_DEF obj_t
		BGl_bbvzd2rangeze3zd3ze2zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_65, BgL_bbvzd2rangezd2_bglt BgL_yz00_66)
	{
		{	/* SawBbv/bbv-range.scm 582 */
			if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_xz00_65))
				{	/* SawBbv/bbv-range.scm 584 */
					if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_yz00_66))
						{	/* SawBbv/bbv-range.scm 584 */
							return BUNSPEC;
						}
					else
						{	/* SawBbv/bbv-range.scm 584 */
							return BTRUE;
						}
				}
			else
				{	/* SawBbv/bbv-range.scm 584 */
					if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_yz00_66))
						{	/* SawBbv/bbv-range.scm 585 */
							return BTRUE;
						}
					else
						{	/* SawBbv/bbv-range.scm 586 */
							bool_t BgL_test2936z00_7692;

							{	/* SawBbv/bbv-range.scm 586 */
								obj_t BgL_arg2087z00_2475;
								obj_t BgL_arg2088z00_2476;

								BgL_arg2087z00_2475 =
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_65))->BgL_upz00);
								BgL_arg2088z00_2476 =
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_66))->BgL_upz00);
								{	/* SawBbv/bbv-range.scm 93 */
									bool_t BgL_test2937z00_7695;

									{	/* SawBbv/bbv-range.scm 84 */
										obj_t BgL_classz00_4974;

										BgL_classz00_4974 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
										if (BGL_OBJECTP(BgL_arg2087z00_2475))
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_objectz00_bglt BgL_arg1801z00_4976;

												BgL_arg1801z00_4976 =
													(BgL_objectz00_bglt) (BgL_arg2087z00_2475);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_idxz00_4982;

														BgL_idxz00_4982 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_4976);
														BgL_test2937z00_7695 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_4982 + 1L)) == BgL_classz00_4974);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL_res2504z00_5004;

														{	/* SawBbv/bbv-range.scm 84 */
															obj_t BgL_oclassz00_4990;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1808z00_4996;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1809z00_4997;

																	BgL_arg1809z00_4997 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_4976);
																	BgL_arg1808z00_4996 =
																		(BgL_arg1809z00_4997 - OBJECT_TYPE);
																}
																BgL_oclassz00_4990 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_4996);
															}
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL__ortest_1115z00_4991;

																BgL__ortest_1115z00_4991 =
																	(BgL_classz00_4974 == BgL_oclassz00_4990);
																if (BgL__ortest_1115z00_4991)
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2504z00_5004 =
																			BgL__ortest_1115z00_4991;
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_odepthz00_4992;

																		BgL_odepthz00_4992 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_4990);
																		if ((1L < BgL_odepthz00_4992))
																			{	/* SawBbv/bbv-range.scm 84 */
																				obj_t BgL_arg1797z00_4994;

																				BgL_arg1797z00_4994 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_4990, 1L);
																				BgL_res2504z00_5004 =
																					(BgL_arg1797z00_4994 ==
																					BgL_classz00_4974);
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2504z00_5004 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2937z00_7695 = BgL_res2504z00_5004;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_test2937z00_7695 = ((bool_t) 0);
											}
									}
									if (BgL_test2937z00_7695)
										{	/* SawBbv/bbv-range.scm 93 */
											bool_t BgL_test2942z00_7715;

											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_5005;

												BgL_classz00_5005 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_arg2088z00_2476))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_5007;

														BgL_arg1801z00_5007 =
															(BgL_objectz00_bglt) (BgL_arg2088z00_2476);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_5013;

																BgL_idxz00_5013 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_5007);
																BgL_test2942z00_7715 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_5013 + 1L)) ==
																	BgL_classz00_5005);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2505z00_5035;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_5021;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_5027;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_5028;

																			BgL_arg1809z00_5028 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_5007);
																			BgL_arg1808z00_5027 =
																				(BgL_arg1809z00_5028 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_5021 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_5027);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_5022;

																		BgL__ortest_1115z00_5022 =
																			(BgL_classz00_5005 == BgL_oclassz00_5021);
																		if (BgL__ortest_1115z00_5022)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2505z00_5035 =
																					BgL__ortest_1115z00_5022;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_5023;

																				BgL_odepthz00_5023 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_5021);
																				if ((1L < BgL_odepthz00_5023))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_5025;

																						BgL_arg1797z00_5025 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_5021, 1L);
																						BgL_res2505z00_5035 =
																							(BgL_arg1797z00_5025 ==
																							BgL_classz00_5005);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2505z00_5035 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2942z00_7715 = BgL_res2505z00_5035;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test2942z00_7715 = ((bool_t) 0);
													}
											}
											if (BgL_test2942z00_7715)
												{	/* SawBbv/bbv-range.scm 93 */
													BgL_test2936z00_7692 =
														(
														(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
																	((BgL_bbvzd2vlenzd2_bglt)
																		BgL_arg2087z00_2475)))->BgL_vecz00) ==
														(((BgL_bbvzd2vlenzd2_bglt)
																COBJECT(((BgL_bbvzd2vlenzd2_bglt)
																		BgL_arg2088z00_2476)))->BgL_vecz00));
												}
											else
												{	/* SawBbv/bbv-range.scm 93 */
													BgL_test2936z00_7692 = ((bool_t) 0);
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 93 */
											BgL_test2936z00_7692 = ((bool_t) 0);
										}
								}
							}
							if (BgL_test2936z00_7692)
								{	/* SawBbv/bbv-range.scm 586 */
									if (
										((long) (
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
															((BgL_bbvzd2vlenzd2_bglt)
																(((BgL_bbvzd2rangezd2_bglt)
																		COBJECT(BgL_xz00_65))->BgL_upz00))))->
													BgL_offsetz00)) >=
											(long) ((((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(((BgL_bbvzd2vlenzd2_bglt) ((
																		(BgL_bbvzd2rangezd2_bglt)
																		COBJECT(BgL_yz00_66))->BgL_upz00))))->
													BgL_offsetz00))))
										{	/* SawBbv/bbv-range.scm 588 */
											bool_t BgL_test2948z00_7750;

											{	/* SawBbv/bbv-range.scm 588 */
												obj_t BgL_tmpz00_7751;

												{	/* SawBbv/bbv-range.scm 588 */
													obj_t BgL_a1522z00_2456;

													BgL_a1522z00_2456 =
														(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_65))->
														BgL_loz00);
													{	/* SawBbv/bbv-range.scm 588 */
														obj_t BgL_b1523z00_2457;

														BgL_b1523z00_2457 =
															(((BgL_bbvzd2rangezd2_bglt)
																COBJECT(BgL_yz00_66))->BgL_loz00);
														{	/* SawBbv/bbv-range.scm 588 */

															{	/* SawBbv/bbv-range.scm 588 */
																bool_t BgL_test2949z00_7754;

																if (INTEGERP(BgL_a1522z00_2456))
																	{	/* SawBbv/bbv-range.scm 588 */
																		BgL_test2949z00_7754 =
																			INTEGERP(BgL_b1523z00_2457);
																	}
																else
																	{	/* SawBbv/bbv-range.scm 588 */
																		BgL_test2949z00_7754 = ((bool_t) 0);
																	}
																if (BgL_test2949z00_7754)
																	{	/* SawBbv/bbv-range.scm 588 */
																		BgL_tmpz00_7751 =
																			BBOOL(
																			((long) CINT(BgL_a1522z00_2456) >=
																				(long) CINT(BgL_b1523z00_2457)));
																	}
																else
																	{	/* SawBbv/bbv-range.scm 588 */
																		BgL_tmpz00_7751 =
																			BBOOL(BGl_2ze3zd3z30zz__r4_numbers_6_5z00
																			(BgL_a1522z00_2456, BgL_b1523z00_2457));
																	}
															}
														}
													}
												}
												BgL_test2948z00_7750 = (BgL_tmpz00_7751 == BTRUE);
											}
											if (BgL_test2948z00_7750)
												{	/* SawBbv/bbv-range.scm 588 */
													return BTRUE;
												}
											else
												{	/* SawBbv/bbv-range.scm 588 */
													return BUNSPEC;
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 587 */
											return BFALSE;
										}
								}
							else
								{	/* SawBbv/bbv-range.scm 586 */
									if (
										(BGl_ze3zd3rvz30zzsaw_bbvzd2rangezd2(
												(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_65))->
													BgL_loz00),
												(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_66))->
													BgL_upz00)) == BTRUE))
										{	/* SawBbv/bbv-range.scm 591 */
											return BTRUE;
										}
									else
										{	/* SawBbv/bbv-range.scm 591 */
											if (
												(BGl_ze3rvze3zzsaw_bbvzd2rangezd2(
														(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_66))->
															BgL_loz00),
														(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_65))->
															BgL_upz00)) == BTRUE))
												{	/* SawBbv/bbv-range.scm 592 */
													return BFALSE;
												}
											else
												{	/* SawBbv/bbv-range.scm 592 */
													return BUNSPEC;
												}
										}
								}
						}
				}
		}

	}



/* &bbv-range>= */
	obj_t BGl_z62bbvzd2rangeze3zd3z80zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5848,
		obj_t BgL_xz00_5849, obj_t BgL_yz00_5850)
	{
		{	/* SawBbv/bbv-range.scm 582 */
			return
				BGl_bbvzd2rangeze3zd3ze2zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5849),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5850));
		}

	}



/* bbv-range= */
	BGL_EXPORTED_DEF obj_t
		BGl_bbvzd2rangezd3z01zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_67, BgL_bbvzd2rangezd2_bglt BgL_yz00_68)
	{
		{	/* SawBbv/bbv-range.scm 598 */
			{	/* SawBbv/bbv-range.scm 600 */
				bool_t BgL_test2953z00_7778;

				if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_xz00_67))
					{	/* SawBbv/bbv-range.scm 600 */
						BgL_test2953z00_7778 = ((bool_t) 1);
					}
				else
					{	/* SawBbv/bbv-range.scm 600 */
						BgL_test2953z00_7778 =
							BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(BgL_yz00_68);
					}
				if (BgL_test2953z00_7778)
					{	/* SawBbv/bbv-range.scm 600 */
						return BUNSPEC;
					}
				else
					{	/* SawBbv/bbv-range.scm 602 */
						bool_t BgL_test2955z00_7782;

						if (
							(BGl_zd3rvzd3zzsaw_bbvzd2rangezd2(
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_67))->BgL_loz00),
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_68))->
										BgL_loz00)) == BTRUE))
							{	/* SawBbv/bbv-range.scm 602 */
								BgL_test2955z00_7782 =
									(BGl_zd3rvzd3zzsaw_bbvzd2rangezd2(
										(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_67))->
											BgL_upz00),
										(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_68))->
											BgL_upz00)) == BTRUE);
							}
						else
							{	/* SawBbv/bbv-range.scm 602 */
								BgL_test2955z00_7782 = ((bool_t) 0);
							}
						if (BgL_test2955z00_7782)
							{	/* SawBbv/bbv-range.scm 602 */
								return BTRUE;
							}
						else
							{	/* SawBbv/bbv-range.scm 605 */
								bool_t BgL_test2957z00_7792;

								if (
									(BGl_zd3rvzd3zzsaw_bbvzd2rangezd2(
											(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_67))->
												BgL_loz00),
											(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_68))->
												BgL_loz00)) == BFALSE))
									{	/* SawBbv/bbv-range.scm 605 */
										BgL_test2957z00_7792 =
											(BGl_zd3rvzd3zzsaw_bbvzd2rangezd2(
												(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_67))->
													BgL_upz00),
												(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_68))->
													BgL_upz00)) == BFALSE);
									}
								else
									{	/* SawBbv/bbv-range.scm 605 */
										BgL_test2957z00_7792 = ((bool_t) 0);
									}
								if (BgL_test2957z00_7792)
									{	/* SawBbv/bbv-range.scm 605 */
										return BFALSE;
									}
								else
									{	/* SawBbv/bbv-range.scm 605 */
										return BUNSPEC;
									}
							}
					}
			}
		}

	}



/* &bbv-range= */
	obj_t BGl_z62bbvzd2rangezd3z63zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5851,
		obj_t BgL_xz00_5852, obj_t BgL_yz00_5853)
	{
		{	/* SawBbv/bbv-range.scm 598 */
			return
				BGl_bbvzd2rangezd3z01zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5852),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5853));
		}

	}



/* bbv-range-lt */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2ltz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_69, BgL_bbvzd2rangezd2_bglt BgL_yz00_70)
	{
		{	/* SawBbv/bbv-range.scm 617 */
			{	/* SawBbv/bbv-range.scm 619 */
				obj_t BgL_xlz00_2516;
				obj_t BgL_xuz00_2517;
				obj_t BgL_yuz00_2519;

				BgL_xlz00_2516 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_69))->BgL_loz00);
				BgL_xuz00_2517 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_69))->BgL_upz00);
				BgL_yuz00_2519 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_70))->BgL_upz00);
				{	/* SawBbv/bbv-range.scm 624 */
					BgL_bbvzd2rangezd2_bglt BgL_resz00_2520;

					{	/* SawBbv/bbv-range.scm 624 */
						BgL_bbvzd2rangezd2_bglt BgL_new1240z00_2521;

						{	/* SawBbv/bbv-range.scm 625 */
							BgL_bbvzd2rangezd2_bglt BgL_new1239z00_2523;

							BgL_new1239z00_2523 =
								((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_bbvzd2rangezd2_bgl))));
							{	/* SawBbv/bbv-range.scm 625 */
								long BgL_arg2128z00_2524;

								BgL_arg2128z00_2524 =
									BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1239z00_2523),
									BgL_arg2128z00_2524);
							}
							BgL_new1240z00_2521 = BgL_new1239z00_2523;
						}
						((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1240z00_2521))->
								BgL_loz00) = ((obj_t) BgL_xlz00_2516), BUNSPEC);
						{
							obj_t BgL_auxz00_7813;

							{	/* SawBbv/bbv-range.scm 626 */
								obj_t BgL_arg2127z00_2522;

								BgL_arg2127z00_2522 =
									BGl_zd2zd2z00zzsaw_bbvzd2rangezd2(BgL_yuz00_2519);
								BgL_auxz00_7813 =
									BGl_minrvzd2upzd2zzsaw_bbvzd2rangezd2(BgL_xuz00_2517,
									BgL_arg2127z00_2522, BgL_xuz00_2517);
							}
							((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1240z00_2521))->
									BgL_upz00) = ((obj_t) BgL_auxz00_7813), BUNSPEC);
						}
						BgL_resz00_2520 = BgL_new1240z00_2521;
					}
					return BgL_resz00_2520;
				}
			}
		}

	}



/* &bbv-range-lt */
	BgL_bbvzd2rangezd2_bglt BGl_z62bbvzd2rangezd2ltz62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5854, obj_t BgL_xz00_5855, obj_t BgL_yz00_5856)
	{
		{	/* SawBbv/bbv-range.scm 617 */
			return
				BGl_bbvzd2rangezd2ltz00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5855),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5856));
		}

	}



/* bbv-range-lte */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2ltez00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_71, BgL_bbvzd2rangezd2_bglt BgL_yz00_72)
	{
		{	/* SawBbv/bbv-range.scm 639 */
			{	/* SawBbv/bbv-range.scm 640 */
				obj_t BgL_xlz00_2525;
				obj_t BgL_xuz00_2526;
				obj_t BgL_yuz00_2528;

				BgL_xlz00_2525 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_71))->BgL_loz00);
				BgL_xuz00_2526 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_71))->BgL_upz00);
				BgL_yuz00_2528 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_72))->BgL_upz00);
				{	/* SawBbv/bbv-range.scm 645 */
					BgL_bbvzd2rangezd2_bglt BgL_resz00_2529;

					{	/* SawBbv/bbv-range.scm 645 */
						BgL_bbvzd2rangezd2_bglt BgL_new1242z00_2530;

						{	/* SawBbv/bbv-range.scm 646 */
							BgL_bbvzd2rangezd2_bglt BgL_new1241z00_2531;

							BgL_new1241z00_2531 =
								((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_bbvzd2rangezd2_bgl))));
							{	/* SawBbv/bbv-range.scm 646 */
								long BgL_arg2129z00_2532;

								BgL_arg2129z00_2532 =
									BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1241z00_2531),
									BgL_arg2129z00_2532);
							}
							BgL_new1242z00_2530 = BgL_new1241z00_2531;
						}
						((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1242z00_2530))->
								BgL_loz00) = ((obj_t) BgL_xlz00_2525), BUNSPEC);
						((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1242z00_2530))->
								BgL_upz00) =
							((obj_t) BGl_minrvzd2upzd2zzsaw_bbvzd2rangezd2(BgL_xuz00_2526,
									BgL_yuz00_2528, BgL_xuz00_2526)), BUNSPEC);
						BgL_resz00_2529 = BgL_new1242z00_2530;
					}
					return BgL_resz00_2529;
				}
			}
		}

	}



/* &bbv-range-lte */
	BgL_bbvzd2rangezd2_bglt BGl_z62bbvzd2rangezd2ltez62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5857, obj_t BgL_xz00_5858, obj_t BgL_yz00_5859)
	{
		{	/* SawBbv/bbv-range.scm 639 */
			return
				BGl_bbvzd2rangezd2ltez00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5858),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5859));
		}

	}



/* bbv-range-gt */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2gtz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_73, BgL_bbvzd2rangezd2_bglt BgL_yz00_74)
	{
		{	/* SawBbv/bbv-range.scm 653 */
			{	/* SawBbv/bbv-range.scm 654 */
				obj_t BgL_xlz00_2533;
				obj_t BgL_xuz00_2534;
				obj_t BgL_ylz00_2535;

				BgL_xlz00_2533 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_73))->BgL_loz00);
				BgL_xuz00_2534 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_73))->BgL_upz00);
				BgL_ylz00_2535 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_74))->BgL_loz00);
				{	/* SawBbv/bbv-range.scm 659 */
					BgL_bbvzd2rangezd2_bglt BgL_resz00_2537;

					{	/* SawBbv/bbv-range.scm 659 */
						BgL_bbvzd2rangezd2_bglt BgL_new1244z00_2538;

						{	/* SawBbv/bbv-range.scm 660 */
							BgL_bbvzd2rangezd2_bglt BgL_new1243z00_2540;

							BgL_new1243z00_2540 =
								((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_bbvzd2rangezd2_bgl))));
							{	/* SawBbv/bbv-range.scm 660 */
								long BgL_arg2131z00_2541;

								BgL_arg2131z00_2541 =
									BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1243z00_2540),
									BgL_arg2131z00_2541);
							}
							BgL_new1244z00_2538 = BgL_new1243z00_2540;
						}
						{
							obj_t BgL_auxz00_7840;

							{	/* SawBbv/bbv-range.scm 660 */
								obj_t BgL_arg2130z00_2539;

								BgL_arg2130z00_2539 =
									BGl_zb2zb2z00zzsaw_bbvzd2rangezd2(BgL_ylz00_2535);
								BgL_auxz00_7840 =
									BGl_maxrvzd2lozd2zzsaw_bbvzd2rangezd2(BgL_xlz00_2533,
									BgL_arg2130z00_2539, BgL_xlz00_2533);
							}
							((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1244z00_2538))->
									BgL_loz00) = ((obj_t) BgL_auxz00_7840), BUNSPEC);
						}
						((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1244z00_2538))->
								BgL_upz00) = ((obj_t) BgL_xuz00_2534), BUNSPEC);
						BgL_resz00_2537 = BgL_new1244z00_2538;
					}
					return BgL_resz00_2537;
				}
			}
		}

	}



/* &bbv-range-gt */
	BgL_bbvzd2rangezd2_bglt BGl_z62bbvzd2rangezd2gtz62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5860, obj_t BgL_xz00_5861, obj_t BgL_yz00_5862)
	{
		{	/* SawBbv/bbv-range.scm 653 */
			return
				BGl_bbvzd2rangezd2gtz00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5861),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5862));
		}

	}



/* bbv-range-gte */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2gtez00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_75, BgL_bbvzd2rangezd2_bglt BgL_yz00_76)
	{
		{	/* SawBbv/bbv-range.scm 667 */
			{	/* SawBbv/bbv-range.scm 669 */
				obj_t BgL_xlz00_2542;
				obj_t BgL_xuz00_2543;
				obj_t BgL_ylz00_2544;

				BgL_xlz00_2542 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_75))->BgL_loz00);
				BgL_xuz00_2543 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_75))->BgL_upz00);
				BgL_ylz00_2544 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_76))->BgL_loz00);
				{	/* SawBbv/bbv-range.scm 674 */
					BgL_bbvzd2rangezd2_bglt BgL_resz00_2546;

					{	/* SawBbv/bbv-range.scm 674 */
						BgL_bbvzd2rangezd2_bglt BgL_new1247z00_2547;

						{	/* SawBbv/bbv-range.scm 675 */
							BgL_bbvzd2rangezd2_bglt BgL_new1246z00_2548;

							BgL_new1246z00_2548 =
								((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_bbvzd2rangezd2_bgl))));
							{	/* SawBbv/bbv-range.scm 675 */
								long BgL_arg2132z00_2549;

								BgL_arg2132z00_2549 =
									BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1246z00_2548),
									BgL_arg2132z00_2549);
							}
							BgL_new1247z00_2547 = BgL_new1246z00_2548;
						}
						((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1247z00_2547))->
								BgL_loz00) =
							((obj_t) BGl_maxrvzd2lozd2zzsaw_bbvzd2rangezd2(BgL_xlz00_2542,
									BgL_ylz00_2544, BgL_xlz00_2542)), BUNSPEC);
						((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1247z00_2547))->
								BgL_upz00) = ((obj_t) BgL_xuz00_2543), BUNSPEC);
						BgL_resz00_2546 = BgL_new1247z00_2547;
					}
					return BgL_resz00_2546;
				}
			}
		}

	}



/* &bbv-range-gte */
	BgL_bbvzd2rangezd2_bglt BGl_z62bbvzd2rangezd2gtez62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5863, obj_t BgL_xz00_5864, obj_t BgL_yz00_5865)
	{
		{	/* SawBbv/bbv-range.scm 667 */
			return
				BGl_bbvzd2rangezd2gtez00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5864),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5865));
		}

	}



/* bbv-range-eq */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2eqz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_77, BgL_bbvzd2rangezd2_bglt BgL_yz00_78)
	{
		{	/* SawBbv/bbv-range.scm 688 */
			{	/* SawBbv/bbv-range.scm 690 */
				obj_t BgL_xlz00_2550;
				obj_t BgL_xuz00_2551;
				obj_t BgL_ylz00_2552;
				obj_t BgL_yuz00_2553;

				BgL_xlz00_2550 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_77))->BgL_loz00);
				BgL_xuz00_2551 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_77))->BgL_upz00);
				BgL_ylz00_2552 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_78))->BgL_loz00);
				BgL_yuz00_2553 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_78))->BgL_upz00);
				{	/* SawBbv/bbv-range.scm 695 */
					BgL_bbvzd2rangezd2_bglt BgL_resz00_2554;

					{	/* SawBbv/bbv-range.scm 695 */
						BgL_bbvzd2rangezd2_bglt BgL_new1249z00_2555;

						{	/* SawBbv/bbv-range.scm 696 */
							BgL_bbvzd2rangezd2_bglt BgL_new1248z00_2556;

							BgL_new1248z00_2556 =
								((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
											BgL_bbvzd2rangezd2_bgl))));
							{	/* SawBbv/bbv-range.scm 696 */
								long BgL_arg2134z00_2557;

								BgL_arg2134z00_2557 =
									BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
								BGL_OBJECT_CLASS_NUM_SET(
									((BgL_objectz00_bglt) BgL_new1248z00_2556),
									BgL_arg2134z00_2557);
							}
							BgL_new1249z00_2555 = BgL_new1248z00_2556;
						}
						((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1249z00_2555))->
								BgL_loz00) =
							((obj_t) BGl_maxrvzd2lozd2zzsaw_bbvzd2rangezd2(BgL_xlz00_2550,
									BgL_ylz00_2552, BgL_xlz00_2550)), BUNSPEC);
						((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1249z00_2555))->
								BgL_upz00) =
							((obj_t) BGl_minrvzd2upzd2zzsaw_bbvzd2rangezd2(BgL_xuz00_2551,
									BgL_yuz00_2553, BgL_xuz00_2551)), BUNSPEC);
						BgL_resz00_2554 = BgL_new1249z00_2555;
					}
					return BgL_resz00_2554;
				}
			}
		}

	}



/* &bbv-range-eq */
	BgL_bbvzd2rangezd2_bglt BGl_z62bbvzd2rangezd2eqz62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5866, obj_t BgL_xz00_5867, obj_t BgL_yz00_5868)
	{
		{	/* SawBbv/bbv-range.scm 688 */
			return
				BGl_bbvzd2rangezd2eqz00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5867),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5868));
		}

	}



/* bbv-range-neq */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2neqz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_79, BgL_bbvzd2rangezd2_bglt BgL_yz00_80)
	{
		{	/* SawBbv/bbv-range.scm 709 */
			{	/* SawBbv/bbv-range.scm 711 */
				obj_t BgL_xlz00_2558;
				obj_t BgL_xuz00_2559;
				obj_t BgL_ylz00_2560;
				obj_t BgL_yuz00_2561;

				BgL_xlz00_2558 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_79))->BgL_loz00);
				BgL_xuz00_2559 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_79))->BgL_upz00);
				BgL_ylz00_2560 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_80))->BgL_loz00);
				BgL_yuz00_2561 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_80))->BgL_upz00);
				{	/* SawBbv/bbv-range.scm 715 */
					BgL_bbvzd2rangezd2_bglt BgL_resz00_2562;

					if (CBOOL(BGl_zd3rvzd3zzsaw_bbvzd2rangezd2(BgL_xlz00_2558,
								BgL_ylz00_2560)))
						{	/* SawBbv/bbv-range.scm 717 */
							BgL_bbvzd2rangezd2_bglt BgL_new1251z00_2564;

							{	/* SawBbv/bbv-range.scm 718 */
								BgL_bbvzd2rangezd2_bglt BgL_new1250z00_2571;

								BgL_new1250z00_2571 =
									((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
												BgL_bbvzd2rangezd2_bgl))));
								{	/* SawBbv/bbv-range.scm 718 */
									long BgL_arg2136z00_2572;

									BgL_arg2136z00_2572 =
										BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
									BGL_OBJECT_CLASS_NUM_SET(
										((BgL_objectz00_bglt) BgL_new1250z00_2571),
										BgL_arg2136z00_2572);
								}
								BgL_new1251z00_2564 = BgL_new1250z00_2571;
							}
							{
								obj_t BgL_auxz00_7887;

								{	/* SawBbv/bbv-range.scm 45 */

									BgL_auxz00_7887 =
										BGl_minrvz00zzsaw_bbvzd2rangezd2(BgL_xuz00_2559,
										BgL_yuz00_2561, BUNSPEC);
								}
								((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1251z00_2564))->
										BgL_loz00) = ((obj_t) BgL_auxz00_7887), BUNSPEC);
							}
							{
								obj_t BgL_auxz00_7890;

								{	/* SawBbv/bbv-range.scm 46 */

									BgL_auxz00_7890 =
										BGl_maxrvz00zzsaw_bbvzd2rangezd2(BgL_xuz00_2559,
										BgL_yuz00_2561, BUNSPEC);
								}
								((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1251z00_2564))->
										BgL_upz00) = ((obj_t) BgL_auxz00_7890), BUNSPEC);
							}
							BgL_resz00_2562 = BgL_new1251z00_2564;
						}
					else
						{	/* SawBbv/bbv-range.scm 716 */
							if (((long) CINT(BgL_xuz00_2559) == (long) CINT(BgL_yuz00_2561)))
								{	/* SawBbv/bbv-range.scm 721 */
									BgL_bbvzd2rangezd2_bglt BgL_new1253z00_2574;

									{	/* SawBbv/bbv-range.scm 722 */
										BgL_bbvzd2rangezd2_bglt BgL_new1252z00_2581;

										BgL_new1252z00_2581 =
											((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_bbvzd2rangezd2_bgl))));
										{	/* SawBbv/bbv-range.scm 722 */
											long BgL_arg2138z00_2582;

											BgL_arg2138z00_2582 =
												BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1252z00_2581),
												BgL_arg2138z00_2582);
										}
										BgL_new1253z00_2574 = BgL_new1252z00_2581;
									}
									{
										obj_t BgL_auxz00_7901;

										{	/* SawBbv/bbv-range.scm 46 */

											BgL_auxz00_7901 =
												BGl_maxrvz00zzsaw_bbvzd2rangezd2(BgL_xuz00_2559,
												BgL_yuz00_2561, BUNSPEC);
										}
										((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1253z00_2574))->
												BgL_loz00) = ((obj_t) BgL_auxz00_7901), BUNSPEC);
									}
									{
										obj_t BgL_auxz00_7904;

										{	/* SawBbv/bbv-range.scm 45 */

											BgL_auxz00_7904 =
												BGl_minrvz00zzsaw_bbvzd2rangezd2(BgL_xuz00_2559,
												BgL_yuz00_2561, BUNSPEC);
										}
										((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1253z00_2574))->
												BgL_upz00) = ((obj_t) BgL_auxz00_7904), BUNSPEC);
									}
									BgL_resz00_2562 = BgL_new1253z00_2574;
								}
							else
								{	/* SawBbv/bbv-range.scm 725 */
									BgL_bbvzd2rangezd2_bglt BgL_new1255z00_2583;

									{	/* SawBbv/bbv-range.scm 726 */
										BgL_bbvzd2rangezd2_bglt BgL_new1254z00_2584;

										BgL_new1254z00_2584 =
											((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
														BgL_bbvzd2rangezd2_bgl))));
										{	/* SawBbv/bbv-range.scm 726 */
											long BgL_arg2139z00_2585;

											BgL_arg2139z00_2585 =
												BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
											BGL_OBJECT_CLASS_NUM_SET(
												((BgL_objectz00_bglt) BgL_new1254z00_2584),
												BgL_arg2139z00_2585);
										}
										BgL_new1255z00_2583 = BgL_new1254z00_2584;
									}
									((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1255z00_2583))->
											BgL_loz00) = ((obj_t) BINT(1L)), BUNSPEC);
									((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1255z00_2583))->
											BgL_upz00) = ((obj_t) BINT(-1L)), BUNSPEC);
									BgL_resz00_2562 = BgL_new1255z00_2583;
						}}
					return BgL_resz00_2562;
				}
			}
		}

	}



/* &bbv-range-neq */
	BgL_bbvzd2rangezd2_bglt BGl_z62bbvzd2rangezd2neqz62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5869, obj_t BgL_xz00_5870, obj_t BgL_yz00_5871)
	{
		{	/* SawBbv/bbv-range.scm 709 */
			return
				BGl_bbvzd2rangezd2neqz00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5870),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5871));
		}

	}



/* ->range */
	obj_t BGl_zd2ze3rangez31zzsaw_bbvzd2rangezd2(obj_t BgL_nz00_81)
	{
		{	/* SawBbv/bbv-range.scm 739 */
			if (INTEGERP(BgL_nz00_81))
				{	/* SawBbv/bbv-range.scm 741 */
					return BgL_nz00_81;
				}
			else
				{	/* SawBbv/bbv-range.scm 741 */
					if (BIGNUMP(BgL_nz00_81))
						{	/* SawBbv/bbv-range.scm 742 */
							if (BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_nz00_81, BINT(0L)))
								{	/* SawBbv/bbv-range.scm 742 */
									return BGL_REAL_CNST(BGl_real2525z00zzsaw_bbvzd2rangezd2);
								}
							else
								{	/* SawBbv/bbv-range.scm 742 */
									return BGL_REAL_CNST(BGl_real2526z00zzsaw_bbvzd2rangezd2);
								}
						}
					else
						{	/* SawBbv/bbv-range.scm 742 */
							return BgL_nz00_81;
						}
				}
		}

	}



/* +rv */
	obj_t BGl_zb2rvzb2zzsaw_bbvzd2rangezd2(obj_t BgL_xz00_82, obj_t BgL_yz00_83,
		double BgL_defz00_84)
	{
		{	/* SawBbv/bbv-range.scm 748 */
		BGl_zb2rvzb2zzsaw_bbvzd2rangezd2:
			{	/* SawBbv/bbv-range.scm 750 */
				bool_t BgL_test2964z00_7925;

				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_xz00_82))
					{	/* SawBbv/bbv-range.scm 750 */
						BgL_test2964z00_7925 =
							BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_yz00_83);
					}
				else
					{	/* SawBbv/bbv-range.scm 750 */
						BgL_test2964z00_7925 = ((bool_t) 0);
					}
				if (BgL_test2964z00_7925)
					{	/* SawBbv/bbv-range.scm 751 */
						obj_t BgL_arg2145z00_2591;

						{	/* SawBbv/bbv-range.scm 751 */
							bool_t BgL_test2966z00_7929;

							if (INTEGERP(BgL_xz00_82))
								{	/* SawBbv/bbv-range.scm 751 */
									BgL_test2966z00_7929 = INTEGERP(BgL_yz00_83);
								}
							else
								{	/* SawBbv/bbv-range.scm 751 */
									BgL_test2966z00_7929 = ((bool_t) 0);
								}
							if (BgL_test2966z00_7929)
								{	/* SawBbv/bbv-range.scm 751 */
									obj_t BgL_tmpz00_5119;

									BgL_tmpz00_5119 = BINT(0L);
									if (BGL_ADDFX_OV(BgL_xz00_82, BgL_yz00_83, BgL_tmpz00_5119))
										{	/* SawBbv/bbv-range.scm 751 */
											BgL_arg2145z00_2591 =
												bgl_bignum_add(bgl_long_to_bignum(
													(long) CINT(BgL_xz00_82)),
												bgl_long_to_bignum((long) CINT(BgL_yz00_83)));
										}
									else
										{	/* SawBbv/bbv-range.scm 751 */
											BgL_arg2145z00_2591 = BgL_tmpz00_5119;
										}
								}
							else
								{	/* SawBbv/bbv-range.scm 751 */
									BgL_arg2145z00_2591 =
										BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_xz00_82, BgL_yz00_83);
								}
						}
						return BGl_zd2ze3rangez31zzsaw_bbvzd2rangezd2(BgL_arg2145z00_2591);
					}
				else
					{	/* SawBbv/bbv-range.scm 752 */
						bool_t BgL_test2969z00_7943;

						{	/* SawBbv/bbv-range.scm 752 */
							bool_t BgL_test2970z00_7944;

							{	/* SawBbv/bbv-range.scm 84 */
								obj_t BgL_classz00_5127;

								BgL_classz00_5127 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
								if (BGL_OBJECTP(BgL_xz00_82))
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_objectz00_bglt BgL_arg1801z00_5129;

										BgL_arg1801z00_5129 = (BgL_objectz00_bglt) (BgL_xz00_82);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_idxz00_5135;

												BgL_idxz00_5135 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5129);
												BgL_test2970z00_7944 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_5135 + 1L)) == BgL_classz00_5127);
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												bool_t BgL_res2506z00_5157;

												{	/* SawBbv/bbv-range.scm 84 */
													obj_t BgL_oclassz00_5143;

													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_arg1808z00_5149;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1809z00_5150;

															BgL_arg1809z00_5150 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5129);
															BgL_arg1808z00_5149 =
																(BgL_arg1809z00_5150 - OBJECT_TYPE);
														}
														BgL_oclassz00_5143 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_5149);
													}
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL__ortest_1115z00_5144;

														BgL__ortest_1115z00_5144 =
															(BgL_classz00_5127 == BgL_oclassz00_5143);
														if (BgL__ortest_1115z00_5144)
															{	/* SawBbv/bbv-range.scm 84 */
																BgL_res2506z00_5157 = BgL__ortest_1115z00_5144;
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_odepthz00_5145;

																BgL_odepthz00_5145 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_5143);
																if ((1L < BgL_odepthz00_5145))
																	{	/* SawBbv/bbv-range.scm 84 */
																		obj_t BgL_arg1797z00_5147;

																		BgL_arg1797z00_5147 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_5143, 1L);
																		BgL_res2506z00_5157 =
																			(BgL_arg1797z00_5147 ==
																			BgL_classz00_5127);
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2506z00_5157 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2970z00_7944 = BgL_res2506z00_5157;
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_test2970z00_7944 = ((bool_t) 0);
									}
							}
							if (BgL_test2970z00_7944)
								{	/* SawBbv/bbv-range.scm 84 */
									obj_t BgL_classz00_5158;

									BgL_classz00_5158 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
									if (BGL_OBJECTP(BgL_yz00_83))
										{	/* SawBbv/bbv-range.scm 84 */
											BgL_objectz00_bglt BgL_arg1801z00_5160;

											BgL_arg1801z00_5160 = (BgL_objectz00_bglt) (BgL_yz00_83);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* SawBbv/bbv-range.scm 84 */
													long BgL_idxz00_5166;

													BgL_idxz00_5166 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5160);
													BgL_test2969z00_7943 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_5166 + 1L)) == BgL_classz00_5158);
												}
											else
												{	/* SawBbv/bbv-range.scm 84 */
													bool_t BgL_res2507z00_5188;

													{	/* SawBbv/bbv-range.scm 84 */
														obj_t BgL_oclassz00_5174;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1808z00_5180;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1809z00_5181;

																BgL_arg1809z00_5181 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5160);
																BgL_arg1808z00_5180 =
																	(BgL_arg1809z00_5181 - OBJECT_TYPE);
															}
															BgL_oclassz00_5174 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_5180);
														}
														{	/* SawBbv/bbv-range.scm 84 */
															bool_t BgL__ortest_1115z00_5175;

															BgL__ortest_1115z00_5175 =
																(BgL_classz00_5158 == BgL_oclassz00_5174);
															if (BgL__ortest_1115z00_5175)
																{	/* SawBbv/bbv-range.scm 84 */
																	BgL_res2507z00_5188 =
																		BgL__ortest_1115z00_5175;
																}
															else
																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_odepthz00_5176;

																	BgL_odepthz00_5176 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_5174);
																	if ((1L < BgL_odepthz00_5176))
																		{	/* SawBbv/bbv-range.scm 84 */
																			obj_t BgL_arg1797z00_5178;

																			BgL_arg1797z00_5178 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_5174, 1L);
																			BgL_res2507z00_5188 =
																				(BgL_arg1797z00_5178 ==
																				BgL_classz00_5158);
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 84 */
																			BgL_res2507z00_5188 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2969z00_7943 = BgL_res2507z00_5188;
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 84 */
											BgL_test2969z00_7943 = ((bool_t) 0);
										}
								}
							else
								{	/* SawBbv/bbv-range.scm 752 */
									BgL_test2969z00_7943 = ((bool_t) 0);
								}
						}
						if (BgL_test2969z00_7943)
							{	/* SawBbv/bbv-range.scm 752 */
								if (
									((((BgL_bbvzd2vlenzd2_bglt) COBJECT(
													((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_82)))->
											BgL_vecz00) ==
										(((BgL_bbvzd2vlenzd2_bglt) COBJECT(((BgL_bbvzd2vlenzd2_bglt)
														BgL_yz00_83)))->BgL_vecz00)))
									{	/* SawBbv/bbv-range.scm 754 */
										long BgL_noz00_2598;

										BgL_noz00_2598 =
											(
											(long) (
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
															((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_82)))->
													BgL_offsetz00)) +
											(long) ((((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_83)))->
													BgL_offsetz00)));
										{	/* SawBbv/bbv-range.scm 755 */
											BgL_bbvzd2vlenzd2_bglt BgL_new1257z00_2600;

											{	/* SawBbv/bbv-range.scm 755 */
												BgL_bbvzd2vlenzd2_bglt BgL_new1260z00_2601;

												BgL_new1260z00_2601 =
													((BgL_bbvzd2vlenzd2_bglt)
													BOBJECT(GC_MALLOC(sizeof(struct
																BgL_bbvzd2vlenzd2_bgl))));
												{	/* SawBbv/bbv-range.scm 755 */
													long BgL_arg2152z00_2602;

													BgL_arg2152z00_2602 =
														BGL_CLASS_NUM
														(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
													BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
															BgL_new1260z00_2601), BgL_arg2152z00_2602);
												}
												BgL_new1257z00_2600 = BgL_new1260z00_2601;
											}
											((((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(BgL_new1257z00_2600))->BgL_vecz00) =
												((obj_t) (((BgL_bbvzd2vlenzd2_bglt)
															COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_82)))->
														BgL_vecz00)), BUNSPEC);
											((((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(BgL_new1257z00_2600))->BgL_offsetz00) =
												((int) (int) (BgL_noz00_2598)), BUNSPEC);
											BgL_new1257z00_2600;
										}
										{	/* SawBbv/bbv-range.scm 757 */
											long BgL_arg2153z00_2603;

											{	/* SawBbv/bbv-range.scm 242 */
												long BgL_arg1763z00_5202;

												{	/* SawBbv/bbv-range.scm 242 */
													obj_t BgL_arg1768z00_5203;

													BgL_arg1768z00_5203 =
														BGl_bigloozd2configzd2zz__configurez00
														(CNST_TABLE_REF(0L));
													BgL_arg1763z00_5202 =
														((long) CINT(BgL_arg1768z00_5203) - 2L);
												}
												BgL_arg2153z00_2603 =
													(1L << (int) (BgL_arg1763z00_5202));
											}
											return BINT((BgL_arg2153z00_2603 + BgL_noz00_2598));
										}
									}
								else
									{	/* SawBbv/bbv-range.scm 753 */
										return BFALSE;
									}
							}
						else
							{	/* SawBbv/bbv-range.scm 758 */
								bool_t BgL_test2980z00_8013;

								{	/* SawBbv/bbv-range.scm 758 */
									bool_t BgL_test2981z00_8014;

									{	/* SawBbv/bbv-range.scm 84 */
										obj_t BgL_classz00_5208;

										BgL_classz00_5208 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
										if (BGL_OBJECTP(BgL_xz00_82))
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_objectz00_bglt BgL_arg1801z00_5210;

												BgL_arg1801z00_5210 =
													(BgL_objectz00_bglt) (BgL_xz00_82);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_idxz00_5216;

														BgL_idxz00_5216 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5210);
														BgL_test2981z00_8014 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_5216 + 1L)) == BgL_classz00_5208);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL_res2508z00_5238;

														{	/* SawBbv/bbv-range.scm 84 */
															obj_t BgL_oclassz00_5224;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1808z00_5230;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1809z00_5231;

																	BgL_arg1809z00_5231 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5210);
																	BgL_arg1808z00_5230 =
																		(BgL_arg1809z00_5231 - OBJECT_TYPE);
																}
																BgL_oclassz00_5224 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_5230);
															}
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL__ortest_1115z00_5225;

																BgL__ortest_1115z00_5225 =
																	(BgL_classz00_5208 == BgL_oclassz00_5224);
																if (BgL__ortest_1115z00_5225)
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2508z00_5238 =
																			BgL__ortest_1115z00_5225;
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_odepthz00_5226;

																		BgL_odepthz00_5226 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_5224);
																		if ((1L < BgL_odepthz00_5226))
																			{	/* SawBbv/bbv-range.scm 84 */
																				obj_t BgL_arg1797z00_5228;

																				BgL_arg1797z00_5228 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_5224, 1L);
																				BgL_res2508z00_5238 =
																					(BgL_arg1797z00_5228 ==
																					BgL_classz00_5208);
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2508z00_5238 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test2981z00_8014 = BgL_res2508z00_5238;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_test2981z00_8014 = ((bool_t) 0);
											}
									}
									if (BgL_test2981z00_8014)
										{	/* SawBbv/bbv-range.scm 758 */
											BgL_test2980z00_8013 = INTEGERP(BgL_yz00_83);
										}
									else
										{	/* SawBbv/bbv-range.scm 758 */
											BgL_test2980z00_8013 = ((bool_t) 0);
										}
								}
								if (BgL_test2980z00_8013)
									{	/* SawBbv/bbv-range.scm 759 */
										long BgL_noz00_2610;

										BgL_noz00_2610 =
											(
											(long) (
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
															((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_82)))->
													BgL_offsetz00)) + (long) CINT(BgL_yz00_83));
										if ((BgL_noz00_2610 <= 0L))
											{	/* SawBbv/bbv-range.scm 761 */
												BgL_bbvzd2vlenzd2_bglt BgL_new1261z00_2613;

												{	/* SawBbv/bbv-range.scm 761 */
													BgL_bbvzd2vlenzd2_bglt BgL_new1264z00_2614;

													BgL_new1264z00_2614 =
														((BgL_bbvzd2vlenzd2_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_bbvzd2vlenzd2_bgl))));
													{	/* SawBbv/bbv-range.scm 761 */
														long BgL_arg2161z00_2615;

														BgL_arg2161z00_2615 =
															BGL_CLASS_NUM
															(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
														BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																BgL_new1264z00_2614), BgL_arg2161z00_2615);
													}
													BgL_new1261z00_2613 = BgL_new1264z00_2614;
												}
												((((BgL_bbvzd2vlenzd2_bglt)
															COBJECT(BgL_new1261z00_2613))->BgL_vecz00) =
													((obj_t) (((BgL_bbvzd2vlenzd2_bglt)
																COBJECT(((BgL_bbvzd2vlenzd2_bglt)
																		BgL_xz00_82)))->BgL_vecz00)), BUNSPEC);
												((((BgL_bbvzd2vlenzd2_bglt)
															COBJECT(BgL_new1261z00_2613))->BgL_offsetz00) =
													((int) (int) (BgL_noz00_2610)), BUNSPEC);
												return ((obj_t) BgL_new1261z00_2613);
											}
										else
											{	/* SawBbv/bbv-range.scm 760 */
												return
													BGL_REAL_CNST(BGl_real2525z00zzsaw_bbvzd2rangezd2);
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 764 */
										bool_t BgL_test2987z00_8052;

										if (INTEGERP(BgL_xz00_82))
											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_5247;

												BgL_classz00_5247 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_yz00_83))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_5249;

														BgL_arg1801z00_5249 =
															(BgL_objectz00_bglt) (BgL_yz00_83);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_5255;

																BgL_idxz00_5255 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_5249);
																BgL_test2987z00_8052 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_5255 + 1L)) ==
																	BgL_classz00_5247);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2509z00_5277;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_5263;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_5269;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_5270;

																			BgL_arg1809z00_5270 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_5249);
																			BgL_arg1808z00_5269 =
																				(BgL_arg1809z00_5270 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_5263 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_5269);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_5264;

																		BgL__ortest_1115z00_5264 =
																			(BgL_classz00_5247 == BgL_oclassz00_5263);
																		if (BgL__ortest_1115z00_5264)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2509z00_5277 =
																					BgL__ortest_1115z00_5264;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_5265;

																				BgL_odepthz00_5265 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_5263);
																				if ((1L < BgL_odepthz00_5265))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_5267;

																						BgL_arg1797z00_5267 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_5263, 1L);
																						BgL_res2509z00_5277 =
																							(BgL_arg1797z00_5267 ==
																							BgL_classz00_5247);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2509z00_5277 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test2987z00_8052 = BgL_res2509z00_5277;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test2987z00_8052 = ((bool_t) 0);
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 764 */
												BgL_test2987z00_8052 = ((bool_t) 0);
											}
										if (BgL_test2987z00_8052)
											{
												obj_t BgL_yz00_8075;
												obj_t BgL_xz00_8074;

												BgL_xz00_8074 = BgL_yz00_83;
												BgL_yz00_8075 = BgL_xz00_82;
												BgL_yz00_83 = BgL_yz00_8075;
												BgL_xz00_82 = BgL_xz00_8074;
												goto BGl_zb2rvzb2zzsaw_bbvzd2rangezd2;
											}
										else
											{	/* SawBbv/bbv-range.scm 764 */
												return DOUBLE_TO_REAL(BgL_defz00_84);
											}
									}
							}
					}
			}
		}

	}



/* -rv */
	obj_t BGl_zd2rvzd2zzsaw_bbvzd2rangezd2(obj_t BgL_xz00_85, obj_t BgL_yz00_86,
		double BgL_defz00_87)
	{
		{	/* SawBbv/bbv-range.scm 772 */
			{	/* SawBbv/bbv-range.scm 774 */
				bool_t BgL_test2993z00_8077;

				if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_yz00_86))
					{	/* SawBbv/bbv-range.scm 774 */
						BgL_test2993z00_8077 =
							BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_yz00_86);
					}
				else
					{	/* SawBbv/bbv-range.scm 774 */
						BgL_test2993z00_8077 = ((bool_t) 0);
					}
				if (BgL_test2993z00_8077)
					{	/* SawBbv/bbv-range.scm 774 */
						BGL_TAIL return
							BGl_zb2rvzb2zzsaw_bbvzd2rangezd2(BgL_xz00_85,
							BGl_zd2zd2zz__r4_numbers_6_5z00(BgL_yz00_86, BNIL),
							BgL_defz00_87);
					}
				else
					{	/* SawBbv/bbv-range.scm 776 */
						bool_t BgL_test2995z00_8083;

						{	/* SawBbv/bbv-range.scm 776 */
							bool_t BgL_test2996z00_8084;

							{	/* SawBbv/bbv-range.scm 84 */
								obj_t BgL_classz00_5278;

								BgL_classz00_5278 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
								if (BGL_OBJECTP(BgL_xz00_85))
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_objectz00_bglt BgL_arg1801z00_5280;

										BgL_arg1801z00_5280 = (BgL_objectz00_bglt) (BgL_xz00_85);
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_idxz00_5286;

												BgL_idxz00_5286 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5280);
												BgL_test2996z00_8084 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_5286 + 1L)) == BgL_classz00_5278);
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												bool_t BgL_res2510z00_5308;

												{	/* SawBbv/bbv-range.scm 84 */
													obj_t BgL_oclassz00_5294;

													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_arg1808z00_5300;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1809z00_5301;

															BgL_arg1809z00_5301 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5280);
															BgL_arg1808z00_5300 =
																(BgL_arg1809z00_5301 - OBJECT_TYPE);
														}
														BgL_oclassz00_5294 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_5300);
													}
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL__ortest_1115z00_5295;

														BgL__ortest_1115z00_5295 =
															(BgL_classz00_5278 == BgL_oclassz00_5294);
														if (BgL__ortest_1115z00_5295)
															{	/* SawBbv/bbv-range.scm 84 */
																BgL_res2510z00_5308 = BgL__ortest_1115z00_5295;
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_odepthz00_5296;

																BgL_odepthz00_5296 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_5294);
																if ((1L < BgL_odepthz00_5296))
																	{	/* SawBbv/bbv-range.scm 84 */
																		obj_t BgL_arg1797z00_5298;

																		BgL_arg1797z00_5298 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_5294, 1L);
																		BgL_res2510z00_5308 =
																			(BgL_arg1797z00_5298 ==
																			BgL_classz00_5278);
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2510z00_5308 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test2996z00_8084 = BgL_res2510z00_5308;
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_test2996z00_8084 = ((bool_t) 0);
									}
							}
							if (BgL_test2996z00_8084)
								{	/* SawBbv/bbv-range.scm 84 */
									obj_t BgL_classz00_5309;

									BgL_classz00_5309 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
									if (BGL_OBJECTP(BgL_yz00_86))
										{	/* SawBbv/bbv-range.scm 84 */
											BgL_objectz00_bglt BgL_arg1801z00_5311;

											BgL_arg1801z00_5311 = (BgL_objectz00_bglt) (BgL_yz00_86);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* SawBbv/bbv-range.scm 84 */
													long BgL_idxz00_5317;

													BgL_idxz00_5317 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5311);
													BgL_test2995z00_8083 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_5317 + 1L)) == BgL_classz00_5309);
												}
											else
												{	/* SawBbv/bbv-range.scm 84 */
													bool_t BgL_res2511z00_5339;

													{	/* SawBbv/bbv-range.scm 84 */
														obj_t BgL_oclassz00_5325;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1808z00_5331;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1809z00_5332;

																BgL_arg1809z00_5332 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5311);
																BgL_arg1808z00_5331 =
																	(BgL_arg1809z00_5332 - OBJECT_TYPE);
															}
															BgL_oclassz00_5325 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_5331);
														}
														{	/* SawBbv/bbv-range.scm 84 */
															bool_t BgL__ortest_1115z00_5326;

															BgL__ortest_1115z00_5326 =
																(BgL_classz00_5309 == BgL_oclassz00_5325);
															if (BgL__ortest_1115z00_5326)
																{	/* SawBbv/bbv-range.scm 84 */
																	BgL_res2511z00_5339 =
																		BgL__ortest_1115z00_5326;
																}
															else
																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_odepthz00_5327;

																	BgL_odepthz00_5327 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_5325);
																	if ((1L < BgL_odepthz00_5327))
																		{	/* SawBbv/bbv-range.scm 84 */
																			obj_t BgL_arg1797z00_5329;

																			BgL_arg1797z00_5329 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_5325, 1L);
																			BgL_res2511z00_5339 =
																				(BgL_arg1797z00_5329 ==
																				BgL_classz00_5309);
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 84 */
																			BgL_res2511z00_5339 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test2995z00_8083 = BgL_res2511z00_5339;
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 84 */
											BgL_test2995z00_8083 = ((bool_t) 0);
										}
								}
							else
								{	/* SawBbv/bbv-range.scm 776 */
									BgL_test2995z00_8083 = ((bool_t) 0);
								}
						}
						if (BgL_test2995z00_8083)
							{	/* SawBbv/bbv-range.scm 776 */
								if (
									((((BgL_bbvzd2vlenzd2_bglt) COBJECT(
													((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_85)))->
											BgL_vecz00) ==
										(((BgL_bbvzd2vlenzd2_bglt) COBJECT(((BgL_bbvzd2vlenzd2_bglt)
														BgL_yz00_86)))->BgL_vecz00)))
									{	/* SawBbv/bbv-range.scm 778 */
										long BgL_noz00_2632;

										BgL_noz00_2632 =
											(
											(long) (
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
															((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_85)))->
													BgL_offsetz00)) -
											(long) ((((BgL_bbvzd2vlenzd2_bglt)
														COBJECT(((BgL_bbvzd2vlenzd2_bglt) BgL_yz00_86)))->
													BgL_offsetz00)));
										if ((BgL_noz00_2632 <= 0L))
											{	/* SawBbv/bbv-range.scm 780 */
												BgL_bbvzd2vlenzd2_bglt BgL_new1265z00_2635;

												{	/* SawBbv/bbv-range.scm 780 */
													BgL_bbvzd2vlenzd2_bglt BgL_new1268z00_2636;

													BgL_new1268z00_2636 =
														((BgL_bbvzd2vlenzd2_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_bbvzd2vlenzd2_bgl))));
													{	/* SawBbv/bbv-range.scm 780 */
														long BgL_arg2175z00_2637;

														BgL_arg2175z00_2637 =
															BGL_CLASS_NUM
															(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
														BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																BgL_new1268z00_2636), BgL_arg2175z00_2637);
													}
													BgL_new1265z00_2635 = BgL_new1268z00_2636;
												}
												((((BgL_bbvzd2vlenzd2_bglt)
															COBJECT(BgL_new1265z00_2635))->BgL_vecz00) =
													((obj_t) (((BgL_bbvzd2vlenzd2_bglt)
																COBJECT(((BgL_bbvzd2vlenzd2_bglt)
																		BgL_xz00_85)))->BgL_vecz00)), BUNSPEC);
												((((BgL_bbvzd2vlenzd2_bglt)
															COBJECT(BgL_new1265z00_2635))->BgL_offsetz00) =
													((int) (int) (BgL_noz00_2632)), BUNSPEC);
												return ((obj_t) BgL_new1265z00_2635);
											}
										else
											{	/* SawBbv/bbv-range.scm 779 */
												return
													BGL_REAL_CNST(BGl_real2525z00zzsaw_bbvzd2rangezd2);
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 777 */
										return BFALSE;
									}
							}
						else
							{	/* SawBbv/bbv-range.scm 783 */
								bool_t BgL_test3007z00_8148;

								{	/* SawBbv/bbv-range.scm 783 */
									bool_t BgL_test3008z00_8149;

									{	/* SawBbv/bbv-range.scm 84 */
										obj_t BgL_classz00_5354;

										BgL_classz00_5354 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
										if (BGL_OBJECTP(BgL_xz00_85))
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_objectz00_bglt BgL_arg1801z00_5356;

												BgL_arg1801z00_5356 =
													(BgL_objectz00_bglt) (BgL_xz00_85);
												if (BGL_CONDEXPAND_ISA_ARCH64())
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_idxz00_5362;

														BgL_idxz00_5362 =
															BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5356);
														BgL_test3008z00_8149 =
															(VECTOR_REF
															(BGl_za2inheritancesza2z00zz__objectz00,
																(BgL_idxz00_5362 + 1L)) == BgL_classz00_5354);
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL_res2512z00_5384;

														{	/* SawBbv/bbv-range.scm 84 */
															obj_t BgL_oclassz00_5370;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1808z00_5376;

																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_arg1809z00_5377;

																	BgL_arg1809z00_5377 =
																		BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5356);
																	BgL_arg1808z00_5376 =
																		(BgL_arg1809z00_5377 - OBJECT_TYPE);
																}
																BgL_oclassz00_5370 =
																	VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																	BgL_arg1808z00_5376);
															}
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL__ortest_1115z00_5371;

																BgL__ortest_1115z00_5371 =
																	(BgL_classz00_5354 == BgL_oclassz00_5370);
																if (BgL__ortest_1115z00_5371)
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2512z00_5384 =
																			BgL__ortest_1115z00_5371;
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_odepthz00_5372;

																		BgL_odepthz00_5372 =
																			BGL_CLASS_DEPTH(BgL_oclassz00_5370);
																		if ((1L < BgL_odepthz00_5372))
																			{	/* SawBbv/bbv-range.scm 84 */
																				obj_t BgL_arg1797z00_5374;

																				BgL_arg1797z00_5374 =
																					BGL_CLASS_ANCESTORS_REF
																					(BgL_oclassz00_5370, 1L);
																				BgL_res2512z00_5384 =
																					(BgL_arg1797z00_5374 ==
																					BgL_classz00_5354);
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2512z00_5384 = ((bool_t) 0);
																			}
																	}
															}
														}
														BgL_test3008z00_8149 = BgL_res2512z00_5384;
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												BgL_test3008z00_8149 = ((bool_t) 0);
											}
									}
									if (BgL_test3008z00_8149)
										{	/* SawBbv/bbv-range.scm 783 */
											BgL_test3007z00_8148 = INTEGERP(BgL_yz00_86);
										}
									else
										{	/* SawBbv/bbv-range.scm 783 */
											BgL_test3007z00_8148 = ((bool_t) 0);
										}
								}
								if (BgL_test3007z00_8148)
									{	/* SawBbv/bbv-range.scm 784 */
										long BgL_noz00_2644;

										BgL_noz00_2644 =
											(
											(long) (
												(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
															((BgL_bbvzd2vlenzd2_bglt) BgL_xz00_85)))->
													BgL_offsetz00)) - (long) CINT(BgL_yz00_86));
										if ((BgL_noz00_2644 <= 0L))
											{	/* SawBbv/bbv-range.scm 786 */
												BgL_bbvzd2vlenzd2_bglt BgL_new1269z00_2647;

												{	/* SawBbv/bbv-range.scm 786 */
													BgL_bbvzd2vlenzd2_bglt BgL_new1272z00_2648;

													BgL_new1272z00_2648 =
														((BgL_bbvzd2vlenzd2_bglt)
														BOBJECT(GC_MALLOC(sizeof(struct
																	BgL_bbvzd2vlenzd2_bgl))));
													{	/* SawBbv/bbv-range.scm 786 */
														long BgL_arg2183z00_2649;

														BgL_arg2183z00_2649 =
															BGL_CLASS_NUM
															(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
														BGL_OBJECT_CLASS_NUM_SET(((BgL_objectz00_bglt)
																BgL_new1272z00_2648), BgL_arg2183z00_2649);
													}
													BgL_new1269z00_2647 = BgL_new1272z00_2648;
												}
												((((BgL_bbvzd2vlenzd2_bglt)
															COBJECT(BgL_new1269z00_2647))->BgL_vecz00) =
													((obj_t) (((BgL_bbvzd2vlenzd2_bglt)
																COBJECT(((BgL_bbvzd2vlenzd2_bglt)
																		BgL_xz00_85)))->BgL_vecz00)), BUNSPEC);
												((((BgL_bbvzd2vlenzd2_bglt)
															COBJECT(BgL_new1269z00_2647))->BgL_offsetz00) =
													((int) (int) (BgL_noz00_2644)), BUNSPEC);
												return ((obj_t) BgL_new1269z00_2647);
											}
										else
											{	/* SawBbv/bbv-range.scm 785 */
												return
													BGL_REAL_CNST(BGl_real2525z00zzsaw_bbvzd2rangezd2);
											}
									}
								else
									{	/* SawBbv/bbv-range.scm 789 */
										bool_t BgL_test3014z00_8187;

										if (INTEGERP(BgL_xz00_85))
											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_classz00_5393;

												BgL_classz00_5393 =
													BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
												if (BGL_OBJECTP(BgL_yz00_86))
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_objectz00_bglt BgL_arg1801z00_5395;

														BgL_arg1801z00_5395 =
															(BgL_objectz00_bglt) (BgL_yz00_86);
														if (BGL_CONDEXPAND_ISA_ARCH64())
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_idxz00_5401;

																BgL_idxz00_5401 =
																	BGL_OBJECT_INHERITANCE_NUM
																	(BgL_arg1801z00_5395);
																BgL_test3014z00_8187 =
																	(VECTOR_REF
																	(BGl_za2inheritancesza2z00zz__objectz00,
																		(BgL_idxz00_5401 + 1L)) ==
																	BgL_classz00_5393);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																bool_t BgL_res2513z00_5423;

																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_oclassz00_5409;

																	{	/* SawBbv/bbv-range.scm 84 */
																		long BgL_arg1808z00_5415;

																		{	/* SawBbv/bbv-range.scm 84 */
																			long BgL_arg1809z00_5416;

																			BgL_arg1809z00_5416 =
																				BGL_OBJECT_CLASS_NUM
																				(BgL_arg1801z00_5395);
																			BgL_arg1808z00_5415 =
																				(BgL_arg1809z00_5416 - OBJECT_TYPE);
																		}
																		BgL_oclassz00_5409 =
																			VECTOR_REF
																			(BGl_za2classesza2z00zz__objectz00,
																			BgL_arg1808z00_5415);
																	}
																	{	/* SawBbv/bbv-range.scm 84 */
																		bool_t BgL__ortest_1115z00_5410;

																		BgL__ortest_1115z00_5410 =
																			(BgL_classz00_5393 == BgL_oclassz00_5409);
																		if (BgL__ortest_1115z00_5410)
																			{	/* SawBbv/bbv-range.scm 84 */
																				BgL_res2513z00_5423 =
																					BgL__ortest_1115z00_5410;
																			}
																		else
																			{	/* SawBbv/bbv-range.scm 84 */
																				long BgL_odepthz00_5411;

																				BgL_odepthz00_5411 =
																					BGL_CLASS_DEPTH(BgL_oclassz00_5409);
																				if ((1L < BgL_odepthz00_5411))
																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_arg1797z00_5413;

																						BgL_arg1797z00_5413 =
																							BGL_CLASS_ANCESTORS_REF
																							(BgL_oclassz00_5409, 1L);
																						BgL_res2513z00_5423 =
																							(BgL_arg1797z00_5413 ==
																							BgL_classz00_5393);
																					}
																				else
																					{	/* SawBbv/bbv-range.scm 84 */
																						BgL_res2513z00_5423 = ((bool_t) 0);
																					}
																			}
																	}
																}
																BgL_test3014z00_8187 = BgL_res2513z00_5423;
															}
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_test3014z00_8187 = ((bool_t) 0);
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 789 */
												BgL_test3014z00_8187 = ((bool_t) 0);
											}
										if (BgL_test3014z00_8187)
											{	/* SawBbv/bbv-range.scm 790 */
												long BgL_noz00_2653;

												{	/* SawBbv/bbv-range.scm 790 */
													long BgL_za71za7_5426;
													long BgL_za72za7_5427;

													BgL_za71za7_5426 = (long) CINT(BgL_yz00_86);
													{	/* SawBbv/bbv-range.scm 790 */
														BgL_bbvzd2vlenzd2_bglt BgL_oz00_5424;

														{	/* SawBbv/bbv-range.scm 790 */
															obj_t BgL_aux2524z00_5944;

															BgL_aux2524z00_5944 = BgL_xz00_85;
															{
																obj_t BgL_auxz00_8210;

																BgL_auxz00_8210 =
																	BGl_typezd2errorzd2zz__errorz00
																	(BGl_string2527z00zzsaw_bbvzd2rangezd2,
																	BINT(29523L),
																	BGl_string2528z00zzsaw_bbvzd2rangezd2,
																	BGl_string2529z00zzsaw_bbvzd2rangezd2,
																	BgL_aux2524z00_5944);
																FAILURE(BgL_auxz00_8210, BFALSE, BFALSE);
														}}
														BgL_za72za7_5427 =
															(long) (
															(((BgL_bbvzd2vlenzd2_bglt)
																	COBJECT(BgL_oz00_5424))->BgL_offsetz00));
													}
													BgL_noz00_2653 =
														(BgL_za71za7_5426 - BgL_za72za7_5427);
												}
												if ((BgL_noz00_2653 >= 0L))
													{	/* SawBbv/bbv-range.scm 792 */
														long BgL_arg2188z00_2655;

														{	/* SawBbv/bbv-range.scm 244 */
															long BgL_arg1771z00_5429;

															{	/* SawBbv/bbv-range.scm 244 */
																long BgL_arg1773z00_5430;

																{	/* SawBbv/bbv-range.scm 242 */
																	long BgL_arg1763z00_5431;

																	{	/* SawBbv/bbv-range.scm 242 */
																		obj_t BgL_arg1768z00_5432;

																		BgL_arg1768z00_5432 =
																			BGl_bigloozd2configzd2zz__configurez00
																			(CNST_TABLE_REF(0L));
																		BgL_arg1763z00_5431 =
																			((long) CINT(BgL_arg1768z00_5432) - 2L);
																	}
																	BgL_arg1773z00_5430 =
																		(1L << (int) (BgL_arg1763z00_5431));
																}
																BgL_arg1771z00_5429 = NEG(BgL_arg1773z00_5430);
															}
															BgL_arg2188z00_2655 = (BgL_arg1771z00_5429 - 1L);
														}
														return BINT((BgL_noz00_2653 - BgL_arg2188z00_2655));
													}
												else
													{	/* SawBbv/bbv-range.scm 791 */
														return
															BGL_REAL_CNST
															(BGl_real2525z00zzsaw_bbvzd2rangezd2);
													}
											}
										else
											{	/* SawBbv/bbv-range.scm 789 */
												return DOUBLE_TO_REAL(BgL_defz00_87);
											}
									}
							}
					}
			}
		}

	}



/* bbv-range-add */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2addz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_91, BgL_bbvzd2rangezd2_bglt BgL_yz00_92)
	{
		{	/* SawBbv/bbv-range.scm 824 */
			{	/* SawBbv/bbv-range.scm 825 */
				obj_t BgL_ylz00_2689;
				obj_t BgL_yuz00_2690;
				obj_t BgL_xlz00_2691;
				obj_t BgL_xuz00_2692;

				BgL_ylz00_2689 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_92))->BgL_loz00);
				BgL_yuz00_2690 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_92))->BgL_upz00);
				BgL_xlz00_2691 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_91))->BgL_loz00);
				BgL_xuz00_2692 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_91))->BgL_upz00);
				{	/* SawBbv/bbv-range.scm 829 */
					BgL_bbvzd2rangezd2_bglt BgL_new1283z00_2693;

					{	/* SawBbv/bbv-range.scm 830 */
						BgL_bbvzd2rangezd2_bglt BgL_new1282z00_2694;

						BgL_new1282z00_2694 =
							((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_bbvzd2rangezd2_bgl))));
						{	/* SawBbv/bbv-range.scm 830 */
							long BgL_arg2206z00_2695;

							BgL_arg2206z00_2695 =
								BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1282z00_2694),
								BgL_arg2206z00_2695);
						}
						BgL_new1283z00_2693 = BgL_new1282z00_2694;
					}
					((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1283z00_2693))->
							BgL_loz00) =
						((obj_t) BGl_zb2rvzb2zzsaw_bbvzd2rangezd2(BgL_xlz00_2691,
								BgL_ylz00_2689, (-BGL_INFINITY))), BUNSPEC);
					((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1283z00_2693))->
							BgL_upz00) =
						((obj_t) BGl_zb2rvzb2zzsaw_bbvzd2rangezd2(BgL_xuz00_2692,
								BgL_yuz00_2690, BGL_INFINITY)), BUNSPEC);
					return BgL_new1283z00_2693;
				}
			}
		}

	}



/* &bbv-range-add */
	BgL_bbvzd2rangezd2_bglt BGl_z62bbvzd2rangezd2addz62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5872, obj_t BgL_xz00_5873, obj_t BgL_yz00_5874)
	{
		{	/* SawBbv/bbv-range.scm 824 */
			return
				BGl_bbvzd2rangezd2addz00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5873),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5874));
		}

	}



/* bbv-range-sub */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2subz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_93, BgL_bbvzd2rangezd2_bglt BgL_yz00_94)
	{
		{	/* SawBbv/bbv-range.scm 836 */
			{	/* SawBbv/bbv-range.scm 837 */
				obj_t BgL_ylz00_2696;
				obj_t BgL_yuz00_2697;
				obj_t BgL_xlz00_2698;
				obj_t BgL_xuz00_2699;

				BgL_ylz00_2696 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_94))->BgL_loz00);
				BgL_yuz00_2697 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_94))->BgL_upz00);
				BgL_xlz00_2698 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_93))->BgL_loz00);
				BgL_xuz00_2699 =
					(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_93))->BgL_upz00);
				{	/* SawBbv/bbv-range.scm 841 */
					BgL_bbvzd2rangezd2_bglt BgL_new1285z00_2700;

					{	/* SawBbv/bbv-range.scm 842 */
						BgL_bbvzd2rangezd2_bglt BgL_new1284z00_2701;

						BgL_new1284z00_2701 =
							((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_bbvzd2rangezd2_bgl))));
						{	/* SawBbv/bbv-range.scm 842 */
							long BgL_arg2207z00_2702;

							BgL_arg2207z00_2702 =
								BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1284z00_2701),
								BgL_arg2207z00_2702);
						}
						BgL_new1285z00_2700 = BgL_new1284z00_2701;
					}
					((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1285z00_2700))->
							BgL_loz00) =
						((obj_t) BGl_zd2rvzd2zzsaw_bbvzd2rangezd2(BgL_xlz00_2698,
								BgL_yuz00_2697, (-BGL_INFINITY))), BUNSPEC);
					((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1285z00_2700))->
							BgL_upz00) =
						((obj_t) BGl_zd2rvzd2zzsaw_bbvzd2rangezd2(BgL_xuz00_2699,
								BgL_ylz00_2696, BGL_INFINITY)), BUNSPEC);
					return BgL_new1285z00_2700;
				}
			}
		}

	}



/* &bbv-range-sub */
	BgL_bbvzd2rangezd2_bglt BGl_z62bbvzd2rangezd2subz62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5875, obj_t BgL_xz00_5876, obj_t BgL_yz00_5877)
	{
		{	/* SawBbv/bbv-range.scm 836 */
			return
				BGl_bbvzd2rangezd2subz00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5876),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5877));
		}

	}



/* bbv-range-mul */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2mulz00zzsaw_bbvzd2rangezd2(BgL_bbvzd2rangezd2_bglt
		BgL_xz00_95, BgL_bbvzd2rangezd2_bglt BgL_yz00_96)
	{
		{	/* SawBbv/bbv-range.scm 848 */
			{	/* SawBbv/bbv-range.scm 849 */
				obj_t BgL_ylz00_2703;

				{	/* SawBbv/bbv-range.scm 294 */
					bool_t BgL_test3021z00_8260;

					{	/* SawBbv/bbv-range.scm 294 */
						obj_t BgL_arg1830z00_5455;

						BgL_arg1830z00_5455 =
							(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_96))->BgL_loz00);
						{	/* SawBbv/bbv-range.scm 84 */
							obj_t BgL_classz00_5457;

							BgL_classz00_5457 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
							if (BGL_OBJECTP(BgL_arg1830z00_5455))
								{	/* SawBbv/bbv-range.scm 84 */
									BgL_objectz00_bglt BgL_arg1801z00_5459;

									BgL_arg1801z00_5459 =
										(BgL_objectz00_bglt) (BgL_arg1830z00_5455);
									if (BGL_CONDEXPAND_ISA_ARCH64())
										{	/* SawBbv/bbv-range.scm 84 */
											long BgL_idxz00_5465;

											BgL_idxz00_5465 =
												BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5459);
											BgL_test3021z00_8260 =
												(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
													(BgL_idxz00_5465 + 1L)) == BgL_classz00_5457);
										}
									else
										{	/* SawBbv/bbv-range.scm 84 */
											bool_t BgL_res2514z00_5487;

											{	/* SawBbv/bbv-range.scm 84 */
												obj_t BgL_oclassz00_5473;

												{	/* SawBbv/bbv-range.scm 84 */
													long BgL_arg1808z00_5479;

													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_arg1809z00_5480;

														BgL_arg1809z00_5480 =
															BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5459);
														BgL_arg1808z00_5479 =
															(BgL_arg1809z00_5480 - OBJECT_TYPE);
													}
													BgL_oclassz00_5473 =
														VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
														BgL_arg1808z00_5479);
												}
												{	/* SawBbv/bbv-range.scm 84 */
													bool_t BgL__ortest_1115z00_5474;

													BgL__ortest_1115z00_5474 =
														(BgL_classz00_5457 == BgL_oclassz00_5473);
													if (BgL__ortest_1115z00_5474)
														{	/* SawBbv/bbv-range.scm 84 */
															BgL_res2514z00_5487 = BgL__ortest_1115z00_5474;
														}
													else
														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_odepthz00_5475;

															BgL_odepthz00_5475 =
																BGL_CLASS_DEPTH(BgL_oclassz00_5473);
															if ((1L < BgL_odepthz00_5475))
																{	/* SawBbv/bbv-range.scm 84 */
																	obj_t BgL_arg1797z00_5477;

																	BgL_arg1797z00_5477 =
																		BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_5473,
																		1L);
																	BgL_res2514z00_5487 =
																		(BgL_arg1797z00_5477 == BgL_classz00_5457);
																}
															else
																{	/* SawBbv/bbv-range.scm 84 */
																	BgL_res2514z00_5487 = ((bool_t) 0);
																}
														}
												}
											}
											BgL_test3021z00_8260 = BgL_res2514z00_5487;
										}
								}
							else
								{	/* SawBbv/bbv-range.scm 84 */
									BgL_test3021z00_8260 = ((bool_t) 0);
								}
						}
					}
					if (BgL_test3021z00_8260)
						{	/* SawBbv/bbv-range.scm 294 */
							BgL_ylz00_2703 =
								BINT(
								(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
											((BgL_bbvzd2vlenzd2_bglt)
												(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_96))->
													BgL_loz00))))->BgL_offsetz00));
						}
					else
						{	/* SawBbv/bbv-range.scm 294 */
							BgL_ylz00_2703 =
								(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_96))->BgL_loz00);
						}
				}
				{	/* SawBbv/bbv-range.scm 849 */
					obj_t BgL_yuz00_2704;

					{	/* SawBbv/bbv-range.scm 310 */
						bool_t BgL_test3026z00_8286;

						{	/* SawBbv/bbv-range.scm 84 */
							obj_t BgL_classz00_5492;

							BgL_classz00_5492 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
							{	/* SawBbv/bbv-range.scm 84 */
								BgL_objectz00_bglt BgL_arg1801z00_5494;

								{	/* SawBbv/bbv-range.scm 84 */
									obj_t BgL_tmpz00_8287;

									BgL_tmpz00_8287 = ((obj_t) BgL_yz00_96);
									BgL_arg1801z00_5494 = (BgL_objectz00_bglt) (BgL_tmpz00_8287);
								}
								if (BGL_CONDEXPAND_ISA_ARCH64())
									{	/* SawBbv/bbv-range.scm 84 */
										long BgL_idxz00_5500;

										BgL_idxz00_5500 =
											BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5494);
										BgL_test3026z00_8286 =
											(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
												(BgL_idxz00_5500 + 1L)) == BgL_classz00_5492);
									}
								else
									{	/* SawBbv/bbv-range.scm 84 */
										bool_t BgL_res2515z00_5522;

										{	/* SawBbv/bbv-range.scm 84 */
											obj_t BgL_oclassz00_5508;

											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_arg1808z00_5514;

												{	/* SawBbv/bbv-range.scm 84 */
													long BgL_arg1809z00_5515;

													BgL_arg1809z00_5515 =
														BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5494);
													BgL_arg1808z00_5514 =
														(BgL_arg1809z00_5515 - OBJECT_TYPE);
												}
												BgL_oclassz00_5508 =
													VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
													BgL_arg1808z00_5514);
											}
											{	/* SawBbv/bbv-range.scm 84 */
												bool_t BgL__ortest_1115z00_5509;

												BgL__ortest_1115z00_5509 =
													(BgL_classz00_5492 == BgL_oclassz00_5508);
												if (BgL__ortest_1115z00_5509)
													{	/* SawBbv/bbv-range.scm 84 */
														BgL_res2515z00_5522 = BgL__ortest_1115z00_5509;
													}
												else
													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_odepthz00_5510;

														BgL_odepthz00_5510 =
															BGL_CLASS_DEPTH(BgL_oclassz00_5508);
														if ((1L < BgL_odepthz00_5510))
															{	/* SawBbv/bbv-range.scm 84 */
																obj_t BgL_arg1797z00_5512;

																BgL_arg1797z00_5512 =
																	BGL_CLASS_ANCESTORS_REF(BgL_oclassz00_5508,
																	1L);
																BgL_res2515z00_5522 =
																	(BgL_arg1797z00_5512 == BgL_classz00_5492);
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																BgL_res2515z00_5522 = ((bool_t) 0);
															}
													}
											}
										}
										BgL_test3026z00_8286 = BgL_res2515z00_5522;
									}
							}
						}
						if (BgL_test3026z00_8286)
							{	/* SawBbv/bbv-range.scm 242 */
								long BgL_arg1763z00_5523;

								{	/* SawBbv/bbv-range.scm 242 */
									obj_t BgL_arg1768z00_5524;

									BgL_arg1768z00_5524 =
										BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF(0L));
									BgL_arg1763z00_5523 = ((long) CINT(BgL_arg1768z00_5524) - 2L);
								}
								BgL_yuz00_2704 = BINT((1L << (int) (BgL_arg1763z00_5523)));
							}
						else
							{	/* SawBbv/bbv-range.scm 310 */
								BgL_yuz00_2704 =
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_96))->BgL_upz00);
							}
					}
					{	/* SawBbv/bbv-range.scm 850 */
						obj_t BgL_xlz00_2705;

						{	/* SawBbv/bbv-range.scm 294 */
							bool_t BgL_test3030z00_8314;

							{	/* SawBbv/bbv-range.scm 294 */
								obj_t BgL_arg1830z00_5529;

								BgL_arg1830z00_5529 =
									(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_95))->BgL_loz00);
								{	/* SawBbv/bbv-range.scm 84 */
									obj_t BgL_classz00_5531;

									BgL_classz00_5531 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
									if (BGL_OBJECTP(BgL_arg1830z00_5529))
										{	/* SawBbv/bbv-range.scm 84 */
											BgL_objectz00_bglt BgL_arg1801z00_5533;

											BgL_arg1801z00_5533 =
												(BgL_objectz00_bglt) (BgL_arg1830z00_5529);
											if (BGL_CONDEXPAND_ISA_ARCH64())
												{	/* SawBbv/bbv-range.scm 84 */
													long BgL_idxz00_5539;

													BgL_idxz00_5539 =
														BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5533);
													BgL_test3030z00_8314 =
														(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
															(BgL_idxz00_5539 + 1L)) == BgL_classz00_5531);
												}
											else
												{	/* SawBbv/bbv-range.scm 84 */
													bool_t BgL_res2516z00_5561;

													{	/* SawBbv/bbv-range.scm 84 */
														obj_t BgL_oclassz00_5547;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1808z00_5553;

															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_arg1809z00_5554;

																BgL_arg1809z00_5554 =
																	BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5533);
																BgL_arg1808z00_5553 =
																	(BgL_arg1809z00_5554 - OBJECT_TYPE);
															}
															BgL_oclassz00_5547 =
																VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
																BgL_arg1808z00_5553);
														}
														{	/* SawBbv/bbv-range.scm 84 */
															bool_t BgL__ortest_1115z00_5548;

															BgL__ortest_1115z00_5548 =
																(BgL_classz00_5531 == BgL_oclassz00_5547);
															if (BgL__ortest_1115z00_5548)
																{	/* SawBbv/bbv-range.scm 84 */
																	BgL_res2516z00_5561 =
																		BgL__ortest_1115z00_5548;
																}
															else
																{	/* SawBbv/bbv-range.scm 84 */
																	long BgL_odepthz00_5549;

																	BgL_odepthz00_5549 =
																		BGL_CLASS_DEPTH(BgL_oclassz00_5547);
																	if ((1L < BgL_odepthz00_5549))
																		{	/* SawBbv/bbv-range.scm 84 */
																			obj_t BgL_arg1797z00_5551;

																			BgL_arg1797z00_5551 =
																				BGL_CLASS_ANCESTORS_REF
																				(BgL_oclassz00_5547, 1L);
																			BgL_res2516z00_5561 =
																				(BgL_arg1797z00_5551 ==
																				BgL_classz00_5531);
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 84 */
																			BgL_res2516z00_5561 = ((bool_t) 0);
																		}
																}
														}
													}
													BgL_test3030z00_8314 = BgL_res2516z00_5561;
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 84 */
											BgL_test3030z00_8314 = ((bool_t) 0);
										}
								}
							}
							if (BgL_test3030z00_8314)
								{	/* SawBbv/bbv-range.scm 294 */
									BgL_xlz00_2705 =
										BINT(
										(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
													((BgL_bbvzd2vlenzd2_bglt)
														(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_95))->
															BgL_loz00))))->BgL_offsetz00));
								}
							else
								{	/* SawBbv/bbv-range.scm 294 */
									BgL_xlz00_2705 =
										(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_95))->
										BgL_loz00);
								}
						}
						{	/* SawBbv/bbv-range.scm 851 */
							obj_t BgL_xuz00_2706;

							{	/* SawBbv/bbv-range.scm 310 */
								bool_t BgL_test3035z00_8340;

								{	/* SawBbv/bbv-range.scm 84 */
									obj_t BgL_classz00_5566;

									BgL_classz00_5566 = BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
									{	/* SawBbv/bbv-range.scm 84 */
										BgL_objectz00_bglt BgL_arg1801z00_5568;

										{	/* SawBbv/bbv-range.scm 84 */
											obj_t BgL_tmpz00_8341;

											BgL_tmpz00_8341 = ((obj_t) BgL_xz00_95);
											BgL_arg1801z00_5568 =
												(BgL_objectz00_bglt) (BgL_tmpz00_8341);
										}
										if (BGL_CONDEXPAND_ISA_ARCH64())
											{	/* SawBbv/bbv-range.scm 84 */
												long BgL_idxz00_5574;

												BgL_idxz00_5574 =
													BGL_OBJECT_INHERITANCE_NUM(BgL_arg1801z00_5568);
												BgL_test3035z00_8340 =
													(VECTOR_REF(BGl_za2inheritancesza2z00zz__objectz00,
														(BgL_idxz00_5574 + 1L)) == BgL_classz00_5566);
											}
										else
											{	/* SawBbv/bbv-range.scm 84 */
												bool_t BgL_res2517z00_5596;

												{	/* SawBbv/bbv-range.scm 84 */
													obj_t BgL_oclassz00_5582;

													{	/* SawBbv/bbv-range.scm 84 */
														long BgL_arg1808z00_5588;

														{	/* SawBbv/bbv-range.scm 84 */
															long BgL_arg1809z00_5589;

															BgL_arg1809z00_5589 =
																BGL_OBJECT_CLASS_NUM(BgL_arg1801z00_5568);
															BgL_arg1808z00_5588 =
																(BgL_arg1809z00_5589 - OBJECT_TYPE);
														}
														BgL_oclassz00_5582 =
															VECTOR_REF(BGl_za2classesza2z00zz__objectz00,
															BgL_arg1808z00_5588);
													}
													{	/* SawBbv/bbv-range.scm 84 */
														bool_t BgL__ortest_1115z00_5583;

														BgL__ortest_1115z00_5583 =
															(BgL_classz00_5566 == BgL_oclassz00_5582);
														if (BgL__ortest_1115z00_5583)
															{	/* SawBbv/bbv-range.scm 84 */
																BgL_res2517z00_5596 = BgL__ortest_1115z00_5583;
															}
														else
															{	/* SawBbv/bbv-range.scm 84 */
																long BgL_odepthz00_5584;

																BgL_odepthz00_5584 =
																	BGL_CLASS_DEPTH(BgL_oclassz00_5582);
																if ((1L < BgL_odepthz00_5584))
																	{	/* SawBbv/bbv-range.scm 84 */
																		obj_t BgL_arg1797z00_5586;

																		BgL_arg1797z00_5586 =
																			BGL_CLASS_ANCESTORS_REF
																			(BgL_oclassz00_5582, 1L);
																		BgL_res2517z00_5596 =
																			(BgL_arg1797z00_5586 ==
																			BgL_classz00_5566);
																	}
																else
																	{	/* SawBbv/bbv-range.scm 84 */
																		BgL_res2517z00_5596 = ((bool_t) 0);
																	}
															}
													}
												}
												BgL_test3035z00_8340 = BgL_res2517z00_5596;
											}
									}
								}
								if (BgL_test3035z00_8340)
									{	/* SawBbv/bbv-range.scm 242 */
										long BgL_arg1763z00_5597;

										{	/* SawBbv/bbv-range.scm 242 */
											obj_t BgL_arg1768z00_5598;

											BgL_arg1768z00_5598 =
												BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF
												(0L));
											BgL_arg1763z00_5597 =
												((long) CINT(BgL_arg1768z00_5598) - 2L);
										}
										BgL_xuz00_2706 = BINT((1L << (int) (BgL_arg1763z00_5597)));
									}
								else
									{	/* SawBbv/bbv-range.scm 310 */
										BgL_xuz00_2706 =
											(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_95))->
											BgL_upz00);
									}
							}
							{	/* SawBbv/bbv-range.scm 852 */
								obj_t BgL_v0z00_2707;

								{	/* SawBbv/bbv-range.scm 853 */
									bool_t BgL_test3039z00_8368;

									if (INTEGERP(BgL_xlz00_2705))
										{	/* SawBbv/bbv-range.scm 853 */
											BgL_test3039z00_8368 = INTEGERP(BgL_ylz00_2703);
										}
									else
										{	/* SawBbv/bbv-range.scm 853 */
											BgL_test3039z00_8368 = ((bool_t) 0);
										}
									if (BgL_test3039z00_8368)
										{	/* SawBbv/bbv-range.scm 853 */
											obj_t BgL_tmpz00_5603;

											BgL_tmpz00_5603 = BINT(0L);
											{	/* SawBbv/bbv-range.scm 853 */
												bool_t BgL_test3041z00_8373;

												{	/* SawBbv/bbv-range.scm 853 */
													long BgL_tmpz00_8374;

													BgL_tmpz00_8374 = (long) CINT(BgL_ylz00_2703);
													BgL_test3041z00_8373 =
														BGL_MULFX_OV(BgL_xlz00_2705, BgL_tmpz00_8374,
														BgL_tmpz00_5603);
												}
												if (BgL_test3041z00_8373)
													{	/* SawBbv/bbv-range.scm 853 */
														BgL_v0z00_2707 =
															bgl_bignum_mul(bgl_long_to_bignum(
																(long) CINT(BgL_xlz00_2705)),
															bgl_long_to_bignum((long) CINT(BgL_ylz00_2703)));
													}
												else
													{	/* SawBbv/bbv-range.scm 853 */
														BgL_v0z00_2707 = BgL_tmpz00_5603;
													}
											}
										}
									else
										{	/* SawBbv/bbv-range.scm 853 */
											BgL_v0z00_2707 =
												BGl_2za2za2zz__r4_numbers_6_5z00(BgL_xlz00_2705,
												BgL_ylz00_2703);
										}
								}
								{	/* SawBbv/bbv-range.scm 853 */
									obj_t BgL_v1z00_2708;

									{	/* SawBbv/bbv-range.scm 854 */
										bool_t BgL_test3042z00_8383;

										if (INTEGERP(BgL_xlz00_2705))
											{	/* SawBbv/bbv-range.scm 854 */
												BgL_test3042z00_8383 = INTEGERP(BgL_yuz00_2704);
											}
										else
											{	/* SawBbv/bbv-range.scm 854 */
												BgL_test3042z00_8383 = ((bool_t) 0);
											}
										if (BgL_test3042z00_8383)
											{	/* SawBbv/bbv-range.scm 854 */
												obj_t BgL_tmpz00_5613;

												BgL_tmpz00_5613 = BINT(0L);
												{	/* SawBbv/bbv-range.scm 854 */
													bool_t BgL_test3044z00_8388;

													{	/* SawBbv/bbv-range.scm 854 */
														long BgL_tmpz00_8389;

														BgL_tmpz00_8389 = (long) CINT(BgL_yuz00_2704);
														BgL_test3044z00_8388 =
															BGL_MULFX_OV(BgL_xlz00_2705, BgL_tmpz00_8389,
															BgL_tmpz00_5613);
													}
													if (BgL_test3044z00_8388)
														{	/* SawBbv/bbv-range.scm 854 */
															BgL_v1z00_2708 =
																bgl_bignum_mul(bgl_long_to_bignum(
																	(long) CINT(BgL_xlz00_2705)),
																bgl_long_to_bignum(
																	(long) CINT(BgL_yuz00_2704)));
														}
													else
														{	/* SawBbv/bbv-range.scm 854 */
															BgL_v1z00_2708 = BgL_tmpz00_5613;
														}
												}
											}
										else
											{	/* SawBbv/bbv-range.scm 854 */
												BgL_v1z00_2708 =
													BGl_2za2za2zz__r4_numbers_6_5z00(BgL_xlz00_2705,
													BgL_yuz00_2704);
											}
									}
									{	/* SawBbv/bbv-range.scm 854 */
										obj_t BgL_v2z00_2709;

										{	/* SawBbv/bbv-range.scm 855 */
											bool_t BgL_test3045z00_8398;

											if (INTEGERP(BgL_xuz00_2706))
												{	/* SawBbv/bbv-range.scm 855 */
													BgL_test3045z00_8398 = INTEGERP(BgL_yuz00_2704);
												}
											else
												{	/* SawBbv/bbv-range.scm 855 */
													BgL_test3045z00_8398 = ((bool_t) 0);
												}
											if (BgL_test3045z00_8398)
												{	/* SawBbv/bbv-range.scm 855 */
													obj_t BgL_tmpz00_5623;

													BgL_tmpz00_5623 = BINT(0L);
													{	/* SawBbv/bbv-range.scm 855 */
														bool_t BgL_test3047z00_8403;

														{	/* SawBbv/bbv-range.scm 855 */
															long BgL_tmpz00_8404;

															BgL_tmpz00_8404 = (long) CINT(BgL_yuz00_2704);
															BgL_test3047z00_8403 =
																BGL_MULFX_OV(BgL_xuz00_2706, BgL_tmpz00_8404,
																BgL_tmpz00_5623);
														}
														if (BgL_test3047z00_8403)
															{	/* SawBbv/bbv-range.scm 855 */
																BgL_v2z00_2709 =
																	bgl_bignum_mul(bgl_long_to_bignum(
																		(long) CINT(BgL_xuz00_2706)),
																	bgl_long_to_bignum(
																		(long) CINT(BgL_yuz00_2704)));
															}
														else
															{	/* SawBbv/bbv-range.scm 855 */
																BgL_v2z00_2709 = BgL_tmpz00_5623;
															}
													}
												}
											else
												{	/* SawBbv/bbv-range.scm 855 */
													BgL_v2z00_2709 =
														BGl_2za2za2zz__r4_numbers_6_5z00(BgL_xuz00_2706,
														BgL_yuz00_2704);
												}
										}
										{	/* SawBbv/bbv-range.scm 855 */
											obj_t BgL_v3z00_2710;

											{	/* SawBbv/bbv-range.scm 856 */
												bool_t BgL_test3048z00_8413;

												if (INTEGERP(BgL_yuz00_2704))
													{	/* SawBbv/bbv-range.scm 856 */
														BgL_test3048z00_8413 = INTEGERP(BgL_ylz00_2703);
													}
												else
													{	/* SawBbv/bbv-range.scm 856 */
														BgL_test3048z00_8413 = ((bool_t) 0);
													}
												if (BgL_test3048z00_8413)
													{	/* SawBbv/bbv-range.scm 856 */
														obj_t BgL_tmpz00_5633;

														BgL_tmpz00_5633 = BINT(0L);
														{	/* SawBbv/bbv-range.scm 856 */
															bool_t BgL_test3050z00_8418;

															{	/* SawBbv/bbv-range.scm 856 */
																long BgL_tmpz00_8419;

																BgL_tmpz00_8419 = (long) CINT(BgL_ylz00_2703);
																BgL_test3050z00_8418 =
																	BGL_MULFX_OV(BgL_yuz00_2704, BgL_tmpz00_8419,
																	BgL_tmpz00_5633);
															}
															if (BgL_test3050z00_8418)
																{	/* SawBbv/bbv-range.scm 856 */
																	BgL_v3z00_2710 =
																		bgl_bignum_mul(bgl_long_to_bignum(
																			(long) CINT(BgL_yuz00_2704)),
																		bgl_long_to_bignum(
																			(long) CINT(BgL_ylz00_2703)));
																}
															else
																{	/* SawBbv/bbv-range.scm 856 */
																	BgL_v3z00_2710 = BgL_tmpz00_5633;
																}
														}
													}
												else
													{	/* SawBbv/bbv-range.scm 856 */
														BgL_v3z00_2710 =
															BGl_2za2za2zz__r4_numbers_6_5z00(BgL_yuz00_2704,
															BgL_ylz00_2703);
													}
											}
											{	/* SawBbv/bbv-range.scm 856 */
												obj_t BgL_mi0z00_2711;

												BgL_mi0z00_2711 =
													BGl_2minz00zz__r4_numbers_6_5z00(BgL_v0z00_2707,
													BgL_v1z00_2708);
												{	/* SawBbv/bbv-range.scm 857 */
													obj_t BgL_mi1z00_2712;

													BgL_mi1z00_2712 =
														BGl_2minz00zz__r4_numbers_6_5z00(BgL_v2z00_2709,
														BgL_v3z00_2710);
													{	/* SawBbv/bbv-range.scm 858 */
														obj_t BgL_ma0z00_2713;

														BgL_ma0z00_2713 =
															BGl_2maxz00zz__r4_numbers_6_5z00(BgL_v0z00_2707,
															BgL_v1z00_2708);
														{	/* SawBbv/bbv-range.scm 859 */
															obj_t BgL_ma1z00_2714;

															BgL_ma1z00_2714 =
																BGl_2maxz00zz__r4_numbers_6_5z00(BgL_v2z00_2709,
																BgL_v3z00_2710);
															{	/* SawBbv/bbv-range.scm 860 */

																{	/* SawBbv/bbv-range.scm 861 */
																	BgL_bbvzd2rangezd2_bglt BgL_new1287z00_2715;

																	{	/* SawBbv/bbv-range.scm 862 */
																		BgL_bbvzd2rangezd2_bglt BgL_new1286z00_2724;

																		BgL_new1286z00_2724 =
																			((BgL_bbvzd2rangezd2_bglt)
																			BOBJECT(GC_MALLOC(sizeof(struct
																						BgL_bbvzd2rangezd2_bgl))));
																		{	/* SawBbv/bbv-range.scm 862 */
																			long BgL_arg2212z00_2725;

																			BgL_arg2212z00_2725 =
																				BGL_CLASS_NUM
																				(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
																			BGL_OBJECT_CLASS_NUM_SET((
																					(BgL_objectz00_bglt)
																					BgL_new1286z00_2724),
																				BgL_arg2212z00_2725);
																		}
																		BgL_new1287z00_2715 = BgL_new1286z00_2724;
																	}
																	((((BgL_bbvzd2rangezd2_bglt)
																				COBJECT(BgL_new1287z00_2715))->
																			BgL_loz00) =
																		((obj_t)
																			BGl_2minz00zz__r4_numbers_6_5z00
																			(BgL_mi0z00_2711,
																				BGl_2minz00zz__r4_numbers_6_5z00
																				(BgL_mi1z00_2712,
																					BGl_2minz00zz__r4_numbers_6_5z00
																					(BgL_xlz00_2705, BgL_ylz00_2703)))),
																		BUNSPEC);
																	((((BgL_bbvzd2rangezd2_bglt)
																				COBJECT(BgL_new1287z00_2715))->
																			BgL_upz00) =
																		((obj_t)
																			BGl_2maxz00zz__r4_numbers_6_5z00
																			(BgL_ma0z00_2713,
																				BGl_2maxz00zz__r4_numbers_6_5z00
																				(BgL_ma1z00_2714,
																					BGl_2maxz00zz__r4_numbers_6_5z00
																					(BgL_xuz00_2706, BgL_yuz00_2704)))),
																		BUNSPEC);
																	return BgL_new1287z00_2715;
																}
															}
														}
													}
												}
											}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* &bbv-range-mul */
	BgL_bbvzd2rangezd2_bglt BGl_z62bbvzd2rangezd2mulz62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5878, obj_t BgL_xz00_5879, obj_t BgL_yz00_5880)
	{
		{	/* SawBbv/bbv-range.scm 848 */
			return
				BGl_bbvzd2rangezd2mulz00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5879),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5880));
		}

	}



/* bbv-range-intersection */
	BGL_EXPORTED_DEF BgL_bbvzd2rangezd2_bglt
		BGl_bbvzd2rangezd2intersectionz00zzsaw_bbvzd2rangezd2
		(BgL_bbvzd2rangezd2_bglt BgL_xz00_97, BgL_bbvzd2rangezd2_bglt BgL_yz00_98)
	{
		{	/* SawBbv/bbv-range.scm 868 */
			{	/* SawBbv/bbv-range.scm 870 */
				BgL_bbvzd2rangezd2_bglt BgL_resz00_2738;

				{	/* SawBbv/bbv-range.scm 870 */
					BgL_bbvzd2rangezd2_bglt BgL_new1289z00_2739;

					{	/* SawBbv/bbv-range.scm 871 */
						BgL_bbvzd2rangezd2_bglt BgL_new1288z00_2750;

						BgL_new1288z00_2750 =
							((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_bbvzd2rangezd2_bgl))));
						{	/* SawBbv/bbv-range.scm 871 */
							long BgL_arg2221z00_2751;

							BgL_arg2221z00_2751 =
								BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1288z00_2750),
								BgL_arg2221z00_2751);
						}
						BgL_new1289z00_2739 = BgL_new1288z00_2750;
					}
					{
						obj_t BgL_auxz00_8451;

						{	/* SawBbv/bbv-range.scm 871 */
							obj_t BgL_arg2217z00_2740;
							obj_t BgL_arg2218z00_2741;

							BgL_arg2217z00_2740 =
								(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_97))->BgL_loz00);
							BgL_arg2218z00_2741 =
								(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_98))->BgL_loz00);
							{	/* SawBbv/bbv-range.scm 46 */

								BgL_auxz00_8451 =
									BGl_maxrvz00zzsaw_bbvzd2rangezd2(BgL_arg2217z00_2740,
									BgL_arg2218z00_2741, BUNSPEC);
						}}
						((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1289z00_2739))->
								BgL_loz00) = ((obj_t) BgL_auxz00_8451), BUNSPEC);
					}
					{
						obj_t BgL_auxz00_8456;

						{	/* SawBbv/bbv-range.scm 872 */
							obj_t BgL_arg2219z00_2745;
							obj_t BgL_arg2220z00_2746;

							BgL_arg2219z00_2745 =
								(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_xz00_97))->BgL_upz00);
							BgL_arg2220z00_2746 =
								(((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_yz00_98))->BgL_upz00);
							{	/* SawBbv/bbv-range.scm 45 */

								BgL_auxz00_8456 =
									BGl_minrvz00zzsaw_bbvzd2rangezd2(BgL_arg2219z00_2745,
									BgL_arg2220z00_2746, BUNSPEC);
						}}
						((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1289z00_2739))->
								BgL_upz00) = ((obj_t) BgL_auxz00_8456), BUNSPEC);
					}
					BgL_resz00_2738 = BgL_new1289z00_2739;
				}
				return BgL_resz00_2738;
			}
		}

	}



/* &bbv-range-intersection */
	BgL_bbvzd2rangezd2_bglt
		BGl_z62bbvzd2rangezd2intersectionz62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5881, obj_t BgL_xz00_5882, obj_t BgL_yz00_5883)
	{
		{	/* SawBbv/bbv-range.scm 868 */
			return
				BGl_bbvzd2rangezd2intersectionz00zzsaw_bbvzd2rangezd2(
				((BgL_bbvzd2rangezd2_bglt) BgL_xz00_5882),
				((BgL_bbvzd2rangezd2_bglt) BgL_yz00_5883));
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 15 */
			{	/* SawBbv/bbv-range.scm 30 */
				obj_t BgL_arg2225z00_2755;
				obj_t BgL_arg2226z00_2756;

				{	/* SawBbv/bbv-range.scm 30 */
					obj_t BgL_v1524z00_2768;

					BgL_v1524z00_2768 = create_vector(2L);
					{	/* SawBbv/bbv-range.scm 30 */
						obj_t BgL_arg2232z00_2769;

						BgL_arg2232z00_2769 =
							BGl_makezd2classzd2fieldz00zz__objectz00(CNST_TABLE_REF(2L),
							BGl_proc2531z00zzsaw_bbvzd2rangezd2,
							BGl_proc2530z00zzsaw_bbvzd2rangezd2, ((bool_t) 1), ((bool_t) 0),
							BFALSE, BFALSE, CNST_TABLE_REF(3L));
						VECTOR_SET(BgL_v1524z00_2768, 0L, BgL_arg2232z00_2769);
					}
					{	/* SawBbv/bbv-range.scm 30 */
						obj_t BgL_arg2237z00_2779;

						BgL_arg2237z00_2779 =
							BGl_makezd2classzd2fieldz00zz__objectz00(CNST_TABLE_REF(4L),
							BGl_proc2533z00zzsaw_bbvzd2rangezd2,
							BGl_proc2532z00zzsaw_bbvzd2rangezd2, ((bool_t) 1), ((bool_t) 0),
							BFALSE, BFALSE, CNST_TABLE_REF(3L));
						VECTOR_SET(BgL_v1524z00_2768, 1L, BgL_arg2237z00_2779);
					}
					BgL_arg2225z00_2755 = BgL_v1524z00_2768;
				}
				{	/* SawBbv/bbv-range.scm 30 */
					obj_t BgL_v1525z00_2789;

					BgL_v1525z00_2789 = create_vector(0L);
					BgL_arg2226z00_2756 = BgL_v1525z00_2789;
				}
				BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2 =
					BGl_registerzd2classz12zc0zz__objectz00(CNST_TABLE_REF(5L),
					CNST_TABLE_REF(6L), BGl_objectz00zz__objectz00, 13605L,
					BGl_proc2536z00zzsaw_bbvzd2rangezd2,
					BGl_proc2535z00zzsaw_bbvzd2rangezd2, BFALSE,
					BGl_proc2534z00zzsaw_bbvzd2rangezd2, BFALSE, BgL_arg2225z00_2755,
					BgL_arg2226z00_2756);
			}
			{	/* SawBbv/bbv-range.scm 34 */
				obj_t BgL_arg2245z00_2796;
				obj_t BgL_arg2246z00_2797;

				{	/* SawBbv/bbv-range.scm 34 */
					obj_t BgL_v1526z00_2809;

					BgL_v1526z00_2809 = create_vector(2L);
					{	/* SawBbv/bbv-range.scm 34 */
						obj_t BgL_arg2252z00_2810;

						BgL_arg2252z00_2810 =
							BGl_makezd2classzd2fieldz00zz__objectz00(CNST_TABLE_REF(7L),
							BGl_proc2538z00zzsaw_bbvzd2rangezd2,
							BGl_proc2537z00zzsaw_bbvzd2rangezd2, ((bool_t) 1), ((bool_t) 0),
							BFALSE, BFALSE, CNST_TABLE_REF(3L));
						VECTOR_SET(BgL_v1526z00_2809, 0L, BgL_arg2252z00_2810);
					}
					{	/* SawBbv/bbv-range.scm 34 */
						obj_t BgL_arg2257z00_2820;

						BgL_arg2257z00_2820 =
							BGl_makezd2classzd2fieldz00zz__objectz00(CNST_TABLE_REF(8L),
							BGl_proc2540z00zzsaw_bbvzd2rangezd2,
							BGl_proc2539z00zzsaw_bbvzd2rangezd2, ((bool_t) 1), ((bool_t) 0),
							BFALSE, BFALSE, CNST_TABLE_REF(9L));
						VECTOR_SET(BgL_v1526z00_2809, 1L, BgL_arg2257z00_2820);
					}
					BgL_arg2245z00_2796 = BgL_v1526z00_2809;
				}
				{	/* SawBbv/bbv-range.scm 34 */
					obj_t BgL_v1527z00_2830;

					BgL_v1527z00_2830 = create_vector(0L);
					BgL_arg2246z00_2797 = BgL_v1527z00_2830;
				}
				return (BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2 =
					BGl_registerzd2classz12zc0zz__objectz00(CNST_TABLE_REF(10L),
						CNST_TABLE_REF(6L), BGl_objectz00zz__objectz00, 11775L,
						BGl_proc2543z00zzsaw_bbvzd2rangezd2,
						BGl_proc2542z00zzsaw_bbvzd2rangezd2, BFALSE,
						BGl_proc2541z00zzsaw_bbvzd2rangezd2, BFALSE, BgL_arg2245z00_2796,
						BgL_arg2246z00_2797), BUNSPEC);
			}
		}

	}



/* &<@anonymous:2251> */
	obj_t BGl_z62zc3z04anonymousza32251ze3ze5zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5898, obj_t BgL_new1165z00_5899)
	{
		{	/* SawBbv/bbv-range.scm 34 */
			{
				BgL_bbvzd2vlenzd2_bglt BgL_auxz00_8490;

				((((BgL_bbvzd2vlenzd2_bglt) COBJECT(
								((BgL_bbvzd2vlenzd2_bglt) BgL_new1165z00_5899)))->BgL_vecz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_bbvzd2vlenzd2_bglt) COBJECT(((BgL_bbvzd2vlenzd2_bglt)
									BgL_new1165z00_5899)))->BgL_offsetz00) =
					((int) (int) (0L)), BUNSPEC);
				BgL_auxz00_8490 = ((BgL_bbvzd2vlenzd2_bglt) BgL_new1165z00_5899);
				return ((obj_t) BgL_auxz00_8490);
			}
		}

	}



/* &lambda2249 */
	BgL_bbvzd2vlenzd2_bglt BGl_z62lambda2249z62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5900)
	{
		{	/* SawBbv/bbv-range.scm 34 */
			{	/* SawBbv/bbv-range.scm 34 */
				BgL_bbvzd2vlenzd2_bglt BgL_new1164z00_5993;

				BgL_new1164z00_5993 =
					((BgL_bbvzd2vlenzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_bbvzd2vlenzd2_bgl))));
				{	/* SawBbv/bbv-range.scm 34 */
					long BgL_arg2250z00_5994;

					BgL_arg2250z00_5994 =
						BGL_CLASS_NUM(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1164z00_5993), BgL_arg2250z00_5994);
				}
				return BgL_new1164z00_5993;
			}
		}

	}



/* &lambda2247 */
	BgL_bbvzd2vlenzd2_bglt BGl_z62lambda2247z62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5901, obj_t BgL_vec1162z00_5902, obj_t BgL_offset1163z00_5903)
	{
		{	/* SawBbv/bbv-range.scm 34 */
			{	/* SawBbv/bbv-range.scm 34 */
				int BgL_offset1163z00_5995;

				BgL_offset1163z00_5995 = CINT(BgL_offset1163z00_5903);
				{	/* SawBbv/bbv-range.scm 34 */
					BgL_bbvzd2vlenzd2_bglt BgL_new1294z00_5996;

					{	/* SawBbv/bbv-range.scm 34 */
						BgL_bbvzd2vlenzd2_bglt BgL_new1293z00_5997;

						BgL_new1293z00_5997 =
							((BgL_bbvzd2vlenzd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
										BgL_bbvzd2vlenzd2_bgl))));
						{	/* SawBbv/bbv-range.scm 34 */
							long BgL_arg2248z00_5998;

							BgL_arg2248z00_5998 =
								BGL_CLASS_NUM(BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2);
							BGL_OBJECT_CLASS_NUM_SET(
								((BgL_objectz00_bglt) BgL_new1293z00_5997),
								BgL_arg2248z00_5998);
						}
						BgL_new1294z00_5996 = BgL_new1293z00_5997;
					}
					((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1294z00_5996))->
							BgL_vecz00) = ((obj_t) BgL_vec1162z00_5902), BUNSPEC);
					((((BgL_bbvzd2vlenzd2_bglt) COBJECT(BgL_new1294z00_5996))->
							BgL_offsetz00) = ((int) BgL_offset1163z00_5995), BUNSPEC);
					return BgL_new1294z00_5996;
				}
			}
		}

	}



/* &lambda2261 */
	obj_t BGl_z62lambda2261z62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5904,
		obj_t BgL_oz00_5905, obj_t BgL_vz00_5906)
	{
		{	/* SawBbv/bbv-range.scm 34 */
			{	/* SawBbv/bbv-range.scm 34 */
				int BgL_vz00_6000;

				BgL_vz00_6000 = CINT(BgL_vz00_5906);
				return
					((((BgL_bbvzd2vlenzd2_bglt) COBJECT(
								((BgL_bbvzd2vlenzd2_bglt) BgL_oz00_5905)))->BgL_offsetz00) =
					((int) BgL_vz00_6000), BUNSPEC);
		}}

	}



/* &lambda2260 */
	obj_t BGl_z62lambda2260z62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5907,
		obj_t BgL_oz00_5908)
	{
		{	/* SawBbv/bbv-range.scm 34 */
			return
				BINT(
				(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
							((BgL_bbvzd2vlenzd2_bglt) BgL_oz00_5908)))->BgL_offsetz00));
		}

	}



/* &lambda2256 */
	obj_t BGl_z62lambda2256z62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5909,
		obj_t BgL_oz00_5910, obj_t BgL_vz00_5911)
	{
		{	/* SawBbv/bbv-range.scm 34 */
			return
				((((BgL_bbvzd2vlenzd2_bglt) COBJECT(
							((BgL_bbvzd2vlenzd2_bglt) BgL_oz00_5910)))->BgL_vecz00) =
				((obj_t) BgL_vz00_5911), BUNSPEC);
		}

	}



/* &lambda2255 */
	obj_t BGl_z62lambda2255z62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5912,
		obj_t BgL_oz00_5913)
	{
		{	/* SawBbv/bbv-range.scm 34 */
			return
				(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
						((BgL_bbvzd2vlenzd2_bglt) BgL_oz00_5913)))->BgL_vecz00);
		}

	}



/* &<@anonymous:2231> */
	obj_t BGl_z62zc3z04anonymousza32231ze3ze5zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5914, obj_t BgL_new1160z00_5915)
	{
		{	/* SawBbv/bbv-range.scm 30 */
			{
				BgL_bbvzd2rangezd2_bglt BgL_auxz00_8519;

				((((BgL_bbvzd2rangezd2_bglt) COBJECT(
								((BgL_bbvzd2rangezd2_bglt) BgL_new1160z00_5915)))->BgL_loz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				((((BgL_bbvzd2rangezd2_bglt) COBJECT(((BgL_bbvzd2rangezd2_bglt)
									BgL_new1160z00_5915)))->BgL_upz00) =
					((obj_t) BUNSPEC), BUNSPEC);
				BgL_auxz00_8519 = ((BgL_bbvzd2rangezd2_bglt) BgL_new1160z00_5915);
				return ((obj_t) BgL_auxz00_8519);
			}
		}

	}



/* &lambda2229 */
	BgL_bbvzd2rangezd2_bglt BGl_z62lambda2229z62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5916)
	{
		{	/* SawBbv/bbv-range.scm 30 */
			{	/* SawBbv/bbv-range.scm 30 */
				BgL_bbvzd2rangezd2_bglt BgL_new1159z00_6005;

				BgL_new1159z00_6005 =
					((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
								BgL_bbvzd2rangezd2_bgl))));
				{	/* SawBbv/bbv-range.scm 30 */
					long BgL_arg2230z00_6006;

					BgL_arg2230z00_6006 =
						BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
					BGL_OBJECT_CLASS_NUM_SET(
						((BgL_objectz00_bglt) BgL_new1159z00_6005), BgL_arg2230z00_6006);
				}
				return BgL_new1159z00_6005;
			}
		}

	}



/* &lambda2227 */
	BgL_bbvzd2rangezd2_bglt BGl_z62lambda2227z62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5917, obj_t BgL_lo1157z00_5918, obj_t BgL_up1158z00_5919)
	{
		{	/* SawBbv/bbv-range.scm 30 */
			{	/* SawBbv/bbv-range.scm 30 */
				BgL_bbvzd2rangezd2_bglt BgL_new1292z00_6007;

				{	/* SawBbv/bbv-range.scm 30 */
					BgL_bbvzd2rangezd2_bglt BgL_new1290z00_6008;

					BgL_new1290z00_6008 =
						((BgL_bbvzd2rangezd2_bglt) BOBJECT(GC_MALLOC(sizeof(struct
									BgL_bbvzd2rangezd2_bgl))));
					{	/* SawBbv/bbv-range.scm 30 */
						long BgL_arg2228z00_6009;

						BgL_arg2228z00_6009 =
							BGL_CLASS_NUM(BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2);
						BGL_OBJECT_CLASS_NUM_SET(
							((BgL_objectz00_bglt) BgL_new1290z00_6008), BgL_arg2228z00_6009);
					}
					BgL_new1292z00_6007 = BgL_new1290z00_6008;
				}
				((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1292z00_6007))->BgL_loz00) =
					((obj_t) BgL_lo1157z00_5918), BUNSPEC);
				((((BgL_bbvzd2rangezd2_bglt) COBJECT(BgL_new1292z00_6007))->BgL_upz00) =
					((obj_t) BgL_up1158z00_5919), BUNSPEC);
				return BgL_new1292z00_6007;
			}
		}

	}



/* &lambda2241 */
	obj_t BGl_z62lambda2241z62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5920,
		obj_t BgL_oz00_5921, obj_t BgL_vz00_5922)
	{
		{	/* SawBbv/bbv-range.scm 30 */
			return
				((((BgL_bbvzd2rangezd2_bglt) COBJECT(
							((BgL_bbvzd2rangezd2_bglt) BgL_oz00_5921)))->BgL_upz00) =
				((obj_t) BgL_vz00_5922), BUNSPEC);
		}

	}



/* &lambda2240 */
	obj_t BGl_z62lambda2240z62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5923,
		obj_t BgL_oz00_5924)
	{
		{	/* SawBbv/bbv-range.scm 30 */
			return
				(((BgL_bbvzd2rangezd2_bglt) COBJECT(
						((BgL_bbvzd2rangezd2_bglt) BgL_oz00_5924)))->BgL_upz00);
		}

	}



/* &lambda2236 */
	obj_t BGl_z62lambda2236z62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5925,
		obj_t BgL_oz00_5926, obj_t BgL_vz00_5927)
	{
		{	/* SawBbv/bbv-range.scm 30 */
			return
				((((BgL_bbvzd2rangezd2_bglt) COBJECT(
							((BgL_bbvzd2rangezd2_bglt) BgL_oz00_5926)))->BgL_loz00) =
				((obj_t) BgL_vz00_5927), BUNSPEC);
		}

	}



/* &lambda2235 */
	obj_t BGl_z62lambda2235z62zzsaw_bbvzd2rangezd2(obj_t BgL_envz00_5928,
		obj_t BgL_oz00_5929)
	{
		{	/* SawBbv/bbv-range.scm 30 */
			return
				(((BgL_bbvzd2rangezd2_bglt) COBJECT(
						((BgL_bbvzd2rangezd2_bglt) BgL_oz00_5929)))->BgL_loz00);
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 15 */
			BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_objectzd2printzd2envz00zz__objectz00,
				BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2,
				BGl_proc2544z00zzsaw_bbvzd2rangezd2,
				BGl_string2545z00zzsaw_bbvzd2rangezd2);
			return
				BGl_genericzd2addzd2methodz12z12zz__objectz00
				(BGl_shapezd2envzd2zztools_shapez00,
				BGl_bbvzd2rangezd2zzsaw_bbvzd2rangezd2,
				BGl_proc2546z00zzsaw_bbvzd2rangezd2,
				BGl_string2547z00zzsaw_bbvzd2rangezd2);
		}

	}



/* &shape-bbv-range1551 */
	obj_t BGl_z62shapezd2bbvzd2range1551z62zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5932, obj_t BgL_ez00_5933)
	{
		{	/* SawBbv/bbv-range.scm 317 */
			if (BGl_emptyzd2rangezf3z21zzsaw_bbvzd2rangezd2(
					((BgL_bbvzd2rangezd2_bglt) BgL_ez00_5933)))
				{	/* SawBbv/bbv-range.scm 341 */
					return BGl_string2548z00zzsaw_bbvzd2rangezd2;
				}
			else
				{	/* SawBbv/bbv-range.scm 344 */
					obj_t BgL_arg2268z00_6015;
					obj_t BgL_arg2269z00_6016;

					BgL_arg2268z00_6015 =
						BGl_strze70ze7zzsaw_bbvzd2rangezd2(
						(((BgL_bbvzd2rangezd2_bglt) COBJECT(
									((BgL_bbvzd2rangezd2_bglt) BgL_ez00_5933)))->BgL_loz00));
					BgL_arg2269z00_6016 =
						BGl_strze70ze7zzsaw_bbvzd2rangezd2(
						(((BgL_bbvzd2rangezd2_bglt) COBJECT(
									((BgL_bbvzd2rangezd2_bglt) BgL_ez00_5933)))->BgL_upz00));
					{	/* SawBbv/bbv-range.scm 344 */
						obj_t BgL_list2270z00_6017;

						{	/* SawBbv/bbv-range.scm 344 */
							obj_t BgL_arg2271z00_6018;

							BgL_arg2271z00_6018 = MAKE_YOUNG_PAIR(BgL_arg2269z00_6016, BNIL);
							BgL_list2270z00_6017 =
								MAKE_YOUNG_PAIR(BgL_arg2268z00_6015, BgL_arg2271z00_6018);
						}
						return
							BGl_formatz00zz__r4_output_6_10_3z00
							(BGl_string2549z00zzsaw_bbvzd2rangezd2, BgL_list2270z00_6017);
					}
				}
		}

	}



/* str~0 */
	obj_t BGl_strze70ze7zzsaw_bbvzd2rangezd2(obj_t BgL_nz00_2866)
	{
		{	/* SawBbv/bbv-range.scm 339 */
			{
				obj_t BgL_nz00_2859;

				{	/* SawBbv/bbv-range.scm 326 */
					bool_t BgL_test3052z00_8558;

					{	/* SawBbv/bbv-range.scm 326 */
						long BgL_arg2330z00_2917;

						{	/* SawBbv/bbv-range.scm 242 */
							long BgL_arg1763z00_5675;

							{	/* SawBbv/bbv-range.scm 242 */
								obj_t BgL_arg1768z00_5676;

								BgL_arg1768z00_5676 =
									BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF(0L));
								BgL_arg1763z00_5675 = ((long) CINT(BgL_arg1768z00_5676) - 2L);
							}
							BgL_arg2330z00_2917 = (1L << (int) (BgL_arg1763z00_5675));
						}
						BgL_test3052z00_8558 = (BgL_nz00_2866 == BINT(BgL_arg2330z00_2917));
					}
					if (BgL_test3052z00_8558)
						{	/* SawBbv/bbv-range.scm 326 */
							return BGl_string2551z00zzsaw_bbvzd2rangezd2;
						}
					else
						{	/* SawBbv/bbv-range.scm 327 */
							bool_t BgL_test3053z00_8567;

							{	/* SawBbv/bbv-range.scm 327 */
								long BgL_arg2328z00_2915;

								{	/* SawBbv/bbv-range.scm 327 */
									long BgL_arg2329z00_2916;

									{	/* SawBbv/bbv-range.scm 242 */
										long BgL_arg1763z00_5679;

										{	/* SawBbv/bbv-range.scm 242 */
											obj_t BgL_arg1768z00_5680;

											BgL_arg1768z00_5680 =
												BGl_bigloozd2configzd2zz__configurez00(CNST_TABLE_REF
												(0L));
											BgL_arg1763z00_5679 =
												((long) CINT(BgL_arg1768z00_5680) - 2L);
										}
										BgL_arg2329z00_2916 = (1L << (int) (BgL_arg1763z00_5679));
									}
									BgL_arg2328z00_2915 = (BgL_arg2329z00_2916 - 1L);
								}
								BgL_test3053z00_8567 =
									(BgL_nz00_2866 == BINT(BgL_arg2328z00_2915));
							}
							if (BgL_test3053z00_8567)
								{	/* SawBbv/bbv-range.scm 327 */
									return BGl_string2552z00zzsaw_bbvzd2rangezd2;
								}
							else
								{	/* SawBbv/bbv-range.scm 328 */
									bool_t BgL_test3054z00_8577;

									if (INTEGERP(BgL_nz00_2866))
										{	/* SawBbv/bbv-range.scm 328 */
											if (((long) CINT(BgL_nz00_2866) > 0L))
												{	/* SawBbv/bbv-range.scm 328 */
													long BgL_arg2326z00_2913;

													{	/* SawBbv/bbv-range.scm 328 */
														long BgL_arg2327z00_2914;

														{	/* SawBbv/bbv-range.scm 242 */
															long BgL_arg1763z00_5685;

															{	/* SawBbv/bbv-range.scm 242 */
																obj_t BgL_arg1768z00_5686;

																BgL_arg1768z00_5686 =
																	BGl_bigloozd2configzd2zz__configurez00
																	(CNST_TABLE_REF(0L));
																BgL_arg1763z00_5685 =
																	((long) CINT(BgL_arg1768z00_5686) - 2L);
															}
															BgL_arg2327z00_2914 =
																(1L << (int) (BgL_arg1763z00_5685));
														}
														BgL_arg2326z00_2913 =
															(BgL_arg2327z00_2914 -
															(long) CINT(BgL_nz00_2866));
													}
													BgL_test3054z00_8577 = (BgL_arg2326z00_2913 < 20L);
												}
											else
												{	/* SawBbv/bbv-range.scm 328 */
													BgL_test3054z00_8577 = ((bool_t) 0);
												}
										}
									else
										{	/* SawBbv/bbv-range.scm 328 */
											BgL_test3054z00_8577 = ((bool_t) 0);
										}
									if (BgL_test3054z00_8577)
										{	/* SawBbv/bbv-range.scm 329 */
											long BgL_arg2292z00_2878;

											{	/* SawBbv/bbv-range.scm 329 */
												long BgL_arg2294z00_2880;

												{	/* SawBbv/bbv-range.scm 242 */
													long BgL_arg1763z00_5692;

													{	/* SawBbv/bbv-range.scm 242 */
														obj_t BgL_arg1768z00_5693;

														BgL_arg1768z00_5693 =
															BGl_bigloozd2configzd2zz__configurez00
															(CNST_TABLE_REF(0L));
														BgL_arg1763z00_5692 =
															((long) CINT(BgL_arg1768z00_5693) - 2L);
													}
													BgL_arg2294z00_2880 =
														(1L << (int) (BgL_arg1763z00_5692));
												}
												BgL_arg2292z00_2878 =
													(BgL_arg2294z00_2880 - (long) CINT(BgL_nz00_2866));
											}
											{	/* SawBbv/bbv-range.scm 329 */
												obj_t BgL_list2293z00_2879;

												BgL_list2293z00_2879 =
													MAKE_YOUNG_PAIR(BINT(BgL_arg2292z00_2878), BNIL);
												return
													BGl_formatz00zz__r4_output_6_10_3z00
													(BGl_string2553z00zzsaw_bbvzd2rangezd2,
													BgL_list2293z00_2879);
											}
										}
									else
										{	/* SawBbv/bbv-range.scm 330 */
											bool_t BgL_test3057z00_8603;

											{	/* SawBbv/bbv-range.scm 330 */
												long BgL_arg2325z00_2910;

												{	/* SawBbv/bbv-range.scm 244 */
													long BgL_arg1771z00_5698;

													{	/* SawBbv/bbv-range.scm 244 */
														long BgL_arg1773z00_5699;

														{	/* SawBbv/bbv-range.scm 242 */
															long BgL_arg1763z00_5700;

															{	/* SawBbv/bbv-range.scm 242 */
																obj_t BgL_arg1768z00_5701;

																BgL_arg1768z00_5701 =
																	BGl_bigloozd2configzd2zz__configurez00
																	(CNST_TABLE_REF(0L));
																BgL_arg1763z00_5700 =
																	((long) CINT(BgL_arg1768z00_5701) - 2L);
															}
															BgL_arg1773z00_5699 =
																(1L << (int) (BgL_arg1763z00_5700));
														}
														BgL_arg1771z00_5698 = NEG(BgL_arg1773z00_5699);
													}
													BgL_arg2325z00_2910 = (BgL_arg1771z00_5698 - 1L);
												}
												BgL_test3057z00_8603 =
													(BgL_nz00_2866 == BINT(BgL_arg2325z00_2910));
											}
											if (BgL_test3057z00_8603)
												{	/* SawBbv/bbv-range.scm 330 */
													return BGl_string2554z00zzsaw_bbvzd2rangezd2;
												}
											else
												{	/* SawBbv/bbv-range.scm 331 */
													bool_t BgL_test3058z00_8614;

													{	/* SawBbv/bbv-range.scm 331 */
														long BgL_arg2323z00_2908;

														{	/* SawBbv/bbv-range.scm 331 */
															long BgL_arg2324z00_2909;

															{	/* SawBbv/bbv-range.scm 244 */
																long BgL_arg1771z00_5706;

																{	/* SawBbv/bbv-range.scm 244 */
																	long BgL_arg1773z00_5707;

																	{	/* SawBbv/bbv-range.scm 242 */
																		long BgL_arg1763z00_5708;

																		{	/* SawBbv/bbv-range.scm 242 */
																			obj_t BgL_arg1768z00_5709;

																			BgL_arg1768z00_5709 =
																				BGl_bigloozd2configzd2zz__configurez00
																				(CNST_TABLE_REF(0L));
																			BgL_arg1763z00_5708 =
																				((long) CINT(BgL_arg1768z00_5709) - 2L);
																		}
																		BgL_arg1773z00_5707 =
																			(1L << (int) (BgL_arg1763z00_5708));
																	}
																	BgL_arg1771z00_5706 =
																		NEG(BgL_arg1773z00_5707);
																}
																BgL_arg2324z00_2909 =
																	(BgL_arg1771z00_5706 - 1L);
															}
															BgL_arg2323z00_2908 = (BgL_arg2324z00_2909 + 1L);
														}
														BgL_test3058z00_8614 =
															(BgL_nz00_2866 == BINT(BgL_arg2323z00_2908));
													}
													if (BgL_test3058z00_8614)
														{	/* SawBbv/bbv-range.scm 331 */
															return BGl_string2555z00zzsaw_bbvzd2rangezd2;
														}
													else
														{	/* SawBbv/bbv-range.scm 332 */
															bool_t BgL_test3059z00_8626;

															{	/* SawBbv/bbv-range.scm 332 */
																long BgL_arg2320z00_2906;

																{	/* SawBbv/bbv-range.scm 332 */
																	long BgL_arg2322z00_2907;

																	{	/* SawBbv/bbv-range.scm 244 */
																		long BgL_arg1771z00_5715;

																		{	/* SawBbv/bbv-range.scm 244 */
																			long BgL_arg1773z00_5716;

																			{	/* SawBbv/bbv-range.scm 242 */
																				long BgL_arg1763z00_5717;

																				{	/* SawBbv/bbv-range.scm 242 */
																					obj_t BgL_arg1768z00_5718;

																					BgL_arg1768z00_5718 =
																						BGl_bigloozd2configzd2zz__configurez00
																						(CNST_TABLE_REF(0L));
																					BgL_arg1763z00_5717 =
																						((long) CINT(BgL_arg1768z00_5718) -
																						2L);
																				}
																				BgL_arg1773z00_5716 =
																					(1L << (int) (BgL_arg1763z00_5717));
																			}
																			BgL_arg1771z00_5715 =
																				NEG(BgL_arg1773z00_5716);
																		}
																		BgL_arg2322z00_2907 =
																			(BgL_arg1771z00_5715 - 1L);
																	}
																	BgL_arg2320z00_2906 =
																		(BgL_arg2322z00_2907 + 2L);
																}
																BgL_test3059z00_8626 =
																	(BgL_nz00_2866 == BINT(BgL_arg2320z00_2906));
															}
															if (BgL_test3059z00_8626)
																{	/* SawBbv/bbv-range.scm 332 */
																	return BGl_string2556z00zzsaw_bbvzd2rangezd2;
																}
															else
																{	/* SawBbv/bbv-range.scm 333 */
																	bool_t BgL_test3060z00_8638;

																	if (INTEGERP(BgL_nz00_2866))
																		{	/* SawBbv/bbv-range.scm 333 */
																			if (((long) CINT(BgL_nz00_2866) < 0L))
																				{	/* SawBbv/bbv-range.scm 333 */
																					long BgL_arg2316z00_2904;

																					{	/* SawBbv/bbv-range.scm 333 */
																						long BgL_arg2317z00_2905;

																						{	/* SawBbv/bbv-range.scm 244 */
																							long BgL_arg1771z00_5725;

																							{	/* SawBbv/bbv-range.scm 244 */
																								long BgL_arg1773z00_5726;

																								{	/* SawBbv/bbv-range.scm 242 */
																									long BgL_arg1763z00_5727;

																									{	/* SawBbv/bbv-range.scm 242 */
																										obj_t BgL_arg1768z00_5728;

																										BgL_arg1768z00_5728 =
																											BGl_bigloozd2configzd2zz__configurez00
																											(CNST_TABLE_REF(0L));
																										BgL_arg1763z00_5727 =
																											((long)
																											CINT(BgL_arg1768z00_5728)
																											- 2L);
																									}
																									BgL_arg1773z00_5726 =
																										(1L <<
																										(int)
																										(BgL_arg1763z00_5727));
																								}
																								BgL_arg1771z00_5725 =
																									NEG(BgL_arg1773z00_5726);
																							}
																							BgL_arg2317z00_2905 =
																								(BgL_arg1771z00_5725 - 1L);
																						}
																						BgL_arg2316z00_2904 =
																							(BgL_arg2317z00_2905 +
																							(long) CINT(BgL_nz00_2866));
																					}
																					BgL_test3060z00_8638 =
																						(BgL_arg2316z00_2904 > 20L);
																				}
																			else
																				{	/* SawBbv/bbv-range.scm 333 */
																					BgL_test3060z00_8638 = ((bool_t) 0);
																				}
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 333 */
																			BgL_test3060z00_8638 = ((bool_t) 0);
																		}
																	if (BgL_test3060z00_8638)
																		{	/* SawBbv/bbv-range.scm 334 */
																			long BgL_arg2308z00_2894;

																			{	/* SawBbv/bbv-range.scm 334 */
																				long BgL_arg2310z00_2896;

																				{	/* SawBbv/bbv-range.scm 244 */
																					long BgL_arg1771z00_5736;

																					{	/* SawBbv/bbv-range.scm 244 */
																						long BgL_arg1773z00_5737;

																						{	/* SawBbv/bbv-range.scm 242 */
																							long BgL_arg1763z00_5738;

																							{	/* SawBbv/bbv-range.scm 242 */
																								obj_t BgL_arg1768z00_5739;

																								BgL_arg1768z00_5739 =
																									BGl_bigloozd2configzd2zz__configurez00
																									(CNST_TABLE_REF(0L));
																								BgL_arg1763z00_5738 =
																									((long)
																									CINT(BgL_arg1768z00_5739) -
																									2L);
																							}
																							BgL_arg1773z00_5737 =
																								(1L <<
																								(int) (BgL_arg1763z00_5738));
																						}
																						BgL_arg1771z00_5736 =
																							NEG(BgL_arg1773z00_5737);
																					}
																					BgL_arg2310z00_2896 =
																						(BgL_arg1771z00_5736 - 1L);
																				}
																				BgL_arg2308z00_2894 =
																					(BgL_arg2310z00_2896 +
																					(long) CINT(BgL_nz00_2866));
																			}
																			{	/* SawBbv/bbv-range.scm 334 */
																				obj_t BgL_list2309z00_2895;

																				BgL_list2309z00_2895 =
																					MAKE_YOUNG_PAIR(BINT
																					(BgL_arg2308z00_2894), BNIL);
																				return
																					BGl_formatz00zz__r4_output_6_10_3z00
																					(BGl_string2557z00zzsaw_bbvzd2rangezd2,
																					BgL_list2309z00_2895);
																			}
																		}
																	else
																		{	/* SawBbv/bbv-range.scm 333 */
																			if (INTEGERP(BgL_nz00_2866))
																				{	/* SawBbv/bbv-range.scm 335 */
																					return BgL_nz00_2866;
																				}
																			else
																				{	/* SawBbv/bbv-range.scm 336 */
																					bool_t BgL_test3064z00_8670;

																					{	/* SawBbv/bbv-range.scm 84 */
																						obj_t BgL_classz00_5746;

																						BgL_classz00_5746 =
																							BGl_bbvzd2vlenzd2zzsaw_bbvzd2rangezd2;
																						if (BGL_OBJECTP(BgL_nz00_2866))
																							{	/* SawBbv/bbv-range.scm 84 */
																								BgL_objectz00_bglt
																									BgL_arg1801z00_5748;
																								BgL_arg1801z00_5748 =
																									(BgL_objectz00_bglt)
																									(BgL_nz00_2866);
																								if (BGL_CONDEXPAND_ISA_ARCH64())
																									{	/* SawBbv/bbv-range.scm 84 */
																										long BgL_idxz00_5754;

																										BgL_idxz00_5754 =
																											BGL_OBJECT_INHERITANCE_NUM
																											(BgL_arg1801z00_5748);
																										BgL_test3064z00_8670 =
																											(VECTOR_REF
																											(BGl_za2inheritancesza2z00zz__objectz00,
																												(BgL_idxz00_5754 +
																													1L)) ==
																											BgL_classz00_5746);
																									}
																								else
																									{	/* SawBbv/bbv-range.scm 84 */
																										bool_t BgL_res2518z00_5776;

																										{	/* SawBbv/bbv-range.scm 84 */
																											obj_t BgL_oclassz00_5762;

																											{	/* SawBbv/bbv-range.scm 84 */
																												long
																													BgL_arg1808z00_5768;
																												{	/* SawBbv/bbv-range.scm 84 */
																													long
																														BgL_arg1809z00_5769;
																													BgL_arg1809z00_5769 =
																														BGL_OBJECT_CLASS_NUM
																														(BgL_arg1801z00_5748);
																													BgL_arg1808z00_5768 =
																														(BgL_arg1809z00_5769
																														- OBJECT_TYPE);
																												}
																												BgL_oclassz00_5762 =
																													VECTOR_REF
																													(BGl_za2classesza2z00zz__objectz00,
																													BgL_arg1808z00_5768);
																											}
																											{	/* SawBbv/bbv-range.scm 84 */
																												bool_t
																													BgL__ortest_1115z00_5763;
																												BgL__ortest_1115z00_5763
																													=
																													(BgL_classz00_5746 ==
																													BgL_oclassz00_5762);
																												if (BgL__ortest_1115z00_5763)
																													{	/* SawBbv/bbv-range.scm 84 */
																														BgL_res2518z00_5776
																															=
																															BgL__ortest_1115z00_5763;
																													}
																												else
																													{	/* SawBbv/bbv-range.scm 84 */
																														long
																															BgL_odepthz00_5764;
																														BgL_odepthz00_5764 =
																															BGL_CLASS_DEPTH
																															(BgL_oclassz00_5762);
																														if ((1L <
																																BgL_odepthz00_5764))
																															{	/* SawBbv/bbv-range.scm 84 */
																																obj_t
																																	BgL_arg1797z00_5766;
																																BgL_arg1797z00_5766
																																	=
																																	BGL_CLASS_ANCESTORS_REF
																																	(BgL_oclassz00_5762,
																																	1L);
																																BgL_res2518z00_5776
																																	=
																																	(BgL_arg1797z00_5766
																																	==
																																	BgL_classz00_5746);
																															}
																														else
																															{	/* SawBbv/bbv-range.scm 84 */
																																BgL_res2518z00_5776
																																	=
																																	((bool_t) 0);
																															}
																													}
																											}
																										}
																										BgL_test3064z00_8670 =
																											BgL_res2518z00_5776;
																									}
																							}
																						else
																							{	/* SawBbv/bbv-range.scm 84 */
																								BgL_test3064z00_8670 =
																									((bool_t) 0);
																							}
																					}
																					if (BgL_test3064z00_8670)
																						{	/* SawBbv/bbv-range.scm 336 */
																							BgL_nz00_2859 = BgL_nz00_2866;
																							{	/* SawBbv/bbv-range.scm 321 */
																								obj_t BgL_arg2275z00_2861;
																								int BgL_arg2276z00_2862;

																								{	/* SawBbv/bbv-range.scm 321 */
																									obj_t BgL_arg2280z00_2865;

																									BgL_arg2280z00_2865 =
																										(((BgL_bbvzd2vlenzd2_bglt)
																											COBJECT((
																													(BgL_bbvzd2vlenzd2_bglt)
																													BgL_nz00_2859)))->
																										BgL_vecz00);
																									BgL_arg2275z00_2861 =
																										BGl_shapez00zztools_shapez00
																										(BgL_arg2280z00_2865);
																								}
																								BgL_arg2276z00_2862 =
																									(((BgL_bbvzd2vlenzd2_bglt)
																										COBJECT((
																												(BgL_bbvzd2vlenzd2_bglt)
																												BgL_nz00_2859)))->
																									BgL_offsetz00);
																								{	/* SawBbv/bbv-range.scm 320 */
																									obj_t BgL_list2277z00_2863;

																									{	/* SawBbv/bbv-range.scm 320 */
																										obj_t BgL_arg2279z00_2864;

																										BgL_arg2279z00_2864 =
																											MAKE_YOUNG_PAIR(BINT
																											(BgL_arg2276z00_2862),
																											BNIL);
																										BgL_list2277z00_2863 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg2275z00_2861,
																											BgL_arg2279z00_2864);
																									}
																									return
																										BGl_formatz00zz__r4_output_6_10_3z00
																										(BGl_string2550z00zzsaw_bbvzd2rangezd2,
																										BgL_list2277z00_2863);
																								}
																							}
																						}
																					else
																						{	/* SawBbv/bbv-range.scm 336 */
																							if (REALP(BgL_nz00_2866))
																								{	/* SawBbv/bbv-range.scm 337 */
																									if (BGL_IS_INF(REAL_TO_DOUBLE
																											(BgL_nz00_2866)))
																										{	/* SawBbv/bbv-range.scm 338 */
																											if (
																												(REAL_TO_DOUBLE
																													(BgL_nz00_2866) <
																													((double) 0.0)))
																												{	/* SawBbv/bbv-range.scm 338 */
																													return
																														BGl_string2558z00zzsaw_bbvzd2rangezd2;
																												}
																											else
																												{	/* SawBbv/bbv-range.scm 338 */
																													return
																														BGl_string2559z00zzsaw_bbvzd2rangezd2;
																												}
																										}
																									else
																										{	/* SawBbv/bbv-range.scm 338 */
																											return BgL_nz00_2866;
																										}
																								}
																							else
																								{	/* SawBbv/bbv-range.scm 337 */
																									BGL_TAIL return
																										BGl_shapez00zztools_shapez00
																										(BgL_nz00_2866);
																								}
																						}
																				}
																		}
																}
														}
												}
										}
								}
						}
				}
			}
		}

	}



/* &object-print-bbv-vle1529 */
	obj_t BGl_z62objectzd2printzd2bbvzd2vle1529zb0zzsaw_bbvzd2rangezd2(obj_t
		BgL_envz00_5934, obj_t BgL_oz00_5935, obj_t BgL_pz00_5936,
		obj_t BgL_procz00_5937)
	{
		{	/* SawBbv/bbv-range.scm 74 */
			{	/* SawBbv/bbv-range.scm 75 */
				obj_t BgL_strz00_6020;

				{	/* SawBbv/bbv-range.scm 76 */
					obj_t BgL_arg2262z00_6021;
					int BgL_arg2263z00_6022;

					BgL_arg2262z00_6021 =
						BGl_shapez00zztools_shapez00(
						(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
									((BgL_bbvzd2vlenzd2_bglt) BgL_oz00_5935)))->BgL_vecz00));
					BgL_arg2263z00_6022 =
						(((BgL_bbvzd2vlenzd2_bglt) COBJECT(
								((BgL_bbvzd2vlenzd2_bglt) BgL_oz00_5935)))->BgL_offsetz00);
					{	/* SawBbv/bbv-range.scm 75 */
						obj_t BgL_list2264z00_6023;

						{	/* SawBbv/bbv-range.scm 75 */
							obj_t BgL_arg2265z00_6024;

							BgL_arg2265z00_6024 =
								MAKE_YOUNG_PAIR(BINT(BgL_arg2263z00_6022), BNIL);
							BgL_list2264z00_6023 =
								MAKE_YOUNG_PAIR(BgL_arg2262z00_6021, BgL_arg2265z00_6024);
						}
						BgL_strz00_6020 =
							BGl_formatz00zz__r4_output_6_10_3z00
							(BGl_string2550z00zzsaw_bbvzd2rangezd2, BgL_list2264z00_6023);
				}}
				return bgl_display_obj(BgL_strz00_6020, BgL_pz00_5936);
			}
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zzsaw_bbvzd2rangezd2(void)
	{
		{	/* SawBbv/bbv-range.scm 15 */
			BGl_modulezd2initializa7ationz75zzengine_paramz00(517137079L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			BGl_modulezd2initializa7ationz75zzast_varz00(90839984L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			BGl_modulezd2initializa7ationz75zzast_nodez00(469732712L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			BGl_modulezd2initializa7ationz75zztype_typez00(515343395L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			BGl_modulezd2initializa7ationz75zztype_cachez00(346491734L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			BGl_modulezd2initializa7ationz75zztools_shapez00(365925558L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			BGl_modulezd2initializa7ationz75zzsaw_defsz00(404844772L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			BGl_modulezd2initializa7ationz75zzsaw_regsetz00(454038607L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			BGl_modulezd2initializa7ationz75zzsaw_bbvzd2debugzd2(50428158L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			BGl_modulezd2initializa7ationz75zzsaw_bbvzd2configzd2(32101684L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			BGl_modulezd2initializa7ationz75zzsaw_bbvzd2cachezd2(242097300L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
			return
				BGl_modulezd2initializa7ationz75zzsaw_bbvzd2typeszd2(226177408L,
				BSTRING_TO_STRING(BGl_string2560z00zzsaw_bbvzd2rangezd2));
		}

	}

#ifdef __cplusplus
}
#endif
