/*===========================================================================*/
/*   (Llib/hash.scm)                                                         */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Llib/hash.scm -indent -o objs/obj_s/Llib/hash.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

#include <bigloo.h>
#include <signal.h>


/* Object type definitions */

static obj_t BGl__intzd2ze30ze2ze22ze5xzd21z06zz__hashz00(obj_t, obj_t, obj_t);
static obj_t BGl__hashtablezd2keyzd2listz00zz__hashz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
static obj_t BGl__hashtablezf3zf3zz__hashz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_objzd2ze30ze2ze22ze5xzd21z06zz__hashz00(obj_t, long);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__getzd2hashzd2zz__hashz00(obj_t, obj_t, obj_t);
extern obj_t create_struct(obj_t, int);
static obj_t BGl_hashzd2tablezd2growsz12z12zz__hashz00(obj_t);
static obj_t BGl__hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zz__hashz00();
extern long get_hash_power_number(char *, long);
static obj_t BGl__stringzd2ze30ze2ze22ze5xzd21z06zz__hashz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t, obj_t, obj_t);
extern int bgl_obj_hash_number(obj_t);
BGL_EXPORTED_DECL long BGl_stringzd2ze30ze2ze2255z31zz__hashz00(char *);
static obj_t BGl_getzd2hashzd2numberz00zz__hashz00(obj_t, obj_t);
static obj_t BGl__objzd2ze30ze2ze2255z31zz__hashz00(obj_t, obj_t);
static obj_t BGl_defaultzd2hashtablezd2bucketzd2lengthzd2zz__hashz00 = BUNSPEC;
extern long get_hash_number(char *);
BGL_EXPORTED_DECL bool_t BGl_hashtablezf3zf3zz__hashz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_hashtablezd2getzd2zz__hashz00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__hashz00();
BGL_EXPORTED_DECL obj_t BGl_hashtablezd2ze3listz31zz__hashz00(obj_t);
BGL_EXPORTED_DECL long BGl_stringzd2ze30ze2ze22ze5xzd21z06zz__hashz00(char *, long);
BGL_EXPORTED_DECL obj_t BGl_hashzd2tablezd2nbzd2entryzd2zz__hashz00(obj_t);
extern bool_t bigloo_strcmp(obj_t, obj_t);
static obj_t BGl__hashzd2tablezd2nbzd2entryzd2zz__hashz00(obj_t, obj_t);
extern int bgl_symbol_hash_number(obj_t);
extern long get_hash_number_from_int(long);
extern obj_t string_to_symbol(char *);
static obj_t BGl__intzd2ze30ze2ze2255z31zz__hashz00(obj_t, obj_t);
static obj_t BGl__hashtablezd2siza7ez75zz__hashz00(obj_t, obj_t);
static obj_t BGl__forzd2eachzd2hashz00zz__hashz00(obj_t, obj_t, obj_t);
static obj_t BGl__hashtablezd2removez12zc0zz__hashz00(obj_t, obj_t, obj_t);
static obj_t BGl__getzd2hashnumberzd2zz__hashz00(obj_t, obj_t);
static obj_t BGl_list7602z00zz__hashz00 = BUNSPEC;
static obj_t BGl__hashtablezd2forzd2eachz00zz__hashz00(obj_t, obj_t, obj_t);
static obj_t BGl__hashtablezd2ze3vectorz31zz__hashz00(obj_t, obj_t);
static obj_t BGl__hashtablezd2ze3listz31zz__hashz00(obj_t, obj_t);
static obj_t BGl_list7619z00zz__hashz00 = BUNSPEC;
static obj_t BGl__remzd2keyzd2hashz12z12zz__hashz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_hashtablezd2ze3vectorz31zz__hashz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_remzd2objzd2hashz12z12zz__hashz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_intzd2ze30ze2ze2255z31zz__hashz00(long);
static obj_t BGl__objzd2ze30ze2ze22ze5xzd21z06zz__hashz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_hashtablezd2keyzd2listz00zz__hashz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_putzd2hashz12zc0zz__hashz00(obj_t, obj_t);
static obj_t BGl__putzd2hashz12zc0zz__hashz00(obj_t, obj_t, obj_t);
extern obj_t make_vector(int, obj_t);
BGL_EXPORTED_DECL int BGl_getzd2hashnumberzd2zz__hashz00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__hashz00();
BGL_EXPORTED_DECL obj_t BGl_makezd2hashtablezd2zz__hashz00(obj_t);
static obj_t BGl_list7644z00zz__hashz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_hashtablezd2removez12zc0zz__hashz00(obj_t, obj_t);
static obj_t BGl_list7651z00zz__hashz00 = BUNSPEC;
static obj_t BGl__hashzd2tablezd2ze3vectorze3zz__hashz00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_intzd2ze30ze2ze22ze5xzd21z06zz__hashz00(long, long);
static obj_t BGl_list7654z00zz__hashz00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list7659z00zz__hashz00 = BUNSPEC;
static obj_t BGl_list7661z00zz__hashz00 = BUNSPEC;
static obj_t BGl_list7663z00zz__hashz00 = BUNSPEC;
extern long get_hash_power_number_from_int(long, long);
static obj_t BGl_symbol7697z00zz__hashz00 = BUNSPEC;
static obj_t BGl_requirezd2initializa7ationz75zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7696z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7695z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7694z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7692z00zz__hashz00 = BUNSPEC;
static obj_t BGl_list7669z00zz__hashz00 = BUNSPEC;
extern int bgl_string_hash_number(char *);
static obj_t BGl_symbol7691z00zz__hashz00 = BUNSPEC;
static obj_t BGl_list7671z00zz__hashz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_hashtablezd2updatez12zc0zz__hashz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7690z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7689z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7688z00zz__hashz00 = BUNSPEC;
static obj_t BGl_list7673z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7687z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7686z00zz__hashz00 = BUNSPEC;
static obj_t BGl_list7675z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7685z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7684z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7683z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7682z00zz__hashz00 = BUNSPEC;
static obj_t BGl_list7679z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7681z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7680z00zz__hashz00 = BUNSPEC;
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7677z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7676z00zz__hashz00 = BUNSPEC;
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_symbol7674z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7672z00zz__hashz00 = BUNSPEC;
static obj_t BGl_defaultzd2maxzd2bucketzd2lengthzd2zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7670z00zz__hashz00 = BUNSPEC;
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
static obj_t BGl_symbol7667z00zz__hashz00 = BUNSPEC;
static obj_t BGl__makezd2hashtablezd2zz__hashz00(obj_t, obj_t);
static obj_t BGl_symbol7665z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7664z00zz__hashz00 = BUNSPEC;
static obj_t BGl__hashtablezd2updatez123077zc0zz__hashz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7662z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7660z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7657z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7656z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7655z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7653z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7652z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7649z00zz__hashz00 = BUNSPEC;
static obj_t BGl__hashtablezd2getzd2zz__hashz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol7646z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7645z00zz__hashz00 = BUNSPEC;
static bool_t BGl_hashtablezd2expandz12zc0zz__hashz00(obj_t);
static obj_t BGl_symbol7642z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7641z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7640z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7639z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7638z00zz__hashz00 = BUNSPEC;
extern long BGl_moduloz00zz__r4_numbers_6_5_fixnumz00(long, long);
static obj_t BGl_symbol7637z00zz__hashz00 = BUNSPEC;
extern long get_hash_power_number_from_pointer(obj_t, long);
static obj_t BGl_symbol7633z00zz__hashz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_hashtablezd2forzd2eachz00zz__hashz00(obj_t, obj_t);
static obj_t BGl__hashzd2tablezf3z21zz__hashz00(obj_t, obj_t);
static obj_t BGl_symbol7630z00zz__hashz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_makezd2hashzd2tablez00zz__hashz00(long, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7626z00zz__hashz00 = BUNSPEC;
static obj_t BGl__makezd2hashzd2tablez00zz__hashz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7625z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7624z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7623z00zz__hashz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_forzd2eachzd2hashz00zz__hashz00(obj_t, obj_t);
static obj_t BGl_symbol7622z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7621z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7620z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7617z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7616z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7615z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7614z00zz__hashz00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_objzd2ze30ze2ze2255z31zz__hashz00(obj_t);
static obj_t BGl_symbol7612z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7610z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7599z00zz__hashz00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_hashtablezd2siza7ez75zz__hashz00(obj_t);
static obj_t BGl_symbol7598z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7607z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7597z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7606z00zz__hashz00 = BUNSPEC;
static obj_t BGl__remzd2objzd2hashz12z12zz__hashz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol7605z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7595z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7604z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7594z00zz__hashz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_hashzd2tablezd2ze3vectorze3zz__hashz00(obj_t);
static obj_t BGl_symbol7603z00zz__hashz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_hashzd2tablezf3z21zz__hashz00(obj_t);
extern int bgl_foreign_hash_number(obj_t);
static obj_t BGl_toplevelzd2initzd2zz__hashz00();
static obj_t BGl_symbol7600z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7589z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7588z00zz__hashz00 = BUNSPEC;
static obj_t BGl__stringzd2ze30ze2ze2255z31zz__hashz00(obj_t, obj_t);
static obj_t BGl_symbol7586z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7584z00zz__hashz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_getzd2hashzd2zz__hashz00(obj_t, obj_t);
extern int BGl_objectzd2hashnumberzd2zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_symbol7580z00zz__hashz00 = BUNSPEC;
static bool_t BGl_2ze5powerzf3z16zz__hashz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_remzd2keyzd2hashz12z12zz__hashz00(obj_t, obj_t);
static obj_t BGl_symbol7572z00zz__hashz00 = BUNSPEC;
static obj_t BGl_symbol7571z00zz__hashz00 = BUNSPEC;
extern long get_hash_number_from_pointer(obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_getzd2hashzd2envz00zz__hashz00, BgL_bgl__getza7d2hashza7d2za7za7__hashza7007715za7, BGl__getzd2hashzd2zz__hashz00, 0L, 2 );
DEFINE_STRING( BGl_string7611z00zz__hashz00, BgL_bgl_string7611za700za7za7__hashza7007716z00, "procedure", 9 );
DEFINE_STRING( BGl_string7609z00zz__hashz00, BgL_bgl_string7609za700za7za7__hashza7007717z00, "argument not a list", 19 );
DEFINE_STRING( BGl_string7608z00zz__hashz00, BgL_bgl_string7608za700za7za7__hashza7007718z00, "for-each", 8 );
DEFINE_STRING( BGl_string7596z00zz__hashz00, BgL_bgl_string7596za700za7za7__hashza7007719z00, "pair-nil", 8 );
DEFINE_EXPORT_PROCEDURE( BGl_forzd2eachzd2hashzd2envzd2zz__hashz00, BgL_bgl__forza7d2eachza7d2hashza700za7za7__hashza7007720z00, BGl__forzd2eachzd2hashz00zz__hashz00, 0L, 2 );
DEFINE_STRING( BGl_string7593z00zz__hashz00, BgL_bgl_string7593za700za7za7__hashza7007721z00, "vector-ref", 10 );
DEFINE_STRING( BGl_string7592z00zz__hashz00, BgL_bgl_string7592za700za7za7__hashza7007722z00, "index out of range", 18 );
DEFINE_STRING( BGl_string7601z00zz__hashz00, BgL_bgl_string7601za700za7za7__hashza7007723z00, "hashtable-for-each:Wrong number of arguments", 44 );
DEFINE_STRING( BGl_string7591z00zz__hashz00, BgL_bgl_string7591za700za7za7__hashza7007724z00, "vector-set!", 11 );
DEFINE_STRING( BGl_string7590z00zz__hashz00, BgL_bgl_string7590za700za7za7__hashza7007725z00, "vector", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_hashtablezd2siza7ezd2envza7zz__hashz00, BgL_bgl__hashtableza7d2siza7a7eza775za7za7__hashza7007726z00, BGl__hashtablezd2siza7ez75zz__hashz00, 0L, 1 );
DEFINE_STRING( BGl_string7587z00zz__hashz00, BgL_bgl_string7587za700za7za7__hashza7007727z00, "struct-ref:not an instance of", 29 );
DEFINE_STRING( BGl_string7585z00zz__hashz00, BgL_bgl_string7585za700za7za7__hashza7007728z00, "struct", 6 );
DEFINE_STRING( BGl_string7583z00zz__hashz00, BgL_bgl_string7583za700za7za7__hashza7007729z00, "%hashtable", 10 );
DEFINE_STRING( BGl_string7582z00zz__hashz00, BgL_bgl_string7582za700za7za7__hashza7007730z00, "struct-set!:not an instance of", 30 );
DEFINE_STRING( BGl_string7581z00zz__hashz00, BgL_bgl_string7581za700za7za7__hashza7007731z00, "symbol", 6 );
DEFINE_STRING( BGl_string7579z00zz__hashz00, BgL_bgl_string7579za700za7za7__hashza7007732z00, "int", 3 );
DEFINE_STRING( BGl_string7578z00zz__hashz00, BgL_bgl_string7578za700za7za7__hashza7007733z00, "Illegal max bucket length", 25 );
DEFINE_STRING( BGl_string7577z00zz__hashz00, BgL_bgl_string7577za700za7za7__hashza7007734z00, "Illegal default bucket length", 29 );
DEFINE_STRING( BGl_string7576z00zz__hashz00, BgL_bgl_string7576za700za7za7__hashza7007735z00, "make-hashtable", 14 );
DEFINE_STRING( BGl_string7575z00zz__hashz00, BgL_bgl_string7575za700za7za7__hashza7007736z00, "long", 4 );
DEFINE_STRING( BGl_string7574z00zz__hashz00, BgL_bgl_string7574za700za7za7__hashza7007737z00, "/tmp/bigloo/runtime/./Llib/hash.scm", 35 );
DEFINE_STRING( BGl_string7573z00zz__hashz00, BgL_bgl_string7573za700za7za7__hashza7007738z00, "pair", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2hashzd2tablezd2envzd2zz__hashz00, BgL_bgl__makeza7d2hashza7d2tableza700za7za7__hashza7007739z00, va_generic_entry, BGl__makezd2hashzd2tablez00zz__hashz00, -5 );
DEFINE_EXPORT_PROCEDURE( BGl_hashtablezd2getzd2envz00zz__hashz00, BgL_bgl__hashtableza7d2getza7d2za7za7__hashza7007740za7, BGl__hashtablezd2getzd2zz__hashz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_hashtablezd2putz12zd2envz12zz__hashz00, BgL_bgl__hashtableza7d2putza712za7c0za7za7__hashza7007741z00, BGl__hashtablezd2putz12zc0zz__hashz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_hashzd2tablezd2nbzd2entryzd2envz00zz__hashz00, BgL_bgl__hashza7d2tableza7d2nbza7d2entryza7d2za7za7__hashza7007742za7, BGl__hashzd2tablezd2nbzd2entryzd2zz__hashz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_hashtablezd2keyzd2listzd2envzd2zz__hashz00, BgL_bgl__hashtableza7d2keyza7d2listza700za7za7__hashza7007743z00, BGl__hashtablezd2keyzd2listz00zz__hashz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_hashtablezd2ze3vectorzd2envze3zz__hashz00, BgL_bgl__hashtableza7d2za7e3vectorza731za7za7__hashza7007744z00, BGl__hashtablezd2ze3vectorz31zz__hashz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_hashzd2tablezd2ze3vectorzd2envz31zz__hashz00, BgL_bgl__hashza7d2tableza7d2za7e3vectorza7e3za7za7__hashza7007745za7, BGl__hashzd2tablezd2ze3vectorze3zz__hashz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_intzd2ze30ze2ze2255zd2envze3zz__hashz00, BgL_bgl__intza7d2za7e30za7e2za7e2255za731za7za7__hashza7007746z00, BGl__intzd2ze30ze2ze2255z31zz__hashz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_objzd2ze30ze2ze22ze5xzd21zd2envzd4zz__hashz00, BgL_bgl__objza7d2za7e30za7e2za7e22za7e5xza7d21za706za7za7__hashza7007747z00, BGl__objzd2ze30ze2ze22ze5xzd21z06zz__hashz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze30ze2ze2255zd2envze3zz__hashz00, BgL_bgl__stringza7d2za7e30za7e2za7e2255za731za7za7__hashza7007748z00, BGl__stringzd2ze30ze2ze2255z31zz__hashz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_hashtablezf3zd2envz21zz__hashz00, BgL_bgl__hashtableza7f3za7f3za7za7__hashza7007749za7, BGl__hashtablezf3zf3zz__hashz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_remzd2objzd2hashz12zd2envzc0zz__hashz00, BgL_bgl__remza7d2objza7d2hashza712za712za7za7__hashza7007750za7, BGl__remzd2objzd2hashz12z12zz__hashz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_hashzd2tablezf3zd2envzf3zz__hashz00, BgL_bgl__hashza7d2tableza7f3za721za7za7__hashza7007751z00, BGl__hashzd2tablezf3z21zz__hashz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2hashtablezd2envz00zz__hashz00, BgL_bgl__makeza7d2hashtableza7d2za7za7__hashza7007752za7, va_generic_entry, BGl__makezd2hashtablezd2zz__hashz00, -1 );
DEFINE_STRING( BGl_string7693z00zz__hashz00, BgL_bgl_string7693za700za7za7__hashza7007753z00, "uchar", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_putzd2hashz12zd2envz12zz__hashz00, BgL_bgl__putza7d2hashza712za7c0za7za7__hashza7007754z00, BGl__putzd2hashz12zc0zz__hashz00, 0L, 2 );
DEFINE_STRING( BGl_string7678z00zz__hashz00, BgL_bgl_string7678za700za7za7__hashza7007755z00, "for-each-hash:Wrong number of arguments", 39 );
DEFINE_STRING( BGl_string7668z00zz__hashz00, BgL_bgl_string7668za700za7za7__hashza7007756z00, "rem-key-hash!:Wrong number of arguments", 39 );
DEFINE_STRING( BGl_string7666z00zz__hashz00, BgL_bgl_string7666za700za7za7__hashza7007757z00, "rem-obj-hash!:Wrong number of arguments", 39 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze30ze2ze22ze5xzd21zd2envzd4zz__hashz00, BgL_bgl__stringza7d2za7e30za7e2za7e22za7e5xza7d21za706za7za7__hashza7007758z00, BGl__stringzd2ze30ze2ze22ze5xzd21z06zz__hashz00, 0L, 2 );
DEFINE_STRING( BGl_string7658z00zz__hashz00, BgL_bgl_string7658za700za7za7__hashza7007759z00, "put-hash!:Wrong number of arguments", 35 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2hashnumberzd2envz00zz__hashz00, BgL_bgl__getza7d2hashnumberza7d2za7za7__hashza7007760za7, BGl__getzd2hashnumberzd2zz__hashz00, 0L, 1 );
DEFINE_STRING( BGl_string7650z00zz__hashz00, BgL_bgl_string7650za700za7za7__hashza7007761z00, "get-hash:Wrong number of arguments", 34 );
DEFINE_STRING( BGl_string7648z00zz__hashz00, BgL_bgl_string7648za700za7za7__hashza7007762z00, "Illegal get-hash-function", 25 );
DEFINE_STRING( BGl_string7647z00zz__hashz00, BgL_bgl_string7647za700za7za7__hashza7007763z00, "get-hash-number", 15 );
DEFINE_EXPORT_PROCEDURE( BGl_remzd2keyzd2hashz12zd2envzc0zz__hashz00, BgL_bgl__remza7d2keyza7d2hashza712za712za7za7__hashza7007764za7, BGl__remzd2keyzd2hashz12z12zz__hashz00, 0L, 2 );
DEFINE_STRING( BGl_string7643z00zz__hashz00, BgL_bgl_string7643za700za7za7__hashza7007765z00, "get-hash-number:Wrong number of arguments", 41 );
DEFINE_EXPORT_PROCEDURE( BGl_hashtablezd2removez12zd2envz12zz__hashz00, BgL_bgl__hashtableza7d2removeza712za7c0za7za7__hashza7007766z00, BGl__hashtablezd2removez12zc0zz__hashz00, 0L, 2 );
DEFINE_STRING( BGl_string7636z00zz__hashz00, BgL_bgl_string7636za700za7za7__hashza7007767z00, "Illegal init-size (not a 2 power)", 33 );
DEFINE_STRING( BGl_string7635z00zz__hashz00, BgL_bgl_string7635za700za7za7__hashza7007768z00, "Illegal max-size (not a 2 power)", 32 );
DEFINE_STRING( BGl_string7634z00zz__hashz00, BgL_bgl_string7634za700za7za7__hashza7007769z00, "hashtbl", 7 );
DEFINE_STRING( BGl_string7632z00zz__hashz00, BgL_bgl_string7632za700za7za7__hashza7007770z00, "init-size greater than max-size !", 33 );
DEFINE_EXPORT_PROCEDURE( BGl_hashtablezd2ze3listzd2envze3zz__hashz00, BgL_bgl__hashtableza7d2za7e3listza731za7za7__hashza7007771z00, BGl__hashtablezd2ze3listz31zz__hashz00, 0L, 1 );
DEFINE_STRING( BGl_string7631z00zz__hashz00, BgL_bgl_string7631za700za7za7__hashza7007772z00, "make-hash-table", 15 );
DEFINE_STRING( BGl_string7629z00zz__hashz00, BgL_bgl_string7629za700za7za7__hashza7007773z00, "foreign", 7 );
DEFINE_STRING( BGl_string7628z00zz__hashz00, BgL_bgl_string7628za700za7za7__hashza7007774z00, "object", 6 );
DEFINE_STRING( BGl_string7627z00zz__hashz00, BgL_bgl_string7627za700za7za7__hashza7007775z00, "string", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_objzd2ze30ze2ze2255zd2envze3zz__hashz00, BgL_bgl__objza7d2za7e30za7e2za7e2255za731za7za7__hashza7007776z00, BGl__objzd2ze30ze2ze2255z31zz__hashz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_hashtablezd2updatez12zd2envz12zz__hashz00, BgL_bgl__hashtableza7d2updateza7123077za7c0za7za7__hashza7007777z00, BGl__hashtablezd2updatez123077zc0zz__hashz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_intzd2ze30ze2ze22ze5xzd21zd2envzd4zz__hashz00, BgL_bgl__intza7d2za7e30za7e2za7e22za7e5xza7d21za706za7za7__hashza7007778z00, BGl__intzd2ze30ze2ze22ze5xzd21z06zz__hashz00, 0L, 2 );
DEFINE_STRING( BGl_string7618z00zz__hashz00, BgL_bgl_string7618za700za7za7__hashza7007779z00, "hashtable-update!:Wrong number of arguments", 43 );
DEFINE_EXPORT_PROCEDURE( BGl_hashtablezd2forzd2eachzd2envzd2zz__hashz00, BgL_bgl__hashtableza7d2forza7d2eachza700za7za7__hashza7007780z00, BGl__hashtablezd2forzd2eachz00zz__hashz00, 0L, 2 );
DEFINE_STRING( BGl_string7613z00zz__hashz00, BgL_bgl_string7613za700za7za7__hashza7007781z00, "bstring", 7 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__hashz00(long BgL_checksumz00_3724, char * BgL_fromz00_3725)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__hashz00))
{ 
BGl_requirezd2initializa7ationz75zz__hashz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__hashz00(); 
BGl_importedzd2moduleszd2initz00zz__hashz00(); 
BGl_methodzd2initzd2zz__hashz00(); 
BGl_toplevelzd2initzd2zz__hashz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__hashz00()
{ AN_OBJECT;
{ /* ./Llib/hash.scm 23 */
BGl_symbol7571z00zz__hashz00 = 
string_to_symbol("%toplevel@__hash"); 
BGl_symbol7572z00zz__hashz00 = 
string_to_symbol("make-hashtable"); 
BGl_symbol7580z00zz__hashz00 = 
string_to_symbol("%hashtable"); 
BGl_symbol7584z00zz__hashz00 = 
string_to_symbol("hashtable?"); 
BGl_symbol7586z00zz__hashz00 = 
string_to_symbol("hashtable-size"); 
BGl_symbol7588z00zz__hashz00 = 
string_to_symbol("_hashtable-size"); 
BGl_symbol7589z00zz__hashz00 = 
string_to_symbol("hashtable->vector"); 
BGl_symbol7594z00zz__hashz00 = 
string_to_symbol("_hashtable->vector"); 
BGl_symbol7595z00zz__hashz00 = 
string_to_symbol("hashtable->list"); 
BGl_symbol7597z00zz__hashz00 = 
string_to_symbol("_hashtable->list"); 
BGl_symbol7598z00zz__hashz00 = 
string_to_symbol("hashtable-key-list"); 
BGl_symbol7599z00zz__hashz00 = 
string_to_symbol("_hashtable-key-list"); 
BGl_symbol7600z00zz__hashz00 = 
string_to_symbol("hashtable-for-each"); 
BGl_symbol7603z00zz__hashz00 = 
string_to_symbol("funcall"); 
BGl_symbol7604z00zz__hashz00 = 
string_to_symbol("fun"); 
BGl_symbol7605z00zz__hashz00 = 
string_to_symbol("arg1240"); 
BGl_symbol7606z00zz__hashz00 = 
string_to_symbol("arg1241"); 
{ /* ./Llib/hash.scm 251 */
obj_t BgL_auxz00_3750;
{ /* ./Llib/hash.scm 251 */
obj_t BgL_auxz00_3751;
{ /* ./Llib/hash.scm 251 */
obj_t BgL_auxz00_3752;
{ /* ./Llib/hash.scm 251 */
obj_t BgL_auxz00_3753;
BgL_auxz00_3753 = 
MAKE_PAIR(BGl_symbol7606z00zz__hashz00, BNIL); 
BgL_auxz00_3752 = 
MAKE_PAIR(BGl_symbol7605z00zz__hashz00, BgL_auxz00_3753); } 
BgL_auxz00_3751 = 
MAKE_PAIR(BGl_symbol7604z00zz__hashz00, BgL_auxz00_3752); } 
BgL_auxz00_3750 = 
MAKE_PAIR(BGl_symbol7604z00zz__hashz00, BgL_auxz00_3751); } 
BGl_list7602z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3750); } 
BGl_symbol7607z00zz__hashz00 = 
string_to_symbol("_"); 
BGl_symbol7610z00zz__hashz00 = 
string_to_symbol("_hashtable-for-each"); 
BGl_symbol7612z00zz__hashz00 = 
string_to_symbol("hashtable-get"); 
BGl_symbol7614z00zz__hashz00 = 
string_to_symbol("_hashtable-get"); 
BGl_symbol7615z00zz__hashz00 = 
string_to_symbol("hashtable-put!"); 
BGl_symbol7616z00zz__hashz00 = 
string_to_symbol("_hashtable-put!"); 
BGl_symbol7617z00zz__hashz00 = 
string_to_symbol("hashtable-update!"); 
BGl_symbol7620z00zz__hashz00 = 
string_to_symbol("proc"); 
BGl_symbol7621z00zz__hashz00 = 
string_to_symbol("arg1397"); 
{ /* ./Llib/hash.scm 324 */
obj_t BgL_auxz00_3768;
{ /* ./Llib/hash.scm 324 */
obj_t BgL_auxz00_3769;
{ /* ./Llib/hash.scm 324 */
obj_t BgL_auxz00_3770;
BgL_auxz00_3770 = 
MAKE_PAIR(BGl_symbol7621z00zz__hashz00, BNIL); 
BgL_auxz00_3769 = 
MAKE_PAIR(BGl_symbol7620z00zz__hashz00, BgL_auxz00_3770); } 
BgL_auxz00_3768 = 
MAKE_PAIR(BGl_symbol7620z00zz__hashz00, BgL_auxz00_3769); } 
BGl_list7619z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3768); } 
BGl_symbol7622z00zz__hashz00 = 
string_to_symbol("_hashtable-update!3077"); 
BGl_symbol7623z00zz__hashz00 = 
string_to_symbol("hashtable-remove!"); 
BGl_symbol7624z00zz__hashz00 = 
string_to_symbol("_hashtable-remove!"); 
BGl_symbol7625z00zz__hashz00 = 
string_to_symbol("hashtable-expand!"); 
BGl_symbol7626z00zz__hashz00 = 
string_to_symbol("get-hashnumber"); 
BGl_symbol7630z00zz__hashz00 = 
string_to_symbol("make-hash-table"); 
BGl_symbol7633z00zz__hashz00 = 
string_to_symbol("hashtbl"); 
BGl_symbol7637z00zz__hashz00 = 
string_to_symbol("2^power?"); 
BGl_symbol7638z00zz__hashz00 = 
string_to_symbol("_make-hash-table"); 
BGl_symbol7639z00zz__hashz00 = 
string_to_symbol("hash-table?"); 
BGl_symbol7640z00zz__hashz00 = 
string_to_symbol("hash-table-nb-entry"); 
BGl_symbol7641z00zz__hashz00 = 
string_to_symbol("hash-table->vector"); 
BGl_symbol7642z00zz__hashz00 = 
string_to_symbol("get-hash-number"); 
BGl_symbol7645z00zz__hashz00 = 
string_to_symbol("hash-function"); 
BGl_symbol7646z00zz__hashz00 = 
string_to_symbol("key"); 
{ /* ./Llib/hash.scm 478 */
obj_t BgL_auxz00_3790;
{ /* ./Llib/hash.scm 478 */
obj_t BgL_auxz00_3791;
{ /* ./Llib/hash.scm 478 */
obj_t BgL_auxz00_3792;
BgL_auxz00_3792 = 
MAKE_PAIR(BGl_symbol7646z00zz__hashz00, BNIL); 
BgL_auxz00_3791 = 
MAKE_PAIR(BGl_symbol7645z00zz__hashz00, BgL_auxz00_3792); } 
BgL_auxz00_3790 = 
MAKE_PAIR(BGl_symbol7645z00zz__hashz00, BgL_auxz00_3791); } 
BGl_list7644z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3790); } 
BGl_symbol7649z00zz__hashz00 = 
string_to_symbol("get-hash"); 
BGl_symbol7652z00zz__hashz00 = 
string_to_symbol("get-key"); 
BGl_symbol7653z00zz__hashz00 = 
string_to_symbol("arg1752"); 
{ /* ./Llib/hash.scm 503 */
obj_t BgL_auxz00_3800;
{ /* ./Llib/hash.scm 503 */
obj_t BgL_auxz00_3801;
{ /* ./Llib/hash.scm 503 */
obj_t BgL_auxz00_3802;
BgL_auxz00_3802 = 
MAKE_PAIR(BGl_symbol7653z00zz__hashz00, BNIL); 
BgL_auxz00_3801 = 
MAKE_PAIR(BGl_symbol7652z00zz__hashz00, BgL_auxz00_3802); } 
BgL_auxz00_3800 = 
MAKE_PAIR(BGl_symbol7652z00zz__hashz00, BgL_auxz00_3801); } 
BGl_list7651z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3800); } 
BGl_symbol7655z00zz__hashz00 = 
string_to_symbol("hash-eq?"); 
BGl_symbol7656z00zz__hashz00 = 
string_to_symbol("arg1748"); 
{ /* ./Llib/hash.scm 503 */
obj_t BgL_auxz00_3809;
{ /* ./Llib/hash.scm 503 */
obj_t BgL_auxz00_3810;
{ /* ./Llib/hash.scm 503 */
obj_t BgL_auxz00_3811;
{ /* ./Llib/hash.scm 503 */
obj_t BgL_auxz00_3812;
BgL_auxz00_3812 = 
MAKE_PAIR(BGl_symbol7646z00zz__hashz00, BNIL); 
BgL_auxz00_3811 = 
MAKE_PAIR(BGl_symbol7656z00zz__hashz00, BgL_auxz00_3812); } 
BgL_auxz00_3810 = 
MAKE_PAIR(BGl_symbol7655z00zz__hashz00, BgL_auxz00_3811); } 
BgL_auxz00_3809 = 
MAKE_PAIR(BGl_symbol7655z00zz__hashz00, BgL_auxz00_3810); } 
BGl_list7654z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3809); } 
BGl_symbol7657z00zz__hashz00 = 
string_to_symbol("put-hash!"); 
BGl_symbol7660z00zz__hashz00 = 
string_to_symbol("obj"); 
{ /* ./Llib/hash.scm 519 */
obj_t BgL_auxz00_3820;
{ /* ./Llib/hash.scm 519 */
obj_t BgL_auxz00_3821;
{ /* ./Llib/hash.scm 519 */
obj_t BgL_auxz00_3822;
BgL_auxz00_3822 = 
MAKE_PAIR(BGl_symbol7660z00zz__hashz00, BNIL); 
BgL_auxz00_3821 = 
MAKE_PAIR(BGl_symbol7652z00zz__hashz00, BgL_auxz00_3822); } 
BgL_auxz00_3820 = 
MAKE_PAIR(BGl_symbol7652z00zz__hashz00, BgL_auxz00_3821); } 
BGl_list7659z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3820); } 
BGl_symbol7662z00zz__hashz00 = 
string_to_symbol("arg1829"); 
{ /* ./Llib/hash.scm 531 */
obj_t BgL_auxz00_3828;
{ /* ./Llib/hash.scm 531 */
obj_t BgL_auxz00_3829;
{ /* ./Llib/hash.scm 531 */
obj_t BgL_auxz00_3830;
BgL_auxz00_3830 = 
MAKE_PAIR(BGl_symbol7662z00zz__hashz00, BNIL); 
BgL_auxz00_3829 = 
MAKE_PAIR(BGl_symbol7652z00zz__hashz00, BgL_auxz00_3830); } 
BgL_auxz00_3828 = 
MAKE_PAIR(BGl_symbol7652z00zz__hashz00, BgL_auxz00_3829); } 
BGl_list7661z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3828); } 
BGl_symbol7664z00zz__hashz00 = 
string_to_symbol("arg1825"); 
{ /* ./Llib/hash.scm 531 */
obj_t BgL_auxz00_3836;
{ /* ./Llib/hash.scm 531 */
obj_t BgL_auxz00_3837;
{ /* ./Llib/hash.scm 531 */
obj_t BgL_auxz00_3838;
{ /* ./Llib/hash.scm 531 */
obj_t BgL_auxz00_3839;
BgL_auxz00_3839 = 
MAKE_PAIR(BGl_symbol7646z00zz__hashz00, BNIL); 
BgL_auxz00_3838 = 
MAKE_PAIR(BGl_symbol7664z00zz__hashz00, BgL_auxz00_3839); } 
BgL_auxz00_3837 = 
MAKE_PAIR(BGl_symbol7655z00zz__hashz00, BgL_auxz00_3838); } 
BgL_auxz00_3836 = 
MAKE_PAIR(BGl_symbol7655z00zz__hashz00, BgL_auxz00_3837); } 
BGl_list7663z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3836); } 
BGl_symbol7665z00zz__hashz00 = 
string_to_symbol("rem-obj-hash!"); 
BGl_symbol7667z00zz__hashz00 = 
string_to_symbol("rem-key-hash!"); 
BGl_symbol7670z00zz__hashz00 = 
string_to_symbol("arg1946"); 
{ /* ./Llib/hash.scm 581 */
obj_t BgL_auxz00_3848;
{ /* ./Llib/hash.scm 581 */
obj_t BgL_auxz00_3849;
{ /* ./Llib/hash.scm 581 */
obj_t BgL_auxz00_3850;
BgL_auxz00_3850 = 
MAKE_PAIR(BGl_symbol7670z00zz__hashz00, BNIL); 
BgL_auxz00_3849 = 
MAKE_PAIR(BGl_symbol7652z00zz__hashz00, BgL_auxz00_3850); } 
BgL_auxz00_3848 = 
MAKE_PAIR(BGl_symbol7652z00zz__hashz00, BgL_auxz00_3849); } 
BGl_list7669z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3848); } 
BGl_symbol7672z00zz__hashz00 = 
string_to_symbol("arg1943"); 
{ /* ./Llib/hash.scm 581 */
obj_t BgL_auxz00_3856;
{ /* ./Llib/hash.scm 581 */
obj_t BgL_auxz00_3857;
{ /* ./Llib/hash.scm 581 */
obj_t BgL_auxz00_3858;
{ /* ./Llib/hash.scm 581 */
obj_t BgL_auxz00_3859;
BgL_auxz00_3859 = 
MAKE_PAIR(BGl_symbol7646z00zz__hashz00, BNIL); 
BgL_auxz00_3858 = 
MAKE_PAIR(BGl_symbol7672z00zz__hashz00, BgL_auxz00_3859); } 
BgL_auxz00_3857 = 
MAKE_PAIR(BGl_symbol7655z00zz__hashz00, BgL_auxz00_3858); } 
BgL_auxz00_3856 = 
MAKE_PAIR(BGl_symbol7655z00zz__hashz00, BgL_auxz00_3857); } 
BGl_list7671z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3856); } 
BGl_symbol7674z00zz__hashz00 = 
string_to_symbol("arg1938"); 
{ /* ./Llib/hash.scm 588 */
obj_t BgL_auxz00_3866;
{ /* ./Llib/hash.scm 588 */
obj_t BgL_auxz00_3867;
{ /* ./Llib/hash.scm 588 */
obj_t BgL_auxz00_3868;
BgL_auxz00_3868 = 
MAKE_PAIR(BGl_symbol7674z00zz__hashz00, BNIL); 
BgL_auxz00_3867 = 
MAKE_PAIR(BGl_symbol7652z00zz__hashz00, BgL_auxz00_3868); } 
BgL_auxz00_3866 = 
MAKE_PAIR(BGl_symbol7652z00zz__hashz00, BgL_auxz00_3867); } 
BGl_list7673z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3866); } 
BGl_symbol7676z00zz__hashz00 = 
string_to_symbol("arg1934"); 
{ /* ./Llib/hash.scm 588 */
obj_t BgL_auxz00_3874;
{ /* ./Llib/hash.scm 588 */
obj_t BgL_auxz00_3875;
{ /* ./Llib/hash.scm 588 */
obj_t BgL_auxz00_3876;
{ /* ./Llib/hash.scm 588 */
obj_t BgL_auxz00_3877;
BgL_auxz00_3877 = 
MAKE_PAIR(BGl_symbol7646z00zz__hashz00, BNIL); 
BgL_auxz00_3876 = 
MAKE_PAIR(BGl_symbol7676z00zz__hashz00, BgL_auxz00_3877); } 
BgL_auxz00_3875 = 
MAKE_PAIR(BGl_symbol7655z00zz__hashz00, BgL_auxz00_3876); } 
BgL_auxz00_3874 = 
MAKE_PAIR(BGl_symbol7655z00zz__hashz00, BgL_auxz00_3875); } 
BGl_list7675z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3874); } 
BGl_symbol7677z00zz__hashz00 = 
string_to_symbol("for-each-hash"); 
BGl_symbol7680z00zz__hashz00 = 
string_to_symbol("arg1971"); 
{ /* ./Llib/hash.scm 606 */
obj_t BgL_auxz00_3885;
{ /* ./Llib/hash.scm 606 */
obj_t BgL_auxz00_3886;
{ /* ./Llib/hash.scm 606 */
obj_t BgL_auxz00_3887;
BgL_auxz00_3887 = 
MAKE_PAIR(BGl_symbol7680z00zz__hashz00, BNIL); 
BgL_auxz00_3886 = 
MAKE_PAIR(BGl_symbol7604z00zz__hashz00, BgL_auxz00_3887); } 
BgL_auxz00_3885 = 
MAKE_PAIR(BGl_symbol7604z00zz__hashz00, BgL_auxz00_3886); } 
BGl_list7679z00zz__hashz00 = 
MAKE_PAIR(BGl_symbol7603z00zz__hashz00, BgL_auxz00_3885); } 
BGl_symbol7681z00zz__hashz00 = 
string_to_symbol("_for-each-hash"); 
BGl_symbol7682z00zz__hashz00 = 
string_to_symbol("hash-table-grows!"); 
BGl_symbol7683z00zz__hashz00 = 
string_to_symbol("done"); 
BGl_symbol7684z00zz__hashz00 = 
string_to_symbol("string->0..255"); 
BGl_symbol7685z00zz__hashz00 = 
string_to_symbol("_string->0..255"); 
BGl_symbol7686z00zz__hashz00 = 
string_to_symbol("string->0..2^x-1"); 
BGl_symbol7687z00zz__hashz00 = 
string_to_symbol("_string->0..2^x-1"); 
BGl_symbol7688z00zz__hashz00 = 
string_to_symbol("int->0..255"); 
BGl_symbol7689z00zz__hashz00 = 
string_to_symbol("_int->0..255"); 
BGl_symbol7690z00zz__hashz00 = 
string_to_symbol("int->0..2^x-1"); 
BGl_symbol7691z00zz__hashz00 = 
string_to_symbol("_int->0..2^x-1"); 
BGl_symbol7692z00zz__hashz00 = 
string_to_symbol("obj->0..255"); 
BGl_symbol7694z00zz__hashz00 = 
string_to_symbol("obj->0..2^x-1"); 
BGl_symbol7695z00zz__hashz00 = 
string_to_symbol("_obj->0..2^x-1"); 
BGl_symbol7696z00zz__hashz00 = 
string_to_symbol("method-init"); 
return ( 
BGl_symbol7697z00zz__hashz00 = 
string_to_symbol("%import@__hash"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__hashz00()
{ AN_OBJECT;
{ /* ./Llib/hash.scm 23 */
{ /* ./Llib/hash.scm 23 */
obj_t BgL_symbol2822z00_2772;
BgL_symbol2822z00_2772 = BGl_symbol7571z00zz__hashz00; 
{ /* ./Llib/hash.scm 23 */

PUSH_TRACE(BgL_symbol2822z00_2772); BUNSPEC; 
{ /* ./Llib/hash.scm 23 */
obj_t BgL_aux2821z00_2773;
BGl_defaultzd2hashtablezd2bucketzd2lengthzd2zz__hashz00 = 
BINT(((long)128)); 
BGl_defaultzd2maxzd2bucketzd2lengthzd2zz__hashz00 = 
BINT(((long)10)); 
BgL_aux2821z00_2773 = BUNSPEC; 
POP_TRACE(); 
return BgL_aux2821z00_2773;} } } } 
}



/* make-hashtable */
BGL_EXPORTED_DEF obj_t BGl_makezd2hashtablezd2zz__hashz00(obj_t BgL_argsz00_15)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 157 */
{ /* ./Llib/hash.scm 158 */
obj_t BgL_symbol2826z00_2774;
BgL_symbol2826z00_2774 = BGl_symbol7572z00zz__hashz00; 
{ /* ./Llib/hash.scm 158 */

PUSH_TRACE(BgL_symbol2826z00_2774); BUNSPEC; 
{ /* ./Llib/hash.scm 158 */
obj_t BgL_aux2825z00_2775;
{ /* ./Llib/hash.scm 158 */
obj_t BgL_siza7eza7_460;obj_t BgL_mblenz00_461;
{ /* ./Llib/hash.scm 158 */
bool_t BgL_test1100z00_464;
BgL_test1100z00_464 = 
PAIRP(BgL_argsz00_15); 
if(BgL_test1100z00_464)
{ /* ./Llib/hash.scm 159 */
bool_t BgL_test1101z00_465;
{ /* ./Llib/hash.scm 159 */
bool_t BgL_test1105z00_466;
{ /* ./Llib/hash.scm 159 */
obj_t BgL_arg1112z00_469;
{ /* ./Llib/hash.scm 159 */
obj_t BgL_pairz00_1124;
if(BgL_test1100z00_464)
{ /* ./Llib/hash.scm 159 */
BgL_pairz00_1124 = BgL_argsz00_15; }  else 
{ /* ./Llib/hash.scm 159 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_argsz00_15, BGl_string7574z00zz__hashz00, 
BINT(((long)6580))); 
exit( -1 );} 
BgL_arg1112z00_469 = 
CAR(BgL_pairz00_1124); } 
BgL_test1105z00_466 = 
INTEGERP(BgL_arg1112z00_469); } 
if(BgL_test1105z00_466)
{ /* ./Llib/hash.scm 160 */
obj_t BgL_arg1107z00_467;
{ /* ./Llib/hash.scm 160 */
obj_t BgL_pairz00_1126;
if(
PAIRP(BgL_argsz00_15))
{ /* ./Llib/hash.scm 160 */
BgL_pairz00_1126 = BgL_argsz00_15; }  else 
{ /* ./Llib/hash.scm 160 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_argsz00_15, BGl_string7574z00zz__hashz00, 
BINT(((long)6605))); 
exit( -1 );} 
BgL_arg1107z00_467 = 
CAR(BgL_pairz00_1126); } 
{ /* ./Llib/hash.scm 160 */
long BgL_n1z00_1127;
{ /* ./Llib/hash.scm 160 */
obj_t BgL_auxz00_3928;
if(
INTEGERP(BgL_arg1107z00_467))
{ /* ./Llib/hash.scm 160 */
BgL_auxz00_3928 = BgL_arg1107z00_467
; }  else 
{ /* ./Llib/hash.scm 160 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1107z00_467, BGl_string7574z00zz__hashz00, 
BINT(((long)6606))); 
exit( -1 );} 
BgL_n1z00_1127 = 
(long)CINT(BgL_auxz00_3928); } 
BgL_test1101z00_465 = 
(BgL_n1z00_1127>=((long)1)); } }  else 
{ /* ./Llib/hash.scm 159 */
BgL_test1101z00_465 = ((bool_t)0); } } 
if(BgL_test1101z00_465)
{ /* ./Llib/hash.scm 161 */
obj_t BgL_pairz00_1129;
if(
PAIRP(BgL_argsz00_15))
{ /* ./Llib/hash.scm 161 */
BgL_pairz00_1129 = BgL_argsz00_15; }  else 
{ /* ./Llib/hash.scm 161 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_argsz00_15, BGl_string7574z00zz__hashz00, 
BINT(((long)6629))); 
exit( -1 );} 
BgL_siza7eza7_460 = 
CAR(BgL_pairz00_1129); }  else 
{ /* ./Llib/hash.scm 159 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7576z00zz__hashz00, BGl_string7577z00zz__hashz00, BgL_argsz00_15, "./Llib/hash.scm", ((long)6641)); 
BgL_siza7eza7_460 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)6704))); } }  else 
{ /* ./Llib/hash.scm 158 */
BgL_siza7eza7_460 = 
BINT(((long)128)); } } 
{ /* ./Llib/hash.scm 166 */
bool_t BgL_test1116z00_470;
{ /* ./Llib/hash.scm 166 */
bool_t BgL_test1131z00_476;
BgL_test1131z00_476 = 
PAIRP(BgL_argsz00_15); 
if(BgL_test1131z00_476)
{ /* ./Llib/hash.scm 166 */
obj_t BgL_arg1133z00_477;
{ /* ./Llib/hash.scm 166 */
obj_t BgL_pairz00_1134;
if(BgL_test1131z00_476)
{ /* ./Llib/hash.scm 166 */
BgL_pairz00_1134 = BgL_argsz00_15; }  else 
{ /* ./Llib/hash.scm 166 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_argsz00_15, BGl_string7574z00zz__hashz00, 
BINT(((long)6807))); 
exit( -1 );} 
BgL_arg1133z00_477 = 
CDR(BgL_pairz00_1134); } 
BgL_test1116z00_470 = 
PAIRP(BgL_arg1133z00_477); }  else 
{ /* ./Llib/hash.scm 166 */
BgL_test1116z00_470 = ((bool_t)0); } } 
if(BgL_test1116z00_470)
{ /* ./Llib/hash.scm 167 */
bool_t BgL_test1117z00_471;
{ /* ./Llib/hash.scm 167 */
bool_t BgL_test1121z00_472;
{ /* ./Llib/hash.scm 167 */
obj_t BgL_arg1128z00_475;
{ /* ./Llib/hash.scm 167 */
obj_t BgL_pairz00_1136;
if(
PAIRP(BgL_argsz00_15))
{ /* ./Llib/hash.scm 167 */
BgL_pairz00_1136 = BgL_argsz00_15; }  else 
{ /* ./Llib/hash.scm 167 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_argsz00_15, BGl_string7574z00zz__hashz00, 
BINT(((long)6845))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 167 */
obj_t BgL_arg2405z00_1137;
BgL_arg2405z00_1137 = 
CDR(BgL_pairz00_1136); 
{ /* ./Llib/hash.scm 167 */
obj_t BgL_pairz00_1139;
if(
PAIRP(BgL_arg2405z00_1137))
{ /* ./Llib/hash.scm 167 */
BgL_pairz00_1139 = BgL_arg2405z00_1137; }  else 
{ /* ./Llib/hash.scm 167 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2405z00_1137, BGl_string7574z00zz__hashz00, 
BINT(((long)6836))); 
exit( -1 );} 
BgL_arg1128z00_475 = 
CAR(BgL_pairz00_1139); } } } 
BgL_test1121z00_472 = 
INTEGERP(BgL_arg1128z00_475); } 
if(BgL_test1121z00_472)
{ /* ./Llib/hash.scm 168 */
obj_t BgL_arg1123z00_473;
{ /* ./Llib/hash.scm 168 */
obj_t BgL_pairz00_1141;
if(
PAIRP(BgL_argsz00_15))
{ /* ./Llib/hash.scm 168 */
BgL_pairz00_1141 = BgL_argsz00_15; }  else 
{ /* ./Llib/hash.scm 168 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_argsz00_15, BGl_string7574z00zz__hashz00, 
BINT(((long)6872))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 168 */
obj_t BgL_arg2405z00_1142;
BgL_arg2405z00_1142 = 
CDR(BgL_pairz00_1141); 
{ /* ./Llib/hash.scm 168 */
obj_t BgL_pairz00_1144;
if(
PAIRP(BgL_arg2405z00_1142))
{ /* ./Llib/hash.scm 168 */
BgL_pairz00_1144 = BgL_arg2405z00_1142; }  else 
{ /* ./Llib/hash.scm 168 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2405z00_1142, BGl_string7574z00zz__hashz00, 
BINT(((long)6863))); 
exit( -1 );} 
BgL_arg1123z00_473 = 
CAR(BgL_pairz00_1144); } } } 
{ /* ./Llib/hash.scm 168 */
long BgL_n1z00_1145;
{ /* ./Llib/hash.scm 168 */
obj_t BgL_auxz00_3982;
if(
INTEGERP(BgL_arg1123z00_473))
{ /* ./Llib/hash.scm 168 */
BgL_auxz00_3982 = BgL_arg1123z00_473
; }  else 
{ /* ./Llib/hash.scm 168 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1123z00_473, BGl_string7574z00zz__hashz00, 
BINT(((long)6873))); 
exit( -1 );} 
BgL_n1z00_1145 = 
(long)CINT(BgL_auxz00_3982); } 
BgL_test1117z00_471 = 
(BgL_n1z00_1145>=((long)1)); } }  else 
{ /* ./Llib/hash.scm 167 */
BgL_test1117z00_471 = ((bool_t)0); } } 
if(BgL_test1117z00_471)
{ /* ./Llib/hash.scm 169 */
obj_t BgL_pairz00_1147;
if(
PAIRP(BgL_argsz00_15))
{ /* ./Llib/hash.scm 169 */
BgL_pairz00_1147 = BgL_argsz00_15; }  else 
{ /* ./Llib/hash.scm 169 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_argsz00_15, BGl_string7574z00zz__hashz00, 
BINT(((long)6891))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 169 */
obj_t BgL_arg2405z00_1148;
BgL_arg2405z00_1148 = 
CDR(BgL_pairz00_1147); 
{ /* ./Llib/hash.scm 169 */
obj_t BgL_pairz00_1150;
if(
PAIRP(BgL_arg2405z00_1148))
{ /* ./Llib/hash.scm 169 */
BgL_pairz00_1150 = BgL_arg2405z00_1148; }  else 
{ /* ./Llib/hash.scm 169 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2405z00_1148, BGl_string7574z00zz__hashz00, 
BINT(((long)6882))); 
exit( -1 );} 
BgL_mblenz00_461 = 
CAR(BgL_pairz00_1150); } } }  else 
{ /* ./Llib/hash.scm 167 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7576z00zz__hashz00, BGl_string7578z00zz__hashz00, BgL_argsz00_15, "./Llib/hash.scm", ((long)6897)); 
BgL_mblenz00_461 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)6957))); } }  else 
{ /* ./Llib/hash.scm 166 */
BgL_mblenz00_461 = 
BINT(((long)10)); } } 
{ /* ./Llib/hash.scm 174 */
obj_t BgL_arg1097z00_463;
{ /* ./Llib/hash.scm 174 */
int BgL_auxz00_4007;
{ /* ./Llib/hash.scm 174 */
obj_t BgL_auxz00_4008;
if(
INTEGERP(BgL_siza7eza7_460))
{ /* ./Llib/hash.scm 174 */
BgL_auxz00_4008 = BgL_siza7eza7_460
; }  else 
{ /* ./Llib/hash.scm 174 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_siza7eza7_460, BGl_string7574z00zz__hashz00, 
BINT(((long)7037))); 
exit( -1 );} 
BgL_auxz00_4007 = 
CINT(BgL_auxz00_4008); } 
BgL_arg1097z00_463 = 
make_vector(BgL_auxz00_4007, BNIL); } 
{ /* ./Llib/hash.scm 174 */
obj_t BgL_newz00_1157;
{ /* ./Llib/hash.scm 174 */
int BgL_auxz00_4016;
BgL_auxz00_4016 = 
(int)(((long)3)); 
BgL_newz00_1157 = 
create_struct(BGl_symbol7580z00zz__hashz00, BgL_auxz00_4016); } 
{ /* ./Llib/hash.scm 174 */
bool_t BgL_test1054z00_1160;
{ /* ./Llib/hash.scm 174 */
obj_t BgL_arg1058z00_1161;obj_t BgL_arg1059z00_1162;
{ /* ./Llib/hash.scm 174 */
obj_t BgL_res2700z00_1164;
{ /* ./Llib/hash.scm 174 */
obj_t BgL_aux3248z00_2940;
BgL_aux3248z00_2940 = 
STRUCT_KEY(BgL_newz00_1157); 
if(
SYMBOLP(BgL_aux3248z00_2940))
{ /* ./Llib/hash.scm 174 */
BgL_res2700z00_1164 = BgL_aux3248z00_2940; }  else 
{ /* ./Llib/hash.scm 174 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3248z00_2940, BGl_string7574z00zz__hashz00, 
BINT(((long)7017))); 
exit( -1 );} } 
BgL_arg1058z00_1161 = BgL_res2700z00_1164; } 
BgL_arg1059z00_1162 = BGl_symbol7580z00zz__hashz00; 
BgL_test1054z00_1160 = 
(BgL_arg1058z00_1161==BgL_arg1059z00_1162); } 
if(BgL_test1054z00_1160)
{ /* ./Llib/hash.scm 174 */
int BgL_auxz00_4027;
BgL_auxz00_4027 = 
(int)(((long)2)); 
STRUCT_SET(BgL_newz00_1157, BgL_auxz00_4027, BgL_arg1097z00_463); }  else 
{ /* ./Llib/hash.scm 174 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_newz00_1157, BGl_string7574z00zz__hashz00, 
BINT(((long)7017))); } } 
{ /* ./Llib/hash.scm 174 */
bool_t BgL_test1070z00_1170;
{ /* ./Llib/hash.scm 174 */
obj_t BgL_arg1075z00_1171;obj_t BgL_arg1076z00_1172;
{ /* ./Llib/hash.scm 174 */
obj_t BgL_res2701z00_1174;
{ /* ./Llib/hash.scm 174 */
obj_t BgL_aux3263z00_2942;
BgL_aux3263z00_2942 = 
STRUCT_KEY(BgL_newz00_1157); 
if(
SYMBOLP(BgL_aux3263z00_2942))
{ /* ./Llib/hash.scm 174 */
BgL_res2701z00_1174 = BgL_aux3263z00_2942; }  else 
{ /* ./Llib/hash.scm 174 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3263z00_2942, BGl_string7574z00zz__hashz00, 
BINT(((long)7017))); 
exit( -1 );} } 
BgL_arg1075z00_1171 = BgL_res2701z00_1174; } 
BgL_arg1076z00_1172 = BGl_symbol7580z00zz__hashz00; 
BgL_test1070z00_1170 = 
(BgL_arg1075z00_1171==BgL_arg1076z00_1172); } 
if(BgL_test1070z00_1170)
{ /* ./Llib/hash.scm 174 */
int BgL_auxz00_4040;
BgL_auxz00_4040 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_1157, BgL_auxz00_4040, BgL_mblenz00_461); }  else 
{ /* ./Llib/hash.scm 174 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_newz00_1157, BGl_string7574z00zz__hashz00, 
BINT(((long)7017))); } } 
{ /* ./Llib/hash.scm 174 */
bool_t BgL_test1087z00_1180;
{ /* ./Llib/hash.scm 174 */
obj_t BgL_arg1091z00_1181;obj_t BgL_arg1092z00_1182;
{ /* ./Llib/hash.scm 174 */
obj_t BgL_res2702z00_1184;
{ /* ./Llib/hash.scm 174 */
obj_t BgL_aux3278z00_2944;
BgL_aux3278z00_2944 = 
STRUCT_KEY(BgL_newz00_1157); 
if(
SYMBOLP(BgL_aux3278z00_2944))
{ /* ./Llib/hash.scm 174 */
BgL_res2702z00_1184 = BgL_aux3278z00_2944; }  else 
{ /* ./Llib/hash.scm 174 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7572z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3278z00_2944, BGl_string7574z00zz__hashz00, 
BINT(((long)7017))); 
exit( -1 );} } 
BgL_arg1091z00_1181 = BgL_res2702z00_1184; } 
BgL_arg1092z00_1182 = BGl_symbol7580z00zz__hashz00; 
BgL_test1087z00_1180 = 
(BgL_arg1091z00_1181==BgL_arg1092z00_1182); } 
if(BgL_test1087z00_1180)
{ /* ./Llib/hash.scm 174 */
obj_t BgL_auxz00_4055;int BgL_auxz00_4053;
BgL_auxz00_4055 = 
BINT(((long)0)); 
BgL_auxz00_4053 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_1157, BgL_auxz00_4053, BgL_auxz00_4055); }  else 
{ /* ./Llib/hash.scm 174 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_newz00_1157, BGl_string7574z00zz__hashz00, 
BINT(((long)7017))); } } 
BgL_aux2825z00_2775 = BgL_newz00_1157; } } } 
POP_TRACE(); 
return BgL_aux2825z00_2775;} } } } 
}



/* _make-hashtable */
obj_t BGl__makezd2hashtablezd2zz__hashz00(obj_t BgL_envz00_2838, obj_t BgL_argsz00_2839)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 157 */
return 
BGl_makezd2hashtablezd2zz__hashz00(BgL_argsz00_2839);} 
}



/* hashtable? */
BGL_EXPORTED_DEF bool_t BGl_hashtablezf3zf3zz__hashz00(obj_t BgL_objz00_16)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 179 */
{ /* ./Llib/hash.scm 180 */
obj_t BgL_symbol2830z00_2776;
BgL_symbol2830z00_2776 = BGl_symbol7584z00zz__hashz00; 
{ /* ./Llib/hash.scm 180 */

PUSH_TRACE(BgL_symbol2830z00_2776); BUNSPEC; 
{ /* ./Llib/hash.scm 180 */
bool_t BgL_aux2829z00_2777;
{ /* ./Llib/hash.scm 180 */
bool_t BgL_test1039z00_1189;
BgL_test1039z00_1189 = 
STRUCTP(BgL_objz00_16); 
if(BgL_test1039z00_1189)
{ /* ./Llib/hash.scm 180 */
obj_t BgL_arg1041z00_1190;obj_t BgL_arg1042z00_1191;
{ /* ./Llib/hash.scm 180 */
obj_t BgL_res2703z00_1194;
{ /* ./Llib/hash.scm 180 */
obj_t BgL_sz00_1193;
if(BgL_test1039z00_1189)
{ /* ./Llib/hash.scm 180 */
BgL_sz00_1193 = BgL_objz00_16; }  else 
{ /* ./Llib/hash.scm 180 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7584z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_objz00_16, BGl_string7574z00zz__hashz00, 
BINT(((long)7325))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 180 */
obj_t BgL_aux3304z00_2948;
BgL_aux3304z00_2948 = 
STRUCT_KEY(BgL_sz00_1193); 
if(
SYMBOLP(BgL_aux3304z00_2948))
{ /* ./Llib/hash.scm 180 */
BgL_res2703z00_1194 = BgL_aux3304z00_2948; }  else 
{ /* ./Llib/hash.scm 180 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7584z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3304z00_2948, BGl_string7574z00zz__hashz00, 
BINT(((long)7325))); 
exit( -1 );} } } 
BgL_arg1041z00_1190 = BgL_res2703z00_1194; } 
BgL_arg1042z00_1191 = BGl_symbol7580z00zz__hashz00; 
BgL_aux2829z00_2777 = 
(BgL_arg1041z00_1190==BgL_arg1042z00_1191); }  else 
{ /* ./Llib/hash.scm 180 */
BgL_aux2829z00_2777 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2829z00_2777;} } } } 
}



/* _hashtable? */
obj_t BGl__hashtablezf3zf3zz__hashz00(obj_t BgL_envz00_2840, obj_t BgL_objz00_2841)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 179 */
{ /* ./Llib/hash.scm 180 */
bool_t BgL_auxz00_4077;
BgL_auxz00_4077 = 
BGl_hashtablezf3zf3zz__hashz00(BgL_objz00_2841); 
return 
BBOOL(BgL_auxz00_4077);} } 
}



/* hashtable-size */
BGL_EXPORTED_DEF int BGl_hashtablezd2siza7ez75zz__hashz00(obj_t BgL_tablez00_17)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 185 */
{ /* ./Llib/hash.scm 186 */
obj_t BgL_symbol2834z00_2778;
BgL_symbol2834z00_2778 = BGl_symbol7586z00zz__hashz00; 
{ /* ./Llib/hash.scm 186 */

PUSH_TRACE(BgL_symbol2834z00_2778); BUNSPEC; 
{ /* ./Llib/hash.scm 186 */
int BgL_aux2833z00_2779;
{ /* ./Llib/hash.scm 186 */
bool_t BgL_test1079z00_1196;
{ /* ./Llib/hash.scm 186 */
obj_t BgL_arg1083z00_1197;obj_t BgL_arg1084z00_1198;
{ /* ./Llib/hash.scm 186 */
obj_t BgL_res2704z00_1200;
{ /* ./Llib/hash.scm 186 */
obj_t BgL_aux3315z00_2950;
BgL_aux3315z00_2950 = 
STRUCT_KEY(BgL_tablez00_17); 
if(
SYMBOLP(BgL_aux3315z00_2950))
{ /* ./Llib/hash.scm 186 */
BgL_res2704z00_1200 = BgL_aux3315z00_2950; }  else 
{ /* ./Llib/hash.scm 186 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7586z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3315z00_2950, BGl_string7574z00zz__hashz00, 
BINT(((long)7614))); 
exit( -1 );} } 
BgL_arg1083z00_1197 = BgL_res2704z00_1200; } 
BgL_arg1084z00_1198 = BGl_symbol7580z00zz__hashz00; 
BgL_test1079z00_1196 = 
(BgL_arg1083z00_1197==BgL_arg1084z00_1198); } 
if(BgL_test1079z00_1196)
{ /* ./Llib/hash.scm 186 */
obj_t BgL_auxz00_4089;
{ /* ./Llib/hash.scm 186 */
obj_t BgL_aux3326z00_2952;
{ /* ./Llib/hash.scm 186 */
int BgL_auxz00_4090;
BgL_auxz00_4090 = 
(int)(((long)0)); 
BgL_aux3326z00_2952 = 
STRUCT_REF(BgL_tablez00_17, BgL_auxz00_4090); } 
if(
INTEGERP(BgL_aux3326z00_2952))
{ /* ./Llib/hash.scm 186 */
BgL_auxz00_4089 = BgL_aux3326z00_2952
; }  else 
{ /* ./Llib/hash.scm 186 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7586z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_aux3326z00_2952, BGl_string7574z00zz__hashz00, 
BINT(((long)7614))); 
exit( -1 );} } 
BgL_aux2833z00_2779 = 
CINT(BgL_auxz00_4089); }  else 
{ /* ./Llib/hash.scm 186 */
obj_t BgL_auxz00_4099;
{ /* ./Llib/hash.scm 186 */
obj_t BgL_aux3341z00_2954;
BgL_aux3341z00_2954 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_17, BGl_string7574z00zz__hashz00, 
BINT(((long)7614))); 
if(
INTEGERP(BgL_aux3341z00_2954))
{ /* ./Llib/hash.scm 186 */
BgL_auxz00_4099 = BgL_aux3341z00_2954
; }  else 
{ /* ./Llib/hash.scm 186 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7586z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_aux3341z00_2954, BGl_string7574z00zz__hashz00, 
BINT(((long)7614))); 
exit( -1 );} } 
BgL_aux2833z00_2779 = 
CINT(BgL_auxz00_4099); } } 
POP_TRACE(); 
return BgL_aux2833z00_2779;} } } } 
}



/* _hashtable-size */
obj_t BGl__hashtablezd2siza7ez75zz__hashz00(obj_t BgL_envz00_2842, obj_t BgL_tablez00_2843)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 185 */
{ /* ./Llib/hash.scm 186 */
int BgL_auxz00_4109;
{ /* ./Llib/hash.scm 186 */
obj_t BgL_auxz00_4110;
if(
STRUCTP(BgL_tablez00_2843))
{ /* ./Llib/hash.scm 186 */
BgL_auxz00_4110 = BgL_tablez00_2843
; }  else 
{ /* ./Llib/hash.scm 186 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7588z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_2843, BGl_string7574z00zz__hashz00, 
BINT(((long)7614))); 
exit( -1 );} 
BgL_auxz00_4109 = 
BGl_hashtablezd2siza7ez75zz__hashz00(BgL_auxz00_4110); } 
return 
BINT(BgL_auxz00_4109);} } 
}



/* hashtable->vector */
BGL_EXPORTED_DEF obj_t BGl_hashtablezd2ze3vectorz31zz__hashz00(obj_t BgL_tablez00_18)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 191 */
{ /* ./Llib/hash.scm 192 */
obj_t BgL_symbol2838z00_2780;
BgL_symbol2838z00_2780 = BGl_symbol7589z00zz__hashz00; 
{ /* ./Llib/hash.scm 192 */

PUSH_TRACE(BgL_symbol2838z00_2780); BUNSPEC; 
{ /* ./Llib/hash.scm 192 */
obj_t BgL_aux2837z00_2781;
{ /* ./Llib/hash.scm 192 */
obj_t BgL_vecz00_478;
{ /* ./Llib/hash.scm 192 */
int BgL_arg1165z00_494;obj_t BgL_arg1166z00_495;
{ /* ./Llib/hash.scm 192 */
int BgL_res2706z00_1214;
{ /* ./Llib/hash.scm 192 */
bool_t BgL_test1079z00_1206;
{ /* ./Llib/hash.scm 192 */
obj_t BgL_arg1083z00_1207;obj_t BgL_arg1084z00_1208;
{ /* ./Llib/hash.scm 192 */
obj_t BgL_res2705z00_1210;
{ /* ./Llib/hash.scm 192 */
obj_t BgL_aux3363z00_2958;
BgL_aux3363z00_2958 = 
STRUCT_KEY(BgL_tablez00_18); 
if(
SYMBOLP(BgL_aux3363z00_2958))
{ /* ./Llib/hash.scm 192 */
BgL_res2705z00_1210 = BgL_aux3363z00_2958; }  else 
{ /* ./Llib/hash.scm 192 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7589z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3363z00_2958, BGl_string7574z00zz__hashz00, 
BINT(((long)7932))); 
exit( -1 );} } 
BgL_arg1083z00_1207 = BgL_res2705z00_1210; } 
BgL_arg1084z00_1208 = BGl_symbol7580z00zz__hashz00; 
BgL_test1079z00_1206 = 
(BgL_arg1083z00_1207==BgL_arg1084z00_1208); } 
if(BgL_test1079z00_1206)
{ /* ./Llib/hash.scm 192 */
obj_t BgL_auxz00_4127;
{ /* ./Llib/hash.scm 192 */
obj_t BgL_aux3374z00_2960;
{ /* ./Llib/hash.scm 192 */
int BgL_auxz00_4128;
BgL_auxz00_4128 = 
(int)(((long)0)); 
BgL_aux3374z00_2960 = 
STRUCT_REF(BgL_tablez00_18, BgL_auxz00_4128); } 
if(
INTEGERP(BgL_aux3374z00_2960))
{ /* ./Llib/hash.scm 192 */
BgL_auxz00_4127 = BgL_aux3374z00_2960
; }  else 
{ /* ./Llib/hash.scm 192 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7589z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_aux3374z00_2960, BGl_string7574z00zz__hashz00, 
BINT(((long)7932))); 
exit( -1 );} } 
BgL_res2706z00_1214 = 
CINT(BgL_auxz00_4127); }  else 
{ /* ./Llib/hash.scm 192 */
obj_t BgL_auxz00_4137;
{ /* ./Llib/hash.scm 192 */
obj_t BgL_aux3389z00_2962;
BgL_aux3389z00_2962 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_18, BGl_string7574z00zz__hashz00, 
BINT(((long)7932))); 
if(
INTEGERP(BgL_aux3389z00_2962))
{ /* ./Llib/hash.scm 192 */
BgL_auxz00_4137 = BgL_aux3389z00_2962
; }  else 
{ /* ./Llib/hash.scm 192 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7589z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_aux3389z00_2962, BGl_string7574z00zz__hashz00, 
BINT(((long)7932))); 
exit( -1 );} } 
BgL_res2706z00_1214 = 
CINT(BgL_auxz00_4137); } } 
BgL_arg1165z00_494 = BgL_res2706z00_1214; } 
BgL_arg1166z00_495 = BUNSPEC; 
BgL_vecz00_478 = 
make_vector(BgL_arg1165z00_494, BgL_arg1166z00_495); } 
{ /* ./Llib/hash.scm 192 */
obj_t BgL_bucketsz00_479;
{ /* ./Llib/hash.scm 193 */
bool_t BgL_test1046z00_1217;
{ /* ./Llib/hash.scm 193 */
obj_t BgL_arg1050z00_1218;obj_t BgL_arg1051z00_1219;
{ /* ./Llib/hash.scm 193 */
obj_t BgL_res2708z00_1221;
{ /* ./Llib/hash.scm 193 */
obj_t BgL_aux3400z00_2965;
BgL_aux3400z00_2965 = 
STRUCT_KEY(BgL_tablez00_18); 
if(
SYMBOLP(BgL_aux3400z00_2965))
{ /* ./Llib/hash.scm 193 */
BgL_res2708z00_1221 = BgL_aux3400z00_2965; }  else 
{ /* ./Llib/hash.scm 193 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7589z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3400z00_2965, BGl_string7574z00zz__hashz00, 
BINT(((long)7969))); 
exit( -1 );} } 
BgL_arg1050z00_1218 = BgL_res2708z00_1221; } 
BgL_arg1051z00_1219 = BGl_symbol7580z00zz__hashz00; 
BgL_test1046z00_1217 = 
(BgL_arg1050z00_1218==BgL_arg1051z00_1219); } 
if(BgL_test1046z00_1217)
{ /* ./Llib/hash.scm 193 */
int BgL_auxz00_4155;
BgL_auxz00_4155 = 
(int)(((long)2)); 
BgL_bucketsz00_479 = 
STRUCT_REF(BgL_tablez00_18, BgL_auxz00_4155); }  else 
{ /* ./Llib/hash.scm 193 */
BgL_bucketsz00_479 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_18, BGl_string7574z00zz__hashz00, 
BINT(((long)7969))); } } 
{ /* ./Llib/hash.scm 193 */
int BgL_bucketszd2lenzd2_480;
{ /* ./Llib/hash.scm 194 */
obj_t BgL_vectorz00_1225;
if(
VECTORP(BgL_bucketsz00_479))
{ /* ./Llib/hash.scm 194 */
BgL_vectorz00_1225 = BgL_bucketsz00_479; }  else 
{ /* ./Llib/hash.scm 194 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7589z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_479, BGl_string7574z00zz__hashz00, 
BINT(((long)8034))); 
exit( -1 );} 
BgL_bucketszd2lenzd2_480 = 
VECTOR_LENGTH(BgL_vectorz00_1225); } 
{ /* ./Llib/hash.scm 194 */

{ 
long BgL_iz00_481;long BgL_wz00_482;
BgL_iz00_481 = ((long)0); 
BgL_wz00_482 = ((long)0); 
BgL_loopz00_483:
{ /* ./Llib/hash.scm 197 */
bool_t BgL_testz00_4166;
{ /* ./Llib/hash.scm 197 */
long BgL_auxz00_4167;
BgL_auxz00_4167 = 
(long)(BgL_bucketszd2lenzd2_480); 
BgL_testz00_4166 = 
(BgL_iz00_481==BgL_auxz00_4167); } 
if(BgL_testz00_4166)
{ /* ./Llib/hash.scm 197 */
BgL_aux2837z00_2781 = BgL_vecz00_478; }  else 
{ 
obj_t BgL_bucketz00_485;long BgL_wz00_486;
{ /* ./Llib/hash.scm 199 */
obj_t BgL_arg1142z00_488;
{ /* ./Llib/hash.scm 199 */
obj_t BgL_vectorz00_1228;int BgL_kz00_1229;
if(
VECTORP(BgL_bucketsz00_479))
{ /* ./Llib/hash.scm 199 */
BgL_vectorz00_1228 = BgL_bucketsz00_479; }  else 
{ /* ./Llib/hash.scm 199 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7589z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_479, BGl_string7574z00zz__hashz00, 
BINT(((long)8133))); 
exit( -1 );} 
BgL_kz00_1229 = 
(int)(BgL_iz00_481); 
{ /* ./Llib/hash.scm 199 */
bool_t BgL_test2434z00_1230;
{ /* ./Llib/hash.scm 199 */
int BgL_arg2439z00_1231;
BgL_arg2439z00_1231 = 
VECTOR_LENGTH(BgL_vectorz00_1228); 
BgL_test2434z00_1230 = 
BOUND_CHECK(BgL_kz00_1229, BgL_arg2439z00_1231); } 
if(BgL_test2434z00_1230)
{ /* ./Llib/hash.scm 199 */
BgL_arg1142z00_488 = 
VECTOR_REF(BgL_vectorz00_1228,BgL_kz00_1229); }  else 
{ /* ./Llib/hash.scm 199 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1229), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1142z00_488 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)8133))); } } } 
BgL_bucketz00_485 = BgL_arg1142z00_488; 
BgL_wz00_486 = BgL_wz00_482; 
BgL_liipz00_487:
if(
NULLP(BgL_bucketz00_485))
{ 
long BgL_wz00_4188;long BgL_iz00_4186;
BgL_iz00_4186 = 
(BgL_iz00_481+((long)1)); 
BgL_wz00_4188 = BgL_wz00_486; 
BgL_wz00_482 = BgL_wz00_4188; 
BgL_iz00_481 = BgL_iz00_4186; 
goto BgL_loopz00_483;}  else 
{ /* ./Llib/hash.scm 201 */
{ /* ./Llib/hash.scm 204 */
obj_t BgL_arg1151z00_491;
{ /* ./Llib/hash.scm 204 */
obj_t BgL_pairz00_1239;
if(
PAIRP(BgL_bucketz00_485))
{ /* ./Llib/hash.scm 204 */
BgL_pairz00_1239 = BgL_bucketz00_485; }  else 
{ /* ./Llib/hash.scm 204 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7589z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_485, BGl_string7574z00zz__hashz00, 
BINT(((long)8265))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 204 */
obj_t BgL_arg2401z00_1240;
BgL_arg2401z00_1240 = 
CAR(BgL_pairz00_1239); 
{ /* ./Llib/hash.scm 204 */
obj_t BgL_pairz00_1242;
if(
PAIRP(BgL_arg2401z00_1240))
{ /* ./Llib/hash.scm 204 */
BgL_pairz00_1242 = BgL_arg2401z00_1240; }  else 
{ /* ./Llib/hash.scm 204 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7589z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2401z00_1240, BGl_string7574z00zz__hashz00, 
BINT(((long)8254))); 
exit( -1 );} 
BgL_arg1151z00_491 = 
CDR(BgL_pairz00_1242); } } } 
{ /* ./Llib/hash.scm 204 */
int BgL_kz00_1244;
BgL_kz00_1244 = 
(int)(BgL_wz00_486); 
{ /* ./Llib/hash.scm 204 */
bool_t BgL_test2426z00_1246;
{ /* ./Llib/hash.scm 204 */
int BgL_arg2431z00_1247;
BgL_arg2431z00_1247 = 
VECTOR_LENGTH(BgL_vecz00_478); 
BgL_test2426z00_1246 = 
BOUND_CHECK(BgL_kz00_1244, BgL_arg2431z00_1247); } 
if(BgL_test2426z00_1246)
{ /* ./Llib/hash.scm 204 */
VECTOR_SET(BgL_vecz00_478,BgL_kz00_1244,BgL_arg1151z00_491); }  else 
{ /* ./Llib/hash.scm 204 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7591z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1244), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)8235))); } } } } 
{ /* ./Llib/hash.scm 205 */
obj_t BgL_arg1155z00_492;long BgL_arg1156z00_493;
{ /* ./Llib/hash.scm 205 */
obj_t BgL_pairz00_1252;
if(
PAIRP(BgL_bucketz00_485))
{ /* ./Llib/hash.scm 205 */
BgL_pairz00_1252 = BgL_bucketz00_485; }  else 
{ /* ./Llib/hash.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7589z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_485, BGl_string7574z00zz__hashz00, 
BINT(((long)8294))); 
exit( -1 );} 
BgL_arg1155z00_492 = 
CDR(BgL_pairz00_1252); } 
BgL_arg1156z00_493 = 
(BgL_wz00_486+((long)1)); 
{ 
long BgL_wz00_4218;obj_t BgL_bucketz00_4217;
BgL_bucketz00_4217 = BgL_arg1155z00_492; 
BgL_wz00_4218 = BgL_arg1156z00_493; 
BgL_wz00_486 = BgL_wz00_4218; 
BgL_bucketz00_485 = BgL_bucketz00_4217; 
goto BgL_liipz00_487;} } } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2837z00_2781;} } } } 
}



/* _hashtable->vector */
obj_t BGl__hashtablezd2ze3vectorz31zz__hashz00(obj_t BgL_envz00_2844, obj_t BgL_tablez00_2845)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 191 */
{ /* ./Llib/hash.scm 192 */
obj_t BgL_auxz00_4220;
if(
STRUCTP(BgL_tablez00_2845))
{ /* ./Llib/hash.scm 192 */
BgL_auxz00_4220 = BgL_tablez00_2845
; }  else 
{ /* ./Llib/hash.scm 192 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7594z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_2845, BGl_string7574z00zz__hashz00, 
BINT(((long)7907))); 
exit( -1 );} 
return 
BGl_hashtablezd2ze3vectorz31zz__hashz00(BgL_auxz00_4220);} } 
}



/* hashtable->list */
BGL_EXPORTED_DEF obj_t BGl_hashtablezd2ze3listz31zz__hashz00(obj_t BgL_tablez00_19)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 210 */
{ /* ./Llib/hash.scm 211 */
obj_t BgL_symbol2842z00_2782;
BgL_symbol2842z00_2782 = BGl_symbol7595z00zz__hashz00; 
{ /* ./Llib/hash.scm 211 */

PUSH_TRACE(BgL_symbol2842z00_2782); BUNSPEC; 
{ /* ./Llib/hash.scm 211 */
obj_t BgL_aux2841z00_2783;
{ /* ./Llib/hash.scm 211 */
obj_t BgL_vecz00_496;
{ /* ./Llib/hash.scm 211 */
int BgL_arg1195z00_512;obj_t BgL_arg1196z00_513;
{ /* ./Llib/hash.scm 211 */
int BgL_res2710z00_1265;
{ /* ./Llib/hash.scm 211 */
bool_t BgL_test1079z00_1257;
{ /* ./Llib/hash.scm 211 */
obj_t BgL_arg1083z00_1258;obj_t BgL_arg1084z00_1259;
{ /* ./Llib/hash.scm 211 */
obj_t BgL_res2709z00_1261;
{ /* ./Llib/hash.scm 211 */
obj_t BgL_aux3494z00_2979;
BgL_aux3494z00_2979 = 
STRUCT_KEY(BgL_tablez00_19); 
if(
SYMBOLP(BgL_aux3494z00_2979))
{ /* ./Llib/hash.scm 211 */
BgL_res2709z00_1261 = BgL_aux3494z00_2979; }  else 
{ /* ./Llib/hash.scm 211 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7595z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3494z00_2979, BGl_string7574z00zz__hashz00, 
BINT(((long)8606))); 
exit( -1 );} } 
BgL_arg1083z00_1258 = BgL_res2709z00_1261; } 
BgL_arg1084z00_1259 = BGl_symbol7580z00zz__hashz00; 
BgL_test1079z00_1257 = 
(BgL_arg1083z00_1258==BgL_arg1084z00_1259); } 
if(BgL_test1079z00_1257)
{ /* ./Llib/hash.scm 211 */
obj_t BgL_auxz00_4236;
{ /* ./Llib/hash.scm 211 */
obj_t BgL_aux3505z00_2981;
{ /* ./Llib/hash.scm 211 */
int BgL_auxz00_4237;
BgL_auxz00_4237 = 
(int)(((long)0)); 
BgL_aux3505z00_2981 = 
STRUCT_REF(BgL_tablez00_19, BgL_auxz00_4237); } 
if(
INTEGERP(BgL_aux3505z00_2981))
{ /* ./Llib/hash.scm 211 */
BgL_auxz00_4236 = BgL_aux3505z00_2981
; }  else 
{ /* ./Llib/hash.scm 211 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7595z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_aux3505z00_2981, BGl_string7574z00zz__hashz00, 
BINT(((long)8606))); 
exit( -1 );} } 
BgL_res2710z00_1265 = 
CINT(BgL_auxz00_4236); }  else 
{ /* ./Llib/hash.scm 211 */
obj_t BgL_auxz00_4246;
{ /* ./Llib/hash.scm 211 */
obj_t BgL_aux3520z00_2983;
BgL_aux3520z00_2983 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_19, BGl_string7574z00zz__hashz00, 
BINT(((long)8606))); 
if(
INTEGERP(BgL_aux3520z00_2983))
{ /* ./Llib/hash.scm 211 */
BgL_auxz00_4246 = BgL_aux3520z00_2983
; }  else 
{ /* ./Llib/hash.scm 211 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7595z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_aux3520z00_2983, BGl_string7574z00zz__hashz00, 
BINT(((long)8606))); 
exit( -1 );} } 
BgL_res2710z00_1265 = 
CINT(BgL_auxz00_4246); } } 
BgL_arg1195z00_512 = BgL_res2710z00_1265; } 
BgL_arg1196z00_513 = BUNSPEC; 
BgL_vecz00_496 = 
make_vector(BgL_arg1195z00_512, BgL_arg1196z00_513); } 
{ /* ./Llib/hash.scm 211 */
obj_t BgL_bucketsz00_497;
{ /* ./Llib/hash.scm 212 */
bool_t BgL_test1046z00_1268;
{ /* ./Llib/hash.scm 212 */
obj_t BgL_arg1050z00_1269;obj_t BgL_arg1051z00_1270;
{ /* ./Llib/hash.scm 212 */
obj_t BgL_res2712z00_1272;
{ /* ./Llib/hash.scm 212 */
obj_t BgL_aux3531z00_2986;
BgL_aux3531z00_2986 = 
STRUCT_KEY(BgL_tablez00_19); 
if(
SYMBOLP(BgL_aux3531z00_2986))
{ /* ./Llib/hash.scm 212 */
BgL_res2712z00_1272 = BgL_aux3531z00_2986; }  else 
{ /* ./Llib/hash.scm 212 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7595z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3531z00_2986, BGl_string7574z00zz__hashz00, 
BINT(((long)8643))); 
exit( -1 );} } 
BgL_arg1050z00_1269 = BgL_res2712z00_1272; } 
BgL_arg1051z00_1270 = BGl_symbol7580z00zz__hashz00; 
BgL_test1046z00_1268 = 
(BgL_arg1050z00_1269==BgL_arg1051z00_1270); } 
if(BgL_test1046z00_1268)
{ /* ./Llib/hash.scm 212 */
int BgL_auxz00_4264;
BgL_auxz00_4264 = 
(int)(((long)2)); 
BgL_bucketsz00_497 = 
STRUCT_REF(BgL_tablez00_19, BgL_auxz00_4264); }  else 
{ /* ./Llib/hash.scm 212 */
BgL_bucketsz00_497 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_19, BGl_string7574z00zz__hashz00, 
BINT(((long)8643))); } } 
{ /* ./Llib/hash.scm 212 */
int BgL_bucketszd2lenzd2_498;
{ /* ./Llib/hash.scm 213 */
obj_t BgL_vectorz00_1276;
if(
VECTORP(BgL_bucketsz00_497))
{ /* ./Llib/hash.scm 213 */
BgL_vectorz00_1276 = BgL_bucketsz00_497; }  else 
{ /* ./Llib/hash.scm 213 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7595z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_497, BGl_string7574z00zz__hashz00, 
BINT(((long)8708))); 
exit( -1 );} 
BgL_bucketszd2lenzd2_498 = 
VECTOR_LENGTH(BgL_vectorz00_1276); } 
{ /* ./Llib/hash.scm 213 */

{ 
long BgL_iz00_499;obj_t BgL_resz00_500;
{ /* ./Llib/hash.scm 214 */
obj_t BgL_aux3606z00_2998;
BgL_iz00_499 = ((long)0); 
BgL_resz00_500 = BNIL; 
BgL_loopz00_501:
{ /* ./Llib/hash.scm 216 */
bool_t BgL_testz00_4275;
{ /* ./Llib/hash.scm 216 */
long BgL_auxz00_4276;
BgL_auxz00_4276 = 
(long)(BgL_bucketszd2lenzd2_498); 
BgL_testz00_4275 = 
(BgL_iz00_499==BgL_auxz00_4276); } 
if(BgL_testz00_4275)
{ /* ./Llib/hash.scm 216 */
BgL_aux3606z00_2998 = BgL_resz00_500; }  else 
{ 
obj_t BgL_bucketz00_503;obj_t BgL_resz00_504;
{ /* ./Llib/hash.scm 218 */
obj_t BgL_arg1173z00_506;
{ /* ./Llib/hash.scm 218 */
obj_t BgL_vectorz00_1279;int BgL_kz00_1280;
if(
VECTORP(BgL_bucketsz00_497))
{ /* ./Llib/hash.scm 218 */
BgL_vectorz00_1279 = BgL_bucketsz00_497; }  else 
{ /* ./Llib/hash.scm 218 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7595z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_497, BGl_string7574z00zz__hashz00, 
BINT(((long)8811))); 
exit( -1 );} 
BgL_kz00_1280 = 
(int)(BgL_iz00_499); 
{ /* ./Llib/hash.scm 218 */
bool_t BgL_test2434z00_1281;
{ /* ./Llib/hash.scm 218 */
int BgL_arg2439z00_1282;
BgL_arg2439z00_1282 = 
VECTOR_LENGTH(BgL_vectorz00_1279); 
BgL_test2434z00_1281 = 
BOUND_CHECK(BgL_kz00_1280, BgL_arg2439z00_1282); } 
if(BgL_test2434z00_1281)
{ /* ./Llib/hash.scm 218 */
BgL_arg1173z00_506 = 
VECTOR_REF(BgL_vectorz00_1279,BgL_kz00_1280); }  else 
{ /* ./Llib/hash.scm 218 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1280), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1173z00_506 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)8811))); } } } 
BgL_bucketz00_503 = BgL_arg1173z00_506; 
BgL_resz00_504 = BgL_resz00_500; 
BgL_liipz00_505:
if(
NULLP(BgL_bucketz00_503))
{ 
obj_t BgL_resz00_4297;long BgL_iz00_4295;
BgL_iz00_4295 = 
(BgL_iz00_499+((long)1)); 
BgL_resz00_4297 = BgL_resz00_504; 
BgL_resz00_500 = BgL_resz00_4297; 
BgL_iz00_499 = BgL_iz00_4295; 
goto BgL_loopz00_501;}  else 
{ /* ./Llib/hash.scm 222 */
obj_t BgL_arg1182z00_509;obj_t BgL_arg1183z00_510;
{ /* ./Llib/hash.scm 222 */
obj_t BgL_pairz00_1290;
if(
PAIRP(BgL_bucketz00_503))
{ /* ./Llib/hash.scm 222 */
BgL_pairz00_1290 = BgL_bucketz00_503; }  else 
{ /* ./Llib/hash.scm 222 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7595z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_503, BGl_string7574z00zz__hashz00, 
BINT(((long)8919))); 
exit( -1 );} 
BgL_arg1182z00_509 = 
CDR(BgL_pairz00_1290); } 
{ /* ./Llib/hash.scm 222 */
obj_t BgL_arg1187z00_511;
{ /* ./Llib/hash.scm 222 */
obj_t BgL_pairz00_1291;
if(
PAIRP(BgL_bucketz00_503))
{ /* ./Llib/hash.scm 222 */
BgL_pairz00_1291 = BgL_bucketz00_503; }  else 
{ /* ./Llib/hash.scm 222 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7595z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_503, BGl_string7574z00zz__hashz00, 
BINT(((long)8939))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 222 */
obj_t BgL_arg2401z00_1292;
BgL_arg2401z00_1292 = 
CAR(BgL_pairz00_1291); 
{ /* ./Llib/hash.scm 222 */
obj_t BgL_pairz00_1294;
if(
PAIRP(BgL_arg2401z00_1292))
{ /* ./Llib/hash.scm 222 */
BgL_pairz00_1294 = BgL_arg2401z00_1292; }  else 
{ /* ./Llib/hash.scm 222 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7595z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2401z00_1292, BGl_string7574z00zz__hashz00, 
BINT(((long)8928))); 
exit( -1 );} 
BgL_arg1187z00_511 = 
CDR(BgL_pairz00_1294); } } } 
BgL_arg1183z00_510 = 
MAKE_PAIR(BgL_arg1187z00_511, BgL_resz00_504); } 
{ 
obj_t BgL_resz00_4318;obj_t BgL_bucketz00_4317;
BgL_bucketz00_4317 = BgL_arg1182z00_509; 
BgL_resz00_4318 = BgL_arg1183z00_510; 
BgL_resz00_504 = BgL_resz00_4318; 
BgL_bucketz00_503 = BgL_bucketz00_4317; 
goto BgL_liipz00_505;} } } } } 
{ /* ./Llib/hash.scm 214 */
bool_t BgL_testz00_4319;
if(
PAIRP(BgL_aux3606z00_2998))
{ /* ./Llib/hash.scm 214 */
BgL_testz00_4319 = ((bool_t)1)
; }  else 
{ /* ./Llib/hash.scm 214 */
BgL_testz00_4319 = 
NULLP(BgL_aux3606z00_2998)
; } 
if(BgL_testz00_4319)
{ /* ./Llib/hash.scm 214 */
BgL_aux2841z00_2783 = BgL_aux3606z00_2998; }  else 
{ /* ./Llib/hash.scm 214 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7595z00zz__hashz00, BGl_string7596z00zz__hashz00, BgL_aux3606z00_2998, BGl_string7574z00zz__hashz00, 
BINT(((long)8719))); 
exit( -1 );} } } } } } } } 
POP_TRACE(); 
return BgL_aux2841z00_2783;} } } } 
}



/* _hashtable->list */
obj_t BGl__hashtablezd2ze3listz31zz__hashz00(obj_t BgL_envz00_2846, obj_t BgL_tablez00_2847)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 210 */
{ /* ./Llib/hash.scm 211 */
obj_t BgL_auxz00_4327;
if(
STRUCTP(BgL_tablez00_2847))
{ /* ./Llib/hash.scm 211 */
BgL_auxz00_4327 = BgL_tablez00_2847
; }  else 
{ /* ./Llib/hash.scm 211 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7597z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_2847, BGl_string7574z00zz__hashz00, 
BINT(((long)8581))); 
exit( -1 );} 
return 
BGl_hashtablezd2ze3listz31zz__hashz00(BgL_auxz00_4327);} } 
}



/* hashtable-key-list */
BGL_EXPORTED_DEF obj_t BGl_hashtablezd2keyzd2listz00zz__hashz00(obj_t BgL_tablez00_20)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 227 */
{ /* ./Llib/hash.scm 228 */
obj_t BgL_symbol2846z00_2784;
BgL_symbol2846z00_2784 = BGl_symbol7598z00zz__hashz00; 
{ /* ./Llib/hash.scm 228 */

PUSH_TRACE(BgL_symbol2846z00_2784); BUNSPEC; 
{ /* ./Llib/hash.scm 228 */
obj_t BgL_aux2845z00_2785;
{ /* ./Llib/hash.scm 228 */
obj_t BgL_vecz00_514;
{ /* ./Llib/hash.scm 228 */
int BgL_arg1225z00_530;obj_t BgL_arg1227z00_531;
{ /* ./Llib/hash.scm 228 */
int BgL_res2714z00_1305;
{ /* ./Llib/hash.scm 228 */
bool_t BgL_test1079z00_1297;
{ /* ./Llib/hash.scm 228 */
obj_t BgL_arg1083z00_1298;obj_t BgL_arg1084z00_1299;
{ /* ./Llib/hash.scm 228 */
obj_t BgL_res2713z00_1301;
{ /* ./Llib/hash.scm 228 */
obj_t BgL_aux3626z00_3002;
BgL_aux3626z00_3002 = 
STRUCT_KEY(BgL_tablez00_20); 
if(
SYMBOLP(BgL_aux3626z00_3002))
{ /* ./Llib/hash.scm 228 */
BgL_res2713z00_1301 = BgL_aux3626z00_3002; }  else 
{ /* ./Llib/hash.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7598z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3626z00_3002, BGl_string7574z00zz__hashz00, 
BINT(((long)9248))); 
exit( -1 );} } 
BgL_arg1083z00_1298 = BgL_res2713z00_1301; } 
BgL_arg1084z00_1299 = BGl_symbol7580z00zz__hashz00; 
BgL_test1079z00_1297 = 
(BgL_arg1083z00_1298==BgL_arg1084z00_1299); } 
if(BgL_test1079z00_1297)
{ /* ./Llib/hash.scm 228 */
obj_t BgL_auxz00_4343;
{ /* ./Llib/hash.scm 228 */
obj_t BgL_aux3637z00_3004;
{ /* ./Llib/hash.scm 228 */
int BgL_auxz00_4344;
BgL_auxz00_4344 = 
(int)(((long)0)); 
BgL_aux3637z00_3004 = 
STRUCT_REF(BgL_tablez00_20, BgL_auxz00_4344); } 
if(
INTEGERP(BgL_aux3637z00_3004))
{ /* ./Llib/hash.scm 228 */
BgL_auxz00_4343 = BgL_aux3637z00_3004
; }  else 
{ /* ./Llib/hash.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7598z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_aux3637z00_3004, BGl_string7574z00zz__hashz00, 
BINT(((long)9248))); 
exit( -1 );} } 
BgL_res2714z00_1305 = 
CINT(BgL_auxz00_4343); }  else 
{ /* ./Llib/hash.scm 228 */
obj_t BgL_auxz00_4353;
{ /* ./Llib/hash.scm 228 */
obj_t BgL_aux3652z00_3006;
BgL_aux3652z00_3006 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_20, BGl_string7574z00zz__hashz00, 
BINT(((long)9248))); 
if(
INTEGERP(BgL_aux3652z00_3006))
{ /* ./Llib/hash.scm 228 */
BgL_auxz00_4353 = BgL_aux3652z00_3006
; }  else 
{ /* ./Llib/hash.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7598z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_aux3652z00_3006, BGl_string7574z00zz__hashz00, 
BINT(((long)9248))); 
exit( -1 );} } 
BgL_res2714z00_1305 = 
CINT(BgL_auxz00_4353); } } 
BgL_arg1225z00_530 = BgL_res2714z00_1305; } 
BgL_arg1227z00_531 = BUNSPEC; 
BgL_vecz00_514 = 
make_vector(BgL_arg1225z00_530, BgL_arg1227z00_531); } 
{ /* ./Llib/hash.scm 228 */
obj_t BgL_bucketsz00_515;
{ /* ./Llib/hash.scm 229 */
bool_t BgL_test1046z00_1308;
{ /* ./Llib/hash.scm 229 */
obj_t BgL_arg1050z00_1309;obj_t BgL_arg1051z00_1310;
{ /* ./Llib/hash.scm 229 */
obj_t BgL_res2716z00_1312;
{ /* ./Llib/hash.scm 229 */
obj_t BgL_aux3663z00_3009;
BgL_aux3663z00_3009 = 
STRUCT_KEY(BgL_tablez00_20); 
if(
SYMBOLP(BgL_aux3663z00_3009))
{ /* ./Llib/hash.scm 229 */
BgL_res2716z00_1312 = BgL_aux3663z00_3009; }  else 
{ /* ./Llib/hash.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7598z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3663z00_3009, BGl_string7574z00zz__hashz00, 
BINT(((long)9285))); 
exit( -1 );} } 
BgL_arg1050z00_1309 = BgL_res2716z00_1312; } 
BgL_arg1051z00_1310 = BGl_symbol7580z00zz__hashz00; 
BgL_test1046z00_1308 = 
(BgL_arg1050z00_1309==BgL_arg1051z00_1310); } 
if(BgL_test1046z00_1308)
{ /* ./Llib/hash.scm 229 */
int BgL_auxz00_4371;
BgL_auxz00_4371 = 
(int)(((long)2)); 
BgL_bucketsz00_515 = 
STRUCT_REF(BgL_tablez00_20, BgL_auxz00_4371); }  else 
{ /* ./Llib/hash.scm 229 */
BgL_bucketsz00_515 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_20, BGl_string7574z00zz__hashz00, 
BINT(((long)9285))); } } 
{ /* ./Llib/hash.scm 229 */
int BgL_bucketszd2lenzd2_516;
{ /* ./Llib/hash.scm 230 */
obj_t BgL_vectorz00_1316;
if(
VECTORP(BgL_bucketsz00_515))
{ /* ./Llib/hash.scm 230 */
BgL_vectorz00_1316 = BgL_bucketsz00_515; }  else 
{ /* ./Llib/hash.scm 230 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7598z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_515, BGl_string7574z00zz__hashz00, 
BINT(((long)9350))); 
exit( -1 );} 
BgL_bucketszd2lenzd2_516 = 
VECTOR_LENGTH(BgL_vectorz00_1316); } 
{ /* ./Llib/hash.scm 230 */

{ 
long BgL_iz00_517;obj_t BgL_resz00_518;
{ /* ./Llib/hash.scm 231 */
obj_t BgL_aux3738z00_3021;
BgL_iz00_517 = ((long)0); 
BgL_resz00_518 = BNIL; 
BgL_loopz00_519:
{ /* ./Llib/hash.scm 233 */
bool_t BgL_testz00_4382;
{ /* ./Llib/hash.scm 233 */
long BgL_auxz00_4383;
BgL_auxz00_4383 = 
(long)(BgL_bucketszd2lenzd2_516); 
BgL_testz00_4382 = 
(BgL_iz00_517==BgL_auxz00_4383); } 
if(BgL_testz00_4382)
{ /* ./Llib/hash.scm 233 */
BgL_aux3738z00_3021 = BgL_resz00_518; }  else 
{ 
obj_t BgL_bucketz00_521;obj_t BgL_resz00_522;
{ /* ./Llib/hash.scm 235 */
obj_t BgL_arg1203z00_524;
{ /* ./Llib/hash.scm 235 */
obj_t BgL_vectorz00_1319;int BgL_kz00_1320;
if(
VECTORP(BgL_bucketsz00_515))
{ /* ./Llib/hash.scm 235 */
BgL_vectorz00_1319 = BgL_bucketsz00_515; }  else 
{ /* ./Llib/hash.scm 235 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7598z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_515, BGl_string7574z00zz__hashz00, 
BINT(((long)9453))); 
exit( -1 );} 
BgL_kz00_1320 = 
(int)(BgL_iz00_517); 
{ /* ./Llib/hash.scm 235 */
bool_t BgL_test2434z00_1321;
{ /* ./Llib/hash.scm 235 */
int BgL_arg2439z00_1322;
BgL_arg2439z00_1322 = 
VECTOR_LENGTH(BgL_vectorz00_1319); 
BgL_test2434z00_1321 = 
BOUND_CHECK(BgL_kz00_1320, BgL_arg2439z00_1322); } 
if(BgL_test2434z00_1321)
{ /* ./Llib/hash.scm 235 */
BgL_arg1203z00_524 = 
VECTOR_REF(BgL_vectorz00_1319,BgL_kz00_1320); }  else 
{ /* ./Llib/hash.scm 235 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1320), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1203z00_524 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)9453))); } } } 
BgL_bucketz00_521 = BgL_arg1203z00_524; 
BgL_resz00_522 = BgL_resz00_518; 
BgL_liipz00_523:
if(
NULLP(BgL_bucketz00_521))
{ 
obj_t BgL_resz00_4404;long BgL_iz00_4402;
BgL_iz00_4402 = 
(BgL_iz00_517+((long)1)); 
BgL_resz00_4404 = BgL_resz00_522; 
BgL_resz00_518 = BgL_resz00_4404; 
BgL_iz00_517 = BgL_iz00_4402; 
goto BgL_loopz00_519;}  else 
{ /* ./Llib/hash.scm 239 */
obj_t BgL_arg1212z00_527;obj_t BgL_arg1213z00_528;
{ /* ./Llib/hash.scm 239 */
obj_t BgL_pairz00_1330;
if(
PAIRP(BgL_bucketz00_521))
{ /* ./Llib/hash.scm 239 */
BgL_pairz00_1330 = BgL_bucketz00_521; }  else 
{ /* ./Llib/hash.scm 239 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7598z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_521, BGl_string7574z00zz__hashz00, 
BINT(((long)9561))); 
exit( -1 );} 
BgL_arg1212z00_527 = 
CDR(BgL_pairz00_1330); } 
{ /* ./Llib/hash.scm 239 */
obj_t BgL_arg1217z00_529;
{ /* ./Llib/hash.scm 239 */
obj_t BgL_pairz00_1331;
if(
PAIRP(BgL_bucketz00_521))
{ /* ./Llib/hash.scm 239 */
BgL_pairz00_1331 = BgL_bucketz00_521; }  else 
{ /* ./Llib/hash.scm 239 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7598z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_521, BGl_string7574z00zz__hashz00, 
BINT(((long)9581))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 239 */
obj_t BgL_arg2409z00_1332;
BgL_arg2409z00_1332 = 
CAR(BgL_pairz00_1331); 
{ /* ./Llib/hash.scm 239 */
obj_t BgL_pairz00_1334;
if(
PAIRP(BgL_arg2409z00_1332))
{ /* ./Llib/hash.scm 239 */
BgL_pairz00_1334 = BgL_arg2409z00_1332; }  else 
{ /* ./Llib/hash.scm 239 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7598z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2409z00_1332, BGl_string7574z00zz__hashz00, 
BINT(((long)9570))); 
exit( -1 );} 
BgL_arg1217z00_529 = 
CAR(BgL_pairz00_1334); } } } 
BgL_arg1213z00_528 = 
MAKE_PAIR(BgL_arg1217z00_529, BgL_resz00_522); } 
{ 
obj_t BgL_resz00_4425;obj_t BgL_bucketz00_4424;
BgL_bucketz00_4424 = BgL_arg1212z00_527; 
BgL_resz00_4425 = BgL_arg1213z00_528; 
BgL_resz00_522 = BgL_resz00_4425; 
BgL_bucketz00_521 = BgL_bucketz00_4424; 
goto BgL_liipz00_523;} } } } } 
{ /* ./Llib/hash.scm 231 */
bool_t BgL_testz00_4426;
if(
PAIRP(BgL_aux3738z00_3021))
{ /* ./Llib/hash.scm 231 */
BgL_testz00_4426 = ((bool_t)1)
; }  else 
{ /* ./Llib/hash.scm 231 */
BgL_testz00_4426 = 
NULLP(BgL_aux3738z00_3021)
; } 
if(BgL_testz00_4426)
{ /* ./Llib/hash.scm 231 */
BgL_aux2845z00_2785 = BgL_aux3738z00_3021; }  else 
{ /* ./Llib/hash.scm 231 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7598z00zz__hashz00, BGl_string7596z00zz__hashz00, BgL_aux3738z00_3021, BGl_string7574z00zz__hashz00, 
BINT(((long)9361))); 
exit( -1 );} } } } } } } } 
POP_TRACE(); 
return BgL_aux2845z00_2785;} } } } 
}



/* _hashtable-key-list */
obj_t BGl__hashtablezd2keyzd2listz00zz__hashz00(obj_t BgL_envz00_2848, obj_t BgL_tablez00_2849)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 227 */
{ /* ./Llib/hash.scm 228 */
obj_t BgL_auxz00_4434;
if(
STRUCTP(BgL_tablez00_2849))
{ /* ./Llib/hash.scm 228 */
BgL_auxz00_4434 = BgL_tablez00_2849
; }  else 
{ /* ./Llib/hash.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7599z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_2849, BGl_string7574z00zz__hashz00, 
BINT(((long)9223))); 
exit( -1 );} 
return 
BGl_hashtablezd2keyzd2listz00zz__hashz00(BgL_auxz00_4434);} } 
}



/* hashtable-for-each */
BGL_EXPORTED_DEF obj_t BGl_hashtablezd2forzd2eachz00zz__hashz00(obj_t BgL_tablez00_21, obj_t BgL_funz00_22)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 244 */
{ /* ./Llib/hash.scm 245 */
obj_t BgL_symbol2850z00_2786;
BgL_symbol2850z00_2786 = BGl_symbol7600z00zz__hashz00; 
{ /* ./Llib/hash.scm 245 */

PUSH_TRACE(BgL_symbol2850z00_2786); BUNSPEC; 
{ /* ./Llib/hash.scm 245 */
obj_t BgL_aux2849z00_2787;
{ /* ./Llib/hash.scm 245 */
obj_t BgL_bucketsz00_532;
{ /* ./Llib/hash.scm 245 */
bool_t BgL_test1046z00_1336;
{ /* ./Llib/hash.scm 245 */
obj_t BgL_arg1050z00_1337;obj_t BgL_arg1051z00_1338;
{ /* ./Llib/hash.scm 245 */
obj_t BgL_res2717z00_1340;
{ /* ./Llib/hash.scm 245 */
obj_t BgL_aux3758z00_3025;
BgL_aux3758z00_3025 = 
STRUCT_KEY(BgL_tablez00_21); 
if(
SYMBOLP(BgL_aux3758z00_3025))
{ /* ./Llib/hash.scm 245 */
BgL_res2717z00_1340 = BgL_aux3758z00_3025; }  else 
{ /* ./Llib/hash.scm 245 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7600z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3758z00_3025, BGl_string7574z00zz__hashz00, 
BINT(((long)9896))); 
exit( -1 );} } 
BgL_arg1050z00_1337 = BgL_res2717z00_1340; } 
BgL_arg1051z00_1338 = BGl_symbol7580z00zz__hashz00; 
BgL_test1046z00_1336 = 
(BgL_arg1050z00_1337==BgL_arg1051z00_1338); } 
if(BgL_test1046z00_1336)
{ /* ./Llib/hash.scm 245 */
int BgL_auxz00_4450;
BgL_auxz00_4450 = 
(int)(((long)2)); 
BgL_bucketsz00_532 = 
STRUCT_REF(BgL_tablez00_21, BgL_auxz00_4450); }  else 
{ /* ./Llib/hash.scm 245 */
BgL_bucketsz00_532 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_21, BGl_string7574z00zz__hashz00, 
BINT(((long)9896))); } } 
{ /* ./Llib/hash.scm 245 */
int BgL_bucketszd2lenzd2_533;
{ /* ./Llib/hash.scm 246 */
obj_t BgL_vectorz00_1344;
if(
VECTORP(BgL_bucketsz00_532))
{ /* ./Llib/hash.scm 246 */
BgL_vectorz00_1344 = BgL_bucketsz00_532; }  else 
{ /* ./Llib/hash.scm 246 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7600z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_532, BGl_string7574z00zz__hashz00, 
BINT(((long)9961))); 
exit( -1 );} 
BgL_bucketszd2lenzd2_533 = 
VECTOR_LENGTH(BgL_vectorz00_1344); } 
{ /* ./Llib/hash.scm 246 */

{ 
long BgL_iz00_534;
{ /* ./Llib/hash.scm 247 */
bool_t BgL_auxz00_4461;
BgL_iz00_534 = ((long)0); 
BgL_loopz00_535:
{ /* ./Llib/hash.scm 248 */
bool_t BgL_testz00_4462;
{ /* ./Llib/hash.scm 248 */
long BgL_auxz00_4463;
BgL_auxz00_4463 = 
(long)(BgL_bucketszd2lenzd2_533); 
BgL_testz00_4462 = 
(BgL_iz00_534<BgL_auxz00_4463); } 
if(BgL_testz00_4462)
{ /* ./Llib/hash.scm 248 */
{ 
obj_t BgL_l1007z00_537;
{ /* ./Llib/hash.scm 252 */
obj_t BgL_arg1234z00_539;
{ /* ./Llib/hash.scm 252 */
obj_t BgL_vectorz00_1347;int BgL_kz00_1348;
if(
VECTORP(BgL_bucketsz00_532))
{ /* ./Llib/hash.scm 252 */
BgL_vectorz00_1347 = BgL_bucketsz00_532; }  else 
{ /* ./Llib/hash.scm 252 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7600z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_532, BGl_string7574z00zz__hashz00, 
BINT(((long)10098))); 
exit( -1 );} 
BgL_kz00_1348 = 
(int)(BgL_iz00_534); 
{ /* ./Llib/hash.scm 252 */
bool_t BgL_test2434z00_1349;
{ /* ./Llib/hash.scm 252 */
int BgL_arg2439z00_1350;
BgL_arg2439z00_1350 = 
VECTOR_LENGTH(BgL_vectorz00_1347); 
BgL_test2434z00_1349 = 
BOUND_CHECK(BgL_kz00_1348, BgL_arg2439z00_1350); } 
if(BgL_test2434z00_1349)
{ /* ./Llib/hash.scm 252 */
BgL_arg1234z00_539 = 
VECTOR_REF(BgL_vectorz00_1347,BgL_kz00_1348); }  else 
{ /* ./Llib/hash.scm 252 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1348), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1234z00_539 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)10098))); } } } 
BgL_l1007z00_537 = BgL_arg1234z00_539; 
BgL_forzd2each1008zd2_538:
{ /* ./Llib/hash.scm 250 */
bool_t BgL_test1237z00_540;
BgL_test1237z00_540 = 
PAIRP(BgL_l1007z00_537); 
if(BgL_test1237z00_540)
{ /* ./Llib/hash.scm 250 */
{ /* ./Llib/hash.scm 251 */
obj_t BgL_cellz00_541;
{ /* ./Llib/hash.scm 251 */
obj_t BgL_pairz00_1356;
if(BgL_test1237z00_540)
{ /* ./Llib/hash.scm 251 */
BgL_pairz00_1356 = BgL_l1007z00_537; }  else 
{ /* ./Llib/hash.scm 251 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7600z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_l1007z00_537, BGl_string7574z00zz__hashz00, 
BINT(((long)10064))); 
exit( -1 );} 
BgL_cellz00_541 = 
CAR(BgL_pairz00_1356); } 
{ /* ./Llib/hash.scm 251 */
obj_t BgL_arg1240z00_542;obj_t BgL_arg1241z00_543;
{ /* ./Llib/hash.scm 251 */
obj_t BgL_pairz00_1357;
if(
PAIRP(BgL_cellz00_541))
{ /* ./Llib/hash.scm 251 */
BgL_pairz00_1357 = BgL_cellz00_541; }  else 
{ /* ./Llib/hash.scm 251 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7600z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_cellz00_541, BGl_string7574z00zz__hashz00, 
BINT(((long)10077))); 
exit( -1 );} 
BgL_arg1240z00_542 = 
CAR(BgL_pairz00_1357); } 
{ /* ./Llib/hash.scm 251 */
obj_t BgL_pairz00_1358;
if(
PAIRP(BgL_cellz00_541))
{ /* ./Llib/hash.scm 251 */
BgL_pairz00_1358 = BgL_cellz00_541; }  else 
{ /* ./Llib/hash.scm 251 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7600z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_cellz00_541, BGl_string7574z00zz__hashz00, 
BINT(((long)10088))); 
exit( -1 );} 
BgL_arg1241z00_543 = 
CDR(BgL_pairz00_1358); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_22, ((long)2)))
{ /* ./Llib/hash.scm 251 */
PROCEDURE_ENTRY(BgL_funz00_22)(BgL_funz00_22, BgL_arg1240z00_542, BgL_arg1241z00_543, BEOA); }  else 
{ /* ./Llib/hash.scm 251 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7601z00zz__hashz00, BGl_list7602z00zz__hashz00, BgL_funz00_22, BGl_string7574z00zz__hashz00, 
BINT(((long)10064))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } } 
{ /* ./Llib/hash.scm 250 */
obj_t BgL_arg1249z00_544;
{ /* ./Llib/hash.scm 250 */
obj_t BgL_pairz00_1359;
if(
PAIRP(BgL_l1007z00_537))
{ /* ./Llib/hash.scm 250 */
BgL_pairz00_1359 = BgL_l1007z00_537; }  else 
{ /* ./Llib/hash.scm 250 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7600z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_l1007z00_537, BGl_string7574z00zz__hashz00, 
BINT(((long)10031))); 
exit( -1 );} 
BgL_arg1249z00_544 = 
CDR(BgL_pairz00_1359); } 
{ 
obj_t BgL_l1007z00_4512;
BgL_l1007z00_4512 = BgL_arg1249z00_544; 
BgL_l1007z00_537 = BgL_l1007z00_4512; 
goto BgL_forzd2each1008zd2_538;} } }  else 
{ /* ./Llib/hash.scm 250 */
if(
NULLP(BgL_l1007z00_537))
{ /* ./Llib/hash.scm 250 */BTRUE; }  else 
{ /* ./Llib/hash.scm 250 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7608z00zz__hashz00, BGl_string7609z00zz__hashz00, BgL_l1007z00_537, BGl_string7574z00zz__hashz00, 
BINT(((long)10031))); } } } } } 
{ 
long BgL_iz00_4517;
BgL_iz00_4517 = 
(BgL_iz00_534+((long)1)); 
BgL_iz00_534 = BgL_iz00_4517; 
goto BgL_loopz00_535;} }  else 
{ /* ./Llib/hash.scm 248 */
BgL_auxz00_4461 = ((bool_t)0)
; } } 
BgL_aux2849z00_2787 = 
BBOOL(BgL_auxz00_4461); } } } } } 
POP_TRACE(); 
return BgL_aux2849z00_2787;} } } } 
}



/* _hashtable-for-each */
obj_t BGl__hashtablezd2forzd2eachz00zz__hashz00(obj_t BgL_envz00_2850, obj_t BgL_tablez00_2851, obj_t BgL_funz00_2852)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 244 */
{ /* ./Llib/hash.scm 245 */
obj_t BgL_auxz00_4527;obj_t BgL_auxz00_4521;
if(
PROCEDUREP(BgL_funz00_2852))
{ /* ./Llib/hash.scm 245 */
BgL_auxz00_4527 = BgL_funz00_2852
; }  else 
{ /* ./Llib/hash.scm 245 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7610z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_funz00_2852, BGl_string7574z00zz__hashz00, 
BINT(((long)9880))); 
exit( -1 );} 
if(
STRUCTP(BgL_tablez00_2851))
{ /* ./Llib/hash.scm 245 */
BgL_auxz00_4521 = BgL_tablez00_2851
; }  else 
{ /* ./Llib/hash.scm 245 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7610z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_2851, BGl_string7574z00zz__hashz00, 
BINT(((long)9880))); 
exit( -1 );} 
return 
BGl_hashtablezd2forzd2eachz00zz__hashz00(BgL_auxz00_4521, BgL_auxz00_4527);} } 
}



/* hashtable-get */
BGL_EXPORTED_DEF obj_t BGl_hashtablezd2getzd2zz__hashz00(obj_t BgL_tablez00_23, obj_t BgL_keyz00_24)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 258 */
{ /* ./Llib/hash.scm 259 */
obj_t BgL_symbol2854z00_2788;
BgL_symbol2854z00_2788 = BGl_symbol7612z00zz__hashz00; 
{ /* ./Llib/hash.scm 259 */

PUSH_TRACE(BgL_symbol2854z00_2788); BUNSPEC; 
{ /* ./Llib/hash.scm 259 */
obj_t BgL_aux2853z00_2789;
{ /* ./Llib/hash.scm 259 */
obj_t BgL_bucketsz00_547;
{ /* ./Llib/hash.scm 259 */
bool_t BgL_test1046z00_1367;
{ /* ./Llib/hash.scm 259 */
obj_t BgL_arg1050z00_1368;obj_t BgL_arg1051z00_1369;
{ /* ./Llib/hash.scm 259 */
obj_t BgL_res2718z00_1371;
{ /* ./Llib/hash.scm 259 */
obj_t BgL_aux3876z00_3046;
BgL_aux3876z00_3046 = 
STRUCT_KEY(BgL_tablez00_23); 
if(
SYMBOLP(BgL_aux3876z00_3046))
{ /* ./Llib/hash.scm 259 */
BgL_res2718z00_1371 = BgL_aux3876z00_3046; }  else 
{ /* ./Llib/hash.scm 259 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7612z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux3876z00_3046, BGl_string7574z00zz__hashz00, 
BINT(((long)10435))); 
exit( -1 );} } 
BgL_arg1050z00_1368 = BgL_res2718z00_1371; } 
BgL_arg1051z00_1369 = BGl_symbol7580z00zz__hashz00; 
BgL_test1046z00_1367 = 
(BgL_arg1050z00_1368==BgL_arg1051z00_1369); } 
if(BgL_test1046z00_1367)
{ /* ./Llib/hash.scm 259 */
int BgL_auxz00_4543;
BgL_auxz00_4543 = 
(int)(((long)2)); 
BgL_bucketsz00_547 = 
STRUCT_REF(BgL_tablez00_23, BgL_auxz00_4543); }  else 
{ /* ./Llib/hash.scm 259 */
BgL_bucketsz00_547 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_23, BGl_string7574z00zz__hashz00, 
BINT(((long)10435))); } } 
{ /* ./Llib/hash.scm 259 */
int BgL_bucketzd2lenzd2_548;
{ /* ./Llib/hash.scm 260 */
obj_t BgL_vectorz00_1375;
if(
VECTORP(BgL_bucketsz00_547))
{ /* ./Llib/hash.scm 260 */
BgL_vectorz00_1375 = BgL_bucketsz00_547; }  else 
{ /* ./Llib/hash.scm 260 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7612z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_547, BGl_string7574z00zz__hashz00, 
BINT(((long)10499))); 
exit( -1 );} 
BgL_bucketzd2lenzd2_548 = 
VECTOR_LENGTH(BgL_vectorz00_1375); } 
{ /* ./Llib/hash.scm 260 */
long BgL_bucketzd2numzd2_549;
{ /* ./Llib/hash.scm 261 */
int BgL_arg1279z00_557;
BgL_arg1279z00_557 = 
BGl_getzd2hashnumberzd2zz__hashz00(BgL_keyz00_24); 
{ /* ./Llib/hash.scm 261 */
long BgL_auxz00_4557;long BgL_auxz00_4555;
BgL_auxz00_4557 = 
(long)(BgL_bucketzd2lenzd2_548); 
BgL_auxz00_4555 = 
(long)(BgL_arg1279z00_557); 
BgL_bucketzd2numzd2_549 = 
(BgL_auxz00_4555%BgL_auxz00_4557); } } 
{ /* ./Llib/hash.scm 261 */
obj_t BgL_bucketz00_550;
{ /* ./Llib/hash.scm 262 */
obj_t BgL_vectorz00_1378;int BgL_kz00_1379;
if(
VECTORP(BgL_bucketsz00_547))
{ /* ./Llib/hash.scm 262 */
BgL_vectorz00_1378 = BgL_bucketsz00_547; }  else 
{ /* ./Llib/hash.scm 262 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7612z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_547, BGl_string7574z00zz__hashz00, 
BINT(((long)10574))); 
exit( -1 );} 
BgL_kz00_1379 = 
(int)(BgL_bucketzd2numzd2_549); 
{ /* ./Llib/hash.scm 262 */
bool_t BgL_test2434z00_1380;
{ /* ./Llib/hash.scm 262 */
int BgL_arg2439z00_1381;
BgL_arg2439z00_1381 = 
VECTOR_LENGTH(BgL_vectorz00_1378); 
BgL_test2434z00_1380 = 
BOUND_CHECK(BgL_kz00_1379, BgL_arg2439z00_1381); } 
if(BgL_test2434z00_1380)
{ /* ./Llib/hash.scm 262 */
BgL_bucketz00_550 = 
VECTOR_REF(BgL_vectorz00_1378,BgL_kz00_1379); }  else 
{ /* ./Llib/hash.scm 262 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1379), "./Ieee/vector.scm", ((long)5865)); 
BgL_bucketz00_550 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)10574))); } } } 
{ /* ./Llib/hash.scm 262 */

{ 
obj_t BgL_bucketz00_551;
BgL_bucketz00_551 = BgL_bucketz00_550; 
BgL_loopz00_552:
if(
NULLP(BgL_bucketz00_551))
{ /* ./Llib/hash.scm 265 */
BgL_aux2853z00_2789 = BFALSE; }  else 
{ /* ./Llib/hash.scm 267 */
bool_t BgL_test1266z00_554;
{ /* ./Llib/hash.scm 267 */
obj_t BgL_arg1273z00_556;
{ /* ./Llib/hash.scm 267 */
obj_t BgL_pairz00_1387;
if(
PAIRP(BgL_bucketz00_551))
{ /* ./Llib/hash.scm 267 */
BgL_pairz00_1387 = BgL_bucketz00_551; }  else 
{ /* ./Llib/hash.scm 267 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7612z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_551, BGl_string7574z00zz__hashz00, 
BINT(((long)10716))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 267 */
obj_t BgL_arg2409z00_1388;
BgL_arg2409z00_1388 = 
CAR(BgL_pairz00_1387); 
{ /* ./Llib/hash.scm 267 */
obj_t BgL_pairz00_1390;
if(
PAIRP(BgL_arg2409z00_1388))
{ /* ./Llib/hash.scm 267 */
BgL_pairz00_1390 = BgL_arg2409z00_1388; }  else 
{ /* ./Llib/hash.scm 267 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7612z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2409z00_1388, BGl_string7574z00zz__hashz00, 
BINT(((long)10705))); 
exit( -1 );} 
BgL_arg1273z00_556 = 
CAR(BgL_pairz00_1390); } } } 
{ /* ./Llib/hash.scm 267 */
bool_t BgL_test1511z00_1393;
BgL_test1511z00_1393 = 
STRINGP(BgL_arg1273z00_556); 
if(BgL_test1511z00_1393)
{ /* ./Llib/hash.scm 267 */
bool_t BgL_test1512z00_1394;
BgL_test1512z00_1394 = 
STRINGP(BgL_keyz00_24); 
if(BgL_test1512z00_1394)
{ /* ./Llib/hash.scm 267 */
obj_t BgL_string1z00_1397;obj_t BgL_string2z00_1398;
if(BgL_test1511z00_1393)
{ /* ./Llib/hash.scm 267 */
BgL_string1z00_1397 = BgL_arg1273z00_556; }  else 
{ /* ./Llib/hash.scm 267 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7612z00zz__hashz00, BGl_string7613z00zz__hashz00, BgL_arg1273z00_556, BGl_string7574z00zz__hashz00, 
BINT(((long)10687))); 
exit( -1 );} 
if(BgL_test1512z00_1394)
{ /* ./Llib/hash.scm 267 */
BgL_string2z00_1398 = BgL_keyz00_24; }  else 
{ /* ./Llib/hash.scm 267 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7612z00zz__hashz00, BGl_string7613z00zz__hashz00, BgL_keyz00_24, BGl_string7574z00zz__hashz00, 
BINT(((long)10687))); 
exit( -1 );} 
BgL_test1266z00_554 = 
bigloo_strcmp(BgL_string1z00_1397, BgL_string2z00_1398); }  else 
{ /* ./Llib/hash.scm 267 */
BgL_test1266z00_554 = ((bool_t)0); } }  else 
{ /* ./Llib/hash.scm 267 */
BgL_test1266z00_554 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1273z00_556, BgL_keyz00_24); } } } 
if(BgL_test1266z00_554)
{ /* ./Llib/hash.scm 267 */
{ /* ./Llib/hash.scm 268 */
obj_t BgL_pairz00_1399;
if(
PAIRP(BgL_bucketz00_551))
{ /* ./Llib/hash.scm 268 */
BgL_pairz00_1399 = BgL_bucketz00_551; }  else 
{ /* ./Llib/hash.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7612z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_551, BGl_string7574z00zz__hashz00, 
BINT(((long)10741))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 268 */
obj_t BgL_arg2401z00_1400;
BgL_arg2401z00_1400 = 
CAR(BgL_pairz00_1399); 
{ /* ./Llib/hash.scm 268 */
obj_t BgL_pairz00_1402;
if(
PAIRP(BgL_arg2401z00_1400))
{ /* ./Llib/hash.scm 268 */
BgL_pairz00_1402 = BgL_arg2401z00_1400; }  else 
{ /* ./Llib/hash.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7612z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2401z00_1400, BGl_string7574z00zz__hashz00, 
BINT(((long)10730))); 
exit( -1 );} 
BgL_aux2853z00_2789 = 
CDR(BgL_pairz00_1402); } } } }  else 
{ /* ./Llib/hash.scm 267 */
{ /* ./Llib/hash.scm 270 */
obj_t BgL_arg1269z00_555;
{ /* ./Llib/hash.scm 270 */
obj_t BgL_pairz00_1403;
if(
PAIRP(BgL_bucketz00_551))
{ /* ./Llib/hash.scm 270 */
BgL_pairz00_1403 = BgL_bucketz00_551; }  else 
{ /* ./Llib/hash.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7612z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_551, BGl_string7574z00zz__hashz00, 
BINT(((long)10778))); 
exit( -1 );} 
BgL_arg1269z00_555 = 
CDR(BgL_pairz00_1403); } 
{ 
obj_t BgL_bucketz00_4621;
BgL_bucketz00_4621 = BgL_arg1269z00_555; 
BgL_bucketz00_551 = BgL_bucketz00_4621; 
goto BgL_loopz00_552;} } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2853z00_2789;} } } } 
}



/* _hashtable-get */
obj_t BGl__hashtablezd2getzd2zz__hashz00(obj_t BgL_envz00_2853, obj_t BgL_tablez00_2854, obj_t BgL_keyz00_2855)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 258 */
{ /* ./Llib/hash.scm 259 */
obj_t BgL_auxz00_4623;
if(
STRUCTP(BgL_tablez00_2854))
{ /* ./Llib/hash.scm 259 */
BgL_auxz00_4623 = BgL_tablez00_2854
; }  else 
{ /* ./Llib/hash.scm 259 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7614z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_2854, BGl_string7574z00zz__hashz00, 
BINT(((long)10419))); 
exit( -1 );} 
return 
BGl_hashtablezd2getzd2zz__hashz00(BgL_auxz00_4623, BgL_keyz00_2855);} } 
}



/* hashtable-put! */
BGL_EXPORTED_DEF obj_t BGl_hashtablezd2putz12zc0zz__hashz00(obj_t BgL_tablez00_25, obj_t BgL_keyz00_26, obj_t BgL_objz00_27)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 275 */
{ /* ./Llib/hash.scm 276 */
obj_t BgL_symbol2858z00_2790;
BgL_symbol2858z00_2790 = BGl_symbol7615z00zz__hashz00; 
{ /* ./Llib/hash.scm 276 */

PUSH_TRACE(BgL_symbol2858z00_2790); BUNSPEC; 
{ /* ./Llib/hash.scm 276 */
obj_t BgL_aux2857z00_2791;
{ /* ./Llib/hash.scm 276 */
obj_t BgL_bucketsz00_558;
{ /* ./Llib/hash.scm 276 */
bool_t BgL_test1046z00_1405;
{ /* ./Llib/hash.scm 276 */
obj_t BgL_arg1050z00_1406;obj_t BgL_arg1051z00_1407;
{ /* ./Llib/hash.scm 276 */
obj_t BgL_res2719z00_1409;
{ /* ./Llib/hash.scm 276 */
obj_t BgL_aux4003z00_3068;
BgL_aux4003z00_3068 = 
STRUCT_KEY(BgL_tablez00_25); 
if(
SYMBOLP(BgL_aux4003z00_3068))
{ /* ./Llib/hash.scm 276 */
BgL_res2719z00_1409 = BgL_aux4003z00_3068; }  else 
{ /* ./Llib/hash.scm 276 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4003z00_3068, BGl_string7574z00zz__hashz00, 
BINT(((long)11086))); 
exit( -1 );} } 
BgL_arg1050z00_1406 = BgL_res2719z00_1409; } 
BgL_arg1051z00_1407 = BGl_symbol7580z00zz__hashz00; 
BgL_test1046z00_1405 = 
(BgL_arg1050z00_1406==BgL_arg1051z00_1407); } 
if(BgL_test1046z00_1405)
{ /* ./Llib/hash.scm 276 */
int BgL_auxz00_4639;
BgL_auxz00_4639 = 
(int)(((long)2)); 
BgL_bucketsz00_558 = 
STRUCT_REF(BgL_tablez00_25, BgL_auxz00_4639); }  else 
{ /* ./Llib/hash.scm 276 */
BgL_bucketsz00_558 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_25, BGl_string7574z00zz__hashz00, 
BINT(((long)11086))); } } 
{ /* ./Llib/hash.scm 276 */
int BgL_bucketzd2lenzd2_559;
{ /* ./Llib/hash.scm 277 */
obj_t BgL_vectorz00_1413;
if(
VECTORP(BgL_bucketsz00_558))
{ /* ./Llib/hash.scm 277 */
BgL_vectorz00_1413 = BgL_bucketsz00_558; }  else 
{ /* ./Llib/hash.scm 277 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_558, BGl_string7574z00zz__hashz00, 
BINT(((long)11150))); 
exit( -1 );} 
BgL_bucketzd2lenzd2_559 = 
VECTOR_LENGTH(BgL_vectorz00_1413); } 
{ /* ./Llib/hash.scm 277 */
long BgL_bucketzd2numzd2_560;
{ /* ./Llib/hash.scm 278 */
int BgL_arg1342z00_585;
BgL_arg1342z00_585 = 
BGl_getzd2hashnumberzd2zz__hashz00(BgL_keyz00_26); 
{ /* ./Llib/hash.scm 278 */
long BgL_auxz00_4653;long BgL_auxz00_4651;
BgL_auxz00_4653 = 
(long)(BgL_bucketzd2lenzd2_559); 
BgL_auxz00_4651 = 
(long)(BgL_arg1342z00_585); 
BgL_bucketzd2numzd2_560 = 
(BgL_auxz00_4651%BgL_auxz00_4653); } } 
{ /* ./Llib/hash.scm 278 */
obj_t BgL_bucketz00_561;
{ /* ./Llib/hash.scm 279 */
obj_t BgL_vectorz00_1416;int BgL_kz00_1417;
if(
VECTORP(BgL_bucketsz00_558))
{ /* ./Llib/hash.scm 279 */
BgL_vectorz00_1416 = BgL_bucketsz00_558; }  else 
{ /* ./Llib/hash.scm 279 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_558, BGl_string7574z00zz__hashz00, 
BINT(((long)11225))); 
exit( -1 );} 
BgL_kz00_1417 = 
(int)(BgL_bucketzd2numzd2_560); 
{ /* ./Llib/hash.scm 279 */
bool_t BgL_test2434z00_1418;
{ /* ./Llib/hash.scm 279 */
int BgL_arg2439z00_1419;
BgL_arg2439z00_1419 = 
VECTOR_LENGTH(BgL_vectorz00_1416); 
BgL_test2434z00_1418 = 
BOUND_CHECK(BgL_kz00_1417, BgL_arg2439z00_1419); } 
if(BgL_test2434z00_1418)
{ /* ./Llib/hash.scm 279 */
BgL_bucketz00_561 = 
VECTOR_REF(BgL_vectorz00_1416,BgL_kz00_1417); }  else 
{ /* ./Llib/hash.scm 279 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1417), "./Ieee/vector.scm", ((long)5865)); 
BgL_bucketz00_561 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)11225))); } } } 
{ /* ./Llib/hash.scm 279 */
obj_t BgL_maxzd2bucketzd2lenz00_562;
{ /* ./Llib/hash.scm 280 */
bool_t BgL_test1062z00_1425;
{ /* ./Llib/hash.scm 280 */
obj_t BgL_arg1066z00_1426;obj_t BgL_arg1067z00_1427;
{ /* ./Llib/hash.scm 280 */
obj_t BgL_res2720z00_1429;
{ /* ./Llib/hash.scm 280 */
obj_t BgL_aux4049z00_3074;
BgL_aux4049z00_3074 = 
STRUCT_KEY(BgL_tablez00_25); 
if(
SYMBOLP(BgL_aux4049z00_3074))
{ /* ./Llib/hash.scm 280 */
BgL_res2720z00_1429 = BgL_aux4049z00_3074; }  else 
{ /* ./Llib/hash.scm 280 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4049z00_3074, BGl_string7574z00zz__hashz00, 
BINT(((long)11277))); 
exit( -1 );} } 
BgL_arg1066z00_1426 = BgL_res2720z00_1429; } 
BgL_arg1067z00_1427 = BGl_symbol7580z00zz__hashz00; 
BgL_test1062z00_1425 = 
(BgL_arg1066z00_1426==BgL_arg1067z00_1427); } 
if(BgL_test1062z00_1425)
{ /* ./Llib/hash.scm 280 */
int BgL_auxz00_4678;
BgL_auxz00_4678 = 
(int)(((long)1)); 
BgL_maxzd2bucketzd2lenz00_562 = 
STRUCT_REF(BgL_tablez00_25, BgL_auxz00_4678); }  else 
{ /* ./Llib/hash.scm 280 */
BgL_maxzd2bucketzd2lenz00_562 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_25, BGl_string7574z00zz__hashz00, 
BINT(((long)11277))); } } 
{ /* ./Llib/hash.scm 280 */

if(
NULLP(BgL_bucketz00_561))
{ /* ./Llib/hash.scm 281 */
{ /* ./Llib/hash.scm 283 */
long BgL_arg1286z00_564;
{ /* ./Llib/hash.scm 283 */
obj_t BgL_arg1289z00_565;
{ /* ./Llib/hash.scm 283 */
bool_t BgL_test1079z00_1435;
{ /* ./Llib/hash.scm 283 */
obj_t BgL_arg1083z00_1436;obj_t BgL_arg1084z00_1437;
{ /* ./Llib/hash.scm 283 */
obj_t BgL_res2721z00_1439;
{ /* ./Llib/hash.scm 283 */
obj_t BgL_aux4064z00_3076;
BgL_aux4064z00_3076 = 
STRUCT_KEY(BgL_tablez00_25); 
if(
SYMBOLP(BgL_aux4064z00_3076))
{ /* ./Llib/hash.scm 283 */
BgL_res2721z00_1439 = BgL_aux4064z00_3076; }  else 
{ /* ./Llib/hash.scm 283 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4064z00_3076, BGl_string7574z00zz__hashz00, 
BINT(((long)11387))); 
exit( -1 );} } 
BgL_arg1083z00_1436 = BgL_res2721z00_1439; } 
BgL_arg1084z00_1437 = BGl_symbol7580z00zz__hashz00; 
BgL_test1079z00_1435 = 
(BgL_arg1083z00_1436==BgL_arg1084z00_1437); } 
if(BgL_test1079z00_1435)
{ /* ./Llib/hash.scm 283 */
int BgL_auxz00_4693;
BgL_auxz00_4693 = 
(int)(((long)0)); 
BgL_arg1289z00_565 = 
STRUCT_REF(BgL_tablez00_25, BgL_auxz00_4693); }  else 
{ /* ./Llib/hash.scm 283 */
BgL_arg1289z00_565 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_25, BGl_string7574z00zz__hashz00, 
BINT(((long)11387))); } } 
{ /* ./Llib/hash.scm 283 */
long BgL_za71za7_1443;
{ /* ./Llib/hash.scm 283 */
obj_t BgL_auxz00_4698;
if(
INTEGERP(BgL_arg1289z00_565))
{ /* ./Llib/hash.scm 283 */
BgL_auxz00_4698 = BgL_arg1289z00_565
; }  else 
{ /* ./Llib/hash.scm 283 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1289z00_565, BGl_string7574z00zz__hashz00, 
BINT(((long)11382))); 
exit( -1 );} 
BgL_za71za7_1443 = 
(long)CINT(BgL_auxz00_4698); } 
BgL_arg1286z00_564 = 
(BgL_za71za7_1443+((long)1)); } } 
{ /* ./Llib/hash.scm 283 */
bool_t BgL_test1087z00_1447;
{ /* ./Llib/hash.scm 283 */
obj_t BgL_arg1091z00_1448;obj_t BgL_arg1092z00_1449;
{ /* ./Llib/hash.scm 283 */
obj_t BgL_res2722z00_1451;
{ /* ./Llib/hash.scm 283 */
obj_t BgL_aux4090z00_3080;
BgL_aux4090z00_3080 = 
STRUCT_KEY(BgL_tablez00_25); 
if(
SYMBOLP(BgL_aux4090z00_3080))
{ /* ./Llib/hash.scm 283 */
BgL_res2722z00_1451 = BgL_aux4090z00_3080; }  else 
{ /* ./Llib/hash.scm 283 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4090z00_3080, BGl_string7574z00zz__hashz00, 
BINT(((long)11354))); 
exit( -1 );} } 
BgL_arg1091z00_1448 = BgL_res2722z00_1451; } 
BgL_arg1092z00_1449 = BGl_symbol7580z00zz__hashz00; 
BgL_test1087z00_1447 = 
(BgL_arg1091z00_1448==BgL_arg1092z00_1449); } 
if(BgL_test1087z00_1447)
{ /* ./Llib/hash.scm 283 */
obj_t BgL_auxz00_4716;int BgL_auxz00_4714;
BgL_auxz00_4716 = 
BINT(BgL_arg1286z00_564); 
BgL_auxz00_4714 = 
(int)(((long)0)); 
STRUCT_SET(BgL_tablez00_25, BgL_auxz00_4714, BgL_auxz00_4716); }  else 
{ /* ./Llib/hash.scm 283 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_25, BGl_string7574z00zz__hashz00, 
BINT(((long)11354))); } } } 
{ /* ./Llib/hash.scm 284 */
obj_t BgL_arg1294z00_567;
{ /* ./Llib/hash.scm 284 */
obj_t BgL_arg1297z00_568;
BgL_arg1297z00_568 = 
MAKE_PAIR(BgL_keyz00_26, BgL_objz00_27); 
{ /* ./Llib/hash.scm 284 */
obj_t BgL_list1299z00_569;
BgL_list1299z00_569 = 
MAKE_PAIR(BgL_arg1297z00_568, BNIL); 
{ /* ./Llib/hash.scm 284 */
obj_t BgL_res2723z00_1456;
if(((bool_t)1))
{ /* ./Llib/hash.scm 284 */
BgL_res2723z00_1456 = BgL_list1299z00_569; }  else 
{ /* ./Llib/hash.scm 284 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7596z00zz__hashz00, BgL_list1299z00_569, BGl_string7574z00zz__hashz00, 
BINT(((long)11453))); 
exit( -1 );} 
BgL_arg1294z00_567 = BgL_res2723z00_1456; } } } 
{ /* ./Llib/hash.scm 284 */
obj_t BgL_vectorz00_1457;int BgL_kz00_1458;
if(
VECTORP(BgL_bucketsz00_558))
{ /* ./Llib/hash.scm 284 */
BgL_vectorz00_1457 = BgL_bucketsz00_558; }  else 
{ /* ./Llib/hash.scm 284 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_558, BGl_string7574z00zz__hashz00, 
BINT(((long)11440))); 
exit( -1 );} 
BgL_kz00_1458 = 
(int)(BgL_bucketzd2numzd2_560); 
{ /* ./Llib/hash.scm 284 */
bool_t BgL_test2426z00_1460;
{ /* ./Llib/hash.scm 284 */
int BgL_arg2431z00_1461;
BgL_arg2431z00_1461 = 
VECTOR_LENGTH(BgL_vectorz00_1457); 
BgL_test2426z00_1460 = 
BOUND_CHECK(BgL_kz00_1458, BgL_arg2431z00_1461); } 
if(BgL_test2426z00_1460)
{ /* ./Llib/hash.scm 284 */
VECTOR_SET(BgL_vectorz00_1457,BgL_kz00_1458,BgL_arg1294z00_567); }  else 
{ /* ./Llib/hash.scm 284 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7591z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1458), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)11421))); } } } } 
BgL_aux2857z00_2791 = BgL_objz00_27; }  else 
{ 
obj_t BgL_buckz00_570;long BgL_countz00_571;
BgL_buckz00_570 = BgL_bucketz00_561; 
BgL_countz00_571 = ((long)0); 
BgL_loopz00_572:
if(
NULLP(BgL_buckz00_570))
{ /* ./Llib/hash.scm 289 */
{ /* ./Llib/hash.scm 290 */
long BgL_arg1305z00_574;
{ /* ./Llib/hash.scm 290 */
obj_t BgL_arg1308z00_575;
{ /* ./Llib/hash.scm 290 */
bool_t BgL_test1079z00_1468;
{ /* ./Llib/hash.scm 290 */
obj_t BgL_arg1083z00_1469;obj_t BgL_arg1084z00_1470;
{ /* ./Llib/hash.scm 290 */
obj_t BgL_res2724z00_1472;
{ /* ./Llib/hash.scm 290 */
obj_t BgL_aux4135z00_3086;
BgL_aux4135z00_3086 = 
STRUCT_KEY(BgL_tablez00_25); 
if(
SYMBOLP(BgL_aux4135z00_3086))
{ /* ./Llib/hash.scm 290 */
BgL_res2724z00_1472 = BgL_aux4135z00_3086; }  else 
{ /* ./Llib/hash.scm 290 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4135z00_3086, BGl_string7574z00zz__hashz00, 
BINT(((long)11597))); 
exit( -1 );} } 
BgL_arg1083z00_1469 = BgL_res2724z00_1472; } 
BgL_arg1084z00_1470 = BGl_symbol7580z00zz__hashz00; 
BgL_test1079z00_1468 = 
(BgL_arg1083z00_1469==BgL_arg1084z00_1470); } 
if(BgL_test1079z00_1468)
{ /* ./Llib/hash.scm 290 */
int BgL_auxz00_4751;
BgL_auxz00_4751 = 
(int)(((long)0)); 
BgL_arg1308z00_575 = 
STRUCT_REF(BgL_tablez00_25, BgL_auxz00_4751); }  else 
{ /* ./Llib/hash.scm 290 */
BgL_arg1308z00_575 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_25, BGl_string7574z00zz__hashz00, 
BINT(((long)11597))); } } 
{ /* ./Llib/hash.scm 290 */
long BgL_za71za7_1476;
{ /* ./Llib/hash.scm 290 */
obj_t BgL_auxz00_4756;
if(
INTEGERP(BgL_arg1308z00_575))
{ /* ./Llib/hash.scm 290 */
BgL_auxz00_4756 = BgL_arg1308z00_575
; }  else 
{ /* ./Llib/hash.scm 290 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1308z00_575, BGl_string7574z00zz__hashz00, 
BINT(((long)11592))); 
exit( -1 );} 
BgL_za71za7_1476 = 
(long)CINT(BgL_auxz00_4756); } 
BgL_arg1305z00_574 = 
(BgL_za71za7_1476+((long)1)); } } 
{ /* ./Llib/hash.scm 290 */
bool_t BgL_test1087z00_1480;
{ /* ./Llib/hash.scm 290 */
obj_t BgL_arg1091z00_1481;obj_t BgL_arg1092z00_1482;
{ /* ./Llib/hash.scm 290 */
obj_t BgL_res2725z00_1484;
{ /* ./Llib/hash.scm 290 */
obj_t BgL_aux4161z00_3090;
BgL_aux4161z00_3090 = 
STRUCT_KEY(BgL_tablez00_25); 
if(
SYMBOLP(BgL_aux4161z00_3090))
{ /* ./Llib/hash.scm 290 */
BgL_res2725z00_1484 = BgL_aux4161z00_3090; }  else 
{ /* ./Llib/hash.scm 290 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4161z00_3090, BGl_string7574z00zz__hashz00, 
BINT(((long)11564))); 
exit( -1 );} } 
BgL_arg1091z00_1481 = BgL_res2725z00_1484; } 
BgL_arg1092z00_1482 = BGl_symbol7580z00zz__hashz00; 
BgL_test1087z00_1480 = 
(BgL_arg1091z00_1481==BgL_arg1092z00_1482); } 
if(BgL_test1087z00_1480)
{ /* ./Llib/hash.scm 290 */
obj_t BgL_auxz00_4774;int BgL_auxz00_4772;
BgL_auxz00_4774 = 
BINT(BgL_arg1305z00_574); 
BgL_auxz00_4772 = 
(int)(((long)0)); 
STRUCT_SET(BgL_tablez00_25, BgL_auxz00_4772, BgL_auxz00_4774); }  else 
{ /* ./Llib/hash.scm 290 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_25, BGl_string7574z00zz__hashz00, 
BINT(((long)11564))); } } } 
{ /* ./Llib/hash.scm 291 */
obj_t BgL_arg1313z00_577;
{ /* ./Llib/hash.scm 291 */
obj_t BgL_arg1316z00_578;
BgL_arg1316z00_578 = 
MAKE_PAIR(BgL_keyz00_26, BgL_objz00_27); 
BgL_arg1313z00_577 = 
MAKE_PAIR(BgL_arg1316z00_578, BgL_bucketz00_561); } 
{ /* ./Llib/hash.scm 291 */
obj_t BgL_vectorz00_1488;int BgL_kz00_1489;
if(
VECTORP(BgL_bucketsz00_558))
{ /* ./Llib/hash.scm 291 */
BgL_vectorz00_1488 = BgL_bucketsz00_558; }  else 
{ /* ./Llib/hash.scm 291 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_558, BGl_string7574z00zz__hashz00, 
BINT(((long)11628))); 
exit( -1 );} 
BgL_kz00_1489 = 
(int)(BgL_bucketzd2numzd2_560); 
{ /* ./Llib/hash.scm 291 */
bool_t BgL_test2426z00_1491;
{ /* ./Llib/hash.scm 291 */
int BgL_arg2431z00_1492;
BgL_arg2431z00_1492 = 
VECTOR_LENGTH(BgL_vectorz00_1488); 
BgL_test2426z00_1491 = 
BOUND_CHECK(BgL_kz00_1489, BgL_arg2431z00_1492); } 
if(BgL_test2426z00_1491)
{ /* ./Llib/hash.scm 291 */
VECTOR_SET(BgL_vectorz00_1488,BgL_kz00_1489,BgL_arg1313z00_577); }  else 
{ /* ./Llib/hash.scm 291 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7591z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1489), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)11628))); } } } } 
{ /* ./Llib/hash.scm 292 */
bool_t BgL_test1319z00_579;
{ /* ./Llib/hash.scm 292 */
long BgL_n2z00_1498;
{ /* ./Llib/hash.scm 292 */
obj_t BgL_auxz00_4795;
if(
INTEGERP(BgL_maxzd2bucketzd2lenz00_562))
{ /* ./Llib/hash.scm 292 */
BgL_auxz00_4795 = BgL_maxzd2bucketzd2lenz00_562
; }  else 
{ /* ./Llib/hash.scm 292 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_maxzd2bucketzd2lenz00_562, BGl_string7574z00zz__hashz00, 
BINT(((long)11721))); 
exit( -1 );} 
BgL_n2z00_1498 = 
(long)CINT(BgL_auxz00_4795); } 
BgL_test1319z00_579 = 
(BgL_countz00_571>BgL_n2z00_1498); } 
if(BgL_test1319z00_579)
{ /* ./Llib/hash.scm 292 */
BGl_hashtablezd2expandz12zc0zz__hashz00(BgL_tablez00_25); }  else 
{ /* ./Llib/hash.scm 292 */((bool_t)0); } } 
BgL_aux2857z00_2791 = BgL_objz00_27; }  else 
{ /* ./Llib/hash.scm 295 */
bool_t BgL_test1322z00_580;
{ /* ./Llib/hash.scm 295 */
obj_t BgL_arg1334z00_584;
{ /* ./Llib/hash.scm 295 */
obj_t BgL_pairz00_1499;
if(
PAIRP(BgL_buckz00_570))
{ /* ./Llib/hash.scm 295 */
BgL_pairz00_1499 = BgL_buckz00_570; }  else 
{ /* ./Llib/hash.scm 295 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_buckz00_570, BGl_string7574z00zz__hashz00, 
BINT(((long)11796))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 295 */
obj_t BgL_arg2409z00_1500;
BgL_arg2409z00_1500 = 
CAR(BgL_pairz00_1499); 
{ /* ./Llib/hash.scm 295 */
obj_t BgL_pairz00_1502;
if(
PAIRP(BgL_arg2409z00_1500))
{ /* ./Llib/hash.scm 295 */
BgL_pairz00_1502 = BgL_arg2409z00_1500; }  else 
{ /* ./Llib/hash.scm 295 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2409z00_1500, BGl_string7574z00zz__hashz00, 
BINT(((long)11787))); 
exit( -1 );} 
BgL_arg1334z00_584 = 
CAR(BgL_pairz00_1502); } } } 
{ /* ./Llib/hash.scm 295 */
bool_t BgL_test1511z00_1505;
BgL_test1511z00_1505 = 
STRINGP(BgL_arg1334z00_584); 
if(BgL_test1511z00_1505)
{ /* ./Llib/hash.scm 295 */
bool_t BgL_test1512z00_1506;
BgL_test1512z00_1506 = 
STRINGP(BgL_keyz00_26); 
if(BgL_test1512z00_1506)
{ /* ./Llib/hash.scm 295 */
obj_t BgL_string1z00_1509;obj_t BgL_string2z00_1510;
if(BgL_test1511z00_1505)
{ /* ./Llib/hash.scm 295 */
BgL_string1z00_1509 = BgL_arg1334z00_584; }  else 
{ /* ./Llib/hash.scm 295 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7613z00zz__hashz00, BgL_arg1334z00_584, BGl_string7574z00zz__hashz00, 
BINT(((long)11769))); 
exit( -1 );} 
if(BgL_test1512z00_1506)
{ /* ./Llib/hash.scm 295 */
BgL_string2z00_1510 = BgL_keyz00_26; }  else 
{ /* ./Llib/hash.scm 295 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7613z00zz__hashz00, BgL_keyz00_26, BGl_string7574z00zz__hashz00, 
BINT(((long)11769))); 
exit( -1 );} 
BgL_test1322z00_580 = 
bigloo_strcmp(BgL_string1z00_1509, BgL_string2z00_1510); }  else 
{ /* ./Llib/hash.scm 295 */
BgL_test1322z00_580 = ((bool_t)0); } }  else 
{ /* ./Llib/hash.scm 295 */
BgL_test1322z00_580 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1334z00_584, BgL_keyz00_26); } } } 
if(BgL_test1322z00_580)
{ /* ./Llib/hash.scm 295 */
{ /* ./Llib/hash.scm 296 */
obj_t BgL_arg1324z00_581;
{ /* ./Llib/hash.scm 296 */
obj_t BgL_pairz00_1511;
if(
PAIRP(BgL_buckz00_570))
{ /* ./Llib/hash.scm 296 */
BgL_pairz00_1511 = BgL_buckz00_570; }  else 
{ /* ./Llib/hash.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_buckz00_570, BGl_string7574z00zz__hashz00, 
BINT(((long)11825))); 
exit( -1 );} 
BgL_arg1324z00_581 = 
CAR(BgL_pairz00_1511); } 
{ /* ./Llib/hash.scm 296 */
obj_t BgL_pairz00_1512;
if(
PAIRP(BgL_arg1324z00_581))
{ /* ./Llib/hash.scm 296 */
BgL_pairz00_1512 = BgL_arg1324z00_581; }  else 
{ /* ./Llib/hash.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg1324z00_581, BGl_string7574z00zz__hashz00, 
BINT(((long)11826))); 
exit( -1 );} 
BgL_aux2857z00_2791 = 
SET_CDR(BgL_pairz00_1512, BgL_objz00_27); } } }  else 
{ /* ./Llib/hash.scm 295 */
{ /* ./Llib/hash.scm 298 */
obj_t BgL_arg1328z00_582;long BgL_arg1329z00_583;
{ /* ./Llib/hash.scm 298 */
obj_t BgL_pairz00_1514;
if(
PAIRP(BgL_buckz00_570))
{ /* ./Llib/hash.scm 298 */
BgL_pairz00_1514 = BgL_buckz00_570; }  else 
{ /* ./Llib/hash.scm 298 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7615z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_buckz00_570, BGl_string7574z00zz__hashz00, 
BINT(((long)11859))); 
exit( -1 );} 
BgL_arg1328z00_582 = 
CDR(BgL_pairz00_1514); } 
BgL_arg1329z00_583 = 
(BgL_countz00_571+((long)1)); 
{ 
long BgL_countz00_4852;obj_t BgL_buckz00_4851;
BgL_buckz00_4851 = BgL_arg1328z00_582; 
BgL_countz00_4852 = BgL_arg1329z00_583; 
BgL_countz00_571 = BgL_countz00_4852; 
BgL_buckz00_570 = BgL_buckz00_4851; 
goto BgL_loopz00_572;} } } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2857z00_2791;} } } } 
}



/* _hashtable-put! */
obj_t BGl__hashtablezd2putz12zc0zz__hashz00(obj_t BgL_envz00_2856, obj_t BgL_tablez00_2857, obj_t BgL_keyz00_2858, obj_t BgL_objz00_2859)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 275 */
{ /* ./Llib/hash.scm 276 */
obj_t BgL_auxz00_4854;
if(
STRUCTP(BgL_tablez00_2857))
{ /* ./Llib/hash.scm 276 */
BgL_auxz00_4854 = BgL_tablez00_2857
; }  else 
{ /* ./Llib/hash.scm 276 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7616z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_2857, BGl_string7574z00zz__hashz00, 
BINT(((long)11070))); 
exit( -1 );} 
return 
BGl_hashtablezd2putz12zc0zz__hashz00(BgL_auxz00_4854, BgL_keyz00_2858, BgL_objz00_2859);} } 
}



/* hashtable-update! */
BGL_EXPORTED_DEF obj_t BGl_hashtablezd2updatez12zc0zz__hashz00(obj_t BgL_tablez00_28, obj_t BgL_keyz00_29, obj_t BgL_procz00_30, obj_t BgL_objz00_31)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 303 */
{ /* ./Llib/hash.scm 304 */
obj_t BgL_symbol2862z00_2792;
BgL_symbol2862z00_2792 = BGl_symbol7617z00zz__hashz00; 
{ /* ./Llib/hash.scm 304 */

PUSH_TRACE(BgL_symbol2862z00_2792); BUNSPEC; 
{ /* ./Llib/hash.scm 304 */
obj_t BgL_aux2861z00_2793;
{ /* ./Llib/hash.scm 304 */
obj_t BgL_bucketsz00_586;
{ /* ./Llib/hash.scm 304 */
bool_t BgL_test1046z00_1518;
{ /* ./Llib/hash.scm 304 */
obj_t BgL_arg1050z00_1519;obj_t BgL_arg1051z00_1520;
{ /* ./Llib/hash.scm 304 */
obj_t BgL_res2726z00_1522;
{ /* ./Llib/hash.scm 304 */
obj_t BgL_aux4287z00_3112;
BgL_aux4287z00_3112 = 
STRUCT_KEY(BgL_tablez00_28); 
if(
SYMBOLP(BgL_aux4287z00_3112))
{ /* ./Llib/hash.scm 304 */
BgL_res2726z00_1522 = BgL_aux4287z00_3112; }  else 
{ /* ./Llib/hash.scm 304 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4287z00_3112, BGl_string7574z00zz__hashz00, 
BINT(((long)12196))); 
exit( -1 );} } 
BgL_arg1050z00_1519 = BgL_res2726z00_1522; } 
BgL_arg1051z00_1520 = BGl_symbol7580z00zz__hashz00; 
BgL_test1046z00_1518 = 
(BgL_arg1050z00_1519==BgL_arg1051z00_1520); } 
if(BgL_test1046z00_1518)
{ /* ./Llib/hash.scm 304 */
int BgL_auxz00_4870;
BgL_auxz00_4870 = 
(int)(((long)2)); 
BgL_bucketsz00_586 = 
STRUCT_REF(BgL_tablez00_28, BgL_auxz00_4870); }  else 
{ /* ./Llib/hash.scm 304 */
BgL_bucketsz00_586 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_28, BGl_string7574z00zz__hashz00, 
BINT(((long)12196))); } } 
{ /* ./Llib/hash.scm 304 */
int BgL_bucketzd2lenzd2_587;
{ /* ./Llib/hash.scm 305 */
obj_t BgL_vectorz00_1526;
if(
VECTORP(BgL_bucketsz00_586))
{ /* ./Llib/hash.scm 305 */
BgL_vectorz00_1526 = BgL_bucketsz00_586; }  else 
{ /* ./Llib/hash.scm 305 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_586, BGl_string7574z00zz__hashz00, 
BINT(((long)12260))); 
exit( -1 );} 
BgL_bucketzd2lenzd2_587 = 
VECTOR_LENGTH(BgL_vectorz00_1526); } 
{ /* ./Llib/hash.scm 305 */
long BgL_bucketzd2numzd2_588;
{ /* ./Llib/hash.scm 306 */
int BgL_arg1415z00_615;
BgL_arg1415z00_615 = 
BGl_getzd2hashnumberzd2zz__hashz00(BgL_keyz00_29); 
{ /* ./Llib/hash.scm 306 */
long BgL_auxz00_4884;long BgL_auxz00_4882;
BgL_auxz00_4884 = 
(long)(BgL_bucketzd2lenzd2_587); 
BgL_auxz00_4882 = 
(long)(BgL_arg1415z00_615); 
BgL_bucketzd2numzd2_588 = 
(BgL_auxz00_4882%BgL_auxz00_4884); } } 
{ /* ./Llib/hash.scm 306 */
obj_t BgL_bucketz00_589;
{ /* ./Llib/hash.scm 307 */
obj_t BgL_vectorz00_1529;int BgL_kz00_1530;
if(
VECTORP(BgL_bucketsz00_586))
{ /* ./Llib/hash.scm 307 */
BgL_vectorz00_1529 = BgL_bucketsz00_586; }  else 
{ /* ./Llib/hash.scm 307 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_586, BGl_string7574z00zz__hashz00, 
BINT(((long)12335))); 
exit( -1 );} 
BgL_kz00_1530 = 
(int)(BgL_bucketzd2numzd2_588); 
{ /* ./Llib/hash.scm 307 */
bool_t BgL_test2434z00_1531;
{ /* ./Llib/hash.scm 307 */
int BgL_arg2439z00_1532;
BgL_arg2439z00_1532 = 
VECTOR_LENGTH(BgL_vectorz00_1529); 
BgL_test2434z00_1531 = 
BOUND_CHECK(BgL_kz00_1530, BgL_arg2439z00_1532); } 
if(BgL_test2434z00_1531)
{ /* ./Llib/hash.scm 307 */
BgL_bucketz00_589 = 
VECTOR_REF(BgL_vectorz00_1529,BgL_kz00_1530); }  else 
{ /* ./Llib/hash.scm 307 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1530), "./Ieee/vector.scm", ((long)5865)); 
BgL_bucketz00_589 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)12335))); } } } 
{ /* ./Llib/hash.scm 307 */
obj_t BgL_maxzd2bucketzd2lenz00_590;
{ /* ./Llib/hash.scm 308 */
bool_t BgL_test1062z00_1538;
{ /* ./Llib/hash.scm 308 */
obj_t BgL_arg1066z00_1539;obj_t BgL_arg1067z00_1540;
{ /* ./Llib/hash.scm 308 */
obj_t BgL_res2727z00_1542;
{ /* ./Llib/hash.scm 308 */
obj_t BgL_aux4333z00_3118;
BgL_aux4333z00_3118 = 
STRUCT_KEY(BgL_tablez00_28); 
if(
SYMBOLP(BgL_aux4333z00_3118))
{ /* ./Llib/hash.scm 308 */
BgL_res2727z00_1542 = BgL_aux4333z00_3118; }  else 
{ /* ./Llib/hash.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4333z00_3118, BGl_string7574z00zz__hashz00, 
BINT(((long)12387))); 
exit( -1 );} } 
BgL_arg1066z00_1539 = BgL_res2727z00_1542; } 
BgL_arg1067z00_1540 = BGl_symbol7580z00zz__hashz00; 
BgL_test1062z00_1538 = 
(BgL_arg1066z00_1539==BgL_arg1067z00_1540); } 
if(BgL_test1062z00_1538)
{ /* ./Llib/hash.scm 308 */
int BgL_auxz00_4909;
BgL_auxz00_4909 = 
(int)(((long)1)); 
BgL_maxzd2bucketzd2lenz00_590 = 
STRUCT_REF(BgL_tablez00_28, BgL_auxz00_4909); }  else 
{ /* ./Llib/hash.scm 308 */
BgL_maxzd2bucketzd2lenz00_590 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_28, BGl_string7574z00zz__hashz00, 
BINT(((long)12387))); } } 
{ /* ./Llib/hash.scm 308 */

if(
NULLP(BgL_bucketz00_589))
{ /* ./Llib/hash.scm 309 */
{ /* ./Llib/hash.scm 311 */
long BgL_arg1349z00_592;
{ /* ./Llib/hash.scm 311 */
obj_t BgL_arg1352z00_593;
{ /* ./Llib/hash.scm 311 */
bool_t BgL_test1079z00_1548;
{ /* ./Llib/hash.scm 311 */
obj_t BgL_arg1083z00_1549;obj_t BgL_arg1084z00_1550;
{ /* ./Llib/hash.scm 311 */
obj_t BgL_res2728z00_1552;
{ /* ./Llib/hash.scm 311 */
obj_t BgL_aux4348z00_3120;
BgL_aux4348z00_3120 = 
STRUCT_KEY(BgL_tablez00_28); 
if(
SYMBOLP(BgL_aux4348z00_3120))
{ /* ./Llib/hash.scm 311 */
BgL_res2728z00_1552 = BgL_aux4348z00_3120; }  else 
{ /* ./Llib/hash.scm 311 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4348z00_3120, BGl_string7574z00zz__hashz00, 
BINT(((long)12497))); 
exit( -1 );} } 
BgL_arg1083z00_1549 = BgL_res2728z00_1552; } 
BgL_arg1084z00_1550 = BGl_symbol7580z00zz__hashz00; 
BgL_test1079z00_1548 = 
(BgL_arg1083z00_1549==BgL_arg1084z00_1550); } 
if(BgL_test1079z00_1548)
{ /* ./Llib/hash.scm 311 */
int BgL_auxz00_4924;
BgL_auxz00_4924 = 
(int)(((long)0)); 
BgL_arg1352z00_593 = 
STRUCT_REF(BgL_tablez00_28, BgL_auxz00_4924); }  else 
{ /* ./Llib/hash.scm 311 */
BgL_arg1352z00_593 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_28, BGl_string7574z00zz__hashz00, 
BINT(((long)12497))); } } 
{ /* ./Llib/hash.scm 311 */
long BgL_za71za7_1556;
{ /* ./Llib/hash.scm 311 */
obj_t BgL_auxz00_4929;
if(
INTEGERP(BgL_arg1352z00_593))
{ /* ./Llib/hash.scm 311 */
BgL_auxz00_4929 = BgL_arg1352z00_593
; }  else 
{ /* ./Llib/hash.scm 311 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1352z00_593, BGl_string7574z00zz__hashz00, 
BINT(((long)12492))); 
exit( -1 );} 
BgL_za71za7_1556 = 
(long)CINT(BgL_auxz00_4929); } 
BgL_arg1349z00_592 = 
(BgL_za71za7_1556+((long)1)); } } 
{ /* ./Llib/hash.scm 311 */
bool_t BgL_test1087z00_1560;
{ /* ./Llib/hash.scm 311 */
obj_t BgL_arg1091z00_1561;obj_t BgL_arg1092z00_1562;
{ /* ./Llib/hash.scm 311 */
obj_t BgL_res2729z00_1564;
{ /* ./Llib/hash.scm 311 */
obj_t BgL_aux4374z00_3124;
BgL_aux4374z00_3124 = 
STRUCT_KEY(BgL_tablez00_28); 
if(
SYMBOLP(BgL_aux4374z00_3124))
{ /* ./Llib/hash.scm 311 */
BgL_res2729z00_1564 = BgL_aux4374z00_3124; }  else 
{ /* ./Llib/hash.scm 311 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4374z00_3124, BGl_string7574z00zz__hashz00, 
BINT(((long)12464))); 
exit( -1 );} } 
BgL_arg1091z00_1561 = BgL_res2729z00_1564; } 
BgL_arg1092z00_1562 = BGl_symbol7580z00zz__hashz00; 
BgL_test1087z00_1560 = 
(BgL_arg1091z00_1561==BgL_arg1092z00_1562); } 
if(BgL_test1087z00_1560)
{ /* ./Llib/hash.scm 311 */
obj_t BgL_auxz00_4947;int BgL_auxz00_4945;
BgL_auxz00_4947 = 
BINT(BgL_arg1349z00_592); 
BgL_auxz00_4945 = 
(int)(((long)0)); 
STRUCT_SET(BgL_tablez00_28, BgL_auxz00_4945, BgL_auxz00_4947); }  else 
{ /* ./Llib/hash.scm 311 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_28, BGl_string7574z00zz__hashz00, 
BINT(((long)12464))); } } } 
{ /* ./Llib/hash.scm 312 */
obj_t BgL_arg1358z00_595;
{ /* ./Llib/hash.scm 312 */
obj_t BgL_arg1361z00_596;
BgL_arg1361z00_596 = 
MAKE_PAIR(BgL_keyz00_29, BgL_objz00_31); 
{ /* ./Llib/hash.scm 312 */
obj_t BgL_list1363z00_597;
BgL_list1363z00_597 = 
MAKE_PAIR(BgL_arg1361z00_596, BNIL); 
{ /* ./Llib/hash.scm 312 */
obj_t BgL_res2730z00_1569;
if(((bool_t)1))
{ /* ./Llib/hash.scm 312 */
BgL_res2730z00_1569 = BgL_list1363z00_597; }  else 
{ /* ./Llib/hash.scm 312 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7596z00zz__hashz00, BgL_list1363z00_597, BGl_string7574z00zz__hashz00, 
BINT(((long)12563))); 
exit( -1 );} 
BgL_arg1358z00_595 = BgL_res2730z00_1569; } } } 
{ /* ./Llib/hash.scm 312 */
obj_t BgL_vectorz00_1570;int BgL_kz00_1571;
if(
VECTORP(BgL_bucketsz00_586))
{ /* ./Llib/hash.scm 312 */
BgL_vectorz00_1570 = BgL_bucketsz00_586; }  else 
{ /* ./Llib/hash.scm 312 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_586, BGl_string7574z00zz__hashz00, 
BINT(((long)12550))); 
exit( -1 );} 
BgL_kz00_1571 = 
(int)(BgL_bucketzd2numzd2_588); 
{ /* ./Llib/hash.scm 312 */
bool_t BgL_test2426z00_1573;
{ /* ./Llib/hash.scm 312 */
int BgL_arg2431z00_1574;
BgL_arg2431z00_1574 = 
VECTOR_LENGTH(BgL_vectorz00_1570); 
BgL_test2426z00_1573 = 
BOUND_CHECK(BgL_kz00_1571, BgL_arg2431z00_1574); } 
if(BgL_test2426z00_1573)
{ /* ./Llib/hash.scm 312 */
VECTOR_SET(BgL_vectorz00_1570,BgL_kz00_1571,BgL_arg1358z00_595); }  else 
{ /* ./Llib/hash.scm 312 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7591z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1571), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)12531))); } } } } 
BgL_aux2861z00_2793 = BgL_objz00_31; }  else 
{ 
obj_t BgL_buckz00_598;long BgL_countz00_599;
BgL_buckz00_598 = BgL_bucketz00_589; 
BgL_countz00_599 = ((long)0); 
BgL_loopz00_600:
if(
NULLP(BgL_buckz00_598))
{ /* ./Llib/hash.scm 317 */
{ /* ./Llib/hash.scm 318 */
long BgL_arg1370z00_602;
{ /* ./Llib/hash.scm 318 */
obj_t BgL_arg1374z00_603;
{ /* ./Llib/hash.scm 318 */
bool_t BgL_test1079z00_1581;
{ /* ./Llib/hash.scm 318 */
obj_t BgL_arg1083z00_1582;obj_t BgL_arg1084z00_1583;
{ /* ./Llib/hash.scm 318 */
obj_t BgL_res2731z00_1585;
{ /* ./Llib/hash.scm 318 */
obj_t BgL_aux4419z00_3130;
BgL_aux4419z00_3130 = 
STRUCT_KEY(BgL_tablez00_28); 
if(
SYMBOLP(BgL_aux4419z00_3130))
{ /* ./Llib/hash.scm 318 */
BgL_res2731z00_1585 = BgL_aux4419z00_3130; }  else 
{ /* ./Llib/hash.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4419z00_3130, BGl_string7574z00zz__hashz00, 
BINT(((long)12707))); 
exit( -1 );} } 
BgL_arg1083z00_1582 = BgL_res2731z00_1585; } 
BgL_arg1084z00_1583 = BGl_symbol7580z00zz__hashz00; 
BgL_test1079z00_1581 = 
(BgL_arg1083z00_1582==BgL_arg1084z00_1583); } 
if(BgL_test1079z00_1581)
{ /* ./Llib/hash.scm 318 */
int BgL_auxz00_4982;
BgL_auxz00_4982 = 
(int)(((long)0)); 
BgL_arg1374z00_603 = 
STRUCT_REF(BgL_tablez00_28, BgL_auxz00_4982); }  else 
{ /* ./Llib/hash.scm 318 */
BgL_arg1374z00_603 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_28, BGl_string7574z00zz__hashz00, 
BINT(((long)12707))); } } 
{ /* ./Llib/hash.scm 318 */
long BgL_za71za7_1589;
{ /* ./Llib/hash.scm 318 */
obj_t BgL_auxz00_4987;
if(
INTEGERP(BgL_arg1374z00_603))
{ /* ./Llib/hash.scm 318 */
BgL_auxz00_4987 = BgL_arg1374z00_603
; }  else 
{ /* ./Llib/hash.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1374z00_603, BGl_string7574z00zz__hashz00, 
BINT(((long)12702))); 
exit( -1 );} 
BgL_za71za7_1589 = 
(long)CINT(BgL_auxz00_4987); } 
BgL_arg1370z00_602 = 
(BgL_za71za7_1589+((long)1)); } } 
{ /* ./Llib/hash.scm 318 */
bool_t BgL_test1087z00_1593;
{ /* ./Llib/hash.scm 318 */
obj_t BgL_arg1091z00_1594;obj_t BgL_arg1092z00_1595;
{ /* ./Llib/hash.scm 318 */
obj_t BgL_res2732z00_1597;
{ /* ./Llib/hash.scm 318 */
obj_t BgL_aux4445z00_3134;
BgL_aux4445z00_3134 = 
STRUCT_KEY(BgL_tablez00_28); 
if(
SYMBOLP(BgL_aux4445z00_3134))
{ /* ./Llib/hash.scm 318 */
BgL_res2732z00_1597 = BgL_aux4445z00_3134; }  else 
{ /* ./Llib/hash.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4445z00_3134, BGl_string7574z00zz__hashz00, 
BINT(((long)12674))); 
exit( -1 );} } 
BgL_arg1091z00_1594 = BgL_res2732z00_1597; } 
BgL_arg1092z00_1595 = BGl_symbol7580z00zz__hashz00; 
BgL_test1087z00_1593 = 
(BgL_arg1091z00_1594==BgL_arg1092z00_1595); } 
if(BgL_test1087z00_1593)
{ /* ./Llib/hash.scm 318 */
obj_t BgL_auxz00_5005;int BgL_auxz00_5003;
BgL_auxz00_5005 = 
BINT(BgL_arg1370z00_602); 
BgL_auxz00_5003 = 
(int)(((long)0)); 
STRUCT_SET(BgL_tablez00_28, BgL_auxz00_5003, BgL_auxz00_5005); }  else 
{ /* ./Llib/hash.scm 318 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_28, BGl_string7574z00zz__hashz00, 
BINT(((long)12674))); } } } 
{ /* ./Llib/hash.scm 319 */
obj_t BgL_arg1380z00_605;
{ /* ./Llib/hash.scm 319 */
obj_t BgL_arg1383z00_606;
BgL_arg1383z00_606 = 
MAKE_PAIR(BgL_keyz00_29, BgL_objz00_31); 
BgL_arg1380z00_605 = 
MAKE_PAIR(BgL_arg1383z00_606, BgL_bucketz00_589); } 
{ /* ./Llib/hash.scm 319 */
obj_t BgL_vectorz00_1601;int BgL_kz00_1602;
if(
VECTORP(BgL_bucketsz00_586))
{ /* ./Llib/hash.scm 319 */
BgL_vectorz00_1601 = BgL_bucketsz00_586; }  else 
{ /* ./Llib/hash.scm 319 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_586, BGl_string7574z00zz__hashz00, 
BINT(((long)12738))); 
exit( -1 );} 
BgL_kz00_1602 = 
(int)(BgL_bucketzd2numzd2_588); 
{ /* ./Llib/hash.scm 319 */
bool_t BgL_test2426z00_1604;
{ /* ./Llib/hash.scm 319 */
int BgL_arg2431z00_1605;
BgL_arg2431z00_1605 = 
VECTOR_LENGTH(BgL_vectorz00_1601); 
BgL_test2426z00_1604 = 
BOUND_CHECK(BgL_kz00_1602, BgL_arg2431z00_1605); } 
if(BgL_test2426z00_1604)
{ /* ./Llib/hash.scm 319 */
VECTOR_SET(BgL_vectorz00_1601,BgL_kz00_1602,BgL_arg1380z00_605); }  else 
{ /* ./Llib/hash.scm 319 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7591z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1602), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)12738))); } } } } 
{ /* ./Llib/hash.scm 320 */
bool_t BgL_test1386z00_607;
{ /* ./Llib/hash.scm 320 */
long BgL_n2z00_1611;
{ /* ./Llib/hash.scm 320 */
obj_t BgL_auxz00_5026;
if(
INTEGERP(BgL_maxzd2bucketzd2lenz00_590))
{ /* ./Llib/hash.scm 320 */
BgL_auxz00_5026 = BgL_maxzd2bucketzd2lenz00_590
; }  else 
{ /* ./Llib/hash.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_maxzd2bucketzd2lenz00_590, BGl_string7574z00zz__hashz00, 
BINT(((long)12831))); 
exit( -1 );} 
BgL_n2z00_1611 = 
(long)CINT(BgL_auxz00_5026); } 
BgL_test1386z00_607 = 
(BgL_countz00_599>BgL_n2z00_1611); } 
if(BgL_test1386z00_607)
{ /* ./Llib/hash.scm 320 */
BGl_hashtablezd2expandz12zc0zz__hashz00(BgL_tablez00_28); }  else 
{ /* ./Llib/hash.scm 320 */((bool_t)0); } } 
BgL_aux2861z00_2793 = BgL_objz00_31; }  else 
{ /* ./Llib/hash.scm 323 */
bool_t BgL_test1389z00_608;
{ /* ./Llib/hash.scm 323 */
obj_t BgL_arg1407z00_614;
{ /* ./Llib/hash.scm 323 */
obj_t BgL_pairz00_1612;
if(
PAIRP(BgL_buckz00_598))
{ /* ./Llib/hash.scm 323 */
BgL_pairz00_1612 = BgL_buckz00_598; }  else 
{ /* ./Llib/hash.scm 323 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_buckz00_598, BGl_string7574z00zz__hashz00, 
BINT(((long)12906))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 323 */
obj_t BgL_arg2409z00_1613;
BgL_arg2409z00_1613 = 
CAR(BgL_pairz00_1612); 
{ /* ./Llib/hash.scm 323 */
obj_t BgL_pairz00_1615;
if(
PAIRP(BgL_arg2409z00_1613))
{ /* ./Llib/hash.scm 323 */
BgL_pairz00_1615 = BgL_arg2409z00_1613; }  else 
{ /* ./Llib/hash.scm 323 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2409z00_1613, BGl_string7574z00zz__hashz00, 
BINT(((long)12897))); 
exit( -1 );} 
BgL_arg1407z00_614 = 
CAR(BgL_pairz00_1615); } } } 
{ /* ./Llib/hash.scm 323 */
bool_t BgL_test1511z00_1618;
BgL_test1511z00_1618 = 
STRINGP(BgL_arg1407z00_614); 
if(BgL_test1511z00_1618)
{ /* ./Llib/hash.scm 323 */
bool_t BgL_test1512z00_1619;
BgL_test1512z00_1619 = 
STRINGP(BgL_keyz00_29); 
if(BgL_test1512z00_1619)
{ /* ./Llib/hash.scm 323 */
obj_t BgL_string1z00_1622;obj_t BgL_string2z00_1623;
if(BgL_test1511z00_1618)
{ /* ./Llib/hash.scm 323 */
BgL_string1z00_1622 = BgL_arg1407z00_614; }  else 
{ /* ./Llib/hash.scm 323 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7613z00zz__hashz00, BgL_arg1407z00_614, BGl_string7574z00zz__hashz00, 
BINT(((long)12879))); 
exit( -1 );} 
if(BgL_test1512z00_1619)
{ /* ./Llib/hash.scm 323 */
BgL_string2z00_1623 = BgL_keyz00_29; }  else 
{ /* ./Llib/hash.scm 323 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7613z00zz__hashz00, BgL_keyz00_29, BGl_string7574z00zz__hashz00, 
BINT(((long)12879))); 
exit( -1 );} 
BgL_test1389z00_608 = 
bigloo_strcmp(BgL_string1z00_1622, BgL_string2z00_1623); }  else 
{ /* ./Llib/hash.scm 323 */
BgL_test1389z00_608 = ((bool_t)0); } }  else 
{ /* ./Llib/hash.scm 323 */
BgL_test1389z00_608 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1407z00_614, BgL_keyz00_29); } } } 
if(BgL_test1389z00_608)
{ /* ./Llib/hash.scm 323 */
{ /* ./Llib/hash.scm 324 */
obj_t BgL_arg1392z00_609;obj_t BgL_arg1393z00_610;
{ /* ./Llib/hash.scm 324 */
obj_t BgL_pairz00_1624;
if(
PAIRP(BgL_buckz00_598))
{ /* ./Llib/hash.scm 324 */
BgL_pairz00_1624 = BgL_buckz00_598; }  else 
{ /* ./Llib/hash.scm 324 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_buckz00_598, BGl_string7574z00zz__hashz00, 
BINT(((long)12935))); 
exit( -1 );} 
BgL_arg1392z00_609 = 
CAR(BgL_pairz00_1624); } 
{ /* ./Llib/hash.scm 324 */
obj_t BgL_arg1397z00_611;
{ /* ./Llib/hash.scm 324 */
obj_t BgL_pairz00_1625;
if(
PAIRP(BgL_buckz00_598))
{ /* ./Llib/hash.scm 324 */
BgL_pairz00_1625 = BgL_buckz00_598; }  else 
{ /* ./Llib/hash.scm 324 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_buckz00_598, BGl_string7574z00zz__hashz00, 
BINT(((long)12953))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 324 */
obj_t BgL_arg2401z00_1626;
BgL_arg2401z00_1626 = 
CAR(BgL_pairz00_1625); 
{ /* ./Llib/hash.scm 324 */
obj_t BgL_pairz00_1628;
if(
PAIRP(BgL_arg2401z00_1626))
{ /* ./Llib/hash.scm 324 */
BgL_pairz00_1628 = BgL_arg2401z00_1626; }  else 
{ /* ./Llib/hash.scm 324 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2401z00_1626, BGl_string7574z00zz__hashz00, 
BINT(((long)12944))); 
exit( -1 );} 
BgL_arg1397z00_611 = 
CDR(BgL_pairz00_1628); } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_procz00_30, ((long)1)))
{ /* ./Llib/hash.scm 324 */
BgL_arg1393z00_610 = 
PROCEDURE_ENTRY(BgL_procz00_30)(BgL_procz00_30, BgL_arg1397z00_611, BEOA); }  else 
{ /* ./Llib/hash.scm 324 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7618z00zz__hashz00, BGl_list7619z00zz__hashz00, BgL_procz00_30, BGl_string7574z00zz__hashz00, 
BINT(((long)12938))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } 
{ /* ./Llib/hash.scm 324 */
obj_t BgL_pairz00_1629;
if(
PAIRP(BgL_arg1392z00_609))
{ /* ./Llib/hash.scm 324 */
BgL_pairz00_1629 = BgL_arg1392z00_609; }  else 
{ /* ./Llib/hash.scm 324 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg1392z00_609, BGl_string7574z00zz__hashz00, 
BINT(((long)12936))); 
exit( -1 );} 
BgL_aux2861z00_2793 = 
SET_CDR(BgL_pairz00_1629, BgL_arg1393z00_610); } } }  else 
{ /* ./Llib/hash.scm 323 */
{ /* ./Llib/hash.scm 326 */
obj_t BgL_arg1401z00_612;long BgL_arg1402z00_613;
{ /* ./Llib/hash.scm 326 */
obj_t BgL_pairz00_1631;
if(
PAIRP(BgL_buckz00_598))
{ /* ./Llib/hash.scm 326 */
BgL_pairz00_1631 = BgL_buckz00_598; }  else 
{ /* ./Llib/hash.scm 326 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7617z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_buckz00_598, BGl_string7574z00zz__hashz00, 
BINT(((long)12984))); 
exit( -1 );} 
BgL_arg1401z00_612 = 
CDR(BgL_pairz00_1631); } 
BgL_arg1402z00_613 = 
(BgL_countz00_599+((long)1)); 
{ 
long BgL_countz00_5102;obj_t BgL_buckz00_5101;
BgL_buckz00_5101 = BgL_arg1401z00_612; 
BgL_countz00_5102 = BgL_arg1402z00_613; 
BgL_countz00_599 = BgL_countz00_5102; 
BgL_buckz00_598 = BgL_buckz00_5101; 
goto BgL_loopz00_600;} } } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2861z00_2793;} } } } 
}



/* _hashtable-update!3077 */
obj_t BGl__hashtablezd2updatez123077zc0zz__hashz00(obj_t BgL_envz00_2860, obj_t BgL_tablez00_2861, obj_t BgL_keyz00_2862, obj_t BgL_procz00_2863, obj_t BgL_objz00_2864)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 303 */
{ /* ./Llib/hash.scm 304 */
obj_t BgL_auxz00_5110;obj_t BgL_auxz00_5104;
if(
PROCEDUREP(BgL_procz00_2863))
{ /* ./Llib/hash.scm 304 */
BgL_auxz00_5110 = BgL_procz00_2863
; }  else 
{ /* ./Llib/hash.scm 304 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7622z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_procz00_2863, BGl_string7574z00zz__hashz00, 
BINT(((long)12180))); 
exit( -1 );} 
if(
STRUCTP(BgL_tablez00_2861))
{ /* ./Llib/hash.scm 304 */
BgL_auxz00_5104 = BgL_tablez00_2861
; }  else 
{ /* ./Llib/hash.scm 304 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7622z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_2861, BGl_string7574z00zz__hashz00, 
BINT(((long)12180))); 
exit( -1 );} 
return 
BGl_hashtablezd2updatez12zc0zz__hashz00(BgL_auxz00_5104, BgL_keyz00_2862, BgL_auxz00_5110, BgL_objz00_2864);} } 
}



/* hashtable-remove! */
BGL_EXPORTED_DEF bool_t BGl_hashtablezd2removez12zc0zz__hashz00(obj_t BgL_tablez00_32, obj_t BgL_keyz00_33)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 331 */
{ /* ./Llib/hash.scm 332 */
obj_t BgL_symbol2866z00_2794;
BgL_symbol2866z00_2794 = BGl_symbol7623z00zz__hashz00; 
{ /* ./Llib/hash.scm 332 */

PUSH_TRACE(BgL_symbol2866z00_2794); BUNSPEC; 
{ /* ./Llib/hash.scm 332 */
bool_t BgL_aux2865z00_2795;
{ /* ./Llib/hash.scm 332 */
obj_t BgL_bucketsz00_616;
{ /* ./Llib/hash.scm 332 */
bool_t BgL_test1046z00_1635;
{ /* ./Llib/hash.scm 332 */
obj_t BgL_arg1050z00_1636;obj_t BgL_arg1051z00_1637;
{ /* ./Llib/hash.scm 332 */
obj_t BgL_res2733z00_1639;
{ /* ./Llib/hash.scm 332 */
obj_t BgL_aux4608z00_3165;
BgL_aux4608z00_3165 = 
STRUCT_KEY(BgL_tablez00_32); 
if(
SYMBOLP(BgL_aux4608z00_3165))
{ /* ./Llib/hash.scm 332 */
BgL_res2733z00_1639 = BgL_aux4608z00_3165; }  else 
{ /* ./Llib/hash.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4608z00_3165, BGl_string7574z00zz__hashz00, 
BINT(((long)13304))); 
exit( -1 );} } 
BgL_arg1050z00_1636 = BgL_res2733z00_1639; } 
BgL_arg1051z00_1637 = BGl_symbol7580z00zz__hashz00; 
BgL_test1046z00_1635 = 
(BgL_arg1050z00_1636==BgL_arg1051z00_1637); } 
if(BgL_test1046z00_1635)
{ /* ./Llib/hash.scm 332 */
int BgL_auxz00_5126;
BgL_auxz00_5126 = 
(int)(((long)2)); 
BgL_bucketsz00_616 = 
STRUCT_REF(BgL_tablez00_32, BgL_auxz00_5126); }  else 
{ /* ./Llib/hash.scm 332 */
BgL_bucketsz00_616 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_32, BGl_string7574z00zz__hashz00, 
BINT(((long)13304))); } } 
{ /* ./Llib/hash.scm 332 */
int BgL_bucketzd2lenzd2_617;
{ /* ./Llib/hash.scm 333 */
obj_t BgL_vectorz00_1643;
if(
VECTORP(BgL_bucketsz00_616))
{ /* ./Llib/hash.scm 333 */
BgL_vectorz00_1643 = BgL_bucketsz00_616; }  else 
{ /* ./Llib/hash.scm 333 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_616, BGl_string7574z00zz__hashz00, 
BINT(((long)13368))); 
exit( -1 );} 
BgL_bucketzd2lenzd2_617 = 
VECTOR_LENGTH(BgL_vectorz00_1643); } 
{ /* ./Llib/hash.scm 333 */
long BgL_bucketzd2numzd2_618;
{ /* ./Llib/hash.scm 334 */
int BgL_arg1468z00_639;
BgL_arg1468z00_639 = 
BGl_getzd2hashnumberzd2zz__hashz00(BgL_keyz00_33); 
{ /* ./Llib/hash.scm 334 */
long BgL_auxz00_5140;long BgL_auxz00_5138;
BgL_auxz00_5140 = 
(long)(BgL_bucketzd2lenzd2_617); 
BgL_auxz00_5138 = 
(long)(BgL_arg1468z00_639); 
BgL_bucketzd2numzd2_618 = 
(BgL_auxz00_5138%BgL_auxz00_5140); } } 
{ /* ./Llib/hash.scm 334 */
obj_t BgL_bucketz00_619;
{ /* ./Llib/hash.scm 335 */
obj_t BgL_vectorz00_1646;int BgL_kz00_1647;
if(
VECTORP(BgL_bucketsz00_616))
{ /* ./Llib/hash.scm 335 */
BgL_vectorz00_1646 = BgL_bucketsz00_616; }  else 
{ /* ./Llib/hash.scm 335 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_616, BGl_string7574z00zz__hashz00, 
BINT(((long)13443))); 
exit( -1 );} 
BgL_kz00_1647 = 
(int)(BgL_bucketzd2numzd2_618); 
{ /* ./Llib/hash.scm 335 */
bool_t BgL_test2434z00_1648;
{ /* ./Llib/hash.scm 335 */
int BgL_arg2439z00_1649;
BgL_arg2439z00_1649 = 
VECTOR_LENGTH(BgL_vectorz00_1646); 
BgL_test2434z00_1648 = 
BOUND_CHECK(BgL_kz00_1647, BgL_arg2439z00_1649); } 
if(BgL_test2434z00_1648)
{ /* ./Llib/hash.scm 335 */
BgL_bucketz00_619 = 
VECTOR_REF(BgL_vectorz00_1646,BgL_kz00_1647); }  else 
{ /* ./Llib/hash.scm 335 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1647), "./Ieee/vector.scm", ((long)5865)); 
BgL_bucketz00_619 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)13443))); } } } 
{ /* ./Llib/hash.scm 335 */

if(
NULLP(BgL_bucketz00_619))
{ /* ./Llib/hash.scm 337 */
BgL_aux2865z00_2795 = ((bool_t)0); }  else 
{ /* ./Llib/hash.scm 339 */
bool_t BgL_test1421z00_621;
{ /* ./Llib/hash.scm 339 */
obj_t BgL_arg1462z00_638;
{ /* ./Llib/hash.scm 339 */
obj_t BgL_pairz00_1655;
if(
PAIRP(BgL_bucketz00_619))
{ /* ./Llib/hash.scm 339 */
BgL_pairz00_1655 = BgL_bucketz00_619; }  else 
{ /* ./Llib/hash.scm 339 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_619, BGl_string7574z00zz__hashz00, 
BINT(((long)13546))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 339 */
obj_t BgL_arg2409z00_1656;
BgL_arg2409z00_1656 = 
CAR(BgL_pairz00_1655); 
{ /* ./Llib/hash.scm 339 */
obj_t BgL_pairz00_1658;
if(
PAIRP(BgL_arg2409z00_1656))
{ /* ./Llib/hash.scm 339 */
BgL_pairz00_1658 = BgL_arg2409z00_1656; }  else 
{ /* ./Llib/hash.scm 339 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2409z00_1656, BGl_string7574z00zz__hashz00, 
BINT(((long)13535))); 
exit( -1 );} 
BgL_arg1462z00_638 = 
CAR(BgL_pairz00_1658); } } } 
{ /* ./Llib/hash.scm 339 */
bool_t BgL_test1511z00_1661;
BgL_test1511z00_1661 = 
STRINGP(BgL_arg1462z00_638); 
if(BgL_test1511z00_1661)
{ /* ./Llib/hash.scm 339 */
bool_t BgL_test1512z00_1662;
BgL_test1512z00_1662 = 
STRINGP(BgL_keyz00_33); 
if(BgL_test1512z00_1662)
{ /* ./Llib/hash.scm 339 */
obj_t BgL_string1z00_1665;obj_t BgL_string2z00_1666;
if(BgL_test1511z00_1661)
{ /* ./Llib/hash.scm 339 */
BgL_string1z00_1665 = BgL_arg1462z00_638; }  else 
{ /* ./Llib/hash.scm 339 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7613z00zz__hashz00, BgL_arg1462z00_638, BGl_string7574z00zz__hashz00, 
BINT(((long)13517))); 
exit( -1 );} 
if(BgL_test1512z00_1662)
{ /* ./Llib/hash.scm 339 */
BgL_string2z00_1666 = BgL_keyz00_33; }  else 
{ /* ./Llib/hash.scm 339 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7613z00zz__hashz00, BgL_keyz00_33, BGl_string7574z00zz__hashz00, 
BINT(((long)13517))); 
exit( -1 );} 
BgL_test1421z00_621 = 
bigloo_strcmp(BgL_string1z00_1665, BgL_string2z00_1666); }  else 
{ /* ./Llib/hash.scm 339 */
BgL_test1421z00_621 = ((bool_t)0); } }  else 
{ /* ./Llib/hash.scm 339 */
BgL_test1421z00_621 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1462z00_638, BgL_keyz00_33); } } } 
if(BgL_test1421z00_621)
{ /* ./Llib/hash.scm 339 */
{ /* ./Llib/hash.scm 340 */
obj_t BgL_arg1423z00_622;
{ /* ./Llib/hash.scm 340 */
obj_t BgL_pairz00_1667;
if(
PAIRP(BgL_bucketz00_619))
{ /* ./Llib/hash.scm 340 */
BgL_pairz00_1667 = BgL_bucketz00_619; }  else 
{ /* ./Llib/hash.scm 340 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_619, BGl_string7574z00zz__hashz00, 
BINT(((long)13599))); 
exit( -1 );} 
BgL_arg1423z00_622 = 
CDR(BgL_pairz00_1667); } 
{ /* ./Llib/hash.scm 340 */
obj_t BgL_vectorz00_1668;int BgL_kz00_1669;
if(
VECTORP(BgL_bucketsz00_616))
{ /* ./Llib/hash.scm 340 */
BgL_vectorz00_1668 = BgL_bucketsz00_616; }  else 
{ /* ./Llib/hash.scm 340 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_bucketsz00_616, BGl_string7574z00zz__hashz00, 
BINT(((long)13557))); 
exit( -1 );} 
BgL_kz00_1669 = 
(int)(BgL_bucketzd2numzd2_618); 
{ /* ./Llib/hash.scm 340 */
bool_t BgL_test2426z00_1671;
{ /* ./Llib/hash.scm 340 */
int BgL_arg2431z00_1672;
BgL_arg2431z00_1672 = 
VECTOR_LENGTH(BgL_vectorz00_1668); 
BgL_test2426z00_1671 = 
BOUND_CHECK(BgL_kz00_1669, BgL_arg2431z00_1672); } 
if(BgL_test2426z00_1671)
{ /* ./Llib/hash.scm 340 */
VECTOR_SET(BgL_vectorz00_1668,BgL_kz00_1669,BgL_arg1423z00_622); }  else 
{ /* ./Llib/hash.scm 340 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7591z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1669), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)13557))); } } } } 
{ /* ./Llib/hash.scm 341 */
long BgL_arg1427z00_623;
{ /* ./Llib/hash.scm 341 */
obj_t BgL_arg1430z00_624;
{ /* ./Llib/hash.scm 341 */
bool_t BgL_test1079z00_1678;
{ /* ./Llib/hash.scm 341 */
obj_t BgL_arg1083z00_1679;obj_t BgL_arg1084z00_1680;
{ /* ./Llib/hash.scm 341 */
obj_t BgL_res2734z00_1682;
{ /* ./Llib/hash.scm 341 */
obj_t BgL_aux4723z00_3183;
BgL_aux4723z00_3183 = 
STRUCT_KEY(BgL_tablez00_32); 
if(
SYMBOLP(BgL_aux4723z00_3183))
{ /* ./Llib/hash.scm 341 */
BgL_res2734z00_1682 = BgL_aux4723z00_3183; }  else 
{ /* ./Llib/hash.scm 341 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4723z00_3183, BGl_string7574z00zz__hashz00, 
BINT(((long)13639))); 
exit( -1 );} } 
BgL_arg1083z00_1679 = BgL_res2734z00_1682; } 
BgL_arg1084z00_1680 = BGl_symbol7580z00zz__hashz00; 
BgL_test1079z00_1678 = 
(BgL_arg1083z00_1679==BgL_arg1084z00_1680); } 
if(BgL_test1079z00_1678)
{ /* ./Llib/hash.scm 341 */
int BgL_auxz00_5214;
BgL_auxz00_5214 = 
(int)(((long)0)); 
BgL_arg1430z00_624 = 
STRUCT_REF(BgL_tablez00_32, BgL_auxz00_5214); }  else 
{ /* ./Llib/hash.scm 341 */
BgL_arg1430z00_624 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_32, BGl_string7574z00zz__hashz00, 
BINT(((long)13639))); } } 
{ /* ./Llib/hash.scm 341 */
long BgL_za71za7_1686;
{ /* ./Llib/hash.scm 341 */
obj_t BgL_auxz00_5219;
if(
INTEGERP(BgL_arg1430z00_624))
{ /* ./Llib/hash.scm 341 */
BgL_auxz00_5219 = BgL_arg1430z00_624
; }  else 
{ /* ./Llib/hash.scm 341 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1430z00_624, BGl_string7574z00zz__hashz00, 
BINT(((long)13634))); 
exit( -1 );} 
BgL_za71za7_1686 = 
(long)CINT(BgL_auxz00_5219); } 
BgL_arg1427z00_623 = 
(BgL_za71za7_1686-((long)1)); } } 
{ /* ./Llib/hash.scm 341 */
bool_t BgL_test1087z00_1690;
{ /* ./Llib/hash.scm 341 */
obj_t BgL_arg1091z00_1691;obj_t BgL_arg1092z00_1692;
{ /* ./Llib/hash.scm 341 */
obj_t BgL_res2735z00_1694;
{ /* ./Llib/hash.scm 341 */
obj_t BgL_aux4749z00_3187;
BgL_aux4749z00_3187 = 
STRUCT_KEY(BgL_tablez00_32); 
if(
SYMBOLP(BgL_aux4749z00_3187))
{ /* ./Llib/hash.scm 341 */
BgL_res2735z00_1694 = BgL_aux4749z00_3187; }  else 
{ /* ./Llib/hash.scm 341 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4749z00_3187, BGl_string7574z00zz__hashz00, 
BINT(((long)13606))); 
exit( -1 );} } 
BgL_arg1091z00_1691 = BgL_res2735z00_1694; } 
BgL_arg1092z00_1692 = BGl_symbol7580z00zz__hashz00; 
BgL_test1087z00_1690 = 
(BgL_arg1091z00_1691==BgL_arg1092z00_1692); } 
if(BgL_test1087z00_1690)
{ /* ./Llib/hash.scm 341 */
obj_t BgL_auxz00_5237;int BgL_auxz00_5235;
BgL_auxz00_5237 = 
BINT(BgL_arg1427z00_623); 
BgL_auxz00_5235 = 
(int)(((long)0)); 
STRUCT_SET(BgL_tablez00_32, BgL_auxz00_5235, BgL_auxz00_5237); }  else 
{ /* ./Llib/hash.scm 341 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_32, BGl_string7574z00zz__hashz00, 
BINT(((long)13606))); } } } 
BgL_aux2865z00_2795 = ((bool_t)1); }  else 
{ /* ./Llib/hash.scm 339 */
{ 
obj_t BgL_bucketz00_626;obj_t BgL_prevz00_627;
{ /* ./Llib/hash.scm 344 */
obj_t BgL_arg1435z00_629;
{ /* ./Llib/hash.scm 344 */
obj_t BgL_pairz00_1698;
if(
PAIRP(BgL_bucketz00_619))
{ /* ./Llib/hash.scm 344 */
BgL_pairz00_1698 = BgL_bucketz00_619; }  else 
{ /* ./Llib/hash.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_619, BGl_string7574z00zz__hashz00, 
BINT(((long)13714))); 
exit( -1 );} 
BgL_arg1435z00_629 = 
CDR(BgL_pairz00_1698); } 
BgL_bucketz00_626 = BgL_arg1435z00_629; 
BgL_prevz00_627 = BgL_bucketz00_619; 
BgL_loopz00_628:
{ /* ./Llib/hash.scm 346 */
bool_t BgL_test1438z00_630;
BgL_test1438z00_630 = 
PAIRP(BgL_bucketz00_626); 
if(BgL_test1438z00_630)
{ /* ./Llib/hash.scm 347 */
bool_t BgL_test1439z00_631;
{ /* ./Llib/hash.scm 347 */
obj_t BgL_arg1457z00_637;
{ /* ./Llib/hash.scm 347 */
obj_t BgL_pairz00_1700;
if(BgL_test1438z00_630)
{ /* ./Llib/hash.scm 347 */
BgL_pairz00_1700 = BgL_bucketz00_626; }  else 
{ /* ./Llib/hash.scm 347 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_626, BGl_string7574z00zz__hashz00, 
BINT(((long)13801))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 347 */
obj_t BgL_arg2409z00_1701;
BgL_arg2409z00_1701 = 
CAR(BgL_pairz00_1700); 
{ /* ./Llib/hash.scm 347 */
obj_t BgL_pairz00_1703;
if(
PAIRP(BgL_arg2409z00_1701))
{ /* ./Llib/hash.scm 347 */
BgL_pairz00_1703 = BgL_arg2409z00_1701; }  else 
{ /* ./Llib/hash.scm 347 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2409z00_1701, BGl_string7574z00zz__hashz00, 
BINT(((long)13790))); 
exit( -1 );} 
BgL_arg1457z00_637 = 
CAR(BgL_pairz00_1703); } } } 
{ /* ./Llib/hash.scm 347 */
bool_t BgL_test1511z00_1706;
BgL_test1511z00_1706 = 
STRINGP(BgL_arg1457z00_637); 
if(BgL_test1511z00_1706)
{ /* ./Llib/hash.scm 347 */
bool_t BgL_test1512z00_1707;
BgL_test1512z00_1707 = 
STRINGP(BgL_keyz00_33); 
if(BgL_test1512z00_1707)
{ /* ./Llib/hash.scm 347 */
obj_t BgL_string1z00_1710;obj_t BgL_string2z00_1711;
if(BgL_test1511z00_1706)
{ /* ./Llib/hash.scm 347 */
BgL_string1z00_1710 = BgL_arg1457z00_637; }  else 
{ /* ./Llib/hash.scm 347 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7613z00zz__hashz00, BgL_arg1457z00_637, BGl_string7574z00zz__hashz00, 
BINT(((long)13772))); 
exit( -1 );} 
if(BgL_test1512z00_1707)
{ /* ./Llib/hash.scm 347 */
BgL_string2z00_1711 = BgL_keyz00_33; }  else 
{ /* ./Llib/hash.scm 347 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7613z00zz__hashz00, BgL_keyz00_33, BGl_string7574z00zz__hashz00, 
BINT(((long)13772))); 
exit( -1 );} 
BgL_test1439z00_631 = 
bigloo_strcmp(BgL_string1z00_1710, BgL_string2z00_1711); }  else 
{ /* ./Llib/hash.scm 347 */
BgL_test1439z00_631 = ((bool_t)0); } }  else 
{ /* ./Llib/hash.scm 347 */
BgL_test1439z00_631 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1457z00_637, BgL_keyz00_33); } } } 
if(BgL_test1439z00_631)
{ /* ./Llib/hash.scm 347 */
{ /* ./Llib/hash.scm 349 */
obj_t BgL_arg1441z00_632;
{ /* ./Llib/hash.scm 349 */
obj_t BgL_pairz00_1712;
if(
PAIRP(BgL_bucketz00_626))
{ /* ./Llib/hash.scm 349 */
BgL_pairz00_1712 = BgL_bucketz00_626; }  else 
{ /* ./Llib/hash.scm 349 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_626, BGl_string7574z00zz__hashz00, 
BINT(((long)13851))); 
exit( -1 );} 
BgL_arg1441z00_632 = 
CDR(BgL_pairz00_1712); } 
{ /* ./Llib/hash.scm 349 */
obj_t BgL_pairz00_1713;
if(
PAIRP(BgL_prevz00_627))
{ /* ./Llib/hash.scm 349 */
BgL_pairz00_1713 = BgL_prevz00_627; }  else 
{ /* ./Llib/hash.scm 349 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_prevz00_627, BGl_string7574z00zz__hashz00, 
BINT(((long)13839))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_1713, BgL_arg1441z00_632); } } 
{ /* ./Llib/hash.scm 351 */
long BgL_arg1445z00_633;
{ /* ./Llib/hash.scm 351 */
obj_t BgL_arg1448z00_634;
{ /* ./Llib/hash.scm 351 */
bool_t BgL_test1079z00_1716;
{ /* ./Llib/hash.scm 351 */
obj_t BgL_arg1083z00_1717;obj_t BgL_arg1084z00_1718;
{ /* ./Llib/hash.scm 351 */
obj_t BgL_res2736z00_1720;
{ /* ./Llib/hash.scm 351 */
obj_t BgL_aux4825z00_3201;
BgL_aux4825z00_3201 = 
STRUCT_KEY(BgL_tablez00_32); 
if(
SYMBOLP(BgL_aux4825z00_3201))
{ /* ./Llib/hash.scm 351 */
BgL_res2736z00_1720 = BgL_aux4825z00_3201; }  else 
{ /* ./Llib/hash.scm 351 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4825z00_3201, BGl_string7574z00zz__hashz00, 
BINT(((long)13902))); 
exit( -1 );} } 
BgL_arg1083z00_1717 = BgL_res2736z00_1720; } 
BgL_arg1084z00_1718 = BGl_symbol7580z00zz__hashz00; 
BgL_test1079z00_1716 = 
(BgL_arg1083z00_1717==BgL_arg1084z00_1718); } 
if(BgL_test1079z00_1716)
{ /* ./Llib/hash.scm 351 */
int BgL_auxz00_5296;
BgL_auxz00_5296 = 
(int)(((long)0)); 
BgL_arg1448z00_634 = 
STRUCT_REF(BgL_tablez00_32, BgL_auxz00_5296); }  else 
{ /* ./Llib/hash.scm 351 */
BgL_arg1448z00_634 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_32, BGl_string7574z00zz__hashz00, 
BINT(((long)13902))); } } 
{ /* ./Llib/hash.scm 351 */
long BgL_za71za7_1724;
{ /* ./Llib/hash.scm 351 */
obj_t BgL_auxz00_5301;
if(
INTEGERP(BgL_arg1448z00_634))
{ /* ./Llib/hash.scm 351 */
BgL_auxz00_5301 = BgL_arg1448z00_634
; }  else 
{ /* ./Llib/hash.scm 351 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1448z00_634, BGl_string7574z00zz__hashz00, 
BINT(((long)13897))); 
exit( -1 );} 
BgL_za71za7_1724 = 
(long)CINT(BgL_auxz00_5301); } 
BgL_arg1445z00_633 = 
(BgL_za71za7_1724-((long)1)); } } 
{ /* ./Llib/hash.scm 350 */
bool_t BgL_test1087z00_1728;
{ /* ./Llib/hash.scm 350 */
obj_t BgL_arg1091z00_1729;obj_t BgL_arg1092z00_1730;
{ /* ./Llib/hash.scm 350 */
obj_t BgL_res2737z00_1732;
{ /* ./Llib/hash.scm 350 */
obj_t BgL_aux4851z00_3205;
BgL_aux4851z00_3205 = 
STRUCT_KEY(BgL_tablez00_32); 
if(
SYMBOLP(BgL_aux4851z00_3205))
{ /* ./Llib/hash.scm 350 */
BgL_res2737z00_1732 = BgL_aux4851z00_3205; }  else 
{ /* ./Llib/hash.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4851z00_3205, BGl_string7574z00zz__hashz00, 
BINT(((long)13858))); 
exit( -1 );} } 
BgL_arg1091z00_1729 = BgL_res2737z00_1732; } 
BgL_arg1092z00_1730 = BGl_symbol7580z00zz__hashz00; 
BgL_test1087z00_1728 = 
(BgL_arg1091z00_1729==BgL_arg1092z00_1730); } 
if(BgL_test1087z00_1728)
{ /* ./Llib/hash.scm 350 */
obj_t BgL_auxz00_5319;int BgL_auxz00_5317;
BgL_auxz00_5319 = 
BINT(BgL_arg1445z00_633); 
BgL_auxz00_5317 = 
(int)(((long)0)); 
STRUCT_SET(BgL_tablez00_32, BgL_auxz00_5317, BgL_auxz00_5319); }  else 
{ /* ./Llib/hash.scm 350 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_32, BGl_string7574z00zz__hashz00, 
BINT(((long)13858))); } } } 
BgL_aux2865z00_2795 = ((bool_t)1); }  else 
{ /* ./Llib/hash.scm 353 */
obj_t BgL_arg1453z00_636;
{ /* ./Llib/hash.scm 353 */
obj_t BgL_pairz00_1736;
if(
PAIRP(BgL_bucketz00_626))
{ /* ./Llib/hash.scm 353 */
BgL_pairz00_1736 = BgL_bucketz00_626; }  else 
{ /* ./Llib/hash.scm 353 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7623z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_626, BGl_string7574z00zz__hashz00, 
BINT(((long)13960))); 
exit( -1 );} 
BgL_arg1453z00_636 = 
CDR(BgL_pairz00_1736); } 
{ 
obj_t BgL_prevz00_5331;obj_t BgL_bucketz00_5330;
BgL_bucketz00_5330 = BgL_arg1453z00_636; 
BgL_prevz00_5331 = BgL_bucketz00_626; 
BgL_prevz00_627 = BgL_prevz00_5331; 
BgL_bucketz00_626 = BgL_bucketz00_5330; 
goto BgL_loopz00_628;} } }  else 
{ /* ./Llib/hash.scm 346 */
BgL_aux2865z00_2795 = ((bool_t)0); } } } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2865z00_2795;} } } } 
}



/* _hashtable-remove! */
obj_t BGl__hashtablezd2removez12zc0zz__hashz00(obj_t BgL_envz00_2865, obj_t BgL_tablez00_2866, obj_t BgL_keyz00_2867)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 331 */
{ /* ./Llib/hash.scm 332 */
bool_t BgL_auxz00_5333;
{ /* ./Llib/hash.scm 332 */
obj_t BgL_auxz00_5334;
if(
STRUCTP(BgL_tablez00_2866))
{ /* ./Llib/hash.scm 332 */
BgL_auxz00_5334 = BgL_tablez00_2866
; }  else 
{ /* ./Llib/hash.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7624z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_2866, BGl_string7574z00zz__hashz00, 
BINT(((long)13288))); 
exit( -1 );} 
BgL_auxz00_5333 = 
BGl_hashtablezd2removez12zc0zz__hashz00(BgL_auxz00_5334, BgL_keyz00_2867); } 
return 
BBOOL(BgL_auxz00_5333);} } 
}



/* hashtable-expand! */
bool_t BGl_hashtablezd2expandz12zc0zz__hashz00(obj_t BgL_tablez00_34)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 360 */
{ /* ./Llib/hash.scm 361 */
obj_t BgL_symbol2870z00_2796;
BgL_symbol2870z00_2796 = BGl_symbol7625z00zz__hashz00; 
{ /* ./Llib/hash.scm 361 */

PUSH_TRACE(BgL_symbol2870z00_2796); BUNSPEC; 
{ /* ./Llib/hash.scm 361 */
bool_t BgL_aux2869z00_2797;
{ /* ./Llib/hash.scm 361 */
obj_t BgL_oldzd2buckszd2_640;
{ /* ./Llib/hash.scm 361 */
bool_t BgL_test1046z00_1738;
{ /* ./Llib/hash.scm 361 */
obj_t BgL_arg1050z00_1739;obj_t BgL_arg1051z00_1740;
{ /* ./Llib/hash.scm 361 */
obj_t BgL_res2738z00_1742;
{ /* ./Llib/hash.scm 361 */
obj_t BgL_aux4898z00_3213;
BgL_aux4898z00_3213 = 
STRUCT_KEY(BgL_tablez00_34); 
if(
SYMBOLP(BgL_aux4898z00_3213))
{ /* ./Llib/hash.scm 361 */
BgL_res2738z00_1742 = BgL_aux4898z00_3213; }  else 
{ /* ./Llib/hash.scm 361 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7625z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4898z00_3213, BGl_string7574z00zz__hashz00, 
BINT(((long)14271))); 
exit( -1 );} } 
BgL_arg1050z00_1739 = BgL_res2738z00_1742; } 
BgL_arg1051z00_1740 = BGl_symbol7580z00zz__hashz00; 
BgL_test1046z00_1738 = 
(BgL_arg1050z00_1739==BgL_arg1051z00_1740); } 
if(BgL_test1046z00_1738)
{ /* ./Llib/hash.scm 361 */
int BgL_auxz00_5351;
BgL_auxz00_5351 = 
(int)(((long)2)); 
BgL_oldzd2buckszd2_640 = 
STRUCT_REF(BgL_tablez00_34, BgL_auxz00_5351); }  else 
{ /* ./Llib/hash.scm 361 */
BgL_oldzd2buckszd2_640 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_34, BGl_string7574z00zz__hashz00, 
BINT(((long)14271))); } } 
{ /* ./Llib/hash.scm 361 */
int BgL_oldzd2buckszd2lenz00_641;
{ /* ./Llib/hash.scm 362 */
obj_t BgL_vectorz00_1746;
if(
VECTORP(BgL_oldzd2buckszd2_640))
{ /* ./Llib/hash.scm 362 */
BgL_vectorz00_1746 = BgL_oldzd2buckszd2_640; }  else 
{ /* ./Llib/hash.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7625z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_oldzd2buckszd2_640, BGl_string7574z00zz__hashz00, 
BINT(((long)14340))); 
exit( -1 );} 
BgL_oldzd2buckszd2lenz00_641 = 
VECTOR_LENGTH(BgL_vectorz00_1746); } 
{ /* ./Llib/hash.scm 362 */
long BgL_newzd2buckszd2lenz00_642;
{ /* ./Llib/hash.scm 363 */
long BgL_auxz00_5362;
BgL_auxz00_5362 = 
(long)(BgL_oldzd2buckszd2lenz00_641); 
BgL_newzd2buckszd2lenz00_642 = 
(((long)2)*BgL_auxz00_5362); } 
{ /* ./Llib/hash.scm 363 */
obj_t BgL_newzd2buckszd2_643;
{ /* ./Llib/hash.scm 364 */
int BgL_auxz00_5365;
BgL_auxz00_5365 = 
(int)(BgL_newzd2buckszd2lenz00_642); 
BgL_newzd2buckszd2_643 = 
make_vector(BgL_auxz00_5365, BNIL); } 
{ /* ./Llib/hash.scm 364 */

{ /* ./Llib/hash.scm 365 */
bool_t BgL_test1054z00_1751;
{ /* ./Llib/hash.scm 365 */
obj_t BgL_arg1058z00_1752;obj_t BgL_arg1059z00_1753;
{ /* ./Llib/hash.scm 365 */
obj_t BgL_res2739z00_1755;
{ /* ./Llib/hash.scm 365 */
obj_t BgL_aux4925z00_3217;
BgL_aux4925z00_3217 = 
STRUCT_KEY(BgL_tablez00_34); 
if(
SYMBOLP(BgL_aux4925z00_3217))
{ /* ./Llib/hash.scm 365 */
BgL_res2739z00_1755 = BgL_aux4925z00_3217; }  else 
{ /* ./Llib/hash.scm 365 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7625z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux4925z00_3217, BGl_string7574z00zz__hashz00, 
BINT(((long)14439))); 
exit( -1 );} } 
BgL_arg1058z00_1752 = BgL_res2739z00_1755; } 
BgL_arg1059z00_1753 = BGl_symbol7580z00zz__hashz00; 
BgL_test1054z00_1751 = 
(BgL_arg1058z00_1752==BgL_arg1059z00_1753); } 
if(BgL_test1054z00_1751)
{ /* ./Llib/hash.scm 365 */
int BgL_auxz00_5376;
BgL_auxz00_5376 = 
(int)(((long)2)); 
STRUCT_SET(BgL_tablez00_34, BgL_auxz00_5376, BgL_newzd2buckszd2_643); }  else 
{ /* ./Llib/hash.scm 365 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7583z00zz__hashz00, BgL_tablez00_34, BGl_string7574z00zz__hashz00, 
BINT(((long)14439))); } } 
{ 
long BgL_iz00_644;
BgL_iz00_644 = ((long)0); 
BgL_loopz00_645:
{ /* ./Llib/hash.scm 367 */
bool_t BgL_testz00_5381;
{ /* ./Llib/hash.scm 367 */
long BgL_auxz00_5382;
BgL_auxz00_5382 = 
(long)(BgL_oldzd2buckszd2lenz00_641); 
BgL_testz00_5381 = 
(BgL_iz00_644<BgL_auxz00_5382); } 
if(BgL_testz00_5381)
{ /* ./Llib/hash.scm 367 */
{ 
obj_t BgL_l1010z00_647;
{ /* ./Llib/hash.scm 377 */
obj_t BgL_arg1477z00_649;
{ /* ./Llib/hash.scm 377 */
obj_t BgL_vectorz00_1761;int BgL_kz00_1762;
if(
VECTORP(BgL_oldzd2buckszd2_640))
{ /* ./Llib/hash.scm 377 */
BgL_vectorz00_1761 = BgL_oldzd2buckszd2_640; }  else 
{ /* ./Llib/hash.scm 377 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7625z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_oldzd2buckszd2_640, BGl_string7574z00zz__hashz00, 
BINT(((long)14780))); 
exit( -1 );} 
BgL_kz00_1762 = 
(int)(BgL_iz00_644); 
{ /* ./Llib/hash.scm 377 */
bool_t BgL_test2434z00_1763;
{ /* ./Llib/hash.scm 377 */
int BgL_arg2439z00_1764;
BgL_arg2439z00_1764 = 
VECTOR_LENGTH(BgL_vectorz00_1761); 
BgL_test2434z00_1763 = 
BOUND_CHECK(BgL_kz00_1762, BgL_arg2439z00_1764); } 
if(BgL_test2434z00_1763)
{ /* ./Llib/hash.scm 377 */
BgL_arg1477z00_649 = 
VECTOR_REF(BgL_vectorz00_1761,BgL_kz00_1762); }  else 
{ /* ./Llib/hash.scm 377 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1762), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1477z00_649 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)14780))); } } } 
BgL_l1010z00_647 = BgL_arg1477z00_649; 
BgL_forzd2each1011zd2_648:
{ /* ./Llib/hash.scm 369 */
bool_t BgL_test1480z00_650;
BgL_test1480z00_650 = 
PAIRP(BgL_l1010z00_647); 
if(BgL_test1480z00_650)
{ /* ./Llib/hash.scm 369 */
{ /* ./Llib/hash.scm 370 */
obj_t BgL_cellz00_651;
{ /* ./Llib/hash.scm 370 */
obj_t BgL_pairz00_1770;
if(BgL_test1480z00_650)
{ /* ./Llib/hash.scm 370 */
BgL_pairz00_1770 = BgL_l1010z00_647; }  else 
{ /* ./Llib/hash.scm 370 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7625z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_l1010z00_647, BGl_string7574z00zz__hashz00, 
BINT(((long)14581))); 
exit( -1 );} 
BgL_cellz00_651 = 
CAR(BgL_pairz00_1770); } 
{ /* ./Llib/hash.scm 370 */
obj_t BgL_keyz00_652;
{ /* ./Llib/hash.scm 370 */
obj_t BgL_pairz00_1771;
if(
PAIRP(BgL_cellz00_651))
{ /* ./Llib/hash.scm 370 */
BgL_pairz00_1771 = BgL_cellz00_651; }  else 
{ /* ./Llib/hash.scm 370 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7625z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_cellz00_651, BGl_string7574z00zz__hashz00, 
BINT(((long)14601))); 
exit( -1 );} 
BgL_keyz00_652 = 
CAR(BgL_pairz00_1771); } 
{ /* ./Llib/hash.scm 370 */
long BgL_hz00_653;
{ /* ./Llib/hash.scm 371 */
int BgL_arg1489z00_656;
BgL_arg1489z00_656 = 
BGl_getzd2hashnumberzd2zz__hashz00(BgL_keyz00_652); 
{ /* ./Llib/hash.scm 371 */
long BgL_auxz00_5413;
BgL_auxz00_5413 = 
(long)(BgL_arg1489z00_656); 
BgL_hz00_653 = 
(BgL_auxz00_5413%BgL_newzd2buckszd2lenz00_642); } } 
{ /* ./Llib/hash.scm 371 */

{ /* ./Llib/hash.scm 376 */
obj_t BgL_arg1482z00_654;
{ /* ./Llib/hash.scm 376 */
obj_t BgL_arg1485z00_655;
{ /* ./Llib/hash.scm 376 */
int BgL_kz00_1775;
BgL_kz00_1775 = 
(int)(BgL_hz00_653); 
{ /* ./Llib/hash.scm 376 */
bool_t BgL_test2434z00_1776;
{ /* ./Llib/hash.scm 376 */
int BgL_arg2439z00_1777;
BgL_arg2439z00_1777 = 
VECTOR_LENGTH(BgL_newzd2buckszd2_643); 
BgL_test2434z00_1776 = 
BOUND_CHECK(BgL_kz00_1775, BgL_arg2439z00_1777); } 
if(BgL_test2434z00_1776)
{ /* ./Llib/hash.scm 376 */
BgL_arg1485z00_655 = 
VECTOR_REF(BgL_newzd2buckszd2_643,BgL_kz00_1775); }  else 
{ /* ./Llib/hash.scm 376 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1775), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1485z00_655 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)14746))); } } } 
BgL_arg1482z00_654 = 
MAKE_PAIR(BgL_cellz00_651, BgL_arg1485z00_655); } 
{ /* ./Llib/hash.scm 373 */
int BgL_kz00_1783;
BgL_kz00_1783 = 
(int)(BgL_hz00_653); 
{ /* ./Llib/hash.scm 373 */
bool_t BgL_test2426z00_1785;
{ /* ./Llib/hash.scm 373 */
int BgL_arg2431z00_1786;
BgL_arg2431z00_1786 = 
VECTOR_LENGTH(BgL_newzd2buckszd2_643); 
BgL_test2426z00_1785 = 
BOUND_CHECK(BgL_kz00_1783, BgL_arg2431z00_1786); } 
if(BgL_test2426z00_1785)
{ /* ./Llib/hash.scm 373 */
VECTOR_SET(BgL_newzd2buckszd2_643,BgL_kz00_1783,BgL_arg1482z00_654); }  else 
{ /* ./Llib/hash.scm 373 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7591z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_1783), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)14681))); } } } } } } } } 
{ /* ./Llib/hash.scm 369 */
obj_t BgL_arg1495z00_657;
{ /* ./Llib/hash.scm 369 */
obj_t BgL_pairz00_1791;
if(
PAIRP(BgL_l1010z00_647))
{ /* ./Llib/hash.scm 369 */
BgL_pairz00_1791 = BgL_l1010z00_647; }  else 
{ /* ./Llib/hash.scm 369 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7625z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_l1010z00_647, BGl_string7574z00zz__hashz00, 
BINT(((long)14548))); 
exit( -1 );} 
BgL_arg1495z00_657 = 
CDR(BgL_pairz00_1791); } 
{ 
obj_t BgL_l1010z00_5441;
BgL_l1010z00_5441 = BgL_arg1495z00_657; 
BgL_l1010z00_647 = BgL_l1010z00_5441; 
goto BgL_forzd2each1011zd2_648;} } }  else 
{ /* ./Llib/hash.scm 369 */
if(
NULLP(BgL_l1010z00_647))
{ /* ./Llib/hash.scm 369 */BTRUE; }  else 
{ /* ./Llib/hash.scm 369 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7608z00zz__hashz00, BGl_string7609z00zz__hashz00, BgL_l1010z00_647, BGl_string7574z00zz__hashz00, 
BINT(((long)14548))); } } } } } 
{ 
long BgL_iz00_5446;
BgL_iz00_5446 = 
(BgL_iz00_644+((long)1)); 
BgL_iz00_644 = BgL_iz00_5446; 
goto BgL_loopz00_645;} }  else 
{ /* ./Llib/hash.scm 367 */
BgL_aux2869z00_2797 = ((bool_t)0); } } } } } } } } 
POP_TRACE(); 
return BgL_aux2869z00_2797;} } } } 
}



/* get-hashnumber */
BGL_EXPORTED_DEF int BGl_getzd2hashnumberzd2zz__hashz00(obj_t BgL_keyz00_37)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 393 */
{ /* ./Llib/hash.scm 395 */
obj_t BgL_symbol2874z00_2798;
BgL_symbol2874z00_2798 = BGl_symbol7626z00zz__hashz00; 
{ /* ./Llib/hash.scm 395 */

PUSH_TRACE(BgL_symbol2874z00_2798); BUNSPEC; 
{ /* ./Llib/hash.scm 395 */
int BgL_aux2873z00_2799;
{ /* ./Llib/hash.scm 395 */
bool_t BgL_test1517z00_662;
BgL_test1517z00_662 = 
STRINGP(BgL_keyz00_37); 
if(BgL_test1517z00_662)
{ /* ./Llib/hash.scm 395 */
{ /* ./Llib/hash.scm 396 */
int BgL_arg1519z00_663;
{ /* ./Llib/hash.scm 396 */
char * BgL_auxz00_5452;
{ /* ./Llib/hash.scm 396 */
obj_t BgL_auxz00_5453;
if(BgL_test1517z00_662)
{ /* ./Llib/hash.scm 396 */
BgL_auxz00_5453 = BgL_keyz00_37
; }  else 
{ /* ./Llib/hash.scm 396 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7626z00zz__hashz00, BGl_string7627z00zz__hashz00, BgL_keyz00_37, BGl_string7574z00zz__hashz00, 
BINT(((long)15529))); 
exit( -1 );} 
BgL_auxz00_5452 = 
BSTRING_TO_STRING(BgL_auxz00_5453); } 
BgL_arg1519z00_663 = 
bgl_string_hash_number(BgL_auxz00_5452); } 
{ /* ./Llib/hash.scm 396 */
long BgL_auxz00_5460;
{ /* ./Llib/hash.scm 396 */
long BgL_nz00_1805;
BgL_nz00_1805 = 
(long)(BgL_arg1519z00_663); 
if(
(BgL_nz00_1805<((long)0)))
{ /* ./Llib/hash.scm 396 */
BgL_auxz00_5460 = 
NEG(BgL_nz00_1805)
; }  else 
{ /* ./Llib/hash.scm 396 */
BgL_auxz00_5460 = BgL_nz00_1805
; } } 
BgL_aux2873z00_2799 = 
(int)(BgL_auxz00_5460); } } }  else 
{ /* ./Llib/hash.scm 397 */
bool_t BgL_test1522z00_664;
BgL_test1522z00_664 = 
SYMBOLP(BgL_keyz00_37); 
if(BgL_test1522z00_664)
{ /* ./Llib/hash.scm 397 */
{ /* ./Llib/hash.scm 398 */
int BgL_arg1524z00_665;
{ /* ./Llib/hash.scm 398 */
obj_t BgL_auxz00_5468;
if(BgL_test1522z00_664)
{ /* ./Llib/hash.scm 398 */
BgL_auxz00_5468 = BgL_keyz00_37
; }  else 
{ /* ./Llib/hash.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7626z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_keyz00_37, BGl_string7574z00zz__hashz00, 
BINT(((long)15591))); 
exit( -1 );} 
BgL_arg1524z00_665 = 
bgl_symbol_hash_number(BgL_auxz00_5468); } 
{ /* ./Llib/hash.scm 398 */
long BgL_auxz00_5474;
{ /* ./Llib/hash.scm 398 */
long BgL_nz00_1812;
BgL_nz00_1812 = 
(long)(BgL_arg1524z00_665); 
if(
(BgL_nz00_1812<((long)0)))
{ /* ./Llib/hash.scm 398 */
BgL_auxz00_5474 = 
NEG(BgL_nz00_1812)
; }  else 
{ /* ./Llib/hash.scm 398 */
BgL_auxz00_5474 = BgL_nz00_1812
; } } 
BgL_aux2873z00_2799 = 
(int)(BgL_auxz00_5474); } } }  else 
{ /* ./Llib/hash.scm 399 */
bool_t BgL_test1527z00_666;
BgL_test1527z00_666 = 
INTEGERP(BgL_keyz00_37); 
if(BgL_test1527z00_666)
{ /* ./Llib/hash.scm 399 */
{ /* ./Llib/hash.scm 400 */
long BgL_res2742z00_1824;
{ /* ./Llib/hash.scm 400 */
long BgL_nz00_1819;
{ /* ./Llib/hash.scm 400 */
obj_t BgL_auxz00_5482;
if(BgL_test1527z00_666)
{ /* ./Llib/hash.scm 400 */
BgL_auxz00_5482 = BgL_keyz00_37
; }  else 
{ /* ./Llib/hash.scm 400 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7626z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_keyz00_37, BGl_string7574z00zz__hashz00, 
BINT(((long)15633))); 
exit( -1 );} 
BgL_nz00_1819 = 
(long)CINT(BgL_auxz00_5482); } 
if(
(BgL_nz00_1819<((long)0)))
{ /* ./Llib/hash.scm 400 */
BgL_res2742z00_1824 = 
NEG(BgL_nz00_1819); }  else 
{ /* ./Llib/hash.scm 400 */
BgL_res2742z00_1824 = BgL_nz00_1819; } } 
BgL_aux2873z00_2799 = 
(int)(BgL_res2742z00_1824); } }  else 
{ /* ./Llib/hash.scm 401 */
bool_t BgL_test1529z00_667;
BgL_test1529z00_667 = 
BGL_OBJECTP(BgL_keyz00_37); 
if(BgL_test1529z00_667)
{ /* ./Llib/hash.scm 401 */
{ /* ./Llib/hash.scm 402 */
int BgL_arg1531z00_668;
{ /* ./Llib/hash.scm 402 */
BgL_objectz00_bglt BgL_auxz00_5494;
if(
BGL_OBJECTP(BgL_keyz00_37))
{ /* ./Llib/hash.scm 402 */
BgL_auxz00_5494 = 
(BgL_objectz00_bglt)(BgL_keyz00_37)
; }  else 
{ /* ./Llib/hash.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7626z00zz__hashz00, BGl_string7628z00zz__hashz00, BgL_keyz00_37, BGl_string7574z00zz__hashz00, 
BINT(((long)15693))); 
exit( -1 );} 
BgL_arg1531z00_668 = 
BGl_objectzd2hashnumberzd2zz__objectz00(BgL_auxz00_5494); } 
{ /* ./Llib/hash.scm 402 */
long BgL_auxz00_5502;
{ /* ./Llib/hash.scm 402 */
long BgL_nz00_1826;
BgL_nz00_1826 = 
(long)(BgL_arg1531z00_668); 
if(
(BgL_nz00_1826<((long)0)))
{ /* ./Llib/hash.scm 402 */
BgL_auxz00_5502 = 
NEG(BgL_nz00_1826)
; }  else 
{ /* ./Llib/hash.scm 402 */
BgL_auxz00_5502 = BgL_nz00_1826
; } } 
BgL_aux2873z00_2799 = 
(int)(BgL_auxz00_5502); } } }  else 
{ /* ./Llib/hash.scm 403 */
bool_t BgL_test1534z00_669;
BgL_test1534z00_669 = 
FOREIGNP(BgL_keyz00_37); 
if(BgL_test1534z00_669)
{ /* ./Llib/hash.scm 403 */
{ /* ./Llib/hash.scm 404 */
int BgL_arg1537z00_670;
{ /* ./Llib/hash.scm 404 */
obj_t BgL_auxz00_5510;
if(BgL_test1534z00_669)
{ /* ./Llib/hash.scm 404 */
BgL_auxz00_5510 = BgL_keyz00_37
; }  else 
{ /* ./Llib/hash.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7626z00zz__hashz00, BGl_string7629z00zz__hashz00, BgL_keyz00_37, BGl_string7574z00zz__hashz00, 
BINT(((long)15757))); 
exit( -1 );} 
BgL_arg1537z00_670 = 
bgl_foreign_hash_number(BgL_auxz00_5510); } 
{ /* ./Llib/hash.scm 404 */
long BgL_auxz00_5516;
{ /* ./Llib/hash.scm 404 */
long BgL_nz00_1833;
BgL_nz00_1833 = 
(long)(BgL_arg1537z00_670); 
if(
(BgL_nz00_1833<((long)0)))
{ /* ./Llib/hash.scm 404 */
BgL_auxz00_5516 = 
NEG(BgL_nz00_1833)
; }  else 
{ /* ./Llib/hash.scm 404 */
BgL_auxz00_5516 = BgL_nz00_1833
; } } 
BgL_aux2873z00_2799 = 
(int)(BgL_auxz00_5516); } } }  else 
{ /* ./Llib/hash.scm 403 */
{ /* ./Llib/hash.scm 406 */
int BgL_arg1541z00_671;
BgL_arg1541z00_671 = 
bgl_obj_hash_number(BgL_keyz00_37); 
{ /* ./Llib/hash.scm 406 */
long BgL_auxz00_5523;
{ /* ./Llib/hash.scm 406 */
long BgL_nz00_1839;
BgL_nz00_1839 = 
(long)(BgL_arg1541z00_671); 
if(
(BgL_nz00_1839<((long)0)))
{ /* ./Llib/hash.scm 406 */
BgL_auxz00_5523 = 
NEG(BgL_nz00_1839)
; }  else 
{ /* ./Llib/hash.scm 406 */
BgL_auxz00_5523 = BgL_nz00_1839
; } } 
BgL_aux2873z00_2799 = 
(int)(BgL_auxz00_5523); } } } } } } } } 
POP_TRACE(); 
return BgL_aux2873z00_2799;} } } } 
}



/* _get-hashnumber */
obj_t BGl__getzd2hashnumberzd2zz__hashz00(obj_t BgL_envz00_2868, obj_t BgL_keyz00_2869)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 393 */
{ /* ./Llib/hash.scm 395 */
int BgL_auxz00_5530;
BgL_auxz00_5530 = 
BGl_getzd2hashnumberzd2zz__hashz00(BgL_keyz00_2869); 
return 
BINT(BgL_auxz00_5530);} } 
}



/* make-hash-table */
BGL_EXPORTED_DEF obj_t BGl_makezd2hashzd2tablez00zz__hashz00(long BgL_maxzd2siza7ez75_68, obj_t BgL_getzd2hashzd2numberz00_69, obj_t BgL_getzd2keyzd2_70, obj_t BgL_eqz00_71, obj_t BgL_initzd2siza7ez75_72)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 429 */
{ /* ./Llib/hash.scm 430 */
obj_t BgL_symbol2878z00_2800;
BgL_symbol2878z00_2800 = BGl_symbol7630z00zz__hashz00; 
{ /* ./Llib/hash.scm 430 */

PUSH_TRACE(BgL_symbol2878z00_2800); BUNSPEC; 
{ /* ./Llib/hash.scm 430 */
obj_t BgL_aux2877z00_2801;
{ /* ./Llib/hash.scm 430 */
obj_t BgL_siza7eza7_724;
if(
NULLP(BgL_initzd2siza7ez75_72))
{ /* ./Llib/hash.scm 430 */
BgL_siza7eza7_724 = 
BINT(BgL_maxzd2siza7ez75_68); }  else 
{ /* ./Llib/hash.scm 432 */
obj_t BgL_pairz00_2035;
if(
PAIRP(BgL_initzd2siza7ez75_72))
{ /* ./Llib/hash.scm 432 */
BgL_pairz00_2035 = BgL_initzd2siza7ez75_72; }  else 
{ /* ./Llib/hash.scm 432 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7630z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_initzd2siza7ez75_72, BGl_string7574z00zz__hashz00, 
BINT(((long)17343))); 
exit( -1 );} 
BgL_siza7eza7_724 = 
CAR(BgL_pairz00_2035); } 
if(
BGl_2ze5powerzf3z16zz__hashz00(BgL_siza7eza7_724))
{ /* ./Llib/hash.scm 437 */
if(
BGl_2ze5powerzf3z16zz__hashz00(
BINT(BgL_maxzd2siza7ez75_68)))
{ /* ./Llib/hash.scm 445 */
bool_t BgL_test1696z00_728;
{ /* ./Llib/hash.scm 445 */
long BgL_n1z00_2036;
{ /* ./Llib/hash.scm 445 */
obj_t BgL_auxz00_5548;
if(
INTEGERP(BgL_siza7eza7_724))
{ /* ./Llib/hash.scm 445 */
BgL_auxz00_5548 = BgL_siza7eza7_724
; }  else 
{ /* ./Llib/hash.scm 445 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7630z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_siza7eza7_724, BGl_string7574z00zz__hashz00, 
BINT(((long)17681))); 
exit( -1 );} 
BgL_n1z00_2036 = 
(long)CINT(BgL_auxz00_5548); } 
BgL_test1696z00_728 = 
(BgL_n1z00_2036>BgL_maxzd2siza7ez75_68); } 
if(BgL_test1696z00_728)
{ /* ./Llib/hash.scm 445 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7631z00zz__hashz00, BGl_string7632z00zz__hashz00, BgL_siza7eza7_724, "./Llib/hash.scm", ((long)17696)); 
BgL_aux2877z00_2801 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)17696))); }  else 
{ /* ./Llib/hash.scm 445 */
{ /* ./Llib/hash.scm 450 */
obj_t BgL_tablez00_729;
{ /* ./Llib/hash.scm 450 */
int BgL_auxz00_5560;
{ /* ./Llib/hash.scm 450 */
obj_t BgL_auxz00_5561;
if(
INTEGERP(BgL_siza7eza7_724))
{ /* ./Llib/hash.scm 450 */
BgL_auxz00_5561 = BgL_siza7eza7_724
; }  else 
{ /* ./Llib/hash.scm 450 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7630z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_siza7eza7_724, BGl_string7574z00zz__hashz00, 
BINT(((long)17794))); 
exit( -1 );} 
BgL_auxz00_5560 = 
CINT(BgL_auxz00_5561); } 
BgL_tablez00_729 = 
make_vector(BgL_auxz00_5560, BNIL); } 
{ /* ./Llib/hash.scm 451 */
obj_t BgL_newz00_2048;
{ /* ./Llib/hash.scm 451 */
int BgL_auxz00_5569;
BgL_auxz00_5569 = 
(int)(((long)7)); 
BgL_newz00_2048 = 
create_struct(BGl_symbol7633z00zz__hashz00, BgL_auxz00_5569); } 
{ /* ./Llib/hash.scm 451 */
bool_t BgL_test1589z00_2051;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_arg1593z00_2052;obj_t BgL_arg1594z00_2053;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_res2768z00_2055;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_aux5121z00_3243;
BgL_aux5121z00_3243 = 
STRUCT_KEY(BgL_newz00_2048); 
if(
SYMBOLP(BgL_aux5121z00_3243))
{ /* ./Llib/hash.scm 451 */
BgL_res2768z00_2055 = BgL_aux5121z00_3243; }  else 
{ /* ./Llib/hash.scm 451 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7630z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5121z00_3243, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); 
exit( -1 );} } 
BgL_arg1593z00_2052 = BgL_res2768z00_2055; } 
BgL_arg1594z00_2053 = BGl_symbol7633z00zz__hashz00; 
BgL_test1589z00_2051 = 
(BgL_arg1593z00_2052==BgL_arg1594z00_2053); } 
if(BgL_test1589z00_2051)
{ /* ./Llib/hash.scm 451 */
int BgL_auxz00_5580;
BgL_auxz00_5580 = 
(int)(((long)6)); 
STRUCT_SET(BgL_newz00_2048, BgL_auxz00_5580, BgL_tablez00_729); }  else 
{ /* ./Llib/hash.scm 451 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_newz00_2048, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); } } 
{ /* ./Llib/hash.scm 451 */
bool_t BgL_test1605z00_2061;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_arg1609z00_2062;obj_t BgL_arg1610z00_2063;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_res2769z00_2065;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_aux5136z00_3245;
BgL_aux5136z00_3245 = 
STRUCT_KEY(BgL_newz00_2048); 
if(
SYMBOLP(BgL_aux5136z00_3245))
{ /* ./Llib/hash.scm 451 */
BgL_res2769z00_2065 = BgL_aux5136z00_3245; }  else 
{ /* ./Llib/hash.scm 451 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7630z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5136z00_3245, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); 
exit( -1 );} } 
BgL_arg1609z00_2062 = BgL_res2769z00_2065; } 
BgL_arg1610z00_2063 = BGl_symbol7633z00zz__hashz00; 
BgL_test1605z00_2061 = 
(BgL_arg1609z00_2062==BgL_arg1610z00_2063); } 
if(BgL_test1605z00_2061)
{ /* ./Llib/hash.scm 451 */
int BgL_auxz00_5593;
BgL_auxz00_5593 = 
(int)(((long)5)); 
STRUCT_SET(BgL_newz00_2048, BgL_auxz00_5593, BgL_eqz00_71); }  else 
{ /* ./Llib/hash.scm 451 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_newz00_2048, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); } } 
{ /* ./Llib/hash.scm 451 */
bool_t BgL_test1621z00_2071;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_arg1625z00_2072;obj_t BgL_arg1626z00_2073;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_res2770z00_2075;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_aux5151z00_3247;
BgL_aux5151z00_3247 = 
STRUCT_KEY(BgL_newz00_2048); 
if(
SYMBOLP(BgL_aux5151z00_3247))
{ /* ./Llib/hash.scm 451 */
BgL_res2770z00_2075 = BgL_aux5151z00_3247; }  else 
{ /* ./Llib/hash.scm 451 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7630z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5151z00_3247, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); 
exit( -1 );} } 
BgL_arg1625z00_2072 = BgL_res2770z00_2075; } 
BgL_arg1626z00_2073 = BGl_symbol7633z00zz__hashz00; 
BgL_test1621z00_2071 = 
(BgL_arg1625z00_2072==BgL_arg1626z00_2073); } 
if(BgL_test1621z00_2071)
{ /* ./Llib/hash.scm 451 */
obj_t BgL_auxz00_5608;int BgL_auxz00_5606;
BgL_auxz00_5608 = 
BINT(((long)0)); 
BgL_auxz00_5606 = 
(int)(((long)4)); 
STRUCT_SET(BgL_newz00_2048, BgL_auxz00_5606, BgL_auxz00_5608); }  else 
{ /* ./Llib/hash.scm 451 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_newz00_2048, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); } } 
{ /* ./Llib/hash.scm 451 */
bool_t BgL_test1637z00_2081;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_arg1641z00_2082;obj_t BgL_arg1642z00_2083;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_res2771z00_2085;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_aux5167z00_3249;
BgL_aux5167z00_3249 = 
STRUCT_KEY(BgL_newz00_2048); 
if(
SYMBOLP(BgL_aux5167z00_3249))
{ /* ./Llib/hash.scm 451 */
BgL_res2771z00_2085 = BgL_aux5167z00_3249; }  else 
{ /* ./Llib/hash.scm 451 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7630z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5167z00_3249, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); 
exit( -1 );} } 
BgL_arg1641z00_2082 = BgL_res2771z00_2085; } 
BgL_arg1642z00_2083 = BGl_symbol7633z00zz__hashz00; 
BgL_test1637z00_2081 = 
(BgL_arg1641z00_2082==BgL_arg1642z00_2083); } 
if(BgL_test1637z00_2081)
{ /* ./Llib/hash.scm 451 */
int BgL_auxz00_5621;
BgL_auxz00_5621 = 
(int)(((long)3)); 
STRUCT_SET(BgL_newz00_2048, BgL_auxz00_5621, BgL_getzd2keyzd2_70); }  else 
{ /* ./Llib/hash.scm 451 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_newz00_2048, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); } } 
{ /* ./Llib/hash.scm 451 */
bool_t BgL_test1653z00_2091;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_arg1657z00_2092;obj_t BgL_arg1658z00_2093;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_res2772z00_2095;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_aux5182z00_3251;
BgL_aux5182z00_3251 = 
STRUCT_KEY(BgL_newz00_2048); 
if(
SYMBOLP(BgL_aux5182z00_3251))
{ /* ./Llib/hash.scm 451 */
BgL_res2772z00_2095 = BgL_aux5182z00_3251; }  else 
{ /* ./Llib/hash.scm 451 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7630z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5182z00_3251, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); 
exit( -1 );} } 
BgL_arg1657z00_2092 = BgL_res2772z00_2095; } 
BgL_arg1658z00_2093 = BGl_symbol7633z00zz__hashz00; 
BgL_test1653z00_2091 = 
(BgL_arg1657z00_2092==BgL_arg1658z00_2093); } 
if(BgL_test1653z00_2091)
{ /* ./Llib/hash.scm 451 */
int BgL_auxz00_5634;
BgL_auxz00_5634 = 
(int)(((long)2)); 
STRUCT_SET(BgL_newz00_2048, BgL_auxz00_5634, BgL_getzd2hashzd2numberz00_69); }  else 
{ /* ./Llib/hash.scm 451 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_newz00_2048, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); } } 
{ /* ./Llib/hash.scm 451 */
bool_t BgL_test1670z00_2101;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_arg1674z00_2102;obj_t BgL_arg1675z00_2103;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_res2773z00_2105;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_aux5197z00_3253;
BgL_aux5197z00_3253 = 
STRUCT_KEY(BgL_newz00_2048); 
if(
SYMBOLP(BgL_aux5197z00_3253))
{ /* ./Llib/hash.scm 451 */
BgL_res2773z00_2105 = BgL_aux5197z00_3253; }  else 
{ /* ./Llib/hash.scm 451 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7630z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5197z00_3253, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); 
exit( -1 );} } 
BgL_arg1674z00_2102 = BgL_res2773z00_2105; } 
BgL_arg1675z00_2103 = BGl_symbol7633z00zz__hashz00; 
BgL_test1670z00_2101 = 
(BgL_arg1674z00_2102==BgL_arg1675z00_2103); } 
if(BgL_test1670z00_2101)
{ /* ./Llib/hash.scm 451 */
int BgL_auxz00_5647;
BgL_auxz00_5647 = 
(int)(((long)1)); 
STRUCT_SET(BgL_newz00_2048, BgL_auxz00_5647, BgL_siza7eza7_724); }  else 
{ /* ./Llib/hash.scm 451 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_newz00_2048, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); } } 
{ /* ./Llib/hash.scm 451 */
bool_t BgL_test1686z00_2111;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_arg1690z00_2112;obj_t BgL_arg1691z00_2113;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_res2774z00_2115;
{ /* ./Llib/hash.scm 451 */
obj_t BgL_aux5212z00_3255;
BgL_aux5212z00_3255 = 
STRUCT_KEY(BgL_newz00_2048); 
if(
SYMBOLP(BgL_aux5212z00_3255))
{ /* ./Llib/hash.scm 451 */
BgL_res2774z00_2115 = BgL_aux5212z00_3255; }  else 
{ /* ./Llib/hash.scm 451 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7630z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5212z00_3255, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); 
exit( -1 );} } 
BgL_arg1690z00_2112 = BgL_res2774z00_2115; } 
BgL_arg1691z00_2113 = BGl_symbol7633z00zz__hashz00; 
BgL_test1686z00_2111 = 
(BgL_arg1690z00_2112==BgL_arg1691z00_2113); } 
if(BgL_test1686z00_2111)
{ /* ./Llib/hash.scm 451 */
obj_t BgL_auxz00_5662;int BgL_auxz00_5660;
BgL_auxz00_5662 = 
BINT(BgL_maxzd2siza7ez75_68); 
BgL_auxz00_5660 = 
(int)(((long)0)); 
STRUCT_SET(BgL_newz00_2048, BgL_auxz00_5660, BgL_auxz00_5662); }  else 
{ /* ./Llib/hash.scm 451 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_newz00_2048, BGl_string7574z00zz__hashz00, 
BINT(((long)17825))); } } 
BgL_aux2877z00_2801 = BgL_newz00_2048; } } } }  else 
{ /* ./Llib/hash.scm 441 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7631z00zz__hashz00, BGl_string7635z00zz__hashz00, 
BINT(BgL_maxzd2siza7ez75_68), "./Llib/hash.scm", ((long)17593)); 
BgL_aux2877z00_2801 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)17593))); } }  else 
{ /* ./Llib/hash.scm 437 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7631z00zz__hashz00, BGl_string7636z00zz__hashz00, BgL_siza7eza7_724, "./Llib/hash.scm", ((long)17487)); 
BgL_aux2877z00_2801 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)17487))); } } 
POP_TRACE(); 
return BgL_aux2877z00_2801;} } } } 
}



/* 2^power? */
bool_t BGl_2ze5powerzf3z16zz__hashz00(obj_t BgL_siza7eza7_731)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 433 */
{ /* ./Llib/hash.scm 434 */
bool_t BgL__andtest_1012z00_733;
{ /* ./Llib/hash.scm 434 */
long BgL_n1z00_2125;
{ /* ./Llib/hash.scm 434 */
obj_t BgL_auxz00_5675;
if(
INTEGERP(BgL_siza7eza7_731))
{ /* ./Llib/hash.scm 434 */
BgL_auxz00_5675 = BgL_siza7eza7_731
; }  else 
{ /* ./Llib/hash.scm 434 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7637z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_siza7eza7_731, BGl_string7574z00zz__hashz00, 
BINT(((long)17396))); 
exit( -1 );} 
BgL_n1z00_2125 = 
(long)CINT(BgL_auxz00_5675); } 
BgL__andtest_1012z00_733 = 
(BgL_n1z00_2125>((long)1)); } 
if(BgL__andtest_1012z00_733)
{ /* ./Llib/hash.scm 435 */
long BgL_arg1714z00_735;
{ /* ./Llib/hash.scm 435 */
long BgL_arg1717z00_736;
{ /* ./Llib/hash.scm 435 */
long BgL_za71za7_2127;
{ /* ./Llib/hash.scm 435 */
obj_t BgL_auxz00_5684;
if(
INTEGERP(BgL_siza7eza7_731))
{ /* ./Llib/hash.scm 435 */
BgL_auxz00_5684 = BgL_siza7eza7_731
; }  else 
{ /* ./Llib/hash.scm 435 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7637z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_siza7eza7_731, BGl_string7574z00zz__hashz00, 
BINT(((long)17428))); 
exit( -1 );} 
BgL_za71za7_2127 = 
(long)CINT(BgL_auxz00_5684); } 
BgL_arg1717z00_736 = 
(BgL_za71za7_2127-((long)1)); } 
{ /* ./Llib/hash.scm 435 */
long BgL_xz00_2129;
{ /* ./Llib/hash.scm 435 */
obj_t BgL_auxz00_5692;
if(
INTEGERP(BgL_siza7eza7_731))
{ /* ./Llib/hash.scm 435 */
BgL_auxz00_5692 = BgL_siza7eza7_731
; }  else 
{ /* ./Llib/hash.scm 435 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7637z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_siza7eza7_731, BGl_string7574z00zz__hashz00, 
BINT(((long)17426))); 
exit( -1 );} 
BgL_xz00_2129 = 
(long)CINT(BgL_auxz00_5692); } 
BgL_arg1714z00_735 = 
(BgL_xz00_2129 & BgL_arg1717z00_736); } } 
return 
(((long)0)==BgL_arg1714z00_735);}  else 
{ /* ./Llib/hash.scm 434 */
return ((bool_t)0);} } } 
}



/* _make-hash-table */
obj_t BGl__makezd2hashzd2tablez00zz__hashz00(obj_t BgL_envz00_2870, obj_t BgL_maxzd2siza7ez75_2871, obj_t BgL_getzd2hashzd2numberz00_2872, obj_t BgL_getzd2keyzd2_2873, obj_t BgL_eqz00_2874, obj_t BgL_initzd2siza7ez75_2875)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 429 */
{ /* ./Llib/hash.scm 430 */
obj_t BgL_auxz00_5721;obj_t BgL_auxz00_5715;obj_t BgL_auxz00_5709;long BgL_auxz00_5701;
if(
PROCEDUREP(BgL_eqz00_2874))
{ /* ./Llib/hash.scm 430 */
BgL_auxz00_5721 = BgL_eqz00_2874
; }  else 
{ /* ./Llib/hash.scm 430 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7638z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_eqz00_2874, BGl_string7574z00zz__hashz00, 
BINT(((long)17265))); 
exit( -1 );} 
if(
PROCEDUREP(BgL_getzd2keyzd2_2873))
{ /* ./Llib/hash.scm 430 */
BgL_auxz00_5715 = BgL_getzd2keyzd2_2873
; }  else 
{ /* ./Llib/hash.scm 430 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7638z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_getzd2keyzd2_2873, BGl_string7574z00zz__hashz00, 
BINT(((long)17265))); 
exit( -1 );} 
if(
PROCEDUREP(BgL_getzd2hashzd2numberz00_2872))
{ /* ./Llib/hash.scm 430 */
BgL_auxz00_5709 = BgL_getzd2hashzd2numberz00_2872
; }  else 
{ /* ./Llib/hash.scm 430 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7638z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_getzd2hashzd2numberz00_2872, BGl_string7574z00zz__hashz00, 
BINT(((long)17265))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 430 */
obj_t BgL_auxz00_5702;
if(
INTEGERP(BgL_maxzd2siza7ez75_2871))
{ /* ./Llib/hash.scm 430 */
BgL_auxz00_5702 = BgL_maxzd2siza7ez75_2871
; }  else 
{ /* ./Llib/hash.scm 430 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7638z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_maxzd2siza7ez75_2871, BGl_string7574z00zz__hashz00, 
BINT(((long)17265))); 
exit( -1 );} 
BgL_auxz00_5701 = 
(long)CINT(BgL_auxz00_5702); } 
return 
BGl_makezd2hashzd2tablez00zz__hashz00(BgL_auxz00_5701, BgL_auxz00_5709, BgL_auxz00_5715, BgL_auxz00_5721, BgL_initzd2siza7ez75_2875);} } 
}



/* hash-table? */
BGL_EXPORTED_DEF bool_t BGl_hashzd2tablezf3z21zz__hashz00(obj_t BgL_objz00_73)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 456 */
{ /* ./Llib/hash.scm 457 */
obj_t BgL_symbol2882z00_2802;
BgL_symbol2882z00_2802 = BGl_symbol7639z00zz__hashz00; 
{ /* ./Llib/hash.scm 457 */

PUSH_TRACE(BgL_symbol2882z00_2802); BUNSPEC; 
{ /* ./Llib/hash.scm 457 */
bool_t BgL_aux2881z00_2803;
{ /* ./Llib/hash.scm 457 */
bool_t BgL_test1572z00_2134;
BgL_test1572z00_2134 = 
STRUCTP(BgL_objz00_73); 
if(BgL_test1572z00_2134)
{ /* ./Llib/hash.scm 457 */
obj_t BgL_arg1574z00_2135;obj_t BgL_arg1575z00_2136;
{ /* ./Llib/hash.scm 457 */
obj_t BgL_res2775z00_2139;
{ /* ./Llib/hash.scm 457 */
obj_t BgL_sz00_2138;
if(BgL_test1572z00_2134)
{ /* ./Llib/hash.scm 457 */
BgL_sz00_2138 = BgL_objz00_73; }  else 
{ /* ./Llib/hash.scm 457 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7639z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_objz00_73, BGl_string7574z00zz__hashz00, 
BINT(((long)18141))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 457 */
obj_t BgL_aux5327z00_3273;
BgL_aux5327z00_3273 = 
STRUCT_KEY(BgL_sz00_2138); 
if(
SYMBOLP(BgL_aux5327z00_3273))
{ /* ./Llib/hash.scm 457 */
BgL_res2775z00_2139 = BgL_aux5327z00_3273; }  else 
{ /* ./Llib/hash.scm 457 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7639z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5327z00_3273, BGl_string7574z00zz__hashz00, 
BINT(((long)18141))); 
exit( -1 );} } } 
BgL_arg1574z00_2135 = BgL_res2775z00_2139; } 
BgL_arg1575z00_2136 = BGl_symbol7633z00zz__hashz00; 
BgL_aux2881z00_2803 = 
(BgL_arg1574z00_2135==BgL_arg1575z00_2136); }  else 
{ /* ./Llib/hash.scm 457 */
BgL_aux2881z00_2803 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2881z00_2803;} } } } 
}



/* _hash-table? */
obj_t BGl__hashzd2tablezf3z21zz__hashz00(obj_t BgL_envz00_2876, obj_t BgL_objz00_2877)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 456 */
{ /* ./Llib/hash.scm 457 */
bool_t BgL_auxz00_5743;
BgL_auxz00_5743 = 
BGl_hashzd2tablezf3z21zz__hashz00(BgL_objz00_2877); 
return 
BBOOL(BgL_auxz00_5743);} } 
}



/* hash-table-nb-entry */
BGL_EXPORTED_DEF obj_t BGl_hashzd2tablezd2nbzd2entryzd2zz__hashz00(obj_t BgL_tablez00_74)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 462 */
{ /* ./Llib/hash.scm 463 */
obj_t BgL_symbol2886z00_2804;
BgL_symbol2886z00_2804 = BGl_symbol7640z00zz__hashz00; 
{ /* ./Llib/hash.scm 463 */

PUSH_TRACE(BgL_symbol2886z00_2804); BUNSPEC; 
{ /* ./Llib/hash.scm 463 */
obj_t BgL_aux2885z00_2805;
{ /* ./Llib/hash.scm 463 */
bool_t BgL_test1613z00_2141;
{ /* ./Llib/hash.scm 463 */
obj_t BgL_arg1617z00_2142;obj_t BgL_arg1618z00_2143;
{ /* ./Llib/hash.scm 463 */
obj_t BgL_res2776z00_2145;
{ /* ./Llib/hash.scm 463 */
obj_t BgL_sz00_2144;
if(
STRUCTP(BgL_tablez00_74))
{ /* ./Llib/hash.scm 463 */
BgL_sz00_2144 = BgL_tablez00_74; }  else 
{ /* ./Llib/hash.scm 463 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7640z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_74, BGl_string7574z00zz__hashz00, 
BINT(((long)18419))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 463 */
obj_t BgL_aux5348z00_3277;
BgL_aux5348z00_3277 = 
STRUCT_KEY(BgL_sz00_2144); 
if(
SYMBOLP(BgL_aux5348z00_3277))
{ /* ./Llib/hash.scm 463 */
BgL_res2776z00_2145 = BgL_aux5348z00_3277; }  else 
{ /* ./Llib/hash.scm 463 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7640z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5348z00_3277, BGl_string7574z00zz__hashz00, 
BINT(((long)18419))); 
exit( -1 );} } } 
BgL_arg1617z00_2142 = BgL_res2776z00_2145; } 
BgL_arg1618z00_2143 = BGl_symbol7633z00zz__hashz00; 
BgL_test1613z00_2141 = 
(BgL_arg1617z00_2142==BgL_arg1618z00_2143); } 
if(BgL_test1613z00_2141)
{ /* ./Llib/hash.scm 463 */
int BgL_auxz00_5760;
BgL_auxz00_5760 = 
(int)(((long)4)); 
BgL_aux2885z00_2805 = 
STRUCT_REF(BgL_tablez00_74, BgL_auxz00_5760); }  else 
{ /* ./Llib/hash.scm 463 */
BgL_aux2885z00_2805 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_74, BGl_string7574z00zz__hashz00, 
BINT(((long)18419))); } } 
POP_TRACE(); 
return BgL_aux2885z00_2805;} } } } 
}



/* _hash-table-nb-entry */
obj_t BGl__hashzd2tablezd2nbzd2entryzd2zz__hashz00(obj_t BgL_envz00_2878, obj_t BgL_tablez00_2879)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 462 */
return 
BGl_hashzd2tablezd2nbzd2entryzd2zz__hashz00(BgL_tablez00_2879);} 
}



/* hash-table->vector */
BGL_EXPORTED_DEF obj_t BGl_hashzd2tablezd2ze3vectorze3zz__hashz00(obj_t BgL_tablez00_75)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 468 */
{ /* ./Llib/hash.scm 469 */
obj_t BgL_symbol2890z00_2806;
BgL_symbol2890z00_2806 = BGl_symbol7641z00zz__hashz00; 
{ /* ./Llib/hash.scm 469 */

PUSH_TRACE(BgL_symbol2890z00_2806); BUNSPEC; 
{ /* ./Llib/hash.scm 469 */
obj_t BgL_aux2889z00_2807;
{ /* ./Llib/hash.scm 469 */
bool_t BgL_test1579z00_2150;
{ /* ./Llib/hash.scm 469 */
obj_t BgL_arg1585z00_2151;obj_t BgL_arg1586z00_2152;
{ /* ./Llib/hash.scm 469 */
obj_t BgL_res2777z00_2154;
{ /* ./Llib/hash.scm 469 */
obj_t BgL_sz00_2153;
if(
STRUCTP(BgL_tablez00_75))
{ /* ./Llib/hash.scm 469 */
BgL_sz00_2153 = BgL_tablez00_75; }  else 
{ /* ./Llib/hash.scm 469 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7641z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_75, BGl_string7574z00zz__hashz00, 
BINT(((long)18706))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 469 */
obj_t BgL_aux5373z00_3281;
BgL_aux5373z00_3281 = 
STRUCT_KEY(BgL_sz00_2153); 
if(
SYMBOLP(BgL_aux5373z00_3281))
{ /* ./Llib/hash.scm 469 */
BgL_res2777z00_2154 = BgL_aux5373z00_3281; }  else 
{ /* ./Llib/hash.scm 469 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7641z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5373z00_3281, BGl_string7574z00zz__hashz00, 
BINT(((long)18706))); 
exit( -1 );} } } 
BgL_arg1585z00_2151 = BgL_res2777z00_2154; } 
BgL_arg1586z00_2152 = BGl_symbol7633z00zz__hashz00; 
BgL_test1579z00_2150 = 
(BgL_arg1585z00_2151==BgL_arg1586z00_2152); } 
if(BgL_test1579z00_2150)
{ /* ./Llib/hash.scm 469 */
int BgL_auxz00_5781;
BgL_auxz00_5781 = 
(int)(((long)6)); 
BgL_aux2889z00_2807 = 
STRUCT_REF(BgL_tablez00_75, BgL_auxz00_5781); }  else 
{ /* ./Llib/hash.scm 469 */
BgL_aux2889z00_2807 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_75, BGl_string7574z00zz__hashz00, 
BINT(((long)18706))); } } 
POP_TRACE(); 
return BgL_aux2889z00_2807;} } } } 
}



/* _hash-table->vector */
obj_t BGl__hashzd2tablezd2ze3vectorze3zz__hashz00(obj_t BgL_envz00_2880, obj_t BgL_tablez00_2881)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 468 */
return 
BGl_hashzd2tablezd2ze3vectorze3zz__hashz00(BgL_tablez00_2881);} 
}



/* get-hash-number */
obj_t BGl_getzd2hashzd2numberz00zz__hashz00(obj_t BgL_tablez00_76, obj_t BgL_keyz00_77)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 474 */
{ /* ./Llib/hash.scm 475 */
obj_t BgL_symbol2894z00_2808;
BgL_symbol2894z00_2808 = BGl_symbol7642z00zz__hashz00; 
{ /* ./Llib/hash.scm 475 */

PUSH_TRACE(BgL_symbol2894z00_2808); BUNSPEC; 
{ /* ./Llib/hash.scm 475 */
obj_t BgL_aux2893z00_2809;
{ /* ./Llib/hash.scm 475 */
obj_t BgL_hashzd2functionzd2_738;
{ /* ./Llib/hash.scm 475 */
bool_t BgL_test1645z00_2159;
{ /* ./Llib/hash.scm 475 */
obj_t BgL_arg1649z00_2160;obj_t BgL_arg1650z00_2161;
{ /* ./Llib/hash.scm 475 */
obj_t BgL_res2778z00_2163;
{ /* ./Llib/hash.scm 475 */
obj_t BgL_sz00_2162;
if(
STRUCTP(BgL_tablez00_76))
{ /* ./Llib/hash.scm 475 */
BgL_sz00_2162 = BgL_tablez00_76; }  else 
{ /* ./Llib/hash.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_76, BGl_string7574z00zz__hashz00, 
BINT(((long)19013))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 475 */
obj_t BgL_aux5398z00_3285;
BgL_aux5398z00_3285 = 
STRUCT_KEY(BgL_sz00_2162); 
if(
SYMBOLP(BgL_aux5398z00_3285))
{ /* ./Llib/hash.scm 475 */
BgL_res2778z00_2163 = BgL_aux5398z00_3285; }  else 
{ /* ./Llib/hash.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5398z00_3285, BGl_string7574z00zz__hashz00, 
BINT(((long)19013))); 
exit( -1 );} } } 
BgL_arg1649z00_2160 = BgL_res2778z00_2163; } 
BgL_arg1650z00_2161 = BGl_symbol7633z00zz__hashz00; 
BgL_test1645z00_2159 = 
(BgL_arg1649z00_2160==BgL_arg1650z00_2161); } 
if(BgL_test1645z00_2159)
{ /* ./Llib/hash.scm 475 */
int BgL_auxz00_5802;
BgL_auxz00_5802 = 
(int)(((long)2)); 
BgL_hashzd2functionzd2_738 = 
STRUCT_REF(BgL_tablez00_76, BgL_auxz00_5802); }  else 
{ /* ./Llib/hash.scm 475 */
BgL_hashzd2functionzd2_738 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_76, BGl_string7574z00zz__hashz00, 
BINT(((long)19013))); } } 
{ /* ./Llib/hash.scm 475 */
obj_t BgL_maxzd2siza7ez75_739;
{ /* ./Llib/hash.scm 476 */
bool_t BgL_test1678z00_2168;
{ /* ./Llib/hash.scm 476 */
obj_t BgL_arg1682z00_2169;obj_t BgL_arg1683z00_2170;
{ /* ./Llib/hash.scm 476 */
obj_t BgL_res2779z00_2172;
{ /* ./Llib/hash.scm 476 */
obj_t BgL_sz00_2171;
if(
STRUCTP(BgL_tablez00_76))
{ /* ./Llib/hash.scm 476 */
BgL_sz00_2171 = BgL_tablez00_76; }  else 
{ /* ./Llib/hash.scm 476 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_76, BGl_string7574z00zz__hashz00, 
BINT(((long)19064))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 476 */
obj_t BgL_aux5423z00_3289;
BgL_aux5423z00_3289 = 
STRUCT_KEY(BgL_sz00_2171); 
if(
SYMBOLP(BgL_aux5423z00_3289))
{ /* ./Llib/hash.scm 476 */
BgL_res2779z00_2172 = BgL_aux5423z00_3289; }  else 
{ /* ./Llib/hash.scm 476 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5423z00_3289, BGl_string7574z00zz__hashz00, 
BINT(((long)19064))); 
exit( -1 );} } } 
BgL_arg1682z00_2169 = BgL_res2779z00_2172; } 
BgL_arg1683z00_2170 = BGl_symbol7633z00zz__hashz00; 
BgL_test1678z00_2168 = 
(BgL_arg1682z00_2169==BgL_arg1683z00_2170); } 
if(BgL_test1678z00_2168)
{ /* ./Llib/hash.scm 476 */
int BgL_auxz00_5820;
BgL_auxz00_5820 = 
(int)(((long)0)); 
BgL_maxzd2siza7ez75_739 = 
STRUCT_REF(BgL_tablez00_76, BgL_auxz00_5820); }  else 
{ /* ./Llib/hash.scm 476 */
BgL_maxzd2siza7ez75_739 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_76, BGl_string7574z00zz__hashz00, 
BINT(((long)19064))); } } 
{ /* ./Llib/hash.scm 476 */
obj_t BgL_siza7eza7_740;
{ /* ./Llib/hash.scm 477 */
bool_t BgL_test1661z00_2177;
{ /* ./Llib/hash.scm 477 */
obj_t BgL_arg1666z00_2178;obj_t BgL_arg1667z00_2179;
{ /* ./Llib/hash.scm 477 */
obj_t BgL_res2780z00_2181;
{ /* ./Llib/hash.scm 477 */
obj_t BgL_sz00_2180;
if(
STRUCTP(BgL_tablez00_76))
{ /* ./Llib/hash.scm 477 */
BgL_sz00_2180 = BgL_tablez00_76; }  else 
{ /* ./Llib/hash.scm 477 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_76, BGl_string7574z00zz__hashz00, 
BINT(((long)19108))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 477 */
obj_t BgL_aux5448z00_3293;
BgL_aux5448z00_3293 = 
STRUCT_KEY(BgL_sz00_2180); 
if(
SYMBOLP(BgL_aux5448z00_3293))
{ /* ./Llib/hash.scm 477 */
BgL_res2780z00_2181 = BgL_aux5448z00_3293; }  else 
{ /* ./Llib/hash.scm 477 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5448z00_3293, BGl_string7574z00zz__hashz00, 
BINT(((long)19108))); 
exit( -1 );} } } 
BgL_arg1666z00_2178 = BgL_res2780z00_2181; } 
BgL_arg1667z00_2179 = BGl_symbol7633z00zz__hashz00; 
BgL_test1661z00_2177 = 
(BgL_arg1666z00_2178==BgL_arg1667z00_2179); } 
if(BgL_test1661z00_2177)
{ /* ./Llib/hash.scm 477 */
int BgL_auxz00_5838;
BgL_auxz00_5838 = 
(int)(((long)1)); 
BgL_siza7eza7_740 = 
STRUCT_REF(BgL_tablez00_76, BgL_auxz00_5838); }  else 
{ /* ./Llib/hash.scm 477 */
BgL_siza7eza7_740 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_76, BGl_string7574z00zz__hashz00, 
BINT(((long)19108))); } } 
{ /* ./Llib/hash.scm 477 */
obj_t BgL_numz00_741;
{ /* ./Llib/hash.scm 478 */
obj_t BgL_funz00_3297;
if(
PROCEDUREP(BgL_hashzd2functionzd2_738))
{ /* ./Llib/hash.scm 478 */
BgL_funz00_3297 = BgL_hashzd2functionzd2_738; }  else 
{ /* ./Llib/hash.scm 478 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_hashzd2functionzd2_738, BGl_string7574z00zz__hashz00, 
BINT(((long)19148))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3297, ((long)1)))
{ /* ./Llib/hash.scm 478 */
BgL_numz00_741 = 
PROCEDURE_ENTRY(BgL_funz00_3297)(BgL_hashzd2functionzd2_738, BgL_keyz00_77, BEOA); }  else 
{ /* ./Llib/hash.scm 478 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7643z00zz__hashz00, BGl_list7644z00zz__hashz00, BgL_funz00_3297, BGl_string7574z00zz__hashz00, 
BINT(((long)19148))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } 
{ /* ./Llib/hash.scm 478 */
obj_t BgL_resz00_742;
{ /* ./Llib/hash.scm 479 */
bool_t BgL_test1730z00_746;
{ /* ./Llib/hash.scm 479 */
long BgL_n1z00_2185;long BgL_n2z00_2186;
{ /* ./Llib/hash.scm 479 */
obj_t BgL_auxz00_5855;
if(
INTEGERP(BgL_siza7eza7_740))
{ /* ./Llib/hash.scm 479 */
BgL_auxz00_5855 = BgL_siza7eza7_740
; }  else 
{ /* ./Llib/hash.scm 479 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_siza7eza7_740, BGl_string7574z00zz__hashz00, 
BINT(((long)19199))); 
exit( -1 );} 
BgL_n1z00_2185 = 
(long)CINT(BgL_auxz00_5855); } 
{ /* ./Llib/hash.scm 479 */
obj_t BgL_auxz00_5862;
if(
INTEGERP(BgL_maxzd2siza7ez75_739))
{ /* ./Llib/hash.scm 479 */
BgL_auxz00_5862 = BgL_maxzd2siza7ez75_739
; }  else 
{ /* ./Llib/hash.scm 479 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_maxzd2siza7ez75_739, BGl_string7574z00zz__hashz00, 
BINT(((long)19208))); 
exit( -1 );} 
BgL_n2z00_2186 = 
(long)CINT(BgL_auxz00_5862); } 
BgL_test1730z00_746 = 
(BgL_n1z00_2185<BgL_n2z00_2186); } 
if(BgL_test1730z00_746)
{ /* ./Llib/hash.scm 480 */
long BgL_auxz00_5871;
{ /* ./Llib/hash.scm 480 */
long BgL_auxz00_5880;long BgL_auxz00_5872;
{ /* ./Llib/hash.scm 480 */
obj_t BgL_auxz00_5881;
if(
INTEGERP(BgL_siza7eza7_740))
{ /* ./Llib/hash.scm 480 */
BgL_auxz00_5881 = BgL_siza7eza7_740
; }  else 
{ /* ./Llib/hash.scm 480 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_siza7eza7_740, BGl_string7574z00zz__hashz00, 
BINT(((long)19234))); 
exit( -1 );} 
BgL_auxz00_5880 = 
(long)CINT(BgL_auxz00_5881); } 
{ /* ./Llib/hash.scm 480 */
obj_t BgL_auxz00_5873;
if(
INTEGERP(BgL_numz00_741))
{ /* ./Llib/hash.scm 480 */
BgL_auxz00_5873 = BgL_numz00_741
; }  else 
{ /* ./Llib/hash.scm 480 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_numz00_741, BGl_string7574z00zz__hashz00, 
BINT(((long)19229))); 
exit( -1 );} 
BgL_auxz00_5872 = 
(long)CINT(BgL_auxz00_5873); } 
BgL_auxz00_5871 = 
BGl_moduloz00zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_5872, BgL_auxz00_5880); } 
BgL_resz00_742 = 
BINT(BgL_auxz00_5871); }  else 
{ /* ./Llib/hash.scm 479 */
BgL_resz00_742 = BgL_numz00_741; } } 
{ /* ./Llib/hash.scm 479 */

{ /* ./Llib/hash.scm 482 */
bool_t BgL_test1724z00_743;
{ /* ./Llib/hash.scm 482 */
long BgL_n1z00_2187;long BgL_n2z00_2188;
{ /* ./Llib/hash.scm 482 */
obj_t BgL_auxz00_5890;
if(
INTEGERP(BgL_resz00_742))
{ /* ./Llib/hash.scm 482 */
BgL_auxz00_5890 = BgL_resz00_742
; }  else 
{ /* ./Llib/hash.scm 482 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_resz00_742, BGl_string7574z00zz__hashz00, 
BINT(((long)19270))); 
exit( -1 );} 
BgL_n1z00_2187 = 
(long)CINT(BgL_auxz00_5890); } 
{ /* ./Llib/hash.scm 482 */
obj_t BgL_auxz00_5897;
if(
INTEGERP(BgL_maxzd2siza7ez75_739))
{ /* ./Llib/hash.scm 482 */
BgL_auxz00_5897 = BgL_maxzd2siza7ez75_739
; }  else 
{ /* ./Llib/hash.scm 482 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7642z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_maxzd2siza7ez75_739, BGl_string7574z00zz__hashz00, 
BINT(((long)19279))); 
exit( -1 );} 
BgL_n2z00_2188 = 
(long)CINT(BgL_auxz00_5897); } 
BgL_test1724z00_743 = 
(BgL_n1z00_2187>=BgL_n2z00_2188); } 
if(BgL_test1724z00_743)
{ /* ./Llib/hash.scm 483 */
obj_t BgL_resz00_744;
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7647z00zz__hashz00, BGl_string7648z00zz__hashz00, BgL_tablez00_76, "./Llib/hash.scm", ((long)19296)); 
BgL_resz00_744 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)19291))); 
if(
INTEGERP(BgL_resz00_744))
{ /* ./Llib/hash.scm 486 */
BgL_aux2893z00_2809 = BgL_resz00_744; }  else 
{ /* ./Llib/hash.scm 486 */
BgL_aux2893z00_2809 = 
BINT(((long)-1)); } }  else 
{ /* ./Llib/hash.scm 482 */
BgL_aux2893z00_2809 = BgL_resz00_742; } } } } } } } } 
POP_TRACE(); 
return BgL_aux2893z00_2809;} } } } 
}



/* get-hash */
BGL_EXPORTED_DEF obj_t BGl_getzd2hashzd2zz__hashz00(obj_t BgL_keyz00_78, obj_t BgL_tablez00_79)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 494 */
{ /* ./Llib/hash.scm 495 */
obj_t BgL_symbol2898z00_2810;
BgL_symbol2898z00_2810 = BGl_symbol7649z00zz__hashz00; 
{ /* ./Llib/hash.scm 495 */

PUSH_TRACE(BgL_symbol2898z00_2810); BUNSPEC; 
{ /* ./Llib/hash.scm 495 */
obj_t BgL_aux2897z00_2811;
{ /* ./Llib/hash.scm 495 */
obj_t BgL_hashzd2numzd2_747;
BgL_hashzd2numzd2_747 = 
BGl_getzd2hashzd2numberz00zz__hashz00(BgL_tablez00_79, BgL_keyz00_78); 
{ /* ./Llib/hash.scm 495 */
obj_t BgL_hashzd2eqzf3z21_748;
{ /* ./Llib/hash.scm 496 */
bool_t BgL_test1597z00_2194;
{ /* ./Llib/hash.scm 496 */
obj_t BgL_arg1601z00_2195;obj_t BgL_arg1602z00_2196;
{ /* ./Llib/hash.scm 496 */
obj_t BgL_res2781z00_2198;
{ /* ./Llib/hash.scm 496 */
obj_t BgL_sz00_2197;
if(
STRUCTP(BgL_tablez00_79))
{ /* ./Llib/hash.scm 496 */
BgL_sz00_2197 = BgL_tablez00_79; }  else 
{ /* ./Llib/hash.scm 496 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_79, BGl_string7574z00zz__hashz00, 
BINT(((long)19737))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 496 */
obj_t BgL_aux5565z00_3314;
BgL_aux5565z00_3314 = 
STRUCT_KEY(BgL_sz00_2197); 
if(
SYMBOLP(BgL_aux5565z00_3314))
{ /* ./Llib/hash.scm 496 */
BgL_res2781z00_2198 = BgL_aux5565z00_3314; }  else 
{ /* ./Llib/hash.scm 496 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5565z00_3314, BGl_string7574z00zz__hashz00, 
BINT(((long)19737))); 
exit( -1 );} } } 
BgL_arg1601z00_2195 = BgL_res2781z00_2198; } 
BgL_arg1602z00_2196 = BGl_symbol7633z00zz__hashz00; 
BgL_test1597z00_2194 = 
(BgL_arg1601z00_2195==BgL_arg1602z00_2196); } 
if(BgL_test1597z00_2194)
{ /* ./Llib/hash.scm 496 */
int BgL_auxz00_5928;
BgL_auxz00_5928 = 
(int)(((long)5)); 
BgL_hashzd2eqzf3z21_748 = 
STRUCT_REF(BgL_tablez00_79, BgL_auxz00_5928); }  else 
{ /* ./Llib/hash.scm 496 */
BgL_hashzd2eqzf3z21_748 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_79, BGl_string7574z00zz__hashz00, 
BINT(((long)19737))); } } 
{ /* ./Llib/hash.scm 496 */
obj_t BgL_bucketz00_749;
{ /* ./Llib/hash.scm 497 */
obj_t BgL_arg1758z00_758;
{ /* ./Llib/hash.scm 497 */
bool_t BgL_test1579z00_2203;
{ /* ./Llib/hash.scm 497 */
obj_t BgL_arg1585z00_2204;obj_t BgL_arg1586z00_2205;
{ /* ./Llib/hash.scm 497 */
obj_t BgL_res2782z00_2207;
{ /* ./Llib/hash.scm 497 */
obj_t BgL_sz00_2206;
if(
STRUCTP(BgL_tablez00_79))
{ /* ./Llib/hash.scm 497 */
BgL_sz00_2206 = BgL_tablez00_79; }  else 
{ /* ./Llib/hash.scm 497 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_79, BGl_string7574z00zz__hashz00, 
BINT(((long)19790))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 497 */
obj_t BgL_aux5590z00_3318;
BgL_aux5590z00_3318 = 
STRUCT_KEY(BgL_sz00_2206); 
if(
SYMBOLP(BgL_aux5590z00_3318))
{ /* ./Llib/hash.scm 497 */
BgL_res2782z00_2207 = BgL_aux5590z00_3318; }  else 
{ /* ./Llib/hash.scm 497 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5590z00_3318, BGl_string7574z00zz__hashz00, 
BINT(((long)19790))); 
exit( -1 );} } } 
BgL_arg1585z00_2204 = BgL_res2782z00_2207; } 
BgL_arg1586z00_2205 = BGl_symbol7633z00zz__hashz00; 
BgL_test1579z00_2203 = 
(BgL_arg1585z00_2204==BgL_arg1586z00_2205); } 
if(BgL_test1579z00_2203)
{ /* ./Llib/hash.scm 497 */
int BgL_auxz00_5946;
BgL_auxz00_5946 = 
(int)(((long)6)); 
BgL_arg1758z00_758 = 
STRUCT_REF(BgL_tablez00_79, BgL_auxz00_5946); }  else 
{ /* ./Llib/hash.scm 497 */
BgL_arg1758z00_758 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_79, BGl_string7574z00zz__hashz00, 
BINT(((long)19790))); } } 
{ /* ./Llib/hash.scm 497 */
obj_t BgL_vectorz00_2211;int BgL_kz00_2212;
if(
VECTORP(BgL_arg1758z00_758))
{ /* ./Llib/hash.scm 497 */
BgL_vectorz00_2211 = BgL_arg1758z00_758; }  else 
{ /* ./Llib/hash.scm 497 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_arg1758z00_758, BGl_string7574z00zz__hashz00, 
BINT(((long)19778))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 497 */
obj_t BgL_auxz00_5956;
if(
INTEGERP(BgL_hashzd2numzd2_747))
{ /* ./Llib/hash.scm 497 */
BgL_auxz00_5956 = BgL_hashzd2numzd2_747
; }  else 
{ /* ./Llib/hash.scm 497 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_hashzd2numzd2_747, BGl_string7574z00zz__hashz00, 
BINT(((long)19778))); 
exit( -1 );} 
BgL_kz00_2212 = 
CINT(BgL_auxz00_5956); } 
{ /* ./Llib/hash.scm 497 */
bool_t BgL_test2434z00_2213;
{ /* ./Llib/hash.scm 497 */
int BgL_arg2439z00_2214;
BgL_arg2439z00_2214 = 
VECTOR_LENGTH(BgL_vectorz00_2211); 
BgL_test2434z00_2213 = 
BOUND_CHECK(BgL_kz00_2212, BgL_arg2439z00_2214); } 
if(BgL_test2434z00_2213)
{ /* ./Llib/hash.scm 497 */
BgL_bucketz00_749 = 
VECTOR_REF(BgL_vectorz00_2211,BgL_kz00_2212); }  else 
{ /* ./Llib/hash.scm 497 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_2212), "./Ieee/vector.scm", ((long)5865)); 
BgL_bucketz00_749 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)19778))); } } } } 
{ /* ./Llib/hash.scm 497 */
obj_t BgL_getzd2keyzd2_750;
{ /* ./Llib/hash.scm 498 */
bool_t BgL_test1629z00_2220;
{ /* ./Llib/hash.scm 498 */
obj_t BgL_arg1633z00_2221;obj_t BgL_arg1634z00_2222;
{ /* ./Llib/hash.scm 498 */
obj_t BgL_res2783z00_2224;
{ /* ./Llib/hash.scm 498 */
obj_t BgL_sz00_2223;
if(
STRUCTP(BgL_tablez00_79))
{ /* ./Llib/hash.scm 498 */
BgL_sz00_2223 = BgL_tablez00_79; }  else 
{ /* ./Llib/hash.scm 498 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_79, BGl_string7574z00zz__hashz00, 
BINT(((long)19837))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 498 */
obj_t BgL_aux5644z00_3326;
BgL_aux5644z00_3326 = 
STRUCT_KEY(BgL_sz00_2223); 
if(
SYMBOLP(BgL_aux5644z00_3326))
{ /* ./Llib/hash.scm 498 */
BgL_res2783z00_2224 = BgL_aux5644z00_3326; }  else 
{ /* ./Llib/hash.scm 498 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5644z00_3326, BGl_string7574z00zz__hashz00, 
BINT(((long)19837))); 
exit( -1 );} } } 
BgL_arg1633z00_2221 = BgL_res2783z00_2224; } 
BgL_arg1634z00_2222 = BGl_symbol7633z00zz__hashz00; 
BgL_test1629z00_2220 = 
(BgL_arg1633z00_2221==BgL_arg1634z00_2222); } 
if(BgL_test1629z00_2220)
{ /* ./Llib/hash.scm 498 */
int BgL_auxz00_5984;
BgL_auxz00_5984 = 
(int)(((long)3)); 
BgL_getzd2keyzd2_750 = 
STRUCT_REF(BgL_tablez00_79, BgL_auxz00_5984); }  else 
{ /* ./Llib/hash.scm 498 */
BgL_getzd2keyzd2_750 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_79, BGl_string7574z00zz__hashz00, 
BINT(((long)19837))); } } 
{ /* ./Llib/hash.scm 498 */

{ 
obj_t BgL_bucketz00_751;
BgL_bucketz00_751 = BgL_bucketz00_749; 
BgL_loopz00_752:
if(
NULLP(BgL_bucketz00_751))
{ /* ./Llib/hash.scm 501 */
BgL_aux2897z00_2811 = BFALSE; }  else 
{ /* ./Llib/hash.scm 503 */
bool_t BgL_test1739z00_754;
{ /* ./Llib/hash.scm 503 */
obj_t BgL_arg1748z00_756;
{ /* ./Llib/hash.scm 503 */
obj_t BgL_arg1752z00_757;
{ /* ./Llib/hash.scm 503 */
obj_t BgL_pairz00_2229;
if(
PAIRP(BgL_bucketz00_751))
{ /* ./Llib/hash.scm 503 */
BgL_pairz00_2229 = BgL_bucketz00_751; }  else 
{ /* ./Llib/hash.scm 503 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_751, BGl_string7574z00zz__hashz00, 
BINT(((long)19971))); 
exit( -1 );} 
BgL_arg1752z00_757 = 
CAR(BgL_pairz00_2229); } 
{ /* ./Llib/hash.scm 503 */
obj_t BgL_funz00_3332;
if(
PROCEDUREP(BgL_getzd2keyzd2_750))
{ /* ./Llib/hash.scm 503 */
BgL_funz00_3332 = BgL_getzd2keyzd2_750; }  else 
{ /* ./Llib/hash.scm 503 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_getzd2keyzd2_750, BGl_string7574z00zz__hashz00, 
BINT(((long)19952))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3332, ((long)1)))
{ /* ./Llib/hash.scm 503 */
BgL_arg1748z00_756 = 
PROCEDURE_ENTRY(BgL_funz00_3332)(BgL_getzd2keyzd2_750, BgL_arg1752z00_757, BEOA); }  else 
{ /* ./Llib/hash.scm 503 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7650z00zz__hashz00, BGl_list7651z00zz__hashz00, BgL_funz00_3332, BGl_string7574z00zz__hashz00, 
BINT(((long)19952))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } } 
{ /* ./Llib/hash.scm 503 */
obj_t BgL_funz00_3337;
if(
PROCEDUREP(BgL_hashzd2eqzf3z21_748))
{ /* ./Llib/hash.scm 503 */
BgL_funz00_3337 = BgL_hashzd2eqzf3z21_748; }  else 
{ /* ./Llib/hash.scm 503 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_hashzd2eqzf3z21_748, BGl_string7574z00zz__hashz00, 
BINT(((long)19942))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3337, ((long)2)))
{ /* ./Llib/hash.scm 503 */
obj_t BgL_auxz00_6016;
BgL_auxz00_6016 = 
PROCEDURE_ENTRY(BgL_funz00_3337)(BgL_hashzd2eqzf3z21_748, BgL_arg1748z00_756, BgL_keyz00_78, BEOA); 
BgL_test1739z00_754 = 
CBOOL(BgL_auxz00_6016); }  else 
{ /* ./Llib/hash.scm 503 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7650z00zz__hashz00, BGl_list7654z00zz__hashz00, BgL_funz00_3337, BGl_string7574z00zz__hashz00, 
BINT(((long)19942))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } } 
if(BgL_test1739z00_754)
{ /* ./Llib/hash.scm 503 */
{ /* ./Llib/hash.scm 504 */
obj_t BgL_pairz00_2230;
if(
PAIRP(BgL_bucketz00_751))
{ /* ./Llib/hash.scm 504 */
BgL_pairz00_2230 = BgL_bucketz00_751; }  else 
{ /* ./Llib/hash.scm 504 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_751, BGl_string7574z00zz__hashz00, 
BINT(((long)19996))); 
exit( -1 );} 
BgL_aux2897z00_2811 = 
CAR(BgL_pairz00_2230); } }  else 
{ /* ./Llib/hash.scm 503 */
{ /* ./Llib/hash.scm 506 */
obj_t BgL_arg1743z00_755;
{ /* ./Llib/hash.scm 506 */
obj_t BgL_pairz00_2231;
if(
PAIRP(BgL_bucketz00_751))
{ /* ./Llib/hash.scm 506 */
BgL_pairz00_2231 = BgL_bucketz00_751; }  else 
{ /* ./Llib/hash.scm 506 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7649z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_751, BGl_string7574z00zz__hashz00, 
BINT(((long)20033))); 
exit( -1 );} 
BgL_arg1743z00_755 = 
CDR(BgL_pairz00_2231); } 
{ 
obj_t BgL_bucketz00_6036;
BgL_bucketz00_6036 = BgL_arg1743z00_755; 
BgL_bucketz00_751 = BgL_bucketz00_6036; 
goto BgL_loopz00_752;} } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2897z00_2811;} } } } 
}



/* _get-hash */
obj_t BGl__getzd2hashzd2zz__hashz00(obj_t BgL_envz00_2882, obj_t BgL_keyz00_2883, obj_t BgL_tablez00_2884)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 494 */
return 
BGl_getzd2hashzd2zz__hashz00(BgL_keyz00_2883, BgL_tablez00_2884);} 
}



/* put-hash! */
BGL_EXPORTED_DEF obj_t BGl_putzd2hashz12zc0zz__hashz00(obj_t BgL_objz00_80, obj_t BgL_tablez00_81)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 511 */
{ /* ./Llib/hash.scm 512 */
obj_t BgL_symbol2902z00_2812;
BgL_symbol2902z00_2812 = BGl_symbol7657z00zz__hashz00; 
{ /* ./Llib/hash.scm 512 */

PUSH_TRACE(BgL_symbol2902z00_2812); BUNSPEC; 
{ /* ./Llib/hash.scm 512 */
obj_t BgL_aux2901z00_2813;
{ /* ./Llib/hash.scm 512 */
bool_t BgL_test1763z00_759;
{ /* ./Llib/hash.scm 512 */
bool_t BgL_test1765z00_760;
{ /* ./Llib/hash.scm 512 */
obj_t BgL_arg1777z00_765;obj_t BgL_arg1778z00_766;
{ /* ./Llib/hash.scm 512 */
bool_t BgL_test1661z00_2233;
{ /* ./Llib/hash.scm 512 */
obj_t BgL_arg1666z00_2234;obj_t BgL_arg1667z00_2235;
{ /* ./Llib/hash.scm 512 */
obj_t BgL_res2784z00_2237;
{ /* ./Llib/hash.scm 512 */
obj_t BgL_sz00_2236;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 512 */
BgL_sz00_2236 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 512 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20312))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 512 */
obj_t BgL_aux5735z00_3346;
BgL_aux5735z00_3346 = 
STRUCT_KEY(BgL_sz00_2236); 
if(
SYMBOLP(BgL_aux5735z00_3346))
{ /* ./Llib/hash.scm 512 */
BgL_res2784z00_2237 = BgL_aux5735z00_3346; }  else 
{ /* ./Llib/hash.scm 512 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5735z00_3346, BGl_string7574z00zz__hashz00, 
BINT(((long)20312))); 
exit( -1 );} } } 
BgL_arg1666z00_2234 = BgL_res2784z00_2237; } 
BgL_arg1667z00_2235 = BGl_symbol7633z00zz__hashz00; 
BgL_test1661z00_2233 = 
(BgL_arg1666z00_2234==BgL_arg1667z00_2235); } 
if(BgL_test1661z00_2233)
{ /* ./Llib/hash.scm 512 */
int BgL_auxz00_6053;
BgL_auxz00_6053 = 
(int)(((long)1)); 
BgL_arg1777z00_765 = 
STRUCT_REF(BgL_tablez00_81, BgL_auxz00_6053); }  else 
{ /* ./Llib/hash.scm 512 */
BgL_arg1777z00_765 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20312))); } } 
{ /* ./Llib/hash.scm 512 */
bool_t BgL_test1678z00_2242;
{ /* ./Llib/hash.scm 512 */
obj_t BgL_arg1682z00_2243;obj_t BgL_arg1683z00_2244;
{ /* ./Llib/hash.scm 512 */
obj_t BgL_res2785z00_2246;
{ /* ./Llib/hash.scm 512 */
obj_t BgL_sz00_2245;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 512 */
BgL_sz00_2245 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 512 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20333))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 512 */
obj_t BgL_aux5760z00_3350;
BgL_aux5760z00_3350 = 
STRUCT_KEY(BgL_sz00_2245); 
if(
SYMBOLP(BgL_aux5760z00_3350))
{ /* ./Llib/hash.scm 512 */
BgL_res2785z00_2246 = BgL_aux5760z00_3350; }  else 
{ /* ./Llib/hash.scm 512 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5760z00_3350, BGl_string7574z00zz__hashz00, 
BINT(((long)20333))); 
exit( -1 );} } } 
BgL_arg1682z00_2243 = BgL_res2785z00_2246; } 
BgL_arg1683z00_2244 = BGl_symbol7633z00zz__hashz00; 
BgL_test1678z00_2242 = 
(BgL_arg1682z00_2243==BgL_arg1683z00_2244); } 
if(BgL_test1678z00_2242)
{ /* ./Llib/hash.scm 512 */
int BgL_auxz00_6071;
BgL_auxz00_6071 = 
(int)(((long)0)); 
BgL_arg1778z00_766 = 
STRUCT_REF(BgL_tablez00_81, BgL_auxz00_6071); }  else 
{ /* ./Llib/hash.scm 512 */
BgL_arg1778z00_766 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20333))); } } 
{ /* ./Llib/hash.scm 512 */
long BgL_n1z00_2250;long BgL_n2z00_2251;
{ /* ./Llib/hash.scm 512 */
obj_t BgL_auxz00_6076;
if(
INTEGERP(BgL_arg1777z00_765))
{ /* ./Llib/hash.scm 512 */
BgL_auxz00_6076 = BgL_arg1777z00_765
; }  else 
{ /* ./Llib/hash.scm 512 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1777z00_765, BGl_string7574z00zz__hashz00, 
BINT(((long)20331))); 
exit( -1 );} 
BgL_n1z00_2250 = 
(long)CINT(BgL_auxz00_6076); } 
{ /* ./Llib/hash.scm 512 */
obj_t BgL_auxz00_6083;
if(
INTEGERP(BgL_arg1778z00_766))
{ /* ./Llib/hash.scm 512 */
BgL_auxz00_6083 = BgL_arg1778z00_766
; }  else 
{ /* ./Llib/hash.scm 512 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1778z00_766, BGl_string7574z00zz__hashz00, 
BINT(((long)20356))); 
exit( -1 );} 
BgL_n2z00_2251 = 
(long)CINT(BgL_auxz00_6083); } 
BgL_test1765z00_760 = 
(BgL_n1z00_2250<BgL_n2z00_2251); } } 
if(BgL_test1765z00_760)
{ /* ./Llib/hash.scm 513 */
obj_t BgL_arg1767z00_761;long BgL_arg1768z00_762;
{ /* ./Llib/hash.scm 513 */
bool_t BgL_test1613z00_2254;
{ /* ./Llib/hash.scm 513 */
obj_t BgL_arg1617z00_2255;obj_t BgL_arg1618z00_2256;
{ /* ./Llib/hash.scm 513 */
obj_t BgL_res2786z00_2258;
{ /* ./Llib/hash.scm 513 */
obj_t BgL_sz00_2257;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 513 */
BgL_sz00_2257 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 513 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20369))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 513 */
obj_t BgL_aux5807z00_3358;
BgL_aux5807z00_3358 = 
STRUCT_KEY(BgL_sz00_2257); 
if(
SYMBOLP(BgL_aux5807z00_3358))
{ /* ./Llib/hash.scm 513 */
BgL_res2786z00_2258 = BgL_aux5807z00_3358; }  else 
{ /* ./Llib/hash.scm 513 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5807z00_3358, BGl_string7574z00zz__hashz00, 
BINT(((long)20369))); 
exit( -1 );} } } 
BgL_arg1617z00_2255 = BgL_res2786z00_2258; } 
BgL_arg1618z00_2256 = BGl_symbol7633z00zz__hashz00; 
BgL_test1613z00_2254 = 
(BgL_arg1617z00_2255==BgL_arg1618z00_2256); } 
if(BgL_test1613z00_2254)
{ /* ./Llib/hash.scm 513 */
int BgL_auxz00_6105;
BgL_auxz00_6105 = 
(int)(((long)4)); 
BgL_arg1767z00_761 = 
STRUCT_REF(BgL_tablez00_81, BgL_auxz00_6105); }  else 
{ /* ./Llib/hash.scm 513 */
BgL_arg1767z00_761 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20369))); } } 
{ /* ./Llib/hash.scm 514 */
obj_t BgL_arg1772z00_763;
{ /* ./Llib/hash.scm 514 */
bool_t BgL_test1661z00_2263;
{ /* ./Llib/hash.scm 514 */
obj_t BgL_arg1666z00_2264;obj_t BgL_arg1667z00_2265;
{ /* ./Llib/hash.scm 514 */
obj_t BgL_res2787z00_2267;
{ /* ./Llib/hash.scm 514 */
obj_t BgL_sz00_2266;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 514 */
BgL_sz00_2266 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 514 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20405))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 514 */
obj_t BgL_aux5832z00_3362;
BgL_aux5832z00_3362 = 
STRUCT_KEY(BgL_sz00_2266); 
if(
SYMBOLP(BgL_aux5832z00_3362))
{ /* ./Llib/hash.scm 514 */
BgL_res2787z00_2267 = BgL_aux5832z00_3362; }  else 
{ /* ./Llib/hash.scm 514 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5832z00_3362, BGl_string7574z00zz__hashz00, 
BINT(((long)20405))); 
exit( -1 );} } } 
BgL_arg1666z00_2264 = BgL_res2787z00_2267; } 
BgL_arg1667z00_2265 = BGl_symbol7633z00zz__hashz00; 
BgL_test1661z00_2263 = 
(BgL_arg1666z00_2264==BgL_arg1667z00_2265); } 
if(BgL_test1661z00_2263)
{ /* ./Llib/hash.scm 514 */
int BgL_auxz00_6123;
BgL_auxz00_6123 = 
(int)(((long)1)); 
BgL_arg1772z00_763 = 
STRUCT_REF(BgL_tablez00_81, BgL_auxz00_6123); }  else 
{ /* ./Llib/hash.scm 514 */
BgL_arg1772z00_763 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20405))); } } 
{ /* ./Llib/hash.scm 514 */
long BgL_za71za7_2271;
{ /* ./Llib/hash.scm 514 */
obj_t BgL_auxz00_6128;
if(
INTEGERP(BgL_arg1772z00_763))
{ /* ./Llib/hash.scm 514 */
BgL_auxz00_6128 = BgL_arg1772z00_763
; }  else 
{ /* ./Llib/hash.scm 514 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1772z00_763, BGl_string7574z00zz__hashz00, 
BINT(((long)20424))); 
exit( -1 );} 
BgL_za71za7_2271 = 
(long)CINT(BgL_auxz00_6128); } 
BgL_arg1768z00_762 = 
(BgL_za71za7_2271/((long)2)); } } 
{ /* ./Llib/hash.scm 513 */
long BgL_n1z00_2273;
{ /* ./Llib/hash.scm 513 */
obj_t BgL_auxz00_6136;
if(
INTEGERP(BgL_arg1767z00_761))
{ /* ./Llib/hash.scm 513 */
BgL_auxz00_6136 = BgL_arg1767z00_761
; }  else 
{ /* ./Llib/hash.scm 513 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1767z00_761, BGl_string7574z00zz__hashz00, 
BINT(((long)20395))); 
exit( -1 );} 
BgL_n1z00_2273 = 
(long)CINT(BgL_auxz00_6136); } 
BgL_test1763z00_759 = 
(BgL_n1z00_2273>BgL_arg1768z00_762); } }  else 
{ /* ./Llib/hash.scm 512 */
BgL_test1763z00_759 = ((bool_t)0); } } 
if(BgL_test1763z00_759)
{ /* ./Llib/hash.scm 512 */
BGl_hashzd2tablezd2growsz12z12zz__hashz00(BgL_tablez00_81); }  else 
{ /* ./Llib/hash.scm 512 */BFALSE; } } 
{ /* ./Llib/hash.scm 518 */
obj_t BgL_getzd2keyzd2_767;
{ /* ./Llib/hash.scm 518 */
bool_t BgL_test1629z00_2276;
{ /* ./Llib/hash.scm 518 */
obj_t BgL_arg1633z00_2277;obj_t BgL_arg1634z00_2278;
{ /* ./Llib/hash.scm 518 */
obj_t BgL_res2788z00_2280;
{ /* ./Llib/hash.scm 518 */
obj_t BgL_sz00_2279;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 518 */
BgL_sz00_2279 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 518 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20602))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 518 */
obj_t BgL_aux5880z00_3370;
BgL_aux5880z00_3370 = 
STRUCT_KEY(BgL_sz00_2279); 
if(
SYMBOLP(BgL_aux5880z00_3370))
{ /* ./Llib/hash.scm 518 */
BgL_res2788z00_2280 = BgL_aux5880z00_3370; }  else 
{ /* ./Llib/hash.scm 518 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5880z00_3370, BGl_string7574z00zz__hashz00, 
BINT(((long)20602))); 
exit( -1 );} } } 
BgL_arg1633z00_2277 = BgL_res2788z00_2280; } 
BgL_arg1634z00_2278 = BGl_symbol7633z00zz__hashz00; 
BgL_test1629z00_2276 = 
(BgL_arg1633z00_2277==BgL_arg1634z00_2278); } 
if(BgL_test1629z00_2276)
{ /* ./Llib/hash.scm 518 */
int BgL_auxz00_6159;
BgL_auxz00_6159 = 
(int)(((long)3)); 
BgL_getzd2keyzd2_767 = 
STRUCT_REF(BgL_tablez00_81, BgL_auxz00_6159); }  else 
{ /* ./Llib/hash.scm 518 */
BgL_getzd2keyzd2_767 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20602))); } } 
{ /* ./Llib/hash.scm 518 */
obj_t BgL_keyz00_768;
{ /* ./Llib/hash.scm 519 */
obj_t BgL_funz00_3374;
if(
PROCEDUREP(BgL_getzd2keyzd2_767))
{ /* ./Llib/hash.scm 519 */
BgL_funz00_3374 = BgL_getzd2keyzd2_767; }  else 
{ /* ./Llib/hash.scm 519 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_getzd2keyzd2_767, BGl_string7574z00zz__hashz00, 
BINT(((long)20642))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3374, ((long)1)))
{ /* ./Llib/hash.scm 519 */
BgL_keyz00_768 = 
PROCEDURE_ENTRY(BgL_funz00_3374)(BgL_getzd2keyzd2_767, BgL_objz00_80, BEOA); }  else 
{ /* ./Llib/hash.scm 519 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7658z00zz__hashz00, BGl_list7659z00zz__hashz00, BgL_funz00_3374, BGl_string7574z00zz__hashz00, 
BINT(((long)20642))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } 
{ /* ./Llib/hash.scm 519 */
obj_t BgL_hashzd2eqzf3z21_769;
{ /* ./Llib/hash.scm 520 */
bool_t BgL_test1597z00_2285;
{ /* ./Llib/hash.scm 520 */
obj_t BgL_arg1601z00_2286;obj_t BgL_arg1602z00_2287;
{ /* ./Llib/hash.scm 520 */
obj_t BgL_res2789z00_2289;
{ /* ./Llib/hash.scm 520 */
obj_t BgL_sz00_2288;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 520 */
BgL_sz00_2288 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 520 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20672))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 520 */
obj_t BgL_aux5922z00_3379;
BgL_aux5922z00_3379 = 
STRUCT_KEY(BgL_sz00_2288); 
if(
SYMBOLP(BgL_aux5922z00_3379))
{ /* ./Llib/hash.scm 520 */
BgL_res2789z00_2289 = BgL_aux5922z00_3379; }  else 
{ /* ./Llib/hash.scm 520 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5922z00_3379, BGl_string7574z00zz__hashz00, 
BINT(((long)20672))); 
exit( -1 );} } } 
BgL_arg1601z00_2286 = BgL_res2789z00_2289; } 
BgL_arg1602z00_2287 = BGl_symbol7633z00zz__hashz00; 
BgL_test1597z00_2285 = 
(BgL_arg1601z00_2286==BgL_arg1602z00_2287); } 
if(BgL_test1597z00_2285)
{ /* ./Llib/hash.scm 520 */
int BgL_auxz00_6189;
BgL_auxz00_6189 = 
(int)(((long)5)); 
BgL_hashzd2eqzf3z21_769 = 
STRUCT_REF(BgL_tablez00_81, BgL_auxz00_6189); }  else 
{ /* ./Llib/hash.scm 520 */
BgL_hashzd2eqzf3z21_769 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20672))); } } 
{ /* ./Llib/hash.scm 520 */
obj_t BgL_hashzd2numzd2_770;
BgL_hashzd2numzd2_770 = 
BGl_getzd2hashzd2numberz00zz__hashz00(BgL_tablez00_81, BgL_keyz00_768); 
{ /* ./Llib/hash.scm 521 */
obj_t BgL_vecz00_771;
{ /* ./Llib/hash.scm 522 */
bool_t BgL_test1579z00_2294;
{ /* ./Llib/hash.scm 522 */
obj_t BgL_arg1585z00_2295;obj_t BgL_arg1586z00_2296;
{ /* ./Llib/hash.scm 522 */
obj_t BgL_res2790z00_2298;
{ /* ./Llib/hash.scm 522 */
obj_t BgL_sz00_2297;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 522 */
BgL_sz00_2297 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 522 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20758))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 522 */
obj_t BgL_aux5947z00_3383;
BgL_aux5947z00_3383 = 
STRUCT_KEY(BgL_sz00_2297); 
if(
SYMBOLP(BgL_aux5947z00_3383))
{ /* ./Llib/hash.scm 522 */
BgL_res2790z00_2298 = BgL_aux5947z00_3383; }  else 
{ /* ./Llib/hash.scm 522 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux5947z00_3383, BGl_string7574z00zz__hashz00, 
BINT(((long)20758))); 
exit( -1 );} } } 
BgL_arg1585z00_2295 = BgL_res2790z00_2298; } 
BgL_arg1586z00_2296 = BGl_symbol7633z00zz__hashz00; 
BgL_test1579z00_2294 = 
(BgL_arg1585z00_2295==BgL_arg1586z00_2296); } 
if(BgL_test1579z00_2294)
{ /* ./Llib/hash.scm 522 */
int BgL_auxz00_6208;
BgL_auxz00_6208 = 
(int)(((long)6)); 
BgL_vecz00_771 = 
STRUCT_REF(BgL_tablez00_81, BgL_auxz00_6208); }  else 
{ /* ./Llib/hash.scm 522 */
BgL_vecz00_771 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20758))); } } 
{ /* ./Llib/hash.scm 522 */
obj_t BgL_bucketz00_772;
{ /* ./Llib/hash.scm 523 */
obj_t BgL_vectorz00_2302;int BgL_kz00_2303;
if(
VECTORP(BgL_vecz00_771))
{ /* ./Llib/hash.scm 523 */
BgL_vectorz00_2302 = BgL_vecz00_771; }  else 
{ /* ./Llib/hash.scm 523 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_vecz00_771, BGl_string7574z00zz__hashz00, 
BINT(((long)20796))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 523 */
obj_t BgL_auxz00_6218;
if(
INTEGERP(BgL_hashzd2numzd2_770))
{ /* ./Llib/hash.scm 523 */
BgL_auxz00_6218 = BgL_hashzd2numzd2_770
; }  else 
{ /* ./Llib/hash.scm 523 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_hashzd2numzd2_770, BGl_string7574z00zz__hashz00, 
BINT(((long)20796))); 
exit( -1 );} 
BgL_kz00_2303 = 
CINT(BgL_auxz00_6218); } 
{ /* ./Llib/hash.scm 523 */
bool_t BgL_test2434z00_2304;
{ /* ./Llib/hash.scm 523 */
int BgL_arg2439z00_2305;
BgL_arg2439z00_2305 = 
VECTOR_LENGTH(BgL_vectorz00_2302); 
BgL_test2434z00_2304 = 
BOUND_CHECK(BgL_kz00_2303, BgL_arg2439z00_2305); } 
if(BgL_test2434z00_2304)
{ /* ./Llib/hash.scm 523 */
BgL_bucketz00_772 = 
VECTOR_REF(BgL_vectorz00_2302,BgL_kz00_2303); }  else 
{ /* ./Llib/hash.scm 523 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_2303), "./Ieee/vector.scm", ((long)5865)); 
BgL_bucketz00_772 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)20796))); } } } 
{ /* ./Llib/hash.scm 523 */

if(
NULLP(BgL_bucketz00_772))
{ /* ./Llib/hash.scm 524 */
{ /* ./Llib/hash.scm 526 */
long BgL_arg1784z00_774;
{ /* ./Llib/hash.scm 526 */
obj_t BgL_arg1788z00_776;
{ /* ./Llib/hash.scm 526 */
bool_t BgL_test1613z00_2312;
{ /* ./Llib/hash.scm 526 */
obj_t BgL_arg1617z00_2313;obj_t BgL_arg1618z00_2314;
{ /* ./Llib/hash.scm 526 */
obj_t BgL_res2791z00_2316;
{ /* ./Llib/hash.scm 526 */
obj_t BgL_sz00_2315;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 526 */
BgL_sz00_2315 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 526 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20901))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 526 */
obj_t BgL_aux6001z00_3391;
BgL_aux6001z00_3391 = 
STRUCT_KEY(BgL_sz00_2315); 
if(
SYMBOLP(BgL_aux6001z00_3391))
{ /* ./Llib/hash.scm 526 */
BgL_res2791z00_2316 = BgL_aux6001z00_3391; }  else 
{ /* ./Llib/hash.scm 526 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6001z00_3391, BGl_string7574z00zz__hashz00, 
BINT(((long)20901))); 
exit( -1 );} } } 
BgL_arg1617z00_2313 = BgL_res2791z00_2316; } 
BgL_arg1618z00_2314 = BGl_symbol7633z00zz__hashz00; 
BgL_test1613z00_2312 = 
(BgL_arg1617z00_2313==BgL_arg1618z00_2314); } 
if(BgL_test1613z00_2312)
{ /* ./Llib/hash.scm 526 */
int BgL_auxz00_6248;
BgL_auxz00_6248 = 
(int)(((long)4)); 
BgL_arg1788z00_776 = 
STRUCT_REF(BgL_tablez00_81, BgL_auxz00_6248); }  else 
{ /* ./Llib/hash.scm 526 */
BgL_arg1788z00_776 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20901))); } } 
{ /* ./Llib/hash.scm 526 */
long BgL_za72za7_2321;
{ /* ./Llib/hash.scm 526 */
obj_t BgL_auxz00_6253;
if(
INTEGERP(BgL_arg1788z00_776))
{ /* ./Llib/hash.scm 526 */
BgL_auxz00_6253 = BgL_arg1788z00_776
; }  else 
{ /* ./Llib/hash.scm 526 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1788z00_776, BGl_string7574z00zz__hashz00, 
BINT(((long)20894))); 
exit( -1 );} 
BgL_za72za7_2321 = 
(long)CINT(BgL_auxz00_6253); } 
BgL_arg1784z00_774 = 
(((long)1)+BgL_za72za7_2321); } } 
{ /* ./Llib/hash.scm 526 */
bool_t BgL_test1621z00_2324;
{ /* ./Llib/hash.scm 526 */
obj_t BgL_arg1625z00_2325;obj_t BgL_arg1626z00_2326;
{ /* ./Llib/hash.scm 526 */
obj_t BgL_res2792z00_2328;
{ /* ./Llib/hash.scm 526 */
obj_t BgL_sz00_2327;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 526 */
BgL_sz00_2327 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 526 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20865))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 526 */
obj_t BgL_aux6037z00_3397;
BgL_aux6037z00_3397 = 
STRUCT_KEY(BgL_sz00_2327); 
if(
SYMBOLP(BgL_aux6037z00_3397))
{ /* ./Llib/hash.scm 526 */
BgL_res2792z00_2328 = BgL_aux6037z00_3397; }  else 
{ /* ./Llib/hash.scm 526 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6037z00_3397, BGl_string7574z00zz__hashz00, 
BINT(((long)20865))); 
exit( -1 );} } } 
BgL_arg1625z00_2325 = BgL_res2792z00_2328; } 
BgL_arg1626z00_2326 = BGl_symbol7633z00zz__hashz00; 
BgL_test1621z00_2324 = 
(BgL_arg1625z00_2325==BgL_arg1626z00_2326); } 
if(BgL_test1621z00_2324)
{ /* ./Llib/hash.scm 526 */
obj_t BgL_auxz00_6276;int BgL_auxz00_6274;
BgL_auxz00_6276 = 
BINT(BgL_arg1784z00_774); 
BgL_auxz00_6274 = 
(int)(((long)4)); 
STRUCT_SET(BgL_tablez00_81, BgL_auxz00_6274, BgL_auxz00_6276); }  else 
{ /* ./Llib/hash.scm 526 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)20865))); } } } 
{ /* ./Llib/hash.scm 527 */
obj_t BgL_arg1792z00_777;
{ /* ./Llib/hash.scm 527 */
obj_t BgL_list1795z00_778;
BgL_list1795z00_778 = 
MAKE_PAIR(BgL_objz00_80, BNIL); 
{ /* ./Llib/hash.scm 527 */
obj_t BgL_res2793z00_2333;
if(((bool_t)1))
{ /* ./Llib/hash.scm 527 */
BgL_res2793z00_2333 = BgL_list1795z00_778; }  else 
{ /* ./Llib/hash.scm 527 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7596z00zz__hashz00, BgL_list1795z00_778, BGl_string7574z00zz__hashz00, 
BINT(((long)20960))); 
exit( -1 );} 
BgL_arg1792z00_777 = BgL_res2793z00_2333; } } 
{ /* ./Llib/hash.scm 527 */
obj_t BgL_vectorz00_2334;int BgL_kz00_2335;
if(
VECTORP(BgL_vecz00_771))
{ /* ./Llib/hash.scm 527 */
BgL_vectorz00_2334 = BgL_vecz00_771; }  else 
{ /* ./Llib/hash.scm 527 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_vecz00_771, BGl_string7574z00zz__hashz00, 
BINT(((long)20949))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 527 */
obj_t BgL_auxz00_6291;
if(
INTEGERP(BgL_hashzd2numzd2_770))
{ /* ./Llib/hash.scm 527 */
BgL_auxz00_6291 = BgL_hashzd2numzd2_770
; }  else 
{ /* ./Llib/hash.scm 527 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_hashzd2numzd2_770, BGl_string7574z00zz__hashz00, 
BINT(((long)20958))); 
exit( -1 );} 
BgL_kz00_2335 = 
CINT(BgL_auxz00_6291); } 
{ /* ./Llib/hash.scm 527 */
bool_t BgL_test2426z00_2337;
{ /* ./Llib/hash.scm 527 */
int BgL_arg2431z00_2338;
BgL_arg2431z00_2338 = 
VECTOR_LENGTH(BgL_vectorz00_2334); 
BgL_test2426z00_2337 = 
BOUND_CHECK(BgL_kz00_2335, BgL_arg2431z00_2338); } 
if(BgL_test2426z00_2337)
{ /* ./Llib/hash.scm 527 */
VECTOR_SET(BgL_vectorz00_2334,BgL_kz00_2335,BgL_arg1792z00_777); }  else 
{ /* ./Llib/hash.scm 527 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7591z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_2335), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)20934))); } } } } 
BgL_aux2901z00_2813 = BgL_objz00_80; }  else 
{ 
obj_t BgL_bucketz00_779;
BgL_bucketz00_779 = BgL_bucketz00_772; 
BgL_loopz00_780:
{ /* ./Llib/hash.scm 531 */
bool_t BgL_test1798z00_781;
{ /* ./Llib/hash.scm 531 */
obj_t BgL_arg1825z00_790;
{ /* ./Llib/hash.scm 531 */
obj_t BgL_arg1829z00_791;
{ /* ./Llib/hash.scm 531 */
obj_t BgL_pairz00_2343;
if(
PAIRP(BgL_bucketz00_779))
{ /* ./Llib/hash.scm 531 */
BgL_pairz00_2343 = BgL_bucketz00_779; }  else 
{ /* ./Llib/hash.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_779, BGl_string7574z00zz__hashz00, 
BINT(((long)21058))); 
exit( -1 );} 
BgL_arg1829z00_791 = 
CAR(BgL_pairz00_2343); } 
{ /* ./Llib/hash.scm 531 */
obj_t BgL_funz00_3409;
if(
PROCEDUREP(BgL_getzd2keyzd2_767))
{ /* ./Llib/hash.scm 531 */
BgL_funz00_3409 = BgL_getzd2keyzd2_767; }  else 
{ /* ./Llib/hash.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_getzd2keyzd2_767, BGl_string7574z00zz__hashz00, 
BINT(((long)21039))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3409, ((long)1)))
{ /* ./Llib/hash.scm 531 */
BgL_arg1825z00_790 = 
PROCEDURE_ENTRY(BgL_funz00_3409)(BgL_getzd2keyzd2_767, BgL_arg1829z00_791, BEOA); }  else 
{ /* ./Llib/hash.scm 531 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7658z00zz__hashz00, BGl_list7661z00zz__hashz00, BgL_funz00_3409, BGl_string7574z00zz__hashz00, 
BINT(((long)21039))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } } 
{ /* ./Llib/hash.scm 531 */
obj_t BgL_funz00_3414;
if(
PROCEDUREP(BgL_hashzd2eqzf3z21_769))
{ /* ./Llib/hash.scm 531 */
BgL_funz00_3414 = BgL_hashzd2eqzf3z21_769; }  else 
{ /* ./Llib/hash.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_hashzd2eqzf3z21_769, BGl_string7574z00zz__hashz00, 
BINT(((long)21029))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3414, ((long)2)))
{ /* ./Llib/hash.scm 531 */
obj_t BgL_auxz00_6331;
BgL_auxz00_6331 = 
PROCEDURE_ENTRY(BgL_funz00_3414)(BgL_hashzd2eqzf3z21_769, BgL_arg1825z00_790, BgL_keyz00_768, BEOA); 
BgL_test1798z00_781 = 
CBOOL(BgL_auxz00_6331); }  else 
{ /* ./Llib/hash.scm 531 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7658z00zz__hashz00, BGl_list7663z00zz__hashz00, BgL_funz00_3414, BGl_string7574z00zz__hashz00, 
BINT(((long)21029))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } } 
if(BgL_test1798z00_781)
{ /* ./Llib/hash.scm 531 */
{ /* ./Llib/hash.scm 532 */
obj_t BgL_pairz00_2344;
if(
PAIRP(BgL_bucketz00_779))
{ /* ./Llib/hash.scm 532 */
BgL_pairz00_2344 = BgL_bucketz00_779; }  else 
{ /* ./Llib/hash.scm 532 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_779, BGl_string7574z00zz__hashz00, 
BINT(((long)21080))); 
exit( -1 );} 
BgL_aux2901z00_2813 = 
CAR(BgL_pairz00_2344); } }  else 
{ /* ./Llib/hash.scm 533 */
bool_t BgL_test1800z00_782;
{ /* ./Llib/hash.scm 533 */
obj_t BgL_arg1821z00_789;
{ /* ./Llib/hash.scm 533 */
obj_t BgL_pairz00_2345;
if(
PAIRP(BgL_bucketz00_779))
{ /* ./Llib/hash.scm 533 */
BgL_pairz00_2345 = BgL_bucketz00_779; }  else 
{ /* ./Llib/hash.scm 533 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_779, BGl_string7574z00zz__hashz00, 
BINT(((long)21104))); 
exit( -1 );} 
BgL_arg1821z00_789 = 
CDR(BgL_pairz00_2345); } 
BgL_test1800z00_782 = 
NULLP(BgL_arg1821z00_789); } 
if(BgL_test1800z00_782)
{ /* ./Llib/hash.scm 533 */
{ /* ./Llib/hash.scm 534 */
long BgL_arg1802z00_783;
{ /* ./Llib/hash.scm 534 */
obj_t BgL_arg1806z00_785;
{ /* ./Llib/hash.scm 534 */
bool_t BgL_test1613z00_2348;
{ /* ./Llib/hash.scm 534 */
obj_t BgL_arg1617z00_2349;obj_t BgL_arg1618z00_2350;
{ /* ./Llib/hash.scm 534 */
obj_t BgL_res2794z00_2352;
{ /* ./Llib/hash.scm 534 */
obj_t BgL_sz00_2351;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 534 */
BgL_sz00_2351 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 534 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)21147))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 534 */
obj_t BgL_aux6167z00_3423;
BgL_aux6167z00_3423 = 
STRUCT_KEY(BgL_sz00_2351); 
if(
SYMBOLP(BgL_aux6167z00_3423))
{ /* ./Llib/hash.scm 534 */
BgL_res2794z00_2352 = BgL_aux6167z00_3423; }  else 
{ /* ./Llib/hash.scm 534 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6167z00_3423, BGl_string7574z00zz__hashz00, 
BINT(((long)21147))); 
exit( -1 );} } } 
BgL_arg1617z00_2349 = BgL_res2794z00_2352; } 
BgL_arg1618z00_2350 = BGl_symbol7633z00zz__hashz00; 
BgL_test1613z00_2348 = 
(BgL_arg1617z00_2349==BgL_arg1618z00_2350); } 
if(BgL_test1613z00_2348)
{ /* ./Llib/hash.scm 534 */
int BgL_auxz00_6366;
BgL_auxz00_6366 = 
(int)(((long)4)); 
BgL_arg1806z00_785 = 
STRUCT_REF(BgL_tablez00_81, BgL_auxz00_6366); }  else 
{ /* ./Llib/hash.scm 534 */
BgL_arg1806z00_785 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)21147))); } } 
{ /* ./Llib/hash.scm 534 */
long BgL_za72za7_2357;
{ /* ./Llib/hash.scm 534 */
obj_t BgL_auxz00_6371;
if(
INTEGERP(BgL_arg1806z00_785))
{ /* ./Llib/hash.scm 534 */
BgL_auxz00_6371 = BgL_arg1806z00_785
; }  else 
{ /* ./Llib/hash.scm 534 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1806z00_785, BGl_string7574z00zz__hashz00, 
BINT(((long)21140))); 
exit( -1 );} 
BgL_za72za7_2357 = 
(long)CINT(BgL_auxz00_6371); } 
BgL_arg1802z00_783 = 
(((long)1)+BgL_za72za7_2357); } } 
{ /* ./Llib/hash.scm 534 */
bool_t BgL_test1621z00_2360;
{ /* ./Llib/hash.scm 534 */
obj_t BgL_arg1625z00_2361;obj_t BgL_arg1626z00_2362;
{ /* ./Llib/hash.scm 534 */
obj_t BgL_res2795z00_2364;
{ /* ./Llib/hash.scm 534 */
obj_t BgL_sz00_2363;
if(
STRUCTP(BgL_tablez00_81))
{ /* ./Llib/hash.scm 534 */
BgL_sz00_2363 = BgL_tablez00_81; }  else 
{ /* ./Llib/hash.scm 534 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)21111))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 534 */
obj_t BgL_aux6203z00_3429;
BgL_aux6203z00_3429 = 
STRUCT_KEY(BgL_sz00_2363); 
if(
SYMBOLP(BgL_aux6203z00_3429))
{ /* ./Llib/hash.scm 534 */
BgL_res2795z00_2364 = BgL_aux6203z00_3429; }  else 
{ /* ./Llib/hash.scm 534 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6203z00_3429, BGl_string7574z00zz__hashz00, 
BINT(((long)21111))); 
exit( -1 );} } } 
BgL_arg1625z00_2361 = BgL_res2795z00_2364; } 
BgL_arg1626z00_2362 = BGl_symbol7633z00zz__hashz00; 
BgL_test1621z00_2360 = 
(BgL_arg1625z00_2361==BgL_arg1626z00_2362); } 
if(BgL_test1621z00_2360)
{ /* ./Llib/hash.scm 534 */
obj_t BgL_auxz00_6394;int BgL_auxz00_6392;
BgL_auxz00_6394 = 
BINT(BgL_arg1802z00_783); 
BgL_auxz00_6392 = 
(int)(((long)4)); 
STRUCT_SET(BgL_tablez00_81, BgL_auxz00_6392, BgL_auxz00_6394); }  else 
{ /* ./Llib/hash.scm 534 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_81, BGl_string7574z00zz__hashz00, 
BINT(((long)21111))); } } } 
{ /* ./Llib/hash.scm 535 */
obj_t BgL_arg1810z00_786;
{ /* ./Llib/hash.scm 535 */
obj_t BgL_list1813z00_787;
BgL_list1813z00_787 = 
MAKE_PAIR(BgL_objz00_80, BNIL); 
{ /* ./Llib/hash.scm 535 */
obj_t BgL_res2796z00_2369;
if(((bool_t)1))
{ /* ./Llib/hash.scm 535 */
BgL_res2796z00_2369 = BgL_list1813z00_787; }  else 
{ /* ./Llib/hash.scm 535 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7596z00zz__hashz00, BgL_list1813z00_787, BGl_string7574z00zz__hashz00, 
BINT(((long)21194))); 
exit( -1 );} 
BgL_arg1810z00_786 = BgL_res2796z00_2369; } } 
{ /* ./Llib/hash.scm 535 */
obj_t BgL_pairz00_2370;
if(
PAIRP(BgL_bucketz00_779))
{ /* ./Llib/hash.scm 535 */
BgL_pairz00_2370 = BgL_bucketz00_779; }  else 
{ /* ./Llib/hash.scm 535 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_779, BGl_string7574z00zz__hashz00, 
BINT(((long)21192))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_2370, BgL_arg1810z00_786); } } 
BgL_aux2901z00_2813 = BgL_objz00_80; }  else 
{ /* ./Llib/hash.scm 533 */
{ /* ./Llib/hash.scm 538 */
obj_t BgL_arg1816z00_788;
{ /* ./Llib/hash.scm 538 */
obj_t BgL_pairz00_2372;
if(
PAIRP(BgL_bucketz00_779))
{ /* ./Llib/hash.scm 538 */
BgL_pairz00_2372 = BgL_bucketz00_779; }  else 
{ /* ./Llib/hash.scm 538 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7657z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_779, BGl_string7574z00zz__hashz00, 
BINT(((long)21241))); 
exit( -1 );} 
BgL_arg1816z00_788 = 
CDR(BgL_pairz00_2372); } 
{ 
obj_t BgL_bucketz00_6416;
BgL_bucketz00_6416 = BgL_arg1816z00_788; 
BgL_bucketz00_779 = BgL_bucketz00_6416; 
goto BgL_loopz00_780;} } } } } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2901z00_2813;} } } } 
}



/* _put-hash! */
obj_t BGl__putzd2hashz12zc0zz__hashz00(obj_t BgL_envz00_2885, obj_t BgL_objz00_2886, obj_t BgL_tablez00_2887)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 511 */
return 
BGl_putzd2hashz12zc0zz__hashz00(BgL_objz00_2886, BgL_tablez00_2887);} 
}



/* rem-obj-hash! */
BGL_EXPORTED_DEF obj_t BGl_remzd2objzd2hashz12z12zz__hashz00(obj_t BgL_objz00_82, obj_t BgL_tablez00_83)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 543 */
{ /* ./Llib/hash.scm 544 */
obj_t BgL_symbol2906z00_2814;
BgL_symbol2906z00_2814 = BGl_symbol7665z00zz__hashz00; 
{ /* ./Llib/hash.scm 544 */

PUSH_TRACE(BgL_symbol2906z00_2814); BUNSPEC; 
{ /* ./Llib/hash.scm 544 */
obj_t BgL_aux2905z00_2815;
{ /* ./Llib/hash.scm 544 */
obj_t BgL_getzd2keyzd2_792;
{ /* ./Llib/hash.scm 544 */
bool_t BgL_test1629z00_2374;
{ /* ./Llib/hash.scm 544 */
obj_t BgL_arg1633z00_2375;obj_t BgL_arg1634z00_2376;
{ /* ./Llib/hash.scm 544 */
obj_t BgL_res2797z00_2378;
{ /* ./Llib/hash.scm 544 */
obj_t BgL_sz00_2377;
if(
STRUCTP(BgL_tablez00_83))
{ /* ./Llib/hash.scm 544 */
BgL_sz00_2377 = BgL_tablez00_83; }  else 
{ /* ./Llib/hash.scm 544 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)21530))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 544 */
obj_t BgL_aux6259z00_3439;
BgL_aux6259z00_3439 = 
STRUCT_KEY(BgL_sz00_2377); 
if(
SYMBOLP(BgL_aux6259z00_3439))
{ /* ./Llib/hash.scm 544 */
BgL_res2797z00_2378 = BgL_aux6259z00_3439; }  else 
{ /* ./Llib/hash.scm 544 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6259z00_3439, BGl_string7574z00zz__hashz00, 
BINT(((long)21530))); 
exit( -1 );} } } 
BgL_arg1633z00_2375 = BgL_res2797z00_2378; } 
BgL_arg1634z00_2376 = BGl_symbol7633z00zz__hashz00; 
BgL_test1629z00_2374 = 
(BgL_arg1633z00_2375==BgL_arg1634z00_2376); } 
if(BgL_test1629z00_2374)
{ /* ./Llib/hash.scm 544 */
int BgL_auxz00_6433;
BgL_auxz00_6433 = 
(int)(((long)3)); 
BgL_getzd2keyzd2_792 = 
STRUCT_REF(BgL_tablez00_83, BgL_auxz00_6433); }  else 
{ /* ./Llib/hash.scm 544 */
BgL_getzd2keyzd2_792 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)21530))); } } 
{ /* ./Llib/hash.scm 544 */
obj_t BgL_keyz00_793;
{ /* ./Llib/hash.scm 545 */
obj_t BgL_funz00_3443;
if(
PROCEDUREP(BgL_getzd2keyzd2_792))
{ /* ./Llib/hash.scm 545 */
BgL_funz00_3443 = BgL_getzd2keyzd2_792; }  else 
{ /* ./Llib/hash.scm 545 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_getzd2keyzd2_792, BGl_string7574z00zz__hashz00, 
BINT(((long)21570))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3443, ((long)1)))
{ /* ./Llib/hash.scm 545 */
BgL_keyz00_793 = 
PROCEDURE_ENTRY(BgL_funz00_3443)(BgL_getzd2keyzd2_792, BgL_objz00_82, BEOA); }  else 
{ /* ./Llib/hash.scm 545 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7666z00zz__hashz00, BGl_list7659z00zz__hashz00, BgL_funz00_3443, BGl_string7574z00zz__hashz00, 
BINT(((long)21570))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } 
{ /* ./Llib/hash.scm 545 */
obj_t BgL_hashzd2eqzf3z21_794;
{ /* ./Llib/hash.scm 546 */
bool_t BgL_test1597z00_2383;
{ /* ./Llib/hash.scm 546 */
obj_t BgL_arg1601z00_2384;obj_t BgL_arg1602z00_2385;
{ /* ./Llib/hash.scm 546 */
obj_t BgL_res2798z00_2387;
{ /* ./Llib/hash.scm 546 */
obj_t BgL_sz00_2386;
if(
STRUCTP(BgL_tablez00_83))
{ /* ./Llib/hash.scm 546 */
BgL_sz00_2386 = BgL_tablez00_83; }  else 
{ /* ./Llib/hash.scm 546 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)21600))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 546 */
obj_t BgL_aux6301z00_3448;
BgL_aux6301z00_3448 = 
STRUCT_KEY(BgL_sz00_2386); 
if(
SYMBOLP(BgL_aux6301z00_3448))
{ /* ./Llib/hash.scm 546 */
BgL_res2798z00_2387 = BgL_aux6301z00_3448; }  else 
{ /* ./Llib/hash.scm 546 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6301z00_3448, BGl_string7574z00zz__hashz00, 
BINT(((long)21600))); 
exit( -1 );} } } 
BgL_arg1601z00_2384 = BgL_res2798z00_2387; } 
BgL_arg1602z00_2385 = BGl_symbol7633z00zz__hashz00; 
BgL_test1597z00_2383 = 
(BgL_arg1601z00_2384==BgL_arg1602z00_2385); } 
if(BgL_test1597z00_2383)
{ /* ./Llib/hash.scm 546 */
int BgL_auxz00_6463;
BgL_auxz00_6463 = 
(int)(((long)5)); 
BgL_hashzd2eqzf3z21_794 = 
STRUCT_REF(BgL_tablez00_83, BgL_auxz00_6463); }  else 
{ /* ./Llib/hash.scm 546 */
BgL_hashzd2eqzf3z21_794 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)21600))); } } 
{ /* ./Llib/hash.scm 546 */
obj_t BgL_hashzd2numzd2_795;
BgL_hashzd2numzd2_795 = 
BGl_getzd2hashzd2numberz00zz__hashz00(BgL_tablez00_83, BgL_keyz00_793); 
{ /* ./Llib/hash.scm 547 */
obj_t BgL_vecz00_796;
{ /* ./Llib/hash.scm 548 */
bool_t BgL_test1579z00_2392;
{ /* ./Llib/hash.scm 548 */
obj_t BgL_arg1585z00_2393;obj_t BgL_arg1586z00_2394;
{ /* ./Llib/hash.scm 548 */
obj_t BgL_res2799z00_2396;
{ /* ./Llib/hash.scm 548 */
obj_t BgL_sz00_2395;
if(
STRUCTP(BgL_tablez00_83))
{ /* ./Llib/hash.scm 548 */
BgL_sz00_2395 = BgL_tablez00_83; }  else 
{ /* ./Llib/hash.scm 548 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)21686))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 548 */
obj_t BgL_aux6327z00_3452;
BgL_aux6327z00_3452 = 
STRUCT_KEY(BgL_sz00_2395); 
if(
SYMBOLP(BgL_aux6327z00_3452))
{ /* ./Llib/hash.scm 548 */
BgL_res2799z00_2396 = BgL_aux6327z00_3452; }  else 
{ /* ./Llib/hash.scm 548 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6327z00_3452, BGl_string7574z00zz__hashz00, 
BINT(((long)21686))); 
exit( -1 );} } } 
BgL_arg1585z00_2393 = BgL_res2799z00_2396; } 
BgL_arg1586z00_2394 = BGl_symbol7633z00zz__hashz00; 
BgL_test1579z00_2392 = 
(BgL_arg1585z00_2393==BgL_arg1586z00_2394); } 
if(BgL_test1579z00_2392)
{ /* ./Llib/hash.scm 548 */
int BgL_auxz00_6482;
BgL_auxz00_6482 = 
(int)(((long)6)); 
BgL_vecz00_796 = 
STRUCT_REF(BgL_tablez00_83, BgL_auxz00_6482); }  else 
{ /* ./Llib/hash.scm 548 */
BgL_vecz00_796 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)21686))); } } 
{ /* ./Llib/hash.scm 548 */
obj_t BgL_bucketz00_797;
{ /* ./Llib/hash.scm 549 */
obj_t BgL_vectorz00_2400;int BgL_kz00_2401;
if(
VECTORP(BgL_vecz00_796))
{ /* ./Llib/hash.scm 549 */
BgL_vectorz00_2400 = BgL_vecz00_796; }  else 
{ /* ./Llib/hash.scm 549 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_vecz00_796, BGl_string7574z00zz__hashz00, 
BINT(((long)21724))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 549 */
obj_t BgL_auxz00_6492;
if(
INTEGERP(BgL_hashzd2numzd2_795))
{ /* ./Llib/hash.scm 549 */
BgL_auxz00_6492 = BgL_hashzd2numzd2_795
; }  else 
{ /* ./Llib/hash.scm 549 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_hashzd2numzd2_795, BGl_string7574z00zz__hashz00, 
BINT(((long)21724))); 
exit( -1 );} 
BgL_kz00_2401 = 
CINT(BgL_auxz00_6492); } 
{ /* ./Llib/hash.scm 549 */
bool_t BgL_test2434z00_2402;
{ /* ./Llib/hash.scm 549 */
int BgL_arg2439z00_2403;
BgL_arg2439z00_2403 = 
VECTOR_LENGTH(BgL_vectorz00_2400); 
BgL_test2434z00_2402 = 
BOUND_CHECK(BgL_kz00_2401, BgL_arg2439z00_2403); } 
if(BgL_test2434z00_2402)
{ /* ./Llib/hash.scm 549 */
BgL_bucketz00_797 = 
VECTOR_REF(BgL_vectorz00_2400,BgL_kz00_2401); }  else 
{ /* ./Llib/hash.scm 549 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_2401), "./Ieee/vector.scm", ((long)5865)); 
BgL_bucketz00_797 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)21724))); } } } 
{ /* ./Llib/hash.scm 549 */

if(
NULLP(BgL_bucketz00_797))
{ /* ./Llib/hash.scm 551 */
BgL_aux2905z00_2815 = BFALSE; }  else 
{ /* ./Llib/hash.scm 553 */
bool_t BgL_test1840z00_799;
{ /* ./Llib/hash.scm 553 */
obj_t BgL_arg1882z00_815;
{ /* ./Llib/hash.scm 553 */
obj_t BgL_pairz00_2409;
if(
PAIRP(BgL_bucketz00_797))
{ /* ./Llib/hash.scm 553 */
BgL_pairz00_2409 = BgL_bucketz00_797; }  else 
{ /* ./Llib/hash.scm 553 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_797, BGl_string7574z00zz__hashz00, 
BINT(((long)21807))); 
exit( -1 );} 
BgL_arg1882z00_815 = 
CAR(BgL_pairz00_2409); } 
BgL_test1840z00_799 = 
(BgL_arg1882z00_815==BgL_objz00_82); } 
if(BgL_test1840z00_799)
{ /* ./Llib/hash.scm 553 */
{ /* ./Llib/hash.scm 554 */
long BgL_arg1842z00_800;
{ /* ./Llib/hash.scm 554 */
obj_t BgL_arg1845z00_801;
{ /* ./Llib/hash.scm 554 */
bool_t BgL_test1613z00_2411;
{ /* ./Llib/hash.scm 554 */
obj_t BgL_arg1617z00_2412;obj_t BgL_arg1618z00_2413;
{ /* ./Llib/hash.scm 554 */
obj_t BgL_res2800z00_2415;
{ /* ./Llib/hash.scm 554 */
obj_t BgL_sz00_2414;
if(
STRUCTP(BgL_tablez00_83))
{ /* ./Llib/hash.scm 554 */
BgL_sz00_2414 = BgL_tablez00_83; }  else 
{ /* ./Llib/hash.scm 554 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)21852))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 554 */
obj_t BgL_aux6392z00_3462;
BgL_aux6392z00_3462 = 
STRUCT_KEY(BgL_sz00_2414); 
if(
SYMBOLP(BgL_aux6392z00_3462))
{ /* ./Llib/hash.scm 554 */
BgL_res2800z00_2415 = BgL_aux6392z00_3462; }  else 
{ /* ./Llib/hash.scm 554 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6392z00_3462, BGl_string7574z00zz__hashz00, 
BINT(((long)21852))); 
exit( -1 );} } } 
BgL_arg1617z00_2412 = BgL_res2800z00_2415; } 
BgL_arg1618z00_2413 = BGl_symbol7633z00zz__hashz00; 
BgL_test1613z00_2411 = 
(BgL_arg1617z00_2412==BgL_arg1618z00_2413); } 
if(BgL_test1613z00_2411)
{ /* ./Llib/hash.scm 554 */
int BgL_auxz00_6530;
BgL_auxz00_6530 = 
(int)(((long)4)); 
BgL_arg1845z00_801 = 
STRUCT_REF(BgL_tablez00_83, BgL_auxz00_6530); }  else 
{ /* ./Llib/hash.scm 554 */
BgL_arg1845z00_801 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)21852))); } } 
{ /* ./Llib/hash.scm 554 */
long BgL_za71za7_2419;
{ /* ./Llib/hash.scm 554 */
obj_t BgL_auxz00_6535;
if(
INTEGERP(BgL_arg1845z00_801))
{ /* ./Llib/hash.scm 554 */
BgL_auxz00_6535 = BgL_arg1845z00_801
; }  else 
{ /* ./Llib/hash.scm 554 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1845z00_801, BGl_string7574z00zz__hashz00, 
BINT(((long)21847))); 
exit( -1 );} 
BgL_za71za7_2419 = 
(long)CINT(BgL_auxz00_6535); } 
BgL_arg1842z00_800 = 
(BgL_za71za7_2419-((long)1)); } } 
{ /* ./Llib/hash.scm 554 */
bool_t BgL_test1621z00_2423;
{ /* ./Llib/hash.scm 554 */
obj_t BgL_arg1625z00_2424;obj_t BgL_arg1626z00_2425;
{ /* ./Llib/hash.scm 554 */
obj_t BgL_res2801z00_2427;
{ /* ./Llib/hash.scm 554 */
obj_t BgL_sz00_2426;
if(
STRUCTP(BgL_tablez00_83))
{ /* ./Llib/hash.scm 554 */
BgL_sz00_2426 = BgL_tablez00_83; }  else 
{ /* ./Llib/hash.scm 554 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)21818))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 554 */
obj_t BgL_aux6428z00_3468;
BgL_aux6428z00_3468 = 
STRUCT_KEY(BgL_sz00_2426); 
if(
SYMBOLP(BgL_aux6428z00_3468))
{ /* ./Llib/hash.scm 554 */
BgL_res2801z00_2427 = BgL_aux6428z00_3468; }  else 
{ /* ./Llib/hash.scm 554 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6428z00_3468, BGl_string7574z00zz__hashz00, 
BINT(((long)21818))); 
exit( -1 );} } } 
BgL_arg1625z00_2424 = BgL_res2801z00_2427; } 
BgL_arg1626z00_2425 = BGl_symbol7633z00zz__hashz00; 
BgL_test1621z00_2423 = 
(BgL_arg1625z00_2424==BgL_arg1626z00_2425); } 
if(BgL_test1621z00_2423)
{ /* ./Llib/hash.scm 554 */
obj_t BgL_auxz00_6558;int BgL_auxz00_6556;
BgL_auxz00_6558 = 
BINT(BgL_arg1842z00_800); 
BgL_auxz00_6556 = 
(int)(((long)4)); 
STRUCT_SET(BgL_tablez00_83, BgL_auxz00_6556, BgL_auxz00_6558); }  else 
{ /* ./Llib/hash.scm 554 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)21818))); } } } 
{ /* ./Llib/hash.scm 555 */
obj_t BgL_arg1850z00_803;
{ /* ./Llib/hash.scm 555 */
obj_t BgL_pairz00_2431;
if(
PAIRP(BgL_bucketz00_797))
{ /* ./Llib/hash.scm 555 */
BgL_pairz00_2431 = BgL_bucketz00_797; }  else 
{ /* ./Llib/hash.scm 555 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_797, BGl_string7574z00zz__hashz00, 
BINT(((long)21920))); 
exit( -1 );} 
BgL_arg1850z00_803 = 
CDR(BgL_pairz00_2431); } 
{ /* ./Llib/hash.scm 555 */
obj_t BgL_vectorz00_2432;int BgL_kz00_2433;
if(
VECTORP(BgL_vecz00_796))
{ /* ./Llib/hash.scm 555 */
BgL_vectorz00_2432 = BgL_vecz00_796; }  else 
{ /* ./Llib/hash.scm 555 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_vecz00_796, BGl_string7574z00zz__hashz00, 
BINT(((long)21884))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 555 */
obj_t BgL_auxz00_6574;
if(
INTEGERP(BgL_hashzd2numzd2_795))
{ /* ./Llib/hash.scm 555 */
BgL_auxz00_6574 = BgL_hashzd2numzd2_795
; }  else 
{ /* ./Llib/hash.scm 555 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_hashzd2numzd2_795, BGl_string7574z00zz__hashz00, 
BINT(((long)21884))); 
exit( -1 );} 
BgL_kz00_2433 = 
CINT(BgL_auxz00_6574); } 
{ /* ./Llib/hash.scm 555 */
bool_t BgL_test2426z00_2435;
{ /* ./Llib/hash.scm 555 */
int BgL_arg2431z00_2436;
BgL_arg2431z00_2436 = 
VECTOR_LENGTH(BgL_vectorz00_2432); 
BgL_test2426z00_2435 = 
BOUND_CHECK(BgL_kz00_2433, BgL_arg2431z00_2436); } 
if(BgL_test2426z00_2435)
{ /* ./Llib/hash.scm 555 */
VECTOR_SET(BgL_vectorz00_2432,BgL_kz00_2433,BgL_arg1850z00_803); }  else 
{ /* ./Llib/hash.scm 555 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7591z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_2433), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)21884))); } } } } 
BgL_aux2905z00_2815 = BTRUE; }  else 
{ /* ./Llib/hash.scm 553 */
{ 
obj_t BgL_bucketz00_804;
{ /* ./Llib/hash.scm 558 */
bool_t BgL_auxz00_6589;
BgL_bucketz00_804 = BgL_bucketz00_797; 
BgL_loopz00_805:
{ /* ./Llib/hash.scm 560 */
bool_t BgL_test1854z00_806;
{ /* ./Llib/hash.scm 560 */
obj_t BgL_arg1878z00_814;
{ /* ./Llib/hash.scm 560 */
obj_t BgL_pairz00_2441;
if(
PAIRP(BgL_bucketz00_804))
{ /* ./Llib/hash.scm 560 */
BgL_pairz00_2441 = BgL_bucketz00_804; }  else 
{ /* ./Llib/hash.scm 560 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_804, BGl_string7574z00zz__hashz00, 
BINT(((long)22001))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 560 */
obj_t BgL_arg2405z00_2442;
BgL_arg2405z00_2442 = 
CDR(BgL_pairz00_2441); 
{ /* ./Llib/hash.scm 560 */
obj_t BgL_pairz00_2444;
if(
PAIRP(BgL_arg2405z00_2442))
{ /* ./Llib/hash.scm 560 */
BgL_pairz00_2444 = BgL_arg2405z00_2442; }  else 
{ /* ./Llib/hash.scm 560 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2405z00_2442, BGl_string7574z00zz__hashz00, 
BINT(((long)21990))); 
exit( -1 );} 
BgL_arg1878z00_814 = 
CAR(BgL_pairz00_2444); } } } 
BgL_test1854z00_806 = 
(BgL_arg1878z00_814==BgL_objz00_82); } 
if(BgL_test1854z00_806)
{ /* ./Llib/hash.scm 560 */
{ /* ./Llib/hash.scm 561 */
long BgL_arg1856z00_807;
{ /* ./Llib/hash.scm 561 */
obj_t BgL_arg1859z00_808;
{ /* ./Llib/hash.scm 561 */
bool_t BgL_test1613z00_2446;
{ /* ./Llib/hash.scm 561 */
obj_t BgL_arg1617z00_2447;obj_t BgL_arg1618z00_2448;
{ /* ./Llib/hash.scm 561 */
obj_t BgL_res2802z00_2450;
{ /* ./Llib/hash.scm 561 */
obj_t BgL_sz00_2449;
if(
STRUCTP(BgL_tablez00_83))
{ /* ./Llib/hash.scm 561 */
BgL_sz00_2449 = BgL_tablez00_83; }  else 
{ /* ./Llib/hash.scm 561 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)22046))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 561 */
obj_t BgL_aux6514z00_3482;
BgL_aux6514z00_3482 = 
STRUCT_KEY(BgL_sz00_2449); 
if(
SYMBOLP(BgL_aux6514z00_3482))
{ /* ./Llib/hash.scm 561 */
BgL_res2802z00_2450 = BgL_aux6514z00_3482; }  else 
{ /* ./Llib/hash.scm 561 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6514z00_3482, BGl_string7574z00zz__hashz00, 
BINT(((long)22046))); 
exit( -1 );} } } 
BgL_arg1617z00_2447 = BgL_res2802z00_2450; } 
BgL_arg1618z00_2448 = BGl_symbol7633z00zz__hashz00; 
BgL_test1613z00_2446 = 
(BgL_arg1617z00_2447==BgL_arg1618z00_2448); } 
if(BgL_test1613z00_2446)
{ /* ./Llib/hash.scm 561 */
int BgL_auxz00_6617;
BgL_auxz00_6617 = 
(int)(((long)4)); 
BgL_arg1859z00_808 = 
STRUCT_REF(BgL_tablez00_83, BgL_auxz00_6617); }  else 
{ /* ./Llib/hash.scm 561 */
BgL_arg1859z00_808 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)22046))); } } 
{ /* ./Llib/hash.scm 561 */
long BgL_za71za7_2454;
{ /* ./Llib/hash.scm 561 */
obj_t BgL_auxz00_6622;
if(
INTEGERP(BgL_arg1859z00_808))
{ /* ./Llib/hash.scm 561 */
BgL_auxz00_6622 = BgL_arg1859z00_808
; }  else 
{ /* ./Llib/hash.scm 561 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1859z00_808, BGl_string7574z00zz__hashz00, 
BINT(((long)22041))); 
exit( -1 );} 
BgL_za71za7_2454 = 
(long)CINT(BgL_auxz00_6622); } 
BgL_arg1856z00_807 = 
(BgL_za71za7_2454-((long)1)); } } 
{ /* ./Llib/hash.scm 561 */
bool_t BgL_test1621z00_2458;
{ /* ./Llib/hash.scm 561 */
obj_t BgL_arg1625z00_2459;obj_t BgL_arg1626z00_2460;
{ /* ./Llib/hash.scm 561 */
obj_t BgL_res2803z00_2462;
{ /* ./Llib/hash.scm 561 */
obj_t BgL_sz00_2461;
if(
STRUCTP(BgL_tablez00_83))
{ /* ./Llib/hash.scm 561 */
BgL_sz00_2461 = BgL_tablez00_83; }  else 
{ /* ./Llib/hash.scm 561 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)22012))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 561 */
obj_t BgL_aux6550z00_3488;
BgL_aux6550z00_3488 = 
STRUCT_KEY(BgL_sz00_2461); 
if(
SYMBOLP(BgL_aux6550z00_3488))
{ /* ./Llib/hash.scm 561 */
BgL_res2803z00_2462 = BgL_aux6550z00_3488; }  else 
{ /* ./Llib/hash.scm 561 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6550z00_3488, BGl_string7574z00zz__hashz00, 
BINT(((long)22012))); 
exit( -1 );} } } 
BgL_arg1625z00_2459 = BgL_res2803z00_2462; } 
BgL_arg1626z00_2460 = BGl_symbol7633z00zz__hashz00; 
BgL_test1621z00_2458 = 
(BgL_arg1625z00_2459==BgL_arg1626z00_2460); } 
if(BgL_test1621z00_2458)
{ /* ./Llib/hash.scm 561 */
obj_t BgL_auxz00_6645;int BgL_auxz00_6643;
BgL_auxz00_6645 = 
BINT(BgL_arg1856z00_807); 
BgL_auxz00_6643 = 
(int)(((long)4)); 
STRUCT_SET(BgL_tablez00_83, BgL_auxz00_6643, BgL_auxz00_6645); }  else 
{ /* ./Llib/hash.scm 561 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_83, BGl_string7574z00zz__hashz00, 
BINT(((long)22012))); } } } 
{ /* ./Llib/hash.scm 562 */
obj_t BgL_arg1865z00_810;
{ /* ./Llib/hash.scm 562 */
obj_t BgL_pairz00_2466;
if(
PAIRP(BgL_bucketz00_804))
{ /* ./Llib/hash.scm 562 */
BgL_pairz00_2466 = BgL_bucketz00_804; }  else 
{ /* ./Llib/hash.scm 562 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_804, BGl_string7574z00zz__hashz00, 
BINT(((long)22106))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 562 */
obj_t BgL_arg2397z00_2467;
BgL_arg2397z00_2467 = 
CDR(BgL_pairz00_2466); 
{ /* ./Llib/hash.scm 562 */
obj_t BgL_pairz00_2469;
if(
PAIRP(BgL_arg2397z00_2467))
{ /* ./Llib/hash.scm 562 */
BgL_pairz00_2469 = BgL_arg2397z00_2467; }  else 
{ /* ./Llib/hash.scm 562 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2397z00_2467, BGl_string7574z00zz__hashz00, 
BINT(((long)22095))); 
exit( -1 );} 
BgL_arg1865z00_810 = 
CDR(BgL_pairz00_2469); } } } 
{ /* ./Llib/hash.scm 562 */
obj_t BgL_pairz00_2470;
if(
PAIRP(BgL_bucketz00_804))
{ /* ./Llib/hash.scm 562 */
BgL_pairz00_2470 = BgL_bucketz00_804; }  else 
{ /* ./Llib/hash.scm 562 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_804, BGl_string7574z00zz__hashz00, 
BINT(((long)22093))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_2470, BgL_arg1865z00_810); } } 
BgL_auxz00_6589 = ((bool_t)1); }  else 
{ /* ./Llib/hash.scm 564 */
bool_t BgL_test1868z00_811;
{ /* ./Llib/hash.scm 564 */
obj_t BgL_arg1874z00_813;
{ /* ./Llib/hash.scm 564 */
obj_t BgL_pairz00_2472;
if(
PAIRP(BgL_bucketz00_804))
{ /* ./Llib/hash.scm 564 */
BgL_pairz00_2472 = BgL_bucketz00_804; }  else 
{ /* ./Llib/hash.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_804, BGl_string7574z00zz__hashz00, 
BINT(((long)22137))); 
exit( -1 );} 
BgL_arg1874z00_813 = 
CDR(BgL_pairz00_2472); } 
BgL_test1868z00_811 = 
NULLP(BgL_arg1874z00_813); } 
if(BgL_test1868z00_811)
{ /* ./Llib/hash.scm 564 */
BgL_auxz00_6589 = ((bool_t)0); }  else 
{ /* ./Llib/hash.scm 564 */
{ /* ./Llib/hash.scm 567 */
obj_t BgL_arg1870z00_812;
{ /* ./Llib/hash.scm 567 */
obj_t BgL_pairz00_2474;
if(
PAIRP(BgL_bucketz00_804))
{ /* ./Llib/hash.scm 567 */
BgL_pairz00_2474 = BgL_bucketz00_804; }  else 
{ /* ./Llib/hash.scm 567 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7665z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_804, BGl_string7574z00zz__hashz00, 
BINT(((long)22175))); 
exit( -1 );} 
BgL_arg1870z00_812 = 
CDR(BgL_pairz00_2474); } 
{ 
obj_t BgL_bucketz00_6682;
BgL_bucketz00_6682 = BgL_arg1870z00_812; 
BgL_bucketz00_804 = BgL_bucketz00_6682; 
goto BgL_loopz00_805;} } } } } 
BgL_aux2905z00_2815 = 
BBOOL(BgL_auxz00_6589); } } } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2905z00_2815;} } } } 
}



/* _rem-obj-hash! */
obj_t BGl__remzd2objzd2hashz12z12zz__hashz00(obj_t BgL_envz00_2888, obj_t BgL_objz00_2889, obj_t BgL_tablez00_2890)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 543 */
return 
BGl_remzd2objzd2hashz12z12zz__hashz00(BgL_objz00_2889, BgL_tablez00_2890);} 
}



/* rem-key-hash! */
BGL_EXPORTED_DEF obj_t BGl_remzd2keyzd2hashz12z12zz__hashz00(obj_t BgL_keyz00_84, obj_t BgL_tablez00_85)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 572 */
{ /* ./Llib/hash.scm 573 */
obj_t BgL_symbol2910z00_2816;
BgL_symbol2910z00_2816 = BGl_symbol7667z00zz__hashz00; 
{ /* ./Llib/hash.scm 573 */

PUSH_TRACE(BgL_symbol2910z00_2816); BUNSPEC; 
{ /* ./Llib/hash.scm 573 */
obj_t BgL_aux2909z00_2817;
{ /* ./Llib/hash.scm 573 */
obj_t BgL_getzd2keyzd2_816;
{ /* ./Llib/hash.scm 573 */
bool_t BgL_test1629z00_2476;
{ /* ./Llib/hash.scm 573 */
obj_t BgL_arg1633z00_2477;obj_t BgL_arg1634z00_2478;
{ /* ./Llib/hash.scm 573 */
obj_t BgL_res2804z00_2480;
{ /* ./Llib/hash.scm 573 */
obj_t BgL_sz00_2479;
if(
STRUCTP(BgL_tablez00_85))
{ /* ./Llib/hash.scm 573 */
BgL_sz00_2479 = BgL_tablez00_85; }  else 
{ /* ./Llib/hash.scm 573 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22465))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 573 */
obj_t BgL_aux6627z00_3502;
BgL_aux6627z00_3502 = 
STRUCT_KEY(BgL_sz00_2479); 
if(
SYMBOLP(BgL_aux6627z00_3502))
{ /* ./Llib/hash.scm 573 */
BgL_res2804z00_2480 = BgL_aux6627z00_3502; }  else 
{ /* ./Llib/hash.scm 573 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6627z00_3502, BGl_string7574z00zz__hashz00, 
BINT(((long)22465))); 
exit( -1 );} } } 
BgL_arg1633z00_2477 = BgL_res2804z00_2480; } 
BgL_arg1634z00_2478 = BGl_symbol7633z00zz__hashz00; 
BgL_test1629z00_2476 = 
(BgL_arg1633z00_2477==BgL_arg1634z00_2478); } 
if(BgL_test1629z00_2476)
{ /* ./Llib/hash.scm 573 */
int BgL_auxz00_6700;
BgL_auxz00_6700 = 
(int)(((long)3)); 
BgL_getzd2keyzd2_816 = 
STRUCT_REF(BgL_tablez00_85, BgL_auxz00_6700); }  else 
{ /* ./Llib/hash.scm 573 */
BgL_getzd2keyzd2_816 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22465))); } } 
{ /* ./Llib/hash.scm 573 */
obj_t BgL_hashzd2eqzf3z21_817;
{ /* ./Llib/hash.scm 574 */
bool_t BgL_test1597z00_2485;
{ /* ./Llib/hash.scm 574 */
obj_t BgL_arg1601z00_2486;obj_t BgL_arg1602z00_2487;
{ /* ./Llib/hash.scm 574 */
obj_t BgL_res2805z00_2489;
{ /* ./Llib/hash.scm 574 */
obj_t BgL_sz00_2488;
if(
STRUCTP(BgL_tablez00_85))
{ /* ./Llib/hash.scm 574 */
BgL_sz00_2488 = BgL_tablez00_85; }  else 
{ /* ./Llib/hash.scm 574 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22505))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 574 */
obj_t BgL_aux6652z00_3506;
BgL_aux6652z00_3506 = 
STRUCT_KEY(BgL_sz00_2488); 
if(
SYMBOLP(BgL_aux6652z00_3506))
{ /* ./Llib/hash.scm 574 */
BgL_res2805z00_2489 = BgL_aux6652z00_3506; }  else 
{ /* ./Llib/hash.scm 574 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6652z00_3506, BGl_string7574z00zz__hashz00, 
BINT(((long)22505))); 
exit( -1 );} } } 
BgL_arg1601z00_2486 = BgL_res2805z00_2489; } 
BgL_arg1602z00_2487 = BGl_symbol7633z00zz__hashz00; 
BgL_test1597z00_2485 = 
(BgL_arg1601z00_2486==BgL_arg1602z00_2487); } 
if(BgL_test1597z00_2485)
{ /* ./Llib/hash.scm 574 */
int BgL_auxz00_6718;
BgL_auxz00_6718 = 
(int)(((long)5)); 
BgL_hashzd2eqzf3z21_817 = 
STRUCT_REF(BgL_tablez00_85, BgL_auxz00_6718); }  else 
{ /* ./Llib/hash.scm 574 */
BgL_hashzd2eqzf3z21_817 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22505))); } } 
{ /* ./Llib/hash.scm 574 */
obj_t BgL_hashzd2numzd2_818;
BgL_hashzd2numzd2_818 = 
BGl_getzd2hashzd2numberz00zz__hashz00(BgL_tablez00_85, BgL_keyz00_84); 
{ /* ./Llib/hash.scm 575 */
obj_t BgL_vecz00_819;
{ /* ./Llib/hash.scm 576 */
bool_t BgL_test1579z00_2494;
{ /* ./Llib/hash.scm 576 */
obj_t BgL_arg1585z00_2495;obj_t BgL_arg1586z00_2496;
{ /* ./Llib/hash.scm 576 */
obj_t BgL_res2806z00_2498;
{ /* ./Llib/hash.scm 576 */
obj_t BgL_sz00_2497;
if(
STRUCTP(BgL_tablez00_85))
{ /* ./Llib/hash.scm 576 */
BgL_sz00_2497 = BgL_tablez00_85; }  else 
{ /* ./Llib/hash.scm 576 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22591))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 576 */
obj_t BgL_aux6677z00_3510;
BgL_aux6677z00_3510 = 
STRUCT_KEY(BgL_sz00_2497); 
if(
SYMBOLP(BgL_aux6677z00_3510))
{ /* ./Llib/hash.scm 576 */
BgL_res2806z00_2498 = BgL_aux6677z00_3510; }  else 
{ /* ./Llib/hash.scm 576 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6677z00_3510, BGl_string7574z00zz__hashz00, 
BINT(((long)22591))); 
exit( -1 );} } } 
BgL_arg1585z00_2495 = BgL_res2806z00_2498; } 
BgL_arg1586z00_2496 = BGl_symbol7633z00zz__hashz00; 
BgL_test1579z00_2494 = 
(BgL_arg1585z00_2495==BgL_arg1586z00_2496); } 
if(BgL_test1579z00_2494)
{ /* ./Llib/hash.scm 576 */
int BgL_auxz00_6737;
BgL_auxz00_6737 = 
(int)(((long)6)); 
BgL_vecz00_819 = 
STRUCT_REF(BgL_tablez00_85, BgL_auxz00_6737); }  else 
{ /* ./Llib/hash.scm 576 */
BgL_vecz00_819 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22591))); } } 
{ /* ./Llib/hash.scm 576 */
obj_t BgL_bucketz00_820;
{ /* ./Llib/hash.scm 577 */
obj_t BgL_vectorz00_2502;int BgL_kz00_2503;
if(
VECTORP(BgL_vecz00_819))
{ /* ./Llib/hash.scm 577 */
BgL_vectorz00_2502 = BgL_vecz00_819; }  else 
{ /* ./Llib/hash.scm 577 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_vecz00_819, BGl_string7574z00zz__hashz00, 
BINT(((long)22629))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 577 */
obj_t BgL_auxz00_6747;
if(
INTEGERP(BgL_hashzd2numzd2_818))
{ /* ./Llib/hash.scm 577 */
BgL_auxz00_6747 = BgL_hashzd2numzd2_818
; }  else 
{ /* ./Llib/hash.scm 577 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_hashzd2numzd2_818, BGl_string7574z00zz__hashz00, 
BINT(((long)22629))); 
exit( -1 );} 
BgL_kz00_2503 = 
CINT(BgL_auxz00_6747); } 
{ /* ./Llib/hash.scm 577 */
bool_t BgL_test2434z00_2504;
{ /* ./Llib/hash.scm 577 */
int BgL_arg2439z00_2505;
BgL_arg2439z00_2505 = 
VECTOR_LENGTH(BgL_vectorz00_2502); 
BgL_test2434z00_2504 = 
BOUND_CHECK(BgL_kz00_2503, BgL_arg2439z00_2505); } 
if(BgL_test2434z00_2504)
{ /* ./Llib/hash.scm 577 */
BgL_bucketz00_820 = 
VECTOR_REF(BgL_vectorz00_2502,BgL_kz00_2503); }  else 
{ /* ./Llib/hash.scm 577 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_2503), "./Ieee/vector.scm", ((long)5865)); 
BgL_bucketz00_820 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)22629))); } } } 
{ /* ./Llib/hash.scm 577 */

if(
NULLP(BgL_bucketz00_820))
{ /* ./Llib/hash.scm 579 */
BgL_aux2909z00_2817 = BFALSE; }  else 
{ /* ./Llib/hash.scm 581 */
bool_t BgL_test1893z00_822;
{ /* ./Llib/hash.scm 581 */
obj_t BgL_arg1943z00_839;
{ /* ./Llib/hash.scm 581 */
obj_t BgL_arg1946z00_840;
{ /* ./Llib/hash.scm 581 */
obj_t BgL_pairz00_2511;
if(
PAIRP(BgL_bucketz00_820))
{ /* ./Llib/hash.scm 581 */
BgL_pairz00_2511 = BgL_bucketz00_820; }  else 
{ /* ./Llib/hash.scm 581 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_820, BGl_string7574z00zz__hashz00, 
BINT(((long)22726))); 
exit( -1 );} 
BgL_arg1946z00_840 = 
CAR(BgL_pairz00_2511); } 
{ /* ./Llib/hash.scm 581 */
obj_t BgL_funz00_3520;
if(
PROCEDUREP(BgL_getzd2keyzd2_816))
{ /* ./Llib/hash.scm 581 */
BgL_funz00_3520 = BgL_getzd2keyzd2_816; }  else 
{ /* ./Llib/hash.scm 581 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_getzd2keyzd2_816, BGl_string7574z00zz__hashz00, 
BINT(((long)22707))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3520, ((long)1)))
{ /* ./Llib/hash.scm 581 */
BgL_arg1943z00_839 = 
PROCEDURE_ENTRY(BgL_funz00_3520)(BgL_getzd2keyzd2_816, BgL_arg1946z00_840, BEOA); }  else 
{ /* ./Llib/hash.scm 581 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7668z00zz__hashz00, BGl_list7669z00zz__hashz00, BgL_funz00_3520, BGl_string7574z00zz__hashz00, 
BINT(((long)22707))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } } 
{ /* ./Llib/hash.scm 581 */
obj_t BgL_funz00_3525;
if(
PROCEDUREP(BgL_hashzd2eqzf3z21_817))
{ /* ./Llib/hash.scm 581 */
BgL_funz00_3525 = BgL_hashzd2eqzf3z21_817; }  else 
{ /* ./Llib/hash.scm 581 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_hashzd2eqzf3z21_817, BGl_string7574z00zz__hashz00, 
BINT(((long)22697))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3525, ((long)2)))
{ /* ./Llib/hash.scm 581 */
obj_t BgL_auxz00_6789;
BgL_auxz00_6789 = 
PROCEDURE_ENTRY(BgL_funz00_3525)(BgL_hashzd2eqzf3z21_817, BgL_arg1943z00_839, BgL_keyz00_84, BEOA); 
BgL_test1893z00_822 = 
CBOOL(BgL_auxz00_6789); }  else 
{ /* ./Llib/hash.scm 581 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7668z00zz__hashz00, BGl_list7671z00zz__hashz00, BgL_funz00_3525, BGl_string7574z00zz__hashz00, 
BINT(((long)22697))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } } 
if(BgL_test1893z00_822)
{ /* ./Llib/hash.scm 581 */
{ /* ./Llib/hash.scm 582 */
long BgL_arg1895z00_823;
{ /* ./Llib/hash.scm 582 */
obj_t BgL_arg1898z00_824;
{ /* ./Llib/hash.scm 582 */
bool_t BgL_test1613z00_2513;
{ /* ./Llib/hash.scm 582 */
obj_t BgL_arg1617z00_2514;obj_t BgL_arg1618z00_2515;
{ /* ./Llib/hash.scm 582 */
obj_t BgL_res2807z00_2517;
{ /* ./Llib/hash.scm 582 */
obj_t BgL_sz00_2516;
if(
STRUCTP(BgL_tablez00_85))
{ /* ./Llib/hash.scm 582 */
BgL_sz00_2516 = BgL_tablez00_85; }  else 
{ /* ./Llib/hash.scm 582 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22772))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 582 */
obj_t BgL_aux6777z00_3530;
BgL_aux6777z00_3530 = 
STRUCT_KEY(BgL_sz00_2516); 
if(
SYMBOLP(BgL_aux6777z00_3530))
{ /* ./Llib/hash.scm 582 */
BgL_res2807z00_2517 = BgL_aux6777z00_3530; }  else 
{ /* ./Llib/hash.scm 582 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6777z00_3530, BGl_string7574z00zz__hashz00, 
BINT(((long)22772))); 
exit( -1 );} } } 
BgL_arg1617z00_2514 = BgL_res2807z00_2517; } 
BgL_arg1618z00_2515 = BGl_symbol7633z00zz__hashz00; 
BgL_test1613z00_2513 = 
(BgL_arg1617z00_2514==BgL_arg1618z00_2515); } 
if(BgL_test1613z00_2513)
{ /* ./Llib/hash.scm 582 */
int BgL_auxz00_6810;
BgL_auxz00_6810 = 
(int)(((long)4)); 
BgL_arg1898z00_824 = 
STRUCT_REF(BgL_tablez00_85, BgL_auxz00_6810); }  else 
{ /* ./Llib/hash.scm 582 */
BgL_arg1898z00_824 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22772))); } } 
{ /* ./Llib/hash.scm 582 */
long BgL_za71za7_2521;
{ /* ./Llib/hash.scm 582 */
obj_t BgL_auxz00_6815;
if(
INTEGERP(BgL_arg1898z00_824))
{ /* ./Llib/hash.scm 582 */
BgL_auxz00_6815 = BgL_arg1898z00_824
; }  else 
{ /* ./Llib/hash.scm 582 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1898z00_824, BGl_string7574z00zz__hashz00, 
BINT(((long)22767))); 
exit( -1 );} 
BgL_za71za7_2521 = 
(long)CINT(BgL_auxz00_6815); } 
BgL_arg1895z00_823 = 
(BgL_za71za7_2521-((long)1)); } } 
{ /* ./Llib/hash.scm 582 */
bool_t BgL_test1621z00_2525;
{ /* ./Llib/hash.scm 582 */
obj_t BgL_arg1625z00_2526;obj_t BgL_arg1626z00_2527;
{ /* ./Llib/hash.scm 582 */
obj_t BgL_res2808z00_2529;
{ /* ./Llib/hash.scm 582 */
obj_t BgL_sz00_2528;
if(
STRUCTP(BgL_tablez00_85))
{ /* ./Llib/hash.scm 582 */
BgL_sz00_2528 = BgL_tablez00_85; }  else 
{ /* ./Llib/hash.scm 582 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22738))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 582 */
obj_t BgL_aux6813z00_3536;
BgL_aux6813z00_3536 = 
STRUCT_KEY(BgL_sz00_2528); 
if(
SYMBOLP(BgL_aux6813z00_3536))
{ /* ./Llib/hash.scm 582 */
BgL_res2808z00_2529 = BgL_aux6813z00_3536; }  else 
{ /* ./Llib/hash.scm 582 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6813z00_3536, BGl_string7574z00zz__hashz00, 
BINT(((long)22738))); 
exit( -1 );} } } 
BgL_arg1625z00_2526 = BgL_res2808z00_2529; } 
BgL_arg1626z00_2527 = BGl_symbol7633z00zz__hashz00; 
BgL_test1621z00_2525 = 
(BgL_arg1625z00_2526==BgL_arg1626z00_2527); } 
if(BgL_test1621z00_2525)
{ /* ./Llib/hash.scm 582 */
obj_t BgL_auxz00_6838;int BgL_auxz00_6836;
BgL_auxz00_6838 = 
BINT(BgL_arg1895z00_823); 
BgL_auxz00_6836 = 
(int)(((long)4)); 
STRUCT_SET(BgL_tablez00_85, BgL_auxz00_6836, BgL_auxz00_6838); }  else 
{ /* ./Llib/hash.scm 582 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22738))); } } } 
{ /* ./Llib/hash.scm 583 */
obj_t BgL_arg1904z00_826;
{ /* ./Llib/hash.scm 583 */
obj_t BgL_pairz00_2533;
if(
PAIRP(BgL_bucketz00_820))
{ /* ./Llib/hash.scm 583 */
BgL_pairz00_2533 = BgL_bucketz00_820; }  else 
{ /* ./Llib/hash.scm 583 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_820, BGl_string7574z00zz__hashz00, 
BINT(((long)22840))); 
exit( -1 );} 
BgL_arg1904z00_826 = 
CDR(BgL_pairz00_2533); } 
{ /* ./Llib/hash.scm 583 */
obj_t BgL_vectorz00_2534;int BgL_kz00_2535;
if(
VECTORP(BgL_vecz00_819))
{ /* ./Llib/hash.scm 583 */
BgL_vectorz00_2534 = BgL_vecz00_819; }  else 
{ /* ./Llib/hash.scm 583 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_vecz00_819, BGl_string7574z00zz__hashz00, 
BINT(((long)22804))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 583 */
obj_t BgL_auxz00_6854;
if(
INTEGERP(BgL_hashzd2numzd2_818))
{ /* ./Llib/hash.scm 583 */
BgL_auxz00_6854 = BgL_hashzd2numzd2_818
; }  else 
{ /* ./Llib/hash.scm 583 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7579z00zz__hashz00, BgL_hashzd2numzd2_818, BGl_string7574z00zz__hashz00, 
BINT(((long)22804))); 
exit( -1 );} 
BgL_kz00_2535 = 
CINT(BgL_auxz00_6854); } 
{ /* ./Llib/hash.scm 583 */
bool_t BgL_test2426z00_2537;
{ /* ./Llib/hash.scm 583 */
int BgL_arg2431z00_2538;
BgL_arg2431z00_2538 = 
VECTOR_LENGTH(BgL_vectorz00_2534); 
BgL_test2426z00_2537 = 
BOUND_CHECK(BgL_kz00_2535, BgL_arg2431z00_2538); } 
if(BgL_test2426z00_2537)
{ /* ./Llib/hash.scm 583 */
VECTOR_SET(BgL_vectorz00_2534,BgL_kz00_2535,BgL_arg1904z00_826); }  else 
{ /* ./Llib/hash.scm 583 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7591z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_2535), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)22804))); } } } } 
BgL_aux2909z00_2817 = BTRUE; }  else 
{ /* ./Llib/hash.scm 581 */
{ 
obj_t BgL_bucketz00_827;
{ /* ./Llib/hash.scm 586 */
bool_t BgL_auxz00_6869;
BgL_bucketz00_827 = BgL_bucketz00_820; 
BgL_loopz00_828:
{ /* ./Llib/hash.scm 588 */
bool_t BgL_test1908z00_829;
{ /* ./Llib/hash.scm 588 */
obj_t BgL_arg1934z00_837;
{ /* ./Llib/hash.scm 588 */
obj_t BgL_arg1938z00_838;
{ /* ./Llib/hash.scm 588 */
obj_t BgL_pairz00_2543;
if(
PAIRP(BgL_bucketz00_827))
{ /* ./Llib/hash.scm 588 */
BgL_pairz00_2543 = BgL_bucketz00_827; }  else 
{ /* ./Llib/hash.scm 588 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_827, BGl_string7574z00zz__hashz00, 
BINT(((long)22935))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 588 */
obj_t BgL_arg2405z00_2544;
BgL_arg2405z00_2544 = 
CDR(BgL_pairz00_2543); 
{ /* ./Llib/hash.scm 588 */
obj_t BgL_pairz00_2546;
if(
PAIRP(BgL_arg2405z00_2544))
{ /* ./Llib/hash.scm 588 */
BgL_pairz00_2546 = BgL_arg2405z00_2544; }  else 
{ /* ./Llib/hash.scm 588 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2405z00_2544, BGl_string7574z00zz__hashz00, 
BINT(((long)22924))); 
exit( -1 );} 
BgL_arg1938z00_838 = 
CAR(BgL_pairz00_2546); } } } 
{ /* ./Llib/hash.scm 588 */
obj_t BgL_funz00_3550;
if(
PROCEDUREP(BgL_getzd2keyzd2_816))
{ /* ./Llib/hash.scm 588 */
BgL_funz00_3550 = BgL_getzd2keyzd2_816; }  else 
{ /* ./Llib/hash.scm 588 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_getzd2keyzd2_816, BGl_string7574z00zz__hashz00, 
BINT(((long)22915))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3550, ((long)1)))
{ /* ./Llib/hash.scm 588 */
BgL_arg1934z00_837 = 
PROCEDURE_ENTRY(BgL_funz00_3550)(BgL_getzd2keyzd2_816, BgL_arg1938z00_838, BEOA); }  else 
{ /* ./Llib/hash.scm 588 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7668z00zz__hashz00, BGl_list7673z00zz__hashz00, BgL_funz00_3550, BGl_string7574z00zz__hashz00, 
BINT(((long)22915))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } } 
{ /* ./Llib/hash.scm 588 */
obj_t BgL_funz00_3555;
if(
PROCEDUREP(BgL_hashzd2eqzf3z21_817))
{ /* ./Llib/hash.scm 588 */
BgL_funz00_3555 = BgL_hashzd2eqzf3z21_817; }  else 
{ /* ./Llib/hash.scm 588 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_hashzd2eqzf3z21_817, BGl_string7574z00zz__hashz00, 
BINT(((long)22905))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3555, ((long)2)))
{ /* ./Llib/hash.scm 588 */
obj_t BgL_auxz00_6901;
BgL_auxz00_6901 = 
PROCEDURE_ENTRY(BgL_funz00_3555)(BgL_hashzd2eqzf3z21_817, BgL_arg1934z00_837, BgL_keyz00_84, BEOA); 
BgL_test1908z00_829 = 
CBOOL(BgL_auxz00_6901); }  else 
{ /* ./Llib/hash.scm 588 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7668z00zz__hashz00, BGl_list7675z00zz__hashz00, BgL_funz00_3555, BGl_string7574z00zz__hashz00, 
BINT(((long)22905))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } } 
if(BgL_test1908z00_829)
{ /* ./Llib/hash.scm 588 */
{ /* ./Llib/hash.scm 589 */
long BgL_arg1910z00_830;
{ /* ./Llib/hash.scm 589 */
obj_t BgL_arg1915z00_831;
{ /* ./Llib/hash.scm 589 */
bool_t BgL_test1613z00_2548;
{ /* ./Llib/hash.scm 589 */
obj_t BgL_arg1617z00_2549;obj_t BgL_arg1618z00_2550;
{ /* ./Llib/hash.scm 589 */
obj_t BgL_res2809z00_2552;
{ /* ./Llib/hash.scm 589 */
obj_t BgL_sz00_2551;
if(
STRUCTP(BgL_tablez00_85))
{ /* ./Llib/hash.scm 589 */
BgL_sz00_2551 = BgL_tablez00_85; }  else 
{ /* ./Llib/hash.scm 589 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22981))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 589 */
obj_t BgL_aux6934z00_3560;
BgL_aux6934z00_3560 = 
STRUCT_KEY(BgL_sz00_2551); 
if(
SYMBOLP(BgL_aux6934z00_3560))
{ /* ./Llib/hash.scm 589 */
BgL_res2809z00_2552 = BgL_aux6934z00_3560; }  else 
{ /* ./Llib/hash.scm 589 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6934z00_3560, BGl_string7574z00zz__hashz00, 
BINT(((long)22981))); 
exit( -1 );} } } 
BgL_arg1617z00_2549 = BgL_res2809z00_2552; } 
BgL_arg1618z00_2550 = BGl_symbol7633z00zz__hashz00; 
BgL_test1613z00_2548 = 
(BgL_arg1617z00_2549==BgL_arg1618z00_2550); } 
if(BgL_test1613z00_2548)
{ /* ./Llib/hash.scm 589 */
int BgL_auxz00_6922;
BgL_auxz00_6922 = 
(int)(((long)4)); 
BgL_arg1915z00_831 = 
STRUCT_REF(BgL_tablez00_85, BgL_auxz00_6922); }  else 
{ /* ./Llib/hash.scm 589 */
BgL_arg1915z00_831 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22981))); } } 
{ /* ./Llib/hash.scm 589 */
long BgL_za71za7_2556;
{ /* ./Llib/hash.scm 589 */
obj_t BgL_auxz00_6927;
if(
INTEGERP(BgL_arg1915z00_831))
{ /* ./Llib/hash.scm 589 */
BgL_auxz00_6927 = BgL_arg1915z00_831
; }  else 
{ /* ./Llib/hash.scm 589 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1915z00_831, BGl_string7574z00zz__hashz00, 
BINT(((long)22976))); 
exit( -1 );} 
BgL_za71za7_2556 = 
(long)CINT(BgL_auxz00_6927); } 
BgL_arg1910z00_830 = 
(BgL_za71za7_2556-((long)1)); } } 
{ /* ./Llib/hash.scm 589 */
bool_t BgL_test1621z00_2560;
{ /* ./Llib/hash.scm 589 */
obj_t BgL_arg1625z00_2561;obj_t BgL_arg1626z00_2562;
{ /* ./Llib/hash.scm 589 */
obj_t BgL_res2810z00_2564;
{ /* ./Llib/hash.scm 589 */
obj_t BgL_sz00_2563;
if(
STRUCTP(BgL_tablez00_85))
{ /* ./Llib/hash.scm 589 */
BgL_sz00_2563 = BgL_tablez00_85; }  else 
{ /* ./Llib/hash.scm 589 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22947))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 589 */
obj_t BgL_aux6970z00_3566;
BgL_aux6970z00_3566 = 
STRUCT_KEY(BgL_sz00_2563); 
if(
SYMBOLP(BgL_aux6970z00_3566))
{ /* ./Llib/hash.scm 589 */
BgL_res2810z00_2564 = BgL_aux6970z00_3566; }  else 
{ /* ./Llib/hash.scm 589 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux6970z00_3566, BGl_string7574z00zz__hashz00, 
BINT(((long)22947))); 
exit( -1 );} } } 
BgL_arg1625z00_2561 = BgL_res2810z00_2564; } 
BgL_arg1626z00_2562 = BGl_symbol7633z00zz__hashz00; 
BgL_test1621z00_2560 = 
(BgL_arg1625z00_2561==BgL_arg1626z00_2562); } 
if(BgL_test1621z00_2560)
{ /* ./Llib/hash.scm 589 */
obj_t BgL_auxz00_6950;int BgL_auxz00_6948;
BgL_auxz00_6950 = 
BINT(BgL_arg1910z00_830); 
BgL_auxz00_6948 = 
(int)(((long)4)); 
STRUCT_SET(BgL_tablez00_85, BgL_auxz00_6948, BgL_auxz00_6950); }  else 
{ /* ./Llib/hash.scm 589 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_85, BGl_string7574z00zz__hashz00, 
BINT(((long)22947))); } } } 
{ /* ./Llib/hash.scm 590 */
obj_t BgL_arg1920z00_833;
{ /* ./Llib/hash.scm 590 */
obj_t BgL_pairz00_2568;
if(
PAIRP(BgL_bucketz00_827))
{ /* ./Llib/hash.scm 590 */
BgL_pairz00_2568 = BgL_bucketz00_827; }  else 
{ /* ./Llib/hash.scm 590 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_827, BGl_string7574z00zz__hashz00, 
BINT(((long)23041))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 590 */
obj_t BgL_arg2397z00_2569;
BgL_arg2397z00_2569 = 
CDR(BgL_pairz00_2568); 
{ /* ./Llib/hash.scm 590 */
obj_t BgL_pairz00_2571;
if(
PAIRP(BgL_arg2397z00_2569))
{ /* ./Llib/hash.scm 590 */
BgL_pairz00_2571 = BgL_arg2397z00_2569; }  else 
{ /* ./Llib/hash.scm 590 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_arg2397z00_2569, BGl_string7574z00zz__hashz00, 
BINT(((long)23030))); 
exit( -1 );} 
BgL_arg1920z00_833 = 
CDR(BgL_pairz00_2571); } } } 
{ /* ./Llib/hash.scm 590 */
obj_t BgL_pairz00_2572;
if(
PAIRP(BgL_bucketz00_827))
{ /* ./Llib/hash.scm 590 */
BgL_pairz00_2572 = BgL_bucketz00_827; }  else 
{ /* ./Llib/hash.scm 590 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_827, BGl_string7574z00zz__hashz00, 
BINT(((long)23028))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_2572, BgL_arg1920z00_833); } } 
BgL_auxz00_6869 = ((bool_t)1); }  else 
{ /* ./Llib/hash.scm 592 */
bool_t BgL_test1923z00_834;
{ /* ./Llib/hash.scm 592 */
obj_t BgL_arg1930z00_836;
{ /* ./Llib/hash.scm 592 */
obj_t BgL_pairz00_2574;
if(
PAIRP(BgL_bucketz00_827))
{ /* ./Llib/hash.scm 592 */
BgL_pairz00_2574 = BgL_bucketz00_827; }  else 
{ /* ./Llib/hash.scm 592 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_827, BGl_string7574z00zz__hashz00, 
BINT(((long)23072))); 
exit( -1 );} 
BgL_arg1930z00_836 = 
CDR(BgL_pairz00_2574); } 
BgL_test1923z00_834 = 
NULLP(BgL_arg1930z00_836); } 
if(BgL_test1923z00_834)
{ /* ./Llib/hash.scm 592 */
BgL_auxz00_6869 = ((bool_t)0); }  else 
{ /* ./Llib/hash.scm 592 */
{ /* ./Llib/hash.scm 595 */
obj_t BgL_arg1925z00_835;
{ /* ./Llib/hash.scm 595 */
obj_t BgL_pairz00_2576;
if(
PAIRP(BgL_bucketz00_827))
{ /* ./Llib/hash.scm 595 */
BgL_pairz00_2576 = BgL_bucketz00_827; }  else 
{ /* ./Llib/hash.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7667z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_bucketz00_827, BGl_string7574z00zz__hashz00, 
BINT(((long)23110))); 
exit( -1 );} 
BgL_arg1925z00_835 = 
CDR(BgL_pairz00_2576); } 
{ 
obj_t BgL_bucketz00_6987;
BgL_bucketz00_6987 = BgL_arg1925z00_835; 
BgL_bucketz00_827 = BgL_bucketz00_6987; 
goto BgL_loopz00_828;} } } } } 
BgL_aux2909z00_2817 = 
BBOOL(BgL_auxz00_6869); } } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2909z00_2817;} } } } 
}



/* _rem-key-hash! */
obj_t BGl__remzd2keyzd2hashz12z12zz__hashz00(obj_t BgL_envz00_2891, obj_t BgL_keyz00_2892, obj_t BgL_tablez00_2893)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 572 */
return 
BGl_remzd2keyzd2hashz12z12zz__hashz00(BgL_keyz00_2892, BgL_tablez00_2893);} 
}



/* for-each-hash */
BGL_EXPORTED_DEF obj_t BGl_forzd2eachzd2hashz00zz__hashz00(obj_t BgL_funz00_86, obj_t BgL_tablez00_87)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 600 */
{ /* ./Llib/hash.scm 601 */
obj_t BgL_symbol2914z00_2818;
BgL_symbol2914z00_2818 = BGl_symbol7677z00zz__hashz00; 
{ /* ./Llib/hash.scm 601 */

PUSH_TRACE(BgL_symbol2914z00_2818); BUNSPEC; 
{ /* ./Llib/hash.scm 601 */
obj_t BgL_aux2913z00_2819;
{ /* ./Llib/hash.scm 601 */
obj_t BgL_vecz00_841;
{ /* ./Llib/hash.scm 601 */
bool_t BgL_test1579z00_2578;
{ /* ./Llib/hash.scm 601 */
obj_t BgL_arg1585z00_2579;obj_t BgL_arg1586z00_2580;
{ /* ./Llib/hash.scm 601 */
obj_t BgL_res2811z00_2582;
{ /* ./Llib/hash.scm 601 */
obj_t BgL_sz00_2581;
if(
STRUCTP(BgL_tablez00_87))
{ /* ./Llib/hash.scm 601 */
BgL_sz00_2581 = BgL_tablez00_87; }  else 
{ /* ./Llib/hash.scm 601 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7677z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_87, BGl_string7574z00zz__hashz00, 
BINT(((long)23392))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 601 */
obj_t BgL_aux7047z00_3580;
BgL_aux7047z00_3580 = 
STRUCT_KEY(BgL_sz00_2581); 
if(
SYMBOLP(BgL_aux7047z00_3580))
{ /* ./Llib/hash.scm 601 */
BgL_res2811z00_2582 = BgL_aux7047z00_3580; }  else 
{ /* ./Llib/hash.scm 601 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7677z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux7047z00_3580, BGl_string7574z00zz__hashz00, 
BINT(((long)23392))); 
exit( -1 );} } } 
BgL_arg1585z00_2579 = BgL_res2811z00_2582; } 
BgL_arg1586z00_2580 = BGl_symbol7633z00zz__hashz00; 
BgL_test1579z00_2578 = 
(BgL_arg1585z00_2579==BgL_arg1586z00_2580); } 
if(BgL_test1579z00_2578)
{ /* ./Llib/hash.scm 601 */
int BgL_auxz00_7005;
BgL_auxz00_7005 = 
(int)(((long)6)); 
BgL_vecz00_841 = 
STRUCT_REF(BgL_tablez00_87, BgL_auxz00_7005); }  else 
{ /* ./Llib/hash.scm 601 */
BgL_vecz00_841 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_87, BGl_string7574z00zz__hashz00, 
BINT(((long)23392))); } } 
{ 
long BgL_iz00_842;
{ /* ./Llib/hash.scm 602 */
long BgL_arg1956z00_844;
{ /* ./Llib/hash.scm 602 */
obj_t BgL_arg1960z00_845;
{ /* ./Llib/hash.scm 602 */
bool_t BgL_test1661z00_2587;
{ /* ./Llib/hash.scm 602 */
obj_t BgL_arg1666z00_2588;obj_t BgL_arg1667z00_2589;
{ /* ./Llib/hash.scm 602 */
obj_t BgL_res2812z00_2591;
{ /* ./Llib/hash.scm 602 */
obj_t BgL_sz00_2590;
if(
STRUCTP(BgL_tablez00_87))
{ /* ./Llib/hash.scm 602 */
BgL_sz00_2590 = BgL_tablez00_87; }  else 
{ /* ./Llib/hash.scm 602 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7677z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_87, BGl_string7574z00zz__hashz00, 
BINT(((long)23441))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 602 */
obj_t BgL_aux7123z00_3593;
BgL_aux7123z00_3593 = 
STRUCT_KEY(BgL_sz00_2590); 
if(
SYMBOLP(BgL_aux7123z00_3593))
{ /* ./Llib/hash.scm 602 */
BgL_res2812z00_2591 = BgL_aux7123z00_3593; }  else 
{ /* ./Llib/hash.scm 602 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7677z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux7123z00_3593, BGl_string7574z00zz__hashz00, 
BINT(((long)23441))); 
exit( -1 );} } } 
BgL_arg1666z00_2588 = BgL_res2812z00_2591; } 
BgL_arg1667z00_2589 = BGl_symbol7633z00zz__hashz00; 
BgL_test1661z00_2587 = 
(BgL_arg1666z00_2588==BgL_arg1667z00_2589); } 
if(BgL_test1661z00_2587)
{ /* ./Llib/hash.scm 602 */
int BgL_auxz00_7023;
BgL_auxz00_7023 = 
(int)(((long)1)); 
BgL_arg1960z00_845 = 
STRUCT_REF(BgL_tablez00_87, BgL_auxz00_7023); }  else 
{ /* ./Llib/hash.scm 602 */
BgL_arg1960z00_845 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_87, BGl_string7574z00zz__hashz00, 
BINT(((long)23441))); } } 
{ /* ./Llib/hash.scm 602 */
long BgL_za71za7_2595;
{ /* ./Llib/hash.scm 602 */
obj_t BgL_auxz00_7028;
if(
INTEGERP(BgL_arg1960z00_845))
{ /* ./Llib/hash.scm 602 */
BgL_auxz00_7028 = BgL_arg1960z00_845
; }  else 
{ /* ./Llib/hash.scm 602 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7677z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_arg1960z00_845, BGl_string7574z00zz__hashz00, 
BINT(((long)23436))); 
exit( -1 );} 
BgL_za71za7_2595 = 
(long)CINT(BgL_auxz00_7028); } 
BgL_arg1956z00_844 = 
(BgL_za71za7_2595-((long)1)); } } 
BgL_iz00_842 = BgL_arg1956z00_844; 
BgL_loopz00_843:
if(
(BgL_iz00_842==((long)-1)))
{ /* ./Llib/hash.scm 603 */
BgL_aux2913z00_2819 = BUNSPEC; }  else 
{ /* ./Llib/hash.scm 603 */
{ 
obj_t BgL_l1013z00_848;
{ /* ./Llib/hash.scm 606 */
obj_t BgL_arg1966z00_850;
{ /* ./Llib/hash.scm 606 */
obj_t BgL_vectorz00_2599;int BgL_kz00_2600;
if(
VECTORP(BgL_vecz00_841))
{ /* ./Llib/hash.scm 606 */
BgL_vectorz00_2599 = BgL_vecz00_841; }  else 
{ /* ./Llib/hash.scm 606 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7677z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_vecz00_841, BGl_string7574z00zz__hashz00, 
BINT(((long)23532))); 
exit( -1 );} 
BgL_kz00_2600 = 
(int)(BgL_iz00_842); 
{ /* ./Llib/hash.scm 606 */
bool_t BgL_test2434z00_2601;
{ /* ./Llib/hash.scm 606 */
int BgL_arg2439z00_2602;
BgL_arg2439z00_2602 = 
VECTOR_LENGTH(BgL_vectorz00_2599); 
BgL_test2434z00_2601 = 
BOUND_CHECK(BgL_kz00_2600, BgL_arg2439z00_2602); } 
if(BgL_test2434z00_2601)
{ /* ./Llib/hash.scm 606 */
BgL_arg1966z00_850 = 
VECTOR_REF(BgL_vectorz00_2599,BgL_kz00_2600); }  else 
{ /* ./Llib/hash.scm 606 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_2600), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1966z00_850 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)23532))); } } } 
BgL_l1013z00_848 = BgL_arg1966z00_850; 
BgL_forzd2each1014zd2_849:
{ /* ./Llib/hash.scm 606 */
bool_t BgL_test1969z00_851;
BgL_test1969z00_851 = 
PAIRP(BgL_l1013z00_848); 
if(BgL_test1969z00_851)
{ /* ./Llib/hash.scm 606 */
{ /* ./Llib/hash.scm 606 */
obj_t BgL_arg1971z00_852;
{ /* ./Llib/hash.scm 606 */
obj_t BgL_pairz00_2608;
if(BgL_test1969z00_851)
{ /* ./Llib/hash.scm 606 */
BgL_pairz00_2608 = BgL_l1013z00_848; }  else 
{ /* ./Llib/hash.scm 606 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7677z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_l1013z00_848, BGl_string7574z00zz__hashz00, 
BINT(((long)23518))); 
exit( -1 );} 
BgL_arg1971z00_852 = 
CAR(BgL_pairz00_2608); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_86, ((long)1)))
{ /* ./Llib/hash.scm 606 */
PROCEDURE_ENTRY(BgL_funz00_86)(BgL_funz00_86, BgL_arg1971z00_852, BEOA); }  else 
{ /* ./Llib/hash.scm 606 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7678z00zz__hashz00, BGl_list7679z00zz__hashz00, BgL_funz00_86, BGl_string7574z00zz__hashz00, 
BINT(((long)23518))); 
FAILURE(BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00,BGl_symbol7607z00zz__hashz00);} } 
{ /* ./Llib/hash.scm 606 */
obj_t BgL_arg1975z00_853;
{ /* ./Llib/hash.scm 606 */
obj_t BgL_pairz00_2609;
if(
PAIRP(BgL_l1013z00_848))
{ /* ./Llib/hash.scm 606 */
BgL_pairz00_2609 = BgL_l1013z00_848; }  else 
{ /* ./Llib/hash.scm 606 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7677z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_l1013z00_848, BGl_string7574z00zz__hashz00, 
BINT(((long)23518))); 
exit( -1 );} 
BgL_arg1975z00_853 = 
CDR(BgL_pairz00_2609); } 
{ 
obj_t BgL_l1013z00_7072;
BgL_l1013z00_7072 = BgL_arg1975z00_853; 
BgL_l1013z00_848 = BgL_l1013z00_7072; 
goto BgL_forzd2each1014zd2_849;} } }  else 
{ /* ./Llib/hash.scm 606 */
if(
NULLP(BgL_l1013z00_848))
{ /* ./Llib/hash.scm 606 */BTRUE; }  else 
{ /* ./Llib/hash.scm 606 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7608z00zz__hashz00, BGl_string7609z00zz__hashz00, BgL_l1013z00_848, BGl_string7574z00zz__hashz00, 
BINT(((long)23518))); } } } } } 
{ 
long BgL_iz00_7077;
BgL_iz00_7077 = 
(BgL_iz00_842-((long)1)); 
BgL_iz00_842 = BgL_iz00_7077; 
goto BgL_loopz00_843;} } } } } 
POP_TRACE(); 
return BgL_aux2913z00_2819;} } } } 
}



/* _for-each-hash */
obj_t BGl__forzd2eachzd2hashz00zz__hashz00(obj_t BgL_envz00_2894, obj_t BgL_funz00_2895, obj_t BgL_tablez00_2896)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 600 */
{ /* ./Llib/hash.scm 601 */
obj_t BgL_auxz00_7080;
if(
PROCEDUREP(BgL_funz00_2895))
{ /* ./Llib/hash.scm 601 */
BgL_auxz00_7080 = BgL_funz00_2895
; }  else 
{ /* ./Llib/hash.scm 601 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7681z00zz__hashz00, BGl_string7611z00zz__hashz00, BgL_funz00_2895, BGl_string7574z00zz__hashz00, 
BINT(((long)23381))); 
exit( -1 );} 
return 
BGl_forzd2eachzd2hashz00zz__hashz00(BgL_auxz00_7080, BgL_tablez00_2896);} } 
}



/* hash-table-grows! */
obj_t BGl_hashzd2tablezd2growsz12z12zz__hashz00(obj_t BgL_tablez00_88)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 612 */
{ /* ./Llib/hash.scm 613 */
obj_t BgL_symbol2918z00_2820;
BgL_symbol2918z00_2820 = BGl_symbol7682z00zz__hashz00; 
{ /* ./Llib/hash.scm 613 */

PUSH_TRACE(BgL_symbol2918z00_2820); BUNSPEC; 
{ /* ./Llib/hash.scm 613 */
obj_t BgL_aux2917z00_2821;
{ /* ./Llib/hash.scm 613 */
obj_t BgL_maxzd2siza7ez75_856;
{ /* ./Llib/hash.scm 613 */
bool_t BgL_test1678z00_2617;
{ /* ./Llib/hash.scm 613 */
obj_t BgL_arg1682z00_2618;obj_t BgL_arg1683z00_2619;
{ /* ./Llib/hash.scm 613 */
obj_t BgL_res2813z00_2621;
{ /* ./Llib/hash.scm 613 */
obj_t BgL_sz00_2620;
if(
STRUCTP(BgL_tablez00_88))
{ /* ./Llib/hash.scm 613 */
BgL_sz00_2620 = BgL_tablez00_88; }  else 
{ /* ./Llib/hash.scm 613 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)23855))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 613 */
obj_t BgL_aux7169z00_3601;
BgL_aux7169z00_3601 = 
STRUCT_KEY(BgL_sz00_2620); 
if(
SYMBOLP(BgL_aux7169z00_3601))
{ /* ./Llib/hash.scm 613 */
BgL_res2813z00_2621 = BgL_aux7169z00_3601; }  else 
{ /* ./Llib/hash.scm 613 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux7169z00_3601, BGl_string7574z00zz__hashz00, 
BINT(((long)23855))); 
exit( -1 );} } } 
BgL_arg1682z00_2618 = BgL_res2813z00_2621; } 
BgL_arg1683z00_2619 = BGl_symbol7633z00zz__hashz00; 
BgL_test1678z00_2617 = 
(BgL_arg1682z00_2618==BgL_arg1683z00_2619); } 
if(BgL_test1678z00_2617)
{ /* ./Llib/hash.scm 613 */
int BgL_auxz00_7101;
BgL_auxz00_7101 = 
(int)(((long)0)); 
BgL_maxzd2siza7ez75_856 = 
STRUCT_REF(BgL_tablez00_88, BgL_auxz00_7101); }  else 
{ /* ./Llib/hash.scm 613 */
BgL_maxzd2siza7ez75_856 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)23855))); } } 
{ /* ./Llib/hash.scm 613 */
obj_t BgL_siza7eza7_857;
{ /* ./Llib/hash.scm 614 */
bool_t BgL_test1661z00_2626;
{ /* ./Llib/hash.scm 614 */
obj_t BgL_arg1666z00_2627;obj_t BgL_arg1667z00_2628;
{ /* ./Llib/hash.scm 614 */
obj_t BgL_res2814z00_2630;
{ /* ./Llib/hash.scm 614 */
obj_t BgL_sz00_2629;
if(
STRUCTP(BgL_tablez00_88))
{ /* ./Llib/hash.scm 614 */
BgL_sz00_2629 = BgL_tablez00_88; }  else 
{ /* ./Llib/hash.scm 614 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)23896))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 614 */
obj_t BgL_aux7194z00_3605;
BgL_aux7194z00_3605 = 
STRUCT_KEY(BgL_sz00_2629); 
if(
SYMBOLP(BgL_aux7194z00_3605))
{ /* ./Llib/hash.scm 614 */
BgL_res2814z00_2630 = BgL_aux7194z00_3605; }  else 
{ /* ./Llib/hash.scm 614 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux7194z00_3605, BGl_string7574z00zz__hashz00, 
BINT(((long)23896))); 
exit( -1 );} } } 
BgL_arg1666z00_2627 = BgL_res2814z00_2630; } 
BgL_arg1667z00_2628 = BGl_symbol7633z00zz__hashz00; 
BgL_test1661z00_2626 = 
(BgL_arg1666z00_2627==BgL_arg1667z00_2628); } 
if(BgL_test1661z00_2626)
{ /* ./Llib/hash.scm 614 */
int BgL_auxz00_7119;
BgL_auxz00_7119 = 
(int)(((long)1)); 
BgL_siza7eza7_857 = 
STRUCT_REF(BgL_tablez00_88, BgL_auxz00_7119); }  else 
{ /* ./Llib/hash.scm 614 */
BgL_siza7eza7_857 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)23896))); } } 
{ /* ./Llib/hash.scm 614 */
long BgL_newzd2siza7ez75_858;
{ /* ./Llib/hash.scm 615 */
long BgL_za71za7_2634;
{ /* ./Llib/hash.scm 615 */
obj_t BgL_auxz00_7124;
if(
INTEGERP(BgL_siza7eza7_857))
{ /* ./Llib/hash.scm 615 */
BgL_auxz00_7124 = BgL_siza7eza7_857
; }  else 
{ /* ./Llib/hash.scm 615 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_siza7eza7_857, BGl_string7574z00zz__hashz00, 
BINT(((long)23941))); 
exit( -1 );} 
BgL_za71za7_2634 = 
(long)CINT(BgL_auxz00_7124); } 
BgL_newzd2siza7ez75_858 = 
(BgL_za71za7_2634*((long)2)); } 
{ /* ./Llib/hash.scm 615 */
obj_t BgL_newzd2tablezd2_859;
{ /* ./Llib/hash.scm 616 */
int BgL_auxz00_7132;
BgL_auxz00_7132 = 
(int)(BgL_newzd2siza7ez75_858); 
BgL_newzd2tablezd2_859 = 
make_vector(BgL_auxz00_7132, BNIL); } 
{ /* ./Llib/hash.scm 616 */
obj_t BgL_oldzd2tablezd2_860;
{ /* ./Llib/hash.scm 617 */
bool_t BgL_test1579z00_2638;
{ /* ./Llib/hash.scm 617 */
obj_t BgL_arg1585z00_2639;obj_t BgL_arg1586z00_2640;
{ /* ./Llib/hash.scm 617 */
obj_t BgL_res2815z00_2642;
{ /* ./Llib/hash.scm 617 */
obj_t BgL_sz00_2641;
if(
STRUCTP(BgL_tablez00_88))
{ /* ./Llib/hash.scm 617 */
BgL_sz00_2641 = BgL_tablez00_88; }  else 
{ /* ./Llib/hash.scm 617 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)24005))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 617 */
obj_t BgL_aux7231z00_3611;
BgL_aux7231z00_3611 = 
STRUCT_KEY(BgL_sz00_2641); 
if(
SYMBOLP(BgL_aux7231z00_3611))
{ /* ./Llib/hash.scm 617 */
BgL_res2815z00_2642 = BgL_aux7231z00_3611; }  else 
{ /* ./Llib/hash.scm 617 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux7231z00_3611, BGl_string7574z00zz__hashz00, 
BINT(((long)24005))); 
exit( -1 );} } } 
BgL_arg1585z00_2639 = BgL_res2815z00_2642; } 
BgL_arg1586z00_2640 = BGl_symbol7633z00zz__hashz00; 
BgL_test1579z00_2638 = 
(BgL_arg1585z00_2639==BgL_arg1586z00_2640); } 
if(BgL_test1579z00_2638)
{ /* ./Llib/hash.scm 617 */
int BgL_auxz00_7148;
BgL_auxz00_7148 = 
(int)(((long)6)); 
BgL_oldzd2tablezd2_860 = 
STRUCT_REF(BgL_tablez00_88, BgL_auxz00_7148); }  else 
{ /* ./Llib/hash.scm 617 */
BgL_oldzd2tablezd2_860 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7587z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)24005))); } } 
{ /* ./Llib/hash.scm 617 */

{ /* ./Llib/hash.scm 619 */
bool_t BgL_test1670z00_2648;
{ /* ./Llib/hash.scm 619 */
obj_t BgL_arg1674z00_2649;obj_t BgL_arg1675z00_2650;
{ /* ./Llib/hash.scm 619 */
obj_t BgL_res2816z00_2652;
{ /* ./Llib/hash.scm 619 */
obj_t BgL_sz00_2651;
if(
STRUCTP(BgL_tablez00_88))
{ /* ./Llib/hash.scm 619 */
BgL_sz00_2651 = BgL_tablez00_88; }  else 
{ /* ./Llib/hash.scm 619 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)24078))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 619 */
obj_t BgL_aux7256z00_3615;
BgL_aux7256z00_3615 = 
STRUCT_KEY(BgL_sz00_2651); 
if(
SYMBOLP(BgL_aux7256z00_3615))
{ /* ./Llib/hash.scm 619 */
BgL_res2816z00_2652 = BgL_aux7256z00_3615; }  else 
{ /* ./Llib/hash.scm 619 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux7256z00_3615, BGl_string7574z00zz__hashz00, 
BINT(((long)24078))); 
exit( -1 );} } } 
BgL_arg1674z00_2649 = BgL_res2816z00_2652; } 
BgL_arg1675z00_2650 = BGl_symbol7633z00zz__hashz00; 
BgL_test1670z00_2648 = 
(BgL_arg1674z00_2649==BgL_arg1675z00_2650); } 
if(BgL_test1670z00_2648)
{ /* ./Llib/hash.scm 619 */
obj_t BgL_auxz00_7168;int BgL_auxz00_7166;
BgL_auxz00_7168 = 
BINT(BgL_newzd2siza7ez75_858); 
BgL_auxz00_7166 = 
(int)(((long)1)); 
STRUCT_SET(BgL_tablez00_88, BgL_auxz00_7166, BgL_auxz00_7168); }  else 
{ /* ./Llib/hash.scm 619 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)24078))); } } 
{ /* ./Llib/hash.scm 620 */
bool_t BgL_test1589z00_2658;
{ /* ./Llib/hash.scm 620 */
obj_t BgL_arg1593z00_2659;obj_t BgL_arg1594z00_2660;
{ /* ./Llib/hash.scm 620 */
obj_t BgL_res2817z00_2662;
{ /* ./Llib/hash.scm 620 */
obj_t BgL_sz00_2661;
if(
STRUCTP(BgL_tablez00_88))
{ /* ./Llib/hash.scm 620 */
BgL_sz00_2661 = BgL_tablez00_88; }  else 
{ /* ./Llib/hash.scm 620 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)24120))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 620 */
obj_t BgL_aux7282z00_3619;
BgL_aux7282z00_3619 = 
STRUCT_KEY(BgL_sz00_2661); 
if(
SYMBOLP(BgL_aux7282z00_3619))
{ /* ./Llib/hash.scm 620 */
BgL_res2817z00_2662 = BgL_aux7282z00_3619; }  else 
{ /* ./Llib/hash.scm 620 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux7282z00_3619, BGl_string7574z00zz__hashz00, 
BINT(((long)24120))); 
exit( -1 );} } } 
BgL_arg1593z00_2659 = BgL_res2817z00_2662; } 
BgL_arg1594z00_2660 = BGl_symbol7633z00zz__hashz00; 
BgL_test1589z00_2658 = 
(BgL_arg1593z00_2659==BgL_arg1594z00_2660); } 
if(BgL_test1589z00_2658)
{ /* ./Llib/hash.scm 620 */
int BgL_auxz00_7186;
BgL_auxz00_7186 = 
(int)(((long)6)); 
STRUCT_SET(BgL_tablez00_88, BgL_auxz00_7186, BgL_newzd2tablezd2_859); }  else 
{ /* ./Llib/hash.scm 620 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)24120))); } } 
{ /* ./Llib/hash.scm 623 */
bool_t BgL_test1621z00_2668;
{ /* ./Llib/hash.scm 623 */
obj_t BgL_arg1625z00_2669;obj_t BgL_arg1626z00_2670;
{ /* ./Llib/hash.scm 623 */
obj_t BgL_res2818z00_2672;
{ /* ./Llib/hash.scm 623 */
obj_t BgL_sz00_2671;
if(
STRUCTP(BgL_tablez00_88))
{ /* ./Llib/hash.scm 623 */
BgL_sz00_2671 = BgL_tablez00_88; }  else 
{ /* ./Llib/hash.scm 623 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7585z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)24261))); 
exit( -1 );} 
{ /* ./Llib/hash.scm 623 */
obj_t BgL_aux7307z00_3623;
BgL_aux7307z00_3623 = 
STRUCT_KEY(BgL_sz00_2671); 
if(
SYMBOLP(BgL_aux7307z00_3623))
{ /* ./Llib/hash.scm 623 */
BgL_res2818z00_2672 = BgL_aux7307z00_3623; }  else 
{ /* ./Llib/hash.scm 623 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_aux7307z00_3623, BGl_string7574z00zz__hashz00, 
BINT(((long)24261))); 
exit( -1 );} } } 
BgL_arg1625z00_2669 = BgL_res2818z00_2672; } 
BgL_arg1626z00_2670 = BGl_symbol7633z00zz__hashz00; 
BgL_test1621z00_2668 = 
(BgL_arg1625z00_2669==BgL_arg1626z00_2670); } 
if(BgL_test1621z00_2668)
{ /* ./Llib/hash.scm 623 */
obj_t BgL_auxz00_7206;int BgL_auxz00_7204;
BgL_auxz00_7206 = 
BINT(((long)0)); 
BgL_auxz00_7204 = 
(int)(((long)4)); 
STRUCT_SET(BgL_tablez00_88, BgL_auxz00_7204, BgL_auxz00_7206); }  else 
{ /* ./Llib/hash.scm 623 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7582z00zz__hashz00, BGl_string7634z00zz__hashz00, BgL_tablez00_88, BGl_string7574z00zz__hashz00, 
BINT(((long)24261))); } } 
{ 
long BgL_iz00_861;
BgL_iz00_861 = ((long)0); 
BgL_loopz00_862:
{ /* ./Llib/hash.scm 626 */
bool_t BgL_test1992z00_863;
{ /* ./Llib/hash.scm 626 */
long BgL_n2z00_2677;
{ /* ./Llib/hash.scm 626 */
obj_t BgL_auxz00_7211;
if(
INTEGERP(BgL_siza7eza7_857))
{ /* ./Llib/hash.scm 626 */
BgL_auxz00_7211 = BgL_siza7eza7_857
; }  else 
{ /* ./Llib/hash.scm 626 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_siza7eza7_857, BGl_string7574z00zz__hashz00, 
BINT(((long)24404))); 
exit( -1 );} 
BgL_n2z00_2677 = 
(long)CINT(BgL_auxz00_7211); } 
BgL_test1992z00_863 = 
(BgL_iz00_861==BgL_n2z00_2677); } 
if(BgL_test1992z00_863)
{ /* ./Llib/hash.scm 626 */
BgL_aux2917z00_2821 = BGl_symbol7683z00zz__hashz00; }  else 
{ /* ./Llib/hash.scm 628 */
obj_t BgL_bucketz00_864;
{ /* ./Llib/hash.scm 628 */
obj_t BgL_vectorz00_2678;int BgL_kz00_2679;
if(
VECTORP(BgL_oldzd2tablezd2_860))
{ /* ./Llib/hash.scm 628 */
BgL_vectorz00_2678 = BgL_oldzd2tablezd2_860; }  else 
{ /* ./Llib/hash.scm 628 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7590z00zz__hashz00, BgL_oldzd2tablezd2_860, BGl_string7574z00zz__hashz00, 
BINT(((long)24439))); 
exit( -1 );} 
BgL_kz00_2679 = 
(int)(BgL_iz00_861); 
{ /* ./Llib/hash.scm 628 */
bool_t BgL_test2434z00_2680;
{ /* ./Llib/hash.scm 628 */
int BgL_arg2439z00_2681;
BgL_arg2439z00_2681 = 
VECTOR_LENGTH(BgL_vectorz00_2678); 
BgL_test2434z00_2680 = 
BOUND_CHECK(BgL_kz00_2679, BgL_arg2439z00_2681); } 
if(BgL_test2434z00_2680)
{ /* ./Llib/hash.scm 628 */
BgL_bucketz00_864 = 
VECTOR_REF(BgL_vectorz00_2678,BgL_kz00_2679); }  else 
{ /* ./Llib/hash.scm 628 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7593z00zz__hashz00, BGl_string7592z00zz__hashz00, 
BINT(BgL_kz00_2679), "./Ieee/vector.scm", ((long)5865)); 
BgL_bucketz00_864 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7574z00zz__hashz00, 
BINT(((long)24439))); } } } 
{ 
obj_t BgL_l1015z00_865;
BgL_l1015z00_865 = BgL_bucketz00_864; 
BgL_forzd2each1016zd2_866:
{ /* ./Llib/hash.scm 629 */
bool_t BgL_test1994z00_867;
BgL_test1994z00_867 = 
PAIRP(BgL_l1015z00_865); 
if(BgL_test1994z00_867)
{ /* ./Llib/hash.scm 629 */
{ /* ./Llib/hash.scm 630 */
obj_t BgL_objz00_868;
{ /* ./Llib/hash.scm 630 */
obj_t BgL_pairz00_2687;
if(BgL_test1994z00_867)
{ /* ./Llib/hash.scm 630 */
BgL_pairz00_2687 = BgL_l1015z00_865; }  else 
{ /* ./Llib/hash.scm 630 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_l1015z00_865, BGl_string7574z00zz__hashz00, 
BINT(((long)24500))); 
exit( -1 );} 
BgL_objz00_868 = 
CAR(BgL_pairz00_2687); } 
BGl_putzd2hashz12zc0zz__hashz00(BgL_objz00_868, BgL_tablez00_88); } 
{ /* ./Llib/hash.scm 629 */
obj_t BgL_arg1998z00_869;
{ /* ./Llib/hash.scm 629 */
obj_t BgL_pairz00_2688;
if(
PAIRP(BgL_l1015z00_865))
{ /* ./Llib/hash.scm 629 */
BgL_pairz00_2688 = BgL_l1015z00_865; }  else 
{ /* ./Llib/hash.scm 629 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7682z00zz__hashz00, BGl_string7573z00zz__hashz00, BgL_l1015z00_865, BGl_string7574z00zz__hashz00, 
BINT(((long)24468))); 
exit( -1 );} 
BgL_arg1998z00_869 = 
CDR(BgL_pairz00_2688); } 
{ 
obj_t BgL_l1015z00_7248;
BgL_l1015z00_7248 = BgL_arg1998z00_869; 
BgL_l1015z00_865 = BgL_l1015z00_7248; 
goto BgL_forzd2each1016zd2_866;} } }  else 
{ /* ./Llib/hash.scm 629 */
if(
NULLP(BgL_l1015z00_865))
{ /* ./Llib/hash.scm 629 */BTRUE; }  else 
{ /* ./Llib/hash.scm 629 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7608z00zz__hashz00, BGl_string7609z00zz__hashz00, BgL_l1015z00_865, BGl_string7574z00zz__hashz00, 
BINT(((long)24468))); } } } } 
{ 
long BgL_iz00_7253;
BgL_iz00_7253 = 
(BgL_iz00_861+((long)1)); 
BgL_iz00_861 = BgL_iz00_7253; 
goto BgL_loopz00_862;} } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2917z00_2821;} } } } 
}



/* string->0..255 */
BGL_EXPORTED_DEF long BGl_stringzd2ze30ze2ze2255z31zz__hashz00(char * BgL_stringz00_89)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 637 */
{ /* ./Llib/hash.scm 638 */
obj_t BgL_symbol2922z00_3698;
BgL_symbol2922z00_3698 = BGl_symbol7684z00zz__hashz00; 
{ /* ./Llib/hash.scm 638 */

PUSH_TRACE(BgL_symbol2922z00_3698); BUNSPEC; 
{ /* ./Llib/hash.scm 638 */
long BgL_aux2921z00_3699;
BgL_aux2921z00_3699 = 
get_hash_number(BgL_stringz00_89); 
POP_TRACE(); 
return BgL_aux2921z00_3699;} } } } 
}



/* _string->0..255 */
obj_t BGl__stringzd2ze30ze2ze2255z31zz__hashz00(obj_t BgL_envz00_2897, obj_t BgL_stringz00_2898)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 637 */
{ /* ./Llib/hash.scm 638 */
long BgL_auxz00_7259;
{ /* ./Llib/hash.scm 638 */
long BgL_res7704z00_3703;
{ /* ./Llib/hash.scm 638 */
char * BgL_stringz00_3700;
{ /* ./Llib/hash.scm 638 */
obj_t BgL_auxz00_7260;
if(
STRINGP(BgL_stringz00_2898))
{ /* ./Llib/hash.scm 638 */
BgL_auxz00_7260 = BgL_stringz00_2898
; }  else 
{ /* ./Llib/hash.scm 638 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7685z00zz__hashz00, BGl_string7627z00zz__hashz00, BgL_stringz00_2898, BGl_string7574z00zz__hashz00, 
BINT(((long)24825))); 
exit( -1 );} 
BgL_stringz00_3700 = 
BSTRING_TO_STRING(BgL_auxz00_7260); } 
{ /* ./Llib/hash.scm 638 */
obj_t BgL_symbol2922z00_3701;
BgL_symbol2922z00_3701 = BGl_symbol7684z00zz__hashz00; 
{ /* ./Llib/hash.scm 638 */

PUSH_TRACE(BgL_symbol2922z00_3701); BUNSPEC; 
{ /* ./Llib/hash.scm 638 */
long BgL_aux2921z00_3702;
BgL_aux2921z00_3702 = 
get_hash_number(BgL_stringz00_3700); 
POP_TRACE(); 
BgL_res7704z00_3703 = BgL_aux2921z00_3702; } } } } 
BgL_auxz00_7259 = BgL_res7704z00_3703; } 
return 
BINT(BgL_auxz00_7259);} } 
}



/* string->0..2^x-1 */
BGL_EXPORTED_DEF long BGl_stringzd2ze30ze2ze22ze5xzd21z06zz__hashz00(char * BgL_stringz00_90, long BgL_powerz00_91)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 643 */
{ /* ./Llib/hash.scm 644 */
obj_t BgL_symbol2926z00_3704;
BgL_symbol2926z00_3704 = BGl_symbol7686z00zz__hashz00; 
{ /* ./Llib/hash.scm 644 */

PUSH_TRACE(BgL_symbol2926z00_3704); BUNSPEC; 
{ /* ./Llib/hash.scm 644 */
long BgL_aux2925z00_3705;
BgL_aux2925z00_3705 = 
get_hash_power_number(BgL_stringz00_90, BgL_powerz00_91); 
POP_TRACE(); 
return BgL_aux2925z00_3705;} } } } 
}



/* _string->0..2^x-1 */
obj_t BGl__stringzd2ze30ze2ze22ze5xzd21z06zz__hashz00(obj_t BgL_envz00_2899, obj_t BgL_stringz00_2900, obj_t BgL_powerz00_2901)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 643 */
{ /* ./Llib/hash.scm 644 */
long BgL_auxz00_7274;
{ /* ./Llib/hash.scm 644 */
long BgL_res7705z00_3710;
{ /* ./Llib/hash.scm 644 */
char * BgL_stringz00_3706;long BgL_powerz00_3707;
{ /* ./Llib/hash.scm 644 */
obj_t BgL_auxz00_7275;
if(
STRINGP(BgL_stringz00_2900))
{ /* ./Llib/hash.scm 644 */
BgL_auxz00_7275 = BgL_stringz00_2900
; }  else 
{ /* ./Llib/hash.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7687z00zz__hashz00, BGl_string7627z00zz__hashz00, BgL_stringz00_2900, BGl_string7574z00zz__hashz00, 
BINT(((long)25124))); 
exit( -1 );} 
BgL_stringz00_3706 = 
BSTRING_TO_STRING(BgL_auxz00_7275); } 
{ /* ./Llib/hash.scm 644 */
obj_t BgL_auxz00_7282;
if(
INTEGERP(BgL_powerz00_2901))
{ /* ./Llib/hash.scm 644 */
BgL_auxz00_7282 = BgL_powerz00_2901
; }  else 
{ /* ./Llib/hash.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7687z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_powerz00_2901, BGl_string7574z00zz__hashz00, 
BINT(((long)25124))); 
exit( -1 );} 
BgL_powerz00_3707 = 
(long)CINT(BgL_auxz00_7282); } 
{ /* ./Llib/hash.scm 644 */
obj_t BgL_symbol2926z00_3708;
BgL_symbol2926z00_3708 = BGl_symbol7686z00zz__hashz00; 
{ /* ./Llib/hash.scm 644 */

PUSH_TRACE(BgL_symbol2926z00_3708); BUNSPEC; 
{ /* ./Llib/hash.scm 644 */
long BgL_aux2925z00_3709;
BgL_aux2925z00_3709 = 
get_hash_power_number(BgL_stringz00_3706, BgL_powerz00_3707); 
POP_TRACE(); 
BgL_res7705z00_3710 = BgL_aux2925z00_3709; } } } } 
BgL_auxz00_7274 = BgL_res7705z00_3710; } 
return 
BINT(BgL_auxz00_7274);} } 
}



/* int->0..255 */
BGL_EXPORTED_DEF long BGl_intzd2ze30ze2ze2255z31zz__hashz00(long BgL_intz00_92)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 649 */
{ /* ./Llib/hash.scm 650 */
obj_t BgL_symbol2930z00_3711;
BgL_symbol2930z00_3711 = BGl_symbol7688z00zz__hashz00; 
{ /* ./Llib/hash.scm 650 */

PUSH_TRACE(BgL_symbol2930z00_3711); BUNSPEC; 
{ /* ./Llib/hash.scm 650 */
long BgL_aux2929z00_3712;
BgL_aux2929z00_3712 = 
get_hash_number_from_int(BgL_intz00_92); 
POP_TRACE(); 
return BgL_aux2929z00_3712;} } } } 
}



/* _int->0..255 */
obj_t BGl__intzd2ze30ze2ze2255z31zz__hashz00(obj_t BgL_envz00_2902, obj_t BgL_intz00_2903)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 649 */
{ /* ./Llib/hash.scm 650 */
long BgL_auxz00_7296;
{ /* ./Llib/hash.scm 650 */
long BgL_res7706z00_3716;
{ /* ./Llib/hash.scm 650 */
long BgL_intz00_3713;
{ /* ./Llib/hash.scm 650 */
obj_t BgL_auxz00_7297;
if(
INTEGERP(BgL_intz00_2903))
{ /* ./Llib/hash.scm 650 */
BgL_auxz00_7297 = BgL_intz00_2903
; }  else 
{ /* ./Llib/hash.scm 650 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7689z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_intz00_2903, BGl_string7574z00zz__hashz00, 
BINT(((long)25421))); 
exit( -1 );} 
BgL_intz00_3713 = 
(long)CINT(BgL_auxz00_7297); } 
{ /* ./Llib/hash.scm 650 */
obj_t BgL_symbol2930z00_3714;
BgL_symbol2930z00_3714 = BGl_symbol7688z00zz__hashz00; 
{ /* ./Llib/hash.scm 650 */

PUSH_TRACE(BgL_symbol2930z00_3714); BUNSPEC; 
{ /* ./Llib/hash.scm 650 */
long BgL_aux2929z00_3715;
BgL_aux2929z00_3715 = 
get_hash_number_from_int(BgL_intz00_3713); 
POP_TRACE(); 
BgL_res7706z00_3716 = BgL_aux2929z00_3715; } } } } 
BgL_auxz00_7296 = BgL_res7706z00_3716; } 
return 
BINT(BgL_auxz00_7296);} } 
}



/* int->0..2^x-1 */
BGL_EXPORTED_DEF long BGl_intzd2ze30ze2ze22ze5xzd21z06zz__hashz00(long BgL_intz00_93, long BgL_powerz00_94)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 655 */
{ /* ./Llib/hash.scm 656 */
obj_t BgL_symbol2934z00_3717;
BgL_symbol2934z00_3717 = BGl_symbol7690z00zz__hashz00; 
{ /* ./Llib/hash.scm 656 */

PUSH_TRACE(BgL_symbol2934z00_3717); BUNSPEC; 
{ /* ./Llib/hash.scm 656 */
long BgL_aux2933z00_3718;
BgL_aux2933z00_3718 = 
get_hash_power_number_from_int(BgL_intz00_93, BgL_powerz00_94); 
POP_TRACE(); 
return BgL_aux2933z00_3718;} } } } 
}



/* _int->0..2^x-1 */
obj_t BGl__intzd2ze30ze2ze22ze5xzd21z06zz__hashz00(obj_t BgL_envz00_2904, obj_t BgL_intz00_2905, obj_t BgL_powerz00_2906)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 655 */
{ /* ./Llib/hash.scm 656 */
long BgL_auxz00_7311;
{ /* ./Llib/hash.scm 656 */
long BgL_res7707z00_3723;
{ /* ./Llib/hash.scm 656 */
long BgL_intz00_3719;long BgL_powerz00_3720;
{ /* ./Llib/hash.scm 656 */
obj_t BgL_auxz00_7312;
if(
INTEGERP(BgL_intz00_2905))
{ /* ./Llib/hash.scm 656 */
BgL_auxz00_7312 = BgL_intz00_2905
; }  else 
{ /* ./Llib/hash.scm 656 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7691z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_intz00_2905, BGl_string7574z00zz__hashz00, 
BINT(((long)25720))); 
exit( -1 );} 
BgL_intz00_3719 = 
(long)CINT(BgL_auxz00_7312); } 
{ /* ./Llib/hash.scm 656 */
obj_t BgL_auxz00_7319;
if(
INTEGERP(BgL_powerz00_2906))
{ /* ./Llib/hash.scm 656 */
BgL_auxz00_7319 = BgL_powerz00_2906
; }  else 
{ /* ./Llib/hash.scm 656 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7691z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_powerz00_2906, BGl_string7574z00zz__hashz00, 
BINT(((long)25720))); 
exit( -1 );} 
BgL_powerz00_3720 = 
(long)CINT(BgL_auxz00_7319); } 
{ /* ./Llib/hash.scm 656 */
obj_t BgL_symbol2934z00_3721;
BgL_symbol2934z00_3721 = BGl_symbol7690z00zz__hashz00; 
{ /* ./Llib/hash.scm 656 */

PUSH_TRACE(BgL_symbol2934z00_3721); BUNSPEC; 
{ /* ./Llib/hash.scm 656 */
long BgL_aux2933z00_3722;
BgL_aux2933z00_3722 = 
get_hash_power_number_from_int(BgL_intz00_3719, BgL_powerz00_3720); 
POP_TRACE(); 
BgL_res7707z00_3723 = BgL_aux2933z00_3722; } } } } 
BgL_auxz00_7311 = BgL_res7707z00_3723; } 
return 
BINT(BgL_auxz00_7311);} } 
}



/* obj->0..255 */
BGL_EXPORTED_DEF long BGl_objzd2ze30ze2ze2255z31zz__hashz00(obj_t BgL_objz00_95)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 661 */
{ /* ./Llib/hash.scm 663 */
obj_t BgL_symbol2938z00_2830;
BgL_symbol2938z00_2830 = BGl_symbol7692z00zz__hashz00; 
{ /* ./Llib/hash.scm 663 */

PUSH_TRACE(BgL_symbol2938z00_2830); BUNSPEC; 
{ /* ./Llib/hash.scm 663 */
long BgL_aux2937z00_2831;
{ /* ./Llib/hash.scm 663 */
bool_t BgL_test2021z00_872;
BgL_test2021z00_872 = 
STRINGP(BgL_objz00_95); 
if(BgL_test2021z00_872)
{ /* ./Llib/hash.scm 663 */
{ /* ./Llib/hash.scm 664 */
char * BgL_stringz00_2696;
{ /* ./Llib/hash.scm 664 */
obj_t BgL_auxz00_7333;
if(BgL_test2021z00_872)
{ /* ./Llib/hash.scm 664 */
BgL_auxz00_7333 = BgL_objz00_95
; }  else 
{ /* ./Llib/hash.scm 664 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7692z00zz__hashz00, BGl_string7627z00zz__hashz00, BgL_objz00_95, BGl_string7574z00zz__hashz00, 
BINT(((long)26068))); 
exit( -1 );} 
BgL_stringz00_2696 = 
BSTRING_TO_STRING(BgL_auxz00_7333); } 
BgL_aux2937z00_2831 = 
get_hash_number(BgL_stringz00_2696); } }  else 
{ /* ./Llib/hash.scm 665 */
bool_t BgL_test2024z00_873;
BgL_test2024z00_873 = 
SYMBOLP(BgL_objz00_95); 
if(BgL_test2024z00_873)
{ /* ./Llib/hash.scm 665 */
{ /* ./Llib/hash.scm 666 */
obj_t BgL_arg2026z00_874;
{ /* ./Llib/hash.scm 666 */
obj_t BgL_symbolz00_2698;
if(BgL_test2024z00_873)
{ /* ./Llib/hash.scm 666 */
BgL_symbolz00_2698 = BgL_objz00_95; }  else 
{ /* ./Llib/hash.scm 666 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7692z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_objz00_95, BGl_string7574z00zz__hashz00, 
BINT(((long)26134))); 
exit( -1 );} 
BgL_arg2026z00_874 = 
SYMBOL_TO_STRING(BgL_symbolz00_2698); } 
{ /* ./Llib/hash.scm 666 */
char * BgL_auxz00_7347;
BgL_auxz00_7347 = 
BSTRING_TO_STRING(BgL_arg2026z00_874); 
BgL_aux2937z00_2831 = 
get_hash_number(BgL_auxz00_7347); } } }  else 
{ /* ./Llib/hash.scm 667 */
bool_t BgL_test2029z00_875;
BgL_test2029z00_875 = 
INTEGERP(BgL_objz00_95); 
if(BgL_test2029z00_875)
{ /* ./Llib/hash.scm 667 */
{ /* ./Llib/hash.scm 668 */
long BgL_intz00_2701;
{ /* ./Llib/hash.scm 668 */
obj_t BgL_auxz00_7352;
if(BgL_test2029z00_875)
{ /* ./Llib/hash.scm 668 */
BgL_auxz00_7352 = BgL_objz00_95
; }  else 
{ /* ./Llib/hash.scm 668 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7692z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_objz00_95, BGl_string7574z00zz__hashz00, 
BINT(((long)26182))); 
exit( -1 );} 
BgL_intz00_2701 = 
(long)CINT(BgL_auxz00_7352); } 
BgL_aux2937z00_2831 = 
get_hash_number_from_int(BgL_intz00_2701); } }  else 
{ /* ./Llib/hash.scm 669 */
bool_t BgL_test2031z00_876;
BgL_test2031z00_876 = 
CHARP(BgL_objz00_95); 
if(BgL_test2031z00_876)
{ /* ./Llib/hash.scm 669 */
{ /* ./Llib/hash.scm 670 */
unsigned char BgL_charz00_2703;
{ /* ./Llib/hash.scm 670 */
obj_t BgL_auxz00_7361;
if(BgL_test2031z00_876)
{ /* ./Llib/hash.scm 670 */
BgL_auxz00_7361 = BgL_objz00_95
; }  else 
{ /* ./Llib/hash.scm 670 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7692z00zz__hashz00, BGl_string7693z00zz__hashz00, BgL_objz00_95, BGl_string7574z00zz__hashz00, 
BINT(((long)26229))); 
exit( -1 );} 
BgL_charz00_2703 = 
(unsigned char)CCHAR(BgL_auxz00_7361); } 
BgL_aux2937z00_2831 = 
(BgL_charz00_2703); } }  else 
{ /* ./Llib/hash.scm 671 */
bool_t BgL_test2033z00_877;
BgL_test2033z00_877 = 
FOREIGNP(BgL_objz00_95); 
if(BgL_test2033z00_877)
{ /* ./Llib/hash.scm 671 */
{ /* ./Llib/hash.scm 672 */
int BgL_arg2035z00_878;
{ /* ./Llib/hash.scm 672 */
obj_t BgL_auxz00_7370;
if(BgL_test2033z00_877)
{ /* ./Llib/hash.scm 672 */
BgL_auxz00_7370 = BgL_objz00_95
; }  else 
{ /* ./Llib/hash.scm 672 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7692z00zz__hashz00, BGl_string7629z00zz__hashz00, BgL_objz00_95, BGl_string7574z00zz__hashz00, 
BINT(((long)26298))); 
exit( -1 );} 
BgL_arg2035z00_878 = 
bgl_foreign_hash_number(BgL_auxz00_7370); } 
{ /* ./Llib/hash.scm 672 */
long BgL_auxz00_7376;
BgL_auxz00_7376 = 
(long)(BgL_arg2035z00_878); 
BgL_aux2937z00_2831 = 
get_hash_number_from_int(BgL_auxz00_7376); } } }  else 
{ /* ./Llib/hash.scm 671 */
BgL_aux2937z00_2831 = 
get_hash_number_from_pointer(BgL_objz00_95); } } } } } } 
POP_TRACE(); 
return BgL_aux2937z00_2831;} } } } 
}



/* _obj->0..255 */
obj_t BGl__objzd2ze30ze2ze2255z31zz__hashz00(obj_t BgL_envz00_2907, obj_t BgL_objz00_2908)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 661 */
{ /* ./Llib/hash.scm 663 */
long BgL_auxz00_7381;
BgL_auxz00_7381 = 
BGl_objzd2ze30ze2ze2255z31zz__hashz00(BgL_objz00_2908); 
return 
BINT(BgL_auxz00_7381);} } 
}



/* obj->0..2^x-1 */
BGL_EXPORTED_DEF long BGl_objzd2ze30ze2ze22ze5xzd21z06zz__hashz00(obj_t BgL_objz00_96, long BgL_powerz00_97)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 679 */
{ /* ./Llib/hash.scm 681 */
obj_t BgL_symbol2942z00_2832;
BgL_symbol2942z00_2832 = BGl_symbol7694z00zz__hashz00; 
{ /* ./Llib/hash.scm 681 */

PUSH_TRACE(BgL_symbol2942z00_2832); BUNSPEC; 
{ /* ./Llib/hash.scm 681 */
long BgL_aux2941z00_2833;
{ /* ./Llib/hash.scm 681 */
bool_t BgL_test2044z00_879;
BgL_test2044z00_879 = 
STRINGP(BgL_objz00_96); 
if(BgL_test2044z00_879)
{ /* ./Llib/hash.scm 681 */
{ /* ./Llib/hash.scm 682 */
char * BgL_stringz00_2707;
{ /* ./Llib/hash.scm 682 */
obj_t BgL_auxz00_7387;
if(BgL_test2044z00_879)
{ /* ./Llib/hash.scm 682 */
BgL_auxz00_7387 = BgL_objz00_96
; }  else 
{ /* ./Llib/hash.scm 682 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7694z00zz__hashz00, BGl_string7627z00zz__hashz00, BgL_objz00_96, BGl_string7574z00zz__hashz00, 
BINT(((long)26674))); 
exit( -1 );} 
BgL_stringz00_2707 = 
BSTRING_TO_STRING(BgL_auxz00_7387); } 
BgL_aux2941z00_2833 = 
get_hash_power_number(BgL_stringz00_2707, BgL_powerz00_97); } }  else 
{ /* ./Llib/hash.scm 683 */
bool_t BgL_test2046z00_880;
BgL_test2046z00_880 = 
SYMBOLP(BgL_objz00_96); 
if(BgL_test2046z00_880)
{ /* ./Llib/hash.scm 683 */
{ /* ./Llib/hash.scm 684 */
obj_t BgL_arg2048z00_881;
{ /* ./Llib/hash.scm 684 */
obj_t BgL_symbolz00_2710;
if(BgL_test2046z00_880)
{ /* ./Llib/hash.scm 684 */
BgL_symbolz00_2710 = BgL_objz00_96; }  else 
{ /* ./Llib/hash.scm 684 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7694z00zz__hashz00, BGl_string7581z00zz__hashz00, BgL_objz00_96, BGl_string7574z00zz__hashz00, 
BINT(((long)26748))); 
exit( -1 );} 
BgL_arg2048z00_881 = 
SYMBOL_TO_STRING(BgL_symbolz00_2710); } 
{ /* ./Llib/hash.scm 684 */
char * BgL_auxz00_7401;
BgL_auxz00_7401 = 
BSTRING_TO_STRING(BgL_arg2048z00_881); 
BgL_aux2941z00_2833 = 
get_hash_power_number(BgL_auxz00_7401, BgL_powerz00_97); } } }  else 
{ /* ./Llib/hash.scm 685 */
bool_t BgL_test2051z00_882;
BgL_test2051z00_882 = 
INTEGERP(BgL_objz00_96); 
if(BgL_test2051z00_882)
{ /* ./Llib/hash.scm 685 */
{ /* ./Llib/hash.scm 686 */
long BgL_intz00_2714;
{ /* ./Llib/hash.scm 686 */
obj_t BgL_auxz00_7406;
if(BgL_test2051z00_882)
{ /* ./Llib/hash.scm 686 */
BgL_auxz00_7406 = BgL_objz00_96
; }  else 
{ /* ./Llib/hash.scm 686 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7694z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_objz00_96, BGl_string7574z00zz__hashz00, 
BINT(((long)26804))); 
exit( -1 );} 
BgL_intz00_2714 = 
(long)CINT(BgL_auxz00_7406); } 
BgL_aux2941z00_2833 = 
get_hash_power_number_from_int(BgL_intz00_2714, BgL_powerz00_97); } }  else 
{ /* ./Llib/hash.scm 687 */
bool_t BgL_test2053z00_883;
BgL_test2053z00_883 = 
CHARP(BgL_objz00_96); 
if(BgL_test2053z00_883)
{ /* ./Llib/hash.scm 687 */
{ /* ./Llib/hash.scm 688 */
unsigned char BgL_charz00_2717;
{ /* ./Llib/hash.scm 688 */
obj_t BgL_auxz00_7415;
if(BgL_test2053z00_883)
{ /* ./Llib/hash.scm 688 */
BgL_auxz00_7415 = BgL_objz00_96
; }  else 
{ /* ./Llib/hash.scm 688 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7694z00zz__hashz00, BGl_string7693z00zz__hashz00, BgL_objz00_96, BGl_string7574z00zz__hashz00, 
BINT(((long)26857))); 
exit( -1 );} 
BgL_charz00_2717 = 
(unsigned char)CCHAR(BgL_auxz00_7415); } 
BgL_aux2941z00_2833 = 
(BgL_charz00_2717); } }  else 
{ /* ./Llib/hash.scm 689 */
bool_t BgL_test2055z00_884;
BgL_test2055z00_884 = 
FOREIGNP(BgL_objz00_96); 
if(BgL_test2055z00_884)
{ /* ./Llib/hash.scm 689 */
{ /* ./Llib/hash.scm 690 */
int BgL_arg2057z00_885;
{ /* ./Llib/hash.scm 690 */
obj_t BgL_auxz00_7424;
if(BgL_test2055z00_884)
{ /* ./Llib/hash.scm 690 */
BgL_auxz00_7424 = BgL_objz00_96
; }  else 
{ /* ./Llib/hash.scm 690 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7694z00zz__hashz00, BGl_string7629z00zz__hashz00, BgL_objz00_96, BGl_string7574z00zz__hashz00, 
BINT(((long)26928))); 
exit( -1 );} 
BgL_arg2057z00_885 = 
bgl_foreign_hash_number(BgL_auxz00_7424); } 
{ /* ./Llib/hash.scm 690 */
long BgL_auxz00_7430;
BgL_auxz00_7430 = 
(long)(BgL_arg2057z00_885); 
BgL_aux2941z00_2833 = 
get_hash_power_number_from_int(BgL_auxz00_7430, BgL_powerz00_97); } } }  else 
{ /* ./Llib/hash.scm 689 */
BgL_aux2941z00_2833 = 
get_hash_power_number_from_pointer(BgL_objz00_96, BgL_powerz00_97); } } } } } } 
POP_TRACE(); 
return BgL_aux2941z00_2833;} } } } 
}



/* _obj->0..2^x-1 */
obj_t BGl__objzd2ze30ze2ze22ze5xzd21z06zz__hashz00(obj_t BgL_envz00_2909, obj_t BgL_objz00_2910, obj_t BgL_powerz00_2911)
{ AN_OBJECT;
{ /* ./Llib/hash.scm 679 */
{ /* ./Llib/hash.scm 681 */
long BgL_auxz00_7435;
{ /* ./Llib/hash.scm 681 */
long BgL_auxz00_7436;
{ /* ./Llib/hash.scm 681 */
obj_t BgL_auxz00_7437;
if(
INTEGERP(BgL_powerz00_2911))
{ /* ./Llib/hash.scm 681 */
BgL_auxz00_7437 = BgL_powerz00_2911
; }  else 
{ /* ./Llib/hash.scm 681 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7695z00zz__hashz00, BGl_string7575z00zz__hashz00, BgL_powerz00_2911, BGl_string7574z00zz__hashz00, 
BINT(((long)26633))); 
exit( -1 );} 
BgL_auxz00_7436 = 
(long)CINT(BgL_auxz00_7437); } 
BgL_auxz00_7435 = 
BGl_objzd2ze30ze2ze22ze5xzd21z06zz__hashz00(BgL_objz00_2910, BgL_auxz00_7436); } 
return 
BINT(BgL_auxz00_7435);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zz__hashz00()
{ AN_OBJECT;
{ /* ./Llib/hash.scm 23 */
{ /* ./Llib/hash.scm 23 */
obj_t BgL_symbol2946z00_2834;
BgL_symbol2946z00_2834 = BGl_symbol7696z00zz__hashz00; 
{ /* ./Llib/hash.scm 23 */

PUSH_TRACE(BgL_symbol2946z00_2834); BUNSPEC; 
POP_TRACE(); 
return BUNSPEC;} } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__hashz00()
{ AN_OBJECT;
{ /* ./Llib/hash.scm 23 */
{ /* ./Llib/hash.scm 23 */
obj_t BgL_symbol2950z00_2836;
BgL_symbol2950z00_2836 = BGl_symbol7697z00zz__hashz00; 
{ /* ./Llib/hash.scm 23 */

PUSH_TRACE(BgL_symbol2950z00_2836); BUNSPEC; 
{ /* ./Llib/hash.scm 23 */
obj_t BgL_aux2949z00_2837;
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__hash"); 
BgL_aux2949z00_2837 = 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)247), "__hash"); 
POP_TRACE(); 
return BgL_aux2949z00_2837;} } } } 
}

