/*===========================================================================*/
/*   (Eval/expdargs.scm)                                                     */
/*   Bigloo (4.5b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Fri Dec 22 05:17:06 PM CET 2023     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/bigloo/bin/bigloo -ldopt -L/home/serrano/prgm/project/bigloo/bigloo/libbacktrace/home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b  -srfi enable-gmp -srfi bigloo-unsafe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -rm -copt -w -lib-dir /home/serrano/prgm/project/bigloo/bigloo/lib/bigloo/4.5b -mklib -cc gcc -fsharing -q -no-hello -unsafe -safee -O4 -stdc -c Eval/expdargs.scm -indent -o objs/obj_u/Eval/expdargs.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_ARGS_TYPE_DEFINITIONS
#define BGL___EXPANDER_ARGS_TYPE_DEFINITIONS
#endif													// BGL___EXPANDER_ARGS_TYPE_DEFINITIONS
#endif													// BGL_MODULE_TYPE_DEFINITIONS

	extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_symbol2560z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2480z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2482z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2484z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_z62expandzd2argszd2parsez62zz__expander_argsz00(obj_t, obj_t,
		obj_t);
	static obj_t BGl_symbol2486z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2488z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	static obj_t BGl_symbol2490z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_z62zc3z04anonymousza32100ze3ze5zz__expander_argsz00(obj_t,
		obj_t);
	static obj_t BGl_symbol2492z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2494z00zz__expander_argsz00 = BUNSPEC;
	static obj_t
		BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00(obj_t);
	static obj_t BGl_symbol2496z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2498z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_requirezd2initializa7ationz75zz__expander_argsz00 = BUNSPEC;
	extern obj_t BGl_expandzd2errorzd2zz__expandz00(obj_t, obj_t, obj_t);
	static bool_t BGl_helpzd2messagezf3z21zz__expander_argsz00(obj_t);
	static obj_t BGl_dozd2expandzd2argszd2parsezd2zz__expander_argsz00(obj_t,
		obj_t);
	static obj_t BGl_bindzd2optionz12zc0zz__expander_argsz00(obj_t, obj_t, obj_t);
	extern obj_t bgl_display_obj(obj_t, obj_t);
	extern obj_t BGl_makezd2hashtablezd2zz__hashz00(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_argsz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__expandz00(long, char *);
	extern obj_t BGl_modulezd2initializa7ationz75zz__prognz00(long, char *);
	extern obj_t
		BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(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__match_normaliza7eza7(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__hashz00(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_concatze70ze7zz__expander_argsz00(obj_t);
	static obj_t BGl_makezd2simplezd2optzd2parserzd2zz__expander_argsz00(obj_t,
		obj_t);
	extern obj_t BGl_warningz00zz__errorz00(obj_t);
	extern obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_expandzd2argszd2parsez00zz__expander_argsz00(obj_t, obj_t);
	BGL_EXPORTED_DECL obj_t
		BGl_argszd2parsezd2usagez00zz__expander_argsz00(obj_t);
	static obj_t BGl_cnstzd2initzd2zz__expander_argsz00(void);
	extern bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
	static obj_t BGl_genericzd2initzd2zz__expander_argsz00(void);
	extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_importedzd2moduleszd2initz00zz__expander_argsz00(void);
	static obj_t BGl_gczd2rootszd2initz00zz__expander_argsz00(void);
	static obj_t BGl_makezd2multiplezd2optzd2parserzd2zz__expander_argsz00(obj_t,
		obj_t);
	static obj_t BGl_objectzd2initzd2zz__expander_argsz00(void);
	static bool_t BGl_synopsiszf3zf3zz__expander_argsz00(obj_t);
	static obj_t BGl_makezd2optzd2parserz00zz__expander_argsz00(obj_t, obj_t);
	extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
	extern obj_t bgl_reverse_bang(obj_t);
	extern obj_t string_append_3(obj_t, obj_t, obj_t);
	extern obj_t bstring_to_symbol(obj_t);
	static obj_t BGl_symbol2500z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2502z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2504z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2506z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2508z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t c_substring(obj_t, long, long);
	static obj_t BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00(obj_t,
		obj_t, obj_t, obj_t);
	extern obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t, obj_t);
	extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
	extern obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t);
	static obj_t BGl_makezd2parserzd2zz__expander_argsz00(obj_t, obj_t);
	static obj_t BGl_symbol2510z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2512z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2514z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_methodzd2initzd2zz__expander_argsz00(void);
	static obj_t BGl_symbol2516z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2519z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00(obj_t);
	static obj_t BGl_z62argszd2parsezd2usagez62zz__expander_argsz00(obj_t, obj_t);
	static obj_t BGl_symbol2521z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2446z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2528z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2448z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_loopze70ze7zz__expander_argsz00(obj_t, obj_t, obj_t);
	static obj_t BGl_loopze71ze7zz__expander_argsz00(obj_t, obj_t);
	static obj_t BGl_loopze72ze7zz__expander_argsz00(obj_t, obj_t);
	static obj_t BGl_makezd2helpzd2zz__expander_argsz00(obj_t);
	static obj_t BGl_symbol2530z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2450z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_makezd2synopsiszd2namez00zz__expander_argsz00(obj_t);
	static obj_t BGl_symbol2532z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2452z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2454z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2536z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t make_string(long, unsigned char);
	static obj_t BGl_symbol2456z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2538z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2458z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
	extern obj_t string_append(obj_t, obj_t);
	static obj_t BGl_symbol2540z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2542z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2462z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2544z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(obj_t);
	static obj_t BGl_symbol2464z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2546z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2466z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(obj_t, obj_t);
	static obj_t BGl_symbol2548z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2468z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2550z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2470z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2472z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2474z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2476z00zz__expander_argsz00 = BUNSPEC;
	static obj_t BGl_symbol2478z00zz__expander_argsz00 = BUNSPEC;
	extern obj_t BGl_hashtablezd2getzd2zz__hashz00(obj_t, obj_t);
	static obj_t *__cnst;


	   
		 
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_argszd2parsezd2usagezd2envzd2zz__expander_argsz00,
		BgL_bgl_za762argsza7d2parseza72564za7,
		BGl_z62argszd2parsezd2usagez62zz__expander_argsz00, 0L, BUNSPEC, 1);
	      DEFINE_STRING(BGl_string2501z00zz__expander_argsz00,
		BgL_bgl_string2501za700za7za7_2565za7, "fail", 4);
	      DEFINE_STRING(BGl_string2503z00zz__expander_argsz00,
		BgL_bgl_string2503za700za7za7_2566za7, "cdr", 3);
	      DEFINE_STRING(BGl_string2505z00zz__expander_argsz00,
		BgL_bgl_string2505za700za7za7_2567za7, "liip", 4);
	      DEFINE_STRING(BGl_string2507z00zz__expander_argsz00,
		BgL_bgl_string2507za700za7za7_2568za7, "case", 4);
	      DEFINE_STRING(BGl_string2509z00zz__expander_argsz00,
		BgL_bgl_string2509za700za7za7_2569za7, "multiple-value-bind", 19);
	      DEFINE_STRING(BGl_string2511z00zz__expander_argsz00,
		BgL_bgl_string2511za700za7za7_2570za7, "let", 3);
	      DEFINE_STRING(BGl_string2513z00zz__expander_argsz00,
		BgL_bgl_string2513za700za7za7_2571za7, "let*", 4);
	      DEFINE_STRING(BGl_string2515z00zz__expander_argsz00,
		BgL_bgl_string2515za700za7za7_2572za7, "help", 4);
	      DEFINE_STRING(BGl_string2517z00zz__expander_argsz00,
		BgL_bgl_string2517za700za7za7_2573za7, "synopsis", 8);
	      DEFINE_STRING(BGl_string2518z00zz__expander_argsz00,
		BgL_bgl_string2518za700za7za7_2574za7, "Illegal help message", 20);
	      DEFINE_STRING(BGl_string2520z00zz__expander_argsz00,
		BgL_bgl_string2520za700za7za7_2575za7, "section", 7);
	      DEFINE_STRING(BGl_string2440z00zz__expander_argsz00,
		BgL_bgl_string2440za700za7za7_2576za7, "args-parse", 10);
	      DEFINE_STRING(BGl_string2522z00zz__expander_argsz00,
		BgL_bgl_string2522za700za7za7_2577za7, "else", 4);
	      DEFINE_STRING(BGl_string2441z00zz__expander_argsz00,
		BgL_bgl_string2441za700za7za7_2578za7, "Illegal syntax", 14);
	      DEFINE_STRING(BGl_string2523z00zz__expander_argsz00,
		BgL_bgl_string2523za700za7za7_2579za7, " ", 1);
	      DEFINE_STRING(BGl_string2442z00zz__expander_argsz00,
		BgL_bgl_string2442za700za7za7_2580za7,
		"/tmp/bigloo/runtime/Eval/expdargs.scm", 37);
	      DEFINE_STRING(BGl_string2524z00zz__expander_argsz00,
		BgL_bgl_string2524za700za7za7_2581za7, "Illegal options", 15);
	      DEFINE_STRING(BGl_string2443z00zz__expander_argsz00,
		BgL_bgl_string2443za700za7za7_2582za7, "&expand-args-parse", 18);
	      DEFINE_STRING(BGl_string2525z00zz__expander_argsz00,
		BgL_bgl_string2525za700za7za7_2583za7, "Illegal clause", 14);
	      DEFINE_STRING(BGl_string2444z00zz__expander_argsz00,
		BgL_bgl_string2444za700za7za7_2584za7, "pair-nil", 8);
	      DEFINE_STRING(BGl_string2526z00zz__expander_argsz00,
		BgL_bgl_string2526za700za7za7_2585za7, "", 0);
	      DEFINE_STRING(BGl_string2445z00zz__expander_argsz00,
		BgL_bgl_string2445za700za7za7_2586za7, "procedure", 9);
	      DEFINE_STRING(BGl_string2527z00zz__expander_argsz00,
		BgL_bgl_string2527za700za7za7_2587za7, ",", 1);
	      DEFINE_STRING(BGl_string2447z00zz__expander_argsz00,
		BgL_bgl_string2447za700za7za7_2588za7, "v", 1);
	      DEFINE_STRING(BGl_string2529z00zz__expander_argsz00,
		BgL_bgl_string2529za700za7za7_2589za7, "begin", 5);
	      DEFINE_STRING(BGl_string2449z00zz__expander_argsz00,
		BgL_bgl_string2449za700za7za7_2590za7, "a", 1);
	      DEFINE_STRING(BGl_string2531z00zz__expander_argsz00,
		BgL_bgl_string2531za700za7za7_2591za7, "pair?", 5);
	      DEFINE_STRING(BGl_string2451z00zz__expander_argsz00,
		BgL_bgl_string2451za700za7za7_2592za7, "null?", 5);
	      DEFINE_STRING(BGl_string2533z00zz__expander_argsz00,
		BgL_bgl_string2533za700za7za7_2593za7, "rest", 4);
	      DEFINE_STRING(BGl_string2534z00zz__expander_argsz00,
		BgL_bgl_string2534za700za7za7_2594za7, "  ", 2);
	      DEFINE_STRING(BGl_string2453z00zz__expander_argsz00,
		BgL_bgl_string2453za700za7za7_2595za7, "end", 3);
	      DEFINE_STRING(BGl_string2535z00zz__expander_argsz00,
		BgL_bgl_string2535za700za7za7_2596za7, " -- Option overridden:", 22);
	      DEFINE_STRING(BGl_string2455z00zz__expander_argsz00,
		BgL_bgl_string2455za700za7za7_2597za7, "quote", 5);
	      DEFINE_STRING(BGl_string2537z00zz__expander_argsz00,
		BgL_bgl_string2537za700za7za7_2598za7, "substring=?", 11);
	      DEFINE_STRING(BGl_string2457z00zz__expander_argsz00,
		BgL_bgl_string2457za700za7za7_2599za7, "values", 6);
	      DEFINE_STRING(BGl_string2539z00zz__expander_argsz00,
		BgL_bgl_string2539za700za7za7_2600za7, "and", 3);
	      DEFINE_STRING(BGl_string2459z00zz__expander_argsz00,
		BgL_bgl_string2459za700za7za7_2601za7, "car", 3);
	      DEFINE_STRING(BGl_string2541z00zz__expander_argsz00,
		BgL_bgl_string2541za700za7za7_2602za7, "string-length", 13);
	      DEFINE_STRING(BGl_string2460z00zz__expander_argsz00,
		BgL_bgl_string2460za700za7za7_2603za7, "see -help", 9);
	      DEFINE_STRING(BGl_string2461z00zz__expander_argsz00,
		BgL_bgl_string2461za700za7za7_2604za7, "Illegal option", 14);
	      DEFINE_STRING(BGl_string2543z00zz__expander_argsz00,
		BgL_bgl_string2543za700za7za7_2605za7, "substring", 9);
	      DEFINE_STRING(BGl_string2463z00zz__expander_argsz00,
		BgL_bgl_string2463za700za7za7_2606za7, "error", 5);
	      DEFINE_STRING(BGl_string2545z00zz__expander_argsz00,
		BgL_bgl_string2545za700za7za7_2607za7, "the-remaining-args", 18);
	      DEFINE_STRING(BGl_string2465z00zz__expander_argsz00,
		BgL_bgl_string2465za700za7za7_2608za7, "if", 2);
	      DEFINE_STRING(BGl_string2547z00zz__expander_argsz00,
		BgL_bgl_string2547za700za7za7_2609za7, "string=?", 8);
	      DEFINE_STRING(BGl_string2467z00zz__expander_argsz00,
		BgL_bgl_string2467za700za7za7_2610za7, "lambda", 6);
	      DEFINE_STRING(BGl_string2549z00zz__expander_argsz00,
		BgL_bgl_string2549za700za7za7_2611za7, "cond", 4);
	      DEFINE_STRING(BGl_string2469z00zz__expander_argsz00,
		BgL_bgl_string2469za700za7za7_2612za7, "unquote", 7);
	     
		DEFINE_EXPORT_BGL_PROCEDURE
		(BGl_expandzd2argszd2parsezd2envzd2zz__expander_argsz00,
		BgL_bgl_za762expandza7d2args2613z00,
		BGl_z62expandzd2argszd2parsez62zz__expander_argsz00, 0L, BUNSPEC, 2);
	      DEFINE_STRING(BGl_string2551z00zz__expander_argsz00,
		BgL_bgl_string2551za700za7za7_2614za7, "or", 2);
	      DEFINE_STRING(BGl_string2552z00zz__expander_argsz00,
		BgL_bgl_string2552za700za7za7_2615za7, "missing argument", 16);
	      DEFINE_STRING(BGl_string2471z00zz__expander_argsz00,
		BgL_bgl_string2471za700za7za7_2616za7, "quasiquote", 10);
	      DEFINE_STRING(BGl_string2553z00zz__expander_argsz00,
		BgL_bgl_string2553za700za7za7_2617za7, "Illegal option argument `", 25);
	      DEFINE_STRING(BGl_string2554z00zz__expander_argsz00,
		BgL_bgl_string2554za700za7za7_2618za7, "'", 1);
	      DEFINE_STRING(BGl_string2473z00zz__expander_argsz00,
		BgL_bgl_string2473za700za7za7_2619za7, "args-parse-usage", 16);
	      DEFINE_STRING(BGl_string2555z00zz__expander_argsz00,
		BgL_bgl_string2555za700za7za7_2620za7, "Illegal option argument", 23);
	      DEFINE_STRING(BGl_string2556z00zz__expander_argsz00,
		BgL_bgl_string2556za700za7za7_2621za7, "&args-parse-usage", 17);
	      DEFINE_STRING(BGl_string2475z00zz__expander_argsz00,
		BgL_bgl_string2475za700za7za7_2622za7, "list", 4);
	      DEFINE_STRING(BGl_string2557z00zz__expander_argsz00,
		BgL_bgl_string2557za700za7za7_2623za7, "(", 1);
	      DEFINE_STRING(BGl_string2558z00zz__expander_argsz00,
		BgL_bgl_string2558za700za7za7_2624za7, "   ", 3);
	      DEFINE_STRING(BGl_string2477z00zz__expander_argsz00,
		BgL_bgl_string2477za700za7za7_2625za7, "p*", 2);
	      DEFINE_STRING(BGl_string2559z00zz__expander_argsz00,
		BgL_bgl_string2559za700za7za7_2626za7, ":", 1);
	      DEFINE_STRING(BGl_string2479z00zz__expander_argsz00,
		BgL_bgl_string2479za700za7za7_2627za7, "a*", 2);
	      DEFINE_STRING(BGl_string2561z00zz__expander_argsz00,
		BgL_bgl_string2561za700za7za7_2628za7, "usage-done", 10);
	      DEFINE_STRING(BGl_string2562z00zz__expander_argsz00,
		BgL_bgl_string2562za700za7za7_2629za7, ")", 1);
	      DEFINE_STRING(BGl_string2481z00zz__expander_argsz00,
		BgL_bgl_string2481za700za7za7_2630za7, "cons", 4);
	      DEFINE_STRING(BGl_string2563z00zz__expander_argsz00,
		BgL_bgl_string2563za700za7za7_2631za7, "__expander_args", 15);
	      DEFINE_STRING(BGl_string2483z00zz__expander_argsz00,
		BgL_bgl_string2483za700za7za7_2632za7, "set!", 4);
	      DEFINE_STRING(BGl_string2485z00zz__expander_argsz00,
		BgL_bgl_string2485za700za7za7_2633za7, "list?", 5);
	      DEFINE_STRING(BGl_string2487z00zz__expander_argsz00,
		BgL_bgl_string2487za700za7za7_2634za7, "not", 3);
	      DEFINE_STRING(BGl_string2489z00zz__expander_argsz00,
		BgL_bgl_string2489za700za7za7_2635za7, "Illegal argument list", 21);
	      DEFINE_STRING(BGl_string2491z00zz__expander_argsz00,
		BgL_bgl_string2491za700za7za7_2636za7, "nv", 2);
	      DEFINE_STRING(BGl_string2493z00zz__expander_argsz00,
		BgL_bgl_string2493za700za7za7_2637za7, "na*", 3);
	      DEFINE_STRING(BGl_string2495z00zz__expander_argsz00,
		BgL_bgl_string2495za700za7za7_2638za7, "action", 6);
	      DEFINE_STRING(BGl_string2497z00zz__expander_argsz00,
		BgL_bgl_string2497za700za7za7_2639za7, "next", 4);
	      DEFINE_STRING(BGl_string2499z00zz__expander_argsz00,
		BgL_bgl_string2499za700za7za7_2640za7, "loop", 4);

/* 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_symbol2560z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2480z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2482z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2484z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2486z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2488z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2490z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2492z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2494z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2496z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2498z00zz__expander_argsz00));
		   
			 ADD_ROOT((void
				*) (&BGl_requirezd2initializa7ationz75zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2500z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2502z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2504z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2506z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2508z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2510z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2512z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2514z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2516z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2519z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2521z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2446z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2528z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2448z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2530z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2450z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2532z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2452z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2454z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2536z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2456z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2538z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2458z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2540z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2542z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2462z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2544z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2464z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2546z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2466z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2548z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2468z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2550z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2470z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2472z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2474z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2476z00zz__expander_argsz00));
		     ADD_ROOT((void *) (&BGl_symbol2478z00zz__expander_argsz00));
#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_argsz00(long
		BgL_checksumz00_3234, char *BgL_fromz00_3235)
	{
		{
			if (CBOOL(BGl_requirezd2initializa7ationz75zz__expander_argsz00))
				{
					BGl_requirezd2initializa7ationz75zz__expander_argsz00 =
						BBOOL(((bool_t) 0));
					BGl_gczd2rootszd2initz00zz__expander_argsz00();
					BGl_cnstzd2initzd2zz__expander_argsz00();
					BGl_importedzd2moduleszd2initz00zz__expander_argsz00();
					return BGl_methodzd2initzd2zz__expander_argsz00();
				}
			else
				{
					return BUNSPEC;
				}
		}

	}



/* cnst-init */
	obj_t BGl_cnstzd2initzd2zz__expander_argsz00(void)
	{
		{	/* Eval/expdargs.scm 19 */
			BGl_symbol2446z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2447z00zz__expander_argsz00);
			BGl_symbol2448z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2449z00zz__expander_argsz00);
			BGl_symbol2450z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2451z00zz__expander_argsz00);
			BGl_symbol2452z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2453z00zz__expander_argsz00);
			BGl_symbol2454z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2455z00zz__expander_argsz00);
			BGl_symbol2456z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2457z00zz__expander_argsz00);
			BGl_symbol2458z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2459z00zz__expander_argsz00);
			BGl_symbol2462z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2463z00zz__expander_argsz00);
			BGl_symbol2464z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2465z00zz__expander_argsz00);
			BGl_symbol2466z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2467z00zz__expander_argsz00);
			BGl_symbol2468z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2469z00zz__expander_argsz00);
			BGl_symbol2470z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2471z00zz__expander_argsz00);
			BGl_symbol2472z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2473z00zz__expander_argsz00);
			BGl_symbol2474z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2475z00zz__expander_argsz00);
			BGl_symbol2476z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2477z00zz__expander_argsz00);
			BGl_symbol2478z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2479z00zz__expander_argsz00);
			BGl_symbol2480z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2481z00zz__expander_argsz00);
			BGl_symbol2482z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2483z00zz__expander_argsz00);
			BGl_symbol2484z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2485z00zz__expander_argsz00);
			BGl_symbol2486z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2487z00zz__expander_argsz00);
			BGl_symbol2488z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2440z00zz__expander_argsz00);
			BGl_symbol2490z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2491z00zz__expander_argsz00);
			BGl_symbol2492z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2493z00zz__expander_argsz00);
			BGl_symbol2494z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2495z00zz__expander_argsz00);
			BGl_symbol2496z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2497z00zz__expander_argsz00);
			BGl_symbol2498z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2499z00zz__expander_argsz00);
			BGl_symbol2500z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2501z00zz__expander_argsz00);
			BGl_symbol2502z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2503z00zz__expander_argsz00);
			BGl_symbol2504z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2505z00zz__expander_argsz00);
			BGl_symbol2506z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2507z00zz__expander_argsz00);
			BGl_symbol2508z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2509z00zz__expander_argsz00);
			BGl_symbol2510z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2511z00zz__expander_argsz00);
			BGl_symbol2512z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2513z00zz__expander_argsz00);
			BGl_symbol2514z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2515z00zz__expander_argsz00);
			BGl_symbol2516z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2517z00zz__expander_argsz00);
			BGl_symbol2519z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2520z00zz__expander_argsz00);
			BGl_symbol2521z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2522z00zz__expander_argsz00);
			BGl_symbol2528z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2529z00zz__expander_argsz00);
			BGl_symbol2530z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2531z00zz__expander_argsz00);
			BGl_symbol2532z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2533z00zz__expander_argsz00);
			BGl_symbol2536z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2537z00zz__expander_argsz00);
			BGl_symbol2538z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2539z00zz__expander_argsz00);
			BGl_symbol2540z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2541z00zz__expander_argsz00);
			BGl_symbol2542z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2543z00zz__expander_argsz00);
			BGl_symbol2544z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2545z00zz__expander_argsz00);
			BGl_symbol2546z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2547z00zz__expander_argsz00);
			BGl_symbol2548z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2549z00zz__expander_argsz00);
			BGl_symbol2550z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2551z00zz__expander_argsz00);
			return (BGl_symbol2560z00zz__expander_argsz00 =
				bstring_to_symbol(BGl_string2561z00zz__expander_argsz00), BUNSPEC);
		}

	}



/* gc-roots-init */
	obj_t BGl_gczd2rootszd2initz00zz__expander_argsz00(void)
	{
		{	/* Eval/expdargs.scm 19 */
			return bgl_gc_roots_register();
		}

	}



/* expand-args-parse */
	BGL_EXPORTED_DEF obj_t BGl_expandzd2argszd2parsez00zz__expander_argsz00(obj_t
		BgL_xz00_6, obj_t BgL_ez00_7)
	{
		{	/* Eval/expdargs.scm 76 */
			if (NULLP(BgL_xz00_6))
				{	/* Eval/expdargs.scm 77 */
					return
						BGl_expandzd2errorzd2zz__expandz00
						(BGl_string2440z00zz__expander_argsz00,
						BGl_string2441z00zz__expander_argsz00, BgL_xz00_6);
				}
			else
				{	/* Eval/expdargs.scm 77 */
					obj_t BgL_cdrzd2105zd2_1157;

					BgL_cdrzd2105zd2_1157 = CDR(((obj_t) BgL_xz00_6));
					if (PAIRP(BgL_cdrzd2105zd2_1157))
						{	/* Eval/expdargs.scm 77 */
							bool_t BgL_test2644z00_3300;

							{	/* Eval/expdargs.scm 77 */
								obj_t BgL_tmpz00_3301;

								BgL_tmpz00_3301 = CDR(BgL_cdrzd2105zd2_1157);
								BgL_test2644z00_3300 = PAIRP(BgL_tmpz00_3301);
							}
							if (BgL_test2644z00_3300)
								{	/* Eval/expdargs.scm 79 */
									obj_t BgL_arg1256z00_2607;

									BgL_arg1256z00_2607 =
										BGl_dozd2expandzd2argszd2parsezd2zz__expander_argsz00
										(BgL_xz00_6, BgL_ez00_7);
									return (VA_PROCEDUREP(BgL_ez00_7) ? ((obj_t(*)(obj_t,
													...)) PROCEDURE_ENTRY(BgL_ez00_7)) (BgL_ez00_7,
											BgL_arg1256z00_2607, BgL_ez00_7, BEOA) : ((obj_t(*)(obj_t,
													obj_t,
													obj_t)) PROCEDURE_ENTRY(BgL_ez00_7)) (BgL_ez00_7,
											BgL_arg1256z00_2607, BgL_ez00_7));
								}
							else
								{	/* Eval/expdargs.scm 77 */
									return
										BGl_expandzd2errorzd2zz__expandz00
										(BGl_string2440z00zz__expander_argsz00,
										BGl_string2441z00zz__expander_argsz00, BgL_xz00_6);
								}
						}
					else
						{	/* Eval/expdargs.scm 77 */
							return
								BGl_expandzd2errorzd2zz__expandz00
								(BGl_string2440z00zz__expander_argsz00,
								BGl_string2441z00zz__expander_argsz00, BgL_xz00_6);
						}
				}
		}

	}



/* &expand-args-parse */
	obj_t BGl_z62expandzd2argszd2parsez62zz__expander_argsz00(obj_t
		BgL_envz00_3194, obj_t BgL_xz00_3195, obj_t BgL_ez00_3196)
	{
		{	/* Eval/expdargs.scm 76 */
			{	/* Eval/expdargs.scm 77 */
				obj_t BgL_auxz00_3319;
				obj_t BgL_auxz00_3312;

				if (PROCEDUREP(BgL_ez00_3196))
					{	/* Eval/expdargs.scm 77 */
						BgL_auxz00_3319 = BgL_ez00_3196;
					}
				else
					{
						obj_t BgL_auxz00_3322;

						BgL_auxz00_3322 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2442z00zz__expander_argsz00, BINT(2941L),
							BGl_string2443z00zz__expander_argsz00,
							BGl_string2445z00zz__expander_argsz00, BgL_ez00_3196);
						FAILURE(BgL_auxz00_3322, BFALSE, BFALSE);
					}
				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_xz00_3195))
					{	/* Eval/expdargs.scm 77 */
						BgL_auxz00_3312 = BgL_xz00_3195;
					}
				else
					{
						obj_t BgL_auxz00_3315;

						BgL_auxz00_3315 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2442z00zz__expander_argsz00, BINT(2941L),
							BGl_string2443z00zz__expander_argsz00,
							BGl_string2444z00zz__expander_argsz00, BgL_xz00_3195);
						FAILURE(BgL_auxz00_3315, BFALSE, BFALSE);
					}
				return
					BGl_expandzd2argszd2parsez00zz__expander_argsz00(BgL_auxz00_3312,
					BgL_auxz00_3319);
			}
		}

	}



/* do-expand-args-parse */
	obj_t BGl_dozd2expandzd2argszd2parsezd2zz__expander_argsz00(obj_t BgL_xz00_8,
		obj_t BgL_ez00_9)
	{
		{	/* Eval/expdargs.scm 86 */
			{	/* Eval/expdargs.scm 87 */
				obj_t BgL_expz00_1163;

				BgL_expz00_1163 = CAR(CDR(BgL_xz00_8));
				{	/* Eval/expdargs.scm 87 */
					obj_t BgL_clausesz00_1164;

					BgL_clausesz00_1164 = CDR(CDR(BgL_xz00_8));
					{	/* Eval/expdargs.scm 88 */
						obj_t BgL_otablez00_1165;

						{	/* Eval/expdargs.scm 89 */
							obj_t BgL_list1470z00_1378;

							BgL_list1470z00_1378 = MAKE_YOUNG_PAIR(BINT(20L), BNIL);
							BgL_otablez00_1165 =
								BGl_makezd2hashtablezd2zz__hashz00(BgL_list1470z00_1378);
						}
						{	/* Eval/expdargs.scm 89 */
							obj_t BgL_parsersz00_1166;

							if (NULLP(BgL_clausesz00_1164))
								{	/* Eval/expdargs.scm 90 */
									BgL_parsersz00_1166 = BNIL;
								}
							else
								{	/* Eval/expdargs.scm 90 */
									obj_t BgL_head1091z00_1367;

									BgL_head1091z00_1367 = MAKE_YOUNG_PAIR(BNIL, BNIL);
									{
										obj_t BgL_l1089z00_2635;
										obj_t BgL_tail1092z00_2636;

										BgL_l1089z00_2635 = BgL_clausesz00_1164;
										BgL_tail1092z00_2636 = BgL_head1091z00_1367;
									BgL_zc3z04anonymousza31464ze3z87_2634:
										if (NULLP(BgL_l1089z00_2635))
											{	/* Eval/expdargs.scm 90 */
												BgL_parsersz00_1166 = CDR(BgL_head1091z00_1367);
											}
										else
											{	/* Eval/expdargs.scm 90 */
												obj_t BgL_newtail1093z00_2643;

												{	/* Eval/expdargs.scm 90 */
													obj_t BgL_arg1469z00_2644;

													{	/* Eval/expdargs.scm 90 */
														obj_t BgL_cz00_2645;

														BgL_cz00_2645 = CAR(((obj_t) BgL_l1089z00_2635));
														BgL_arg1469z00_2644 =
															BGl_makezd2parserzd2zz__expander_argsz00
															(BgL_cz00_2645, BgL_otablez00_1165);
													}
													BgL_newtail1093z00_2643 =
														MAKE_YOUNG_PAIR(BgL_arg1469z00_2644, BNIL);
												}
												SET_CDR(BgL_tail1092z00_2636, BgL_newtail1093z00_2643);
												{	/* Eval/expdargs.scm 90 */
													obj_t BgL_arg1468z00_2646;

													BgL_arg1468z00_2646 =
														CDR(((obj_t) BgL_l1089z00_2635));
													{
														obj_t BgL_tail1092z00_3348;
														obj_t BgL_l1089z00_3347;

														BgL_l1089z00_3347 = BgL_arg1468z00_2646;
														BgL_tail1092z00_3348 = BgL_newtail1093z00_2643;
														BgL_tail1092z00_2636 = BgL_tail1092z00_3348;
														BgL_l1089z00_2635 = BgL_l1089z00_3347;
														goto BgL_zc3z04anonymousza31464ze3z87_2634;
													}
												}
											}
									}
								}
							{	/* Eval/expdargs.scm 90 */
								obj_t BgL_lastzd2parserzd2_1167;

								{	/* Eval/expdargs.scm 91 */
									obj_t BgL_arg1441z00_1343;

									{	/* Eval/expdargs.scm 91 */
										obj_t BgL_arg1442z00_1344;
										obj_t BgL_arg1443z00_1345;

										{	/* Eval/expdargs.scm 91 */
											obj_t BgL_arg1444z00_1346;

											BgL_arg1444z00_1346 =
												MAKE_YOUNG_PAIR(BGl_symbol2446z00zz__expander_argsz00,
												BNIL);
											BgL_arg1442z00_1344 =
												MAKE_YOUNG_PAIR(BGl_symbol2448z00zz__expander_argsz00,
												BgL_arg1444z00_1346);
										}
										{	/* Eval/expdargs.scm 92 */
											obj_t BgL_arg1445z00_1347;

											{	/* Eval/expdargs.scm 92 */
												obj_t BgL_arg1446z00_1348;

												{	/* Eval/expdargs.scm 92 */
													obj_t BgL_arg1447z00_1349;
													obj_t BgL_arg1448z00_1350;

													{	/* Eval/expdargs.scm 92 */
														obj_t BgL_arg1449z00_1351;

														BgL_arg1449z00_1351 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2448z00zz__expander_argsz00, BNIL);
														BgL_arg1447z00_1349 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2450z00zz__expander_argsz00,
															BgL_arg1449z00_1351);
													}
													{	/* Eval/expdargs.scm 93 */
														obj_t BgL_arg1450z00_1352;
														obj_t BgL_arg1451z00_1353;

														{	/* Eval/expdargs.scm 93 */
															obj_t BgL_arg1452z00_1354;

															{	/* Eval/expdargs.scm 93 */
																obj_t BgL_arg1453z00_1355;
																obj_t BgL_arg1454z00_1356;

																{	/* Eval/expdargs.scm 93 */
																	obj_t BgL_arg1455z00_1357;

																	BgL_arg1455z00_1357 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2452z00zz__expander_argsz00,
																		BNIL);
																	BgL_arg1453z00_1355 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2454z00zz__expander_argsz00,
																		BgL_arg1455z00_1357);
																}
																{	/* Eval/expdargs.scm 93 */
																	obj_t BgL_arg1456z00_1358;

																	BgL_arg1456z00_1358 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2446z00zz__expander_argsz00,
																		BNIL);
																	BgL_arg1454z00_1356 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2448z00zz__expander_argsz00,
																		BgL_arg1456z00_1358);
																}
																BgL_arg1452z00_1354 =
																	MAKE_YOUNG_PAIR(BgL_arg1453z00_1355,
																	BgL_arg1454z00_1356);
															}
															BgL_arg1450z00_1352 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2456z00zz__expander_argsz00,
																BgL_arg1452z00_1354);
														}
														{	/* Eval/expdargs.scm 94 */
															obj_t BgL_arg1457z00_1359;

															{	/* Eval/expdargs.scm 94 */
																obj_t BgL_arg1458z00_1360;

																{	/* Eval/expdargs.scm 94 */
																	obj_t BgL_arg1459z00_1361;
																	obj_t BgL_arg1460z00_1362;

																	{	/* Eval/expdargs.scm 94 */
																		obj_t BgL_arg1461z00_1363;

																		BgL_arg1461z00_1363 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2448z00zz__expander_argsz00,
																			BNIL);
																		BgL_arg1459z00_1361 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2458z00zz__expander_argsz00,
																			BgL_arg1461z00_1363);
																	}
																	{	/* Eval/expdargs.scm 94 */
																		obj_t BgL_arg1462z00_1364;

																		BgL_arg1462z00_1364 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2460z00zz__expander_argsz00,
																			BNIL);
																		BgL_arg1460z00_1362 =
																			MAKE_YOUNG_PAIR
																			(BGl_string2461z00zz__expander_argsz00,
																			BgL_arg1462z00_1364);
																	}
																	BgL_arg1458z00_1360 =
																		MAKE_YOUNG_PAIR(BgL_arg1459z00_1361,
																		BgL_arg1460z00_1362);
																}
																BgL_arg1457z00_1359 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2462z00zz__expander_argsz00,
																	BgL_arg1458z00_1360);
															}
															BgL_arg1451z00_1353 =
																MAKE_YOUNG_PAIR(BgL_arg1457z00_1359, BNIL);
														}
														BgL_arg1448z00_1350 =
															MAKE_YOUNG_PAIR(BgL_arg1450z00_1352,
															BgL_arg1451z00_1353);
													}
													BgL_arg1446z00_1348 =
														MAKE_YOUNG_PAIR(BgL_arg1447z00_1349,
														BgL_arg1448z00_1350);
												}
												BgL_arg1445z00_1347 =
													MAKE_YOUNG_PAIR(BGl_symbol2464z00zz__expander_argsz00,
													BgL_arg1446z00_1348);
											}
											BgL_arg1443z00_1345 =
												MAKE_YOUNG_PAIR(BgL_arg1445z00_1347, BNIL);
										}
										BgL_arg1441z00_1343 =
											MAKE_YOUNG_PAIR(BgL_arg1442z00_1344, BgL_arg1443z00_1345);
									}
									BgL_lastzd2parserzd2_1167 =
										MAKE_YOUNG_PAIR(BGl_symbol2466z00zz__expander_argsz00,
										BgL_arg1441z00_1343);
								}
								{	/* Eval/expdargs.scm 91 */
									obj_t BgL_descrsz00_1168;

									{	/* Eval/expdargs.scm 95 */
										obj_t BgL_hook1104z00_1312;

										BgL_hook1104z00_1312 = MAKE_YOUNG_PAIR(BFALSE, BNIL);
										{	/* Eval/expdargs.scm 95 */
											obj_t BgL_g1105z00_1313;

											if (NULLP(BgL_clausesz00_1164))
												{	/* Eval/expdargs.scm 95 */
													BgL_g1105z00_1313 = BNIL;
												}
											else
												{	/* Eval/expdargs.scm 95 */
													obj_t BgL_head1096z00_1329;

													{	/* Eval/expdargs.scm 95 */
														obj_t BgL_arg1439z00_1341;

														{	/* Eval/expdargs.scm 95 */
															obj_t BgL_arg1440z00_1342;

															BgL_arg1440z00_1342 =
																CAR(((obj_t) BgL_clausesz00_1164));
															BgL_arg1439z00_1341 =
																BGl_makezd2helpzd2zz__expander_argsz00
																(BgL_arg1440z00_1342);
														}
														BgL_head1096z00_1329 =
															MAKE_YOUNG_PAIR(BgL_arg1439z00_1341, BNIL);
													}
													{	/* Eval/expdargs.scm 95 */
														obj_t BgL_g1099z00_1330;

														BgL_g1099z00_1330 =
															CDR(((obj_t) BgL_clausesz00_1164));
														{
															obj_t BgL_l1094z00_2670;
															obj_t BgL_tail1097z00_2671;

															BgL_l1094z00_2670 = BgL_g1099z00_1330;
															BgL_tail1097z00_2671 = BgL_head1096z00_1329;
														BgL_zc3z04anonymousza31434ze3z87_2669:
															if (NULLP(BgL_l1094z00_2670))
																{	/* Eval/expdargs.scm 95 */
																	BgL_g1105z00_1313 = BgL_head1096z00_1329;
																}
															else
																{	/* Eval/expdargs.scm 95 */
																	obj_t BgL_newtail1098z00_2678;

																	{	/* Eval/expdargs.scm 95 */
																		obj_t BgL_arg1437z00_2679;

																		{	/* Eval/expdargs.scm 95 */
																			obj_t BgL_arg1438z00_2680;

																			BgL_arg1438z00_2680 =
																				CAR(((obj_t) BgL_l1094z00_2670));
																			BgL_arg1437z00_2679 =
																				BGl_makezd2helpzd2zz__expander_argsz00
																				(BgL_arg1438z00_2680);
																		}
																		BgL_newtail1098z00_2678 =
																			MAKE_YOUNG_PAIR(BgL_arg1437z00_2679,
																			BNIL);
																	}
																	SET_CDR(BgL_tail1097z00_2671,
																		BgL_newtail1098z00_2678);
																	{	/* Eval/expdargs.scm 95 */
																		obj_t BgL_arg1436z00_2681;

																		BgL_arg1436z00_2681 =
																			CDR(((obj_t) BgL_l1094z00_2670));
																		{
																			obj_t BgL_tail1097z00_3391;
																			obj_t BgL_l1094z00_3390;

																			BgL_l1094z00_3390 = BgL_arg1436z00_2681;
																			BgL_tail1097z00_3391 =
																				BgL_newtail1098z00_2678;
																			BgL_tail1097z00_2671 =
																				BgL_tail1097z00_3391;
																			BgL_l1094z00_2670 = BgL_l1094z00_3390;
																			goto
																				BgL_zc3z04anonymousza31434ze3z87_2669;
																		}
																	}
																}
														}
													}
												}
											{
												obj_t BgL_l1101z00_1315;
												obj_t BgL_h1102z00_1316;

												BgL_l1101z00_1315 = BgL_g1105z00_1313;
												BgL_h1102z00_1316 = BgL_hook1104z00_1312;
											BgL_zc3z04anonymousza31427ze3z87_1317:
												if (NULLP(BgL_l1101z00_1315))
													{	/* Eval/expdargs.scm 95 */
														BgL_descrsz00_1168 = CDR(BgL_hook1104z00_1312);
													}
												else
													{	/* Eval/expdargs.scm 95 */
														if (CBOOL(CAR(((obj_t) BgL_l1101z00_1315))))
															{	/* Eval/expdargs.scm 95 */
																obj_t BgL_nh1103z00_1321;

																{	/* Eval/expdargs.scm 95 */
																	obj_t BgL_arg1431z00_1323;

																	BgL_arg1431z00_1323 =
																		CAR(((obj_t) BgL_l1101z00_1315));
																	BgL_nh1103z00_1321 =
																		MAKE_YOUNG_PAIR(BgL_arg1431z00_1323, BNIL);
																}
																SET_CDR(BgL_h1102z00_1316, BgL_nh1103z00_1321);
																{	/* Eval/expdargs.scm 95 */
																	obj_t BgL_arg1430z00_1322;

																	BgL_arg1430z00_1322 =
																		CDR(((obj_t) BgL_l1101z00_1315));
																	{
																		obj_t BgL_h1102z00_3406;
																		obj_t BgL_l1101z00_3405;

																		BgL_l1101z00_3405 = BgL_arg1430z00_1322;
																		BgL_h1102z00_3406 = BgL_nh1103z00_1321;
																		BgL_h1102z00_1316 = BgL_h1102z00_3406;
																		BgL_l1101z00_1315 = BgL_l1101z00_3405;
																		goto BgL_zc3z04anonymousza31427ze3z87_1317;
																	}
																}
															}
														else
															{	/* Eval/expdargs.scm 95 */
																obj_t BgL_arg1432z00_1324;

																BgL_arg1432z00_1324 =
																	CDR(((obj_t) BgL_l1101z00_1315));
																{
																	obj_t BgL_l1101z00_3409;

																	BgL_l1101z00_3409 = BgL_arg1432z00_1324;
																	BgL_l1101z00_1315 = BgL_l1101z00_3409;
																	goto BgL_zc3z04anonymousza31427ze3z87_1317;
																}
															}
													}
											}
										}
									}
									{	/* Eval/expdargs.scm 95 */

										{	/* Eval/expdargs.scm 98 */
											obj_t BgL_arg1257z00_1169;

											{	/* Eval/expdargs.scm 98 */
												obj_t BgL_arg1259z00_1170;
												obj_t BgL_arg1260z00_1171;

												{	/* Eval/expdargs.scm 98 */
													obj_t BgL_arg1265z00_1172;
													obj_t BgL_arg1275z00_1173;

													{	/* Eval/expdargs.scm 98 */
														obj_t BgL_arg1276z00_1174;

														{	/* Eval/expdargs.scm 98 */
															obj_t BgL_arg1277z00_1175;

															{	/* Eval/expdargs.scm 98 */
																obj_t BgL_arg1279z00_1176;

																{	/* Eval/expdargs.scm 98 */
																	obj_t BgL_arg1281z00_1177;

																	{	/* Eval/expdargs.scm 98 */
																		obj_t BgL_arg1282z00_1178;

																		{	/* Eval/expdargs.scm 98 */
																			bool_t BgL_test2653z00_3410;

																			{
																				obj_t BgL_l1106z00_1195;

																				BgL_l1106z00_1195 = BgL_descrsz00_1168;
																			BgL_zc3z04anonymousza31293ze3z87_1196:
																				if (NULLP(BgL_l1106z00_1195))
																					{	/* Eval/expdargs.scm 98 */
																						BgL_test2653z00_3410 = ((bool_t) 0);
																					}
																				else
																					{	/* Eval/expdargs.scm 99 */
																						bool_t BgL__ortest_1108z00_1198;

																						{	/* Eval/expdargs.scm 99 */
																							obj_t BgL_fz00_1200;

																							BgL_fz00_1200 =
																								CAR(
																								((obj_t) BgL_l1106z00_1195));
																							if (PAIRP(BgL_fz00_1200))
																								{	/* Eval/expdargs.scm 100 */
																									bool_t BgL_test2656z00_3417;

																									{	/* Eval/expdargs.scm 100 */
																										obj_t BgL_tmpz00_3418;

																										BgL_tmpz00_3418 =
																											CDR(BgL_fz00_1200);
																										BgL_test2656z00_3417 =
																											PAIRP(BgL_tmpz00_3418);
																									}
																									if (BgL_test2656z00_3417)
																										{	/* Eval/expdargs.scm 100 */
																											BgL__ortest_1108z00_1198 =
																												(CAR(CDR(BgL_fz00_1200))
																												==
																												BGl_symbol2468z00zz__expander_argsz00);
																										}
																									else
																										{	/* Eval/expdargs.scm 100 */
																											BgL__ortest_1108z00_1198 =
																												((bool_t) 0);
																										}
																								}
																							else
																								{	/* Eval/expdargs.scm 99 */
																									BgL__ortest_1108z00_1198 =
																										((bool_t) 0);
																								}
																						}
																						if (BgL__ortest_1108z00_1198)
																							{	/* Eval/expdargs.scm 98 */
																								BgL_test2653z00_3410 =
																									BgL__ortest_1108z00_1198;
																							}
																						else
																							{	/* Eval/expdargs.scm 98 */
																								obj_t BgL_arg1294z00_1199;

																								BgL_arg1294z00_1199 =
																									CDR(
																									((obj_t) BgL_l1106z00_1195));
																								{
																									obj_t BgL_l1106z00_3427;

																									BgL_l1106z00_3427 =
																										BgL_arg1294z00_1199;
																									BgL_l1106z00_1195 =
																										BgL_l1106z00_3427;
																									goto
																										BgL_zc3z04anonymousza31293ze3z87_1196;
																								}
																							}
																					}
																			}
																			if (BgL_test2653z00_3410)
																				{	/* Eval/expdargs.scm 98 */
																					BgL_arg1282z00_1178 =
																						BGl_symbol2470z00zz__expander_argsz00;
																				}
																			else
																				{	/* Eval/expdargs.scm 98 */
																					BgL_arg1282z00_1178 =
																						BGl_symbol2454z00zz__expander_argsz00;
																				}
																		}
																		{	/* Eval/expdargs.scm 98 */
																			obj_t BgL_list1283z00_1179;

																			{	/* Eval/expdargs.scm 98 */
																				obj_t BgL_arg1284z00_1180;

																				BgL_arg1284z00_1180 =
																					MAKE_YOUNG_PAIR(BgL_descrsz00_1168,
																					BNIL);
																				BgL_list1283z00_1179 =
																					MAKE_YOUNG_PAIR(BgL_arg1282z00_1178,
																					BgL_arg1284z00_1180);
																			}
																			BgL_arg1281z00_1177 =
																				BgL_list1283z00_1179;
																		}
																	}
																	BgL_arg1279z00_1176 =
																		MAKE_YOUNG_PAIR(BgL_arg1281z00_1177, BNIL);
																}
																BgL_arg1277z00_1175 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2472z00zz__expander_argsz00,
																	BgL_arg1279z00_1176);
															}
															BgL_arg1276z00_1174 =
																MAKE_YOUNG_PAIR(BgL_arg1277z00_1175, BNIL);
														}
														BgL_arg1265z00_1172 =
															MAKE_YOUNG_PAIR
															(BGl_symbol2472z00zz__expander_argsz00,
															BgL_arg1276z00_1174);
													}
													{	/* Eval/expdargs.scm 106 */
														obj_t BgL_arg1324z00_1206;
														obj_t BgL_arg1325z00_1207;

														{	/* Eval/expdargs.scm 106 */
															obj_t BgL_arg1327z00_1208;

															{	/* Eval/expdargs.scm 106 */
																obj_t BgL_arg1330z00_1209;

																{	/* Eval/expdargs.scm 106 */
																	obj_t BgL_arg1331z00_1210;

																	BgL_arg1331z00_1210 =
																		MAKE_YOUNG_PAIR(BgL_lastzd2parserzd2_1167,
																		BNIL);
																	BgL_arg1330z00_1209 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2474z00zz__expander_argsz00,
																		BgL_arg1331z00_1210);
																}
																BgL_arg1327z00_1208 =
																	MAKE_YOUNG_PAIR(BgL_arg1330z00_1209, BNIL);
															}
															BgL_arg1324z00_1206 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2476z00zz__expander_argsz00,
																BgL_arg1327z00_1208);
														}
														{	/* Eval/expdargs.scm 107 */
															obj_t BgL_arg1332z00_1211;

															{	/* Eval/expdargs.scm 107 */
																obj_t BgL_arg1333z00_1212;

																BgL_arg1333z00_1212 =
																	MAKE_YOUNG_PAIR(BgL_expz00_1163, BNIL);
																BgL_arg1332z00_1211 =
																	MAKE_YOUNG_PAIR
																	(BGl_symbol2478z00zz__expander_argsz00,
																	BgL_arg1333z00_1212);
															}
															BgL_arg1325z00_1207 =
																MAKE_YOUNG_PAIR(BgL_arg1332z00_1211, BNIL);
														}
														BgL_arg1275z00_1173 =
															MAKE_YOUNG_PAIR(BgL_arg1324z00_1206,
															BgL_arg1325z00_1207);
													}
													BgL_arg1259z00_1170 =
														MAKE_YOUNG_PAIR(BgL_arg1265z00_1172,
														BgL_arg1275z00_1173);
												}
												{	/* Eval/expdargs.scm 108 */
													obj_t BgL_arg1334z00_1213;
													obj_t BgL_arg1335z00_1214;

													{	/* Eval/expdargs.scm 108 */
														obj_t BgL_l1114z00_1215;

														{	/* Eval/expdargs.scm 109 */
															obj_t BgL_arg1347z00_1233;

															{	/* Eval/expdargs.scm 109 */
																obj_t BgL_hook1113z00_1234;

																BgL_hook1113z00_1234 =
																	MAKE_YOUNG_PAIR(BFALSE, BNIL);
																{
																	obj_t BgL_l1110z00_1236;
																	obj_t BgL_h1111z00_1237;

																	BgL_l1110z00_1236 = BgL_parsersz00_1166;
																	BgL_h1111z00_1237 = BgL_hook1113z00_1234;
																BgL_zc3z04anonymousza31348ze3z87_1238:
																	if (NULLP(BgL_l1110z00_1236))
																		{	/* Eval/expdargs.scm 109 */
																			BgL_arg1347z00_1233 =
																				CDR(BgL_hook1113z00_1234);
																		}
																	else
																		{	/* Eval/expdargs.scm 109 */
																			bool_t BgL_test2659z00_3447;

																			{	/* Eval/expdargs.scm 109 */
																				obj_t BgL_tmpz00_3448;

																				BgL_tmpz00_3448 =
																					CAR(((obj_t) BgL_l1110z00_1236));
																				BgL_test2659z00_3447 =
																					PAIRP(BgL_tmpz00_3448);
																			}
																			if (BgL_test2659z00_3447)
																				{	/* Eval/expdargs.scm 109 */
																					obj_t BgL_nh1112z00_1242;

																					{	/* Eval/expdargs.scm 109 */
																						obj_t BgL_arg1355z00_1244;

																						BgL_arg1355z00_1244 =
																							CAR(((obj_t) BgL_l1110z00_1236));
																						BgL_nh1112z00_1242 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1355z00_1244, BNIL);
																					}
																					SET_CDR(BgL_h1111z00_1237,
																						BgL_nh1112z00_1242);
																					{	/* Eval/expdargs.scm 109 */
																						obj_t BgL_arg1354z00_1243;

																						BgL_arg1354z00_1243 =
																							CDR(((obj_t) BgL_l1110z00_1236));
																						{
																							obj_t BgL_h1111z00_3459;
																							obj_t BgL_l1110z00_3458;

																							BgL_l1110z00_3458 =
																								BgL_arg1354z00_1243;
																							BgL_h1111z00_3459 =
																								BgL_nh1112z00_1242;
																							BgL_h1111z00_1237 =
																								BgL_h1111z00_3459;
																							BgL_l1110z00_1236 =
																								BgL_l1110z00_3458;
																							goto
																								BgL_zc3z04anonymousza31348ze3z87_1238;
																						}
																					}
																				}
																			else
																				{	/* Eval/expdargs.scm 109 */
																					obj_t BgL_arg1356z00_1245;

																					BgL_arg1356z00_1245 =
																						CDR(((obj_t) BgL_l1110z00_1236));
																					{
																						obj_t BgL_l1110z00_3462;

																						BgL_l1110z00_3462 =
																							BgL_arg1356z00_1245;
																						BgL_l1110z00_1236 =
																							BgL_l1110z00_3462;
																						goto
																							BgL_zc3z04anonymousza31348ze3z87_1238;
																					}
																				}
																		}
																}
															}
															BgL_l1114z00_1215 =
																bgl_reverse_bang(BgL_arg1347z00_1233);
														}
														if (NULLP(BgL_l1114z00_1215))
															{	/* Eval/expdargs.scm 108 */
																BgL_arg1334z00_1213 = BNIL;
															}
														else
															{	/* Eval/expdargs.scm 108 */
																obj_t BgL_head1116z00_1217;

																BgL_head1116z00_1217 =
																	MAKE_YOUNG_PAIR(BNIL, BNIL);
																{
																	obj_t BgL_l1114z00_1219;
																	obj_t BgL_tail1117z00_1220;

																	BgL_l1114z00_1219 = BgL_l1114z00_1215;
																	BgL_tail1117z00_1220 = BgL_head1116z00_1217;
																BgL_zc3z04anonymousza31337ze3z87_1221:
																	if (NULLP(BgL_l1114z00_1219))
																		{	/* Eval/expdargs.scm 108 */
																			BgL_arg1334z00_1213 =
																				CDR(BgL_head1116z00_1217);
																		}
																	else
																		{	/* Eval/expdargs.scm 108 */
																			obj_t BgL_newtail1118z00_1223;

																			{	/* Eval/expdargs.scm 108 */
																				obj_t BgL_arg1341z00_1225;

																				{	/* Eval/expdargs.scm 108 */
																					obj_t BgL_pz00_1226;

																					BgL_pz00_1226 =
																						CAR(((obj_t) BgL_l1114z00_1219));
																					{	/* Eval/expdargs.scm 108 */
																						obj_t BgL_arg1342z00_1227;

																						{	/* Eval/expdargs.scm 108 */
																							obj_t BgL_arg1343z00_1228;

																							{	/* Eval/expdargs.scm 108 */
																								obj_t BgL_arg1344z00_1229;

																								{	/* Eval/expdargs.scm 108 */
																									obj_t BgL_arg1345z00_1230;

																									{	/* Eval/expdargs.scm 108 */
																										obj_t BgL_arg1346z00_1231;

																										BgL_arg1346z00_1231 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2476z00zz__expander_argsz00,
																											BNIL);
																										BgL_arg1345z00_1230 =
																											MAKE_YOUNG_PAIR
																											(BgL_pz00_1226,
																											BgL_arg1346z00_1231);
																									}
																									BgL_arg1344z00_1229 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2480z00zz__expander_argsz00,
																										BgL_arg1345z00_1230);
																								}
																								BgL_arg1343z00_1228 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1344z00_1229, BNIL);
																							}
																							BgL_arg1342z00_1227 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2476z00zz__expander_argsz00,
																								BgL_arg1343z00_1228);
																						}
																						BgL_arg1341z00_1225 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2482z00zz__expander_argsz00,
																							BgL_arg1342z00_1227);
																					}
																				}
																				BgL_newtail1118z00_1223 =
																					MAKE_YOUNG_PAIR(BgL_arg1341z00_1225,
																					BNIL);
																			}
																			SET_CDR(BgL_tail1117z00_1220,
																				BgL_newtail1118z00_1223);
																			{	/* Eval/expdargs.scm 108 */
																				obj_t BgL_arg1339z00_1224;

																				BgL_arg1339z00_1224 =
																					CDR(((obj_t) BgL_l1114z00_1219));
																				{
																					obj_t BgL_tail1117z00_3483;
																					obj_t BgL_l1114z00_3482;

																					BgL_l1114z00_3482 =
																						BgL_arg1339z00_1224;
																					BgL_tail1117z00_3483 =
																						BgL_newtail1118z00_1223;
																					BgL_tail1117z00_1220 =
																						BgL_tail1117z00_3483;
																					BgL_l1114z00_1219 = BgL_l1114z00_3482;
																					goto
																						BgL_zc3z04anonymousza31337ze3z87_1221;
																				}
																			}
																		}
																}
															}
													}
													{	/* Eval/expdargs.scm 110 */
														obj_t BgL_arg1358z00_1248;

														{	/* Eval/expdargs.scm 110 */
															obj_t BgL_arg1359z00_1249;

															{	/* Eval/expdargs.scm 110 */
																obj_t BgL_arg1360z00_1250;
																obj_t BgL_arg1361z00_1251;

																{	/* Eval/expdargs.scm 110 */
																	obj_t BgL_arg1362z00_1252;

																	{	/* Eval/expdargs.scm 110 */
																		obj_t BgL_arg1363z00_1253;

																		{	/* Eval/expdargs.scm 110 */
																			obj_t BgL_arg1364z00_1254;

																			BgL_arg1364z00_1254 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2478z00zz__expander_argsz00,
																				BNIL);
																			BgL_arg1363z00_1253 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2484z00zz__expander_argsz00,
																				BgL_arg1364z00_1254);
																		}
																		BgL_arg1362z00_1252 =
																			MAKE_YOUNG_PAIR(BgL_arg1363z00_1253,
																			BNIL);
																	}
																	BgL_arg1360z00_1250 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2486z00zz__expander_argsz00,
																		BgL_arg1362z00_1252);
																}
																{	/* Eval/expdargs.scm 111 */
																	obj_t BgL_arg1365z00_1255;
																	obj_t BgL_arg1366z00_1256;

																	{	/* Eval/expdargs.scm 111 */
																		obj_t BgL_arg1367z00_1257;

																		{	/* Eval/expdargs.scm 111 */
																			obj_t BgL_arg1368z00_1258;
																			obj_t BgL_arg1369z00_1259;

																			{	/* Eval/expdargs.scm 111 */
																				obj_t BgL_arg1370z00_1260;

																				BgL_arg1370z00_1260 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2488z00zz__expander_argsz00,
																					BNIL);
																				BgL_arg1368z00_1258 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2454z00zz__expander_argsz00,
																					BgL_arg1370z00_1260);
																			}
																			{	/* Eval/expdargs.scm 111 */
																				obj_t BgL_arg1371z00_1261;

																				BgL_arg1371z00_1261 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2478z00zz__expander_argsz00,
																					BNIL);
																				BgL_arg1369z00_1259 =
																					MAKE_YOUNG_PAIR
																					(BGl_string2489z00zz__expander_argsz00,
																					BgL_arg1371z00_1261);
																			}
																			BgL_arg1367z00_1257 =
																				MAKE_YOUNG_PAIR(BgL_arg1368z00_1258,
																				BgL_arg1369z00_1259);
																		}
																		BgL_arg1365z00_1255 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2462z00zz__expander_argsz00,
																			BgL_arg1367z00_1257);
																	}
																	{	/* Eval/expdargs.scm 112 */
																		obj_t BgL_arg1372z00_1262;

																		{	/* Eval/expdargs.scm 112 */
																			obj_t BgL_arg1373z00_1263;

																			{	/* Eval/expdargs.scm 112 */
																				obj_t BgL_arg1374z00_1264;

																				{	/* Eval/expdargs.scm 112 */
																					obj_t BgL_arg1375z00_1265;
																					obj_t BgL_arg1376z00_1266;

																					{	/* Eval/expdargs.scm 112 */
																						obj_t BgL_arg1377z00_1267;
																						obj_t BgL_arg1379z00_1268;

																						{	/* Eval/expdargs.scm 112 */
																							obj_t BgL_arg1382z00_1269;

																							BgL_arg1382z00_1269 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2478z00zz__expander_argsz00,
																								BNIL);
																							BgL_arg1377z00_1267 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2478z00zz__expander_argsz00,
																								BgL_arg1382z00_1269);
																						}
																						{	/* Eval/expdargs.scm 113 */
																							obj_t BgL_arg1383z00_1270;

																							{	/* Eval/expdargs.scm 113 */
																								obj_t BgL_arg1384z00_1271;

																								BgL_arg1384z00_1271 =
																									MAKE_YOUNG_PAIR(BFALSE, BNIL);
																								BgL_arg1383z00_1270 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2446z00zz__expander_argsz00,
																									BgL_arg1384z00_1271);
																							}
																							BgL_arg1379z00_1268 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1383z00_1270, BNIL);
																						}
																						BgL_arg1375z00_1265 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1377z00_1267,
																							BgL_arg1379z00_1268);
																					}
																					{	/* Eval/expdargs.scm 114 */
																						obj_t BgL_arg1385z00_1272;

																						{	/* Eval/expdargs.scm 114 */
																							obj_t BgL_arg1386z00_1273;

																							{	/* Eval/expdargs.scm 114 */
																								obj_t BgL_arg1387z00_1274;

																								{	/* Eval/expdargs.scm 114 */
																									obj_t BgL_arg1388z00_1275;
																									obj_t BgL_arg1389z00_1276;

																									{	/* Eval/expdargs.scm 114 */
																										obj_t BgL_arg1390z00_1277;

																										{	/* Eval/expdargs.scm 114 */
																											obj_t BgL_arg1391z00_1278;

																											BgL_arg1391z00_1278 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2476z00zz__expander_argsz00,
																												BNIL);
																											BgL_arg1390z00_1277 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2476z00zz__expander_argsz00,
																												BgL_arg1391z00_1278);
																										}
																										BgL_arg1388z00_1275 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1390z00_1277,
																											BNIL);
																									}
																									{	/* Eval/expdargs.scm 115 */
																										obj_t BgL_arg1392z00_1279;

																										{	/* Eval/expdargs.scm 115 */
																											obj_t BgL_arg1394z00_1280;

																											{	/* Eval/expdargs.scm 115 */
																												obj_t
																													BgL_arg1395z00_1281;
																												obj_t
																													BgL_arg1396z00_1282;
																												{	/* Eval/expdargs.scm 115 */
																													obj_t
																														BgL_arg1397z00_1283;
																													{	/* Eval/expdargs.scm 115 */
																														obj_t
																															BgL_arg1398z00_1284;
																														BgL_arg1398z00_1284
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2490z00zz__expander_argsz00,
																															BNIL);
																														BgL_arg1397z00_1283
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2492z00zz__expander_argsz00,
																															BgL_arg1398z00_1284);
																													}
																													BgL_arg1395z00_1281 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2494z00zz__expander_argsz00,
																														BgL_arg1397z00_1283);
																												}
																												{	/* Eval/expdargs.scm 116 */
																													obj_t
																														BgL_arg1399z00_1285;
																													obj_t
																														BgL_arg1400z00_1286;
																													{	/* Eval/expdargs.scm 116 */
																														obj_t
																															BgL_arg1401z00_1287;
																														obj_t
																															BgL_arg1402z00_1288;
																														{	/* Eval/expdargs.scm 116 */
																															obj_t
																																BgL_arg1403z00_1289;
																															BgL_arg1403z00_1289
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2476z00zz__expander_argsz00,
																																BNIL);
																															BgL_arg1401z00_1287
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2458z00zz__expander_argsz00,
																																BgL_arg1403z00_1289);
																														}
																														{	/* Eval/expdargs.scm 116 */
																															obj_t
																																BgL_arg1405z00_1290;
																															BgL_arg1405z00_1290
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2446z00zz__expander_argsz00,
																																BNIL);
																															BgL_arg1402z00_1288
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2478z00zz__expander_argsz00,
																																BgL_arg1405z00_1290);
																														}
																														BgL_arg1399z00_1285
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1401z00_1287,
																															BgL_arg1402z00_1288);
																													}
																													{	/* Eval/expdargs.scm 118 */
																														obj_t
																															BgL_arg1406z00_1291;
																														{	/* Eval/expdargs.scm 118 */
																															obj_t
																																BgL_arg1407z00_1292;
																															{	/* Eval/expdargs.scm 118 */
																																obj_t
																																	BgL_arg1408z00_1293;
																																{	/* Eval/expdargs.scm 118 */
																																	obj_t
																																		BgL_arg1409z00_1294;
																																	obj_t
																																		BgL_arg1410z00_1295;
																																	{	/* Eval/expdargs.scm 118 */
																																		obj_t
																																			BgL_arg1411z00_1296;
																																		obj_t
																																			BgL_arg1412z00_1297;
																																		BgL_arg1411z00_1296
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2496z00zz__expander_argsz00,
																																			BNIL);
																																		{	/* Eval/expdargs.scm 119 */
																																			obj_t
																																				BgL_arg1413z00_1298;
																																			{	/* Eval/expdargs.scm 119 */
																																				obj_t
																																					BgL_arg1414z00_1299;
																																				{	/* Eval/expdargs.scm 119 */
																																					obj_t
																																						BgL_arg1415z00_1300;
																																					BgL_arg1415z00_1300
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2490z00zz__expander_argsz00,
																																						BNIL);
																																					BgL_arg1414z00_1299
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2492z00zz__expander_argsz00,
																																						BgL_arg1415z00_1300);
																																				}
																																				BgL_arg1413z00_1298
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2498z00zz__expander_argsz00,
																																					BgL_arg1414z00_1299);
																																			}
																																			BgL_arg1412z00_1297
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1413z00_1298,
																																				BNIL);
																																		}
																																		BgL_arg1409z00_1294
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1411z00_1296,
																																			BgL_arg1412z00_1297);
																																	}
																																	{	/* Eval/expdargs.scm 120 */
																																		obj_t
																																			BgL_arg1416z00_1301;
																																		obj_t
																																			BgL_arg1417z00_1302;
																																		{	/* Eval/expdargs.scm 120 */
																																			obj_t
																																				BgL_arg1418z00_1303;
																																			obj_t
																																				BgL_arg1419z00_1304;
																																			BgL_arg1418z00_1303
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2500z00zz__expander_argsz00,
																																				BNIL);
																																			{	/* Eval/expdargs.scm 121 */
																																				obj_t
																																					BgL_arg1420z00_1305;
																																				{	/* Eval/expdargs.scm 121 */
																																					obj_t
																																						BgL_arg1421z00_1306;
																																					{	/* Eval/expdargs.scm 121 */
																																						obj_t
																																							BgL_arg1422z00_1307;
																																						{	/* Eval/expdargs.scm 121 */
																																							obj_t
																																								BgL_arg1423z00_1308;
																																							BgL_arg1423z00_1308
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2476z00zz__expander_argsz00,
																																								BNIL);
																																							BgL_arg1422z00_1307
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2502z00zz__expander_argsz00,
																																								BgL_arg1423z00_1308);
																																						}
																																						BgL_arg1421z00_1306
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1422z00_1307,
																																							BNIL);
																																					}
																																					BgL_arg1420z00_1305
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2504z00zz__expander_argsz00,
																																						BgL_arg1421z00_1306);
																																				}
																																				BgL_arg1419z00_1304
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1420z00_1305,
																																					BNIL);
																																			}
																																			BgL_arg1416z00_1301
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1418z00_1303,
																																				BgL_arg1419z00_1304);
																																		}
																																		{	/* Eval/expdargs.scm 122 */
																																			obj_t
																																				BgL_arg1424z00_1309;
																																			{	/* Eval/expdargs.scm 122 */
																																				obj_t
																																					BgL_arg1425z00_1310;
																																				obj_t
																																					BgL_arg1426z00_1311;
																																				BgL_arg1425z00_1310
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2452z00zz__expander_argsz00,
																																					BNIL);
																																				BgL_arg1426z00_1311
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2490z00zz__expander_argsz00,
																																					BNIL);
																																				BgL_arg1424z00_1309
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1425z00_1310,
																																					BgL_arg1426z00_1311);
																																			}
																																			BgL_arg1417z00_1302
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1424z00_1309,
																																				BNIL);
																																		}
																																		BgL_arg1410z00_1295
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1416z00_1301,
																																			BgL_arg1417z00_1302);
																																	}
																																	BgL_arg1408z00_1293
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1409z00_1294,
																																		BgL_arg1410z00_1295);
																																}
																																BgL_arg1407z00_1292
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2494z00zz__expander_argsz00,
																																	BgL_arg1408z00_1293);
																															}
																															BgL_arg1406z00_1291
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2506z00zz__expander_argsz00,
																																BgL_arg1407z00_1292);
																														}
																														BgL_arg1400z00_1286
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1406z00_1291,
																															BNIL);
																													}
																													BgL_arg1396z00_1282 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1399z00_1285,
																														BgL_arg1400z00_1286);
																												}
																												BgL_arg1394z00_1280 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1395z00_1281,
																													BgL_arg1396z00_1282);
																											}
																											BgL_arg1392z00_1279 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2508z00zz__expander_argsz00,
																												BgL_arg1394z00_1280);
																										}
																										BgL_arg1389z00_1276 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1392z00_1279,
																											BNIL);
																									}
																									BgL_arg1387z00_1274 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1388z00_1275,
																										BgL_arg1389z00_1276);
																								}
																								BgL_arg1386z00_1273 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2504z00zz__expander_argsz00,
																									BgL_arg1387z00_1274);
																							}
																							BgL_arg1385z00_1272 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2510z00zz__expander_argsz00,
																								BgL_arg1386z00_1273);
																						}
																						BgL_arg1376z00_1266 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1385z00_1272, BNIL);
																					}
																					BgL_arg1374z00_1264 =
																						MAKE_YOUNG_PAIR(BgL_arg1375z00_1265,
																						BgL_arg1376z00_1266);
																				}
																				BgL_arg1373z00_1263 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2498z00zz__expander_argsz00,
																					BgL_arg1374z00_1264);
																			}
																			BgL_arg1372z00_1262 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2510z00zz__expander_argsz00,
																				BgL_arg1373z00_1263);
																		}
																		BgL_arg1366z00_1256 =
																			MAKE_YOUNG_PAIR(BgL_arg1372z00_1262,
																			BNIL);
																	}
																	BgL_arg1361z00_1251 =
																		MAKE_YOUNG_PAIR(BgL_arg1365z00_1255,
																		BgL_arg1366z00_1256);
																}
																BgL_arg1359z00_1249 =
																	MAKE_YOUNG_PAIR(BgL_arg1360z00_1250,
																	BgL_arg1361z00_1251);
															}
															BgL_arg1358z00_1248 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2464z00zz__expander_argsz00,
																BgL_arg1359z00_1249);
														}
														BgL_arg1335z00_1214 =
															MAKE_YOUNG_PAIR(BgL_arg1358z00_1248, BNIL);
													}
													BgL_arg1260z00_1171 =
														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1334z00_1213, BgL_arg1335z00_1214);
												}
												BgL_arg1257z00_1169 =
													MAKE_YOUNG_PAIR(BgL_arg1259z00_1170,
													BgL_arg1260z00_1171);
											}
											return
												MAKE_YOUNG_PAIR(BGl_symbol2512z00zz__expander_argsz00,
												BgL_arg1257z00_1169);
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* make-help */
	obj_t BGl_makezd2helpzd2zz__expander_argsz00(obj_t BgL_clausez00_10)
	{
		{	/* Eval/expdargs.scm 128 */
			{
				obj_t BgL_optz00_1384;

				if (PAIRP(BgL_clausez00_10))
					{	/* Eval/expdargs.scm 129 */
						obj_t BgL_cdrzd2121zd2_1389;

						BgL_cdrzd2121zd2_1389 = CDR(((obj_t) BgL_clausez00_10));
						if (
							(CAR(
									((obj_t) BgL_clausez00_10)) ==
								BGl_symbol2519z00zz__expander_argsz00))
							{	/* Eval/expdargs.scm 129 */
								if (PAIRP(BgL_cdrzd2121zd2_1389))
									{	/* Eval/expdargs.scm 129 */
										if (NULLP(CDR(BgL_cdrzd2121zd2_1389)))
											{	/* Eval/expdargs.scm 129 */
												obj_t BgL_arg1477z00_1395;

												BgL_arg1477z00_1395 = CAR(BgL_cdrzd2121zd2_1389);
												return
													MAKE_YOUNG_PAIR(BGl_symbol2519z00zz__expander_argsz00,
													BgL_arg1477z00_1395);
											}
										else
											{	/* Eval/expdargs.scm 129 */
												obj_t BgL_carzd2129zd2_1396;

												BgL_carzd2129zd2_1396 = CAR(((obj_t) BgL_clausez00_10));
												if (PAIRP(BgL_carzd2129zd2_1396))
													{	/* Eval/expdargs.scm 129 */
														if (NULLP(CDR(BgL_carzd2129zd2_1396)))
															{	/* Eval/expdargs.scm 129 */
																return BFALSE;
															}
														else
															{	/* Eval/expdargs.scm 129 */
																BgL_optz00_1384 = BgL_carzd2129zd2_1396;
															BgL_tagzd2114zd2_1385:
																{	/* Eval/expdargs.scm 139 */
																	obj_t BgL_synz00_1425;

																	BgL_synz00_1425 =
																		CAR
																		(BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00
																		(BgL_optz00_1384));
																	{
																		obj_t BgL_synopsisz00_1430;
																		obj_t BgL_msgz00_1431;

																		if (PAIRP(BgL_synz00_1425))
																			{	/* Eval/expdargs.scm 140 */
																				obj_t BgL_cdrzd2197zd2_1436;

																				BgL_cdrzd2197zd2_1436 =
																					CDR(((obj_t) BgL_synz00_1425));
																				if (PAIRP(BgL_cdrzd2197zd2_1436))
																					{	/* Eval/expdargs.scm 140 */
																						obj_t BgL_cdrzd2202zd2_1438;

																						BgL_cdrzd2202zd2_1438 =
																							CDR(BgL_cdrzd2197zd2_1436);
																						if (PAIRP(BgL_cdrzd2202zd2_1438))
																							{	/* Eval/expdargs.scm 140 */
																								if (NULLP(CDR
																										(BgL_cdrzd2202zd2_1438)))
																									{	/* Eval/expdargs.scm 140 */
																										obj_t BgL_arg1512z00_1442;
																										obj_t BgL_arg1515z00_1443;
																										obj_t BgL_arg1516z00_1444;

																										BgL_arg1512z00_1442 =
																											CAR(
																											((obj_t)
																												BgL_synz00_1425));
																										BgL_arg1515z00_1443 =
																											CAR
																											(BgL_cdrzd2197zd2_1436);
																										BgL_arg1516z00_1444 =
																											CAR
																											(BgL_cdrzd2202zd2_1438);
																										if (BGl_synopsiszf3zf3zz__expander_argsz00(BgL_arg1512z00_1442))
																											{	/* Eval/expdargs.scm 144 */
																												obj_t
																													BgL_arg1525z00_2726;
																												if (STRINGP
																													(BgL_arg1516z00_1444))
																													{	/* Eval/expdargs.scm 144 */
																														BgL_arg1525z00_2726
																															=
																															BgL_arg1516z00_1444;
																													}
																												else
																													{	/* Eval/expdargs.scm 144 */
																														obj_t
																															BgL_list1527z00_2728;
																														{	/* Eval/expdargs.scm 144 */
																															obj_t
																																BgL_arg1528z00_2729;
																															BgL_arg1528z00_2729
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1516z00_1444,
																																BNIL);
																															BgL_list1527z00_2728
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2468z00zz__expander_argsz00,
																																BgL_arg1528z00_2729);
																														}
																														BgL_arg1525z00_2726
																															=
																															BgL_list1527z00_2728;
																													}
																												return
																													MAKE_YOUNG_PAIR
																													(BgL_arg1515z00_1443,
																													BgL_arg1525z00_2726);
																											}
																										else
																											{	/* Eval/expdargs.scm 142 */
																												return
																													BGl_expandzd2errorzd2zz__expandz00
																													(BGl_string2440z00zz__expander_argsz00,
																													BGl_string2518z00zz__expander_argsz00,
																													BgL_clausez00_10);
																											}
																									}
																								else
																									{	/* Eval/expdargs.scm 140 */
																										return BFALSE;
																									}
																							}
																						else
																							{	/* Eval/expdargs.scm 140 */
																								if (NULLP(CDR(
																											((obj_t)
																												BgL_cdrzd2197zd2_1436))))
																									{	/* Eval/expdargs.scm 140 */
																										obj_t BgL_arg1521z00_1449;
																										obj_t BgL_arg1522z00_1450;

																										BgL_arg1521z00_1449 =
																											CAR(
																											((obj_t)
																												BgL_synz00_1425));
																										BgL_arg1522z00_1450 =
																											CAR(((obj_t)
																												BgL_cdrzd2197zd2_1436));
																										BgL_synopsisz00_1430 =
																											BgL_arg1521z00_1449;
																										BgL_msgz00_1431 =
																											BgL_arg1522z00_1450;
																										{	/* Eval/expdargs.scm 146 */
																											bool_t
																												BgL_test2675z00_3608;
																											{	/* Eval/expdargs.scm 459 */
																												bool_t
																													BgL__ortest_1047z00_2717;
																												BgL__ortest_1047z00_2717
																													=
																													(BgL_synopsisz00_1430
																													==
																													BGl_symbol2514z00zz__expander_argsz00);
																												if (BgL__ortest_1047z00_2717)
																													{	/* Eval/expdargs.scm 459 */
																														BgL_test2675z00_3608
																															=
																															BgL__ortest_1047z00_2717;
																													}
																												else
																													{	/* Eval/expdargs.scm 459 */
																														BgL_test2675z00_3608
																															=
																															(BgL_synopsisz00_1430
																															==
																															BGl_symbol2516z00zz__expander_argsz00);
																													}
																											}
																											if (BgL_test2675z00_3608)
																												{	/* Eval/expdargs.scm 148 */
																													obj_t
																														BgL_arg1531z00_1458;
																													obj_t
																														BgL_arg1532z00_1459;
																													BgL_arg1531z00_1458 =
																														BGl_makezd2synopsiszd2namez00zz__expander_argsz00
																														(BgL_clausez00_10);
																													if (STRINGP
																														(BgL_msgz00_1431))
																														{	/* Eval/expdargs.scm 149 */
																															BgL_arg1532z00_1459
																																=
																																BgL_msgz00_1431;
																														}
																													else
																														{	/* Eval/expdargs.scm 149 */
																															obj_t
																																BgL_list1534z00_1461;
																															{	/* Eval/expdargs.scm 149 */
																																obj_t
																																	BgL_arg1535z00_1462;
																																BgL_arg1535z00_1462
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BgL_msgz00_1431,
																																	BNIL);
																																BgL_list1534z00_1461
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2468z00zz__expander_argsz00,
																																	BgL_arg1535z00_1462);
																															}
																															BgL_arg1532z00_1459
																																=
																																BgL_list1534z00_1461;
																														}
																													return
																														MAKE_YOUNG_PAIR
																														(BgL_arg1531z00_1458,
																														BgL_arg1532z00_1459);
																												}
																											else
																												{	/* Eval/expdargs.scm 146 */
																													return
																														BGl_expandzd2errorzd2zz__expandz00
																														(BGl_string2440z00zz__expander_argsz00,
																														BGl_string2518z00zz__expander_argsz00,
																														BgL_clausez00_10);
																												}
																										}
																									}
																								else
																									{	/* Eval/expdargs.scm 140 */
																										return BFALSE;
																									}
																							}
																					}
																				else
																					{	/* Eval/expdargs.scm 140 */
																						return BFALSE;
																					}
																			}
																		else
																			{	/* Eval/expdargs.scm 140 */
																				return BFALSE;
																			}
																	}
																}
															}
													}
												else
													{
														obj_t BgL_optz00_3619;

														BgL_optz00_3619 = BgL_carzd2129zd2_1396;
														BgL_optz00_1384 = BgL_optz00_3619;
														goto BgL_tagzd2114zd2_1385;
													}
											}
									}
								else
									{	/* Eval/expdargs.scm 129 */
										obj_t BgL_carzd2146zd2_1404;

										BgL_carzd2146zd2_1404 = CAR(((obj_t) BgL_clausez00_10));
										if (PAIRP(BgL_carzd2146zd2_1404))
											{	/* Eval/expdargs.scm 129 */
												if (NULLP(CDR(BgL_carzd2146zd2_1404)))
													{	/* Eval/expdargs.scm 129 */
														return BFALSE;
													}
												else
													{
														obj_t BgL_optz00_3627;

														BgL_optz00_3627 = BgL_carzd2146zd2_1404;
														BgL_optz00_1384 = BgL_optz00_3627;
														goto BgL_tagzd2114zd2_1385;
													}
											}
										else
											{
												obj_t BgL_optz00_3628;

												BgL_optz00_3628 = BgL_carzd2146zd2_1404;
												BgL_optz00_1384 = BgL_optz00_3628;
												goto BgL_tagzd2114zd2_1385;
											}
									}
							}
						else
							{	/* Eval/expdargs.scm 129 */
								if (NULLP(CAR(((obj_t) BgL_clausez00_10))))
									{	/* Eval/expdargs.scm 129 */
										return BFALSE;
									}
								else
									{	/* Eval/expdargs.scm 129 */
										if (
											(CAR(
													((obj_t) BgL_clausez00_10)) ==
												BGl_symbol2521z00zz__expander_argsz00))
											{	/* Eval/expdargs.scm 129 */
												return BFALSE;
											}
										else
											{	/* Eval/expdargs.scm 129 */
												obj_t BgL_carzd2167zd2_1415;

												BgL_carzd2167zd2_1415 = CAR(((obj_t) BgL_clausez00_10));
												if (PAIRP(BgL_carzd2167zd2_1415))
													{	/* Eval/expdargs.scm 129 */
														if (NULLP(CDR(BgL_carzd2167zd2_1415)))
															{	/* Eval/expdargs.scm 129 */
																return BFALSE;
															}
														else
															{
																obj_t BgL_optz00_3644;

																BgL_optz00_3644 = BgL_carzd2167zd2_1415;
																BgL_optz00_1384 = BgL_optz00_3644;
																goto BgL_tagzd2114zd2_1385;
															}
													}
												else
													{
														obj_t BgL_optz00_3645;

														BgL_optz00_3645 = BgL_carzd2167zd2_1415;
														BgL_optz00_1384 = BgL_optz00_3645;
														goto BgL_tagzd2114zd2_1385;
													}
											}
									}
							}
					}
				else
					{	/* Eval/expdargs.scm 129 */
						return BFALSE;
					}
			}
		}

	}



/* make-synopsis-name */
	obj_t BGl_makezd2synopsiszd2namez00zz__expander_argsz00(obj_t
		BgL_clausez00_12)
	{
		{	/* Eval/expdargs.scm 164 */
			{
				obj_t BgL_optz00_1491;
				obj_t BgL_oz00_1492;
				obj_t BgL_argsz00_1493;
				obj_t BgL_optz00_1511;
				obj_t BgL_ozb2zb2_1512;
				obj_t BgL_argsz00_1513;

				{	/* Eval/expdargs.scm 222 */
					obj_t BgL_optz00_1466;

					BgL_optz00_1466 = CAR(((obj_t) BgL_clausez00_12));
					{	/* Eval/expdargs.scm 222 */
						obj_t BgL_oz00_1467;

						BgL_oz00_1467 = CAR(((obj_t) BgL_optz00_1466));
						{	/* Eval/expdargs.scm 223 */
							obj_t BgL_argsz00_1468;

							BgL_argsz00_1468 =
								BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00
								(BgL_optz00_1466);
							{	/* Eval/expdargs.scm 224 */

								if (STRINGP(BgL_oz00_1467))
									{	/* Eval/expdargs.scm 226 */
										BgL_optz00_1491 = BgL_optz00_1466;
										BgL_oz00_1492 = BgL_oz00_1467;
										BgL_argsz00_1493 = BgL_argsz00_1468;
										{	/* Eval/expdargs.scm 166 */
											obj_t BgL_oidz00_1495;

											BgL_oidz00_1495 =
												BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00
												(BgL_oz00_1492);
											{	/* Eval/expdargs.scm 167 */
												obj_t BgL_aidz00_1496;

												{	/* Eval/expdargs.scm 169 */
													obj_t BgL_tmpz00_2753;

													{	/* Eval/expdargs.scm 169 */
														int BgL_tmpz00_3654;

														BgL_tmpz00_3654 = (int) (1L);
														BgL_tmpz00_2753 = BGL_MVALUES_VAL(BgL_tmpz00_3654);
													}
													{	/* Eval/expdargs.scm 169 */
														int BgL_tmpz00_3657;

														BgL_tmpz00_3657 = (int) (1L);
														BGL_MVALUES_VAL_SET(BgL_tmpz00_3657, BUNSPEC);
													}
													BgL_aidz00_1496 = BgL_tmpz00_2753;
												}
												{	/* Eval/expdargs.scm 169 */
													bool_t BgL_test2685z00_3660;

													if (CBOOL(BgL_aidz00_1496))
														{	/* Eval/expdargs.scm 169 */
															BgL_test2685z00_3660 = PAIRP(BgL_argsz00_1493);
														}
													else
														{	/* Eval/expdargs.scm 169 */
															BgL_test2685z00_3660 = ((bool_t) 0);
														}
													if (BgL_test2685z00_3660)
														{	/* Eval/expdargs.scm 169 */
															return
																BGl_expandzd2errorzd2zz__expandz00
																(BGl_string2440z00zz__expander_argsz00,
																BGl_string2525z00zz__expander_argsz00,
																BgL_clausez00_12);
														}
													else
														{	/* Eval/expdargs.scm 171 */
															bool_t BgL_test2687z00_3665;

															if (CBOOL(BgL_aidz00_1496))
																{	/* Eval/expdargs.scm 171 */
																	BgL_test2687z00_3665 = ((bool_t) 1);
																}
															else
																{	/* Eval/expdargs.scm 171 */
																	BgL_test2687z00_3665 =
																		PAIRP(BgL_argsz00_1493);
																}
															if (BgL_test2687z00_3665)
																{	/* Eval/expdargs.scm 171 */
																	if (CBOOL(BgL_aidz00_1496))
																		{	/* Eval/expdargs.scm 173 */
																			return
																				string_append(BgL_oidz00_1495,
																				BGl_stringzd2upcasezd2zz__r4_strings_6_7z00
																				(BgL_aidz00_1496));
																		}
																	else
																		{	/* Eval/expdargs.scm 173 */
																			return
																				string_append(BgL_oidz00_1495,
																				BGl_loopze71ze7zz__expander_argsz00
																				(BgL_clausez00_12, BgL_argsz00_1493));
																		}
																}
															else
																{	/* Eval/expdargs.scm 171 */
																	return BgL_oidz00_1495;
																}
														}
												}
											}
										}
									}
								else
									{	/* Eval/expdargs.scm 228 */
										bool_t BgL_test2690z00_3675;

										if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
											(BgL_oz00_1467))
											{
												obj_t BgL_l1129z00_1483;

												BgL_l1129z00_1483 = BgL_oz00_1467;
											BgL_zc3z04anonymousza31544ze3z87_1484:
												if (NULLP(BgL_l1129z00_1483))
													{	/* Eval/expdargs.scm 228 */
														BgL_test2690z00_3675 = ((bool_t) 1);
													}
												else
													{	/* Eval/expdargs.scm 228 */
														bool_t BgL_test2693z00_3680;

														{	/* Eval/expdargs.scm 228 */
															obj_t BgL_tmpz00_3681;

															BgL_tmpz00_3681 =
																CAR(((obj_t) BgL_l1129z00_1483));
															BgL_test2693z00_3680 = STRINGP(BgL_tmpz00_3681);
														}
														if (BgL_test2693z00_3680)
															{
																obj_t BgL_l1129z00_3685;

																BgL_l1129z00_3685 =
																	CDR(((obj_t) BgL_l1129z00_1483));
																BgL_l1129z00_1483 = BgL_l1129z00_3685;
																goto BgL_zc3z04anonymousza31544ze3z87_1484;
															}
														else
															{	/* Eval/expdargs.scm 228 */
																BgL_test2690z00_3675 = ((bool_t) 0);
															}
													}
											}
										else
											{	/* Eval/expdargs.scm 228 */
												BgL_test2690z00_3675 = ((bool_t) 0);
											}
										if (BgL_test2690z00_3675)
											{	/* Eval/expdargs.scm 228 */
												BgL_optz00_1511 = BgL_optz00_1466;
												BgL_ozb2zb2_1512 = BgL_oz00_1467;
												BgL_argsz00_1513 = BgL_argsz00_1468;
												{	/* Eval/expdargs.scm 192 */
													obj_t BgL_oidzb2zb2_1516;

													{
														obj_t BgL_ozb2zb2_1572;
														obj_t BgL_oidzb2zb2_1573;
														obj_t BgL_aidzb2zb2_1574;

														BgL_ozb2zb2_1572 = BgL_ozb2zb2_1512;
														BgL_oidzb2zb2_1573 = BNIL;
														BgL_aidzb2zb2_1574 = BNIL;
													BgL_zc3z04anonymousza31593ze3z87_1575:
														if (NULLP(BgL_ozb2zb2_1572))
															{	/* Eval/expdargs.scm 197 */
																obj_t BgL_val0_1119z00_1577;
																obj_t BgL_val1_1120z00_1578;

																BgL_val0_1119z00_1577 =
																	bgl_reverse_bang(BgL_oidzb2zb2_1573);
																BgL_val1_1120z00_1578 =
																	bgl_reverse_bang(BgL_aidzb2zb2_1574);
																{	/* Eval/expdargs.scm 197 */
																	int BgL_tmpz00_3692;

																	BgL_tmpz00_3692 = (int) (2L);
																	BGL_MVALUES_NUMBER_SET(BgL_tmpz00_3692);
																}
																{	/* Eval/expdargs.scm 197 */
																	int BgL_tmpz00_3695;

																	BgL_tmpz00_3695 = (int) (1L);
																	BGL_MVALUES_VAL_SET(BgL_tmpz00_3695,
																		BgL_val1_1120z00_1578);
																}
																BgL_oidzb2zb2_1516 = BgL_val0_1119z00_1577;
															}
														else
															{	/* Eval/expdargs.scm 198 */
																obj_t BgL_oidz00_1579;

																{	/* Eval/expdargs.scm 199 */
																	obj_t BgL_arg1600z00_1584;

																	BgL_arg1600z00_1584 =
																		CAR(((obj_t) BgL_ozb2zb2_1572));
																	BgL_oidz00_1579 =
																		BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00
																		(BgL_arg1600z00_1584);
																}
																{	/* Eval/expdargs.scm 199 */
																	obj_t BgL_aidz00_1580;

																	{	/* Eval/expdargs.scm 200 */
																		obj_t BgL_tmpz00_2761;

																		{	/* Eval/expdargs.scm 200 */
																			int BgL_tmpz00_3701;

																			BgL_tmpz00_3701 = (int) (1L);
																			BgL_tmpz00_2761 =
																				BGL_MVALUES_VAL(BgL_tmpz00_3701);
																		}
																		{	/* Eval/expdargs.scm 200 */
																			int BgL_tmpz00_3704;

																			BgL_tmpz00_3704 = (int) (1L);
																			BGL_MVALUES_VAL_SET(BgL_tmpz00_3704,
																				BUNSPEC);
																		}
																		BgL_aidz00_1580 = BgL_tmpz00_2761;
																	}
																	{	/* Eval/expdargs.scm 200 */
																		obj_t BgL_arg1595z00_1581;
																		obj_t BgL_arg1597z00_1582;
																		obj_t BgL_arg1598z00_1583;

																		BgL_arg1595z00_1581 =
																			CDR(((obj_t) BgL_ozb2zb2_1572));
																		BgL_arg1597z00_1582 =
																			MAKE_YOUNG_PAIR(BgL_oidz00_1579,
																			BgL_oidzb2zb2_1573);
																		BgL_arg1598z00_1583 =
																			MAKE_YOUNG_PAIR(BgL_aidz00_1580,
																			BgL_aidzb2zb2_1574);
																		{
																			obj_t BgL_aidzb2zb2_3713;
																			obj_t BgL_oidzb2zb2_3712;
																			obj_t BgL_ozb2zb2_3711;

																			BgL_ozb2zb2_3711 = BgL_arg1595z00_1581;
																			BgL_oidzb2zb2_3712 = BgL_arg1597z00_1582;
																			BgL_aidzb2zb2_3713 = BgL_arg1598z00_1583;
																			BgL_aidzb2zb2_1574 = BgL_aidzb2zb2_3713;
																			BgL_oidzb2zb2_1573 = BgL_oidzb2zb2_3712;
																			BgL_ozb2zb2_1572 = BgL_ozb2zb2_3711;
																			goto
																				BgL_zc3z04anonymousza31593ze3z87_1575;
																		}
																	}
																}
															}
													}
													{	/* Eval/expdargs.scm 193 */
														obj_t BgL_aidzb2zb2_1517;

														{	/* Eval/expdargs.scm 202 */
															obj_t BgL_tmpz00_2763;

															{	/* Eval/expdargs.scm 202 */
																int BgL_tmpz00_3714;

																BgL_tmpz00_3714 = (int) (1L);
																BgL_tmpz00_2763 =
																	BGL_MVALUES_VAL(BgL_tmpz00_3714);
															}
															{	/* Eval/expdargs.scm 202 */
																int BgL_tmpz00_3717;

																BgL_tmpz00_3717 = (int) (1L);
																BGL_MVALUES_VAL_SET(BgL_tmpz00_3717, BUNSPEC);
															}
															BgL_aidzb2zb2_1517 = BgL_tmpz00_2763;
														}
														{	/* Eval/expdargs.scm 202 */
															bool_t BgL_test2695z00_3720;

															if (PAIRP(BgL_aidzb2zb2_1517))
																{
																	obj_t BgL_l1121z00_2777;

																	{	/* Eval/expdargs.scm 202 */
																		obj_t BgL_tmpz00_3723;

																		BgL_l1121z00_2777 = BgL_aidzb2zb2_1517;
																	BgL_zc3z04anonymousza31591ze3z87_2776:
																		if (NULLP(BgL_l1121z00_2777))
																			{	/* Eval/expdargs.scm 202 */
																				BgL_tmpz00_3723 = BFALSE;
																			}
																		else
																			{	/* Eval/expdargs.scm 202 */
																				obj_t BgL__ortest_1123z00_2783;

																				BgL__ortest_1123z00_2783 =
																					CAR(((obj_t) BgL_l1121z00_2777));
																				if (CBOOL(BgL__ortest_1123z00_2783))
																					{	/* Eval/expdargs.scm 202 */
																						BgL_tmpz00_3723 =
																							BgL__ortest_1123z00_2783;
																					}
																				else
																					{
																						obj_t BgL_l1121z00_3730;

																						BgL_l1121z00_3730 =
																							CDR(((obj_t) BgL_l1121z00_2777));
																						BgL_l1121z00_2777 =
																							BgL_l1121z00_3730;
																						goto
																							BgL_zc3z04anonymousza31591ze3z87_2776;
																					}
																			}
																		BgL_test2695z00_3720 =
																			CBOOL(BgL_tmpz00_3723);
																	}
																}
															else
																{	/* Eval/expdargs.scm 202 */
																	BgL_test2695z00_3720 = ((bool_t) 0);
																}
															if (BgL_test2695z00_3720)
																{	/* Eval/expdargs.scm 202 */
																	if (NULLP(BgL_argsz00_1513))
																		{	/* Eval/expdargs.scm 215 */
																			obj_t BgL_runner1578z00_1547;

																			{	/* Eval/expdargs.scm 216 */
																				obj_t BgL_arg1568z00_1530;
																				obj_t BgL_arg1569z00_1531;

																				BgL_arg1568z00_1530 =
																					BGl_concatze70ze7zz__expander_argsz00
																					(BgL_oidzb2zb2_1516);
																				{	/* Eval/expdargs.scm 217 */
																					obj_t BgL_head1126z00_1535;

																					BgL_head1126z00_1535 =
																						MAKE_YOUNG_PAIR(BNIL, BNIL);
																					{
																						obj_t BgL_l1124z00_1537;
																						obj_t BgL_tail1127z00_1538;

																						BgL_l1124z00_1537 =
																							BgL_aidzb2zb2_1517;
																						BgL_tail1127z00_1538 =
																							BgL_head1126z00_1535;
																					BgL_zc3z04anonymousza31572ze3z87_1539:
																						if (NULLP
																							(BgL_l1124z00_1537))
																							{	/* Eval/expdargs.scm 217 */
																								BgL_arg1569z00_1531 =
																									CDR(BgL_head1126z00_1535);
																							}
																						else
																							{	/* Eval/expdargs.scm 217 */
																								obj_t BgL_newtail1128z00_1541;

																								{	/* Eval/expdargs.scm 217 */
																									obj_t BgL_arg1576z00_1543;

																									{	/* Eval/expdargs.scm 217 */
																										obj_t BgL_az00_1544;

																										BgL_az00_1544 =
																											CAR(
																											((obj_t)
																												BgL_l1124z00_1537));
																										BgL_arg1576z00_1543 =
																											string_append
																											(BGl_string2523z00zz__expander_argsz00,
																											BGl_stringzd2upcasezd2zz__r4_strings_6_7z00
																											(BgL_az00_1544));
																									}
																									BgL_newtail1128z00_1541 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1576z00_1543, BNIL);
																								}
																								SET_CDR(BgL_tail1127z00_1538,
																									BgL_newtail1128z00_1541);
																								{	/* Eval/expdargs.scm 217 */
																									obj_t BgL_arg1575z00_1542;

																									BgL_arg1575z00_1542 =
																										CDR(
																										((obj_t)
																											BgL_l1124z00_1537));
																									{
																										obj_t BgL_tail1127z00_3750;
																										obj_t BgL_l1124z00_3749;

																										BgL_l1124z00_3749 =
																											BgL_arg1575z00_1542;
																										BgL_tail1127z00_3750 =
																											BgL_newtail1128z00_1541;
																										BgL_tail1127z00_1538 =
																											BgL_tail1127z00_3750;
																										BgL_l1124z00_1537 =
																											BgL_l1124z00_3749;
																										goto
																											BgL_zc3z04anonymousza31572ze3z87_1539;
																									}
																								}
																							}
																					}
																				}
																				{	/* Eval/expdargs.scm 215 */
																					obj_t BgL_list1570z00_1532;

																					BgL_list1570z00_1532 =
																						MAKE_YOUNG_PAIR(BgL_arg1569z00_1531,
																						BNIL);
																					BgL_runner1578z00_1547 =
																						BGl_consza2za2zz__r4_pairs_and_lists_6_3z00
																						(BgL_arg1568z00_1530,
																						BgL_list1570z00_1532);
																				}
																			}
																			BGL_TAIL return
																				BGl_stringzd2appendzd2zz__r4_strings_6_7z00
																				(BgL_runner1578z00_1547);
																		}
																	else
																		{	/* Eval/expdargs.scm 212 */
																			return
																				BGl_expandzd2errorzd2zz__expandz00
																				(BGl_string2440z00zz__expander_argsz00,
																				BGl_string2524z00zz__expander_argsz00,
																				BgL_clausez00_12);
																		}
																}
															else
																{	/* Eval/expdargs.scm 202 */
																	return
																		string_append
																		(BGl_concatze70ze7zz__expander_argsz00
																		(BgL_oidzb2zb2_1516),
																		BGl_loopze72ze7zz__expander_argsz00
																		(BgL_clausez00_12, BgL_argsz00_1513));
																}
														}
													}
												}
											}
										else
											{	/* Eval/expdargs.scm 228 */
												return
													BGl_expandzd2errorzd2zz__expandz00
													(BGl_string2440z00zz__expander_argsz00,
													BGl_string2525z00zz__expander_argsz00,
													BgL_clausez00_12);
											}
									}
							}
						}
					}
				}
			}
		}

	}



/* loop~1 */
	obj_t BGl_loopze71ze7zz__expander_argsz00(obj_t BgL_clausez00_3205,
		obj_t BgL_argsz00_1502)
	{
		{	/* Eval/expdargs.scm 178 */
			if (NULLP(BgL_argsz00_1502))
				{	/* Eval/expdargs.scm 179 */
					return BGl_string2526z00zz__expander_argsz00;
				}
			else
				{	/* Eval/expdargs.scm 183 */
					obj_t BgL_arg1555z00_1505;
					obj_t BgL_arg1556z00_1506;

					{	/* Eval/expdargs.scm 183 */
						obj_t BgL_arg1557z00_1507;

						{	/* Eval/expdargs.scm 183 */
							obj_t BgL_arg1558z00_1508;

							BgL_arg1558z00_1508 = CAR(((obj_t) BgL_argsz00_1502));
							BgL_arg1557z00_1507 =
								BGl_fetchzd2argumentzd2namez00zz__expander_argsz00
								(BgL_arg1558z00_1508, BgL_clausez00_3205);
						}
						BgL_arg1555z00_1505 =
							BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_arg1557z00_1507);
					}
					{	/* Eval/expdargs.scm 184 */
						obj_t BgL_arg1559z00_1509;

						BgL_arg1559z00_1509 = CDR(((obj_t) BgL_argsz00_1502));
						BgL_arg1556z00_1506 =
							BGl_loopze71ze7zz__expander_argsz00(BgL_clausez00_3205,
							BgL_arg1559z00_1509);
					}
					return
						string_append_3(BGl_string2523z00zz__expander_argsz00,
						BgL_arg1555z00_1505, BgL_arg1556z00_1506);
				}
		}

	}



/* loop~2 */
	obj_t BGl_loopze72ze7zz__expander_argsz00(obj_t BgL_clausez00_3206,
		obj_t BgL_argsz00_1551)
	{
		{	/* Eval/expdargs.scm 205 */
			if (NULLP(BgL_argsz00_1551))
				{	/* Eval/expdargs.scm 206 */
					return BGl_string2526z00zz__expander_argsz00;
				}
			else
				{	/* Eval/expdargs.scm 210 */
					obj_t BgL_arg1584z00_1554;
					obj_t BgL_arg1586z00_1555;

					{	/* Eval/expdargs.scm 210 */
						obj_t BgL_arg1587z00_1556;

						{	/* Eval/expdargs.scm 210 */
							obj_t BgL_arg1589z00_1557;

							BgL_arg1589z00_1557 = CAR(((obj_t) BgL_argsz00_1551));
							BgL_arg1587z00_1556 =
								BGl_fetchzd2argumentzd2namez00zz__expander_argsz00
								(BgL_arg1589z00_1557, BgL_clausez00_3206);
						}
						BgL_arg1584z00_1554 =
							BGl_stringzd2upcasezd2zz__r4_strings_6_7z00(BgL_arg1587z00_1556);
					}
					{	/* Eval/expdargs.scm 211 */
						obj_t BgL_arg1590z00_1558;

						BgL_arg1590z00_1558 = CDR(((obj_t) BgL_argsz00_1551));
						BgL_arg1586z00_1555 =
							BGl_loopze72ze7zz__expander_argsz00(BgL_clausez00_3206,
							BgL_arg1590z00_1558);
					}
					return
						string_append_3(BGl_string2523z00zz__expander_argsz00,
						BgL_arg1584z00_1554, BgL_arg1586z00_1555);
				}
		}

	}



/* concat~0 */
	obj_t BGl_concatze70ze7zz__expander_argsz00(obj_t BgL_lz00_1586)
	{
		{	/* Eval/expdargs.scm 191 */
			if (NULLP(CDR(((obj_t) BgL_lz00_1586))))
				{	/* Eval/expdargs.scm 187 */
					return CAR(((obj_t) BgL_lz00_1586));
				}
			else
				{	/* Eval/expdargs.scm 189 */
					obj_t BgL_arg1604z00_1590;
					obj_t BgL_arg1605z00_1591;

					BgL_arg1604z00_1590 = CAR(((obj_t) BgL_lz00_1586));
					{	/* Eval/expdargs.scm 191 */
						obj_t BgL_arg1606z00_1592;

						BgL_arg1606z00_1592 = CDR(((obj_t) BgL_lz00_1586));
						BgL_arg1605z00_1591 =
							BGl_concatze70ze7zz__expander_argsz00(BgL_arg1606z00_1592);
					}
					return
						string_append_3(BgL_arg1604z00_1590,
						BGl_string2527z00zz__expander_argsz00, BgL_arg1605z00_1591);
				}
		}

	}



/* make-parser */
	obj_t BGl_makezd2parserzd2zz__expander_argsz00(obj_t BgL_clausez00_13,
		obj_t BgL_otablez00_14)
	{
		{	/* Eval/expdargs.scm 236 */
			{
				obj_t BgL_exprza2za2_1601;
				obj_t BgL_exprza2za2_1599;

				if (PAIRP(BgL_clausez00_13))
					{	/* Eval/expdargs.scm 237 */
						obj_t BgL_cdrzd2249zd2_1607;

						BgL_cdrzd2249zd2_1607 = CDR(((obj_t) BgL_clausez00_13));
						if (
							(CAR(
									((obj_t) BgL_clausez00_13)) ==
								BGl_symbol2519z00zz__expander_argsz00))
							{	/* Eval/expdargs.scm 237 */
								if (PAIRP(BgL_cdrzd2249zd2_1607))
									{	/* Eval/expdargs.scm 237 */
										if (NULLP(CDR(BgL_cdrzd2249zd2_1607)))
											{	/* Eval/expdargs.scm 237 */
												return BFALSE;
											}
										else
											{	/* Eval/expdargs.scm 237 */
												bool_t BgL_test2708z00_3804;

												{	/* Eval/expdargs.scm 237 */
													obj_t BgL_arg1618z00_1616;

													BgL_arg1618z00_1616 = CAR(((obj_t) BgL_clausez00_13));
													BgL_test2708z00_3804 =
														BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1618z00_1616);
												}
												if (BgL_test2708z00_3804)
													{	/* Eval/expdargs.scm 237 */
														return
															BGl_makezd2optzd2parserz00zz__expander_argsz00
															(BgL_clausez00_13, BgL_otablez00_14);
													}
												else
													{	/* Eval/expdargs.scm 237 */
														return
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2440z00zz__expander_argsz00,
															BGl_string2525z00zz__expander_argsz00,
															BgL_clausez00_13);
													}
											}
									}
								else
									{	/* Eval/expdargs.scm 237 */
										bool_t BgL_test2709z00_3810;

										{	/* Eval/expdargs.scm 237 */
											obj_t BgL_arg1622z00_1620;

											BgL_arg1622z00_1620 = CAR(((obj_t) BgL_clausez00_13));
											BgL_test2709z00_3810 =
												BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
												(BgL_arg1622z00_1620);
										}
										if (BgL_test2709z00_3810)
											{	/* Eval/expdargs.scm 237 */
												return
													BGl_makezd2optzd2parserz00zz__expander_argsz00
													(BgL_clausez00_13, BgL_otablez00_14);
											}
										else
											{	/* Eval/expdargs.scm 237 */
												return
													BGl_expandzd2errorzd2zz__expandz00
													(BGl_string2440z00zz__expander_argsz00,
													BGl_string2525z00zz__expander_argsz00,
													BgL_clausez00_13);
											}
									}
							}
						else
							{	/* Eval/expdargs.scm 237 */
								if (NULLP(CAR(((obj_t) BgL_clausez00_13))))
									{	/* Eval/expdargs.scm 237 */
										BgL_exprza2za2_1599 = BgL_cdrzd2249zd2_1607;
										{	/* Eval/expdargs.scm 241 */
											obj_t BgL_az00_1633;
											obj_t BgL_vz00_1634;

											{	/* Eval/expdargs.scm 241 */

												{	/* Eval/expdargs.scm 241 */

													BgL_az00_1633 =
														BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
												}
											}
											{	/* Eval/expdargs.scm 242 */

												{	/* Eval/expdargs.scm 242 */

													BgL_vz00_1634 =
														BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
												}
											}
											{	/* Eval/expdargs.scm 243 */
												obj_t BgL_arg1636z00_1635;

												{	/* Eval/expdargs.scm 243 */
													obj_t BgL_arg1637z00_1636;
													obj_t BgL_arg1638z00_1637;

													{	/* Eval/expdargs.scm 243 */
														obj_t BgL_arg1639z00_1638;

														BgL_arg1639z00_1638 =
															MAKE_YOUNG_PAIR(BgL_vz00_1634, BNIL);
														BgL_arg1637z00_1636 =
															MAKE_YOUNG_PAIR(BgL_az00_1633,
															BgL_arg1639z00_1638);
													}
													{	/* Eval/expdargs.scm 244 */
														obj_t BgL_arg1640z00_1639;

														{	/* Eval/expdargs.scm 244 */
															obj_t BgL_arg1642z00_1640;

															{	/* Eval/expdargs.scm 244 */
																obj_t BgL_arg1643z00_1641;
																obj_t BgL_arg1644z00_1642;

																{	/* Eval/expdargs.scm 244 */
																	obj_t BgL_arg1645z00_1643;

																	BgL_arg1645z00_1643 =
																		MAKE_YOUNG_PAIR(BgL_az00_1633, BNIL);
																	BgL_arg1643z00_1641 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2450z00zz__expander_argsz00,
																		BgL_arg1645z00_1643);
																}
																{	/* Eval/expdargs.scm 245 */
																	obj_t BgL_arg1649z00_1644;
																	obj_t BgL_arg1651z00_1645;

																	{	/* Eval/expdargs.scm 245 */
																		obj_t BgL_arg1654z00_1646;

																		{	/* Eval/expdargs.scm 245 */
																			obj_t BgL_arg1655z00_1647;
																			obj_t BgL_arg1656z00_1648;

																			{	/* Eval/expdargs.scm 245 */
																				obj_t BgL_arg1658z00_1649;

																				BgL_arg1658z00_1649 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2452z00zz__expander_argsz00,
																					BNIL);
																				BgL_arg1655z00_1647 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2454z00zz__expander_argsz00,
																					BgL_arg1658z00_1649);
																			}
																			{	/* Eval/expdargs.scm 245 */
																				obj_t BgL_arg1659z00_1650;

																				{	/* Eval/expdargs.scm 245 */
																					obj_t BgL_arg1661z00_1651;

																					{	/* Eval/expdargs.scm 245 */
																						obj_t BgL_arg1662z00_1652;

																						BgL_arg1662z00_1652 =
																							BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																							(BgL_exprza2za2_1599, BNIL);
																						BgL_arg1661z00_1651 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2528z00zz__expander_argsz00,
																							BgL_arg1662z00_1652);
																					}
																					BgL_arg1659z00_1650 =
																						MAKE_YOUNG_PAIR(BgL_arg1661z00_1651,
																						BNIL);
																				}
																				BgL_arg1656z00_1648 =
																					MAKE_YOUNG_PAIR(BgL_az00_1633,
																					BgL_arg1659z00_1650);
																			}
																			BgL_arg1654z00_1646 =
																				MAKE_YOUNG_PAIR(BgL_arg1655z00_1647,
																				BgL_arg1656z00_1648);
																		}
																		BgL_arg1649z00_1644 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2456z00zz__expander_argsz00,
																			BgL_arg1654z00_1646);
																	}
																	{	/* Eval/expdargs.scm 246 */
																		obj_t BgL_arg1663z00_1653;

																		{	/* Eval/expdargs.scm 246 */
																			obj_t BgL_arg1668z00_1654;

																			{	/* Eval/expdargs.scm 246 */
																				obj_t BgL_arg1669z00_1655;
																				obj_t BgL_arg1670z00_1656;

																				{	/* Eval/expdargs.scm 246 */
																					obj_t BgL_arg1671z00_1657;

																					BgL_arg1671z00_1657 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2500z00zz__expander_argsz00,
																						BNIL);
																					BgL_arg1669z00_1655 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2454z00zz__expander_argsz00,
																						BgL_arg1671z00_1657);
																				}
																				{	/* Eval/expdargs.scm 246 */
																					obj_t BgL_arg1672z00_1658;

																					BgL_arg1672z00_1658 =
																						MAKE_YOUNG_PAIR(BgL_vz00_1634,
																						BNIL);
																					BgL_arg1670z00_1656 =
																						MAKE_YOUNG_PAIR(BgL_az00_1633,
																						BgL_arg1672z00_1658);
																				}
																				BgL_arg1668z00_1654 =
																					MAKE_YOUNG_PAIR(BgL_arg1669z00_1655,
																					BgL_arg1670z00_1656);
																			}
																			BgL_arg1663z00_1653 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2456z00zz__expander_argsz00,
																				BgL_arg1668z00_1654);
																		}
																		BgL_arg1651z00_1645 =
																			MAKE_YOUNG_PAIR(BgL_arg1663z00_1653,
																			BNIL);
																	}
																	BgL_arg1644z00_1642 =
																		MAKE_YOUNG_PAIR(BgL_arg1649z00_1644,
																		BgL_arg1651z00_1645);
																}
																BgL_arg1642z00_1640 =
																	MAKE_YOUNG_PAIR(BgL_arg1643z00_1641,
																	BgL_arg1644z00_1642);
															}
															BgL_arg1640z00_1639 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2464z00zz__expander_argsz00,
																BgL_arg1642z00_1640);
														}
														BgL_arg1638z00_1637 =
															MAKE_YOUNG_PAIR(BgL_arg1640z00_1639, BNIL);
													}
													BgL_arg1636z00_1635 =
														MAKE_YOUNG_PAIR(BgL_arg1637z00_1636,
														BgL_arg1638z00_1637);
												}
												return
													MAKE_YOUNG_PAIR(BGl_symbol2466z00zz__expander_argsz00,
													BgL_arg1636z00_1635);
											}
										}
									}
								else
									{	/* Eval/expdargs.scm 237 */
										if (
											(CAR(
													((obj_t) BgL_clausez00_13)) ==
												BGl_symbol2521z00zz__expander_argsz00))
											{	/* Eval/expdargs.scm 237 */
												BgL_exprza2za2_1601 = BgL_cdrzd2249zd2_1607;
												{	/* Eval/expdargs.scm 248 */
													obj_t BgL_az00_1661;
													obj_t BgL_vz00_1662;

													{	/* Eval/expdargs.scm 248 */

														{	/* Eval/expdargs.scm 248 */

															BgL_az00_1661 =
																BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
														}
													}
													{	/* Eval/expdargs.scm 249 */

														{	/* Eval/expdargs.scm 249 */

															BgL_vz00_1662 =
																BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
														}
													}
													{	/* Eval/expdargs.scm 250 */
														obj_t BgL_arg1673z00_1663;

														{	/* Eval/expdargs.scm 250 */
															obj_t BgL_arg1675z00_1664;
															obj_t BgL_arg1678z00_1665;

															{	/* Eval/expdargs.scm 250 */
																obj_t BgL_arg1681z00_1666;

																BgL_arg1681z00_1666 =
																	MAKE_YOUNG_PAIR(BgL_vz00_1662, BNIL);
																BgL_arg1675z00_1664 =
																	MAKE_YOUNG_PAIR(BgL_az00_1661,
																	BgL_arg1681z00_1666);
															}
															{	/* Eval/expdargs.scm 251 */
																obj_t BgL_arg1684z00_1667;

																{	/* Eval/expdargs.scm 251 */
																	obj_t BgL_arg1685z00_1668;

																	{	/* Eval/expdargs.scm 251 */
																		obj_t BgL_arg1686z00_1669;
																		obj_t BgL_arg1689z00_1670;

																		{	/* Eval/expdargs.scm 251 */
																			obj_t BgL_arg1690z00_1671;

																			BgL_arg1690z00_1671 =
																				MAKE_YOUNG_PAIR(BgL_az00_1661, BNIL);
																			BgL_arg1686z00_1669 =
																				MAKE_YOUNG_PAIR
																				(BGl_symbol2530z00zz__expander_argsz00,
																				BgL_arg1690z00_1671);
																		}
																		{	/* Eval/expdargs.scm 252 */
																			obj_t BgL_arg1693z00_1672;
																			obj_t BgL_arg1695z00_1673;

																			{	/* Eval/expdargs.scm 252 */
																				obj_t BgL_arg1696z00_1674;

																				{	/* Eval/expdargs.scm 252 */
																					obj_t BgL_arg1698z00_1675;
																					obj_t BgL_arg1703z00_1676;

																					{	/* Eval/expdargs.scm 252 */
																						obj_t BgL_arg1704z00_1677;
																						obj_t BgL_arg1706z00_1678;

																						{	/* Eval/expdargs.scm 252 */
																							obj_t BgL_arg1707z00_1679;

																							{	/* Eval/expdargs.scm 252 */
																								obj_t BgL_arg1708z00_1680;

																								{	/* Eval/expdargs.scm 252 */
																									obj_t BgL_arg1709z00_1681;

																									BgL_arg1709z00_1681 =
																										MAKE_YOUNG_PAIR
																										(BgL_az00_1661, BNIL);
																									BgL_arg1708z00_1680 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2458z00zz__expander_argsz00,
																										BgL_arg1709z00_1681);
																								}
																								BgL_arg1707z00_1679 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1708z00_1680, BNIL);
																							}
																							BgL_arg1704z00_1677 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2521z00zz__expander_argsz00,
																								BgL_arg1707z00_1679);
																						}
																						{	/* Eval/expdargs.scm 253 */
																							obj_t BgL_arg1710z00_1682;

																							{	/* Eval/expdargs.scm 253 */
																								obj_t BgL_arg1712z00_1683;

																								BgL_arg1712z00_1683 =
																									MAKE_YOUNG_PAIR(BgL_az00_1661,
																									BNIL);
																								BgL_arg1710z00_1682 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2532z00zz__expander_argsz00,
																									BgL_arg1712z00_1683);
																							}
																							BgL_arg1706z00_1678 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1710z00_1682, BNIL);
																						}
																						BgL_arg1698z00_1675 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1704z00_1677,
																							BgL_arg1706z00_1678);
																					}
																					{	/* Eval/expdargs.scm 254 */
																						obj_t BgL_arg1713z00_1684;

																						{	/* Eval/expdargs.scm 254 */
																							obj_t BgL_arg1714z00_1685;

																							{	/* Eval/expdargs.scm 254 */
																								obj_t BgL_arg1715z00_1686;
																								obj_t BgL_arg1716z00_1687;

																								{	/* Eval/expdargs.scm 254 */
																									obj_t BgL_arg1717z00_1688;

																									BgL_arg1717z00_1688 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2496z00zz__expander_argsz00,
																										BNIL);
																									BgL_arg1715z00_1686 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2454z00zz__expander_argsz00,
																										BgL_arg1717z00_1688);
																								}
																								{	/* Eval/expdargs.scm 254 */
																									obj_t BgL_arg1718z00_1689;
																									obj_t BgL_arg1720z00_1690;

																									{	/* Eval/expdargs.scm 254 */
																										obj_t BgL_arg1721z00_1691;

																										BgL_arg1721z00_1691 =
																											MAKE_YOUNG_PAIR
																											(BgL_az00_1661, BNIL);
																										BgL_arg1718z00_1689 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2502z00zz__expander_argsz00,
																											BgL_arg1721z00_1691);
																									}
																									{	/* Eval/expdargs.scm 254 */
																										obj_t BgL_arg1722z00_1692;

																										{	/* Eval/expdargs.scm 254 */
																											obj_t BgL_arg1723z00_1693;

																											BgL_arg1723z00_1693 =
																												BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																												(BgL_exprza2za2_1601,
																												BNIL);
																											BgL_arg1722z00_1692 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2528z00zz__expander_argsz00,
																												BgL_arg1723z00_1693);
																										}
																										BgL_arg1720z00_1690 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1722z00_1692,
																											BNIL);
																									}
																									BgL_arg1716z00_1687 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1718z00_1689,
																										BgL_arg1720z00_1690);
																								}
																								BgL_arg1714z00_1685 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1715z00_1686,
																									BgL_arg1716z00_1687);
																							}
																							BgL_arg1713z00_1684 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2456z00zz__expander_argsz00,
																								BgL_arg1714z00_1685);
																						}
																						BgL_arg1703z00_1676 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1713z00_1684, BNIL);
																					}
																					BgL_arg1696z00_1674 =
																						MAKE_YOUNG_PAIR(BgL_arg1698z00_1675,
																						BgL_arg1703z00_1676);
																				}
																				BgL_arg1693z00_1672 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2510z00zz__expander_argsz00,
																					BgL_arg1696z00_1674);
																			}
																			{	/* Eval/expdargs.scm 255 */
																				obj_t BgL_arg1724z00_1694;

																				{	/* Eval/expdargs.scm 255 */
																					obj_t BgL_arg1725z00_1695;

																					{	/* Eval/expdargs.scm 255 */
																						obj_t BgL_arg1726z00_1696;
																						obj_t BgL_arg1727z00_1697;

																						{	/* Eval/expdargs.scm 255 */
																							obj_t BgL_arg1729z00_1698;

																							BgL_arg1729z00_1698 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2500z00zz__expander_argsz00,
																								BNIL);
																							BgL_arg1726z00_1696 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2454z00zz__expander_argsz00,
																								BgL_arg1729z00_1698);
																						}
																						{	/* Eval/expdargs.scm 255 */
																							obj_t BgL_arg1730z00_1699;

																							BgL_arg1730z00_1699 =
																								MAKE_YOUNG_PAIR(BgL_vz00_1662,
																								BNIL);
																							BgL_arg1727z00_1697 =
																								MAKE_YOUNG_PAIR(BgL_az00_1661,
																								BgL_arg1730z00_1699);
																						}
																						BgL_arg1725z00_1695 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1726z00_1696,
																							BgL_arg1727z00_1697);
																					}
																					BgL_arg1724z00_1694 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2456z00zz__expander_argsz00,
																						BgL_arg1725z00_1695);
																				}
																				BgL_arg1695z00_1673 =
																					MAKE_YOUNG_PAIR(BgL_arg1724z00_1694,
																					BNIL);
																			}
																			BgL_arg1689z00_1670 =
																				MAKE_YOUNG_PAIR(BgL_arg1693z00_1672,
																				BgL_arg1695z00_1673);
																		}
																		BgL_arg1685z00_1668 =
																			MAKE_YOUNG_PAIR(BgL_arg1686z00_1669,
																			BgL_arg1689z00_1670);
																	}
																	BgL_arg1684z00_1667 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2464z00zz__expander_argsz00,
																		BgL_arg1685z00_1668);
																}
																BgL_arg1678z00_1665 =
																	MAKE_YOUNG_PAIR(BgL_arg1684z00_1667, BNIL);
															}
															BgL_arg1673z00_1663 =
																MAKE_YOUNG_PAIR(BgL_arg1675z00_1664,
																BgL_arg1678z00_1665);
														}
														return
															MAKE_YOUNG_PAIR
															(BGl_symbol2466z00zz__expander_argsz00,
															BgL_arg1673z00_1663);
													}
												}
											}
										else
											{	/* Eval/expdargs.scm 237 */
												bool_t BgL_test2712z00_3891;

												{	/* Eval/expdargs.scm 237 */
													obj_t BgL_arg1632z00_1629;

													BgL_arg1632z00_1629 = CAR(((obj_t) BgL_clausez00_13));
													BgL_test2712z00_3891 =
														BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00
														(BgL_arg1632z00_1629);
												}
												if (BgL_test2712z00_3891)
													{	/* Eval/expdargs.scm 237 */
														return
															BGl_makezd2optzd2parserz00zz__expander_argsz00
															(BgL_clausez00_13, BgL_otablez00_14);
													}
												else
													{	/* Eval/expdargs.scm 237 */
														return
															BGl_expandzd2errorzd2zz__expandz00
															(BGl_string2440z00zz__expander_argsz00,
															BGl_string2525z00zz__expander_argsz00,
															BgL_clausez00_13);
													}
											}
									}
							}
					}
				else
					{	/* Eval/expdargs.scm 237 */
						return
							BGl_expandzd2errorzd2zz__expandz00
							(BGl_string2440z00zz__expander_argsz00,
							BGl_string2525z00zz__expander_argsz00, BgL_clausez00_13);
					}
			}
		}

	}



/* bind-option! */
	obj_t BGl_bindzd2optionz12zc0zz__expander_argsz00(obj_t BgL_otablez00_15,
		obj_t BgL_oidz00_16, obj_t BgL_clausez00_17)
	{
		{	/* Eval/expdargs.scm 264 */
			{	/* Eval/expdargs.scm 265 */
				obj_t BgL_oldz00_1702;

				BgL_oldz00_1702 =
					BGl_hashtablezd2getzd2zz__hashz00(BgL_otablez00_15, BgL_oidz00_16);
				if (CBOOL(BgL_oldz00_1702))
					{	/* Eval/expdargs.scm 267 */
						obj_t BgL_list1731z00_1703;

						{	/* Eval/expdargs.scm 267 */
							obj_t BgL_arg1732z00_1704;

							{	/* Eval/expdargs.scm 267 */
								obj_t BgL_arg1733z00_1705;

								{	/* Eval/expdargs.scm 267 */
									obj_t BgL_arg1734z00_1706;

									{	/* Eval/expdargs.scm 267 */
										obj_t BgL_arg1735z00_1707;

										{	/* Eval/expdargs.scm 267 */
											obj_t BgL_arg1736z00_1708;

											{	/* Eval/expdargs.scm 267 */
												obj_t BgL_arg1738z00_1709;

												{	/* Eval/expdargs.scm 267 */
													obj_t BgL_arg1739z00_1710;

													{	/* Eval/expdargs.scm 267 */
														obj_t BgL_arg1741z00_1711;

														BgL_arg1741z00_1711 =
															MAKE_YOUNG_PAIR(BgL_clausez00_17, BNIL);
														BgL_arg1739z00_1710 =
															MAKE_YOUNG_PAIR
															(BGl_string2534z00zz__expander_argsz00,
															BgL_arg1741z00_1711);
													}
													BgL_arg1738z00_1709 =
														MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 10)),
														BgL_arg1739z00_1710);
												}
												BgL_arg1736z00_1708 =
													MAKE_YOUNG_PAIR(BgL_oldz00_1702, BgL_arg1738z00_1709);
											}
											BgL_arg1735z00_1707 =
												MAKE_YOUNG_PAIR(BGl_string2534z00zz__expander_argsz00,
												BgL_arg1736z00_1708);
										}
										BgL_arg1734z00_1706 =
											MAKE_YOUNG_PAIR(BCHAR(((unsigned char) 10)),
											BgL_arg1735z00_1707);
									}
									BgL_arg1733z00_1705 =
										MAKE_YOUNG_PAIR(BGl_string2535z00zz__expander_argsz00,
										BgL_arg1734z00_1706);
								}
								BgL_arg1732z00_1704 =
									MAKE_YOUNG_PAIR(BgL_oidz00_16, BgL_arg1733z00_1705);
							}
							BgL_list1731z00_1703 =
								MAKE_YOUNG_PAIR(BGl_symbol2488z00zz__expander_argsz00,
								BgL_arg1732z00_1704);
						}
						return BGl_warningz00zz__errorz00(BgL_list1731z00_1703);
					}
				else
					{	/* Eval/expdargs.scm 266 */
						return
							BGl_hashtablezd2putz12zc0zz__hashz00(BgL_otablez00_15,
							BgL_oidz00_16, BgL_clausez00_17);
					}
			}
		}

	}



/* make-opt-parser */
	obj_t BGl_makezd2optzd2parserz00zz__expander_argsz00(obj_t BgL_clausez00_18,
		obj_t BgL_otablez00_19)
	{
		{	/* Eval/expdargs.scm 275 */
			{	/* Eval/expdargs.scm 276 */
				obj_t BgL_optz00_1712;

				BgL_optz00_1712 = CAR(BgL_clausez00_18);
				{	/* Eval/expdargs.scm 276 */
					obj_t BgL_oz00_1713;

					BgL_oz00_1713 = CAR(((obj_t) BgL_optz00_1712));
					{	/* Eval/expdargs.scm 277 */

						if (STRINGP(BgL_oz00_1713))
							{	/* Eval/expdargs.scm 279 */
								BGL_TAIL return
									BGl_makezd2simplezd2optzd2parserzd2zz__expander_argsz00
									(BgL_clausez00_18, BgL_otablez00_19);
							}
						else
							{	/* Eval/expdargs.scm 281 */
								bool_t BgL_test2715z00_3920;

								if (BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_oz00_1713))
									{
										obj_t BgL_l1132z00_1728;

										BgL_l1132z00_1728 = BgL_oz00_1713;
									BgL_zc3z04anonymousza31749ze3z87_1729:
										if (NULLP(BgL_l1132z00_1728))
											{	/* Eval/expdargs.scm 281 */
												BgL_test2715z00_3920 = ((bool_t) 1);
											}
										else
											{	/* Eval/expdargs.scm 281 */
												bool_t BgL_test2718z00_3925;

												{	/* Eval/expdargs.scm 281 */
													obj_t BgL_tmpz00_3926;

													BgL_tmpz00_3926 = CAR(((obj_t) BgL_l1132z00_1728));
													BgL_test2718z00_3925 = STRINGP(BgL_tmpz00_3926);
												}
												if (BgL_test2718z00_3925)
													{
														obj_t BgL_l1132z00_3930;

														BgL_l1132z00_3930 =
															CDR(((obj_t) BgL_l1132z00_1728));
														BgL_l1132z00_1728 = BgL_l1132z00_3930;
														goto BgL_zc3z04anonymousza31749ze3z87_1729;
													}
												else
													{	/* Eval/expdargs.scm 281 */
														BgL_test2715z00_3920 = ((bool_t) 0);
													}
											}
									}
								else
									{	/* Eval/expdargs.scm 281 */
										BgL_test2715z00_3920 = ((bool_t) 0);
									}
								if (BgL_test2715z00_3920)
									{	/* Eval/expdargs.scm 281 */
										BGL_TAIL return
											BGl_makezd2multiplezd2optzd2parserzd2zz__expander_argsz00
											(BgL_clausez00_18, BgL_otablez00_19);
									}
								else
									{	/* Eval/expdargs.scm 281 */
										return
											BGl_expandzd2errorzd2zz__expandz00
											(BGl_string2440z00zz__expander_argsz00,
											BGl_string2461z00zz__expander_argsz00, BgL_clausez00_18);
									}
							}
					}
				}
			}
		}

	}



/* make-simple-opt-parser */
	obj_t BGl_makezd2simplezd2optzd2parserzd2zz__expander_argsz00(obj_t
		BgL_clausez00_20, obj_t BgL_otablez00_21)
	{
		{	/* Eval/expdargs.scm 289 */
			{	/* Eval/expdargs.scm 290 */
				obj_t BgL_optz00_1736;

				BgL_optz00_1736 = CAR(BgL_clausez00_20);
				{	/* Eval/expdargs.scm 290 */
					obj_t BgL_oz00_1737;

					BgL_oz00_1737 = CAR(((obj_t) BgL_optz00_1736));
					{	/* Eval/expdargs.scm 291 */
						obj_t BgL_argsz00_1738;

						BgL_argsz00_1738 =
							BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00
							(BgL_optz00_1736);
						{	/* Eval/expdargs.scm 292 */
							obj_t BgL_exprza2za2_1739;

							BgL_exprza2za2_1739 = CDR(BgL_clausez00_20);
							{	/* Eval/expdargs.scm 293 */

								{	/* Eval/expdargs.scm 294 */
									obj_t BgL_oidz00_1740;

									BgL_oidz00_1740 =
										BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00
										(BgL_oz00_1737);
									{	/* Eval/expdargs.scm 295 */
										obj_t BgL_aidz00_1741;

										{	/* Eval/expdargs.scm 297 */
											obj_t BgL_tmpz00_2816;

											{	/* Eval/expdargs.scm 297 */
												int BgL_tmpz00_3941;

												BgL_tmpz00_3941 = (int) (1L);
												BgL_tmpz00_2816 = BGL_MVALUES_VAL(BgL_tmpz00_3941);
											}
											{	/* Eval/expdargs.scm 297 */
												int BgL_tmpz00_3944;

												BgL_tmpz00_3944 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_3944, BUNSPEC);
											}
											BgL_aidz00_1741 = BgL_tmpz00_2816;
										}
										{	/* Eval/expdargs.scm 297 */
											bool_t BgL_test2719z00_3947;

											if (CBOOL(BgL_aidz00_1741))
												{	/* Eval/expdargs.scm 297 */
													BgL_test2719z00_3947 = PAIRP(BgL_argsz00_1738);
												}
											else
												{	/* Eval/expdargs.scm 297 */
													BgL_test2719z00_3947 = ((bool_t) 0);
												}
											if (BgL_test2719z00_3947)
												{	/* Eval/expdargs.scm 297 */
													return
														BGl_expandzd2errorzd2zz__expandz00
														(BGl_string2440z00zz__expander_argsz00,
														BGl_string2524z00zz__expander_argsz00,
														BgL_clausez00_20);
												}
											else
												{	/* Eval/expdargs.scm 297 */
													if (STRINGP(BgL_aidz00_1741))
														{	/* Eval/expdargs.scm 299 */
															BGl_bindzd2optionz12zc0zz__expander_argsz00
																(BgL_otablez00_21, BgL_oidz00_1740,
																BgL_clausez00_20);
															{	/* Eval/expdargs.scm 301 */
																obj_t BgL_az00_1744;
																obj_t BgL_vz00_1745;
																long BgL_oidlz00_1746;

																{	/* Eval/expdargs.scm 301 */

																	{	/* Eval/expdargs.scm 301 */

																		BgL_az00_1744 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																}}
																{	/* Eval/expdargs.scm 302 */

																	{	/* Eval/expdargs.scm 302 */

																		BgL_vz00_1745 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																}}
																BgL_oidlz00_1746 =
																	STRING_LENGTH(((obj_t) BgL_oidz00_1740));
																{	/* Eval/expdargs.scm 304 */
																	obj_t BgL_arg1754z00_1747;

																	{	/* Eval/expdargs.scm 304 */
																		obj_t BgL_arg1755z00_1748;
																		obj_t BgL_arg1756z00_1749;

																		{	/* Eval/expdargs.scm 304 */
																			obj_t BgL_arg1757z00_1750;

																			BgL_arg1757z00_1750 =
																				MAKE_YOUNG_PAIR(BgL_vz00_1745, BNIL);
																			BgL_arg1755z00_1748 =
																				MAKE_YOUNG_PAIR(BgL_az00_1744,
																				BgL_arg1757z00_1750);
																		}
																		{	/* Eval/expdargs.scm 305 */
																			obj_t BgL_arg1758z00_1751;

																			{	/* Eval/expdargs.scm 305 */
																				obj_t BgL_arg1759z00_1752;

																				{	/* Eval/expdargs.scm 305 */
																					obj_t BgL_arg1760z00_1753;
																					obj_t BgL_arg1761z00_1754;

																					{	/* Eval/expdargs.scm 305 */
																						obj_t BgL_arg1762z00_1755;

																						{	/* Eval/expdargs.scm 305 */
																							obj_t BgL_arg1763z00_1756;
																							obj_t BgL_arg1765z00_1757;

																							{	/* Eval/expdargs.scm 305 */
																								obj_t BgL_arg1766z00_1758;

																								BgL_arg1766z00_1758 =
																									MAKE_YOUNG_PAIR(BgL_az00_1744,
																									BNIL);
																								BgL_arg1763z00_1756 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2530z00zz__expander_argsz00,
																									BgL_arg1766z00_1758);
																							}
																							{	/* Eval/expdargs.scm 306 */
																								obj_t BgL_arg1767z00_1759;

																								{	/* Eval/expdargs.scm 306 */
																									obj_t BgL_arg1768z00_1760;

																									{	/* Eval/expdargs.scm 306 */
																										obj_t BgL_arg1769z00_1761;

																										{	/* Eval/expdargs.scm 306 */
																											obj_t BgL_arg1770z00_1762;
																											obj_t BgL_arg1771z00_1763;

																											{	/* Eval/expdargs.scm 306 */
																												obj_t
																													BgL_arg1773z00_1764;
																												BgL_arg1773z00_1764 =
																													MAKE_YOUNG_PAIR
																													(BgL_az00_1744, BNIL);
																												BgL_arg1770z00_1762 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2458z00zz__expander_argsz00,
																													BgL_arg1773z00_1764);
																											}
																											BgL_arg1771z00_1763 =
																												MAKE_YOUNG_PAIR(BINT
																												(BgL_oidlz00_1746),
																												BNIL);
																											BgL_arg1769z00_1761 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1770z00_1762,
																												BgL_arg1771z00_1763);
																										}
																										BgL_arg1768z00_1760 =
																											MAKE_YOUNG_PAIR
																											(BgL_oidz00_1740,
																											BgL_arg1769z00_1761);
																									}
																									BgL_arg1767z00_1759 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2536z00zz__expander_argsz00,
																										BgL_arg1768z00_1760);
																								}
																								BgL_arg1765z00_1757 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1767z00_1759, BNIL);
																							}
																							BgL_arg1762z00_1755 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1763z00_1756,
																								BgL_arg1765z00_1757);
																						}
																						BgL_arg1760z00_1753 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2538z00zz__expander_argsz00,
																							BgL_arg1762z00_1755);
																					}
																					{	/* Eval/expdargs.scm 307 */
																						obj_t BgL_arg1774z00_1765;
																						obj_t BgL_arg1775z00_1766;

																						{	/* Eval/expdargs.scm 307 */
																							obj_t BgL_arg1776z00_1767;

																							{	/* Eval/expdargs.scm 307 */
																								obj_t BgL_arg1777z00_1768;
																								obj_t BgL_arg1778z00_1769;

																								{	/* Eval/expdargs.scm 307 */
																									obj_t BgL_arg1779z00_1770;
																									obj_t BgL_arg1780z00_1771;

																									{	/* Eval/expdargs.scm 307 */
																										obj_t BgL_arg1781z00_1772;
																										obj_t BgL_arg1782z00_1773;

																										BgL_arg1781z00_1772 =
																											bstring_to_symbol
																											(BgL_aidz00_1741);
																										{	/* Eval/expdargs.scm 308 */
																											obj_t BgL_arg1783z00_1774;

																											{	/* Eval/expdargs.scm 308 */
																												obj_t
																													BgL_arg1784z00_1775;
																												{	/* Eval/expdargs.scm 308 */
																													obj_t
																														BgL_arg1785z00_1776;
																													obj_t
																														BgL_arg1786z00_1777;
																													{	/* Eval/expdargs.scm 308 */
																														obj_t
																															BgL_arg1787z00_1778;
																														BgL_arg1787z00_1778
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_az00_1744,
																															BNIL);
																														BgL_arg1785z00_1776
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2458z00zz__expander_argsz00,
																															BgL_arg1787z00_1778);
																													}
																													{	/* Eval/expdargs.scm 310 */
																														obj_t
																															BgL_arg1788z00_1779;
																														{	/* Eval/expdargs.scm 310 */
																															obj_t
																																BgL_arg1789z00_1780;
																															{	/* Eval/expdargs.scm 310 */
																																obj_t
																																	BgL_arg1790z00_1781;
																																{	/* Eval/expdargs.scm 310 */
																																	obj_t
																																		BgL_arg1791z00_1782;
																																	{	/* Eval/expdargs.scm 310 */
																																		obj_t
																																			BgL_arg1792z00_1783;
																																		BgL_arg1792z00_1783
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_az00_1744,
																																			BNIL);
																																		BgL_arg1791z00_1782
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2458z00zz__expander_argsz00,
																																			BgL_arg1792z00_1783);
																																	}
																																	BgL_arg1790z00_1781
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_arg1791z00_1782,
																																		BNIL);
																																}
																																BgL_arg1789z00_1780
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2540z00zz__expander_argsz00,
																																	BgL_arg1790z00_1781);
																															}
																															BgL_arg1788z00_1779
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1789z00_1780,
																																BNIL);
																														}
																														BgL_arg1786z00_1777
																															=
																															MAKE_YOUNG_PAIR
																															(BINT
																															(BgL_oidlz00_1746),
																															BgL_arg1788z00_1779);
																													}
																													BgL_arg1784z00_1775 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1785z00_1776,
																														BgL_arg1786z00_1777);
																												}
																												BgL_arg1783z00_1774 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2542z00zz__expander_argsz00,
																													BgL_arg1784z00_1775);
																											}
																											BgL_arg1782z00_1773 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1783z00_1774,
																												BNIL);
																										}
																										BgL_arg1779z00_1770 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1781z00_1772,
																											BgL_arg1782z00_1773);
																									}
																									{	/* Eval/expdargs.scm 311 */
																										obj_t BgL_arg1793z00_1784;
																										obj_t BgL_arg1794z00_1785;

																										{	/* Eval/expdargs.scm 311 */
																											obj_t BgL_arg1795z00_1786;

																											{	/* Eval/expdargs.scm 311 */
																												obj_t
																													BgL_arg1796z00_1787;
																												{	/* Eval/expdargs.scm 311 */
																													obj_t
																														BgL_arg1797z00_1788;
																													BgL_arg1797z00_1788 =
																														MAKE_YOUNG_PAIR
																														(BgL_az00_1744,
																														BNIL);
																													BgL_arg1796z00_1787 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2502z00zz__expander_argsz00,
																														BgL_arg1797z00_1788);
																												}
																												BgL_arg1795z00_1786 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1796z00_1787,
																													BNIL);
																											}
																											BgL_arg1793z00_1784 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2544z00zz__expander_argsz00,
																												BgL_arg1795z00_1786);
																										}
																										{	/* Eval/expdargs.scm 312 */
																											obj_t BgL_arg1798z00_1789;

																											{	/* Eval/expdargs.scm 312 */
																												obj_t
																													BgL_arg1799z00_1790;
																												{	/* Eval/expdargs.scm 312 */
																													obj_t
																														BgL_arg1800z00_1791;
																													{	/* Eval/expdargs.scm 312 */
																														obj_t
																															BgL_arg1801z00_1792;
																														BgL_arg1801z00_1792
																															=
																															BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																															(BgL_exprza2za2_1739,
																															BNIL);
																														BgL_arg1800z00_1791
																															=
																															MAKE_YOUNG_PAIR
																															(BGl_symbol2528z00zz__expander_argsz00,
																															BgL_arg1801z00_1792);
																													}
																													BgL_arg1799z00_1790 =
																														MAKE_YOUNG_PAIR
																														(BgL_arg1800z00_1791,
																														BNIL);
																												}
																												BgL_arg1798z00_1789 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2490z00zz__expander_argsz00,
																													BgL_arg1799z00_1790);
																											}
																											BgL_arg1794z00_1785 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1798z00_1789,
																												BNIL);
																										}
																										BgL_arg1780z00_1771 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1793z00_1784,
																											BgL_arg1794z00_1785);
																									}
																									BgL_arg1777z00_1768 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1779z00_1770,
																										BgL_arg1780z00_1771);
																								}
																								{	/* Eval/expdargs.scm 313 */
																									obj_t BgL_arg1802z00_1793;

																									{	/* Eval/expdargs.scm 313 */
																										obj_t BgL_arg1803z00_1794;

																										{	/* Eval/expdargs.scm 313 */
																											obj_t BgL_arg1804z00_1795;
																											obj_t BgL_arg1805z00_1796;

																											{	/* Eval/expdargs.scm 313 */
																												obj_t
																													BgL_arg1806z00_1797;
																												BgL_arg1806z00_1797 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2496z00zz__expander_argsz00,
																													BNIL);
																												BgL_arg1804z00_1795 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2454z00zz__expander_argsz00,
																													BgL_arg1806z00_1797);
																											}
																											{	/* Eval/expdargs.scm 313 */
																												obj_t
																													BgL_arg1807z00_1798;
																												BgL_arg1807z00_1798 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2490z00zz__expander_argsz00,
																													BNIL);
																												BgL_arg1805z00_1796 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2544z00zz__expander_argsz00,
																													BgL_arg1807z00_1798);
																											}
																											BgL_arg1803z00_1794 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1804z00_1795,
																												BgL_arg1805z00_1796);
																										}
																										BgL_arg1802z00_1793 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2456z00zz__expander_argsz00,
																											BgL_arg1803z00_1794);
																									}
																									BgL_arg1778z00_1769 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1802z00_1793, BNIL);
																								}
																								BgL_arg1776z00_1767 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1777z00_1768,
																									BgL_arg1778z00_1769);
																							}
																							BgL_arg1774z00_1765 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2512z00zz__expander_argsz00,
																								BgL_arg1776z00_1767);
																						}
																						{	/* Eval/expdargs.scm 314 */
																							obj_t BgL_arg1808z00_1799;

																							{	/* Eval/expdargs.scm 314 */
																								obj_t BgL_arg1809z00_1800;

																								{	/* Eval/expdargs.scm 314 */
																									obj_t BgL_arg1810z00_1801;
																									obj_t BgL_arg1812z00_1802;

																									{	/* Eval/expdargs.scm 314 */
																										obj_t BgL_arg1814z00_1803;

																										BgL_arg1814z00_1803 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2500z00zz__expander_argsz00,
																											BNIL);
																										BgL_arg1810z00_1801 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2454z00zz__expander_argsz00,
																											BgL_arg1814z00_1803);
																									}
																									{	/* Eval/expdargs.scm 314 */
																										obj_t BgL_arg1816z00_1804;

																										BgL_arg1816z00_1804 =
																											MAKE_YOUNG_PAIR
																											(BgL_vz00_1745, BNIL);
																										BgL_arg1812z00_1802 =
																											MAKE_YOUNG_PAIR
																											(BgL_az00_1744,
																											BgL_arg1816z00_1804);
																									}
																									BgL_arg1809z00_1800 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1810z00_1801,
																										BgL_arg1812z00_1802);
																								}
																								BgL_arg1808z00_1799 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2456z00zz__expander_argsz00,
																									BgL_arg1809z00_1800);
																							}
																							BgL_arg1775z00_1766 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1808z00_1799, BNIL);
																						}
																						BgL_arg1761z00_1754 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1774z00_1765,
																							BgL_arg1775z00_1766);
																					}
																					BgL_arg1759z00_1752 =
																						MAKE_YOUNG_PAIR(BgL_arg1760z00_1753,
																						BgL_arg1761z00_1754);
																				}
																				BgL_arg1758z00_1751 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2464z00zz__expander_argsz00,
																					BgL_arg1759z00_1752);
																			}
																			BgL_arg1756z00_1749 =
																				MAKE_YOUNG_PAIR(BgL_arg1758z00_1751,
																				BNIL);
																		}
																		BgL_arg1754z00_1747 =
																			MAKE_YOUNG_PAIR(BgL_arg1755z00_1748,
																			BgL_arg1756z00_1749);
																	}
																	return
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2466z00zz__expander_argsz00,
																		BgL_arg1754z00_1747);
																}
															}
														}
													else
														{	/* Eval/expdargs.scm 299 */
															BGl_bindzd2optionz12zc0zz__expander_argsz00
																(BgL_otablez00_21, BgL_oidz00_1740,
																BgL_clausez00_20);
															{	/* Eval/expdargs.scm 317 */
																obj_t BgL_az00_1807;
																obj_t BgL_vz00_1808;
																obj_t BgL_naz00_1809;

																{	/* Eval/expdargs.scm 317 */

																	{	/* Eval/expdargs.scm 317 */

																		BgL_az00_1807 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																	}
																}
																{	/* Eval/expdargs.scm 318 */

																	{	/* Eval/expdargs.scm 318 */

																		BgL_vz00_1808 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																	}
																}
																BgL_naz00_1809 =
																	BGl_symbol2544z00zz__expander_argsz00;
																{	/* Eval/expdargs.scm 320 */
																	obj_t BgL_arg1817z00_1810;

																	{	/* Eval/expdargs.scm 320 */
																		obj_t BgL_arg1819z00_1811;
																		obj_t BgL_arg1820z00_1812;

																		{	/* Eval/expdargs.scm 320 */
																			obj_t BgL_arg1821z00_1813;

																			BgL_arg1821z00_1813 =
																				MAKE_YOUNG_PAIR(BgL_vz00_1808, BNIL);
																			BgL_arg1819z00_1811 =
																				MAKE_YOUNG_PAIR(BgL_az00_1807,
																				BgL_arg1821z00_1813);
																		}
																		{	/* Eval/expdargs.scm 321 */
																			obj_t BgL_arg1822z00_1814;

																			{	/* Eval/expdargs.scm 321 */
																				obj_t BgL_arg1823z00_1815;

																				{	/* Eval/expdargs.scm 321 */
																					obj_t BgL_arg1824z00_1816;
																					obj_t BgL_arg1825z00_1817;

																					{	/* Eval/expdargs.scm 321 */
																						obj_t BgL_arg1826z00_1818;

																						{	/* Eval/expdargs.scm 321 */
																							obj_t BgL_arg1827z00_1819;
																							obj_t BgL_arg1828z00_1820;

																							{	/* Eval/expdargs.scm 321 */
																								obj_t BgL_arg1829z00_1821;

																								BgL_arg1829z00_1821 =
																									MAKE_YOUNG_PAIR(BgL_az00_1807,
																									BNIL);
																								BgL_arg1827z00_1819 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2530z00zz__expander_argsz00,
																									BgL_arg1829z00_1821);
																							}
																							{	/* Eval/expdargs.scm 321 */
																								obj_t BgL_arg1830z00_1822;

																								{	/* Eval/expdargs.scm 321 */
																									obj_t BgL_arg1831z00_1823;

																									{	/* Eval/expdargs.scm 321 */
																										obj_t BgL_arg1832z00_1824;

																										{	/* Eval/expdargs.scm 321 */
																											obj_t BgL_arg1833z00_1825;

																											{	/* Eval/expdargs.scm 321 */
																												obj_t
																													BgL_arg1834z00_1826;
																												BgL_arg1834z00_1826 =
																													MAKE_YOUNG_PAIR
																													(BgL_az00_1807, BNIL);
																												BgL_arg1833z00_1825 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2458z00zz__expander_argsz00,
																													BgL_arg1834z00_1826);
																											}
																											BgL_arg1832z00_1824 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1833z00_1825,
																												BNIL);
																										}
																										BgL_arg1831z00_1823 =
																											MAKE_YOUNG_PAIR
																											(BgL_oidz00_1740,
																											BgL_arg1832z00_1824);
																									}
																									BgL_arg1830z00_1822 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2546z00zz__expander_argsz00,
																										BgL_arg1831z00_1823);
																								}
																								BgL_arg1828z00_1820 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1830z00_1822, BNIL);
																							}
																							BgL_arg1826z00_1818 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1827z00_1819,
																								BgL_arg1828z00_1820);
																						}
																						BgL_arg1824z00_1816 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2538z00zz__expander_argsz00,
																							BgL_arg1826z00_1818);
																					}
																					{	/* Eval/expdargs.scm 322 */
																						obj_t BgL_arg1835z00_1827;
																						obj_t BgL_arg1836z00_1828;

																						{	/* Eval/expdargs.scm 322 */
																							obj_t BgL_arg1837z00_1829;

																							{	/* Eval/expdargs.scm 322 */
																								obj_t BgL_arg1838z00_1830;
																								obj_t BgL_arg1839z00_1831;

																								{	/* Eval/expdargs.scm 322 */
																									obj_t BgL_arg1840z00_1832;
																									obj_t BgL_arg1841z00_1833;

																									BgL_arg1840z00_1832 =
																										BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00
																										(BgL_argsz00_1738,
																										BgL_az00_1807,
																										BgL_naz00_1809,
																										BgL_clausez00_20);
																									{	/* Eval/expdargs.scm 323 */
																										obj_t BgL_arg1842z00_1834;

																										{	/* Eval/expdargs.scm 323 */
																											obj_t BgL_arg1843z00_1835;

																											{	/* Eval/expdargs.scm 323 */
																												obj_t
																													BgL_arg1844z00_1836;
																												{	/* Eval/expdargs.scm 323 */
																													obj_t
																														BgL_arg1845z00_1837;
																													BgL_arg1845z00_1837 =
																														BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																														(BgL_exprza2za2_1739,
																														BNIL);
																													BgL_arg1844z00_1836 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2528z00zz__expander_argsz00,
																														BgL_arg1845z00_1837);
																												}
																												BgL_arg1843z00_1835 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1844z00_1836,
																													BNIL);
																											}
																											BgL_arg1842z00_1834 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2490z00zz__expander_argsz00,
																												BgL_arg1843z00_1835);
																										}
																										BgL_arg1841z00_1833 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1842z00_1834,
																											BNIL);
																									}
																									BgL_arg1838z00_1830 =
																										BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																										(BgL_arg1840z00_1832,
																										BgL_arg1841z00_1833);
																								}
																								{	/* Eval/expdargs.scm 324 */
																									obj_t BgL_arg1846z00_1838;

																									{	/* Eval/expdargs.scm 324 */
																										obj_t BgL_arg1848z00_1839;

																										{	/* Eval/expdargs.scm 324 */
																											obj_t BgL_arg1850z00_1840;
																											obj_t BgL_arg1851z00_1841;

																											{	/* Eval/expdargs.scm 324 */
																												obj_t
																													BgL_arg1852z00_1842;
																												BgL_arg1852z00_1842 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2496z00zz__expander_argsz00,
																													BNIL);
																												BgL_arg1850z00_1840 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2454z00zz__expander_argsz00,
																													BgL_arg1852z00_1842);
																											}
																											{	/* Eval/expdargs.scm 324 */
																												obj_t
																													BgL_arg1853z00_1843;
																												BgL_arg1853z00_1843 =
																													MAKE_YOUNG_PAIR
																													(BGl_symbol2490z00zz__expander_argsz00,
																													BNIL);
																												BgL_arg1851z00_1841 =
																													MAKE_YOUNG_PAIR
																													(BgL_naz00_1809,
																													BgL_arg1853z00_1843);
																											}
																											BgL_arg1848z00_1839 =
																												MAKE_YOUNG_PAIR
																												(BgL_arg1850z00_1840,
																												BgL_arg1851z00_1841);
																										}
																										BgL_arg1846z00_1838 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2456z00zz__expander_argsz00,
																											BgL_arg1848z00_1839);
																									}
																									BgL_arg1839z00_1831 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1846z00_1838, BNIL);
																								}
																								BgL_arg1837z00_1829 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1838z00_1830,
																									BgL_arg1839z00_1831);
																							}
																							BgL_arg1835z00_1827 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2512z00zz__expander_argsz00,
																								BgL_arg1837z00_1829);
																						}
																						{	/* Eval/expdargs.scm 325 */
																							obj_t BgL_arg1854z00_1844;

																							{	/* Eval/expdargs.scm 325 */
																								obj_t BgL_arg1855z00_1845;

																								{	/* Eval/expdargs.scm 325 */
																									obj_t BgL_arg1856z00_1846;
																									obj_t BgL_arg1857z00_1847;

																									{	/* Eval/expdargs.scm 325 */
																										obj_t BgL_arg1860z00_1848;

																										BgL_arg1860z00_1848 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2500z00zz__expander_argsz00,
																											BNIL);
																										BgL_arg1856z00_1846 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2454z00zz__expander_argsz00,
																											BgL_arg1860z00_1848);
																									}
																									{	/* Eval/expdargs.scm 325 */
																										obj_t BgL_arg1861z00_1849;

																										BgL_arg1861z00_1849 =
																											MAKE_YOUNG_PAIR
																											(BgL_vz00_1808, BNIL);
																										BgL_arg1857z00_1847 =
																											MAKE_YOUNG_PAIR
																											(BgL_az00_1807,
																											BgL_arg1861z00_1849);
																									}
																									BgL_arg1855z00_1845 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg1856z00_1846,
																										BgL_arg1857z00_1847);
																								}
																								BgL_arg1854z00_1844 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2456z00zz__expander_argsz00,
																									BgL_arg1855z00_1845);
																							}
																							BgL_arg1836z00_1828 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1854z00_1844, BNIL);
																						}
																						BgL_arg1825z00_1817 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1835z00_1827,
																							BgL_arg1836z00_1828);
																					}
																					BgL_arg1823z00_1815 =
																						MAKE_YOUNG_PAIR(BgL_arg1824z00_1816,
																						BgL_arg1825z00_1817);
																				}
																				BgL_arg1822z00_1814 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2464z00zz__expander_argsz00,
																					BgL_arg1823z00_1815);
																			}
																			BgL_arg1820z00_1812 =
																				MAKE_YOUNG_PAIR(BgL_arg1822z00_1814,
																				BNIL);
																		}
																		BgL_arg1817z00_1810 =
																			MAKE_YOUNG_PAIR(BgL_arg1819z00_1811,
																			BgL_arg1820z00_1812);
																	}
																	return
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2466z00zz__expander_argsz00,
																		BgL_arg1817z00_1810);
																}
															}
														}
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* make-multiple-opt-parser */
	obj_t BGl_makezd2multiplezd2optzd2parserzd2zz__expander_argsz00(obj_t
		BgL_clausez00_22, obj_t BgL_otablez00_23)
	{
		{	/* Eval/expdargs.scm 330 */
			{	/* Eval/expdargs.scm 331 */
				obj_t BgL_optz00_1852;

				BgL_optz00_1852 = CAR(BgL_clausez00_22);
				{	/* Eval/expdargs.scm 331 */
					obj_t BgL_ozb2zb2_1853;

					BgL_ozb2zb2_1853 = CAR(((obj_t) BgL_optz00_1852));
					{	/* Eval/expdargs.scm 332 */
						obj_t BgL_argsz00_1854;

						BgL_argsz00_1854 =
							BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00
							(BgL_optz00_1852);
						{	/* Eval/expdargs.scm 333 */
							obj_t BgL_exprza2za2_1855;

							BgL_exprza2za2_1855 = CDR(BgL_clausez00_22);
							{	/* Eval/expdargs.scm 334 */

								{	/* Eval/expdargs.scm 335 */
									obj_t BgL_oidzb2zb2_1856;

									{
										obj_t BgL_ozb2zb2_2053;
										obj_t BgL_oidzb2zb2_2054;
										obj_t BgL_aidzb2zb2_2055;

										BgL_ozb2zb2_2053 = BgL_ozb2zb2_1853;
										BgL_oidzb2zb2_2054 = BNIL;
										BgL_aidzb2zb2_2055 = BNIL;
									BgL_zc3z04anonymousza32021ze3z87_2056:
										if (NULLP(BgL_ozb2zb2_2053))
											{	/* Eval/expdargs.scm 340 */
												obj_t BgL_val0_1135z00_2058;
												obj_t BgL_val1_1136z00_2059;

												BgL_val0_1135z00_2058 =
													bgl_reverse_bang(BgL_oidzb2zb2_2054);
												BgL_val1_1136z00_2059 =
													bgl_reverse_bang(BgL_aidzb2zb2_2055);
												{	/* Eval/expdargs.scm 340 */
													int BgL_tmpz00_4073;

													BgL_tmpz00_4073 = (int) (2L);
													BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4073);
												}
												{	/* Eval/expdargs.scm 340 */
													int BgL_tmpz00_4076;

													BgL_tmpz00_4076 = (int) (1L);
													BGL_MVALUES_VAL_SET(BgL_tmpz00_4076,
														BgL_val1_1136z00_2059);
												}
												BgL_oidzb2zb2_1856 = BgL_val0_1135z00_2058;
											}
										else
											{	/* Eval/expdargs.scm 341 */
												obj_t BgL_oidz00_2060;

												{	/* Eval/expdargs.scm 342 */
													obj_t BgL_arg2028z00_2065;

													BgL_arg2028z00_2065 = CAR(((obj_t) BgL_ozb2zb2_2053));
													BgL_oidz00_2060 =
														BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00
														(BgL_arg2028z00_2065);
												}
												{	/* Eval/expdargs.scm 342 */
													obj_t BgL_aidz00_2061;

													{	/* Eval/expdargs.scm 343 */
														obj_t BgL_tmpz00_2823;

														{	/* Eval/expdargs.scm 343 */
															int BgL_tmpz00_4082;

															BgL_tmpz00_4082 = (int) (1L);
															BgL_tmpz00_2823 =
																BGL_MVALUES_VAL(BgL_tmpz00_4082);
														}
														{	/* Eval/expdargs.scm 343 */
															int BgL_tmpz00_4085;

															BgL_tmpz00_4085 = (int) (1L);
															BGL_MVALUES_VAL_SET(BgL_tmpz00_4085, BUNSPEC);
														}
														BgL_aidz00_2061 = BgL_tmpz00_2823;
													}
													{	/* Eval/expdargs.scm 343 */
														obj_t BgL_arg2023z00_2062;
														obj_t BgL_arg2024z00_2063;
														obj_t BgL_arg2025z00_2064;

														BgL_arg2023z00_2062 =
															CDR(((obj_t) BgL_ozb2zb2_2053));
														BgL_arg2024z00_2063 =
															MAKE_YOUNG_PAIR(BgL_oidz00_2060,
															BgL_oidzb2zb2_2054);
														BgL_arg2025z00_2064 =
															MAKE_YOUNG_PAIR(BgL_aidz00_2061,
															BgL_aidzb2zb2_2055);
														{
															obj_t BgL_aidzb2zb2_4094;
															obj_t BgL_oidzb2zb2_4093;
															obj_t BgL_ozb2zb2_4092;

															BgL_ozb2zb2_4092 = BgL_arg2023z00_2062;
															BgL_oidzb2zb2_4093 = BgL_arg2024z00_2063;
															BgL_aidzb2zb2_4094 = BgL_arg2025z00_2064;
															BgL_aidzb2zb2_2055 = BgL_aidzb2zb2_4094;
															BgL_oidzb2zb2_2054 = BgL_oidzb2zb2_4093;
															BgL_ozb2zb2_2053 = BgL_ozb2zb2_4092;
															goto BgL_zc3z04anonymousza32021ze3z87_2056;
														}
													}
												}
											}
									}
									{	/* Eval/expdargs.scm 336 */
										obj_t BgL_aidzb2zb2_1857;

										{	/* Eval/expdargs.scm 345 */
											obj_t BgL_tmpz00_2825;

											{	/* Eval/expdargs.scm 345 */
												int BgL_tmpz00_4095;

												BgL_tmpz00_4095 = (int) (1L);
												BgL_tmpz00_2825 = BGL_MVALUES_VAL(BgL_tmpz00_4095);
											}
											{	/* Eval/expdargs.scm 345 */
												int BgL_tmpz00_4098;

												BgL_tmpz00_4098 = (int) (1L);
												BGL_MVALUES_VAL_SET(BgL_tmpz00_4098, BUNSPEC);
											}
											BgL_aidzb2zb2_1857 = BgL_tmpz00_2825;
										}
										{	/* Eval/expdargs.scm 345 */
											bool_t BgL_test2723z00_4101;

											if (PAIRP(BgL_aidzb2zb2_1857))
												{
													obj_t BgL_l1137z00_2839;

													{	/* Eval/expdargs.scm 345 */
														obj_t BgL_tmpz00_4104;

														BgL_l1137z00_2839 = BgL_aidzb2zb2_1857;
													BgL_zc3z04anonymousza32019ze3z87_2838:
														if (NULLP(BgL_l1137z00_2839))
															{	/* Eval/expdargs.scm 345 */
																BgL_tmpz00_4104 = BFALSE;
															}
														else
															{	/* Eval/expdargs.scm 345 */
																obj_t BgL__ortest_1139z00_2845;

																BgL__ortest_1139z00_2845 =
																	CAR(((obj_t) BgL_l1137z00_2839));
																if (CBOOL(BgL__ortest_1139z00_2845))
																	{	/* Eval/expdargs.scm 345 */
																		BgL_tmpz00_4104 = BgL__ortest_1139z00_2845;
																	}
																else
																	{
																		obj_t BgL_l1137z00_4111;

																		BgL_l1137z00_4111 =
																			CDR(((obj_t) BgL_l1137z00_2839));
																		BgL_l1137z00_2839 = BgL_l1137z00_4111;
																		goto BgL_zc3z04anonymousza32019ze3z87_2838;
																	}
															}
														BgL_test2723z00_4101 = CBOOL(BgL_tmpz00_4104);
													}
												}
											else
												{	/* Eval/expdargs.scm 345 */
													BgL_test2723z00_4101 = ((bool_t) 0);
												}
											if (BgL_test2723z00_4101)
												{	/* Eval/expdargs.scm 345 */
													if (NULLP(BgL_argsz00_1854))
														{	/* Eval/expdargs.scm 359 */
															{
																obj_t BgL_l1147z00_2861;

																BgL_l1147z00_2861 = BgL_oidzb2zb2_1856;
															BgL_zc3z04anonymousza31869ze3z87_2860:
																if (PAIRP(BgL_l1147z00_2861))
																	{	/* Eval/expdargs.scm 360 */
																		BGl_bindzd2optionz12zc0zz__expander_argsz00
																			(BgL_otablez00_23, CAR(BgL_l1147z00_2861),
																			BgL_clausez00_22);
																		{
																			obj_t BgL_l1147z00_4121;

																			BgL_l1147z00_4121 =
																				CDR(BgL_l1147z00_2861);
																			BgL_l1147z00_2861 = BgL_l1147z00_4121;
																			goto
																				BgL_zc3z04anonymousza31869ze3z87_2860;
																		}
																	}
																else
																	{	/* Eval/expdargs.scm 360 */
																		((bool_t) 1);
																	}
															}
															{	/* Eval/expdargs.scm 361 */
																obj_t BgL_az00_1876;
																obj_t BgL_vz00_1877;
																obj_t BgL_naz00_1878;

																{	/* Eval/expdargs.scm 361 */

																	{	/* Eval/expdargs.scm 361 */

																		BgL_az00_1876 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																	}
																}
																{	/* Eval/expdargs.scm 362 */

																	{	/* Eval/expdargs.scm 362 */

																		BgL_vz00_1877 =
																			BGl_gensymz00zz__r4_symbols_6_4z00
																			(BFALSE);
																	}
																}
																BgL_naz00_1878 =
																	BGl_symbol2544z00zz__expander_argsz00;
																{	/* Eval/expdargs.scm 364 */
																	obj_t BgL_arg1873z00_1879;

																	{	/* Eval/expdargs.scm 364 */
																		obj_t BgL_arg1875z00_1880;
																		obj_t BgL_arg1876z00_1881;

																		{	/* Eval/expdargs.scm 364 */
																			obj_t BgL_arg1877z00_1882;

																			BgL_arg1877z00_1882 =
																				MAKE_YOUNG_PAIR(BgL_vz00_1877, BNIL);
																			BgL_arg1875z00_1880 =
																				MAKE_YOUNG_PAIR(BgL_az00_1876,
																				BgL_arg1877z00_1882);
																		}
																		{	/* Eval/expdargs.scm 366 */
																			obj_t BgL_arg1879z00_1883;

																			{	/* Eval/expdargs.scm 366 */
																				obj_t BgL_arg1880z00_1884;

																				{	/* Eval/expdargs.scm 366 */
																					obj_t BgL_arg1881z00_1885;
																					obj_t BgL_arg1882z00_1886;

																					{	/* Eval/expdargs.scm 366 */
																						obj_t BgL_arg1883z00_1887;
																						obj_t BgL_arg1884z00_1888;

																						{	/* Eval/expdargs.scm 366 */
																							obj_t BgL_arg1885z00_1889;

																							BgL_arg1885z00_1889 =
																								MAKE_YOUNG_PAIR(BgL_az00_1876,
																								BNIL);
																							BgL_arg1883z00_1887 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2530z00zz__expander_argsz00,
																								BgL_arg1885z00_1889);
																						}
																						{	/* Eval/expdargs.scm 367 */
																							obj_t BgL_arg1886z00_1890;

																							{	/* Eval/expdargs.scm 367 */
																								obj_t BgL_arg1888z00_1891;

																								{	/* Eval/expdargs.scm 367 */
																									obj_t BgL_arg1889z00_1892;
																									obj_t BgL_arg1890z00_1893;

																									if (NULLP(BgL_oidzb2zb2_1856))
																										{	/* Eval/expdargs.scm 367 */
																											BgL_arg1889z00_1892 =
																												BNIL;
																										}
																									else
																										{	/* Eval/expdargs.scm 367 */
																											obj_t
																												BgL_head1151z00_1897;
																											BgL_head1151z00_1897 =
																												MAKE_YOUNG_PAIR(BNIL,
																												BNIL);
																											{
																												obj_t
																													BgL_ll1149z00_1899;
																												obj_t
																													BgL_ll1150z00_1900;
																												obj_t
																													BgL_tail1152z00_1901;
																												BgL_ll1149z00_1899 =
																													BgL_oidzb2zb2_1856;
																												BgL_ll1150z00_1900 =
																													BgL_aidzb2zb2_1857;
																												BgL_tail1152z00_1901 =
																													BgL_head1151z00_1897;
																											BgL_zc3z04anonymousza31892ze3z87_1902:
																												if (NULLP
																													(BgL_ll1149z00_1899))
																													{	/* Eval/expdargs.scm 367 */
																														BgL_arg1889z00_1892
																															=
																															CDR
																															(BgL_head1151z00_1897);
																													}
																												else
																													{	/* Eval/expdargs.scm 367 */
																														obj_t
																															BgL_newtail1153z00_1904;
																														{	/* Eval/expdargs.scm 367 */
																															obj_t
																																BgL_arg1896z00_1907;
																															{	/* Eval/expdargs.scm 367 */
																																obj_t
																																	BgL_oidz00_1908;
																																obj_t
																																	BgL_aidz00_1909;
																																BgL_oidz00_1908
																																	=
																																	CAR(((obj_t)
																																		BgL_ll1149z00_1899));
																																BgL_aidz00_1909
																																	=
																																	CAR(((obj_t)
																																		BgL_ll1150z00_1900));
																																if (CBOOL
																																	(BgL_aidz00_1909))
																																	{	/* Eval/expdargs.scm 369 */
																																		long
																																			BgL_oidlz00_1910;
																																		BgL_oidlz00_1910
																																			=
																																			STRING_LENGTH
																																			(((obj_t)
																																				BgL_oidz00_1908));
																																		{	/* Eval/expdargs.scm 370 */
																																			obj_t
																																				BgL_arg1897z00_1911;
																																			obj_t
																																				BgL_arg1898z00_1912;
																																			{	/* Eval/expdargs.scm 370 */
																																				obj_t
																																					BgL_arg1899z00_1913;
																																				{	/* Eval/expdargs.scm 370 */
																																					obj_t
																																						BgL_arg1900z00_1914;
																																					{	/* Eval/expdargs.scm 370 */
																																						obj_t
																																							BgL_arg1901z00_1915;
																																						obj_t
																																							BgL_arg1905z00_1916;
																																						{	/* Eval/expdargs.scm 370 */
																																							obj_t
																																								BgL_arg1908z00_1917;
																																							BgL_arg1908z00_1917
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_az00_1876,
																																								BNIL);
																																							BgL_arg1901z00_1915
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BGl_symbol2458z00zz__expander_argsz00,
																																								BgL_arg1908z00_1917);
																																						}
																																						BgL_arg1905z00_1916
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BINT
																																							(BgL_oidlz00_1910),
																																							BNIL);
																																						BgL_arg1900z00_1914
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1901z00_1915,
																																							BgL_arg1905z00_1916);
																																					}
																																					BgL_arg1899z00_1913
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_oidz00_1908,
																																						BgL_arg1900z00_1914);
																																				}
																																				BgL_arg1897z00_1911
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2536z00zz__expander_argsz00,
																																					BgL_arg1899z00_1913);
																																			}
																																			{	/* Eval/expdargs.scm 371 */
																																				obj_t
																																					BgL_arg1909z00_1918;
																																				{	/* Eval/expdargs.scm 371 */
																																					obj_t
																																						BgL_arg1911z00_1919;
																																					{	/* Eval/expdargs.scm 371 */
																																						obj_t
																																							BgL_arg1914z00_1920;
																																						obj_t
																																							BgL_arg1915z00_1921;
																																						{	/* Eval/expdargs.scm 371 */
																																							obj_t
																																								BgL_arg1916z00_1922;
																																							obj_t
																																								BgL_arg1917z00_1923;
																																							{	/* Eval/expdargs.scm 371 */
																																								obj_t
																																									BgL_arg1918z00_1924;
																																								obj_t
																																									BgL_arg1920z00_1925;
																																								BgL_arg1918z00_1924
																																									=
																																									bstring_to_symbol
																																									(
																																									((obj_t) BgL_aidz00_1909));
																																								{	/* Eval/expdargs.scm 373 */
																																									obj_t
																																										BgL_arg1921z00_1926;
																																									{	/* Eval/expdargs.scm 373 */
																																										obj_t
																																											BgL_arg1922z00_1927;
																																										{	/* Eval/expdargs.scm 373 */
																																											obj_t
																																												BgL_arg1923z00_1928;
																																											obj_t
																																												BgL_arg1924z00_1929;
																																											{	/* Eval/expdargs.scm 373 */
																																												obj_t
																																													BgL_arg1925z00_1930;
																																												BgL_arg1925z00_1930
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BgL_az00_1876,
																																													BNIL);
																																												BgL_arg1923z00_1928
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2458z00zz__expander_argsz00,
																																													BgL_arg1925z00_1930);
																																											}
																																											{	/* Eval/expdargs.scm 375 */
																																												obj_t
																																													BgL_arg1926z00_1931;
																																												{	/* Eval/expdargs.scm 375 */
																																													obj_t
																																														BgL_arg1927z00_1932;
																																													{	/* Eval/expdargs.scm 375 */
																																														obj_t
																																															BgL_arg1928z00_1933;
																																														{	/* Eval/expdargs.scm 375 */
																																															obj_t
																																																BgL_arg1929z00_1934;
																																															{	/* Eval/expdargs.scm 375 */
																																																obj_t
																																																	BgL_arg1930z00_1935;
																																																BgL_arg1930z00_1935
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BgL_az00_1876,
																																																	BNIL);
																																																BgL_arg1929z00_1934
																																																	=
																																																	MAKE_YOUNG_PAIR
																																																	(BGl_symbol2458z00zz__expander_argsz00,
																																																	BgL_arg1930z00_1935);
																																															}
																																															BgL_arg1928z00_1933
																																																=
																																																MAKE_YOUNG_PAIR
																																																(BgL_arg1929z00_1934,
																																																BNIL);
																																														}
																																														BgL_arg1927z00_1932
																																															=
																																															MAKE_YOUNG_PAIR
																																															(BGl_symbol2540z00zz__expander_argsz00,
																																															BgL_arg1928z00_1933);
																																													}
																																													BgL_arg1926z00_1931
																																														=
																																														MAKE_YOUNG_PAIR
																																														(BgL_arg1927z00_1932,
																																														BNIL);
																																												}
																																												BgL_arg1924z00_1929
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BINT
																																													(BgL_oidlz00_1910),
																																													BgL_arg1926z00_1931);
																																											}
																																											BgL_arg1922z00_1927
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1923z00_1928,
																																												BgL_arg1924z00_1929);
																																										}
																																										BgL_arg1921z00_1926
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2542z00zz__expander_argsz00,
																																											BgL_arg1922z00_1927);
																																									}
																																									BgL_arg1920z00_1925
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1921z00_1926,
																																										BNIL);
																																								}
																																								BgL_arg1916z00_1922
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BgL_arg1918z00_1924,
																																									BgL_arg1920z00_1925);
																																							}
																																							{	/* Eval/expdargs.scm 376 */
																																								obj_t
																																									BgL_arg1931z00_1936;
																																								obj_t
																																									BgL_arg1933z00_1937;
																																								BgL_arg1931z00_1936
																																									=
																																									BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00
																																									(BgL_argsz00_1854,
																																									BgL_az00_1876,
																																									BgL_naz00_1878,
																																									BgL_clausez00_22);
																																								{	/* Eval/expdargs.scm 377 */
																																									obj_t
																																										BgL_arg1934z00_1938;
																																									{	/* Eval/expdargs.scm 377 */
																																										obj_t
																																											BgL_arg1935z00_1939;
																																										{	/* Eval/expdargs.scm 377 */
																																											obj_t
																																												BgL_arg1936z00_1940;
																																											{	/* Eval/expdargs.scm 377 */
																																												obj_t
																																													BgL_arg1937z00_1941;
																																												BgL_arg1937z00_1941
																																													=
																																													BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																													(BgL_exprza2za2_1855,
																																													BNIL);
																																												BgL_arg1936z00_1940
																																													=
																																													MAKE_YOUNG_PAIR
																																													(BGl_symbol2528z00zz__expander_argsz00,
																																													BgL_arg1937z00_1941);
																																											}
																																											BgL_arg1935z00_1939
																																												=
																																												MAKE_YOUNG_PAIR
																																												(BgL_arg1936z00_1940,
																																												BNIL);
																																										}
																																										BgL_arg1934z00_1938
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2490z00zz__expander_argsz00,
																																											BgL_arg1935z00_1939);
																																									}
																																									BgL_arg1933z00_1937
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1934z00_1938,
																																										BNIL);
																																								}
																																								BgL_arg1917z00_1923
																																									=
																																									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																																									(BgL_arg1931z00_1936,
																																									BgL_arg1933z00_1937);
																																							}
																																							BgL_arg1914z00_1920
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1916z00_1922,
																																								BgL_arg1917z00_1923);
																																						}
																																						{	/* Eval/expdargs.scm 378 */
																																							obj_t
																																								BgL_arg1938z00_1942;
																																							{	/* Eval/expdargs.scm 378 */
																																								obj_t
																																									BgL_arg1939z00_1943;
																																								{	/* Eval/expdargs.scm 378 */
																																									obj_t
																																										BgL_arg1940z00_1944;
																																									obj_t
																																										BgL_arg1941z00_1945;
																																									{	/* Eval/expdargs.scm 378 */
																																										obj_t
																																											BgL_arg1942z00_1946;
																																										BgL_arg1942z00_1946
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2496z00zz__expander_argsz00,
																																											BNIL);
																																										BgL_arg1940z00_1944
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2454z00zz__expander_argsz00,
																																											BgL_arg1942z00_1946);
																																									}
																																									{	/* Eval/expdargs.scm 378 */
																																										obj_t
																																											BgL_arg1943z00_1947;
																																										BgL_arg1943z00_1947
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BGl_symbol2490z00zz__expander_argsz00,
																																											BNIL);
																																										BgL_arg1941z00_1945
																																											=
																																											MAKE_YOUNG_PAIR
																																											(BgL_naz00_1878,
																																											BgL_arg1943z00_1947);
																																									}
																																									BgL_arg1939z00_1943
																																										=
																																										MAKE_YOUNG_PAIR
																																										(BgL_arg1940z00_1944,
																																										BgL_arg1941z00_1945);
																																								}
																																								BgL_arg1938z00_1942
																																									=
																																									MAKE_YOUNG_PAIR
																																									(BGl_symbol2456z00zz__expander_argsz00,
																																									BgL_arg1939z00_1943);
																																							}
																																							BgL_arg1915z00_1921
																																								=
																																								MAKE_YOUNG_PAIR
																																								(BgL_arg1938z00_1942,
																																								BNIL);
																																						}
																																						BgL_arg1911z00_1919
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_arg1914z00_1920,
																																							BgL_arg1915z00_1921);
																																					}
																																					BgL_arg1909z00_1918
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BGl_symbol2512z00zz__expander_argsz00,
																																						BgL_arg1911z00_1919);
																																				}
																																				BgL_arg1898z00_1912
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BgL_arg1909z00_1918,
																																					BNIL);
																																			}
																																			BgL_arg1896z00_1907
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1897z00_1911,
																																				BgL_arg1898z00_1912);
																																	}}
																																else
																																	{	/* Eval/expdargs.scm 379 */
																																		obj_t
																																			BgL_arg1944z00_1948;
																																		{	/* Eval/expdargs.scm 379 */
																																			obj_t
																																				BgL_arg1945z00_1949;
																																			{	/* Eval/expdargs.scm 379 */
																																				obj_t
																																					BgL_arg1946z00_1950;
																																				{	/* Eval/expdargs.scm 379 */
																																					obj_t
																																						BgL_arg1947z00_1951;
																																					obj_t
																																						BgL_arg1948z00_1952;
																																					{	/* Eval/expdargs.scm 379 */
																																						obj_t
																																							BgL_arg1949z00_1953;
																																						BgL_arg1949z00_1953
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol2500z00zz__expander_argsz00,
																																							BNIL);
																																						BgL_arg1947z00_1951
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BGl_symbol2454z00zz__expander_argsz00,
																																							BgL_arg1949z00_1953);
																																					}
																																					{	/* Eval/expdargs.scm 379 */
																																						obj_t
																																							BgL_arg1950z00_1954;
																																						BgL_arg1950z00_1954
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_vz00_1877,
																																							BNIL);
																																						BgL_arg1948z00_1952
																																							=
																																							MAKE_YOUNG_PAIR
																																							(BgL_az00_1876,
																																							BgL_arg1950z00_1954);
																																					}
																																					BgL_arg1946z00_1950
																																						=
																																						MAKE_YOUNG_PAIR
																																						(BgL_arg1947z00_1951,
																																						BgL_arg1948z00_1952);
																																				}
																																				BgL_arg1945z00_1949
																																					=
																																					MAKE_YOUNG_PAIR
																																					(BGl_symbol2456z00zz__expander_argsz00,
																																					BgL_arg1946z00_1950);
																																			}
																																			BgL_arg1944z00_1948
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_arg1945z00_1949,
																																				BNIL);
																																		}
																																		BgL_arg1896z00_1907
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BGl_symbol2521z00zz__expander_argsz00,
																																			BgL_arg1944z00_1948);
																																	}
																															}
																															BgL_newtail1153z00_1904
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_arg1896z00_1907,
																																BNIL);
																														}
																														SET_CDR
																															(BgL_tail1152z00_1901,
																															BgL_newtail1153z00_1904);
																														{	/* Eval/expdargs.scm 367 */
																															obj_t
																																BgL_arg1894z00_1905;
																															obj_t
																																BgL_arg1895z00_1906;
																															BgL_arg1894z00_1905
																																=
																																CDR(((obj_t)
																																	BgL_ll1149z00_1899));
																															BgL_arg1895z00_1906
																																=
																																CDR(((obj_t)
																																	BgL_ll1150z00_1900));
																															{
																																obj_t
																																	BgL_tail1152z00_4200;
																																obj_t
																																	BgL_ll1150z00_4199;
																																obj_t
																																	BgL_ll1149z00_4198;
																																BgL_ll1149z00_4198
																																	=
																																	BgL_arg1894z00_1905;
																																BgL_ll1150z00_4199
																																	=
																																	BgL_arg1895z00_1906;
																																BgL_tail1152z00_4200
																																	=
																																	BgL_newtail1153z00_1904;
																																BgL_tail1152z00_1901
																																	=
																																	BgL_tail1152z00_4200;
																																BgL_ll1150z00_1900
																																	=
																																	BgL_ll1150z00_4199;
																																BgL_ll1149z00_1899
																																	=
																																	BgL_ll1149z00_4198;
																																goto
																																	BgL_zc3z04anonymousza31892ze3z87_1902;
																															}
																														}
																													}
																											}
																										}
																									{	/* Eval/expdargs.scm 381 */
																										obj_t BgL_arg1951z00_1956;

																										{	/* Eval/expdargs.scm 381 */
																											obj_t BgL_arg1952z00_1957;

																											{	/* Eval/expdargs.scm 381 */
																												obj_t
																													BgL_arg1953z00_1958;
																												{	/* Eval/expdargs.scm 381 */
																													obj_t
																														BgL_arg1954z00_1959;
																													{	/* Eval/expdargs.scm 381 */
																														obj_t
																															BgL_arg1955z00_1960;
																														obj_t
																															BgL_arg1956z00_1961;
																														{	/* Eval/expdargs.scm 381 */
																															obj_t
																																BgL_arg1957z00_1962;
																															BgL_arg1957z00_1962
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2500z00zz__expander_argsz00,
																																BNIL);
																															BgL_arg1955z00_1960
																																=
																																MAKE_YOUNG_PAIR
																																(BGl_symbol2454z00zz__expander_argsz00,
																																BgL_arg1957z00_1962);
																														}
																														{	/* Eval/expdargs.scm 381 */
																															obj_t
																																BgL_arg1958z00_1963;
																															BgL_arg1958z00_1963
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_vz00_1877,
																																BNIL);
																															BgL_arg1956z00_1961
																																=
																																MAKE_YOUNG_PAIR
																																(BgL_az00_1876,
																																BgL_arg1958z00_1963);
																														}
																														BgL_arg1954z00_1959
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1955z00_1960,
																															BgL_arg1956z00_1961);
																													}
																													BgL_arg1953z00_1958 =
																														MAKE_YOUNG_PAIR
																														(BGl_symbol2456z00zz__expander_argsz00,
																														BgL_arg1954z00_1959);
																												}
																												BgL_arg1952z00_1957 =
																													MAKE_YOUNG_PAIR
																													(BgL_arg1953z00_1958,
																													BNIL);
																											}
																											BgL_arg1951z00_1956 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2521z00zz__expander_argsz00,
																												BgL_arg1952z00_1957);
																										}
																										BgL_arg1890z00_1893 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1951z00_1956,
																											BNIL);
																									}
																									BgL_arg1888z00_1891 =
																										BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																										(BgL_arg1889z00_1892,
																										BgL_arg1890z00_1893);
																								}
																								BgL_arg1886z00_1890 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2548z00zz__expander_argsz00,
																									BgL_arg1888z00_1891);
																							}
																							BgL_arg1884z00_1888 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg1886z00_1890, BNIL);
																						}
																						BgL_arg1881z00_1885 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1883z00_1887,
																							BgL_arg1884z00_1888);
																					}
																					{	/* Eval/expdargs.scm 383 */
																						obj_t BgL_arg1959z00_1964;

																						{	/* Eval/expdargs.scm 383 */
																							obj_t BgL_arg1960z00_1965;

																							{	/* Eval/expdargs.scm 383 */
																								obj_t BgL_arg1961z00_1966;

																								{	/* Eval/expdargs.scm 383 */
																									obj_t BgL_arg1962z00_1967;

																									{	/* Eval/expdargs.scm 383 */
																										obj_t BgL_arg1963z00_1968;
																										obj_t BgL_arg1964z00_1969;

																										{	/* Eval/expdargs.scm 383 */
																											obj_t BgL_arg1965z00_1970;

																											BgL_arg1965z00_1970 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2500z00zz__expander_argsz00,
																												BNIL);
																											BgL_arg1963z00_1968 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2454z00zz__expander_argsz00,
																												BgL_arg1965z00_1970);
																										}
																										{	/* Eval/expdargs.scm 383 */
																											obj_t BgL_arg1966z00_1971;

																											BgL_arg1966z00_1971 =
																												MAKE_YOUNG_PAIR
																												(BgL_vz00_1877, BNIL);
																											BgL_arg1964z00_1969 =
																												MAKE_YOUNG_PAIR
																												(BgL_az00_1876,
																												BgL_arg1966z00_1971);
																										}
																										BgL_arg1962z00_1967 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg1963z00_1968,
																											BgL_arg1964z00_1969);
																									}
																									BgL_arg1961z00_1966 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2456z00zz__expander_argsz00,
																										BgL_arg1962z00_1967);
																								}
																								BgL_arg1960z00_1965 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg1961z00_1966, BNIL);
																							}
																							BgL_arg1959z00_1964 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2521z00zz__expander_argsz00,
																								BgL_arg1960z00_1965);
																						}
																						BgL_arg1882z00_1886 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1959z00_1964, BNIL);
																					}
																					BgL_arg1880z00_1884 =
																						MAKE_YOUNG_PAIR(BgL_arg1881z00_1885,
																						BgL_arg1882z00_1886);
																				}
																				BgL_arg1879z00_1883 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2548z00zz__expander_argsz00,
																					BgL_arg1880z00_1884);
																			}
																			BgL_arg1876z00_1881 =
																				MAKE_YOUNG_PAIR(BgL_arg1879z00_1883,
																				BNIL);
																		}
																		BgL_arg1873z00_1879 =
																			MAKE_YOUNG_PAIR(BgL_arg1875z00_1880,
																			BgL_arg1876z00_1881);
																	}
																	return
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2466z00zz__expander_argsz00,
																		BgL_arg1873z00_1879);
																}
															}
														}
													else
														{	/* Eval/expdargs.scm 359 */
															return
																BGl_expandzd2errorzd2zz__expandz00
																(BGl_string2440z00zz__expander_argsz00,
																BGl_string2524z00zz__expander_argsz00,
																BgL_clausez00_22);
														}
												}
											else
												{	/* Eval/expdargs.scm 345 */
													{
														obj_t BgL_l1140z00_2889;

														BgL_l1140z00_2889 = BgL_oidzb2zb2_1856;
													BgL_zc3z04anonymousza31967ze3z87_2888:
														if (PAIRP(BgL_l1140z00_2889))
															{	/* Eval/expdargs.scm 346 */
																BGl_bindzd2optionz12zc0zz__expander_argsz00
																	(BgL_otablez00_23, CAR(BgL_l1140z00_2889),
																	BgL_clausez00_22);
																{
																	obj_t BgL_l1140z00_4233;

																	BgL_l1140z00_4233 = CDR(BgL_l1140z00_2889);
																	BgL_l1140z00_2889 = BgL_l1140z00_4233;
																	goto BgL_zc3z04anonymousza31967ze3z87_2888;
																}
															}
														else
															{	/* Eval/expdargs.scm 346 */
																((bool_t) 1);
															}
													}
													{	/* Eval/expdargs.scm 347 */
														obj_t BgL_az00_1981;
														obj_t BgL_vz00_1982;
														obj_t BgL_naz00_1983;

														{	/* Eval/expdargs.scm 347 */

															{	/* Eval/expdargs.scm 347 */

																BgL_az00_1981 =
																	BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
															}
														}
														{	/* Eval/expdargs.scm 348 */

															{	/* Eval/expdargs.scm 348 */

																BgL_vz00_1982 =
																	BGl_gensymz00zz__r4_symbols_6_4z00(BFALSE);
															}
														}
														BgL_naz00_1983 =
															BGl_symbol2544z00zz__expander_argsz00;
														{	/* Eval/expdargs.scm 350 */
															obj_t BgL_arg1970z00_1984;

															{	/* Eval/expdargs.scm 350 */
																obj_t BgL_arg1971z00_1985;
																obj_t BgL_arg1972z00_1986;

																{	/* Eval/expdargs.scm 350 */
																	obj_t BgL_arg1973z00_1987;

																	BgL_arg1973z00_1987 =
																		MAKE_YOUNG_PAIR(BgL_vz00_1982, BNIL);
																	BgL_arg1971z00_1985 =
																		MAKE_YOUNG_PAIR(BgL_az00_1981,
																		BgL_arg1973z00_1987);
																}
																{	/* Eval/expdargs.scm 351 */
																	obj_t BgL_arg1974z00_1988;

																	{	/* Eval/expdargs.scm 351 */
																		obj_t BgL_arg1975z00_1989;

																		{	/* Eval/expdargs.scm 351 */
																			obj_t BgL_arg1976z00_1990;
																			obj_t BgL_arg1977z00_1991;

																			{	/* Eval/expdargs.scm 351 */
																				obj_t BgL_arg1978z00_1992;

																				{	/* Eval/expdargs.scm 351 */
																					obj_t BgL_arg1979z00_1993;
																					obj_t BgL_arg1980z00_1994;

																					{	/* Eval/expdargs.scm 351 */
																						obj_t BgL_arg1981z00_1995;

																						BgL_arg1981z00_1995 =
																							MAKE_YOUNG_PAIR(BgL_az00_1981,
																							BNIL);
																						BgL_arg1979z00_1993 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2530z00zz__expander_argsz00,
																							BgL_arg1981z00_1995);
																					}
																					{	/* Eval/expdargs.scm 352 */
																						obj_t BgL_arg1982z00_1996;

																						{	/* Eval/expdargs.scm 352 */
																							obj_t BgL_arg1983z00_1997;

																							{	/* Eval/expdargs.scm 352 */
																								obj_t BgL_arg1984z00_1998;

																								if (NULLP(BgL_ozb2zb2_1853))
																									{	/* Eval/expdargs.scm 352 */
																										BgL_arg1984z00_1998 = BNIL;
																									}
																								else
																									{	/* Eval/expdargs.scm 352 */
																										obj_t BgL_head1144z00_2001;

																										BgL_head1144z00_2001 =
																											MAKE_YOUNG_PAIR(BNIL,
																											BNIL);
																										{
																											obj_t BgL_l1142z00_2003;
																											obj_t
																												BgL_tail1145z00_2004;
																											BgL_l1142z00_2003 =
																												BgL_ozb2zb2_1853;
																											BgL_tail1145z00_2004 =
																												BgL_head1144z00_2001;
																										BgL_zc3z04anonymousza31986ze3z87_2005:
																											if (NULLP
																												(BgL_l1142z00_2003))
																												{	/* Eval/expdargs.scm 352 */
																													BgL_arg1984z00_1998 =
																														CDR
																														(BgL_head1144z00_2001);
																												}
																											else
																												{	/* Eval/expdargs.scm 352 */
																													obj_t
																														BgL_newtail1146z00_2007;
																													{	/* Eval/expdargs.scm 352 */
																														obj_t
																															BgL_arg1989z00_2009;
																														{	/* Eval/expdargs.scm 352 */
																															obj_t
																																BgL_oz00_2010;
																															BgL_oz00_2010 =
																																CAR(((obj_t)
																																	BgL_l1142z00_2003));
																															{	/* Eval/expdargs.scm 353 */
																																obj_t
																																	BgL_arg1990z00_2011;
																																{	/* Eval/expdargs.scm 353 */
																																	obj_t
																																		BgL_arg1991z00_2012;
																																	{	/* Eval/expdargs.scm 353 */
																																		obj_t
																																			BgL_arg1992z00_2013;
																																		{	/* Eval/expdargs.scm 353 */
																																			obj_t
																																				BgL_arg1993z00_2014;
																																			BgL_arg1993z00_2014
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BgL_az00_1981,
																																				BNIL);
																																			BgL_arg1992z00_2013
																																				=
																																				MAKE_YOUNG_PAIR
																																				(BGl_symbol2458z00zz__expander_argsz00,
																																				BgL_arg1993z00_2014);
																																		}
																																		BgL_arg1991z00_2012
																																			=
																																			MAKE_YOUNG_PAIR
																																			(BgL_arg1992z00_2013,
																																			BNIL);
																																	}
																																	BgL_arg1990z00_2011
																																		=
																																		MAKE_YOUNG_PAIR
																																		(BgL_oz00_2010,
																																		BgL_arg1991z00_2012);
																																}
																																BgL_arg1989z00_2009
																																	=
																																	MAKE_YOUNG_PAIR
																																	(BGl_symbol2546z00zz__expander_argsz00,
																																	BgL_arg1990z00_2011);
																															}
																														}
																														BgL_newtail1146z00_2007
																															=
																															MAKE_YOUNG_PAIR
																															(BgL_arg1989z00_2009,
																															BNIL);
																													}
																													SET_CDR
																														(BgL_tail1145z00_2004,
																														BgL_newtail1146z00_2007);
																													{	/* Eval/expdargs.scm 352 */
																														obj_t
																															BgL_arg1988z00_2008;
																														BgL_arg1988z00_2008
																															=
																															CDR(((obj_t)
																																BgL_l1142z00_2003));
																														{
																															obj_t
																																BgL_tail1145z00_4259;
																															obj_t
																																BgL_l1142z00_4258;
																															BgL_l1142z00_4258
																																=
																																BgL_arg1988z00_2008;
																															BgL_tail1145z00_4259
																																=
																																BgL_newtail1146z00_2007;
																															BgL_tail1145z00_2004
																																=
																																BgL_tail1145z00_4259;
																															BgL_l1142z00_2003
																																=
																																BgL_l1142z00_4258;
																															goto
																																BgL_zc3z04anonymousza31986ze3z87_2005;
																														}
																													}
																												}
																										}
																									}
																								BgL_arg1983z00_1997 =
																									BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																									(BgL_arg1984z00_1998, BNIL);
																							}
																							BgL_arg1982z00_1996 =
																								MAKE_YOUNG_PAIR
																								(BGl_symbol2550z00zz__expander_argsz00,
																								BgL_arg1983z00_1997);
																						}
																						BgL_arg1980z00_1994 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1982z00_1996, BNIL);
																					}
																					BgL_arg1978z00_1992 =
																						MAKE_YOUNG_PAIR(BgL_arg1979z00_1993,
																						BgL_arg1980z00_1994);
																				}
																				BgL_arg1976z00_1990 =
																					MAKE_YOUNG_PAIR
																					(BGl_symbol2538z00zz__expander_argsz00,
																					BgL_arg1978z00_1992);
																			}
																			{	/* Eval/expdargs.scm 355 */
																				obj_t BgL_arg1994z00_2016;
																				obj_t BgL_arg1995z00_2017;

																				{	/* Eval/expdargs.scm 355 */
																					obj_t BgL_arg1996z00_2018;

																					{	/* Eval/expdargs.scm 355 */
																						obj_t BgL_arg1997z00_2019;
																						obj_t BgL_arg1998z00_2020;

																						{	/* Eval/expdargs.scm 355 */
																							obj_t BgL_arg1999z00_2021;
																							obj_t BgL_arg2000z00_2022;

																							BgL_arg1999z00_2021 =
																								BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00
																								(BgL_argsz00_1854,
																								BgL_az00_1981, BgL_naz00_1983,
																								BgL_clausez00_22);
																							{	/* Eval/expdargs.scm 356 */
																								obj_t BgL_arg2001z00_2023;

																								{	/* Eval/expdargs.scm 356 */
																									obj_t BgL_arg2002z00_2024;

																									{	/* Eval/expdargs.scm 356 */
																										obj_t BgL_arg2003z00_2025;

																										{	/* Eval/expdargs.scm 356 */
																											obj_t BgL_arg2004z00_2026;

																											BgL_arg2004z00_2026 =
																												BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																												(BgL_exprza2za2_1855,
																												BNIL);
																											BgL_arg2003z00_2025 =
																												MAKE_YOUNG_PAIR
																												(BGl_symbol2528z00zz__expander_argsz00,
																												BgL_arg2004z00_2026);
																										}
																										BgL_arg2002z00_2024 =
																											MAKE_YOUNG_PAIR
																											(BgL_arg2003z00_2025,
																											BNIL);
																									}
																									BgL_arg2001z00_2023 =
																										MAKE_YOUNG_PAIR
																										(BGl_symbol2490z00zz__expander_argsz00,
																										BgL_arg2002z00_2024);
																								}
																								BgL_arg2000z00_2022 =
																									MAKE_YOUNG_PAIR
																									(BgL_arg2001z00_2023, BNIL);
																							}
																							BgL_arg1997z00_2019 =
																								BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00
																								(BgL_arg1999z00_2021,
																								BgL_arg2000z00_2022);
																						}
																						{	/* Eval/expdargs.scm 357 */
																							obj_t BgL_arg2006z00_2027;

																							{	/* Eval/expdargs.scm 357 */
																								obj_t BgL_arg2007z00_2028;

																								{	/* Eval/expdargs.scm 357 */
																									obj_t BgL_arg2008z00_2029;
																									obj_t BgL_arg2009z00_2030;

																									{	/* Eval/expdargs.scm 357 */
																										obj_t BgL_arg2010z00_2031;

																										BgL_arg2010z00_2031 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2496z00zz__expander_argsz00,
																											BNIL);
																										BgL_arg2008z00_2029 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2454z00zz__expander_argsz00,
																											BgL_arg2010z00_2031);
																									}
																									{	/* Eval/expdargs.scm 357 */
																										obj_t BgL_arg2011z00_2032;

																										BgL_arg2011z00_2032 =
																											MAKE_YOUNG_PAIR
																											(BGl_symbol2490z00zz__expander_argsz00,
																											BNIL);
																										BgL_arg2009z00_2030 =
																											MAKE_YOUNG_PAIR
																											(BgL_naz00_1983,
																											BgL_arg2011z00_2032);
																									}
																									BgL_arg2007z00_2028 =
																										MAKE_YOUNG_PAIR
																										(BgL_arg2008z00_2029,
																										BgL_arg2009z00_2030);
																								}
																								BgL_arg2006z00_2027 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2456z00zz__expander_argsz00,
																									BgL_arg2007z00_2028);
																							}
																							BgL_arg1998z00_2020 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg2006z00_2027, BNIL);
																						}
																						BgL_arg1996z00_2018 =
																							MAKE_YOUNG_PAIR
																							(BgL_arg1997z00_2019,
																							BgL_arg1998z00_2020);
																					}
																					BgL_arg1994z00_2016 =
																						MAKE_YOUNG_PAIR
																						(BGl_symbol2512z00zz__expander_argsz00,
																						BgL_arg1996z00_2018);
																				}
																				{	/* Eval/expdargs.scm 358 */
																					obj_t BgL_arg2012z00_2033;

																					{	/* Eval/expdargs.scm 358 */
																						obj_t BgL_arg2013z00_2034;

																						{	/* Eval/expdargs.scm 358 */
																							obj_t BgL_arg2014z00_2035;
																							obj_t BgL_arg2015z00_2036;

																							{	/* Eval/expdargs.scm 358 */
																								obj_t BgL_arg2016z00_2037;

																								BgL_arg2016z00_2037 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2500z00zz__expander_argsz00,
																									BNIL);
																								BgL_arg2014z00_2035 =
																									MAKE_YOUNG_PAIR
																									(BGl_symbol2454z00zz__expander_argsz00,
																									BgL_arg2016z00_2037);
																							}
																							{	/* Eval/expdargs.scm 358 */
																								obj_t BgL_arg2018z00_2038;

																								BgL_arg2018z00_2038 =
																									MAKE_YOUNG_PAIR(BgL_vz00_1982,
																									BNIL);
																								BgL_arg2015z00_2036 =
																									MAKE_YOUNG_PAIR(BgL_az00_1981,
																									BgL_arg2018z00_2038);
																							}
																							BgL_arg2013z00_2034 =
																								MAKE_YOUNG_PAIR
																								(BgL_arg2014z00_2035,
																								BgL_arg2015z00_2036);
																						}
																						BgL_arg2012z00_2033 =
																							MAKE_YOUNG_PAIR
																							(BGl_symbol2456z00zz__expander_argsz00,
																							BgL_arg2013z00_2034);
																					}
																					BgL_arg1995z00_2017 =
																						MAKE_YOUNG_PAIR(BgL_arg2012z00_2033,
																						BNIL);
																				}
																				BgL_arg1977z00_1991 =
																					MAKE_YOUNG_PAIR(BgL_arg1994z00_2016,
																					BgL_arg1995z00_2017);
																			}
																			BgL_arg1975z00_1989 =
																				MAKE_YOUNG_PAIR(BgL_arg1976z00_1990,
																				BgL_arg1977z00_1991);
																		}
																		BgL_arg1974z00_1988 =
																			MAKE_YOUNG_PAIR
																			(BGl_symbol2464z00zz__expander_argsz00,
																			BgL_arg1975z00_1989);
																	}
																	BgL_arg1972z00_1986 =
																		MAKE_YOUNG_PAIR(BgL_arg1974z00_1988, BNIL);
																}
																BgL_arg1970z00_1984 =
																	MAKE_YOUNG_PAIR(BgL_arg1971z00_1985,
																	BgL_arg1972z00_1986);
															}
															return
																MAKE_YOUNG_PAIR
																(BGl_symbol2466z00zz__expander_argsz00,
																BgL_arg1970z00_1984);
														}
													}
												}
										}
									}
								}
							}
						}
					}
				}
			}
		}

	}



/* fetch-option-arguments */
	obj_t BGl_fetchzd2optionzd2argumentsz00zz__expander_argsz00(obj_t
		BgL_optz00_24)
	{
		{	/* Eval/expdargs.scm 392 */
			{	/* Eval/expdargs.scm 393 */
				obj_t BgL_g1045z00_2067;

				BgL_g1045z00_2067 = CDR(((obj_t) BgL_optz00_24));
				{
					obj_t BgL_iz00_2922;
					obj_t BgL_resz00_2923;

					BgL_iz00_2922 = BgL_g1045z00_2067;
					BgL_resz00_2923 = BNIL;
				BgL_loopz00_2921:
					{	/* Eval/expdargs.scm 396 */
						bool_t BgL_test2735z00_4296;

						if (NULLP(BgL_iz00_2922))
							{	/* Eval/expdargs.scm 396 */
								BgL_test2735z00_4296 = ((bool_t) 1);
							}
						else
							{	/* Eval/expdargs.scm 396 */
								BgL_test2735z00_4296 =
									BGl_helpzd2messagezf3z21zz__expander_argsz00(CAR(
										((obj_t) BgL_iz00_2922)));
							}
						if (BgL_test2735z00_4296)
							{	/* Eval/expdargs.scm 396 */
								return bgl_reverse_bang(BgL_resz00_2923);
							}
						else
							{	/* Eval/expdargs.scm 399 */
								obj_t BgL_arg2033z00_2933;
								obj_t BgL_arg2034z00_2934;

								BgL_arg2033z00_2933 = CDR(((obj_t) BgL_iz00_2922));
								{	/* Eval/expdargs.scm 399 */
									obj_t BgL_arg2036z00_2935;

									BgL_arg2036z00_2935 = CAR(((obj_t) BgL_iz00_2922));
									BgL_arg2034z00_2934 =
										MAKE_YOUNG_PAIR(BgL_arg2036z00_2935, BgL_resz00_2923);
								}
								{
									obj_t BgL_resz00_4309;
									obj_t BgL_iz00_4308;

									BgL_iz00_4308 = BgL_arg2033z00_2933;
									BgL_resz00_4309 = BgL_arg2034z00_2934;
									BgL_resz00_2923 = BgL_resz00_4309;
									BgL_iz00_2922 = BgL_iz00_4308;
									goto BgL_loopz00_2921;
								}
							}
					}
				}
			}
		}

	}



/* bind-option-arguments */
	obj_t BGl_bindzd2optionzd2argumentsz00zz__expander_argsz00(obj_t
		BgL_argsz00_25, obj_t BgL_azb2zb2_26, obj_t BgL_naz00_27,
		obj_t BgL_clausez00_28)
	{
		{	/* Eval/expdargs.scm 404 */
			{	/* Eval/expdargs.scm 405 */
				obj_t BgL_arg2038z00_2082;
				obj_t BgL_arg2039z00_2083;

				{	/* Eval/expdargs.scm 405 */
					obj_t BgL_arg2040z00_2084;

					{	/* Eval/expdargs.scm 405 */
						obj_t BgL_arg2041z00_2085;

						{	/* Eval/expdargs.scm 405 */
							obj_t BgL_arg2042z00_2086;

							BgL_arg2042z00_2086 = MAKE_YOUNG_PAIR(BgL_azb2zb2_26, BNIL);
							BgL_arg2041z00_2085 =
								MAKE_YOUNG_PAIR(BGl_symbol2502z00zz__expander_argsz00,
								BgL_arg2042z00_2086);
						}
						BgL_arg2040z00_2084 = MAKE_YOUNG_PAIR(BgL_arg2041z00_2085, BNIL);
					}
					BgL_arg2038z00_2082 =
						MAKE_YOUNG_PAIR(BgL_naz00_27, BgL_arg2040z00_2084);
				}
				BgL_arg2039z00_2083 =
					BGl_loopze70ze7zz__expander_argsz00(BgL_naz00_27, BgL_clausez00_28,
					BgL_argsz00_25);
				return MAKE_YOUNG_PAIR(BgL_arg2038z00_2082, BgL_arg2039z00_2083);
			}
		}

	}



/* loop~0 */
	obj_t BGl_loopze70ze7zz__expander_argsz00(obj_t BgL_naz00_3204,
		obj_t BgL_clausez00_3203, obj_t BgL_argsz00_2088)
	{
		{	/* Eval/expdargs.scm 406 */
			if (PAIRP(BgL_argsz00_2088))
				{	/* Eval/expdargs.scm 408 */
					obj_t BgL_idz00_2091;

					BgL_idz00_2091 =
						BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(CAR
						(BgL_argsz00_2088), BgL_clausez00_3203);
					{	/* Eval/expdargs.scm 409 */
						obj_t BgL_arg2046z00_2092;
						obj_t BgL_arg2047z00_2093;

						{	/* Eval/expdargs.scm 409 */
							obj_t BgL_arg2048z00_2094;
							obj_t BgL_arg2049z00_2095;

							BgL_arg2048z00_2094 = bstring_to_symbol(((obj_t) BgL_idz00_2091));
							{	/* Eval/expdargs.scm 410 */
								obj_t BgL_arg2050z00_2096;

								{	/* Eval/expdargs.scm 410 */
									obj_t BgL_arg2051z00_2097;

									{	/* Eval/expdargs.scm 410 */
										obj_t BgL_arg2053z00_2098;
										obj_t BgL_arg2054z00_2099;

										{	/* Eval/expdargs.scm 410 */
											obj_t BgL_arg2055z00_2100;

											BgL_arg2055z00_2100 =
												MAKE_YOUNG_PAIR(BgL_naz00_3204, BNIL);
											BgL_arg2053z00_2098 =
												MAKE_YOUNG_PAIR(BGl_symbol2530z00zz__expander_argsz00,
												BgL_arg2055z00_2100);
										}
										{	/* Eval/expdargs.scm 411 */
											obj_t BgL_arg2056z00_2101;
											obj_t BgL_arg2057z00_2102;

											{	/* Eval/expdargs.scm 411 */
												obj_t BgL_arg2058z00_2103;

												BgL_arg2058z00_2103 =
													MAKE_YOUNG_PAIR(BgL_naz00_3204, BNIL);
												BgL_arg2056z00_2101 =
													MAKE_YOUNG_PAIR(BGl_symbol2458z00zz__expander_argsz00,
													BgL_arg2058z00_2103);
											}
											{	/* Eval/expdargs.scm 412 */
												obj_t BgL_arg2059z00_2104;

												{	/* Eval/expdargs.scm 412 */
													obj_t BgL_arg2060z00_2105;

													{	/* Eval/expdargs.scm 412 */
														obj_t BgL_arg2061z00_2106;
														obj_t BgL_arg2062z00_2107;

														{	/* Eval/expdargs.scm 412 */
															obj_t BgL_arg2063z00_2108;

															BgL_arg2063z00_2108 =
																MAKE_YOUNG_PAIR(CAR(BgL_argsz00_2088), BNIL);
															BgL_arg2061z00_2106 =
																MAKE_YOUNG_PAIR
																(BGl_symbol2454z00zz__expander_argsz00,
																BgL_arg2063z00_2108);
														}
														{	/* Eval/expdargs.scm 412 */
															obj_t BgL_arg2067z00_2110;

															{	/* Eval/expdargs.scm 412 */
																obj_t BgL_arg2069z00_2111;

																{	/* Eval/expdargs.scm 412 */
																	obj_t BgL_arg2070z00_2112;

																	BgL_arg2070z00_2112 =
																		MAKE_YOUNG_PAIR(BgL_clausez00_3203, BNIL);
																	BgL_arg2069z00_2111 =
																		MAKE_YOUNG_PAIR
																		(BGl_symbol2454z00zz__expander_argsz00,
																		BgL_arg2070z00_2112);
																}
																BgL_arg2067z00_2110 =
																	MAKE_YOUNG_PAIR(BgL_arg2069z00_2111, BNIL);
															}
															BgL_arg2062z00_2107 =
																MAKE_YOUNG_PAIR
																(BGl_string2552z00zz__expander_argsz00,
																BgL_arg2067z00_2110);
														}
														BgL_arg2060z00_2105 =
															MAKE_YOUNG_PAIR(BgL_arg2061z00_2106,
															BgL_arg2062z00_2107);
													}
													BgL_arg2059z00_2104 =
														MAKE_YOUNG_PAIR
														(BGl_symbol2462z00zz__expander_argsz00,
														BgL_arg2060z00_2105);
												}
												BgL_arg2057z00_2102 =
													MAKE_YOUNG_PAIR(BgL_arg2059z00_2104, BNIL);
											}
											BgL_arg2054z00_2099 =
												MAKE_YOUNG_PAIR(BgL_arg2056z00_2101,
												BgL_arg2057z00_2102);
										}
										BgL_arg2051z00_2097 =
											MAKE_YOUNG_PAIR(BgL_arg2053z00_2098, BgL_arg2054z00_2099);
									}
									BgL_arg2050z00_2096 =
										MAKE_YOUNG_PAIR(BGl_symbol2464z00zz__expander_argsz00,
										BgL_arg2051z00_2097);
								}
								BgL_arg2049z00_2095 =
									MAKE_YOUNG_PAIR(BgL_arg2050z00_2096, BNIL);
							}
							BgL_arg2046z00_2092 =
								MAKE_YOUNG_PAIR(BgL_arg2048z00_2094, BgL_arg2049z00_2095);
						}
						{	/* Eval/expdargs.scm 413 */
							obj_t BgL_arg2071z00_2113;
							obj_t BgL_arg2072z00_2114;

							{	/* Eval/expdargs.scm 413 */
								obj_t BgL_arg2073z00_2115;

								{	/* Eval/expdargs.scm 413 */
									obj_t BgL_arg2074z00_2116;

									{	/* Eval/expdargs.scm 413 */
										obj_t BgL_arg2076z00_2117;

										BgL_arg2076z00_2117 = MAKE_YOUNG_PAIR(BgL_naz00_3204, BNIL);
										BgL_arg2074z00_2116 =
											MAKE_YOUNG_PAIR(BGl_symbol2502z00zz__expander_argsz00,
											BgL_arg2076z00_2117);
									}
									BgL_arg2073z00_2115 =
										MAKE_YOUNG_PAIR(BgL_arg2074z00_2116, BNIL);
								}
								BgL_arg2071z00_2113 =
									MAKE_YOUNG_PAIR(BgL_naz00_3204, BgL_arg2073z00_2115);
							}
							BgL_arg2072z00_2114 =
								BGl_loopze70ze7zz__expander_argsz00(BgL_naz00_3204,
								BgL_clausez00_3203, CDR(BgL_argsz00_2088));
							BgL_arg2047z00_2093 =
								MAKE_YOUNG_PAIR(BgL_arg2071z00_2113, BgL_arg2072z00_2114);
						}
						return MAKE_YOUNG_PAIR(BgL_arg2046z00_2092, BgL_arg2047z00_2093);
					}
				}
			else
				{	/* Eval/expdargs.scm 407 */
					return BNIL;
				}
		}

	}



/* fetch-argument-name */
	obj_t BGl_fetchzd2argumentzd2namez00zz__expander_argsz00(obj_t BgL_az00_29,
		obj_t BgL_clausez00_30)
	{
		{	/* Eval/expdargs.scm 420 */
			if (SYMBOLP(BgL_az00_29))
				{	/* Eval/expdargs.scm 423 */
					obj_t BgL_sz00_2122;

					{	/* Eval/expdargs.scm 423 */
						obj_t BgL_arg2244z00_2944;

						BgL_arg2244z00_2944 = SYMBOL_TO_STRING(BgL_az00_29);
						BgL_sz00_2122 =
							BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg2244z00_2944);
					}
					if ((STRING_REF(BgL_sz00_2122, 0L) == ((unsigned char) '?')))
						{	/* Eval/expdargs.scm 424 */
							return
								c_substring(BgL_sz00_2122, 1L, STRING_LENGTH(BgL_sz00_2122));
						}
					else
						{	/* Eval/expdargs.scm 424 */
							return
								BGl_expandzd2errorzd2zz__expandz00
								(BGl_string2440z00zz__expander_argsz00,
								string_append_3(BGl_string2553z00zz__expander_argsz00,
									BgL_sz00_2122, BGl_string2554z00zz__expander_argsz00),
								BgL_clausez00_30);
						}
				}
			else
				{	/* Eval/expdargs.scm 421 */
					return
						BGl_expandzd2errorzd2zz__expandz00
						(BGl_string2440z00zz__expander_argsz00,
						BGl_string2555z00zz__expander_argsz00, BgL_clausez00_30);
				}
		}

	}



/* fetch-option-embed-argument */
	obj_t BGl_fetchzd2optionzd2embedzd2argumentzd2zz__expander_argsz00(obj_t
		BgL_optz00_31)
	{
		{	/* Eval/expdargs.scm 435 */
			{	/* Eval/expdargs.scm 436 */
				long BgL_lenz00_2128;

				BgL_lenz00_2128 = (STRING_LENGTH(((obj_t) BgL_optz00_31)) - 1L);
				{
					long BgL_iz00_2130;

					BgL_iz00_2130 = 0L;
				BgL_zc3z04anonymousza32086ze3z87_2131:
					if ((BgL_iz00_2130 >= BgL_lenz00_2128))
						{	/* Eval/expdargs.scm 439 */
							{	/* Eval/expdargs.scm 440 */
								int BgL_tmpz00_4366;

								BgL_tmpz00_4366 = (int) (2L);
								BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4366);
							}
							{	/* Eval/expdargs.scm 440 */
								int BgL_tmpz00_4369;

								BgL_tmpz00_4369 = (int) (1L);
								BGL_MVALUES_VAL_SET(BgL_tmpz00_4369, BFALSE);
							}
							return BgL_optz00_31;
						}
					else
						{	/* Eval/expdargs.scm 439 */
							if (
								(STRING_REF(
										((obj_t) BgL_optz00_31),
										BgL_iz00_2130) == ((unsigned char) '?')))
								{	/* Eval/expdargs.scm 442 */
									obj_t BgL_val0_1157z00_2137;
									obj_t BgL_val1_1158z00_2138;

									BgL_val0_1157z00_2137 =
										c_substring(((obj_t) BgL_optz00_31), 0L, BgL_iz00_2130);
									{	/* Eval/expdargs.scm 443 */
										long BgL_arg2090z00_2139;
										long BgL_arg2091z00_2140;

										BgL_arg2090z00_2139 = (1L + BgL_iz00_2130);
										BgL_arg2091z00_2140 = (BgL_lenz00_2128 + 1L);
										BgL_val1_1158z00_2138 =
											c_substring(
											((obj_t) BgL_optz00_31), BgL_arg2090z00_2139,
											BgL_arg2091z00_2140);
									}
									{	/* Eval/expdargs.scm 442 */
										int BgL_tmpz00_4382;

										BgL_tmpz00_4382 = (int) (2L);
										BGL_MVALUES_NUMBER_SET(BgL_tmpz00_4382);
									}
									{	/* Eval/expdargs.scm 442 */
										int BgL_tmpz00_4385;

										BgL_tmpz00_4385 = (int) (1L);
										BGL_MVALUES_VAL_SET(BgL_tmpz00_4385, BgL_val1_1158z00_2138);
									}
									return BgL_val0_1157z00_2137;
								}
							else
								{
									long BgL_iz00_4388;

									BgL_iz00_4388 = (BgL_iz00_2130 + 1L);
									BgL_iz00_2130 = BgL_iz00_4388;
									goto BgL_zc3z04anonymousza32086ze3z87_2131;
								}
						}
				}
			}
		}

	}



/* help-message? */
	bool_t BGl_helpzd2messagezf3z21zz__expander_argsz00(obj_t BgL_expz00_32)
	{
		{	/* Eval/expdargs.scm 450 */
			if (PAIRP(BgL_expz00_32))
				{	/* Eval/expdargs.scm 451 */
					obj_t BgL_arg2099z00_2151;

					BgL_arg2099z00_2151 = CAR(BgL_expz00_32);
					{	/* Eval/expdargs.scm 459 */
						bool_t BgL__ortest_1047z00_2968;

						BgL__ortest_1047z00_2968 =
							(BgL_arg2099z00_2151 == BGl_symbol2514z00zz__expander_argsz00);
						if (BgL__ortest_1047z00_2968)
							{	/* Eval/expdargs.scm 459 */
								return BgL__ortest_1047z00_2968;
							}
						else
							{	/* Eval/expdargs.scm 459 */
								return
									(BgL_arg2099z00_2151 ==
									BGl_symbol2516z00zz__expander_argsz00);
							}
					}
				}
			else
				{	/* Eval/expdargs.scm 451 */
					return ((bool_t) 0);
				}
		}

	}



/* synopsis? */
	bool_t BGl_synopsiszf3zf3zz__expander_argsz00(obj_t BgL_symz00_33)
	{
		{	/* Eval/expdargs.scm 458 */
			{	/* Eval/expdargs.scm 459 */
				bool_t BgL__ortest_1047z00_2969;

				BgL__ortest_1047z00_2969 =
					(BgL_symz00_33 == BGl_symbol2514z00zz__expander_argsz00);
				if (BgL__ortest_1047z00_2969)
					{	/* Eval/expdargs.scm 459 */
						return BgL__ortest_1047z00_2969;
					}
				else
					{	/* Eval/expdargs.scm 459 */
						return (BgL_symz00_33 == BGl_symbol2516z00zz__expander_argsz00);
					}
			}
		}

	}



/* args-parse-usage */
	BGL_EXPORTED_DEF obj_t BGl_argszd2parsezd2usagez00zz__expander_argsz00(obj_t
		BgL_descrsz00_34)
	{
		{	/* Eval/expdargs.scm 464 */
			{	/* Eval/expdargs.scm 465 */
				obj_t BgL_zc3z04anonymousza32100ze3z87_3197;

				BgL_zc3z04anonymousza32100ze3z87_3197 =
					MAKE_FX_PROCEDURE
					(BGl_z62zc3z04anonymousza32100ze3ze5zz__expander_argsz00, (int) (1L),
					(int) (1L));
				PROCEDURE_SET(BgL_zc3z04anonymousza32100ze3z87_3197, (int) (0L),
					BgL_descrsz00_34);
				return BgL_zc3z04anonymousza32100ze3z87_3197;
			}
		}

	}



/* &args-parse-usage */
	obj_t BGl_z62argszd2parsezd2usagez62zz__expander_argsz00(obj_t
		BgL_envz00_3198, obj_t BgL_descrsz00_3199)
	{
		{	/* Eval/expdargs.scm 464 */
			{	/* Eval/expdargs.scm 465 */
				obj_t BgL_auxz00_4404;

				if (BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00
					(BgL_descrsz00_3199))
					{	/* Eval/expdargs.scm 465 */
						BgL_auxz00_4404 = BgL_descrsz00_3199;
					}
				else
					{
						obj_t BgL_auxz00_4407;

						BgL_auxz00_4407 =
							BGl_typezd2errorzd2zz__errorz00
							(BGl_string2442z00zz__expander_argsz00, BINT(16196L),
							BGl_string2556z00zz__expander_argsz00,
							BGl_string2444z00zz__expander_argsz00, BgL_descrsz00_3199);
						FAILURE(BgL_auxz00_4407, BFALSE, BFALSE);
					}
				return BGl_argszd2parsezd2usagez00zz__expander_argsz00(BgL_auxz00_4404);
			}
		}

	}



/* &<@anonymous:2100> */
	obj_t BGl_z62zc3z04anonymousza32100ze3ze5zz__expander_argsz00(obj_t
		BgL_envz00_3200, obj_t BgL_manualzf3zf3_3202)
	{
		{	/* Eval/expdargs.scm 465 */
			{	/* Eval/expdargs.scm 466 */
				obj_t BgL_descrsz00_3201;

				BgL_descrsz00_3201 =
					((obj_t) PROCEDURE_REF(BgL_envz00_3200, (int) (0L)));
				if (CBOOL(BgL_manualzf3zf3_3202))
					{	/* Eval/expdargs.scm 466 */
						obj_t BgL_port1159z00_3213;

						{	/* Eval/expdargs.scm 466 */
							obj_t BgL_tmpz00_4417;

							BgL_tmpz00_4417 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_port1159z00_3213 =
								BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4417);
						}
						bgl_display_string(BGl_string2557z00zz__expander_argsz00,
							BgL_port1159z00_3213);
						bgl_display_char(((unsigned char) 10), BgL_port1159z00_3213);
					}
				else
					{	/* Eval/expdargs.scm 466 */
						BFALSE;
					}
				{	/* Eval/expdargs.scm 467 */
					long BgL_mlenzd2symzd2_3214;

					BgL_mlenzd2symzd2_3214 = 0L;
					{
						obj_t BgL_l1160z00_3216;

						BgL_l1160z00_3216 = BgL_descrsz00_3201;
					BgL_zc3z04anonymousza32101ze3z87_3215:
						if (PAIRP(BgL_l1160z00_3216))
							{	/* Eval/expdargs.scm 469 */
								{	/* Eval/expdargs.scm 470 */
									obj_t BgL_optz00_3217;

									BgL_optz00_3217 = CAR(BgL_l1160z00_3216);
									{	/* Eval/expdargs.scm 470 */
										obj_t BgL_namez00_3218;

										BgL_namez00_3218 = CAR(((obj_t) BgL_optz00_3217));
										if (STRINGP(BgL_namez00_3218))
											{	/* Eval/expdargs.scm 472 */
												long BgL_lenz00_3219;

												BgL_lenz00_3219 = STRING_LENGTH(BgL_namez00_3218);
												if ((BgL_lenz00_3219 > BgL_mlenzd2symzd2_3214))
													{	/* Eval/expdargs.scm 473 */
														BgL_mlenzd2symzd2_3214 = BgL_lenz00_3219;
													}
												else
													{	/* Eval/expdargs.scm 473 */
														BFALSE;
													}
											}
										else
											{	/* Eval/expdargs.scm 471 */
												BFALSE;
											}
									}
								}
								{
									obj_t BgL_l1160z00_4432;

									BgL_l1160z00_4432 = CDR(BgL_l1160z00_3216);
									BgL_l1160z00_3216 = BgL_l1160z00_4432;
									goto BgL_zc3z04anonymousza32101ze3z87_3215;
								}
							}
						else
							{	/* Eval/expdargs.scm 469 */
								((bool_t) 1);
							}
					}
					{
						obj_t BgL_l1164z00_3221;

						BgL_l1164z00_3221 = BgL_descrsz00_3201;
					BgL_zc3z04anonymousza32106ze3z87_3220:
						if (PAIRP(BgL_l1164z00_3221))
							{	/* Eval/expdargs.scm 476 */
								{	/* Eval/expdargs.scm 477 */
									obj_t BgL_optz00_3222;

									BgL_optz00_3222 = CAR(BgL_l1164z00_3221);
									{	/* Eval/expdargs.scm 477 */
										obj_t BgL_namez00_3223;

										BgL_namez00_3223 = CAR(((obj_t) BgL_optz00_3222));
										if (STRINGP(BgL_namez00_3223))
											{	/* Eval/expdargs.scm 480 */
												long BgL_lenz00_3224;

												BgL_lenz00_3224 =
													STRING_LENGTH(((obj_t) BgL_namez00_3223));
												{	/* Eval/expdargs.scm 481 */
													obj_t BgL_descz00_3225;

													BgL_descz00_3225 = CDR(((obj_t) BgL_optz00_3222));
													{	/* Eval/expdargs.scm 482 */
														obj_t BgL_tabz00_3226;

														BgL_tabz00_3226 =
															make_string(
															(BgL_mlenzd2symzd2_3214 - BgL_lenz00_3224),
															((unsigned char) ' '));
														{	/* Eval/expdargs.scm 483 */

															if (CBOOL(BgL_manualzf3zf3_3202))
																{	/* Eval/expdargs.scm 485 */
																	{	/* Eval/expdargs.scm 487 */
																		obj_t BgL_arg2109z00_3227;

																		{	/* Eval/expdargs.scm 487 */
																			obj_t BgL_arg2111z00_3228;

																			BgL_arg2111z00_3228 =
																				MAKE_YOUNG_PAIR(BgL_descz00_3225, BNIL);
																			BgL_arg2109z00_3227 =
																				MAKE_YOUNG_PAIR(BgL_namez00_3223,
																				BgL_arg2111z00_3228);
																		}
																		BGl_writez00zz__r4_output_6_10_3z00
																			(BgL_arg2109z00_3227, BNIL);
																	}
																	{	/* Eval/expdargs.scm 488 */
																		obj_t BgL_arg2112z00_3229;

																		{	/* Eval/expdargs.scm 488 */
																			obj_t BgL_tmpz00_4452;

																			BgL_tmpz00_4452 =
																				BGL_CURRENT_DYNAMIC_ENV();
																			BgL_arg2112z00_3229 =
																				BGL_ENV_CURRENT_OUTPUT_PORT
																				(BgL_tmpz00_4452);
																		}
																		bgl_display_char(((unsigned char) 10),
																			BgL_arg2112z00_3229);
																}}
															else
																{	/* Eval/expdargs.scm 489 */
																	obj_t BgL_port1162z00_3230;

																	{	/* Eval/expdargs.scm 489 */
																		obj_t BgL_tmpz00_4456;

																		BgL_tmpz00_4456 = BGL_CURRENT_DYNAMIC_ENV();
																		BgL_port1162z00_3230 =
																			BGL_ENV_CURRENT_OUTPUT_PORT
																			(BgL_tmpz00_4456);
																	}
																	bgl_display_string
																		(BGl_string2558z00zz__expander_argsz00,
																		BgL_port1162z00_3230);
																	bgl_display_obj(BgL_namez00_3223,
																		BgL_port1162z00_3230);
																	bgl_display_obj(BgL_tabz00_3226,
																		BgL_port1162z00_3230);
																	bgl_display_string
																		(BGl_string2523z00zz__expander_argsz00,
																		BgL_port1162z00_3230);
																	bgl_display_obj(BgL_descz00_3225,
																		BgL_port1162z00_3230);
																	bgl_display_char(((unsigned char) 10),
																		BgL_port1162z00_3230);
											}}}}}
										else
											{	/* Eval/expdargs.scm 479 */
												if (
													(BgL_namez00_3223 ==
														BGl_symbol2519z00zz__expander_argsz00))
													{	/* Eval/expdargs.scm 491 */
														obj_t BgL_port1163z00_3231;

														{	/* Eval/expdargs.scm 491 */
															obj_t BgL_tmpz00_4467;

															BgL_tmpz00_4467 = BGL_CURRENT_DYNAMIC_ENV();
															BgL_port1163z00_3231 =
																BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4467);
														}
														bgl_display_char(((unsigned char) 10),
															BgL_port1163z00_3231);
														{	/* Eval/expdargs.scm 491 */
															obj_t BgL_arg2114z00_3232;

															BgL_arg2114z00_3232 =
																CDR(((obj_t) BgL_optz00_3222));
															bgl_display_obj(BgL_arg2114z00_3232,
																BgL_port1163z00_3231);
														}
														bgl_display_string
															(BGl_string2559z00zz__expander_argsz00,
															BgL_port1163z00_3231);
														bgl_display_char(((unsigned char) 10),
															BgL_port1163z00_3231);
													}
												else
													{	/* Eval/expdargs.scm 490 */
														BFALSE;
													}
											}
									}
								}
								{
									obj_t BgL_l1164z00_4476;

									BgL_l1164z00_4476 = CDR(BgL_l1164z00_3221);
									BgL_l1164z00_3221 = BgL_l1164z00_4476;
									goto BgL_zc3z04anonymousza32106ze3z87_3220;
								}
							}
						else
							{	/* Eval/expdargs.scm 476 */
								((bool_t) 1);
							}
					}
					BGl_symbol2560z00zz__expander_argsz00;
				}
				if (CBOOL(BgL_manualzf3zf3_3202))
					{	/* Eval/expdargs.scm 494 */
						obj_t BgL_port1166z00_3233;

						{	/* Eval/expdargs.scm 494 */
							obj_t BgL_tmpz00_4480;

							BgL_tmpz00_4480 = BGL_CURRENT_DYNAMIC_ENV();
							BgL_port1166z00_3233 =
								BGL_ENV_CURRENT_OUTPUT_PORT(BgL_tmpz00_4480);
						}
						bgl_display_string(BGl_string2562z00zz__expander_argsz00,
							BgL_port1166z00_3233);
						return bgl_display_char(((unsigned char) 10), BgL_port1166z00_3233);
					}
				else
					{	/* Eval/expdargs.scm 494 */
						return BFALSE;
					}
			}
		}

	}



/* object-init */
	obj_t BGl_objectzd2initzd2zz__expander_argsz00(void)
	{
		{	/* Eval/expdargs.scm 19 */
			return BUNSPEC;
		}

	}



/* generic-init */
	obj_t BGl_genericzd2initzd2zz__expander_argsz00(void)
	{
		{	/* Eval/expdargs.scm 19 */
			return BUNSPEC;
		}

	}



/* method-init */
	obj_t BGl_methodzd2initzd2zz__expander_argsz00(void)
	{
		{	/* Eval/expdargs.scm 19 */
			return BUNSPEC;
		}

	}



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

	}

#ifdef __cplusplus
}
#endif
