/*===========================================================================*/
/*   (Eval/expdsrfi0.scm)                                                    */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -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);
	static obj_t BGl_symbol1921z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1923z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1925z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1927z00zz__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_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_symbol1947z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1948z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1950z00zz__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_symbol1957z00zz__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_symbol1959z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1880z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1882z00zz__expander_srfi0z00 = BUNSPEC;
	static obj_t BGl_symbol1886z00zz__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_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);
	static obj_t BGl_list1952z00zz__expander_srfi0z00 = BUNSPEC;
	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_z62registerzd2compilezd2srfiz12z70zz__expander_srfi0z00(obj_t, obj_t);
	static obj_t BGl_list1890z00zz__expander_srfi0z00 = BUNSPEC;
	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;


	   
		 
		BGL_DEFINE_STRING(BGl_string1951z00zz__expander_srfi0z00,
		BgL_bgl_string1951za700za7za7_1963za7, "and", 3);
	      BGL_DEFINE_STRING(BGl_string1954z00zz__expander_srfi0z00,
		BgL_bgl_string1954za700za7za7_1964za7, "or", 2);
	      BGL_DEFINE_STRING(BGl_string1956z00zz__expander_srfi0z00,
		BgL_bgl_string1956za700za7za7_1965za7, "not", 3);
	      BGL_DEFINE_STRING(BGl_string1958z00zz__expander_srfi0z00,
		BgL_bgl_string1958za700za7za7_1966za7, "library", 7);
	     
		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);
	      BGL_DEFINE_STRING(BGl_string1960z00zz__expander_srfi0z00,
		BgL_bgl_string1960za700za7za7_1970za7, "config", 6);
	      BGL_DEFINE_STRING(BGl_string1961z00zz__expander_srfi0z00,
		BgL_bgl_string1961za700za7za7_1971za7, "&expand-cond-expand", 19);
	      BGL_DEFINE_STRING(BGl_string1962z00zz__expander_srfi0z00,
		BgL_bgl_string1962za700za7za7_1972za7, "__expander_srfi0", 16);
	      BGL_DEFINE_STRING(BGl_string1881z00zz__expander_srfi0z00,
		BgL_bgl_string1881za700za7za7_1973za7, "srfi0", 5);
	      BGL_DEFINE_STRING(BGl_string1883z00zz__expander_srfi0z00,
		BgL_bgl_string1883za700za7za7_1974za7, "int-size", 8);
	      BGL_DEFINE_STRING(BGl_string1884z00zz__expander_srfi0z00,
		BgL_bgl_string1884za700za7za7_1975za7, "30", 2);
	      BGL_DEFINE_STRING(BGl_string1885z00zz__expander_srfi0z00,
		BgL_bgl_string1885za700za7za7_1976za7, "bint", 4);
	      BGL_DEFINE_STRING(BGl_string1887z00zz__expander_srfi0z00,
		BgL_bgl_string1887za700za7za7_1977za7, "elong-size", 10);
	      BGL_DEFINE_STRING(BGl_string1888z00zz__expander_srfi0z00,
		BgL_bgl_string1888za700za7za7_1978za7, "32", 2);
	      BGL_DEFINE_STRING(BGl_string1889z00zz__expander_srfi0z00,
		BgL_bgl_string1889za700za7za7_1979za7, "elong", 5);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2compilezd2srfiz12zd2envzc0zz__expander_srfi0z00,
		BgL_bgl_za762registerza7d2co1980z00,
		BGl_z62registerzd2compilezd2srfiz12z70zz__expander_srfi0z00, 0L, BUNSPEC,
		1);
	      BGL_DEFINE_STRING(BGl_string1892z00zz__expander_srfi0z00,
		BgL_bgl_string1892za700za7za7_1981za7, "srfi-0", 6);
	      BGL_DEFINE_STRING(BGl_string1894z00zz__expander_srfi0z00,
		BgL_bgl_string1894za700za7za7_1982za7, "srfi-2", 6);
	      BGL_DEFINE_STRING(BGl_string1896z00zz__expander_srfi0z00,
		BgL_bgl_string1896za700za7za7_1983za7, "srfi-4", 6);
	      BGL_DEFINE_STRING(BGl_string1898z00zz__expander_srfi0z00,
		BgL_bgl_string1898za700za7za7_1984za7, "srfi-6", 6);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2srfiz12zd2envz12zz__expander_srfi0z00,
		BgL_bgl_za762registerza7d2sr1985z00,
		BGl_z62registerzd2srfiz12za2zz__expander_srfi0z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_registerzd2evalzd2srfiz12zd2envzc0zz__expander_srfi0z00,
		BgL_bgl_za762registerza7d2ev1986z00,
		BGl_z62registerzd2evalzd2srfiz12z70zz__expander_srfi0z00, 0L, BUNSPEC, 1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_unregisterzd2compilezd2srfiz12zd2envzc0zz__expander_srfi0z00,
		BgL_bgl_za762unregisterza7d21987z00,
		BGl_z62unregisterzd2compilezd2srfiz12z70zz__expander_srfi0z00, 0L, BUNSPEC,
		1);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2evalzd2condzd2expandzd2envz00zz__expander_srfi0z00,
		BgL_bgl_za762expandza7d2eval1988z00,
		BGl_z62expandzd2evalzd2condzd2expandzb0zz__expander_srfi0z00, 0L, BUNSPEC,
		2);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_evalzd2srfizf3zd2envzf3zz__expander_srfi0z00,
		BgL_bgl_za762evalza7d2srfiza7f1989za7,
		BGl_z62evalzd2srfizf3z43zz__expander_srfi0z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1900z00zz__expander_srfi0z00,
		BgL_bgl_string1900za700za7za7_1990za7, "srfi-8", 6);
	      BGL_DEFINE_STRING(BGl_string1902z00zz__expander_srfi0z00,
		BgL_bgl_string1902za700za7za7_1991za7, "srfi-9", 6);
	      BGL_DEFINE_STRING(BGl_string1904z00zz__expander_srfi0z00,
		BgL_bgl_string1904za700za7za7_1992za7, "srfi-10", 7);
	      BGL_DEFINE_STRING(BGl_string1906z00zz__expander_srfi0z00,
		BgL_bgl_string1906za700za7za7_1993za7, "srfi-22", 7);
	      BGL_DEFINE_STRING(BGl_string1908z00zz__expander_srfi0z00,
		BgL_bgl_string1908za700za7za7_1994za7, "srfi-28", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2compilezd2condzd2expandzd2envz00zz__expander_srfi0z00,
		BgL_bgl_za762expandza7d2comp1995z00,
		BGl_z62expandzd2compilezd2condzd2expandzb0zz__expander_srfi0z00, 0L,
		BUNSPEC, 2);
	      BGL_DEFINE_STRING(BGl_string1910z00zz__expander_srfi0z00,
		BgL_bgl_string1910za700za7za7_1996za7, "srfi-30", 7);
	      BGL_DEFINE_STRING(BGl_string1912z00zz__expander_srfi0z00,
		BgL_bgl_string1912za700za7za7_1997za7, "rlimit", 6);
	      BGL_DEFINE_STRING(BGl_string1914z00zz__expander_srfi0z00,
		BgL_bgl_string1914za700za7za7_1998za7, "gc", 2);
	      BGL_DEFINE_STRING(BGl_string1916z00zz__expander_srfi0z00,
		BgL_bgl_string1916za700za7za7_1999za7, "bigloo", 6);
	      BGL_DEFINE_STRING(BGl_string1918z00zz__expander_srfi0z00,
		BgL_bgl_string1918za700za7za7_2000za7, "bigloo4", 7);
	      BGL_DEFINE_STRING(BGl_string1920z00zz__expander_srfi0z00,
		BgL_bgl_string1920za700za7za7_2001za7, "bigloo4.7", 9);
	      BGL_DEFINE_STRING(BGl_string1922z00zz__expander_srfi0z00,
		BgL_bgl_string1922za700za7za7_2002za7, "bigloo4.7a", 10);
	      BGL_DEFINE_STRING(BGl_string1924z00zz__expander_srfi0z00,
		BgL_bgl_string1924za700za7za7_2003za7, "bigloo-weakptr", 14);
	      BGL_DEFINE_STRING(BGl_string1926z00zz__expander_srfi0z00,
		BgL_bgl_string1926za700za7za7_2004za7, "bigloo-finalizer", 16);
	      BGL_DEFINE_STRING(BGl_string1928z00zz__expander_srfi0z00,
		BgL_bgl_string1928za700za7za7_2005za7, "bigloo-eval", 11);
	      BGL_DEFINE_STRING(BGl_string1929z00zz__expander_srfi0z00,
		BgL_bgl_string1929za700za7za7_2006za7,
		"/tmp/bigloo/runtime/Eval/expdsrfi0.scm", 38);
	      BGL_DEFINE_STRING(BGl_string1930z00zz__expander_srfi0z00,
		BgL_bgl_string1930za700za7za7_2007za7, "&register-eval-srfi!", 20);
	      BGL_DEFINE_STRING(BGl_string1931z00zz__expander_srfi0z00,
		BgL_bgl_string1931za700za7za7_2008za7, "symbol", 6);
	      BGL_DEFINE_STRING(BGl_string1932z00zz__expander_srfi0z00,
		BgL_bgl_string1932za700za7za7_2009za7, "&unregister-eval-srfi!", 22);
	      BGL_DEFINE_STRING(BGl_string1933z00zz__expander_srfi0z00,
		BgL_bgl_string1933za700za7za7_2010za7, "&register-compile-srfi!", 23);
	      BGL_DEFINE_STRING(BGl_string1934z00zz__expander_srfi0z00,
		BgL_bgl_string1934za700za7za7_2011za7, "&unregister-compile-srfi!", 25);
	      BGL_DEFINE_STRING(BGl_string1935z00zz__expander_srfi0z00,
		BgL_bgl_string1935za700za7za7_2012za7, "&register-srfi!", 15);
	      BGL_DEFINE_STRING(BGl_string1936z00zz__expander_srfi0z00,
		BgL_bgl_string1936za700za7za7_2013za7, "&unregister-srfi!", 17);
	      BGL_DEFINE_STRING(BGl_string1937z00zz__expander_srfi0z00,
		BgL_bgl_string1937za700za7za7_2014za7, "&expand-eval-cond-expand", 24);
	      BGL_DEFINE_STRING(BGl_string1938z00zz__expander_srfi0z00,
		BgL_bgl_string1938za700za7za7_2015za7, "pair-nil", 8);
	      BGL_DEFINE_STRING(BGl_string1939z00zz__expander_srfi0z00,
		BgL_bgl_string1939za700za7za7_2016za7, "procedure", 9);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_unregisterzd2srfiz12zd2envz12zz__expander_srfi0z00,
		BgL_bgl_za762unregisterza7d22017z00,
		BGl_z62unregisterzd2srfiz12za2zz__expander_srfi0z00, 0L, BUNSPEC, 1);
	      BGL_DEFINE_STRING(BGl_string1940z00zz__expander_srfi0z00,
		BgL_bgl_string1940za700za7za7_2018za7, "&expand-compile-cond-expand", 27);
	      BGL_DEFINE_STRING(BGl_string1941z00zz__expander_srfi0z00,
		BgL_bgl_string1941za700za7za7_2019za7, "&compile-srfi?", 14);
	      BGL_DEFINE_STRING(BGl_string1942z00zz__expander_srfi0z00,
		BgL_bgl_string1942za700za7za7_2020za7, "&eval-srfi?", 11);
	      BGL_DEFINE_STRING(BGl_string1944z00zz__expander_srfi0z00,
		BgL_bgl_string1944za700za7za7_2021za7, "begin", 5);
	      BGL_DEFINE_STRING(BGl_string1945z00zz__expander_srfi0z00,
		BgL_bgl_string1945za700za7za7_2022za7, "cond-expand", 11);
	      BGL_DEFINE_STRING(BGl_string1946z00zz__expander_srfi0z00,
		BgL_bgl_string1946za700za7za7_2023za7, "Illegal form", 12);
	      BGL_DEFINE_STRING(BGl_string1949z00zz__expander_srfi0z00,
		BgL_bgl_string1949za700za7za7_2024za7, "else", 4);

/* contant bindings */
	static void bgl_constant_bindings()
	{
		BGL_BIND_STRING(BGl_string1949z00zz__expander_srfi0z00,
			BgL_bgl_string1949za700za7za7_2024za7);
		BGL_BIND_STRING(BGl_string1946z00zz__expander_srfi0z00,
			BgL_bgl_string1946za700za7za7_2023za7);
		BGL_BIND_STRING(BGl_string1945z00zz__expander_srfi0z00,
			BgL_bgl_string1945za700za7za7_2022za7);
		BGL_BIND_STRING(BGl_string1944z00zz__expander_srfi0z00,
			BgL_bgl_string1944za700za7za7_2021za7);
		BGL_BIND_STRING(BGl_string1942z00zz__expander_srfi0z00,
			BgL_bgl_string1942za700za7za7_2020za7);
		BGL_BIND_STRING(BGl_string1941z00zz__expander_srfi0z00,
			BgL_bgl_string1941za700za7za7_2019za7);
		BGL_BIND_STRING(BGl_string1940z00zz__expander_srfi0z00,
			BgL_bgl_string1940za700za7za7_2018za7);
		BGL_BIND_PROCEDURE(BGl_unregisterzd2srfiz12zd2envz12zz__expander_srfi0z00,
			BgL_bgl_za762unregisterza7d22017z00);
		BGL_BIND_STRING(BGl_string1939z00zz__expander_srfi0z00,
			BgL_bgl_string1939za700za7za7_2016za7);
		BGL_BIND_STRING(BGl_string1938z00zz__expander_srfi0z00,
			BgL_bgl_string1938za700za7za7_2015za7);
		BGL_BIND_STRING(BGl_string1937z00zz__expander_srfi0z00,
			BgL_bgl_string1937za700za7za7_2014za7);
		BGL_BIND_STRING(BGl_string1936z00zz__expander_srfi0z00,
			BgL_bgl_string1936za700za7za7_2013za7);
		BGL_BIND_STRING(BGl_string1935z00zz__expander_srfi0z00,
			BgL_bgl_string1935za700za7za7_2012za7);
		BGL_BIND_STRING(BGl_string1934z00zz__expander_srfi0z00,
			BgL_bgl_string1934za700za7za7_2011za7);
		BGL_BIND_STRING(BGl_string1933z00zz__expander_srfi0z00,
			BgL_bgl_string1933za700za7za7_2010za7);
		BGL_BIND_STRING(BGl_string1932z00zz__expander_srfi0z00,
			BgL_bgl_string1932za700za7za7_2009za7);
		BGL_BIND_STRING(BGl_string1931z00zz__expander_srfi0z00,
			BgL_bgl_string1931za700za7za7_2008za7);
		BGL_BIND_STRING(BGl_string1930z00zz__expander_srfi0z00,
			BgL_bgl_string1930za700za7za7_2007za7);
		BGL_BIND_STRING(BGl_string1929z00zz__expander_srfi0z00,
			BgL_bgl_string1929za700za7za7_2006za7);
		BGL_BIND_STRING(BGl_string1928z00zz__expander_srfi0z00,
			BgL_bgl_string1928za700za7za7_2005za7);
		BGL_BIND_STRING(BGl_string1926z00zz__expander_srfi0z00,
			BgL_bgl_string1926za700za7za7_2004za7);
		BGL_BIND_STRING(BGl_string1924z00zz__expander_srfi0z00,
			BgL_bgl_string1924za700za7za7_2003za7);
		BGL_BIND_STRING(BGl_string1922z00zz__expander_srfi0z00,
			BgL_bgl_string1922za700za7za7_2002za7);
		BGL_BIND_STRING(BGl_string1920z00zz__expander_srfi0z00,
			BgL_bgl_string1920za700za7za7_2001za7);
		BGL_BIND_STRING(BGl_string1918z00zz__expander_srfi0z00,
			BgL_bgl_string1918za700za7za7_2000za7);
		BGL_BIND_STRING(BGl_string1916z00zz__expander_srfi0z00,
			BgL_bgl_string1916za700za7za7_1999za7);
		BGL_BIND_STRING(BGl_string1914z00zz__expander_srfi0z00,
			BgL_bgl_string1914za700za7za7_1998za7);
		BGL_BIND_STRING(BGl_string1912z00zz__expander_srfi0z00,
			BgL_bgl_string1912za700za7za7_1997za7);
		BGL_BIND_STRING(BGl_string1910z00zz__expander_srfi0z00,
			BgL_bgl_string1910za700za7za7_1996za7);
		BGL_BIND_PROCEDURE
			(BGl_expandzd2compilezd2condzd2expandzd2envz00zz__expander_srfi0z00,
			BgL_bgl_za762expandza7d2comp1995z00);
		BGL_BIND_STRING(BGl_string1908z00zz__expander_srfi0z00,
			BgL_bgl_string1908za700za7za7_1994za7);
		BGL_BIND_STRING(BGl_string1906z00zz__expander_srfi0z00,
			BgL_bgl_string1906za700za7za7_1993za7);
		BGL_BIND_STRING(BGl_string1904z00zz__expander_srfi0z00,
			BgL_bgl_string1904za700za7za7_1992za7);
		BGL_BIND_STRING(BGl_string1902z00zz__expander_srfi0z00,
			BgL_bgl_string1902za700za7za7_1991za7);
		BGL_BIND_STRING(BGl_string1900z00zz__expander_srfi0z00,
			BgL_bgl_string1900za700za7za7_1990za7);
		BGL_BIND_PROCEDURE(BGl_evalzd2srfizf3zd2envzf3zz__expander_srfi0z00,
			BgL_bgl_za762evalza7d2srfiza7f1989za7);
		BGL_BIND_PROCEDURE
			(BGl_expandzd2evalzd2condzd2expandzd2envz00zz__expander_srfi0z00,
			BgL_bgl_za762expandza7d2eval1988z00);
		BGL_BIND_PROCEDURE
			(BGl_unregisterzd2compilezd2srfiz12zd2envzc0zz__expander_srfi0z00,
			BgL_bgl_za762unregisterza7d21987z00);
		BGL_BIND_PROCEDURE
			(BGl_registerzd2evalzd2srfiz12zd2envzc0zz__expander_srfi0z00,
			BgL_bgl_za762registerza7d2ev1986z00);
		BGL_BIND_PROCEDURE(BGl_registerzd2srfiz12zd2envz12zz__expander_srfi0z00,
			BgL_bgl_za762registerza7d2sr1985z00);
		BGL_BIND_STRING(BGl_string1898z00zz__expander_srfi0z00,
			BgL_bgl_string1898za700za7za7_1984za7);
		BGL_BIND_STRING(BGl_string1896z00zz__expander_srfi0z00,
			BgL_bgl_string1896za700za7za7_1983za7);
		BGL_BIND_STRING(BGl_string1894z00zz__expander_srfi0z00,
			BgL_bgl_string1894za700za7za7_1982za7);
		BGL_BIND_STRING(BGl_string1892z00zz__expander_srfi0z00,
			BgL_bgl_string1892za700za7za7_1981za7);
		BGL_BIND_PROCEDURE
			(BGl_registerzd2compilezd2srfiz12zd2envzc0zz__expander_srfi0z00,
			BgL_bgl_za762registerza7d2co1980z00);
		BGL_BIND_STRING(BGl_string1889z00zz__expander_srfi0z00,
			BgL_bgl_string1889za700za7za7_1979za7);
		BGL_BIND_STRING(BGl_string1888z00zz__expander_srfi0z00,
			BgL_bgl_string1888za700za7za7_1978za7);
		BGL_BIND_STRING(BGl_string1887z00zz__expander_srfi0z00,
			BgL_bgl_string1887za700za7za7_1977za7);
		BGL_BIND_STRING(BGl_string1885z00zz__expander_srfi0z00,
			BgL_bgl_string1885za700za7za7_1976za7);
		BGL_BIND_STRING(BGl_string1884z00zz__expander_srfi0z00,
			BgL_bgl_string1884za700za7za7_1975za7);
		BGL_BIND_STRING(BGl_string1883z00zz__expander_srfi0z00,
			BgL_bgl_string1883za700za7za7_1974za7);
		BGL_BIND_STRING(BGl_string1881z00zz__expander_srfi0z00,
			BgL_bgl_string1881za700za7za7_1973za7);
		BGL_BIND_STRING(BGl_string1962z00zz__expander_srfi0z00,
			BgL_bgl_string1962za700za7za7_1972za7);
		BGL_BIND_STRING(BGl_string1961z00zz__expander_srfi0z00,
			BgL_bgl_string1961za700za7za7_1971za7);
		BGL_BIND_STRING(BGl_string1960z00zz__expander_srfi0z00,
			BgL_bgl_string1960za700za7za7_1970za7);
		BGL_BIND_PROCEDURE(BGl_compilezd2srfizf3zd2envzf3zz__expander_srfi0z00,
			BgL_bgl_za762compileza7d2srf1969z00);
		BGL_BIND_PROCEDURE
			(BGl_unregisterzd2evalzd2srfiz12zd2envzc0zz__expander_srfi0z00,
			BgL_bgl_za762unregisterza7d21968z00);
		BGL_BIND_PROCEDURE(BGl_expandzd2condzd2expandzd2envzd2zz__expander_srfi0z00,
			BgL_bgl_za762expandza7d2cond1967z00);
		BGL_BIND_STRING(BGl_string1958z00zz__expander_srfi0z00,
			BgL_bgl_string1958za700za7za7_1966za7);
		BGL_BIND_STRING(BGl_string1956z00zz__expander_srfi0z00,
			BgL_bgl_string1956za700za7za7_1965za7);
		BGL_BIND_STRING(BGl_string1954z00zz__expander_srfi0z00,
			BgL_bgl_string1954za700za7za7_1964za7);
		BGL_BIND_STRING(BGl_string1951z00zz__expander_srfi0z00,
			BgL_bgl_string1951za700za7za7_1963za7);
	}

/* 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_symbol1925z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1927z00zz__expander_srfi0z00));
		ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__expander_srfi0z00));
		ADD_ROOT((void
				*) (&BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1943z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1947z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1948z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1950z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1953z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1955z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1957z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1959z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1880z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1882z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_symbol1886z00zz__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_list1952z00zz__expander_srfi0z00));
		ADD_ROOT((void *) (&BGl_list1890z00zz__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_2399, char *BgL_fromz00_2400)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__expander_srfi0z00))
				{
					BGl_requirezd2initializa7ationz75zz__expander_srfi0z00 =
						BBOOL(((bool_t) 0));
					bgl_constant_bindings();
					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_symbol1880z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1881z00zz__expander_srfi0z00);
			BGl_symbol1882z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1883z00zz__expander_srfi0z00);
			BGl_symbol1886z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1887z00zz__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_symbol1911z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1912z00zz__expander_srfi0z00);
			BGl_symbol1913z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1914z00zz__expander_srfi0z00);
			BGl_list1890z00zz__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,
													MAKE_YOUNG_PAIR
													(BGl_symbol1911z00zz__expander_srfi0z00,
														MAKE_YOUNG_PAIR
														(BGl_symbol1913z00zz__expander_srfi0z00,
															BNIL))))))))))));
			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_symbol1925z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1926z00zz__expander_srfi0z00);
			BGl_symbol1927z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1928z00zz__expander_srfi0z00);
			BGl_symbol1943z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1944z00zz__expander_srfi0z00);
			BGl_symbol1947z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1945z00zz__expander_srfi0z00);
			BGl_symbol1948z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1949z00zz__expander_srfi0z00);
			BGl_symbol1950z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1951z00zz__expander_srfi0z00);
			BGl_list1952z00zz__expander_srfi0z00 = MAKE_YOUNG_PAIR(BUNSPEC, BNIL);
			BGl_symbol1953z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1954z00zz__expander_srfi0z00);
			BGl_symbol1955z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1956z00zz__expander_srfi0z00);
			BGl_symbol1957z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1958z00zz__expander_srfi0z00);
			return (BGl_symbol1959z00zz__expander_srfi0z00 =
				bstring_to_symbol(BGl_string1960z00zz__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_symbol1880z00zz__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_1150;

				BgL_isiza7eza7_1150 =
					BGl_bigloozd2configzd2zz__configurez00
					(BGl_symbol1882z00zz__expander_srfi0z00);
				{	/* Eval/expdsrfi0.scm 103 */
					obj_t BgL_arg1189z00_1151;

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

						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_isiza7eza7_1150))
							{	/* Ieee/number.scm 172 */

								BgL_arg1192z00_1152 =
									BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
									(BgL_isiza7eza7_1150, BINT(10L));
							}
						else
							{	/* Eval/expdsrfi0.scm 103 */
								BgL_arg1192z00_1152 = BGl_string1884z00zz__expander_srfi0z00;
							}
						BgL_arg1189z00_1151 =
							string_append(BGl_string1885z00zz__expander_srfi0z00,
							BgL_arg1192z00_1152);
					}
					return bstring_to_symbol(BgL_arg1189z00_1151);
				}
			}
		}

	}



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

				BgL_esiza7eza7_1156 =
					BGl_bigloozd2configzd2zz__configurez00
					(BGl_symbol1886z00zz__expander_srfi0z00);
				{	/* Eval/expdsrfi0.scm 112 */
					obj_t BgL_arg1194z00_1157;

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

						if (BGl_numberzf3zf3zz__r4_numbers_6_5z00(BgL_esiza7eza7_1156))
							{	/* Ieee/number.scm 172 */

								BgL_arg1195z00_1158 =
									BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00
									(BgL_esiza7eza7_1156, BINT(10L));
							}
						else
							{	/* Eval/expdsrfi0.scm 112 */
								BgL_arg1195z00_1158 = BGl_string1888z00zz__expander_srfi0z00;
							}
						BgL_arg1194z00_1157 =
							string_append(BGl_string1889z00zz__expander_srfi0z00,
							BgL_arg1195z00_1158);
					}
					return bstring_to_symbol(BgL_arg1194z00_1157);
				}
			}
		}

	}



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

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

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

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

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

								{	/* Eval/expdsrfi0.scm 142 */
									obj_t BgL_arg1207z00_1168;
									obj_t BgL_arg1208z00_1169;

									BgL_arg1207z00_1168 =
										BGl_bigloozd2intzd2siza7eza7zz__expander_srfi0z00();
									{	/* Eval/expdsrfi0.scm 143 */
										obj_t BgL_arg1211z00_1170;

										BgL_arg1211z00_1170 =
											BGl_bigloozd2elongzd2siza7eza7zz__expander_srfi0z00();
										BgL_arg1208z00_1169 =
											MAKE_YOUNG_PAIR(BgL_arg1211z00_1170,
											BGl_list1890z00zz__expander_srfi0z00);
									}
									BgL_arg1206z00_1167 =
										MAKE_YOUNG_PAIR(BgL_arg1207z00_1168, BgL_arg1208z00_1169);
								}
								BgL_arg1203z00_1166 =
									MAKE_YOUNG_PAIR(BGl_symbol1915z00zz__expander_srfi0z00,
									BgL_arg1206z00_1167);
							}
							BgL_arg1202z00_1165 =
								MAKE_YOUNG_PAIR(BGl_symbol1917z00zz__expander_srfi0z00,
								BgL_arg1203z00_1166);
						}
						BgL_arg1201z00_1164 =
							MAKE_YOUNG_PAIR(BGl_symbol1919z00zz__expander_srfi0z00,
							BgL_arg1202z00_1165);
					}
					BgL_lz00_1162 =
						MAKE_YOUNG_PAIR(BGl_symbol1921z00zz__expander_srfi0z00,
						BgL_arg1201z00_1164);
				}
				if (BGL_AUTO_FINALIZER)
					{	/* Eval/expdsrfi0.scm 157 */
						obj_t BgL_arg1197z00_1163;

						BgL_arg1197z00_1163 =
							MAKE_YOUNG_PAIR(BGl_symbol1923z00zz__expander_srfi0z00,
							BgL_lz00_1162);
						return MAKE_YOUNG_PAIR(BGl_symbol1925z00zz__expander_srfi0z00,
							BgL_arg1197z00_1163);
					}
				else
					{	/* Eval/expdsrfi0.scm 156 */
						return BgL_lz00_1162;
					}
			}
		}

	}



/* 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_arg1213z00_1171;

					BgL_arg1213z00_1171 =
						BGl_srfizd2commonzd2listz00zz__expander_srfi0z00();
					BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 =
						MAKE_YOUNG_PAIR(BGl_symbol1927z00zz__expander_srfi0z00,
						BgL_arg1213z00_1171);
				}
			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_top2032z00_2487;

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

					BgL_tmp2031z00_2486 =
						(BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 =
						MAKE_YOUNG_PAIR(BgL_srfiz00_3,
							BGl_srfizd2evalzd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2032z00_2487);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2031z00_2486;
				}
			}
		}

	}



/* &register-eval-srfi! */
	obj_t BGl_z62registerzd2evalzd2srfiz12z70zz__expander_srfi0z00(obj_t
		BgL_envz00_2313, obj_t BgL_srfiz00_2314)
	{
		{	/* Eval/expdsrfi0.scm 185 */
			{	/* Eval/expdsrfi0.scm 186 */
				obj_t BgL_auxz00_2495;

				if (SYMBOLP(BgL_srfiz00_2314))
					{	/* Eval/expdsrfi0.scm 186 */
						BgL_auxz00_2495 = BgL_srfiz00_2314;
					}
				else
					{
						obj_t BgL_auxz00_2498;

						BgL_auxz00_2498 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(7622L),
							BGl_string1930z00zz__expander_srfi0z00,
							BGl_string1931z00zz__expander_srfi0z00, BgL_srfiz00_2314);
						FAILURE(BgL_auxz00_2498, BFALSE, BFALSE);
					}
				return bgl_register_eval_srfi(BgL_auxz00_2495);
			}
		}

	}



/* 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_top2035z00_2504;

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

					BgL_tmp2034z00_2503 =
						(BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 =
						bgl_remq_bang(BgL_srfiz00_4,
							BGl_srfizd2evalzd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2035z00_2504);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2034z00_2503;
				}
			}
		}

	}



/* &unregister-eval-srfi! */
	obj_t BGl_z62unregisterzd2evalzd2srfiz12z70zz__expander_srfi0z00(obj_t
		BgL_envz00_2315, obj_t BgL_srfiz00_2316)
	{
		{	/* Eval/expdsrfi0.scm 192 */
			{	/* Eval/expdsrfi0.scm 193 */
				obj_t BgL_auxz00_2512;

				if (SYMBOLP(BgL_srfiz00_2316))
					{	/* Eval/expdsrfi0.scm 193 */
						BgL_auxz00_2512 = BgL_srfiz00_2316;
					}
				else
					{
						obj_t BgL_auxz00_2515;

						BgL_auxz00_2515 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(7980L),
							BGl_string1932z00zz__expander_srfi0z00,
							BGl_string1931z00zz__expander_srfi0z00, BgL_srfiz00_2316);
						FAILURE(BgL_auxz00_2515, BFALSE, BFALSE);
					}
				return
					BGl_unregisterzd2evalzd2srfiz12z12zz__expander_srfi0z00
					(BgL_auxz00_2512);
			}
		}

	}



/* 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_top2038z00_2521;

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

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

						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_1869 =
							BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00;
						BgL_tmp2037z00_2520 =
							(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
							MAKE_YOUNG_PAIR(BgL_srfiz00_5, BgL_arg1217z00_1869), BUNSPEC);
					}
					BGL_EXITD_POP_PROTECT(BgL_top2038z00_2521);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2037z00_2520;
				}
			}
		}

	}



/* &register-compile-srfi! */
	obj_t BGl_z62registerzd2compilezd2srfiz12z70zz__expander_srfi0z00(obj_t
		BgL_envz00_2317, obj_t BgL_srfiz00_2318)
	{
		{	/* Eval/expdsrfi0.scm 199 */
			{	/* Eval/expdsrfi0.scm 200 */
				obj_t BgL_auxz00_2531;

				if (SYMBOLP(BgL_srfiz00_2318))
					{	/* Eval/expdsrfi0.scm 200 */
						BgL_auxz00_2531 = BgL_srfiz00_2318;
					}
				else
					{
						obj_t BgL_auxz00_2534;

						BgL_auxz00_2534 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(8340L),
							BGl_string1933z00zz__expander_srfi0z00,
							BGl_string1931z00zz__expander_srfi0z00, BgL_srfiz00_2318);
						FAILURE(BgL_auxz00_2534, BFALSE, BFALSE);
					}
				return
					BGl_registerzd2compilezd2srfiz12z12zz__expander_srfi0z00
					(BgL_auxz00_2531);
			}
		}

	}



/* 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_top2042z00_2540;

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

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

						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_arg1219z00_1870 =
							BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00;
						BgL_tmp2041z00_2539 =
							(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
							bgl_remq_bang(BgL_srfiz00_6, BgL_arg1219z00_1870), BUNSPEC);
					}
					BGL_EXITD_POP_PROTECT(BgL_top2042z00_2540);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2041z00_2539;
				}
			}
		}

	}



/* &unregister-compile-srfi! */
	obj_t BGl_z62unregisterzd2compilezd2srfiz12z70zz__expander_srfi0z00(obj_t
		BgL_envz00_2319, obj_t BgL_srfiz00_2320)
	{
		{	/* Eval/expdsrfi0.scm 206 */
			{	/* Eval/expdsrfi0.scm 207 */
				obj_t BgL_auxz00_2550;

				if (SYMBOLP(BgL_srfiz00_2320))
					{	/* Eval/expdsrfi0.scm 207 */
						BgL_auxz00_2550 = BgL_srfiz00_2320;
					}
				else
					{
						obj_t BgL_auxz00_2553;

						BgL_auxz00_2553 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(8707L),
							BGl_string1934z00zz__expander_srfi0z00,
							BGl_string1931z00zz__expander_srfi0z00, BgL_srfiz00_2320);
						FAILURE(BgL_auxz00_2553, BFALSE, BFALSE);
					}
				return
					BGl_unregisterzd2compilezd2srfiz12z12zz__expander_srfi0z00
					(BgL_auxz00_2550);
			}
		}

	}



/* 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_top2046z00_2559;

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

					BgL_tmp2045z00_2558 =
						(BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 =
						MAKE_YOUNG_PAIR(BgL_srfiz00_7,
							BGl_srfizd2evalzd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2046z00_2559);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					BgL_tmp2045z00_2558;
				}
			}
			{	/* Eval/expdsrfi0.scm 200 */
				obj_t BgL_top2048z00_2568;

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

					BgL_tmp2047z00_2567 =
						(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
						MAKE_YOUNG_PAIR(BgL_srfiz00_7,
							BGl_srfizd2compilezd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2048z00_2568);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2047z00_2567;
				}
			}
		}

	}



/* &register-srfi! */
	obj_t BGl_z62registerzd2srfiz12za2zz__expander_srfi0z00(obj_t BgL_envz00_2321,
		obj_t BgL_srfiz00_2322)
	{
		{	/* Eval/expdsrfi0.scm 213 */
			{	/* Eval/expdsrfi0.scm 214 */
				obj_t BgL_auxz00_2576;

				if (SYMBOLP(BgL_srfiz00_2322))
					{	/* Eval/expdsrfi0.scm 214 */
						BgL_auxz00_2576 = BgL_srfiz00_2322;
					}
				else
					{
						obj_t BgL_auxz00_2579;

						BgL_auxz00_2579 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(9090L),
							BGl_string1935z00zz__expander_srfi0z00,
							BGl_string1931z00zz__expander_srfi0z00, BgL_srfiz00_2322);
						FAILURE(BgL_auxz00_2579, BFALSE, BFALSE);
					}
				return BGl_registerzd2srfiz12zc0zz__expander_srfi0z00(BgL_auxz00_2576);
			}
		}

	}



/* 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_top2051z00_2585;

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

					BgL_tmp2050z00_2584 =
						(BGl_za2srfizd2evalzd2listza2z00zz__expander_srfi0z00 =
						bgl_remq_bang(BgL_srfiz00_8,
							BGl_srfizd2evalzd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2051z00_2585);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					BgL_tmp2050z00_2584;
				}
			}
			{	/* Eval/expdsrfi0.scm 207 */
				obj_t BgL_top2053z00_2594;

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

					BgL_tmp2052z00_2593 =
						(BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00 =
						bgl_remq_bang(BgL_srfiz00_8,
							BGl_srfizd2compilezd2listz00zz__expander_srfi0z00()), BUNSPEC);
					BGL_EXITD_POP_PROTECT(BgL_top2053z00_2594);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2052z00_2593;
				}
			}
		}

	}



/* &unregister-srfi! */
	obj_t BGl_z62unregisterzd2srfiz12za2zz__expander_srfi0z00(obj_t
		BgL_envz00_2323, obj_t BgL_srfiz00_2324)
	{
		{	/* Eval/expdsrfi0.scm 220 */
			{	/* Eval/expdsrfi0.scm 221 */
				obj_t BgL_auxz00_2602;

				if (SYMBOLP(BgL_srfiz00_2324))
					{	/* Eval/expdsrfi0.scm 221 */
						BgL_auxz00_2602 = BgL_srfiz00_2324;
					}
				else
					{
						obj_t BgL_auxz00_2605;

						BgL_auxz00_2605 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(9419L),
							BGl_string1936z00zz__expander_srfi0z00,
							BGl_string1931z00zz__expander_srfi0z00, BgL_srfiz00_2324);
						FAILURE(BgL_auxz00_2605, BFALSE, BFALSE);
					}
				return
					BGl_unregisterzd2srfiz12zc0zz__expander_srfi0z00(BgL_auxz00_2602);
			}
		}

	}



/* 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_2325, obj_t BgL_xz00_2326, obj_t BgL_ez00_2327)
	{
		{	/* Eval/expdsrfi0.scm 227 */
			{	/* Eval/expdsrfi0.scm 228 */
				obj_t BgL_auxz00_2619;
				obj_t BgL_auxz00_2612;

				if (PROCEDUREP(BgL_ez00_2327))
					{	/* Eval/expdsrfi0.scm 228 */
						BgL_auxz00_2619 = BgL_ez00_2327;
					}
				else
					{
						obj_t BgL_auxz00_2622;

						BgL_auxz00_2622 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(9745L),
							BGl_string1937z00zz__expander_srfi0z00,
							BGl_string1939z00zz__expander_srfi0z00, BgL_ez00_2327);
						FAILURE(BgL_auxz00_2622, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_2326))
					{	/* Eval/expdsrfi0.scm 228 */
						BgL_auxz00_2612 = BgL_xz00_2326;
					}
				else
					{
						obj_t BgL_auxz00_2615;

						BgL_auxz00_2615 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(9745L),
							BGl_string1937z00zz__expander_srfi0z00,
							BGl_string1938z00zz__expander_srfi0z00, BgL_xz00_2326);
						FAILURE(BgL_auxz00_2615, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2evalzd2condzd2expandzd2zz__expander_srfi0z00
					(BgL_auxz00_2612, BgL_auxz00_2619);
			}
		}

	}



/* 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_arg1225z00_1880;

				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_arg1225z00_1880 =
					BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00;
				return BGl_expandzd2condzd2expandz00zz__expander_srfi0z00(BgL_xz00_11,
					BgL_ez00_12, BgL_arg1225z00_1880);
			}
		}

	}



/* &expand-compile-cond-expand */
	obj_t BGl_z62expandzd2compilezd2condzd2expandzb0zz__expander_srfi0z00(obj_t
		BgL_envz00_2328, obj_t BgL_xz00_2329, obj_t BgL_ez00_2330)
	{
		{	/* Eval/expdsrfi0.scm 233 */
			{	/* Eval/expdsrfi0.scm 234 */
				obj_t BgL_auxz00_2638;
				obj_t BgL_auxz00_2631;

				if (PROCEDUREP(BgL_ez00_2330))
					{	/* Eval/expdsrfi0.scm 234 */
						BgL_auxz00_2638 = BgL_ez00_2330;
					}
				else
					{
						obj_t BgL_auxz00_2641;

						BgL_auxz00_2641 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(10055L),
							BGl_string1940z00zz__expander_srfi0z00,
							BGl_string1939z00zz__expander_srfi0z00, BgL_ez00_2330);
						FAILURE(BgL_auxz00_2641, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_2329))
					{	/* Eval/expdsrfi0.scm 234 */
						BgL_auxz00_2631 = BgL_xz00_2329;
					}
				else
					{
						obj_t BgL_auxz00_2634;

						BgL_auxz00_2634 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(10055L),
							BGl_string1940z00zz__expander_srfi0z00,
							BGl_string1938z00zz__expander_srfi0z00, BgL_xz00_2329);
						FAILURE(BgL_auxz00_2634, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2compilezd2condzd2expandzd2zz__expander_srfi0z00
					(BgL_auxz00_2631, BgL_auxz00_2638);
			}
		}

	}



/* 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_top2061z00_2647;

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

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

						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_arg1226z00_1881 =
							BGl_za2srfizd2compilezd2listza2z00zz__expander_srfi0z00;
						BgL_tmp2060z00_2646 =
							CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_srfiz00_13,
								BgL_arg1226z00_1881));
					}
					BGL_EXITD_POP_PROTECT(BgL_top2061z00_2647);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2060z00_2646;
				}
			}
		}

	}



/* &compile-srfi? */
	obj_t BGl_z62compilezd2srfizf3z43zz__expander_srfi0z00(obj_t BgL_envz00_2331,
		obj_t BgL_srfiz00_2332)
	{
		{	/* Eval/expdsrfi0.scm 239 */
			{	/* Eval/expdsrfi0.scm 240 */
				bool_t BgL_tmpz00_2658;

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

					if (SYMBOLP(BgL_srfiz00_2332))
						{	/* Eval/expdsrfi0.scm 240 */
							BgL_auxz00_2659 = BgL_srfiz00_2332;
						}
					else
						{
							obj_t BgL_auxz00_2662;

							BgL_auxz00_2662 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1929z00zz__expander_srfi0z00, BINT(10332L),
								BGl_string1941z00zz__expander_srfi0z00,
								BGl_string1931z00zz__expander_srfi0z00, BgL_srfiz00_2332);
							FAILURE(BgL_auxz00_2662, BFALSE, BFALSE);
						}
					BgL_tmpz00_2658 =
						BGl_compilezd2srfizf3z21zz__expander_srfi0z00(BgL_auxz00_2659);
				}
				return BBOOL(BgL_tmpz00_2658);
			}
		}

	}



/* 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_top2065z00_2669;

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

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

						BgL_arg1230z00_1882 =
							BGl_srfizd2evalzd2listz00zz__expander_srfi0z00();
						BgL_tmp2064z00_2668 =
							CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_srfiz00_14,
								BgL_arg1230z00_1882));
					}
					BGL_EXITD_POP_PROTECT(BgL_top2065z00_2669);
					BUNSPEC;
					BGL_MUTEX_UNLOCK(BGl_za2srfizd2mutexza2zd2zz__expander_srfi0z00);
					return BgL_tmp2064z00_2668;
				}
			}
		}

	}



/* &eval-srfi? */
	obj_t BGl_z62evalzd2srfizf3z43zz__expander_srfi0z00(obj_t BgL_envz00_2333,
		obj_t BgL_srfiz00_2334)
	{
		{	/* Eval/expdsrfi0.scm 246 */
			{	/* Eval/expdsrfi0.scm 247 */
				bool_t BgL_tmpz00_2678;

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

					if (SYMBOLP(BgL_srfiz00_2334))
						{	/* Eval/expdsrfi0.scm 247 */
							BgL_auxz00_2679 = BgL_srfiz00_2334;
						}
					else
						{
							obj_t BgL_auxz00_2682;

							BgL_auxz00_2682 =
								BGl_typezd2errorzd2zz__errorz00
								(BGl_string1929z00zz__expander_srfi0z00, BINT(10653L),
								BGl_string1942z00zz__expander_srfi0z00,
								BGl_string1931z00zz__expander_srfi0z00, BgL_srfiz00_2334);
							FAILURE(BgL_auxz00_2682, BFALSE, BFALSE);
						}
					BgL_tmpz00_2678 =
						BGl_evalzd2srfizf3z21zz__expander_srfi0z00(BgL_auxz00_2679);
				}
				return BBOOL(BgL_tmpz00_2678);
			}
		}

	}



/* 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 256 */
							return
								MAKE_YOUNG_PAIR(BGl_symbol1943z00zz__expander_srfi0z00,
								BgL_bodyz00_15);
						}
				}
			else
				{	/* Eval/expdsrfi0.scm 255 */
					obj_t BgL_arg1235z00_1184;

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

						if (NULLP(BgL_bodyz00_15))
							{	/* Eval/expdsrfi0.scm 255 */
								BgL_arg1236z00_1185 = BUNSPEC;
							}
						else
							{	/* Eval/expdsrfi0.scm 255 */
								BgL_arg1236z00_1185 = BgL_bodyz00_15;
							}
						BgL_arg1235z00_1184 = MAKE_YOUNG_PAIR(BgL_arg1236z00_1185, BNIL);
					}
					return
						MAKE_YOUNG_PAIR(BGl_symbol1943z00zz__expander_srfi0z00,
						BgL_arg1235z00_1184);
				}
		}

	}



/* 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_1188;
				obj_t BgL_elsez00_1189;

				if (NULLP(BgL_xz00_16))
					{	/* Eval/expdsrfi0.scm 266 */
						return
							BGl_expandzd2errorzd2zz__expandz00
							(BGl_string1945z00zz__expander_srfi0z00,
							BGl_string1946z00zz__expander_srfi0z00, BgL_xz00_16);
					}
				else
					{	/* Eval/expdsrfi0.scm 266 */
						if (
							(CAR(
									((obj_t) BgL_xz00_16)) ==
								BGl_symbol1947z00zz__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_1198;

										BgL_cdrzd2165zd2_1198 = CDR(((obj_t) BgL_xz00_16));
										if (PAIRP(BgL_cdrzd2165zd2_1198))
											{	/* Eval/expdsrfi0.scm 266 */
												BgL_clausez00_1188 = CAR(BgL_cdrzd2165zd2_1198);
												BgL_elsez00_1189 = CDR(BgL_cdrzd2165zd2_1198);
											BgL_tagzd2153zd2_1190:
												{
													obj_t BgL_reqz00_1230;
													obj_t BgL_bodyz00_1231;
													obj_t BgL_bodyz00_1208;

													if (PAIRP(BgL_clausez00_1188))
														{	/* Eval/expdsrfi0.scm 266 */
															if (
																(CAR(
																		((obj_t) BgL_clausez00_1188)) ==
																	BGl_symbol1948z00zz__expander_srfi0z00))
																{	/* Eval/expdsrfi0.scm 266 */
																	obj_t BgL_arg1263z00_1248;

																	BgL_arg1263z00_1248 =
																		CDR(((obj_t) BgL_clausez00_1188));
																	BgL_bodyz00_1208 = BgL_arg1263z00_1248;
																	if (NULLP(BgL_elsez00_1189))
																		{	/* Eval/expdsrfi0.scm 272 */
																			if (NULLP(BgL_bodyz00_1208))
																				{	/* Eval/expdsrfi0.scm 273 */
																					return BUNSPEC;
																				}
																			else
																				{	/* Eval/expdsrfi0.scm 275 */
																					obj_t BgL_arg1403z00_1380;

																					BgL_arg1403z00_1380 =
																						BGl_evepairifyz00zz__prognz00
																						(BGl_prognz00zz__expander_srfi0z00
																						(BgL_bodyz00_1208), BgL_xz00_16);
																					return
																						BGL_PROCEDURE_CALL2(BgL_ez00_17,
																						BgL_arg1403z00_1380, BgL_ez00_17);
																				}
																		}
																	else
																		{	/* Eval/expdsrfi0.scm 272 */
																			return
																				BGl_expandzd2errorzd2zz__expandz00
																				(BGl_string1945z00zz__expander_srfi0z00,
																				BGl_string1946z00zz__expander_srfi0z00,
																				BgL_xz00_16);
																		}
																}
															else
																{	/* Eval/expdsrfi0.scm 266 */
																	obj_t BgL_carzd2224zd2_1249;

																	BgL_carzd2224zd2_1249 =
																		CAR(((obj_t) BgL_clausez00_1188));
																	if (PAIRP(BgL_carzd2224zd2_1249))
																		{	/* Eval/expdsrfi0.scm 266 */
																			if (
																				(CAR(BgL_carzd2224zd2_1249) ==
																					BGl_symbol1950z00zz__expander_srfi0z00))
																				{	/* Eval/expdsrfi0.scm 266 */
																					if (NULLP(CDR(BgL_carzd2224zd2_1249)))
																						{	/* Eval/expdsrfi0.scm 266 */
																							obj_t BgL_arg1269z00_1255;

																							BgL_arg1269z00_1255 =
																								CDR(
																								((obj_t) BgL_clausez00_1188));
																							{	/* Eval/expdsrfi0.scm 278 */
																								obj_t BgL_arg1405z00_1946;

																								BgL_arg1405z00_1946 =
																									BGl_evepairifyz00zz__prognz00
																									(BGl_prognz00zz__expander_srfi0z00
																									(BgL_arg1269z00_1255),
																									BgL_xz00_16);
																								return
																									BGL_PROCEDURE_CALL2
																									(BgL_ez00_17,
																									BgL_arg1405z00_1946,
																									BgL_ez00_17);
																							}
																						}
																					else
																						{	/* Eval/expdsrfi0.scm 266 */
																							obj_t BgL_cdrzd2244zd2_1256;

																							BgL_cdrzd2244zd2_1256 =
																								CDR(
																								((obj_t)
																									BgL_carzd2224zd2_1249));
																							if (PAIRP(BgL_cdrzd2244zd2_1256))
																								{	/* Eval/expdsrfi0.scm 266 */
																									if (NULLP(CDR
																											(BgL_cdrzd2244zd2_1256)))
																										{	/* Eval/expdsrfi0.scm 266 */
																											obj_t BgL_arg1274z00_1260;
																											obj_t BgL_arg1276z00_1261;

																											BgL_arg1274z00_1260 =
																												CAR
																												(BgL_cdrzd2244zd2_1256);
																											BgL_arg1276z00_1261 =
																												CDR(((obj_t)
																													BgL_clausez00_1188));
																											{	/* Eval/expdsrfi0.scm 281 */
																												obj_t
																													BgL_arg1408z00_1953;
																												{	/* Eval/expdsrfi0.scm 281 */
																													obj_t
																														BgL_arg1409z00_1954;
																													{	/* Eval/expdsrfi0.scm 281 */
																														obj_t
																															BgL_arg1410z00_1955;
																														{	/* Eval/expdsrfi0.scm 281 */
																															obj_t
																																BgL_arg1411z00_1956;
																															BgL_arg1411z00_1956
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1274z00_1260,
																																BgL_arg1276z00_1261);
																															BgL_arg1410z00_1955
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1411z00_1956,
																																BgL_elsez00_1189);
																														}
																														BgL_arg1409z00_1954
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol1947z00zz__expander_srfi0z00,
																															BgL_arg1410z00_1955);
																													}
																													BgL_arg1408z00_1953 =
																														BGl_evepairifyz00zz__prognz00
																														(BgL_arg1409z00_1954,
																														BgL_xz00_16);
																												}
																												return
																													BGL_PROCEDURE_CALL2
																													(BgL_ez00_17,
																													BgL_arg1408z00_1953,
																													BgL_ez00_17);
																											}
																										}
																									else
																										{	/* Eval/expdsrfi0.scm 266 */
																											obj_t
																												BgL_cdrzd2271zd2_1262;
																											{	/* Eval/expdsrfi0.scm 266 */
																												obj_t BgL_pairz00_1958;

																												BgL_pairz00_1958 =
																													CAR(
																													((obj_t)
																														BgL_clausez00_1188));
																												BgL_cdrzd2271zd2_1262 =
																													CDR(BgL_pairz00_1958);
																											}
																											{	/* Eval/expdsrfi0.scm 266 */
																												obj_t
																													BgL_cdrzd2277zd2_1263;
																												BgL_cdrzd2277zd2_1263 =
																													CDR(((obj_t)
																														BgL_cdrzd2271zd2_1262));
																												if (PAIRP
																													(BgL_cdrzd2277zd2_1263))
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_arg1278z00_1265;
																														obj_t
																															BgL_arg1279z00_1266;
																														obj_t
																															BgL_arg1280z00_1267;
																														obj_t
																															BgL_arg1281z00_1268;
																														BgL_arg1278z00_1265
																															=
																															CAR(((obj_t)
																																BgL_cdrzd2271zd2_1262));
																														BgL_arg1279z00_1266
																															=
																															CAR
																															(BgL_cdrzd2277zd2_1263);
																														BgL_arg1280z00_1267
																															=
																															CDR
																															(BgL_cdrzd2277zd2_1263);
																														BgL_arg1281z00_1268
																															=
																															CDR(((obj_t)
																																BgL_clausez00_1188));
																														{	/* Eval/expdsrfi0.scm 287 */
																															obj_t
																																BgL_arg1412z00_1964;
																															if (NULLP
																																(BgL_arg1281z00_1268))
																																{	/* Eval/expdsrfi0.scm 287 */
																																	BgL_arg1412z00_1964
																																		=
																																		BGl_list1952z00zz__expander_srfi0z00;
																																}
																															else
																																{	/* Eval/expdsrfi0.scm 287 */
																																	BgL_arg1412z00_1964
																																		=
																																		BgL_arg1281z00_1268;
																																}
																															return
																																BGl_expandzd2condzd2expandzd2andzd2zz__expander_srfi0z00
																																(BgL_xz00_16,
																																BgL_ez00_17,
																																BgL_arg1278z00_1265,
																																BgL_arg1279z00_1266,
																																BgL_arg1280z00_1267,
																																BgL_arg1412z00_1964,
																																BgL_elsez00_1189);
																														}
																													}
																												else
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_carzd2347zd2_1269;
																														BgL_carzd2347zd2_1269
																															=
																															CAR(((obj_t)
																																BgL_clausez00_1188));
																														if (SYMBOLP
																															(BgL_carzd2347zd2_1269))
																															{	/* Eval/expdsrfi0.scm 266 */
																																obj_t
																																	BgL_arg1283z00_1271;
																																BgL_arg1283z00_1271
																																	=
																																	CDR(((obj_t)
																																		BgL_clausez00_1188));
																																{	/* Eval/expdsrfi0.scm 318 */
																																	obj_t
																																		BgL_arg1439z00_1968;
																																	{	/* Eval/expdsrfi0.scm 318 */
																																		obj_t
																																			BgL_arg1442z00_1969;
																																		if (CBOOL
																																			(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																																				(BgL_carzd2347zd2_1269,
																																					BgL_featuresz00_18)))
																																			{	/* Eval/expdsrfi0.scm 318 */
																																				if (NULLP(BgL_arg1283z00_1271))
																																					{	/* Eval/expdsrfi0.scm 319 */
																																						BgL_arg1442z00_1969
																																							=
																																							BUNSPEC;
																																					}
																																				else
																																					{	/* Eval/expdsrfi0.scm 319 */
																																						BgL_arg1442z00_1969
																																							=
																																							BGl_prognz00zz__expander_srfi0z00
																																							(BgL_arg1283z00_1271);
																																					}
																																			}
																																		else
																																			{	/* Eval/expdsrfi0.scm 318 */
																																				BgL_arg1442z00_1969
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol1947z00zz__expander_srfi0z00,
																																					BgL_elsez00_1189);
																																			}
																																		BgL_arg1439z00_1968
																																			=
																																			BGl_evepairifyz00zz__prognz00
																																			(BgL_arg1442z00_1969,
																																			BgL_xz00_16);
																																	}
																																	return
																																		BGL_PROCEDURE_CALL2
																																		(BgL_ez00_17,
																																		BgL_arg1439z00_1968,
																																		BgL_ez00_17);
																																}
																															}
																														else
																															{	/* Eval/expdsrfi0.scm 266 */
																																return
																																	BGl_expandzd2errorzd2zz__expandz00
																																	(BGl_string1945z00zz__expander_srfi0z00,
																																	BGl_string1946z00zz__expander_srfi0z00,
																																	BgL_xz00_16);
																															}
																													}
																											}
																										}
																								}
																							else
																								{	/* Eval/expdsrfi0.scm 266 */
																									obj_t BgL_carzd2426zd2_1274;

																									BgL_carzd2426zd2_1274 =
																										CAR(
																										((obj_t)
																											BgL_clausez00_1188));
																									if (SYMBOLP
																										(BgL_carzd2426zd2_1274))
																										{	/* Eval/expdsrfi0.scm 266 */
																											obj_t BgL_arg1291z00_1276;

																											BgL_arg1291z00_1276 =
																												CDR(
																												((obj_t)
																													BgL_clausez00_1188));
																											{	/* Eval/expdsrfi0.scm 318 */
																												obj_t
																													BgL_arg1439z00_1974;
																												{	/* Eval/expdsrfi0.scm 318 */
																													obj_t
																														BgL_arg1442z00_1975;
																													if (CBOOL
																														(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																															(BgL_carzd2426zd2_1274,
																																BgL_featuresz00_18)))
																														{	/* Eval/expdsrfi0.scm 318 */
																															if (NULLP
																																(BgL_arg1291z00_1276))
																																{	/* Eval/expdsrfi0.scm 319 */
																																	BgL_arg1442z00_1975
																																		= BUNSPEC;
																																}
																															else
																																{	/* Eval/expdsrfi0.scm 319 */
																																	BgL_arg1442z00_1975
																																		=
																																		BGl_prognz00zz__expander_srfi0z00
																																		(BgL_arg1291z00_1276);
																																}
																														}
																													else
																														{	/* Eval/expdsrfi0.scm 318 */
																															BgL_arg1442z00_1975
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol1947z00zz__expander_srfi0z00,
																																BgL_elsez00_1189);
																														}
																													BgL_arg1439z00_1974 =
																														BGl_evepairifyz00zz__prognz00
																														(BgL_arg1442z00_1975,
																														BgL_xz00_16);
																												}
																												return
																													BGL_PROCEDURE_CALL2
																													(BgL_ez00_17,
																													BgL_arg1439z00_1974,
																													BgL_ez00_17);
																											}
																										}
																									else
																										{	/* Eval/expdsrfi0.scm 266 */
																											return
																												BGl_expandzd2errorzd2zz__expandz00
																												(BGl_string1945z00zz__expander_srfi0z00,
																												BGl_string1946z00zz__expander_srfi0z00,
																												BgL_xz00_16);
																										}
																								}
																						}
																				}
																			else
																				{	/* Eval/expdsrfi0.scm 266 */
																					if (
																						(CAR(
																								((obj_t) BgL_carzd2224zd2_1249))
																							==
																							BGl_symbol1953z00zz__expander_srfi0z00))
																						{	/* Eval/expdsrfi0.scm 266 */
																							if (NULLP(CDR(
																										((obj_t)
																											BgL_carzd2224zd2_1249))))
																								{	/* Eval/expdsrfi0.scm 290 */
																									obj_t BgL_arg1414z00_1982;

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

																										BgL_arg1415z00_1983 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol1947z00zz__expander_srfi0z00,
																											BgL_elsez00_1189);
																										BgL_arg1414z00_1982 =
																											BGl_evepairifyz00zz__prognz00
																											(BgL_arg1415z00_1983,
																											BgL_xz00_16);
																									}
																									return
																										BGL_PROCEDURE_CALL2
																										(BgL_ez00_17,
																										BgL_arg1414z00_1982,
																										BgL_ez00_17);
																								}
																							else
																								{	/* Eval/expdsrfi0.scm 266 */
																									obj_t BgL_cdrzd2486zd2_1285;

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

																										BgL_pairz00_1985 =
																											CAR(
																											((obj_t)
																												BgL_clausez00_1188));
																										BgL_cdrzd2486zd2_1285 =
																											CDR(BgL_pairz00_1985);
																									}
																									if (PAIRP
																										(BgL_cdrzd2486zd2_1285))
																										{	/* Eval/expdsrfi0.scm 266 */
																											if (NULLP(CDR
																													(BgL_cdrzd2486zd2_1285)))
																												{	/* Eval/expdsrfi0.scm 266 */
																													obj_t
																														BgL_arg1329z00_1289;
																													obj_t
																														BgL_arg1330z00_1290;
																													BgL_arg1329z00_1289 =
																														CAR
																														(BgL_cdrzd2486zd2_1285);
																													BgL_arg1330z00_1290 =
																														CDR(((obj_t)
																															BgL_clausez00_1188));
																													{	/* Eval/expdsrfi0.scm 293 */
																														obj_t
																															BgL_arg1416z00_1989;
																														{	/* Eval/expdsrfi0.scm 293 */
																															obj_t
																																BgL_arg1417z00_1990;
																															{	/* Eval/expdsrfi0.scm 293 */
																																obj_t
																																	BgL_arg1419z00_1991;
																																{	/* Eval/expdsrfi0.scm 293 */
																																	obj_t
																																		BgL_arg1420z00_1992;
																																	BgL_arg1420z00_1992
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1329z00_1289,
																																		BgL_arg1330z00_1290);
																																	BgL_arg1419z00_1991
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1420z00_1992,
																																		BgL_elsez00_1189);
																																}
																																BgL_arg1417z00_1990
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol1947z00zz__expander_srfi0z00,
																																	BgL_arg1419z00_1991);
																															}
																															BgL_arg1416z00_1989
																																=
																																BGl_evepairifyz00zz__prognz00
																																(BgL_arg1417z00_1990,
																																BgL_xz00_16);
																														}
																														return
																															BGL_PROCEDURE_CALL2
																															(BgL_ez00_17,
																															BgL_arg1416z00_1989,
																															BgL_ez00_17);
																													}
																												}
																											else
																												{	/* Eval/expdsrfi0.scm 266 */
																													obj_t
																														BgL_cdrzd2519zd2_1292;
																													BgL_cdrzd2519zd2_1292
																														=
																														CDR(((obj_t)
																															BgL_cdrzd2486zd2_1285));
																													if (PAIRP
																														(BgL_cdrzd2519zd2_1292))
																														{	/* Eval/expdsrfi0.scm 266 */
																															obj_t
																																BgL_arg1332z00_1294;
																															obj_t
																																BgL_arg1333z00_1295;
																															obj_t
																																BgL_arg1334z00_1296;
																															obj_t
																																BgL_arg1335z00_1297;
																															BgL_arg1332z00_1294
																																=
																																CAR(((obj_t)
																																	BgL_cdrzd2486zd2_1285));
																															BgL_arg1333z00_1295
																																=
																																CAR
																																(BgL_cdrzd2519zd2_1292);
																															BgL_arg1334z00_1296
																																=
																																CDR
																																(BgL_cdrzd2519zd2_1292);
																															BgL_arg1335z00_1297
																																=
																																CDR(((obj_t)
																																	BgL_clausez00_1188));
																															return
																																BGl_expandzd2condzd2expandzd2orzd2zz__expander_srfi0z00
																																(BgL_xz00_16,
																																BgL_ez00_17,
																																BgL_arg1332z00_1294,
																																BgL_arg1333z00_1295,
																																BgL_arg1334z00_1296,
																																BgL_arg1335z00_1297,
																																BgL_elsez00_1189);
																														}
																													else
																														{	/* Eval/expdsrfi0.scm 266 */
																															obj_t
																																BgL_carzd2555zd2_1298;
																															BgL_carzd2555zd2_1298
																																=
																																CAR(((obj_t)
																																	BgL_clausez00_1188));
																															if (SYMBOLP
																																(BgL_carzd2555zd2_1298))
																																{	/* Eval/expdsrfi0.scm 266 */
																																	obj_t
																																		BgL_arg1337z00_1300;
																																	BgL_arg1337z00_1300
																																		=
																																		CDR(((obj_t)
																																			BgL_clausez00_1188));
																																	{	/* Eval/expdsrfi0.scm 318 */
																																		obj_t
																																			BgL_arg1439z00_2002;
																																		{	/* Eval/expdsrfi0.scm 318 */
																																			obj_t
																																				BgL_arg1442z00_2003;
																																			if (CBOOL
																																				(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																																					(BgL_carzd2555zd2_1298,
																																						BgL_featuresz00_18)))
																																				{	/* Eval/expdsrfi0.scm 318 */
																																					if (NULLP(BgL_arg1337z00_1300))
																																						{	/* Eval/expdsrfi0.scm 319 */
																																							BgL_arg1442z00_2003
																																								=
																																								BUNSPEC;
																																						}
																																					else
																																						{	/* Eval/expdsrfi0.scm 319 */
																																							BgL_arg1442z00_2003
																																								=
																																								BGl_prognz00zz__expander_srfi0z00
																																								(BgL_arg1337z00_1300);
																																						}
																																				}
																																			else
																																				{	/* Eval/expdsrfi0.scm 318 */
																																					BgL_arg1442z00_2003
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol1947z00zz__expander_srfi0z00,
																																						BgL_elsez00_1189);
																																				}
																																			BgL_arg1439z00_2002
																																				=
																																				BGl_evepairifyz00zz__prognz00
																																				(BgL_arg1442z00_2003,
																																				BgL_xz00_16);
																																		}
																																		return
																																			BGL_PROCEDURE_CALL2
																																			(BgL_ez00_17,
																																			BgL_arg1439z00_2002,
																																			BgL_ez00_17);
																																	}
																																}
																															else
																																{	/* Eval/expdsrfi0.scm 266 */
																																	return
																																		BGl_expandzd2errorzd2zz__expandz00
																																		(BGl_string1945z00zz__expander_srfi0z00,
																																		BGl_string1946z00zz__expander_srfi0z00,
																																		BgL_xz00_16);
																																}
																														}
																												}
																										}
																									else
																										{	/* Eval/expdsrfi0.scm 266 */
																											obj_t
																												BgL_carzd2600zd2_1303;
																											BgL_carzd2600zd2_1303 =
																												CAR(((obj_t)
																													BgL_clausez00_1188));
																											if (SYMBOLP
																												(BgL_carzd2600zd2_1303))
																												{	/* Eval/expdsrfi0.scm 266 */
																													obj_t
																														BgL_arg1341z00_1305;
																													BgL_arg1341z00_1305 =
																														CDR(((obj_t)
																															BgL_clausez00_1188));
																													{	/* Eval/expdsrfi0.scm 318 */
																														obj_t
																															BgL_arg1439z00_2008;
																														{	/* Eval/expdsrfi0.scm 318 */
																															obj_t
																																BgL_arg1442z00_2009;
																															if (CBOOL
																																(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																																	(BgL_carzd2600zd2_1303,
																																		BgL_featuresz00_18)))
																																{	/* Eval/expdsrfi0.scm 318 */
																																	if (NULLP
																																		(BgL_arg1341z00_1305))
																																		{	/* Eval/expdsrfi0.scm 319 */
																																			BgL_arg1442z00_2009
																																				=
																																				BUNSPEC;
																																		}
																																	else
																																		{	/* Eval/expdsrfi0.scm 319 */
																																			BgL_arg1442z00_2009
																																				=
																																				BGl_prognz00zz__expander_srfi0z00
																																				(BgL_arg1341z00_1305);
																																		}
																																}
																															else
																																{	/* Eval/expdsrfi0.scm 318 */
																																	BgL_arg1442z00_2009
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1947z00zz__expander_srfi0z00,
																																		BgL_elsez00_1189);
																																}
																															BgL_arg1439z00_2008
																																=
																																BGl_evepairifyz00zz__prognz00
																																(BgL_arg1442z00_2009,
																																BgL_xz00_16);
																														}
																														return
																															BGL_PROCEDURE_CALL2
																															(BgL_ez00_17,
																															BgL_arg1439z00_2008,
																															BgL_ez00_17);
																													}
																												}
																											else
																												{	/* Eval/expdsrfi0.scm 266 */
																													return
																														BGl_expandzd2errorzd2zz__expandz00
																														(BGl_string1945z00zz__expander_srfi0z00,
																														BGl_string1946z00zz__expander_srfi0z00,
																														BgL_xz00_16);
																												}
																										}
																								}
																						}
																					else
																						{	/* Eval/expdsrfi0.scm 266 */
																							obj_t BgL_carzd2638zd2_1308;

																							BgL_carzd2638zd2_1308 =
																								CAR(
																								((obj_t) BgL_clausez00_1188));
																							{	/* Eval/expdsrfi0.scm 266 */
																								obj_t BgL_cdrzd2642zd2_1309;

																								BgL_cdrzd2642zd2_1309 =
																									CDR(
																									((obj_t)
																										BgL_carzd2638zd2_1308));
																								if ((CAR(((obj_t)
																												BgL_carzd2638zd2_1308))
																										==
																										BGl_symbol1955z00zz__expander_srfi0z00))
																									{	/* Eval/expdsrfi0.scm 266 */
																										if (PAIRP
																											(BgL_cdrzd2642zd2_1309))
																											{	/* Eval/expdsrfi0.scm 266 */
																												if (NULLP(CDR
																														(BgL_cdrzd2642zd2_1309)))
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_arg1351z00_1315;
																														obj_t
																															BgL_arg1352z00_1316;
																														BgL_arg1351z00_1315
																															=
																															CAR
																															(BgL_cdrzd2642zd2_1309);
																														BgL_arg1352z00_1316
																															=
																															CDR(((obj_t)
																																BgL_clausez00_1188));
																														BgL_reqz00_1230 =
																															BgL_arg1351z00_1315;
																														BgL_bodyz00_1231 =
																															BgL_arg1352z00_1316;
																														{	/* Eval/expdsrfi0.scm 301 */
																															obj_t
																																BgL_arg1421z00_1396;
																															{	/* Eval/expdsrfi0.scm 301 */
																																obj_t
																																	BgL_arg1422z00_1397;
																																{	/* Eval/expdsrfi0.scm 301 */
																																	obj_t
																																		BgL_arg1423z00_1398;
																																	{	/* Eval/expdsrfi0.scm 301 */
																																		obj_t
																																			BgL_arg1424z00_1399;
																																		obj_t
																																			BgL_arg1425z00_1400;
																																		{	/* Eval/expdsrfi0.scm 301 */
																																			obj_t
																																				BgL_arg1426z00_1401;
																																			{	/* Eval/expdsrfi0.scm 301 */
																																				obj_t
																																					BgL_arg1427z00_1402;
																																				BgL_arg1427z00_1402
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol1947z00zz__expander_srfi0z00,
																																					BgL_elsez00_1189);
																																				BgL_arg1426z00_1401
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1427z00_1402,
																																					BNIL);
																																			}
																																			BgL_arg1424z00_1399
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_reqz00_1230,
																																				BgL_arg1426z00_1401);
																																		}
																																		{	/* Eval/expdsrfi0.scm 302 */
																																			obj_t
																																				BgL_arg1428z00_1403;
																																			BgL_arg1428z00_1403
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol1948z00zz__expander_srfi0z00,
																																				BgL_bodyz00_1231);
																																			BgL_arg1425z00_1400
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1428z00_1403,
																																				BNIL);
																																		}
																																		BgL_arg1423z00_1398
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1424z00_1399,
																																			BgL_arg1425z00_1400);
																																	}
																																	BgL_arg1422z00_1397
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BGl_symbol1947z00zz__expander_srfi0z00,
																																		BgL_arg1423z00_1398);
																																}
																																BgL_arg1421z00_1396
																																	=
																																	BGl_evepairifyz00zz__prognz00
																																	(BgL_arg1422z00_1397,
																																	BgL_xz00_16);
																															}
																															return
																																BGL_PROCEDURE_CALL2
																																(BgL_ez00_17,
																																BgL_arg1421z00_1396,
																																BgL_ez00_17);
																														}
																													}
																												else
																													{	/* Eval/expdsrfi0.scm 266 */
																														if (SYMBOLP
																															(BgL_carzd2638zd2_1308))
																															{	/* Eval/expdsrfi0.scm 266 */
																																obj_t
																																	BgL_arg1355z00_1319;
																																BgL_arg1355z00_1319
																																	=
																																	CDR(((obj_t)
																																		BgL_clausez00_1188));
																																{	/* Eval/expdsrfi0.scm 318 */
																																	obj_t
																																		BgL_arg1439z00_2020;
																																	{	/* Eval/expdsrfi0.scm 318 */
																																		obj_t
																																			BgL_arg1442z00_2021;
																																		if (CBOOL
																																			(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																																				(BgL_carzd2638zd2_1308,
																																					BgL_featuresz00_18)))
																																			{	/* Eval/expdsrfi0.scm 318 */
																																				if (NULLP(BgL_arg1355z00_1319))
																																					{	/* Eval/expdsrfi0.scm 319 */
																																						BgL_arg1442z00_2021
																																							=
																																							BUNSPEC;
																																					}
																																				else
																																					{	/* Eval/expdsrfi0.scm 319 */
																																						BgL_arg1442z00_2021
																																							=
																																							BGl_prognz00zz__expander_srfi0z00
																																							(BgL_arg1355z00_1319);
																																					}
																																			}
																																		else
																																			{	/* Eval/expdsrfi0.scm 318 */
																																				BgL_arg1442z00_2021
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol1947z00zz__expander_srfi0z00,
																																					BgL_elsez00_1189);
																																			}
																																		BgL_arg1439z00_2020
																																			=
																																			BGl_evepairifyz00zz__prognz00
																																			(BgL_arg1442z00_2021,
																																			BgL_xz00_16);
																																	}
																																	return
																																		BGL_PROCEDURE_CALL2
																																		(BgL_ez00_17,
																																		BgL_arg1439z00_2020,
																																		BgL_ez00_17);
																																}
																															}
																														else
																															{	/* Eval/expdsrfi0.scm 266 */
																																return
																																	BGl_expandzd2errorzd2zz__expandz00
																																	(BGl_string1945z00zz__expander_srfi0z00,
																																	BGl_string1946z00zz__expander_srfi0z00,
																																	BgL_xz00_16);
																															}
																													}
																											}
																										else
																											{	/* Eval/expdsrfi0.scm 266 */
																												if (SYMBOLP
																													(BgL_carzd2638zd2_1308))
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_arg1358z00_1323;
																														BgL_arg1358z00_1323
																															=
																															CDR(((obj_t)
																																BgL_clausez00_1188));
																														{	/* Eval/expdsrfi0.scm 318 */
																															obj_t
																																BgL_arg1439z00_2026;
																															{	/* Eval/expdsrfi0.scm 318 */
																																obj_t
																																	BgL_arg1442z00_2027;
																																if (CBOOL
																																	(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																																		(BgL_carzd2638zd2_1308,
																																			BgL_featuresz00_18)))
																																	{	/* Eval/expdsrfi0.scm 318 */
																																		if (NULLP
																																			(BgL_arg1358z00_1323))
																																			{	/* Eval/expdsrfi0.scm 319 */
																																				BgL_arg1442z00_2027
																																					=
																																					BUNSPEC;
																																			}
																																		else
																																			{	/* Eval/expdsrfi0.scm 319 */
																																				BgL_arg1442z00_2027
																																					=
																																					BGl_prognz00zz__expander_srfi0z00
																																					(BgL_arg1358z00_1323);
																																			}
																																	}
																																else
																																	{	/* Eval/expdsrfi0.scm 318 */
																																		BgL_arg1442z00_2027
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol1947z00zz__expander_srfi0z00,
																																			BgL_elsez00_1189);
																																	}
																																BgL_arg1439z00_2026
																																	=
																																	BGl_evepairifyz00zz__prognz00
																																	(BgL_arg1442z00_2027,
																																	BgL_xz00_16);
																															}
																															return
																																BGL_PROCEDURE_CALL2
																																(BgL_ez00_17,
																																BgL_arg1439z00_2026,
																																BgL_ez00_17);
																														}
																													}
																												else
																													{	/* Eval/expdsrfi0.scm 266 */
																														return
																															BGl_expandzd2errorzd2zz__expandz00
																															(BGl_string1945z00zz__expander_srfi0z00,
																															BGl_string1946z00zz__expander_srfi0z00,
																															BgL_xz00_16);
																													}
																											}
																									}
																								else
																									{	/* Eval/expdsrfi0.scm 266 */
																										obj_t BgL_cdrzd2707zd2_1325;

																										BgL_cdrzd2707zd2_1325 =
																											CDR(
																											((obj_t)
																												BgL_carzd2638zd2_1308));
																										if ((CAR(((obj_t)
																														BgL_carzd2638zd2_1308))
																												==
																												BGl_symbol1957z00zz__expander_srfi0z00))
																											{	/* Eval/expdsrfi0.scm 266 */
																												if (PAIRP
																													(BgL_cdrzd2707zd2_1325))
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_carzd2709zd2_1329;
																														BgL_carzd2709zd2_1329
																															=
																															CAR
																															(BgL_cdrzd2707zd2_1325);
																														if (SYMBOLP
																															(BgL_carzd2709zd2_1329))
																															{	/* Eval/expdsrfi0.scm 266 */
																																if (NULLP(CDR
																																		(BgL_cdrzd2707zd2_1325)))
																																	{	/* Eval/expdsrfi0.scm 266 */
																																		obj_t
																																			BgL_arg1365z00_1333;
																																		BgL_arg1365z00_1333
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_clausez00_1188));
																																		{	/* Eval/expdsrfi0.scm 306 */
																																			obj_t
																																				BgL_arg1429z00_2036;
																																			{	/* Eval/expdsrfi0.scm 306 */
																																				obj_t
																																					BgL_arg1430z00_2037;
																																				if (CBOOL(BGl_libraryzd2existszf3z21zz__libraryz00(BgL_carzd2709zd2_1329, BNIL)))
																																					{	/* Eval/expdsrfi0.scm 306 */
																																						BgL_arg1430z00_2037
																																							=
																																							BGl_prognz00zz__expander_srfi0z00
																																							(BgL_arg1365z00_1333);
																																					}
																																				else
																																					{	/* Eval/expdsrfi0.scm 306 */
																																						BgL_arg1430z00_2037
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol1947z00zz__expander_srfi0z00,
																																							BgL_elsez00_1189);
																																					}
																																				BgL_arg1429z00_2036
																																					=
																																					BGl_evepairifyz00zz__prognz00
																																					(BgL_arg1430z00_2037,
																																					BgL_xz00_16);
																																			}
																																			return
																																				BGL_PROCEDURE_CALL2
																																				(BgL_ez00_17,
																																				BgL_arg1429z00_2036,
																																				BgL_ez00_17);
																																		}
																																	}
																																else
																																	{	/* Eval/expdsrfi0.scm 266 */
																																		obj_t
																																			BgL_carzd2726zd2_1334;
																																		BgL_carzd2726zd2_1334
																																			=
																																			CAR((
																																				(obj_t)
																																				BgL_clausez00_1188));
																																		if (SYMBOLP
																																			(BgL_carzd2726zd2_1334))
																																			{	/* Eval/expdsrfi0.scm 266 */
																																				obj_t
																																					BgL_arg1367z00_1336;
																																				BgL_arg1367z00_1336
																																					=
																																					CDR((
																																						(obj_t)
																																						BgL_clausez00_1188));
																																				{	/* Eval/expdsrfi0.scm 318 */
																																					obj_t
																																						BgL_arg1439z00_2042;
																																					{	/* Eval/expdsrfi0.scm 318 */
																																						obj_t
																																							BgL_arg1442z00_2043;
																																						if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_carzd2726zd2_1334, BgL_featuresz00_18)))
																																							{	/* Eval/expdsrfi0.scm 318 */
																																								if (NULLP(BgL_arg1367z00_1336))
																																									{	/* Eval/expdsrfi0.scm 319 */
																																										BgL_arg1442z00_2043
																																											=
																																											BUNSPEC;
																																									}
																																								else
																																									{	/* Eval/expdsrfi0.scm 319 */
																																										BgL_arg1442z00_2043
																																											=
																																											BGl_prognz00zz__expander_srfi0z00
																																											(BgL_arg1367z00_1336);
																																									}
																																							}
																																						else
																																							{	/* Eval/expdsrfi0.scm 318 */
																																								BgL_arg1442z00_2043
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol1947z00zz__expander_srfi0z00,
																																									BgL_elsez00_1189);
																																							}
																																						BgL_arg1439z00_2042
																																							=
																																							BGl_evepairifyz00zz__prognz00
																																							(BgL_arg1442z00_2043,
																																							BgL_xz00_16);
																																					}
																																					return
																																						BGL_PROCEDURE_CALL2
																																						(BgL_ez00_17,
																																						BgL_arg1439z00_2042,
																																						BgL_ez00_17);
																																				}
																																			}
																																		else
																																			{	/* Eval/expdsrfi0.scm 266 */
																																				return
																																					BGl_expandzd2errorzd2zz__expandz00
																																					(BGl_string1945z00zz__expander_srfi0z00,
																																					BGl_string1946z00zz__expander_srfi0z00,
																																					BgL_xz00_16);
																																			}
																																	}
																															}
																														else
																															{	/* Eval/expdsrfi0.scm 266 */
																																obj_t
																																	BgL_carzd2743zd2_1338;
																																BgL_carzd2743zd2_1338
																																	=
																																	CAR(((obj_t)
																																		BgL_clausez00_1188));
																																if (SYMBOLP
																																	(BgL_carzd2743zd2_1338))
																																	{	/* Eval/expdsrfi0.scm 266 */
																																		obj_t
																																			BgL_arg1370z00_1340;
																																		BgL_arg1370z00_1340
																																			=
																																			CDR((
																																				(obj_t)
																																				BgL_clausez00_1188));
																																		{	/* Eval/expdsrfi0.scm 318 */
																																			obj_t
																																				BgL_arg1439z00_2048;
																																			{	/* Eval/expdsrfi0.scm 318 */
																																				obj_t
																																					BgL_arg1442z00_2049;
																																				if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_carzd2743zd2_1338, BgL_featuresz00_18)))
																																					{	/* Eval/expdsrfi0.scm 318 */
																																						if (NULLP(BgL_arg1370z00_1340))
																																							{	/* Eval/expdsrfi0.scm 319 */
																																								BgL_arg1442z00_2049
																																									=
																																									BUNSPEC;
																																							}
																																						else
																																							{	/* Eval/expdsrfi0.scm 319 */
																																								BgL_arg1442z00_2049
																																									=
																																									BGl_prognz00zz__expander_srfi0z00
																																									(BgL_arg1370z00_1340);
																																							}
																																					}
																																				else
																																					{	/* Eval/expdsrfi0.scm 318 */
																																						BgL_arg1442z00_2049
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol1947z00zz__expander_srfi0z00,
																																							BgL_elsez00_1189);
																																					}
																																				BgL_arg1439z00_2048
																																					=
																																					BGl_evepairifyz00zz__prognz00
																																					(BgL_arg1442z00_2049,
																																					BgL_xz00_16);
																																			}
																																			return
																																				BGL_PROCEDURE_CALL2
																																				(BgL_ez00_17,
																																				BgL_arg1439z00_2048,
																																				BgL_ez00_17);
																																		}
																																	}
																																else
																																	{	/* Eval/expdsrfi0.scm 266 */
																																		return
																																			BGl_expandzd2errorzd2zz__expandz00
																																			(BGl_string1945z00zz__expander_srfi0z00,
																																			BGl_string1946z00zz__expander_srfi0z00,
																																			BgL_xz00_16);
																																	}
																															}
																													}
																												else
																													{	/* Eval/expdsrfi0.scm 266 */
																														obj_t
																															BgL_carzd2760zd2_1341;
																														BgL_carzd2760zd2_1341
																															=
																															CAR(((obj_t)
																																BgL_clausez00_1188));
																														if (SYMBOLP
																															(BgL_carzd2760zd2_1341))
																															{	/* Eval/expdsrfi0.scm 266 */
																																obj_t
																																	BgL_arg1372z00_1343;
																																BgL_arg1372z00_1343
																																	=
																																	CDR(((obj_t)
																																		BgL_clausez00_1188));
																																{	/* Eval/expdsrfi0.scm 318 */
																																	obj_t
																																		BgL_arg1439z00_2054;
																																	{	/* Eval/expdsrfi0.scm 318 */
																																		obj_t
																																			BgL_arg1442z00_2055;
																																		if (CBOOL
																																			(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																																				(BgL_carzd2760zd2_1341,
																																					BgL_featuresz00_18)))
																																			{	/* Eval/expdsrfi0.scm 318 */
																																				if (NULLP(BgL_arg1372z00_1343))
																																					{	/* Eval/expdsrfi0.scm 319 */
																																						BgL_arg1442z00_2055
																																							=
																																							BUNSPEC;
																																					}
																																				else
																																					{	/* Eval/expdsrfi0.scm 319 */
																																						BgL_arg1442z00_2055
																																							=
																																							BGl_prognz00zz__expander_srfi0z00
																																							(BgL_arg1372z00_1343);
																																					}
																																			}
																																		else
																																			{	/* Eval/expdsrfi0.scm 318 */
																																				BgL_arg1442z00_2055
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol1947z00zz__expander_srfi0z00,
																																					BgL_elsez00_1189);
																																			}
																																		BgL_arg1439z00_2054
																																			=
																																			BGl_evepairifyz00zz__prognz00
																																			(BgL_arg1442z00_2055,
																																			BgL_xz00_16);
																																	}
																																	return
																																		BGL_PROCEDURE_CALL2
																																		(BgL_ez00_17,
																																		BgL_arg1439z00_2054,
																																		BgL_ez00_17);
																																}
																															}
																														else
																															{	/* Eval/expdsrfi0.scm 266 */
																																return
																																	BGl_expandzd2errorzd2zz__expandz00
																																	(BGl_string1945z00zz__expander_srfi0z00,
																																	BGl_string1946z00zz__expander_srfi0z00,
																																	BgL_xz00_16);
																															}
																													}
																											}
																										else
																											{	/* Eval/expdsrfi0.scm 266 */
																												obj_t
																													BgL_carzd2773zd2_1344;
																												BgL_carzd2773zd2_1344 =
																													CAR(((obj_t)
																														BgL_clausez00_1188));
																												{	/* Eval/expdsrfi0.scm 266 */
																													obj_t
																														BgL_cdrzd2778zd2_1345;
																													BgL_cdrzd2778zd2_1345
																														=
																														CDR(((obj_t)
																															BgL_carzd2773zd2_1344));
																													if ((CAR(((obj_t)
																																	BgL_carzd2773zd2_1344))
																															==
																															BGl_symbol1959z00zz__expander_srfi0z00))
																														{	/* Eval/expdsrfi0.scm 266 */
																															if (PAIRP
																																(BgL_cdrzd2778zd2_1345))
																																{	/* Eval/expdsrfi0.scm 266 */
																																	obj_t
																																		BgL_cdrzd2782zd2_1349;
																																	BgL_cdrzd2782zd2_1349
																																		=
																																		CDR
																																		(BgL_cdrzd2778zd2_1345);
																																	if (PAIRP
																																		(BgL_cdrzd2782zd2_1349))
																																		{	/* Eval/expdsrfi0.scm 266 */
																																			if (NULLP
																																				(CDR
																																					(BgL_cdrzd2782zd2_1349)))
																																				{	/* Eval/expdsrfi0.scm 266 */
																																					obj_t
																																						BgL_arg1379z00_1353;
																																					obj_t
																																						BgL_arg1380z00_1354;
																																					obj_t
																																						BgL_arg1381z00_1355;
																																					BgL_arg1379z00_1353
																																						=
																																						CAR
																																						(BgL_cdrzd2778zd2_1345);
																																					BgL_arg1380z00_1354
																																						=
																																						CAR
																																						(BgL_cdrzd2782zd2_1349);
																																					BgL_arg1381z00_1355
																																						=
																																						CDR(
																																						((obj_t) BgL_clausez00_1188));
																																					{	/* Eval/expdsrfi0.scm 312 */
																																						obj_t
																																							BgL_arg1434z00_2066;
																																						{	/* Eval/expdsrfi0.scm 312 */
																																							obj_t
																																								BgL_arg1435z00_2067;
																																							if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BGl_bigloozd2configzd2zz__configurez00(BgL_arg1379z00_1353), BgL_arg1380z00_1354))
																																								{	/* Eval/expdsrfi0.scm 312 */
																																									BgL_arg1435z00_2067
																																										=
																																										BGl_prognz00zz__expander_srfi0z00
																																										(BgL_arg1381z00_1355);
																																								}
																																							else
																																								{	/* Eval/expdsrfi0.scm 312 */
																																									BgL_arg1435z00_2067
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BGl_symbol1947z00zz__expander_srfi0z00,
																																										BgL_elsez00_1189);
																																								}
																																							BgL_arg1434z00_2066
																																								=
																																								BGl_evepairifyz00zz__prognz00
																																								(BgL_arg1435z00_2067,
																																								BgL_xz00_16);
																																						}
																																						return
																																							BGL_PROCEDURE_CALL2
																																							(BgL_ez00_17,
																																							BgL_arg1434z00_2066,
																																							BgL_ez00_17);
																																					}
																																				}
																																			else
																																				{	/* Eval/expdsrfi0.scm 266 */
																																					if (SYMBOLP(BgL_carzd2773zd2_1344))
																																						{	/* Eval/expdsrfi0.scm 266 */
																																							obj_t
																																								BgL_arg1383z00_1358;
																																							BgL_arg1383z00_1358
																																								=
																																								CDR
																																								(
																																								((obj_t) BgL_clausez00_1188));
																																							{	/* Eval/expdsrfi0.scm 318 */
																																								obj_t
																																									BgL_arg1439z00_2072;
																																								{	/* Eval/expdsrfi0.scm 318 */
																																									obj_t
																																										BgL_arg1442z00_2073;
																																									if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_carzd2773zd2_1344, BgL_featuresz00_18)))
																																										{	/* Eval/expdsrfi0.scm 318 */
																																											if (NULLP(BgL_arg1383z00_1358))
																																												{	/* Eval/expdsrfi0.scm 319 */
																																													BgL_arg1442z00_2073
																																														=
																																														BUNSPEC;
																																												}
																																											else
																																												{	/* Eval/expdsrfi0.scm 319 */
																																													BgL_arg1442z00_2073
																																														=
																																														BGl_prognz00zz__expander_srfi0z00
																																														(BgL_arg1383z00_1358);
																																												}
																																										}
																																									else
																																										{	/* Eval/expdsrfi0.scm 318 */
																																											BgL_arg1442z00_2073
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BGl_symbol1947z00zz__expander_srfi0z00,
																																												BgL_elsez00_1189);
																																										}
																																									BgL_arg1439z00_2072
																																										=
																																										BGl_evepairifyz00zz__prognz00
																																										(BgL_arg1442z00_2073,
																																										BgL_xz00_16);
																																								}
																																								return
																																									BGL_PROCEDURE_CALL2
																																									(BgL_ez00_17,
																																									BgL_arg1439z00_2072,
																																									BgL_ez00_17);
																																							}
																																						}
																																					else
																																						{	/* Eval/expdsrfi0.scm 266 */
																																							return
																																								BGl_expandzd2errorzd2zz__expandz00
																																								(BGl_string1945z00zz__expander_srfi0z00,
																																								BGl_string1946z00zz__expander_srfi0z00,
																																								BgL_xz00_16);
																																						}
																																				}
																																		}
																																	else
																																		{	/* Eval/expdsrfi0.scm 266 */
																																			if (SYMBOLP(BgL_carzd2773zd2_1344))
																																				{	/* Eval/expdsrfi0.scm 266 */
																																					obj_t
																																						BgL_arg1386z00_1362;
																																					BgL_arg1386z00_1362
																																						=
																																						CDR(
																																						((obj_t) BgL_clausez00_1188));
																																					{	/* Eval/expdsrfi0.scm 318 */
																																						obj_t
																																							BgL_arg1439z00_2078;
																																						{	/* Eval/expdsrfi0.scm 318 */
																																							obj_t
																																								BgL_arg1442z00_2079;
																																							if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_carzd2773zd2_1344, BgL_featuresz00_18)))
																																								{	/* Eval/expdsrfi0.scm 318 */
																																									if (NULLP(BgL_arg1386z00_1362))
																																										{	/* Eval/expdsrfi0.scm 319 */
																																											BgL_arg1442z00_2079
																																												=
																																												BUNSPEC;
																																										}
																																									else
																																										{	/* Eval/expdsrfi0.scm 319 */
																																											BgL_arg1442z00_2079
																																												=
																																												BGl_prognz00zz__expander_srfi0z00
																																												(BgL_arg1386z00_1362);
																																										}
																																								}
																																							else
																																								{	/* Eval/expdsrfi0.scm 318 */
																																									BgL_arg1442z00_2079
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BGl_symbol1947z00zz__expander_srfi0z00,
																																										BgL_elsez00_1189);
																																								}
																																							BgL_arg1439z00_2078
																																								=
																																								BGl_evepairifyz00zz__prognz00
																																								(BgL_arg1442z00_2079,
																																								BgL_xz00_16);
																																						}
																																						return
																																							BGL_PROCEDURE_CALL2
																																							(BgL_ez00_17,
																																							BgL_arg1439z00_2078,
																																							BgL_ez00_17);
																																					}
																																				}
																																			else
																																				{	/* Eval/expdsrfi0.scm 266 */
																																					return
																																						BGl_expandzd2errorzd2zz__expandz00
																																						(BGl_string1945z00zz__expander_srfi0z00,
																																						BGl_string1946z00zz__expander_srfi0z00,
																																						BgL_xz00_16);
																																				}
																																		}
																																}
																															else
																																{	/* Eval/expdsrfi0.scm 266 */
																																	if (SYMBOLP
																																		(BgL_carzd2773zd2_1344))
																																		{	/* Eval/expdsrfi0.scm 266 */
																																			obj_t
																																				BgL_arg1388z00_1365;
																																			BgL_arg1388z00_1365
																																				=
																																				CDR((
																																					(obj_t)
																																					BgL_clausez00_1188));
																																			{	/* Eval/expdsrfi0.scm 318 */
																																				obj_t
																																					BgL_arg1439z00_2084;
																																				{	/* Eval/expdsrfi0.scm 318 */
																																					obj_t
																																						BgL_arg1442z00_2085;
																																					if (CBOOL(BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_carzd2773zd2_1344, BgL_featuresz00_18)))
																																						{	/* Eval/expdsrfi0.scm 318 */
																																							if (NULLP(BgL_arg1388z00_1365))
																																								{	/* Eval/expdsrfi0.scm 319 */
																																									BgL_arg1442z00_2085
																																										=
																																										BUNSPEC;
																																								}
																																							else
																																								{	/* Eval/expdsrfi0.scm 319 */
																																									BgL_arg1442z00_2085
																																										=
																																										BGl_prognz00zz__expander_srfi0z00
																																										(BgL_arg1388z00_1365);
																																								}
																																						}
																																					else
																																						{	/* Eval/expdsrfi0.scm 318 */
																																							BgL_arg1442z00_2085
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol1947z00zz__expander_srfi0z00,
																																								BgL_elsez00_1189);
																																						}
																																					BgL_arg1439z00_2084
																																						=
																																						BGl_evepairifyz00zz__prognz00
																																						(BgL_arg1442z00_2085,
																																						BgL_xz00_16);
																																				}
																																				return
																																					BGL_PROCEDURE_CALL2
																																					(BgL_ez00_17,
																																					BgL_arg1439z00_2084,
																																					BgL_ez00_17);
																																			}
																																		}
																																	else
																																		{	/* Eval/expdsrfi0.scm 266 */
																																			return
																																				BGl_expandzd2errorzd2zz__expandz00
																																				(BGl_string1945z00zz__expander_srfi0z00,
																																				BGl_string1946z00zz__expander_srfi0z00,
																																				BgL_xz00_16);
																																		}
																																}
																														}
																													else
																														{	/* Eval/expdsrfi0.scm 266 */
																															if (SYMBOLP
																																(BgL_carzd2773zd2_1344))
																																{	/* Eval/expdsrfi0.scm 266 */
																																	obj_t
																																		BgL_arg1390z00_1368;
																																	BgL_arg1390z00_1368
																																		=
																																		CDR(((obj_t)
																																			BgL_clausez00_1188));
																																	{	/* Eval/expdsrfi0.scm 318 */
																																		obj_t
																																			BgL_arg1439z00_2090;
																																		{	/* Eval/expdsrfi0.scm 318 */
																																			obj_t
																																				BgL_arg1442z00_2091;
																																			if (CBOOL
																																				(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																																					(BgL_carzd2773zd2_1344,
																																						BgL_featuresz00_18)))
																																				{	/* Eval/expdsrfi0.scm 318 */
																																					if (NULLP(BgL_arg1390z00_1368))
																																						{	/* Eval/expdsrfi0.scm 319 */
																																							BgL_arg1442z00_2091
																																								=
																																								BUNSPEC;
																																						}
																																					else
																																						{	/* Eval/expdsrfi0.scm 319 */
																																							BgL_arg1442z00_2091
																																								=
																																								BGl_prognz00zz__expander_srfi0z00
																																								(BgL_arg1390z00_1368);
																																						}
																																				}
																																			else
																																				{	/* Eval/expdsrfi0.scm 318 */
																																					BgL_arg1442z00_2091
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol1947z00zz__expander_srfi0z00,
																																						BgL_elsez00_1189);
																																				}
																																			BgL_arg1439z00_2090
																																				=
																																				BGl_evepairifyz00zz__prognz00
																																				(BgL_arg1442z00_2091,
																																				BgL_xz00_16);
																																		}
																																		return
																																			BGL_PROCEDURE_CALL2
																																			(BgL_ez00_17,
																																			BgL_arg1439z00_2090,
																																			BgL_ez00_17);
																																	}
																																}
																															else
																																{	/* Eval/expdsrfi0.scm 266 */
																																	return
																																		BGl_expandzd2errorzd2zz__expandz00
																																		(BGl_string1945z00zz__expander_srfi0z00,
																																		BGl_string1946z00zz__expander_srfi0z00,
																																		BgL_xz00_16);
																																}
																														}
																												}
																											}
																									}
																							}
																						}
																				}
																		}
																	else
																		{	/* Eval/expdsrfi0.scm 266 */
																			if (SYMBOLP(BgL_carzd2224zd2_1249))
																				{	/* Eval/expdsrfi0.scm 266 */
																					obj_t BgL_arg1399z00_1376;

																					BgL_arg1399z00_1376 =
																						CDR(((obj_t) BgL_clausez00_1188));
																					{	/* Eval/expdsrfi0.scm 318 */
																						obj_t BgL_arg1439z00_2096;

																						{	/* Eval/expdsrfi0.scm 318 */
																							obj_t BgL_arg1442z00_2097;

																							if (CBOOL
																								(BGl_memqz00zz__r4_pairs_and_lists_6_3z00
																									(BgL_carzd2224zd2_1249,
																										BgL_featuresz00_18)))
																								{	/* Eval/expdsrfi0.scm 318 */
																									if (NULLP
																										(BgL_arg1399z00_1376))
																										{	/* Eval/expdsrfi0.scm 319 */
																											BgL_arg1442z00_2097 =
																												BUNSPEC;
																										}
																									else
																										{	/* Eval/expdsrfi0.scm 319 */
																											BgL_arg1442z00_2097 =
																												BGl_prognz00zz__expander_srfi0z00
																												(BgL_arg1399z00_1376);
																										}
																								}
																							else
																								{	/* Eval/expdsrfi0.scm 318 */
																									BgL_arg1442z00_2097 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol1947z00zz__expander_srfi0z00,
																										BgL_elsez00_1189);
																								}
																							BgL_arg1439z00_2096 =
																								BGl_evepairifyz00zz__prognz00
																								(BgL_arg1442z00_2097,
																								BgL_xz00_16);
																						}
																						return
																							BGL_PROCEDURE_CALL2(BgL_ez00_17,
																							BgL_arg1439z00_2096, BgL_ez00_17);
																					}
																				}
																			else
																				{	/* Eval/expdsrfi0.scm 266 */
																					return
																						BGl_expandzd2errorzd2zz__expandz00
																						(BGl_string1945z00zz__expander_srfi0z00,
																						BGl_string1946z00zz__expander_srfi0z00,
																						BgL_xz00_16);
																				}
																		}
																}
														}
													else
														{	/* Eval/expdsrfi0.scm 266 */
															return
																BGl_expandzd2errorzd2zz__expandz00
																(BGl_string1945z00zz__expander_srfi0z00,
																BGl_string1946z00zz__expander_srfi0z00,
																BgL_xz00_16);
														}
												}
											}
										else
											{	/* Eval/expdsrfi0.scm 266 */
												return
													BGl_expandzd2errorzd2zz__expandz00
													(BGl_string1945z00zz__expander_srfi0z00,
													BGl_string1946z00zz__expander_srfi0z00, BgL_xz00_16);
											}
									}
							}
						else
							{	/* Eval/expdsrfi0.scm 266 */
								obj_t BgL_cdrzd2177zd2_1203;

								BgL_cdrzd2177zd2_1203 = CDR(((obj_t) BgL_xz00_16));
								if (PAIRP(BgL_cdrzd2177zd2_1203))
									{
										obj_t BgL_elsez00_3197;
										obj_t BgL_clausez00_3195;

										BgL_clausez00_3195 = CAR(BgL_cdrzd2177zd2_1203);
										BgL_elsez00_3197 = CDR(BgL_cdrzd2177zd2_1203);
										BgL_elsez00_1189 = BgL_elsez00_3197;
										BgL_clausez00_1188 = BgL_clausez00_3195;
										goto BgL_tagzd2153zd2_1190;
									}
								else
									{	/* Eval/expdsrfi0.scm 266 */
										return
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string1945z00zz__expander_srfi0z00,
											BGl_string1946z00zz__expander_srfi0z00, BgL_xz00_16);
									}
							}
					}
			}
		}

	}



/* &expand-cond-expand */
	obj_t BGl_z62expandzd2condzd2expandz62zz__expander_srfi0z00(obj_t
		BgL_envz00_2335, obj_t BgL_xz00_2336, obj_t BgL_ez00_2337,
		obj_t BgL_featuresz00_2338)
	{
		{	/* Eval/expdsrfi0.scm 262 */
			{	/* Eval/expdsrfi0.scm 266 */
				obj_t BgL_auxz00_3214;
				obj_t BgL_auxz00_3207;
				obj_t BgL_auxz00_3200;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_featuresz00_2338))
					{	/* Eval/expdsrfi0.scm 266 */
						BgL_auxz00_3214 = BgL_featuresz00_2338;
					}
				else
					{
						obj_t BgL_auxz00_3217;

						BgL_auxz00_3217 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(11391L),
							BGl_string1961z00zz__expander_srfi0z00,
							BGl_string1938z00zz__expander_srfi0z00, BgL_featuresz00_2338);
						FAILURE(BgL_auxz00_3217, BFALSE, BFALSE);
					}
				if (PROCEDUREP(BgL_ez00_2337))
					{	/* Eval/expdsrfi0.scm 266 */
						BgL_auxz00_3207 = BgL_ez00_2337;
					}
				else
					{
						obj_t BgL_auxz00_3210;

						BgL_auxz00_3210 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(11391L),
							BGl_string1961z00zz__expander_srfi0z00,
							BGl_string1939z00zz__expander_srfi0z00, BgL_ez00_2337);
						FAILURE(BgL_auxz00_3210, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_2336))
					{	/* Eval/expdsrfi0.scm 266 */
						BgL_auxz00_3200 = BgL_xz00_2336;
					}
				else
					{
						obj_t BgL_auxz00_3203;

						BgL_auxz00_3203 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string1929z00zz__expander_srfi0z00, BINT(11391L),
							BGl_string1961z00zz__expander_srfi0z00,
							BGl_string1938z00zz__expander_srfi0z00, BgL_xz00_2336);
						FAILURE(BgL_auxz00_3203, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2condzd2expandz00zz__expander_srfi0z00(BgL_auxz00_3200,
					BgL_auxz00_3207, BgL_auxz00_3214);
			}
		}

	}



/* 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_2108;

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

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

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

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

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

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

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

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

												{	/* Eval/expdsrfi0.scm 337 */
													obj_t BgL_arg1455z00_2118;
													obj_t BgL_arg1456z00_2119;

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

														BgL_arg1457z00_2120 =
															MAKE_YOUNG_PAIR(BgL_req2z00_22, BgL_reqsz00_23);
														BgL_arg1455z00_2118 =
															MAKE_YOUNG_PAIR
															(BGl_symbol1950z00zz__expander_srfi0z00,
															BgL_arg1457z00_2120);
													}
													BgL_arg1456z00_2119 =
														MAKE_YOUNG_PAIR(BgL_ebodyz00_2108, BNIL);
													BgL_arg1453z00_2117 =
														MAKE_YOUNG_PAIR(BgL_arg1455z00_2118,
														BgL_arg1456z00_2119);
												}
												BgL_arg1452z00_2116 =
													MAKE_YOUNG_PAIR(BgL_arg1453z00_2117, BgL_elsez00_25);
											}
											BgL_arg1451z00_2115 =
												MAKE_YOUNG_PAIR(BGl_symbol1947z00zz__expander_srfi0z00,
												BgL_arg1452z00_2116);
										}
										BgL_arg1450z00_2114 =
											MAKE_YOUNG_PAIR(BgL_arg1451z00_2115, BNIL);
									}
									BgL_arg1448z00_2113 =
										MAKE_YOUNG_PAIR(BgL_req1z00_21, BgL_arg1450z00_2114);
								}
								BgL_arg1447z00_2112 =
									MAKE_YOUNG_PAIR(BgL_arg1448z00_2113, BgL_elsez00_25);
							}
							BgL_arg1446z00_2111 =
								MAKE_YOUNG_PAIR(BGl_symbol1947z00zz__expander_srfi0z00,
								BgL_arg1447z00_2112);
						}
						BgL_arg1445z00_2110 =
							BGl_evepairifyz00zz__prognz00(BgL_arg1446z00_2111, BgL_xz00_19);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_ez00_20, BgL_arg1445z00_2110, 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_2121;

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

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

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

							{	/* Eval/expdsrfi0.scm 349 */
								obj_t BgL_arg1462z00_2126;
								obj_t BgL_arg1464z00_2127;

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

									BgL_arg1465z00_2128 =
										MAKE_YOUNG_PAIR(BgL_ebodyz00_2121, BNIL);
									BgL_arg1462z00_2126 =
										MAKE_YOUNG_PAIR(BgL_req1z00_28, BgL_arg1465z00_2128);
								}
								{	/* Eval/expdsrfi0.scm 352 */
									obj_t BgL_arg1466z00_2129;

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

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

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

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

													{	/* Eval/expdsrfi0.scm 352 */
														obj_t BgL_arg1471z00_2134;
														obj_t BgL_arg1472z00_2135;

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

															BgL_arg1473z00_2136 =
																MAKE_YOUNG_PAIR(BgL_req2z00_29, BgL_reqsz00_30);
															BgL_arg1471z00_2134 =
																MAKE_YOUNG_PAIR
																(BGl_symbol1953z00zz__expander_srfi0z00,
																BgL_arg1473z00_2136);
														}
														BgL_arg1472z00_2135 =
															MAKE_YOUNG_PAIR(BgL_ebodyz00_2121, BNIL);
														BgL_arg1470z00_2133 =
															MAKE_YOUNG_PAIR(BgL_arg1471z00_2134,
															BgL_arg1472z00_2135);
													}
													BgL_arg1469z00_2132 =
														MAKE_YOUNG_PAIR(BgL_arg1470z00_2133,
														BgL_elsez00_32);
												}
												BgL_arg1468z00_2131 =
													MAKE_YOUNG_PAIR
													(BGl_symbol1947z00zz__expander_srfi0z00,
													BgL_arg1469z00_2132);
											}
											BgL_arg1467z00_2130 =
												MAKE_YOUNG_PAIR(BgL_arg1468z00_2131, BNIL);
										}
										BgL_arg1466z00_2129 =
											MAKE_YOUNG_PAIR(BGl_symbol1948z00zz__expander_srfi0z00,
											BgL_arg1467z00_2130);
									}
									BgL_arg1464z00_2127 =
										MAKE_YOUNG_PAIR(BgL_arg1466z00_2129, BNIL);
								}
								BgL_arg1461z00_2125 =
									MAKE_YOUNG_PAIR(BgL_arg1462z00_2126, BgL_arg1464z00_2127);
							}
							BgL_arg1460z00_2124 =
								MAKE_YOUNG_PAIR(BGl_symbol1947z00zz__expander_srfi0z00,
								BgL_arg1461z00_2125);
						}
						BgL_arg1459z00_2123 =
							BGl_evepairifyz00zz__prognz00(BgL_arg1460z00_2124, BgL_xz00_26);
					}
					return
						BGL_PROCEDURE_CALL2(BgL_ez00_27, BgL_arg1459z00_2123, 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_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__biglooz00(348684831L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__tvectorz00(135276775L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__structurez00(128205792L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__bignumz00(289561787L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__paramz00(453939141L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__objectz00(475449627L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__threadz00(149516032L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__libraryz00(143145005L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(26840973L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(457511469L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonumz00(362050511L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_flonum_dtoaz00
				(268155843L, BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_characters_6_6z00(198620800L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(111613887L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_booleans_6_1z00(459519430L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(115192690L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00((-44273703L),
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(9614678L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(376927882L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(43892022L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(185672289L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(86988580L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			BGl_modulezd2initializa7ationz75zz__prognz00(177147622L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
			return BGl_modulezd2initializa7ationz75zz__expandz00(414007149L,
				BSTRING_TO_STRING(BGl_string1962z00zz__expander_srfi0z00));
		}

	}

#ifdef __cplusplus
}
#endif
