/*===========================================================================*/
/*   (Eval/expdsrfi0.scm)                                                    */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Eval/expdsrfi0.scm -indent -o objs/obj_u/Eval/expdsrfi0.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* unsafe mode */
#define BIGLOO_UNSAFE 1

/* traces mode */
#define BIGLOO_TRACE 0

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

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

	static obj_t BGl_bigloozd2intzd2siza7eza7zz__expander_srfi0z00(void);
	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_symbol1911z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1913z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1915z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1917z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1919z00zz__expander_srfi0z00 = BUNSPEC;
	extern obj_t BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_symbol1921z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1923z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_srfizd2commonzd2listz00zz__expander_srfi0z00(void);
	extern obj_t bgl_remq_bang(obj_t, obj_t);
	extern obj_t BGl_expandzd2errorzd2zz__expandz00(obj_t, obj_t, obj_t);
	static obj_t BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
		BUNSPEC;
	static obj_t BGl_symbol1939z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_z62registerzd2srfiz12za2zz__expander_srfi0z00(obj_t, obj_t);
	static obj_t BGl_z62compilezd2srfizf3z43zz__expander_srfi0z00(obj_t, obj_t);
	extern obj_t BGl_evepairifyz00zz__prognz00(obj_t, obj_t);
	extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
	extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t,
		obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_modulezd2initializa7ationz75zz__expander_srfi0z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00(long,
		char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long,
		char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__libraryz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bignumz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__structurez00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__tvectorz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
	static obj_t BGl_symbol1943z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1944z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1946z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1949z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1951z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1953z00zz__expander_srfi0z00 = BUNSPEC;
	extern bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
	static obj_t BGl_symbol1955z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1876z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_toplevelzd2initzd2zz__expander_srfi0z00(void);
	static obj_t BGl_expandzd2condzd2expandzd2orzd2zz__expander_srfi0z00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	static obj_t BGl_symbol1878z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1882z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1887z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1889z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_cnstzd2initzd2zz__expander_srfi0z00(void);
	static obj_t BGl_genericzd2initzd2zz__expander_srfi0z00(void);
	BGL_EXPORTED_DECL obj_t
		BGl_unregisterzd2evalzd2srfiz12z12zz__expander_srfi0z00(obj_t);
	static obj_t BGl_symbol1891z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1893z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_importedzd2moduleszd2initz00zz__expander_srfi0z00(void);
	static obj_t BGl_symbol1895z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1897z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_gczd2rootszd2initz00zz__expander_srfi0z00(void);
	static obj_t BGl_symbol1899z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_list1948z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_objectzd2initzd2zz__expander_srfi0z00(void);
	BGL_EXPORTED_DECL obj_t bgl_register_eval_srfi(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_unregisterzd2compilezd2srfiz12z12zz__expander_srfi0z00(obj_t);
	extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_expandzd2condzd2expandzd2andzd2zz__expander_srfi0z00(obj_t,
		obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
	extern obj_t BGl_bigloozd2configzd2zz__configurez00(obj_t);
	static obj_t BGl_bigloozd2elongzd2siza7eza7zz__expander_srfi0z00(void);
	BGL_EXPORTED_DECL obj_t BGl_registerzd2srfiz12zc0zz__expander_srfi0z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_unregisterzd2srfiz12zc0zz__expander_srfi0z00(obj_t);
	static obj_t BGl_list1886z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t
		BGl_z62registerzd2compilezd2srfiz12z70zz__expander_srfi0z00(obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2condzd2expandz00zz__expander_srfi0z00(obj_t, obj_t, obj_t);
	static obj_t BGl_z62unregisterzd2evalzd2srfiz12z70zz__expander_srfi0z00(obj_t,
		obj_t);
	static obj_t BGl_srfizd2evalzd2listz00zz__expander_srfi0z00(void);
	extern obj_t BGl_libraryzd2existszf3z21zz__libraryz00(obj_t, obj_t);
	static obj_t BGl_methodzd2initzd2zz__expander_srfi0z00(void);
	static obj_t BGl_z62expandzd2condzd2expandz62zz__expander_srfi0z00(obj_t,
		obj_t, obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_evalzd2srfizf3z21zz__expander_srfi0z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2compilezd2condzd2expandzd2zz__expander_srfi0z00(obj_t, obj_t);
	static obj_t
		BGl_z62unregisterzd2compilezd2srfiz12z70zz__expander_srfi0z00(obj_t, obj_t);
	static obj_t BGl_prognz00zz__expander_srfi0z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2evalzd2condzd2expandzd2zz__expander_srfi0z00(obj_t, obj_t);
	static obj_t
		BGl_z62expandzd2evalzd2condzd2expandzb0zz__expander_srfi0z00(obj_t, obj_t,
		obj_t);
	extern obj_t string_append(obj_t, obj_t);
	BGL_EXPORTED_DECL bool_t BGl_compilezd2srfizf3z21zz__expander_srfi0z00(obj_t);
	static obj_t BGl_z62evalzd2srfizf3z43zz__expander_srfi0z00(obj_t, obj_t);
	static obj_t BGl_z62unregisterzd2srfiz12za2zz__expander_srfi0z00(obj_t,
		obj_t);
	static obj_t BGl_srfizd2compilezd2listz00zz__expander_srfi0z00(void);
	static obj_t
		BGl_z62expandzd2compilezd2condzd2expandzb0zz__expander_srfi0z00(obj_t,
		obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_registerzd2compilezd2srfiz12z12zz__expander_srfi0z00(obj_t);
	static obj_t BGl_symbol1901z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_z62registerzd2evalzd2srfiz12z70zz__expander_srfi0z00(obj_t,
		obj_t);
	static obj_t BGl_symbol1903z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1905z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1907z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1909z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t *__cnst;


	   
		 
		DEFINE_STRING(BGl_string1950z00zz__expander_srfi0z00,
		BgL_bgl_string1950za700za7za7_1959za7, "or", 2);
	      DEFINE_STRING(BGl_string1952z00zz__expander_srfi0z00,
		BgL_bgl_string1952za700za7za7_1960za7, "not", 3);
	      DEFINE_STRING(BGl_string1954z00zz__expander_srfi0z00,
		BgL_bgl_string1954za700za7za7_1961za7, "library", 7);
	      DEFINE_STRING(BGl_string1956z00zz__expander_srfi0z00,
		BgL_bgl_string1956za700za7za7_1962za7, "config", 6);
	      DEFINE_STRING(BGl_string1957z00zz__expander_srfi0z00,
		BgL_bgl_string1957za700za7za7_1963za7, "&expand-cond-expand", 19);
	      DEFINE_STRING(BGl_string1958z00zz__expander_srfi0z00,
		BgL_bgl_string1958za700za7za7_1964za7, "__expander_srfi0", 16);
	      DEFINE_STRING(BGl_string1877z00zz__expander_srfi0z00,
		BgL_bgl_string1877za700za7za7_1965za7, "srfi0", 5);
	      DEFINE_STRING(BGl_string1879z00zz__expander_srfi0z00,
		BgL_bgl_string1879za700za7za7_1966za7, "int-size", 8);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2condzd2expandzd2envzd2zz__expander_srfi0z00,
		BgL_bgl_za762expandza7d2cond1967z00,
		BGl_z62expandzd2condzd2expandz62zz__expander_srfi0z00, 0L, BUNSPEC, 3);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_unregisterzd2evalzd2srfiz12zd2envzc0zz__expander_srfi0z00,
		BgL_bgl_za762unregisterza7d21968z00,
		BGl_z62unregisterzd2evalzd2srfiz12z70zz__expander_srfi0z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_compilezd2srfizf3zd2envzf3zz__expander_srfi0z00,
		BgL_bgl_za762compileza7d2srf1969z00,
		BGl_z62compilezd2srfizf3z43zz__expander_srfi0z00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string1880z00zz__expander_srfi0z00,
		BgL_bgl_string1880za700za7za7_1970za7, "30", 2);
	      DEFINE_STRING(BGl_string1881z00zz__expander_srfi0z00,
		BgL_bgl_string1881za700za7za7_1971za7, "bint", 4);
	      DEFINE_STRING(BGl_string1883z00zz__expander_srfi0z00,
		BgL_bgl_string1883za700za7za7_1972za7, "elong-size", 10);
	      DEFINE_STRING(BGl_string1884z00zz__expander_srfi0z00,
		BgL_bgl_string1884za700za7za7_1973za7, "32", 2);
	      DEFINE_STRING(BGl_string1885z00zz__expander_srfi0z00,
		BgL_bgl_string1885za700za7za7_1974za7, "elong", 5);
	      DEFINE_STRING(BGl_string1888z00zz__expander_srfi0z00,
		BgL_bgl_string1888za700za7za7_1975za7, "srfi-0", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2compilezd2srfiz12zd2envzc0zz__expander_srfi0z00,
		BgL_bgl_za762registerza7d2co1976z00,
		BGl_z62registerzd2compilezd2srfiz12z70zz__expander_srfi0z00, 0L, BUNSPEC,
		1);
	      DEFINE_STRING(BGl_string1890z00zz__expander_srfi0z00,
		BgL_bgl_string1890za700za7za7_1977za7, "srfi-2", 6);
	      DEFINE_STRING(BGl_string1892z00zz__expander_srfi0z00,
		BgL_bgl_string1892za700za7za7_1978za7, "srfi-4", 6);
	      DEFINE_STRING(BGl_string1894z00zz__expander_srfi0z00,
		BgL_bgl_string1894za700za7za7_1979za7, "srfi-6", 6);
	      DEFINE_STRING(BGl_string1896z00zz__expander_srfi0z00,
		BgL_bgl_string1896za700za7za7_1980za7, "srfi-8", 6);
	      DEFINE_STRING(BGl_string1898z00zz__expander_srfi0z00,
		BgL_bgl_string1898za700za7za7_1981za7, "srfi-9", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2srfiz12zd2envz12zz__expander_srfi0z00,
		BgL_bgl_za762registerza7d2sr1982z00,
		BGl_z62registerzd2srfiz12za2zz__expander_srfi0z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2evalzd2srfiz12zd2envzc0zz__expander_srfi0z00,
		BgL_bgl_za762registerza7d2ev1983z00,
		BGl_z62registerzd2evalzd2srfiz12z70zz__expander_srfi0z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_unregisterzd2compilezd2srfiz12zd2envzc0zz__expander_srfi0z00,
		BgL_bgl_za762unregisterza7d21984z00,
		BGl_z62unregisterzd2compilezd2srfiz12z70zz__expander_srfi0z00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2condzd2expandzd2envz00zz__expander_srfi0z00,
		BgL_bgl_za762expandza7d2eval1985z00,
		BGl_z62expandzd2evalzd2condzd2expandzb0zz__expander_srfi0z00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2srfizf3zd2envzf3zz__expander_srfi0z00,
		BgL_bgl_za762evalza7d2srfiza7f1986za7,
		BGl_z62evalzd2srfizf3z43zz__expander_srfi0z00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string1900z00zz__expander_srfi0z00,
		BgL_bgl_string1900za700za7za7_1987za7, "srfi-10", 7);
	      DEFINE_STRING(BGl_string1902z00zz__expander_srfi0z00,
		BgL_bgl_string1902za700za7za7_1988za7, "srfi-22", 7);
	      DEFINE_STRING(BGl_string1904z00zz__expander_srfi0z00,
		BgL_bgl_string1904za700za7za7_1989za7, "srfi-28", 7);
	      DEFINE_STRING(BGl_string1906z00zz__expander_srfi0z00,
		BgL_bgl_string1906za700za7za7_1990za7, "srfi-30", 7);
	      DEFINE_STRING(BGl_string1908z00zz__expander_srfi0z00,
		BgL_bgl_string1908za700za7za7_1991za7, "rlimit", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2compilezd2condzd2expandzd2envz00zz__expander_srfi0z00,
		BgL_bgl_za762expandza7d2comp1992z00,
		BGl_z62expandzd2compilezd2condzd2expandzb0zz__expander_srfi0z00, 0L,
		BUNSPEC, 2);
	      DEFINE_STRING(BGl_string1910z00zz__expander_srfi0z00,
		BgL_bgl_string1910za700za7za7_1993za7, "gc", 2);
	      DEFINE_STRING(BGl_string1912z00zz__expander_srfi0z00,
		BgL_bgl_string1912za700za7za7_1994za7, "bigloo", 6);
	      DEFINE_STRING(BGl_string1914z00zz__expander_srfi0z00,
		BgL_bgl_string1914za700za7za7_1995za7, "bigloo4", 7);
	      DEFINE_STRING(BGl_string1916z00zz__expander_srfi0z00,
		BgL_bgl_string1916za700za7za7_1996za7, "bigloo4.5", 9);
	      DEFINE_STRING(BGl_string1918z00zz__expander_srfi0z00,
		BgL_bgl_string1918za700za7za7_1997za7, "bigloo4.5b", 10);
	      DEFINE_STRING(BGl_string1920z00zz__expander_srfi0z00,
		BgL_bgl_string1920za700za7za7_1998za7, "bigloo-weakptr", 14);
	      DEFINE_STRING(BGl_string1922z00zz__expander_srfi0z00,
		BgL_bgl_string1922za700za7za7_1999za7, "bigloo-finalizer", 16);
	      DEFINE_STRING(BGl_string1924z00zz__expander_srfi0z00,
		BgL_bgl_string1924za700za7za7_2000za7, "bigloo-eval", 11);
	      DEFINE_STRING(BGl_string1925z00zz__expander_srfi0z00,
		BgL_bgl_string1925za700za7za7_2001za7,
		"/tmp/bigloo/runtime/Eval/expdsrfi0.scm", 38);
	      DEFINE_STRING(BGl_string1926z00zz__expander_srfi0z00,
		BgL_bgl_string1926za700za7za7_2002za7, "&register-eval-srfi!", 20);
	      DEFINE_STRING(BGl_string1927z00zz__expander_srfi0z00,
		BgL_bgl_string1927za700za7za7_2003za7, "symbol", 6);
	      DEFINE_STRING(BGl_string1928z00zz__expander_srfi0z00,
		BgL_bgl_string1928za700za7za7_2004za7, "&unregister-eval-srfi!", 22);
	      DEFINE_STRING(BGl_string1929z00zz__expander_srfi0z00,
		BgL_bgl_string1929za700za7za7_2005za7, "&register-compile-srfi!", 23);
	      DEFINE_STRING(BGl_string1930z00zz__expander_srfi0z00,
		BgL_bgl_string1930za700za7za7_2006za7, "&unregister-compile-srfi!", 25);
	      DEFINE_STRING(BGl_string1931z00zz__expander_srfi0z00,
		BgL_bgl_string1931za700za7za7_2007za7, "&register-srfi!", 15);
	      DEFINE_STRING(BGl_string1932z00zz__expander_srfi0z00,
		BgL_bgl_string1932za700za7za7_2008za7, "&unregister-srfi!", 17);
	      DEFINE_STRING(BGl_string1933z00zz__expander_srfi0z00,
		BgL_bgl_string1933za700za7za7_2009za7, "&expand-eval-cond-expand", 24);
	      DEFINE_STRING(BGl_string1934z00zz__expander_srfi0z00,
		BgL_bgl_string1934za700za7za7_2010za7, "pair-nil", 8);
	      DEFINE_STRING(BGl_string1935z00zz__expander_srfi0z00,
		BgL_bgl_string1935za700za7za7_2011za7, "procedure", 9);
	      DEFINE_STRING(BGl_string1936z00zz__expander_srfi0z00,
		BgL_bgl_string1936za700za7za7_2012za7, "&expand-compile-cond-expand", 27);
	      DEFINE_STRING(BGl_string1937z00zz__expander_srfi0z00,
		BgL_bgl_string1937za700za7za7_2013za7, "&compile-srfi?", 14);
	      DEFINE_STRING(BGl_string1938z00zz__expander_srfi0z00,
		BgL_bgl_string1938za700za7za7_2014za7, "&eval-srfi?", 11);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_unregisterzd2srfiz12zd2envz12zz__expander_srfi0z00,
		BgL_bgl_za762unregisterza7d22015z00,
		BGl_z62unregisterzd2srfiz12za2zz__expander_srfi0z00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string1940z00zz__expander_srfi0z00,
		BgL_bgl_string1940za700za7za7_2016za7, "begin", 5);
	      DEFINE_STRING(BGl_string1941z00zz__expander_srfi0z00,
		BgL_bgl_string1941za700za7za7_2017za7, "cond-expand", 11);
	      DEFINE_STRING(BGl_string1942z00zz__expander_srfi0z00,
		BgL_bgl_string1942za700za7za7_2018za7, "Illegal form", 12);
	      DEFINE_STRING(BGl_string1945z00zz__expander_srfi0z00,
		BgL_bgl_string1945za700za7za7_2019za7, "else", 4);
	      DEFINE_STRING(BGl_string1947z00zz__expander_srfi0z00,
		BgL_bgl_string1947za700za7za7_2020za7, "and", 3);

/* 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_symbol1911z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1913z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1915z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1917z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1919z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1921z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1923z00zz__expander_srfi0z00));
		   
			 ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__expander_srfi0z00));
		     ADD_ROOT((void
				*) (&BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1939z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1943z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1944z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1946z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1949z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1951z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1953z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1955z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1876z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1878z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1882z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1887z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1889z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1891z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1893z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1895z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1897z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1899z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_list1948z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_list1886z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1901z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1903z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1905z00zz__expander_srfi0z00));
		   
			 ADD_ROOT((void
				*) (&BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1907z00zz__expander_srfi0z00));
		     ADD_ROOT((void *) (&BGl_symbol1909z00zz__expander_srfi0z00));
#undef ADD_ROOT
		if   (roots_max > 0)
			     GC_add_roots(roots_min, ((void **) roots_max) + 1);
#endif
		     return BUNSPEC;
	}



/* module-initialization */
	BGL_EXPORTED_DEF obj_t
		BGl_modulezd2initializa7ationz75zz__expander_srfi0z00(long
		BgL_checksumz00_2337, char *BgL_fromz00_2338)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__expander_srfi0z00))
				{
					BGl_requirezd2initializa7ationz75zz__expander_srfi0z00 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zz__expander_srfi0z00();
					BGl_cnstzd2initzd2zz__expander_srfi0z00();
					BGl_importedzd2moduleszd2initz00zz__expander_srfi0z00();
					return BGl_toplevelzd2initzd2zz__expander_srfi0z00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 15 */
			BGl_symbol1876z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1877z00zz__expander_srfi0z00);
			BGl_symbol1878z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1879z00zz__expander_srfi0z00);
			BGl_symbol1882z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1883z00zz__expander_srfi0z00);
			BGl_symbol1887z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1888z00zz__expander_srfi0z00);
			BGl_symbol1889z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1890z00zz__expander_srfi0z00);
			BGl_symbol1891z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1892z00zz__expander_srfi0z00);
			BGl_symbol1893z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1894z00zz__expander_srfi0z00);
			BGl_symbol1895z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1896z00zz__expander_srfi0z00);
			BGl_symbol1897z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1898z00zz__expander_srfi0z00);
			BGl_symbol1899z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1900z00zz__expander_srfi0z00);
			BGl_symbol1901z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1902z00zz__expander_srfi0z00);
			BGl_symbol1903z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1904z00zz__expander_srfi0z00);
			BGl_symbol1905z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1906z00zz__expander_srfi0z00);
			BGl_symbol1907z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1908z00zz__expander_srfi0z00);
			BGl_symbol1909z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1910z00zz__expander_srfi0z00);
			BGl_list1886z00zz__expander_srfi0z00 =
				MAKE_YOUNG_PAIR(BGl_symbol1887z00zz__expander_srfi0z00,
				MAKE_YOUNG_PAIR(BGl_symbol1889z00zz__expander_srfi0z00,
					MAKE_YOUNG_PAIR(BGl_symbol1891z00zz__expander_srfi0z00,
						MAKE_YOUNG_PAIR(BGl_symbol1893z00zz__expander_srfi0z00,
							MAKE_YOUNG_PAIR(BGl_symbol1895z00zz__expander_srfi0z00,
								MAKE_YOUNG_PAIR(BGl_symbol1897z00zz__expander_srfi0z00,
									MAKE_YOUNG_PAIR(BGl_symbol1899z00zz__expander_srfi0z00,
										MAKE_YOUNG_PAIR(BGl_symbol1901z00zz__expander_srfi0z00,
											MAKE_YOUNG_PAIR(BGl_symbol1903z00zz__expander_srfi0z00,
												MAKE_YOUNG_PAIR(BGl_symbol1905z00zz__expander_srfi0z00,
													MAKE_YOUNG_PAIR
													(BGl_symbol1907z00zz__expander_srfi0z00,
														MAKE_YOUNG_PAIR
														(BGl_symbol1909z00zz__expander_srfi0z00,
															BNIL))))))))))));
			BGl_symbol1911z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1912z00zz__expander_srfi0z00);
			BGl_symbol1913z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1914z00zz__expander_srfi0z00);
			BGl_symbol1915z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1916z00zz__expander_srfi0z00);
			BGl_symbol1917z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1918z00zz__expander_srfi0z00);
			BGl_symbol1919z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1920z00zz__expander_srfi0z00);
			BGl_symbol1921z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1922z00zz__expander_srfi0z00);
			BGl_symbol1923z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1924z00zz__expander_srfi0z00);
			BGl_symbol1939z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1940z00zz__expander_srfi0z00);
			BGl_symbol1943z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1941z00zz__expander_srfi0z00);
			BGl_symbol1944z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1945z00zz__expander_srfi0z00);
			BGl_symbol1946z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1947z00zz__expander_srfi0z00);
			BGl_list1948z00zz__expander_srfi0z00 = MAKE_YOUNG_PAIR(BUNSPEC, BNIL);
			BGl_symbol1949z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1950z00zz__expander_srfi0z00);
			BGl_symbol1951z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1952z00zz__expander_srfi0z00);
			BGl_symbol1953z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1954z00zz__expander_srfi0z00);
			return (BGl_symbol1955z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1956z00zz__expander_srfi0z00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 15 */
			return bgl_gc_roots_register();
		}

	}



/* toplevel-init */
	obj_t BGl_toplevelzd2initzd2zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 15 */
			BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00 =
				bgl_make_mutex(BGl_symbol1876z00zz__expander_srfi0z00);
			BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 = BFALSE;
			return (BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
				BFALSE, BUNSPEC);
		}

	}



/* bigloo-int-size */
	obj_t BGl_bigloozd2intzd2siza7eza7zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 99 */
			{	/* Eval/expdsrfi0.scm 100 */
				obj_t BgL_isiza7eza7_1144;

				BgL_isiza7eza7_1144 =
					BGl_bigloozd2configzd2zz__configurez00
					(BGl_symbol1878z00zz__expander_srfi0z00);
				{	/* Eval/expdsrfi0.scm 103 */
					obj_t BgL_arg1191z00_1145;

					{	/* Eval/expdsrfi0.scm 103 */
						obj_t BgL_arg1192z00_1146;

						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_isiza7eza7_1144))
							{	/* Ieee/number.scm 174 */

								BgL_arg1192z00_1146 =
									BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
									(BgL_isiza7eza7_1144, BINT(10L));
							}
						else
							{	/* Eval/expdsrfi0.scm 103 */
								BgL_arg1192z00_1146 = BGl_string1880z00zz__expander_srfi0z00;
							}
						BgL_arg1191z00_1145 =
							string_append(BGl_string1881z00zz__expander_srfi0z00,
							BgL_arg1192z00_1146);
					}
					return bstring_to_symbol(BgL_arg1191z00_1145);
				}
			}
		}

	}



/* bigloo-elong-size */
	obj_t BGl_bigloozd2elongzd2siza7eza7zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 108 */
			{	/* Eval/expdsrfi0.scm 109 */
				obj_t BgL_esiza7eza7_1150;

				BgL_esiza7eza7_1150 =
					BGl_bigloozd2configzd2zz__configurez00
					(BGl_symbol1882z00zz__expander_srfi0z00);
				{	/* Eval/expdsrfi0.scm 112 */
					obj_t BgL_arg1196z00_1151;

					{	/* Eval/expdsrfi0.scm 112 */
						obj_t BgL_arg1197z00_1152;

						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_esiza7eza7_1150))
							{	/* Ieee/number.scm 174 */

								BgL_arg1197z00_1152 =
									BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
									(BgL_esiza7eza7_1150, BINT(10L));
							}
						else
							{	/* Eval/expdsrfi0.scm 112 */
								BgL_arg1197z00_1152 = BGl_string1884z00zz__expander_srfi0z00;
							}
						BgL_arg1196z00_1151 =
							string_append(BGl_string1885z00zz__expander_srfi0z00,
							BgL_arg1197z00_1152);
					}
					return bstring_to_symbol(BgL_arg1196z00_1151);
				}
			}
		}

	}



/* srfi-common-list */
	obj_t BGl_srfizd2commonzd2listz00zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 137 */
			{	/* Eval/expdsrfi0.scm 138 */
				obj_t BgL_lz00_1156;

				{	/* Eval/expdsrfi0.scm 142 */
					obj_t BgL_arg1201z00_1158;

					{	/* Eval/expdsrfi0.scm 142 */
						obj_t BgL_arg1204z00_1159;

						{	/* Eval/expdsrfi0.scm 142 */
							obj_t BgL_arg1205z00_1160;

							{	/* Eval/expdsrfi0.scm 142 */
								obj_t BgL_arg1206z00_1161;

								{	/* Eval/expdsrfi0.scm 142 */
									obj_t BgL_arg1207z00_1162;
									obj_t BgL_arg1208z00_1163;

									BgL_arg1207z00_1162 =
										BGl_bigloozd2intzd2siza7eza7zz__expander_srfi0z00();
									{	/* Eval/expdsrfi0.scm 143 */
										obj_t BgL_arg1209z00_1164;

										BgL_arg1209z00_1164 =
											BGl_bigloozd2elongzd2siza7eza7zz__expander_srfi0z00();
										BgL_arg1208z00_1163 =
											MAKE_YOUNG_PAIR(BgL_arg1209z00_1164,
											BGl_list1886z00zz__expander_srfi0z00);
									}
									BgL_arg1206z00_1161 =
										MAKE_YOUNG_PAIR(BgL_arg1207z00_1162, BgL_arg1208z00_1163);
								}
								BgL_arg1205z00_1160 =
									MAKE_YOUNG_PAIR(BGl_symbol1911z00zz__expander_srfi0z00,
									BgL_arg1206z00_1161);
							}
							BgL_arg1204z00_1159 =
								MAKE_YOUNG_PAIR(BGl_symbol1913z00zz__expander_srfi0z00,
								BgL_arg1205z00_1160);
						}
						BgL_arg1201z00_1158 =
							MAKE_YOUNG_PAIR(BGl_symbol1915z00zz__expander_srfi0z00,
							BgL_arg1204z00_1159);
					}
					BgL_lz00_1156 =
						MAKE_YOUNG_PAIR(BGl_symbol1917z00zz__expander_srfi0z00,
						BgL_arg1201z00_1158);
				}
				if (BGL_AUTO_FINALIZER)
					{	/* Eval/expdsrfi0.scm 157 */
						obj_t BgL_arg1199z00_1157;

						BgL_arg1199z00_1157 =
							MAKE_YOUNG_PAIR(BGl_symbol1919z00zz__expander_srfi0z00,
							BgL_lz00_1156);
						return MAKE_YOUNG_PAIR(BGl_symbol1921z00zz__expander_srfi0z00,
							BgL_arg1199z00_1157);
					}
				else
					{	/* Eval/expdsrfi0.scm 156 */
						return BgL_lz00_1156;
					}
			}
		}

	}



/* srfi-compile-list */
	obj_t BGl_srfizd2compilezd2listz00zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 169 */
			if (CBOOL(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00))
				{	/* Eval/expdsrfi0.scm 170 */
					BFALSE;
				}
			else
				{	/* Eval/expdsrfi0.scm 170 */
					BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
						BGl_srfizd2commonzd2listz00zz__expander_srfi0z00();
				}
			return BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00;
		}

	}



/* srfi-eval-list */
	obj_t BGl_srfizd2evalzd2listz00zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 177 */
			if (CBOOL(BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00))
				{	/* Eval/expdsrfi0.scm 178 */
					BFALSE;
				}
			else
				{	/* Eval/expdsrfi0.scm 179 */
					obj_t BgL_arg1211z00_1165;

					BgL_arg1211z00_1165 =
						BGl_srfizd2commonzd2listz00zz__expander_srfi0z00();
					BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 =
						MAKE_YOUNG_PAIR(BGl_symbol1923z00zz__expander_srfi0z00,
						BgL_arg1211z00_1165);
				}
			return BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00;
		}

	}



/* register-eval-srfi! */
	BGL_EXPORTED_DEF obj_t bgl_register_eval_srfi(obj_t BgL_srfiz00_3)
	{
		{	/* Eval/expdsrfi0.scm 185 */
			{	/* Eval/expdsrfi0.scm 186 */
				obj_t BgL_top2028z00_2424;

				BgL_top2028z00_2424 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2028z00_2424,
					BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BUNSPEC;
				{	/* Eval/expdsrfi0.scm 186 */
					obj_t BgL_tmp2027z00_2423;

					BgL_tmp2027z00_2423 =
						(BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 =
						MAKE_YOUNG_PAIR(BgL_srfiz00_3,
							BGl_srfizd2evalzd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2028z00_2424);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2027z00_2423;
				}
			}
		}

	}



/* &register-eval-srfi! */
	obj_t BGl_z62registerzd2evalzd2srfiz12z70zz__expander_srfi0z00(obj_t
		BgL_envz00_2281, obj_t BgL_srfiz00_2282)
	{
		{	/* Eval/expdsrfi0.scm 185 */
			{	/* Eval/expdsrfi0.scm 186 */
				obj_t BgL_auxz00_2432;

				if (SYMBOLP(BgL_srfiz00_2282))
					{	/* Eval/expdsrfi0.scm 186 */
						BgL_auxz00_2432 = BgL_srfiz00_2282;
					}
				else
					{
						obj_t BgL_auxz00_2435;

						BgL_auxz00_2435 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(7622L),
							BGl_string1926z00zz__expander_srfi0z00,
							BGl_string1927z00zz__expander_srfi0z00, BgL_srfiz00_2282);
						FAILURE(BgL_auxz00_2435, BFALSE, BFALSE);
					}
				return bgl_register_eval_srfi(BgL_auxz00_2432);
			}
		}

	}



/* unregister-eval-srfi! */
	BGL_EXPORTED_DEF obj_t
		BGl_unregisterzd2evalzd2srfiz12z12zz__expander_srfi0z00(obj_t BgL_srfiz00_4)
	{
		{	/* Eval/expdsrfi0.scm 192 */
			{	/* Eval/expdsrfi0.scm 193 */
				obj_t BgL_top2031z00_2441;

				BgL_top2031z00_2441 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2031z00_2441,
					BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BUNSPEC;
				{	/* Eval/expdsrfi0.scm 193 */
					obj_t BgL_tmp2030z00_2440;

					BgL_tmp2030z00_2440 =
						(BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 =
						bgl_remq_bang(BgL_srfiz00_4,
							BGl_srfizd2evalzd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2031z00_2441);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2030z00_2440;
				}
			}
		}

	}



/* &unregister-eval-srfi! */
	obj_t BGl_z62unregisterzd2evalzd2srfiz12z70zz__expander_srfi0z00(obj_t
		BgL_envz00_2283, obj_t BgL_srfiz00_2284)
	{
		{	/* Eval/expdsrfi0.scm 192 */
			{	/* Eval/expdsrfi0.scm 193 */
				obj_t BgL_auxz00_2449;

				if (SYMBOLP(BgL_srfiz00_2284))
					{	/* Eval/expdsrfi0.scm 193 */
						BgL_auxz00_2449 = BgL_srfiz00_2284;
					}
				else
					{
						obj_t BgL_auxz00_2452;

						BgL_auxz00_2452 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(7980L),
							BGl_string1928z00zz__expander_srfi0z00,
							BGl_string1927z00zz__expander_srfi0z00, BgL_srfiz00_2284);
						FAILURE(BgL_auxz00_2452, BFALSE, BFALSE);
					}
				return
					BGl_unregisterzd2evalzd2srfiz12z12zz__expander_srfi0z00
					(BgL_auxz00_2449);
			}
		}

	}



/* register-compile-srfi! */
	BGL_EXPORTED_DEF obj_t
		BGl_registerzd2compilezd2srfiz12z12zz__expander_srfi0z00(obj_t
		BgL_srfiz00_5)
	{
		{	/* Eval/expdsrfi0.scm 199 */
			{	/* Eval/expdsrfi0.scm 200 */
				obj_t BgL_top2034z00_2458;

				BgL_top2034z00_2458 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2034z00_2458,
					BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BUNSPEC;
				{	/* Eval/expdsrfi0.scm 200 */
					obj_t BgL_tmp2033z00_2457;

					{	/* Eval/expdsrfi0.scm 201 */
						obj_t BgL_arg1217z00_1873;

						if (CBOOL(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00))
							{	/* Eval/expdsrfi0.scm 170 */
								BFALSE;
							}
						else
							{	/* Eval/expdsrfi0.scm 170 */
								BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
									BGl_srfizd2commonzd2listz00zz__expander_srfi0z00();
							}
						BgL_arg1217z00_1873 =
							BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00;
						BgL_tmp2033z00_2457 =
							(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
							MAKE_YOUNG_PAIR(BgL_srfiz00_5, BgL_arg1217z00_1873), BUNSPEC);
					}
					BGL_EXITD_POP_PROTECT(BgL_top2034z00_2458);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2033z00_2457;
				}
			}
		}

	}



/* &register-compile-srfi! */
	obj_t BGl_z62registerzd2compilezd2srfiz12z70zz__expander_srfi0z00(obj_t
		BgL_envz00_2285, obj_t BgL_srfiz00_2286)
	{
		{	/* Eval/expdsrfi0.scm 199 */
			{	/* Eval/expdsrfi0.scm 200 */
				obj_t BgL_auxz00_2468;

				if (SYMBOLP(BgL_srfiz00_2286))
					{	/* Eval/expdsrfi0.scm 200 */
						BgL_auxz00_2468 = BgL_srfiz00_2286;
					}
				else
					{
						obj_t BgL_auxz00_2471;

						BgL_auxz00_2471 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(8340L),
							BGl_string1929z00zz__expander_srfi0z00,
							BGl_string1927z00zz__expander_srfi0z00, BgL_srfiz00_2286);
						FAILURE(BgL_auxz00_2471, BFALSE, BFALSE);
					}
				return
					BGl_registerzd2compilezd2srfiz12z12zz__expander_srfi0z00
					(BgL_auxz00_2468);
			}
		}

	}



/* unregister-compile-srfi! */
	BGL_EXPORTED_DEF obj_t
		BGl_unregisterzd2compilezd2srfiz12z12zz__expander_srfi0z00(obj_t
		BgL_srfiz00_6)
	{
		{	/* Eval/expdsrfi0.scm 206 */
			{	/* Eval/expdsrfi0.scm 207 */
				obj_t BgL_top2038z00_2477;

				BgL_top2038z00_2477 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2038z00_2477,
					BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BUNSPEC;
				{	/* Eval/expdsrfi0.scm 207 */
					obj_t BgL_tmp2037z00_2476;

					{	/* Eval/expdsrfi0.scm 208 */
						obj_t BgL_arg1218z00_1874;

						if (CBOOL(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00))
							{	/* Eval/expdsrfi0.scm 170 */
								BFALSE;
							}
						else
							{	/* Eval/expdsrfi0.scm 170 */
								BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
									BGl_srfizd2commonzd2listz00zz__expander_srfi0z00();
							}
						BgL_arg1218z00_1874 =
							BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00;
						BgL_tmp2037z00_2476 =
							(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
							bgl_remq_bang(BgL_srfiz00_6, BgL_arg1218z00_1874), BUNSPEC);
					}
					BGL_EXITD_POP_PROTECT(BgL_top2038z00_2477);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2037z00_2476;
				}
			}
		}

	}



/* &unregister-compile-srfi! */
	obj_t BGl_z62unregisterzd2compilezd2srfiz12z70zz__expander_srfi0z00(obj_t
		BgL_envz00_2287, obj_t BgL_srfiz00_2288)
	{
		{	/* Eval/expdsrfi0.scm 206 */
			{	/* Eval/expdsrfi0.scm 207 */
				obj_t BgL_auxz00_2487;

				if (SYMBOLP(BgL_srfiz00_2288))
					{	/* Eval/expdsrfi0.scm 207 */
						BgL_auxz00_2487 = BgL_srfiz00_2288;
					}
				else
					{
						obj_t BgL_auxz00_2490;

						BgL_auxz00_2490 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(8707L),
							BGl_string1930z00zz__expander_srfi0z00,
							BGl_string1927z00zz__expander_srfi0z00, BgL_srfiz00_2288);
						FAILURE(BgL_auxz00_2490, BFALSE, BFALSE);
					}
				return
					BGl_unregisterzd2compilezd2srfiz12z12zz__expander_srfi0z00
					(BgL_auxz00_2487);
			}
		}

	}



/* register-srfi! */
	BGL_EXPORTED_DEF obj_t BGl_registerzd2srfiz12zc0zz__expander_srfi0z00(obj_t
		BgL_srfiz00_7)
	{
		{	/* Eval/expdsrfi0.scm 213 */
			{	/* Eval/expdsrfi0.scm 186 */
				obj_t BgL_top2042z00_2496;

				BgL_top2042z00_2496 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2042z00_2496,
					BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BUNSPEC;
				{	/* Eval/expdsrfi0.scm 186 */
					obj_t BgL_tmp2041z00_2495;

					BgL_tmp2041z00_2495 =
						(BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 =
						MAKE_YOUNG_PAIR(BgL_srfiz00_7,
							BGl_srfizd2evalzd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2042z00_2496);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					BgL_tmp2041z00_2495;
				}
			}
			{	/* Eval/expdsrfi0.scm 200 */
				obj_t BgL_top2044z00_2505;

				BgL_top2044z00_2505 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2044z00_2505,
					BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BUNSPEC;
				{	/* Eval/expdsrfi0.scm 200 */
					obj_t BgL_tmp2043z00_2504;

					BgL_tmp2043z00_2504 =
						(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
						MAKE_YOUNG_PAIR(BgL_srfiz00_7,
							BGl_srfizd2compilezd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2044z00_2505);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2043z00_2504;
				}
			}
		}

	}



/* &register-srfi! */
	obj_t BGl_z62registerzd2srfiz12za2zz__expander_srfi0z00(obj_t BgL_envz00_2289,
		obj_t BgL_srfiz00_2290)
	{
		{	/* Eval/expdsrfi0.scm 213 */
			{	/* Eval/expdsrfi0.scm 214 */
				obj_t BgL_auxz00_2513;

				if (SYMBOLP(BgL_srfiz00_2290))
					{	/* Eval/expdsrfi0.scm 214 */
						BgL_auxz00_2513 = BgL_srfiz00_2290;
					}
				else
					{
						obj_t BgL_auxz00_2516;

						BgL_auxz00_2516 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(9090L),
							BGl_string1931z00zz__expander_srfi0z00,
							BGl_string1927z00zz__expander_srfi0z00, BgL_srfiz00_2290);
						FAILURE(BgL_auxz00_2516, BFALSE, BFALSE);
					}
				return BGl_registerzd2srfiz12zc0zz__expander_srfi0z00(BgL_auxz00_2513);
			}
		}

	}



/* unregister-srfi! */
	BGL_EXPORTED_DEF obj_t BGl_unregisterzd2srfiz12zc0zz__expander_srfi0z00(obj_t
		BgL_srfiz00_8)
	{
		{	/* Eval/expdsrfi0.scm 220 */
			{	/* Eval/expdsrfi0.scm 193 */
				obj_t BgL_top2047z00_2522;

				BgL_top2047z00_2522 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2047z00_2522,
					BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BUNSPEC;
				{	/* Eval/expdsrfi0.scm 193 */
					obj_t BgL_tmp2046z00_2521;

					BgL_tmp2046z00_2521 =
						(BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 =
						bgl_remq_bang(BgL_srfiz00_8,
							BGl_srfizd2evalzd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2047z00_2522);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					BgL_tmp2046z00_2521;
				}
			}
			{	/* Eval/expdsrfi0.scm 207 */
				obj_t BgL_top2049z00_2531;

				BgL_top2049z00_2531 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2049z00_2531,
					BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BUNSPEC;
				{	/* Eval/expdsrfi0.scm 207 */
					obj_t BgL_tmp2048z00_2530;

					BgL_tmp2048z00_2530 =
						(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
						bgl_remq_bang(BgL_srfiz00_8,
							BGl_srfizd2compilezd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2049z00_2531);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2048z00_2530;
				}
			}
		}

	}



/* &unregister-srfi! */
	obj_t BGl_z62unregisterzd2srfiz12za2zz__expander_srfi0z00(obj_t
		BgL_envz00_2291, obj_t BgL_srfiz00_2292)
	{
		{	/* Eval/expdsrfi0.scm 220 */
			{	/* Eval/expdsrfi0.scm 221 */
				obj_t BgL_auxz00_2539;

				if (SYMBOLP(BgL_srfiz00_2292))
					{	/* Eval/expdsrfi0.scm 221 */
						BgL_auxz00_2539 = BgL_srfiz00_2292;
					}
				else
					{
						obj_t BgL_auxz00_2542;

						BgL_auxz00_2542 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(9419L),
							BGl_string1932z00zz__expander_srfi0z00,
							BGl_string1927z00zz__expander_srfi0z00, BgL_srfiz00_2292);
						FAILURE(BgL_auxz00_2542, BFALSE, BFALSE);
					}
				return
					BGl_unregisterzd2srfiz12zc0zz__expander_srfi0z00(BgL_auxz00_2539);
			}
		}

	}



/* expand-eval-cond-expand */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2evalzd2condzd2expandzd2zz__expander_srfi0z00(obj_t BgL_xz00_9,
		obj_t BgL_ez00_10)
	{
		{	/* Eval/expdsrfi0.scm 227 */
			return
				BGl_expandzd2condzd2expandz00zz__expander_srfi0z00(BgL_xz00_9,
				BgL_ez00_10, BGl_srfizd2evalzd2listz00zz__expander_srfi0z00());
		}

	}



/* &expand-eval-cond-expand */
	obj_t BGl_z62expandzd2evalzd2condzd2expandzb0zz__expander_srfi0z00(obj_t
		BgL_envz00_2293, obj_t BgL_xz00_2294, obj_t BgL_ez00_2295)
	{
		{	/* Eval/expdsrfi0.scm 227 */
			{	/* Eval/expdsrfi0.scm 228 */
				obj_t BgL_auxz00_2556;
				obj_t BgL_auxz00_2549;

				if (PROCEDUREP(BgL_ez00_2295))
					{	/* Eval/expdsrfi0.scm 228 */
						BgL_auxz00_2556 = BgL_ez00_2295;
					}
				else
					{
						obj_t BgL_auxz00_2559;

						BgL_auxz00_2559 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(9745L),
							BGl_string1933z00zz__expander_srfi0z00,
							BGl_string1935z00zz__expander_srfi0z00, BgL_ez00_2295);
						FAILURE(BgL_auxz00_2559, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_2294))
					{	/* Eval/expdsrfi0.scm 228 */
						BgL_auxz00_2549 = BgL_xz00_2294;
					}
				else
					{
						obj_t BgL_auxz00_2552;

						BgL_auxz00_2552 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(9745L),
							BGl_string1933z00zz__expander_srfi0z00,
							BGl_string1934z00zz__expander_srfi0z00, BgL_xz00_2294);
						FAILURE(BgL_auxz00_2552, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2evalzd2condzd2expandzd2zz__expander_srfi0z00
					(BgL_auxz00_2549, BgL_auxz00_2556);
			}
		}

	}



/* expand-compile-cond-expand */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2compilezd2condzd2expandzd2zz__expander_srfi0z00(obj_t
		BgL_xz00_11, obj_t BgL_ez00_12)
	{
		{	/* Eval/expdsrfi0.scm 233 */
			{	/* Eval/expdsrfi0.scm 234 */
				obj_t BgL_arg1220z00_1884;

				if (CBOOL(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00))
					{	/* Eval/expdsrfi0.scm 170 */
						BFALSE;
					}
				else
					{	/* Eval/expdsrfi0.scm 170 */
						BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
							BGl_srfizd2commonzd2listz00zz__expander_srfi0z00();
					}
				BgL_arg1220z00_1884 =
					BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00;
				return BGl_expandzd2condzd2expandz00zz__expander_srfi0z00(BgL_xz00_11,
					BgL_ez00_12, BgL_arg1220z00_1884);
			}
		}

	}



/* &expand-compile-cond-expand */
	obj_t BGl_z62expandzd2compilezd2condzd2expandzb0zz__expander_srfi0z00(obj_t
		BgL_envz00_2296, obj_t BgL_xz00_2297, obj_t BgL_ez00_2298)
	{
		{	/* Eval/expdsrfi0.scm 233 */
			{	/* Eval/expdsrfi0.scm 234 */
				obj_t BgL_auxz00_2575;
				obj_t BgL_auxz00_2568;

				if (PROCEDUREP(BgL_ez00_2298))
					{	/* Eval/expdsrfi0.scm 234 */
						BgL_auxz00_2575 = BgL_ez00_2298;
					}
				else
					{
						obj_t BgL_auxz00_2578;

						BgL_auxz00_2578 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(10055L),
							BGl_string1936z00zz__expander_srfi0z00,
							BGl_string1935z00zz__expander_srfi0z00, BgL_ez00_2298);
						FAILURE(BgL_auxz00_2578, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_2297))
					{	/* Eval/expdsrfi0.scm 234 */
						BgL_auxz00_2568 = BgL_xz00_2297;
					}
				else
					{
						obj_t BgL_auxz00_2571;

						BgL_auxz00_2571 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(10055L),
							BGl_string1936z00zz__expander_srfi0z00,
							BGl_string1934z00zz__expander_srfi0z00, BgL_xz00_2297);
						FAILURE(BgL_auxz00_2571, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2compilezd2condzd2expandzd2zz__expander_srfi0z00
					(BgL_auxz00_2568, BgL_auxz00_2575);
			}
		}

	}



/* compile-srfi? */
	BGL_EXPORTED_DEF bool_t BGl_compilezd2srfizf3z21zz__expander_srfi0z00(obj_t
		BgL_srfiz00_13)
	{
		{	/* Eval/expdsrfi0.scm 239 */
			{	/* Eval/expdsrfi0.scm 240 */
				obj_t BgL_top2057z00_2584;

				BgL_top2057z00_2584 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2057z00_2584,
					BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BUNSPEC;
				{	/* Eval/expdsrfi0.scm 240 */
					bool_t BgL_tmp2056z00_2583;

					{	/* Eval/expdsrfi0.scm 241 */
						obj_t BgL_arg1221z00_1885;

						if (CBOOL(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00))
							{	/* Eval/expdsrfi0.scm 170 */
								BFALSE;
							}
						else
							{	/* Eval/expdsrfi0.scm 170 */
								BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
									BGl_srfizd2commonzd2listz00zz__expander_srfi0z00();
							}
						BgL_arg1221z00_1885 =
							BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00;
						BgL_tmp2056z00_2583 =
							CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_srfiz00_13,
								BgL_arg1221z00_1885));
					}
					BGL_EXITD_POP_PROTECT(BgL_top2057z00_2584);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2056z00_2583;
				}
			}
		}

	}



/* &compile-srfi? */
	obj_t BGl_z62compilezd2srfizf3z43zz__expander_srfi0z00(obj_t BgL_envz00_2299,
		obj_t BgL_srfiz00_2300)
	{
		{	/* Eval/expdsrfi0.scm 239 */
			{	/* Eval/expdsrfi0.scm 240 */
				bool_t BgL_tmpz00_2595;

				{	/* Eval/expdsrfi0.scm 240 */
					obj_t BgL_auxz00_2596;

					if (SYMBOLP(BgL_srfiz00_2300))
						{	/* Eval/expdsrfi0.scm 240 */
							BgL_auxz00_2596 = BgL_srfiz00_2300;
						}
					else
						{
							obj_t BgL_auxz00_2599;

							BgL_auxz00_2599 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1925z00zz__expander_srfi0z00, BINT(10332L),
								BGl_string1937z00zz__expander_srfi0z00,
								BGl_string1927z00zz__expander_srfi0z00, BgL_srfiz00_2300);
							FAILURE(BgL_auxz00_2599, BFALSE, BFALSE);
						}
					BgL_tmpz00_2595 =
						BGl_compilezd2srfizf3z21zz__expander_srfi0z00(BgL_auxz00_2596);
				}
				return BBOOL(BgL_tmpz00_2595);
			}
		}

	}



/* eval-srfi? */
	BGL_EXPORTED_DEF bool_t BGl_evalzd2srfizf3z21zz__expander_srfi0z00(obj_t
		BgL_srfiz00_14)
	{
		{	/* Eval/expdsrfi0.scm 246 */
			{	/* Eval/expdsrfi0.scm 247 */
				obj_t BgL_top2061z00_2606;

				BgL_top2061z00_2606 = BGL_EXITD_TOP_AS_OBJ();
				BGL_MUTEX_LOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BGL_EXITD_PUSH_PROTECT(BgL_top2061z00_2606,
					BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
				BUNSPEC;
				{	/* Eval/expdsrfi0.scm 247 */
					bool_t BgL_tmp2060z00_2605;

					{	/* Eval/expdsrfi0.scm 248 */
						obj_t BgL_arg1222z00_1886;

						BgL_arg1222z00_1886 =
							BGl_srfizd2evalzd2listz00zz__expander_srfi0z00();
						BgL_tmp2060z00_2605 =
							CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_srfiz00_14,
								BgL_arg1222z00_1886));
					}
					BGL_EXITD_POP_PROTECT(BgL_top2061z00_2606);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2060z00_2605;
				}
			}
		}

	}



/* &eval-srfi? */
	obj_t BGl_z62evalzd2srfizf3z43zz__expander_srfi0z00(obj_t BgL_envz00_2301,
		obj_t BgL_srfiz00_2302)
	{
		{	/* Eval/expdsrfi0.scm 246 */
			{	/* Eval/expdsrfi0.scm 247 */
				bool_t BgL_tmpz00_2615;

				{	/* Eval/expdsrfi0.scm 247 */
					obj_t BgL_auxz00_2616;

					if (SYMBOLP(BgL_srfiz00_2302))
						{	/* Eval/expdsrfi0.scm 247 */
							BgL_auxz00_2616 = BgL_srfiz00_2302;
						}
					else
						{
							obj_t BgL_auxz00_2619;

							BgL_auxz00_2619 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1925z00zz__expander_srfi0z00, BINT(10653L),
								BGl_string1938z00zz__expander_srfi0z00,
								BGl_string1927z00zz__expander_srfi0z00, BgL_srfiz00_2302);
							FAILURE(BgL_auxz00_2619, BFALSE, BFALSE);
						}
					BgL_tmpz00_2615 =
						BGl_evalzd2srfizf3z21zz__expander_srfi0z00(BgL_auxz00_2616);
				}
				return BBOOL(BgL_tmpz00_2615);
			}
		}

	}



/* progn */
	obj_t BGl_prognz00zz__expander_srfi0z00(obj_t BgL_bodyz00_15)
	{
		{	/* Eval/expdsrfi0.scm 253 */
			if (PAIRP(BgL_bodyz00_15))
				{	/* Eval/expdsrfi0.scm 255 */
					if (NULLP(CDR(BgL_bodyz00_15)))
						{	/* Eval/expdsrfi0.scm 256 */
							return CAR(BgL_bodyz00_15);
						}
					else
						{	/* Eval/expdsrfi0.scm 257 */
							obj_t BgL_arg1226z00_1177;

							BgL_arg1226z00_1177 =
								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_15,
								BNIL);
							return MAKE_YOUNG_PAIR(BGl_symbol1939z00zz__expander_srfi0z00,
								BgL_arg1226z00_1177);
						}
				}
			else
				{	/* Eval/expdsrfi0.scm 255 */
					obj_t BgL_arg1232z00_1179;

					{	/* Eval/expdsrfi0.scm 255 */
						obj_t BgL_arg1233z00_1180;

						if (NULLP(BgL_bodyz00_15))
							{	/* Eval/expdsrfi0.scm 255 */
								BgL_arg1233z00_1180 = BUNSPEC;
							}
						else
							{	/* Eval/expdsrfi0.scm 255 */
								BgL_arg1233z00_1180 = BgL_bodyz00_15;
							}
						BgL_arg1232z00_1179 = MAKE_YOUNG_PAIR(BgL_arg1233z00_1180, BNIL);
					}
					return
						MAKE_YOUNG_PAIR(BGl_symbol1939z00zz__expander_srfi0z00,
						BgL_arg1232z00_1179);
				}
		}

	}



/* expand-cond-expand */
	BGL_EXPORTED_DEF obj_t
		BGl_expandzd2condzd2expandz00zz__expander_srfi0z00(obj_t BgL_xz00_16,
		obj_t BgL_ez00_17, obj_t BgL_featuresz00_18)
	{
		{	/* Eval/expdsrfi0.scm 262 */
			{
				obj_t BgL_clausez00_1183;
				obj_t BgL_elsez00_1184;

				if (NULLP(BgL_xz00_16))
					{	/* Eval/expdsrfi0.scm 266 */
						return
							BGl_expandzd2errorzd2zz__expandz00
							(BGl_string1941z00zz__expander_srfi0z00,
							BGl_string1942z00zz__expander_srfi0z00, BgL_xz00_16);
					}
				else
					{	/* Eval/expdsrfi0.scm 266 */
						if (
							(CAR(
									((obj_t) BgL_xz00_16)) ==
								BGl_symbol1943z00zz__expander_srfi0z00))
							{	/* Eval/expdsrfi0.scm 266 */
								if (NULLP(CDR(((obj_t) BgL_xz00_16))))
									{	/* Eval/expdsrfi0.scm 266 */
										return BUNSPEC;
									}
								else
									{	/* Eval/expdsrfi0.scm 266 */
										obj_t BgL_cdrzd2165zd2_1193;

										BgL_cdrzd2165zd2_1193 = CDR(((obj_t) BgL_xz00_16));
										if (PAIRP(BgL_cdrzd2165zd2_1193))
											{	/* Eval/expdsrfi0.scm 266 */
												BgL_clausez00_1183 = CAR(BgL_cdrzd2165zd2_1193);
												BgL_elsez00_1184 = CDR(BgL_cdrzd2165zd2_1193);
											BgL_tagzd2153zd2_1185:
												{
													obj_t BgL_featurez00_1235;
													obj_t BgL_bodyz00_1236;
													obj_t BgL_reqz00_1225;
													obj_t BgL_bodyz00_1226;
													obj_t BgL_bodyz00_1203;

													if (PAIRP(BgL_clausez00_1183))
														{	/* Eval/expdsrfi0.scm 266 */
															if (
																(CAR(
																		((obj_t) BgL_clausez00_1183)) ==
																	BGl_symbol1944z00zz__expander_srfi0z00))
																{	/* Eval/expdsrfi0.scm 266 */
																	obj_t BgL_arg1256z00_1243;

																	BgL_arg1256z00_1243 =
																		CDR(((obj_t) BgL_clausez00_1183));
																	BgL_bodyz00_1203 = BgL_arg1256z00_1243;
																	if (NULLP(BgL_elsez00_1184))
																		{	/* Eval/expdsrfi0.scm 272 */
																			if (NULLP(BgL_bodyz00_1203))
																				{	/* Eval/expdsrfi0.scm 273 */
																					return BUNSPEC;
																				}
																			else
																				{	/* Eval/expdsrfi0.scm 275 */
																					obj_t BgL_arg1408z00_1375;

																					BgL_arg1408z00_1375 =
																						BGl_evepairifyz00zz__prognz00
																						(BGl_prognz00zz__expander_srfi0z00
																						(BgL_bodyz00_1203), BgL_xz00_16);
																					return (VA_PROCEDUREP(BgL_ez00_17)
																						? ((obj_t(*)(obj_t,
																									...))
																							PROCEDURE_ENTRY(BgL_ez00_17))
																						(BgL_ez00_17, BgL_arg1408z00_1375,
																							BgL_ez00_17,
																							BEOA) : ((obj_t(*)(obj_t, obj_t,
																									obj_t))
																							PROCEDURE_ENTRY(BgL_ez00_17))
																						(BgL_ez00_17, BgL_arg1408z00_1375,
																							BgL_ez00_17));
																				}
																		}
																	else
																		{	/* Eval/expdsrfi0.scm 272 */
																			return
																				BGl_expandzd2errorzd2zz__expandz00
																				(BGl_string1941z00zz__expander_srfi0z00,
																				BGl_string1942z00zz__expander_srfi0z00,
																				BgL_xz00_16);
																		}
																}
															else
																{	/* Eval/expdsrfi0.scm 266 */
																	obj_t BgL_carzd2224zd2_1244;

																	BgL_carzd2224zd2_1244 =
																		CAR(((obj_t) BgL_clausez00_1183));
																	if (PAIRP(BgL_carzd2224zd2_1244))
																		{	/* Eval/expdsrfi0.scm 266 */
																			if (
																				(CAR(BgL_carzd2224zd2_1244) ==
																					BGl_symbol1946z00zz__expander_srfi0z00))
																				{	/* Eval/expdsrfi0.scm 266 */
																					if (NULLP(CDR(BgL_carzd2224zd2_1244)))
																						{	/* Eval/expdsrfi0.scm 266 */
																							obj_t BgL_arg1275z00_1250;

																							BgL_arg1275z00_1250 =
																								CDR(
																								((obj_t) BgL_clausez00_1183));
																							{	/* Eval/expdsrfi0.scm 278 */
																								obj_t BgL_arg1410z00_1958;

																								BgL_arg1410z00_1958 =
																									BGl_evepairifyz00zz__prognz00
																									(BGl_prognz00zz__expander_srfi0z00
																									(BgL_arg1275z00_1250),
																									BgL_xz00_16);
																								return (VA_PROCEDUREP
																									(BgL_ez00_17)
																									? ((obj_t(*)(obj_t,
																												...))
																										PROCEDURE_ENTRY
																										(BgL_ez00_17)) (BgL_ez00_17,
																										BgL_arg1410z00_1958,
																										BgL_ez00_17,
																										BEOA) : ((obj_t(*)(obj_t,
																												obj_t,
																												obj_t))
																										PROCEDURE_ENTRY
																										(BgL_ez00_17)) (BgL_ez00_17,
																										BgL_arg1410z00_1958,
																										BgL_ez00_17));
																							}
																						}
																					else
																						{	/* Eval/expdsrfi0.scm 266 */
																							obj_t BgL_cdrzd2244zd2_1251;

																							BgL_cdrzd2244zd2_1251 =
																								CDR(
																								((obj_t)
																									BgL_carzd2224zd2_1244));
																							if (PAIRP(BgL_cdrzd2244zd2_1251))
																								{	/* Eval/expdsrfi0.scm 266 */
																									if (NULLP(CDR
																											(BgL_cdrzd2244zd2_1251)))
																										{	/* Eval/expdsrfi0.scm 266 */
																											obj_t BgL_arg1279z00_1255;
																											obj_t BgL_arg1281z00_1256;

																											BgL_arg1279z00_1255 =
																												CAR
																												(BgL_cdrzd2244zd2_1251);
																											BgL_arg1281z00_1256 =
																												CDR(((obj_t)
																													BgL_clausez00_1183));
																											{	/* Eval/expdsrfi0.scm 281 */
																												obj_t
																													BgL_arg1412z00_1965;
																												{	/* Eval/expdsrfi0.scm 281 */
																													obj_t
																														BgL_arg1413z00_1966;
																													{	/* Eval/expdsrfi0.scm 281 */
																														obj_t
																															BgL_arg1414z00_1967;
																														{	/* Eval/expdsrfi0.scm 281 */
																															obj_t
																																BgL_arg1415z00_1968;
																															obj_t
																																BgL_arg1416z00_1969;
																															BgL_arg1415z00_1968
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1279z00_1255,
																																BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																(BgL_arg1281z00_1256,
																																	BNIL));
																															BgL_arg1416z00_1969
																																=
																																BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																(BgL_elsez00_1184,
																																BNIL);
																															BgL_arg1414z00_1967
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1415z00_1968,
																																BgL_arg1416z00_1969);
																														}
																														BgL_arg1413z00_1966
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol1943z00zz__expander_srfi0z00,
																															BgL_arg1414z00_1967);
																													}
																													BgL_arg1412z00_1965 =
																														BGl_evepairifyz00zz__prognz00
																														(BgL_arg1413z00_1966,
																														BgL_xz00_16);
																												}
																												return
																													(VA_PROCEDUREP
																													(BgL_ez00_17)
																													? ((obj_t(*)(obj_t,
																																...))
																														PROCEDURE_ENTRY
																														(BgL_ez00_17))
																													(BgL_ez00_17,
																														BgL_arg1412z00_1965,
																														BgL_ez00_17,
																														BEOA)
																													: ((obj_t(*)(obj_t,
																																obj_t,
																																obj_t))
																														PROCEDURE_ENTRY
																														(BgL_ez00_17))
																													(BgL_ez00_17,
																														BgL_arg1412z00_1965,
																														BgL_ez00_17));
																											}
																										}
																									else
																										{	/* Eval/expdsrfi0.scm 266 */
																											obj_t
																												BgL_cdrzd2271zd2_1257;
																											{	/* Eval/expdsrfi0.scm 266 */
																												obj_t BgL_pairz00_1972;

																												BgL_pairz00_1972 =
																													CAR(
																													((obj_t)
																														BgL_clausez00_1183));
																												BgL_cdrzd2271zd2_1257 =
																													CDR(BgL_pairz00_1972);
																											}
																											{	/* Eval/expdsrfi0.scm 266 */
																												obj_t
																													BgL_cdrzd2277zd2_1258;
																												BgL_cdrzd2277zd2_1258 =
																													CDR(((obj_t)
																														BgL_cdrzd2271zd2_1257));
																												if (PAIRP
																													(BgL_cdrzd2277zd2_1258))
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_arg1283z00_1260;
																														obj_t
																															BgL_arg1284z00_1261;
																														obj_t
																															BgL_arg1285z00_1262;
																														obj_t
																															BgL_arg1287z00_1263;
																														BgL_arg1283z00_1260
																															=
																															CAR(((obj_t)
																																BgL_cdrzd2271zd2_1257));
																														BgL_arg1284z00_1261
																															=
																															CAR
																															(BgL_cdrzd2277zd2_1258);
																														BgL_arg1285z00_1262
																															=
																															CDR
																															(BgL_cdrzd2277zd2_1258);
																														BgL_arg1287z00_1263
																															=
																															CDR(((obj_t)
																																BgL_clausez00_1183));
																														{	/* Eval/expdsrfi0.scm 287 */
																															obj_t
																																BgL_arg1418z00_1978;
																															if (NULLP
																																(BgL_arg1287z00_1263))
																																{	/* Eval/expdsrfi0.scm 287 */
																																	BgL_arg1418z00_1978
																																		=
																																		BGl_list1948z00zz__expander_srfi0z00;
																																}
																															else
																																{	/* Eval/expdsrfi0.scm 287 */
																																	BgL_arg1418z00_1978
																																		=
																																		BgL_arg1287z00_1263;
																																}
																															return
																																BGl_expandzd2condzd2expandzd2andzd2zz__expander_srfi0z00
																																(BgL_xz00_16,
																																BgL_ez00_17,
																																BgL_arg1283z00_1260,
																																BgL_arg1284z00_1261,
																																BgL_arg1285z00_1262,
																																BgL_arg1418z00_1978,
																																BgL_elsez00_1184);
																														}
																													}
																												else
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_carzd2347zd2_1264;
																														BgL_carzd2347zd2_1264
																															=
																															CAR(((obj_t)
																																BgL_clausez00_1183));
																														if (SYMBOLP
																															(BgL_carzd2347zd2_1264))
																															{	/* Eval/expdsrfi0.scm 266 */
																																obj_t
																																	BgL_arg1289z00_1266;
																																BgL_arg1289z00_1266
																																	=
																																	CDR(((obj_t)
																																		BgL_clausez00_1183));
																																BgL_featurez00_1235
																																	=
																																	BgL_carzd2347zd2_1264;
																																BgL_bodyz00_1236
																																	=
																																	BgL_arg1289z00_1266;
																															BgL_tagzd2198zd2_1237:
																																{	/* Eval/expdsrfi0.scm 318 */
																																	obj_t
																																		BgL_arg1453z00_1418;
																																	{	/* Eval/expdsrfi0.scm 318 */
																																		obj_t
																																			BgL_arg1454z00_1419;
																																		if (CBOOL
																																			(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																																				(BgL_featurez00_1235,
																																					BgL_featuresz00_18)))
																																			{	/* Eval/expdsrfi0.scm 318 */
																																				if (NULLP(BgL_bodyz00_1236))
																																					{	/* Eval/expdsrfi0.scm 319 */
																																						BgL_arg1454z00_1419
																																							=
																																							BUNSPEC;
																																					}
																																				else
																																					{	/* Eval/expdsrfi0.scm 319 */
																																						BgL_arg1454z00_1419
																																							=
																																							BGl_prognz00zz__expander_srfi0z00
																																							(BgL_bodyz00_1236);
																																					}
																																			}
																																		else
																																			{	/* Eval/expdsrfi0.scm 322 */
																																				obj_t
																																					BgL_arg1457z00_1422;
																																				BgL_arg1457z00_1422
																																					=
																																					BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																					(BgL_elsez00_1184,
																																					BNIL);
																																				BgL_arg1454z00_1419
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol1943z00zz__expander_srfi0z00,
																																					BgL_arg1457z00_1422);
																																			}
																																		BgL_arg1453z00_1418
																																			=
																																			BGl_evepairifyz00zz__prognz00
																																			(BgL_arg1454z00_1419,
																																			BgL_xz00_16);
																																	}
																																	return
																																		(VA_PROCEDUREP
																																		(BgL_ez00_17)
																																		? ((obj_t(*)
																																				(obj_t,
																																					...))
																																			PROCEDURE_ENTRY
																																			(BgL_ez00_17))
																																		(BgL_ez00_17,
																																			BgL_arg1453z00_1418,
																																			BgL_ez00_17,
																																			BEOA)
																																		: ((obj_t(*)
																																				(obj_t,
																																					obj_t,
																																					obj_t))
																																			PROCEDURE_ENTRY
																																			(BgL_ez00_17))
																																		(BgL_ez00_17,
																																			BgL_arg1453z00_1418,
																																			BgL_ez00_17));
																																}
																															}
																														else
																															{	/* Eval/expdsrfi0.scm 266 */
																																return
																																	BGl_expandzd2errorzd2zz__expandz00
																																	(BGl_string1941z00zz__expander_srfi0z00,
																																	BGl_string1942z00zz__expander_srfi0z00,
																																	BgL_xz00_16);
																															}
																													}
																											}
																										}
																								}
																							else
																								{	/* Eval/expdsrfi0.scm 266 */
																									obj_t BgL_carzd2426zd2_1269;

																									BgL_carzd2426zd2_1269 =
																										CAR(
																										((obj_t)
																											BgL_clausez00_1183));
																									if (SYMBOLP
																										(BgL_carzd2426zd2_1269))
																										{	/* Eval/expdsrfi0.scm 266 */
																											obj_t BgL_arg1294z00_1271;

																											BgL_arg1294z00_1271 =
																												CDR(
																												((obj_t)
																													BgL_clausez00_1183));
																											{
																												obj_t BgL_bodyz00_2756;
																												obj_t
																													BgL_featurez00_2755;
																												BgL_featurez00_2755 =
																													BgL_carzd2426zd2_1269;
																												BgL_bodyz00_2756 =
																													BgL_arg1294z00_1271;
																												BgL_bodyz00_1236 =
																													BgL_bodyz00_2756;
																												BgL_featurez00_1235 =
																													BgL_featurez00_2755;
																												goto
																													BgL_tagzd2198zd2_1237;
																											}
																										}
																									else
																										{	/* Eval/expdsrfi0.scm 266 */
																											return
																												BGl_expandzd2errorzd2zz__expandz00
																												(BGl_string1941z00zz__expander_srfi0z00,
																												BGl_string1942z00zz__expander_srfi0z00,
																												BgL_xz00_16);
																										}
																								}
																						}
																				}
																			else
																				{	/* Eval/expdsrfi0.scm 266 */
																					if (
																						(CAR(
																								((obj_t) BgL_carzd2224zd2_1244))
																							==
																							BGl_symbol1949z00zz__expander_srfi0z00))
																						{	/* Eval/expdsrfi0.scm 266 */
																							if (NULLP(CDR(
																										((obj_t)
																											BgL_carzd2224zd2_1244))))
																								{	/* Eval/expdsrfi0.scm 290 */
																									obj_t BgL_arg1420z00_1988;

																									{	/* Eval/expdsrfi0.scm 290 */
																										obj_t BgL_arg1421z00_1989;

																										{	/* Eval/expdsrfi0.scm 290 */
																											obj_t BgL_arg1422z00_1990;

																											BgL_arg1422z00_1990 =
																												BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																												(BgL_elsez00_1184,
																												BNIL);
																											BgL_arg1421z00_1989 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol1943z00zz__expander_srfi0z00,
																												BgL_arg1422z00_1990);
																										}
																										BgL_arg1420z00_1988 =
																											BGl_evepairifyz00zz__prognz00
																											(BgL_arg1421z00_1989,
																											BgL_xz00_16);
																									}
																									return
																										(VA_PROCEDUREP(BgL_ez00_17)
																										? ((obj_t(*)(obj_t,
																													...))
																											PROCEDURE_ENTRY
																											(BgL_ez00_17))
																										(BgL_ez00_17,
																											BgL_arg1420z00_1988,
																											BgL_ez00_17,
																											BEOA) : ((obj_t(*)(obj_t,
																													obj_t,
																													obj_t))
																											PROCEDURE_ENTRY
																											(BgL_ez00_17))
																										(BgL_ez00_17,
																											BgL_arg1420z00_1988,
																											BgL_ez00_17));
																								}
																							else
																								{	/* Eval/expdsrfi0.scm 266 */
																									obj_t BgL_cdrzd2486zd2_1280;

																									{	/* Eval/expdsrfi0.scm 266 */
																										obj_t BgL_pairz00_1992;

																										BgL_pairz00_1992 =
																											CAR(
																											((obj_t)
																												BgL_clausez00_1183));
																										BgL_cdrzd2486zd2_1280 =
																											CDR(BgL_pairz00_1992);
																									}
																									if (PAIRP
																										(BgL_cdrzd2486zd2_1280))
																										{	/* Eval/expdsrfi0.scm 266 */
																											if (NULLP(CDR
																													(BgL_cdrzd2486zd2_1280)))
																												{	/* Eval/expdsrfi0.scm 266 */
																													obj_t
																														BgL_arg1334z00_1284;
																													obj_t
																														BgL_arg1335z00_1285;
																													BgL_arg1334z00_1284 =
																														CAR
																														(BgL_cdrzd2486zd2_1280);
																													BgL_arg1335z00_1285 =
																														CDR(((obj_t)
																															BgL_clausez00_1183));
																													{	/* Eval/expdsrfi0.scm 293 */
																														obj_t
																															BgL_arg1423z00_1996;
																														{	/* Eval/expdsrfi0.scm 293 */
																															obj_t
																																BgL_arg1424z00_1997;
																															{	/* Eval/expdsrfi0.scm 293 */
																																obj_t
																																	BgL_arg1425z00_1998;
																																{	/* Eval/expdsrfi0.scm 293 */
																																	obj_t
																																		BgL_arg1426z00_1999;
																																	obj_t
																																		BgL_arg1427z00_2000;
																																	BgL_arg1426z00_1999
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1334z00_1284,
																																		BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																		(BgL_arg1335z00_1285,
																																			BNIL));
																																	BgL_arg1427z00_2000
																																		=
																																		BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																		(BgL_elsez00_1184,
																																		BNIL);
																																	BgL_arg1425z00_1998
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1426z00_1999,
																																		BgL_arg1427z00_2000);
																																}
																																BgL_arg1424z00_1997
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol1943z00zz__expander_srfi0z00,
																																	BgL_arg1425z00_1998);
																															}
																															BgL_arg1423z00_1996
																																=
																																BGl_evepairifyz00zz__prognz00
																																(BgL_arg1424z00_1997,
																																BgL_xz00_16);
																														}
																														return
																															(VA_PROCEDUREP
																															(BgL_ez00_17)
																															? ((obj_t(*)
																																	(obj_t,
																																		...))
																																PROCEDURE_ENTRY
																																(BgL_ez00_17))
																															(BgL_ez00_17,
																																BgL_arg1423z00_1996,
																																BgL_ez00_17,
																																BEOA)
																															: ((obj_t(*)
																																	(obj_t, obj_t,
																																		obj_t))
																																PROCEDURE_ENTRY
																																(BgL_ez00_17))
																															(BgL_ez00_17,
																																BgL_arg1423z00_1996,
																																BgL_ez00_17));
																													}
																												}
																											else
																												{	/* Eval/expdsrfi0.scm 266 */
																													obj_t
																														BgL_cdrzd2519zd2_1287;
																													BgL_cdrzd2519zd2_1287
																														=
																														CDR(((obj_t)
																															BgL_cdrzd2486zd2_1280));
																													if (PAIRP
																														(BgL_cdrzd2519zd2_1287))
																														{	/* Eval/expdsrfi0.scm 266 */
																															obj_t
																																BgL_arg1337z00_1289;
																															obj_t
																																BgL_arg1338z00_1290;
																															obj_t
																																BgL_arg1339z00_1291;
																															obj_t
																																BgL_arg1341z00_1292;
																															BgL_arg1337z00_1289
																																=
																																CAR(((obj_t)
																																	BgL_cdrzd2486zd2_1280));
																															BgL_arg1338z00_1290
																																=
																																CAR
																																(BgL_cdrzd2519zd2_1287);
																															BgL_arg1339z00_1291
																																=
																																CDR
																																(BgL_cdrzd2519zd2_1287);
																															BgL_arg1341z00_1292
																																=
																																CDR(((obj_t)
																																	BgL_clausez00_1183));
																															return
																																BGl_expandzd2condzd2expandzd2orzd2zz__expander_srfi0z00
																																(BgL_xz00_16,
																																BgL_ez00_17,
																																BgL_arg1337z00_1289,
																																BgL_arg1338z00_1290,
																																BgL_arg1339z00_1291,
																																BgL_arg1341z00_1292,
																																BgL_elsez00_1184);
																														}
																													else
																														{	/* Eval/expdsrfi0.scm 266 */
																															obj_t
																																BgL_carzd2555zd2_1293;
																															BgL_carzd2555zd2_1293
																																=
																																CAR(((obj_t)
																																	BgL_clausez00_1183));
																															if (SYMBOLP
																																(BgL_carzd2555zd2_1293))
																																{	/* Eval/expdsrfi0.scm 266 */
																																	obj_t
																																		BgL_arg1343z00_1295;
																																	BgL_arg1343z00_1295
																																		=
																																		CDR(((obj_t)
																																			BgL_clausez00_1183));
																																	{
																																		obj_t
																																			BgL_bodyz00_2814;
																																		obj_t
																																			BgL_featurez00_2813;
																																		BgL_featurez00_2813
																																			=
																																			BgL_carzd2555zd2_1293;
																																		BgL_bodyz00_2814
																																			=
																																			BgL_arg1343z00_1295;
																																		BgL_bodyz00_1236
																																			=
																																			BgL_bodyz00_2814;
																																		BgL_featurez00_1235
																																			=
																																			BgL_featurez00_2813;
																																		goto
																																			BgL_tagzd2198zd2_1237;
																																	}
																																}
																															else
																																{	/* Eval/expdsrfi0.scm 266 */
																																	return
																																		BGl_expandzd2errorzd2zz__expandz00
																																		(BGl_string1941z00zz__expander_srfi0z00,
																																		BGl_string1942z00zz__expander_srfi0z00,
																																		BgL_xz00_16);
																																}
																														}
																												}
																										}
																									else
																										{	/* Eval/expdsrfi0.scm 266 */
																											obj_t
																												BgL_carzd2600zd2_1298;
																											BgL_carzd2600zd2_1298 =
																												CAR(((obj_t)
																													BgL_clausez00_1183));
																											if (SYMBOLP
																												(BgL_carzd2600zd2_1298))
																												{	/* Eval/expdsrfi0.scm 266 */
																													obj_t
																														BgL_arg1347z00_1300;
																													BgL_arg1347z00_1300 =
																														CDR(((obj_t)
																															BgL_clausez00_1183));
																													{
																														obj_t
																															BgL_bodyz00_2823;
																														obj_t
																															BgL_featurez00_2822;
																														BgL_featurez00_2822
																															=
																															BgL_carzd2600zd2_1298;
																														BgL_bodyz00_2823 =
																															BgL_arg1347z00_1300;
																														BgL_bodyz00_1236 =
																															BgL_bodyz00_2823;
																														BgL_featurez00_1235
																															=
																															BgL_featurez00_2822;
																														goto
																															BgL_tagzd2198zd2_1237;
																													}
																												}
																											else
																												{	/* Eval/expdsrfi0.scm 266 */
																													return
																														BGl_expandzd2errorzd2zz__expandz00
																														(BGl_string1941z00zz__expander_srfi0z00,
																														BGl_string1942z00zz__expander_srfi0z00,
																														BgL_xz00_16);
																												}
																										}
																								}
																						}
																					else
																						{	/* Eval/expdsrfi0.scm 266 */
																							obj_t BgL_carzd2638zd2_1303;

																							BgL_carzd2638zd2_1303 =
																								CAR(
																								((obj_t) BgL_clausez00_1183));
																							{	/* Eval/expdsrfi0.scm 266 */
																								obj_t BgL_cdrzd2642zd2_1304;

																								BgL_cdrzd2642zd2_1304 =
																									CDR(
																									((obj_t)
																										BgL_carzd2638zd2_1303));
																								if ((CAR(((obj_t)
																												BgL_carzd2638zd2_1303))
																										==
																										BGl_symbol1951z00zz__expander_srfi0z00))
																									{	/* Eval/expdsrfi0.scm 266 */
																										if (PAIRP
																											(BgL_cdrzd2642zd2_1304))
																											{	/* Eval/expdsrfi0.scm 266 */
																												if (NULLP(CDR
																														(BgL_cdrzd2642zd2_1304)))
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_arg1357z00_1310;
																														obj_t
																															BgL_arg1358z00_1311;
																														BgL_arg1357z00_1310
																															=
																															CAR
																															(BgL_cdrzd2642zd2_1304);
																														BgL_arg1358z00_1311
																															=
																															CDR(((obj_t)
																																BgL_clausez00_1183));
																														BgL_reqz00_1225 =
																															BgL_arg1357z00_1310;
																														BgL_bodyz00_1226 =
																															BgL_arg1358z00_1311;
																														{	/* Eval/expdsrfi0.scm 301 */
																															obj_t
																																BgL_arg1431z00_1396;
																															{	/* Eval/expdsrfi0.scm 301 */
																																obj_t
																																	BgL_arg1432z00_1397;
																																{	/* Eval/expdsrfi0.scm 301 */
																																	obj_t
																																		BgL_arg1433z00_1398;
																																	{	/* Eval/expdsrfi0.scm 301 */
																																		obj_t
																																			BgL_arg1434z00_1399;
																																		obj_t
																																			BgL_arg1435z00_1400;
																																		{	/* Eval/expdsrfi0.scm 301 */
																																			obj_t
																																				BgL_arg1436z00_1401;
																																			{	/* Eval/expdsrfi0.scm 301 */
																																				obj_t
																																					BgL_arg1437z00_1402;
																																				{	/* Eval/expdsrfi0.scm 301 */
																																					obj_t
																																						BgL_arg1438z00_1403;
																																					BgL_arg1438z00_1403
																																						=
																																						BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																						(BgL_elsez00_1184,
																																						BNIL);
																																					BgL_arg1437z00_1402
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol1943z00zz__expander_srfi0z00,
																																						BgL_arg1438z00_1403);
																																				}
																																				BgL_arg1436z00_1401
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1437z00_1402,
																																					BNIL);
																																			}
																																			BgL_arg1434z00_1399
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_reqz00_1225,
																																				BgL_arg1436z00_1401);
																																		}
																																		{	/* Eval/expdsrfi0.scm 302 */
																																			obj_t
																																				BgL_arg1439z00_1404;
																																			{	/* Eval/expdsrfi0.scm 302 */
																																				obj_t
																																					BgL_arg1440z00_1405;
																																				BgL_arg1440z00_1405
																																					=
																																					BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																					(BgL_bodyz00_1226,
																																					BNIL);
																																				BgL_arg1439z00_1404
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol1944z00zz__expander_srfi0z00,
																																					BgL_arg1440z00_1405);
																																			}
																																			BgL_arg1435z00_1400
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1439z00_1404,
																																				BNIL);
																																		}
																																		BgL_arg1433z00_1398
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1434z00_1399,
																																			BgL_arg1435z00_1400);
																																	}
																																	BgL_arg1432z00_1397
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1943z00zz__expander_srfi0z00,
																																		BgL_arg1433z00_1398);
																																}
																																BgL_arg1431z00_1396
																																	=
																																	BGl_evepairifyz00zz__prognz00
																																	(BgL_arg1432z00_1397,
																																	BgL_xz00_16);
																															}
																															return
																																(VA_PROCEDUREP
																																(BgL_ez00_17)
																																? ((obj_t(*)
																																		(obj_t,
																																			...))
																																	PROCEDURE_ENTRY
																																	(BgL_ez00_17))
																																(BgL_ez00_17,
																																	BgL_arg1431z00_1396,
																																	BgL_ez00_17,
																																	BEOA)
																																: ((obj_t(*)
																																		(obj_t,
																																			obj_t,
																																			obj_t))
																																	PROCEDURE_ENTRY
																																	(BgL_ez00_17))
																																(BgL_ez00_17,
																																	BgL_arg1431z00_1396,
																																	BgL_ez00_17));
																														}
																													}
																												else
																													{	/* Eval/expdsrfi0.scm 266 */
																														if (SYMBOLP
																															(BgL_carzd2638zd2_1303))
																															{	/* Eval/expdsrfi0.scm 266 */
																																obj_t
																																	BgL_arg1360z00_1314;
																																BgL_arg1360z00_1314
																																	=
																																	CDR(((obj_t)
																																		BgL_clausez00_1183));
																																{
																																	obj_t
																																		BgL_bodyz00_2861;
																																	obj_t
																																		BgL_featurez00_2860;
																																	BgL_featurez00_2860
																																		=
																																		BgL_carzd2638zd2_1303;
																																	BgL_bodyz00_2861
																																		=
																																		BgL_arg1360z00_1314;
																																	BgL_bodyz00_1236
																																		=
																																		BgL_bodyz00_2861;
																																	BgL_featurez00_1235
																																		=
																																		BgL_featurez00_2860;
																																	goto
																																		BgL_tagzd2198zd2_1237;
																																}
																															}
																														else
																															{	/* Eval/expdsrfi0.scm 266 */
																																return
																																	BGl_expandzd2errorzd2zz__expandz00
																																	(BGl_string1941z00zz__expander_srfi0z00,
																																	BGl_string1942z00zz__expander_srfi0z00,
																																	BgL_xz00_16);
																															}
																													}
																											}
																										else
																											{	/* Eval/expdsrfi0.scm 266 */
																												if (SYMBOLP
																													(BgL_carzd2638zd2_1303))
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_arg1363z00_1318;
																														BgL_arg1363z00_1318
																															=
																															CDR(((obj_t)
																																BgL_clausez00_1183));
																														{
																															obj_t
																																BgL_bodyz00_2868;
																															obj_t
																																BgL_featurez00_2867;
																															BgL_featurez00_2867
																																=
																																BgL_carzd2638zd2_1303;
																															BgL_bodyz00_2868 =
																																BgL_arg1363z00_1318;
																															BgL_bodyz00_1236 =
																																BgL_bodyz00_2868;
																															BgL_featurez00_1235
																																=
																																BgL_featurez00_2867;
																															goto
																																BgL_tagzd2198zd2_1237;
																														}
																													}
																												else
																													{	/* Eval/expdsrfi0.scm 266 */
																														return
																															BGl_expandzd2errorzd2zz__expandz00
																															(BGl_string1941z00zz__expander_srfi0z00,
																															BGl_string1942z00zz__expander_srfi0z00,
																															BgL_xz00_16);
																													}
																											}
																									}
																								else
																									{	/* Eval/expdsrfi0.scm 266 */
																										obj_t BgL_cdrzd2707zd2_1320;

																										BgL_cdrzd2707zd2_1320 =
																											CDR(
																											((obj_t)
																												BgL_carzd2638zd2_1303));
																										if ((CAR(((obj_t)
																														BgL_carzd2638zd2_1303))
																												==
																												BGl_symbol1953z00zz__expander_srfi0z00))
																											{	/* Eval/expdsrfi0.scm 266 */
																												if (PAIRP
																													(BgL_cdrzd2707zd2_1320))
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_carzd2709zd2_1324;
																														BgL_carzd2709zd2_1324
																															=
																															CAR
																															(BgL_cdrzd2707zd2_1320);
																														if (SYMBOLP
																															(BgL_carzd2709zd2_1324))
																															{	/* Eval/expdsrfi0.scm 266 */
																																if (NULLP(CDR
																																		(BgL_cdrzd2707zd2_1320)))
																																	{	/* Eval/expdsrfi0.scm 266 */
																																		obj_t
																																			BgL_arg1370z00_1328;
																																		BgL_arg1370z00_1328
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_clausez00_1183));
																																		{	/* Eval/expdsrfi0.scm 306 */
																																			obj_t
																																				BgL_arg1441z00_2029;
																																			{	/* Eval/expdsrfi0.scm 306 */
																																				obj_t
																																					BgL_arg1442z00_2030;
																																				if (CBOOL(BGl_libraryzd2existszf3z21zz__libraryz00(BgL_carzd2709zd2_1324, BNIL)))
																																					{	/* Eval/expdsrfi0.scm 306 */
																																						BgL_arg1442z00_2030
																																							=
																																							BGl_prognz00zz__expander_srfi0z00
																																							(BgL_arg1370z00_1328);
																																					}
																																				else
																																					{	/* Eval/expdsrfi0.scm 308 */
																																						obj_t
																																							BgL_arg1445z00_2033;
																																						BgL_arg1445z00_2033
																																							=
																																							BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																							(BgL_elsez00_1184,
																																							BNIL);
																																						BgL_arg1442z00_2030
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol1943z00zz__expander_srfi0z00,
																																							BgL_arg1445z00_2033);
																																					}
																																				BgL_arg1441z00_2029
																																					=
																																					BGl_evepairifyz00zz__prognz00
																																					(BgL_arg1442z00_2030,
																																					BgL_xz00_16);
																																			}
																																			return
																																				(VA_PROCEDUREP
																																				(BgL_ez00_17)
																																				? (
																																					(obj_t
																																						(*)
																																						(obj_t,
																																							...))
																																					PROCEDURE_ENTRY
																																					(BgL_ez00_17))
																																				(BgL_ez00_17,
																																					BgL_arg1441z00_2029,
																																					BgL_ez00_17,
																																					BEOA)
																																				: (
																																					(obj_t
																																						(*)
																																						(obj_t,
																																							obj_t,
																																							obj_t))
																																					PROCEDURE_ENTRY
																																					(BgL_ez00_17))
																																				(BgL_ez00_17,
																																					BgL_arg1441z00_2029,
																																					BgL_ez00_17));
																																		}
																																	}
																																else
																																	{	/* Eval/expdsrfi0.scm 266 */
																																		obj_t
																																			BgL_carzd2726zd2_1329;
																																		BgL_carzd2726zd2_1329
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_clausez00_1183));
																																		if (SYMBOLP
																																			(BgL_carzd2726zd2_1329))
																																			{	/* Eval/expdsrfi0.scm 266 */
																																				obj_t
																																					BgL_arg1372z00_1331;
																																				BgL_arg1372z00_1331
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_clausez00_1183));
																																				{
																																					obj_t
																																						BgL_bodyz00_2905;
																																					obj_t
																																						BgL_featurez00_2904;
																																					BgL_featurez00_2904
																																						=
																																						BgL_carzd2726zd2_1329;
																																					BgL_bodyz00_2905
																																						=
																																						BgL_arg1372z00_1331;
																																					BgL_bodyz00_1236
																																						=
																																						BgL_bodyz00_2905;
																																					BgL_featurez00_1235
																																						=
																																						BgL_featurez00_2904;
																																					goto
																																						BgL_tagzd2198zd2_1237;
																																				}
																																			}
																																		else
																																			{	/* Eval/expdsrfi0.scm 266 */
																																				return
																																					BGl_expandzd2errorzd2zz__expandz00
																																					(BGl_string1941z00zz__expander_srfi0z00,
																																					BGl_string1942z00zz__expander_srfi0z00,
																																					BgL_xz00_16);
																																			}
																																	}
																															}
																														else
																															{	/* Eval/expdsrfi0.scm 266 */
																																obj_t
																																	BgL_carzd2743zd2_1333;
																																BgL_carzd2743zd2_1333
																																	=
																																	CAR(((obj_t)
																																		BgL_clausez00_1183));
																																if (SYMBOLP
																																	(BgL_carzd2743zd2_1333))
																																	{	/* Eval/expdsrfi0.scm 266 */
																																		obj_t
																																			BgL_arg1375z00_1335;
																																		BgL_arg1375z00_1335
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_clausez00_1183));
																																		{
																																			obj_t
																																				BgL_bodyz00_2914;
																																			obj_t
																																				BgL_featurez00_2913;
																																			BgL_featurez00_2913
																																				=
																																				BgL_carzd2743zd2_1333;
																																			BgL_bodyz00_2914
																																				=
																																				BgL_arg1375z00_1335;
																																			BgL_bodyz00_1236
																																				=
																																				BgL_bodyz00_2914;
																																			BgL_featurez00_1235
																																				=
																																				BgL_featurez00_2913;
																																			goto
																																				BgL_tagzd2198zd2_1237;
																																		}
																																	}
																																else
																																	{	/* Eval/expdsrfi0.scm 266 */
																																		return
																																			BGl_expandzd2errorzd2zz__expandz00
																																			(BGl_string1941z00zz__expander_srfi0z00,
																																			BGl_string1942z00zz__expander_srfi0z00,
																																			BgL_xz00_16);
																																	}
																															}
																													}
																												else
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_carzd2760zd2_1336;
																														BgL_carzd2760zd2_1336
																															=
																															CAR(((obj_t)
																																BgL_clausez00_1183));
																														if (SYMBOLP
																															(BgL_carzd2760zd2_1336))
																															{	/* Eval/expdsrfi0.scm 266 */
																																obj_t
																																	BgL_arg1377z00_1338;
																																BgL_arg1377z00_1338
																																	=
																																	CDR(((obj_t)
																																		BgL_clausez00_1183));
																																{
																																	obj_t
																																		BgL_bodyz00_2923;
																																	obj_t
																																		BgL_featurez00_2922;
																																	BgL_featurez00_2922
																																		=
																																		BgL_carzd2760zd2_1336;
																																	BgL_bodyz00_2923
																																		=
																																		BgL_arg1377z00_1338;
																																	BgL_bodyz00_1236
																																		=
																																		BgL_bodyz00_2923;
																																	BgL_featurez00_1235
																																		=
																																		BgL_featurez00_2922;
																																	goto
																																		BgL_tagzd2198zd2_1237;
																																}
																															}
																														else
																															{	/* Eval/expdsrfi0.scm 266 */
																																return
																																	BGl_expandzd2errorzd2zz__expandz00
																																	(BGl_string1941z00zz__expander_srfi0z00,
																																	BGl_string1942z00zz__expander_srfi0z00,
																																	BgL_xz00_16);
																															}
																													}
																											}
																										else
																											{	/* Eval/expdsrfi0.scm 266 */
																												obj_t
																													BgL_carzd2773zd2_1339;
																												BgL_carzd2773zd2_1339 =
																													CAR(((obj_t)
																														BgL_clausez00_1183));
																												{	/* Eval/expdsrfi0.scm 266 */
																													obj_t
																														BgL_cdrzd2778zd2_1340;
																													BgL_cdrzd2778zd2_1340
																														=
																														CDR(((obj_t)
																															BgL_carzd2773zd2_1339));
																													if ((CAR(((obj_t)
																																	BgL_carzd2773zd2_1339))
																															==
																															BGl_symbol1955z00zz__expander_srfi0z00))
																														{	/* Eval/expdsrfi0.scm 266 */
																															if (PAIRP
																																(BgL_cdrzd2778zd2_1340))
																																{	/* Eval/expdsrfi0.scm 266 */
																																	obj_t
																																		BgL_cdrzd2782zd2_1344;
																																	BgL_cdrzd2782zd2_1344
																																		=
																																		CDR
																																		(BgL_cdrzd2778zd2_1340);
																																	if (PAIRP
																																		(BgL_cdrzd2782zd2_1344))
																																		{	/* Eval/expdsrfi0.scm 266 */
																																			if (NULLP
																																				(CDR
																																					(BgL_cdrzd2782zd2_1344)))
																																				{	/* Eval/expdsrfi0.scm 266 */
																																					obj_t
																																						BgL_arg1385z00_1348;
																																					obj_t
																																						BgL_arg1386z00_1349;
																																					obj_t
																																						BgL_arg1387z00_1350;
																																					BgL_arg1385z00_1348
																																						=
																																						CAR
																																						(BgL_cdrzd2778zd2_1340);
																																					BgL_arg1386z00_1349
																																						=
																																						CAR
																																						(BgL_cdrzd2782zd2_1344);
																																					BgL_arg1387z00_1350
																																						=
																																						CDR(
																																						((obj_t) BgL_clausez00_1183));
																																					{	/* Eval/expdsrfi0.scm 312 */
																																						obj_t
																																							BgL_arg1447z00_2048;
																																						{	/* Eval/expdsrfi0.scm 312 */
																																							obj_t
																																								BgL_arg1448z00_2049;
																																							if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BGl_bigloozd2configzd2zz__configurez00(BgL_arg1385z00_1348), BgL_arg1386z00_1349))
																																								{	/* Eval/expdsrfi0.scm 312 */
																																									BgL_arg1448z00_2049
																																										=
																																										BGl_prognz00zz__expander_srfi0z00
																																										(BgL_arg1387z00_1350);
																																								}
																																							else
																																								{	/* Eval/expdsrfi0.scm 314 */
																																									obj_t
																																										BgL_arg1451z00_2052;
																																									BgL_arg1451z00_2052
																																										=
																																										BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																										(BgL_elsez00_1184,
																																										BNIL);
																																									BgL_arg1448z00_2049
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BGl_symbol1943z00zz__expander_srfi0z00,
																																										BgL_arg1451z00_2052);
																																								}
																																							BgL_arg1447z00_2048
																																								=
																																								BGl_evepairifyz00zz__prognz00
																																								(BgL_arg1448z00_2049,
																																								BgL_xz00_16);
																																						}
																																						return
																																							(VA_PROCEDUREP
																																							(BgL_ez00_17)
																																							?
																																							((obj_t(*)(obj_t, ...)) PROCEDURE_ENTRY(BgL_ez00_17)) (BgL_ez00_17, BgL_arg1447z00_2048, BgL_ez00_17, BEOA) : ((obj_t(*)(obj_t, obj_t, obj_t)) PROCEDURE_ENTRY(BgL_ez00_17)) (BgL_ez00_17, BgL_arg1447z00_2048, BgL_ez00_17));
																																					}
																																				}
																																			else
																																				{	/* Eval/expdsrfi0.scm 266 */
																																					if (SYMBOLP(BgL_carzd2773zd2_1339))
																																						{	/* Eval/expdsrfi0.scm 266 */
																																							obj_t
																																								BgL_arg1389z00_1353;
																																							BgL_arg1389z00_1353
																																								=
																																								CDR
																																								(
																																								((obj_t) BgL_clausez00_1183));
																																							{
																																								obj_t
																																									BgL_bodyz00_2962;
																																								obj_t
																																									BgL_featurez00_2961;
																																								BgL_featurez00_2961
																																									=
																																									BgL_carzd2773zd2_1339;
																																								BgL_bodyz00_2962
																																									=
																																									BgL_arg1389z00_1353;
																																								BgL_bodyz00_1236
																																									=
																																									BgL_bodyz00_2962;
																																								BgL_featurez00_1235
																																									=
																																									BgL_featurez00_2961;
																																								goto
																																									BgL_tagzd2198zd2_1237;
																																							}
																																						}
																																					else
																																						{	/* Eval/expdsrfi0.scm 266 */
																																							return
																																								BGl_expandzd2errorzd2zz__expandz00
																																								(BGl_string1941z00zz__expander_srfi0z00,
																																								BGl_string1942z00zz__expander_srfi0z00,
																																								BgL_xz00_16);
																																						}
																																				}
																																		}
																																	else
																																		{	/* Eval/expdsrfi0.scm 266 */
																																			if (SYMBOLP(BgL_carzd2773zd2_1339))
																																				{	/* Eval/expdsrfi0.scm 266 */
																																					obj_t
																																						BgL_arg1392z00_1357;
																																					BgL_arg1392z00_1357
																																						=
																																						CDR(
																																						((obj_t) BgL_clausez00_1183));
																																					{
																																						obj_t
																																							BgL_bodyz00_2969;
																																						obj_t
																																							BgL_featurez00_2968;
																																						BgL_featurez00_2968
																																							=
																																							BgL_carzd2773zd2_1339;
																																						BgL_bodyz00_2969
																																							=
																																							BgL_arg1392z00_1357;
																																						BgL_bodyz00_1236
																																							=
																																							BgL_bodyz00_2969;
																																						BgL_featurez00_1235
																																							=
																																							BgL_featurez00_2968;
																																						goto
																																							BgL_tagzd2198zd2_1237;
																																					}
																																				}
																																			else
																																				{	/* Eval/expdsrfi0.scm 266 */
																																					return
																																						BGl_expandzd2errorzd2zz__expandz00
																																						(BGl_string1941z00zz__expander_srfi0z00,
																																						BGl_string1942z00zz__expander_srfi0z00,
																																						BgL_xz00_16);
																																				}
																																		}
																																}
																															else
																																{	/* Eval/expdsrfi0.scm 266 */
																																	if (SYMBOLP
																																		(BgL_carzd2773zd2_1339))
																																		{	/* Eval/expdsrfi0.scm 266 */
																																			obj_t
																																				BgL_arg1394z00_1360;
																																			BgL_arg1394z00_1360
																																				=
																																				CDR((
																																					(obj_t)
																																					BgL_clausez00_1183));
																																			{
																																				obj_t
																																					BgL_bodyz00_2976;
																																				obj_t
																																					BgL_featurez00_2975;
																																				BgL_featurez00_2975
																																					=
																																					BgL_carzd2773zd2_1339;
																																				BgL_bodyz00_2976
																																					=
																																					BgL_arg1394z00_1360;
																																				BgL_bodyz00_1236
																																					=
																																					BgL_bodyz00_2976;
																																				BgL_featurez00_1235
																																					=
																																					BgL_featurez00_2975;
																																				goto
																																					BgL_tagzd2198zd2_1237;
																																			}
																																		}
																																	else
																																		{	/* Eval/expdsrfi0.scm 266 */
																																			return
																																				BGl_expandzd2errorzd2zz__expandz00
																																				(BGl_string1941z00zz__expander_srfi0z00,
																																				BGl_string1942z00zz__expander_srfi0z00,
																																				BgL_xz00_16);
																																		}
																																}
																														}
																													else
																														{	/* Eval/expdsrfi0.scm 266 */
																															if (SYMBOLP
																																(BgL_carzd2773zd2_1339))
																																{	/* Eval/expdsrfi0.scm 266 */
																																	obj_t
																																		BgL_arg1396z00_1363;
																																	BgL_arg1396z00_1363
																																		=
																																		CDR(((obj_t)
																																			BgL_clausez00_1183));
																																	{
																																		obj_t
																																			BgL_bodyz00_2983;
																																		obj_t
																																			BgL_featurez00_2982;
																																		BgL_featurez00_2982
																																			=
																																			BgL_carzd2773zd2_1339;
																																		BgL_bodyz00_2983
																																			=
																																			BgL_arg1396z00_1363;
																																		BgL_bodyz00_1236
																																			=
																																			BgL_bodyz00_2983;
																																		BgL_featurez00_1235
																																			=
																																			BgL_featurez00_2982;
																																		goto
																																			BgL_tagzd2198zd2_1237;
																																	}
																																}
																															else
																																{	/* Eval/expdsrfi0.scm 266 */
																																	return
																																		BGl_expandzd2errorzd2zz__expandz00
																																		(BGl_string1941z00zz__expander_srfi0z00,
																																		BGl_string1942z00zz__expander_srfi0z00,
																																		BgL_xz00_16);
																																}
																														}
																												}
																											}
																									}
																							}
																						}
																				}
																		}
																	else
																		{	/* Eval/expdsrfi0.scm 266 */
																			if (SYMBOLP(BgL_carzd2224zd2_1244))
																				{	/* Eval/expdsrfi0.scm 266 */
																					obj_t BgL_arg1403z00_1371;

																					BgL_arg1403z00_1371 =
																						CDR(((obj_t) BgL_clausez00_1183));
																					{
																						obj_t BgL_bodyz00_2990;
																						obj_t BgL_featurez00_2989;

																						BgL_featurez00_2989 =
																							BgL_carzd2224zd2_1244;
																						BgL_bodyz00_2990 =
																							BgL_arg1403z00_1371;
																						BgL_bodyz00_1236 = BgL_bodyz00_2990;
																						BgL_featurez00_1235 =
																							BgL_featurez00_2989;
																						goto BgL_tagzd2198zd2_1237;
																					}
																				}
																			else
																				{	/* Eval/expdsrfi0.scm 266 */
																					return
																						BGl_expandzd2errorzd2zz__expandz00
																						(BGl_string1941z00zz__expander_srfi0z00,
																						BGl_string1942z00zz__expander_srfi0z00,
																						BgL_xz00_16);
																				}
																		}
																}
														}
													else
														{	/* Eval/expdsrfi0.scm 266 */
															return
																BGl_expandzd2errorzd2zz__expandz00
																(BGl_string1941z00zz__expander_srfi0z00,
																BGl_string1942z00zz__expander_srfi0z00,
																BgL_xz00_16);
														}
												}
											}
										else
											{	/* Eval/expdsrfi0.scm 266 */
												return
													BGl_expandzd2errorzd2zz__expandz00
													(BGl_string1941z00zz__expander_srfi0z00,
													BGl_string1942z00zz__expander_srfi0z00, BgL_xz00_16);
											}
									}
							}
						else
							{	/* Eval/expdsrfi0.scm 266 */
								obj_t BgL_cdrzd2177zd2_1198;

								BgL_cdrzd2177zd2_1198 = CDR(((obj_t) BgL_xz00_16));
								if (PAIRP(BgL_cdrzd2177zd2_1198))
									{
										obj_t BgL_elsez00_3002;
										obj_t BgL_clausez00_3000;

										BgL_clausez00_3000 = CAR(BgL_cdrzd2177zd2_1198);
										BgL_elsez00_3002 = CDR(BgL_cdrzd2177zd2_1198);
										BgL_elsez00_1184 = BgL_elsez00_3002;
										BgL_clausez00_1183 = BgL_clausez00_3000;
										goto BgL_tagzd2153zd2_1185;
									}
								else
									{	/* Eval/expdsrfi0.scm 266 */
										return
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string1941z00zz__expander_srfi0z00,
											BGl_string1942z00zz__expander_srfi0z00, BgL_xz00_16);
									}
							}
					}
			}
		}

	}



/* &expand-cond-expand */
	obj_t BGl_z62expandzd2condzd2expandz62zz__expander_srfi0z00(obj_t
		BgL_envz00_2303, obj_t BgL_xz00_2304, obj_t BgL_ez00_2305,
		obj_t BgL_featuresz00_2306)
	{
		{	/* Eval/expdsrfi0.scm 262 */
			{	/* Eval/expdsrfi0.scm 266 */
				obj_t BgL_auxz00_3019;
				obj_t BgL_auxz00_3012;
				obj_t BgL_auxz00_3005;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_featuresz00_2306))
					{	/* Eval/expdsrfi0.scm 266 */
						BgL_auxz00_3019 = BgL_featuresz00_2306;
					}
				else
					{
						obj_t BgL_auxz00_3022;

						BgL_auxz00_3022 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(11391L),
							BGl_string1957z00zz__expander_srfi0z00,
							BGl_string1934z00zz__expander_srfi0z00, BgL_featuresz00_2306);
						FAILURE(BgL_auxz00_3022, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_ez00_2305))
					{	/* Eval/expdsrfi0.scm 266 */
						BgL_auxz00_3012 = BgL_ez00_2305;
					}
				else
					{
						obj_t BgL_auxz00_3015;

						BgL_auxz00_3015 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(11391L),
							BGl_string1957z00zz__expander_srfi0z00,
							BGl_string1935z00zz__expander_srfi0z00, BgL_ez00_2305);
						FAILURE(BgL_auxz00_3015, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_2304))
					{	/* Eval/expdsrfi0.scm 266 */
						BgL_auxz00_3005 = BgL_xz00_2304;
					}
				else
					{
						obj_t BgL_auxz00_3008;

						BgL_auxz00_3008 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1925z00zz__expander_srfi0z00, BINT(11391L),
							BGl_string1957z00zz__expander_srfi0z00,
							BGl_string1934z00zz__expander_srfi0z00, BgL_xz00_2304);
						FAILURE(BgL_auxz00_3008, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2condzd2expandz00zz__expander_srfi0z00(BgL_auxz00_3005,
					BgL_auxz00_3012, BgL_auxz00_3019);
			}
		}

	}



/* expand-cond-expand-and */
	obj_t BGl_expandzd2condzd2expandzd2andzd2zz__expander_srfi0z00(obj_t
		BgL_xz00_19, obj_t BgL_ez00_20, obj_t BgL_req1z00_21, obj_t BgL_req2z00_22,
		obj_t BgL_reqsz00_23, obj_t BgL_bodyz00_24, obj_t BgL_elsez00_25)
	{
		{	/* Eval/expdsrfi0.scm 333 */
			{	/* Eval/expdsrfi0.scm 334 */
				obj_t BgL_ebodyz00_2071;

				BgL_ebodyz00_2071 =
					BGl_evepairifyz00zz__prognz00(BGl_prognz00zz__expander_srfi0z00
					(BgL_bodyz00_24), BgL_bodyz00_24);
				{	/* Eval/expdsrfi0.scm 337 */
					obj_t BgL_arg1458z00_2073;

					{	/* Eval/expdsrfi0.scm 337 */
						obj_t BgL_arg1459z00_2074;

						{	/* Eval/expdsrfi0.scm 337 */
							obj_t BgL_arg1460z00_2075;

							{	/* Eval/expdsrfi0.scm 337 */
								obj_t BgL_arg1461z00_2076;
								obj_t BgL_arg1462z00_2077;

								{	/* Eval/expdsrfi0.scm 337 */
									obj_t BgL_arg1463z00_2078;

									{	/* Eval/expdsrfi0.scm 337 */
										obj_t BgL_arg1464z00_2079;

										{	/* Eval/expdsrfi0.scm 337 */
											obj_t BgL_arg1465z00_2080;

											{	/* Eval/expdsrfi0.scm 337 */
												obj_t BgL_arg1468z00_2081;
												obj_t BgL_arg1469z00_2082;

												{	/* Eval/expdsrfi0.scm 337 */
													obj_t BgL_arg1471z00_2083;
													obj_t BgL_arg1472z00_2084;

													{	/* Eval/expdsrfi0.scm 337 */
														obj_t BgL_arg1473z00_2085;

														BgL_arg1473z00_2085 =
															MAKE_YOUNG_PAIR(BgL_req2z00_22,
															BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
															(BgL_reqsz00_23, BNIL));
														BgL_arg1471z00_2083 =
															MAKE_YOUNG_PAIR
															(BGl_symbol1946z00zz__expander_srfi0z00,
															BgL_arg1473z00_2085);
													}
													BgL_arg1472z00_2084 =
														MAKE_YOUNG_PAIR(BgL_ebodyz00_2071, BNIL);
													BgL_arg1468z00_2081 =
														MAKE_YOUNG_PAIR(BgL_arg1471z00_2083,
														BgL_arg1472z00_2084);
												}
												BgL_arg1469z00_2082 =
													BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
													(BgL_elsez00_25, BNIL);
												BgL_arg1465z00_2080 =
													MAKE_YOUNG_PAIR(BgL_arg1468z00_2081,
													BgL_arg1469z00_2082);
											}
											BgL_arg1464z00_2079 =
												MAKE_YOUNG_PAIR(BGl_symbol1943z00zz__expander_srfi0z00,
												BgL_arg1465z00_2080);
										}
										BgL_arg1463z00_2078 =
											MAKE_YOUNG_PAIR(BgL_arg1464z00_2079, BNIL);
									}
									BgL_arg1461z00_2076 =
										MAKE_YOUNG_PAIR(BgL_req1z00_21, BgL_arg1463z00_2078);
								}
								BgL_arg1462z00_2077 =
									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
									(BgL_elsez00_25, BNIL);
								BgL_arg1460z00_2075 =
									MAKE_YOUNG_PAIR(BgL_arg1461z00_2076, BgL_arg1462z00_2077);
							}
							BgL_arg1459z00_2074 =
								MAKE_YOUNG_PAIR(BGl_symbol1943z00zz__expander_srfi0z00,
								BgL_arg1460z00_2075);
						}
						BgL_arg1458z00_2073 =
							BGl_evepairifyz00zz__prognz00(BgL_arg1459z00_2074, BgL_xz00_19);
					}
					return
						(VA_PROCEDUREP(BgL_ez00_20) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_ez00_20)) (BgL_ez00_20,
							BgL_arg1458z00_2073, BgL_ez00_20, BEOA) : ((obj_t(*)(obj_t, obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_ez00_20)) (BgL_ez00_20,
							BgL_arg1458z00_2073, BgL_ez00_20));
				}
			}
		}

	}



/* expand-cond-expand-or */
	obj_t BGl_expandzd2condzd2expandzd2orzd2zz__expander_srfi0z00(obj_t
		BgL_xz00_26, obj_t BgL_ez00_27, obj_t BgL_req1z00_28, obj_t BgL_req2z00_29,
		obj_t BgL_reqsz00_30, obj_t BgL_bodyz00_31, obj_t BgL_elsez00_32)
	{
		{	/* Eval/expdsrfi0.scm 346 */
			{	/* Eval/expdsrfi0.scm 347 */
				obj_t BgL_ebodyz00_2087;

				BgL_ebodyz00_2087 =
					BGl_evepairifyz00zz__prognz00(BGl_prognz00zz__expander_srfi0z00
					(BgL_bodyz00_31), BgL_bodyz00_31);
				{	/* Eval/expdsrfi0.scm 349 */
					obj_t BgL_arg1476z00_2089;

					{	/* Eval/expdsrfi0.scm 349 */
						obj_t BgL_arg1477z00_2090;

						{	/* Eval/expdsrfi0.scm 349 */
							obj_t BgL_arg1478z00_2091;

							{	/* Eval/expdsrfi0.scm 349 */
								obj_t BgL_arg1479z00_2092;
								obj_t BgL_arg1480z00_2093;

								{	/* Eval/expdsrfi0.scm 349 */
									obj_t BgL_arg1481z00_2094;

									BgL_arg1481z00_2094 =
										MAKE_YOUNG_PAIR(BgL_ebodyz00_2087, BNIL);
									BgL_arg1479z00_2092 =
										MAKE_YOUNG_PAIR(BgL_req1z00_28, BgL_arg1481z00_2094);
								}
								{	/* Eval/expdsrfi0.scm 352 */
									obj_t BgL_arg1482z00_2095;

									{	/* Eval/expdsrfi0.scm 352 */
										obj_t BgL_arg1483z00_2096;

										{	/* Eval/expdsrfi0.scm 352 */
											obj_t BgL_arg1485z00_2097;

											{	/* Eval/expdsrfi0.scm 352 */
												obj_t BgL_arg1487z00_2098;

												{	/* Eval/expdsrfi0.scm 352 */
													obj_t BgL_arg1488z00_2099;
													obj_t BgL_arg1489z00_2100;

													{	/* Eval/expdsrfi0.scm 352 */
														obj_t BgL_arg1491z00_2101;
														obj_t BgL_arg1492z00_2102;

														{	/* Eval/expdsrfi0.scm 352 */
															obj_t BgL_arg1493z00_2103;

															BgL_arg1493z00_2103 =
																MAKE_YOUNG_PAIR(BgL_req2z00_29,
																BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																(BgL_reqsz00_30, BNIL));
															BgL_arg1491z00_2101 =
																MAKE_YOUNG_PAIR
																(BGl_symbol1949z00zz__expander_srfi0z00,
																BgL_arg1493z00_2103);
														}
														BgL_arg1492z00_2102 =
															MAKE_YOUNG_PAIR(BgL_ebodyz00_2087, BNIL);
														BgL_arg1488z00_2099 =
															MAKE_YOUNG_PAIR(BgL_arg1491z00_2101,
															BgL_arg1492z00_2102);
													}
													BgL_arg1489z00_2100 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
														(BgL_elsez00_32, BNIL);
													BgL_arg1487z00_2098 =
														MAKE_YOUNG_PAIR(BgL_arg1488z00_2099,
														BgL_arg1489z00_2100);
												}
												BgL_arg1485z00_2097 =
													MAKE_YOUNG_PAIR
													(BGl_symbol1943z00zz__expander_srfi0z00,
													BgL_arg1487z00_2098);
											}
											BgL_arg1483z00_2096 =
												MAKE_YOUNG_PAIR(BgL_arg1485z00_2097, BNIL);
										}
										BgL_arg1482z00_2095 =
											MAKE_YOUNG_PAIR(BGl_symbol1944z00zz__expander_srfi0z00,
											BgL_arg1483z00_2096);
									}
									BgL_arg1480z00_2093 =
										MAKE_YOUNG_PAIR(BgL_arg1482z00_2095, BNIL);
								}
								BgL_arg1478z00_2091 =
									MAKE_YOUNG_PAIR(BgL_arg1479z00_2092, BgL_arg1480z00_2093);
							}
							BgL_arg1477z00_2090 =
								MAKE_YOUNG_PAIR(BGl_symbol1943z00zz__expander_srfi0z00,
								BgL_arg1478z00_2091);
						}
						BgL_arg1476z00_2089 =
							BGl_evepairifyz00zz__prognz00(BgL_arg1477z00_2090, BgL_xz00_26);
					}
					return
						(VA_PROCEDUREP(BgL_ez00_27) ? ((obj_t(*)(obj_t,
									...)) PROCEDURE_ENTRY(BgL_ez00_27)) (BgL_ez00_27,
							BgL_arg1476z00_2089, BgL_ez00_27, BEOA) : ((obj_t(*)(obj_t, obj_t,
									obj_t)) PROCEDURE_ENTRY(BgL_ez00_27)) (BgL_ez00_27,
							BgL_arg1476z00_2089, BgL_ez00_27));
				}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 15 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 15 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 15 */
			return BUNSPEC;
		}

	}



/* imported-modules-init */
	obj_t BGl_importedzd2moduleszd2initz00zz__expander_srfi0z00(void)
	{
		{	/* Eval/expdsrfi0.scm 15 */
			BGl_modulezd2initializa7ationz75zz__errorz00(88804785L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(536217185L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128218210L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(43287392L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(6519932L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__libraryz00(143145005L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(481261960L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(54297095L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(237870368L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(473309430L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(460262918L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(-44273703L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(496722665L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
			return BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string1958z00zz__expander_srfi0z00));
		}

	}

#ifdef __cplusplus
}
#endif
