/*===========================================================================*/
/*   (Llib/bit.scm)                                                          */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Llib/bit.scm -indent -o objs/obj_s/Llib/bit.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___BIT_TYPE_DEFINITIONS
#define BGL___BIT_TYPE_DEFINITIONS
#endif // BGL___BIT_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

BGL_EXPORTED_DECL long BGl_bitzd2andzd2zz__bitz00(long, long);
static obj_t BGl_z62bitzd2oru8zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2andu16zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_bitzd2xoru16zd2zz__bitz00(uint16_t, uint16_t);
static obj_t BGl_z62bitzd2xors32zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2lshs8zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2andzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_bitzd2xorzd2zz__bitz00(long, long);
BGL_EXPORTED_DECL int8_t BGl_bitzd2ands8zd2zz__bitz00(int8_t, int8_t);
static obj_t BGl_z62bitzd2xorzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2urshu32zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2ors64zb0zz__bitz00(obj_t, obj_t, obj_t);
extern obj_t bgl_bignum_and(obj_t, obj_t);
static obj_t BGl_z62bitzd2lshbxzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2rshelongzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_bitzd2andbxzd2zz__bitz00(obj_t, obj_t);
extern obj_t bgl_bignum_or(obj_t, obj_t);
static obj_t BGl_z62bitzd2ands64zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_bitzd2xors64zd2zz__bitz00(int64_t, int64_t);
BGL_EXPORTED_DECL int32_t BGl_bitzd2ors32zd2zz__bitz00(int32_t, int32_t);
static obj_t BGl_z62bitzd2xorllongzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2oru32zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_bitzd2lshs16zd2zz__bitz00(int16_t, long);
BGL_EXPORTED_DECL int32_t BGl_bitzd2rshs32zd2zz__bitz00(int32_t, long);
static obj_t BGl_requirezd2initializa7ationz75zz__bitz00 = BUNSPEC;
static obj_t BGl_z62bitzd2urshzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_bitzd2nots32zd2zz__bitz00(int32_t);
static obj_t BGl_z62bitzd2rshs16zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2nots16zb0zz__bitz00(obj_t, obj_t);
static obj_t BGl_z62bitzd2andu32zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint32_t BGl_bitzd2xoru32zd2zz__bitz00(uint32_t, uint32_t);
static obj_t BGl_z62bitzd2lshu8zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2xoru16zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2orelongzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_bitzd2urshs16zd2zz__bitz00(int16_t, long);
BGL_EXPORTED_DECL uint8_t BGl_bitzd2andu8zd2zz__bitz00(uint8_t, uint8_t);
BGL_EXPORTED_DECL long BGl_bitzd2rshelongzd2zz__bitz00(long, long);
static obj_t BGl_z62bitzd2lshllongzb0zz__bitz00(obj_t, obj_t, obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__bitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL uint64_t BGl_bitzd2andu64zd2zz__bitz00(uint64_t, uint64_t);
static obj_t BGl_z62bitzd2andllongzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_bitzd2xorllongzd2zz__bitz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
static obj_t BGl_z62bitzd2xors64zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2urshelongzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_bitzd2oru16zd2zz__bitz00(uint16_t, uint16_t);
BGL_EXPORTED_DECL int32_t BGl_bitzd2lshs32zd2zz__bitz00(int32_t, long);
BGL_EXPORTED_DECL obj_t BGl_bitzd2maskbxzd2zz__bitz00(obj_t, long);
static obj_t BGl_z62bitzd2lshs16zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2urshu64zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_bitzd2rshu16zd2zz__bitz00(int16_t, long);
static obj_t BGl_z62bitzd2rshs32zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_bitzd2notu16zd2zz__bitz00(uint16_t);
static obj_t BGl_z62bitzd2nots32zb0zz__bitz00(obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_bitzd2lshs8zd2zz__bitz00(int8_t, long);
extern obj_t bgl_bignum_lsh(obj_t, long);
static obj_t BGl_z62bitzd2xoru32zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_bitzd2urshs32zd2zz__bitz00(int32_t, long);
BGL_EXPORTED_DECL int64_t BGl_bitzd2ors64zd2zz__bitz00(int64_t, int64_t);
BGL_EXPORTED_DECL obj_t BGl_bitzd2lshbxzd2zz__bitz00(obj_t, long);
static obj_t BGl_z62bitzd2nots8zb0zz__bitz00(obj_t, obj_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_bitzd2lshllongzd2zz__bitz00(BGL_LONGLONG_T, long);
static obj_t BGl_z62bitzd2oru64zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_bitzd2rshs64zd2zz__bitz00(int64_t, long);
BGL_EXPORTED_DECL int64_t BGl_bitzd2nots64zd2zz__bitz00(int64_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_bitzd2andllongzd2zz__bitz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
static obj_t BGl_z62bitzd2notbxzb0zz__bitz00(obj_t, obj_t);
static obj_t BGl_z62bitzd2notllongzb0zz__bitz00(obj_t, obj_t);
static obj_t BGl_z62bitzd2xorelongzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2andu64zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_bitzd2xoru64zd2zz__bitz00(uint64_t, uint64_t);
BGL_EXPORTED_DECL uint32_t BGl_bitzd2oru32zd2zz__bitz00(uint32_t, uint32_t);
BGL_EXPORTED_DECL uint16_t BGl_bitzd2lshu16zd2zz__bitz00(uint16_t, long);
static obj_t BGl_z62bitzd2lshs32zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2orzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint32_t BGl_bitzd2rshu32zd2zz__bitz00(uint32_t, long);
BGL_EXPORTED_DECL uint32_t BGl_bitzd2notu32zd2zz__bitz00(uint32_t);
static obj_t BGl_z62bitzd2maskbxzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2rshu16zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2notu16zb0zz__bitz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_bitzd2lshu8zd2zz__bitz00(uint8_t, long);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_bitzd2orllongzd2zz__bitz00(BGL_LONGLONG_T, BGL_LONGLONG_T);
BGL_EXPORTED_DECL uint16_t BGl_bitzd2urshu16zd2zz__bitz00(uint16_t, long);
static obj_t BGl_importedzd2moduleszd2initz00zz__bitz00(void);
static obj_t BGl_z62bitzd2lshelongzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_gczd2rootszd2initz00zz__bitz00(void);
static obj_t BGl_z62bitzd2notu8zb0zz__bitz00(obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_bitzd2lshs64zd2zz__bitz00(int64_t, long);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_bitzd2notllongzd2zz__bitz00(BGL_LONGLONG_T);
static obj_t BGl_z62bitzd2andelongzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_bitzd2xorelongzd2zz__bitz00(long, long);
static obj_t BGl_z62bitzd2rshs64zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2nots64zb0zz__bitz00(obj_t, obj_t);
static obj_t BGl_z62bitzd2xoru64zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int64_t BGl_bitzd2urshs64zd2zz__bitz00(int64_t, long);
BGL_EXPORTED_DECL uint32_t BGl_bitzd2lshu32zd2zz__bitz00(uint32_t, long);
static obj_t BGl_z62bitzd2lshu16zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_bitzd2ors8zd2zz__bitz00(int8_t, int8_t);
static obj_t BGl_z62bitzd2rshu32zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_bitzd2rshzd2zz__bitz00(long, long);
static obj_t BGl_z62bitzd2notu32zb0zz__bitz00(obj_t, obj_t);
static obj_t BGl_z62bitzd2rshzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_bitzd2orbxzd2zz__bitz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_bitzd2lshelongzd2zz__bitz00(long, long);
BGL_EXPORTED_DECL uint32_t BGl_bitzd2urshu32zd2zz__bitz00(uint32_t, long);
BGL_EXPORTED_DECL int8_t BGl_bitzd2nots8zd2zz__bitz00(int8_t);
static obj_t BGl_z62bitzd2rshs8zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_bitzd2oru64zd2zz__bitz00(uint64_t, uint64_t);
extern obj_t bgl_bignum_not(obj_t);
BGL_EXPORTED_DECL long BGl_bitzd2andelongzd2zz__bitz00(long, long);
static obj_t BGl_z62bitzd2lshs64zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2xors8zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_bitzd2notbxzd2zz__bitz00(obj_t);
static obj_t BGl_z62bitzd2notelongzb0zz__bitz00(obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_bitzd2rshu64zd2zz__bitz00(uint64_t, long);
static obj_t BGl_z62bitzd2rshbxzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_bitzd2notu64zd2zz__bitz00(uint64_t);
static obj_t BGl_z62bitzd2xorbxzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2lshu32zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_bitzd2urshs8zd2zz__bitz00(int8_t, long);
BGL_EXPORTED_DECL int16_t BGl_bitzd2ands16zd2zz__bitz00(int16_t, int16_t);
BGL_EXPORTED_DECL uint8_t BGl_bitzd2oru8zd2zz__bitz00(uint8_t, uint8_t);
BGL_EXPORTED_DECL long BGl_bitzd2orelongzd2zz__bitz00(long, long);
extern obj_t bgl_bignum_mask(obj_t, long);
BGL_EXPORTED_DECL uint8_t BGl_bitzd2notu8zd2zz__bitz00(uint8_t);
static obj_t BGl_z62bitzd2rshu8zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2urshs16zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_bitzd2lshu64zd2zz__bitz00(uint64_t, long);
BGL_EXPORTED_DECL long BGl_bitzd2notelongzd2zz__bitz00(long);
static obj_t BGl_z62bitzd2xoru8zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2rshu64zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2notu64zb0zz__bitz00(obj_t, obj_t);
BGL_EXPORTED_DECL unsigned BGL_LONGLONG_T BGl_bitzd2urshllongzd2zz__bitz00(unsigned BGL_LONGLONG_T, long);
static obj_t BGl_z62bitzd2ors16zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint64_t BGl_bitzd2urshu64zd2zz__bitz00(uint64_t, long);
BGL_EXPORTED_DECL long BGl_bitzd2orzd2zz__bitz00(long, long);
BGL_EXPORTED_DECL unsigned long BGl_bitzd2urshzd2zz__bitz00(unsigned long, long);
BGL_EXPORTED_DECL long BGl_bitzd2lshzd2zz__bitz00(long, long);
BGL_EXPORTED_DECL int32_t BGl_bitzd2ands32zd2zz__bitz00(int32_t, int32_t);
static obj_t BGl_z62bitzd2lshzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_bitzd2urshu8zd2zz__bitz00(uint8_t, long);
BGL_EXPORTED_DECL long BGl_bitzd2notzd2zz__bitz00(long);
static obj_t BGl_z62bitzd2urshs8zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2ands16zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_bitzd2xors16zd2zz__bitz00(int16_t, int16_t);
static obj_t BGl_z62bitzd2notzb0zz__bitz00(obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_bitzd2rshs8zd2zz__bitz00(int8_t, long);
extern obj_t bgl_bignum_rsh(obj_t, long);
static obj_t BGl_z62bitzd2urshs32zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2ands8zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int8_t BGl_bitzd2xors8zd2zz__bitz00(int8_t, int8_t);
BGL_EXPORTED_DECL obj_t BGl_bitzd2rshbxzd2zz__bitz00(obj_t, long);
extern obj_t bgl_bignum_xor(obj_t, obj_t);
static obj_t BGl_z62bitzd2lshu64zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2rshllongzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2andbxzb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_bitzd2xorbxzd2zz__bitz00(obj_t, obj_t);
static obj_t BGl_z62bitzd2ors32zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint16_t BGl_bitzd2andu16zd2zz__bitz00(uint16_t, uint16_t);
static obj_t BGl_z62bitzd2ands32zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int32_t BGl_bitzd2xors32zd2zz__bitz00(int32_t, int32_t);
static obj_t BGl_z62bitzd2ors8zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2urshu8zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2xors16zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_bitzd2rshu8zd2zz__bitz00(uint8_t, long);
static obj_t BGl_z62bitzd2orbxzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2orllongzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2urshu16zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2andu8zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL uint8_t BGl_bitzd2xoru8zd2zz__bitz00(uint8_t, uint8_t);
BGL_EXPORTED_DECL BGL_LONGLONG_T BGl_bitzd2rshllongzd2zz__bitz00(BGL_LONGLONG_T, long);
BGL_EXPORTED_DECL int64_t BGl_bitzd2ands64zd2zz__bitz00(int64_t, int64_t);
BGL_EXPORTED_DECL unsigned long BGl_bitzd2urshelongzd2zz__bitz00(unsigned long, long);
BGL_EXPORTED_DECL int16_t BGl_bitzd2ors16zd2zz__bitz00(int16_t, int16_t);
static obj_t BGl_z62bitzd2oru16zb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2urshllongzb0zz__bitz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62bitzd2urshs64zb0zz__bitz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL int16_t BGl_bitzd2rshs16zd2zz__bitz00(int16_t, long);
BGL_EXPORTED_DECL int16_t BGl_bitzd2nots16zd2zz__bitz00(int16_t);
BGL_EXPORTED_DECL uint32_t BGl_bitzd2andu32zd2zz__bitz00(uint32_t, uint32_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2oru32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2oru32za7b1792za7, BGl_z62bitzd2oru32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshu16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshu16za71793za7, BGl_z62bitzd2lshu16zb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1790z00zz__bitz00, BgL_bgl_string1790za700za7za7_1794za7, "&bit-lshbx", 10 );
BGL_DEFINE_STRING(BGl_string1791z00zz__bitz00, BgL_bgl_string1791za700za7za7_1795za7, "__bit", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshu32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshu32za71796za7, BGl_z62bitzd2rshu32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2notu32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notu32za71797za7, BGl_z62bitzd2notu32zb0zz__bitz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2oru8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2oru8za7b01798za7, BGl_z62bitzd2oru8zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xors32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xors32za71799za7, BGl_z62bitzd2xors32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2orelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2orelong1800z00, BGl_z62bitzd2orelongzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshs16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshs161801z00, BGl_z62bitzd2urshs16zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2notu8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notu8za7b1802za7, BGl_z62bitzd2notu8zb0zz__bitz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2andu8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andu8za7b1803za7, BGl_z62bitzd2andu8zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshu64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshu64za71804za7, BGl_z62bitzd2lshu64zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2notelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notelon1805z00, BGl_z62bitzd2notelongzb0zz__bitz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshllon1806z00, BGl_z62bitzd2rshllongzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshllo1807z00, BGl_z62bitzd2urshllongzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshs64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshs641808z00, BGl_z62bitzd2urshs64zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshza7b01809za7, BGl_z62bitzd2urshzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2andu32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andu32za71810za7, BGl_z62bitzd2andu32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xoru16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xoru16za71811za7, BGl_z62bitzd2xoru16zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xorzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xorza7b0za71812z00, BGl_z62bitzd2xorzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2orbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2orbxza7b01813za7, BGl_z62bitzd2orbxzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2notbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notbxza7b1814za7, BGl_z62bitzd2notbxzb0zz__bitz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2andbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andbxza7b1815za7, BGl_z62bitzd2andbxzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xoru64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xoru64za71816za7, BGl_z62bitzd2xoru64zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2ors32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ors32za7b1817za7, BGl_z62bitzd2ors32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshs16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshs16za71818za7, BGl_z62bitzd2lshs16zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshs32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshs32za71819za7, BGl_z62bitzd2rshs32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2nots32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2nots32za71820za7, BGl_z62bitzd2nots32zb0zz__bitz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshu8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshu8za7b1821za7, BGl_z62bitzd2lshu8zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshu8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshu8za7b1822za7, BGl_z62bitzd2rshu8zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshs64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshs64za71823za7, BGl_z62bitzd2lshs64zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xoru8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xoru8za7b1824za7, BGl_z62bitzd2xoru8zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xorllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xorllon1825z00, BGl_z62bitzd2xorllongzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2oru16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2oru16za7b1826za7, BGl_z62bitzd2oru16zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshza7b0za71827z00, BGl_z62bitzd2lshzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshu16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshu16za71828za7, BGl_z62bitzd2rshu16zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2ands32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ands32za71829za7, BGl_z62bitzd2ands32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2ors8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ors8za7b01830za7, BGl_z62bitzd2ors8zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2notu16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notu16za71831za7, BGl_z62bitzd2notu16zb0zz__bitz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshu8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshu8za71832za7, BGl_z62bitzd2urshu8zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xors16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xors16za71833za7, BGl_z62bitzd2xors16zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshelon1834z00, BGl_z62bitzd2lshelongzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshu32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshu321835z00, BGl_z62bitzd2urshu32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2nots8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2nots8za7b1836za7, BGl_z62bitzd2nots8zb0zz__bitz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1700z00zz__bitz00, BgL_bgl_string1700za700za7za7_1837za7, "bllong", 6 );
BGL_DEFINE_STRING(BGl_string1701z00zz__bitz00, BgL_bgl_string1701za700za7za7_1838za7, "&bit-ors8", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2ands8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ands8za7b1839za7, BGl_z62bitzd2ands8zb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1702z00zz__bitz00, BgL_bgl_string1702za700za7za7_1840za7, "bint8", 5 );
BGL_DEFINE_STRING(BGl_string1703z00zz__bitz00, BgL_bgl_string1703za700za7za7_1841za7, "&bit-oru8", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2oru64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2oru64za7b1842za7, BGl_z62bitzd2oru64zb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1704z00zz__bitz00, BgL_bgl_string1704za700za7za7_1843za7, "buint8", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshbxza7b1844za7, BGl_z62bitzd2lshbxzb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1705z00zz__bitz00, BgL_bgl_string1705za700za7za7_1845za7, "&bit-ors16", 10 );
BGL_DEFINE_STRING(BGl_string1706z00zz__bitz00, BgL_bgl_string1706za700za7za7_1846za7, "bint16", 6 );
BGL_DEFINE_STRING(BGl_string1707z00zz__bitz00, BgL_bgl_string1707za700za7za7_1847za7, "&bit-oru16", 10 );
BGL_DEFINE_STRING(BGl_string1708z00zz__bitz00, BgL_bgl_string1708za700za7za7_1848za7, "buint16", 7 );
BGL_DEFINE_STRING(BGl_string1709z00zz__bitz00, BgL_bgl_string1709za700za7za7_1849za7, "&bit-ors32", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshbxza7b1850za7, BGl_z62bitzd2rshbxzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2andelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andelon1851z00, BGl_z62bitzd2andelongzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshu64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshu64za71852za7, BGl_z62bitzd2rshu64zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2notu64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notu64za71853za7, BGl_z62bitzd2notu64zb0zz__bitz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xorbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xorbxza7b1854za7, BGl_z62bitzd2xorbxzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xors64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xors64za71855za7, BGl_z62bitzd2xors64zb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1710z00zz__bitz00, BgL_bgl_string1710za700za7za7_1856za7, "bint32", 6 );
BGL_DEFINE_STRING(BGl_string1711z00zz__bitz00, BgL_bgl_string1711za700za7za7_1857za7, "&bit-oru32", 10 );
BGL_DEFINE_STRING(BGl_string1712z00zz__bitz00, BgL_bgl_string1712za700za7za7_1858za7, "buint32", 7 );
BGL_DEFINE_STRING(BGl_string1713z00zz__bitz00, BgL_bgl_string1713za700za7za7_1859za7, "&bit-ors64", 10 );
BGL_DEFINE_STRING(BGl_string1714z00zz__bitz00, BgL_bgl_string1714za700za7za7_1860za7, "bint64", 6 );
BGL_DEFINE_STRING(BGl_string1715z00zz__bitz00, BgL_bgl_string1715za700za7za7_1861za7, "&bit-oru64", 10 );
BGL_DEFINE_STRING(BGl_string1716z00zz__bitz00, BgL_bgl_string1716za700za7za7_1862za7, "buint64", 7 );
BGL_DEFINE_STRING(BGl_string1717z00zz__bitz00, BgL_bgl_string1717za700za7za7_1863za7, "&bit-orbx", 9 );
BGL_DEFINE_STRING(BGl_string1718z00zz__bitz00, BgL_bgl_string1718za700za7za7_1864za7, "bignum", 6 );
BGL_DEFINE_STRING(BGl_string1719z00zz__bitz00, BgL_bgl_string1719za700za7za7_1865za7, "&bit-and", 8 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2andu16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andu16za71866za7, BGl_z62bitzd2andu16zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2orllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2orllong1867z00, BGl_z62bitzd2orllongzb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1720z00zz__bitz00, BgL_bgl_string1720za700za7za7_1868za7, "&bit-andelong", 13 );
BGL_DEFINE_STRING(BGl_string1721z00zz__bitz00, BgL_bgl_string1721za700za7za7_1869za7, "&bit-andllong", 13 );
BGL_DEFINE_STRING(BGl_string1722z00zz__bitz00, BgL_bgl_string1722za700za7za7_1870za7, "&bit-ands8", 10 );
BGL_DEFINE_STRING(BGl_string1723z00zz__bitz00, BgL_bgl_string1723za700za7za7_1871za7, "&bit-andu8", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshelon1872z00, BGl_z62bitzd2rshelongzb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1724z00zz__bitz00, BgL_bgl_string1724za700za7za7_1873za7, "&bit-ands16", 11 );
BGL_DEFINE_STRING(BGl_string1725z00zz__bitz00, BgL_bgl_string1725za700za7za7_1874za7, "&bit-andu16", 11 );
BGL_DEFINE_STRING(BGl_string1726z00zz__bitz00, BgL_bgl_string1726za700za7za7_1875za7, "&bit-ands32", 11 );
BGL_DEFINE_STRING(BGl_string1727z00zz__bitz00, BgL_bgl_string1727za700za7za7_1876za7, "&bit-andu32", 11 );
BGL_DEFINE_STRING(BGl_string1728z00zz__bitz00, BgL_bgl_string1728za700za7za7_1877za7, "&bit-ands64", 11 );
BGL_DEFINE_STRING(BGl_string1729z00zz__bitz00, BgL_bgl_string1729za700za7za7_1878za7, "&bit-andu64", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2notllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notllon1879z00, BGl_z62bitzd2notllongzb0zz__bitz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2andu64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andu64za71880za7, BGl_z62bitzd2andu64zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshelo1881z00, BGl_z62bitzd2urshelongzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2ors16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ors16za7b1882za7, BGl_z62bitzd2ors16zb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1730z00zz__bitz00, BgL_bgl_string1730za700za7za7_1883za7, "&bit-andbx", 10 );
BGL_DEFINE_STRING(BGl_string1731z00zz__bitz00, BgL_bgl_string1731za700za7za7_1884za7, "&bit-maskbx", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshu32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshu32za71885za7, BGl_z62bitzd2lshu32zb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1732z00zz__bitz00, BgL_bgl_string1732za700za7za7_1886za7, "&bit-xor", 8 );
BGL_DEFINE_STRING(BGl_string1733z00zz__bitz00, BgL_bgl_string1733za700za7za7_1887za7, "&bit-xorelong", 13 );
BGL_DEFINE_STRING(BGl_string1734z00zz__bitz00, BgL_bgl_string1734za700za7za7_1888za7, "&bit-xorllong", 13 );
BGL_DEFINE_STRING(BGl_string1735z00zz__bitz00, BgL_bgl_string1735za700za7za7_1889za7, "&bit-xors8", 10 );
BGL_DEFINE_STRING(BGl_string1736z00zz__bitz00, BgL_bgl_string1736za700za7za7_1890za7, "&bit-xoru8", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2maskbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2maskbxza71891za7, BGl_z62bitzd2maskbxzb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1737z00zz__bitz00, BgL_bgl_string1737za700za7za7_1892za7, "&bit-xors16", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshs16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshs16za71893za7, BGl_z62bitzd2rshs16zb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1738z00zz__bitz00, BgL_bgl_string1738za700za7za7_1894za7, "&bit-xoru16", 11 );
BGL_DEFINE_STRING(BGl_string1739z00zz__bitz00, BgL_bgl_string1739za700za7za7_1895za7, "&bit-xors32", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2nots16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2nots16za71896za7, BGl_z62bitzd2nots16zb0zz__bitz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshza7b0za71897z00, BGl_z62bitzd2rshzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshs8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshs8za7b1898za7, BGl_z62bitzd2lshs8zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2andzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andza7b0za71899z00, BGl_z62bitzd2andzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshs8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshs8za7b1900za7, BGl_z62bitzd2rshs8zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshs32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshs321901z00, BGl_z62bitzd2urshs32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2ors64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ors64za7b1902za7, BGl_z62bitzd2ors64zb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1740z00zz__bitz00, BgL_bgl_string1740za700za7za7_1903za7, "&bit-xoru32", 11 );
BGL_DEFINE_STRING(BGl_string1741z00zz__bitz00, BgL_bgl_string1741za700za7za7_1904za7, "&bit-xors64", 11 );
BGL_DEFINE_STRING(BGl_string1742z00zz__bitz00, BgL_bgl_string1742za700za7za7_1905za7, "&bit-xoru64", 11 );
BGL_DEFINE_STRING(BGl_string1743z00zz__bitz00, BgL_bgl_string1743za700za7za7_1906za7, "&bit-xorbx", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xors8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xors8za7b1907za7, BGl_z62bitzd2xors8zb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1744z00zz__bitz00, BgL_bgl_string1744za700za7za7_1908za7, "&bit-not", 8 );
BGL_DEFINE_STRING(BGl_string1745z00zz__bitz00, BgL_bgl_string1745za700za7za7_1909za7, "&bit-notelong", 13 );
BGL_DEFINE_STRING(BGl_string1746z00zz__bitz00, BgL_bgl_string1746za700za7za7_1910za7, "&bit-notllong", 13 );
BGL_DEFINE_STRING(BGl_string1747z00zz__bitz00, BgL_bgl_string1747za700za7za7_1911za7, "&bit-nots8", 10 );
BGL_DEFINE_STRING(BGl_string1748z00zz__bitz00, BgL_bgl_string1748za700za7za7_1912za7, "&bit-notu8", 10 );
BGL_DEFINE_STRING(BGl_string1749z00zz__bitz00, BgL_bgl_string1749za700za7za7_1913za7, "&bit-nots16", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2rshs64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshs64za71914za7, BGl_z62bitzd2rshs64zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2nots64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2nots64za71915za7, BGl_z62bitzd2nots64zb0zz__bitz00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string1750z00zz__bitz00, BgL_bgl_string1750za700za7za7_1916za7, "&bit-notu16", 11 );
BGL_DEFINE_STRING(BGl_string1751z00zz__bitz00, BgL_bgl_string1751za700za7za7_1917za7, "&bit-nots32", 11 );
BGL_DEFINE_STRING(BGl_string1752z00zz__bitz00, BgL_bgl_string1752za700za7za7_1918za7, "&bit-notu32", 11 );
BGL_DEFINE_STRING(BGl_string1753z00zz__bitz00, BgL_bgl_string1753za700za7za7_1919za7, "&bit-nots64", 11 );
BGL_DEFINE_STRING(BGl_string1754z00zz__bitz00, BgL_bgl_string1754za700za7za7_1920za7, "&bit-notu64", 11 );
BGL_DEFINE_STRING(BGl_string1755z00zz__bitz00, BgL_bgl_string1755za700za7za7_1921za7, "&bit-notbx", 10 );
BGL_DEFINE_STRING(BGl_string1756z00zz__bitz00, BgL_bgl_string1756za700za7za7_1922za7, "&bit-rsh", 8 );
BGL_DEFINE_STRING(BGl_string1757z00zz__bitz00, BgL_bgl_string1757za700za7za7_1923za7, "&bit-rshelong", 13 );
BGL_DEFINE_STRING(BGl_string1758z00zz__bitz00, BgL_bgl_string1758za700za7za7_1924za7, "&bit-rshllong", 13 );
BGL_DEFINE_STRING(BGl_string1759z00zz__bitz00, BgL_bgl_string1759za700za7za7_1925za7, "&bit-rshs8", 10 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshs8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshs8za71926za7, BGl_z62bitzd2urshs8zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2ands16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ands16za71927za7, BGl_z62bitzd2ands16zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xoru32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xoru32za71928za7, BGl_z62bitzd2xoru32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshu16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshu161929z00, BGl_z62bitzd2urshu16zb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1760z00zz__bitz00, BgL_bgl_string1760za700za7za7_1930za7, "&bit-rshu8", 10 );
BGL_DEFINE_STRING(BGl_string1761z00zz__bitz00, BgL_bgl_string1761za700za7za7_1931za7, "&bit-rshs16", 11 );
BGL_DEFINE_STRING(BGl_string1762z00zz__bitz00, BgL_bgl_string1762za700za7za7_1932za7, "&bit-rshu16", 11 );
BGL_DEFINE_STRING(BGl_string1763z00zz__bitz00, BgL_bgl_string1763za700za7za7_1933za7, "&bit-rshs32", 11 );
BGL_DEFINE_STRING(BGl_string1764z00zz__bitz00, BgL_bgl_string1764za700za7za7_1934za7, "&bit-rshu32", 11 );
BGL_DEFINE_STRING(BGl_string1765z00zz__bitz00, BgL_bgl_string1765za700za7za7_1935za7, "&bit-rshs64", 11 );
BGL_DEFINE_STRING(BGl_string1766z00zz__bitz00, BgL_bgl_string1766za700za7za7_1936za7, "&bit-rshu64", 11 );
BGL_DEFINE_STRING(BGl_string1767z00zz__bitz00, BgL_bgl_string1767za700za7za7_1937za7, "&bit-rshbx", 10 );
BGL_DEFINE_STRING(BGl_string1768z00zz__bitz00, BgL_bgl_string1768za700za7za7_1938za7, "&bit-ursh", 9 );
BGL_DEFINE_STRING(BGl_string1769z00zz__bitz00, BgL_bgl_string1769za700za7za7_1939za7, "&bit-urshelong", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2xorelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xorelon1940z00, BGl_z62bitzd2xorelongzb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2ands64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ands64za71941za7, BGl_z62bitzd2ands64zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshs32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshs32za71942za7, BGl_z62bitzd2lshs32zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2urshu64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshu641943z00, BGl_z62bitzd2urshu64zb0zz__bitz00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2orzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2orza7b0za7za71944za7, BGl_z62bitzd2orzb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1770z00zz__bitz00, BgL_bgl_string1770za700za7za7_1945za7, "&bit-urshllong", 14 );
BGL_DEFINE_STRING(BGl_string1771z00zz__bitz00, BgL_bgl_string1771za700za7za7_1946za7, "&bit-urshu8", 11 );
BGL_DEFINE_STRING(BGl_string1772z00zz__bitz00, BgL_bgl_string1772za700za7za7_1947za7, "&bit-urshs8", 11 );
BGL_DEFINE_STRING(BGl_string1773z00zz__bitz00, BgL_bgl_string1773za700za7za7_1948za7, "&bit-urshs16", 12 );
BGL_DEFINE_STRING(BGl_string1774z00zz__bitz00, BgL_bgl_string1774za700za7za7_1949za7, "&bit-urshu16", 12 );
BGL_DEFINE_STRING(BGl_string1775z00zz__bitz00, BgL_bgl_string1775za700za7za7_1950za7, "&bit-urshs32", 12 );
BGL_DEFINE_STRING(BGl_string1694z00zz__bitz00, BgL_bgl_string1694za700za7za7_1951za7, "/tmp/bigloo/runtime/Llib/bit.scm", 32 );
BGL_DEFINE_STRING(BGl_string1776z00zz__bitz00, BgL_bgl_string1776za700za7za7_1952za7, "&bit-urshu32", 12 );
BGL_DEFINE_STRING(BGl_string1695z00zz__bitz00, BgL_bgl_string1695za700za7za7_1953za7, "&bit-or", 7 );
BGL_DEFINE_STRING(BGl_string1777z00zz__bitz00, BgL_bgl_string1777za700za7za7_1954za7, "&bit-urshs64", 12 );
BGL_DEFINE_STRING(BGl_string1696z00zz__bitz00, BgL_bgl_string1696za700za7za7_1955za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string1778z00zz__bitz00, BgL_bgl_string1778za700za7za7_1956za7, "&bit-urshu64", 12 );
BGL_DEFINE_STRING(BGl_string1697z00zz__bitz00, BgL_bgl_string1697za700za7za7_1957za7, "&bit-orelong", 12 );
BGL_DEFINE_STRING(BGl_string1779z00zz__bitz00, BgL_bgl_string1779za700za7za7_1958za7, "&bit-lsh", 8 );
BGL_DEFINE_STRING(BGl_string1698z00zz__bitz00, BgL_bgl_string1698za700za7za7_1959za7, "belong", 6 );
BGL_DEFINE_STRING(BGl_string1699z00zz__bitz00, BgL_bgl_string1699za700za7za7_1960za7, "&bit-orllong", 12 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2notzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notza7b0za71961z00, BGl_z62bitzd2notzb0zz__bitz00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2lshllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshllon1962z00, BGl_z62bitzd2lshllongzb0zz__bitz00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string1780z00zz__bitz00, BgL_bgl_string1780za700za7za7_1963za7, "&bit-lshelong", 13 );
BGL_DEFINE_STRING(BGl_string1781z00zz__bitz00, BgL_bgl_string1781za700za7za7_1964za7, "&bit-lshllong", 13 );
BGL_DEFINE_STRING(BGl_string1782z00zz__bitz00, BgL_bgl_string1782za700za7za7_1965za7, "&bit-lshs8", 10 );
BGL_DEFINE_STRING(BGl_string1783z00zz__bitz00, BgL_bgl_string1783za700za7za7_1966za7, "&bit-lshu8", 10 );
BGL_DEFINE_STRING(BGl_string1784z00zz__bitz00, BgL_bgl_string1784za700za7za7_1967za7, "&bit-lshs16", 11 );
BGL_DEFINE_STRING(BGl_string1785z00zz__bitz00, BgL_bgl_string1785za700za7za7_1968za7, "&bit-lshu16", 11 );
BGL_DEFINE_STRING(BGl_string1786z00zz__bitz00, BgL_bgl_string1786za700za7za7_1969za7, "&bit-lshs32", 11 );
BGL_DEFINE_STRING(BGl_string1787z00zz__bitz00, BgL_bgl_string1787za700za7za7_1970za7, "&bit-lshu32", 11 );
BGL_DEFINE_STRING(BGl_string1788z00zz__bitz00, BgL_bgl_string1788za700za7za7_1971za7, "&bit-lshs64", 11 );
BGL_DEFINE_STRING(BGl_string1789z00zz__bitz00, BgL_bgl_string1789za700za7za7_1972za7, "&bit-lshu64", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_bitzd2andllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andllon1973z00, BGl_z62bitzd2andllongzb0zz__bitz00, 0L, BUNSPEC, 2);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_bitzd2andllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andllon1973z00);
BGL_BIND_STRING(BGl_string1789z00zz__bitz00, BgL_bgl_string1789za700za7za7_1972za7);
BGL_BIND_STRING(BGl_string1788z00zz__bitz00, BgL_bgl_string1788za700za7za7_1971za7);
BGL_BIND_STRING(BGl_string1787z00zz__bitz00, BgL_bgl_string1787za700za7za7_1970za7);
BGL_BIND_STRING(BGl_string1786z00zz__bitz00, BgL_bgl_string1786za700za7za7_1969za7);
BGL_BIND_STRING(BGl_string1785z00zz__bitz00, BgL_bgl_string1785za700za7za7_1968za7);
BGL_BIND_STRING(BGl_string1784z00zz__bitz00, BgL_bgl_string1784za700za7za7_1967za7);
BGL_BIND_STRING(BGl_string1783z00zz__bitz00, BgL_bgl_string1783za700za7za7_1966za7);
BGL_BIND_STRING(BGl_string1782z00zz__bitz00, BgL_bgl_string1782za700za7za7_1965za7);
BGL_BIND_STRING(BGl_string1781z00zz__bitz00, BgL_bgl_string1781za700za7za7_1964za7);
BGL_BIND_STRING(BGl_string1780z00zz__bitz00, BgL_bgl_string1780za700za7za7_1963za7);
BGL_BIND_PROCEDURE(BGl_bitzd2lshllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshllon1962z00);
BGL_BIND_PROCEDURE(BGl_bitzd2notzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notza7b0za71961z00);
BGL_BIND_STRING(BGl_string1699z00zz__bitz00, BgL_bgl_string1699za700za7za7_1960za7);
BGL_BIND_STRING(BGl_string1698z00zz__bitz00, BgL_bgl_string1698za700za7za7_1959za7);
BGL_BIND_STRING(BGl_string1779z00zz__bitz00, BgL_bgl_string1779za700za7za7_1958za7);
BGL_BIND_STRING(BGl_string1697z00zz__bitz00, BgL_bgl_string1697za700za7za7_1957za7);
BGL_BIND_STRING(BGl_string1778z00zz__bitz00, BgL_bgl_string1778za700za7za7_1956za7);
BGL_BIND_STRING(BGl_string1696z00zz__bitz00, BgL_bgl_string1696za700za7za7_1955za7);
BGL_BIND_STRING(BGl_string1777z00zz__bitz00, BgL_bgl_string1777za700za7za7_1954za7);
BGL_BIND_STRING(BGl_string1695z00zz__bitz00, BgL_bgl_string1695za700za7za7_1953za7);
BGL_BIND_STRING(BGl_string1776z00zz__bitz00, BgL_bgl_string1776za700za7za7_1952za7);
BGL_BIND_STRING(BGl_string1694z00zz__bitz00, BgL_bgl_string1694za700za7za7_1951za7);
BGL_BIND_STRING(BGl_string1775z00zz__bitz00, BgL_bgl_string1775za700za7za7_1950za7);
BGL_BIND_STRING(BGl_string1774z00zz__bitz00, BgL_bgl_string1774za700za7za7_1949za7);
BGL_BIND_STRING(BGl_string1773z00zz__bitz00, BgL_bgl_string1773za700za7za7_1948za7);
BGL_BIND_STRING(BGl_string1772z00zz__bitz00, BgL_bgl_string1772za700za7za7_1947za7);
BGL_BIND_STRING(BGl_string1771z00zz__bitz00, BgL_bgl_string1771za700za7za7_1946za7);
BGL_BIND_STRING(BGl_string1770z00zz__bitz00, BgL_bgl_string1770za700za7za7_1945za7);
BGL_BIND_PROCEDURE(BGl_bitzd2orzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2orza7b0za7za71944za7);
BGL_BIND_PROCEDURE(BGl_bitzd2urshu64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshu641943z00);
BGL_BIND_PROCEDURE(BGl_bitzd2lshs32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshs32za71942za7);
BGL_BIND_PROCEDURE(BGl_bitzd2ands64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ands64za71941za7);
BGL_BIND_PROCEDURE(BGl_bitzd2xorelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xorelon1940z00);
BGL_BIND_STRING(BGl_string1769z00zz__bitz00, BgL_bgl_string1769za700za7za7_1939za7);
BGL_BIND_STRING(BGl_string1768z00zz__bitz00, BgL_bgl_string1768za700za7za7_1938za7);
BGL_BIND_STRING(BGl_string1767z00zz__bitz00, BgL_bgl_string1767za700za7za7_1937za7);
BGL_BIND_STRING(BGl_string1766z00zz__bitz00, BgL_bgl_string1766za700za7za7_1936za7);
BGL_BIND_STRING(BGl_string1765z00zz__bitz00, BgL_bgl_string1765za700za7za7_1935za7);
BGL_BIND_STRING(BGl_string1764z00zz__bitz00, BgL_bgl_string1764za700za7za7_1934za7);
BGL_BIND_STRING(BGl_string1763z00zz__bitz00, BgL_bgl_string1763za700za7za7_1933za7);
BGL_BIND_STRING(BGl_string1762z00zz__bitz00, BgL_bgl_string1762za700za7za7_1932za7);
BGL_BIND_STRING(BGl_string1761z00zz__bitz00, BgL_bgl_string1761za700za7za7_1931za7);
BGL_BIND_STRING(BGl_string1760z00zz__bitz00, BgL_bgl_string1760za700za7za7_1930za7);
BGL_BIND_PROCEDURE(BGl_bitzd2urshu16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshu161929z00);
BGL_BIND_PROCEDURE(BGl_bitzd2xoru32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xoru32za71928za7);
BGL_BIND_PROCEDURE(BGl_bitzd2ands16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ands16za71927za7);
BGL_BIND_PROCEDURE(BGl_bitzd2urshs8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshs8za71926za7);
BGL_BIND_STRING(BGl_string1759z00zz__bitz00, BgL_bgl_string1759za700za7za7_1925za7);
BGL_BIND_STRING(BGl_string1758z00zz__bitz00, BgL_bgl_string1758za700za7za7_1924za7);
BGL_BIND_STRING(BGl_string1757z00zz__bitz00, BgL_bgl_string1757za700za7za7_1923za7);
BGL_BIND_STRING(BGl_string1756z00zz__bitz00, BgL_bgl_string1756za700za7za7_1922za7);
BGL_BIND_STRING(BGl_string1755z00zz__bitz00, BgL_bgl_string1755za700za7za7_1921za7);
BGL_BIND_STRING(BGl_string1754z00zz__bitz00, BgL_bgl_string1754za700za7za7_1920za7);
BGL_BIND_STRING(BGl_string1753z00zz__bitz00, BgL_bgl_string1753za700za7za7_1919za7);
BGL_BIND_STRING(BGl_string1752z00zz__bitz00, BgL_bgl_string1752za700za7za7_1918za7);
BGL_BIND_STRING(BGl_string1751z00zz__bitz00, BgL_bgl_string1751za700za7za7_1917za7);
BGL_BIND_STRING(BGl_string1750z00zz__bitz00, BgL_bgl_string1750za700za7za7_1916za7);
BGL_BIND_PROCEDURE(BGl_bitzd2nots64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2nots64za71915za7);
BGL_BIND_PROCEDURE(BGl_bitzd2rshs64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshs64za71914za7);
BGL_BIND_STRING(BGl_string1749z00zz__bitz00, BgL_bgl_string1749za700za7za7_1913za7);
BGL_BIND_STRING(BGl_string1748z00zz__bitz00, BgL_bgl_string1748za700za7za7_1912za7);
BGL_BIND_STRING(BGl_string1747z00zz__bitz00, BgL_bgl_string1747za700za7za7_1911za7);
BGL_BIND_STRING(BGl_string1746z00zz__bitz00, BgL_bgl_string1746za700za7za7_1910za7);
BGL_BIND_STRING(BGl_string1745z00zz__bitz00, BgL_bgl_string1745za700za7za7_1909za7);
BGL_BIND_STRING(BGl_string1744z00zz__bitz00, BgL_bgl_string1744za700za7za7_1908za7);
BGL_BIND_PROCEDURE(BGl_bitzd2xors8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xors8za7b1907za7);
BGL_BIND_STRING(BGl_string1743z00zz__bitz00, BgL_bgl_string1743za700za7za7_1906za7);
BGL_BIND_STRING(BGl_string1742z00zz__bitz00, BgL_bgl_string1742za700za7za7_1905za7);
BGL_BIND_STRING(BGl_string1741z00zz__bitz00, BgL_bgl_string1741za700za7za7_1904za7);
BGL_BIND_STRING(BGl_string1740z00zz__bitz00, BgL_bgl_string1740za700za7za7_1903za7);
BGL_BIND_PROCEDURE(BGl_bitzd2ors64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ors64za7b1902za7);
BGL_BIND_PROCEDURE(BGl_bitzd2urshs32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshs321901z00);
BGL_BIND_PROCEDURE(BGl_bitzd2rshs8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshs8za7b1900za7);
BGL_BIND_PROCEDURE(BGl_bitzd2andzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andza7b0za71899z00);
BGL_BIND_PROCEDURE(BGl_bitzd2lshs8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshs8za7b1898za7);
BGL_BIND_PROCEDURE(BGl_bitzd2rshzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshza7b0za71897z00);
BGL_BIND_PROCEDURE(BGl_bitzd2nots16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2nots16za71896za7);
BGL_BIND_STRING(BGl_string1739z00zz__bitz00, BgL_bgl_string1739za700za7za7_1895za7);
BGL_BIND_STRING(BGl_string1738z00zz__bitz00, BgL_bgl_string1738za700za7za7_1894za7);
BGL_BIND_PROCEDURE(BGl_bitzd2rshs16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshs16za71893za7);
BGL_BIND_STRING(BGl_string1737z00zz__bitz00, BgL_bgl_string1737za700za7za7_1892za7);
BGL_BIND_PROCEDURE(BGl_bitzd2maskbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2maskbxza71891za7);
BGL_BIND_STRING(BGl_string1736z00zz__bitz00, BgL_bgl_string1736za700za7za7_1890za7);
BGL_BIND_STRING(BGl_string1735z00zz__bitz00, BgL_bgl_string1735za700za7za7_1889za7);
BGL_BIND_STRING(BGl_string1734z00zz__bitz00, BgL_bgl_string1734za700za7za7_1888za7);
BGL_BIND_STRING(BGl_string1733z00zz__bitz00, BgL_bgl_string1733za700za7za7_1887za7);
BGL_BIND_STRING(BGl_string1732z00zz__bitz00, BgL_bgl_string1732za700za7za7_1886za7);
BGL_BIND_PROCEDURE(BGl_bitzd2lshu32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshu32za71885za7);
BGL_BIND_STRING(BGl_string1731z00zz__bitz00, BgL_bgl_string1731za700za7za7_1884za7);
BGL_BIND_STRING(BGl_string1730z00zz__bitz00, BgL_bgl_string1730za700za7za7_1883za7);
BGL_BIND_PROCEDURE(BGl_bitzd2ors16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ors16za7b1882za7);
BGL_BIND_PROCEDURE(BGl_bitzd2urshelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshelo1881z00);
BGL_BIND_PROCEDURE(BGl_bitzd2andu64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andu64za71880za7);
BGL_BIND_PROCEDURE(BGl_bitzd2notllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notllon1879z00);
BGL_BIND_STRING(BGl_string1729z00zz__bitz00, BgL_bgl_string1729za700za7za7_1878za7);
BGL_BIND_STRING(BGl_string1728z00zz__bitz00, BgL_bgl_string1728za700za7za7_1877za7);
BGL_BIND_STRING(BGl_string1727z00zz__bitz00, BgL_bgl_string1727za700za7za7_1876za7);
BGL_BIND_STRING(BGl_string1726z00zz__bitz00, BgL_bgl_string1726za700za7za7_1875za7);
BGL_BIND_STRING(BGl_string1725z00zz__bitz00, BgL_bgl_string1725za700za7za7_1874za7);
BGL_BIND_STRING(BGl_string1724z00zz__bitz00, BgL_bgl_string1724za700za7za7_1873za7);
BGL_BIND_PROCEDURE(BGl_bitzd2rshelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshelon1872z00);
BGL_BIND_STRING(BGl_string1723z00zz__bitz00, BgL_bgl_string1723za700za7za7_1871za7);
BGL_BIND_STRING(BGl_string1722z00zz__bitz00, BgL_bgl_string1722za700za7za7_1870za7);
BGL_BIND_STRING(BGl_string1721z00zz__bitz00, BgL_bgl_string1721za700za7za7_1869za7);
BGL_BIND_STRING(BGl_string1720z00zz__bitz00, BgL_bgl_string1720za700za7za7_1868za7);
BGL_BIND_PROCEDURE(BGl_bitzd2orllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2orllong1867z00);
BGL_BIND_PROCEDURE(BGl_bitzd2andu16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andu16za71866za7);
BGL_BIND_STRING(BGl_string1719z00zz__bitz00, BgL_bgl_string1719za700za7za7_1865za7);
BGL_BIND_STRING(BGl_string1718z00zz__bitz00, BgL_bgl_string1718za700za7za7_1864za7);
BGL_BIND_STRING(BGl_string1717z00zz__bitz00, BgL_bgl_string1717za700za7za7_1863za7);
BGL_BIND_STRING(BGl_string1716z00zz__bitz00, BgL_bgl_string1716za700za7za7_1862za7);
BGL_BIND_STRING(BGl_string1715z00zz__bitz00, BgL_bgl_string1715za700za7za7_1861za7);
BGL_BIND_STRING(BGl_string1714z00zz__bitz00, BgL_bgl_string1714za700za7za7_1860za7);
BGL_BIND_STRING(BGl_string1713z00zz__bitz00, BgL_bgl_string1713za700za7za7_1859za7);
BGL_BIND_STRING(BGl_string1712z00zz__bitz00, BgL_bgl_string1712za700za7za7_1858za7);
BGL_BIND_STRING(BGl_string1711z00zz__bitz00, BgL_bgl_string1711za700za7za7_1857za7);
BGL_BIND_STRING(BGl_string1710z00zz__bitz00, BgL_bgl_string1710za700za7za7_1856za7);
BGL_BIND_PROCEDURE(BGl_bitzd2xors64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xors64za71855za7);
BGL_BIND_PROCEDURE(BGl_bitzd2xorbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xorbxza7b1854za7);
BGL_BIND_PROCEDURE(BGl_bitzd2notu64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notu64za71853za7);
BGL_BIND_PROCEDURE(BGl_bitzd2rshu64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshu64za71852za7);
BGL_BIND_PROCEDURE(BGl_bitzd2andelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andelon1851z00);
BGL_BIND_PROCEDURE(BGl_bitzd2rshbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshbxza7b1850za7);
BGL_BIND_STRING(BGl_string1709z00zz__bitz00, BgL_bgl_string1709za700za7za7_1849za7);
BGL_BIND_STRING(BGl_string1708z00zz__bitz00, BgL_bgl_string1708za700za7za7_1848za7);
BGL_BIND_STRING(BGl_string1707z00zz__bitz00, BgL_bgl_string1707za700za7za7_1847za7);
BGL_BIND_STRING(BGl_string1706z00zz__bitz00, BgL_bgl_string1706za700za7za7_1846za7);
BGL_BIND_STRING(BGl_string1705z00zz__bitz00, BgL_bgl_string1705za700za7za7_1845za7);
BGL_BIND_PROCEDURE(BGl_bitzd2lshbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshbxza7b1844za7);
BGL_BIND_STRING(BGl_string1704z00zz__bitz00, BgL_bgl_string1704za700za7za7_1843za7);
BGL_BIND_PROCEDURE(BGl_bitzd2oru64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2oru64za7b1842za7);
BGL_BIND_STRING(BGl_string1703z00zz__bitz00, BgL_bgl_string1703za700za7za7_1841za7);
BGL_BIND_STRING(BGl_string1702z00zz__bitz00, BgL_bgl_string1702za700za7za7_1840za7);
BGL_BIND_PROCEDURE(BGl_bitzd2ands8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ands8za7b1839za7);
BGL_BIND_STRING(BGl_string1701z00zz__bitz00, BgL_bgl_string1701za700za7za7_1838za7);
BGL_BIND_STRING(BGl_string1700z00zz__bitz00, BgL_bgl_string1700za700za7za7_1837za7);
BGL_BIND_PROCEDURE(BGl_bitzd2nots8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2nots8za7b1836za7);
BGL_BIND_PROCEDURE(BGl_bitzd2urshu32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshu321835z00);
BGL_BIND_PROCEDURE(BGl_bitzd2lshelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshelon1834z00);
BGL_BIND_PROCEDURE(BGl_bitzd2xors16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xors16za71833za7);
BGL_BIND_PROCEDURE(BGl_bitzd2urshu8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshu8za71832za7);
BGL_BIND_PROCEDURE(BGl_bitzd2notu16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notu16za71831za7);
BGL_BIND_PROCEDURE(BGl_bitzd2ors8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ors8za7b01830za7);
BGL_BIND_PROCEDURE(BGl_bitzd2ands32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ands32za71829za7);
BGL_BIND_PROCEDURE(BGl_bitzd2rshu16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshu16za71828za7);
BGL_BIND_PROCEDURE(BGl_bitzd2lshzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshza7b0za71827z00);
BGL_BIND_PROCEDURE(BGl_bitzd2oru16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2oru16za7b1826za7);
BGL_BIND_PROCEDURE(BGl_bitzd2xorllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xorllon1825z00);
BGL_BIND_PROCEDURE(BGl_bitzd2xoru8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xoru8za7b1824za7);
BGL_BIND_PROCEDURE(BGl_bitzd2lshs64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshs64za71823za7);
BGL_BIND_PROCEDURE(BGl_bitzd2rshu8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshu8za7b1822za7);
BGL_BIND_PROCEDURE(BGl_bitzd2lshu8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshu8za7b1821za7);
BGL_BIND_PROCEDURE(BGl_bitzd2nots32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2nots32za71820za7);
BGL_BIND_PROCEDURE(BGl_bitzd2rshs32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshs32za71819za7);
BGL_BIND_PROCEDURE(BGl_bitzd2lshs16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshs16za71818za7);
BGL_BIND_PROCEDURE(BGl_bitzd2ors32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2ors32za7b1817za7);
BGL_BIND_PROCEDURE(BGl_bitzd2xoru64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xoru64za71816za7);
BGL_BIND_PROCEDURE(BGl_bitzd2andbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andbxza7b1815za7);
BGL_BIND_PROCEDURE(BGl_bitzd2notbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notbxza7b1814za7);
BGL_BIND_PROCEDURE(BGl_bitzd2orbxzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2orbxza7b01813za7);
BGL_BIND_PROCEDURE(BGl_bitzd2xorzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xorza7b0za71812z00);
BGL_BIND_PROCEDURE(BGl_bitzd2xoru16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xoru16za71811za7);
BGL_BIND_PROCEDURE(BGl_bitzd2andu32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andu32za71810za7);
BGL_BIND_PROCEDURE(BGl_bitzd2urshzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshza7b01809za7);
BGL_BIND_PROCEDURE(BGl_bitzd2urshs64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshs641808z00);
BGL_BIND_PROCEDURE(BGl_bitzd2urshllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshllo1807z00);
BGL_BIND_PROCEDURE(BGl_bitzd2rshllongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshllon1806z00);
BGL_BIND_PROCEDURE(BGl_bitzd2notelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notelon1805z00);
BGL_BIND_PROCEDURE(BGl_bitzd2lshu64zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshu64za71804za7);
BGL_BIND_PROCEDURE(BGl_bitzd2andu8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2andu8za7b1803za7);
BGL_BIND_PROCEDURE(BGl_bitzd2notu8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notu8za7b1802za7);
BGL_BIND_PROCEDURE(BGl_bitzd2urshs16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2urshs161801z00);
BGL_BIND_PROCEDURE(BGl_bitzd2orelongzd2envz00zz__bitz00, BgL_bgl_za762bitza7d2orelong1800z00);
BGL_BIND_PROCEDURE(BGl_bitzd2xors32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2xors32za71799za7);
BGL_BIND_PROCEDURE(BGl_bitzd2oru8zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2oru8za7b01798za7);
BGL_BIND_PROCEDURE(BGl_bitzd2notu32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2notu32za71797za7);
BGL_BIND_PROCEDURE(BGl_bitzd2rshu32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2rshu32za71796za7);
BGL_BIND_STRING(BGl_string1791z00zz__bitz00, BgL_bgl_string1791za700za7za7_1795za7);
BGL_BIND_STRING(BGl_string1790z00zz__bitz00, BgL_bgl_string1790za700za7za7_1794za7);
BGL_BIND_PROCEDURE(BGl_bitzd2lshu16zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2lshu16za71793za7);
BGL_BIND_PROCEDURE(BGl_bitzd2oru32zd2envz00zz__bitz00, BgL_bgl_za762bitza7d2oru32za7b1792za7);
}

/* 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_requirezd2initializa7ationz75zz__bitz00) );
#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__bitz00(long BgL_checksumz00_1724, char * BgL_fromz00_1725)
{
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__bitz00))
{ 
BGl_requirezd2initializa7ationz75zz__bitz00 = 
BBOOL(((bool_t)0)); 
bgl_constant_bindings(); 
BGl_gczd2rootszd2initz00zz__bitz00(); 
return 
BGl_importedzd2moduleszd2initz00zz__bitz00();}  else 
{ 
return BUNSPEC;} } 

}



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

}



/* bit-or */
BGL_EXPORTED_DEF long BGl_bitzd2orzd2zz__bitz00(long BgL_xz00_3, long BgL_yz00_4)
{
{ /* Llib/bit.scm 543 */
return 
(BgL_xz00_3 | BgL_yz00_4);} 

}



/* &bit-or */
obj_t BGl_z62bitzd2orzb0zz__bitz00(obj_t BgL_envz00_1218, obj_t BgL_xz00_1219, obj_t BgL_yz00_1220)
{
{ /* Llib/bit.scm 543 */
{ /* Llib/bit.scm 543 */
 long BgL_tmpz00_1734;
{ /* Llib/bit.scm 543 */
 long BgL_auxz00_1744; long BgL_auxz00_1735;
{ /* Llib/bit.scm 543 */
 obj_t BgL_tmpz00_1745;
if(
INTEGERP(BgL_yz00_1220))
{ /* Llib/bit.scm 543 */
BgL_tmpz00_1745 = BgL_yz00_1220
; }  else 
{ 
 obj_t BgL_auxz00_1748;
BgL_auxz00_1748 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25198L), BGl_string1695z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1220); 
FAILURE(BgL_auxz00_1748,BFALSE,BFALSE);} 
BgL_auxz00_1744 = 
(long)CINT(BgL_tmpz00_1745); } 
{ /* Llib/bit.scm 543 */
 obj_t BgL_tmpz00_1736;
if(
INTEGERP(BgL_xz00_1219))
{ /* Llib/bit.scm 543 */
BgL_tmpz00_1736 = BgL_xz00_1219
; }  else 
{ 
 obj_t BgL_auxz00_1739;
BgL_auxz00_1739 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25198L), BGl_string1695z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_xz00_1219); 
FAILURE(BgL_auxz00_1739,BFALSE,BFALSE);} 
BgL_auxz00_1735 = 
(long)CINT(BgL_tmpz00_1736); } 
BgL_tmpz00_1734 = 
BGl_bitzd2orzd2zz__bitz00(BgL_auxz00_1735, BgL_auxz00_1744); } 
return 
BINT(BgL_tmpz00_1734);} } 

}



/* bit-orelong */
BGL_EXPORTED_DEF long BGl_bitzd2orelongzd2zz__bitz00(long BgL_xz00_5, long BgL_yz00_6)
{
{ /* Llib/bit.scm 544 */
return 
(BgL_xz00_5 | BgL_yz00_6);} 

}



/* &bit-orelong */
obj_t BGl_z62bitzd2orelongzb0zz__bitz00(obj_t BgL_envz00_1221, obj_t BgL_xz00_1222, obj_t BgL_yz00_1223)
{
{ /* Llib/bit.scm 544 */
{ /* Llib/bit.scm 544 */
 long BgL_tmpz00_1756;
{ /* Llib/bit.scm 544 */
 long BgL_auxz00_1766; long BgL_auxz00_1757;
{ /* Llib/bit.scm 544 */
 obj_t BgL_tmpz00_1767;
if(
ELONGP(BgL_yz00_1223))
{ /* Llib/bit.scm 544 */
BgL_tmpz00_1767 = BgL_yz00_1223
; }  else 
{ 
 obj_t BgL_auxz00_1770;
BgL_auxz00_1770 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25245L), BGl_string1697z00zz__bitz00, BGl_string1698z00zz__bitz00, BgL_yz00_1223); 
FAILURE(BgL_auxz00_1770,BFALSE,BFALSE);} 
BgL_auxz00_1766 = 
BELONG_TO_LONG(BgL_tmpz00_1767); } 
{ /* Llib/bit.scm 544 */
 obj_t BgL_tmpz00_1758;
if(
ELONGP(BgL_xz00_1222))
{ /* Llib/bit.scm 544 */
BgL_tmpz00_1758 = BgL_xz00_1222
; }  else 
{ 
 obj_t BgL_auxz00_1761;
BgL_auxz00_1761 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25245L), BGl_string1697z00zz__bitz00, BGl_string1698z00zz__bitz00, BgL_xz00_1222); 
FAILURE(BgL_auxz00_1761,BFALSE,BFALSE);} 
BgL_auxz00_1757 = 
BELONG_TO_LONG(BgL_tmpz00_1758); } 
BgL_tmpz00_1756 = 
BGl_bitzd2orelongzd2zz__bitz00(BgL_auxz00_1757, BgL_auxz00_1766); } 
return 
make_belong(BgL_tmpz00_1756);} } 

}



/* bit-orllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_bitzd2orllongzd2zz__bitz00(BGL_LONGLONG_T BgL_xz00_7, BGL_LONGLONG_T BgL_yz00_8)
{
{ /* Llib/bit.scm 545 */
return 
(BgL_xz00_7 | BgL_yz00_8);} 

}



/* &bit-orllong */
obj_t BGl_z62bitzd2orllongzb0zz__bitz00(obj_t BgL_envz00_1224, obj_t BgL_xz00_1225, obj_t BgL_yz00_1226)
{
{ /* Llib/bit.scm 545 */
{ /* Llib/bit.scm 545 */
 BGL_LONGLONG_T BgL_tmpz00_1778;
{ /* Llib/bit.scm 545 */
 BGL_LONGLONG_T BgL_auxz00_1788; BGL_LONGLONG_T BgL_auxz00_1779;
{ /* Llib/bit.scm 545 */
 obj_t BgL_tmpz00_1789;
if(
LLONGP(BgL_yz00_1226))
{ /* Llib/bit.scm 545 */
BgL_tmpz00_1789 = BgL_yz00_1226
; }  else 
{ 
 obj_t BgL_auxz00_1792;
BgL_auxz00_1792 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25297L), BGl_string1699z00zz__bitz00, BGl_string1700z00zz__bitz00, BgL_yz00_1226); 
FAILURE(BgL_auxz00_1792,BFALSE,BFALSE);} 
BgL_auxz00_1788 = 
BLLONG_TO_LLONG(BgL_tmpz00_1789); } 
{ /* Llib/bit.scm 545 */
 obj_t BgL_tmpz00_1780;
if(
LLONGP(BgL_xz00_1225))
{ /* Llib/bit.scm 545 */
BgL_tmpz00_1780 = BgL_xz00_1225
; }  else 
{ 
 obj_t BgL_auxz00_1783;
BgL_auxz00_1783 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25297L), BGl_string1699z00zz__bitz00, BGl_string1700z00zz__bitz00, BgL_xz00_1225); 
FAILURE(BgL_auxz00_1783,BFALSE,BFALSE);} 
BgL_auxz00_1779 = 
BLLONG_TO_LLONG(BgL_tmpz00_1780); } 
BgL_tmpz00_1778 = 
BGl_bitzd2orllongzd2zz__bitz00(BgL_auxz00_1779, BgL_auxz00_1788); } 
return 
make_bllong(BgL_tmpz00_1778);} } 

}



/* bit-ors8 */
BGL_EXPORTED_DEF int8_t BGl_bitzd2ors8zd2zz__bitz00(int8_t BgL_xz00_9, int8_t BgL_yz00_10)
{
{ /* Llib/bit.scm 546 */
return 
(BgL_xz00_9 | BgL_yz00_10);} 

}



/* &bit-ors8 */
obj_t BGl_z62bitzd2ors8zb0zz__bitz00(obj_t BgL_envz00_1227, obj_t BgL_xz00_1228, obj_t BgL_yz00_1229)
{
{ /* Llib/bit.scm 546 */
{ /* Llib/bit.scm 546 */
 int8_t BgL_tmpz00_1800;
{ /* Llib/bit.scm 546 */
 int8_t BgL_auxz00_1810; int8_t BgL_auxz00_1801;
{ /* Llib/bit.scm 546 */
 obj_t BgL_tmpz00_1811;
if(
BGL_INT8P(BgL_yz00_1229))
{ /* Llib/bit.scm 546 */
BgL_tmpz00_1811 = BgL_yz00_1229
; }  else 
{ 
 obj_t BgL_auxz00_1814;
BgL_auxz00_1814 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25346L), BGl_string1701z00zz__bitz00, BGl_string1702z00zz__bitz00, BgL_yz00_1229); 
FAILURE(BgL_auxz00_1814,BFALSE,BFALSE);} 
BgL_auxz00_1810 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_1811); } 
{ /* Llib/bit.scm 546 */
 obj_t BgL_tmpz00_1802;
if(
BGL_INT8P(BgL_xz00_1228))
{ /* Llib/bit.scm 546 */
BgL_tmpz00_1802 = BgL_xz00_1228
; }  else 
{ 
 obj_t BgL_auxz00_1805;
BgL_auxz00_1805 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25346L), BGl_string1701z00zz__bitz00, BGl_string1702z00zz__bitz00, BgL_xz00_1228); 
FAILURE(BgL_auxz00_1805,BFALSE,BFALSE);} 
BgL_auxz00_1801 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_1802); } 
BgL_tmpz00_1800 = 
BGl_bitzd2ors8zd2zz__bitz00(BgL_auxz00_1801, BgL_auxz00_1810); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_1800);} } 

}



/* bit-oru8 */
BGL_EXPORTED_DEF uint8_t BGl_bitzd2oru8zd2zz__bitz00(uint8_t BgL_xz00_11, uint8_t BgL_yz00_12)
{
{ /* Llib/bit.scm 547 */
return 
(BgL_xz00_11 | BgL_yz00_12);} 

}



/* &bit-oru8 */
obj_t BGl_z62bitzd2oru8zb0zz__bitz00(obj_t BgL_envz00_1230, obj_t BgL_xz00_1231, obj_t BgL_yz00_1232)
{
{ /* Llib/bit.scm 547 */
{ /* Llib/bit.scm 547 */
 uint8_t BgL_tmpz00_1822;
{ /* Llib/bit.scm 547 */
 uint8_t BgL_auxz00_1832; uint8_t BgL_auxz00_1823;
{ /* Llib/bit.scm 547 */
 obj_t BgL_tmpz00_1833;
if(
BGL_UINT8P(BgL_yz00_1232))
{ /* Llib/bit.scm 547 */
BgL_tmpz00_1833 = BgL_yz00_1232
; }  else 
{ 
 obj_t BgL_auxz00_1836;
BgL_auxz00_1836 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25392L), BGl_string1703z00zz__bitz00, BGl_string1704z00zz__bitz00, BgL_yz00_1232); 
FAILURE(BgL_auxz00_1836,BFALSE,BFALSE);} 
BgL_auxz00_1832 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_1833); } 
{ /* Llib/bit.scm 547 */
 obj_t BgL_tmpz00_1824;
if(
BGL_UINT8P(BgL_xz00_1231))
{ /* Llib/bit.scm 547 */
BgL_tmpz00_1824 = BgL_xz00_1231
; }  else 
{ 
 obj_t BgL_auxz00_1827;
BgL_auxz00_1827 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25392L), BGl_string1703z00zz__bitz00, BGl_string1704z00zz__bitz00, BgL_xz00_1231); 
FAILURE(BgL_auxz00_1827,BFALSE,BFALSE);} 
BgL_auxz00_1823 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_1824); } 
BgL_tmpz00_1822 = 
BGl_bitzd2oru8zd2zz__bitz00(BgL_auxz00_1823, BgL_auxz00_1832); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_1822);} } 

}



/* bit-ors16 */
BGL_EXPORTED_DEF int16_t BGl_bitzd2ors16zd2zz__bitz00(int16_t BgL_xz00_13, int16_t BgL_yz00_14)
{
{ /* Llib/bit.scm 548 */
return 
(BgL_xz00_13 | BgL_yz00_14);} 

}



/* &bit-ors16 */
obj_t BGl_z62bitzd2ors16zb0zz__bitz00(obj_t BgL_envz00_1233, obj_t BgL_xz00_1234, obj_t BgL_yz00_1235)
{
{ /* Llib/bit.scm 548 */
{ /* Llib/bit.scm 548 */
 int16_t BgL_tmpz00_1844;
{ /* Llib/bit.scm 548 */
 int16_t BgL_auxz00_1854; int16_t BgL_auxz00_1845;
{ /* Llib/bit.scm 548 */
 obj_t BgL_tmpz00_1855;
if(
BGL_INT16P(BgL_yz00_1235))
{ /* Llib/bit.scm 548 */
BgL_tmpz00_1855 = BgL_yz00_1235
; }  else 
{ 
 obj_t BgL_auxz00_1858;
BgL_auxz00_1858 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25439L), BGl_string1705z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_yz00_1235); 
FAILURE(BgL_auxz00_1858,BFALSE,BFALSE);} 
BgL_auxz00_1854 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_1855); } 
{ /* Llib/bit.scm 548 */
 obj_t BgL_tmpz00_1846;
if(
BGL_INT16P(BgL_xz00_1234))
{ /* Llib/bit.scm 548 */
BgL_tmpz00_1846 = BgL_xz00_1234
; }  else 
{ 
 obj_t BgL_auxz00_1849;
BgL_auxz00_1849 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25439L), BGl_string1705z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_xz00_1234); 
FAILURE(BgL_auxz00_1849,BFALSE,BFALSE);} 
BgL_auxz00_1845 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_1846); } 
BgL_tmpz00_1844 = 
BGl_bitzd2ors16zd2zz__bitz00(BgL_auxz00_1845, BgL_auxz00_1854); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_1844);} } 

}



/* bit-oru16 */
BGL_EXPORTED_DEF uint16_t BGl_bitzd2oru16zd2zz__bitz00(uint16_t BgL_xz00_15, uint16_t BgL_yz00_16)
{
{ /* Llib/bit.scm 549 */
return 
(BgL_xz00_15 | BgL_yz00_16);} 

}



/* &bit-oru16 */
obj_t BGl_z62bitzd2oru16zb0zz__bitz00(obj_t BgL_envz00_1236, obj_t BgL_xz00_1237, obj_t BgL_yz00_1238)
{
{ /* Llib/bit.scm 549 */
{ /* Llib/bit.scm 549 */
 uint16_t BgL_tmpz00_1866;
{ /* Llib/bit.scm 549 */
 uint16_t BgL_auxz00_1876; uint16_t BgL_auxz00_1867;
{ /* Llib/bit.scm 549 */
 obj_t BgL_tmpz00_1877;
if(
BGL_UINT16P(BgL_yz00_1238))
{ /* Llib/bit.scm 549 */
BgL_tmpz00_1877 = BgL_yz00_1238
; }  else 
{ 
 obj_t BgL_auxz00_1880;
BgL_auxz00_1880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25487L), BGl_string1707z00zz__bitz00, BGl_string1708z00zz__bitz00, BgL_yz00_1238); 
FAILURE(BgL_auxz00_1880,BFALSE,BFALSE);} 
BgL_auxz00_1876 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_1877); } 
{ /* Llib/bit.scm 549 */
 obj_t BgL_tmpz00_1868;
if(
BGL_UINT16P(BgL_xz00_1237))
{ /* Llib/bit.scm 549 */
BgL_tmpz00_1868 = BgL_xz00_1237
; }  else 
{ 
 obj_t BgL_auxz00_1871;
BgL_auxz00_1871 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25487L), BGl_string1707z00zz__bitz00, BGl_string1708z00zz__bitz00, BgL_xz00_1237); 
FAILURE(BgL_auxz00_1871,BFALSE,BFALSE);} 
BgL_auxz00_1867 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_1868); } 
BgL_tmpz00_1866 = 
BGl_bitzd2oru16zd2zz__bitz00(BgL_auxz00_1867, BgL_auxz00_1876); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_1866);} } 

}



/* bit-ors32 */
BGL_EXPORTED_DEF int32_t BGl_bitzd2ors32zd2zz__bitz00(int32_t BgL_xz00_17, int32_t BgL_yz00_18)
{
{ /* Llib/bit.scm 550 */
return 
(BgL_xz00_17 | BgL_yz00_18);} 

}



/* &bit-ors32 */
obj_t BGl_z62bitzd2ors32zb0zz__bitz00(obj_t BgL_envz00_1239, obj_t BgL_xz00_1240, obj_t BgL_yz00_1241)
{
{ /* Llib/bit.scm 550 */
{ /* Llib/bit.scm 550 */
 int32_t BgL_tmpz00_1888;
{ /* Llib/bit.scm 550 */
 int32_t BgL_auxz00_1898; int32_t BgL_auxz00_1889;
{ /* Llib/bit.scm 550 */
 obj_t BgL_tmpz00_1899;
if(
BGL_INT32P(BgL_yz00_1241))
{ /* Llib/bit.scm 550 */
BgL_tmpz00_1899 = BgL_yz00_1241
; }  else 
{ 
 obj_t BgL_auxz00_1902;
BgL_auxz00_1902 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25535L), BGl_string1709z00zz__bitz00, BGl_string1710z00zz__bitz00, BgL_yz00_1241); 
FAILURE(BgL_auxz00_1902,BFALSE,BFALSE);} 
BgL_auxz00_1898 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_1899); } 
{ /* Llib/bit.scm 550 */
 obj_t BgL_tmpz00_1890;
if(
BGL_INT32P(BgL_xz00_1240))
{ /* Llib/bit.scm 550 */
BgL_tmpz00_1890 = BgL_xz00_1240
; }  else 
{ 
 obj_t BgL_auxz00_1893;
BgL_auxz00_1893 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25535L), BGl_string1709z00zz__bitz00, BGl_string1710z00zz__bitz00, BgL_xz00_1240); 
FAILURE(BgL_auxz00_1893,BFALSE,BFALSE);} 
BgL_auxz00_1889 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_1890); } 
BgL_tmpz00_1888 = 
BGl_bitzd2ors32zd2zz__bitz00(BgL_auxz00_1889, BgL_auxz00_1898); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_1888);} } 

}



/* bit-oru32 */
BGL_EXPORTED_DEF uint32_t BGl_bitzd2oru32zd2zz__bitz00(uint32_t BgL_xz00_19, uint32_t BgL_yz00_20)
{
{ /* Llib/bit.scm 551 */
return 
(BgL_xz00_19 | BgL_yz00_20);} 

}



/* &bit-oru32 */
obj_t BGl_z62bitzd2oru32zb0zz__bitz00(obj_t BgL_envz00_1242, obj_t BgL_xz00_1243, obj_t BgL_yz00_1244)
{
{ /* Llib/bit.scm 551 */
{ /* Llib/bit.scm 551 */
 uint32_t BgL_tmpz00_1910;
{ /* Llib/bit.scm 551 */
 uint32_t BgL_auxz00_1920; uint32_t BgL_auxz00_1911;
{ /* Llib/bit.scm 551 */
 obj_t BgL_tmpz00_1921;
if(
BGL_UINT32P(BgL_yz00_1244))
{ /* Llib/bit.scm 551 */
BgL_tmpz00_1921 = BgL_yz00_1244
; }  else 
{ 
 obj_t BgL_auxz00_1924;
BgL_auxz00_1924 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25583L), BGl_string1711z00zz__bitz00, BGl_string1712z00zz__bitz00, BgL_yz00_1244); 
FAILURE(BgL_auxz00_1924,BFALSE,BFALSE);} 
BgL_auxz00_1920 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_1921); } 
{ /* Llib/bit.scm 551 */
 obj_t BgL_tmpz00_1912;
if(
BGL_UINT32P(BgL_xz00_1243))
{ /* Llib/bit.scm 551 */
BgL_tmpz00_1912 = BgL_xz00_1243
; }  else 
{ 
 obj_t BgL_auxz00_1915;
BgL_auxz00_1915 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25583L), BGl_string1711z00zz__bitz00, BGl_string1712z00zz__bitz00, BgL_xz00_1243); 
FAILURE(BgL_auxz00_1915,BFALSE,BFALSE);} 
BgL_auxz00_1911 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_1912); } 
BgL_tmpz00_1910 = 
BGl_bitzd2oru32zd2zz__bitz00(BgL_auxz00_1911, BgL_auxz00_1920); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_1910);} } 

}



/* bit-ors64 */
BGL_EXPORTED_DEF int64_t BGl_bitzd2ors64zd2zz__bitz00(int64_t BgL_xz00_21, int64_t BgL_yz00_22)
{
{ /* Llib/bit.scm 552 */
return 
(BgL_xz00_21 | BgL_yz00_22);} 

}



/* &bit-ors64 */
obj_t BGl_z62bitzd2ors64zb0zz__bitz00(obj_t BgL_envz00_1245, obj_t BgL_xz00_1246, obj_t BgL_yz00_1247)
{
{ /* Llib/bit.scm 552 */
{ /* Llib/bit.scm 552 */
 int64_t BgL_tmpz00_1932;
{ /* Llib/bit.scm 552 */
 int64_t BgL_auxz00_1942; int64_t BgL_auxz00_1933;
{ /* Llib/bit.scm 552 */
 obj_t BgL_tmpz00_1943;
if(
BGL_INT64P(BgL_yz00_1247))
{ /* Llib/bit.scm 552 */
BgL_tmpz00_1943 = BgL_yz00_1247
; }  else 
{ 
 obj_t BgL_auxz00_1946;
BgL_auxz00_1946 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25631L), BGl_string1713z00zz__bitz00, BGl_string1714z00zz__bitz00, BgL_yz00_1247); 
FAILURE(BgL_auxz00_1946,BFALSE,BFALSE);} 
BgL_auxz00_1942 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_1943); } 
{ /* Llib/bit.scm 552 */
 obj_t BgL_tmpz00_1934;
if(
BGL_INT64P(BgL_xz00_1246))
{ /* Llib/bit.scm 552 */
BgL_tmpz00_1934 = BgL_xz00_1246
; }  else 
{ 
 obj_t BgL_auxz00_1937;
BgL_auxz00_1937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25631L), BGl_string1713z00zz__bitz00, BGl_string1714z00zz__bitz00, BgL_xz00_1246); 
FAILURE(BgL_auxz00_1937,BFALSE,BFALSE);} 
BgL_auxz00_1933 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_1934); } 
BgL_tmpz00_1932 = 
BGl_bitzd2ors64zd2zz__bitz00(BgL_auxz00_1933, BgL_auxz00_1942); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_1932);} } 

}



/* bit-oru64 */
BGL_EXPORTED_DEF uint64_t BGl_bitzd2oru64zd2zz__bitz00(uint64_t BgL_xz00_23, uint64_t BgL_yz00_24)
{
{ /* Llib/bit.scm 553 */
return 
(BgL_xz00_23 | BgL_yz00_24);} 

}



/* &bit-oru64 */
obj_t BGl_z62bitzd2oru64zb0zz__bitz00(obj_t BgL_envz00_1248, obj_t BgL_xz00_1249, obj_t BgL_yz00_1250)
{
{ /* Llib/bit.scm 553 */
{ /* Llib/bit.scm 553 */
 uint64_t BgL_tmpz00_1954;
{ /* Llib/bit.scm 553 */
 uint64_t BgL_auxz00_1964; uint64_t BgL_auxz00_1955;
{ /* Llib/bit.scm 553 */
 obj_t BgL_tmpz00_1965;
if(
BGL_UINT64P(BgL_yz00_1250))
{ /* Llib/bit.scm 553 */
BgL_tmpz00_1965 = BgL_yz00_1250
; }  else 
{ 
 obj_t BgL_auxz00_1968;
BgL_auxz00_1968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25679L), BGl_string1715z00zz__bitz00, BGl_string1716z00zz__bitz00, BgL_yz00_1250); 
FAILURE(BgL_auxz00_1968,BFALSE,BFALSE);} 
BgL_auxz00_1964 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_1965); } 
{ /* Llib/bit.scm 553 */
 obj_t BgL_tmpz00_1956;
if(
BGL_UINT64P(BgL_xz00_1249))
{ /* Llib/bit.scm 553 */
BgL_tmpz00_1956 = BgL_xz00_1249
; }  else 
{ 
 obj_t BgL_auxz00_1959;
BgL_auxz00_1959 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25679L), BGl_string1715z00zz__bitz00, BGl_string1716z00zz__bitz00, BgL_xz00_1249); 
FAILURE(BgL_auxz00_1959,BFALSE,BFALSE);} 
BgL_auxz00_1955 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_1956); } 
BgL_tmpz00_1954 = 
BGl_bitzd2oru64zd2zz__bitz00(BgL_auxz00_1955, BgL_auxz00_1964); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_1954);} } 

}



/* bit-orbx */
BGL_EXPORTED_DEF obj_t BGl_bitzd2orbxzd2zz__bitz00(obj_t BgL_xz00_25, obj_t BgL_yz00_26)
{
{ /* Llib/bit.scm 554 */
BGL_TAIL return 
bgl_bignum_or(BgL_xz00_25, BgL_yz00_26);} 

}



/* &bit-orbx */
obj_t BGl_z62bitzd2orbxzb0zz__bitz00(obj_t BgL_envz00_1251, obj_t BgL_xz00_1252, obj_t BgL_yz00_1253)
{
{ /* Llib/bit.scm 554 */
{ /* Llib/bit.scm 554 */
 obj_t BgL_auxz00_1983; obj_t BgL_auxz00_1976;
if(
BIGNUMP(BgL_yz00_1253))
{ /* Llib/bit.scm 554 */
BgL_auxz00_1983 = BgL_yz00_1253
; }  else 
{ 
 obj_t BgL_auxz00_1986;
BgL_auxz00_1986 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25726L), BGl_string1717z00zz__bitz00, BGl_string1718z00zz__bitz00, BgL_yz00_1253); 
FAILURE(BgL_auxz00_1986,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_xz00_1252))
{ /* Llib/bit.scm 554 */
BgL_auxz00_1976 = BgL_xz00_1252
; }  else 
{ 
 obj_t BgL_auxz00_1979;
BgL_auxz00_1979 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25726L), BGl_string1717z00zz__bitz00, BGl_string1718z00zz__bitz00, BgL_xz00_1252); 
FAILURE(BgL_auxz00_1979,BFALSE,BFALSE);} 
return 
BGl_bitzd2orbxzd2zz__bitz00(BgL_auxz00_1976, BgL_auxz00_1983);} } 

}



/* bit-and */
BGL_EXPORTED_DEF long BGl_bitzd2andzd2zz__bitz00(long BgL_xz00_27, long BgL_yz00_28)
{
{ /* Llib/bit.scm 559 */
return 
(BgL_xz00_27 & BgL_yz00_28);} 

}



/* &bit-and */
obj_t BGl_z62bitzd2andzb0zz__bitz00(obj_t BgL_envz00_1254, obj_t BgL_xz00_1255, obj_t BgL_yz00_1256)
{
{ /* Llib/bit.scm 559 */
{ /* Llib/bit.scm 559 */
 long BgL_tmpz00_1992;
{ /* Llib/bit.scm 559 */
 long BgL_auxz00_2002; long BgL_auxz00_1993;
{ /* Llib/bit.scm 559 */
 obj_t BgL_tmpz00_2003;
if(
INTEGERP(BgL_yz00_1256))
{ /* Llib/bit.scm 559 */
BgL_tmpz00_2003 = BgL_yz00_1256
; }  else 
{ 
 obj_t BgL_auxz00_2006;
BgL_auxz00_2006 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25994L), BGl_string1719z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1256); 
FAILURE(BgL_auxz00_2006,BFALSE,BFALSE);} 
BgL_auxz00_2002 = 
(long)CINT(BgL_tmpz00_2003); } 
{ /* Llib/bit.scm 559 */
 obj_t BgL_tmpz00_1994;
if(
INTEGERP(BgL_xz00_1255))
{ /* Llib/bit.scm 559 */
BgL_tmpz00_1994 = BgL_xz00_1255
; }  else 
{ 
 obj_t BgL_auxz00_1997;
BgL_auxz00_1997 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(25994L), BGl_string1719z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_xz00_1255); 
FAILURE(BgL_auxz00_1997,BFALSE,BFALSE);} 
BgL_auxz00_1993 = 
(long)CINT(BgL_tmpz00_1994); } 
BgL_tmpz00_1992 = 
BGl_bitzd2andzd2zz__bitz00(BgL_auxz00_1993, BgL_auxz00_2002); } 
return 
BINT(BgL_tmpz00_1992);} } 

}



/* bit-andelong */
BGL_EXPORTED_DEF long BGl_bitzd2andelongzd2zz__bitz00(long BgL_xz00_29, long BgL_yz00_30)
{
{ /* Llib/bit.scm 560 */
return 
(BgL_xz00_29 & BgL_yz00_30);} 

}



/* &bit-andelong */
obj_t BGl_z62bitzd2andelongzb0zz__bitz00(obj_t BgL_envz00_1257, obj_t BgL_xz00_1258, obj_t BgL_yz00_1259)
{
{ /* Llib/bit.scm 560 */
{ /* Llib/bit.scm 560 */
 long BgL_tmpz00_2014;
{ /* Llib/bit.scm 560 */
 long BgL_auxz00_2024; long BgL_auxz00_2015;
{ /* Llib/bit.scm 560 */
 obj_t BgL_tmpz00_2025;
if(
ELONGP(BgL_yz00_1259))
{ /* Llib/bit.scm 560 */
BgL_tmpz00_2025 = BgL_yz00_1259
; }  else 
{ 
 obj_t BgL_auxz00_2028;
BgL_auxz00_2028 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26043L), BGl_string1720z00zz__bitz00, BGl_string1698z00zz__bitz00, BgL_yz00_1259); 
FAILURE(BgL_auxz00_2028,BFALSE,BFALSE);} 
BgL_auxz00_2024 = 
BELONG_TO_LONG(BgL_tmpz00_2025); } 
{ /* Llib/bit.scm 560 */
 obj_t BgL_tmpz00_2016;
if(
ELONGP(BgL_xz00_1258))
{ /* Llib/bit.scm 560 */
BgL_tmpz00_2016 = BgL_xz00_1258
; }  else 
{ 
 obj_t BgL_auxz00_2019;
BgL_auxz00_2019 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26043L), BGl_string1720z00zz__bitz00, BGl_string1698z00zz__bitz00, BgL_xz00_1258); 
FAILURE(BgL_auxz00_2019,BFALSE,BFALSE);} 
BgL_auxz00_2015 = 
BELONG_TO_LONG(BgL_tmpz00_2016); } 
BgL_tmpz00_2014 = 
BGl_bitzd2andelongzd2zz__bitz00(BgL_auxz00_2015, BgL_auxz00_2024); } 
return 
make_belong(BgL_tmpz00_2014);} } 

}



/* bit-andllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_bitzd2andllongzd2zz__bitz00(BGL_LONGLONG_T BgL_xz00_31, BGL_LONGLONG_T BgL_yz00_32)
{
{ /* Llib/bit.scm 561 */
return 
(BgL_xz00_31 & BgL_yz00_32);} 

}



/* &bit-andllong */
obj_t BGl_z62bitzd2andllongzb0zz__bitz00(obj_t BgL_envz00_1260, obj_t BgL_xz00_1261, obj_t BgL_yz00_1262)
{
{ /* Llib/bit.scm 561 */
{ /* Llib/bit.scm 561 */
 BGL_LONGLONG_T BgL_tmpz00_2036;
{ /* Llib/bit.scm 561 */
 BGL_LONGLONG_T BgL_auxz00_2046; BGL_LONGLONG_T BgL_auxz00_2037;
{ /* Llib/bit.scm 561 */
 obj_t BgL_tmpz00_2047;
if(
LLONGP(BgL_yz00_1262))
{ /* Llib/bit.scm 561 */
BgL_tmpz00_2047 = BgL_yz00_1262
; }  else 
{ 
 obj_t BgL_auxz00_2050;
BgL_auxz00_2050 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26097L), BGl_string1721z00zz__bitz00, BGl_string1700z00zz__bitz00, BgL_yz00_1262); 
FAILURE(BgL_auxz00_2050,BFALSE,BFALSE);} 
BgL_auxz00_2046 = 
BLLONG_TO_LLONG(BgL_tmpz00_2047); } 
{ /* Llib/bit.scm 561 */
 obj_t BgL_tmpz00_2038;
if(
LLONGP(BgL_xz00_1261))
{ /* Llib/bit.scm 561 */
BgL_tmpz00_2038 = BgL_xz00_1261
; }  else 
{ 
 obj_t BgL_auxz00_2041;
BgL_auxz00_2041 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26097L), BGl_string1721z00zz__bitz00, BGl_string1700z00zz__bitz00, BgL_xz00_1261); 
FAILURE(BgL_auxz00_2041,BFALSE,BFALSE);} 
BgL_auxz00_2037 = 
BLLONG_TO_LLONG(BgL_tmpz00_2038); } 
BgL_tmpz00_2036 = 
BGl_bitzd2andllongzd2zz__bitz00(BgL_auxz00_2037, BgL_auxz00_2046); } 
return 
make_bllong(BgL_tmpz00_2036);} } 

}



/* bit-ands8 */
BGL_EXPORTED_DEF int8_t BGl_bitzd2ands8zd2zz__bitz00(int8_t BgL_xz00_33, int8_t BgL_yz00_34)
{
{ /* Llib/bit.scm 562 */
return 
(BgL_xz00_33 & BgL_yz00_34);} 

}



/* &bit-ands8 */
obj_t BGl_z62bitzd2ands8zb0zz__bitz00(obj_t BgL_envz00_1263, obj_t BgL_xz00_1264, obj_t BgL_yz00_1265)
{
{ /* Llib/bit.scm 562 */
{ /* Llib/bit.scm 562 */
 int8_t BgL_tmpz00_2058;
{ /* Llib/bit.scm 562 */
 int8_t BgL_auxz00_2068; int8_t BgL_auxz00_2059;
{ /* Llib/bit.scm 562 */
 obj_t BgL_tmpz00_2069;
if(
BGL_INT8P(BgL_yz00_1265))
{ /* Llib/bit.scm 562 */
BgL_tmpz00_2069 = BgL_yz00_1265
; }  else 
{ 
 obj_t BgL_auxz00_2072;
BgL_auxz00_2072 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26148L), BGl_string1722z00zz__bitz00, BGl_string1702z00zz__bitz00, BgL_yz00_1265); 
FAILURE(BgL_auxz00_2072,BFALSE,BFALSE);} 
BgL_auxz00_2068 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_2069); } 
{ /* Llib/bit.scm 562 */
 obj_t BgL_tmpz00_2060;
if(
BGL_INT8P(BgL_xz00_1264))
{ /* Llib/bit.scm 562 */
BgL_tmpz00_2060 = BgL_xz00_1264
; }  else 
{ 
 obj_t BgL_auxz00_2063;
BgL_auxz00_2063 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26148L), BGl_string1722z00zz__bitz00, BGl_string1702z00zz__bitz00, BgL_xz00_1264); 
FAILURE(BgL_auxz00_2063,BFALSE,BFALSE);} 
BgL_auxz00_2059 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_2060); } 
BgL_tmpz00_2058 = 
BGl_bitzd2ands8zd2zz__bitz00(BgL_auxz00_2059, BgL_auxz00_2068); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_2058);} } 

}



/* bit-andu8 */
BGL_EXPORTED_DEF uint8_t BGl_bitzd2andu8zd2zz__bitz00(uint8_t BgL_xz00_35, uint8_t BgL_yz00_36)
{
{ /* Llib/bit.scm 563 */
return 
(BgL_xz00_35 & BgL_yz00_36);} 

}



/* &bit-andu8 */
obj_t BGl_z62bitzd2andu8zb0zz__bitz00(obj_t BgL_envz00_1266, obj_t BgL_xz00_1267, obj_t BgL_yz00_1268)
{
{ /* Llib/bit.scm 563 */
{ /* Llib/bit.scm 563 */
 uint8_t BgL_tmpz00_2080;
{ /* Llib/bit.scm 563 */
 uint8_t BgL_auxz00_2090; uint8_t BgL_auxz00_2081;
{ /* Llib/bit.scm 563 */
 obj_t BgL_tmpz00_2091;
if(
BGL_UINT8P(BgL_yz00_1268))
{ /* Llib/bit.scm 563 */
BgL_tmpz00_2091 = BgL_yz00_1268
; }  else 
{ 
 obj_t BgL_auxz00_2094;
BgL_auxz00_2094 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26196L), BGl_string1723z00zz__bitz00, BGl_string1704z00zz__bitz00, BgL_yz00_1268); 
FAILURE(BgL_auxz00_2094,BFALSE,BFALSE);} 
BgL_auxz00_2090 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_2091); } 
{ /* Llib/bit.scm 563 */
 obj_t BgL_tmpz00_2082;
if(
BGL_UINT8P(BgL_xz00_1267))
{ /* Llib/bit.scm 563 */
BgL_tmpz00_2082 = BgL_xz00_1267
; }  else 
{ 
 obj_t BgL_auxz00_2085;
BgL_auxz00_2085 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26196L), BGl_string1723z00zz__bitz00, BGl_string1704z00zz__bitz00, BgL_xz00_1267); 
FAILURE(BgL_auxz00_2085,BFALSE,BFALSE);} 
BgL_auxz00_2081 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_2082); } 
BgL_tmpz00_2080 = 
BGl_bitzd2andu8zd2zz__bitz00(BgL_auxz00_2081, BgL_auxz00_2090); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_2080);} } 

}



/* bit-ands16 */
BGL_EXPORTED_DEF int16_t BGl_bitzd2ands16zd2zz__bitz00(int16_t BgL_xz00_37, int16_t BgL_yz00_38)
{
{ /* Llib/bit.scm 564 */
return 
(BgL_xz00_37 & BgL_yz00_38);} 

}



/* &bit-ands16 */
obj_t BGl_z62bitzd2ands16zb0zz__bitz00(obj_t BgL_envz00_1269, obj_t BgL_xz00_1270, obj_t BgL_yz00_1271)
{
{ /* Llib/bit.scm 564 */
{ /* Llib/bit.scm 564 */
 int16_t BgL_tmpz00_2102;
{ /* Llib/bit.scm 564 */
 int16_t BgL_auxz00_2112; int16_t BgL_auxz00_2103;
{ /* Llib/bit.scm 564 */
 obj_t BgL_tmpz00_2113;
if(
BGL_INT16P(BgL_yz00_1271))
{ /* Llib/bit.scm 564 */
BgL_tmpz00_2113 = BgL_yz00_1271
; }  else 
{ 
 obj_t BgL_auxz00_2116;
BgL_auxz00_2116 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26245L), BGl_string1724z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_yz00_1271); 
FAILURE(BgL_auxz00_2116,BFALSE,BFALSE);} 
BgL_auxz00_2112 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_2113); } 
{ /* Llib/bit.scm 564 */
 obj_t BgL_tmpz00_2104;
if(
BGL_INT16P(BgL_xz00_1270))
{ /* Llib/bit.scm 564 */
BgL_tmpz00_2104 = BgL_xz00_1270
; }  else 
{ 
 obj_t BgL_auxz00_2107;
BgL_auxz00_2107 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26245L), BGl_string1724z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_xz00_1270); 
FAILURE(BgL_auxz00_2107,BFALSE,BFALSE);} 
BgL_auxz00_2103 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_2104); } 
BgL_tmpz00_2102 = 
BGl_bitzd2ands16zd2zz__bitz00(BgL_auxz00_2103, BgL_auxz00_2112); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_2102);} } 

}



/* bit-andu16 */
BGL_EXPORTED_DEF uint16_t BGl_bitzd2andu16zd2zz__bitz00(uint16_t BgL_xz00_39, uint16_t BgL_yz00_40)
{
{ /* Llib/bit.scm 565 */
return 
(BgL_xz00_39 & BgL_yz00_40);} 

}



/* &bit-andu16 */
obj_t BGl_z62bitzd2andu16zb0zz__bitz00(obj_t BgL_envz00_1272, obj_t BgL_xz00_1273, obj_t BgL_yz00_1274)
{
{ /* Llib/bit.scm 565 */
{ /* Llib/bit.scm 565 */
 uint16_t BgL_tmpz00_2124;
{ /* Llib/bit.scm 565 */
 uint16_t BgL_auxz00_2134; uint16_t BgL_auxz00_2125;
{ /* Llib/bit.scm 565 */
 obj_t BgL_tmpz00_2135;
if(
BGL_UINT16P(BgL_yz00_1274))
{ /* Llib/bit.scm 565 */
BgL_tmpz00_2135 = BgL_yz00_1274
; }  else 
{ 
 obj_t BgL_auxz00_2138;
BgL_auxz00_2138 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26295L), BGl_string1725z00zz__bitz00, BGl_string1708z00zz__bitz00, BgL_yz00_1274); 
FAILURE(BgL_auxz00_2138,BFALSE,BFALSE);} 
BgL_auxz00_2134 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_2135); } 
{ /* Llib/bit.scm 565 */
 obj_t BgL_tmpz00_2126;
if(
BGL_UINT16P(BgL_xz00_1273))
{ /* Llib/bit.scm 565 */
BgL_tmpz00_2126 = BgL_xz00_1273
; }  else 
{ 
 obj_t BgL_auxz00_2129;
BgL_auxz00_2129 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26295L), BGl_string1725z00zz__bitz00, BGl_string1708z00zz__bitz00, BgL_xz00_1273); 
FAILURE(BgL_auxz00_2129,BFALSE,BFALSE);} 
BgL_auxz00_2125 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_2126); } 
BgL_tmpz00_2124 = 
BGl_bitzd2andu16zd2zz__bitz00(BgL_auxz00_2125, BgL_auxz00_2134); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_2124);} } 

}



/* bit-ands32 */
BGL_EXPORTED_DEF int32_t BGl_bitzd2ands32zd2zz__bitz00(int32_t BgL_xz00_41, int32_t BgL_yz00_42)
{
{ /* Llib/bit.scm 566 */
return 
(BgL_xz00_41 & BgL_yz00_42);} 

}



/* &bit-ands32 */
obj_t BGl_z62bitzd2ands32zb0zz__bitz00(obj_t BgL_envz00_1275, obj_t BgL_xz00_1276, obj_t BgL_yz00_1277)
{
{ /* Llib/bit.scm 566 */
{ /* Llib/bit.scm 566 */
 int32_t BgL_tmpz00_2146;
{ /* Llib/bit.scm 566 */
 int32_t BgL_auxz00_2156; int32_t BgL_auxz00_2147;
{ /* Llib/bit.scm 566 */
 obj_t BgL_tmpz00_2157;
if(
BGL_INT32P(BgL_yz00_1277))
{ /* Llib/bit.scm 566 */
BgL_tmpz00_2157 = BgL_yz00_1277
; }  else 
{ 
 obj_t BgL_auxz00_2160;
BgL_auxz00_2160 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26345L), BGl_string1726z00zz__bitz00, BGl_string1710z00zz__bitz00, BgL_yz00_1277); 
FAILURE(BgL_auxz00_2160,BFALSE,BFALSE);} 
BgL_auxz00_2156 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_2157); } 
{ /* Llib/bit.scm 566 */
 obj_t BgL_tmpz00_2148;
if(
BGL_INT32P(BgL_xz00_1276))
{ /* Llib/bit.scm 566 */
BgL_tmpz00_2148 = BgL_xz00_1276
; }  else 
{ 
 obj_t BgL_auxz00_2151;
BgL_auxz00_2151 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26345L), BGl_string1726z00zz__bitz00, BGl_string1710z00zz__bitz00, BgL_xz00_1276); 
FAILURE(BgL_auxz00_2151,BFALSE,BFALSE);} 
BgL_auxz00_2147 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_2148); } 
BgL_tmpz00_2146 = 
BGl_bitzd2ands32zd2zz__bitz00(BgL_auxz00_2147, BgL_auxz00_2156); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_2146);} } 

}



/* bit-andu32 */
BGL_EXPORTED_DEF uint32_t BGl_bitzd2andu32zd2zz__bitz00(uint32_t BgL_xz00_43, uint32_t BgL_yz00_44)
{
{ /* Llib/bit.scm 567 */
return 
(BgL_xz00_43 & BgL_yz00_44);} 

}



/* &bit-andu32 */
obj_t BGl_z62bitzd2andu32zb0zz__bitz00(obj_t BgL_envz00_1278, obj_t BgL_xz00_1279, obj_t BgL_yz00_1280)
{
{ /* Llib/bit.scm 567 */
{ /* Llib/bit.scm 567 */
 uint32_t BgL_tmpz00_2168;
{ /* Llib/bit.scm 567 */
 uint32_t BgL_auxz00_2178; uint32_t BgL_auxz00_2169;
{ /* Llib/bit.scm 567 */
 obj_t BgL_tmpz00_2179;
if(
BGL_UINT32P(BgL_yz00_1280))
{ /* Llib/bit.scm 567 */
BgL_tmpz00_2179 = BgL_yz00_1280
; }  else 
{ 
 obj_t BgL_auxz00_2182;
BgL_auxz00_2182 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26395L), BGl_string1727z00zz__bitz00, BGl_string1712z00zz__bitz00, BgL_yz00_1280); 
FAILURE(BgL_auxz00_2182,BFALSE,BFALSE);} 
BgL_auxz00_2178 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_2179); } 
{ /* Llib/bit.scm 567 */
 obj_t BgL_tmpz00_2170;
if(
BGL_UINT32P(BgL_xz00_1279))
{ /* Llib/bit.scm 567 */
BgL_tmpz00_2170 = BgL_xz00_1279
; }  else 
{ 
 obj_t BgL_auxz00_2173;
BgL_auxz00_2173 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26395L), BGl_string1727z00zz__bitz00, BGl_string1712z00zz__bitz00, BgL_xz00_1279); 
FAILURE(BgL_auxz00_2173,BFALSE,BFALSE);} 
BgL_auxz00_2169 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_2170); } 
BgL_tmpz00_2168 = 
BGl_bitzd2andu32zd2zz__bitz00(BgL_auxz00_2169, BgL_auxz00_2178); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_2168);} } 

}



/* bit-ands64 */
BGL_EXPORTED_DEF int64_t BGl_bitzd2ands64zd2zz__bitz00(int64_t BgL_xz00_45, int64_t BgL_yz00_46)
{
{ /* Llib/bit.scm 568 */
return 
(BgL_xz00_45 & BgL_yz00_46);} 

}



/* &bit-ands64 */
obj_t BGl_z62bitzd2ands64zb0zz__bitz00(obj_t BgL_envz00_1281, obj_t BgL_xz00_1282, obj_t BgL_yz00_1283)
{
{ /* Llib/bit.scm 568 */
{ /* Llib/bit.scm 568 */
 int64_t BgL_tmpz00_2190;
{ /* Llib/bit.scm 568 */
 int64_t BgL_auxz00_2200; int64_t BgL_auxz00_2191;
{ /* Llib/bit.scm 568 */
 obj_t BgL_tmpz00_2201;
if(
BGL_INT64P(BgL_yz00_1283))
{ /* Llib/bit.scm 568 */
BgL_tmpz00_2201 = BgL_yz00_1283
; }  else 
{ 
 obj_t BgL_auxz00_2204;
BgL_auxz00_2204 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26445L), BGl_string1728z00zz__bitz00, BGl_string1714z00zz__bitz00, BgL_yz00_1283); 
FAILURE(BgL_auxz00_2204,BFALSE,BFALSE);} 
BgL_auxz00_2200 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2201); } 
{ /* Llib/bit.scm 568 */
 obj_t BgL_tmpz00_2192;
if(
BGL_INT64P(BgL_xz00_1282))
{ /* Llib/bit.scm 568 */
BgL_tmpz00_2192 = BgL_xz00_1282
; }  else 
{ 
 obj_t BgL_auxz00_2195;
BgL_auxz00_2195 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26445L), BGl_string1728z00zz__bitz00, BGl_string1714z00zz__bitz00, BgL_xz00_1282); 
FAILURE(BgL_auxz00_2195,BFALSE,BFALSE);} 
BgL_auxz00_2191 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2192); } 
BgL_tmpz00_2190 = 
BGl_bitzd2ands64zd2zz__bitz00(BgL_auxz00_2191, BgL_auxz00_2200); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_2190);} } 

}



/* bit-andu64 */
BGL_EXPORTED_DEF uint64_t BGl_bitzd2andu64zd2zz__bitz00(uint64_t BgL_xz00_47, uint64_t BgL_yz00_48)
{
{ /* Llib/bit.scm 569 */
return 
(BgL_xz00_47 & BgL_yz00_48);} 

}



/* &bit-andu64 */
obj_t BGl_z62bitzd2andu64zb0zz__bitz00(obj_t BgL_envz00_1284, obj_t BgL_xz00_1285, obj_t BgL_yz00_1286)
{
{ /* Llib/bit.scm 569 */
{ /* Llib/bit.scm 569 */
 uint64_t BgL_tmpz00_2212;
{ /* Llib/bit.scm 569 */
 uint64_t BgL_auxz00_2222; uint64_t BgL_auxz00_2213;
{ /* Llib/bit.scm 569 */
 obj_t BgL_tmpz00_2223;
if(
BGL_UINT64P(BgL_yz00_1286))
{ /* Llib/bit.scm 569 */
BgL_tmpz00_2223 = BgL_yz00_1286
; }  else 
{ 
 obj_t BgL_auxz00_2226;
BgL_auxz00_2226 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26495L), BGl_string1729z00zz__bitz00, BGl_string1716z00zz__bitz00, BgL_yz00_1286); 
FAILURE(BgL_auxz00_2226,BFALSE,BFALSE);} 
BgL_auxz00_2222 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2223); } 
{ /* Llib/bit.scm 569 */
 obj_t BgL_tmpz00_2214;
if(
BGL_UINT64P(BgL_xz00_1285))
{ /* Llib/bit.scm 569 */
BgL_tmpz00_2214 = BgL_xz00_1285
; }  else 
{ 
 obj_t BgL_auxz00_2217;
BgL_auxz00_2217 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26495L), BGl_string1729z00zz__bitz00, BGl_string1716z00zz__bitz00, BgL_xz00_1285); 
FAILURE(BgL_auxz00_2217,BFALSE,BFALSE);} 
BgL_auxz00_2213 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2214); } 
BgL_tmpz00_2212 = 
BGl_bitzd2andu64zd2zz__bitz00(BgL_auxz00_2213, BgL_auxz00_2222); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_2212);} } 

}



/* bit-andbx */
BGL_EXPORTED_DEF obj_t BGl_bitzd2andbxzd2zz__bitz00(obj_t BgL_xz00_49, obj_t BgL_yz00_50)
{
{ /* Llib/bit.scm 570 */
BGL_TAIL return 
bgl_bignum_and(BgL_xz00_49, BgL_yz00_50);} 

}



/* &bit-andbx */
obj_t BGl_z62bitzd2andbxzb0zz__bitz00(obj_t BgL_envz00_1287, obj_t BgL_xz00_1288, obj_t BgL_yz00_1289)
{
{ /* Llib/bit.scm 570 */
{ /* Llib/bit.scm 570 */
 obj_t BgL_auxz00_2241; obj_t BgL_auxz00_2234;
if(
BIGNUMP(BgL_yz00_1289))
{ /* Llib/bit.scm 570 */
BgL_auxz00_2241 = BgL_yz00_1289
; }  else 
{ 
 obj_t BgL_auxz00_2244;
BgL_auxz00_2244 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26544L), BGl_string1730z00zz__bitz00, BGl_string1718z00zz__bitz00, BgL_yz00_1289); 
FAILURE(BgL_auxz00_2244,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_xz00_1288))
{ /* Llib/bit.scm 570 */
BgL_auxz00_2234 = BgL_xz00_1288
; }  else 
{ 
 obj_t BgL_auxz00_2237;
BgL_auxz00_2237 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26544L), BGl_string1730z00zz__bitz00, BGl_string1718z00zz__bitz00, BgL_xz00_1288); 
FAILURE(BgL_auxz00_2237,BFALSE,BFALSE);} 
return 
BGl_bitzd2andbxzd2zz__bitz00(BgL_auxz00_2234, BgL_auxz00_2241);} } 

}



/* bit-maskbx */
BGL_EXPORTED_DEF obj_t BGl_bitzd2maskbxzd2zz__bitz00(obj_t BgL_xz00_51, long BgL_nz00_52)
{
{ /* Llib/bit.scm 572 */
BGL_TAIL return 
bgl_bignum_mask(BgL_xz00_51, BgL_nz00_52);} 

}



/* &bit-maskbx */
obj_t BGl_z62bitzd2maskbxzb0zz__bitz00(obj_t BgL_envz00_1290, obj_t BgL_xz00_1291, obj_t BgL_nz00_1292)
{
{ /* Llib/bit.scm 572 */
{ /* Llib/bit.scm 572 */
 long BgL_auxz00_2257; obj_t BgL_auxz00_2250;
{ /* Llib/bit.scm 572 */
 obj_t BgL_tmpz00_2258;
if(
INTEGERP(BgL_nz00_1292))
{ /* Llib/bit.scm 572 */
BgL_tmpz00_2258 = BgL_nz00_1292
; }  else 
{ 
 obj_t BgL_auxz00_2261;
BgL_auxz00_2261 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26594L), BGl_string1731z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_nz00_1292); 
FAILURE(BgL_auxz00_2261,BFALSE,BFALSE);} 
BgL_auxz00_2257 = 
(long)CINT(BgL_tmpz00_2258); } 
if(
BIGNUMP(BgL_xz00_1291))
{ /* Llib/bit.scm 572 */
BgL_auxz00_2250 = BgL_xz00_1291
; }  else 
{ 
 obj_t BgL_auxz00_2253;
BgL_auxz00_2253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26594L), BGl_string1731z00zz__bitz00, BGl_string1718z00zz__bitz00, BgL_xz00_1291); 
FAILURE(BgL_auxz00_2253,BFALSE,BFALSE);} 
return 
BGl_bitzd2maskbxzd2zz__bitz00(BgL_auxz00_2250, BgL_auxz00_2257);} } 

}



/* bit-xor */
BGL_EXPORTED_DEF long BGl_bitzd2xorzd2zz__bitz00(long BgL_xz00_53, long BgL_yz00_54)
{
{ /* Llib/bit.scm 577 */
return 
(BgL_xz00_53 ^ BgL_yz00_54);} 

}



/* &bit-xor */
obj_t BGl_z62bitzd2xorzb0zz__bitz00(obj_t BgL_envz00_1293, obj_t BgL_xz00_1294, obj_t BgL_yz00_1295)
{
{ /* Llib/bit.scm 577 */
{ /* Llib/bit.scm 577 */
 long BgL_tmpz00_2268;
{ /* Llib/bit.scm 577 */
 long BgL_auxz00_2278; long BgL_auxz00_2269;
{ /* Llib/bit.scm 577 */
 obj_t BgL_tmpz00_2279;
if(
INTEGERP(BgL_yz00_1295))
{ /* Llib/bit.scm 577 */
BgL_tmpz00_2279 = BgL_yz00_1295
; }  else 
{ 
 obj_t BgL_auxz00_2282;
BgL_auxz00_2282 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26864L), BGl_string1732z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1295); 
FAILURE(BgL_auxz00_2282,BFALSE,BFALSE);} 
BgL_auxz00_2278 = 
(long)CINT(BgL_tmpz00_2279); } 
{ /* Llib/bit.scm 577 */
 obj_t BgL_tmpz00_2270;
if(
INTEGERP(BgL_xz00_1294))
{ /* Llib/bit.scm 577 */
BgL_tmpz00_2270 = BgL_xz00_1294
; }  else 
{ 
 obj_t BgL_auxz00_2273;
BgL_auxz00_2273 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26864L), BGl_string1732z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_xz00_1294); 
FAILURE(BgL_auxz00_2273,BFALSE,BFALSE);} 
BgL_auxz00_2269 = 
(long)CINT(BgL_tmpz00_2270); } 
BgL_tmpz00_2268 = 
BGl_bitzd2xorzd2zz__bitz00(BgL_auxz00_2269, BgL_auxz00_2278); } 
return 
BINT(BgL_tmpz00_2268);} } 

}



/* bit-xorelong */
BGL_EXPORTED_DEF long BGl_bitzd2xorelongzd2zz__bitz00(long BgL_xz00_55, long BgL_yz00_56)
{
{ /* Llib/bit.scm 578 */
return 
(BgL_xz00_55 ^ BgL_yz00_56);} 

}



/* &bit-xorelong */
obj_t BGl_z62bitzd2xorelongzb0zz__bitz00(obj_t BgL_envz00_1296, obj_t BgL_xz00_1297, obj_t BgL_yz00_1298)
{
{ /* Llib/bit.scm 578 */
{ /* Llib/bit.scm 578 */
 long BgL_tmpz00_2290;
{ /* Llib/bit.scm 578 */
 long BgL_auxz00_2300; long BgL_auxz00_2291;
{ /* Llib/bit.scm 578 */
 obj_t BgL_tmpz00_2301;
if(
ELONGP(BgL_yz00_1298))
{ /* Llib/bit.scm 578 */
BgL_tmpz00_2301 = BgL_yz00_1298
; }  else 
{ 
 obj_t BgL_auxz00_2304;
BgL_auxz00_2304 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26913L), BGl_string1733z00zz__bitz00, BGl_string1698z00zz__bitz00, BgL_yz00_1298); 
FAILURE(BgL_auxz00_2304,BFALSE,BFALSE);} 
BgL_auxz00_2300 = 
BELONG_TO_LONG(BgL_tmpz00_2301); } 
{ /* Llib/bit.scm 578 */
 obj_t BgL_tmpz00_2292;
if(
ELONGP(BgL_xz00_1297))
{ /* Llib/bit.scm 578 */
BgL_tmpz00_2292 = BgL_xz00_1297
; }  else 
{ 
 obj_t BgL_auxz00_2295;
BgL_auxz00_2295 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26913L), BGl_string1733z00zz__bitz00, BGl_string1698z00zz__bitz00, BgL_xz00_1297); 
FAILURE(BgL_auxz00_2295,BFALSE,BFALSE);} 
BgL_auxz00_2291 = 
BELONG_TO_LONG(BgL_tmpz00_2292); } 
BgL_tmpz00_2290 = 
BGl_bitzd2xorelongzd2zz__bitz00(BgL_auxz00_2291, BgL_auxz00_2300); } 
return 
make_belong(BgL_tmpz00_2290);} } 

}



/* bit-xorllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_bitzd2xorllongzd2zz__bitz00(BGL_LONGLONG_T BgL_xz00_57, BGL_LONGLONG_T BgL_yz00_58)
{
{ /* Llib/bit.scm 579 */
return 
(BgL_xz00_57 ^ BgL_yz00_58);} 

}



/* &bit-xorllong */
obj_t BGl_z62bitzd2xorllongzb0zz__bitz00(obj_t BgL_envz00_1299, obj_t BgL_xz00_1300, obj_t BgL_yz00_1301)
{
{ /* Llib/bit.scm 579 */
{ /* Llib/bit.scm 579 */
 BGL_LONGLONG_T BgL_tmpz00_2312;
{ /* Llib/bit.scm 579 */
 BGL_LONGLONG_T BgL_auxz00_2322; BGL_LONGLONG_T BgL_auxz00_2313;
{ /* Llib/bit.scm 579 */
 obj_t BgL_tmpz00_2323;
if(
LLONGP(BgL_yz00_1301))
{ /* Llib/bit.scm 579 */
BgL_tmpz00_2323 = BgL_yz00_1301
; }  else 
{ 
 obj_t BgL_auxz00_2326;
BgL_auxz00_2326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26967L), BGl_string1734z00zz__bitz00, BGl_string1700z00zz__bitz00, BgL_yz00_1301); 
FAILURE(BgL_auxz00_2326,BFALSE,BFALSE);} 
BgL_auxz00_2322 = 
BLLONG_TO_LLONG(BgL_tmpz00_2323); } 
{ /* Llib/bit.scm 579 */
 obj_t BgL_tmpz00_2314;
if(
LLONGP(BgL_xz00_1300))
{ /* Llib/bit.scm 579 */
BgL_tmpz00_2314 = BgL_xz00_1300
; }  else 
{ 
 obj_t BgL_auxz00_2317;
BgL_auxz00_2317 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(26967L), BGl_string1734z00zz__bitz00, BGl_string1700z00zz__bitz00, BgL_xz00_1300); 
FAILURE(BgL_auxz00_2317,BFALSE,BFALSE);} 
BgL_auxz00_2313 = 
BLLONG_TO_LLONG(BgL_tmpz00_2314); } 
BgL_tmpz00_2312 = 
BGl_bitzd2xorllongzd2zz__bitz00(BgL_auxz00_2313, BgL_auxz00_2322); } 
return 
make_bllong(BgL_tmpz00_2312);} } 

}



/* bit-xors8 */
BGL_EXPORTED_DEF int8_t BGl_bitzd2xors8zd2zz__bitz00(int8_t BgL_xz00_59, int8_t BgL_yz00_60)
{
{ /* Llib/bit.scm 580 */
return 
(BgL_xz00_59 ^ BgL_yz00_60);} 

}



/* &bit-xors8 */
obj_t BGl_z62bitzd2xors8zb0zz__bitz00(obj_t BgL_envz00_1302, obj_t BgL_xz00_1303, obj_t BgL_yz00_1304)
{
{ /* Llib/bit.scm 580 */
{ /* Llib/bit.scm 580 */
 int8_t BgL_tmpz00_2334;
{ /* Llib/bit.scm 580 */
 int8_t BgL_auxz00_2344; int8_t BgL_auxz00_2335;
{ /* Llib/bit.scm 580 */
 obj_t BgL_tmpz00_2345;
if(
BGL_INT8P(BgL_yz00_1304))
{ /* Llib/bit.scm 580 */
BgL_tmpz00_2345 = BgL_yz00_1304
; }  else 
{ 
 obj_t BgL_auxz00_2348;
BgL_auxz00_2348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27018L), BGl_string1735z00zz__bitz00, BGl_string1702z00zz__bitz00, BgL_yz00_1304); 
FAILURE(BgL_auxz00_2348,BFALSE,BFALSE);} 
BgL_auxz00_2344 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_2345); } 
{ /* Llib/bit.scm 580 */
 obj_t BgL_tmpz00_2336;
if(
BGL_INT8P(BgL_xz00_1303))
{ /* Llib/bit.scm 580 */
BgL_tmpz00_2336 = BgL_xz00_1303
; }  else 
{ 
 obj_t BgL_auxz00_2339;
BgL_auxz00_2339 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27018L), BGl_string1735z00zz__bitz00, BGl_string1702z00zz__bitz00, BgL_xz00_1303); 
FAILURE(BgL_auxz00_2339,BFALSE,BFALSE);} 
BgL_auxz00_2335 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_2336); } 
BgL_tmpz00_2334 = 
BGl_bitzd2xors8zd2zz__bitz00(BgL_auxz00_2335, BgL_auxz00_2344); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_2334);} } 

}



/* bit-xoru8 */
BGL_EXPORTED_DEF uint8_t BGl_bitzd2xoru8zd2zz__bitz00(uint8_t BgL_xz00_61, uint8_t BgL_yz00_62)
{
{ /* Llib/bit.scm 581 */
return 
(BgL_xz00_61 ^ BgL_yz00_62);} 

}



/* &bit-xoru8 */
obj_t BGl_z62bitzd2xoru8zb0zz__bitz00(obj_t BgL_envz00_1305, obj_t BgL_xz00_1306, obj_t BgL_yz00_1307)
{
{ /* Llib/bit.scm 581 */
{ /* Llib/bit.scm 581 */
 uint8_t BgL_tmpz00_2356;
{ /* Llib/bit.scm 581 */
 uint8_t BgL_auxz00_2366; uint8_t BgL_auxz00_2357;
{ /* Llib/bit.scm 581 */
 obj_t BgL_tmpz00_2367;
if(
BGL_UINT8P(BgL_yz00_1307))
{ /* Llib/bit.scm 581 */
BgL_tmpz00_2367 = BgL_yz00_1307
; }  else 
{ 
 obj_t BgL_auxz00_2370;
BgL_auxz00_2370 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27066L), BGl_string1736z00zz__bitz00, BGl_string1704z00zz__bitz00, BgL_yz00_1307); 
FAILURE(BgL_auxz00_2370,BFALSE,BFALSE);} 
BgL_auxz00_2366 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_2367); } 
{ /* Llib/bit.scm 581 */
 obj_t BgL_tmpz00_2358;
if(
BGL_UINT8P(BgL_xz00_1306))
{ /* Llib/bit.scm 581 */
BgL_tmpz00_2358 = BgL_xz00_1306
; }  else 
{ 
 obj_t BgL_auxz00_2361;
BgL_auxz00_2361 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27066L), BGl_string1736z00zz__bitz00, BGl_string1704z00zz__bitz00, BgL_xz00_1306); 
FAILURE(BgL_auxz00_2361,BFALSE,BFALSE);} 
BgL_auxz00_2357 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_2358); } 
BgL_tmpz00_2356 = 
BGl_bitzd2xoru8zd2zz__bitz00(BgL_auxz00_2357, BgL_auxz00_2366); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_2356);} } 

}



/* bit-xors16 */
BGL_EXPORTED_DEF int16_t BGl_bitzd2xors16zd2zz__bitz00(int16_t BgL_xz00_63, int16_t BgL_yz00_64)
{
{ /* Llib/bit.scm 582 */
return 
(BgL_xz00_63 ^ BgL_yz00_64);} 

}



/* &bit-xors16 */
obj_t BGl_z62bitzd2xors16zb0zz__bitz00(obj_t BgL_envz00_1308, obj_t BgL_xz00_1309, obj_t BgL_yz00_1310)
{
{ /* Llib/bit.scm 582 */
{ /* Llib/bit.scm 582 */
 int16_t BgL_tmpz00_2378;
{ /* Llib/bit.scm 582 */
 int16_t BgL_auxz00_2388; int16_t BgL_auxz00_2379;
{ /* Llib/bit.scm 582 */
 obj_t BgL_tmpz00_2389;
if(
BGL_INT16P(BgL_yz00_1310))
{ /* Llib/bit.scm 582 */
BgL_tmpz00_2389 = BgL_yz00_1310
; }  else 
{ 
 obj_t BgL_auxz00_2392;
BgL_auxz00_2392 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27115L), BGl_string1737z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_yz00_1310); 
FAILURE(BgL_auxz00_2392,BFALSE,BFALSE);} 
BgL_auxz00_2388 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_2389); } 
{ /* Llib/bit.scm 582 */
 obj_t BgL_tmpz00_2380;
if(
BGL_INT16P(BgL_xz00_1309))
{ /* Llib/bit.scm 582 */
BgL_tmpz00_2380 = BgL_xz00_1309
; }  else 
{ 
 obj_t BgL_auxz00_2383;
BgL_auxz00_2383 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27115L), BGl_string1737z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_xz00_1309); 
FAILURE(BgL_auxz00_2383,BFALSE,BFALSE);} 
BgL_auxz00_2379 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_2380); } 
BgL_tmpz00_2378 = 
BGl_bitzd2xors16zd2zz__bitz00(BgL_auxz00_2379, BgL_auxz00_2388); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_2378);} } 

}



/* bit-xoru16 */
BGL_EXPORTED_DEF uint16_t BGl_bitzd2xoru16zd2zz__bitz00(uint16_t BgL_xz00_65, uint16_t BgL_yz00_66)
{
{ /* Llib/bit.scm 583 */
return 
(BgL_xz00_65 ^ BgL_yz00_66);} 

}



/* &bit-xoru16 */
obj_t BGl_z62bitzd2xoru16zb0zz__bitz00(obj_t BgL_envz00_1311, obj_t BgL_xz00_1312, obj_t BgL_yz00_1313)
{
{ /* Llib/bit.scm 583 */
{ /* Llib/bit.scm 583 */
 uint16_t BgL_tmpz00_2400;
{ /* Llib/bit.scm 583 */
 uint16_t BgL_auxz00_2410; uint16_t BgL_auxz00_2401;
{ /* Llib/bit.scm 583 */
 obj_t BgL_tmpz00_2411;
if(
BGL_UINT16P(BgL_yz00_1313))
{ /* Llib/bit.scm 583 */
BgL_tmpz00_2411 = BgL_yz00_1313
; }  else 
{ 
 obj_t BgL_auxz00_2414;
BgL_auxz00_2414 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27165L), BGl_string1738z00zz__bitz00, BGl_string1708z00zz__bitz00, BgL_yz00_1313); 
FAILURE(BgL_auxz00_2414,BFALSE,BFALSE);} 
BgL_auxz00_2410 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_2411); } 
{ /* Llib/bit.scm 583 */
 obj_t BgL_tmpz00_2402;
if(
BGL_UINT16P(BgL_xz00_1312))
{ /* Llib/bit.scm 583 */
BgL_tmpz00_2402 = BgL_xz00_1312
; }  else 
{ 
 obj_t BgL_auxz00_2405;
BgL_auxz00_2405 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27165L), BGl_string1738z00zz__bitz00, BGl_string1708z00zz__bitz00, BgL_xz00_1312); 
FAILURE(BgL_auxz00_2405,BFALSE,BFALSE);} 
BgL_auxz00_2401 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_2402); } 
BgL_tmpz00_2400 = 
BGl_bitzd2xoru16zd2zz__bitz00(BgL_auxz00_2401, BgL_auxz00_2410); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_2400);} } 

}



/* bit-xors32 */
BGL_EXPORTED_DEF int32_t BGl_bitzd2xors32zd2zz__bitz00(int32_t BgL_xz00_67, int32_t BgL_yz00_68)
{
{ /* Llib/bit.scm 584 */
return 
(BgL_xz00_67 ^ BgL_yz00_68);} 

}



/* &bit-xors32 */
obj_t BGl_z62bitzd2xors32zb0zz__bitz00(obj_t BgL_envz00_1314, obj_t BgL_xz00_1315, obj_t BgL_yz00_1316)
{
{ /* Llib/bit.scm 584 */
{ /* Llib/bit.scm 584 */
 int32_t BgL_tmpz00_2422;
{ /* Llib/bit.scm 584 */
 int32_t BgL_auxz00_2432; int32_t BgL_auxz00_2423;
{ /* Llib/bit.scm 584 */
 obj_t BgL_tmpz00_2433;
if(
BGL_INT32P(BgL_yz00_1316))
{ /* Llib/bit.scm 584 */
BgL_tmpz00_2433 = BgL_yz00_1316
; }  else 
{ 
 obj_t BgL_auxz00_2436;
BgL_auxz00_2436 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27215L), BGl_string1739z00zz__bitz00, BGl_string1710z00zz__bitz00, BgL_yz00_1316); 
FAILURE(BgL_auxz00_2436,BFALSE,BFALSE);} 
BgL_auxz00_2432 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_2433); } 
{ /* Llib/bit.scm 584 */
 obj_t BgL_tmpz00_2424;
if(
BGL_INT32P(BgL_xz00_1315))
{ /* Llib/bit.scm 584 */
BgL_tmpz00_2424 = BgL_xz00_1315
; }  else 
{ 
 obj_t BgL_auxz00_2427;
BgL_auxz00_2427 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27215L), BGl_string1739z00zz__bitz00, BGl_string1710z00zz__bitz00, BgL_xz00_1315); 
FAILURE(BgL_auxz00_2427,BFALSE,BFALSE);} 
BgL_auxz00_2423 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_2424); } 
BgL_tmpz00_2422 = 
BGl_bitzd2xors32zd2zz__bitz00(BgL_auxz00_2423, BgL_auxz00_2432); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_2422);} } 

}



/* bit-xoru32 */
BGL_EXPORTED_DEF uint32_t BGl_bitzd2xoru32zd2zz__bitz00(uint32_t BgL_xz00_69, uint32_t BgL_yz00_70)
{
{ /* Llib/bit.scm 585 */
return 
(BgL_xz00_69 ^ BgL_yz00_70);} 

}



/* &bit-xoru32 */
obj_t BGl_z62bitzd2xoru32zb0zz__bitz00(obj_t BgL_envz00_1317, obj_t BgL_xz00_1318, obj_t BgL_yz00_1319)
{
{ /* Llib/bit.scm 585 */
{ /* Llib/bit.scm 585 */
 uint32_t BgL_tmpz00_2444;
{ /* Llib/bit.scm 585 */
 uint32_t BgL_auxz00_2454; uint32_t BgL_auxz00_2445;
{ /* Llib/bit.scm 585 */
 obj_t BgL_tmpz00_2455;
if(
BGL_UINT32P(BgL_yz00_1319))
{ /* Llib/bit.scm 585 */
BgL_tmpz00_2455 = BgL_yz00_1319
; }  else 
{ 
 obj_t BgL_auxz00_2458;
BgL_auxz00_2458 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27265L), BGl_string1740z00zz__bitz00, BGl_string1712z00zz__bitz00, BgL_yz00_1319); 
FAILURE(BgL_auxz00_2458,BFALSE,BFALSE);} 
BgL_auxz00_2454 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_2455); } 
{ /* Llib/bit.scm 585 */
 obj_t BgL_tmpz00_2446;
if(
BGL_UINT32P(BgL_xz00_1318))
{ /* Llib/bit.scm 585 */
BgL_tmpz00_2446 = BgL_xz00_1318
; }  else 
{ 
 obj_t BgL_auxz00_2449;
BgL_auxz00_2449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27265L), BGl_string1740z00zz__bitz00, BGl_string1712z00zz__bitz00, BgL_xz00_1318); 
FAILURE(BgL_auxz00_2449,BFALSE,BFALSE);} 
BgL_auxz00_2445 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_2446); } 
BgL_tmpz00_2444 = 
BGl_bitzd2xoru32zd2zz__bitz00(BgL_auxz00_2445, BgL_auxz00_2454); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_2444);} } 

}



/* bit-xors64 */
BGL_EXPORTED_DEF int64_t BGl_bitzd2xors64zd2zz__bitz00(int64_t BgL_xz00_71, int64_t BgL_yz00_72)
{
{ /* Llib/bit.scm 586 */
return 
(BgL_xz00_71 ^ BgL_yz00_72);} 

}



/* &bit-xors64 */
obj_t BGl_z62bitzd2xors64zb0zz__bitz00(obj_t BgL_envz00_1320, obj_t BgL_xz00_1321, obj_t BgL_yz00_1322)
{
{ /* Llib/bit.scm 586 */
{ /* Llib/bit.scm 586 */
 int64_t BgL_tmpz00_2466;
{ /* Llib/bit.scm 586 */
 int64_t BgL_auxz00_2476; int64_t BgL_auxz00_2467;
{ /* Llib/bit.scm 586 */
 obj_t BgL_tmpz00_2477;
if(
BGL_INT64P(BgL_yz00_1322))
{ /* Llib/bit.scm 586 */
BgL_tmpz00_2477 = BgL_yz00_1322
; }  else 
{ 
 obj_t BgL_auxz00_2480;
BgL_auxz00_2480 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27315L), BGl_string1741z00zz__bitz00, BGl_string1714z00zz__bitz00, BgL_yz00_1322); 
FAILURE(BgL_auxz00_2480,BFALSE,BFALSE);} 
BgL_auxz00_2476 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2477); } 
{ /* Llib/bit.scm 586 */
 obj_t BgL_tmpz00_2468;
if(
BGL_INT64P(BgL_xz00_1321))
{ /* Llib/bit.scm 586 */
BgL_tmpz00_2468 = BgL_xz00_1321
; }  else 
{ 
 obj_t BgL_auxz00_2471;
BgL_auxz00_2471 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27315L), BGl_string1741z00zz__bitz00, BGl_string1714z00zz__bitz00, BgL_xz00_1321); 
FAILURE(BgL_auxz00_2471,BFALSE,BFALSE);} 
BgL_auxz00_2467 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2468); } 
BgL_tmpz00_2466 = 
BGl_bitzd2xors64zd2zz__bitz00(BgL_auxz00_2467, BgL_auxz00_2476); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_2466);} } 

}



/* bit-xoru64 */
BGL_EXPORTED_DEF uint64_t BGl_bitzd2xoru64zd2zz__bitz00(uint64_t BgL_xz00_73, uint64_t BgL_yz00_74)
{
{ /* Llib/bit.scm 587 */
return 
(BgL_xz00_73 ^ BgL_yz00_74);} 

}



/* &bit-xoru64 */
obj_t BGl_z62bitzd2xoru64zb0zz__bitz00(obj_t BgL_envz00_1323, obj_t BgL_xz00_1324, obj_t BgL_yz00_1325)
{
{ /* Llib/bit.scm 587 */
{ /* Llib/bit.scm 587 */
 uint64_t BgL_tmpz00_2488;
{ /* Llib/bit.scm 587 */
 uint64_t BgL_auxz00_2498; uint64_t BgL_auxz00_2489;
{ /* Llib/bit.scm 587 */
 obj_t BgL_tmpz00_2499;
if(
BGL_UINT64P(BgL_yz00_1325))
{ /* Llib/bit.scm 587 */
BgL_tmpz00_2499 = BgL_yz00_1325
; }  else 
{ 
 obj_t BgL_auxz00_2502;
BgL_auxz00_2502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27365L), BGl_string1742z00zz__bitz00, BGl_string1716z00zz__bitz00, BgL_yz00_1325); 
FAILURE(BgL_auxz00_2502,BFALSE,BFALSE);} 
BgL_auxz00_2498 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2499); } 
{ /* Llib/bit.scm 587 */
 obj_t BgL_tmpz00_2490;
if(
BGL_UINT64P(BgL_xz00_1324))
{ /* Llib/bit.scm 587 */
BgL_tmpz00_2490 = BgL_xz00_1324
; }  else 
{ 
 obj_t BgL_auxz00_2493;
BgL_auxz00_2493 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27365L), BGl_string1742z00zz__bitz00, BGl_string1716z00zz__bitz00, BgL_xz00_1324); 
FAILURE(BgL_auxz00_2493,BFALSE,BFALSE);} 
BgL_auxz00_2489 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2490); } 
BgL_tmpz00_2488 = 
BGl_bitzd2xoru64zd2zz__bitz00(BgL_auxz00_2489, BgL_auxz00_2498); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_2488);} } 

}



/* bit-xorbx */
BGL_EXPORTED_DEF obj_t BGl_bitzd2xorbxzd2zz__bitz00(obj_t BgL_xz00_75, obj_t BgL_yz00_76)
{
{ /* Llib/bit.scm 588 */
BGL_TAIL return 
bgl_bignum_xor(BgL_xz00_75, BgL_yz00_76);} 

}



/* &bit-xorbx */
obj_t BGl_z62bitzd2xorbxzb0zz__bitz00(obj_t BgL_envz00_1326, obj_t BgL_xz00_1327, obj_t BgL_yz00_1328)
{
{ /* Llib/bit.scm 588 */
{ /* Llib/bit.scm 588 */
 obj_t BgL_auxz00_2517; obj_t BgL_auxz00_2510;
if(
BIGNUMP(BgL_yz00_1328))
{ /* Llib/bit.scm 588 */
BgL_auxz00_2517 = BgL_yz00_1328
; }  else 
{ 
 obj_t BgL_auxz00_2520;
BgL_auxz00_2520 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27414L), BGl_string1743z00zz__bitz00, BGl_string1718z00zz__bitz00, BgL_yz00_1328); 
FAILURE(BgL_auxz00_2520,BFALSE,BFALSE);} 
if(
BIGNUMP(BgL_xz00_1327))
{ /* Llib/bit.scm 588 */
BgL_auxz00_2510 = BgL_xz00_1327
; }  else 
{ 
 obj_t BgL_auxz00_2513;
BgL_auxz00_2513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27414L), BGl_string1743z00zz__bitz00, BGl_string1718z00zz__bitz00, BgL_xz00_1327); 
FAILURE(BgL_auxz00_2513,BFALSE,BFALSE);} 
return 
BGl_bitzd2xorbxzd2zz__bitz00(BgL_auxz00_2510, BgL_auxz00_2517);} } 

}



/* bit-not */
BGL_EXPORTED_DEF long BGl_bitzd2notzd2zz__bitz00(long BgL_xz00_77)
{
{ /* Llib/bit.scm 593 */
return 
~(BgL_xz00_77);} 

}



/* &bit-not */
obj_t BGl_z62bitzd2notzb0zz__bitz00(obj_t BgL_envz00_1329, obj_t BgL_xz00_1330)
{
{ /* Llib/bit.scm 593 */
{ /* Llib/bit.scm 593 */
 long BgL_tmpz00_2526;
{ /* Llib/bit.scm 593 */
 long BgL_auxz00_2527;
{ /* Llib/bit.scm 593 */
 obj_t BgL_tmpz00_2528;
if(
INTEGERP(BgL_xz00_1330))
{ /* Llib/bit.scm 593 */
BgL_tmpz00_2528 = BgL_xz00_1330
; }  else 
{ 
 obj_t BgL_auxz00_2531;
BgL_auxz00_2531 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27681L), BGl_string1744z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_xz00_1330); 
FAILURE(BgL_auxz00_2531,BFALSE,BFALSE);} 
BgL_auxz00_2527 = 
(long)CINT(BgL_tmpz00_2528); } 
BgL_tmpz00_2526 = 
BGl_bitzd2notzd2zz__bitz00(BgL_auxz00_2527); } 
return 
BINT(BgL_tmpz00_2526);} } 

}



/* bit-notelong */
BGL_EXPORTED_DEF long BGl_bitzd2notelongzd2zz__bitz00(long BgL_xz00_78)
{
{ /* Llib/bit.scm 594 */
return 
~(BgL_xz00_78);} 

}



/* &bit-notelong */
obj_t BGl_z62bitzd2notelongzb0zz__bitz00(obj_t BgL_envz00_1331, obj_t BgL_xz00_1332)
{
{ /* Llib/bit.scm 594 */
{ /* Llib/bit.scm 594 */
 long BgL_tmpz00_2539;
{ /* Llib/bit.scm 594 */
 long BgL_auxz00_2540;
{ /* Llib/bit.scm 594 */
 obj_t BgL_tmpz00_2541;
if(
ELONGP(BgL_xz00_1332))
{ /* Llib/bit.scm 594 */
BgL_tmpz00_2541 = BgL_xz00_1332
; }  else 
{ 
 obj_t BgL_auxz00_2544;
BgL_auxz00_2544 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27726L), BGl_string1745z00zz__bitz00, BGl_string1698z00zz__bitz00, BgL_xz00_1332); 
FAILURE(BgL_auxz00_2544,BFALSE,BFALSE);} 
BgL_auxz00_2540 = 
BELONG_TO_LONG(BgL_tmpz00_2541); } 
BgL_tmpz00_2539 = 
BGl_bitzd2notelongzd2zz__bitz00(BgL_auxz00_2540); } 
return 
make_belong(BgL_tmpz00_2539);} } 

}



/* bit-notllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_bitzd2notllongzd2zz__bitz00(BGL_LONGLONG_T BgL_xz00_79)
{
{ /* Llib/bit.scm 595 */
return 
~(BgL_xz00_79);} 

}



/* &bit-notllong */
obj_t BGl_z62bitzd2notllongzb0zz__bitz00(obj_t BgL_envz00_1333, obj_t BgL_xz00_1334)
{
{ /* Llib/bit.scm 595 */
{ /* Llib/bit.scm 595 */
 BGL_LONGLONG_T BgL_tmpz00_2552;
{ /* Llib/bit.scm 595 */
 BGL_LONGLONG_T BgL_auxz00_2553;
{ /* Llib/bit.scm 595 */
 obj_t BgL_tmpz00_2554;
if(
LLONGP(BgL_xz00_1334))
{ /* Llib/bit.scm 595 */
BgL_tmpz00_2554 = BgL_xz00_1334
; }  else 
{ 
 obj_t BgL_auxz00_2557;
BgL_auxz00_2557 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27776L), BGl_string1746z00zz__bitz00, BGl_string1700z00zz__bitz00, BgL_xz00_1334); 
FAILURE(BgL_auxz00_2557,BFALSE,BFALSE);} 
BgL_auxz00_2553 = 
BLLONG_TO_LLONG(BgL_tmpz00_2554); } 
BgL_tmpz00_2552 = 
BGl_bitzd2notllongzd2zz__bitz00(BgL_auxz00_2553); } 
return 
make_bllong(BgL_tmpz00_2552);} } 

}



/* bit-nots8 */
BGL_EXPORTED_DEF int8_t BGl_bitzd2nots8zd2zz__bitz00(int8_t BgL_xz00_80)
{
{ /* Llib/bit.scm 596 */
return 
~(BgL_xz00_80);} 

}



/* &bit-nots8 */
obj_t BGl_z62bitzd2nots8zb0zz__bitz00(obj_t BgL_envz00_1335, obj_t BgL_xz00_1336)
{
{ /* Llib/bit.scm 596 */
{ /* Llib/bit.scm 596 */
 int8_t BgL_tmpz00_2565;
{ /* Llib/bit.scm 596 */
 int8_t BgL_auxz00_2566;
{ /* Llib/bit.scm 596 */
 obj_t BgL_tmpz00_2567;
if(
BGL_INT8P(BgL_xz00_1336))
{ /* Llib/bit.scm 596 */
BgL_tmpz00_2567 = BgL_xz00_1336
; }  else 
{ 
 obj_t BgL_auxz00_2570;
BgL_auxz00_2570 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27823L), BGl_string1747z00zz__bitz00, BGl_string1702z00zz__bitz00, BgL_xz00_1336); 
FAILURE(BgL_auxz00_2570,BFALSE,BFALSE);} 
BgL_auxz00_2566 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_2567); } 
BgL_tmpz00_2565 = 
BGl_bitzd2nots8zd2zz__bitz00(BgL_auxz00_2566); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_2565);} } 

}



/* bit-notu8 */
BGL_EXPORTED_DEF uint8_t BGl_bitzd2notu8zd2zz__bitz00(uint8_t BgL_xz00_81)
{
{ /* Llib/bit.scm 597 */
return 
~(BgL_xz00_81);} 

}



/* &bit-notu8 */
obj_t BGl_z62bitzd2notu8zb0zz__bitz00(obj_t BgL_envz00_1337, obj_t BgL_xz00_1338)
{
{ /* Llib/bit.scm 597 */
{ /* Llib/bit.scm 597 */
 uint8_t BgL_tmpz00_2578;
{ /* Llib/bit.scm 597 */
 uint8_t BgL_auxz00_2579;
{ /* Llib/bit.scm 597 */
 obj_t BgL_tmpz00_2580;
if(
BGL_UINT8P(BgL_xz00_1338))
{ /* Llib/bit.scm 597 */
BgL_tmpz00_2580 = BgL_xz00_1338
; }  else 
{ 
 obj_t BgL_auxz00_2583;
BgL_auxz00_2583 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27867L), BGl_string1748z00zz__bitz00, BGl_string1704z00zz__bitz00, BgL_xz00_1338); 
FAILURE(BgL_auxz00_2583,BFALSE,BFALSE);} 
BgL_auxz00_2579 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_2580); } 
BgL_tmpz00_2578 = 
BGl_bitzd2notu8zd2zz__bitz00(BgL_auxz00_2579); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_2578);} } 

}



/* bit-nots16 */
BGL_EXPORTED_DEF int16_t BGl_bitzd2nots16zd2zz__bitz00(int16_t BgL_xz00_82)
{
{ /* Llib/bit.scm 598 */
return 
~(BgL_xz00_82);} 

}



/* &bit-nots16 */
obj_t BGl_z62bitzd2nots16zb0zz__bitz00(obj_t BgL_envz00_1339, obj_t BgL_xz00_1340)
{
{ /* Llib/bit.scm 598 */
{ /* Llib/bit.scm 598 */
 int16_t BgL_tmpz00_2591;
{ /* Llib/bit.scm 598 */
 int16_t BgL_auxz00_2592;
{ /* Llib/bit.scm 598 */
 obj_t BgL_tmpz00_2593;
if(
BGL_INT16P(BgL_xz00_1340))
{ /* Llib/bit.scm 598 */
BgL_tmpz00_2593 = BgL_xz00_1340
; }  else 
{ 
 obj_t BgL_auxz00_2596;
BgL_auxz00_2596 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27912L), BGl_string1749z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_xz00_1340); 
FAILURE(BgL_auxz00_2596,BFALSE,BFALSE);} 
BgL_auxz00_2592 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_2593); } 
BgL_tmpz00_2591 = 
BGl_bitzd2nots16zd2zz__bitz00(BgL_auxz00_2592); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_2591);} } 

}



/* bit-notu16 */
BGL_EXPORTED_DEF uint16_t BGl_bitzd2notu16zd2zz__bitz00(uint16_t BgL_xz00_83)
{
{ /* Llib/bit.scm 599 */
return 
~(BgL_xz00_83);} 

}



/* &bit-notu16 */
obj_t BGl_z62bitzd2notu16zb0zz__bitz00(obj_t BgL_envz00_1341, obj_t BgL_xz00_1342)
{
{ /* Llib/bit.scm 599 */
{ /* Llib/bit.scm 599 */
 uint16_t BgL_tmpz00_2604;
{ /* Llib/bit.scm 599 */
 uint16_t BgL_auxz00_2605;
{ /* Llib/bit.scm 599 */
 obj_t BgL_tmpz00_2606;
if(
BGL_UINT16P(BgL_xz00_1342))
{ /* Llib/bit.scm 599 */
BgL_tmpz00_2606 = BgL_xz00_1342
; }  else 
{ 
 obj_t BgL_auxz00_2609;
BgL_auxz00_2609 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(27958L), BGl_string1750z00zz__bitz00, BGl_string1708z00zz__bitz00, BgL_xz00_1342); 
FAILURE(BgL_auxz00_2609,BFALSE,BFALSE);} 
BgL_auxz00_2605 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_2606); } 
BgL_tmpz00_2604 = 
BGl_bitzd2notu16zd2zz__bitz00(BgL_auxz00_2605); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_2604);} } 

}



/* bit-nots32 */
BGL_EXPORTED_DEF int32_t BGl_bitzd2nots32zd2zz__bitz00(int32_t BgL_xz00_84)
{
{ /* Llib/bit.scm 600 */
return 
~(BgL_xz00_84);} 

}



/* &bit-nots32 */
obj_t BGl_z62bitzd2nots32zb0zz__bitz00(obj_t BgL_envz00_1343, obj_t BgL_xz00_1344)
{
{ /* Llib/bit.scm 600 */
{ /* Llib/bit.scm 600 */
 int32_t BgL_tmpz00_2617;
{ /* Llib/bit.scm 600 */
 int32_t BgL_auxz00_2618;
{ /* Llib/bit.scm 600 */
 obj_t BgL_tmpz00_2619;
if(
BGL_INT32P(BgL_xz00_1344))
{ /* Llib/bit.scm 600 */
BgL_tmpz00_2619 = BgL_xz00_1344
; }  else 
{ 
 obj_t BgL_auxz00_2622;
BgL_auxz00_2622 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28004L), BGl_string1751z00zz__bitz00, BGl_string1710z00zz__bitz00, BgL_xz00_1344); 
FAILURE(BgL_auxz00_2622,BFALSE,BFALSE);} 
BgL_auxz00_2618 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_2619); } 
BgL_tmpz00_2617 = 
BGl_bitzd2nots32zd2zz__bitz00(BgL_auxz00_2618); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_2617);} } 

}



/* bit-notu32 */
BGL_EXPORTED_DEF uint32_t BGl_bitzd2notu32zd2zz__bitz00(uint32_t BgL_xz00_85)
{
{ /* Llib/bit.scm 601 */
return 
~(BgL_xz00_85);} 

}



/* &bit-notu32 */
obj_t BGl_z62bitzd2notu32zb0zz__bitz00(obj_t BgL_envz00_1345, obj_t BgL_xz00_1346)
{
{ /* Llib/bit.scm 601 */
{ /* Llib/bit.scm 601 */
 uint32_t BgL_tmpz00_2630;
{ /* Llib/bit.scm 601 */
 uint32_t BgL_auxz00_2631;
{ /* Llib/bit.scm 601 */
 obj_t BgL_tmpz00_2632;
if(
BGL_UINT32P(BgL_xz00_1346))
{ /* Llib/bit.scm 601 */
BgL_tmpz00_2632 = BgL_xz00_1346
; }  else 
{ 
 obj_t BgL_auxz00_2635;
BgL_auxz00_2635 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28050L), BGl_string1752z00zz__bitz00, BGl_string1712z00zz__bitz00, BgL_xz00_1346); 
FAILURE(BgL_auxz00_2635,BFALSE,BFALSE);} 
BgL_auxz00_2631 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_2632); } 
BgL_tmpz00_2630 = 
BGl_bitzd2notu32zd2zz__bitz00(BgL_auxz00_2631); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_2630);} } 

}



/* bit-nots64 */
BGL_EXPORTED_DEF int64_t BGl_bitzd2nots64zd2zz__bitz00(int64_t BgL_xz00_86)
{
{ /* Llib/bit.scm 602 */
return 
~(BgL_xz00_86);} 

}



/* &bit-nots64 */
obj_t BGl_z62bitzd2nots64zb0zz__bitz00(obj_t BgL_envz00_1347, obj_t BgL_xz00_1348)
{
{ /* Llib/bit.scm 602 */
{ /* Llib/bit.scm 602 */
 int64_t BgL_tmpz00_2643;
{ /* Llib/bit.scm 602 */
 int64_t BgL_auxz00_2644;
{ /* Llib/bit.scm 602 */
 obj_t BgL_tmpz00_2645;
if(
BGL_INT64P(BgL_xz00_1348))
{ /* Llib/bit.scm 602 */
BgL_tmpz00_2645 = BgL_xz00_1348
; }  else 
{ 
 obj_t BgL_auxz00_2648;
BgL_auxz00_2648 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28096L), BGl_string1753z00zz__bitz00, BGl_string1714z00zz__bitz00, BgL_xz00_1348); 
FAILURE(BgL_auxz00_2648,BFALSE,BFALSE);} 
BgL_auxz00_2644 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2645); } 
BgL_tmpz00_2643 = 
BGl_bitzd2nots64zd2zz__bitz00(BgL_auxz00_2644); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_2643);} } 

}



/* bit-notu64 */
BGL_EXPORTED_DEF uint64_t BGl_bitzd2notu64zd2zz__bitz00(uint64_t BgL_xz00_87)
{
{ /* Llib/bit.scm 603 */
return 
~(BgL_xz00_87);} 

}



/* &bit-notu64 */
obj_t BGl_z62bitzd2notu64zb0zz__bitz00(obj_t BgL_envz00_1349, obj_t BgL_xz00_1350)
{
{ /* Llib/bit.scm 603 */
{ /* Llib/bit.scm 603 */
 uint64_t BgL_tmpz00_2656;
{ /* Llib/bit.scm 603 */
 uint64_t BgL_auxz00_2657;
{ /* Llib/bit.scm 603 */
 obj_t BgL_tmpz00_2658;
if(
BGL_UINT64P(BgL_xz00_1350))
{ /* Llib/bit.scm 603 */
BgL_tmpz00_2658 = BgL_xz00_1350
; }  else 
{ 
 obj_t BgL_auxz00_2661;
BgL_auxz00_2661 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28142L), BGl_string1754z00zz__bitz00, BGl_string1716z00zz__bitz00, BgL_xz00_1350); 
FAILURE(BgL_auxz00_2661,BFALSE,BFALSE);} 
BgL_auxz00_2657 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2658); } 
BgL_tmpz00_2656 = 
BGl_bitzd2notu64zd2zz__bitz00(BgL_auxz00_2657); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_2656);} } 

}



/* bit-notbx */
BGL_EXPORTED_DEF obj_t BGl_bitzd2notbxzd2zz__bitz00(obj_t BgL_xz00_88)
{
{ /* Llib/bit.scm 604 */
BGL_TAIL return 
bgl_bignum_not(BgL_xz00_88);} 

}



/* &bit-notbx */
obj_t BGl_z62bitzd2notbxzb0zz__bitz00(obj_t BgL_envz00_1351, obj_t BgL_xz00_1352)
{
{ /* Llib/bit.scm 604 */
{ /* Llib/bit.scm 604 */
 obj_t BgL_auxz00_2669;
if(
BIGNUMP(BgL_xz00_1352))
{ /* Llib/bit.scm 604 */
BgL_auxz00_2669 = BgL_xz00_1352
; }  else 
{ 
 obj_t BgL_auxz00_2672;
BgL_auxz00_2672 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28187L), BGl_string1755z00zz__bitz00, BGl_string1718z00zz__bitz00, BgL_xz00_1352); 
FAILURE(BgL_auxz00_2672,BFALSE,BFALSE);} 
return 
BGl_bitzd2notbxzd2zz__bitz00(BgL_auxz00_2669);} } 

}



/* bit-rsh */
BGL_EXPORTED_DEF long BGl_bitzd2rshzd2zz__bitz00(long BgL_xz00_89, long BgL_yz00_90)
{
{ /* Llib/bit.scm 609 */
return 
(BgL_xz00_89 >> 
(int)(BgL_yz00_90));} 

}



/* &bit-rsh */
obj_t BGl_z62bitzd2rshzb0zz__bitz00(obj_t BgL_envz00_1353, obj_t BgL_xz00_1354, obj_t BgL_yz00_1355)
{
{ /* Llib/bit.scm 609 */
{ /* Llib/bit.scm 609 */
 long BgL_tmpz00_2679;
{ /* Llib/bit.scm 609 */
 long BgL_auxz00_2689; long BgL_auxz00_2680;
{ /* Llib/bit.scm 609 */
 obj_t BgL_tmpz00_2690;
if(
INTEGERP(BgL_yz00_1355))
{ /* Llib/bit.scm 609 */
BgL_tmpz00_2690 = BgL_yz00_1355
; }  else 
{ 
 obj_t BgL_auxz00_2693;
BgL_auxz00_2693 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28457L), BGl_string1756z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1355); 
FAILURE(BgL_auxz00_2693,BFALSE,BFALSE);} 
BgL_auxz00_2689 = 
(long)CINT(BgL_tmpz00_2690); } 
{ /* Llib/bit.scm 609 */
 obj_t BgL_tmpz00_2681;
if(
INTEGERP(BgL_xz00_1354))
{ /* Llib/bit.scm 609 */
BgL_tmpz00_2681 = BgL_xz00_1354
; }  else 
{ 
 obj_t BgL_auxz00_2684;
BgL_auxz00_2684 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28457L), BGl_string1756z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_xz00_1354); 
FAILURE(BgL_auxz00_2684,BFALSE,BFALSE);} 
BgL_auxz00_2680 = 
(long)CINT(BgL_tmpz00_2681); } 
BgL_tmpz00_2679 = 
BGl_bitzd2rshzd2zz__bitz00(BgL_auxz00_2680, BgL_auxz00_2689); } 
return 
BINT(BgL_tmpz00_2679);} } 

}



/* bit-rshelong */
BGL_EXPORTED_DEF long BGl_bitzd2rshelongzd2zz__bitz00(long BgL_xz00_91, long BgL_yz00_92)
{
{ /* Llib/bit.scm 610 */
return 
(BgL_xz00_91 >> 
(int)(BgL_yz00_92));} 

}



/* &bit-rshelong */
obj_t BGl_z62bitzd2rshelongzb0zz__bitz00(obj_t BgL_envz00_1356, obj_t BgL_xz00_1357, obj_t BgL_yz00_1358)
{
{ /* Llib/bit.scm 610 */
{ /* Llib/bit.scm 610 */
 long BgL_tmpz00_2702;
{ /* Llib/bit.scm 610 */
 long BgL_auxz00_2712; long BgL_auxz00_2703;
{ /* Llib/bit.scm 610 */
 obj_t BgL_tmpz00_2713;
if(
INTEGERP(BgL_yz00_1358))
{ /* Llib/bit.scm 610 */
BgL_tmpz00_2713 = BgL_yz00_1358
; }  else 
{ 
 obj_t BgL_auxz00_2716;
BgL_auxz00_2716 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28506L), BGl_string1757z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1358); 
FAILURE(BgL_auxz00_2716,BFALSE,BFALSE);} 
BgL_auxz00_2712 = 
(long)CINT(BgL_tmpz00_2713); } 
{ /* Llib/bit.scm 610 */
 obj_t BgL_tmpz00_2704;
if(
ELONGP(BgL_xz00_1357))
{ /* Llib/bit.scm 610 */
BgL_tmpz00_2704 = BgL_xz00_1357
; }  else 
{ 
 obj_t BgL_auxz00_2707;
BgL_auxz00_2707 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28506L), BGl_string1757z00zz__bitz00, BGl_string1698z00zz__bitz00, BgL_xz00_1357); 
FAILURE(BgL_auxz00_2707,BFALSE,BFALSE);} 
BgL_auxz00_2703 = 
BELONG_TO_LONG(BgL_tmpz00_2704); } 
BgL_tmpz00_2702 = 
BGl_bitzd2rshelongzd2zz__bitz00(BgL_auxz00_2703, BgL_auxz00_2712); } 
return 
make_belong(BgL_tmpz00_2702);} } 

}



/* bit-rshllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_bitzd2rshllongzd2zz__bitz00(BGL_LONGLONG_T BgL_xz00_93, long BgL_yz00_94)
{
{ /* Llib/bit.scm 611 */
return 
(BgL_xz00_93 >> 
(int)(BgL_yz00_94));} 

}



/* &bit-rshllong */
obj_t BGl_z62bitzd2rshllongzb0zz__bitz00(obj_t BgL_envz00_1359, obj_t BgL_xz00_1360, obj_t BgL_yz00_1361)
{
{ /* Llib/bit.scm 611 */
{ /* Llib/bit.scm 611 */
 BGL_LONGLONG_T BgL_tmpz00_2725;
{ /* Llib/bit.scm 611 */
 long BgL_auxz00_2735; BGL_LONGLONG_T BgL_auxz00_2726;
{ /* Llib/bit.scm 611 */
 obj_t BgL_tmpz00_2736;
if(
INTEGERP(BgL_yz00_1361))
{ /* Llib/bit.scm 611 */
BgL_tmpz00_2736 = BgL_yz00_1361
; }  else 
{ 
 obj_t BgL_auxz00_2739;
BgL_auxz00_2739 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28560L), BGl_string1758z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1361); 
FAILURE(BgL_auxz00_2739,BFALSE,BFALSE);} 
BgL_auxz00_2735 = 
(long)CINT(BgL_tmpz00_2736); } 
{ /* Llib/bit.scm 611 */
 obj_t BgL_tmpz00_2727;
if(
LLONGP(BgL_xz00_1360))
{ /* Llib/bit.scm 611 */
BgL_tmpz00_2727 = BgL_xz00_1360
; }  else 
{ 
 obj_t BgL_auxz00_2730;
BgL_auxz00_2730 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28560L), BGl_string1758z00zz__bitz00, BGl_string1700z00zz__bitz00, BgL_xz00_1360); 
FAILURE(BgL_auxz00_2730,BFALSE,BFALSE);} 
BgL_auxz00_2726 = 
BLLONG_TO_LLONG(BgL_tmpz00_2727); } 
BgL_tmpz00_2725 = 
BGl_bitzd2rshllongzd2zz__bitz00(BgL_auxz00_2726, BgL_auxz00_2735); } 
return 
make_bllong(BgL_tmpz00_2725);} } 

}



/* bit-rshs8 */
BGL_EXPORTED_DEF int8_t BGl_bitzd2rshs8zd2zz__bitz00(int8_t BgL_xz00_95, long BgL_yz00_96)
{
{ /* Llib/bit.scm 612 */
return 
(BgL_xz00_95 >> 
(int)(BgL_yz00_96));} 

}



/* &bit-rshs8 */
obj_t BGl_z62bitzd2rshs8zb0zz__bitz00(obj_t BgL_envz00_1362, obj_t BgL_xz00_1363, obj_t BgL_yz00_1364)
{
{ /* Llib/bit.scm 612 */
{ /* Llib/bit.scm 612 */
 int8_t BgL_tmpz00_2748;
{ /* Llib/bit.scm 612 */
 long BgL_auxz00_2758; int8_t BgL_auxz00_2749;
{ /* Llib/bit.scm 612 */
 obj_t BgL_tmpz00_2759;
if(
INTEGERP(BgL_yz00_1364))
{ /* Llib/bit.scm 612 */
BgL_tmpz00_2759 = BgL_yz00_1364
; }  else 
{ 
 obj_t BgL_auxz00_2762;
BgL_auxz00_2762 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28611L), BGl_string1759z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1364); 
FAILURE(BgL_auxz00_2762,BFALSE,BFALSE);} 
BgL_auxz00_2758 = 
(long)CINT(BgL_tmpz00_2759); } 
{ /* Llib/bit.scm 612 */
 obj_t BgL_tmpz00_2750;
if(
BGL_INT8P(BgL_xz00_1363))
{ /* Llib/bit.scm 612 */
BgL_tmpz00_2750 = BgL_xz00_1363
; }  else 
{ 
 obj_t BgL_auxz00_2753;
BgL_auxz00_2753 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28611L), BGl_string1759z00zz__bitz00, BGl_string1702z00zz__bitz00, BgL_xz00_1363); 
FAILURE(BgL_auxz00_2753,BFALSE,BFALSE);} 
BgL_auxz00_2749 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_2750); } 
BgL_tmpz00_2748 = 
BGl_bitzd2rshs8zd2zz__bitz00(BgL_auxz00_2749, BgL_auxz00_2758); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_2748);} } 

}



/* bit-rshu8 */
BGL_EXPORTED_DEF uint8_t BGl_bitzd2rshu8zd2zz__bitz00(uint8_t BgL_xz00_97, long BgL_yz00_98)
{
{ /* Llib/bit.scm 613 */
return 
(BgL_xz00_97 >> 
(int)(BgL_yz00_98));} 

}



/* &bit-rshu8 */
obj_t BGl_z62bitzd2rshu8zb0zz__bitz00(obj_t BgL_envz00_1365, obj_t BgL_xz00_1366, obj_t BgL_yz00_1367)
{
{ /* Llib/bit.scm 613 */
{ /* Llib/bit.scm 613 */
 uint8_t BgL_tmpz00_2771;
{ /* Llib/bit.scm 613 */
 long BgL_auxz00_2781; uint8_t BgL_auxz00_2772;
{ /* Llib/bit.scm 613 */
 obj_t BgL_tmpz00_2782;
if(
INTEGERP(BgL_yz00_1367))
{ /* Llib/bit.scm 613 */
BgL_tmpz00_2782 = BgL_yz00_1367
; }  else 
{ 
 obj_t BgL_auxz00_2785;
BgL_auxz00_2785 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28659L), BGl_string1760z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1367); 
FAILURE(BgL_auxz00_2785,BFALSE,BFALSE);} 
BgL_auxz00_2781 = 
(long)CINT(BgL_tmpz00_2782); } 
{ /* Llib/bit.scm 613 */
 obj_t BgL_tmpz00_2773;
if(
BGL_UINT8P(BgL_xz00_1366))
{ /* Llib/bit.scm 613 */
BgL_tmpz00_2773 = BgL_xz00_1366
; }  else 
{ 
 obj_t BgL_auxz00_2776;
BgL_auxz00_2776 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28659L), BGl_string1760z00zz__bitz00, BGl_string1704z00zz__bitz00, BgL_xz00_1366); 
FAILURE(BgL_auxz00_2776,BFALSE,BFALSE);} 
BgL_auxz00_2772 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_2773); } 
BgL_tmpz00_2771 = 
BGl_bitzd2rshu8zd2zz__bitz00(BgL_auxz00_2772, BgL_auxz00_2781); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_2771);} } 

}



/* bit-rshs16 */
BGL_EXPORTED_DEF int16_t BGl_bitzd2rshs16zd2zz__bitz00(int16_t BgL_xz00_99, long BgL_yz00_100)
{
{ /* Llib/bit.scm 614 */
return 
(BgL_xz00_99 >> 
(int)(BgL_yz00_100));} 

}



/* &bit-rshs16 */
obj_t BGl_z62bitzd2rshs16zb0zz__bitz00(obj_t BgL_envz00_1368, obj_t BgL_xz00_1369, obj_t BgL_yz00_1370)
{
{ /* Llib/bit.scm 614 */
{ /* Llib/bit.scm 614 */
 int16_t BgL_tmpz00_2794;
{ /* Llib/bit.scm 614 */
 long BgL_auxz00_2804; int16_t BgL_auxz00_2795;
{ /* Llib/bit.scm 614 */
 obj_t BgL_tmpz00_2805;
if(
INTEGERP(BgL_yz00_1370))
{ /* Llib/bit.scm 614 */
BgL_tmpz00_2805 = BgL_yz00_1370
; }  else 
{ 
 obj_t BgL_auxz00_2808;
BgL_auxz00_2808 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28708L), BGl_string1761z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1370); 
FAILURE(BgL_auxz00_2808,BFALSE,BFALSE);} 
BgL_auxz00_2804 = 
(long)CINT(BgL_tmpz00_2805); } 
{ /* Llib/bit.scm 614 */
 obj_t BgL_tmpz00_2796;
if(
BGL_INT16P(BgL_xz00_1369))
{ /* Llib/bit.scm 614 */
BgL_tmpz00_2796 = BgL_xz00_1369
; }  else 
{ 
 obj_t BgL_auxz00_2799;
BgL_auxz00_2799 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28708L), BGl_string1761z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_xz00_1369); 
FAILURE(BgL_auxz00_2799,BFALSE,BFALSE);} 
BgL_auxz00_2795 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_2796); } 
BgL_tmpz00_2794 = 
BGl_bitzd2rshs16zd2zz__bitz00(BgL_auxz00_2795, BgL_auxz00_2804); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_2794);} } 

}



/* bit-rshu16 */
BGL_EXPORTED_DEF int16_t BGl_bitzd2rshu16zd2zz__bitz00(int16_t BgL_xz00_101, long BgL_yz00_102)
{
{ /* Llib/bit.scm 615 */
{ /* Llib/bit.scm 615 */
 uint16_t BgL_tmpz00_2815;
BgL_tmpz00_2815 = 
(
(uint16_t)(BgL_xz00_101) >> 
(int)(BgL_yz00_102)); 
return 
(int16_t)(BgL_tmpz00_2815);} } 

}



/* &bit-rshu16 */
obj_t BGl_z62bitzd2rshu16zb0zz__bitz00(obj_t BgL_envz00_1371, obj_t BgL_xz00_1372, obj_t BgL_yz00_1373)
{
{ /* Llib/bit.scm 615 */
{ /* Llib/bit.scm 615 */
 int16_t BgL_tmpz00_2820;
{ /* Llib/bit.scm 615 */
 long BgL_auxz00_2830; int16_t BgL_auxz00_2821;
{ /* Llib/bit.scm 615 */
 obj_t BgL_tmpz00_2831;
if(
INTEGERP(BgL_yz00_1373))
{ /* Llib/bit.scm 615 */
BgL_tmpz00_2831 = BgL_yz00_1373
; }  else 
{ 
 obj_t BgL_auxz00_2834;
BgL_auxz00_2834 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28758L), BGl_string1762z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1373); 
FAILURE(BgL_auxz00_2834,BFALSE,BFALSE);} 
BgL_auxz00_2830 = 
(long)CINT(BgL_tmpz00_2831); } 
{ /* Llib/bit.scm 615 */
 obj_t BgL_tmpz00_2822;
if(
BGL_INT16P(BgL_xz00_1372))
{ /* Llib/bit.scm 615 */
BgL_tmpz00_2822 = BgL_xz00_1372
; }  else 
{ 
 obj_t BgL_auxz00_2825;
BgL_auxz00_2825 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28758L), BGl_string1762z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_xz00_1372); 
FAILURE(BgL_auxz00_2825,BFALSE,BFALSE);} 
BgL_auxz00_2821 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_2822); } 
BgL_tmpz00_2820 = 
BGl_bitzd2rshu16zd2zz__bitz00(BgL_auxz00_2821, BgL_auxz00_2830); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_2820);} } 

}



/* bit-rshs32 */
BGL_EXPORTED_DEF int32_t BGl_bitzd2rshs32zd2zz__bitz00(int32_t BgL_xz00_103, long BgL_yz00_104)
{
{ /* Llib/bit.scm 616 */
return 
(BgL_xz00_103 >> 
(int)(BgL_yz00_104));} 

}



/* &bit-rshs32 */
obj_t BGl_z62bitzd2rshs32zb0zz__bitz00(obj_t BgL_envz00_1374, obj_t BgL_xz00_1375, obj_t BgL_yz00_1376)
{
{ /* Llib/bit.scm 616 */
{ /* Llib/bit.scm 616 */
 int32_t BgL_tmpz00_2843;
{ /* Llib/bit.scm 616 */
 long BgL_auxz00_2853; int32_t BgL_auxz00_2844;
{ /* Llib/bit.scm 616 */
 obj_t BgL_tmpz00_2854;
if(
INTEGERP(BgL_yz00_1376))
{ /* Llib/bit.scm 616 */
BgL_tmpz00_2854 = BgL_yz00_1376
; }  else 
{ 
 obj_t BgL_auxz00_2857;
BgL_auxz00_2857 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28808L), BGl_string1763z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1376); 
FAILURE(BgL_auxz00_2857,BFALSE,BFALSE);} 
BgL_auxz00_2853 = 
(long)CINT(BgL_tmpz00_2854); } 
{ /* Llib/bit.scm 616 */
 obj_t BgL_tmpz00_2845;
if(
BGL_INT32P(BgL_xz00_1375))
{ /* Llib/bit.scm 616 */
BgL_tmpz00_2845 = BgL_xz00_1375
; }  else 
{ 
 obj_t BgL_auxz00_2848;
BgL_auxz00_2848 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28808L), BGl_string1763z00zz__bitz00, BGl_string1710z00zz__bitz00, BgL_xz00_1375); 
FAILURE(BgL_auxz00_2848,BFALSE,BFALSE);} 
BgL_auxz00_2844 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_2845); } 
BgL_tmpz00_2843 = 
BGl_bitzd2rshs32zd2zz__bitz00(BgL_auxz00_2844, BgL_auxz00_2853); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_2843);} } 

}



/* bit-rshu32 */
BGL_EXPORTED_DEF uint32_t BGl_bitzd2rshu32zd2zz__bitz00(uint32_t BgL_xz00_105, long BgL_yz00_106)
{
{ /* Llib/bit.scm 617 */
return 
(BgL_xz00_105 >> 
(int)(BgL_yz00_106));} 

}



/* &bit-rshu32 */
obj_t BGl_z62bitzd2rshu32zb0zz__bitz00(obj_t BgL_envz00_1377, obj_t BgL_xz00_1378, obj_t BgL_yz00_1379)
{
{ /* Llib/bit.scm 617 */
{ /* Llib/bit.scm 617 */
 uint32_t BgL_tmpz00_2866;
{ /* Llib/bit.scm 617 */
 long BgL_auxz00_2876; uint32_t BgL_auxz00_2867;
{ /* Llib/bit.scm 617 */
 obj_t BgL_tmpz00_2877;
if(
INTEGERP(BgL_yz00_1379))
{ /* Llib/bit.scm 617 */
BgL_tmpz00_2877 = BgL_yz00_1379
; }  else 
{ 
 obj_t BgL_auxz00_2880;
BgL_auxz00_2880 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28858L), BGl_string1764z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1379); 
FAILURE(BgL_auxz00_2880,BFALSE,BFALSE);} 
BgL_auxz00_2876 = 
(long)CINT(BgL_tmpz00_2877); } 
{ /* Llib/bit.scm 617 */
 obj_t BgL_tmpz00_2868;
if(
BGL_UINT32P(BgL_xz00_1378))
{ /* Llib/bit.scm 617 */
BgL_tmpz00_2868 = BgL_xz00_1378
; }  else 
{ 
 obj_t BgL_auxz00_2871;
BgL_auxz00_2871 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28858L), BGl_string1764z00zz__bitz00, BGl_string1712z00zz__bitz00, BgL_xz00_1378); 
FAILURE(BgL_auxz00_2871,BFALSE,BFALSE);} 
BgL_auxz00_2867 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_2868); } 
BgL_tmpz00_2866 = 
BGl_bitzd2rshu32zd2zz__bitz00(BgL_auxz00_2867, BgL_auxz00_2876); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_2866);} } 

}



/* bit-rshs64 */
BGL_EXPORTED_DEF int64_t BGl_bitzd2rshs64zd2zz__bitz00(int64_t BgL_xz00_107, long BgL_yz00_108)
{
{ /* Llib/bit.scm 618 */
return 
(BgL_xz00_107 >> 
(int)(BgL_yz00_108));} 

}



/* &bit-rshs64 */
obj_t BGl_z62bitzd2rshs64zb0zz__bitz00(obj_t BgL_envz00_1380, obj_t BgL_xz00_1381, obj_t BgL_yz00_1382)
{
{ /* Llib/bit.scm 618 */
{ /* Llib/bit.scm 618 */
 int64_t BgL_tmpz00_2889;
{ /* Llib/bit.scm 618 */
 long BgL_auxz00_2899; int64_t BgL_auxz00_2890;
{ /* Llib/bit.scm 618 */
 obj_t BgL_tmpz00_2900;
if(
INTEGERP(BgL_yz00_1382))
{ /* Llib/bit.scm 618 */
BgL_tmpz00_2900 = BgL_yz00_1382
; }  else 
{ 
 obj_t BgL_auxz00_2903;
BgL_auxz00_2903 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28908L), BGl_string1765z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1382); 
FAILURE(BgL_auxz00_2903,BFALSE,BFALSE);} 
BgL_auxz00_2899 = 
(long)CINT(BgL_tmpz00_2900); } 
{ /* Llib/bit.scm 618 */
 obj_t BgL_tmpz00_2891;
if(
BGL_INT64P(BgL_xz00_1381))
{ /* Llib/bit.scm 618 */
BgL_tmpz00_2891 = BgL_xz00_1381
; }  else 
{ 
 obj_t BgL_auxz00_2894;
BgL_auxz00_2894 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28908L), BGl_string1765z00zz__bitz00, BGl_string1714z00zz__bitz00, BgL_xz00_1381); 
FAILURE(BgL_auxz00_2894,BFALSE,BFALSE);} 
BgL_auxz00_2890 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2891); } 
BgL_tmpz00_2889 = 
BGl_bitzd2rshs64zd2zz__bitz00(BgL_auxz00_2890, BgL_auxz00_2899); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_2889);} } 

}



/* bit-rshu64 */
BGL_EXPORTED_DEF uint64_t BGl_bitzd2rshu64zd2zz__bitz00(uint64_t BgL_xz00_109, long BgL_yz00_110)
{
{ /* Llib/bit.scm 619 */
return 
(BgL_xz00_109 >> 
(int)(BgL_yz00_110));} 

}



/* &bit-rshu64 */
obj_t BGl_z62bitzd2rshu64zb0zz__bitz00(obj_t BgL_envz00_1383, obj_t BgL_xz00_1384, obj_t BgL_yz00_1385)
{
{ /* Llib/bit.scm 619 */
{ /* Llib/bit.scm 619 */
 uint64_t BgL_tmpz00_2912;
{ /* Llib/bit.scm 619 */
 long BgL_auxz00_2922; uint64_t BgL_auxz00_2913;
{ /* Llib/bit.scm 619 */
 obj_t BgL_tmpz00_2923;
if(
INTEGERP(BgL_yz00_1385))
{ /* Llib/bit.scm 619 */
BgL_tmpz00_2923 = BgL_yz00_1385
; }  else 
{ 
 obj_t BgL_auxz00_2926;
BgL_auxz00_2926 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28958L), BGl_string1766z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1385); 
FAILURE(BgL_auxz00_2926,BFALSE,BFALSE);} 
BgL_auxz00_2922 = 
(long)CINT(BgL_tmpz00_2923); } 
{ /* Llib/bit.scm 619 */
 obj_t BgL_tmpz00_2914;
if(
BGL_UINT64P(BgL_xz00_1384))
{ /* Llib/bit.scm 619 */
BgL_tmpz00_2914 = BgL_xz00_1384
; }  else 
{ 
 obj_t BgL_auxz00_2917;
BgL_auxz00_2917 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(28958L), BGl_string1766z00zz__bitz00, BGl_string1716z00zz__bitz00, BgL_xz00_1384); 
FAILURE(BgL_auxz00_2917,BFALSE,BFALSE);} 
BgL_auxz00_2913 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_2914); } 
BgL_tmpz00_2912 = 
BGl_bitzd2rshu64zd2zz__bitz00(BgL_auxz00_2913, BgL_auxz00_2922); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_2912);} } 

}



/* bit-rshbx */
BGL_EXPORTED_DEF obj_t BGl_bitzd2rshbxzd2zz__bitz00(obj_t BgL_xz00_111, long BgL_yz00_112)
{
{ /* Llib/bit.scm 620 */
BGL_TAIL return 
bgl_bignum_rsh(BgL_xz00_111, BgL_yz00_112);} 

}



/* &bit-rshbx */
obj_t BGl_z62bitzd2rshbxzb0zz__bitz00(obj_t BgL_envz00_1386, obj_t BgL_xz00_1387, obj_t BgL_yz00_1388)
{
{ /* Llib/bit.scm 620 */
{ /* Llib/bit.scm 620 */
 long BgL_auxz00_2941; obj_t BgL_auxz00_2934;
{ /* Llib/bit.scm 620 */
 obj_t BgL_tmpz00_2942;
if(
INTEGERP(BgL_yz00_1388))
{ /* Llib/bit.scm 620 */
BgL_tmpz00_2942 = BgL_yz00_1388
; }  else 
{ 
 obj_t BgL_auxz00_2945;
BgL_auxz00_2945 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29007L), BGl_string1767z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1388); 
FAILURE(BgL_auxz00_2945,BFALSE,BFALSE);} 
BgL_auxz00_2941 = 
(long)CINT(BgL_tmpz00_2942); } 
if(
BIGNUMP(BgL_xz00_1387))
{ /* Llib/bit.scm 620 */
BgL_auxz00_2934 = BgL_xz00_1387
; }  else 
{ 
 obj_t BgL_auxz00_2937;
BgL_auxz00_2937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29007L), BGl_string1767z00zz__bitz00, BGl_string1718z00zz__bitz00, BgL_xz00_1387); 
FAILURE(BgL_auxz00_2937,BFALSE,BFALSE);} 
return 
BGl_bitzd2rshbxzd2zz__bitz00(BgL_auxz00_2934, BgL_auxz00_2941);} } 

}



/* bit-ursh */
BGL_EXPORTED_DEF unsigned long BGl_bitzd2urshzd2zz__bitz00(unsigned long BgL_xz00_113, long BgL_yz00_114)
{
{ /* Llib/bit.scm 625 */
return 
(BgL_xz00_113 >> 
(int)(BgL_yz00_114));} 

}



/* &bit-ursh */
obj_t BGl_z62bitzd2urshzb0zz__bitz00(obj_t BgL_envz00_1389, obj_t BgL_xz00_1390, obj_t BgL_yz00_1391)
{
{ /* Llib/bit.scm 625 */
{ /* Llib/bit.scm 625 */
 unsigned long BgL_tmpz00_2953;
{ /* Llib/bit.scm 625 */
 long BgL_auxz00_2963; unsigned long BgL_auxz00_2954;
{ /* Llib/bit.scm 625 */
 obj_t BgL_tmpz00_2964;
if(
INTEGERP(BgL_yz00_1391))
{ /* Llib/bit.scm 625 */
BgL_tmpz00_2964 = BgL_yz00_1391
; }  else 
{ 
 obj_t BgL_auxz00_2967;
BgL_auxz00_2967 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29277L), BGl_string1768z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1391); 
FAILURE(BgL_auxz00_2967,BFALSE,BFALSE);} 
BgL_auxz00_2963 = 
(long)CINT(BgL_tmpz00_2964); } 
{ /* Llib/bit.scm 625 */
 obj_t BgL_tmpz00_2955;
if(
INTEGERP(BgL_xz00_1390))
{ /* Llib/bit.scm 625 */
BgL_tmpz00_2955 = BgL_xz00_1390
; }  else 
{ 
 obj_t BgL_auxz00_2958;
BgL_auxz00_2958 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29277L), BGl_string1768z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_xz00_1390); 
FAILURE(BgL_auxz00_2958,BFALSE,BFALSE);} 
BgL_auxz00_2954 = 
(unsigned long)CINT(BgL_tmpz00_2955); } 
BgL_tmpz00_2953 = 
BGl_bitzd2urshzd2zz__bitz00(BgL_auxz00_2954, BgL_auxz00_2963); } 
return 
BINT(BgL_tmpz00_2953);} } 

}



/* bit-urshelong */
BGL_EXPORTED_DEF unsigned long BGl_bitzd2urshelongzd2zz__bitz00(unsigned long BgL_xz00_115, long BgL_yz00_116)
{
{ /* Llib/bit.scm 626 */
return 
(BgL_xz00_115 >> 
(int)(BgL_yz00_116));} 

}



/* &bit-urshelong */
obj_t BGl_z62bitzd2urshelongzb0zz__bitz00(obj_t BgL_envz00_1392, obj_t BgL_xz00_1393, obj_t BgL_yz00_1394)
{
{ /* Llib/bit.scm 626 */
{ /* Llib/bit.scm 626 */
 long BgL_tmpz00_2976;
{ /* Llib/bit.scm 626 */
 long BgL_auxz00_2986; unsigned long BgL_auxz00_2977;
{ /* Llib/bit.scm 626 */
 obj_t BgL_tmpz00_2987;
if(
INTEGERP(BgL_yz00_1394))
{ /* Llib/bit.scm 626 */
BgL_tmpz00_2987 = BgL_yz00_1394
; }  else 
{ 
 obj_t BgL_auxz00_2990;
BgL_auxz00_2990 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29328L), BGl_string1769z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1394); 
FAILURE(BgL_auxz00_2990,BFALSE,BFALSE);} 
BgL_auxz00_2986 = 
(long)CINT(BgL_tmpz00_2987); } 
{ /* Llib/bit.scm 626 */
 obj_t BgL_tmpz00_2978;
if(
ELONGP(BgL_xz00_1393))
{ /* Llib/bit.scm 626 */
BgL_tmpz00_2978 = BgL_xz00_1393
; }  else 
{ 
 obj_t BgL_auxz00_2981;
BgL_auxz00_2981 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29328L), BGl_string1769z00zz__bitz00, BGl_string1698z00zz__bitz00, BgL_xz00_1393); 
FAILURE(BgL_auxz00_2981,BFALSE,BFALSE);} 
BgL_auxz00_2977 = 
BELONG_TO_LONG(BgL_tmpz00_2978); } 
BgL_tmpz00_2976 = 
BGl_bitzd2urshelongzd2zz__bitz00(BgL_auxz00_2977, BgL_auxz00_2986); } 
return 
make_belong(BgL_tmpz00_2976);} } 

}



/* bit-urshllong */
BGL_EXPORTED_DEF unsigned BGL_LONGLONG_T BGl_bitzd2urshllongzd2zz__bitz00(unsigned BGL_LONGLONG_T BgL_xz00_117, long BgL_yz00_118)
{
{ /* Llib/bit.scm 627 */
return 
(BgL_xz00_117 >> 
(int)(BgL_yz00_118));} 

}



/* &bit-urshllong */
obj_t BGl_z62bitzd2urshllongzb0zz__bitz00(obj_t BgL_envz00_1395, obj_t BgL_xz00_1396, obj_t BgL_yz00_1397)
{
{ /* Llib/bit.scm 627 */
{ /* Llib/bit.scm 627 */
 unsigned BGL_LONGLONG_T BgL_tmpz00_2999;
{ /* Llib/bit.scm 627 */
 long BgL_auxz00_3009; unsigned BGL_LONGLONG_T BgL_auxz00_3000;
{ /* Llib/bit.scm 627 */
 obj_t BgL_tmpz00_3010;
if(
INTEGERP(BgL_yz00_1397))
{ /* Llib/bit.scm 627 */
BgL_tmpz00_3010 = BgL_yz00_1397
; }  else 
{ 
 obj_t BgL_auxz00_3013;
BgL_auxz00_3013 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29384L), BGl_string1770z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1397); 
FAILURE(BgL_auxz00_3013,BFALSE,BFALSE);} 
BgL_auxz00_3009 = 
(long)CINT(BgL_tmpz00_3010); } 
{ /* Llib/bit.scm 627 */
 obj_t BgL_tmpz00_3001;
if(
LLONGP(BgL_xz00_1396))
{ /* Llib/bit.scm 627 */
BgL_tmpz00_3001 = BgL_xz00_1396
; }  else 
{ 
 obj_t BgL_auxz00_3004;
BgL_auxz00_3004 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29384L), BGl_string1770z00zz__bitz00, BGl_string1700z00zz__bitz00, BgL_xz00_1396); 
FAILURE(BgL_auxz00_3004,BFALSE,BFALSE);} 
BgL_auxz00_3000 = 
BLLONG_TO_LLONG(BgL_tmpz00_3001); } 
BgL_tmpz00_2999 = 
BGl_bitzd2urshllongzd2zz__bitz00(BgL_auxz00_3000, BgL_auxz00_3009); } 
return 
make_bllong(BgL_tmpz00_2999);} } 

}



/* bit-urshu8 */
BGL_EXPORTED_DEF uint8_t BGl_bitzd2urshu8zd2zz__bitz00(uint8_t BgL_xz00_119, long BgL_yz00_120)
{
{ /* Llib/bit.scm 628 */
return 
(BgL_xz00_119 >> 
(int)(BgL_yz00_120));} 

}



/* &bit-urshu8 */
obj_t BGl_z62bitzd2urshu8zb0zz__bitz00(obj_t BgL_envz00_1398, obj_t BgL_xz00_1399, obj_t BgL_yz00_1400)
{
{ /* Llib/bit.scm 628 */
{ /* Llib/bit.scm 628 */
 uint8_t BgL_tmpz00_3022;
{ /* Llib/bit.scm 628 */
 long BgL_auxz00_3032; uint8_t BgL_auxz00_3023;
{ /* Llib/bit.scm 628 */
 obj_t BgL_tmpz00_3033;
if(
INTEGERP(BgL_yz00_1400))
{ /* Llib/bit.scm 628 */
BgL_tmpz00_3033 = BgL_yz00_1400
; }  else 
{ 
 obj_t BgL_auxz00_3036;
BgL_auxz00_3036 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29437L), BGl_string1771z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1400); 
FAILURE(BgL_auxz00_3036,BFALSE,BFALSE);} 
BgL_auxz00_3032 = 
(long)CINT(BgL_tmpz00_3033); } 
{ /* Llib/bit.scm 628 */
 obj_t BgL_tmpz00_3024;
if(
BGL_UINT8P(BgL_xz00_1399))
{ /* Llib/bit.scm 628 */
BgL_tmpz00_3024 = BgL_xz00_1399
; }  else 
{ 
 obj_t BgL_auxz00_3027;
BgL_auxz00_3027 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29437L), BGl_string1771z00zz__bitz00, BGl_string1704z00zz__bitz00, BgL_xz00_1399); 
FAILURE(BgL_auxz00_3027,BFALSE,BFALSE);} 
BgL_auxz00_3023 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_3024); } 
BgL_tmpz00_3022 = 
BGl_bitzd2urshu8zd2zz__bitz00(BgL_auxz00_3023, BgL_auxz00_3032); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_3022);} } 

}



/* bit-urshs8 */
BGL_EXPORTED_DEF int8_t BGl_bitzd2urshs8zd2zz__bitz00(int8_t BgL_xz00_121, long BgL_yz00_122)
{
{ /* Llib/bit.scm 629 */
return 
(BgL_xz00_121 >> 
(int)(BgL_yz00_122));} 

}



/* &bit-urshs8 */
obj_t BGl_z62bitzd2urshs8zb0zz__bitz00(obj_t BgL_envz00_1401, obj_t BgL_xz00_1402, obj_t BgL_yz00_1403)
{
{ /* Llib/bit.scm 629 */
{ /* Llib/bit.scm 629 */
 int8_t BgL_tmpz00_3045;
{ /* Llib/bit.scm 629 */
 long BgL_auxz00_3055; int8_t BgL_auxz00_3046;
{ /* Llib/bit.scm 629 */
 obj_t BgL_tmpz00_3056;
if(
INTEGERP(BgL_yz00_1403))
{ /* Llib/bit.scm 629 */
BgL_tmpz00_3056 = BgL_yz00_1403
; }  else 
{ 
 obj_t BgL_auxz00_3059;
BgL_auxz00_3059 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29487L), BGl_string1772z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1403); 
FAILURE(BgL_auxz00_3059,BFALSE,BFALSE);} 
BgL_auxz00_3055 = 
(long)CINT(BgL_tmpz00_3056); } 
{ /* Llib/bit.scm 629 */
 obj_t BgL_tmpz00_3047;
if(
BGL_INT8P(BgL_xz00_1402))
{ /* Llib/bit.scm 629 */
BgL_tmpz00_3047 = BgL_xz00_1402
; }  else 
{ 
 obj_t BgL_auxz00_3050;
BgL_auxz00_3050 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29487L), BGl_string1772z00zz__bitz00, BGl_string1702z00zz__bitz00, BgL_xz00_1402); 
FAILURE(BgL_auxz00_3050,BFALSE,BFALSE);} 
BgL_auxz00_3046 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_3047); } 
BgL_tmpz00_3045 = 
BGl_bitzd2urshs8zd2zz__bitz00(BgL_auxz00_3046, BgL_auxz00_3055); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_3045);} } 

}



/* bit-urshs16 */
BGL_EXPORTED_DEF int16_t BGl_bitzd2urshs16zd2zz__bitz00(int16_t BgL_xz00_123, long BgL_yz00_124)
{
{ /* Llib/bit.scm 630 */
return 
(BgL_xz00_123 >> 
(int)(BgL_yz00_124));} 

}



/* &bit-urshs16 */
obj_t BGl_z62bitzd2urshs16zb0zz__bitz00(obj_t BgL_envz00_1404, obj_t BgL_xz00_1405, obj_t BgL_yz00_1406)
{
{ /* Llib/bit.scm 630 */
{ /* Llib/bit.scm 630 */
 int16_t BgL_tmpz00_3068;
{ /* Llib/bit.scm 630 */
 long BgL_auxz00_3078; int16_t BgL_auxz00_3069;
{ /* Llib/bit.scm 630 */
 obj_t BgL_tmpz00_3079;
if(
INTEGERP(BgL_yz00_1406))
{ /* Llib/bit.scm 630 */
BgL_tmpz00_3079 = BgL_yz00_1406
; }  else 
{ 
 obj_t BgL_auxz00_3082;
BgL_auxz00_3082 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29538L), BGl_string1773z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1406); 
FAILURE(BgL_auxz00_3082,BFALSE,BFALSE);} 
BgL_auxz00_3078 = 
(long)CINT(BgL_tmpz00_3079); } 
{ /* Llib/bit.scm 630 */
 obj_t BgL_tmpz00_3070;
if(
BGL_INT16P(BgL_xz00_1405))
{ /* Llib/bit.scm 630 */
BgL_tmpz00_3070 = BgL_xz00_1405
; }  else 
{ 
 obj_t BgL_auxz00_3073;
BgL_auxz00_3073 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29538L), BGl_string1773z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_xz00_1405); 
FAILURE(BgL_auxz00_3073,BFALSE,BFALSE);} 
BgL_auxz00_3069 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_3070); } 
BgL_tmpz00_3068 = 
BGl_bitzd2urshs16zd2zz__bitz00(BgL_auxz00_3069, BgL_auxz00_3078); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_3068);} } 

}



/* bit-urshu16 */
BGL_EXPORTED_DEF uint16_t BGl_bitzd2urshu16zd2zz__bitz00(uint16_t BgL_xz00_125, long BgL_yz00_126)
{
{ /* Llib/bit.scm 631 */
return 
(BgL_xz00_125 >> 
(int)(BgL_yz00_126));} 

}



/* &bit-urshu16 */
obj_t BGl_z62bitzd2urshu16zb0zz__bitz00(obj_t BgL_envz00_1407, obj_t BgL_xz00_1408, obj_t BgL_yz00_1409)
{
{ /* Llib/bit.scm 631 */
{ /* Llib/bit.scm 631 */
 uint16_t BgL_tmpz00_3091;
{ /* Llib/bit.scm 631 */
 long BgL_auxz00_3101; uint16_t BgL_auxz00_3092;
{ /* Llib/bit.scm 631 */
 obj_t BgL_tmpz00_3102;
if(
INTEGERP(BgL_yz00_1409))
{ /* Llib/bit.scm 631 */
BgL_tmpz00_3102 = BgL_yz00_1409
; }  else 
{ 
 obj_t BgL_auxz00_3105;
BgL_auxz00_3105 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29590L), BGl_string1774z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1409); 
FAILURE(BgL_auxz00_3105,BFALSE,BFALSE);} 
BgL_auxz00_3101 = 
(long)CINT(BgL_tmpz00_3102); } 
{ /* Llib/bit.scm 631 */
 obj_t BgL_tmpz00_3093;
if(
BGL_UINT16P(BgL_xz00_1408))
{ /* Llib/bit.scm 631 */
BgL_tmpz00_3093 = BgL_xz00_1408
; }  else 
{ 
 obj_t BgL_auxz00_3096;
BgL_auxz00_3096 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29590L), BGl_string1774z00zz__bitz00, BGl_string1708z00zz__bitz00, BgL_xz00_1408); 
FAILURE(BgL_auxz00_3096,BFALSE,BFALSE);} 
BgL_auxz00_3092 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_3093); } 
BgL_tmpz00_3091 = 
BGl_bitzd2urshu16zd2zz__bitz00(BgL_auxz00_3092, BgL_auxz00_3101); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_3091);} } 

}



/* bit-urshs32 */
BGL_EXPORTED_DEF int32_t BGl_bitzd2urshs32zd2zz__bitz00(int32_t BgL_xz00_127, long BgL_yz00_128)
{
{ /* Llib/bit.scm 632 */
return 
(BgL_xz00_127 >> 
(int)(BgL_yz00_128));} 

}



/* &bit-urshs32 */
obj_t BGl_z62bitzd2urshs32zb0zz__bitz00(obj_t BgL_envz00_1410, obj_t BgL_xz00_1411, obj_t BgL_yz00_1412)
{
{ /* Llib/bit.scm 632 */
{ /* Llib/bit.scm 632 */
 int32_t BgL_tmpz00_3114;
{ /* Llib/bit.scm 632 */
 long BgL_auxz00_3124; int32_t BgL_auxz00_3115;
{ /* Llib/bit.scm 632 */
 obj_t BgL_tmpz00_3125;
if(
INTEGERP(BgL_yz00_1412))
{ /* Llib/bit.scm 632 */
BgL_tmpz00_3125 = BgL_yz00_1412
; }  else 
{ 
 obj_t BgL_auxz00_3128;
BgL_auxz00_3128 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29642L), BGl_string1775z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1412); 
FAILURE(BgL_auxz00_3128,BFALSE,BFALSE);} 
BgL_auxz00_3124 = 
(long)CINT(BgL_tmpz00_3125); } 
{ /* Llib/bit.scm 632 */
 obj_t BgL_tmpz00_3116;
if(
BGL_INT32P(BgL_xz00_1411))
{ /* Llib/bit.scm 632 */
BgL_tmpz00_3116 = BgL_xz00_1411
; }  else 
{ 
 obj_t BgL_auxz00_3119;
BgL_auxz00_3119 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29642L), BGl_string1775z00zz__bitz00, BGl_string1710z00zz__bitz00, BgL_xz00_1411); 
FAILURE(BgL_auxz00_3119,BFALSE,BFALSE);} 
BgL_auxz00_3115 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_3116); } 
BgL_tmpz00_3114 = 
BGl_bitzd2urshs32zd2zz__bitz00(BgL_auxz00_3115, BgL_auxz00_3124); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_3114);} } 

}



/* bit-urshu32 */
BGL_EXPORTED_DEF uint32_t BGl_bitzd2urshu32zd2zz__bitz00(uint32_t BgL_xz00_129, long BgL_yz00_130)
{
{ /* Llib/bit.scm 633 */
return 
(BgL_xz00_129 >> 
(int)(BgL_yz00_130));} 

}



/* &bit-urshu32 */
obj_t BGl_z62bitzd2urshu32zb0zz__bitz00(obj_t BgL_envz00_1413, obj_t BgL_xz00_1414, obj_t BgL_yz00_1415)
{
{ /* Llib/bit.scm 633 */
{ /* Llib/bit.scm 633 */
 uint32_t BgL_tmpz00_3137;
{ /* Llib/bit.scm 633 */
 long BgL_auxz00_3147; uint32_t BgL_auxz00_3138;
{ /* Llib/bit.scm 633 */
 obj_t BgL_tmpz00_3148;
if(
INTEGERP(BgL_yz00_1415))
{ /* Llib/bit.scm 633 */
BgL_tmpz00_3148 = BgL_yz00_1415
; }  else 
{ 
 obj_t BgL_auxz00_3151;
BgL_auxz00_3151 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29694L), BGl_string1776z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1415); 
FAILURE(BgL_auxz00_3151,BFALSE,BFALSE);} 
BgL_auxz00_3147 = 
(long)CINT(BgL_tmpz00_3148); } 
{ /* Llib/bit.scm 633 */
 obj_t BgL_tmpz00_3139;
if(
BGL_UINT32P(BgL_xz00_1414))
{ /* Llib/bit.scm 633 */
BgL_tmpz00_3139 = BgL_xz00_1414
; }  else 
{ 
 obj_t BgL_auxz00_3142;
BgL_auxz00_3142 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29694L), BGl_string1776z00zz__bitz00, BGl_string1712z00zz__bitz00, BgL_xz00_1414); 
FAILURE(BgL_auxz00_3142,BFALSE,BFALSE);} 
BgL_auxz00_3138 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_3139); } 
BgL_tmpz00_3137 = 
BGl_bitzd2urshu32zd2zz__bitz00(BgL_auxz00_3138, BgL_auxz00_3147); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_3137);} } 

}



/* bit-urshs64 */
BGL_EXPORTED_DEF int64_t BGl_bitzd2urshs64zd2zz__bitz00(int64_t BgL_xz00_131, long BgL_yz00_132)
{
{ /* Llib/bit.scm 634 */
return 
(BgL_xz00_131 >> 
(int)(BgL_yz00_132));} 

}



/* &bit-urshs64 */
obj_t BGl_z62bitzd2urshs64zb0zz__bitz00(obj_t BgL_envz00_1416, obj_t BgL_xz00_1417, obj_t BgL_yz00_1418)
{
{ /* Llib/bit.scm 634 */
{ /* Llib/bit.scm 634 */
 int64_t BgL_tmpz00_3160;
{ /* Llib/bit.scm 634 */
 long BgL_auxz00_3170; int64_t BgL_auxz00_3161;
{ /* Llib/bit.scm 634 */
 obj_t BgL_tmpz00_3171;
if(
INTEGERP(BgL_yz00_1418))
{ /* Llib/bit.scm 634 */
BgL_tmpz00_3171 = BgL_yz00_1418
; }  else 
{ 
 obj_t BgL_auxz00_3174;
BgL_auxz00_3174 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29746L), BGl_string1777z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1418); 
FAILURE(BgL_auxz00_3174,BFALSE,BFALSE);} 
BgL_auxz00_3170 = 
(long)CINT(BgL_tmpz00_3171); } 
{ /* Llib/bit.scm 634 */
 obj_t BgL_tmpz00_3162;
if(
BGL_INT64P(BgL_xz00_1417))
{ /* Llib/bit.scm 634 */
BgL_tmpz00_3162 = BgL_xz00_1417
; }  else 
{ 
 obj_t BgL_auxz00_3165;
BgL_auxz00_3165 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29746L), BGl_string1777z00zz__bitz00, BGl_string1714z00zz__bitz00, BgL_xz00_1417); 
FAILURE(BgL_auxz00_3165,BFALSE,BFALSE);} 
BgL_auxz00_3161 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_3162); } 
BgL_tmpz00_3160 = 
BGl_bitzd2urshs64zd2zz__bitz00(BgL_auxz00_3161, BgL_auxz00_3170); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_3160);} } 

}



/* bit-urshu64 */
BGL_EXPORTED_DEF uint64_t BGl_bitzd2urshu64zd2zz__bitz00(uint64_t BgL_xz00_133, long BgL_yz00_134)
{
{ /* Llib/bit.scm 635 */
return 
(BgL_xz00_133 >> 
(int)(BgL_yz00_134));} 

}



/* &bit-urshu64 */
obj_t BGl_z62bitzd2urshu64zb0zz__bitz00(obj_t BgL_envz00_1419, obj_t BgL_xz00_1420, obj_t BgL_yz00_1421)
{
{ /* Llib/bit.scm 635 */
{ /* Llib/bit.scm 635 */
 uint64_t BgL_tmpz00_3183;
{ /* Llib/bit.scm 635 */
 long BgL_auxz00_3193; uint64_t BgL_auxz00_3184;
{ /* Llib/bit.scm 635 */
 obj_t BgL_tmpz00_3194;
if(
INTEGERP(BgL_yz00_1421))
{ /* Llib/bit.scm 635 */
BgL_tmpz00_3194 = BgL_yz00_1421
; }  else 
{ 
 obj_t BgL_auxz00_3197;
BgL_auxz00_3197 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29798L), BGl_string1778z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1421); 
FAILURE(BgL_auxz00_3197,BFALSE,BFALSE);} 
BgL_auxz00_3193 = 
(long)CINT(BgL_tmpz00_3194); } 
{ /* Llib/bit.scm 635 */
 obj_t BgL_tmpz00_3185;
if(
BGL_UINT64P(BgL_xz00_1420))
{ /* Llib/bit.scm 635 */
BgL_tmpz00_3185 = BgL_xz00_1420
; }  else 
{ 
 obj_t BgL_auxz00_3188;
BgL_auxz00_3188 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(29798L), BGl_string1778z00zz__bitz00, BGl_string1716z00zz__bitz00, BgL_xz00_1420); 
FAILURE(BgL_auxz00_3188,BFALSE,BFALSE);} 
BgL_auxz00_3184 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_3185); } 
BgL_tmpz00_3183 = 
BGl_bitzd2urshu64zd2zz__bitz00(BgL_auxz00_3184, BgL_auxz00_3193); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_3183);} } 

}



/* bit-lsh */
BGL_EXPORTED_DEF long BGl_bitzd2lshzd2zz__bitz00(long BgL_xz00_135, long BgL_yz00_136)
{
{ /* Llib/bit.scm 640 */
return 
(BgL_xz00_135 << 
(int)(BgL_yz00_136));} 

}



/* &bit-lsh */
obj_t BGl_z62bitzd2lshzb0zz__bitz00(obj_t BgL_envz00_1422, obj_t BgL_xz00_1423, obj_t BgL_yz00_1424)
{
{ /* Llib/bit.scm 640 */
{ /* Llib/bit.scm 640 */
 long BgL_tmpz00_3206;
{ /* Llib/bit.scm 640 */
 long BgL_auxz00_3216; long BgL_auxz00_3207;
{ /* Llib/bit.scm 640 */
 obj_t BgL_tmpz00_3217;
if(
INTEGERP(BgL_yz00_1424))
{ /* Llib/bit.scm 640 */
BgL_tmpz00_3217 = BgL_yz00_1424
; }  else 
{ 
 obj_t BgL_auxz00_3220;
BgL_auxz00_3220 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30076L), BGl_string1779z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1424); 
FAILURE(BgL_auxz00_3220,BFALSE,BFALSE);} 
BgL_auxz00_3216 = 
(long)CINT(BgL_tmpz00_3217); } 
{ /* Llib/bit.scm 640 */
 obj_t BgL_tmpz00_3208;
if(
INTEGERP(BgL_xz00_1423))
{ /* Llib/bit.scm 640 */
BgL_tmpz00_3208 = BgL_xz00_1423
; }  else 
{ 
 obj_t BgL_auxz00_3211;
BgL_auxz00_3211 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30076L), BGl_string1779z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_xz00_1423); 
FAILURE(BgL_auxz00_3211,BFALSE,BFALSE);} 
BgL_auxz00_3207 = 
(long)CINT(BgL_tmpz00_3208); } 
BgL_tmpz00_3206 = 
BGl_bitzd2lshzd2zz__bitz00(BgL_auxz00_3207, BgL_auxz00_3216); } 
return 
BINT(BgL_tmpz00_3206);} } 

}



/* bit-lshelong */
BGL_EXPORTED_DEF long BGl_bitzd2lshelongzd2zz__bitz00(long BgL_xz00_137, long BgL_yz00_138)
{
{ /* Llib/bit.scm 641 */
return 
(BgL_xz00_137 << 
(int)(BgL_yz00_138));} 

}



/* &bit-lshelong */
obj_t BGl_z62bitzd2lshelongzb0zz__bitz00(obj_t BgL_envz00_1425, obj_t BgL_xz00_1426, obj_t BgL_yz00_1427)
{
{ /* Llib/bit.scm 641 */
{ /* Llib/bit.scm 641 */
 long BgL_tmpz00_3229;
{ /* Llib/bit.scm 641 */
 long BgL_auxz00_3239; long BgL_auxz00_3230;
{ /* Llib/bit.scm 641 */
 obj_t BgL_tmpz00_3240;
if(
INTEGERP(BgL_yz00_1427))
{ /* Llib/bit.scm 641 */
BgL_tmpz00_3240 = BgL_yz00_1427
; }  else 
{ 
 obj_t BgL_auxz00_3243;
BgL_auxz00_3243 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30125L), BGl_string1780z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1427); 
FAILURE(BgL_auxz00_3243,BFALSE,BFALSE);} 
BgL_auxz00_3239 = 
(long)CINT(BgL_tmpz00_3240); } 
{ /* Llib/bit.scm 641 */
 obj_t BgL_tmpz00_3231;
if(
ELONGP(BgL_xz00_1426))
{ /* Llib/bit.scm 641 */
BgL_tmpz00_3231 = BgL_xz00_1426
; }  else 
{ 
 obj_t BgL_auxz00_3234;
BgL_auxz00_3234 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30125L), BGl_string1780z00zz__bitz00, BGl_string1698z00zz__bitz00, BgL_xz00_1426); 
FAILURE(BgL_auxz00_3234,BFALSE,BFALSE);} 
BgL_auxz00_3230 = 
BELONG_TO_LONG(BgL_tmpz00_3231); } 
BgL_tmpz00_3229 = 
BGl_bitzd2lshelongzd2zz__bitz00(BgL_auxz00_3230, BgL_auxz00_3239); } 
return 
make_belong(BgL_tmpz00_3229);} } 

}



/* bit-lshllong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_bitzd2lshllongzd2zz__bitz00(BGL_LONGLONG_T BgL_xz00_139, long BgL_yz00_140)
{
{ /* Llib/bit.scm 642 */
return 
(BgL_xz00_139 << 
(int)(BgL_yz00_140));} 

}



/* &bit-lshllong */
obj_t BGl_z62bitzd2lshllongzb0zz__bitz00(obj_t BgL_envz00_1428, obj_t BgL_xz00_1429, obj_t BgL_yz00_1430)
{
{ /* Llib/bit.scm 642 */
{ /* Llib/bit.scm 642 */
 BGL_LONGLONG_T BgL_tmpz00_3252;
{ /* Llib/bit.scm 642 */
 long BgL_auxz00_3262; BGL_LONGLONG_T BgL_auxz00_3253;
{ /* Llib/bit.scm 642 */
 obj_t BgL_tmpz00_3263;
if(
INTEGERP(BgL_yz00_1430))
{ /* Llib/bit.scm 642 */
BgL_tmpz00_3263 = BgL_yz00_1430
; }  else 
{ 
 obj_t BgL_auxz00_3266;
BgL_auxz00_3266 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30179L), BGl_string1781z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1430); 
FAILURE(BgL_auxz00_3266,BFALSE,BFALSE);} 
BgL_auxz00_3262 = 
(long)CINT(BgL_tmpz00_3263); } 
{ /* Llib/bit.scm 642 */
 obj_t BgL_tmpz00_3254;
if(
LLONGP(BgL_xz00_1429))
{ /* Llib/bit.scm 642 */
BgL_tmpz00_3254 = BgL_xz00_1429
; }  else 
{ 
 obj_t BgL_auxz00_3257;
BgL_auxz00_3257 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30179L), BGl_string1781z00zz__bitz00, BGl_string1700z00zz__bitz00, BgL_xz00_1429); 
FAILURE(BgL_auxz00_3257,BFALSE,BFALSE);} 
BgL_auxz00_3253 = 
BLLONG_TO_LLONG(BgL_tmpz00_3254); } 
BgL_tmpz00_3252 = 
BGl_bitzd2lshllongzd2zz__bitz00(BgL_auxz00_3253, BgL_auxz00_3262); } 
return 
make_bllong(BgL_tmpz00_3252);} } 

}



/* bit-lshs8 */
BGL_EXPORTED_DEF int8_t BGl_bitzd2lshs8zd2zz__bitz00(int8_t BgL_xz00_141, long BgL_yz00_142)
{
{ /* Llib/bit.scm 643 */
return 
(BgL_xz00_141 << 
(int)(BgL_yz00_142));} 

}



/* &bit-lshs8 */
obj_t BGl_z62bitzd2lshs8zb0zz__bitz00(obj_t BgL_envz00_1431, obj_t BgL_xz00_1432, obj_t BgL_yz00_1433)
{
{ /* Llib/bit.scm 643 */
{ /* Llib/bit.scm 643 */
 int8_t BgL_tmpz00_3275;
{ /* Llib/bit.scm 643 */
 long BgL_auxz00_3285; int8_t BgL_auxz00_3276;
{ /* Llib/bit.scm 643 */
 obj_t BgL_tmpz00_3286;
if(
INTEGERP(BgL_yz00_1433))
{ /* Llib/bit.scm 643 */
BgL_tmpz00_3286 = BgL_yz00_1433
; }  else 
{ 
 obj_t BgL_auxz00_3289;
BgL_auxz00_3289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30230L), BGl_string1782z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1433); 
FAILURE(BgL_auxz00_3289,BFALSE,BFALSE);} 
BgL_auxz00_3285 = 
(long)CINT(BgL_tmpz00_3286); } 
{ /* Llib/bit.scm 643 */
 obj_t BgL_tmpz00_3277;
if(
BGL_INT8P(BgL_xz00_1432))
{ /* Llib/bit.scm 643 */
BgL_tmpz00_3277 = BgL_xz00_1432
; }  else 
{ 
 obj_t BgL_auxz00_3280;
BgL_auxz00_3280 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30230L), BGl_string1782z00zz__bitz00, BGl_string1702z00zz__bitz00, BgL_xz00_1432); 
FAILURE(BgL_auxz00_3280,BFALSE,BFALSE);} 
BgL_auxz00_3276 = 
BGL_BINT8_TO_INT8(BgL_tmpz00_3277); } 
BgL_tmpz00_3275 = 
BGl_bitzd2lshs8zd2zz__bitz00(BgL_auxz00_3276, BgL_auxz00_3285); } 
return 
BGL_INT8_TO_BINT8(BgL_tmpz00_3275);} } 

}



/* bit-lshu8 */
BGL_EXPORTED_DEF uint8_t BGl_bitzd2lshu8zd2zz__bitz00(uint8_t BgL_xz00_143, long BgL_yz00_144)
{
{ /* Llib/bit.scm 644 */
return 
(BgL_xz00_143 << 
(int)(BgL_yz00_144));} 

}



/* &bit-lshu8 */
obj_t BGl_z62bitzd2lshu8zb0zz__bitz00(obj_t BgL_envz00_1434, obj_t BgL_xz00_1435, obj_t BgL_yz00_1436)
{
{ /* Llib/bit.scm 644 */
{ /* Llib/bit.scm 644 */
 uint8_t BgL_tmpz00_3298;
{ /* Llib/bit.scm 644 */
 long BgL_auxz00_3308; uint8_t BgL_auxz00_3299;
{ /* Llib/bit.scm 644 */
 obj_t BgL_tmpz00_3309;
if(
INTEGERP(BgL_yz00_1436))
{ /* Llib/bit.scm 644 */
BgL_tmpz00_3309 = BgL_yz00_1436
; }  else 
{ 
 obj_t BgL_auxz00_3312;
BgL_auxz00_3312 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30278L), BGl_string1783z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1436); 
FAILURE(BgL_auxz00_3312,BFALSE,BFALSE);} 
BgL_auxz00_3308 = 
(long)CINT(BgL_tmpz00_3309); } 
{ /* Llib/bit.scm 644 */
 obj_t BgL_tmpz00_3300;
if(
BGL_UINT8P(BgL_xz00_1435))
{ /* Llib/bit.scm 644 */
BgL_tmpz00_3300 = BgL_xz00_1435
; }  else 
{ 
 obj_t BgL_auxz00_3303;
BgL_auxz00_3303 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30278L), BGl_string1783z00zz__bitz00, BGl_string1704z00zz__bitz00, BgL_xz00_1435); 
FAILURE(BgL_auxz00_3303,BFALSE,BFALSE);} 
BgL_auxz00_3299 = 
BGL_BUINT8_TO_UINT8(BgL_tmpz00_3300); } 
BgL_tmpz00_3298 = 
BGl_bitzd2lshu8zd2zz__bitz00(BgL_auxz00_3299, BgL_auxz00_3308); } 
return 
BGL_UINT8_TO_BUINT8(BgL_tmpz00_3298);} } 

}



/* bit-lshs16 */
BGL_EXPORTED_DEF int16_t BGl_bitzd2lshs16zd2zz__bitz00(int16_t BgL_xz00_145, long BgL_yz00_146)
{
{ /* Llib/bit.scm 645 */
return 
(BgL_xz00_145 << 
(int)(BgL_yz00_146));} 

}



/* &bit-lshs16 */
obj_t BGl_z62bitzd2lshs16zb0zz__bitz00(obj_t BgL_envz00_1437, obj_t BgL_xz00_1438, obj_t BgL_yz00_1439)
{
{ /* Llib/bit.scm 645 */
{ /* Llib/bit.scm 645 */
 int16_t BgL_tmpz00_3321;
{ /* Llib/bit.scm 645 */
 long BgL_auxz00_3331; int16_t BgL_auxz00_3322;
{ /* Llib/bit.scm 645 */
 obj_t BgL_tmpz00_3332;
if(
INTEGERP(BgL_yz00_1439))
{ /* Llib/bit.scm 645 */
BgL_tmpz00_3332 = BgL_yz00_1439
; }  else 
{ 
 obj_t BgL_auxz00_3335;
BgL_auxz00_3335 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30327L), BGl_string1784z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1439); 
FAILURE(BgL_auxz00_3335,BFALSE,BFALSE);} 
BgL_auxz00_3331 = 
(long)CINT(BgL_tmpz00_3332); } 
{ /* Llib/bit.scm 645 */
 obj_t BgL_tmpz00_3323;
if(
BGL_INT16P(BgL_xz00_1438))
{ /* Llib/bit.scm 645 */
BgL_tmpz00_3323 = BgL_xz00_1438
; }  else 
{ 
 obj_t BgL_auxz00_3326;
BgL_auxz00_3326 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30327L), BGl_string1784z00zz__bitz00, BGl_string1706z00zz__bitz00, BgL_xz00_1438); 
FAILURE(BgL_auxz00_3326,BFALSE,BFALSE);} 
BgL_auxz00_3322 = 
BGL_BINT16_TO_INT16(BgL_tmpz00_3323); } 
BgL_tmpz00_3321 = 
BGl_bitzd2lshs16zd2zz__bitz00(BgL_auxz00_3322, BgL_auxz00_3331); } 
return 
BGL_INT16_TO_BINT16(BgL_tmpz00_3321);} } 

}



/* bit-lshu16 */
BGL_EXPORTED_DEF uint16_t BGl_bitzd2lshu16zd2zz__bitz00(uint16_t BgL_xz00_147, long BgL_yz00_148)
{
{ /* Llib/bit.scm 646 */
return 
(BgL_xz00_147 << 
(int)(BgL_yz00_148));} 

}



/* &bit-lshu16 */
obj_t BGl_z62bitzd2lshu16zb0zz__bitz00(obj_t BgL_envz00_1440, obj_t BgL_xz00_1441, obj_t BgL_yz00_1442)
{
{ /* Llib/bit.scm 646 */
{ /* Llib/bit.scm 646 */
 uint16_t BgL_tmpz00_3344;
{ /* Llib/bit.scm 646 */
 long BgL_auxz00_3354; uint16_t BgL_auxz00_3345;
{ /* Llib/bit.scm 646 */
 obj_t BgL_tmpz00_3355;
if(
INTEGERP(BgL_yz00_1442))
{ /* Llib/bit.scm 646 */
BgL_tmpz00_3355 = BgL_yz00_1442
; }  else 
{ 
 obj_t BgL_auxz00_3358;
BgL_auxz00_3358 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30377L), BGl_string1785z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1442); 
FAILURE(BgL_auxz00_3358,BFALSE,BFALSE);} 
BgL_auxz00_3354 = 
(long)CINT(BgL_tmpz00_3355); } 
{ /* Llib/bit.scm 646 */
 obj_t BgL_tmpz00_3346;
if(
BGL_UINT16P(BgL_xz00_1441))
{ /* Llib/bit.scm 646 */
BgL_tmpz00_3346 = BgL_xz00_1441
; }  else 
{ 
 obj_t BgL_auxz00_3349;
BgL_auxz00_3349 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30377L), BGl_string1785z00zz__bitz00, BGl_string1708z00zz__bitz00, BgL_xz00_1441); 
FAILURE(BgL_auxz00_3349,BFALSE,BFALSE);} 
BgL_auxz00_3345 = 
BGL_BUINT16_TO_UINT16(BgL_tmpz00_3346); } 
BgL_tmpz00_3344 = 
BGl_bitzd2lshu16zd2zz__bitz00(BgL_auxz00_3345, BgL_auxz00_3354); } 
return 
BGL_UINT16_TO_BUINT16(BgL_tmpz00_3344);} } 

}



/* bit-lshs32 */
BGL_EXPORTED_DEF int32_t BGl_bitzd2lshs32zd2zz__bitz00(int32_t BgL_xz00_149, long BgL_yz00_150)
{
{ /* Llib/bit.scm 647 */
return 
(BgL_xz00_149 << 
(int)(BgL_yz00_150));} 

}



/* &bit-lshs32 */
obj_t BGl_z62bitzd2lshs32zb0zz__bitz00(obj_t BgL_envz00_1443, obj_t BgL_xz00_1444, obj_t BgL_yz00_1445)
{
{ /* Llib/bit.scm 647 */
{ /* Llib/bit.scm 647 */
 int32_t BgL_tmpz00_3367;
{ /* Llib/bit.scm 647 */
 long BgL_auxz00_3377; int32_t BgL_auxz00_3368;
{ /* Llib/bit.scm 647 */
 obj_t BgL_tmpz00_3378;
if(
INTEGERP(BgL_yz00_1445))
{ /* Llib/bit.scm 647 */
BgL_tmpz00_3378 = BgL_yz00_1445
; }  else 
{ 
 obj_t BgL_auxz00_3381;
BgL_auxz00_3381 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30427L), BGl_string1786z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1445); 
FAILURE(BgL_auxz00_3381,BFALSE,BFALSE);} 
BgL_auxz00_3377 = 
(long)CINT(BgL_tmpz00_3378); } 
{ /* Llib/bit.scm 647 */
 obj_t BgL_tmpz00_3369;
if(
BGL_INT32P(BgL_xz00_1444))
{ /* Llib/bit.scm 647 */
BgL_tmpz00_3369 = BgL_xz00_1444
; }  else 
{ 
 obj_t BgL_auxz00_3372;
BgL_auxz00_3372 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30427L), BGl_string1786z00zz__bitz00, BGl_string1710z00zz__bitz00, BgL_xz00_1444); 
FAILURE(BgL_auxz00_3372,BFALSE,BFALSE);} 
BgL_auxz00_3368 = 
BGL_BINT32_TO_INT32(BgL_tmpz00_3369); } 
BgL_tmpz00_3367 = 
BGl_bitzd2lshs32zd2zz__bitz00(BgL_auxz00_3368, BgL_auxz00_3377); } 
return 
BGL_INT32_TO_BINT32(BgL_tmpz00_3367);} } 

}



/* bit-lshu32 */
BGL_EXPORTED_DEF uint32_t BGl_bitzd2lshu32zd2zz__bitz00(uint32_t BgL_xz00_151, long BgL_yz00_152)
{
{ /* Llib/bit.scm 648 */
return 
(BgL_xz00_151 << 
(int)(BgL_yz00_152));} 

}



/* &bit-lshu32 */
obj_t BGl_z62bitzd2lshu32zb0zz__bitz00(obj_t BgL_envz00_1446, obj_t BgL_xz00_1447, obj_t BgL_yz00_1448)
{
{ /* Llib/bit.scm 648 */
{ /* Llib/bit.scm 648 */
 uint32_t BgL_tmpz00_3390;
{ /* Llib/bit.scm 648 */
 long BgL_auxz00_3400; uint32_t BgL_auxz00_3391;
{ /* Llib/bit.scm 648 */
 obj_t BgL_tmpz00_3401;
if(
INTEGERP(BgL_yz00_1448))
{ /* Llib/bit.scm 648 */
BgL_tmpz00_3401 = BgL_yz00_1448
; }  else 
{ 
 obj_t BgL_auxz00_3404;
BgL_auxz00_3404 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30477L), BGl_string1787z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1448); 
FAILURE(BgL_auxz00_3404,BFALSE,BFALSE);} 
BgL_auxz00_3400 = 
(long)CINT(BgL_tmpz00_3401); } 
{ /* Llib/bit.scm 648 */
 obj_t BgL_tmpz00_3392;
if(
BGL_UINT32P(BgL_xz00_1447))
{ /* Llib/bit.scm 648 */
BgL_tmpz00_3392 = BgL_xz00_1447
; }  else 
{ 
 obj_t BgL_auxz00_3395;
BgL_auxz00_3395 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30477L), BGl_string1787z00zz__bitz00, BGl_string1712z00zz__bitz00, BgL_xz00_1447); 
FAILURE(BgL_auxz00_3395,BFALSE,BFALSE);} 
BgL_auxz00_3391 = 
BGL_BUINT32_TO_UINT32(BgL_tmpz00_3392); } 
BgL_tmpz00_3390 = 
BGl_bitzd2lshu32zd2zz__bitz00(BgL_auxz00_3391, BgL_auxz00_3400); } 
return 
BGL_UINT32_TO_BUINT32(BgL_tmpz00_3390);} } 

}



/* bit-lshs64 */
BGL_EXPORTED_DEF int64_t BGl_bitzd2lshs64zd2zz__bitz00(int64_t BgL_xz00_153, long BgL_yz00_154)
{
{ /* Llib/bit.scm 649 */
return 
(BgL_xz00_153 << 
(int)(BgL_yz00_154));} 

}



/* &bit-lshs64 */
obj_t BGl_z62bitzd2lshs64zb0zz__bitz00(obj_t BgL_envz00_1449, obj_t BgL_xz00_1450, obj_t BgL_yz00_1451)
{
{ /* Llib/bit.scm 649 */
{ /* Llib/bit.scm 649 */
 int64_t BgL_tmpz00_3413;
{ /* Llib/bit.scm 649 */
 long BgL_auxz00_3423; int64_t BgL_auxz00_3414;
{ /* Llib/bit.scm 649 */
 obj_t BgL_tmpz00_3424;
if(
INTEGERP(BgL_yz00_1451))
{ /* Llib/bit.scm 649 */
BgL_tmpz00_3424 = BgL_yz00_1451
; }  else 
{ 
 obj_t BgL_auxz00_3427;
BgL_auxz00_3427 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30527L), BGl_string1788z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1451); 
FAILURE(BgL_auxz00_3427,BFALSE,BFALSE);} 
BgL_auxz00_3423 = 
(long)CINT(BgL_tmpz00_3424); } 
{ /* Llib/bit.scm 649 */
 obj_t BgL_tmpz00_3415;
if(
BGL_INT64P(BgL_xz00_1450))
{ /* Llib/bit.scm 649 */
BgL_tmpz00_3415 = BgL_xz00_1450
; }  else 
{ 
 obj_t BgL_auxz00_3418;
BgL_auxz00_3418 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30527L), BGl_string1788z00zz__bitz00, BGl_string1714z00zz__bitz00, BgL_xz00_1450); 
FAILURE(BgL_auxz00_3418,BFALSE,BFALSE);} 
BgL_auxz00_3414 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_3415); } 
BgL_tmpz00_3413 = 
BGl_bitzd2lshs64zd2zz__bitz00(BgL_auxz00_3414, BgL_auxz00_3423); } 
return 
BGL_INT64_TO_BINT64(BgL_tmpz00_3413);} } 

}



/* bit-lshu64 */
BGL_EXPORTED_DEF uint64_t BGl_bitzd2lshu64zd2zz__bitz00(uint64_t BgL_xz00_155, long BgL_yz00_156)
{
{ /* Llib/bit.scm 650 */
return 
(BgL_xz00_155 << 
(int)(BgL_yz00_156));} 

}



/* &bit-lshu64 */
obj_t BGl_z62bitzd2lshu64zb0zz__bitz00(obj_t BgL_envz00_1452, obj_t BgL_xz00_1453, obj_t BgL_yz00_1454)
{
{ /* Llib/bit.scm 650 */
{ /* Llib/bit.scm 650 */
 uint64_t BgL_tmpz00_3436;
{ /* Llib/bit.scm 650 */
 long BgL_auxz00_3446; uint64_t BgL_auxz00_3437;
{ /* Llib/bit.scm 650 */
 obj_t BgL_tmpz00_3447;
if(
INTEGERP(BgL_yz00_1454))
{ /* Llib/bit.scm 650 */
BgL_tmpz00_3447 = BgL_yz00_1454
; }  else 
{ 
 obj_t BgL_auxz00_3450;
BgL_auxz00_3450 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30577L), BGl_string1789z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1454); 
FAILURE(BgL_auxz00_3450,BFALSE,BFALSE);} 
BgL_auxz00_3446 = 
(long)CINT(BgL_tmpz00_3447); } 
{ /* Llib/bit.scm 650 */
 obj_t BgL_tmpz00_3438;
if(
BGL_UINT64P(BgL_xz00_1453))
{ /* Llib/bit.scm 650 */
BgL_tmpz00_3438 = BgL_xz00_1453
; }  else 
{ 
 obj_t BgL_auxz00_3441;
BgL_auxz00_3441 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30577L), BGl_string1789z00zz__bitz00, BGl_string1716z00zz__bitz00, BgL_xz00_1453); 
FAILURE(BgL_auxz00_3441,BFALSE,BFALSE);} 
BgL_auxz00_3437 = 
BGL_BINT64_TO_INT64(BgL_tmpz00_3438); } 
BgL_tmpz00_3436 = 
BGl_bitzd2lshu64zd2zz__bitz00(BgL_auxz00_3437, BgL_auxz00_3446); } 
return 
BGL_UINT64_TO_BUINT64(BgL_tmpz00_3436);} } 

}



/* bit-lshbx */
BGL_EXPORTED_DEF obj_t BGl_bitzd2lshbxzd2zz__bitz00(obj_t BgL_xz00_157, long BgL_yz00_158)
{
{ /* Llib/bit.scm 651 */
BGL_TAIL return 
bgl_bignum_lsh(BgL_xz00_157, BgL_yz00_158);} 

}



/* &bit-lshbx */
obj_t BGl_z62bitzd2lshbxzb0zz__bitz00(obj_t BgL_envz00_1455, obj_t BgL_xz00_1456, obj_t BgL_yz00_1457)
{
{ /* Llib/bit.scm 651 */
{ /* Llib/bit.scm 651 */
 long BgL_auxz00_3465; obj_t BgL_auxz00_3458;
{ /* Llib/bit.scm 651 */
 obj_t BgL_tmpz00_3466;
if(
INTEGERP(BgL_yz00_1457))
{ /* Llib/bit.scm 651 */
BgL_tmpz00_3466 = BgL_yz00_1457
; }  else 
{ 
 obj_t BgL_auxz00_3469;
BgL_auxz00_3469 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30626L), BGl_string1790z00zz__bitz00, BGl_string1696z00zz__bitz00, BgL_yz00_1457); 
FAILURE(BgL_auxz00_3469,BFALSE,BFALSE);} 
BgL_auxz00_3465 = 
(long)CINT(BgL_tmpz00_3466); } 
if(
BIGNUMP(BgL_xz00_1456))
{ /* Llib/bit.scm 651 */
BgL_auxz00_3458 = BgL_xz00_1456
; }  else 
{ 
 obj_t BgL_auxz00_3461;
BgL_auxz00_3461 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string1694z00zz__bitz00, 
BINT(30626L), BGl_string1790z00zz__bitz00, BGl_string1718z00zz__bitz00, BgL_xz00_1456); 
FAILURE(BgL_auxz00_3461,BFALSE,BFALSE);} 
return 
BGl_bitzd2lshbxzd2zz__bitz00(BgL_auxz00_3458, BgL_auxz00_3465);} } 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__bitz00(void)
{
{ /* Llib/bit.scm 14 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string1791z00zz__bitz00));} 

}

#ifdef __cplusplus
}
#endif
