/*===========================================================================*/
/*   (Ieee/control5.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 Ieee/control5.scm -indent -o objs/obj_s/Ieee/control5.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___R5_CONTROL_FEATURES_6_4_TYPE_DEFINITIONS
#define BGL___R5_CONTROL_FEATURES_6_4_TYPE_DEFINITIONS
#endif // BGL___R5_CONTROL_FEATURES_6_4_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

BGL_EXPORTED_DECL obj_t BGl_z52getzd2mvalueszd2valz52zz__r5_control_features_6_4z00(int);
static obj_t BGl_symbol1911z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1830z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1913z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1751z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1670z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1833z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1915z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1753z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1835z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1673z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1917z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1755z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1837z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1675z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1757z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1839z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1677z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1807z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1759z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1727z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1646z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1841z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1761z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1680z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1843z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1682z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1845z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1764z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1684z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1847z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1766z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1686z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1849z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1768z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1655z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1689z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__r5_control_features_6_4z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_callzd2withzd2valuesz00zz__r5_control_features_6_4z00(obj_t, obj_t);
static obj_t BGl_symbol1851z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1770z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1853z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1772z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1691z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1855z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1774z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1693z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1857z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1776z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1695z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1662z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_z62z52getzd2mvalueszd2numberz30zz__r5_control_features_6_4z00(obj_t);
static obj_t BGl_list1744z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1663z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1778z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1697z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1664z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1667z00zz__r5_control_features_6_4z00 = BUNSPEC;
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r5_control_features_6_4z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl_symbol1860z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1780z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1862z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1782z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1864z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1832z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1866z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1785z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1672z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1868z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1787z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1789z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1679z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1870z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1872z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1791z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1874z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1793z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1876z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1795z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1763z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1878z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1797z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1799z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1688z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1880z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1882z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1884z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1886z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1889z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_z62z52setzd2mvalueszd2valz12z22zz__r5_control_features_6_4z00(obj_t, obj_t, obj_t);
static obj_t BGl_list1859z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1699z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zz__r5_control_features_6_4z00(void);
extern long bgl_list_length(obj_t);
static obj_t BGl_z62z52getzd2mvalueszd2valz30zz__r5_control_features_6_4z00(obj_t, obj_t);
static obj_t BGl_symbol1891z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1893z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r5_control_features_6_4z00(void);
static obj_t BGl_symbol1895z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1897z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_gczd2rootszd2initz00zz__r5_control_features_6_4z00(void);
static obj_t BGl_list1784z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1899z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_z62callzd2withzd2valuesz62zz__r5_control_features_6_4z00(obj_t, obj_t, obj_t);
static obj_t BGl_list1888z00zz__r5_control_features_6_4z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_z52setzd2mvalueszd2valz12z40zz__r5_control_features_6_4z00(int, obj_t);
static obj_t BGl_z62valuesz62zz__r5_control_features_6_4z00(obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
BGL_EXPORTED_DECL int BGl_z52getzd2mvalueszd2numberz52zz__r5_control_features_6_4z00(void);
static obj_t BGl_symbol1700z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1702z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1704z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1706z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1708z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_z62z52setzd2mvalueszd2numberz12z22zz__r5_control_features_6_4z00(obj_t, obj_t);
static obj_t BGl_symbol1710z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1713z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1715z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1717z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1719z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1801z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1721z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1803z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1723z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1805z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1725z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1808z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1728z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1647z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1649z00zz__r5_control_features_6_4z00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_z52setzd2mvalueszd2numberz12z40zz__r5_control_features_6_4z00(int);
static obj_t BGl_symbol1810z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1730z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1812z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1732z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1814z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1734z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1653z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1816z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1736z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1818z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1656z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1738z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1658z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1901z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1820z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1740z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1903z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1822z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1660z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1742z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1905z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1824z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1907z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1826z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1745z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_list1712z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1665z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1909z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1828z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1747z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1749z00zz__r5_control_features_6_4z00 = BUNSPEC;
static obj_t BGl_symbol1668z00zz__r5_control_features_6_4z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_valuesz00zz__r5_control_features_6_4z00(obj_t);
static obj_t *__cnst;


BGL_DEFINE_STRING(BGl_string1871z00zz__r5_control_features_6_4z00, BgL_bgl_string1871za700za7za7_1922za7, "arg1271", 7 );
BGL_DEFINE_STRING(BGl_string1790z00zz__r5_control_features_6_4z00, BgL_bgl_string1790za700za7za7_1923za7, "arg1197", 7 );
BGL_DEFINE_STRING(BGl_string1873z00zz__r5_control_features_6_4z00, BgL_bgl_string1873za700za7za7_1924za7, "arg1274", 7 );
BGL_DEFINE_STRING(BGl_string1792z00zz__r5_control_features_6_4z00, BgL_bgl_string1792za700za7za7_1925za7, "arg1201", 7 );
BGL_DEFINE_STRING(BGl_string1875z00zz__r5_control_features_6_4z00, BgL_bgl_string1875za700za7za7_1926za7, "arg1276", 7 );
BGL_DEFINE_STRING(BGl_string1794z00zz__r5_control_features_6_4z00, BgL_bgl_string1794za700za7za7_1927za7, "arg1202", 7 );
BGL_DEFINE_STRING(BGl_string1877z00zz__r5_control_features_6_4z00, BgL_bgl_string1877za700za7za7_1928za7, "arg1278", 7 );
BGL_DEFINE_STRING(BGl_string1796z00zz__r5_control_features_6_4z00, BgL_bgl_string1796za700za7za7_1929za7, "arg1203", 7 );
BGL_DEFINE_STRING(BGl_string1879z00zz__r5_control_features_6_4z00, BgL_bgl_string1879za700za7za7_1930za7, "arg1279", 7 );
BGL_DEFINE_STRING(BGl_string1798z00zz__r5_control_features_6_4z00, BgL_bgl_string1798za700za7za7_1931za7, "arg1206", 7 );
BGL_DEFINE_STRING(BGl_string1881z00zz__r5_control_features_6_4z00, BgL_bgl_string1881za700za7za7_1932za7, "arg1280", 7 );
BGL_DEFINE_STRING(BGl_string1883z00zz__r5_control_features_6_4z00, BgL_bgl_string1883za700za7za7_1933za7, "arg1281", 7 );
BGL_DEFINE_STRING(BGl_string1885z00zz__r5_control_features_6_4z00, BgL_bgl_string1885za700za7za7_1934za7, "arg1282", 7 );
BGL_DEFINE_STRING(BGl_string1887z00zz__r5_control_features_6_4z00, BgL_bgl_string1887za700za7za7_1935za7, "arg1283", 7 );
BGL_DEFINE_STRING(BGl_string1890z00zz__r5_control_features_6_4z00, BgL_bgl_string1890za700za7za7_1936za7, "arg1285", 7 );
BGL_DEFINE_STRING(BGl_string1892z00zz__r5_control_features_6_4z00, BgL_bgl_string1892za700za7za7_1937za7, "arg1287", 7 );
BGL_DEFINE_STRING(BGl_string1894z00zz__r5_control_features_6_4z00, BgL_bgl_string1894za700za7za7_1938za7, "arg1291", 7 );
BGL_DEFINE_STRING(BGl_string1896z00zz__r5_control_features_6_4z00, BgL_bgl_string1896za700za7za7_1939za7, "arg1292", 7 );
BGL_DEFINE_STRING(BGl_string1898z00zz__r5_control_features_6_4z00, BgL_bgl_string1898za700za7za7_1940za7, "arg1293", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_z52setzd2mvalueszd2numberz12zd2envz92zz__r5_control_features_6_4z00, BgL_bgl_za762za752setza7d2mval1941za7, BGl_z62z52setzd2mvalueszd2numberz12z22zz__r5_control_features_6_4z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1701z00zz__r5_control_features_6_4z00, BgL_bgl_string1701za700za7za7_1942za7, "arg1107", 7 );
BGL_DEFINE_STRING(BGl_string1703z00zz__r5_control_features_6_4z00, BgL_bgl_string1703za700za7za7_1943za7, "arg1108", 7 );
BGL_DEFINE_STRING(BGl_string1705z00zz__r5_control_features_6_4z00, BgL_bgl_string1705za700za7za7_1944za7, "arg1111", 7 );
BGL_DEFINE_STRING(BGl_string1707z00zz__r5_control_features_6_4z00, BgL_bgl_string1707za700za7za7_1945za7, "arg1115", 7 );
BGL_DEFINE_STRING(BGl_string1709z00zz__r5_control_features_6_4z00, BgL_bgl_string1709za700za7za7_1946za7, "arg1116", 7 );
BGL_DEFINE_STRING(BGl_string1711z00zz__r5_control_features_6_4z00, BgL_bgl_string1711za700za7za7_1947za7, "arg1117", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_z52setzd2mvalueszd2valz12zd2envz92zz__r5_control_features_6_4z00, BgL_bgl_za762za752setza7d2mval1948za7, BGl_z62z52setzd2mvalueszd2valz12z22zz__r5_control_features_6_4z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1714z00zz__r5_control_features_6_4z00, BgL_bgl_string1714za700za7za7_1949za7, "arg1118", 7 );
BGL_DEFINE_STRING(BGl_string1716z00zz__r5_control_features_6_4z00, BgL_bgl_string1716za700za7za7_1950za7, "arg1120", 7 );
BGL_DEFINE_STRING(BGl_string1718z00zz__r5_control_features_6_4z00, BgL_bgl_string1718za700za7za7_1951za7, "arg1121", 7 );
BGL_DEFINE_STRING(BGl_string1637z00zz__r5_control_features_6_4z00, BgL_bgl_string1637za700za7za7_1952za7, "/tmp/bigloo/runtime/Ieee/control5.scm", 37 );
BGL_DEFINE_STRING(BGl_string1638z00zz__r5_control_features_6_4z00, BgL_bgl_string1638za700za7za7_1953za7, "&%set-mvalues-number!", 21 );
BGL_DEFINE_STRING(BGl_string1639z00zz__r5_control_features_6_4z00, BgL_bgl_string1639za700za7za7_1954za7, "bint", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_callzd2withzd2valueszd2envzd2zz__r5_control_features_6_4z00, BgL_bgl_za762callza7d2withza7d1955za7, BGl_z62callzd2withzd2valuesz62zz__r5_control_features_6_4z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1800z00zz__r5_control_features_6_4z00, BgL_bgl_string1800za700za7za7_1956za7, "arg1207", 7 );
BGL_DEFINE_STRING(BGl_string1720z00zz__r5_control_features_6_4z00, BgL_bgl_string1720za700za7za7_1957za7, "arg1122", 7 );
BGL_DEFINE_STRING(BGl_string1802z00zz__r5_control_features_6_4z00, BgL_bgl_string1802za700za7za7_1958za7, "arg1208", 7 );
BGL_DEFINE_STRING(BGl_string1640z00zz__r5_control_features_6_4z00, BgL_bgl_string1640za700za7za7_1959za7, "&%get-mvalues-val", 17 );
BGL_DEFINE_STRING(BGl_string1722z00zz__r5_control_features_6_4z00, BgL_bgl_string1722za700za7za7_1960za7, "arg1123", 7 );
BGL_DEFINE_STRING(BGl_string1641z00zz__r5_control_features_6_4z00, BgL_bgl_string1641za700za7za7_1961za7, "&%set-mvalues-val!", 18 );
BGL_DEFINE_STRING(BGl_string1804z00zz__r5_control_features_6_4z00, BgL_bgl_string1804za700za7za7_1962za7, "arg1211", 7 );
BGL_DEFINE_STRING(BGl_string1642z00zz__r5_control_features_6_4z00, BgL_bgl_string1642za700za7za7_1963za7, "values", 6 );
BGL_DEFINE_STRING(BGl_string1724z00zz__r5_control_features_6_4z00, BgL_bgl_string1724za700za7za7_1964za7, "arg1129", 7 );
BGL_DEFINE_STRING(BGl_string1643z00zz__r5_control_features_6_4z00, BgL_bgl_string1643za700za7za7_1965za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string1806z00zz__r5_control_features_6_4z00, BgL_bgl_string1806za700za7za7_1966za7, "arg1213", 7 );
BGL_DEFINE_STRING(BGl_string1644z00zz__r5_control_features_6_4z00, BgL_bgl_string1644za700za7za7_1967za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string1726z00zz__r5_control_features_6_4z00, BgL_bgl_string1726za700za7za7_1968za7, "arg1130", 7 );
BGL_DEFINE_STRING(BGl_string1645z00zz__r5_control_features_6_4z00, BgL_bgl_string1645za700za7za7_1969za7, "call-with-values:Wrong number of arguments", 42 );
BGL_DEFINE_STRING(BGl_string1809z00zz__r5_control_features_6_4z00, BgL_bgl_string1809za700za7za7_1970za7, "arg1215", 7 );
BGL_DEFINE_STRING(BGl_string1729z00zz__r5_control_features_6_4z00, BgL_bgl_string1729za700za7za7_1971za7, "arg1132", 7 );
BGL_DEFINE_STRING(BGl_string1648z00zz__r5_control_features_6_4z00, BgL_bgl_string1648za700za7za7_1972za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string1811z00zz__r5_control_features_6_4z00, BgL_bgl_string1811za700za7za7_1973za7, "arg1216", 7 );
BGL_DEFINE_STRING(BGl_string1731z00zz__r5_control_features_6_4z00, BgL_bgl_string1731za700za7za7_1974za7, "arg1135", 7 );
BGL_DEFINE_STRING(BGl_string1650z00zz__r5_control_features_6_4z00, BgL_bgl_string1650za700za7za7_1975za7, "producer", 8 );
BGL_DEFINE_STRING(BGl_string1813z00zz__r5_control_features_6_4z00, BgL_bgl_string1813za700za7za7_1976za7, "arg1217", 7 );
BGL_DEFINE_STRING(BGl_string1651z00zz__r5_control_features_6_4z00, BgL_bgl_string1651za700za7za7_1977za7, "call-with-values", 16 );
BGL_DEFINE_STRING(BGl_string1733z00zz__r5_control_features_6_4z00, BgL_bgl_string1733za700za7za7_1978za7, "arg1136", 7 );
BGL_DEFINE_STRING(BGl_string1652z00zz__r5_control_features_6_4z00, BgL_bgl_string1652za700za7za7_1979za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string1815z00zz__r5_control_features_6_4z00, BgL_bgl_string1815za700za7za7_1980za7, "arg1219", 7 );
BGL_DEFINE_STRING(BGl_string1735z00zz__r5_control_features_6_4z00, BgL_bgl_string1735za700za7za7_1981za7, "arg1137", 7 );
BGL_DEFINE_STRING(BGl_string1654z00zz__r5_control_features_6_4z00, BgL_bgl_string1654za700za7za7_1982za7, "Wrong number of arguments", 25 );
BGL_DEFINE_STRING(BGl_string1817z00zz__r5_control_features_6_4z00, BgL_bgl_string1817za700za7za7_1983za7, "arg1224", 7 );
BGL_DEFINE_STRING(BGl_string1737z00zz__r5_control_features_6_4z00, BgL_bgl_string1737za700za7za7_1984za7, "arg1138", 7 );
BGL_DEFINE_STRING(BGl_string1819z00zz__r5_control_features_6_4z00, BgL_bgl_string1819za700za7za7_1985za7, "arg1225", 7 );
BGL_DEFINE_STRING(BGl_string1657z00zz__r5_control_features_6_4z00, BgL_bgl_string1657za700za7za7_1986za7, "apply", 5 );
BGL_DEFINE_STRING(BGl_string1739z00zz__r5_control_features_6_4z00, BgL_bgl_string1739za700za7za7_1987za7, "arg1139", 7 );
BGL_DEFINE_STRING(BGl_string1659z00zz__r5_control_features_6_4z00, BgL_bgl_string1659za700za7za7_1988za7, "consumer", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_z52getzd2mvalueszd2valzd2envz80zz__r5_control_features_6_4z00, BgL_bgl_za762za752getza7d2mval1989za7, BGl_z62z52getzd2mvalueszd2valz30zz__r5_control_features_6_4z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1900z00zz__r5_control_features_6_4z00, BgL_bgl_string1900za700za7za7_1990za7, "arg1295", 7 );
BGL_DEFINE_STRING(BGl_string1902z00zz__r5_control_features_6_4z00, BgL_bgl_string1902za700za7za7_1991za7, "arg1296", 7 );
BGL_DEFINE_STRING(BGl_string1821z00zz__r5_control_features_6_4z00, BgL_bgl_string1821za700za7za7_1992za7, "arg1226", 7 );
BGL_DEFINE_STRING(BGl_string1741z00zz__r5_control_features_6_4z00, BgL_bgl_string1741za700za7za7_1993za7, "arg1141", 7 );
BGL_DEFINE_STRING(BGl_string1904z00zz__r5_control_features_6_4z00, BgL_bgl_string1904za700za7za7_1994za7, "arg1298", 7 );
BGL_DEFINE_STRING(BGl_string1823z00zz__r5_control_features_6_4z00, BgL_bgl_string1823za700za7za7_1995za7, "arg1230", 7 );
BGL_DEFINE_STRING(BGl_string1661z00zz__r5_control_features_6_4z00, BgL_bgl_string1661za700za7za7_1996za7, "res0", 4 );
BGL_DEFINE_STRING(BGl_string1743z00zz__r5_control_features_6_4z00, BgL_bgl_string1743za700za7za7_1997za7, "arg1142", 7 );
BGL_DEFINE_STRING(BGl_string1906z00zz__r5_control_features_6_4z00, BgL_bgl_string1906za700za7za7_1998za7, "arg1301", 7 );
BGL_DEFINE_STRING(BGl_string1825z00zz__r5_control_features_6_4z00, BgL_bgl_string1825za700za7za7_1999za7, "arg1231", 7 );
BGL_DEFINE_STRING(BGl_string1908z00zz__r5_control_features_6_4z00, BgL_bgl_string1908za700za7za7_2000za7, "arg1322", 7 );
BGL_DEFINE_STRING(BGl_string1827z00zz__r5_control_features_6_4z00, BgL_bgl_string1827za700za7za7_2001za7, "arg1232", 7 );
BGL_DEFINE_STRING(BGl_string1746z00zz__r5_control_features_6_4z00, BgL_bgl_string1746za700za7za7_2002za7, "arg1145", 7 );
BGL_DEFINE_STRING(BGl_string1666z00zz__r5_control_features_6_4z00, BgL_bgl_string1666za700za7za7_2003za7, "arg1070", 7 );
BGL_DEFINE_STRING(BGl_string1829z00zz__r5_control_features_6_4z00, BgL_bgl_string1829za700za7za7_2004za7, "arg1234", 7 );
BGL_DEFINE_STRING(BGl_string1748z00zz__r5_control_features_6_4z00, BgL_bgl_string1748za700za7za7_2005za7, "arg1147", 7 );
BGL_DEFINE_STRING(BGl_string1669z00zz__r5_control_features_6_4z00, BgL_bgl_string1669za700za7za7_2006za7, "arg1072", 7 );
BGL_DEFINE_STRING(BGl_string1910z00zz__r5_control_features_6_4z00, BgL_bgl_string1910za700za7za7_2007za7, "arg1329", 7 );
BGL_DEFINE_STRING(BGl_string1912z00zz__r5_control_features_6_4z00, BgL_bgl_string1912za700za7za7_2008za7, "arg1330", 7 );
BGL_DEFINE_STRING(BGl_string1831z00zz__r5_control_features_6_4z00, BgL_bgl_string1831za700za7za7_2009za7, "arg1235", 7 );
BGL_DEFINE_STRING(BGl_string1750z00zz__r5_control_features_6_4z00, BgL_bgl_string1750za700za7za7_2010za7, "arg1149", 7 );
BGL_DEFINE_STRING(BGl_string1914z00zz__r5_control_features_6_4z00, BgL_bgl_string1914za700za7za7_2011za7, "arg1331", 7 );
BGL_DEFINE_STRING(BGl_string1752z00zz__r5_control_features_6_4z00, BgL_bgl_string1752za700za7za7_2012za7, "arg1153", 7 );
BGL_DEFINE_STRING(BGl_string1671z00zz__r5_control_features_6_4z00, BgL_bgl_string1671za700za7za7_2013za7, "arg1073", 7 );
BGL_DEFINE_STRING(BGl_string1834z00zz__r5_control_features_6_4z00, BgL_bgl_string1834za700za7za7_2014za7, "arg1236", 7 );
BGL_DEFINE_STRING(BGl_string1916z00zz__r5_control_features_6_4z00, BgL_bgl_string1916za700za7za7_2015za7, "arg1332", 7 );
BGL_DEFINE_STRING(BGl_string1754z00zz__r5_control_features_6_4z00, BgL_bgl_string1754za700za7za7_2016za7, "arg1155", 7 );
BGL_DEFINE_STRING(BGl_string1836z00zz__r5_control_features_6_4z00, BgL_bgl_string1836za700za7za7_2017za7, "arg1239", 7 );
BGL_DEFINE_STRING(BGl_string1674z00zz__r5_control_features_6_4z00, BgL_bgl_string1674za700za7za7_2018za7, "arg1074", 7 );
BGL_DEFINE_STRING(BGl_string1918z00zz__r5_control_features_6_4z00, BgL_bgl_string1918za700za7za7_2019za7, "arg1333", 7 );
BGL_DEFINE_STRING(BGl_string1756z00zz__r5_control_features_6_4z00, BgL_bgl_string1756za700za7za7_2020za7, "arg1156", 7 );
BGL_DEFINE_STRING(BGl_string1919z00zz__r5_control_features_6_4z00, BgL_bgl_string1919za700za7za7_2021za7, "&call-with-values", 17 );
BGL_DEFINE_STRING(BGl_string1838z00zz__r5_control_features_6_4z00, BgL_bgl_string1838za700za7za7_2022za7, "arg1241", 7 );
BGL_DEFINE_STRING(BGl_string1676z00zz__r5_control_features_6_4z00, BgL_bgl_string1676za700za7za7_2023za7, "arg1079", 7 );
BGL_DEFINE_STRING(BGl_string1758z00zz__r5_control_features_6_4z00, BgL_bgl_string1758za700za7za7_2024za7, "arg1157", 7 );
BGL_DEFINE_STRING(BGl_string1678z00zz__r5_control_features_6_4z00, BgL_bgl_string1678za700za7za7_2025za7, "arg1080", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_z52getzd2mvalueszd2numberzd2envz80zz__r5_control_features_6_4z00, BgL_bgl_za762za752getza7d2mval2026za7, BGl_z62z52getzd2mvalueszd2numberz30zz__r5_control_features_6_4z00, 0L, BUNSPEC, 0);
BGL_DEFINE_STRING(BGl_string1920z00zz__r5_control_features_6_4z00, BgL_bgl_string1920za700za7za7_2027za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string1921z00zz__r5_control_features_6_4z00, BgL_bgl_string1921za700za7za7_2028za7, "__r5_control_features_6_4", 25 );
BGL_DEFINE_STRING(BGl_string1840z00zz__r5_control_features_6_4z00, BgL_bgl_string1840za700za7za7_2029za7, "arg1242", 7 );
BGL_DEFINE_STRING(BGl_string1760z00zz__r5_control_features_6_4z00, BgL_bgl_string1760za700za7za7_2030za7, "arg1159", 7 );
BGL_DEFINE_STRING(BGl_string1842z00zz__r5_control_features_6_4z00, BgL_bgl_string1842za700za7za7_2031za7, "arg1248", 7 );
BGL_DEFINE_STRING(BGl_string1762z00zz__r5_control_features_6_4z00, BgL_bgl_string1762za700za7za7_2032za7, "arg1160", 7 );
BGL_DEFINE_STRING(BGl_string1681z00zz__r5_control_features_6_4z00, BgL_bgl_string1681za700za7za7_2033za7, "arg1081", 7 );
BGL_DEFINE_STRING(BGl_string1844z00zz__r5_control_features_6_4z00, BgL_bgl_string1844za700za7za7_2034za7, "arg1249", 7 );
BGL_DEFINE_STRING(BGl_string1683z00zz__r5_control_features_6_4z00, BgL_bgl_string1683za700za7za7_2035za7, "arg1084", 7 );
BGL_DEFINE_STRING(BGl_string1846z00zz__r5_control_features_6_4z00, BgL_bgl_string1846za700za7za7_2036za7, "arg1252", 7 );
BGL_DEFINE_STRING(BGl_string1765z00zz__r5_control_features_6_4z00, BgL_bgl_string1765za700za7za7_2037za7, "arg1162", 7 );
BGL_DEFINE_STRING(BGl_string1685z00zz__r5_control_features_6_4z00, BgL_bgl_string1685za700za7za7_2038za7, "arg1086", 7 );
BGL_DEFINE_STRING(BGl_string1848z00zz__r5_control_features_6_4z00, BgL_bgl_string1848za700za7za7_2039za7, "arg1253", 7 );
BGL_DEFINE_STRING(BGl_string1767z00zz__r5_control_features_6_4z00, BgL_bgl_string1767za700za7za7_2040za7, "arg1163", 7 );
BGL_DEFINE_STRING(BGl_string1687z00zz__r5_control_features_6_4z00, BgL_bgl_string1687za700za7za7_2041za7, "arg1088", 7 );
BGL_DEFINE_STRING(BGl_string1769z00zz__r5_control_features_6_4z00, BgL_bgl_string1769za700za7za7_2042za7, "arg1167", 7 );
BGL_DEFINE_STRING(BGl_string1850z00zz__r5_control_features_6_4z00, BgL_bgl_string1850za700za7za7_2043za7, "arg1254", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_valueszd2envzd2zz__r5_control_features_6_4z00, BgL_bgl_za762valuesza762za7za7__2044z00, va_generic_entry, BGl_z62valuesz62zz__r5_control_features_6_4z00, BUNSPEC, -1);
BGL_DEFINE_STRING(BGl_string1852z00zz__r5_control_features_6_4z00, BgL_bgl_string1852za700za7za7_2045za7, "arg1258", 7 );
BGL_DEFINE_STRING(BGl_string1771z00zz__r5_control_features_6_4z00, BgL_bgl_string1771za700za7za7_2046za7, "arg1169", 7 );
BGL_DEFINE_STRING(BGl_string1690z00zz__r5_control_features_6_4z00, BgL_bgl_string1690za700za7za7_2047za7, "arg1089", 7 );
BGL_DEFINE_STRING(BGl_string1854z00zz__r5_control_features_6_4z00, BgL_bgl_string1854za700za7za7_2048za7, "arg1259", 7 );
BGL_DEFINE_STRING(BGl_string1773z00zz__r5_control_features_6_4z00, BgL_bgl_string1773za700za7za7_2049za7, "arg1170", 7 );
BGL_DEFINE_STRING(BGl_string1692z00zz__r5_control_features_6_4z00, BgL_bgl_string1692za700za7za7_2050za7, "arg1090", 7 );
BGL_DEFINE_STRING(BGl_string1856z00zz__r5_control_features_6_4z00, BgL_bgl_string1856za700za7za7_2051za7, "arg1261", 7 );
BGL_DEFINE_STRING(BGl_string1775z00zz__r5_control_features_6_4z00, BgL_bgl_string1775za700za7za7_2052za7, "arg1187", 7 );
BGL_DEFINE_STRING(BGl_string1694z00zz__r5_control_features_6_4z00, BgL_bgl_string1694za700za7za7_2053za7, "arg1092", 7 );
BGL_DEFINE_STRING(BGl_string1858z00zz__r5_control_features_6_4z00, BgL_bgl_string1858za700za7za7_2054za7, "arg1262", 7 );
BGL_DEFINE_STRING(BGl_string1777z00zz__r5_control_features_6_4z00, BgL_bgl_string1777za700za7za7_2055za7, "arg1189", 7 );
BGL_DEFINE_STRING(BGl_string1696z00zz__r5_control_features_6_4z00, BgL_bgl_string1696za700za7za7_2056za7, "arg1096", 7 );
BGL_DEFINE_STRING(BGl_string1779z00zz__r5_control_features_6_4z00, BgL_bgl_string1779za700za7za7_2057za7, "arg1192", 7 );
BGL_DEFINE_STRING(BGl_string1698z00zz__r5_control_features_6_4z00, BgL_bgl_string1698za700za7za7_2058za7, "arg1097", 7 );
BGL_DEFINE_STRING(BGl_string1861z00zz__r5_control_features_6_4z00, BgL_bgl_string1861za700za7za7_2059za7, "arg1263", 7 );
BGL_DEFINE_STRING(BGl_string1781z00zz__r5_control_features_6_4z00, BgL_bgl_string1781za700za7za7_2060za7, "arg1193", 7 );
BGL_DEFINE_STRING(BGl_string1863z00zz__r5_control_features_6_4z00, BgL_bgl_string1863za700za7za7_2061za7, "arg1265", 7 );
BGL_DEFINE_STRING(BGl_string1783z00zz__r5_control_features_6_4z00, BgL_bgl_string1783za700za7za7_2062za7, "arg1194", 7 );
BGL_DEFINE_STRING(BGl_string1865z00zz__r5_control_features_6_4z00, BgL_bgl_string1865za700za7za7_2063za7, "arg1266", 7 );
BGL_DEFINE_STRING(BGl_string1867z00zz__r5_control_features_6_4z00, BgL_bgl_string1867za700za7za7_2064za7, "arg1267", 7 );
BGL_DEFINE_STRING(BGl_string1786z00zz__r5_control_features_6_4z00, BgL_bgl_string1786za700za7za7_2065za7, "arg1195", 7 );
BGL_DEFINE_STRING(BGl_string1869z00zz__r5_control_features_6_4z00, BgL_bgl_string1869za700za7za7_2066za7, "arg1269", 7 );
BGL_DEFINE_STRING(BGl_string1788z00zz__r5_control_features_6_4z00, BgL_bgl_string1788za700za7za7_2067za7, "arg1196", 7 );

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_STRING(BGl_string1788z00zz__r5_control_features_6_4z00, BgL_bgl_string1788za700za7za7_2067za7);
BGL_BIND_STRING(BGl_string1869z00zz__r5_control_features_6_4z00, BgL_bgl_string1869za700za7za7_2066za7);
BGL_BIND_STRING(BGl_string1786z00zz__r5_control_features_6_4z00, BgL_bgl_string1786za700za7za7_2065za7);
BGL_BIND_STRING(BGl_string1867z00zz__r5_control_features_6_4z00, BgL_bgl_string1867za700za7za7_2064za7);
BGL_BIND_STRING(BGl_string1865z00zz__r5_control_features_6_4z00, BgL_bgl_string1865za700za7za7_2063za7);
BGL_BIND_STRING(BGl_string1783z00zz__r5_control_features_6_4z00, BgL_bgl_string1783za700za7za7_2062za7);
BGL_BIND_STRING(BGl_string1863z00zz__r5_control_features_6_4z00, BgL_bgl_string1863za700za7za7_2061za7);
BGL_BIND_STRING(BGl_string1781z00zz__r5_control_features_6_4z00, BgL_bgl_string1781za700za7za7_2060za7);
BGL_BIND_STRING(BGl_string1861z00zz__r5_control_features_6_4z00, BgL_bgl_string1861za700za7za7_2059za7);
BGL_BIND_STRING(BGl_string1698z00zz__r5_control_features_6_4z00, BgL_bgl_string1698za700za7za7_2058za7);
BGL_BIND_STRING(BGl_string1779z00zz__r5_control_features_6_4z00, BgL_bgl_string1779za700za7za7_2057za7);
BGL_BIND_STRING(BGl_string1696z00zz__r5_control_features_6_4z00, BgL_bgl_string1696za700za7za7_2056za7);
BGL_BIND_STRING(BGl_string1777z00zz__r5_control_features_6_4z00, BgL_bgl_string1777za700za7za7_2055za7);
BGL_BIND_STRING(BGl_string1858z00zz__r5_control_features_6_4z00, BgL_bgl_string1858za700za7za7_2054za7);
BGL_BIND_STRING(BGl_string1694z00zz__r5_control_features_6_4z00, BgL_bgl_string1694za700za7za7_2053za7);
BGL_BIND_STRING(BGl_string1775z00zz__r5_control_features_6_4z00, BgL_bgl_string1775za700za7za7_2052za7);
BGL_BIND_STRING(BGl_string1856z00zz__r5_control_features_6_4z00, BgL_bgl_string1856za700za7za7_2051za7);
BGL_BIND_STRING(BGl_string1692z00zz__r5_control_features_6_4z00, BgL_bgl_string1692za700za7za7_2050za7);
BGL_BIND_STRING(BGl_string1773z00zz__r5_control_features_6_4z00, BgL_bgl_string1773za700za7za7_2049za7);
BGL_BIND_STRING(BGl_string1854z00zz__r5_control_features_6_4z00, BgL_bgl_string1854za700za7za7_2048za7);
BGL_BIND_STRING(BGl_string1690z00zz__r5_control_features_6_4z00, BgL_bgl_string1690za700za7za7_2047za7);
BGL_BIND_STRING(BGl_string1771z00zz__r5_control_features_6_4z00, BgL_bgl_string1771za700za7za7_2046za7);
BGL_BIND_STRING(BGl_string1852z00zz__r5_control_features_6_4z00, BgL_bgl_string1852za700za7za7_2045za7);
BGL_BIND_PROCEDURE(BGl_valueszd2envzd2zz__r5_control_features_6_4z00, BgL_bgl_za762valuesza762za7za7__2044z00);
BGL_BIND_STRING(BGl_string1850z00zz__r5_control_features_6_4z00, BgL_bgl_string1850za700za7za7_2043za7);
BGL_BIND_STRING(BGl_string1769z00zz__r5_control_features_6_4z00, BgL_bgl_string1769za700za7za7_2042za7);
BGL_BIND_STRING(BGl_string1687z00zz__r5_control_features_6_4z00, BgL_bgl_string1687za700za7za7_2041za7);
BGL_BIND_STRING(BGl_string1767z00zz__r5_control_features_6_4z00, BgL_bgl_string1767za700za7za7_2040za7);
BGL_BIND_STRING(BGl_string1848z00zz__r5_control_features_6_4z00, BgL_bgl_string1848za700za7za7_2039za7);
BGL_BIND_STRING(BGl_string1685z00zz__r5_control_features_6_4z00, BgL_bgl_string1685za700za7za7_2038za7);
BGL_BIND_STRING(BGl_string1765z00zz__r5_control_features_6_4z00, BgL_bgl_string1765za700za7za7_2037za7);
BGL_BIND_STRING(BGl_string1846z00zz__r5_control_features_6_4z00, BgL_bgl_string1846za700za7za7_2036za7);
BGL_BIND_STRING(BGl_string1683z00zz__r5_control_features_6_4z00, BgL_bgl_string1683za700za7za7_2035za7);
BGL_BIND_STRING(BGl_string1844z00zz__r5_control_features_6_4z00, BgL_bgl_string1844za700za7za7_2034za7);
BGL_BIND_STRING(BGl_string1681z00zz__r5_control_features_6_4z00, BgL_bgl_string1681za700za7za7_2033za7);
BGL_BIND_STRING(BGl_string1762z00zz__r5_control_features_6_4z00, BgL_bgl_string1762za700za7za7_2032za7);
BGL_BIND_STRING(BGl_string1842z00zz__r5_control_features_6_4z00, BgL_bgl_string1842za700za7za7_2031za7);
BGL_BIND_STRING(BGl_string1760z00zz__r5_control_features_6_4z00, BgL_bgl_string1760za700za7za7_2030za7);
BGL_BIND_STRING(BGl_string1840z00zz__r5_control_features_6_4z00, BgL_bgl_string1840za700za7za7_2029za7);
BGL_BIND_STRING(BGl_string1921z00zz__r5_control_features_6_4z00, BgL_bgl_string1921za700za7za7_2028za7);
BGL_BIND_STRING(BGl_string1920z00zz__r5_control_features_6_4z00, BgL_bgl_string1920za700za7za7_2027za7);
BGL_BIND_PROCEDURE(BGl_z52getzd2mvalueszd2numberzd2envz80zz__r5_control_features_6_4z00, BgL_bgl_za762za752getza7d2mval2026za7);
BGL_BIND_STRING(BGl_string1678z00zz__r5_control_features_6_4z00, BgL_bgl_string1678za700za7za7_2025za7);
BGL_BIND_STRING(BGl_string1758z00zz__r5_control_features_6_4z00, BgL_bgl_string1758za700za7za7_2024za7);
BGL_BIND_STRING(BGl_string1676z00zz__r5_control_features_6_4z00, BgL_bgl_string1676za700za7za7_2023za7);
BGL_BIND_STRING(BGl_string1838z00zz__r5_control_features_6_4z00, BgL_bgl_string1838za700za7za7_2022za7);
BGL_BIND_STRING(BGl_string1919z00zz__r5_control_features_6_4z00, BgL_bgl_string1919za700za7za7_2021za7);
BGL_BIND_STRING(BGl_string1756z00zz__r5_control_features_6_4z00, BgL_bgl_string1756za700za7za7_2020za7);
BGL_BIND_STRING(BGl_string1918z00zz__r5_control_features_6_4z00, BgL_bgl_string1918za700za7za7_2019za7);
BGL_BIND_STRING(BGl_string1674z00zz__r5_control_features_6_4z00, BgL_bgl_string1674za700za7za7_2018za7);
BGL_BIND_STRING(BGl_string1836z00zz__r5_control_features_6_4z00, BgL_bgl_string1836za700za7za7_2017za7);
BGL_BIND_STRING(BGl_string1754z00zz__r5_control_features_6_4z00, BgL_bgl_string1754za700za7za7_2016za7);
BGL_BIND_STRING(BGl_string1916z00zz__r5_control_features_6_4z00, BgL_bgl_string1916za700za7za7_2015za7);
BGL_BIND_STRING(BGl_string1834z00zz__r5_control_features_6_4z00, BgL_bgl_string1834za700za7za7_2014za7);
BGL_BIND_STRING(BGl_string1671z00zz__r5_control_features_6_4z00, BgL_bgl_string1671za700za7za7_2013za7);
BGL_BIND_STRING(BGl_string1752z00zz__r5_control_features_6_4z00, BgL_bgl_string1752za700za7za7_2012za7);
BGL_BIND_STRING(BGl_string1914z00zz__r5_control_features_6_4z00, BgL_bgl_string1914za700za7za7_2011za7);
BGL_BIND_STRING(BGl_string1750z00zz__r5_control_features_6_4z00, BgL_bgl_string1750za700za7za7_2010za7);
BGL_BIND_STRING(BGl_string1831z00zz__r5_control_features_6_4z00, BgL_bgl_string1831za700za7za7_2009za7);
BGL_BIND_STRING(BGl_string1912z00zz__r5_control_features_6_4z00, BgL_bgl_string1912za700za7za7_2008za7);
BGL_BIND_STRING(BGl_string1910z00zz__r5_control_features_6_4z00, BgL_bgl_string1910za700za7za7_2007za7);
BGL_BIND_STRING(BGl_string1669z00zz__r5_control_features_6_4z00, BgL_bgl_string1669za700za7za7_2006za7);
BGL_BIND_STRING(BGl_string1748z00zz__r5_control_features_6_4z00, BgL_bgl_string1748za700za7za7_2005za7);
BGL_BIND_STRING(BGl_string1829z00zz__r5_control_features_6_4z00, BgL_bgl_string1829za700za7za7_2004za7);
BGL_BIND_STRING(BGl_string1666z00zz__r5_control_features_6_4z00, BgL_bgl_string1666za700za7za7_2003za7);
BGL_BIND_STRING(BGl_string1746z00zz__r5_control_features_6_4z00, BgL_bgl_string1746za700za7za7_2002za7);
BGL_BIND_STRING(BGl_string1827z00zz__r5_control_features_6_4z00, BgL_bgl_string1827za700za7za7_2001za7);
BGL_BIND_STRING(BGl_string1908z00zz__r5_control_features_6_4z00, BgL_bgl_string1908za700za7za7_2000za7);
BGL_BIND_STRING(BGl_string1825z00zz__r5_control_features_6_4z00, BgL_bgl_string1825za700za7za7_1999za7);
BGL_BIND_STRING(BGl_string1906z00zz__r5_control_features_6_4z00, BgL_bgl_string1906za700za7za7_1998za7);
BGL_BIND_STRING(BGl_string1743z00zz__r5_control_features_6_4z00, BgL_bgl_string1743za700za7za7_1997za7);
BGL_BIND_STRING(BGl_string1661z00zz__r5_control_features_6_4z00, BgL_bgl_string1661za700za7za7_1996za7);
BGL_BIND_STRING(BGl_string1823z00zz__r5_control_features_6_4z00, BgL_bgl_string1823za700za7za7_1995za7);
BGL_BIND_STRING(BGl_string1904z00zz__r5_control_features_6_4z00, BgL_bgl_string1904za700za7za7_1994za7);
BGL_BIND_STRING(BGl_string1741z00zz__r5_control_features_6_4z00, BgL_bgl_string1741za700za7za7_1993za7);
BGL_BIND_STRING(BGl_string1821z00zz__r5_control_features_6_4z00, BgL_bgl_string1821za700za7za7_1992za7);
BGL_BIND_STRING(BGl_string1902z00zz__r5_control_features_6_4z00, BgL_bgl_string1902za700za7za7_1991za7);
BGL_BIND_STRING(BGl_string1900z00zz__r5_control_features_6_4z00, BgL_bgl_string1900za700za7za7_1990za7);
BGL_BIND_PROCEDURE(BGl_z52getzd2mvalueszd2valzd2envz80zz__r5_control_features_6_4z00, BgL_bgl_za762za752getza7d2mval1989za7);
BGL_BIND_STRING(BGl_string1659z00zz__r5_control_features_6_4z00, BgL_bgl_string1659za700za7za7_1988za7);
BGL_BIND_STRING(BGl_string1739z00zz__r5_control_features_6_4z00, BgL_bgl_string1739za700za7za7_1987za7);
BGL_BIND_STRING(BGl_string1657z00zz__r5_control_features_6_4z00, BgL_bgl_string1657za700za7za7_1986za7);
BGL_BIND_STRING(BGl_string1819z00zz__r5_control_features_6_4z00, BgL_bgl_string1819za700za7za7_1985za7);
BGL_BIND_STRING(BGl_string1737z00zz__r5_control_features_6_4z00, BgL_bgl_string1737za700za7za7_1984za7);
BGL_BIND_STRING(BGl_string1817z00zz__r5_control_features_6_4z00, BgL_bgl_string1817za700za7za7_1983za7);
BGL_BIND_STRING(BGl_string1654z00zz__r5_control_features_6_4z00, BgL_bgl_string1654za700za7za7_1982za7);
BGL_BIND_STRING(BGl_string1735z00zz__r5_control_features_6_4z00, BgL_bgl_string1735za700za7za7_1981za7);
BGL_BIND_STRING(BGl_string1815z00zz__r5_control_features_6_4z00, BgL_bgl_string1815za700za7za7_1980za7);
BGL_BIND_STRING(BGl_string1652z00zz__r5_control_features_6_4z00, BgL_bgl_string1652za700za7za7_1979za7);
BGL_BIND_STRING(BGl_string1733z00zz__r5_control_features_6_4z00, BgL_bgl_string1733za700za7za7_1978za7);
BGL_BIND_STRING(BGl_string1651z00zz__r5_control_features_6_4z00, BgL_bgl_string1651za700za7za7_1977za7);
BGL_BIND_STRING(BGl_string1813z00zz__r5_control_features_6_4z00, BgL_bgl_string1813za700za7za7_1976za7);
BGL_BIND_STRING(BGl_string1650z00zz__r5_control_features_6_4z00, BgL_bgl_string1650za700za7za7_1975za7);
BGL_BIND_STRING(BGl_string1731z00zz__r5_control_features_6_4z00, BgL_bgl_string1731za700za7za7_1974za7);
BGL_BIND_STRING(BGl_string1811z00zz__r5_control_features_6_4z00, BgL_bgl_string1811za700za7za7_1973za7);
BGL_BIND_STRING(BGl_string1648z00zz__r5_control_features_6_4z00, BgL_bgl_string1648za700za7za7_1972za7);
BGL_BIND_STRING(BGl_string1729z00zz__r5_control_features_6_4z00, BgL_bgl_string1729za700za7za7_1971za7);
BGL_BIND_STRING(BGl_string1809z00zz__r5_control_features_6_4z00, BgL_bgl_string1809za700za7za7_1970za7);
BGL_BIND_STRING(BGl_string1645z00zz__r5_control_features_6_4z00, BgL_bgl_string1645za700za7za7_1969za7);
BGL_BIND_STRING(BGl_string1726z00zz__r5_control_features_6_4z00, BgL_bgl_string1726za700za7za7_1968za7);
BGL_BIND_STRING(BGl_string1644z00zz__r5_control_features_6_4z00, BgL_bgl_string1644za700za7za7_1967za7);
BGL_BIND_STRING(BGl_string1806z00zz__r5_control_features_6_4z00, BgL_bgl_string1806za700za7za7_1966za7);
BGL_BIND_STRING(BGl_string1643z00zz__r5_control_features_6_4z00, BgL_bgl_string1643za700za7za7_1965za7);
BGL_BIND_STRING(BGl_string1724z00zz__r5_control_features_6_4z00, BgL_bgl_string1724za700za7za7_1964za7);
BGL_BIND_STRING(BGl_string1642z00zz__r5_control_features_6_4z00, BgL_bgl_string1642za700za7za7_1963za7);
BGL_BIND_STRING(BGl_string1804z00zz__r5_control_features_6_4z00, BgL_bgl_string1804za700za7za7_1962za7);
BGL_BIND_STRING(BGl_string1641z00zz__r5_control_features_6_4z00, BgL_bgl_string1641za700za7za7_1961za7);
BGL_BIND_STRING(BGl_string1722z00zz__r5_control_features_6_4z00, BgL_bgl_string1722za700za7za7_1960za7);
BGL_BIND_STRING(BGl_string1640z00zz__r5_control_features_6_4z00, BgL_bgl_string1640za700za7za7_1959za7);
BGL_BIND_STRING(BGl_string1802z00zz__r5_control_features_6_4z00, BgL_bgl_string1802za700za7za7_1958za7);
BGL_BIND_STRING(BGl_string1720z00zz__r5_control_features_6_4z00, BgL_bgl_string1720za700za7za7_1957za7);
BGL_BIND_STRING(BGl_string1800z00zz__r5_control_features_6_4z00, BgL_bgl_string1800za700za7za7_1956za7);
BGL_BIND_PROCEDURE(BGl_callzd2withzd2valueszd2envzd2zz__r5_control_features_6_4z00, BgL_bgl_za762callza7d2withza7d1955za7);
BGL_BIND_STRING(BGl_string1639z00zz__r5_control_features_6_4z00, BgL_bgl_string1639za700za7za7_1954za7);
BGL_BIND_STRING(BGl_string1638z00zz__r5_control_features_6_4z00, BgL_bgl_string1638za700za7za7_1953za7);
BGL_BIND_STRING(BGl_string1637z00zz__r5_control_features_6_4z00, BgL_bgl_string1637za700za7za7_1952za7);
BGL_BIND_STRING(BGl_string1718z00zz__r5_control_features_6_4z00, BgL_bgl_string1718za700za7za7_1951za7);
BGL_BIND_STRING(BGl_string1716z00zz__r5_control_features_6_4z00, BgL_bgl_string1716za700za7za7_1950za7);
BGL_BIND_STRING(BGl_string1714z00zz__r5_control_features_6_4z00, BgL_bgl_string1714za700za7za7_1949za7);
BGL_BIND_PROCEDURE(BGl_z52setzd2mvalueszd2valz12zd2envz92zz__r5_control_features_6_4z00, BgL_bgl_za762za752setza7d2mval1948za7);
BGL_BIND_STRING(BGl_string1711z00zz__r5_control_features_6_4z00, BgL_bgl_string1711za700za7za7_1947za7);
BGL_BIND_STRING(BGl_string1709z00zz__r5_control_features_6_4z00, BgL_bgl_string1709za700za7za7_1946za7);
BGL_BIND_STRING(BGl_string1707z00zz__r5_control_features_6_4z00, BgL_bgl_string1707za700za7za7_1945za7);
BGL_BIND_STRING(BGl_string1705z00zz__r5_control_features_6_4z00, BgL_bgl_string1705za700za7za7_1944za7);
BGL_BIND_STRING(BGl_string1703z00zz__r5_control_features_6_4z00, BgL_bgl_string1703za700za7za7_1943za7);
BGL_BIND_STRING(BGl_string1701z00zz__r5_control_features_6_4z00, BgL_bgl_string1701za700za7za7_1942za7);
BGL_BIND_PROCEDURE(BGl_z52setzd2mvalueszd2numberz12zd2envz92zz__r5_control_features_6_4z00, BgL_bgl_za762za752setza7d2mval1941za7);
BGL_BIND_STRING(BGl_string1898z00zz__r5_control_features_6_4z00, BgL_bgl_string1898za700za7za7_1940za7);
BGL_BIND_STRING(BGl_string1896z00zz__r5_control_features_6_4z00, BgL_bgl_string1896za700za7za7_1939za7);
BGL_BIND_STRING(BGl_string1894z00zz__r5_control_features_6_4z00, BgL_bgl_string1894za700za7za7_1938za7);
BGL_BIND_STRING(BGl_string1892z00zz__r5_control_features_6_4z00, BgL_bgl_string1892za700za7za7_1937za7);
BGL_BIND_STRING(BGl_string1890z00zz__r5_control_features_6_4z00, BgL_bgl_string1890za700za7za7_1936za7);
BGL_BIND_STRING(BGl_string1887z00zz__r5_control_features_6_4z00, BgL_bgl_string1887za700za7za7_1935za7);
BGL_BIND_STRING(BGl_string1885z00zz__r5_control_features_6_4z00, BgL_bgl_string1885za700za7za7_1934za7);
BGL_BIND_STRING(BGl_string1883z00zz__r5_control_features_6_4z00, BgL_bgl_string1883za700za7za7_1933za7);
BGL_BIND_STRING(BGl_string1881z00zz__r5_control_features_6_4z00, BgL_bgl_string1881za700za7za7_1932za7);
BGL_BIND_STRING(BGl_string1798z00zz__r5_control_features_6_4z00, BgL_bgl_string1798za700za7za7_1931za7);
BGL_BIND_STRING(BGl_string1879z00zz__r5_control_features_6_4z00, BgL_bgl_string1879za700za7za7_1930za7);
BGL_BIND_STRING(BGl_string1796z00zz__r5_control_features_6_4z00, BgL_bgl_string1796za700za7za7_1929za7);
BGL_BIND_STRING(BGl_string1877z00zz__r5_control_features_6_4z00, BgL_bgl_string1877za700za7za7_1928za7);
BGL_BIND_STRING(BGl_string1794z00zz__r5_control_features_6_4z00, BgL_bgl_string1794za700za7za7_1927za7);
BGL_BIND_STRING(BGl_string1875z00zz__r5_control_features_6_4z00, BgL_bgl_string1875za700za7za7_1926za7);
BGL_BIND_STRING(BGl_string1792z00zz__r5_control_features_6_4z00, BgL_bgl_string1792za700za7za7_1925za7);
BGL_BIND_STRING(BGl_string1873z00zz__r5_control_features_6_4z00, BgL_bgl_string1873za700za7za7_1924za7);
BGL_BIND_STRING(BGl_string1790z00zz__r5_control_features_6_4z00, BgL_bgl_string1790za700za7za7_1923za7);
BGL_BIND_STRING(BGl_string1871z00zz__r5_control_features_6_4z00, BgL_bgl_string1871za700za7za7_1922za7);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_symbol1911z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1830z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1913z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1751z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1670z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1833z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1915z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1753z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1835z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1673z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1917z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1755z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1837z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1675z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1757z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1839z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1677z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1807z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1759z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1727z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1646z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1841z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1761z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1680z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1843z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1682z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1845z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1764z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1684z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1847z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1766z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1686z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1849z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1768z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1655z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1689z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1851z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1770z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1853z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1772z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1691z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1855z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1774z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1693z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1857z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1776z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1695z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1662z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1744z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1663z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1778z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1697z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1664z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1667z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1860z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1780z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1862z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1782z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1864z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1832z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1866z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1785z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1672z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1868z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1787z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1789z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1679z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1870z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1872z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1791z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1874z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1793z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1876z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1795z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1763z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1878z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1797z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1799z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1688z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1880z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1882z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1884z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1886z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1889z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1859z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1699z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1891z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1893z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1895z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1897z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1784z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1899z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1888z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1700z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1702z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1704z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1706z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1708z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1710z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1713z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1715z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1717z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1719z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1801z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1721z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1803z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1723z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1805z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1725z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1808z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1728z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1647z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1649z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1810z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1730z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1812z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1732z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1814z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1734z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1653z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1816z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1736z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1818z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1656z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1738z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1658z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1901z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1820z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1740z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1903z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1822z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1660z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1742z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1905z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1824z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1907z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1826z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1745z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_list1712z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1665z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1909z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1828z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1747z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1749z00zz__r5_control_features_6_4z00) );
ADD_ROOT( (void *)(&BGl_symbol1668z00zz__r5_control_features_6_4z00) );
#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__r5_control_features_6_4z00(long BgL_checksumz00_1508, char * BgL_fromz00_1509)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r5_control_features_6_4z00))
{ 
BGl_requirezd2initializa7ationz75zz__r5_control_features_6_4z00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__r5_control_features_6_4z00(); 
BGl_cnstzd2initzd2zz__r5_control_features_6_4z00(); 
return 
BGl_importedzd2moduleszd2initz00zz__r5_control_features_6_4z00();}  else 
{ 
return BUNSPEC;} } 

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r5_control_features_6_4z00(void)
{
{ /* Ieee/control5.scm 14 */
BGl_symbol1647z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1648z00zz__r5_control_features_6_4z00); 
BGl_symbol1649z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1650z00zz__r5_control_features_6_4z00); 
BGl_list1646z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1649z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1649z00zz__r5_control_features_6_4z00, BNIL))); 
BGl_symbol1653z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1651z00zz__r5_control_features_6_4z00); 
BGl_symbol1656z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1657z00zz__r5_control_features_6_4z00); 
BGl_symbol1658z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1659z00zz__r5_control_features_6_4z00); 
BGl_symbol1660z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1661z00zz__r5_control_features_6_4z00); 
BGl_list1655z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1656z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, BNIL))); 
BGl_list1662z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, BNIL))); 
BGl_list1663z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, BNIL)))); 
BGl_symbol1665z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1666z00zz__r5_control_features_6_4z00); 
BGl_list1664z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1665z00zz__r5_control_features_6_4z00, BNIL))))); 
BGl_symbol1668z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1669z00zz__r5_control_features_6_4z00); 
BGl_symbol1670z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1671z00zz__r5_control_features_6_4z00); 
BGl_list1667z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1668z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1670z00zz__r5_control_features_6_4z00, BNIL)))))); 
BGl_symbol1673z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1674z00zz__r5_control_features_6_4z00); 
BGl_symbol1675z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1676z00zz__r5_control_features_6_4z00); 
BGl_symbol1677z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1678z00zz__r5_control_features_6_4z00); 
BGl_list1672z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1673z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1675z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1677z00zz__r5_control_features_6_4z00, BNIL))))))); 
BGl_symbol1680z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1681z00zz__r5_control_features_6_4z00); 
BGl_symbol1682z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1683z00zz__r5_control_features_6_4z00); 
BGl_symbol1684z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1685z00zz__r5_control_features_6_4z00); 
BGl_symbol1686z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1687z00zz__r5_control_features_6_4z00); 
BGl_list1679z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1680z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1682z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1684z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1686z00zz__r5_control_features_6_4z00, BNIL)))))))); 
BGl_symbol1689z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1690z00zz__r5_control_features_6_4z00); 
BGl_symbol1691z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1692z00zz__r5_control_features_6_4z00); 
BGl_symbol1693z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1694z00zz__r5_control_features_6_4z00); 
BGl_symbol1695z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1696z00zz__r5_control_features_6_4z00); 
BGl_symbol1697z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1698z00zz__r5_control_features_6_4z00); 
BGl_list1688z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1689z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1691z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1693z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1695z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1697z00zz__r5_control_features_6_4z00, BNIL))))))))); 
BGl_symbol1700z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1701z00zz__r5_control_features_6_4z00); 
BGl_symbol1702z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1703z00zz__r5_control_features_6_4z00); 
BGl_symbol1704z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1705z00zz__r5_control_features_6_4z00); 
BGl_symbol1706z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1707z00zz__r5_control_features_6_4z00); 
BGl_symbol1708z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1709z00zz__r5_control_features_6_4z00); 
BGl_symbol1710z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1711z00zz__r5_control_features_6_4z00); 
BGl_list1699z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1700z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1702z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1704z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1706z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1708z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1710z00zz__r5_control_features_6_4z00, BNIL)))))))))); 
BGl_symbol1713z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1714z00zz__r5_control_features_6_4z00); 
BGl_symbol1715z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1716z00zz__r5_control_features_6_4z00); 
BGl_symbol1717z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1718z00zz__r5_control_features_6_4z00); 
BGl_symbol1719z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1720z00zz__r5_control_features_6_4z00); 
BGl_symbol1721z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1722z00zz__r5_control_features_6_4z00); 
BGl_symbol1723z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1724z00zz__r5_control_features_6_4z00); 
BGl_symbol1725z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1726z00zz__r5_control_features_6_4z00); 
BGl_list1712z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1713z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1715z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1717z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1719z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1721z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1723z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1725z00zz__r5_control_features_6_4z00, BNIL))))))))))); 
BGl_symbol1728z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1729z00zz__r5_control_features_6_4z00); 
BGl_symbol1730z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1731z00zz__r5_control_features_6_4z00); 
BGl_symbol1732z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1733z00zz__r5_control_features_6_4z00); 
BGl_symbol1734z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1735z00zz__r5_control_features_6_4z00); 
BGl_symbol1736z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1737z00zz__r5_control_features_6_4z00); 
BGl_symbol1738z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1739z00zz__r5_control_features_6_4z00); 
BGl_symbol1740z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1741z00zz__r5_control_features_6_4z00); 
BGl_symbol1742z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1743z00zz__r5_control_features_6_4z00); 
BGl_list1727z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1728z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1730z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1732z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1734z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1736z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1738z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1740z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1742z00zz__r5_control_features_6_4z00, BNIL)))))))))))); 
BGl_symbol1745z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1746z00zz__r5_control_features_6_4z00); 
BGl_symbol1747z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1748z00zz__r5_control_features_6_4z00); 
BGl_symbol1749z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1750z00zz__r5_control_features_6_4z00); 
BGl_symbol1751z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1752z00zz__r5_control_features_6_4z00); 
BGl_symbol1753z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1754z00zz__r5_control_features_6_4z00); 
BGl_symbol1755z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1756z00zz__r5_control_features_6_4z00); 
BGl_symbol1757z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1758z00zz__r5_control_features_6_4z00); 
BGl_symbol1759z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1760z00zz__r5_control_features_6_4z00); 
BGl_symbol1761z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1762z00zz__r5_control_features_6_4z00); 
BGl_list1744z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1745z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1747z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1749z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1751z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1753z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1755z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1757z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1759z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1761z00zz__r5_control_features_6_4z00, BNIL))))))))))))); 
BGl_symbol1764z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1765z00zz__r5_control_features_6_4z00); 
BGl_symbol1766z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1767z00zz__r5_control_features_6_4z00); 
BGl_symbol1768z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1769z00zz__r5_control_features_6_4z00); 
BGl_symbol1770z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1771z00zz__r5_control_features_6_4z00); 
BGl_symbol1772z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1773z00zz__r5_control_features_6_4z00); 
BGl_symbol1774z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1775z00zz__r5_control_features_6_4z00); 
BGl_symbol1776z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1777z00zz__r5_control_features_6_4z00); 
BGl_symbol1778z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1779z00zz__r5_control_features_6_4z00); 
BGl_symbol1780z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1781z00zz__r5_control_features_6_4z00); 
BGl_symbol1782z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1783z00zz__r5_control_features_6_4z00); 
BGl_list1763z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1764z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1766z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1768z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1770z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1772z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1774z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1776z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1778z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1780z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1782z00zz__r5_control_features_6_4z00, BNIL)))))))))))))); 
BGl_symbol1785z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1786z00zz__r5_control_features_6_4z00); 
BGl_symbol1787z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1788z00zz__r5_control_features_6_4z00); 
BGl_symbol1789z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1790z00zz__r5_control_features_6_4z00); 
BGl_symbol1791z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1792z00zz__r5_control_features_6_4z00); 
BGl_symbol1793z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1794z00zz__r5_control_features_6_4z00); 
BGl_symbol1795z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1796z00zz__r5_control_features_6_4z00); 
BGl_symbol1797z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1798z00zz__r5_control_features_6_4z00); 
BGl_symbol1799z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1800z00zz__r5_control_features_6_4z00); 
BGl_symbol1801z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1802z00zz__r5_control_features_6_4z00); 
BGl_symbol1803z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1804z00zz__r5_control_features_6_4z00); 
BGl_symbol1805z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1806z00zz__r5_control_features_6_4z00); 
BGl_list1784z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1785z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1787z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1789z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1791z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1793z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1795z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1797z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1799z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1801z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1803z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1805z00zz__r5_control_features_6_4z00, BNIL))))))))))))))); 
BGl_symbol1808z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1809z00zz__r5_control_features_6_4z00); 
BGl_symbol1810z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1811z00zz__r5_control_features_6_4z00); 
BGl_symbol1812z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1813z00zz__r5_control_features_6_4z00); 
BGl_symbol1814z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1815z00zz__r5_control_features_6_4z00); 
BGl_symbol1816z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1817z00zz__r5_control_features_6_4z00); 
BGl_symbol1818z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1819z00zz__r5_control_features_6_4z00); 
BGl_symbol1820z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1821z00zz__r5_control_features_6_4z00); 
BGl_symbol1822z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1823z00zz__r5_control_features_6_4z00); 
BGl_symbol1824z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1825z00zz__r5_control_features_6_4z00); 
BGl_symbol1826z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1827z00zz__r5_control_features_6_4z00); 
BGl_symbol1828z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1829z00zz__r5_control_features_6_4z00); 
BGl_symbol1830z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1831z00zz__r5_control_features_6_4z00); 
BGl_list1807z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1808z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1810z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1812z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1814z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1816z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1818z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1820z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1822z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1824z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1826z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1828z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1830z00zz__r5_control_features_6_4z00, BNIL)))))))))))))))); 
BGl_symbol1833z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1834z00zz__r5_control_features_6_4z00); 
BGl_symbol1835z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1836z00zz__r5_control_features_6_4z00); 
BGl_symbol1837z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1838z00zz__r5_control_features_6_4z00); 
BGl_symbol1839z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1840z00zz__r5_control_features_6_4z00); 
BGl_symbol1841z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1842z00zz__r5_control_features_6_4z00); 
BGl_symbol1843z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1844z00zz__r5_control_features_6_4z00); 
BGl_symbol1845z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1846z00zz__r5_control_features_6_4z00); 
BGl_symbol1847z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1848z00zz__r5_control_features_6_4z00); 
BGl_symbol1849z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1850z00zz__r5_control_features_6_4z00); 
BGl_symbol1851z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1852z00zz__r5_control_features_6_4z00); 
BGl_symbol1853z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1854z00zz__r5_control_features_6_4z00); 
BGl_symbol1855z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1856z00zz__r5_control_features_6_4z00); 
BGl_symbol1857z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1858z00zz__r5_control_features_6_4z00); 
BGl_list1832z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1833z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1835z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1837z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1839z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1841z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1843z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1845z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1847z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1849z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1851z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1853z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1855z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1857z00zz__r5_control_features_6_4z00, BNIL))))))))))))))))); 
BGl_symbol1860z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1861z00zz__r5_control_features_6_4z00); 
BGl_symbol1862z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1863z00zz__r5_control_features_6_4z00); 
BGl_symbol1864z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1865z00zz__r5_control_features_6_4z00); 
BGl_symbol1866z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1867z00zz__r5_control_features_6_4z00); 
BGl_symbol1868z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1869z00zz__r5_control_features_6_4z00); 
BGl_symbol1870z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1871z00zz__r5_control_features_6_4z00); 
BGl_symbol1872z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1873z00zz__r5_control_features_6_4z00); 
BGl_symbol1874z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1875z00zz__r5_control_features_6_4z00); 
BGl_symbol1876z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1877z00zz__r5_control_features_6_4z00); 
BGl_symbol1878z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1879z00zz__r5_control_features_6_4z00); 
BGl_symbol1880z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1881z00zz__r5_control_features_6_4z00); 
BGl_symbol1882z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1883z00zz__r5_control_features_6_4z00); 
BGl_symbol1884z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1885z00zz__r5_control_features_6_4z00); 
BGl_symbol1886z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1887z00zz__r5_control_features_6_4z00); 
BGl_list1859z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1860z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1862z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1864z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1866z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1868z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1870z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1872z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1874z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1876z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1878z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1880z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1882z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1884z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1886z00zz__r5_control_features_6_4z00, BNIL)))))))))))))))))); 
BGl_symbol1889z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1890z00zz__r5_control_features_6_4z00); 
BGl_symbol1891z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1892z00zz__r5_control_features_6_4z00); 
BGl_symbol1893z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1894z00zz__r5_control_features_6_4z00); 
BGl_symbol1895z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1896z00zz__r5_control_features_6_4z00); 
BGl_symbol1897z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1898z00zz__r5_control_features_6_4z00); 
BGl_symbol1899z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1900z00zz__r5_control_features_6_4z00); 
BGl_symbol1901z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1902z00zz__r5_control_features_6_4z00); 
BGl_symbol1903z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1904z00zz__r5_control_features_6_4z00); 
BGl_symbol1905z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1906z00zz__r5_control_features_6_4z00); 
BGl_symbol1907z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1908z00zz__r5_control_features_6_4z00); 
BGl_symbol1909z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1910z00zz__r5_control_features_6_4z00); 
BGl_symbol1911z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1912z00zz__r5_control_features_6_4z00); 
BGl_symbol1913z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1914z00zz__r5_control_features_6_4z00); 
BGl_symbol1915z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1916z00zz__r5_control_features_6_4z00); 
BGl_symbol1917z00zz__r5_control_features_6_4z00 = 
bstring_to_symbol(BGl_string1918z00zz__r5_control_features_6_4z00); 
return ( 
BGl_list1888z00zz__r5_control_features_6_4z00 = 
MAKE_YOUNG_PAIR(BGl_symbol1647z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1658z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1660z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1889z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1891z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1893z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1895z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1897z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1899z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1901z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1903z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1905z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1907z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1909z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1911z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1913z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1915z00zz__r5_control_features_6_4z00, 
MAKE_YOUNG_PAIR(BGl_symbol1917z00zz__r5_control_features_6_4z00, BNIL))))))))))))))))))), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__r5_control_features_6_4z00(void)
{
{ /* Ieee/control5.scm 14 */
return 
bgl_gc_roots_register();} 

}



/* %get-mvalues-number */
BGL_EXPORTED_DEF int BGl_z52getzd2mvalueszd2numberz52zz__r5_control_features_6_4z00(void)
{
{ /* Ieee/control5.scm 66 */
return 
BGL_MVALUES_NUMBER();} 

}



/* &%get-mvalues-number */
obj_t BGl_z62z52getzd2mvalueszd2numberz30zz__r5_control_features_6_4z00(obj_t BgL_envz00_1301)
{
{ /* Ieee/control5.scm 66 */
return 
BINT(
BGl_z52getzd2mvalueszd2numberz52zz__r5_control_features_6_4z00());} 

}



/* %set-mvalues-number! */
BGL_EXPORTED_DEF int BGl_z52setzd2mvalueszd2numberz12z40zz__r5_control_features_6_4z00(int BgL_nz00_3)
{
{ /* Ieee/control5.scm 72 */
return 
BGL_MVALUES_NUMBER_SET(BgL_nz00_3);} 

}



/* &%set-mvalues-number! */
obj_t BGl_z62z52setzd2mvalueszd2numberz12z22zz__r5_control_features_6_4z00(obj_t BgL_envz00_1302, obj_t BgL_nz00_1303)
{
{ /* Ieee/control5.scm 72 */
{ /* Ieee/control5.scm 73 */
 int BgL_tmpz00_1841;
{ /* Ieee/control5.scm 73 */
 int BgL_auxz00_1842;
{ /* Ieee/control5.scm 73 */
 obj_t BgL_tmpz00_1843;
if(
INTEGERP(BgL_nz00_1303))
{ /* Ieee/control5.scm 73 */
BgL_tmpz00_1843 = BgL_nz00_1303
; }  else 
{ 
 obj_t BgL_auxz00_1846;
BgL_auxz00_1846 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(2768L), BGl_string1638z00zz__r5_control_features_6_4z00, BGl_string1639z00zz__r5_control_features_6_4z00, BgL_nz00_1303); 
FAILURE(BgL_auxz00_1846,BFALSE,BFALSE);} 
BgL_auxz00_1842 = 
CINT(BgL_tmpz00_1843); } 
BgL_tmpz00_1841 = 
BGl_z52setzd2mvalueszd2numberz12z40zz__r5_control_features_6_4z00(BgL_auxz00_1842); } 
return 
BINT(BgL_tmpz00_1841);} } 

}



/* %get-mvalues-val */
BGL_EXPORTED_DEF obj_t BGl_z52getzd2mvalueszd2valz52zz__r5_control_features_6_4z00(int BgL_nz00_4)
{
{ /* Ieee/control5.scm 78 */
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1505;
BgL_tmpz00_1505 = 
BGL_MVALUES_VAL(BgL_nz00_4); 
BGL_MVALUES_VAL_SET(BgL_nz00_4, BUNSPEC); 
return BgL_tmpz00_1505;} } 

}



/* &%get-mvalues-val */
obj_t BGl_z62z52getzd2mvalueszd2valz30zz__r5_control_features_6_4z00(obj_t BgL_envz00_1304, obj_t BgL_nz00_1305)
{
{ /* Ieee/control5.scm 78 */
{ /* Ieee/control5.scm 79 */
 int BgL_auxz00_1855;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1856;
if(
INTEGERP(BgL_nz00_1305))
{ /* Ieee/control5.scm 79 */
BgL_tmpz00_1856 = BgL_nz00_1305
; }  else 
{ 
 obj_t BgL_auxz00_1859;
BgL_auxz00_1859 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(3056L), BGl_string1640z00zz__r5_control_features_6_4z00, BGl_string1639z00zz__r5_control_features_6_4z00, BgL_nz00_1305); 
FAILURE(BgL_auxz00_1859,BFALSE,BFALSE);} 
BgL_auxz00_1855 = 
CINT(BgL_tmpz00_1856); } 
return 
BGl_z52getzd2mvalueszd2valz52zz__r5_control_features_6_4z00(BgL_auxz00_1855);} } 

}



/* %set-mvalues-val! */
BGL_EXPORTED_DEF obj_t BGl_z52setzd2mvalueszd2valz12z40zz__r5_control_features_6_4z00(int BgL_nz00_5, obj_t BgL_oz00_6)
{
{ /* Ieee/control5.scm 86 */
return 
BGL_MVALUES_VAL_SET(BgL_nz00_5, BgL_oz00_6);} 

}



/* &%set-mvalues-val! */
obj_t BGl_z62z52setzd2mvalueszd2valz12z22zz__r5_control_features_6_4z00(obj_t BgL_envz00_1306, obj_t BgL_nz00_1307, obj_t BgL_oz00_1308)
{
{ /* Ieee/control5.scm 86 */
{ /* Ieee/control5.scm 87 */
 int BgL_auxz00_1866;
{ /* Ieee/control5.scm 87 */
 obj_t BgL_tmpz00_1867;
if(
INTEGERP(BgL_nz00_1307))
{ /* Ieee/control5.scm 87 */
BgL_tmpz00_1867 = BgL_nz00_1307
; }  else 
{ 
 obj_t BgL_auxz00_1870;
BgL_auxz00_1870 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(3408L), BGl_string1641z00zz__r5_control_features_6_4z00, BGl_string1639z00zz__r5_control_features_6_4z00, BgL_nz00_1307); 
FAILURE(BgL_auxz00_1870,BFALSE,BFALSE);} 
BgL_auxz00_1866 = 
CINT(BgL_tmpz00_1867); } 
return 
BGl_z52setzd2mvalueszd2valz12z40zz__r5_control_features_6_4z00(BgL_auxz00_1866, BgL_oz00_1308);} } 

}



/* values */
BGL_EXPORTED_DEF obj_t BGl_valuesz00zz__r5_control_features_6_4z00(obj_t BgL_argsz00_7)
{
{ /* Ieee/control5.scm 94 */
if(
NULLP(BgL_argsz00_7))
{ /* Ieee/control5.scm 73 */
 int BgL_tmpz00_1878;
{ /* Ieee/control5.scm 73 */
 int BgL_tmpz00_1879;
BgL_tmpz00_1879 = 
(int)(0L); 
BgL_tmpz00_1878 = 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1879); } 
return 
BINT(BgL_tmpz00_1878);}  else 
{ /* Ieee/control5.scm 97 */
 bool_t BgL_test2073z00_1883;
{ /* Ieee/control5.scm 97 */
 obj_t BgL_tmpz00_1884;
{ /* Ieee/control5.scm 97 */
 obj_t BgL_pairz00_1114;
if(
PAIRP(BgL_argsz00_7))
{ /* Ieee/control5.scm 97 */
BgL_pairz00_1114 = BgL_argsz00_7; }  else 
{ 
 obj_t BgL_auxz00_1887;
BgL_auxz00_1887 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(3903L), BGl_string1642z00zz__r5_control_features_6_4z00, BGl_string1643z00zz__r5_control_features_6_4z00, BgL_argsz00_7); 
FAILURE(BgL_auxz00_1887,BFALSE,BFALSE);} 
BgL_tmpz00_1884 = 
CDR(BgL_pairz00_1114); } 
BgL_test2073z00_1883 = 
NULLP(BgL_tmpz00_1884); } 
if(BgL_test2073z00_1883)
{ /* Ieee/control5.scm 97 */
{ /* Ieee/control5.scm 73 */
 int BgL_tmpz00_1893;
BgL_tmpz00_1893 = 
(int)(1L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1893); } 
{ /* Ieee/control5.scm 100 */
 obj_t BgL_pairz00_1115;
if(
PAIRP(BgL_argsz00_7))
{ /* Ieee/control5.scm 100 */
BgL_pairz00_1115 = BgL_argsz00_7; }  else 
{ 
 obj_t BgL_auxz00_1898;
BgL_auxz00_1898 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(3965L), BGl_string1642z00zz__r5_control_features_6_4z00, BGl_string1643z00zz__r5_control_features_6_4z00, BgL_argsz00_7); 
FAILURE(BgL_auxz00_1898,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_1115);} }  else 
{ /* Ieee/control5.scm 101 */
 obj_t BgL_res0z00_716;
{ /* Ieee/control5.scm 101 */
 obj_t BgL_pairz00_1116;
if(
PAIRP(BgL_argsz00_7))
{ /* Ieee/control5.scm 101 */
BgL_pairz00_1116 = BgL_argsz00_7; }  else 
{ 
 obj_t BgL_auxz00_1905;
BgL_auxz00_1905 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(3993L), BGl_string1642z00zz__r5_control_features_6_4z00, BGl_string1643z00zz__r5_control_features_6_4z00, BgL_argsz00_7); 
FAILURE(BgL_auxz00_1905,BFALSE,BFALSE);} 
BgL_res0z00_716 = 
CAR(BgL_pairz00_1116); } 
{ /* Ieee/control5.scm 103 */
 obj_t BgL_g1012z00_718;
{ /* Ieee/control5.scm 104 */
 obj_t BgL_pairz00_1117;
if(
PAIRP(BgL_argsz00_7))
{ /* Ieee/control5.scm 104 */
BgL_pairz00_1117 = BgL_argsz00_7; }  else 
{ 
 obj_t BgL_auxz00_1912;
BgL_auxz00_1912 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(4059L), BGl_string1642z00zz__r5_control_features_6_4z00, BGl_string1643z00zz__r5_control_features_6_4z00, BgL_argsz00_7); 
FAILURE(BgL_auxz00_1912,BFALSE,BFALSE);} 
BgL_g1012z00_718 = 
CDR(BgL_pairz00_1117); } 
{ 
 long BgL_iz00_720; obj_t BgL_argsz00_721;
BgL_iz00_720 = 1L; 
BgL_argsz00_721 = BgL_g1012z00_718; 
BgL_zc3z04anonymousza31062ze3z87_722:
if(
NULLP(BgL_argsz00_721))
{ /* Ieee/control5.scm 106 */
{ /* Ieee/control5.scm 73 */
 int BgL_tmpz00_1919;
BgL_tmpz00_1919 = 
(int)(BgL_iz00_720); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1919); } 
return BgL_res0z00_716;}  else 
{ /* Ieee/control5.scm 106 */
if(
(BgL_iz00_720==16L))
{ /* Ieee/control5.scm 109 */
{ /* Ieee/control5.scm 73 */
 int BgL_tmpz00_1924;
BgL_tmpz00_1924 = 
(int)((-1L)); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1924); } 
return BgL_argsz00_7;}  else 
{ /* Ieee/control5.scm 109 */
{ /* Ieee/control5.scm 113 */
 obj_t BgL_arg1065z00_725;
{ /* Ieee/control5.scm 113 */
 obj_t BgL_pairz00_1120;
if(
PAIRP(BgL_argsz00_721))
{ /* Ieee/control5.scm 113 */
BgL_pairz00_1120 = BgL_argsz00_721; }  else 
{ 
 obj_t BgL_auxz00_1929;
BgL_auxz00_1929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(4254L), BGl_string1644z00zz__r5_control_features_6_4z00, BGl_string1643z00zz__r5_control_features_6_4z00, BgL_argsz00_721); 
FAILURE(BgL_auxz00_1929,BFALSE,BFALSE);} 
BgL_arg1065z00_725 = 
CAR(BgL_pairz00_1120); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_1934;
BgL_tmpz00_1934 = 
(int)(BgL_iz00_720); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_1934, BgL_arg1065z00_725); } } 
{ /* Ieee/control5.scm 114 */
 long BgL_arg1067z00_726; obj_t BgL_arg1068z00_727;
BgL_arg1067z00_726 = 
(BgL_iz00_720+1L); 
{ /* Ieee/control5.scm 114 */
 obj_t BgL_pairz00_1123;
if(
PAIRP(BgL_argsz00_721))
{ /* Ieee/control5.scm 114 */
BgL_pairz00_1123 = BgL_argsz00_721; }  else 
{ 
 obj_t BgL_auxz00_1940;
BgL_auxz00_1940 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(4289L), BGl_string1644z00zz__r5_control_features_6_4z00, BGl_string1643z00zz__r5_control_features_6_4z00, BgL_argsz00_721); 
FAILURE(BgL_auxz00_1940,BFALSE,BFALSE);} 
BgL_arg1068z00_727 = 
CDR(BgL_pairz00_1123); } 
{ 
 obj_t BgL_argsz00_1946; long BgL_iz00_1945;
BgL_iz00_1945 = BgL_arg1067z00_726; 
BgL_argsz00_1946 = BgL_arg1068z00_727; 
BgL_argsz00_721 = BgL_argsz00_1946; 
BgL_iz00_720 = BgL_iz00_1945; 
goto BgL_zc3z04anonymousza31062ze3z87_722;} } } } } } } } } 

}



/* &values */
obj_t BGl_z62valuesz62zz__r5_control_features_6_4z00(obj_t BgL_envz00_1309, obj_t BgL_argsz00_1310)
{
{ /* Ieee/control5.scm 94 */
return 
BGl_valuesz00zz__r5_control_features_6_4z00(BgL_argsz00_1310);} 

}



/* call-with-values */
BGL_EXPORTED_DEF obj_t BGl_callzd2withzd2valuesz00zz__r5_control_features_6_4z00(obj_t BgL_producerz00_8, obj_t BgL_consumerz00_9)
{
{ /* Ieee/control5.scm 119 */
{ /* Ieee/control5.scm 73 */
 int BgL_tmpz00_1948;
BgL_tmpz00_1948 = 
(int)(1L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1948); } 
{ /* Ieee/control5.scm 121 */
 obj_t BgL_res0z00_730;
if(
PROCEDURE_CORRECT_ARITYP(BgL_producerz00_8, 0))
{ /* Ieee/control5.scm 121 */
BgL_res0z00_730 = 
BGL_PROCEDURE_CALL0(BgL_producerz00_8); }  else 
{ /* Ieee/control5.scm 121 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1646z00zz__r5_control_features_6_4z00,BgL_producerz00_8);} 
{ /* Ieee/control5.scm 121 */
 int BgL_numzd2valueszd2_731;
BgL_numzd2valueszd2_731 = 
BGL_MVALUES_NUMBER(); 
{ /* Ieee/control5.scm 122 */

{ /* Ieee/control5.scm 73 */
 int BgL_tmpz00_1958;
BgL_tmpz00_1958 = 
(int)(1L); 
BGL_MVALUES_NUMBER_SET(BgL_tmpz00_1958); } 
switch( 
(long)(BgL_numzd2valueszd2_731)) { case (-1L) : 

{ /* Ieee/control5.scm 135 */
 obj_t BgL_valz00_1334;
{ /* Ieee/control5.scm 135 */
 bool_t BgL_test2083z00_1961;
if(
PAIRP(BgL_res0z00_730))
{ /* Ieee/control5.scm 135 */
BgL_test2083z00_1961 = ((bool_t)1)
; }  else 
{ /* Ieee/control5.scm 135 */
BgL_test2083z00_1961 = 
NULLP(BgL_res0z00_730)
; } 
if(BgL_test2083z00_1961)
{ /* Ieee/control5.scm 135 */
BgL_valz00_1334 = BgL_res0z00_730; }  else 
{ 
 obj_t BgL_auxz00_1965;
BgL_auxz00_1965 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(5170L), BGl_string1651z00zz__r5_control_features_6_4z00, BGl_string1652z00zz__r5_control_features_6_4z00, BgL_res0z00_730); 
FAILURE(BgL_auxz00_1965,BFALSE,BFALSE);} } 
{ /* Ieee/control5.scm 135 */
 long BgL_len1612z00_1335;
BgL_len1612z00_1335 = 
(int)(
bgl_list_length(BgL_valz00_1334)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, BgL_len1612z00_1335))
{ /* Ieee/control5.scm 135 */
return 
apply(BgL_consumerz00_9, BgL_valz00_1334);}  else 
{ /* Ieee/control5.scm 135 */
FAILURE(BGl_symbol1653z00zz__r5_control_features_6_4z00,BGl_string1654z00zz__r5_control_features_6_4z00,BGl_list1655z00zz__r5_control_features_6_4z00);} } } break;case 0L : 

if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 0))
{ /* Ieee/control5.scm 137 */
return 
BGL_PROCEDURE_CALL0(BgL_consumerz00_9);}  else 
{ /* Ieee/control5.scm 137 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1662z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} break;case 1L : 

if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 1))
{ /* Ieee/control5.scm 139 */
return 
BGL_PROCEDURE_CALL1(BgL_consumerz00_9, BgL_res0z00_730);}  else 
{ /* Ieee/control5.scm 139 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1663z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} break;case 2L : 

{ /* Ieee/control5.scm 142 */
 obj_t BgL_arg1070z00_734;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1124;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_1989;
BgL_tmpz00_1989 = 
(int)(1L); 
BgL_tmpz00_1124 = 
BGL_MVALUES_VAL(BgL_tmpz00_1989); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_1992;
BgL_tmpz00_1992 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_1992, BUNSPEC); } 
BgL_arg1070z00_734 = BgL_tmpz00_1124; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 2))
{ /* Ieee/control5.scm 141 */
return 
BGL_PROCEDURE_CALL2(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1070z00_734);}  else 
{ /* Ieee/control5.scm 141 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1664z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 3L : 

{ /* Ieee/control5.scm 145 */
 obj_t BgL_arg1072z00_735; obj_t BgL_arg1073z00_736;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1125;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2003;
BgL_tmpz00_2003 = 
(int)(1L); 
BgL_tmpz00_1125 = 
BGL_MVALUES_VAL(BgL_tmpz00_2003); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2006;
BgL_tmpz00_2006 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2006, BUNSPEC); } 
BgL_arg1072z00_735 = BgL_tmpz00_1125; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1126;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2009;
BgL_tmpz00_2009 = 
(int)(2L); 
BgL_tmpz00_1126 = 
BGL_MVALUES_VAL(BgL_tmpz00_2009); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2012;
BgL_tmpz00_2012 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2012, BUNSPEC); } 
BgL_arg1073z00_736 = BgL_tmpz00_1126; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 3))
{ /* Ieee/control5.scm 144 */
return 
BGL_PROCEDURE_CALL3(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1072z00_735, BgL_arg1073z00_736);}  else 
{ /* Ieee/control5.scm 144 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1667z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 4L : 

{ /* Ieee/control5.scm 149 */
 obj_t BgL_arg1074z00_737; obj_t BgL_arg1079z00_738; obj_t BgL_arg1080z00_739;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1127;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2024;
BgL_tmpz00_2024 = 
(int)(1L); 
BgL_tmpz00_1127 = 
BGL_MVALUES_VAL(BgL_tmpz00_2024); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2027;
BgL_tmpz00_2027 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2027, BUNSPEC); } 
BgL_arg1074z00_737 = BgL_tmpz00_1127; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1128;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2030;
BgL_tmpz00_2030 = 
(int)(2L); 
BgL_tmpz00_1128 = 
BGL_MVALUES_VAL(BgL_tmpz00_2030); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2033;
BgL_tmpz00_2033 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2033, BUNSPEC); } 
BgL_arg1079z00_738 = BgL_tmpz00_1128; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1129;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2036;
BgL_tmpz00_2036 = 
(int)(3L); 
BgL_tmpz00_1129 = 
BGL_MVALUES_VAL(BgL_tmpz00_2036); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2039;
BgL_tmpz00_2039 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2039, BUNSPEC); } 
BgL_arg1080z00_739 = BgL_tmpz00_1129; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 4))
{ /* Ieee/control5.scm 148 */
return 
BGL_PROCEDURE_CALL4(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1074z00_737, BgL_arg1079z00_738, BgL_arg1080z00_739);}  else 
{ /* Ieee/control5.scm 148 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1672z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 5L : 

{ /* Ieee/control5.scm 154 */
 obj_t BgL_arg1081z00_740; obj_t BgL_arg1084z00_741; obj_t BgL_arg1086z00_742; obj_t BgL_arg1088z00_743;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1130;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2052;
BgL_tmpz00_2052 = 
(int)(1L); 
BgL_tmpz00_1130 = 
BGL_MVALUES_VAL(BgL_tmpz00_2052); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2055;
BgL_tmpz00_2055 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2055, BUNSPEC); } 
BgL_arg1081z00_740 = BgL_tmpz00_1130; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1131;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2058;
BgL_tmpz00_2058 = 
(int)(2L); 
BgL_tmpz00_1131 = 
BGL_MVALUES_VAL(BgL_tmpz00_2058); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2061;
BgL_tmpz00_2061 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2061, BUNSPEC); } 
BgL_arg1084z00_741 = BgL_tmpz00_1131; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1132;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2064;
BgL_tmpz00_2064 = 
(int)(3L); 
BgL_tmpz00_1132 = 
BGL_MVALUES_VAL(BgL_tmpz00_2064); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2067;
BgL_tmpz00_2067 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2067, BUNSPEC); } 
BgL_arg1086z00_742 = BgL_tmpz00_1132; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1133;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2070;
BgL_tmpz00_2070 = 
(int)(4L); 
BgL_tmpz00_1133 = 
BGL_MVALUES_VAL(BgL_tmpz00_2070); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2073;
BgL_tmpz00_2073 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2073, BUNSPEC); } 
BgL_arg1088z00_743 = BgL_tmpz00_1133; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 5))
{ /* Ieee/control5.scm 153 */
return 
BGL_PROCEDURE_CALL5(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1081z00_740, BgL_arg1084z00_741, BgL_arg1086z00_742, BgL_arg1088z00_743);}  else 
{ /* Ieee/control5.scm 153 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1679z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 6L : 

{ /* Ieee/control5.scm 160 */
 obj_t BgL_arg1089z00_744; obj_t BgL_arg1090z00_745; obj_t BgL_arg1092z00_746; obj_t BgL_arg1096z00_747; obj_t BgL_arg1097z00_748;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1134;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2087;
BgL_tmpz00_2087 = 
(int)(1L); 
BgL_tmpz00_1134 = 
BGL_MVALUES_VAL(BgL_tmpz00_2087); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2090;
BgL_tmpz00_2090 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2090, BUNSPEC); } 
BgL_arg1089z00_744 = BgL_tmpz00_1134; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1135;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2093;
BgL_tmpz00_2093 = 
(int)(2L); 
BgL_tmpz00_1135 = 
BGL_MVALUES_VAL(BgL_tmpz00_2093); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2096;
BgL_tmpz00_2096 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2096, BUNSPEC); } 
BgL_arg1090z00_745 = BgL_tmpz00_1135; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1136;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2099;
BgL_tmpz00_2099 = 
(int)(3L); 
BgL_tmpz00_1136 = 
BGL_MVALUES_VAL(BgL_tmpz00_2099); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2102;
BgL_tmpz00_2102 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2102, BUNSPEC); } 
BgL_arg1092z00_746 = BgL_tmpz00_1136; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1137;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2105;
BgL_tmpz00_2105 = 
(int)(4L); 
BgL_tmpz00_1137 = 
BGL_MVALUES_VAL(BgL_tmpz00_2105); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2108;
BgL_tmpz00_2108 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2108, BUNSPEC); } 
BgL_arg1096z00_747 = BgL_tmpz00_1137; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1138;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2111;
BgL_tmpz00_2111 = 
(int)(5L); 
BgL_tmpz00_1138 = 
BGL_MVALUES_VAL(BgL_tmpz00_2111); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2114;
BgL_tmpz00_2114 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2114, BUNSPEC); } 
BgL_arg1097z00_748 = BgL_tmpz00_1138; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 6))
{ /* Ieee/control5.scm 159 */
return 
BGL_PROCEDURE_CALL6(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1089z00_744, BgL_arg1090z00_745, BgL_arg1092z00_746, BgL_arg1096z00_747, BgL_arg1097z00_748);}  else 
{ /* Ieee/control5.scm 159 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1688z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 7L : 

{ /* Ieee/control5.scm 167 */
 obj_t BgL_arg1107z00_749; obj_t BgL_arg1108z00_750; obj_t BgL_arg1111z00_751; obj_t BgL_arg1115z00_752; obj_t BgL_arg1116z00_753; obj_t BgL_arg1117z00_754;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1139;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2129;
BgL_tmpz00_2129 = 
(int)(1L); 
BgL_tmpz00_1139 = 
BGL_MVALUES_VAL(BgL_tmpz00_2129); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2132;
BgL_tmpz00_2132 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2132, BUNSPEC); } 
BgL_arg1107z00_749 = BgL_tmpz00_1139; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1140;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2135;
BgL_tmpz00_2135 = 
(int)(2L); 
BgL_tmpz00_1140 = 
BGL_MVALUES_VAL(BgL_tmpz00_2135); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2138;
BgL_tmpz00_2138 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2138, BUNSPEC); } 
BgL_arg1108z00_750 = BgL_tmpz00_1140; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1141;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2141;
BgL_tmpz00_2141 = 
(int)(3L); 
BgL_tmpz00_1141 = 
BGL_MVALUES_VAL(BgL_tmpz00_2141); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2144;
BgL_tmpz00_2144 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2144, BUNSPEC); } 
BgL_arg1111z00_751 = BgL_tmpz00_1141; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1142;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2147;
BgL_tmpz00_2147 = 
(int)(4L); 
BgL_tmpz00_1142 = 
BGL_MVALUES_VAL(BgL_tmpz00_2147); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2150;
BgL_tmpz00_2150 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2150, BUNSPEC); } 
BgL_arg1115z00_752 = BgL_tmpz00_1142; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1143;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2153;
BgL_tmpz00_2153 = 
(int)(5L); 
BgL_tmpz00_1143 = 
BGL_MVALUES_VAL(BgL_tmpz00_2153); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2156;
BgL_tmpz00_2156 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2156, BUNSPEC); } 
BgL_arg1116z00_753 = BgL_tmpz00_1143; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1144;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2159;
BgL_tmpz00_2159 = 
(int)(6L); 
BgL_tmpz00_1144 = 
BGL_MVALUES_VAL(BgL_tmpz00_2159); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2162;
BgL_tmpz00_2162 = 
(int)(6L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2162, BUNSPEC); } 
BgL_arg1117z00_754 = BgL_tmpz00_1144; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 7))
{ /* Ieee/control5.scm 166 */
return 
BGL_PROCEDURE_CALL7(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1107z00_749, BgL_arg1108z00_750, BgL_arg1111z00_751, BgL_arg1115z00_752, BgL_arg1116z00_753, BgL_arg1117z00_754);}  else 
{ /* Ieee/control5.scm 166 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1699z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 8L : 

{ /* Ieee/control5.scm 175 */
 obj_t BgL_arg1118z00_755; obj_t BgL_arg1120z00_756; obj_t BgL_arg1121z00_757; obj_t BgL_arg1122z00_758; obj_t BgL_arg1123z00_759; obj_t BgL_arg1129z00_760; obj_t BgL_arg1130z00_761;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1145;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2178;
BgL_tmpz00_2178 = 
(int)(1L); 
BgL_tmpz00_1145 = 
BGL_MVALUES_VAL(BgL_tmpz00_2178); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2181;
BgL_tmpz00_2181 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2181, BUNSPEC); } 
BgL_arg1118z00_755 = BgL_tmpz00_1145; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1146;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2184;
BgL_tmpz00_2184 = 
(int)(2L); 
BgL_tmpz00_1146 = 
BGL_MVALUES_VAL(BgL_tmpz00_2184); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2187;
BgL_tmpz00_2187 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2187, BUNSPEC); } 
BgL_arg1120z00_756 = BgL_tmpz00_1146; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1147;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2190;
BgL_tmpz00_2190 = 
(int)(3L); 
BgL_tmpz00_1147 = 
BGL_MVALUES_VAL(BgL_tmpz00_2190); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2193;
BgL_tmpz00_2193 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2193, BUNSPEC); } 
BgL_arg1121z00_757 = BgL_tmpz00_1147; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1148;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2196;
BgL_tmpz00_2196 = 
(int)(4L); 
BgL_tmpz00_1148 = 
BGL_MVALUES_VAL(BgL_tmpz00_2196); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2199;
BgL_tmpz00_2199 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2199, BUNSPEC); } 
BgL_arg1122z00_758 = BgL_tmpz00_1148; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1149;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2202;
BgL_tmpz00_2202 = 
(int)(5L); 
BgL_tmpz00_1149 = 
BGL_MVALUES_VAL(BgL_tmpz00_2202); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2205;
BgL_tmpz00_2205 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2205, BUNSPEC); } 
BgL_arg1123z00_759 = BgL_tmpz00_1149; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1150;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2208;
BgL_tmpz00_2208 = 
(int)(6L); 
BgL_tmpz00_1150 = 
BGL_MVALUES_VAL(BgL_tmpz00_2208); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2211;
BgL_tmpz00_2211 = 
(int)(6L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2211, BUNSPEC); } 
BgL_arg1129z00_760 = BgL_tmpz00_1150; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1151;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2214;
BgL_tmpz00_2214 = 
(int)(7L); 
BgL_tmpz00_1151 = 
BGL_MVALUES_VAL(BgL_tmpz00_2214); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2217;
BgL_tmpz00_2217 = 
(int)(7L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2217, BUNSPEC); } 
BgL_arg1130z00_761 = BgL_tmpz00_1151; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 8))
{ /* Ieee/control5.scm 174 */
return 
BGL_PROCEDURE_CALL8(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1118z00_755, BgL_arg1120z00_756, BgL_arg1121z00_757, BgL_arg1122z00_758, BgL_arg1123z00_759, BgL_arg1129z00_760, BgL_arg1130z00_761);}  else 
{ /* Ieee/control5.scm 174 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1712z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 9L : 

{ /* Ieee/control5.scm 184 */
 obj_t BgL_arg1132z00_762; obj_t BgL_arg1135z00_763; obj_t BgL_arg1136z00_764; obj_t BgL_arg1137z00_765; obj_t BgL_arg1138z00_766; obj_t BgL_arg1139z00_767; obj_t BgL_arg1141z00_768; obj_t BgL_arg1142z00_769;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1152;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2234;
BgL_tmpz00_2234 = 
(int)(1L); 
BgL_tmpz00_1152 = 
BGL_MVALUES_VAL(BgL_tmpz00_2234); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2237;
BgL_tmpz00_2237 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2237, BUNSPEC); } 
BgL_arg1132z00_762 = BgL_tmpz00_1152; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1153;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2240;
BgL_tmpz00_2240 = 
(int)(2L); 
BgL_tmpz00_1153 = 
BGL_MVALUES_VAL(BgL_tmpz00_2240); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2243;
BgL_tmpz00_2243 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2243, BUNSPEC); } 
BgL_arg1135z00_763 = BgL_tmpz00_1153; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1154;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2246;
BgL_tmpz00_2246 = 
(int)(3L); 
BgL_tmpz00_1154 = 
BGL_MVALUES_VAL(BgL_tmpz00_2246); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2249;
BgL_tmpz00_2249 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2249, BUNSPEC); } 
BgL_arg1136z00_764 = BgL_tmpz00_1154; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1155;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2252;
BgL_tmpz00_2252 = 
(int)(4L); 
BgL_tmpz00_1155 = 
BGL_MVALUES_VAL(BgL_tmpz00_2252); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2255;
BgL_tmpz00_2255 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2255, BUNSPEC); } 
BgL_arg1137z00_765 = BgL_tmpz00_1155; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1156;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2258;
BgL_tmpz00_2258 = 
(int)(5L); 
BgL_tmpz00_1156 = 
BGL_MVALUES_VAL(BgL_tmpz00_2258); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2261;
BgL_tmpz00_2261 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2261, BUNSPEC); } 
BgL_arg1138z00_766 = BgL_tmpz00_1156; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1157;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2264;
BgL_tmpz00_2264 = 
(int)(6L); 
BgL_tmpz00_1157 = 
BGL_MVALUES_VAL(BgL_tmpz00_2264); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2267;
BgL_tmpz00_2267 = 
(int)(6L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2267, BUNSPEC); } 
BgL_arg1139z00_767 = BgL_tmpz00_1157; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1158;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2270;
BgL_tmpz00_2270 = 
(int)(7L); 
BgL_tmpz00_1158 = 
BGL_MVALUES_VAL(BgL_tmpz00_2270); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2273;
BgL_tmpz00_2273 = 
(int)(7L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2273, BUNSPEC); } 
BgL_arg1141z00_768 = BgL_tmpz00_1158; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1159;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2276;
BgL_tmpz00_2276 = 
(int)(8L); 
BgL_tmpz00_1159 = 
BGL_MVALUES_VAL(BgL_tmpz00_2276); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2279;
BgL_tmpz00_2279 = 
(int)(8L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2279, BUNSPEC); } 
BgL_arg1142z00_769 = BgL_tmpz00_1159; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 9))
{ /* Ieee/control5.scm 183 */
return 
BGL_PROCEDURE_CALL9(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1132z00_762, BgL_arg1135z00_763, BgL_arg1136z00_764, BgL_arg1137z00_765, BgL_arg1138z00_766, BgL_arg1139z00_767, BgL_arg1141z00_768, BgL_arg1142z00_769);}  else 
{ /* Ieee/control5.scm 183 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1727z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 10L : 

{ /* Ieee/control5.scm 194 */
 obj_t BgL_arg1145z00_770; obj_t BgL_arg1147z00_771; obj_t BgL_arg1149z00_772; obj_t BgL_arg1153z00_773; obj_t BgL_arg1155z00_774; obj_t BgL_arg1156z00_775; obj_t BgL_arg1157z00_776; obj_t BgL_arg1159z00_777; obj_t BgL_arg1160z00_778;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1160;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2297;
BgL_tmpz00_2297 = 
(int)(1L); 
BgL_tmpz00_1160 = 
BGL_MVALUES_VAL(BgL_tmpz00_2297); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2300;
BgL_tmpz00_2300 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2300, BUNSPEC); } 
BgL_arg1145z00_770 = BgL_tmpz00_1160; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1161;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2303;
BgL_tmpz00_2303 = 
(int)(2L); 
BgL_tmpz00_1161 = 
BGL_MVALUES_VAL(BgL_tmpz00_2303); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2306;
BgL_tmpz00_2306 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2306, BUNSPEC); } 
BgL_arg1147z00_771 = BgL_tmpz00_1161; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1162;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2309;
BgL_tmpz00_2309 = 
(int)(3L); 
BgL_tmpz00_1162 = 
BGL_MVALUES_VAL(BgL_tmpz00_2309); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2312;
BgL_tmpz00_2312 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2312, BUNSPEC); } 
BgL_arg1149z00_772 = BgL_tmpz00_1162; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1163;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2315;
BgL_tmpz00_2315 = 
(int)(4L); 
BgL_tmpz00_1163 = 
BGL_MVALUES_VAL(BgL_tmpz00_2315); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2318;
BgL_tmpz00_2318 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2318, BUNSPEC); } 
BgL_arg1153z00_773 = BgL_tmpz00_1163; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1164;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2321;
BgL_tmpz00_2321 = 
(int)(5L); 
BgL_tmpz00_1164 = 
BGL_MVALUES_VAL(BgL_tmpz00_2321); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2324;
BgL_tmpz00_2324 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2324, BUNSPEC); } 
BgL_arg1155z00_774 = BgL_tmpz00_1164; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1165;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2327;
BgL_tmpz00_2327 = 
(int)(6L); 
BgL_tmpz00_1165 = 
BGL_MVALUES_VAL(BgL_tmpz00_2327); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2330;
BgL_tmpz00_2330 = 
(int)(6L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2330, BUNSPEC); } 
BgL_arg1156z00_775 = BgL_tmpz00_1165; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1166;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2333;
BgL_tmpz00_2333 = 
(int)(7L); 
BgL_tmpz00_1166 = 
BGL_MVALUES_VAL(BgL_tmpz00_2333); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2336;
BgL_tmpz00_2336 = 
(int)(7L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2336, BUNSPEC); } 
BgL_arg1157z00_776 = BgL_tmpz00_1166; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1167;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2339;
BgL_tmpz00_2339 = 
(int)(8L); 
BgL_tmpz00_1167 = 
BGL_MVALUES_VAL(BgL_tmpz00_2339); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2342;
BgL_tmpz00_2342 = 
(int)(8L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2342, BUNSPEC); } 
BgL_arg1159z00_777 = BgL_tmpz00_1167; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1168;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2345;
BgL_tmpz00_2345 = 
(int)(9L); 
BgL_tmpz00_1168 = 
BGL_MVALUES_VAL(BgL_tmpz00_2345); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2348;
BgL_tmpz00_2348 = 
(int)(9L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2348, BUNSPEC); } 
BgL_arg1160z00_778 = BgL_tmpz00_1168; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 10))
{ /* Ieee/control5.scm 193 */
return 
BGL_PROCEDURE_CALL10(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1145z00_770, BgL_arg1147z00_771, BgL_arg1149z00_772, BgL_arg1153z00_773, BgL_arg1155z00_774, BgL_arg1156z00_775, BgL_arg1157z00_776, BgL_arg1159z00_777, BgL_arg1160z00_778);}  else 
{ /* Ieee/control5.scm 193 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1744z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 11L : 

{ /* Ieee/control5.scm 205 */
 obj_t BgL_arg1162z00_779; obj_t BgL_arg1163z00_780; obj_t BgL_arg1167z00_781; obj_t BgL_arg1169z00_782; obj_t BgL_arg1170z00_783; obj_t BgL_arg1187z00_784; obj_t BgL_arg1189z00_785; obj_t BgL_arg1192z00_786; obj_t BgL_arg1193z00_787; obj_t BgL_arg1194z00_788;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1169;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2367;
BgL_tmpz00_2367 = 
(int)(1L); 
BgL_tmpz00_1169 = 
BGL_MVALUES_VAL(BgL_tmpz00_2367); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2370;
BgL_tmpz00_2370 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2370, BUNSPEC); } 
BgL_arg1162z00_779 = BgL_tmpz00_1169; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1170;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2373;
BgL_tmpz00_2373 = 
(int)(2L); 
BgL_tmpz00_1170 = 
BGL_MVALUES_VAL(BgL_tmpz00_2373); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2376;
BgL_tmpz00_2376 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2376, BUNSPEC); } 
BgL_arg1163z00_780 = BgL_tmpz00_1170; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1171;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2379;
BgL_tmpz00_2379 = 
(int)(3L); 
BgL_tmpz00_1171 = 
BGL_MVALUES_VAL(BgL_tmpz00_2379); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2382;
BgL_tmpz00_2382 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2382, BUNSPEC); } 
BgL_arg1167z00_781 = BgL_tmpz00_1171; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1172;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2385;
BgL_tmpz00_2385 = 
(int)(4L); 
BgL_tmpz00_1172 = 
BGL_MVALUES_VAL(BgL_tmpz00_2385); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2388;
BgL_tmpz00_2388 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2388, BUNSPEC); } 
BgL_arg1169z00_782 = BgL_tmpz00_1172; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1173;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2391;
BgL_tmpz00_2391 = 
(int)(5L); 
BgL_tmpz00_1173 = 
BGL_MVALUES_VAL(BgL_tmpz00_2391); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2394;
BgL_tmpz00_2394 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2394, BUNSPEC); } 
BgL_arg1170z00_783 = BgL_tmpz00_1173; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1174;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2397;
BgL_tmpz00_2397 = 
(int)(6L); 
BgL_tmpz00_1174 = 
BGL_MVALUES_VAL(BgL_tmpz00_2397); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2400;
BgL_tmpz00_2400 = 
(int)(6L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2400, BUNSPEC); } 
BgL_arg1187z00_784 = BgL_tmpz00_1174; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1175;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2403;
BgL_tmpz00_2403 = 
(int)(7L); 
BgL_tmpz00_1175 = 
BGL_MVALUES_VAL(BgL_tmpz00_2403); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2406;
BgL_tmpz00_2406 = 
(int)(7L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2406, BUNSPEC); } 
BgL_arg1189z00_785 = BgL_tmpz00_1175; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1176;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2409;
BgL_tmpz00_2409 = 
(int)(8L); 
BgL_tmpz00_1176 = 
BGL_MVALUES_VAL(BgL_tmpz00_2409); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2412;
BgL_tmpz00_2412 = 
(int)(8L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2412, BUNSPEC); } 
BgL_arg1192z00_786 = BgL_tmpz00_1176; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1177;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2415;
BgL_tmpz00_2415 = 
(int)(9L); 
BgL_tmpz00_1177 = 
BGL_MVALUES_VAL(BgL_tmpz00_2415); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2418;
BgL_tmpz00_2418 = 
(int)(9L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2418, BUNSPEC); } 
BgL_arg1193z00_787 = BgL_tmpz00_1177; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1178;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2421;
BgL_tmpz00_2421 = 
(int)(10L); 
BgL_tmpz00_1178 = 
BGL_MVALUES_VAL(BgL_tmpz00_2421); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2424;
BgL_tmpz00_2424 = 
(int)(10L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2424, BUNSPEC); } 
BgL_arg1194z00_788 = BgL_tmpz00_1178; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 11))
{ /* Ieee/control5.scm 204 */
return 
BGL_PROCEDURE_CALL11(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1162z00_779, BgL_arg1163z00_780, BgL_arg1167z00_781, BgL_arg1169z00_782, BgL_arg1170z00_783, BgL_arg1187z00_784, BgL_arg1189z00_785, BgL_arg1192z00_786, BgL_arg1193z00_787, BgL_arg1194z00_788);}  else 
{ /* Ieee/control5.scm 204 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1763z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 12L : 

{ /* Ieee/control5.scm 217 */
 obj_t BgL_arg1195z00_789; obj_t BgL_arg1196z00_790; obj_t BgL_arg1197z00_791; obj_t BgL_arg1201z00_792; obj_t BgL_arg1202z00_793; obj_t BgL_arg1203z00_794; obj_t BgL_arg1206z00_795; obj_t BgL_arg1207z00_796; obj_t BgL_arg1208z00_797; obj_t BgL_arg1211z00_798; obj_t BgL_arg1213z00_799;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1179;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2444;
BgL_tmpz00_2444 = 
(int)(1L); 
BgL_tmpz00_1179 = 
BGL_MVALUES_VAL(BgL_tmpz00_2444); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2447;
BgL_tmpz00_2447 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2447, BUNSPEC); } 
BgL_arg1195z00_789 = BgL_tmpz00_1179; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1180;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2450;
BgL_tmpz00_2450 = 
(int)(2L); 
BgL_tmpz00_1180 = 
BGL_MVALUES_VAL(BgL_tmpz00_2450); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2453;
BgL_tmpz00_2453 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2453, BUNSPEC); } 
BgL_arg1196z00_790 = BgL_tmpz00_1180; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1181;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2456;
BgL_tmpz00_2456 = 
(int)(3L); 
BgL_tmpz00_1181 = 
BGL_MVALUES_VAL(BgL_tmpz00_2456); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2459;
BgL_tmpz00_2459 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2459, BUNSPEC); } 
BgL_arg1197z00_791 = BgL_tmpz00_1181; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1182;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2462;
BgL_tmpz00_2462 = 
(int)(4L); 
BgL_tmpz00_1182 = 
BGL_MVALUES_VAL(BgL_tmpz00_2462); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2465;
BgL_tmpz00_2465 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2465, BUNSPEC); } 
BgL_arg1201z00_792 = BgL_tmpz00_1182; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1183;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2468;
BgL_tmpz00_2468 = 
(int)(5L); 
BgL_tmpz00_1183 = 
BGL_MVALUES_VAL(BgL_tmpz00_2468); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2471;
BgL_tmpz00_2471 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2471, BUNSPEC); } 
BgL_arg1202z00_793 = BgL_tmpz00_1183; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1184;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2474;
BgL_tmpz00_2474 = 
(int)(6L); 
BgL_tmpz00_1184 = 
BGL_MVALUES_VAL(BgL_tmpz00_2474); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2477;
BgL_tmpz00_2477 = 
(int)(6L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2477, BUNSPEC); } 
BgL_arg1203z00_794 = BgL_tmpz00_1184; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1185;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2480;
BgL_tmpz00_2480 = 
(int)(7L); 
BgL_tmpz00_1185 = 
BGL_MVALUES_VAL(BgL_tmpz00_2480); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2483;
BgL_tmpz00_2483 = 
(int)(7L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2483, BUNSPEC); } 
BgL_arg1206z00_795 = BgL_tmpz00_1185; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1186;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2486;
BgL_tmpz00_2486 = 
(int)(8L); 
BgL_tmpz00_1186 = 
BGL_MVALUES_VAL(BgL_tmpz00_2486); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2489;
BgL_tmpz00_2489 = 
(int)(8L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2489, BUNSPEC); } 
BgL_arg1207z00_796 = BgL_tmpz00_1186; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1187;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2492;
BgL_tmpz00_2492 = 
(int)(9L); 
BgL_tmpz00_1187 = 
BGL_MVALUES_VAL(BgL_tmpz00_2492); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2495;
BgL_tmpz00_2495 = 
(int)(9L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2495, BUNSPEC); } 
BgL_arg1208z00_797 = BgL_tmpz00_1187; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1188;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2498;
BgL_tmpz00_2498 = 
(int)(10L); 
BgL_tmpz00_1188 = 
BGL_MVALUES_VAL(BgL_tmpz00_2498); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2501;
BgL_tmpz00_2501 = 
(int)(10L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2501, BUNSPEC); } 
BgL_arg1211z00_798 = BgL_tmpz00_1188; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1189;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2504;
BgL_tmpz00_2504 = 
(int)(11L); 
BgL_tmpz00_1189 = 
BGL_MVALUES_VAL(BgL_tmpz00_2504); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2507;
BgL_tmpz00_2507 = 
(int)(11L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2507, BUNSPEC); } 
BgL_arg1213z00_799 = BgL_tmpz00_1189; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 12))
{ /* Ieee/control5.scm 216 */
return 
BGL_PROCEDURE_CALL12(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1195z00_789, BgL_arg1196z00_790, BgL_arg1197z00_791, BgL_arg1201z00_792, BgL_arg1202z00_793, BgL_arg1203z00_794, BgL_arg1206z00_795, BgL_arg1207z00_796, BgL_arg1208z00_797, BgL_arg1211z00_798, BgL_arg1213z00_799);}  else 
{ /* Ieee/control5.scm 216 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1784z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 13L : 

{ /* Ieee/control5.scm 230 */
 obj_t BgL_arg1215z00_800; obj_t BgL_arg1216z00_801; obj_t BgL_arg1217z00_802; obj_t BgL_arg1219z00_803; obj_t BgL_arg1224z00_804; obj_t BgL_arg1225z00_805; obj_t BgL_arg1226z00_806; obj_t BgL_arg1230z00_807; obj_t BgL_arg1231z00_808; obj_t BgL_arg1232z00_809; obj_t BgL_arg1234z00_810; obj_t BgL_arg1235z00_811;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1190;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2528;
BgL_tmpz00_2528 = 
(int)(1L); 
BgL_tmpz00_1190 = 
BGL_MVALUES_VAL(BgL_tmpz00_2528); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2531;
BgL_tmpz00_2531 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2531, BUNSPEC); } 
BgL_arg1215z00_800 = BgL_tmpz00_1190; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1191;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2534;
BgL_tmpz00_2534 = 
(int)(2L); 
BgL_tmpz00_1191 = 
BGL_MVALUES_VAL(BgL_tmpz00_2534); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2537;
BgL_tmpz00_2537 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2537, BUNSPEC); } 
BgL_arg1216z00_801 = BgL_tmpz00_1191; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1192;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2540;
BgL_tmpz00_2540 = 
(int)(3L); 
BgL_tmpz00_1192 = 
BGL_MVALUES_VAL(BgL_tmpz00_2540); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2543;
BgL_tmpz00_2543 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2543, BUNSPEC); } 
BgL_arg1217z00_802 = BgL_tmpz00_1192; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1193;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2546;
BgL_tmpz00_2546 = 
(int)(4L); 
BgL_tmpz00_1193 = 
BGL_MVALUES_VAL(BgL_tmpz00_2546); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2549;
BgL_tmpz00_2549 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2549, BUNSPEC); } 
BgL_arg1219z00_803 = BgL_tmpz00_1193; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1194;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2552;
BgL_tmpz00_2552 = 
(int)(5L); 
BgL_tmpz00_1194 = 
BGL_MVALUES_VAL(BgL_tmpz00_2552); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2555;
BgL_tmpz00_2555 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2555, BUNSPEC); } 
BgL_arg1224z00_804 = BgL_tmpz00_1194; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1195;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2558;
BgL_tmpz00_2558 = 
(int)(6L); 
BgL_tmpz00_1195 = 
BGL_MVALUES_VAL(BgL_tmpz00_2558); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2561;
BgL_tmpz00_2561 = 
(int)(6L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2561, BUNSPEC); } 
BgL_arg1225z00_805 = BgL_tmpz00_1195; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1196;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2564;
BgL_tmpz00_2564 = 
(int)(7L); 
BgL_tmpz00_1196 = 
BGL_MVALUES_VAL(BgL_tmpz00_2564); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2567;
BgL_tmpz00_2567 = 
(int)(7L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2567, BUNSPEC); } 
BgL_arg1226z00_806 = BgL_tmpz00_1196; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1197;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2570;
BgL_tmpz00_2570 = 
(int)(8L); 
BgL_tmpz00_1197 = 
BGL_MVALUES_VAL(BgL_tmpz00_2570); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2573;
BgL_tmpz00_2573 = 
(int)(8L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2573, BUNSPEC); } 
BgL_arg1230z00_807 = BgL_tmpz00_1197; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1198;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2576;
BgL_tmpz00_2576 = 
(int)(9L); 
BgL_tmpz00_1198 = 
BGL_MVALUES_VAL(BgL_tmpz00_2576); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2579;
BgL_tmpz00_2579 = 
(int)(9L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2579, BUNSPEC); } 
BgL_arg1231z00_808 = BgL_tmpz00_1198; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1199;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2582;
BgL_tmpz00_2582 = 
(int)(10L); 
BgL_tmpz00_1199 = 
BGL_MVALUES_VAL(BgL_tmpz00_2582); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2585;
BgL_tmpz00_2585 = 
(int)(10L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2585, BUNSPEC); } 
BgL_arg1232z00_809 = BgL_tmpz00_1199; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1200;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2588;
BgL_tmpz00_2588 = 
(int)(11L); 
BgL_tmpz00_1200 = 
BGL_MVALUES_VAL(BgL_tmpz00_2588); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2591;
BgL_tmpz00_2591 = 
(int)(11L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2591, BUNSPEC); } 
BgL_arg1234z00_810 = BgL_tmpz00_1200; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1201;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2594;
BgL_tmpz00_2594 = 
(int)(12L); 
BgL_tmpz00_1201 = 
BGL_MVALUES_VAL(BgL_tmpz00_2594); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2597;
BgL_tmpz00_2597 = 
(int)(12L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2597, BUNSPEC); } 
BgL_arg1235z00_811 = BgL_tmpz00_1201; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 13))
{ /* Ieee/control5.scm 229 */
return 
BGL_PROCEDURE_CALL13(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1215z00_800, BgL_arg1216z00_801, BgL_arg1217z00_802, BgL_arg1219z00_803, BgL_arg1224z00_804, BgL_arg1225z00_805, BgL_arg1226z00_806, BgL_arg1230z00_807, BgL_arg1231z00_808, BgL_arg1232z00_809, BgL_arg1234z00_810, BgL_arg1235z00_811);}  else 
{ /* Ieee/control5.scm 229 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1807z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 14L : 

{ /* Ieee/control5.scm 244 */
 obj_t BgL_arg1236z00_812; obj_t BgL_arg1239z00_813; obj_t BgL_arg1241z00_814; obj_t BgL_arg1242z00_815; obj_t BgL_arg1248z00_816; obj_t BgL_arg1249z00_817; obj_t BgL_arg1252z00_818; obj_t BgL_arg1253z00_819; obj_t BgL_arg1254z00_820; obj_t BgL_arg1258z00_821; obj_t BgL_arg1259z00_822; obj_t BgL_arg1261z00_823; obj_t BgL_arg1262z00_824;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1202;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2619;
BgL_tmpz00_2619 = 
(int)(1L); 
BgL_tmpz00_1202 = 
BGL_MVALUES_VAL(BgL_tmpz00_2619); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2622;
BgL_tmpz00_2622 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2622, BUNSPEC); } 
BgL_arg1236z00_812 = BgL_tmpz00_1202; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1203;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2625;
BgL_tmpz00_2625 = 
(int)(2L); 
BgL_tmpz00_1203 = 
BGL_MVALUES_VAL(BgL_tmpz00_2625); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2628;
BgL_tmpz00_2628 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2628, BUNSPEC); } 
BgL_arg1239z00_813 = BgL_tmpz00_1203; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1204;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2631;
BgL_tmpz00_2631 = 
(int)(3L); 
BgL_tmpz00_1204 = 
BGL_MVALUES_VAL(BgL_tmpz00_2631); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2634;
BgL_tmpz00_2634 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2634, BUNSPEC); } 
BgL_arg1241z00_814 = BgL_tmpz00_1204; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1205;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2637;
BgL_tmpz00_2637 = 
(int)(4L); 
BgL_tmpz00_1205 = 
BGL_MVALUES_VAL(BgL_tmpz00_2637); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2640;
BgL_tmpz00_2640 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2640, BUNSPEC); } 
BgL_arg1242z00_815 = BgL_tmpz00_1205; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1206;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2643;
BgL_tmpz00_2643 = 
(int)(5L); 
BgL_tmpz00_1206 = 
BGL_MVALUES_VAL(BgL_tmpz00_2643); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2646;
BgL_tmpz00_2646 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2646, BUNSPEC); } 
BgL_arg1248z00_816 = BgL_tmpz00_1206; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1207;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2649;
BgL_tmpz00_2649 = 
(int)(6L); 
BgL_tmpz00_1207 = 
BGL_MVALUES_VAL(BgL_tmpz00_2649); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2652;
BgL_tmpz00_2652 = 
(int)(6L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2652, BUNSPEC); } 
BgL_arg1249z00_817 = BgL_tmpz00_1207; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1208;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2655;
BgL_tmpz00_2655 = 
(int)(7L); 
BgL_tmpz00_1208 = 
BGL_MVALUES_VAL(BgL_tmpz00_2655); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2658;
BgL_tmpz00_2658 = 
(int)(7L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2658, BUNSPEC); } 
BgL_arg1252z00_818 = BgL_tmpz00_1208; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1209;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2661;
BgL_tmpz00_2661 = 
(int)(8L); 
BgL_tmpz00_1209 = 
BGL_MVALUES_VAL(BgL_tmpz00_2661); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2664;
BgL_tmpz00_2664 = 
(int)(8L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2664, BUNSPEC); } 
BgL_arg1253z00_819 = BgL_tmpz00_1209; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1210;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2667;
BgL_tmpz00_2667 = 
(int)(9L); 
BgL_tmpz00_1210 = 
BGL_MVALUES_VAL(BgL_tmpz00_2667); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2670;
BgL_tmpz00_2670 = 
(int)(9L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2670, BUNSPEC); } 
BgL_arg1254z00_820 = BgL_tmpz00_1210; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1211;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2673;
BgL_tmpz00_2673 = 
(int)(10L); 
BgL_tmpz00_1211 = 
BGL_MVALUES_VAL(BgL_tmpz00_2673); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2676;
BgL_tmpz00_2676 = 
(int)(10L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2676, BUNSPEC); } 
BgL_arg1258z00_821 = BgL_tmpz00_1211; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1212;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2679;
BgL_tmpz00_2679 = 
(int)(11L); 
BgL_tmpz00_1212 = 
BGL_MVALUES_VAL(BgL_tmpz00_2679); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2682;
BgL_tmpz00_2682 = 
(int)(11L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2682, BUNSPEC); } 
BgL_arg1259z00_822 = BgL_tmpz00_1212; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1213;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2685;
BgL_tmpz00_2685 = 
(int)(12L); 
BgL_tmpz00_1213 = 
BGL_MVALUES_VAL(BgL_tmpz00_2685); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2688;
BgL_tmpz00_2688 = 
(int)(12L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2688, BUNSPEC); } 
BgL_arg1261z00_823 = BgL_tmpz00_1213; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1214;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2691;
BgL_tmpz00_2691 = 
(int)(13L); 
BgL_tmpz00_1214 = 
BGL_MVALUES_VAL(BgL_tmpz00_2691); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2694;
BgL_tmpz00_2694 = 
(int)(13L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2694, BUNSPEC); } 
BgL_arg1262z00_824 = BgL_tmpz00_1214; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 14))
{ /* Ieee/control5.scm 243 */
return 
BGL_PROCEDURE_CALL14(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1236z00_812, BgL_arg1239z00_813, BgL_arg1241z00_814, BgL_arg1242z00_815, BgL_arg1248z00_816, BgL_arg1249z00_817, BgL_arg1252z00_818, BgL_arg1253z00_819, BgL_arg1254z00_820, BgL_arg1258z00_821, BgL_arg1259z00_822, BgL_arg1261z00_823, BgL_arg1262z00_824);}  else 
{ /* Ieee/control5.scm 243 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1832z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 15L : 

{ /* Ieee/control5.scm 259 */
 obj_t BgL_arg1263z00_825; obj_t BgL_arg1265z00_826; obj_t BgL_arg1266z00_827; obj_t BgL_arg1267z00_828; obj_t BgL_arg1269z00_829; obj_t BgL_arg1271z00_830; obj_t BgL_arg1274z00_831; obj_t BgL_arg1276z00_832; obj_t BgL_arg1278z00_833; obj_t BgL_arg1279z00_834; obj_t BgL_arg1280z00_835; obj_t BgL_arg1281z00_836; obj_t BgL_arg1282z00_837; obj_t BgL_arg1283z00_838;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1215;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2717;
BgL_tmpz00_2717 = 
(int)(1L); 
BgL_tmpz00_1215 = 
BGL_MVALUES_VAL(BgL_tmpz00_2717); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2720;
BgL_tmpz00_2720 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2720, BUNSPEC); } 
BgL_arg1263z00_825 = BgL_tmpz00_1215; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1216;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2723;
BgL_tmpz00_2723 = 
(int)(2L); 
BgL_tmpz00_1216 = 
BGL_MVALUES_VAL(BgL_tmpz00_2723); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2726;
BgL_tmpz00_2726 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2726, BUNSPEC); } 
BgL_arg1265z00_826 = BgL_tmpz00_1216; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1217;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2729;
BgL_tmpz00_2729 = 
(int)(3L); 
BgL_tmpz00_1217 = 
BGL_MVALUES_VAL(BgL_tmpz00_2729); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2732;
BgL_tmpz00_2732 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2732, BUNSPEC); } 
BgL_arg1266z00_827 = BgL_tmpz00_1217; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1218;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2735;
BgL_tmpz00_2735 = 
(int)(4L); 
BgL_tmpz00_1218 = 
BGL_MVALUES_VAL(BgL_tmpz00_2735); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2738;
BgL_tmpz00_2738 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2738, BUNSPEC); } 
BgL_arg1267z00_828 = BgL_tmpz00_1218; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1219;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2741;
BgL_tmpz00_2741 = 
(int)(5L); 
BgL_tmpz00_1219 = 
BGL_MVALUES_VAL(BgL_tmpz00_2741); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2744;
BgL_tmpz00_2744 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2744, BUNSPEC); } 
BgL_arg1269z00_829 = BgL_tmpz00_1219; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1220;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2747;
BgL_tmpz00_2747 = 
(int)(6L); 
BgL_tmpz00_1220 = 
BGL_MVALUES_VAL(BgL_tmpz00_2747); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2750;
BgL_tmpz00_2750 = 
(int)(6L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2750, BUNSPEC); } 
BgL_arg1271z00_830 = BgL_tmpz00_1220; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1221;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2753;
BgL_tmpz00_2753 = 
(int)(7L); 
BgL_tmpz00_1221 = 
BGL_MVALUES_VAL(BgL_tmpz00_2753); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2756;
BgL_tmpz00_2756 = 
(int)(7L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2756, BUNSPEC); } 
BgL_arg1274z00_831 = BgL_tmpz00_1221; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1222;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2759;
BgL_tmpz00_2759 = 
(int)(8L); 
BgL_tmpz00_1222 = 
BGL_MVALUES_VAL(BgL_tmpz00_2759); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2762;
BgL_tmpz00_2762 = 
(int)(8L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2762, BUNSPEC); } 
BgL_arg1276z00_832 = BgL_tmpz00_1222; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1223;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2765;
BgL_tmpz00_2765 = 
(int)(9L); 
BgL_tmpz00_1223 = 
BGL_MVALUES_VAL(BgL_tmpz00_2765); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2768;
BgL_tmpz00_2768 = 
(int)(9L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2768, BUNSPEC); } 
BgL_arg1278z00_833 = BgL_tmpz00_1223; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1224;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2771;
BgL_tmpz00_2771 = 
(int)(10L); 
BgL_tmpz00_1224 = 
BGL_MVALUES_VAL(BgL_tmpz00_2771); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2774;
BgL_tmpz00_2774 = 
(int)(10L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2774, BUNSPEC); } 
BgL_arg1279z00_834 = BgL_tmpz00_1224; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1225;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2777;
BgL_tmpz00_2777 = 
(int)(11L); 
BgL_tmpz00_1225 = 
BGL_MVALUES_VAL(BgL_tmpz00_2777); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2780;
BgL_tmpz00_2780 = 
(int)(11L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2780, BUNSPEC); } 
BgL_arg1280z00_835 = BgL_tmpz00_1225; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1226;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2783;
BgL_tmpz00_2783 = 
(int)(12L); 
BgL_tmpz00_1226 = 
BGL_MVALUES_VAL(BgL_tmpz00_2783); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2786;
BgL_tmpz00_2786 = 
(int)(12L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2786, BUNSPEC); } 
BgL_arg1281z00_836 = BgL_tmpz00_1226; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1227;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2789;
BgL_tmpz00_2789 = 
(int)(13L); 
BgL_tmpz00_1227 = 
BGL_MVALUES_VAL(BgL_tmpz00_2789); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2792;
BgL_tmpz00_2792 = 
(int)(13L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2792, BUNSPEC); } 
BgL_arg1282z00_837 = BgL_tmpz00_1227; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1228;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2795;
BgL_tmpz00_2795 = 
(int)(14L); 
BgL_tmpz00_1228 = 
BGL_MVALUES_VAL(BgL_tmpz00_2795); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2798;
BgL_tmpz00_2798 = 
(int)(14L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2798, BUNSPEC); } 
BgL_arg1283z00_838 = BgL_tmpz00_1228; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 15))
{ /* Ieee/control5.scm 258 */
return 
BGL_PROCEDURE_CALL15(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1263z00_825, BgL_arg1265z00_826, BgL_arg1266z00_827, BgL_arg1267z00_828, BgL_arg1269z00_829, BgL_arg1271z00_830, BgL_arg1274z00_831, BgL_arg1276z00_832, BgL_arg1278z00_833, BgL_arg1279z00_834, BgL_arg1280z00_835, BgL_arg1281z00_836, BgL_arg1282z00_837, BgL_arg1283z00_838);}  else 
{ /* Ieee/control5.scm 258 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1859z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;case 16L : 

{ /* Ieee/control5.scm 275 */
 obj_t BgL_arg1285z00_839; obj_t BgL_arg1287z00_840; obj_t BgL_arg1291z00_841; obj_t BgL_arg1292z00_842; obj_t BgL_arg1293z00_843; obj_t BgL_arg1295z00_844; obj_t BgL_arg1296z00_845; obj_t BgL_arg1298z00_846; obj_t BgL_arg1301z00_847; obj_t BgL_arg1322z00_848; obj_t BgL_arg1329z00_849; obj_t BgL_arg1330z00_850; obj_t BgL_arg1331z00_851; obj_t BgL_arg1332z00_852; obj_t BgL_arg1333z00_853;
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1229;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2822;
BgL_tmpz00_2822 = 
(int)(1L); 
BgL_tmpz00_1229 = 
BGL_MVALUES_VAL(BgL_tmpz00_2822); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2825;
BgL_tmpz00_2825 = 
(int)(1L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2825, BUNSPEC); } 
BgL_arg1285z00_839 = BgL_tmpz00_1229; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1230;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2828;
BgL_tmpz00_2828 = 
(int)(2L); 
BgL_tmpz00_1230 = 
BGL_MVALUES_VAL(BgL_tmpz00_2828); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2831;
BgL_tmpz00_2831 = 
(int)(2L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2831, BUNSPEC); } 
BgL_arg1287z00_840 = BgL_tmpz00_1230; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1231;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2834;
BgL_tmpz00_2834 = 
(int)(3L); 
BgL_tmpz00_1231 = 
BGL_MVALUES_VAL(BgL_tmpz00_2834); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2837;
BgL_tmpz00_2837 = 
(int)(3L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2837, BUNSPEC); } 
BgL_arg1291z00_841 = BgL_tmpz00_1231; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1232;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2840;
BgL_tmpz00_2840 = 
(int)(4L); 
BgL_tmpz00_1232 = 
BGL_MVALUES_VAL(BgL_tmpz00_2840); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2843;
BgL_tmpz00_2843 = 
(int)(4L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2843, BUNSPEC); } 
BgL_arg1292z00_842 = BgL_tmpz00_1232; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1233;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2846;
BgL_tmpz00_2846 = 
(int)(5L); 
BgL_tmpz00_1233 = 
BGL_MVALUES_VAL(BgL_tmpz00_2846); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2849;
BgL_tmpz00_2849 = 
(int)(5L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2849, BUNSPEC); } 
BgL_arg1293z00_843 = BgL_tmpz00_1233; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1234;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2852;
BgL_tmpz00_2852 = 
(int)(6L); 
BgL_tmpz00_1234 = 
BGL_MVALUES_VAL(BgL_tmpz00_2852); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2855;
BgL_tmpz00_2855 = 
(int)(6L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2855, BUNSPEC); } 
BgL_arg1295z00_844 = BgL_tmpz00_1234; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1235;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2858;
BgL_tmpz00_2858 = 
(int)(7L); 
BgL_tmpz00_1235 = 
BGL_MVALUES_VAL(BgL_tmpz00_2858); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2861;
BgL_tmpz00_2861 = 
(int)(7L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2861, BUNSPEC); } 
BgL_arg1296z00_845 = BgL_tmpz00_1235; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1236;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2864;
BgL_tmpz00_2864 = 
(int)(8L); 
BgL_tmpz00_1236 = 
BGL_MVALUES_VAL(BgL_tmpz00_2864); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2867;
BgL_tmpz00_2867 = 
(int)(8L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2867, BUNSPEC); } 
BgL_arg1298z00_846 = BgL_tmpz00_1236; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1237;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2870;
BgL_tmpz00_2870 = 
(int)(9L); 
BgL_tmpz00_1237 = 
BGL_MVALUES_VAL(BgL_tmpz00_2870); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2873;
BgL_tmpz00_2873 = 
(int)(9L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2873, BUNSPEC); } 
BgL_arg1301z00_847 = BgL_tmpz00_1237; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1238;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2876;
BgL_tmpz00_2876 = 
(int)(10L); 
BgL_tmpz00_1238 = 
BGL_MVALUES_VAL(BgL_tmpz00_2876); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2879;
BgL_tmpz00_2879 = 
(int)(10L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2879, BUNSPEC); } 
BgL_arg1322z00_848 = BgL_tmpz00_1238; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1239;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2882;
BgL_tmpz00_2882 = 
(int)(11L); 
BgL_tmpz00_1239 = 
BGL_MVALUES_VAL(BgL_tmpz00_2882); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2885;
BgL_tmpz00_2885 = 
(int)(11L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2885, BUNSPEC); } 
BgL_arg1329z00_849 = BgL_tmpz00_1239; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1240;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2888;
BgL_tmpz00_2888 = 
(int)(12L); 
BgL_tmpz00_1240 = 
BGL_MVALUES_VAL(BgL_tmpz00_2888); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2891;
BgL_tmpz00_2891 = 
(int)(12L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2891, BUNSPEC); } 
BgL_arg1330z00_850 = BgL_tmpz00_1240; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1241;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2894;
BgL_tmpz00_2894 = 
(int)(13L); 
BgL_tmpz00_1241 = 
BGL_MVALUES_VAL(BgL_tmpz00_2894); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2897;
BgL_tmpz00_2897 = 
(int)(13L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2897, BUNSPEC); } 
BgL_arg1331z00_851 = BgL_tmpz00_1241; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1242;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2900;
BgL_tmpz00_2900 = 
(int)(14L); 
BgL_tmpz00_1242 = 
BGL_MVALUES_VAL(BgL_tmpz00_2900); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2903;
BgL_tmpz00_2903 = 
(int)(14L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2903, BUNSPEC); } 
BgL_arg1332z00_852 = BgL_tmpz00_1242; } 
{ /* Ieee/control5.scm 79 */
 obj_t BgL_tmpz00_1243;
{ /* Ieee/control5.scm 79 */
 int BgL_tmpz00_2906;
BgL_tmpz00_2906 = 
(int)(15L); 
BgL_tmpz00_1243 = 
BGL_MVALUES_VAL(BgL_tmpz00_2906); } 
{ /* Ieee/control5.scm 87 */
 int BgL_tmpz00_2909;
BgL_tmpz00_2909 = 
(int)(15L); 
BGL_MVALUES_VAL_SET(BgL_tmpz00_2909, BUNSPEC); } 
BgL_arg1333z00_853 = BgL_tmpz00_1243; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, 16))
{ /* Ieee/control5.scm 274 */
return 
BGL_PROCEDURE_CALL16(BgL_consumerz00_9, BgL_res0z00_730, BgL_arg1285z00_839, BgL_arg1287z00_840, BgL_arg1291z00_841, BgL_arg1292z00_842, BgL_arg1293z00_843, BgL_arg1295z00_844, BgL_arg1296z00_845, BgL_arg1298z00_846, BgL_arg1301z00_847, BgL_arg1322z00_848, BgL_arg1329z00_849, BgL_arg1330z00_850, BgL_arg1331z00_851, BgL_arg1332z00_852, BgL_arg1333z00_853);}  else 
{ /* Ieee/control5.scm 274 */
FAILURE(BGl_string1645z00zz__r5_control_features_6_4z00,BGl_list1888z00zz__r5_control_features_6_4z00,BgL_consumerz00_9);} } break;
default: 
{ /* Ieee/control5.scm 291 */
 obj_t BgL_valz00_1373;
{ /* Ieee/control5.scm 291 */
 bool_t BgL_test2103z00_2934;
if(
PAIRP(BgL_res0z00_730))
{ /* Ieee/control5.scm 291 */
BgL_test2103z00_2934 = ((bool_t)1)
; }  else 
{ /* Ieee/control5.scm 291 */
BgL_test2103z00_2934 = 
NULLP(BgL_res0z00_730)
; } 
if(BgL_test2103z00_2934)
{ /* Ieee/control5.scm 291 */
BgL_valz00_1373 = BgL_res0z00_730; }  else 
{ 
 obj_t BgL_auxz00_2938;
BgL_auxz00_2938 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(8926L), BGl_string1651z00zz__r5_control_features_6_4z00, BGl_string1652z00zz__r5_control_features_6_4z00, BgL_res0z00_730); 
FAILURE(BgL_auxz00_2938,BFALSE,BFALSE);} } 
{ /* Ieee/control5.scm 291 */
 long BgL_len1632z00_1374;
BgL_len1632z00_1374 = 
(int)(
bgl_list_length(BgL_valz00_1373)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_consumerz00_9, BgL_len1632z00_1374))
{ /* Ieee/control5.scm 291 */
return 
apply(BgL_consumerz00_9, BgL_valz00_1373);}  else 
{ /* Ieee/control5.scm 291 */
FAILURE(BGl_symbol1653z00zz__r5_control_features_6_4z00,BGl_string1654z00zz__r5_control_features_6_4z00,BGl_list1655z00zz__r5_control_features_6_4z00);} } } } } } } } 

}



/* &call-with-values */
obj_t BGl_z62callzd2withzd2valuesz62zz__r5_control_features_6_4z00(obj_t BgL_envz00_1311, obj_t BgL_producerz00_1312, obj_t BgL_consumerz00_1313)
{
{ /* Ieee/control5.scm 119 */
{ /* Ieee/control5.scm 120 */
 obj_t BgL_auxz00_2958; obj_t BgL_auxz00_2951;
if(
PROCEDUREP(BgL_consumerz00_1313))
{ /* Ieee/control5.scm 120 */
BgL_auxz00_2958 = BgL_consumerz00_1313
; }  else 
{ 
 obj_t BgL_auxz00_2961;
BgL_auxz00_2961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(4604L), BGl_string1919z00zz__r5_control_features_6_4z00, BGl_string1920z00zz__r5_control_features_6_4z00, BgL_consumerz00_1313); 
FAILURE(BgL_auxz00_2961,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_producerz00_1312))
{ /* Ieee/control5.scm 120 */
BgL_auxz00_2951 = BgL_producerz00_1312
; }  else 
{ 
 obj_t BgL_auxz00_2954;
BgL_auxz00_2954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1637z00zz__r5_control_features_6_4z00, 
BINT(4604L), BGl_string1919z00zz__r5_control_features_6_4z00, BGl_string1920z00zz__r5_control_features_6_4z00, BgL_producerz00_1312); 
FAILURE(BgL_auxz00_2954,BFALSE,BFALSE);} 
return 
BGl_callzd2withzd2valuesz00zz__r5_control_features_6_4z00(BgL_auxz00_2951, BgL_auxz00_2958);} } 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r5_control_features_6_4z00(void)
{
{ /* Ieee/control5.scm 14 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string1921z00zz__r5_control_features_6_4z00));} 

}

#ifdef __cplusplus
}
#endif
