/*===========================================================================*/
/*   (Llib/dsssl.scm)                                                        */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/dsssl.scm -indent -o objs/obj_s/Llib/dsssl.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* 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___DSSSL_TYPE_DEFINITIONS
#define BGL___DSSSL_TYPE_DEFINITIONS
#endif // BGL___DSSSL_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

extern obj_t BGl_substringz00zz__r4_strings_6_7z00(obj_t, long, long);
extern bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list2373z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list2293z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list2377z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list2379z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list2382z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__dssslz00 = BUNSPEC;
static obj_t BGl_z62dssslzd2getzd2keyzd2argzb0zz__dssslz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62dssslzd2formalszd2ze3schemezd2typedzd2formalsz81zz__dssslz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_z62restzd2statezb0zz__dssslz00(obj_t, obj_t, obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__dssslz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__threadz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL obj_t BGl_dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00(obj_t, obj_t);
static obj_t BGl_z62dssslzd2namedzd2constantzf3z91zz__dssslz00(obj_t, obj_t);
static obj_t BGl_z62optionalzd2statezb0zz__dssslz00(obj_t, obj_t, obj_t);
extern obj_t BGl_symbolzd2ze3keywordz31zz__r4_symbols_6_4z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_dssslzd2getzd2keyzd2argzd2zz__dssslz00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__dssslz00(void);
static obj_t BGl_symbol2300z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2302z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_genericzd2initzd2zz__dssslz00(void);
extern obj_t BGl_stringzd2copyzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_symbol2305z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2307z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__dssslz00(void);
static obj_t BGl_gczd2rootszd2initz00zz__dssslz00(void);
static obj_t BGl_objectzd2initzd2zz__dssslz00(void);
static obj_t BGl_symbol2310z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2312z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2314z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2317z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_z62dssslzd2getzd2keyzd2restzd2argz62zz__dssslz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2319z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_z62dssslzd2checkzd2keyzd2argsz12za2zz__dssslz00(obj_t, obj_t, obj_t);
extern obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t bgl_reverse_bang(obj_t);
static obj_t BGl_symbol2321z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2323z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2329z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_z62dssslzd2formalszd2ze3schemezd2formalsz53zz__dssslz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62nozd2restzd2keyzd2statezb0zz__dssslz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2335z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2337z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2339z00zz__dssslz00 = BUNSPEC;
extern obj_t bstring_to_symbol(obj_t);
BGL_EXPORTED_DECL obj_t BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00(obj_t, obj_t, bool_t);
static obj_t BGl_symbol2341z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2343z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2345z00zz__dssslz00 = BUNSPEC;
extern obj_t BGl_gensymz00zz__r4_symbols_6_4z00(obj_t);
static obj_t BGl_symbol2271z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_methodzd2initzd2zz__dssslz00(void);
static obj_t BGl_symbol2273z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2275z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2277z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2279z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list2328z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_optionalzd2argsze70z35zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(obj_t, obj_t, obj_t, obj_t, int, int);
static obj_t BGl_symbol2281z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list2332z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_loopze70ze7zz__dssslz00(bool_t, obj_t, obj_t, obj_t, bool_t);
static obj_t BGl_loopze71ze7zz__dssslz00(obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2289z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_idzd2sanszd2typez00zz__dssslz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_dssslzd2getzd2keyzd2restzd2argz00zz__dssslz00(obj_t, obj_t);
static obj_t BGl_symbol2294z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_symbol2298z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_z62makezd2dssslzd2functionzd2preludezb0zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list2267z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list2349z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_z62keyzd2statezb0zz__dssslz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, bool_t);
static obj_t BGl_list2270z00zz__dssslz00 = BUNSPEC;
static obj_t BGl_list2353z00zz__dssslz00 = BUNSPEC;
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_list2288z00zz__dssslz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE(BGl_dssslzd2getzd2keyzd2argzd2envz00zz__dssslz00, BgL_bgl_za762dssslza7d2getza7d2385za7, BGl_z62dssslzd2getzd2keyzd2argzb0zz__dssslz00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalszd2envz31zz__dssslz00, BgL_bgl_za762dssslza7d2forma2386z00, BGl_z62dssslzd2formalszd2ze3schemezd2typedzd2formalsz81zz__dssslz00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string2301z00zz__dssslz00, BgL_bgl_string2301za700za7za7_2387za7, "dsssl-get-key-rest-arg", 22 );
BGL_DEFINE_STRING(BGl_string2303z00zz__dssslz00, BgL_bgl_string2303za700za7za7_2388za7, "dsssl-get-key-arg", 17 );
BGL_DEFINE_STRING(BGl_string2304z00zz__dssslz00, BgL_bgl_string2304za700za7za7_2389za7, "one-key-arg", 11 );
BGL_DEFINE_STRING(BGl_string2306z00zz__dssslz00, BgL_bgl_string2306za700za7za7_2390za7, "null?", 5 );
BGL_DEFINE_STRING(BGl_string2308z00zz__dssslz00, BgL_bgl_string2308za700za7za7_2391za7, "v", 1 );
BGL_DEFINE_STRING(BGl_string2309z00zz__dssslz00, BgL_bgl_string2309za700za7za7_2392za7, "~a ", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dssslzd2namedzd2constantzf3zd2envz21zz__dssslz00, BgL_bgl_za762dssslza7d2named2393z00, BGl_z62dssslzd2namedzd2constantzf3z91zz__dssslz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2311z00zz__dssslz00, BgL_bgl_string2311za700za7za7_2394za7, "format", 6 );
BGL_DEFINE_STRING(BGl_string2313z00zz__dssslz00, BgL_bgl_string2313za700za7za7_2395za7, "lambda", 6 );
BGL_DEFINE_STRING(BGl_string2315z00zz__dssslz00, BgL_bgl_string2315za700za7za7_2396za7, "map", 3 );
BGL_DEFINE_STRING(BGl_string2316z00zz__dssslz00, BgL_bgl_string2316za700za7za7_2397za7, "Illegal extra key arguments: ", 29 );
BGL_DEFINE_STRING(BGl_string2318z00zz__dssslz00, BgL_bgl_string2318za700za7za7_2398za7, "string-append", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dssslzd2getzd2keyzd2restzd2argzd2envzd2zz__dssslz00, BgL_bgl_za762dssslza7d2getza7d2399za7, BGl_z62dssslzd2getzd2keyzd2restzd2argz62zz__dssslz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2320z00zz__dssslz00, BgL_bgl_string2320za700za7za7_2400za7, "apply", 5 );
BGL_DEFINE_STRING(BGl_string2322z00zz__dssslz00, BgL_bgl_string2322za700za7za7_2401za7, "error", 5 );
BGL_DEFINE_STRING(BGl_string2324z00zz__dssslz00, BgL_bgl_string2324za700za7za7_2402za7, "if", 2 );
BGL_DEFINE_STRING(BGl_string2325z00zz__dssslz00, BgL_bgl_string2325za700za7za7_2403za7, "&key-state", 10 );
BGL_DEFINE_STRING(BGl_string2326z00zz__dssslz00, BgL_bgl_string2326za700za7za7_2404za7, "Illegal DSSSL formal list (#!rest)", 34 );
BGL_DEFINE_STRING(BGl_string2327z00zz__dssslz00, BgL_bgl_string2327za700za7za7_2405za7, "&key-state:Wrong number of arguments", 36 );
BGL_DEFINE_STRING(BGl_string2330z00zz__dssslz00, BgL_bgl_string2330za700za7za7_2406za7, "formals", 7 );
BGL_DEFINE_STRING(BGl_string2331z00zz__dssslz00, BgL_bgl_string2331za700za7za7_2407za7, "Illegal DSSSL formal list (#!key)", 33 );
BGL_DEFINE_STRING(BGl_string2333z00zz__dssslz00, BgL_bgl_string2333za700za7za7_2408za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string2334z00zz__dssslz00, BgL_bgl_string2334za700za7za7_2409za7, "symbol", 6 );
BGL_DEFINE_STRING(BGl_string2336z00zz__dssslz00, BgL_bgl_string2336za700za7za7_2410za7, "tmp", 3 );
BGL_DEFINE_STRING(BGl_string2338z00zz__dssslz00, BgL_bgl_string2338za700za7za7_2411za7, "car", 3 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dssslzd2checkzd2keyzd2argsz12zd2envz12zz__dssslz00, BgL_bgl_za762dssslza7d2check2412z00, BGl_z62dssslzd2checkzd2keyzd2argsz12za2zz__dssslz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2340z00zz__dssslz00, BgL_bgl_string2340za700za7za7_2413za7, "memq", 4 );
BGL_DEFINE_STRING(BGl_string2342z00zz__dssslz00, BgL_bgl_string2342za700za7za7_2414za7, "cdr", 3 );
BGL_DEFINE_STRING(BGl_string2344z00zz__dssslz00, BgL_bgl_string2344za700za7za7_2415za7, "set!", 4 );
BGL_DEFINE_STRING(BGl_string2346z00zz__dssslz00, BgL_bgl_string2346za700za7za7_2416za7, "begin", 5 );
BGL_DEFINE_STRING(BGl_string2347z00zz__dssslz00, BgL_bgl_string2347za700za7za7_2417za7, "Illegal DSSSL formal list (#!optional)", 38 );
BGL_DEFINE_STRING(BGl_string2348z00zz__dssslz00, BgL_bgl_string2348za700za7za7_2418za7, "optional-args~0:Wrong number of arguments", 41 );
BGL_DEFINE_STRING(BGl_string2268z00zz__dssslz00, BgL_bgl_string2268za700za7za7_2419za7, "Illegal formal list.1", 21 );
BGL_DEFINE_STRING(BGl_string2269z00zz__dssslz00, BgL_bgl_string2269za700za7za7_2420za7, "scheme-state:Wrong number of arguments", 38 );
BGL_DEFINE_STRING(BGl_string2350z00zz__dssslz00, BgL_bgl_string2350za700za7za7_2421za7, "<@anonymous:1451>", 17 );
BGL_DEFINE_STRING(BGl_string2351z00zz__dssslz00, BgL_bgl_string2351za700za7za7_2422za7, "Illegal #!keys parameters", 25 );
BGL_DEFINE_STRING(BGl_string2352z00zz__dssslz00, BgL_bgl_string2352za700za7za7_2423za7, "<@anonymous:1451>:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string2272z00zz__dssslz00, BgL_bgl_string2272za700za7za7_2424za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string2354z00zz__dssslz00, BgL_bgl_string2354za700za7za7_2425za7, "list", 4 );
BGL_DEFINE_STRING(BGl_string2355z00zz__dssslz00, BgL_bgl_string2355za700za7za7_2426za7, "rest-key-state:Wrong number of arguments", 40 );
BGL_DEFINE_STRING(BGl_string2274z00zz__dssslz00, BgL_bgl_string2274za700za7za7_2427za7, "err", 3 );
BGL_DEFINE_STRING(BGl_string2356z00zz__dssslz00, BgL_bgl_string2356za700za7za7_2428za7, "exit-rest-state:Wrong number of arguments", 41 );
BGL_DEFINE_STRING(BGl_string2357z00zz__dssslz00, BgL_bgl_string2357za700za7za7_2429za7, "rest-state:Wrong number of arguments", 36 );
BGL_DEFINE_STRING(BGl_string2276z00zz__dssslz00, BgL_bgl_string2276za700za7za7_2430za7, "where", 5 );
BGL_DEFINE_STRING(BGl_string2358z00zz__dssslz00, BgL_bgl_string2358za700za7za7_2431za7, "no-rest-key-state:Wrong number of arguments", 43 );
BGL_DEFINE_STRING(BGl_string2359z00zz__dssslz00, BgL_bgl_string2359za700za7za7_2432za7, "dsssl formal parsing", 20 );
BGL_DEFINE_STRING(BGl_string2278z00zz__dssslz00, BgL_bgl_string2278za700za7za7_2433za7, "arg1206", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2dssslzd2functionzd2preludezd2envz00zz__dssslz00, BgL_bgl_za762makeza7d2dssslza72434za7, BGl_z62makezd2dssslzd2functionzd2preludezb0zz__dssslz00, 0L, BUNSPEC, 4);
BGL_DEFINE_STRING(BGl_string2360z00zz__dssslz00, BgL_bgl_string2360za700za7za7_2435za7, "Unexpected #!keys parameters", 28 );
BGL_DEFINE_STRING(BGl_string2361z00zz__dssslz00, BgL_bgl_string2361za700za7za7_2436za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string2280z00zz__dssslz00, BgL_bgl_string2280za700za7za7_2437za7, "dsssl", 5 );
BGL_DEFINE_STRING(BGl_string2362z00zz__dssslz00, BgL_bgl_string2362za700za7za7_2438za7, "Keyword argument misses value", 29 );
BGL_DEFINE_STRING(BGl_string2363z00zz__dssslz00, BgL_bgl_string2363za700za7za7_2439za7, "Illegal keyword actual value", 28 );
BGL_DEFINE_STRING(BGl_string2282z00zz__dssslz00, BgL_bgl_string2282za700za7za7_2440za7, "let", 3 );
BGL_DEFINE_STRING(BGl_string2364z00zz__dssslz00, BgL_bgl_string2364za700za7za7_2441za7, "Illegal DSSSL arguments", 23 );
BGL_DEFINE_STRING(BGl_string2283z00zz__dssslz00, BgL_bgl_string2283za700za7za7_2442za7, "/tmp/bigloo/runtime/Llib/dsssl.scm", 34 );
BGL_DEFINE_STRING(BGl_string2365z00zz__dssslz00, BgL_bgl_string2365za700za7za7_2443za7, "&dsssl-get-key-arg", 18 );
BGL_DEFINE_STRING(BGl_string2284z00zz__dssslz00, BgL_bgl_string2284za700za7za7_2444za7, "TAG-102", 7 );
BGL_DEFINE_STRING(BGl_string2366z00zz__dssslz00, BgL_bgl_string2366za700za7za7_2445za7, "keyword", 7 );
BGL_DEFINE_STRING(BGl_string2285z00zz__dssslz00, BgL_bgl_string2285za700za7za7_2446za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string2367z00zz__dssslz00, BgL_bgl_string2367za700za7za7_2447za7, "loop~1", 6 );
BGL_DEFINE_STRING(BGl_string2286z00zz__dssslz00, BgL_bgl_string2286za700za7za7_2448za7, "Illegal formal list.3", 21 );
BGL_DEFINE_STRING(BGl_string2368z00zz__dssslz00, BgL_bgl_string2368za700za7za7_2449za7, "&dsssl-get-key-rest-arg", 23 );
BGL_DEFINE_STRING(BGl_string2287z00zz__dssslz00, BgL_bgl_string2287za700za7za7_2450za7, "TAG-103:Wrong number of arguments", 33 );
BGL_DEFINE_STRING(BGl_string2369z00zz__dssslz00, BgL_bgl_string2369za700za7za7_2451za7, "string-ref", 10 );
BGL_DEFINE_STRING(BGl_string2370z00zz__dssslz00, BgL_bgl_string2370za700za7za7_2452za7, "&dsssl-formals->scheme-formals", 30 );
BGL_DEFINE_STRING(BGl_string2371z00zz__dssslz00, BgL_bgl_string2371za700za7za7_2453za7, "dsssl-defaulted-formal?", 23 );
BGL_DEFINE_STRING(BGl_string2290z00zz__dssslz00, BgL_bgl_string2290za700za7za7_2454za7, "arg1265", 7 );
BGL_DEFINE_STRING(BGl_string2372z00zz__dssslz00, BgL_bgl_string2372za700za7za7_2455za7, "loop~0", 6 );
BGL_DEFINE_STRING(BGl_string2291z00zz__dssslz00, BgL_bgl_string2291za700za7za7_2456za7, "Illegal formal list.2", 21 );
BGL_DEFINE_STRING(BGl_string2292z00zz__dssslz00, BgL_bgl_string2292za700za7za7_2457za7, "loop:Wrong number of arguments", 30 );
BGL_DEFINE_STRING(BGl_string2374z00zz__dssslz00, BgL_bgl_string2374za700za7za7_2458za7, "Illegal formal parameter", 24 );
BGL_DEFINE_STRING(BGl_string2375z00zz__dssslz00, BgL_bgl_string2375za700za7za7_2459za7, "symbol or named constant expected", 33 );
BGL_DEFINE_STRING(BGl_string2376z00zz__dssslz00, BgL_bgl_string2376za700za7za7_2460za7, "loop~0:Wrong number of arguments", 32 );
BGL_DEFINE_STRING(BGl_string2295z00zz__dssslz00, BgL_bgl_string2295za700za7za7_2461za7, "arg1267", 7 );
BGL_DEFINE_STRING(BGl_string2296z00zz__dssslz00, BgL_bgl_string2296za700za7za7_2462za7, "&make-dsssl-function-prelude", 28 );
BGL_DEFINE_STRING(BGl_string2378z00zz__dssslz00, BgL_bgl_string2378za700za7za7_2463za7, "symbol expected", 15 );
BGL_DEFINE_STRING(BGl_string2297z00zz__dssslz00, BgL_bgl_string2297za700za7za7_2464za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string2299z00zz__dssslz00, BgL_bgl_string2299za700za7za7_2465za7, "quote", 5 );
BGL_DEFINE_STRING(BGl_string2380z00zz__dssslz00, BgL_bgl_string2380za700za7za7_2466za7, "Can't use both DSSSL named constant", 35 );
BGL_DEFINE_STRING(BGl_string2381z00zz__dssslz00, BgL_bgl_string2381za700za7za7_2467za7, "and `.' notation", 16 );
BGL_DEFINE_STRING(BGl_string2383z00zz__dssslz00, BgL_bgl_string2383za700za7za7_2468za7, "&dsssl-formals->scheme-typed-formals", 36 );
BGL_DEFINE_STRING(BGl_string2384z00zz__dssslz00, BgL_bgl_string2384za700za7za7_2469za7, "__dsssl", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dssslzd2formalszd2ze3schemezd2formalszd2envze3zz__dssslz00, BgL_bgl_za762dssslza7d2forma2470z00, BGl_z62dssslzd2formalszd2ze3schemezd2formalsz53zz__dssslz00, 0L, BUNSPEC, 2);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_dssslzd2formalszd2ze3schemezd2formalszd2envze3zz__dssslz00, BgL_bgl_za762dssslza7d2forma2470z00);
BGL_BIND_STRING(BGl_string2384z00zz__dssslz00, BgL_bgl_string2384za700za7za7_2469za7);
BGL_BIND_STRING(BGl_string2383z00zz__dssslz00, BgL_bgl_string2383za700za7za7_2468za7);
BGL_BIND_STRING(BGl_string2381z00zz__dssslz00, BgL_bgl_string2381za700za7za7_2467za7);
BGL_BIND_STRING(BGl_string2380z00zz__dssslz00, BgL_bgl_string2380za700za7za7_2466za7);
BGL_BIND_STRING(BGl_string2299z00zz__dssslz00, BgL_bgl_string2299za700za7za7_2465za7);
BGL_BIND_STRING(BGl_string2297z00zz__dssslz00, BgL_bgl_string2297za700za7za7_2464za7);
BGL_BIND_STRING(BGl_string2378z00zz__dssslz00, BgL_bgl_string2378za700za7za7_2463za7);
BGL_BIND_STRING(BGl_string2296z00zz__dssslz00, BgL_bgl_string2296za700za7za7_2462za7);
BGL_BIND_STRING(BGl_string2295z00zz__dssslz00, BgL_bgl_string2295za700za7za7_2461za7);
BGL_BIND_STRING(BGl_string2376z00zz__dssslz00, BgL_bgl_string2376za700za7za7_2460za7);
BGL_BIND_STRING(BGl_string2375z00zz__dssslz00, BgL_bgl_string2375za700za7za7_2459za7);
BGL_BIND_STRING(BGl_string2374z00zz__dssslz00, BgL_bgl_string2374za700za7za7_2458za7);
BGL_BIND_STRING(BGl_string2292z00zz__dssslz00, BgL_bgl_string2292za700za7za7_2457za7);
BGL_BIND_STRING(BGl_string2291z00zz__dssslz00, BgL_bgl_string2291za700za7za7_2456za7);
BGL_BIND_STRING(BGl_string2372z00zz__dssslz00, BgL_bgl_string2372za700za7za7_2455za7);
BGL_BIND_STRING(BGl_string2290z00zz__dssslz00, BgL_bgl_string2290za700za7za7_2454za7);
BGL_BIND_STRING(BGl_string2371z00zz__dssslz00, BgL_bgl_string2371za700za7za7_2453za7);
BGL_BIND_STRING(BGl_string2370z00zz__dssslz00, BgL_bgl_string2370za700za7za7_2452za7);
BGL_BIND_STRING(BGl_string2369z00zz__dssslz00, BgL_bgl_string2369za700za7za7_2451za7);
BGL_BIND_STRING(BGl_string2287z00zz__dssslz00, BgL_bgl_string2287za700za7za7_2450za7);
BGL_BIND_STRING(BGl_string2368z00zz__dssslz00, BgL_bgl_string2368za700za7za7_2449za7);
BGL_BIND_STRING(BGl_string2286z00zz__dssslz00, BgL_bgl_string2286za700za7za7_2448za7);
BGL_BIND_STRING(BGl_string2367z00zz__dssslz00, BgL_bgl_string2367za700za7za7_2447za7);
BGL_BIND_STRING(BGl_string2285z00zz__dssslz00, BgL_bgl_string2285za700za7za7_2446za7);
BGL_BIND_STRING(BGl_string2366z00zz__dssslz00, BgL_bgl_string2366za700za7za7_2445za7);
BGL_BIND_STRING(BGl_string2284z00zz__dssslz00, BgL_bgl_string2284za700za7za7_2444za7);
BGL_BIND_STRING(BGl_string2365z00zz__dssslz00, BgL_bgl_string2365za700za7za7_2443za7);
BGL_BIND_STRING(BGl_string2283z00zz__dssslz00, BgL_bgl_string2283za700za7za7_2442za7);
BGL_BIND_STRING(BGl_string2364z00zz__dssslz00, BgL_bgl_string2364za700za7za7_2441za7);
BGL_BIND_STRING(BGl_string2282z00zz__dssslz00, BgL_bgl_string2282za700za7za7_2440za7);
BGL_BIND_STRING(BGl_string2363z00zz__dssslz00, BgL_bgl_string2363za700za7za7_2439za7);
BGL_BIND_STRING(BGl_string2362z00zz__dssslz00, BgL_bgl_string2362za700za7za7_2438za7);
BGL_BIND_STRING(BGl_string2280z00zz__dssslz00, BgL_bgl_string2280za700za7za7_2437za7);
BGL_BIND_STRING(BGl_string2361z00zz__dssslz00, BgL_bgl_string2361za700za7za7_2436za7);
BGL_BIND_STRING(BGl_string2360z00zz__dssslz00, BgL_bgl_string2360za700za7za7_2435za7);
BGL_BIND_PROCEDURE(BGl_makezd2dssslzd2functionzd2preludezd2envz00zz__dssslz00, BgL_bgl_za762makeza7d2dssslza72434za7);
BGL_BIND_STRING(BGl_string2278z00zz__dssslz00, BgL_bgl_string2278za700za7za7_2433za7);
BGL_BIND_STRING(BGl_string2359z00zz__dssslz00, BgL_bgl_string2359za700za7za7_2432za7);
BGL_BIND_STRING(BGl_string2358z00zz__dssslz00, BgL_bgl_string2358za700za7za7_2431za7);
BGL_BIND_STRING(BGl_string2276z00zz__dssslz00, BgL_bgl_string2276za700za7za7_2430za7);
BGL_BIND_STRING(BGl_string2357z00zz__dssslz00, BgL_bgl_string2357za700za7za7_2429za7);
BGL_BIND_STRING(BGl_string2356z00zz__dssslz00, BgL_bgl_string2356za700za7za7_2428za7);
BGL_BIND_STRING(BGl_string2274z00zz__dssslz00, BgL_bgl_string2274za700za7za7_2427za7);
BGL_BIND_STRING(BGl_string2355z00zz__dssslz00, BgL_bgl_string2355za700za7za7_2426za7);
BGL_BIND_STRING(BGl_string2354z00zz__dssslz00, BgL_bgl_string2354za700za7za7_2425za7);
BGL_BIND_STRING(BGl_string2272z00zz__dssslz00, BgL_bgl_string2272za700za7za7_2424za7);
BGL_BIND_STRING(BGl_string2352z00zz__dssslz00, BgL_bgl_string2352za700za7za7_2423za7);
BGL_BIND_STRING(BGl_string2351z00zz__dssslz00, BgL_bgl_string2351za700za7za7_2422za7);
BGL_BIND_STRING(BGl_string2350z00zz__dssslz00, BgL_bgl_string2350za700za7za7_2421za7);
BGL_BIND_STRING(BGl_string2269z00zz__dssslz00, BgL_bgl_string2269za700za7za7_2420za7);
BGL_BIND_STRING(BGl_string2268z00zz__dssslz00, BgL_bgl_string2268za700za7za7_2419za7);
BGL_BIND_STRING(BGl_string2348z00zz__dssslz00, BgL_bgl_string2348za700za7za7_2418za7);
BGL_BIND_STRING(BGl_string2347z00zz__dssslz00, BgL_bgl_string2347za700za7za7_2417za7);
BGL_BIND_STRING(BGl_string2346z00zz__dssslz00, BgL_bgl_string2346za700za7za7_2416za7);
BGL_BIND_STRING(BGl_string2344z00zz__dssslz00, BgL_bgl_string2344za700za7za7_2415za7);
BGL_BIND_STRING(BGl_string2342z00zz__dssslz00, BgL_bgl_string2342za700za7za7_2414za7);
BGL_BIND_STRING(BGl_string2340z00zz__dssslz00, BgL_bgl_string2340za700za7za7_2413za7);
BGL_BIND_PROCEDURE(BGl_dssslzd2checkzd2keyzd2argsz12zd2envz12zz__dssslz00, BgL_bgl_za762dssslza7d2check2412z00);
BGL_BIND_STRING(BGl_string2338z00zz__dssslz00, BgL_bgl_string2338za700za7za7_2411za7);
BGL_BIND_STRING(BGl_string2336z00zz__dssslz00, BgL_bgl_string2336za700za7za7_2410za7);
BGL_BIND_STRING(BGl_string2334z00zz__dssslz00, BgL_bgl_string2334za700za7za7_2409za7);
BGL_BIND_STRING(BGl_string2333z00zz__dssslz00, BgL_bgl_string2333za700za7za7_2408za7);
BGL_BIND_STRING(BGl_string2331z00zz__dssslz00, BgL_bgl_string2331za700za7za7_2407za7);
BGL_BIND_STRING(BGl_string2330z00zz__dssslz00, BgL_bgl_string2330za700za7za7_2406za7);
BGL_BIND_STRING(BGl_string2327z00zz__dssslz00, BgL_bgl_string2327za700za7za7_2405za7);
BGL_BIND_STRING(BGl_string2326z00zz__dssslz00, BgL_bgl_string2326za700za7za7_2404za7);
BGL_BIND_STRING(BGl_string2325z00zz__dssslz00, BgL_bgl_string2325za700za7za7_2403za7);
BGL_BIND_STRING(BGl_string2324z00zz__dssslz00, BgL_bgl_string2324za700za7za7_2402za7);
BGL_BIND_STRING(BGl_string2322z00zz__dssslz00, BgL_bgl_string2322za700za7za7_2401za7);
BGL_BIND_STRING(BGl_string2320z00zz__dssslz00, BgL_bgl_string2320za700za7za7_2400za7);
BGL_BIND_PROCEDURE(BGl_dssslzd2getzd2keyzd2restzd2argzd2envzd2zz__dssslz00, BgL_bgl_za762dssslza7d2getza7d2399za7);
BGL_BIND_STRING(BGl_string2318z00zz__dssslz00, BgL_bgl_string2318za700za7za7_2398za7);
BGL_BIND_STRING(BGl_string2316z00zz__dssslz00, BgL_bgl_string2316za700za7za7_2397za7);
BGL_BIND_STRING(BGl_string2315z00zz__dssslz00, BgL_bgl_string2315za700za7za7_2396za7);
BGL_BIND_STRING(BGl_string2313z00zz__dssslz00, BgL_bgl_string2313za700za7za7_2395za7);
BGL_BIND_STRING(BGl_string2311z00zz__dssslz00, BgL_bgl_string2311za700za7za7_2394za7);
BGL_BIND_PROCEDURE(BGl_dssslzd2namedzd2constantzf3zd2envz21zz__dssslz00, BgL_bgl_za762dssslza7d2named2393z00);
BGL_BIND_STRING(BGl_string2309z00zz__dssslz00, BgL_bgl_string2309za700za7za7_2392za7);
BGL_BIND_STRING(BGl_string2308z00zz__dssslz00, BgL_bgl_string2308za700za7za7_2391za7);
BGL_BIND_STRING(BGl_string2306z00zz__dssslz00, BgL_bgl_string2306za700za7za7_2390za7);
BGL_BIND_STRING(BGl_string2304z00zz__dssslz00, BgL_bgl_string2304za700za7za7_2389za7);
BGL_BIND_STRING(BGl_string2303z00zz__dssslz00, BgL_bgl_string2303za700za7za7_2388za7);
BGL_BIND_STRING(BGl_string2301z00zz__dssslz00, BgL_bgl_string2301za700za7za7_2387za7);
BGL_BIND_PROCEDURE(BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalszd2envz31zz__dssslz00, BgL_bgl_za762dssslza7d2forma2386z00);
BGL_BIND_PROCEDURE(BGl_dssslzd2getzd2keyzd2argzd2envz00zz__dssslz00, BgL_bgl_za762dssslza7d2getza7d2385za7);
}

/* 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_list2373z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2293z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2377z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2379z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2382z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2300z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2302z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2305z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2307z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2310z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2312z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2314z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2317z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2319z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2321z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2323z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2329z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2335z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2337z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2339z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2341z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2343z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2345z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2271z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2273z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2275z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2277z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2279z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2328z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2281z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2332z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2289z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2294z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_symbol2298z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2267z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2349z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2270z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2353z00zz__dssslz00) );
ADD_ROOT( (void *)(&BGl_list2288z00zz__dssslz00) );
#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__dssslz00(long BgL_checksumz00_2872, char * BgL_fromz00_2873)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__dssslz00))
{ 
BGl_requirezd2initializa7ationz75zz__dssslz00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__dssslz00(); 
BGl_cnstzd2initzd2zz__dssslz00(); 
BGl_importedzd2moduleszd2initz00zz__dssslz00(); 
return 
BGl_methodzd2initzd2zz__dssslz00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__dssslz00(void)
{
{ /* Llib/dsssl.scm 14 */
BGl_list2267z00zz__dssslz00 = 
MAKE_YOUNG_PAIR((BREST), 
MAKE_YOUNG_PAIR((BOPTIONAL), 
MAKE_YOUNG_PAIR((BKEY), BNIL))); 
BGl_symbol2271z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2272z00zz__dssslz00); 
BGl_symbol2273z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2274z00zz__dssslz00); 
BGl_symbol2275z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2276z00zz__dssslz00); 
BGl_symbol2277z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2278z00zz__dssslz00); 
BGl_list2270z00zz__dssslz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2275z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2268z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2277z00zz__dssslz00, BNIL)))))); 
BGl_symbol2279z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2280z00zz__dssslz00); 
BGl_symbol2281z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2282z00zz__dssslz00); 
BGl_symbol2289z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2290z00zz__dssslz00); 
BGl_list2288z00zz__dssslz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2275z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2286z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2289z00zz__dssslz00, BNIL)))))); 
BGl_symbol2294z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2295z00zz__dssslz00); 
BGl_list2293z00zz__dssslz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2275z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2291z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2294z00zz__dssslz00, BNIL)))))); 
BGl_symbol2298z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2299z00zz__dssslz00); 
BGl_symbol2300z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2301z00zz__dssslz00); 
BGl_symbol2302z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2303z00zz__dssslz00); 
BGl_symbol2305z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2306z00zz__dssslz00); 
BGl_symbol2307z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2308z00zz__dssslz00); 
BGl_symbol2310z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2311z00zz__dssslz00); 
BGl_symbol2312z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2313z00zz__dssslz00); 
BGl_symbol2314z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2315z00zz__dssslz00); 
BGl_symbol2317z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2318z00zz__dssslz00); 
BGl_symbol2319z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2320z00zz__dssslz00); 
BGl_symbol2321z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2322z00zz__dssslz00); 
BGl_symbol2323z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2324z00zz__dssslz00); 
BGl_symbol2329z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2330z00zz__dssslz00); 
BGl_list2328z00zz__dssslz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2275z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2326z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2329z00zz__dssslz00, BNIL)))))); 
BGl_list2332z00zz__dssslz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2275z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2331z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2329z00zz__dssslz00, BNIL)))))); 
BGl_symbol2335z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2336z00zz__dssslz00); 
BGl_symbol2337z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2338z00zz__dssslz00); 
BGl_symbol2339z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2340z00zz__dssslz00); 
BGl_symbol2341z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2342z00zz__dssslz00); 
BGl_symbol2343z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2344z00zz__dssslz00); 
BGl_symbol2345z00zz__dssslz00 = 
bstring_to_symbol(BGl_string2346z00zz__dssslz00); 
BGl_list2349z00zz__dssslz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2275z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2347z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2329z00zz__dssslz00, BNIL)))))); 
BGl_list2353z00zz__dssslz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2275z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2351z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2329z00zz__dssslz00, BNIL)))))); 
BGl_list2373z00zz__dssslz00 = 
MAKE_YOUNG_PAIR((BOPTIONAL), 
MAKE_YOUNG_PAIR((BREST), 
MAKE_YOUNG_PAIR((BKEY), BNIL))); 
BGl_list2377z00zz__dssslz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2374z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2375z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2329z00zz__dssslz00, BNIL)))))); 
BGl_list2379z00zz__dssslz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2374z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2378z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2329z00zz__dssslz00, BNIL)))))); 
return ( 
BGl_list2382z00zz__dssslz00 = 
MAKE_YOUNG_PAIR(BGl_symbol2271z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2273z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2380z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_string2381z00zz__dssslz00, 
MAKE_YOUNG_PAIR(BGl_symbol2329z00zz__dssslz00, BNIL)))))), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__dssslz00(void)
{
{ /* Llib/dsssl.scm 14 */
return 
bgl_gc_roots_register();} 

}



/* dsssl-named-constant? */
BGL_EXPORTED_DEF bool_t BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(obj_t BgL_objz00_3)
{
{ /* Llib/dsssl.scm 59 */
if(
CNSTP(BgL_objz00_3))
{ /* Llib/dsssl.scm 60 */
return 
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_3, BGl_list2267z00zz__dssslz00));}  else 
{ /* Llib/dsssl.scm 60 */
return ((bool_t)0);} } 

}



/* &dsssl-named-constant? */
obj_t BGl_z62dssslzd2namedzd2constantzf3z91zz__dssslz00(obj_t BgL_envz00_2531, obj_t BgL_objz00_2532)
{
{ /* Llib/dsssl.scm 59 */
return 
BBOOL(
BGl_dssslzd2namedzd2constantzf3zf3zz__dssslz00(BgL_objz00_2532));} 

}



/* make-dsssl-function-prelude */
BGL_EXPORTED_DEF obj_t BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(obj_t BgL_wherez00_4, obj_t BgL_formalsz00_5, obj_t BgL_bodyz00_6, obj_t BgL_errz00_7)
{
{ /* Llib/dsssl.scm 71 */
{ /* Llib/dsssl.scm 75 */
 obj_t BgL_nozd2restzd2keyzd2statezd2_2534; obj_t BgL_restzd2statezd2_2535; obj_t BgL_optionalzd2statezd2_2536;
{ 
 int BgL_tmpz00_2982;
BgL_tmpz00_2982 = 
(int)(4L); 
BgL_nozd2restzd2keyzd2statezd2_2534 = 
MAKE_L_PROCEDURE(BGl_z62nozd2restzd2keyzd2statezb0zz__dssslz00, BgL_tmpz00_2982); } 
{ 
 int BgL_tmpz00_2985;
BgL_tmpz00_2985 = 
(int)(4L); 
BgL_restzd2statezd2_2535 = 
MAKE_L_PROCEDURE(BGl_z62restzd2statezb0zz__dssslz00, BgL_tmpz00_2985); } 
{ 
 int BgL_tmpz00_2988;
BgL_tmpz00_2988 = 
(int)(6L); 
BgL_optionalzd2statezd2_2536 = 
MAKE_L_PROCEDURE(BGl_z62optionalzd2statezb0zz__dssslz00, BgL_tmpz00_2988); } 
PROCEDURE_L_SET(BgL_nozd2restzd2keyzd2statezd2_2534, 
(int)(0L), BgL_bodyz00_6); 
PROCEDURE_L_SET(BgL_nozd2restzd2keyzd2statezd2_2534, 
(int)(1L), BgL_errz00_7); 
PROCEDURE_L_SET(BgL_nozd2restzd2keyzd2statezd2_2534, 
(int)(2L), BgL_wherez00_4); 
PROCEDURE_L_SET(BgL_nozd2restzd2keyzd2statezd2_2534, 
(int)(3L), BgL_formalsz00_5); 
PROCEDURE_L_SET(BgL_restzd2statezd2_2535, 
(int)(0L), BgL_errz00_7); 
PROCEDURE_L_SET(BgL_restzd2statezd2_2535, 
(int)(1L), BgL_wherez00_4); 
PROCEDURE_L_SET(BgL_restzd2statezd2_2535, 
(int)(2L), BgL_formalsz00_5); 
PROCEDURE_L_SET(BgL_restzd2statezd2_2535, 
(int)(3L), BgL_bodyz00_6); 
PROCEDURE_L_SET(BgL_optionalzd2statezd2_2536, 
(int)(0L), BgL_errz00_7); 
PROCEDURE_L_SET(BgL_optionalzd2statezd2_2536, 
(int)(1L), BgL_wherez00_4); 
PROCEDURE_L_SET(BgL_optionalzd2statezd2_2536, 
(int)(2L), BgL_formalsz00_5); 
PROCEDURE_L_SET(BgL_optionalzd2statezd2_2536, 
(int)(3L), BgL_nozd2restzd2keyzd2statezd2_2534); 
PROCEDURE_L_SET(BgL_optionalzd2statezd2_2536, 
(int)(4L), BgL_restzd2statezd2_2535); 
PROCEDURE_L_SET(BgL_optionalzd2statezd2_2536, 
(int)(5L), BgL_bodyz00_6); 
{ 
 obj_t BgL_argsz00_1140; obj_t BgL_nextzd2statezd2_1141; obj_t BgL_argsz00_1111;
BgL_argsz00_1111 = BgL_formalsz00_5; 
BgL_zc3z04anonymousza31164ze3z87_1112:
if(
PAIRP(BgL_argsz00_1111))
{ /* Llib/dsssl.scm 77 */
 bool_t BgL_test2474z00_3021;
{ /* Llib/dsssl.scm 77 */
 bool_t BgL_test2475z00_3022;
{ /* Llib/dsssl.scm 77 */
 obj_t BgL_tmpz00_3023;
BgL_tmpz00_3023 = 
CAR(BgL_argsz00_1111); 
BgL_test2475z00_3022 = 
SYMBOLP(BgL_tmpz00_3023); } 
if(BgL_test2475z00_3022)
{ /* Llib/dsssl.scm 77 */
BgL_test2474z00_3021 = ((bool_t)0)
; }  else 
{ /* Llib/dsssl.scm 77 */
 bool_t BgL_test2476z00_3026;
{ /* Llib/dsssl.scm 77 */
 obj_t BgL_tmpz00_3027;
BgL_tmpz00_3027 = 
CAR(BgL_argsz00_1111); 
BgL_test2476z00_3026 = 
PAIRP(BgL_tmpz00_3027); } 
if(BgL_test2476z00_3026)
{ /* Llib/dsssl.scm 77 */
BgL_test2474z00_3021 = ((bool_t)0)
; }  else 
{ /* Llib/dsssl.scm 77 */
BgL_test2474z00_3021 = ((bool_t)1)
; } } } 
if(BgL_test2474z00_3021)
{ /* Llib/dsssl.scm 77 */
if(
(
CAR(BgL_argsz00_1111)==(BOPTIONAL)))
{ /* Llib/dsssl.scm 81 */
BgL_argsz00_1140 = 
CDR(BgL_argsz00_1111); 
BgL_nextzd2statezd2_1141 = BgL_optionalzd2statezd2_2536; 
BgL_zc3z04anonymousza31218ze3z87_1142:
{ 
 obj_t BgL_asz00_1144;
BgL_asz00_1144 = BgL_argsz00_1140; 
if(
PAIRP(BgL_asz00_1144))
{ 

{ /* Llib/dsssl.scm 99 */
 obj_t BgL_ezd2104zd2_1150;
BgL_ezd2104zd2_1150 = 
CAR(BgL_asz00_1144); 
if(
SYMBOLP(BgL_ezd2104zd2_1150))
{ /* Llib/dsssl.scm 99 */
{ /* Llib/dsssl.scm 101 */
 obj_t BgL_dssslzd2argzd2_1161;
BgL_dssslzd2argzd2_1161 = 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2279z00zz__dssslz00); 
{ /* Llib/dsssl.scm 102 */
 obj_t BgL_arg1235z00_1162;
{ /* Llib/dsssl.scm 102 */
 obj_t BgL_arg1236z00_1163; obj_t BgL_arg1239z00_1164;
{ /* Llib/dsssl.scm 102 */
 obj_t BgL_arg1241z00_1165;
{ /* Llib/dsssl.scm 102 */
 obj_t BgL_arg1242z00_1166;
{ /* Llib/dsssl.scm 102 */
 obj_t BgL_arg1248z00_1167;
BgL_arg1248z00_1167 = 
CAR(
((obj_t)BgL_asz00_1144)); 
BgL_arg1242z00_1166 = 
MAKE_YOUNG_PAIR(BgL_arg1248z00_1167, BNIL); } 
BgL_arg1241z00_1165 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_1161, BgL_arg1242z00_1166); } 
BgL_arg1236z00_1163 = 
MAKE_YOUNG_PAIR(BgL_arg1241z00_1165, BNIL); } 
{ /* Llib/dsssl.scm 103 */
 obj_t BgL_arg1249z00_1168;
BgL_arg1249z00_1168 = 
((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_L_ENTRY(BgL_nextzd2statezd2_1141))(BgL_nextzd2statezd2_1141, BgL_argsz00_1140, BgL_dssslzd2argzd2_1161); 
BgL_arg1239z00_1164 = 
MAKE_YOUNG_PAIR(BgL_arg1249z00_1168, BNIL); } 
BgL_arg1235z00_1162 = 
MAKE_YOUNG_PAIR(BgL_arg1236z00_1163, BgL_arg1239z00_1164); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2281z00zz__dssslz00, BgL_arg1235z00_1162);} } }  else 
{ /* Llib/dsssl.scm 99 */
if(
PAIRP(BgL_ezd2104zd2_1150))
{ /* Llib/dsssl.scm 99 */
 obj_t BgL_cdrzd2106zd2_1153;
BgL_cdrzd2106zd2_1153 = 
CDR(BgL_ezd2104zd2_1150); 
{ /* Llib/dsssl.scm 99 */
 bool_t BgL_test2481z00_3055;
{ /* Llib/dsssl.scm 99 */
 obj_t BgL_tmpz00_3056;
BgL_tmpz00_3056 = 
CAR(BgL_ezd2104zd2_1150); 
BgL_test2481z00_3055 = 
SYMBOLP(BgL_tmpz00_3056); } 
if(BgL_test2481z00_3055)
{ /* Llib/dsssl.scm 99 */
if(
PAIRP(BgL_cdrzd2106zd2_1153))
{ /* Llib/dsssl.scm 99 */
if(
NULLP(
CDR(BgL_cdrzd2106zd2_1153)))
{ /* Llib/dsssl.scm 99 */
{ /* Llib/dsssl.scm 105 */
 obj_t BgL_dssslzd2argzd2_1169;
BgL_dssslzd2argzd2_1169 = 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2279z00zz__dssslz00); 
{ /* Llib/dsssl.scm 106 */
 obj_t BgL_arg1252z00_1170;
{ /* Llib/dsssl.scm 106 */
 obj_t BgL_arg1253z00_1171; obj_t BgL_arg1254z00_1172;
{ /* Llib/dsssl.scm 106 */
 obj_t BgL_arg1258z00_1173;
{ /* Llib/dsssl.scm 106 */
 obj_t BgL_arg1259z00_1174;
{ /* Llib/dsssl.scm 106 */
 obj_t BgL_arg1261z00_1175;
{ /* Llib/dsssl.scm 106 */
 obj_t BgL_pairz00_2157;
{ /* Llib/dsssl.scm 106 */
 obj_t BgL_aux2133z00_2612;
BgL_aux2133z00_2612 = 
CAR(
((obj_t)BgL_asz00_1144)); 
if(
PAIRP(BgL_aux2133z00_2612))
{ /* Llib/dsssl.scm 106 */
BgL_pairz00_2157 = BgL_aux2133z00_2612; }  else 
{ 
 obj_t BgL_auxz00_3069;
BgL_auxz00_3069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(4202L), BGl_string2284z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2133z00_2612); 
FAILURE(BgL_auxz00_3069,BFALSE,BFALSE);} } 
BgL_arg1261z00_1175 = 
CAR(BgL_pairz00_2157); } 
BgL_arg1259z00_1174 = 
MAKE_YOUNG_PAIR(BgL_arg1261z00_1175, BNIL); } 
BgL_arg1258z00_1173 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_1169, BgL_arg1259z00_1174); } 
BgL_arg1253z00_1171 = 
MAKE_YOUNG_PAIR(BgL_arg1258z00_1173, BNIL); } 
{ /* Llib/dsssl.scm 107 */
 obj_t BgL_arg1263z00_1177;
BgL_arg1263z00_1177 = 
((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_L_ENTRY(BgL_nextzd2statezd2_1141))(BgL_nextzd2statezd2_1141, BgL_argsz00_1140, BgL_dssslzd2argzd2_1169); 
BgL_arg1254z00_1172 = 
MAKE_YOUNG_PAIR(BgL_arg1263z00_1177, BNIL); } 
BgL_arg1252z00_1170 = 
MAKE_YOUNG_PAIR(BgL_arg1253z00_1171, BgL_arg1254z00_1172); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2281z00zz__dssslz00, BgL_arg1252z00_1170);} } }  else 
{ /* Llib/dsssl.scm 99 */
BgL_tagzd2103zd2_1149:
{ /* Llib/dsssl.scm 109 */
 obj_t BgL_arg1265z00_1178;
{ /* Llib/dsssl.scm 109 */
 obj_t BgL_arg1266z00_1179;
BgL_arg1266z00_1179 = 
CAR(
((obj_t)BgL_asz00_1144)); 
BgL_arg1265z00_1178 = 
MAKE_YOUNG_PAIR(BgL_arg1266z00_1179, BgL_formalsz00_5); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_7, 3))
{ /* Llib/dsssl.scm 109 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_7, BgL_wherez00_4, BGl_string2286z00zz__dssslz00, BgL_arg1265z00_1178);}  else 
{ /* Llib/dsssl.scm 109 */
FAILURE(BGl_string2287z00zz__dssslz00,BGl_list2288z00zz__dssslz00,BgL_errz00_7);} } } }  else 
{ /* Llib/dsssl.scm 99 */
goto BgL_tagzd2103zd2_1149;} }  else 
{ /* Llib/dsssl.scm 99 */
goto BgL_tagzd2103zd2_1149;} } }  else 
{ /* Llib/dsssl.scm 99 */
goto BgL_tagzd2103zd2_1149;} } } }  else 
{ /* Llib/dsssl.scm 97 */
 obj_t BgL_arg1267z00_1180;
BgL_arg1267z00_1180 = 
MAKE_YOUNG_PAIR(BgL_asz00_1144, BgL_formalsz00_5); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_7, 3))
{ /* Llib/dsssl.scm 97 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_7, BgL_wherez00_4, BGl_string2291z00zz__dssslz00, BgL_arg1267z00_1180);}  else 
{ /* Llib/dsssl.scm 97 */
FAILURE(BGl_string2292z00zz__dssslz00,BGl_list2293z00zz__dssslz00,BgL_errz00_7);} } } }  else 
{ /* Llib/dsssl.scm 81 */
if(
(
CAR(BgL_argsz00_1111)==(BREST)))
{ 
 obj_t BgL_nextzd2statezd2_3113; obj_t BgL_argsz00_3111;
BgL_argsz00_3111 = 
CDR(BgL_argsz00_1111); 
BgL_nextzd2statezd2_3113 = BgL_restzd2statezd2_2535; 
BgL_nextzd2statezd2_1141 = BgL_nextzd2statezd2_3113; 
BgL_argsz00_1140 = BgL_argsz00_3111; 
goto BgL_zc3z04anonymousza31218ze3z87_1142;}  else 
{ /* Llib/dsssl.scm 83 */
if(
(
CAR(BgL_argsz00_1111)==(BKEY)))
{ 
 obj_t BgL_nextzd2statezd2_3119; obj_t BgL_argsz00_3117;
BgL_argsz00_3117 = 
CDR(BgL_argsz00_1111); 
BgL_nextzd2statezd2_3119 = BgL_nozd2restzd2keyzd2statezd2_2534; 
BgL_nextzd2statezd2_1141 = BgL_nextzd2statezd2_3119; 
BgL_argsz00_1140 = BgL_argsz00_3117; 
goto BgL_zc3z04anonymousza31218ze3z87_1142;}  else 
{ /* Llib/dsssl.scm 88 */
 obj_t BgL_arg1206z00_1130;
BgL_arg1206z00_1130 = 
MAKE_YOUNG_PAIR(
CAR(BgL_argsz00_1111), BgL_formalsz00_5); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_7, 3))
{ /* Llib/dsssl.scm 88 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_7, BgL_wherez00_4, BGl_string2268z00zz__dssslz00, BgL_arg1206z00_1130);}  else 
{ /* Llib/dsssl.scm 88 */
FAILURE(BGl_string2269z00zz__dssslz00,BGl_list2270z00zz__dssslz00,BgL_errz00_7);} } } } }  else 
{ 
 obj_t BgL_argsz00_3131;
BgL_argsz00_3131 = 
CDR(BgL_argsz00_1111); 
BgL_argsz00_1111 = BgL_argsz00_3131; 
goto BgL_zc3z04anonymousza31164ze3z87_1112;} }  else 
{ /* Llib/dsssl.scm 75 */
return BgL_bodyz00_6;} } } } 

}



/* &make-dsssl-function-prelude */
obj_t BGl_z62makezd2dssslzd2functionzd2preludezb0zz__dssslz00(obj_t BgL_envz00_2537, obj_t BgL_wherez00_2538, obj_t BgL_formalsz00_2539, obj_t BgL_bodyz00_2540, obj_t BgL_errz00_2541)
{
{ /* Llib/dsssl.scm 71 */
{ /* Llib/dsssl.scm 75 */
 obj_t BgL_auxz00_3133;
if(
PROCEDUREP(BgL_errz00_2541))
{ /* Llib/dsssl.scm 75 */
BgL_auxz00_3133 = BgL_errz00_2541
; }  else 
{ 
 obj_t BgL_auxz00_3136;
BgL_auxz00_3136 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(3130L), BGl_string2296z00zz__dssslz00, BGl_string2297z00zz__dssslz00, BgL_errz00_2541); 
FAILURE(BgL_auxz00_3136,BFALSE,BFALSE);} 
return 
BGl_makezd2dssslzd2functionzd2preludezd2zz__dssslz00(BgL_wherez00_2538, BgL_formalsz00_2539, BgL_bodyz00_2540, BgL_auxz00_3133);} } 

}



/* &key-state */
obj_t BGl_z62keyzd2statezb0zz__dssslz00(obj_t BgL_bodyz00_2545, obj_t BgL_formalsz00_2544, obj_t BgL_wherez00_2543, obj_t BgL_errz00_2542, obj_t BgL_argsz00_1428, obj_t BgL_dssslzd2argzd2_1429, obj_t BgL_collectedzd2keyszd2_1430, bool_t BgL_allowzd2restpzd2_1431)
{
{ /* Llib/dsssl.scm 264 */
{ 
 obj_t BgL_argz00_1518; obj_t BgL_initializa7erza7_1519; obj_t BgL_collectedzd2keyszd2_1520; obj_t BgL_argz00_1536; obj_t BgL_bodyz00_1537;
if(
NULLP(BgL_argsz00_1428))
{ /* Llib/dsssl.scm 271 */
if(BgL_allowzd2restpzd2_1431)
{ /* Llib/dsssl.scm 274 */
 obj_t BgL_arg1490z00_1436;
{ /* Llib/dsssl.scm 274 */
 obj_t BgL_arg1491z00_1437; obj_t BgL_arg1492z00_1438;
{ /* Llib/dsssl.scm 274 */
 obj_t BgL_arg1494z00_1439;
{ /* Llib/dsssl.scm 274 */
 obj_t BgL_arg1495z00_1440;
{ /* Llib/dsssl.scm 274 */
 obj_t BgL_arg1497z00_1441;
{ /* Llib/dsssl.scm 274 */
 obj_t BgL_arg1498z00_1442;
{ /* Llib/dsssl.scm 274 */
 obj_t BgL_arg1499z00_1443;
{ /* Llib/dsssl.scm 274 */
 obj_t BgL_arg1500z00_1444;
BgL_arg1500z00_1444 = 
MAKE_YOUNG_PAIR(BgL_collectedzd2keyszd2_1430, BNIL); 
BgL_arg1499z00_1443 = 
MAKE_YOUNG_PAIR(BGl_symbol2298z00zz__dssslz00, BgL_arg1500z00_1444); } 
BgL_arg1498z00_1442 = 
MAKE_YOUNG_PAIR(BgL_arg1499z00_1443, BNIL); } 
BgL_arg1497z00_1441 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_1429, BgL_arg1498z00_1442); } 
BgL_arg1495z00_1440 = 
MAKE_YOUNG_PAIR(BGl_symbol2300z00zz__dssslz00, BgL_arg1497z00_1441); } 
BgL_arg1494z00_1439 = 
MAKE_YOUNG_PAIR(BgL_arg1495z00_1440, BNIL); } 
BgL_arg1491z00_1437 = 
MAKE_YOUNG_PAIR(BGl_symbol2305z00zz__dssslz00, BgL_arg1494z00_1439); } 
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1501z00_1445;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1502z00_1446;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1505z00_1447;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1506z00_1448;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1507z00_1449; obj_t BgL_arg1508z00_1450;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1509z00_1451;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1510z00_1452;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1511z00_1453;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1512z00_1454;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1513z00_1455;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1514z00_1456; obj_t BgL_arg1515z00_1457;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1516z00_1458;
{ /* Llib/dsssl.scm 278 */
 obj_t BgL_arg1517z00_1459; obj_t BgL_arg1520z00_1460;
BgL_arg1517z00_1459 = 
MAKE_YOUNG_PAIR(BGl_symbol2307z00zz__dssslz00, BNIL); 
{ /* Llib/dsssl.scm 279 */
 obj_t BgL_arg1521z00_1461;
{ /* Llib/dsssl.scm 279 */
 obj_t BgL_arg1522z00_1462;
{ /* Llib/dsssl.scm 279 */
 obj_t BgL_arg1523z00_1463;
BgL_arg1523z00_1463 = 
MAKE_YOUNG_PAIR(BGl_symbol2307z00zz__dssslz00, BNIL); 
BgL_arg1522z00_1462 = 
MAKE_YOUNG_PAIR(BGl_string2309z00zz__dssslz00, BgL_arg1523z00_1463); } 
BgL_arg1521z00_1461 = 
MAKE_YOUNG_PAIR(BGl_symbol2310z00zz__dssslz00, BgL_arg1522z00_1462); } 
BgL_arg1520z00_1460 = 
MAKE_YOUNG_PAIR(BgL_arg1521z00_1461, BNIL); } 
BgL_arg1516z00_1458 = 
MAKE_YOUNG_PAIR(BgL_arg1517z00_1459, BgL_arg1520z00_1460); } 
BgL_arg1514z00_1456 = 
MAKE_YOUNG_PAIR(BGl_symbol2312z00zz__dssslz00, BgL_arg1516z00_1458); } 
{ /* Llib/dsssl.scm 280 */
 obj_t BgL_arg1524z00_1464;
{ /* Llib/dsssl.scm 280 */
 obj_t BgL_arg1525z00_1465;
{ /* Llib/dsssl.scm 280 */
 obj_t BgL_arg1526z00_1466;
{ /* Llib/dsssl.scm 280 */
 obj_t BgL_arg1527z00_1467;
{ /* Llib/dsssl.scm 280 */
 obj_t BgL_arg1528z00_1468;
BgL_arg1528z00_1468 = 
MAKE_YOUNG_PAIR(BgL_collectedzd2keyszd2_1430, BNIL); 
BgL_arg1527z00_1467 = 
MAKE_YOUNG_PAIR(BGl_symbol2298z00zz__dssslz00, BgL_arg1528z00_1468); } 
BgL_arg1526z00_1466 = 
MAKE_YOUNG_PAIR(BgL_arg1527z00_1467, BNIL); } 
BgL_arg1525z00_1465 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_1429, BgL_arg1526z00_1466); } 
BgL_arg1524z00_1464 = 
MAKE_YOUNG_PAIR(BGl_symbol2300z00zz__dssslz00, BgL_arg1525z00_1465); } 
BgL_arg1515z00_1457 = 
MAKE_YOUNG_PAIR(BgL_arg1524z00_1464, BNIL); } 
BgL_arg1513z00_1455 = 
MAKE_YOUNG_PAIR(BgL_arg1514z00_1456, BgL_arg1515z00_1457); } 
BgL_arg1512z00_1454 = 
MAKE_YOUNG_PAIR(BGl_symbol2314z00zz__dssslz00, BgL_arg1513z00_1455); } 
BgL_arg1511z00_1453 = 
MAKE_YOUNG_PAIR(BgL_arg1512z00_1454, BNIL); } 
BgL_arg1510z00_1452 = 
MAKE_YOUNG_PAIR(BGl_string2316z00zz__dssslz00, BgL_arg1511z00_1453); } 
BgL_arg1509z00_1451 = 
MAKE_YOUNG_PAIR(BGl_symbol2317z00zz__dssslz00, BgL_arg1510z00_1452); } 
BgL_arg1507z00_1449 = 
MAKE_YOUNG_PAIR(BGl_symbol2319z00zz__dssslz00, BgL_arg1509z00_1451); } 
BgL_arg1508z00_1450 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_1429, BNIL); 
BgL_arg1506z00_1448 = 
MAKE_YOUNG_PAIR(BgL_arg1507z00_1449, BgL_arg1508z00_1450); } 
BgL_arg1505z00_1447 = 
MAKE_YOUNG_PAIR(BGl_string2303z00zz__dssslz00, BgL_arg1506z00_1448); } 
BgL_arg1502z00_1446 = 
MAKE_YOUNG_PAIR(BGl_symbol2321z00zz__dssslz00, BgL_arg1505z00_1447); } 
BgL_arg1501z00_1445 = 
MAKE_YOUNG_PAIR(BgL_arg1502z00_1446, BNIL); } 
BgL_arg1492z00_1438 = 
MAKE_YOUNG_PAIR(BgL_bodyz00_2545, BgL_arg1501z00_1445); } 
BgL_arg1490z00_1436 = 
MAKE_YOUNG_PAIR(BgL_arg1491z00_1437, BgL_arg1492z00_1438); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2323z00zz__dssslz00, BgL_arg1490z00_1436);}  else 
{ /* Llib/dsssl.scm 272 */
return BgL_bodyz00_2545;} }  else 
{ /* Llib/dsssl.scm 284 */
 bool_t BgL_test2493z00_3178;
{ /* Llib/dsssl.scm 284 */
 obj_t BgL_tmpz00_3179;
{ /* Llib/dsssl.scm 284 */
 obj_t BgL_pairz00_2236;
if(
PAIRP(BgL_argsz00_1428))
{ /* Llib/dsssl.scm 284 */
BgL_pairz00_2236 = BgL_argsz00_1428; }  else 
{ 
 obj_t BgL_auxz00_3182;
BgL_auxz00_3182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(9565L), BGl_string2325z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1428); 
FAILURE(BgL_auxz00_3182,BFALSE,BFALSE);} 
BgL_tmpz00_3179 = 
CAR(BgL_pairz00_2236); } 
BgL_test2493z00_3178 = 
(BgL_tmpz00_3179==(BREST)); } 
if(BgL_test2493z00_3178)
{ /* Llib/dsssl.scm 285 */
 bool_t BgL_test2495z00_3188;
if(BgL_allowzd2restpzd2_1431)
{ /* Llib/dsssl.scm 286 */
 bool_t BgL_test2497z00_3190;
{ /* Llib/dsssl.scm 286 */
 obj_t BgL_tmpz00_3191;
{ /* Llib/dsssl.scm 286 */
 obj_t BgL_pairz00_2237;
if(
PAIRP(BgL_argsz00_1428))
{ /* Llib/dsssl.scm 286 */
BgL_pairz00_2237 = BgL_argsz00_1428; }  else 
{ 
 obj_t BgL_auxz00_3194;
BgL_auxz00_3194 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(9624L), BGl_string2325z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1428); 
FAILURE(BgL_auxz00_3194,BFALSE,BFALSE);} 
BgL_tmpz00_3191 = 
CDR(BgL_pairz00_2237); } 
BgL_test2497z00_3190 = 
NULLP(BgL_tmpz00_3191); } 
if(BgL_test2497z00_3190)
{ /* Llib/dsssl.scm 286 */
BgL_test2495z00_3188 = ((bool_t)1)
; }  else 
{ /* Llib/dsssl.scm 287 */
 bool_t BgL_test2499z00_3200;
{ /* Llib/dsssl.scm 287 */
 obj_t BgL_tmpz00_3201;
{ /* Llib/dsssl.scm 287 */
 obj_t BgL_pairz00_2238;
if(
PAIRP(BgL_argsz00_1428))
{ /* Llib/dsssl.scm 287 */
BgL_pairz00_2238 = BgL_argsz00_1428; }  else 
{ 
 obj_t BgL_auxz00_3204;
BgL_auxz00_3204 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(9655L), BGl_string2325z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1428); 
FAILURE(BgL_auxz00_3204,BFALSE,BFALSE);} 
{ /* Llib/dsssl.scm 287 */
 obj_t BgL_pairz00_2241;
{ /* Llib/dsssl.scm 287 */
 obj_t BgL_aux2149z00_2630;
BgL_aux2149z00_2630 = 
CDR(BgL_pairz00_2238); 
if(
PAIRP(BgL_aux2149z00_2630))
{ /* Llib/dsssl.scm 287 */
BgL_pairz00_2241 = BgL_aux2149z00_2630; }  else 
{ 
 obj_t BgL_auxz00_3211;
BgL_auxz00_3211 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(9649L), BGl_string2325z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2149z00_2630); 
FAILURE(BgL_auxz00_3211,BFALSE,BFALSE);} } 
BgL_tmpz00_3201 = 
CAR(BgL_pairz00_2241); } } 
BgL_test2499z00_3200 = 
SYMBOLP(BgL_tmpz00_3201); } 
if(BgL_test2499z00_3200)
{ /* Llib/dsssl.scm 288 */
 obj_t BgL_tmpz00_3217;
{ /* Llib/dsssl.scm 288 */
 obj_t BgL_pairz00_2242;
if(
PAIRP(BgL_argsz00_1428))
{ /* Llib/dsssl.scm 288 */
BgL_pairz00_2242 = BgL_argsz00_1428; }  else 
{ 
 obj_t BgL_auxz00_3220;
BgL_auxz00_3220 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(9680L), BGl_string2325z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1428); 
FAILURE(BgL_auxz00_3220,BFALSE,BFALSE);} 
{ /* Llib/dsssl.scm 288 */
 obj_t BgL_pairz00_2245;
{ /* Llib/dsssl.scm 288 */
 obj_t BgL_aux2153z00_2634;
BgL_aux2153z00_2634 = 
CDR(BgL_pairz00_2242); 
if(
PAIRP(BgL_aux2153z00_2634))
{ /* Llib/dsssl.scm 288 */
BgL_pairz00_2245 = BgL_aux2153z00_2634; }  else 
{ 
 obj_t BgL_auxz00_3227;
BgL_auxz00_3227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(9674L), BGl_string2325z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2153z00_2634); 
FAILURE(BgL_auxz00_3227,BFALSE,BFALSE);} } 
BgL_tmpz00_3217 = 
CDR(BgL_pairz00_2245); } } 
BgL_test2495z00_3188 = 
PAIRP(BgL_tmpz00_3217); }  else 
{ /* Llib/dsssl.scm 287 */
BgL_test2495z00_3188 = ((bool_t)1)
; } } }  else 
{ /* Llib/dsssl.scm 285 */
BgL_test2495z00_3188 = ((bool_t)1)
; } 
if(BgL_test2495z00_3188)
{ /* Llib/dsssl.scm 285 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2542, 3))
{ /* Llib/dsssl.scm 289 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2542, BgL_wherez00_2543, BGl_string2326z00zz__dssslz00, BgL_formalsz00_2544);}  else 
{ /* Llib/dsssl.scm 289 */
FAILURE(BGl_string2327z00zz__dssslz00,BGl_list2328z00zz__dssslz00,BgL_errz00_2542);} }  else 
{ /* Llib/dsssl.scm 290 */
 obj_t BgL_arg1545z00_1479;
{ /* Llib/dsssl.scm 290 */
 obj_t BgL_pairz00_2246;
if(
PAIRP(BgL_argsz00_1428))
{ /* Llib/dsssl.scm 290 */
BgL_pairz00_2246 = BgL_argsz00_1428; }  else 
{ 
 obj_t BgL_auxz00_3244;
BgL_auxz00_3244 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(9779L), BGl_string2325z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1428); 
FAILURE(BgL_auxz00_3244,BFALSE,BFALSE);} 
{ /* Llib/dsssl.scm 290 */
 obj_t BgL_pairz00_2249;
{ /* Llib/dsssl.scm 290 */
 obj_t BgL_aux2158z00_2640;
BgL_aux2158z00_2640 = 
CDR(BgL_pairz00_2246); 
if(
PAIRP(BgL_aux2158z00_2640))
{ /* Llib/dsssl.scm 290 */
BgL_pairz00_2249 = BgL_aux2158z00_2640; }  else 
{ 
 obj_t BgL_auxz00_3251;
BgL_auxz00_3251 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(9773L), BGl_string2325z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2158z00_2640); 
FAILURE(BgL_auxz00_3251,BFALSE,BFALSE);} } 
BgL_arg1545z00_1479 = 
CAR(BgL_pairz00_2249); } } 
BgL_argz00_1536 = BgL_arg1545z00_1479; 
BgL_bodyz00_1537 = BgL_bodyz00_2545; 
{ /* Llib/dsssl.scm 267 */
 obj_t BgL_arg1602z00_1539;
{ /* Llib/dsssl.scm 267 */
 obj_t BgL_arg1603z00_1540; obj_t BgL_arg1604z00_1541;
{ /* Llib/dsssl.scm 267 */
 obj_t BgL_arg1605z00_1542;
{ /* Llib/dsssl.scm 267 */
 obj_t BgL_arg1608z00_1543;
{ /* Llib/dsssl.scm 267 */
 obj_t BgL_arg1609z00_1544;
{ /* Llib/dsssl.scm 267 */
 obj_t BgL_arg1610z00_1545;
{ /* Llib/dsssl.scm 267 */
 obj_t BgL_arg1612z00_1546;
{ /* Llib/dsssl.scm 267 */
 obj_t BgL_arg1613z00_1547;
{ /* Llib/dsssl.scm 267 */
 obj_t BgL_arg1614z00_1548;
BgL_arg1614z00_1548 = 
MAKE_YOUNG_PAIR(BgL_collectedzd2keyszd2_1430, BNIL); 
BgL_arg1613z00_1547 = 
MAKE_YOUNG_PAIR(BGl_symbol2298z00zz__dssslz00, BgL_arg1614z00_1548); } 
BgL_arg1612z00_1546 = 
MAKE_YOUNG_PAIR(BgL_arg1613z00_1547, BNIL); } 
BgL_arg1610z00_1545 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_1429, BgL_arg1612z00_1546); } 
BgL_arg1609z00_1544 = 
MAKE_YOUNG_PAIR(BGl_symbol2300z00zz__dssslz00, BgL_arg1610z00_1545); } 
BgL_arg1608z00_1543 = 
MAKE_YOUNG_PAIR(BgL_arg1609z00_1544, BNIL); } 
BgL_arg1605z00_1542 = 
MAKE_YOUNG_PAIR(BgL_argz00_1536, BgL_arg1608z00_1543); } 
BgL_arg1603z00_1540 = 
MAKE_YOUNG_PAIR(BgL_arg1605z00_1542, BNIL); } 
BgL_arg1604z00_1541 = 
MAKE_YOUNG_PAIR(BgL_bodyz00_1537, BNIL); 
BgL_arg1602z00_1539 = 
MAKE_YOUNG_PAIR(BgL_arg1603z00_1540, BgL_arg1604z00_1541); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2281z00zz__dssslz00, BgL_arg1602z00_1539);} } }  else 
{ /* Llib/dsssl.scm 284 */
if(
PAIRP(BgL_argsz00_1428))
{ /* Llib/dsssl.scm 293 */
 bool_t BgL_test2508z00_3269;
{ /* Llib/dsssl.scm 293 */
 bool_t BgL_test2509z00_3270;
{ /* Llib/dsssl.scm 293 */
 obj_t BgL_tmpz00_3271;
BgL_tmpz00_3271 = 
CAR(BgL_argsz00_1428); 
BgL_test2509z00_3270 = 
SYMBOLP(BgL_tmpz00_3271); } 
if(BgL_test2509z00_3270)
{ /* Llib/dsssl.scm 293 */
BgL_test2508z00_3269 = ((bool_t)0)
; }  else 
{ /* Llib/dsssl.scm 293 */
 bool_t BgL_test2510z00_3274;
{ /* Llib/dsssl.scm 293 */
 obj_t BgL_tmpz00_3275;
BgL_tmpz00_3275 = 
CAR(BgL_argsz00_1428); 
BgL_test2510z00_3274 = 
PAIRP(BgL_tmpz00_3275); } 
if(BgL_test2510z00_3274)
{ /* Llib/dsssl.scm 293 */
BgL_test2508z00_3269 = ((bool_t)0)
; }  else 
{ /* Llib/dsssl.scm 293 */
BgL_test2508z00_3269 = ((bool_t)1)
; } } } 
if(BgL_test2508z00_3269)
{ /* Llib/dsssl.scm 293 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2542, 3))
{ /* Llib/dsssl.scm 294 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2542, BgL_wherez00_2543, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2544);}  else 
{ /* Llib/dsssl.scm 294 */
FAILURE(BGl_string2327z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2542);} }  else 
{ /* Llib/dsssl.scm 297 */
 obj_t BgL_ezd2162zd2_1499;
BgL_ezd2162zd2_1499 = 
CAR(BgL_argsz00_1428); 
if(
PAIRP(BgL_ezd2162zd2_1499))
{ /* Llib/dsssl.scm 297 */
 obj_t BgL_carzd2167zd2_1501; obj_t BgL_cdrzd2168zd2_1502;
BgL_carzd2167zd2_1501 = 
CAR(BgL_ezd2162zd2_1499); 
BgL_cdrzd2168zd2_1502 = 
CDR(BgL_ezd2162zd2_1499); 
if(
SYMBOLP(BgL_carzd2167zd2_1501))
{ /* Llib/dsssl.scm 297 */
if(
PAIRP(BgL_cdrzd2168zd2_1502))
{ /* Llib/dsssl.scm 297 */
if(
NULLP(
CDR(BgL_cdrzd2168zd2_1502)))
{ /* Llib/dsssl.scm 297 */
BgL_argz00_1518 = BgL_carzd2167zd2_1501; 
BgL_initializa7erza7_1519 = 
CAR(BgL_cdrzd2168zd2_1502); 
BgL_collectedzd2keyszd2_1520 = BgL_collectedzd2keyszd2_1430; 
BgL_zc3z04anonymousza31580ze3z87_1521:
{ /* Llib/dsssl.scm 260 */
 obj_t BgL_arg1581z00_1522;
{ /* Llib/dsssl.scm 260 */
 obj_t BgL_arg1582z00_1523; obj_t BgL_arg1584z00_1524;
{ /* Llib/dsssl.scm 260 */
 obj_t BgL_arg1586z00_1525;
{ /* Llib/dsssl.scm 260 */
 obj_t BgL_arg1587z00_1526;
{ /* Llib/dsssl.scm 260 */
 obj_t BgL_arg1588z00_1527;
{ /* Llib/dsssl.scm 260 */
 obj_t BgL_arg1592z00_1528;
{ /* Llib/dsssl.scm 260 */
 obj_t BgL_arg1593z00_1529;
{ /* Llib/dsssl.scm 260 */
 obj_t BgL_arg1595z00_1530; obj_t BgL_arg1596z00_1531;
BgL_arg1595z00_1530 = 
BGl_symbolzd2ze3keywordz31zz__r4_symbols_6_4z00(BgL_argz00_1518); 
BgL_arg1596z00_1531 = 
MAKE_YOUNG_PAIR(BgL_initializa7erza7_1519, BNIL); 
BgL_arg1593z00_1529 = 
MAKE_YOUNG_PAIR(BgL_arg1595z00_1530, BgL_arg1596z00_1531); } 
BgL_arg1592z00_1528 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_1429, BgL_arg1593z00_1529); } 
BgL_arg1588z00_1527 = 
MAKE_YOUNG_PAIR(BGl_symbol2302z00zz__dssslz00, BgL_arg1592z00_1528); } 
BgL_arg1587z00_1526 = 
MAKE_YOUNG_PAIR(BgL_arg1588z00_1527, BNIL); } 
BgL_arg1586z00_1525 = 
MAKE_YOUNG_PAIR(BgL_argz00_1518, BgL_arg1587z00_1526); } 
BgL_arg1582z00_1523 = 
MAKE_YOUNG_PAIR(BgL_arg1586z00_1525, BNIL); } 
{ /* Llib/dsssl.scm 261 */
 obj_t BgL_arg1597z00_1532;
{ /* Llib/dsssl.scm 261 */
 obj_t BgL_arg1598z00_1533; obj_t BgL_arg1599z00_1534;
{ /* Llib/dsssl.scm 261 */
 obj_t BgL_pairz00_2235;
if(
PAIRP(BgL_argsz00_1428))
{ /* Llib/dsssl.scm 261 */
BgL_pairz00_2235 = BgL_argsz00_1428; }  else 
{ 
 obj_t BgL_auxz00_3309;
BgL_auxz00_3309 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(8834L), BGl_string2304z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1428); 
FAILURE(BgL_auxz00_3309,BFALSE,BFALSE);} 
BgL_arg1598z00_1533 = 
CDR(BgL_pairz00_2235); } 
BgL_arg1599z00_1534 = 
MAKE_YOUNG_PAIR(
BGl_symbolzd2ze3keywordz31zz__r4_symbols_6_4z00(BgL_argz00_1518), BgL_collectedzd2keyszd2_1520); 
BgL_arg1597z00_1532 = 
BGl_z62keyzd2statezb0zz__dssslz00(BgL_bodyz00_2545, BgL_formalsz00_2544, BgL_wherez00_2543, BgL_errz00_2542, BgL_arg1598z00_1533, BgL_dssslzd2argzd2_1429, BgL_arg1599z00_1534, BgL_allowzd2restpzd2_1431); } 
BgL_arg1584z00_1524 = 
MAKE_YOUNG_PAIR(BgL_arg1597z00_1532, BNIL); } 
BgL_arg1581z00_1522 = 
MAKE_YOUNG_PAIR(BgL_arg1582z00_1523, BgL_arg1584z00_1524); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2281z00zz__dssslz00, BgL_arg1581z00_1522);} }  else 
{ /* Llib/dsssl.scm 297 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2542, 3))
{ /* Llib/dsssl.scm 303 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2542, BgL_wherez00_2543, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2544);}  else 
{ /* Llib/dsssl.scm 303 */
FAILURE(BGl_string2327z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2542);} } }  else 
{ /* Llib/dsssl.scm 297 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2542, 3))
{ /* Llib/dsssl.scm 303 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2542, BgL_wherez00_2543, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2544);}  else 
{ /* Llib/dsssl.scm 303 */
FAILURE(BGl_string2327z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2542);} } }  else 
{ /* Llib/dsssl.scm 297 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2542, 3))
{ /* Llib/dsssl.scm 303 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2542, BgL_wherez00_2543, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2544);}  else 
{ /* Llib/dsssl.scm 303 */
FAILURE(BGl_string2327z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2542);} } }  else 
{ /* Llib/dsssl.scm 297 */
if(
SYMBOLP(BgL_ezd2162zd2_1499))
{ 
 obj_t BgL_collectedzd2keyszd2_3352; obj_t BgL_initializa7erza7_3351; obj_t BgL_argz00_3350;
BgL_argz00_3350 = BgL_ezd2162zd2_1499; 
BgL_initializa7erza7_3351 = BFALSE; 
BgL_collectedzd2keyszd2_3352 = BgL_collectedzd2keyszd2_1430; 
BgL_collectedzd2keyszd2_1520 = BgL_collectedzd2keyszd2_3352; 
BgL_initializa7erza7_1519 = BgL_initializa7erza7_3351; 
BgL_argz00_1518 = BgL_argz00_3350; 
goto BgL_zc3z04anonymousza31580ze3z87_1521;}  else 
{ /* Llib/dsssl.scm 297 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2542, 3))
{ /* Llib/dsssl.scm 303 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2542, BgL_wherez00_2543, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2544);}  else 
{ /* Llib/dsssl.scm 303 */
FAILURE(BGl_string2327z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2542);} } } } }  else 
{ /* Llib/dsssl.scm 291 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2542, 3))
{ /* Llib/dsssl.scm 292 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2542, BgL_wherez00_2543, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2544);}  else 
{ /* Llib/dsssl.scm 292 */
FAILURE(BGl_string2327z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2542);} } } } } } 

}



/* &optional-state */
obj_t BGl_z62optionalzd2statezb0zz__dssslz00(obj_t BgL_envz00_2546, obj_t BgL_argsz00_2553, obj_t BgL_dssslzd2argzd2_2554)
{
{ /* Llib/dsssl.scm 135 */
{ /* Llib/dsssl.scm 116 */
 obj_t BgL_errz00_2547; obj_t BgL_wherez00_2548; obj_t BgL_formalsz00_2549; obj_t BgL_nozd2restzd2keyzd2statezd2_2550; obj_t BgL_restzd2statezd2_2551; obj_t BgL_bodyz00_2552;
BgL_errz00_2547 = 
((obj_t)
PROCEDURE_L_REF(BgL_envz00_2546, 
(int)(0L))); 
BgL_wherez00_2548 = 
PROCEDURE_L_REF(BgL_envz00_2546, 
(int)(1L)); 
BgL_formalsz00_2549 = 
PROCEDURE_L_REF(BgL_envz00_2546, 
(int)(2L)); 
BgL_nozd2restzd2keyzd2statezd2_2550 = 
((obj_t)
PROCEDURE_L_REF(BgL_envz00_2546, 
(int)(3L))); 
BgL_restzd2statezd2_2551 = 
((obj_t)
PROCEDURE_L_REF(BgL_envz00_2546, 
(int)(4L))); 
BgL_bodyz00_2552 = 
PROCEDURE_L_REF(BgL_envz00_2546, 
(int)(5L)); 
{ 
 obj_t BgL_argsz00_2807;
{ /* Llib/dsssl.scm 183 */
 obj_t BgL_auxz00_3386;
BgL_argsz00_2807 = BgL_argsz00_2553; 
{ 
 obj_t BgL_argsz00_2809;
BgL_argsz00_2809 = BgL_argsz00_2807; 
BgL_loopz00_2808:
if(
PAIRP(BgL_argsz00_2809))
{ /* Llib/dsssl.scm 116 */
if(
(
CAR(BgL_argsz00_2809)==(BKEY)))
{ /* Llib/dsssl.scm 119 */
 obj_t BgL_g1040z00_2810;
BgL_g1040z00_2810 = 
CDR(BgL_argsz00_2809); 
{ 
 obj_t BgL_argsz00_2812; obj_t BgL_resz00_2813;
BgL_argsz00_2812 = BgL_g1040z00_2810; 
BgL_resz00_2813 = BNIL; 
BgL_loopz00_2811:
{ /* Llib/dsssl.scm 122 */
 bool_t BgL_test2525z00_3393;
if(
PAIRP(BgL_argsz00_2812))
{ /* Llib/dsssl.scm 123 */
 bool_t BgL_test2527z00_3396;
{ /* Llib/dsssl.scm 123 */
 bool_t BgL_test2528z00_3397;
{ /* Llib/dsssl.scm 123 */
 obj_t BgL_tmpz00_3398;
BgL_tmpz00_3398 = 
CAR(BgL_argsz00_2812); 
BgL_test2528z00_3397 = 
PAIRP(BgL_tmpz00_3398); } 
if(BgL_test2528z00_3397)
{ /* Llib/dsssl.scm 123 */
BgL_test2527z00_3396 = ((bool_t)1)
; }  else 
{ /* Llib/dsssl.scm 124 */
 obj_t BgL_tmpz00_3401;
BgL_tmpz00_3401 = 
CAR(BgL_argsz00_2812); 
BgL_test2527z00_3396 = 
SYMBOLP(BgL_tmpz00_3401); } } 
if(BgL_test2527z00_3396)
{ /* Llib/dsssl.scm 123 */
if(
(
CAR(BgL_argsz00_2812)==(BOPTIONAL)))
{ /* Llib/dsssl.scm 125 */
BgL_test2525z00_3393 = ((bool_t)1)
; }  else 
{ /* Llib/dsssl.scm 125 */
BgL_test2525z00_3393 = 
(
CAR(BgL_argsz00_2812)==(BREST))
; } }  else 
{ /* Llib/dsssl.scm 123 */
BgL_test2525z00_3393 = ((bool_t)1)
; } }  else 
{ /* Llib/dsssl.scm 122 */
BgL_test2525z00_3393 = ((bool_t)1)
; } 
if(BgL_test2525z00_3393)
{ /* Llib/dsssl.scm 122 */
BgL_auxz00_3386 = BgL_resz00_2813
; }  else 
{ /* Llib/dsssl.scm 128 */
 bool_t BgL_test2530z00_3409;
{ /* Llib/dsssl.scm 128 */
 obj_t BgL_tmpz00_3410;
{ /* Llib/dsssl.scm 128 */
 obj_t BgL_pairz00_2814;
if(
PAIRP(BgL_argsz00_2812))
{ /* Llib/dsssl.scm 128 */
BgL_pairz00_2814 = BgL_argsz00_2812; }  else 
{ 
 obj_t BgL_auxz00_3413;
BgL_auxz00_3413 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(4785L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_2812); 
FAILURE(BgL_auxz00_3413,BFALSE,BFALSE);} 
BgL_tmpz00_3410 = 
CAR(BgL_pairz00_2814); } 
BgL_test2530z00_3409 = 
SYMBOLP(BgL_tmpz00_3410); } 
if(BgL_test2530z00_3409)
{ /* Llib/dsssl.scm 129 */
 obj_t BgL_arg1409z00_2815; obj_t BgL_arg1410z00_2816;
{ /* Llib/dsssl.scm 129 */
 obj_t BgL_pairz00_2817;
if(
PAIRP(BgL_argsz00_2812))
{ /* Llib/dsssl.scm 129 */
BgL_pairz00_2817 = BgL_argsz00_2812; }  else 
{ 
 obj_t BgL_auxz00_3421;
BgL_auxz00_3421 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(4812L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_2812); 
FAILURE(BgL_auxz00_3421,BFALSE,BFALSE);} 
BgL_arg1409z00_2815 = 
CDR(BgL_pairz00_2817); } 
{ /* Llib/dsssl.scm 130 */
 obj_t BgL_arg1411z00_2818;
{ /* Llib/dsssl.scm 130 */
 obj_t BgL_arg1412z00_2819;
{ /* Llib/dsssl.scm 130 */
 obj_t BgL_pairz00_2820;
if(
PAIRP(BgL_argsz00_2812))
{ /* Llib/dsssl.scm 130 */
BgL_pairz00_2820 = BgL_argsz00_2812; }  else 
{ 
 obj_t BgL_auxz00_3428;
BgL_auxz00_3428 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(4854L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_2812); 
FAILURE(BgL_auxz00_3428,BFALSE,BFALSE);} 
BgL_arg1412z00_2819 = 
CAR(BgL_pairz00_2820); } 
{ /* Llib/dsssl.scm 130 */
 obj_t BgL_auxz00_3433;
if(
SYMBOLP(BgL_arg1412z00_2819))
{ /* Llib/dsssl.scm 130 */
BgL_auxz00_3433 = BgL_arg1412z00_2819
; }  else 
{ 
 obj_t BgL_auxz00_3436;
BgL_auxz00_3436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(4858L), BGl_string2333z00zz__dssslz00, BGl_string2334z00zz__dssslz00, BgL_arg1412z00_2819); 
FAILURE(BgL_auxz00_3436,BFALSE,BFALSE);} 
BgL_arg1411z00_2818 = 
BGl_symbolzd2ze3keywordz31zz__r4_symbols_6_4z00(BgL_auxz00_3433); } } 
BgL_arg1410z00_2816 = 
MAKE_YOUNG_PAIR(BgL_arg1411z00_2818, BgL_resz00_2813); } 
{ 
 obj_t BgL_resz00_3443; obj_t BgL_argsz00_3442;
BgL_argsz00_3442 = BgL_arg1409z00_2815; 
BgL_resz00_3443 = BgL_arg1410z00_2816; 
BgL_resz00_2813 = BgL_resz00_3443; 
BgL_argsz00_2812 = BgL_argsz00_3442; 
goto BgL_loopz00_2811;} }  else 
{ /* Llib/dsssl.scm 132 */
 obj_t BgL_arg1413z00_2821; obj_t BgL_arg1414z00_2822;
{ /* Llib/dsssl.scm 132 */
 obj_t BgL_pairz00_2823;
if(
PAIRP(BgL_argsz00_2812))
{ /* Llib/dsssl.scm 132 */
BgL_pairz00_2823 = BgL_argsz00_2812; }  else 
{ 
 obj_t BgL_auxz00_3446;
BgL_auxz00_3446 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(4902L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_2812); 
FAILURE(BgL_auxz00_3446,BFALSE,BFALSE);} 
BgL_arg1413z00_2821 = 
CDR(BgL_pairz00_2823); } 
{ /* Llib/dsssl.scm 133 */
 obj_t BgL_arg1415z00_2824;
{ /* Llib/dsssl.scm 133 */
 obj_t BgL_arg1416z00_2825;
{ /* Llib/dsssl.scm 133 */
 obj_t BgL_pairz00_2826;
if(
PAIRP(BgL_argsz00_2812))
{ /* Llib/dsssl.scm 133 */
BgL_pairz00_2826 = BgL_argsz00_2812; }  else 
{ 
 obj_t BgL_auxz00_3453;
BgL_auxz00_3453 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(4945L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_2812); 
FAILURE(BgL_auxz00_3453,BFALSE,BFALSE);} 
{ /* Llib/dsssl.scm 133 */
 obj_t BgL_pairz00_2827;
{ /* Llib/dsssl.scm 133 */
 obj_t BgL_aux2178z00_2828;
BgL_aux2178z00_2828 = 
CAR(BgL_pairz00_2826); 
if(
PAIRP(BgL_aux2178z00_2828))
{ /* Llib/dsssl.scm 133 */
BgL_pairz00_2827 = BgL_aux2178z00_2828; }  else 
{ 
 obj_t BgL_auxz00_3460;
BgL_auxz00_3460 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(4939L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2178z00_2828); 
FAILURE(BgL_auxz00_3460,BFALSE,BFALSE);} } 
BgL_arg1416z00_2825 = 
CAR(BgL_pairz00_2827); } } 
{ /* Llib/dsssl.scm 133 */
 obj_t BgL_auxz00_3465;
if(
SYMBOLP(BgL_arg1416z00_2825))
{ /* Llib/dsssl.scm 133 */
BgL_auxz00_3465 = BgL_arg1416z00_2825
; }  else 
{ 
 obj_t BgL_auxz00_3468;
BgL_auxz00_3468 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(4949L), BGl_string2333z00zz__dssslz00, BGl_string2334z00zz__dssslz00, BgL_arg1416z00_2825); 
FAILURE(BgL_auxz00_3468,BFALSE,BFALSE);} 
BgL_arg1415z00_2824 = 
BGl_symbolzd2ze3keywordz31zz__r4_symbols_6_4z00(BgL_auxz00_3465); } } 
BgL_arg1414z00_2822 = 
MAKE_YOUNG_PAIR(BgL_arg1415z00_2824, BgL_resz00_2813); } 
{ 
 obj_t BgL_resz00_3475; obj_t BgL_argsz00_3474;
BgL_argsz00_3474 = BgL_arg1413z00_2821; 
BgL_resz00_3475 = BgL_arg1414z00_2822; 
BgL_resz00_2813 = BgL_resz00_3475; 
BgL_argsz00_2812 = BgL_argsz00_3474; 
goto BgL_loopz00_2811;} } } } } }  else 
{ 
 obj_t BgL_argsz00_3476;
BgL_argsz00_3476 = 
CDR(BgL_argsz00_2809); 
BgL_argsz00_2809 = BgL_argsz00_3476; 
goto BgL_loopz00_2808;} }  else 
{ /* Llib/dsssl.scm 116 */
BgL_auxz00_3386 = BNIL
; } } 
return 
BGl_optionalzd2argsze70z35zz__dssslz00(BgL_bodyz00_2552, BgL_restzd2statezd2_2551, BgL_nozd2restzd2keyzd2statezd2_2550, BgL_formalsz00_2549, BgL_wherez00_2548, BgL_errz00_2547, BgL_auxz00_3386, BgL_dssslzd2argzd2_2554, BgL_argsz00_2553);} } } } 

}



/* optional-args~0 */
obj_t BGl_optionalzd2argsze70z35zz__dssslz00(obj_t BgL_bodyz00_2597, obj_t BgL_restzd2statezd2_2596, obj_t BgL_nozd2restzd2keyzd2statezd2_2595, obj_t BgL_formalsz00_2594, obj_t BgL_wherez00_2593, obj_t BgL_errz00_2592, obj_t BgL_keywordzd2argumentszd2_2591, obj_t BgL_dssslzd2argzd2_2590, obj_t BgL_argsz00_1233)
{
{ /* Llib/dsssl.scm 181 */
{ 
 obj_t BgL_argz00_1189; obj_t BgL_initializa7erza7_1190; obj_t BgL_restz00_1191;
if(
NULLP(BgL_argsz00_1233))
{ /* Llib/dsssl.scm 159 */
return BgL_bodyz00_2597;}  else 
{ /* Llib/dsssl.scm 159 */
if(
PAIRP(BgL_argsz00_1233))
{ /* Llib/dsssl.scm 163 */
 bool_t BgL_test2541z00_3483;
{ /* Llib/dsssl.scm 163 */
 bool_t BgL_test2542z00_3484;
{ /* Llib/dsssl.scm 163 */
 obj_t BgL_tmpz00_3485;
BgL_tmpz00_3485 = 
CAR(BgL_argsz00_1233); 
BgL_test2542z00_3484 = 
SYMBOLP(BgL_tmpz00_3485); } 
if(BgL_test2542z00_3484)
{ /* Llib/dsssl.scm 163 */
BgL_test2541z00_3483 = ((bool_t)0)
; }  else 
{ /* Llib/dsssl.scm 163 */
 bool_t BgL_test2543z00_3488;
{ /* Llib/dsssl.scm 163 */
 obj_t BgL_tmpz00_3489;
BgL_tmpz00_3489 = 
CAR(BgL_argsz00_1233); 
BgL_test2543z00_3488 = 
PAIRP(BgL_tmpz00_3489); } 
if(BgL_test2543z00_3488)
{ /* Llib/dsssl.scm 163 */
BgL_test2541z00_3483 = ((bool_t)0)
; }  else 
{ /* Llib/dsssl.scm 163 */
BgL_test2541z00_3483 = ((bool_t)1)
; } } } 
if(BgL_test2541z00_3483)
{ /* Llib/dsssl.scm 163 */
if(
(
CAR(BgL_argsz00_1233)==(BREST)))
{ /* Llib/dsssl.scm 167 */
return 
BGl_z62restzd2statezb0zz__dssslz00(BgL_restzd2statezd2_2596, 
CDR(BgL_argsz00_1233), BgL_dssslzd2argzd2_2590);}  else 
{ /* Llib/dsssl.scm 167 */
if(
(
CAR(BgL_argsz00_1233)==(BKEY)))
{ /* Llib/dsssl.scm 169 */
return 
BGl_z62nozd2restzd2keyzd2statezb0zz__dssslz00(BgL_nozd2restzd2keyzd2statezd2_2595, 
CDR(BgL_argsz00_1233), BgL_dssslzd2argzd2_2590);}  else 
{ /* Llib/dsssl.scm 169 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2592, 3))
{ /* Llib/dsssl.scm 172 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2592, BgL_wherez00_2593, BGl_string2347z00zz__dssslz00, BgL_formalsz00_2594);}  else 
{ /* Llib/dsssl.scm 172 */
FAILURE(BGl_string2348z00zz__dssslz00,BGl_list2349z00zz__dssslz00,BgL_errz00_2592);} } } }  else 
{ /* Llib/dsssl.scm 175 */
 obj_t BgL_ezd2112zd2_1258;
BgL_ezd2112zd2_1258 = 
CAR(BgL_argsz00_1233); 
if(
PAIRP(BgL_ezd2112zd2_1258))
{ /* Llib/dsssl.scm 175 */
 obj_t BgL_carzd2117zd2_1260; obj_t BgL_cdrzd2118zd2_1261;
BgL_carzd2117zd2_1260 = 
CAR(BgL_ezd2112zd2_1258); 
BgL_cdrzd2118zd2_1261 = 
CDR(BgL_ezd2112zd2_1258); 
if(
SYMBOLP(BgL_carzd2117zd2_1260))
{ /* Llib/dsssl.scm 175 */
if(
PAIRP(BgL_cdrzd2118zd2_1261))
{ /* Llib/dsssl.scm 175 */
if(
NULLP(
CDR(BgL_cdrzd2118zd2_1261)))
{ /* Llib/dsssl.scm 175 */
BgL_argz00_1189 = BgL_carzd2117zd2_1260; 
BgL_initializa7erza7_1190 = 
CAR(BgL_cdrzd2118zd2_1261); 
BgL_restz00_1191 = 
CDR(BgL_argsz00_1233); 
BgL_zc3z04anonymousza31269ze3z87_1192:
{ /* Llib/dsssl.scm 140 */
 obj_t BgL_tmpz00_1193;
BgL_tmpz00_1193 = 
BGl_gensymz00zz__r4_symbols_6_4z00(BGl_symbol2335z00zz__dssslz00); 
{ /* Llib/dsssl.scm 141 */
 obj_t BgL_arg1271z00_1194;
{ /* Llib/dsssl.scm 141 */
 obj_t BgL_arg1274z00_1195; obj_t BgL_arg1276z00_1196;
{ /* Llib/dsssl.scm 141 */
 obj_t BgL_arg1278z00_1197;
{ /* Llib/dsssl.scm 141 */
 obj_t BgL_arg1279z00_1198;
{ /* Llib/dsssl.scm 141 */
 obj_t BgL_arg1280z00_1199;
{ /* Llib/dsssl.scm 141 */
 obj_t BgL_arg1281z00_1200;
{ /* Llib/dsssl.scm 141 */
 obj_t BgL_arg1282z00_1201; obj_t BgL_arg1283z00_1202;
{ /* Llib/dsssl.scm 141 */
 obj_t BgL_arg1285z00_1203;
{ /* Llib/dsssl.scm 141 */
 obj_t BgL_arg1287z00_1204; obj_t BgL_arg1291z00_1205;
{ /* Llib/dsssl.scm 141 */
 obj_t BgL_arg1292z00_1206;
BgL_arg1292z00_1206 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_2590, BNIL); 
BgL_arg1287z00_1204 = 
MAKE_YOUNG_PAIR(BGl_symbol2305z00zz__dssslz00, BgL_arg1292z00_1206); } 
{ /* Llib/dsssl.scm 143 */
 obj_t BgL_arg1293z00_1207;
{ /* Llib/dsssl.scm 143 */
 obj_t BgL_arg1295z00_1208;
{ /* Llib/dsssl.scm 143 */
 obj_t BgL_arg1296z00_1209;
{ /* Llib/dsssl.scm 143 */
 obj_t BgL_arg1298z00_1210; obj_t BgL_arg1301z00_1211;
{ /* Llib/dsssl.scm 143 */
 obj_t BgL_arg1322z00_1212;
BgL_arg1322z00_1212 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_2590, BNIL); 
BgL_arg1298z00_1210 = 
MAKE_YOUNG_PAIR(BGl_symbol2337z00zz__dssslz00, BgL_arg1322z00_1212); } 
{ /* Llib/dsssl.scm 143 */
 obj_t BgL_arg1329z00_1213;
{ /* Llib/dsssl.scm 143 */
 obj_t BgL_arg1330z00_1214;
BgL_arg1330z00_1214 = 
MAKE_YOUNG_PAIR(BgL_keywordzd2argumentszd2_2591, BNIL); 
BgL_arg1329z00_1213 = 
MAKE_YOUNG_PAIR(BGl_symbol2298z00zz__dssslz00, BgL_arg1330z00_1214); } 
BgL_arg1301z00_1211 = 
MAKE_YOUNG_PAIR(BgL_arg1329z00_1213, BNIL); } 
BgL_arg1296z00_1209 = 
MAKE_YOUNG_PAIR(BgL_arg1298z00_1210, BgL_arg1301z00_1211); } 
BgL_arg1295z00_1208 = 
MAKE_YOUNG_PAIR(BGl_symbol2339z00zz__dssslz00, BgL_arg1296z00_1209); } 
BgL_arg1293z00_1207 = 
MAKE_YOUNG_PAIR(BgL_arg1295z00_1208, BNIL); } 
BgL_arg1291z00_1205 = 
MAKE_YOUNG_PAIR(BTRUE, BgL_arg1293z00_1207); } 
BgL_arg1285z00_1203 = 
MAKE_YOUNG_PAIR(BgL_arg1287z00_1204, BgL_arg1291z00_1205); } 
BgL_arg1282z00_1201 = 
MAKE_YOUNG_PAIR(BGl_symbol2323z00zz__dssslz00, BgL_arg1285z00_1203); } 
{ /* Llib/dsssl.scm 145 */
 obj_t BgL_arg1331z00_1215;
{ /* Llib/dsssl.scm 145 */
 obj_t BgL_arg1332z00_1216;
{ /* Llib/dsssl.scm 145 */
 obj_t BgL_arg1333z00_1217;
{ /* Llib/dsssl.scm 145 */
 obj_t BgL_arg1334z00_1218; obj_t BgL_arg1335z00_1219;
{ /* Llib/dsssl.scm 145 */
 obj_t BgL_arg1336z00_1220;
{ /* Llib/dsssl.scm 145 */
 obj_t BgL_arg1337z00_1221;
{ /* Llib/dsssl.scm 145 */
 obj_t BgL_arg1338z00_1222;
{ /* Llib/dsssl.scm 145 */
 obj_t BgL_arg1339z00_1223;
BgL_arg1339z00_1223 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_2590, BNIL); 
BgL_arg1338z00_1222 = 
MAKE_YOUNG_PAIR(BGl_symbol2337z00zz__dssslz00, BgL_arg1339z00_1223); } 
BgL_arg1337z00_1221 = 
MAKE_YOUNG_PAIR(BgL_arg1338z00_1222, BNIL); } 
BgL_arg1336z00_1220 = 
MAKE_YOUNG_PAIR(BgL_tmpz00_1193, BgL_arg1337z00_1221); } 
BgL_arg1334z00_1218 = 
MAKE_YOUNG_PAIR(BgL_arg1336z00_1220, BNIL); } 
{ /* Llib/dsssl.scm 153 */
 obj_t BgL_arg1341z00_1224;
{ /* Llib/dsssl.scm 153 */
 obj_t BgL_arg1342z00_1225;
{ /* Llib/dsssl.scm 153 */
 obj_t BgL_arg1343z00_1226; obj_t BgL_arg1345z00_1227;
{ /* Llib/dsssl.scm 153 */
 obj_t BgL_arg1346z00_1228;
{ /* Llib/dsssl.scm 153 */
 obj_t BgL_arg1347z00_1229;
{ /* Llib/dsssl.scm 153 */
 obj_t BgL_arg1349z00_1230;
{ /* Llib/dsssl.scm 153 */
 obj_t BgL_arg1351z00_1231;
BgL_arg1351z00_1231 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_2590, BNIL); 
BgL_arg1349z00_1230 = 
MAKE_YOUNG_PAIR(BGl_symbol2341z00zz__dssslz00, BgL_arg1351z00_1231); } 
BgL_arg1347z00_1229 = 
MAKE_YOUNG_PAIR(BgL_arg1349z00_1230, BNIL); } 
BgL_arg1346z00_1228 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_2590, BgL_arg1347z00_1229); } 
BgL_arg1343z00_1226 = 
MAKE_YOUNG_PAIR(BGl_symbol2343z00zz__dssslz00, BgL_arg1346z00_1228); } 
BgL_arg1345z00_1227 = 
MAKE_YOUNG_PAIR(BgL_tmpz00_1193, BNIL); 
BgL_arg1342z00_1225 = 
MAKE_YOUNG_PAIR(BgL_arg1343z00_1226, BgL_arg1345z00_1227); } 
BgL_arg1341z00_1224 = 
MAKE_YOUNG_PAIR(BGl_symbol2345z00zz__dssslz00, BgL_arg1342z00_1225); } 
BgL_arg1335z00_1219 = 
MAKE_YOUNG_PAIR(BgL_arg1341z00_1224, BNIL); } 
BgL_arg1333z00_1217 = 
MAKE_YOUNG_PAIR(BgL_arg1334z00_1218, BgL_arg1335z00_1219); } 
BgL_arg1332z00_1216 = 
MAKE_YOUNG_PAIR(BGl_symbol2281z00zz__dssslz00, BgL_arg1333z00_1217); } 
BgL_arg1331z00_1215 = 
MAKE_YOUNG_PAIR(BgL_arg1332z00_1216, BNIL); } 
BgL_arg1283z00_1202 = 
MAKE_YOUNG_PAIR(BgL_initializa7erza7_1190, BgL_arg1331z00_1215); } 
BgL_arg1281z00_1200 = 
MAKE_YOUNG_PAIR(BgL_arg1282z00_1201, BgL_arg1283z00_1202); } 
BgL_arg1280z00_1199 = 
MAKE_YOUNG_PAIR(BGl_symbol2323z00zz__dssslz00, BgL_arg1281z00_1200); } 
BgL_arg1279z00_1198 = 
MAKE_YOUNG_PAIR(BgL_arg1280z00_1199, BNIL); } 
BgL_arg1278z00_1197 = 
MAKE_YOUNG_PAIR(BgL_argz00_1189, BgL_arg1279z00_1198); } 
BgL_arg1274z00_1195 = 
MAKE_YOUNG_PAIR(BgL_arg1278z00_1197, BNIL); } 
BgL_arg1276z00_1196 = 
MAKE_YOUNG_PAIR(
BGl_optionalzd2argsze70z35zz__dssslz00(BgL_bodyz00_2597, BgL_restzd2statezd2_2596, BgL_nozd2restzd2keyzd2statezd2_2595, BgL_formalsz00_2594, BgL_wherez00_2593, BgL_errz00_2592, BgL_keywordzd2argumentszd2_2591, BgL_dssslzd2argzd2_2590, BgL_restz00_1191), BNIL); 
BgL_arg1271z00_1194 = 
MAKE_YOUNG_PAIR(BgL_arg1274z00_1195, BgL_arg1276z00_1196); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2281z00zz__dssslz00, BgL_arg1271z00_1194);} } }  else 
{ /* Llib/dsssl.scm 175 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2592, 3))
{ /* Llib/dsssl.scm 181 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2592, BgL_wherez00_2593, BGl_string2347z00zz__dssslz00, BgL_formalsz00_2594);}  else 
{ /* Llib/dsssl.scm 181 */
FAILURE(BGl_string2348z00zz__dssslz00,BGl_list2349z00zz__dssslz00,BgL_errz00_2592);} } }  else 
{ /* Llib/dsssl.scm 175 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2592, 3))
{ /* Llib/dsssl.scm 181 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2592, BgL_wherez00_2593, BGl_string2347z00zz__dssslz00, BgL_formalsz00_2594);}  else 
{ /* Llib/dsssl.scm 181 */
FAILURE(BGl_string2348z00zz__dssslz00,BGl_list2349z00zz__dssslz00,BgL_errz00_2592);} } }  else 
{ /* Llib/dsssl.scm 175 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2592, 3))
{ /* Llib/dsssl.scm 181 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2592, BgL_wherez00_2593, BGl_string2347z00zz__dssslz00, BgL_formalsz00_2594);}  else 
{ /* Llib/dsssl.scm 181 */
FAILURE(BGl_string2348z00zz__dssslz00,BGl_list2349z00zz__dssslz00,BgL_errz00_2592);} } }  else 
{ /* Llib/dsssl.scm 175 */
if(
SYMBOLP(BgL_ezd2112zd2_1258))
{ 
 obj_t BgL_restz00_3597; obj_t BgL_initializa7erza7_3596; obj_t BgL_argz00_3595;
BgL_argz00_3595 = BgL_ezd2112zd2_1258; 
BgL_initializa7erza7_3596 = BFALSE; 
BgL_restz00_3597 = 
CDR(BgL_argsz00_1233); 
BgL_restz00_1191 = BgL_restz00_3597; 
BgL_initializa7erza7_1190 = BgL_initializa7erza7_3596; 
BgL_argz00_1189 = BgL_argz00_3595; 
goto BgL_zc3z04anonymousza31269ze3z87_1192;}  else 
{ /* Llib/dsssl.scm 175 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2592, 3))
{ /* Llib/dsssl.scm 181 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2592, BgL_wherez00_2593, BGl_string2347z00zz__dssslz00, BgL_formalsz00_2594);}  else 
{ /* Llib/dsssl.scm 181 */
FAILURE(BGl_string2348z00zz__dssslz00,BGl_list2349z00zz__dssslz00,BgL_errz00_2592);} } } } }  else 
{ /* Llib/dsssl.scm 161 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2592, 3))
{ /* Llib/dsssl.scm 162 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2592, BgL_wherez00_2593, BGl_string2347z00zz__dssslz00, BgL_formalsz00_2594);}  else 
{ /* Llib/dsssl.scm 162 */
FAILURE(BGl_string2348z00zz__dssslz00,BGl_list2349z00zz__dssslz00,BgL_errz00_2592);} } } } } 

}



/* &rest-state */
obj_t BGl_z62restzd2statezb0zz__dssslz00(obj_t BgL_envz00_2555, obj_t BgL_argsz00_2560, obj_t BgL_dssslzd2argzd2_2561)
{
{ /* Llib/dsssl.scm 193 */
{ /* Llib/dsssl.scm 187 */
 obj_t BgL_errz00_2556; obj_t BgL_wherez00_2557; obj_t BgL_formalsz00_2558; obj_t BgL_bodyz00_2559;
BgL_errz00_2556 = 
((obj_t)
PROCEDURE_L_REF(BgL_envz00_2555, 
(int)(0L))); 
BgL_wherez00_2557 = 
PROCEDURE_L_REF(BgL_envz00_2555, 
(int)(1L)); 
BgL_formalsz00_2558 = 
PROCEDURE_L_REF(BgL_envz00_2555, 
(int)(2L)); 
BgL_bodyz00_2559 = 
PROCEDURE_L_REF(BgL_envz00_2555, 
(int)(3L)); 
{ 
 obj_t BgL_argsz00_2845; obj_t BgL_dssslzd2argzd2_2846; obj_t BgL_argsz00_2832; obj_t BgL_dssslzd2argzd2_2833;
if(
PAIRP(BgL_argsz00_2560))
{ /* Llib/dsssl.scm 189 */
 bool_t BgL_test2558z00_3628;
{ /* Llib/dsssl.scm 189 */
 obj_t BgL_tmpz00_3629;
BgL_tmpz00_3629 = 
CAR(BgL_argsz00_2560); 
BgL_test2558z00_3628 = 
SYMBOLP(BgL_tmpz00_3629); } 
if(BgL_test2558z00_3628)
{ /* Llib/dsssl.scm 192 */
 obj_t BgL_arg1429z00_2847;
{ /* Llib/dsssl.scm 192 */
 obj_t BgL_arg1430z00_2848; obj_t BgL_arg1431z00_2849;
{ /* Llib/dsssl.scm 192 */
 obj_t BgL_arg1432z00_2850;
{ /* Llib/dsssl.scm 192 */
 obj_t BgL_arg1433z00_2851; obj_t BgL_arg1434z00_2852;
BgL_arg1433z00_2851 = 
CAR(BgL_argsz00_2560); 
BgL_arg1434z00_2852 = 
MAKE_YOUNG_PAIR(BgL_dssslzd2argzd2_2561, BNIL); 
BgL_arg1432z00_2850 = 
MAKE_YOUNG_PAIR(BgL_arg1433z00_2851, BgL_arg1434z00_2852); } 
BgL_arg1430z00_2848 = 
MAKE_YOUNG_PAIR(BgL_arg1432z00_2850, BNIL); } 
{ /* Llib/dsssl.scm 192 */
 obj_t BgL_tmpz00_3636;
BgL_argsz00_2845 = 
CDR(BgL_argsz00_2560); 
BgL_dssslzd2argzd2_2846 = BgL_dssslzd2argzd2_2561; 
if(
NULLP(BgL_argsz00_2845))
{ /* Llib/dsssl.scm 197 */
BgL_tmpz00_3636 = BgL_bodyz00_2559
; }  else 
{ /* Llib/dsssl.scm 197 */
if(
PAIRP(BgL_argsz00_2845))
{ /* Llib/dsssl.scm 199 */
if(
(
CAR(BgL_argsz00_2845)==(BKEY)))
{ /* Llib/dsssl.scm 201 */
BgL_argsz00_2832 = 
CDR(BgL_argsz00_2845); 
BgL_dssslzd2argzd2_2833 = BgL_dssslzd2argzd2_2846; 
{ 
 obj_t BgL_argsz00_2835;
if(
NULLP(BgL_argsz00_2832))
{ /* Llib/dsssl.scm 220 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2556, 3))
{ /* Llib/dsssl.scm 221 */
BgL_tmpz00_3636 = 
BGL_PROCEDURE_CALL3(BgL_errz00_2556, BgL_wherez00_2557, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2558)
; }  else 
{ /* Llib/dsssl.scm 221 */
FAILURE(BGl_string2355z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2556);} }  else 
{ /* Llib/dsssl.scm 223 */
 obj_t BgL_keysz00_2844;
BgL_argsz00_2835 = BgL_argsz00_2832; 
if(
NULLP(BgL_argsz00_2835))
{ /* Llib/dsssl.scm 209 */
BgL_keysz00_2844 = BNIL; }  else 
{ /* Llib/dsssl.scm 209 */
 obj_t BgL_head1078z00_2836;
BgL_head1078z00_2836 = 
MAKE_YOUNG_PAIR(BNIL, BNIL); 
{ 
 obj_t BgL_l1076z00_2838; obj_t BgL_tail1079z00_2839;
BgL_l1076z00_2838 = BgL_argsz00_2835; 
BgL_tail1079z00_2839 = BgL_head1078z00_2836; 
BgL_zc3z04anonymousza31451ze3z87_2837:
if(
PAIRP(BgL_l1076z00_2838))
{ /* Llib/dsssl.scm 209 */
 obj_t BgL_newtail1080z00_2840;
{ /* Llib/dsssl.scm 209 */
 obj_t BgL_arg1455z00_2841;
{ /* Llib/dsssl.scm 209 */
 obj_t BgL_xz00_2842;
BgL_xz00_2842 = 
CAR(BgL_l1076z00_2838); 
{ /* Llib/dsssl.scm 211 */
 bool_t BgL_test2566z00_3661;
if(
PAIRP(BgL_xz00_2842))
{ /* Llib/dsssl.scm 211 */
 obj_t BgL_tmpz00_3664;
BgL_tmpz00_3664 = 
CAR(BgL_xz00_2842); 
BgL_test2566z00_3661 = 
SYMBOLP(BgL_tmpz00_3664); }  else 
{ /* Llib/dsssl.scm 211 */
BgL_test2566z00_3661 = ((bool_t)0)
; } 
if(BgL_test2566z00_3661)
{ /* Llib/dsssl.scm 212 */
 obj_t BgL_arg1459z00_2843;
BgL_arg1459z00_2843 = 
CAR(BgL_xz00_2842); 
{ /* Llib/dsssl.scm 212 */
 obj_t BgL_auxz00_3668;
if(
SYMBOLP(BgL_arg1459z00_2843))
{ /* Llib/dsssl.scm 212 */
BgL_auxz00_3668 = BgL_arg1459z00_2843
; }  else 
{ 
 obj_t BgL_auxz00_3671;
BgL_auxz00_3671 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(7368L), BGl_string2350z00zz__dssslz00, BGl_string2334z00zz__dssslz00, BgL_arg1459z00_2843); 
FAILURE(BgL_auxz00_3671,BFALSE,BFALSE);} 
BgL_arg1455z00_2841 = 
BGl_symbolzd2ze3keywordz31zz__r4_symbols_6_4z00(BgL_auxz00_3668); } }  else 
{ /* Llib/dsssl.scm 211 */
if(
SYMBOLP(BgL_xz00_2842))
{ /* Llib/dsssl.scm 213 */
BgL_arg1455z00_2841 = 
BGl_symbolzd2ze3keywordz31zz__r4_symbols_6_4z00(BgL_xz00_2842); }  else 
{ /* Llib/dsssl.scm 213 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2556, 3))
{ /* Llib/dsssl.scm 216 */
BgL_arg1455z00_2841 = 
BGL_PROCEDURE_CALL3(BgL_errz00_2556, BgL_wherez00_2557, BGl_string2351z00zz__dssslz00, BgL_formalsz00_2558); }  else 
{ /* Llib/dsssl.scm 216 */
FAILURE(BGl_string2352z00zz__dssslz00,BGl_list2353z00zz__dssslz00,BgL_errz00_2556);} } } } } 
BgL_newtail1080z00_2840 = 
MAKE_YOUNG_PAIR(BgL_arg1455z00_2841, BNIL); } 
SET_CDR(BgL_tail1079z00_2839, BgL_newtail1080z00_2840); 
{ 
 obj_t BgL_tail1079z00_3692; obj_t BgL_l1076z00_3690;
BgL_l1076z00_3690 = 
CDR(BgL_l1076z00_2838); 
BgL_tail1079z00_3692 = BgL_newtail1080z00_2840; 
BgL_tail1079z00_2839 = BgL_tail1079z00_3692; 
BgL_l1076z00_2838 = BgL_l1076z00_3690; 
goto BgL_zc3z04anonymousza31451ze3z87_2837;} }  else 
{ /* Llib/dsssl.scm 209 */
if(
NULLP(BgL_l1076z00_2838))
{ /* Llib/dsssl.scm 209 */
BgL_keysz00_2844 = 
CDR(BgL_head1078z00_2836); }  else 
{ /* Llib/dsssl.scm 209 */
BgL_keysz00_2844 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2315z00zz__dssslz00, BGl_string2354z00zz__dssslz00, BgL_l1076z00_2838, BGl_string2283z00zz__dssslz00, 
BINT(7271L)); } } } } 
if(
NULLP(BgL_keysz00_2844))
{ /* Llib/dsssl.scm 224 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2556, 3))
{ /* Llib/dsssl.scm 225 */
BgL_tmpz00_3636 = 
BGL_PROCEDURE_CALL3(BgL_errz00_2556, BgL_wherez00_2557, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2558)
; }  else 
{ /* Llib/dsssl.scm 225 */
FAILURE(BGl_string2355z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2556);} }  else 
{ /* Llib/dsssl.scm 224 */
BgL_tmpz00_3636 = 
BGl_z62keyzd2statezb0zz__dssslz00(BgL_bodyz00_2559, BgL_formalsz00_2558, BgL_wherez00_2557, BgL_errz00_2556, BgL_argsz00_2832, BgL_dssslzd2argzd2_2833, BNIL, ((bool_t)0))
; } } } }  else 
{ /* Llib/dsssl.scm 201 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2556, 3))
{ /* Llib/dsssl.scm 204 */
BgL_tmpz00_3636 = 
BGL_PROCEDURE_CALL3(BgL_errz00_2556, BgL_wherez00_2557, BGl_string2326z00zz__dssslz00, BgL_formalsz00_2558)
; }  else 
{ /* Llib/dsssl.scm 204 */
FAILURE(BGl_string2356z00zz__dssslz00,BGl_list2328z00zz__dssslz00,BgL_errz00_2556);} } }  else 
{ /* Llib/dsssl.scm 199 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2556, 3))
{ /* Llib/dsssl.scm 200 */
BgL_tmpz00_3636 = 
BGL_PROCEDURE_CALL3(BgL_errz00_2556, BgL_wherez00_2557, BGl_string2326z00zz__dssslz00, BgL_formalsz00_2558)
; }  else 
{ /* Llib/dsssl.scm 200 */
FAILURE(BGl_string2356z00zz__dssslz00,BGl_list2328z00zz__dssslz00,BgL_errz00_2556);} } } 
BgL_arg1431z00_2849 = 
MAKE_YOUNG_PAIR(BgL_tmpz00_3636, BNIL); } 
BgL_arg1429z00_2847 = 
MAKE_YOUNG_PAIR(BgL_arg1430z00_2848, BgL_arg1431z00_2849); } 
return 
MAKE_YOUNG_PAIR(BGl_symbol2281z00zz__dssslz00, BgL_arg1429z00_2847);}  else 
{ /* Llib/dsssl.scm 189 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2556, 3))
{ /* Llib/dsssl.scm 190 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2556, BgL_wherez00_2557, BGl_string2326z00zz__dssslz00, BgL_formalsz00_2558);}  else 
{ /* Llib/dsssl.scm 190 */
FAILURE(BGl_string2357z00zz__dssslz00,BGl_list2328z00zz__dssslz00,BgL_errz00_2556);} } }  else 
{ /* Llib/dsssl.scm 187 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2556, 3))
{ /* Llib/dsssl.scm 188 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2556, BgL_wherez00_2557, BGl_string2326z00zz__dssslz00, BgL_formalsz00_2558);}  else 
{ /* Llib/dsssl.scm 188 */
FAILURE(BGl_string2357z00zz__dssslz00,BGl_list2328z00zz__dssslz00,BgL_errz00_2556);} } } } } 

}



/* &no-rest-key-state */
obj_t BGl_z62nozd2restzd2keyzd2statezb0zz__dssslz00(obj_t BgL_envz00_2562, obj_t BgL_argsz00_2567, obj_t BgL_dssslzd2argzd2_2568)
{
{ /* Llib/dsssl.scm 245 */
{ /* Llib/dsssl.scm 231 */
 obj_t BgL_bodyz00_2563; obj_t BgL_errz00_2564; obj_t BgL_wherez00_2565; obj_t BgL_formalsz00_2566;
BgL_bodyz00_2563 = 
PROCEDURE_L_REF(BgL_envz00_2562, 
(int)(0L)); 
BgL_errz00_2564 = 
((obj_t)
PROCEDURE_L_REF(BgL_envz00_2562, 
(int)(1L))); 
BgL_wherez00_2565 = 
PROCEDURE_L_REF(BgL_envz00_2562, 
(int)(2L)); 
BgL_formalsz00_2566 = 
PROCEDURE_L_REF(BgL_envz00_2562, 
(int)(3L)); 
{ 
 obj_t BgL_argsz00_2855;
if(
NULLP(BgL_argsz00_2567))
{ /* Llib/dsssl.scm 248 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2564, 3))
{ /* Llib/dsssl.scm 249 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2564, BgL_wherez00_2565, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2566);}  else 
{ /* Llib/dsssl.scm 249 */
FAILURE(BGl_string2358z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2564);} }  else 
{ /* Llib/dsssl.scm 251 */
 obj_t BgL_keysz00_2870;
BgL_argsz00_2855 = BgL_argsz00_2567; 
{ 
 obj_t BgL_argsz00_2857; obj_t BgL_auxz00_2858;
BgL_argsz00_2857 = BgL_argsz00_2855; 
BgL_auxz00_2858 = BNIL; 
BgL_loopz00_2856:
if(
NULLP(BgL_argsz00_2857))
{ /* Llib/dsssl.scm 234 */
BgL_keysz00_2870 = 
bgl_reverse_bang(BgL_auxz00_2858); }  else 
{ /* Llib/dsssl.scm 236 */
 bool_t BgL_test2581z00_3774;
{ /* Llib/dsssl.scm 236 */
 obj_t BgL_tmpz00_3775;
{ /* Llib/dsssl.scm 236 */
 obj_t BgL_pairz00_2859;
if(
PAIRP(BgL_argsz00_2857))
{ /* Llib/dsssl.scm 236 */
BgL_pairz00_2859 = BgL_argsz00_2857; }  else 
{ 
 obj_t BgL_auxz00_3778;
BgL_auxz00_3778 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(7986L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_2857); 
FAILURE(BgL_auxz00_3778,BFALSE,BFALSE);} 
BgL_tmpz00_3775 = 
CAR(BgL_pairz00_2859); } 
BgL_test2581z00_3774 = 
(BgL_tmpz00_3775==(BREST)); } 
if(BgL_test2581z00_3774)
{ /* Llib/dsssl.scm 236 */
BgL_keysz00_2870 = 
bgl_reverse_bang(BgL_auxz00_2858); }  else 
{ /* Llib/dsssl.scm 239 */
 obj_t BgL_ezd2145zd2_2860;
{ /* Llib/dsssl.scm 239 */
 obj_t BgL_pairz00_2861;
if(
PAIRP(BgL_argsz00_2857))
{ /* Llib/dsssl.scm 239 */
BgL_pairz00_2861 = BgL_argsz00_2857; }  else 
{ 
 obj_t BgL_auxz00_3787;
BgL_auxz00_3787 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(8051L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_2857); 
FAILURE(BgL_auxz00_3787,BFALSE,BFALSE);} 
BgL_ezd2145zd2_2860 = 
CAR(BgL_pairz00_2861); } 
if(
SYMBOLP(BgL_ezd2145zd2_2860))
{ /* Llib/dsssl.scm 241 */
 obj_t BgL_arg1480z00_2862; obj_t BgL_arg1481z00_2863;
{ /* Llib/dsssl.scm 241 */
 obj_t BgL_pairz00_2864;
if(
PAIRP(BgL_argsz00_2857))
{ /* Llib/dsssl.scm 241 */
BgL_pairz00_2864 = BgL_argsz00_2857; }  else 
{ 
 obj_t BgL_auxz00_3796;
BgL_auxz00_3796 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(8103L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_2857); 
FAILURE(BgL_auxz00_3796,BFALSE,BFALSE);} 
BgL_arg1480z00_2862 = 
CDR(BgL_pairz00_2864); } 
BgL_arg1481z00_2863 = 
MAKE_YOUNG_PAIR(
BGl_symbolzd2ze3keywordz31zz__r4_symbols_6_4z00(BgL_ezd2145zd2_2860), BgL_auxz00_2858); 
{ 
 obj_t BgL_auxz00_3804; obj_t BgL_argsz00_3803;
BgL_argsz00_3803 = BgL_arg1480z00_2862; 
BgL_auxz00_3804 = BgL_arg1481z00_2863; 
BgL_auxz00_2858 = BgL_auxz00_3804; 
BgL_argsz00_2857 = BgL_argsz00_3803; 
goto BgL_loopz00_2856;} }  else 
{ /* Llib/dsssl.scm 239 */
if(
PAIRP(BgL_ezd2145zd2_2860))
{ /* Llib/dsssl.scm 239 */
 obj_t BgL_carzd2152zd2_2865; obj_t BgL_cdrzd2153zd2_2866;
BgL_carzd2152zd2_2865 = 
CAR(BgL_ezd2145zd2_2860); 
BgL_cdrzd2153zd2_2866 = 
CDR(BgL_ezd2145zd2_2860); 
if(
SYMBOLP(BgL_carzd2152zd2_2865))
{ /* Llib/dsssl.scm 239 */
if(
PAIRP(BgL_cdrzd2153zd2_2866))
{ /* Llib/dsssl.scm 239 */
if(
NULLP(
CDR(BgL_cdrzd2153zd2_2866)))
{ /* Llib/dsssl.scm 243 */
 obj_t BgL_arg1483z00_2867; obj_t BgL_arg1484z00_2868;
{ /* Llib/dsssl.scm 243 */
 obj_t BgL_pairz00_2869;
if(
PAIRP(BgL_argsz00_2857))
{ /* Llib/dsssl.scm 243 */
BgL_pairz00_2869 = BgL_argsz00_2857; }  else 
{ 
 obj_t BgL_auxz00_3818;
BgL_auxz00_3818 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(8195L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_2857); 
FAILURE(BgL_auxz00_3818,BFALSE,BFALSE);} 
BgL_arg1483z00_2867 = 
CDR(BgL_pairz00_2869); } 
BgL_arg1484z00_2868 = 
MAKE_YOUNG_PAIR(
BGl_symbolzd2ze3keywordz31zz__r4_symbols_6_4z00(BgL_carzd2152zd2_2865), BgL_auxz00_2858); 
{ 
 obj_t BgL_auxz00_3826; obj_t BgL_argsz00_3825;
BgL_argsz00_3825 = BgL_arg1483z00_2867; 
BgL_auxz00_3826 = BgL_arg1484z00_2868; 
BgL_auxz00_2858 = BgL_auxz00_3826; 
BgL_argsz00_2857 = BgL_argsz00_3825; 
goto BgL_loopz00_2856;} }  else 
{ /* Llib/dsssl.scm 239 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2564, 3))
{ /* Llib/dsssl.scm 245 */
BgL_keysz00_2870 = 
BGL_PROCEDURE_CALL3(BgL_errz00_2564, BgL_wherez00_2565, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2566); }  else 
{ /* Llib/dsssl.scm 245 */
FAILURE(BGl_string2292z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2564);} } }  else 
{ /* Llib/dsssl.scm 239 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2564, 3))
{ /* Llib/dsssl.scm 245 */
BgL_keysz00_2870 = 
BGL_PROCEDURE_CALL3(BgL_errz00_2564, BgL_wherez00_2565, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2566); }  else 
{ /* Llib/dsssl.scm 245 */
FAILURE(BGl_string2292z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2564);} } }  else 
{ /* Llib/dsssl.scm 239 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2564, 3))
{ /* Llib/dsssl.scm 245 */
BgL_keysz00_2870 = 
BGL_PROCEDURE_CALL3(BgL_errz00_2564, BgL_wherez00_2565, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2566); }  else 
{ /* Llib/dsssl.scm 245 */
FAILURE(BGl_string2292z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2564);} } }  else 
{ /* Llib/dsssl.scm 239 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2564, 3))
{ /* Llib/dsssl.scm 245 */
BgL_keysz00_2870 = 
BGL_PROCEDURE_CALL3(BgL_errz00_2564, BgL_wherez00_2565, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2566); }  else 
{ /* Llib/dsssl.scm 245 */
FAILURE(BGl_string2292z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2564);} } } } } } 
if(
NULLP(BgL_keysz00_2870))
{ /* Llib/dsssl.scm 252 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2564, 3))
{ /* Llib/dsssl.scm 253 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2564, BgL_wherez00_2565, BGl_string2331z00zz__dssslz00, BgL_formalsz00_2566);}  else 
{ /* Llib/dsssl.scm 253 */
FAILURE(BGl_string2358z00zz__dssslz00,BGl_list2332z00zz__dssslz00,BgL_errz00_2564);} }  else 
{ /* Llib/dsssl.scm 252 */
return 
BGl_z62keyzd2statezb0zz__dssslz00(BgL_bodyz00_2563, BgL_formalsz00_2566, BgL_wherez00_2565, BgL_errz00_2564, BgL_argsz00_2567, BgL_dssslzd2argzd2_2568, BNIL, ((bool_t)1));} } } } } 

}



/* dsssl-check-key-args! */
BGL_EXPORTED_DEF obj_t BGl_dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00(obj_t BgL_dssslzd2argszd2_8, obj_t BgL_keyzd2listzd2_9)
{
{ /* Llib/dsssl.scm 316 */
if(
NULLP(BgL_keyzd2listzd2_9))
{ 
 obj_t BgL_argsz00_1561;
BgL_argsz00_1561 = BgL_dssslzd2argszd2_8; 
BgL_zc3z04anonymousza31616ze3z87_1562:
if(
NULLP(BgL_argsz00_1561))
{ /* Llib/dsssl.scm 320 */
return BgL_dssslzd2argszd2_8;}  else 
{ /* Llib/dsssl.scm 322 */
 bool_t BgL_test2599z00_3879;
if(
PAIRP(BgL_argsz00_1561))
{ /* Llib/dsssl.scm 322 */
if(
NULLP(
CDR(BgL_argsz00_1561)))
{ /* Llib/dsssl.scm 323 */
BgL_test2599z00_3879 = ((bool_t)1)
; }  else 
{ /* Llib/dsssl.scm 324 */
 bool_t BgL_test2602z00_3885;
{ /* Llib/dsssl.scm 324 */
 obj_t BgL_tmpz00_3886;
BgL_tmpz00_3886 = 
CAR(BgL_argsz00_1561); 
BgL_test2602z00_3885 = 
KEYWORDP(BgL_tmpz00_3886); } 
if(BgL_test2602z00_3885)
{ /* Llib/dsssl.scm 324 */
BgL_test2599z00_3879 = ((bool_t)0)
; }  else 
{ /* Llib/dsssl.scm 324 */
BgL_test2599z00_3879 = ((bool_t)1)
; } } }  else 
{ /* Llib/dsssl.scm 322 */
BgL_test2599z00_3879 = ((bool_t)1)
; } 
if(BgL_test2599z00_3879)
{ /* Llib/dsssl.scm 322 */
return 
BGl_errorz00zz__errorz00(BGl_string2359z00zz__dssslz00, BGl_string2360z00zz__dssslz00, BgL_argsz00_1561);}  else 
{ /* Llib/dsssl.scm 329 */
 obj_t BgL_arg1626z00_1572;
{ /* Llib/dsssl.scm 329 */
 obj_t BgL_pairz00_2259;
if(
PAIRP(BgL_argsz00_1561))
{ /* Llib/dsssl.scm 329 */
BgL_pairz00_2259 = BgL_argsz00_1561; }  else 
{ 
 obj_t BgL_auxz00_3892;
BgL_auxz00_3892 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(11381L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1561); 
FAILURE(BgL_auxz00_3892,BFALSE,BFALSE);} 
{ /* Llib/dsssl.scm 329 */
 obj_t BgL_pairz00_2262;
{ /* Llib/dsssl.scm 329 */
 obj_t BgL_aux2213z00_2720;
BgL_aux2213z00_2720 = 
CDR(BgL_pairz00_2259); 
if(
PAIRP(BgL_aux2213z00_2720))
{ /* Llib/dsssl.scm 329 */
BgL_pairz00_2262 = BgL_aux2213z00_2720; }  else 
{ 
 obj_t BgL_auxz00_3899;
BgL_auxz00_3899 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(11375L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2213z00_2720); 
FAILURE(BgL_auxz00_3899,BFALSE,BFALSE);} } 
BgL_arg1626z00_1572 = 
CDR(BgL_pairz00_2262); } } 
{ 
 obj_t BgL_argsz00_3904;
BgL_argsz00_3904 = BgL_arg1626z00_1572; 
BgL_argsz00_1561 = BgL_argsz00_3904; 
goto BgL_zc3z04anonymousza31616ze3z87_1562;} } } }  else 
{ 
 obj_t BgL_argsz00_1581; bool_t BgL_armedz00_1582; obj_t BgL_optsz00_1583;
BgL_argsz00_1581 = BgL_dssslzd2argszd2_8; 
BgL_armedz00_1582 = ((bool_t)0); 
BgL_optsz00_1583 = BNIL; 
BgL_zc3z04anonymousza31629ze3z87_1584:
if(
NULLP(BgL_argsz00_1581))
{ /* Llib/dsssl.scm 334 */
return 
bgl_reverse_bang(BgL_optsz00_1583);}  else 
{ /* Llib/dsssl.scm 336 */
 bool_t BgL_test2606z00_3908;
if(
PAIRP(BgL_argsz00_1581))
{ /* Llib/dsssl.scm 336 */
if(
NULLP(
CDR(BgL_argsz00_1581)))
{ /* Llib/dsssl.scm 337 */
BgL_test2606z00_3908 = ((bool_t)1)
; }  else 
{ /* Llib/dsssl.scm 338 */
 bool_t BgL_test2609z00_3914;
{ /* Llib/dsssl.scm 338 */
 obj_t BgL_tmpz00_3915;
BgL_tmpz00_3915 = 
CAR(BgL_argsz00_1581); 
BgL_test2609z00_3914 = 
KEYWORDP(BgL_tmpz00_3915); } 
if(BgL_test2609z00_3914)
{ /* Llib/dsssl.scm 339 */
 bool_t BgL_test2610z00_3918;
{ /* Llib/dsssl.scm 339 */
 obj_t BgL_tmpz00_3919;
{ /* Llib/dsssl.scm 339 */
 obj_t BgL_auxz00_3920;
{ /* Llib/dsssl.scm 339 */
 bool_t BgL_test2611z00_3922;
if(
PAIRP(BgL_keyzd2listzd2_9))
{ /* Llib/dsssl.scm 339 */
BgL_test2611z00_3922 = ((bool_t)1)
; }  else 
{ /* Llib/dsssl.scm 339 */
BgL_test2611z00_3922 = 
NULLP(BgL_keyzd2listzd2_9)
; } 
if(BgL_test2611z00_3922)
{ /* Llib/dsssl.scm 339 */
BgL_auxz00_3920 = BgL_keyzd2listzd2_9
; }  else 
{ 
 obj_t BgL_auxz00_3926;
BgL_auxz00_3926 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(11622L), BGl_string2333z00zz__dssslz00, BGl_string2361z00zz__dssslz00, BgL_keyzd2listzd2_9); 
FAILURE(BgL_auxz00_3926,BFALSE,BFALSE);} } 
BgL_tmpz00_3919 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_argsz00_1581), BgL_auxz00_3920); } 
BgL_test2610z00_3918 = 
CBOOL(BgL_tmpz00_3919); } 
if(BgL_test2610z00_3918)
{ /* Llib/dsssl.scm 339 */
BgL_test2606z00_3908 = ((bool_t)0)
; }  else 
{ /* Llib/dsssl.scm 339 */
BgL_test2606z00_3908 = ((bool_t)1)
; } }  else 
{ /* Llib/dsssl.scm 338 */
BgL_test2606z00_3908 = ((bool_t)1)
; } } }  else 
{ /* Llib/dsssl.scm 336 */
BgL_test2606z00_3908 = ((bool_t)1)
; } 
if(BgL_test2606z00_3908)
{ /* Llib/dsssl.scm 336 */
if(BgL_armedz00_1582)
{ /* Llib/dsssl.scm 342 */
 obj_t BgL_arg1644z00_1597; obj_t BgL_arg1645z00_1598;
{ /* Llib/dsssl.scm 342 */
 obj_t BgL_pairz00_2266;
if(
PAIRP(BgL_argsz00_1581))
{ /* Llib/dsssl.scm 342 */
BgL_pairz00_2266 = BgL_argsz00_1581; }  else 
{ 
 obj_t BgL_auxz00_3935;
BgL_auxz00_3935 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(11705L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1581); 
FAILURE(BgL_auxz00_3935,BFALSE,BFALSE);} 
BgL_arg1644z00_1597 = 
CDR(BgL_pairz00_2266); } 
{ /* Llib/dsssl.scm 344 */
 obj_t BgL_arg1646z00_1599;
{ /* Llib/dsssl.scm 344 */
 obj_t BgL_pairz00_2267;
if(
PAIRP(BgL_argsz00_1581))
{ /* Llib/dsssl.scm 344 */
BgL_pairz00_2267 = BgL_argsz00_1581; }  else 
{ 
 obj_t BgL_auxz00_3942;
BgL_auxz00_3942 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(11731L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1581); 
FAILURE(BgL_auxz00_3942,BFALSE,BFALSE);} 
BgL_arg1646z00_1599 = 
CAR(BgL_pairz00_2267); } 
BgL_arg1645z00_1598 = 
MAKE_YOUNG_PAIR(BgL_arg1646z00_1599, BgL_optsz00_1583); } 
{ 
 obj_t BgL_optsz00_3950; bool_t BgL_armedz00_3949; obj_t BgL_argsz00_3948;
BgL_argsz00_3948 = BgL_arg1644z00_1597; 
BgL_armedz00_3949 = ((bool_t)0); 
BgL_optsz00_3950 = BgL_arg1645z00_1598; 
BgL_optsz00_1583 = BgL_optsz00_3950; 
BgL_armedz00_1582 = BgL_armedz00_3949; 
BgL_argsz00_1581 = BgL_argsz00_3948; 
goto BgL_zc3z04anonymousza31629ze3z87_1584;} }  else 
{ /* Llib/dsssl.scm 341 */
 obj_t BgL_arg1647z00_1600;
{ /* Llib/dsssl.scm 341 */
 obj_t BgL_pairz00_2268;
if(
PAIRP(BgL_argsz00_1581))
{ /* Llib/dsssl.scm 341 */
BgL_pairz00_2268 = BgL_argsz00_1581; }  else 
{ 
 obj_t BgL_auxz00_3953;
BgL_auxz00_3953 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(11672L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1581); 
FAILURE(BgL_auxz00_3953,BFALSE,BFALSE);} 
BgL_arg1647z00_1600 = 
CDR(BgL_pairz00_2268); } 
{ 
 obj_t BgL_argsz00_3958;
BgL_argsz00_3958 = BgL_arg1647z00_1600; 
BgL_argsz00_1581 = BgL_argsz00_3958; 
goto BgL_zc3z04anonymousza31629ze3z87_1584;} } }  else 
{ /* Llib/dsssl.scm 346 */
 obj_t BgL_arg1649z00_1601;
{ /* Llib/dsssl.scm 346 */
 obj_t BgL_pairz00_2269;
if(
PAIRP(BgL_argsz00_1581))
{ /* Llib/dsssl.scm 346 */
BgL_pairz00_2269 = BgL_argsz00_1581; }  else 
{ 
 obj_t BgL_auxz00_3961;
BgL_auxz00_3961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(11777L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1581); 
FAILURE(BgL_auxz00_3961,BFALSE,BFALSE);} 
{ /* Llib/dsssl.scm 346 */
 obj_t BgL_pairz00_2272;
{ /* Llib/dsssl.scm 346 */
 obj_t BgL_aux2225z00_2732;
BgL_aux2225z00_2732 = 
CDR(BgL_pairz00_2269); 
if(
PAIRP(BgL_aux2225z00_2732))
{ /* Llib/dsssl.scm 346 */
BgL_pairz00_2272 = BgL_aux2225z00_2732; }  else 
{ 
 obj_t BgL_auxz00_3968;
BgL_auxz00_3968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(11771L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2225z00_2732); 
FAILURE(BgL_auxz00_3968,BFALSE,BFALSE);} } 
BgL_arg1649z00_1601 = 
CDR(BgL_pairz00_2272); } } 
{ 
 bool_t BgL_armedz00_3974; obj_t BgL_argsz00_3973;
BgL_argsz00_3973 = BgL_arg1649z00_1601; 
BgL_armedz00_3974 = ((bool_t)1); 
BgL_armedz00_1582 = BgL_armedz00_3974; 
BgL_argsz00_1581 = BgL_argsz00_3973; 
goto BgL_zc3z04anonymousza31629ze3z87_1584;} } } } } 

}



/* &dsssl-check-key-args! */
obj_t BGl_z62dssslzd2checkzd2keyzd2argsz12za2zz__dssslz00(obj_t BgL_envz00_2569, obj_t BgL_dssslzd2argszd2_2570, obj_t BgL_keyzd2listzd2_2571)
{
{ /* Llib/dsssl.scm 316 */
return 
BGl_dssslzd2checkzd2keyzd2argsz12zc0zz__dssslz00(BgL_dssslzd2argszd2_2570, BgL_keyzd2listzd2_2571);} 

}



/* dsssl-get-key-arg */
BGL_EXPORTED_DEF obj_t BGl_dssslzd2getzd2keyzd2argzd2zz__dssslz00(obj_t BgL_dssslzd2argszd2_10, obj_t BgL_keywordz00_11, obj_t BgL_initializa7erza7_12)
{
{ /* Llib/dsssl.scm 354 */
{ 
 obj_t BgL_argsz00_1611;
BgL_argsz00_1611 = BgL_dssslzd2argszd2_10; 
BgL_zc3z04anonymousza31654ze3z87_1612:
if(
PAIRP(BgL_argsz00_1611))
{ /* Llib/dsssl.scm 362 */
 bool_t BgL_test2620z00_3978;
{ /* Llib/dsssl.scm 362 */
 obj_t BgL_tmpz00_3979;
BgL_tmpz00_3979 = 
CAR(BgL_argsz00_1611); 
BgL_test2620z00_3978 = 
KEYWORDP(BgL_tmpz00_3979); } 
if(BgL_test2620z00_3978)
{ /* Llib/dsssl.scm 362 */
if(
(
CAR(BgL_argsz00_1611)==BgL_keywordz00_11))
{ /* Llib/dsssl.scm 365 */
 bool_t BgL_test2622z00_3985;
{ /* Llib/dsssl.scm 365 */
 obj_t BgL_tmpz00_3986;
BgL_tmpz00_3986 = 
CDR(BgL_argsz00_1611); 
BgL_test2622z00_3985 = 
PAIRP(BgL_tmpz00_3986); } 
if(BgL_test2622z00_3985)
{ /* Llib/dsssl.scm 369 */
 obj_t BgL_pairz00_2279;
{ /* Llib/dsssl.scm 369 */
 obj_t BgL_aux2227z00_2734;
BgL_aux2227z00_2734 = 
CDR(BgL_argsz00_1611); 
if(
PAIRP(BgL_aux2227z00_2734))
{ /* Llib/dsssl.scm 369 */
BgL_pairz00_2279 = BgL_aux2227z00_2734; }  else 
{ 
 obj_t BgL_auxz00_3992;
BgL_auxz00_3992 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(12699L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2227z00_2734); 
FAILURE(BgL_auxz00_3992,BFALSE,BFALSE);} } 
return 
CAR(BgL_pairz00_2279);}  else 
{ /* Llib/dsssl.scm 365 */
return 
BGl_errorz00zz__errorz00(BGl_string2303z00zz__dssslz00, BGl_string2362z00zz__dssslz00, 
CAR(BgL_argsz00_1611));} }  else 
{ /* Llib/dsssl.scm 370 */
 bool_t BgL_test2624z00_3999;
{ /* Llib/dsssl.scm 370 */
 obj_t BgL_tmpz00_4000;
BgL_tmpz00_4000 = 
CAR(BgL_argsz00_1611); 
BgL_test2624z00_3999 = 
KEYWORDP(BgL_tmpz00_4000); } 
if(BgL_test2624z00_3999)
{ /* Llib/dsssl.scm 375 */
 bool_t BgL_test2625z00_4003;
{ /* Llib/dsssl.scm 375 */
 obj_t BgL_tmpz00_4004;
BgL_tmpz00_4004 = 
CDR(BgL_argsz00_1611); 
BgL_test2625z00_4003 = 
PAIRP(BgL_tmpz00_4004); } 
if(BgL_test2625z00_4003)
{ /* Llib/dsssl.scm 379 */
 obj_t BgL_arg1673z00_1626;
{ /* Llib/dsssl.scm 379 */
 obj_t BgL_pairz00_2286;
{ /* Llib/dsssl.scm 379 */
 obj_t BgL_aux2229z00_2736;
BgL_aux2229z00_2736 = 
CDR(BgL_argsz00_1611); 
if(
PAIRP(BgL_aux2229z00_2736))
{ /* Llib/dsssl.scm 379 */
BgL_pairz00_2286 = BgL_aux2229z00_2736; }  else 
{ 
 obj_t BgL_auxz00_4010;
BgL_auxz00_4010 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(12975L), BGl_string2333z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2229z00_2736); 
FAILURE(BgL_auxz00_4010,BFALSE,BFALSE);} } 
BgL_arg1673z00_1626 = 
CDR(BgL_pairz00_2286); } 
{ 
 obj_t BgL_argsz00_4015;
BgL_argsz00_4015 = BgL_arg1673z00_1626; 
BgL_argsz00_1611 = BgL_argsz00_4015; 
goto BgL_zc3z04anonymousza31654ze3z87_1612;} }  else 
{ /* Llib/dsssl.scm 375 */
return 
BGl_errorz00zz__errorz00(BGl_string2303z00zz__dssslz00, BGl_string2362z00zz__dssslz00, 
CAR(BgL_argsz00_1611));} }  else 
{ /* Llib/dsssl.scm 370 */
return 
BGl_errorz00zz__errorz00(BGl_string2303z00zz__dssslz00, BGl_string2363z00zz__dssslz00, 
CAR(BgL_argsz00_1611));} } }  else 
{ 
 obj_t BgL_argsz00_4020;
BgL_argsz00_4020 = 
CDR(BgL_argsz00_1611); 
BgL_argsz00_1611 = BgL_argsz00_4020; 
goto BgL_zc3z04anonymousza31654ze3z87_1612;} }  else 
{ /* Llib/dsssl.scm 357 */
if(
NULLP(BgL_argsz00_1611))
{ /* Llib/dsssl.scm 358 */
return BgL_initializa7erza7_12;}  else 
{ /* Llib/dsssl.scm 358 */
return 
BGl_errorz00zz__errorz00(BGl_string2303z00zz__dssslz00, BGl_string2364z00zz__dssslz00, BgL_dssslzd2argszd2_10);} } } } 

}



/* &dsssl-get-key-arg */
obj_t BGl_z62dssslzd2getzd2keyzd2argzb0zz__dssslz00(obj_t BgL_envz00_2572, obj_t BgL_dssslzd2argszd2_2573, obj_t BgL_keywordz00_2574, obj_t BgL_initializa7erza7_2575)
{
{ /* Llib/dsssl.scm 354 */
{ /* Llib/dsssl.scm 357 */
 obj_t BgL_auxz00_4025;
if(
KEYWORDP(BgL_keywordz00_2574))
{ /* Llib/dsssl.scm 357 */
BgL_auxz00_4025 = BgL_keywordz00_2574
; }  else 
{ 
 obj_t BgL_auxz00_4028;
BgL_auxz00_4028 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(12351L), BGl_string2365z00zz__dssslz00, BGl_string2366z00zz__dssslz00, BgL_keywordz00_2574); 
FAILURE(BgL_auxz00_4028,BFALSE,BFALSE);} 
return 
BGl_dssslzd2getzd2keyzd2argzd2zz__dssslz00(BgL_dssslzd2argszd2_2573, BgL_auxz00_4025, BgL_initializa7erza7_2575);} } 

}



/* dsssl-get-key-rest-arg */
BGL_EXPORTED_DEF obj_t BGl_dssslzd2getzd2keyzd2restzd2argz00zz__dssslz00(obj_t BgL_dssslzd2argszd2_13, obj_t BgL_keysz00_14)
{
{ /* Llib/dsssl.scm 384 */
return 
BGl_loopze71ze7zz__dssslz00(BgL_keysz00_14, BgL_dssslzd2argszd2_13);} 

}



/* loop~1 */
obj_t BGl_loopze71ze7zz__dssslz00(obj_t BgL_keysz00_2589, obj_t BgL_argsz00_1637)
{
{ /* Llib/dsssl.scm 385 */
BGl_loopze71ze7zz__dssslz00:
if(
NULLP(BgL_argsz00_1637))
{ /* Llib/dsssl.scm 387 */
return BNIL;}  else 
{ /* Llib/dsssl.scm 389 */
 bool_t BgL_test2630z00_4036;
{ /* Llib/dsssl.scm 389 */
 bool_t BgL_test2631z00_4037;
{ /* Llib/dsssl.scm 389 */
 obj_t BgL_tmpz00_4038;
{ /* Llib/dsssl.scm 389 */
 obj_t BgL_pairz00_2290;
if(
PAIRP(BgL_argsz00_1637))
{ /* Llib/dsssl.scm 389 */
BgL_pairz00_2290 = BgL_argsz00_1637; }  else 
{ 
 obj_t BgL_auxz00_4041;
BgL_auxz00_4041 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(13364L), BGl_string2367z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1637); 
FAILURE(BgL_auxz00_4041,BFALSE,BFALSE);} 
BgL_tmpz00_4038 = 
CAR(BgL_pairz00_2290); } 
BgL_test2631z00_4037 = 
KEYWORDP(BgL_tmpz00_4038); } 
if(BgL_test2631z00_4037)
{ /* Llib/dsssl.scm 390 */
 bool_t BgL_test2633z00_4047;
{ /* Llib/dsssl.scm 390 */
 obj_t BgL_tmpz00_4048;
{ /* Llib/dsssl.scm 390 */
 obj_t BgL_pairz00_2291;
if(
PAIRP(BgL_argsz00_1637))
{ /* Llib/dsssl.scm 390 */
BgL_pairz00_2291 = BgL_argsz00_1637; }  else 
{ 
 obj_t BgL_auxz00_4051;
BgL_auxz00_4051 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(13391L), BGl_string2367z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1637); 
FAILURE(BgL_auxz00_4051,BFALSE,BFALSE);} 
BgL_tmpz00_4048 = 
CDR(BgL_pairz00_2291); } 
BgL_test2633z00_4047 = 
NULLP(BgL_tmpz00_4048); } 
if(BgL_test2633z00_4047)
{ /* Llib/dsssl.scm 390 */
BgL_test2630z00_4036 = ((bool_t)1)
; }  else 
{ /* Llib/dsssl.scm 391 */
 bool_t BgL_test2635z00_4057;
{ /* Llib/dsssl.scm 391 */
 obj_t BgL_tmpz00_4058;
{ /* Llib/dsssl.scm 391 */
 obj_t BgL_auxz00_4059;
{ /* Llib/dsssl.scm 391 */
 obj_t BgL_pairz00_2292;
if(
PAIRP(BgL_argsz00_1637))
{ /* Llib/dsssl.scm 391 */
BgL_pairz00_2292 = BgL_argsz00_1637; }  else 
{ 
 obj_t BgL_auxz00_4062;
BgL_auxz00_4062 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(13421L), BGl_string2367z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1637); 
FAILURE(BgL_auxz00_4062,BFALSE,BFALSE);} 
BgL_auxz00_4059 = 
CAR(BgL_pairz00_2292); } 
BgL_tmpz00_4058 = 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4059, BgL_keysz00_2589); } 
BgL_test2635z00_4057 = 
CBOOL(BgL_tmpz00_4058); } 
if(BgL_test2635z00_4057)
{ /* Llib/dsssl.scm 391 */
BgL_test2630z00_4036 = ((bool_t)0)
; }  else 
{ /* Llib/dsssl.scm 391 */
BgL_test2630z00_4036 = ((bool_t)1)
; } } }  else 
{ /* Llib/dsssl.scm 389 */
BgL_test2630z00_4036 = ((bool_t)1)
; } } 
if(BgL_test2630z00_4036)
{ /* Llib/dsssl.scm 392 */
 obj_t BgL_arg1711z00_1650; obj_t BgL_arg1712z00_1651;
{ /* Llib/dsssl.scm 392 */
 obj_t BgL_pairz00_2293;
if(
PAIRP(BgL_argsz00_1637))
{ /* Llib/dsssl.scm 392 */
BgL_pairz00_2293 = BgL_argsz00_1637; }  else 
{ 
 obj_t BgL_auxz00_4071;
BgL_auxz00_4071 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(13449L), BGl_string2367z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1637); 
FAILURE(BgL_auxz00_4071,BFALSE,BFALSE);} 
BgL_arg1711z00_1650 = 
CAR(BgL_pairz00_2293); } 
{ /* Llib/dsssl.scm 392 */
 obj_t BgL_arg1714z00_1652;
{ /* Llib/dsssl.scm 392 */
 obj_t BgL_pairz00_2294;
if(
PAIRP(BgL_argsz00_1637))
{ /* Llib/dsssl.scm 392 */
BgL_pairz00_2294 = BgL_argsz00_1637; }  else 
{ 
 obj_t BgL_auxz00_4078;
BgL_auxz00_4078 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(13466L), BGl_string2367z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1637); 
FAILURE(BgL_auxz00_4078,BFALSE,BFALSE);} 
BgL_arg1714z00_1652 = 
CDR(BgL_pairz00_2294); } 
BgL_arg1712z00_1651 = 
BGl_loopze71ze7zz__dssslz00(BgL_keysz00_2589, BgL_arg1714z00_1652); } 
return 
MAKE_YOUNG_PAIR(BgL_arg1711z00_1650, BgL_arg1712z00_1651);}  else 
{ /* Llib/dsssl.scm 394 */
 obj_t BgL_arg1715z00_1653;
{ /* Llib/dsssl.scm 394 */
 obj_t BgL_pairz00_2295;
if(
PAIRP(BgL_argsz00_1637))
{ /* Llib/dsssl.scm 394 */
BgL_pairz00_2295 = BgL_argsz00_1637; }  else 
{ 
 obj_t BgL_auxz00_4087;
BgL_auxz00_4087 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(13498L), BGl_string2367z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_argsz00_1637); 
FAILURE(BgL_auxz00_4087,BFALSE,BFALSE);} 
{ /* Llib/dsssl.scm 394 */
 obj_t BgL_pairz00_2298;
{ /* Llib/dsssl.scm 394 */
 obj_t BgL_aux2245z00_2752;
BgL_aux2245z00_2752 = 
CDR(BgL_pairz00_2295); 
if(
PAIRP(BgL_aux2245z00_2752))
{ /* Llib/dsssl.scm 394 */
BgL_pairz00_2298 = BgL_aux2245z00_2752; }  else 
{ 
 obj_t BgL_auxz00_4094;
BgL_auxz00_4094 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(13492L), BGl_string2367z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2245z00_2752); 
FAILURE(BgL_auxz00_4094,BFALSE,BFALSE);} } 
BgL_arg1715z00_1653 = 
CDR(BgL_pairz00_2298); } } 
{ 
 obj_t BgL_argsz00_4099;
BgL_argsz00_4099 = BgL_arg1715z00_1653; 
BgL_argsz00_1637 = BgL_argsz00_4099; 
goto BGl_loopze71ze7zz__dssslz00;} } } } 

}



/* &dsssl-get-key-rest-arg */
obj_t BGl_z62dssslzd2getzd2keyzd2restzd2argz62zz__dssslz00(obj_t BgL_envz00_2576, obj_t BgL_dssslzd2argszd2_2577, obj_t BgL_keysz00_2578)
{
{ /* Llib/dsssl.scm 384 */
{ /* Llib/dsssl.scm 387 */
 obj_t BgL_auxz00_4100;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_keysz00_2578))
{ /* Llib/dsssl.scm 387 */
BgL_auxz00_4100 = BgL_keysz00_2578
; }  else 
{ 
 obj_t BgL_auxz00_4103;
BgL_auxz00_4103 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(13315L), BGl_string2368z00zz__dssslz00, BGl_string2361z00zz__dssslz00, BgL_keysz00_2578); 
FAILURE(BgL_auxz00_4103,BFALSE,BFALSE);} 
return 
BGl_dssslzd2getzd2keyzd2restzd2argz00zz__dssslz00(BgL_dssslzd2argszd2_2577, BgL_auxz00_4100);} } 

}



/* id-sans-type */
obj_t BGl_idzd2sanszd2typez00zz__dssslz00(obj_t BgL_idz00_15)
{
{ /* Llib/dsssl.scm 402 */
{ /* Llib/dsssl.scm 403 */
 obj_t BgL_stringz00_1661;
{ /* Llib/dsssl.scm 403 */
 obj_t BgL_arg1775z00_2300;
BgL_arg1775z00_2300 = 
SYMBOL_TO_STRING(BgL_idz00_15); 
BgL_stringz00_1661 = 
BGl_stringzd2copyzd2zz__r4_strings_6_7z00(BgL_arg1775z00_2300); } 
{ /* Llib/dsssl.scm 403 */
 long BgL_lenz00_1662;
BgL_lenz00_1662 = 
STRING_LENGTH(BgL_stringz00_1661); 
{ /* Llib/dsssl.scm 404 */

{ 
 long BgL_walkerz00_1664;
BgL_walkerz00_1664 = 0L; 
BgL_zc3z04anonymousza31720ze3z87_1665:
if(
(BgL_walkerz00_1664==BgL_lenz00_1662))
{ /* Llib/dsssl.scm 407 */
return BgL_idz00_15;}  else 
{ /* Llib/dsssl.scm 409 */
 bool_t BgL_test2643z00_4113;
{ /* Llib/dsssl.scm 409 */
 bool_t BgL_test2644z00_4114;
{ /* Llib/dsssl.scm 409 */
 unsigned char BgL_tmpz00_4115;
{ /* Llib/dsssl.scm 409 */
 long BgL_l2122z00_2600;
BgL_l2122z00_2600 = 
STRING_LENGTH(BgL_stringz00_1661); 
if(
BOUND_CHECK(BgL_walkerz00_1664, BgL_l2122z00_2600))
{ /* Llib/dsssl.scm 409 */
BgL_tmpz00_4115 = 
STRING_REF(BgL_stringz00_1661, BgL_walkerz00_1664)
; }  else 
{ 
 obj_t BgL_auxz00_4120;
BgL_auxz00_4120 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(14164L), BGl_string2369z00zz__dssslz00, BgL_stringz00_1661, 
(int)(BgL_l2122z00_2600), 
(int)(BgL_walkerz00_1664)); 
FAILURE(BgL_auxz00_4120,BFALSE,BFALSE);} } 
BgL_test2644z00_4114 = 
(BgL_tmpz00_4115==((unsigned char)':')); } 
if(BgL_test2644z00_4114)
{ /* Llib/dsssl.scm 409 */
if(
(BgL_walkerz00_1664<
(BgL_lenz00_1662-1L)))
{ /* Llib/dsssl.scm 411 */
 unsigned char BgL_tmpz00_4130;
{ /* Llib/dsssl.scm 411 */
 long BgL_i2125z00_2603;
BgL_i2125z00_2603 = 
(BgL_walkerz00_1664+1L); 
{ /* Llib/dsssl.scm 411 */
 long BgL_l2126z00_2604;
BgL_l2126z00_2604 = 
STRING_LENGTH(BgL_stringz00_1661); 
if(
BOUND_CHECK(BgL_i2125z00_2603, BgL_l2126z00_2604))
{ /* Llib/dsssl.scm 411 */
BgL_tmpz00_4130 = 
STRING_REF(BgL_stringz00_1661, BgL_i2125z00_2603)
; }  else 
{ 
 obj_t BgL_auxz00_4136;
BgL_auxz00_4136 = 
BGl_indexzd2outzd2ofzd2boundszd2errorz00zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(14237L), BGl_string2369z00zz__dssslz00, BgL_stringz00_1661, 
(int)(BgL_l2126z00_2604), 
(int)(BgL_i2125z00_2603)); 
FAILURE(BgL_auxz00_4136,BFALSE,BFALSE);} } } 
BgL_test2643z00_4113 = 
(BgL_tmpz00_4130==((unsigned char)':')); }  else 
{ /* Llib/dsssl.scm 410 */
BgL_test2643z00_4113 = ((bool_t)0)
; } }  else 
{ /* Llib/dsssl.scm 409 */
BgL_test2643z00_4113 = ((bool_t)0)
; } } 
if(BgL_test2643z00_4113)
{ /* Llib/dsssl.scm 409 */
return 
bstring_to_symbol(
BGl_substringz00zz__r4_strings_6_7z00(BgL_stringz00_1661, 0L, BgL_walkerz00_1664));}  else 
{ 
 long BgL_walkerz00_4145;
BgL_walkerz00_4145 = 
(BgL_walkerz00_1664+1L); 
BgL_walkerz00_1664 = BgL_walkerz00_4145; 
goto BgL_zc3z04anonymousza31720ze3z87_1665;} } } } } } } 

}



/* dsssl-formals->scheme-formals */
BGL_EXPORTED_DEF obj_t BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00(obj_t BgL_formalsz00_16, obj_t BgL_errz00_17)
{
{ /* Llib/dsssl.scm 419 */
return 
BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00(BgL_formalsz00_16, BgL_errz00_17, ((bool_t)0));} 

}



/* &dsssl-formals->scheme-formals */
obj_t BGl_z62dssslzd2formalszd2ze3schemezd2formalsz53zz__dssslz00(obj_t BgL_envz00_2579, obj_t BgL_formalsz00_2580, obj_t BgL_errz00_2581)
{
{ /* Llib/dsssl.scm 419 */
{ /* Llib/dsssl.scm 420 */
 obj_t BgL_auxz00_4148;
if(
PROCEDUREP(BgL_errz00_2581))
{ /* Llib/dsssl.scm 420 */
BgL_auxz00_4148 = BgL_errz00_2581
; }  else 
{ 
 obj_t BgL_auxz00_4151;
BgL_auxz00_4151 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(14652L), BGl_string2370z00zz__dssslz00, BGl_string2297z00zz__dssslz00, BgL_errz00_2581); 
FAILURE(BgL_auxz00_4151,BFALSE,BFALSE);} 
return 
BGl_dssslzd2formalszd2ze3schemezd2formalsz31zz__dssslz00(BgL_formalsz00_2580, BgL_auxz00_4148);} } 

}



/* dsssl-formals->scheme-typed-formals */
BGL_EXPORTED_DEF obj_t BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00(obj_t BgL_formalsz00_18, obj_t BgL_errz00_19, bool_t BgL_typedz00_20)
{
{ /* Llib/dsssl.scm 436 */
return 
BGl_loopze70ze7zz__dssslz00(BgL_typedz00_20, BgL_formalsz00_18, BgL_errz00_19, BgL_formalsz00_18, ((bool_t)0));} 

}



/* loop~0 */
obj_t BGl_loopze70ze7zz__dssslz00(bool_t BgL_typedz00_2588, obj_t BgL_formalsz00_2587, obj_t BgL_errz00_2586, obj_t BgL_argsz00_1689, bool_t BgL_dssslz00_1690)
{
{ /* Llib/dsssl.scm 449 */
BGl_loopze70ze7zz__dssslz00:
{ 
 obj_t BgL_objz00_1715;
if(
NULLP(BgL_argsz00_1689))
{ /* Llib/dsssl.scm 452 */
return BNIL;}  else 
{ /* Llib/dsssl.scm 452 */
if(
PAIRP(BgL_argsz00_1689))
{ /* Llib/dsssl.scm 464 */
 bool_t BgL_test2651z00_4161;
{ /* Llib/dsssl.scm 464 */
 obj_t BgL_tmpz00_4162;
BgL_tmpz00_4162 = 
CAR(BgL_argsz00_1689); 
BgL_test2651z00_4161 = 
SYMBOLP(BgL_tmpz00_4162); } 
if(BgL_test2651z00_4161)
{ /* Llib/dsssl.scm 464 */
if(BgL_dssslz00_1690)
{ /* Llib/dsssl.scm 477 */
 obj_t BgL_arg1745z00_1696;
BgL_arg1745z00_1696 = 
CAR(BgL_argsz00_1689); 
{ /* Llib/dsssl.scm 477 */
 obj_t BgL_auxz00_4167;
if(
SYMBOLP(BgL_arg1745z00_1696))
{ /* Llib/dsssl.scm 477 */
BgL_auxz00_4167 = BgL_arg1745z00_1696
; }  else 
{ 
 obj_t BgL_auxz00_4170;
BgL_auxz00_4170 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(16861L), BGl_string2372z00zz__dssslz00, BGl_string2334z00zz__dssslz00, BgL_arg1745z00_1696); 
FAILURE(BgL_auxz00_4170,BFALSE,BFALSE);} 
return 
BGl_idzd2sanszd2typez00zz__dssslz00(BgL_auxz00_4167);} }  else 
{ /* Llib/dsssl.scm 479 */
 obj_t BgL_arg1747z00_1697; obj_t BgL_arg1748z00_1698;
if(BgL_typedz00_2588)
{ /* Llib/dsssl.scm 479 */
BgL_arg1747z00_1697 = 
CAR(BgL_argsz00_1689); }  else 
{ /* Llib/dsssl.scm 479 */
 obj_t BgL_arg1749z00_1699;
BgL_arg1749z00_1699 = 
CAR(BgL_argsz00_1689); 
{ /* Llib/dsssl.scm 479 */
 obj_t BgL_auxz00_4178;
if(
SYMBOLP(BgL_arg1749z00_1699))
{ /* Llib/dsssl.scm 479 */
BgL_auxz00_4178 = BgL_arg1749z00_1699
; }  else 
{ 
 obj_t BgL_auxz00_4181;
BgL_auxz00_4181 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(16926L), BGl_string2372z00zz__dssslz00, BGl_string2334z00zz__dssslz00, BgL_arg1749z00_1699); 
FAILURE(BgL_auxz00_4181,BFALSE,BFALSE);} 
BgL_arg1747z00_1697 = 
BGl_idzd2sanszd2typez00zz__dssslz00(BgL_auxz00_4178); } } 
BgL_arg1748z00_1698 = 
BGl_loopze70ze7zz__dssslz00(BgL_typedz00_2588, BgL_formalsz00_2587, BgL_errz00_2586, 
CDR(BgL_argsz00_1689), ((bool_t)0)); 
return 
MAKE_YOUNG_PAIR(BgL_arg1747z00_1697, BgL_arg1748z00_1698);} }  else 
{ /* Llib/dsssl.scm 464 */
if(
CBOOL(
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_argsz00_1689), BGl_list2373z00zz__dssslz00)))
{ 
 bool_t BgL_dssslz00_4195; obj_t BgL_argsz00_4193;
BgL_argsz00_4193 = 
CDR(BgL_argsz00_1689); 
BgL_dssslz00_4195 = ((bool_t)1); 
BgL_dssslz00_1690 = BgL_dssslz00_4195; 
BgL_argsz00_1689 = BgL_argsz00_4193; 
goto BGl_loopze70ze7zz__dssslz00;}  else 
{ /* Llib/dsssl.scm 466 */
if(BgL_dssslz00_1690)
{ /* Llib/dsssl.scm 470 */
 bool_t BgL_test2658z00_4197;
BgL_objz00_1715 = 
CAR(BgL_argsz00_1689); 
if(
PAIRP(BgL_objz00_1715))
{ /* Llib/dsssl.scm 443 */
 bool_t BgL_test2660z00_4200;
{ /* Llib/dsssl.scm 443 */
 obj_t BgL_tmpz00_4201;
BgL_tmpz00_4201 = 
CDR(BgL_objz00_1715); 
BgL_test2660z00_4200 = 
PAIRP(BgL_tmpz00_4201); } 
if(BgL_test2660z00_4200)
{ /* Llib/dsssl.scm 444 */
 obj_t BgL_tmpz00_4204;
{ /* Llib/dsssl.scm 444 */
 obj_t BgL_pairz00_2322;
{ /* Llib/dsssl.scm 444 */
 obj_t BgL_aux2251z00_2758;
BgL_aux2251z00_2758 = 
CDR(BgL_objz00_1715); 
if(
PAIRP(BgL_aux2251z00_2758))
{ /* Llib/dsssl.scm 444 */
BgL_pairz00_2322 = BgL_aux2251z00_2758; }  else 
{ 
 obj_t BgL_auxz00_4208;
BgL_auxz00_4208 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(15993L), BGl_string2371z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2251z00_2758); 
FAILURE(BgL_auxz00_4208,BFALSE,BFALSE);} } 
BgL_tmpz00_4204 = 
CDR(BgL_pairz00_2322); } 
BgL_test2658z00_4197 = 
NULLP(BgL_tmpz00_4204); }  else 
{ /* Llib/dsssl.scm 443 */
BgL_test2658z00_4197 = ((bool_t)0)
; } }  else 
{ /* Llib/dsssl.scm 442 */
BgL_test2658z00_4197 = ((bool_t)0)
; } 
if(BgL_test2658z00_4197)
{ /* Llib/dsssl.scm 471 */
 obj_t BgL_arg1759z00_1706;
{ /* Llib/dsssl.scm 447 */
 obj_t BgL_pairz00_2333;
{ /* Llib/dsssl.scm 471 */
 obj_t BgL_aux2257z00_2764;
BgL_aux2257z00_2764 = 
CAR(BgL_argsz00_1689); 
if(
PAIRP(BgL_aux2257z00_2764))
{ /* Llib/dsssl.scm 471 */
BgL_pairz00_2333 = BgL_aux2257z00_2764; }  else 
{ 
 obj_t BgL_auxz00_4218;
BgL_auxz00_4218 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(16703L), BGl_string2372z00zz__dssslz00, BGl_string2285z00zz__dssslz00, BgL_aux2257z00_2764); 
FAILURE(BgL_auxz00_4218,BFALSE,BFALSE);} } 
BgL_arg1759z00_1706 = 
CAR(BgL_pairz00_2333); } 
{ /* Llib/dsssl.scm 471 */
 obj_t BgL_auxz00_4223;
if(
SYMBOLP(BgL_arg1759z00_1706))
{ /* Llib/dsssl.scm 471 */
BgL_auxz00_4223 = BgL_arg1759z00_1706
; }  else 
{ 
 obj_t BgL_auxz00_4226;
BgL_auxz00_4226 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(16713L), BGl_string2372z00zz__dssslz00, BGl_string2334z00zz__dssslz00, BgL_arg1759z00_1706); 
FAILURE(BgL_auxz00_4226,BFALSE,BFALSE);} 
return 
BGl_idzd2sanszd2typez00zz__dssslz00(BgL_auxz00_4223);} }  else 
{ /* Llib/dsssl.scm 470 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2586, 3))
{ /* Llib/dsssl.scm 473 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2586, BGl_string2374z00zz__dssslz00, BGl_string2375z00zz__dssslz00, BgL_formalsz00_2587);}  else 
{ /* Llib/dsssl.scm 473 */
FAILURE(BGl_string2376z00zz__dssslz00,BGl_list2377z00zz__dssslz00,BgL_errz00_2586);} } }  else 
{ /* Llib/dsssl.scm 468 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2586, 3))
{ /* Llib/dsssl.scm 469 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2586, BGl_string2374z00zz__dssslz00, BGl_string2378z00zz__dssslz00, BgL_formalsz00_2587);}  else 
{ /* Llib/dsssl.scm 469 */
FAILURE(BGl_string2376z00zz__dssslz00,BGl_list2379z00zz__dssslz00,BgL_errz00_2586);} } } } }  else 
{ /* Llib/dsssl.scm 454 */
if(BgL_dssslz00_1690)
{ /* Llib/dsssl.scm 456 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2586, 3))
{ /* Llib/dsssl.scm 457 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2586, BGl_string2380z00zz__dssslz00, BGl_string2381z00zz__dssslz00, BgL_formalsz00_2587);}  else 
{ /* Llib/dsssl.scm 457 */
FAILURE(BGl_string2376z00zz__dssslz00,BGl_list2382z00zz__dssslz00,BgL_errz00_2586);} }  else 
{ /* Llib/dsssl.scm 456 */
if(
SYMBOLP(BgL_argsz00_1689))
{ /* Llib/dsssl.scm 460 */
return 
BGl_idzd2sanszd2typez00zz__dssslz00(BgL_argsz00_1689);}  else 
{ /* Llib/dsssl.scm 460 */
if(
PROCEDURE_CORRECT_ARITYP(BgL_errz00_2586, 3))
{ /* Llib/dsssl.scm 461 */
return 
BGL_PROCEDURE_CALL3(BgL_errz00_2586, BGl_string2374z00zz__dssslz00, BGl_string2378z00zz__dssslz00, BgL_formalsz00_2587);}  else 
{ /* Llib/dsssl.scm 461 */
FAILURE(BGl_string2376z00zz__dssslz00,BGl_list2379z00zz__dssslz00,BgL_errz00_2586);} } } } } } } 

}



/* &dsssl-formals->scheme-typed-formals */
obj_t BGl_z62dssslzd2formalszd2ze3schemezd2typedzd2formalsz81zz__dssslz00(obj_t BgL_envz00_2582, obj_t BgL_formalsz00_2583, obj_t BgL_errz00_2584, obj_t BgL_typedz00_2585)
{
{ /* Llib/dsssl.scm 436 */
{ /* Llib/dsssl.scm 439 */
 obj_t BgL_auxz00_4271;
if(
PROCEDUREP(BgL_errz00_2584))
{ /* Llib/dsssl.scm 439 */
BgL_auxz00_4271 = BgL_errz00_2584
; }  else 
{ 
 obj_t BgL_auxz00_4274;
BgL_auxz00_4274 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2283z00zz__dssslz00, 
BINT(15856L), BGl_string2383z00zz__dssslz00, BGl_string2297z00zz__dssslz00, BgL_errz00_2584); 
FAILURE(BgL_auxz00_4274,BFALSE,BFALSE);} 
return 
BGl_dssslzd2formalszd2ze3schemezd2typedzd2formalsze3zz__dssslz00(BgL_formalsz00_2583, BgL_auxz00_4271, 
CBOOL(BgL_typedz00_2585));} } 

}



/* object-init */
obj_t BGl_objectzd2initzd2zz__dssslz00(void)
{
{ /* Llib/dsssl.scm 14 */
return BUNSPEC;} 

}



/* generic-init */
obj_t BGl_genericzd2initzd2zz__dssslz00(void)
{
{ /* Llib/dsssl.scm 14 */
return BUNSPEC;} 

}



/* method-init */
obj_t BGl_methodzd2initzd2zz__dssslz00(void)
{
{ /* Llib/dsssl.scm 14 */
return BUNSPEC;} 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__dssslz00(void)
{
{ /* Llib/dsssl.scm 14 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string2384z00zz__dssslz00)); 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string2384z00zz__dssslz00)); 
BGl_modulezd2initializa7ationz75zz__bexitz00(443005284L, 
BSTRING_TO_STRING(BGl_string2384z00zz__dssslz00)); 
BGl_modulezd2initializa7ationz75zz__objectz00(475449627L, 
BSTRING_TO_STRING(BGl_string2384z00zz__dssslz00)); 
return 
BGl_modulezd2initializa7ationz75zz__threadz00(149516032L, 
BSTRING_TO_STRING(BGl_string2384z00zz__dssslz00));} 

}

#ifdef __cplusplus
}
#endif
