/*===========================================================================*/
/*   (Llib/object.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/object.scm -indent -o objs/obj_s/Llib/object.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

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


/* Object type definitions */

BGL_EXPORTED_DECL BgL_objectz00_bglt BGl_structzd2ze3objectz31zz__objectz00(obj_t);
BGL_EXPORTED_DECL BgL_objectz00_bglt BGl_allocatezd2instancezd2zz__objectz00(obj_t);
static obj_t BGl_symbol7879z00zz__objectz00 = BUNSPEC;
static obj_t BGl_loopz00zz__objectz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
static obj_t BGl_symbol7877z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7875z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzf3zf3zz__objectz00(obj_t, obj_t);
static obj_t BGl__genericzd2prezd2methodzd2setz12zc0zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7873z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2printzd2zz__objectz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_findzd2methodzd2fromz00zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t BGl__classzd2superzd2zz__objectz00(obj_t, obj_t);
static obj_t BGl__classzd2fieldszd2zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol7870z00zz__objectz00 = BUNSPEC;
static BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectzd2default1034z51zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_symbol7867z00zz__objectz00 = BUNSPEC;
static obj_t BGl_extendzd2vectorzd2zz__objectz00(obj_t, obj_t, int);
static obj_t BGl_symbol7864z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7862z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7861z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7860z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7859z00zz__objectz00 = BUNSPEC;
static obj_t BGl__addzd2genericz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol7858z00zz__objectz00 = BUNSPEC;
static obj_t BGl_methodzd2initzd2zz__objectz00();
static obj_t BGl_symbol7857z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7856z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2hashzd2zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_classzd2allzd2fieldsz00zz__objectz00(obj_t);
static obj_t BGl_symbol7855z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_objectzd2writezd2zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_symbol7854z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7853z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7852z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7848z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2equalzf3zd2default1040zf3zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl__makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7847z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_objectzf3zf3zz__objectz00(obj_t);
static obj_t BGl_symbol7846z00zz__objectz00 = BUNSPEC;
static obj_t BGl_objectzd2printzd2default1038z00zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t BGl__iszd2azf3z21zz__objectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_callzd2nextzd2virtualzd2setterzd2zz__objectz00(obj_t, BgL_objectz00_bglt, int, obj_t);
static obj_t BGl_symbol7843z00zz__objectz00 = BUNSPEC;
extern long bgl_list_length(obj_t);
BGL_EXPORTED_DECL obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
static obj_t BGl_symbol7840z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7839z00zz__objectz00 = BUNSPEC;
static obj_t BGl__allocatezd2instancezd2zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol7835z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7834z00zz__objectz00 = BUNSPEC;
extern obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_symbol7833z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7832z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7831z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_classzf3zf3zz__objectz00(obj_t);
static obj_t BGl_symbol7830z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7829z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2displayzd2default1028z00zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_genericzd2nozd2defaultzd2behaviorzd2zz__objectz00(obj_t);
static obj_t BGl_symbol7828z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7827z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7826z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7825z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7824z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7863z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7823z00zz__objectz00 = BUNSPEC;
static obj_t BGl__findzd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_callzd2nextzd2virtualzd2getterzd2zz__objectz00(obj_t, BgL_objectz00_bglt, int);
static obj_t BGl_symbol7822z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7821z00zz__objectz00 = BUNSPEC;
static obj_t BGl__genericzd2defaultzd2zz__objectz00(obj_t, obj_t);
static obj_t BGl_list7866z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7820z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2allzd2fieldsz00zz__objectz00(obj_t, obj_t);
static obj_t BGl_methodzd2arrayzd2setz12z12zz__objectz00(obj_t, obj_t, long, obj_t);
static obj_t BGl_symbol7818z00zz__objectz00 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zz__objectz00();
static obj_t BGl_symbol7817z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7869z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7816z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7815z00zz__objectz00 = BUNSPEC;
static obj_t BGl__bigloozd2typeszd2numberz00zz__objectz00(obj_t);
BGL_EXPORTED_DECL long BGl_classzd2numzd2zz__objectz00(obj_t);
static obj_t BGl_list7872z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7814z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7813z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_objectzd2markzd2producerz12z12zz__objectz00(obj_t);
static obj_t BGl_symbol7811z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7876z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7810z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7809z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7799z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7808z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2fieldzd2virtualzf3zf3zz__objectz00(obj_t, obj_t);
static obj_t BGl_list7878z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7807z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7797z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL long bgl_types_number();
static obj_t BGl_list7880z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7806z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7805z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7795z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7882z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7803z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7793z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7884z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_classzd2hashzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_findzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_symbol7801z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7791z00zz__objectz00 = BUNSPEC;
extern obj_t string_to_symbol(char *);
static obj_t BGl_list7886z00zz__objectz00 = BUNSPEC;
extern obj_t BGl_findzd2runtimezd2typez00zz__errorz00(obj_t);
static obj_t BGl_symbol7788z00zz__objectz00 = BUNSPEC;
static bool_t BGl_objectzd2equalzf3zd2default1040zf3zz__objectz00(BgL_objectz00_bglt, BgL_objectz00_bglt);
static obj_t BGl_list7888z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7787z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7890z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7786z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7891z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7785z00zz__objectz00 = BUNSPEC;
extern obj_t display_char(obj_t, obj_t);
static obj_t BGl_list7892z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7784z00zz__objectz00 = BUNSPEC;
static obj_t BGl__structzb2objectzd2ze3objectz83zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_list7893z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7783z00zz__objectz00 = BUNSPEC;
static obj_t BGl_objectzd2ze3structzd2default1032ze3zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_makezd2classzd2virtualzd2slotszd2vectorz00zz__objectz00(obj_t, obj_t);
static obj_t BGl_list8004z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7895z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7781z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7779z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_objectz00_bglt BGl_makezd2objectzd2zz__objectz00();
static obj_t BGl_objectzd2ze3structzd2object1043ze3zz__objectz00(obj_t, obj_t);
static bool_t BGl_classzd2hierarchyzd2upzd2renumberz12zc0zz__objectz00(obj_t);
static obj_t BGl_za2nbzd2genericszd2maxza2z00zz__objectz00 = BUNSPEC;
extern obj_t bgl_reverse(obj_t);
static obj_t BGl_list7899z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_findzd2classzd2fieldz00zz__objectz00(obj_t, obj_t);
static obj_t BGl_list8011z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7911z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7775z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_classzd2fieldzf3z21zz__objectz00(obj_t);
static obj_t BGl_symbol7774z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL long BGl_objectzd2classzd2numz00zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_symbol7773z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7772z00zz__objectz00 = BUNSPEC;
static obj_t BGl_za2nbzd2genericsza2zd2zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7771z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2subclasseszd2zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_widezd2objectzf3z21zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_list8017z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7917z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7768z00zz__objectz00 = BUNSPEC;
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list8019z00zz__objectz00 = BUNSPEC;
static obj_t BGl_doublezd2nbzd2genericsz12z12zz__objectz00();
static bool_t BGl_classzd2hierarchyzd2numberingz12z12zz__objectz00(obj_t, obj_t);
static obj_t BGl_list8022z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7764z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2ze3structzd2default1032ze3zz__objectz00(obj_t, obj_t);
static obj_t BGl_list7923z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7763z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list8024z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list8025z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7760z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7759z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7758z00zz__objectz00 = BUNSPEC;
static obj_t BGl__makezd2objectzd2zz__objectz00(obj_t);
static obj_t BGl__methodzd2arrayzd2refz00zz__objectz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list7929z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_classzd2fieldzd2accessorz00zz__objectz00(obj_t);
extern obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl__objectzd2classzd2numzd2setz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_list8032z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2classzd2zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_genericszd2addzd2classz12z12zz__objectz00(long, long);
static obj_t BGl_list7934z00zz__objectz00 = BUNSPEC;
static obj_t BGl__fillzd2objectz12zc0zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_classzd2fieldzd2indexedzf3zf3zz__objectz00(obj_t);
BGL_EXPORTED_DECL BgL_objectz00_bglt BGl_allocatezd2objectzd2zz__objectz00();
extern obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl__classzd2fieldszf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl__addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_genericzd2defaultzd2zz__objectz00(obj_t);
static obj_t BGl_list8040z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list8039z00zz__objectz00 = BUNSPEC;
static obj_t BGl__findzd2methodzd2zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_list8041z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list8042z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_objectzd2displayzd2zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_list8043z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list8044z00zz__objectz00 = BUNSPEC;
extern obj_t make_vector(int, obj_t);
static obj_t BGl__classzd2fieldzd2infoz00zz__objectz00(obj_t, obj_t);
static obj_t BGl_list7949z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_list7952z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_classzd2subclasseszd2zz__objectz00(obj_t);
static obj_t BGl__objectzd2hashnumberzd2default1036z00zz__objectz00(obj_t, obj_t);
static obj_t BGl_list7954z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2virtualzd2zz__objectz00(obj_t, obj_t);
static obj_t BGl_list7955z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_list7957z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2constructorzd2zz__objectz00(obj_t, obj_t);
static obj_t BGl_objectzd2initzd2zz__objectz00();
static long BGl_classzd2hierarchyzd2downzd2renumberz12zc0zz__objectz00(obj_t, long);
static obj_t BGl_list7960z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7962z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2writezd2default1030z00zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl__classzd2creatorzd2zz__objectz00(obj_t, obj_t);
static int BGl_objectzd2hashnumberzd2default1036z00zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl__objectzd2classzd2numz00zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_methodzd2arrayzd2refz00zz__objectz00(obj_t, obj_t, int);
extern obj_t make_struct(obj_t, int, obj_t);
BGL_EXPORTED_DECL obj_t BGl_objectzd2printzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t BGl_list7968z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_classzd2fieldszd2zz__objectz00(obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_classzd2fieldzd2lenzd2accessorzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00(obj_t);
static obj_t BGl_list7973z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7975z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list7976z00zz__objectz00 = BUNSPEC;
static obj_t BGl__findzd2superzd2classzd2methodzd2zz__objectz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_genericzd2prezd2methodzd2setz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_list7977z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__objectz00 = BUNSPEC;
static obj_t BGl_list7979z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2equalzf3z21zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl__objectzd2writezd2zz__objectz00(obj_t, obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_list7983z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_genericzd2methodzd2arrayz00zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_classzd2fieldzd2infoz00zz__objectz00(obj_t);
static obj_t BGl_list7988z00zz__objectz00 = BUNSPEC;
static obj_t BGl__structzb2objectzd2ze3objectzd2default1034z51zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl__classzf3zf3zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol7998z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7997z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2displayzd2zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol7995z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7994z00zz__objectz00 = BUNSPEC;
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7991z00zz__objectz00 = BUNSPEC;
static obj_t BGl__registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__genericzd2methodzd2arrayz00zz__objectz00(obj_t, obj_t);
static obj_t BGl__classzd2fieldzd2accessorz00zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol7990z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7989z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_objectz00zz__objectz00 = BUNSPEC;
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_classzd2constructorzd2zz__objectz00(obj_t);
static obj_t BGl_symbol7986z00zz__objectz00 = BUNSPEC;
static bool_t BGl_doublezd2nbzd2classesz12z12zz__objectz00();
static obj_t BGl_za2genericsza2z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7985z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2fieldzd2indexedzf3zf3zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol7984z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2numzd2zz__objectz00(obj_t, obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
static obj_t BGl__objectzd2ze3structz31zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol7981z00zz__objectz00 = BUNSPEC;
static obj_t BGl__callzd2virtualzd2getterz00zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol7980z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7978z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7974z00zz__objectz00 = BUNSPEC;
static obj_t BGl__bigloozd2genericzd2bucketzd2siza7ez75zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_callzd2virtualzd2getterz00zz__objectz00(BgL_objectz00_bglt, int);
static obj_t BGl_symbol7972z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7971z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7970z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7969z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7965z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7964z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2printzd2default1038z00zz__objectz00(obj_t, obj_t, obj_t, obj_t);
extern int bgl_obj_hash_number(obj_t);
static obj_t BGl_symbol7963z00zz__objectz00 = BUNSPEC;
static obj_t BGl__callzd2nextzd2virtualzd2setterzd2zz__objectz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__classzd2fieldzd2mutatorz00zz__objectz00(obj_t, obj_t);
static obj_t BGl_za2nbzd2classesza2zd2zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7961z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7959z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_classzd2superzd2zz__objectz00(obj_t);
static obj_t BGl_symbol7958z00zz__objectz00 = BUNSPEC;
static obj_t BGl__callzd2virtualzd2setterz00zz__objectz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_initializa7ezd2objectsz12z67zz__objectz00();
static obj_t BGl_symbol7956z00zz__objectz00 = BUNSPEC;
static obj_t BGl__allocatezd2objectzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_classzd2fieldzd2mutatorz00zz__objectz00(obj_t);
static obj_t BGl_symbol7953z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2hashnumberzd2zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol7951z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_callzd2virtualzd2setterz00zz__objectz00(BgL_objectz00_bglt, int, obj_t);
static obj_t BGl_symbol7950z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2fieldzd2mutablezf3zf3zz__objectz00(obj_t, obj_t);
static obj_t BGl__classzd2fieldzd2namez00zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol7947z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_objectzd2classzd2numzd2setz12zc0zz__objectz00(BgL_objectz00_bglt, long);
static obj_t BGl_symbol7946z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8045z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7945z00zz__objectz00 = BUNSPEC;
static obj_t BGl__structzd2ze3objectz31zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol7942z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7941z00zz__objectz00 = BUNSPEC;
static obj_t BGl__callzd2nextzd2virtualzd2getterzd2zz__objectz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7940z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7939z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7938z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2fieldzf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol8037z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7937z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8036z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7936z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8035z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7935z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8034z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8033z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7932z00zz__objectz00 = BUNSPEC;
static obj_t BGl__widezd2objectzf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol7931z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DEF obj_t BGl_za2classesza2z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8030z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8029z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7930z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7927z00zz__objectz00 = BUNSPEC;
static obj_t BGl_objectzd2displayzd2default1028z00zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_symbol8026z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7926z00zz__objectz00 = BUNSPEC;
static obj_t BGl__makezd2classzd2zz__objectz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7925z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7924z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8023z00zz__objectz00 = BUNSPEC;
extern obj_t BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(obj_t, int);
static obj_t BGl_symbol8021z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7921z00zz__objectz00 = BUNSPEC;
static obj_t BGl_objectzd2writezd2default1030z00zz__objectz00(BgL_objectz00_bglt, obj_t);
BGL_EXPORTED_DECL bool_t BGl_classzd2fieldszf3z21zz__objectz00(obj_t);
static obj_t BGl_symbol8020z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7920z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7919z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8018z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7918z00zz__objectz00 = BUNSPEC;
static obj_t BGl_structzb2objectzd2ze3objectzd2object1045z51zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl__findzd2methodzd2fromz00zz__objectz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol7915z00zz__objectz00 = BUNSPEC;
static obj_t BGl_toplevelzd2initzd2zz__objectz00();
BGL_EXPORTED_DECL obj_t BGl_objectzd2classzd2zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_symbol8014z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7914z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8013z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7913z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2fieldzd2lenzd2accessorzd2zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_objectz00_bglt BGl_fillzd2objectz12zc0zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_symbol8012z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7912z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_classzd2fieldzd2namez00zz__objectz00(obj_t);
static obj_t BGl_makezd2classzd2zz__objectz00(obj_t, long, long, obj_t, obj_t, obj_t, obj_t, long, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol8009z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8008z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8007z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7907z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7897z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL int BGl_objectzd2hashnumberzd2zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_symbol8006z00zz__objectz00 = BUNSPEC;
extern obj_t display_string(obj_t, obj_t);
static obj_t BGl_symbol8005z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7905z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2namezd2zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_objectzd2equalzf3z21zz__objectz00(BgL_objectz00_bglt, BgL_objectz00_bglt);
static obj_t BGl_symbol7904z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7894z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_classzd2virtualzd2zz__objectz00(obj_t);
static obj_t BGl_symbol7903z00zz__objectz00 = BUNSPEC;
static obj_t BGl__genericzd2nozd2defaultzd2behaviorzd2zz__objectz00(obj_t, obj_t);
static obj_t BGl_symbol8002z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7902z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol8001z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7901z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7900z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol7889z00zz__objectz00 = BUNSPEC;
static obj_t BGl__objectzd2markzd2producerz12z12zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_bigloozd2genericzd2bucketzd2siza7ez75zz__objectz00();
static obj_t BGl_symbol7887z00zz__objectz00 = BUNSPEC;
static obj_t BGl_za2nbzd2classeszd2maxza2z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_classzd2creatorzd2zz__objectz00(obj_t);
static obj_t BGl_symbol7885z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t, obj_t, bool_t, obj_t);
static obj_t BGl_symbol7883z00zz__objectz00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_GENERIC( BGl_objectzd2hashnumberzd2envz00zz__objectz00, BgL_bgl__objectza7d2hashnumberza7d2za7za7__objectza7008099za7, BGl__objectzd2hashnumberzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2objectzd2envz00zz__objectz00, BgL_bgl__makeza7d2objectza7d2za7za7__objectza7008100za7, BGl__makezd2objectzd2zz__objectz00, 0L, 0 );
DEFINE_STRING( BGl_string7922z00zz__objectz00, BgL_bgl_string7922za700za7za7__objectza7008101z00, "call-virtual-setter:Wrong number of arguments", 45 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2infozd2envzd2zz__objectz00, BgL_bgl__classza7d2fieldza7d2infoza700za7za7__objectza7008102z00, BGl__classzd2fieldzd2infoz00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2genericzd2bucketzd2siza7ezd2envza7zz__objectz00, BgL_bgl__biglooza7d2genericza7d2bucketza7d2siza7a7eza775za7za7__objectza7008103z00, BGl__bigloozd2genericzd2bucketzd2siza7ez75zz__objectz00, 0L, 0 );
DEFINE_STRING( BGl_string8016z00zz__objectz00, BgL_bgl_string8016za700za7za7__objectza7008104z00, "object-print-default1038:Wrong number of arguments", 50 );
DEFINE_STRING( BGl_string7916z00zz__objectz00, BgL_bgl_string7916za700za7za7__objectza7008105z00, "call-virtual-getter:Wrong number of arguments", 45 );
DEFINE_STRING( BGl_string8015z00zz__objectz00, BgL_bgl_string8015za700za7za7__objectza7008106z00, " [", 2 );
extern obj_t BGl_displayzd2envzd2zz__r4_output_6_10_3z00;
DEFINE_STRING( BGl_string8010z00zz__objectz00, BgL_bgl_string8010za700za7za7__objectza7008107z00, "object-print:Wrong number of arguments", 38 );
DEFINE_STRING( BGl_string7910z00zz__objectz00, BgL_bgl_string7910za700za7za7__objectza7008108z00, "allocate-instance:Wrong number of arguments", 43 );
DEFINE_STRING( BGl_string7909z00zz__objectz00, BgL_bgl_string7909za700za7za7__objectza7008109z00, "Can't find class", 16 );
DEFINE_STRING( BGl_string7908z00zz__objectz00, BgL_bgl_string7908za700za7za7__objectza7008110z00, "allocate-instance", 17 );
DEFINE_STRING( BGl_string7898z00zz__objectz00, BgL_bgl_string7898za700za7za7__objectza7008111z00, "struct->object:Wrong number of arguments", 40 );
DEFINE_STRING( BGl_string7906z00zz__objectz00, BgL_bgl_string7906za700za7za7__objectza7008112z00, "struct", 6 );
DEFINE_STRING( BGl_string7896z00zz__objectz00, BgL_bgl_string7896za700za7za7__objectza7008113z00, "DOWN RENUMBERING...: ", 21 );
DEFINE_STRING( BGl_string8003z00zz__objectz00, BgL_bgl_string8003za700za7za7__objectza7008114z00, "object-hashnumber:Wrong number of arguments", 43 );
DEFINE_STRING( BGl_string8000z00zz__objectz00, BgL_bgl_string8000za700za7za7__objectza7008115z00, "This structure can't be converted", 33 );
DEFINE_EXPORT_GENERIC( BGl_objectzd2writezd2envz00zz__objectz00, BgL_bgl__objectza7d2writeza7d2za7za7__objectza7008116za7, va_generic_entry, BGl__objectzd2writezd2zz__objectz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2mutablezf3zd2envz21zz__objectz00, BgL_bgl__classza7d2fieldza7d2mutableza7f3za7f3za7za7__objectza7008117za7, BGl__classzd2fieldzd2mutablezf3zf3zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2classzd2fieldzd2envzd2zz__objectz00, BgL_bgl__findza7d2classza7d2fieldza700za7za7__objectza7008118z00, BGl__findzd2classzd2fieldz00zz__objectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2ze3structzd2default1032zd2envz31zz__objectz00, BgL_bgl__objectza7d2za7e3structza7d2default1032za7e3za7za7__objectza7008119za7, BGl__objectzd2ze3structzd2default1032ze3zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7881z00zz__objectz00, BgL_bgl_string7881za700za7za7__objectza7008120z00, "           sister: ", 19 );
DEFINE_STATIC_PROCEDURE( BGl_makezd2classzd2envz00zz__objectz00, BgL_bgl__makeza7d2classza7d2za7za7__objectza7008121za7, BGl__makezd2classzd2zz__objectz00, 0L, 12 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2objectz12zd2envz12zz__objectz00, BgL_bgl__fillza7d2objectza712za7c0za7za7__objectza7008122z00, BGl__fillzd2objectz12zc0zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7874z00zz__objectz00, BgL_bgl_string7874za700za7za7__objectza7008123z00, " new-max: ", 10 );
DEFINE_STRING( BGl_string7871z00zz__objectz00, BgL_bgl_string7871za700za7za7__objectza7008124z00, " old-max: ", 10 );
DEFINE_STRING( BGl_string7868z00zz__objectz00, BgL_bgl_string7868za700za7za7__objectza7008125z00, " min: ", 6 );
DEFINE_STRING( BGl_string7865z00zz__objectz00, BgL_bgl_string7865za700za7za7__objectza7008126z00, "UP RENUMBERING...: ", 19 );
DEFINE_EXPORT_PROCEDURE( BGl_objectzd2markzd2producerz12zd2envzc0zz__objectz00, BgL_bgl__objectza7d2markza7d2producerza712za712za7za7__objectza7008127za7, BGl__objectzd2markzd2producerz12z12zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_structzd2ze3objectzd2envze3zz__objectz00, BgL_bgl__structza7d2za7e3objectza731za7za7__objectza7008128z00, BGl__structzd2ze3objectz31zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2superzd2classzd2methodzd2envz00zz__objectz00, BgL_bgl__findza7d2superza7d2classza7d2methodza7d2za7za7__objectza7008129za7, BGl__findzd2superzd2classzd2methodzd2zz__objectz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2subclasseszd2envz00zz__objectz00, BgL_bgl__classza7d2subclassesza7d2za7za7__objectza7008130za7, BGl__classzd2subclasseszd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2accessorzd2envzd2zz__objectz00, BgL_bgl__classza7d2fieldza7d2accessorza700za7za7__objectza7008131z00, BGl__classzd2fieldzd2accessorz00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldszd2envz00zz__objectz00, BgL_bgl__classza7d2fieldsza7d2za7za7__objectza7008132za7, BGl__classzd2fieldszd2zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7851z00zz__objectz00, BgL_bgl_string7851za700za7za7__objectza7008133z00, "Illegal class", 13 );
DEFINE_STRING( BGl_string7850z00zz__objectz00, BgL_bgl_string7850za700za7za7__objectza7008134z00, "arity mismatch", 14 );
DEFINE_STRING( BGl_string7849z00zz__objectz00, BgL_bgl_string7849za700za7za7__objectza7008135z00, "add-method!", 11 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2lenzd2accessorzd2envz00zz__objectz00, BgL_bgl__classza7d2fieldza7d2lenza7d2accessorza7d2za7za7__objectza7008136za7, BGl__classzd2fieldzd2lenzd2accessorzd2zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7845z00zz__objectz00, BgL_bgl_string7845za700za7za7__objectza7008137z00, "No default behavior", 19 );
DEFINE_EXPORT_PROCEDURE( BGl_objectzd2classzd2numzd2setz12zd2envz12zz__objectz00, BgL_bgl__objectza7d2classza7d2numza7d2setza712za7c0za7za7__objectza7008138z00, BGl__objectzd2classzd2numzd2setz12zc0zz__objectz00, 0L, 2 );
DEFINE_STRING( BGl_string7844z00zz__objectz00, BgL_bgl_string7844za700za7za7__objectza7008139z00, "generic", 7 );
DEFINE_EXPORT_GENERIC( BGl_objectzd2equalzf3zd2envzf3zz__objectz00, BgL_bgl__objectza7d2equalza7f3za721za7za7__objectza7008140z00, BGl__objectzd2equalzf3z21zz__objectz00, 0L, 2 );
DEFINE_STRING( BGl_string7842z00zz__objectz00, BgL_bgl_string7842za700za7za7__objectza7008141z00, "argument not a list", 19 );
DEFINE_STRING( BGl_string7841z00zz__objectz00, BgL_bgl_string7841za700za7za7__objectza7008142z00, "for-each", 8 );
DEFINE_STRING( BGl_string7838z00zz__objectz00, BgL_bgl_string7838za700za7za7__objectza7008143z00, "vector-set!", 11 );
DEFINE_STRING( BGl_string7837z00zz__objectz00, BgL_bgl_string7837za700za7za7__objectza7008144z00, "Illegal super class for class", 29 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2virtualzd2envz00zz__objectz00, BgL_bgl__classza7d2virtualza7d2za7za7__objectza7008145za7, BGl__classzd2virtualzd2zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7836z00zz__objectz00, BgL_bgl_string7836za700za7za7__objectza7008146z00, "add-class!", 10 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2virtualzd2getterzd2envzd2zz__objectz00, BgL_bgl__callza7d2virtualza7d2getterza700za7za7__objectza7008147z00, BGl__callzd2virtualzd2getterz00zz__objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_addzd2methodz12zd2envz12zz__objectz00, BgL_bgl__addza7d2methodza712za7c0za7za7__objectza7008148z00, BGl__addzd2methodz12zc0zz__objectz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_objectzf3zd2envz21zz__objectz00, BgL_bgl__objectza7f3za7f3za7za7__objectza7008149za7, BGl__objectzf3zf3zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2classzd2fieldzd2envzd2zz__objectz00, BgL_bgl__makeza7d2classza7d2fieldza700za7za7__objectza7008150z00, BGl__makezd2classzd2fieldz00zz__objectz00, 0L, 6 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2displayzd2default1028zd2envzd2zz__objectz00, BgL_bgl__objectza7d2displayza7d2default1028za700za7za7__objectza7008151z00, va_generic_entry, BGl__objectzd2displayzd2default1028z00zz__objectz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2creatorzd2envz00zz__objectz00, BgL_bgl__classza7d2creatorza7d2za7za7__objectza7008152za7, BGl__classzd2creatorzd2zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7819z00zz__objectz00, BgL_bgl_string7819za700za7za7__objectza7008153z00, "object", 6 );
DEFINE_EXPORT_PROCEDURE( BGl_addzd2genericz12zd2envz12zz__objectz00, BgL_bgl__addza7d2genericza712za7c0za7za7__objectza7008154z00, BGl__addzd2genericz12zc0zz__objectz00, 0L, 2 );
DEFINE_STRING( BGl_string7812z00zz__objectz00, BgL_bgl_string7812za700za7za7__objectza7008155z00, "int", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2objectzd2envz00zz__objectz00, BgL_bgl__allocateza7d2objectza7d2za7za7__objectza7008156za7, BGl__allocatezd2objectzd2zz__objectz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_genericzd2prezd2methodzd2setz12zd2envz12zz__objectz00, BgL_bgl__genericza7d2preza7d2methodza7d2setza712za7c0za7za7__objectza7008157z00, BGl__genericzd2prezd2methodzd2setz12zc0zz__objectz00, 0L, 2 );
DEFINE_STRING( BGl_string7798z00zz__objectz00, BgL_bgl_string7798za700za7za7__objectza7008158z00, "class-field-mutable?", 20 );
DEFINE_STRING( BGl_string7796z00zz__objectz00, BgL_bgl_string7796za700za7za7__objectza7008159z00, "class-field-accessor", 20 );
DEFINE_STRING( BGl_string7804z00zz__objectz00, BgL_bgl_string7804za700za7za7__objectza7008160z00, "class-field-info", 16 );
DEFINE_STRING( BGl_string7794z00zz__objectz00, BgL_bgl_string7794za700za7za7__objectza7008161z00, "class-field-virtual?", 20 );
DEFINE_STRING( BGl_string7802z00zz__objectz00, BgL_bgl_string7802za700za7za7__objectza7008162z00, "class-field-len-accessor", 24 );
DEFINE_STRING( BGl_string7792z00zz__objectz00, BgL_bgl_string7792za700za7za7__objectza7008163z00, "class-field-indexed?", 20 );
DEFINE_EXPORT_PROCEDURE( BGl_objectzd2classzd2envz00zz__objectz00, BgL_bgl__objectza7d2classza7d2za7za7__objectza7008164za7, BGl__objectzd2classzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_GENERIC( BGl_objectzd2printzd2envz00zz__objectz00, BgL_bgl__objectza7d2printza7d2za7za7__objectza7008165za7, BGl__objectzd2printzd2zz__objectz00, 0L, 3 );
DEFINE_STRING( BGl_string7800z00zz__objectz00, BgL_bgl_string7800za700za7za7__objectza7008166z00, "class-field-mutator", 19 );
DEFINE_STRING( BGl_string7790z00zz__objectz00, BgL_bgl_string7790za700za7za7__objectza7008167z00, "Not a class field", 17 );
DEFINE_STRING( BGl_string7789z00zz__objectz00, BgL_bgl_string7789za700za7za7__objectza7008168z00, "class-field-name", 16 );
DEFINE_EXPORT_PROCEDURE( BGl_widezd2objectzf3zd2envzf3zz__objectz00, BgL_bgl__wideza7d2objectza7f3za721za7za7__objectza7008169z00, BGl__widezd2objectzf3z21zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7782z00zz__objectz00, BgL_bgl_string7782za700za7za7__objectza7008170z00, "pair", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2nextzd2virtualzd2setterzd2envz00zz__objectz00, BgL_bgl__callza7d2nextza7d2virtualza7d2setterza7d2za7za7__objectza7008171za7, BGl__callzd2nextzd2virtualzd2setterzd2zz__objectz00, 0L, 4 );
DEFINE_STRING( BGl_string7780z00zz__objectz00, BgL_bgl_string7780za700za7za7__objectza7008172z00, "pair-nil", 8 );
DEFINE_STRING( BGl_string7778z00zz__objectz00, BgL_bgl_string7778za700za7za7__objectza7008173z00, "Class", 5 );
DEFINE_STRING( BGl_string7777z00zz__objectz00, BgL_bgl_string7777za700za7za7__objectza7008174z00, "runtime type error", 18 );
DEFINE_STRING( BGl_string7776z00zz__objectz00, BgL_bgl_string7776za700za7za7__objectza7008175z00, "class-fields", 12 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2numzd2envz00zz__objectz00, BgL_bgl__classza7d2numza7d2za7za7__objectza7008176za7, BGl__classzd2numzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2methodzd2fromzd2envzd2zz__objectz00, BgL_bgl__findza7d2methodza7d2fromza700za7za7__objectza7008177z00, BGl__findzd2methodzd2fromz00zz__objectz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_iszd2azf3zd2envzf3zz__objectz00, BgL_bgl__isza7d2aza7f3za721za7za7__objectza7008178z00, BGl__iszd2azf3z21zz__objectz00, 0L, 2 );
extern obj_t BGl_writezd2envzd2zz__r4_output_6_10_3z00;
DEFINE_STRING( BGl_string7770z00zz__objectz00, BgL_bgl_string7770za700za7za7__objectza7008179z00, "index out of range", 18 );
DEFINE_STRING( BGl_string7769z00zz__objectz00, BgL_bgl_string7769za700za7za7__objectza7008180z00, "vector-ref", 10 );
DEFINE_STATIC_PROCEDURE( BGl_proc7943z00zz__objectz00, BgL_bgl_objectza7d2za7e3structza7d2object1043za7e3za7za7__objectza7008181za7, BGl_objectzd2ze3structzd2object1043ze3zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2namezd2envzd2zz__objectz00, BgL_bgl__classza7d2fieldza7d2nameza700za7za7__objectza7008182z00, BGl__classzd2fieldzd2namez00zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc7944z00zz__objectz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2object1045za751za7za7__objectza7008183z00, BGl_structzb2objectzd2ze3objectzd2object1045z51zz__objectz00, 0L, 2 );
DEFINE_STRING( BGl_string7767z00zz__objectz00, BgL_bgl_string7767za700za7za7__objectza7008184z00, "vector", 6 );
DEFINE_STRING( BGl_string7766z00zz__objectz00, BgL_bgl_string7766za700za7za7__objectza7008185z00, "procedure", 9 );
DEFINE_STRING( BGl_string7765z00zz__objectz00, BgL_bgl_string7765za700za7za7__objectza7008186z00, "symbol", 6 );
DEFINE_STRING( BGl_string7762z00zz__objectz00, BgL_bgl_string7762za700za7za7__objectza7008187z00, "/tmp/bigloo/runtime/./Llib/object.scm", 37 );
DEFINE_STRING( BGl_string7761z00zz__objectz00, BgL_bgl_string7761za700za7za7__objectza7008188z00, "long", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzf3zd2envzf3zz__objectz00, BgL_bgl__classza7d2fieldza7f3za721za7za7__objectza7008189z00, BGl__classzd2fieldzf3z21zz__objectz00, 0L, 1 );
DEFINE_EXPORT_GENERIC( BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BgL_bgl__structza7b2objectza7d2za7e3objectza783za7za7__objectza7008190za7, BGl__structzb2objectzd2ze3objectz83zz__objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_objectzd2classzd2numzd2envzd2zz__objectz00, BgL_bgl__objectza7d2classza7d2numza700za7za7__objectza7008191z00, BGl__objectzd2classzd2numz00zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2writezd2default1030zd2envzd2zz__objectz00, BgL_bgl__objectza7d2writeza7d2default1030za700za7za7__objectza7008192z00, va_generic_entry, BGl__objectzd2writezd2default1030z00zz__objectz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2superzd2envz00zz__objectz00, BgL_bgl__classza7d2superza7d2za7za7__objectza7008193za7, BGl__classzd2superzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_genericzd2defaultzd2envz00zz__objectz00, BgL_bgl__genericza7d2defaultza7d2za7za7__objectza7008194za7, BGl__genericzd2defaultzd2zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_genericzd2nozd2defaultzd2behaviorzd2envz00zz__objectz00, BgL_bgl__genericza7d2noza7d2defaultza7d2behaviorza7d2za7za7__objectza7008195za7, va_generic_entry, BGl__genericzd2nozd2defaultzd2behaviorzd2zz__objectz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2indexedzf3zd2envz21zz__objectz00, BgL_bgl__classza7d2fieldza7d2indexedza7f3za7f3za7za7__objectza7008196za7, BGl__classzd2fieldzd2indexedzf3zf3zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_structzb2objectzd2ze3objectzd2default1034zd2envz83zz__objectz00, BgL_bgl__structza7b2objectza7d2za7e3objectza7d2default1034za751za7za7__objectza7008197z00, BGl__structzb2objectzd2ze3objectzd2default1034z51zz__objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2mutatorzd2envzd2zz__objectz00, BgL_bgl__classza7d2fieldza7d2mutatorza700za7za7__objectza7008198z00, BGl__classzd2fieldzd2mutatorz00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2allzd2fieldszd2envzd2zz__objectz00, BgL_bgl__classza7d2allza7d2fieldsza700za7za7__objectza7008199z00, BGl__classzd2allzd2fieldsz00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_methodzd2arrayzd2refzd2envzd2zz__objectz00, BgL_bgl__methodza7d2arrayza7d2refza700za7za7__objectza7008200z00, BGl__methodzd2arrayzd2refz00zz__objectz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2typeszd2numberzd2envzd2zz__objectz00, BgL_bgl__biglooza7d2typesza7d2numberza700za7za7__objectza7008201z00, BGl__bigloozd2typeszd2numberz00zz__objectz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2virtualzf3zd2envz21zz__objectz00, BgL_bgl__classza7d2fieldza7d2virtualza7f3za7f3za7za7__objectza7008202za7, BGl__classzd2fieldzd2virtualzf3zf3zz__objectz00, 0L, 1 );
DEFINE_EXPORT_GENERIC( BGl_objectzd2ze3structzd2envze3zz__objectz00, BgL_bgl__objectza7d2za7e3structza731za7za7__objectza7008203z00, BGl__objectzd2ze3structz31zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2constructorzd2envz00zz__objectz00, BgL_bgl__classza7d2constructorza7d2za7za7__objectza7008204za7, BGl__classzd2constructorzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzf3zd2envz21zz__objectz00, BgL_bgl__classza7f3za7f3za7za7__objectza7008205za7, BGl__classzf3zf3zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7999z00zz__objectz00, BgL_bgl_string7999za700za7za7__objectza7008206z00, "struct+object->object", 21 );
DEFINE_EXPORT_PROCEDURE( BGl_registerzd2classz12zd2envz12zz__objectz00, BgL_bgl__registerza7d2classza712za7c0za7za7__objectza7008207z00, BGl__registerzd2classz12zc0zz__objectz00, 0L, 8 );
DEFINE_STRING( BGl_string7996z00zz__objectz00, BgL_bgl_string7996za700za7za7__objectza7008208z00, "struct+object->object:Wrong number of arguments", 47 );
DEFINE_STRING( BGl_string7993z00zz__objectz00, BgL_bgl_string7993za700za7za7__objectza7008209z00, "This object can't be converted", 30 );
DEFINE_STRING( BGl_string7992z00zz__objectz00, BgL_bgl_string7992za700za7za7__objectza7008210z00, "object->struct", 14 );
DEFINE_STRING( BGl_string7987z00zz__objectz00, BgL_bgl_string7987za700za7za7__objectza7008211z00, "object->struct:Wrong number of arguments", 40 );
DEFINE_EXPORT_PROCEDURE( BGl_genericzd2methodzd2arrayzd2envzd2zz__objectz00, BgL_bgl__genericza7d2methodza7d2arrayza700za7za7__objectza7008212z00, BGl__genericzd2methodzd2arrayz00zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7982z00zz__objectz00, BgL_bgl_string7982za700za7za7__objectza7008213z00, "object-write-default1030:Wrong number of arguments", 50 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2instancezd2envz00zz__objectz00, BgL_bgl__allocateza7d2instanceza7d2za7za7__objectza7008214za7, BGl__allocatezd2instancezd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldszf3zd2envzf3zz__objectz00, BgL_bgl__classza7d2fieldsza7f3za721za7za7__objectza7008215z00, BGl__classzd2fieldszf3z21zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7967z00zz__objectz00, BgL_bgl_string7967za700za7za7__objectza7008216z00, "object-display-default1028:Wrong number of arguments", 52 );
DEFINE_STRING( BGl_string7966z00zz__objectz00, BgL_bgl_string7966za700za7za7__objectza7008217z00, "output-port", 11 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2nextzd2virtualzd2getterzd2envz00zz__objectz00, BgL_bgl__callza7d2nextza7d2virtualza7d2getterza7d2za7za7__objectza7008218za7, BGl__callzd2nextzd2virtualzd2getterzd2zz__objectz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2virtualzd2setterzd2envzd2zz__objectz00, BgL_bgl__callza7d2virtualza7d2setterza700za7za7__objectza7008219z00, BGl__callzd2virtualzd2setterz00zz__objectz00, 0L, 3 );
DEFINE_EXPORT_GENERIC( BGl_objectzd2displayzd2envz00zz__objectz00, BgL_bgl__objectza7d2displayza7d2za7za7__objectza7008220za7, va_generic_entry, BGl__objectzd2displayzd2zz__objectz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2methodzd2envz00zz__objectz00, BgL_bgl__findza7d2methodza7d2za7za7__objectza7008221za7, BGl__findzd2methodzd2zz__objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2hashzd2envz00zz__objectz00, BgL_bgl__classza7d2hashza7d2za7za7__objectza7008222za7, BGl__classzd2hashzd2zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string7948z00zz__objectz00, BgL_bgl_string7948za700za7za7__objectza7008223z00, "Wrong number of arguments", 25 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2hashnumberzd2default1036zd2envzd2zz__objectz00, BgL_bgl__objectza7d2hashnumberza7d2default1036za700za7za7__objectza7008224z00, BGl__objectzd2hashnumberzd2default1036z00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2namezd2envz00zz__objectz00, BgL_bgl__classza7d2nameza7d2za7za7__objectza7008225za7, BGl__classzd2namezd2zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2printzd2default1038zd2envzd2zz__objectz00, BgL_bgl__objectza7d2printza7d2default1038za700za7za7__objectza7008226z00, BGl__objectzd2printzd2default1038z00zz__objectz00, 0L, 3 );
DEFINE_STRING( BGl_string8038z00zz__objectz00, BgL_bgl_string8038za700za7za7__objectza7008227z00, "object-equal?-default1040:Wrong number of arguments", 51 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2equalzf3zd2default1040zd2envz21zz__objectz00, BgL_bgl__objectza7d2equalza7f3za7d2default1040za7f3za7za7__objectza7008228za7, BGl__objectzd2equalzf3zd2default1040zf3zz__objectz00, 0L, 2 );
DEFINE_STRING( BGl_string7933z00zz__objectz00, BgL_bgl_string7933za700za7za7__objectza7008229z00, "call-next-virtual-setter:Wrong number of arguments", 50 );
DEFINE_STRING( BGl_string8031z00zz__objectz00, BgL_bgl_string8031za700za7za7__objectza7008230z00, "object-equal?:Wrong number of arguments", 39 );
DEFINE_STRING( BGl_string8028z00zz__objectz00, BgL_bgl_string8028za700za7za7__objectza7008231z00, "...", 3 );
DEFINE_STRING( BGl_string7928z00zz__objectz00, BgL_bgl_string7928za700za7za7__objectza7008232z00, "call-next-virtual-getter:Wrong number of arguments", 50 );
DEFINE_STRING( BGl_string8027z00zz__objectz00, BgL_bgl_string8027za700za7za7__objectza7008233z00, "#|", 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long BgL_checksumz00_4013, char * BgL_fromz00_4014)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__objectz00))
{ 
BGl_requirezd2initializa7ationz75zz__objectz00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__objectz00(); 
BGl_objectzd2initzd2zz__objectz00(); 
BGl_methodzd2initzd2zz__objectz00(); 
BGl_toplevelzd2initzd2zz__objectz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
BGl_symbol7758z00zz__objectz00 = 
string_to_symbol("%toplevel@__object"); 
BGl_symbol7759z00zz__objectz00 = 
string_to_symbol("bigloo-generic-bucket-size"); 
BGl_symbol7760z00zz__objectz00 = 
string_to_symbol("bigloo-types-number"); 
BGl_symbol7763z00zz__objectz00 = 
string_to_symbol("make-class"); 
BGl_symbol7764z00zz__objectz00 = 
string_to_symbol("_make-class"); 
BGl_symbol7768z00zz__objectz00 = 
string_to_symbol("class?"); 
BGl_symbol7771z00zz__objectz00 = 
string_to_symbol("class-name"); 
BGl_symbol7772z00zz__objectz00 = 
string_to_symbol("class-num"); 
BGl_symbol7773z00zz__objectz00 = 
string_to_symbol("class-virtual"); 
BGl_symbol7774z00zz__objectz00 = 
string_to_symbol("_class-virtual"); 
BGl_symbol7775z00zz__objectz00 = 
string_to_symbol("class-fields"); 
BGl_symbol7779z00zz__objectz00 = 
string_to_symbol("class-all-fields"); 
BGl_symbol7781z00zz__objectz00 = 
string_to_symbol("find-class-field"); 
BGl_symbol7783z00zz__objectz00 = 
string_to_symbol("_find-class-field"); 
BGl_symbol7784z00zz__objectz00 = 
string_to_symbol("make-class-field"); 
BGl_symbol7785z00zz__objectz00 = 
string_to_symbol("_make-class-field"); 
BGl_symbol7786z00zz__objectz00 = 
string_to_symbol("class-field?"); 
BGl_symbol7787z00zz__objectz00 = 
string_to_symbol("class-fields?"); 
BGl_symbol7788z00zz__objectz00 = 
string_to_symbol("class-field-name"); 
BGl_symbol7791z00zz__objectz00 = 
string_to_symbol("class-field-indexed?"); 
BGl_symbol7793z00zz__objectz00 = 
string_to_symbol("class-field-virtual?"); 
BGl_symbol7795z00zz__objectz00 = 
string_to_symbol("class-field-accessor"); 
BGl_symbol7797z00zz__objectz00 = 
string_to_symbol("class-field-mutable?"); 
BGl_symbol7799z00zz__objectz00 = 
string_to_symbol("class-field-mutator"); 
BGl_symbol7801z00zz__objectz00 = 
string_to_symbol("class-field-len-accessor"); 
BGl_symbol7803z00zz__objectz00 = 
string_to_symbol("class-field-info"); 
BGl_symbol7805z00zz__objectz00 = 
string_to_symbol("class-super"); 
BGl_symbol7806z00zz__objectz00 = 
string_to_symbol("class-subclasses"); 
BGl_symbol7807z00zz__objectz00 = 
string_to_symbol("class-hash"); 
BGl_symbol7808z00zz__objectz00 = 
string_to_symbol("class-constructor"); 
BGl_symbol7809z00zz__objectz00 = 
string_to_symbol("class-creator"); 
BGl_symbol7810z00zz__objectz00 = 
string_to_symbol("initialize-objects!"); 
BGl_symbol7811z00zz__objectz00 = 
string_to_symbol("done"); 
BGl_symbol7813z00zz__objectz00 = 
string_to_symbol("extend-vector"); 
BGl_symbol7814z00zz__objectz00 = 
string_to_symbol("double-nb-classes!"); 
BGl_symbol7815z00zz__objectz00 = 
string_to_symbol("double-nb-generics!"); 
BGl_symbol7816z00zz__objectz00 = 
string_to_symbol("object?"); 
BGl_symbol7817z00zz__objectz00 = 
string_to_symbol("object-class-num"); 
BGl_symbol7818z00zz__objectz00 = 
string_to_symbol("_object-class-num"); 
BGl_symbol7820z00zz__objectz00 = 
string_to_symbol("object-class-num-set!"); 
BGl_symbol7821z00zz__objectz00 = 
string_to_symbol("_object-class-num-set!"); 
BGl_symbol7822z00zz__objectz00 = 
string_to_symbol("object-mark-producer!"); 
BGl_symbol7823z00zz__objectz00 = 
string_to_symbol("object-class"); 
BGl_symbol7824z00zz__objectz00 = 
string_to_symbol("_object-class"); 
BGl_symbol7825z00zz__objectz00 = 
string_to_symbol("generic-default"); 
BGl_symbol7826z00zz__objectz00 = 
string_to_symbol("_generic-default"); 
BGl_symbol7827z00zz__objectz00 = 
string_to_symbol("generic-method-array"); 
BGl_symbol7828z00zz__objectz00 = 
string_to_symbol("_generic-method-array"); 
BGl_symbol7829z00zz__objectz00 = 
string_to_symbol("generic-pre-method-set!"); 
BGl_symbol7830z00zz__objectz00 = 
string_to_symbol("_generic-pre-method-set!"); 
BGl_symbol7831z00zz__objectz00 = 
string_to_symbol("method-array-ref"); 
BGl_symbol7832z00zz__objectz00 = 
string_to_symbol("_method-array-ref"); 
BGl_symbol7833z00zz__objectz00 = 
string_to_symbol("method-array-set!"); 
BGl_symbol7834z00zz__objectz00 = 
string_to_symbol("generics-add-class!"); 
BGl_symbol7835z00zz__objectz00 = 
string_to_symbol("register-class!"); 
BGl_symbol7839z00zz__objectz00 = 
string_to_symbol("_register-class!"); 
BGl_symbol7840z00zz__objectz00 = 
string_to_symbol("make-class-virtual-slots-vector"); 
BGl_symbol7843z00zz__objectz00 = 
string_to_symbol("generic-no-default-behavior"); 
BGl_symbol7846z00zz__objectz00 = 
string_to_symbol("add-generic!"); 
BGl_symbol7847z00zz__objectz00 = 
string_to_symbol("_add-generic!"); 
BGl_symbol7848z00zz__objectz00 = 
string_to_symbol("add-method!"); 
BGl_symbol7852z00zz__objectz00 = 
string_to_symbol("loop"); 
BGl_symbol7853z00zz__objectz00 = 
string_to_symbol("_add-method!"); 
BGl_symbol7854z00zz__objectz00 = 
string_to_symbol("find-method"); 
BGl_symbol7855z00zz__objectz00 = 
string_to_symbol("_find-method"); 
BGl_symbol7856z00zz__objectz00 = 
string_to_symbol("find-super-class-method"); 
BGl_symbol7857z00zz__objectz00 = 
string_to_symbol("_find-super-class-method"); 
BGl_symbol7858z00zz__objectz00 = 
string_to_symbol("find-method-from"); 
BGl_symbol7859z00zz__objectz00 = 
string_to_symbol("_find-method-from"); 
BGl_symbol7860z00zz__objectz00 = 
string_to_symbol("is-a?"); 
BGl_symbol7861z00zz__objectz00 = 
string_to_symbol("class-hierarchy-numbering!"); 
BGl_symbol7862z00zz__objectz00 = 
string_to_symbol("class-hierarchy-up-renumber!"); 
BGl_symbol7864z00zz__objectz00 = 
string_to_symbol("tprint"); 
BGl_symbol7867z00zz__objectz00 = 
string_to_symbol("class"); 
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4096;
BgL_auxz00_4096 = 
MAKE_PAIR(BGl_symbol7867z00zz__objectz00, BNIL); 
BGl_list7866z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7771z00zz__objectz00, BgL_auxz00_4096); } 
BGl_symbol7870z00zz__objectz00 = 
string_to_symbol("class-min-num"); 
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4100;
BgL_auxz00_4100 = 
MAKE_PAIR(BGl_symbol7867z00zz__objectz00, BNIL); 
BGl_list7869z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7870z00zz__objectz00, BgL_auxz00_4100); } 
BGl_symbol7873z00zz__objectz00 = 
string_to_symbol("class-max-num"); 
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4104;
BgL_auxz00_4104 = 
MAKE_PAIR(BGl_symbol7867z00zz__objectz00, BNIL); 
BGl_list7872z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7873z00zz__objectz00, BgL_auxz00_4104); } 
BGl_symbol7875z00zz__objectz00 = 
string_to_symbol("new-num"); 
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4108;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4109;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4110;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4111;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4112;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4113;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4114;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_4115;
BgL_auxz00_4115 = 
MAKE_PAIR(BGl_symbol7875z00zz__objectz00, BNIL); 
BgL_auxz00_4114 = 
MAKE_PAIR(BGl_string7874z00zz__objectz00, BgL_auxz00_4115); } 
BgL_auxz00_4113 = 
MAKE_PAIR(BGl_list7872z00zz__objectz00, BgL_auxz00_4114); } 
BgL_auxz00_4112 = 
MAKE_PAIR(BGl_string7871z00zz__objectz00, BgL_auxz00_4113); } 
BgL_auxz00_4111 = 
MAKE_PAIR(BGl_list7869z00zz__objectz00, BgL_auxz00_4112); } 
BgL_auxz00_4110 = 
MAKE_PAIR(BGl_string7868z00zz__objectz00, BgL_auxz00_4111); } 
BgL_auxz00_4109 = 
MAKE_PAIR(BGl_list7866z00zz__objectz00, BgL_auxz00_4110); } 
BgL_auxz00_4108 = 
MAKE_PAIR(BGl_string7865z00zz__objectz00, BgL_auxz00_4109); } 
BGl_list7863z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7864z00zz__objectz00, BgL_auxz00_4108); } 
BGl_symbol7877z00zz__objectz00 = 
string_to_symbol("if"); 
BGl_symbol7879z00zz__objectz00 = 
string_to_symbol("super"); 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4127;
BgL_auxz00_4127 = 
MAKE_PAIR(BGl_symbol7879z00zz__objectz00, BNIL); 
BGl_list7878z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7768z00zz__objectz00, BgL_auxz00_4127); } 
BGl_symbol7883z00zz__objectz00 = 
string_to_symbol("map"); 
BGl_symbol7885z00zz__objectz00 = 
string_to_symbol("lambda"); 
BGl_symbol7887z00zz__objectz00 = 
string_to_symbol("c"); 
BGl_list7886z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7887z00zz__objectz00, BNIL); 
BGl_symbol7889z00zz__objectz00 = 
string_to_symbol("vector"); 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4135;
BgL_auxz00_4135 = 
MAKE_PAIR(BGl_symbol7887z00zz__objectz00, BNIL); 
BGl_list7890z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7771z00zz__objectz00, BgL_auxz00_4135); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4138;
BgL_auxz00_4138 = 
MAKE_PAIR(BGl_symbol7887z00zz__objectz00, BNIL); 
BGl_list7891z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7870z00zz__objectz00, BgL_auxz00_4138); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4141;
BgL_auxz00_4141 = 
MAKE_PAIR(BGl_symbol7887z00zz__objectz00, BNIL); 
BGl_list7892z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7873z00zz__objectz00, BgL_auxz00_4141); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4144;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4145;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4146;
BgL_auxz00_4146 = 
MAKE_PAIR(BGl_list7892z00zz__objectz00, BNIL); 
BgL_auxz00_4145 = 
MAKE_PAIR(BGl_list7891z00zz__objectz00, BgL_auxz00_4146); } 
BgL_auxz00_4144 = 
MAKE_PAIR(BGl_list7890z00zz__objectz00, BgL_auxz00_4145); } 
BGl_list7888z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7889z00zz__objectz00, BgL_auxz00_4144); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4151;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4152;
BgL_auxz00_4152 = 
MAKE_PAIR(BGl_list7888z00zz__objectz00, BNIL); 
BgL_auxz00_4151 = 
MAKE_PAIR(BGl_list7886z00zz__objectz00, BgL_auxz00_4152); } 
BGl_list7884z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7885z00zz__objectz00, BgL_auxz00_4151); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4156;
BgL_auxz00_4156 = 
MAKE_PAIR(BGl_symbol7879z00zz__objectz00, BNIL); 
BGl_list7893z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7806z00zz__objectz00, BgL_auxz00_4156); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4159;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4160;
BgL_auxz00_4160 = 
MAKE_PAIR(BGl_list7893z00zz__objectz00, BNIL); 
BgL_auxz00_4159 = 
MAKE_PAIR(BGl_list7884z00zz__objectz00, BgL_auxz00_4160); } 
BGl_list7882z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7883z00zz__objectz00, BgL_auxz00_4159); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4164;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4165;
BgL_auxz00_4165 = 
MAKE_PAIR(BGl_list7882z00zz__objectz00, BNIL); 
BgL_auxz00_4164 = 
MAKE_PAIR(BGl_string7881z00zz__objectz00, BgL_auxz00_4165); } 
BGl_list7880z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7864z00zz__objectz00, BgL_auxz00_4164); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4169;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_4170;
BgL_auxz00_4170 = 
MAKE_PAIR(BGl_list7880z00zz__objectz00, BNIL); 
BgL_auxz00_4169 = 
MAKE_PAIR(BGl_list7878z00zz__objectz00, BgL_auxz00_4170); } 
BGl_list7876z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7877z00zz__objectz00, BgL_auxz00_4169); } 
BGl_symbol7894z00zz__objectz00 = 
string_to_symbol("class-hierarchy-down-renumber!"); 
{ /* ./Llib/object.scm 949 */
obj_t BgL_auxz00_4175;
{ /* ./Llib/object.scm 949 */
obj_t BgL_auxz00_4176;
{ /* ./Llib/object.scm 949 */
obj_t BgL_auxz00_4177;
{ /* ./Llib/object.scm 949 */
obj_t BgL_auxz00_4178;
BgL_auxz00_4178 = 
MAKE_PAIR(BGl_list7869z00zz__objectz00, BNIL); 
BgL_auxz00_4177 = 
MAKE_PAIR(BGl_string7868z00zz__objectz00, BgL_auxz00_4178); } 
BgL_auxz00_4176 = 
MAKE_PAIR(BGl_list7866z00zz__objectz00, BgL_auxz00_4177); } 
BgL_auxz00_4175 = 
MAKE_PAIR(BGl_string7896z00zz__objectz00, BgL_auxz00_4176); } 
BGl_list7895z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7864z00zz__objectz00, BgL_auxz00_4175); } 
BGl_symbol7897z00zz__objectz00 = 
string_to_symbol("struct->object"); 
BGl_symbol7900z00zz__objectz00 = 
string_to_symbol("funcall"); 
BGl_symbol7901z00zz__objectz00 = 
string_to_symbol("method1035"); 
BGl_symbol7902z00zz__objectz00 = 
string_to_symbol("object"); 
BGl_symbol7903z00zz__objectz00 = 
string_to_symbol("struct"); 
{ /* ./Llib/object.scm 997 */
obj_t BgL_auxz00_4189;
{ /* ./Llib/object.scm 997 */
obj_t BgL_auxz00_4190;
{ /* ./Llib/object.scm 997 */
obj_t BgL_auxz00_4191;
{ /* ./Llib/object.scm 997 */
obj_t BgL_auxz00_4192;
BgL_auxz00_4192 = 
MAKE_PAIR(BGl_symbol7903z00zz__objectz00, BNIL); 
BgL_auxz00_4191 = 
MAKE_PAIR(BGl_symbol7902z00zz__objectz00, BgL_auxz00_4192); } 
BgL_auxz00_4190 = 
MAKE_PAIR(BGl_symbol7901z00zz__objectz00, BgL_auxz00_4191); } 
BgL_auxz00_4189 = 
MAKE_PAIR(BGl_symbol7901z00zz__objectz00, BgL_auxz00_4190); } 
BGl_list7899z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4189); } 
BGl_symbol7904z00zz__objectz00 = 
string_to_symbol("_"); 
BGl_symbol7905z00zz__objectz00 = 
string_to_symbol("_struct->object"); 
BGl_symbol7907z00zz__objectz00 = 
string_to_symbol("allocate-instance"); 
BGl_symbol7912z00zz__objectz00 = 
string_to_symbol("fun1722"); 
{ /* ./Llib/object.scm 1008 */
obj_t BgL_auxz00_4202;
{ /* ./Llib/object.scm 1008 */
obj_t BgL_auxz00_4203;
BgL_auxz00_4203 = 
MAKE_PAIR(BGl_symbol7912z00zz__objectz00, BNIL); 
BgL_auxz00_4202 = 
MAKE_PAIR(BGl_symbol7912z00zz__objectz00, BgL_auxz00_4203); } 
BGl_list7911z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4202); } 
BGl_symbol7913z00zz__objectz00 = 
string_to_symbol("_allocate-instance"); 
BGl_symbol7914z00zz__objectz00 = 
string_to_symbol("_wide-object?"); 
BGl_symbol7915z00zz__objectz00 = 
string_to_symbol("call-virtual-getter"); 
BGl_symbol7918z00zz__objectz00 = 
string_to_symbol("getter"); 
BGl_symbol7919z00zz__objectz00 = 
string_to_symbol("obj"); 
{ /* ./Llib/object.scm 1125 */
obj_t BgL_auxz00_4212;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_auxz00_4213;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_auxz00_4214;
BgL_auxz00_4214 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BNIL); 
BgL_auxz00_4213 = 
MAKE_PAIR(BGl_symbol7918z00zz__objectz00, BgL_auxz00_4214); } 
BgL_auxz00_4212 = 
MAKE_PAIR(BGl_symbol7918z00zz__objectz00, BgL_auxz00_4213); } 
BGl_list7917z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4212); } 
BGl_symbol7920z00zz__objectz00 = 
string_to_symbol("_call-virtual-getter"); 
BGl_symbol7921z00zz__objectz00 = 
string_to_symbol("call-virtual-setter"); 
BGl_symbol7924z00zz__objectz00 = 
string_to_symbol("setter"); 
BGl_symbol7925z00zz__objectz00 = 
string_to_symbol("value"); 
{ /* ./Llib/object.scm 1138 */
obj_t BgL_auxz00_4223;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_auxz00_4224;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_auxz00_4225;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_auxz00_4226;
BgL_auxz00_4226 = 
MAKE_PAIR(BGl_symbol7925z00zz__objectz00, BNIL); 
BgL_auxz00_4225 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BgL_auxz00_4226); } 
BgL_auxz00_4224 = 
MAKE_PAIR(BGl_symbol7924z00zz__objectz00, BgL_auxz00_4225); } 
BgL_auxz00_4223 = 
MAKE_PAIR(BGl_symbol7924z00zz__objectz00, BgL_auxz00_4224); } 
BGl_list7923z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4223); } 
BGl_symbol7926z00zz__objectz00 = 
string_to_symbol("_call-virtual-setter"); 
BGl_symbol7927z00zz__objectz00 = 
string_to_symbol("call-next-virtual-getter"); 
BGl_symbol7930z00zz__objectz00 = 
string_to_symbol("fun1764"); 
{ /* ./Llib/object.scm 1161 */
obj_t BgL_auxz00_4235;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_auxz00_4236;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_auxz00_4237;
BgL_auxz00_4237 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BNIL); 
BgL_auxz00_4236 = 
MAKE_PAIR(BGl_symbol7930z00zz__objectz00, BgL_auxz00_4237); } 
BgL_auxz00_4235 = 
MAKE_PAIR(BGl_symbol7930z00zz__objectz00, BgL_auxz00_4236); } 
BGl_list7929z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4235); } 
BGl_symbol7931z00zz__objectz00 = 
string_to_symbol("_call-next-virtual-getter"); 
BGl_symbol7932z00zz__objectz00 = 
string_to_symbol("call-next-virtual-setter"); 
BGl_symbol7935z00zz__objectz00 = 
string_to_symbol("fun1775"); 
{ /* ./Llib/object.scm 1173 */
obj_t BgL_auxz00_4245;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_auxz00_4246;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_auxz00_4247;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_auxz00_4248;
BgL_auxz00_4248 = 
MAKE_PAIR(BGl_symbol7925z00zz__objectz00, BNIL); 
BgL_auxz00_4247 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BgL_auxz00_4248); } 
BgL_auxz00_4246 = 
MAKE_PAIR(BGl_symbol7935z00zz__objectz00, BgL_auxz00_4247); } 
BgL_auxz00_4245 = 
MAKE_PAIR(BGl_symbol7935z00zz__objectz00, BgL_auxz00_4246); } 
BGl_list7934z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4245); } 
BGl_symbol7936z00zz__objectz00 = 
string_to_symbol("_call-next-virtual-setter"); 
BGl_symbol7937z00zz__objectz00 = 
string_to_symbol("object-init"); 
BGl_symbol7938z00zz__objectz00 = 
string_to_symbol("make-object"); 
BGl_symbol7939z00zz__objectz00 = 
string_to_symbol("fill-object!"); 
BGl_symbol7940z00zz__objectz00 = 
string_to_symbol("_fill-object!"); 
BGl_symbol7941z00zz__objectz00 = 
string_to_symbol("allocate-object"); 
BGl_symbol7942z00zz__objectz00 = 
string_to_symbol("method-init"); 
BGl_symbol7945z00zz__objectz00 = 
string_to_symbol("struct+object->object-object1045"); 
BGl_symbol7946z00zz__objectz00 = 
string_to_symbol("object->struct-object1043"); 
BGl_symbol7947z00zz__objectz00 = 
string_to_symbol("object-display"); 
BGl_symbol7950z00zz__objectz00 = 
string_to_symbol("apply"); 
BGl_symbol7951z00zz__objectz00 = 
string_to_symbol("method1029"); 
BGl_symbol7953z00zz__objectz00 = 
string_to_symbol("let"); 
BGl_symbol7956z00zz__objectz00 = 
string_to_symbol("list1824"); 
BGl_symbol7958z00zz__objectz00 = 
string_to_symbol("c-cons"); 
BGl_symbol7959z00zz__objectz00 = 
string_to_symbol("port"); 
BGl_symbol7961z00zz__objectz00 = 
string_to_symbol("quote"); 
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4271;
BgL_auxz00_4271 = 
MAKE_PAIR(BNIL, BNIL); 
BGl_list7960z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7961z00zz__objectz00, BgL_auxz00_4271); } 
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4274;
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4275;
BgL_auxz00_4275 = 
MAKE_PAIR(BGl_list7960z00zz__objectz00, BNIL); 
BgL_auxz00_4274 = 
MAKE_PAIR(BGl_symbol7959z00zz__objectz00, BgL_auxz00_4275); } 
BGl_list7957z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7958z00zz__objectz00, BgL_auxz00_4274); } 
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4279;
BgL_auxz00_4279 = 
MAKE_PAIR(BGl_list7957z00zz__objectz00, BNIL); 
BGl_list7955z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7956z00zz__objectz00, BgL_auxz00_4279); } 
BGl_list7954z00zz__objectz00 = 
MAKE_PAIR(BGl_list7955z00zz__objectz00, BNIL); 
BGl_symbol7963z00zz__objectz00 = 
string_to_symbol("cons*"); 
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4284;
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4285;
BgL_auxz00_4285 = 
MAKE_PAIR(BGl_symbol7956z00zz__objectz00, BNIL); 
BgL_auxz00_4284 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BgL_auxz00_4285); } 
BGl_list7962z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7963z00zz__objectz00, BgL_auxz00_4284); } 
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4289;
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4290;
BgL_auxz00_4290 = 
MAKE_PAIR(BGl_list7962z00zz__objectz00, BNIL); 
BgL_auxz00_4289 = 
MAKE_PAIR(BGl_list7954z00zz__objectz00, BgL_auxz00_4290); } 
BGl_list7952z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7953z00zz__objectz00, BgL_auxz00_4289); } 
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4294;
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4295;
BgL_auxz00_4295 = 
MAKE_PAIR(BGl_list7952z00zz__objectz00, BNIL); 
BgL_auxz00_4294 = 
MAKE_PAIR(BGl_symbol7951z00zz__objectz00, BgL_auxz00_4295); } 
BGl_list7949z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7950z00zz__objectz00, BgL_auxz00_4294); } 
BGl_symbol7964z00zz__objectz00 = 
string_to_symbol("_object-display"); 
BGl_symbol7965z00zz__objectz00 = 
string_to_symbol("object-display-default1028"); 
BGl_symbol7969z00zz__objectz00 = 
string_to_symbol("method1039"); 
BGl_symbol7970z00zz__objectz00 = 
string_to_symbol("display-env"); 
{ /* ./Llib/object.scm 965 */
obj_t BgL_auxz00_4303;
{ /* ./Llib/object.scm 965 */
obj_t BgL_auxz00_4304;
{ /* ./Llib/object.scm 965 */
obj_t BgL_auxz00_4305;
{ /* ./Llib/object.scm 965 */
obj_t BgL_auxz00_4306;
{ /* ./Llib/object.scm 965 */
obj_t BgL_auxz00_4307;
BgL_auxz00_4307 = 
MAKE_PAIR(BGl_symbol7970z00zz__objectz00, BNIL); 
BgL_auxz00_4306 = 
MAKE_PAIR(BGl_symbol7959z00zz__objectz00, BgL_auxz00_4307); } 
BgL_auxz00_4305 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BgL_auxz00_4306); } 
BgL_auxz00_4304 = 
MAKE_PAIR(BGl_symbol7969z00zz__objectz00, BgL_auxz00_4305); } 
BgL_auxz00_4303 = 
MAKE_PAIR(BGl_symbol7969z00zz__objectz00, BgL_auxz00_4304); } 
BGl_list7968z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4303); } 
BGl_symbol7971z00zz__objectz00 = 
string_to_symbol("_object-display-default1028"); 
BGl_symbol7972z00zz__objectz00 = 
string_to_symbol("object-write"); 
BGl_symbol7974z00zz__objectz00 = 
string_to_symbol("method1031"); 
BGl_symbol7978z00zz__objectz00 = 
string_to_symbol("list1833"); 
{ /* ./Llib/object.scm 971 */
obj_t BgL_auxz00_4318;
BgL_auxz00_4318 = 
MAKE_PAIR(BGl_list7957z00zz__objectz00, BNIL); 
BGl_list7977z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7978z00zz__objectz00, BgL_auxz00_4318); } 
BGl_list7976z00zz__objectz00 = 
MAKE_PAIR(BGl_list7977z00zz__objectz00, BNIL); 
{ /* ./Llib/object.scm 971 */
obj_t BgL_auxz00_4322;
{ /* ./Llib/object.scm 971 */
obj_t BgL_auxz00_4323;
BgL_auxz00_4323 = 
MAKE_PAIR(BGl_symbol7978z00zz__objectz00, BNIL); 
BgL_auxz00_4322 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BgL_auxz00_4323); } 
BGl_list7979z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7963z00zz__objectz00, BgL_auxz00_4322); } 
{ /* ./Llib/object.scm 971 */
obj_t BgL_auxz00_4327;
{ /* ./Llib/object.scm 971 */
obj_t BgL_auxz00_4328;
BgL_auxz00_4328 = 
MAKE_PAIR(BGl_list7979z00zz__objectz00, BNIL); 
BgL_auxz00_4327 = 
MAKE_PAIR(BGl_list7976z00zz__objectz00, BgL_auxz00_4328); } 
BGl_list7975z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7953z00zz__objectz00, BgL_auxz00_4327); } 
{ /* ./Llib/object.scm 971 */
obj_t BgL_auxz00_4332;
{ /* ./Llib/object.scm 971 */
obj_t BgL_auxz00_4333;
BgL_auxz00_4333 = 
MAKE_PAIR(BGl_list7975z00zz__objectz00, BNIL); 
BgL_auxz00_4332 = 
MAKE_PAIR(BGl_symbol7974z00zz__objectz00, BgL_auxz00_4333); } 
BGl_list7973z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7950z00zz__objectz00, BgL_auxz00_4332); } 
BGl_symbol7980z00zz__objectz00 = 
string_to_symbol("_object-write"); 
BGl_symbol7981z00zz__objectz00 = 
string_to_symbol("object-write-default1030"); 
BGl_symbol7984z00zz__objectz00 = 
string_to_symbol("write-env"); 
{ /* ./Llib/object.scm 972 */
obj_t BgL_auxz00_4340;
{ /* ./Llib/object.scm 972 */
obj_t BgL_auxz00_4341;
{ /* ./Llib/object.scm 972 */
obj_t BgL_auxz00_4342;
{ /* ./Llib/object.scm 972 */
obj_t BgL_auxz00_4343;
{ /* ./Llib/object.scm 972 */
obj_t BgL_auxz00_4344;
BgL_auxz00_4344 = 
MAKE_PAIR(BGl_symbol7984z00zz__objectz00, BNIL); 
BgL_auxz00_4343 = 
MAKE_PAIR(BGl_symbol7959z00zz__objectz00, BgL_auxz00_4344); } 
BgL_auxz00_4342 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BgL_auxz00_4343); } 
BgL_auxz00_4341 = 
MAKE_PAIR(BGl_symbol7969z00zz__objectz00, BgL_auxz00_4342); } 
BgL_auxz00_4340 = 
MAKE_PAIR(BGl_symbol7969z00zz__objectz00, BgL_auxz00_4341); } 
BGl_list7983z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4340); } 
BGl_symbol7985z00zz__objectz00 = 
string_to_symbol("_object-write-default1030"); 
BGl_symbol7986z00zz__objectz00 = 
string_to_symbol("object->struct"); 
BGl_symbol7989z00zz__objectz00 = 
string_to_symbol("method1033"); 
{ /* ./Llib/object.scm 978 */
obj_t BgL_auxz00_4354;
{ /* ./Llib/object.scm 978 */
obj_t BgL_auxz00_4355;
{ /* ./Llib/object.scm 978 */
obj_t BgL_auxz00_4356;
BgL_auxz00_4356 = 
MAKE_PAIR(BGl_symbol7902z00zz__objectz00, BNIL); 
BgL_auxz00_4355 = 
MAKE_PAIR(BGl_symbol7989z00zz__objectz00, BgL_auxz00_4356); } 
BgL_auxz00_4354 = 
MAKE_PAIR(BGl_symbol7989z00zz__objectz00, BgL_auxz00_4355); } 
BGl_list7988z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4354); } 
BGl_symbol7990z00zz__objectz00 = 
string_to_symbol("_object->struct"); 
BGl_symbol7991z00zz__objectz00 = 
string_to_symbol("object->struct-default1032"); 
BGl_symbol7994z00zz__objectz00 = 
string_to_symbol("_object->struct-default1032"); 
BGl_symbol7995z00zz__objectz00 = 
string_to_symbol("struct+object->object"); 
BGl_symbol7997z00zz__objectz00 = 
string_to_symbol("_struct+object->object"); 
BGl_symbol7998z00zz__objectz00 = 
string_to_symbol("struct+object->object-default1034"); 
BGl_symbol8001z00zz__objectz00 = 
string_to_symbol("_struct+object->object-default1034"); 
BGl_symbol8002z00zz__objectz00 = 
string_to_symbol("object-hashnumber"); 
BGl_symbol8005z00zz__objectz00 = 
string_to_symbol("method1037"); 
{ /* ./Llib/object.scm 990 */
obj_t BgL_auxz00_4370;
{ /* ./Llib/object.scm 990 */
obj_t BgL_auxz00_4371;
{ /* ./Llib/object.scm 990 */
obj_t BgL_auxz00_4372;
BgL_auxz00_4372 = 
MAKE_PAIR(BGl_symbol7902z00zz__objectz00, BNIL); 
BgL_auxz00_4371 = 
MAKE_PAIR(BGl_symbol8005z00zz__objectz00, BgL_auxz00_4372); } 
BgL_auxz00_4370 = 
MAKE_PAIR(BGl_symbol8005z00zz__objectz00, BgL_auxz00_4371); } 
BGl_list8004z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4370); } 
BGl_symbol8006z00zz__objectz00 = 
string_to_symbol("_object-hashnumber"); 
BGl_symbol8007z00zz__objectz00 = 
string_to_symbol("object-hashnumber-default1036"); 
BGl_symbol8008z00zz__objectz00 = 
string_to_symbol("_object-hashnumber-default1036"); 
BGl_symbol8009z00zz__objectz00 = 
string_to_symbol("object-print"); 
BGl_symbol8012z00zz__objectz00 = 
string_to_symbol("print-slot"); 
{ /* ./Llib/object.scm 1020 */
obj_t BgL_auxz00_4382;
{ /* ./Llib/object.scm 1020 */
obj_t BgL_auxz00_4383;
{ /* ./Llib/object.scm 1020 */
obj_t BgL_auxz00_4384;
{ /* ./Llib/object.scm 1020 */
obj_t BgL_auxz00_4385;
{ /* ./Llib/object.scm 1020 */
obj_t BgL_auxz00_4386;
BgL_auxz00_4386 = 
MAKE_PAIR(BGl_symbol8012z00zz__objectz00, BNIL); 
BgL_auxz00_4385 = 
MAKE_PAIR(BGl_symbol7959z00zz__objectz00, BgL_auxz00_4386); } 
BgL_auxz00_4384 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BgL_auxz00_4385); } 
BgL_auxz00_4383 = 
MAKE_PAIR(BGl_symbol7969z00zz__objectz00, BgL_auxz00_4384); } 
BgL_auxz00_4382 = 
MAKE_PAIR(BGl_symbol7969z00zz__objectz00, BgL_auxz00_4383); } 
BGl_list8011z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4382); } 
BGl_symbol8013z00zz__objectz00 = 
string_to_symbol("_object-print"); 
BGl_symbol8014z00zz__objectz00 = 
string_to_symbol("object-print-default1038"); 
BGl_symbol8018z00zz__objectz00 = 
string_to_symbol("get-len"); 
{ /* ./Llib/object.scm 1036 */
obj_t BgL_auxz00_4396;
{ /* ./Llib/object.scm 1036 */
obj_t BgL_auxz00_4397;
{ /* ./Llib/object.scm 1036 */
obj_t BgL_auxz00_4398;
BgL_auxz00_4398 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BNIL); 
BgL_auxz00_4397 = 
MAKE_PAIR(BGl_symbol8018z00zz__objectz00, BgL_auxz00_4398); } 
BgL_auxz00_4396 = 
MAKE_PAIR(BGl_symbol8018z00zz__objectz00, BgL_auxz00_4397); } 
BGl_list8017z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4396); } 
BGl_symbol8020z00zz__objectz00 = 
string_to_symbol("get-value"); 
BGl_symbol8021z00zz__objectz00 = 
string_to_symbol("i"); 
{ /* ./Llib/object.scm 1042 */
obj_t BgL_auxz00_4405;
{ /* ./Llib/object.scm 1042 */
obj_t BgL_auxz00_4406;
{ /* ./Llib/object.scm 1042 */
obj_t BgL_auxz00_4407;
{ /* ./Llib/object.scm 1042 */
obj_t BgL_auxz00_4408;
BgL_auxz00_4408 = 
MAKE_PAIR(BGl_symbol8021z00zz__objectz00, BNIL); 
BgL_auxz00_4407 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BgL_auxz00_4408); } 
BgL_auxz00_4406 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4407); } 
BgL_auxz00_4405 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4406); } 
BGl_list8019z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4405); } 
BGl_symbol8023z00zz__objectz00 = 
string_to_symbol("arg1896"); 
{ /* ./Llib/object.scm 1042 */
obj_t BgL_auxz00_4415;
{ /* ./Llib/object.scm 1042 */
obj_t BgL_auxz00_4416;
{ /* ./Llib/object.scm 1042 */
obj_t BgL_auxz00_4417;
{ /* ./Llib/object.scm 1042 */
obj_t BgL_auxz00_4418;
BgL_auxz00_4418 = 
MAKE_PAIR(BGl_symbol7959z00zz__objectz00, BNIL); 
BgL_auxz00_4417 = 
MAKE_PAIR(BGl_symbol8023z00zz__objectz00, BgL_auxz00_4418); } 
BgL_auxz00_4416 = 
MAKE_PAIR(BGl_symbol8012z00zz__objectz00, BgL_auxz00_4417); } 
BgL_auxz00_4415 = 
MAKE_PAIR(BGl_symbol8012z00zz__objectz00, BgL_auxz00_4416); } 
BGl_list8022z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4415); } 
{ /* ./Llib/object.scm 1032 */
obj_t BgL_auxz00_4424;
{ /* ./Llib/object.scm 1032 */
obj_t BgL_auxz00_4425;
{ /* ./Llib/object.scm 1032 */
obj_t BgL_auxz00_4426;
BgL_auxz00_4426 = 
MAKE_PAIR(BGl_symbol7919z00zz__objectz00, BNIL); 
BgL_auxz00_4425 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4426); } 
BgL_auxz00_4424 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4425); } 
BGl_list8024z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4424); } 
BGl_symbol8026z00zz__objectz00 = 
string_to_symbol("arg1908"); 
{ /* ./Llib/object.scm 1032 */
obj_t BgL_auxz00_4432;
{ /* ./Llib/object.scm 1032 */
obj_t BgL_auxz00_4433;
{ /* ./Llib/object.scm 1032 */
obj_t BgL_auxz00_4434;
{ /* ./Llib/object.scm 1032 */
obj_t BgL_auxz00_4435;
BgL_auxz00_4435 = 
MAKE_PAIR(BGl_symbol7959z00zz__objectz00, BNIL); 
BgL_auxz00_4434 = 
MAKE_PAIR(BGl_symbol8026z00zz__objectz00, BgL_auxz00_4435); } 
BgL_auxz00_4433 = 
MAKE_PAIR(BGl_symbol8012z00zz__objectz00, BgL_auxz00_4434); } 
BgL_auxz00_4432 = 
MAKE_PAIR(BGl_symbol8012z00zz__objectz00, BgL_auxz00_4433); } 
BGl_list8025z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4432); } 
BGl_symbol8029z00zz__objectz00 = 
string_to_symbol("_object-print-default1038"); 
BGl_symbol8030z00zz__objectz00 = 
string_to_symbol("object-equal?"); 
BGl_symbol8033z00zz__objectz00 = 
string_to_symbol("method1041"); 
BGl_symbol8034z00zz__objectz00 = 
string_to_symbol("obj1"); 
BGl_symbol8035z00zz__objectz00 = 
string_to_symbol("obj2"); 
{ /* ./Llib/object.scm 1070 */
obj_t BgL_auxz00_4446;
{ /* ./Llib/object.scm 1070 */
obj_t BgL_auxz00_4447;
{ /* ./Llib/object.scm 1070 */
obj_t BgL_auxz00_4448;
{ /* ./Llib/object.scm 1070 */
obj_t BgL_auxz00_4449;
BgL_auxz00_4449 = 
MAKE_PAIR(BGl_symbol8035z00zz__objectz00, BNIL); 
BgL_auxz00_4448 = 
MAKE_PAIR(BGl_symbol8034z00zz__objectz00, BgL_auxz00_4449); } 
BgL_auxz00_4447 = 
MAKE_PAIR(BGl_symbol8033z00zz__objectz00, BgL_auxz00_4448); } 
BgL_auxz00_4446 = 
MAKE_PAIR(BGl_symbol8033z00zz__objectz00, BgL_auxz00_4447); } 
BGl_list8032z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4446); } 
BGl_symbol8036z00zz__objectz00 = 
string_to_symbol("_object-equal?"); 
BGl_symbol8037z00zz__objectz00 = 
string_to_symbol("object-equal?-default1040"); 
{ /* ./Llib/object.scm 1078 */
obj_t BgL_auxz00_4457;
{ /* ./Llib/object.scm 1078 */
obj_t BgL_auxz00_4458;
{ /* ./Llib/object.scm 1078 */
obj_t BgL_auxz00_4459;
BgL_auxz00_4459 = 
MAKE_PAIR(BGl_symbol8034z00zz__objectz00, BNIL); 
BgL_auxz00_4458 = 
MAKE_PAIR(BGl_symbol8018z00zz__objectz00, BgL_auxz00_4459); } 
BgL_auxz00_4457 = 
MAKE_PAIR(BGl_symbol8018z00zz__objectz00, BgL_auxz00_4458); } 
BGl_list8039z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4457); } 
{ /* ./Llib/object.scm 1079 */
obj_t BgL_auxz00_4464;
{ /* ./Llib/object.scm 1079 */
obj_t BgL_auxz00_4465;
{ /* ./Llib/object.scm 1079 */
obj_t BgL_auxz00_4466;
BgL_auxz00_4466 = 
MAKE_PAIR(BGl_symbol8035z00zz__objectz00, BNIL); 
BgL_auxz00_4465 = 
MAKE_PAIR(BGl_symbol8018z00zz__objectz00, BgL_auxz00_4466); } 
BgL_auxz00_4464 = 
MAKE_PAIR(BGl_symbol8018z00zz__objectz00, BgL_auxz00_4465); } 
BGl_list8040z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4464); } 
{ /* ./Llib/object.scm 1085 */
obj_t BgL_auxz00_4471;
{ /* ./Llib/object.scm 1085 */
obj_t BgL_auxz00_4472;
{ /* ./Llib/object.scm 1085 */
obj_t BgL_auxz00_4473;
{ /* ./Llib/object.scm 1085 */
obj_t BgL_auxz00_4474;
BgL_auxz00_4474 = 
MAKE_PAIR(BGl_symbol8021z00zz__objectz00, BNIL); 
BgL_auxz00_4473 = 
MAKE_PAIR(BGl_symbol8034z00zz__objectz00, BgL_auxz00_4474); } 
BgL_auxz00_4472 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4473); } 
BgL_auxz00_4471 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4472); } 
BGl_list8041z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4471); } 
{ /* ./Llib/object.scm 1085 */
obj_t BgL_auxz00_4480;
{ /* ./Llib/object.scm 1085 */
obj_t BgL_auxz00_4481;
{ /* ./Llib/object.scm 1085 */
obj_t BgL_auxz00_4482;
{ /* ./Llib/object.scm 1085 */
obj_t BgL_auxz00_4483;
BgL_auxz00_4483 = 
MAKE_PAIR(BGl_symbol8021z00zz__objectz00, BNIL); 
BgL_auxz00_4482 = 
MAKE_PAIR(BGl_symbol8035z00zz__objectz00, BgL_auxz00_4483); } 
BgL_auxz00_4481 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4482); } 
BgL_auxz00_4480 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4481); } 
BGl_list8042z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4480); } 
{ /* ./Llib/object.scm 1075 */
obj_t BgL_auxz00_4489;
{ /* ./Llib/object.scm 1075 */
obj_t BgL_auxz00_4490;
{ /* ./Llib/object.scm 1075 */
obj_t BgL_auxz00_4491;
BgL_auxz00_4491 = 
MAKE_PAIR(BGl_symbol8034z00zz__objectz00, BNIL); 
BgL_auxz00_4490 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4491); } 
BgL_auxz00_4489 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4490); } 
BGl_list8043z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4489); } 
{ /* ./Llib/object.scm 1075 */
obj_t BgL_auxz00_4496;
{ /* ./Llib/object.scm 1075 */
obj_t BgL_auxz00_4497;
{ /* ./Llib/object.scm 1075 */
obj_t BgL_auxz00_4498;
BgL_auxz00_4498 = 
MAKE_PAIR(BGl_symbol8035z00zz__objectz00, BNIL); 
BgL_auxz00_4497 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4498); } 
BgL_auxz00_4496 = 
MAKE_PAIR(BGl_symbol8020z00zz__objectz00, BgL_auxz00_4497); } 
BGl_list8044z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol7900z00zz__objectz00, BgL_auxz00_4496); } 
return ( 
BGl_symbol8045z00zz__objectz00 = 
string_to_symbol("_object-equal?-default1040"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 17 */
obj_t BgL_symbol2676z00_2606;
BgL_symbol2676z00_2606 = BGl_symbol7758z00zz__objectz00; 
{ /* ./Llib/object.scm 17 */

PUSH_TRACE(BgL_symbol2676z00_2606); BUNSPEC; 
{ /* ./Llib/object.scm 17 */
obj_t BgL_aux2675z00_2607;BUNSPEC; BUNSPEC; BUNSPEC; BUNSPEC; BUNSPEC; BUNSPEC; 
BgL_aux2675z00_2607 = BUNSPEC; 
POP_TRACE(); 
return BgL_aux2675z00_2607;} } } } 
}



/* bigloo-generic-bucket-size */
BGL_EXPORTED_DEF int BGl_bigloozd2genericzd2bucketzd2siza7ez75zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 188 */
{ /* ./Llib/object.scm 188 */
obj_t BgL_symbol2680z00_3713;
BgL_symbol2680z00_3713 = BGl_symbol7759z00zz__objectz00; 
{ /* ./Llib/object.scm 188 */

PUSH_TRACE(BgL_symbol2680z00_3713); BUNSPEC; 
{ /* ./Llib/object.scm 188 */
int BgL_aux2679z00_3714;
BgL_aux2679z00_3714 = 
(int)(((long)8)); 
POP_TRACE(); 
return BgL_aux2679z00_3714;} } } } 
}



/* _bigloo-generic-bucket-size */
obj_t BGl__bigloozd2genericzd2bucketzd2siza7ez75zz__objectz00(obj_t BgL_envz00_2738)
{ AN_OBJECT;
{ /* ./Llib/object.scm 188 */
{ /* ./Llib/object.scm 188 */
int BgL_auxz00_4509;
{ /* ./Llib/object.scm 188 */
int BgL_res8046z00_3717;
{ /* ./Llib/object.scm 188 */
obj_t BgL_symbol2680z00_3715;
BgL_symbol2680z00_3715 = BGl_symbol7759z00zz__objectz00; 
{ /* ./Llib/object.scm 188 */

PUSH_TRACE(BgL_symbol2680z00_3715); BUNSPEC; 
{ /* ./Llib/object.scm 188 */
int BgL_aux2679z00_3716;
BgL_aux2679z00_3716 = 
(int)(((long)8)); 
POP_TRACE(); 
BgL_res8046z00_3717 = BgL_aux2679z00_3716; } } } 
BgL_auxz00_4509 = BgL_res8046z00_3717; } 
return 
BINT(BgL_auxz00_4509);} } 
}



/* bigloo-types-number */
BGL_EXPORTED_DEF long bgl_types_number()
{ AN_OBJECT;
{ /* ./Llib/object.scm 197 */
{ /* ./Llib/object.scm 198 */
obj_t BgL_symbol2684z00_2610;
BgL_symbol2684z00_2610 = BGl_symbol7760z00zz__objectz00; 
{ /* ./Llib/object.scm 198 */

PUSH_TRACE(BgL_symbol2684z00_2610); BUNSPEC; 
{ /* ./Llib/object.scm 198 */
long BgL_aux2683z00_2611;
if(
INTEGERP(BGl_za2nbzd2classesza2zd2zz__objectz00))
{ /* ./Llib/object.scm 199 */
long BgL_za72za7_1057;
{ /* ./Llib/object.scm 199 */
obj_t BgL_auxz00_4517;
{ /* ./Llib/object.scm 199 */
obj_t BgL_aux3082z00_2943;
BgL_aux3082z00_2943 = BGl_za2nbzd2classesza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux3082z00_2943))
{ /* ./Llib/object.scm 199 */
BgL_auxz00_4517 = BgL_aux3082z00_2943
; }  else 
{ /* ./Llib/object.scm 199 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7760z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux3082z00_2943, BGl_string7762z00zz__objectz00, 
BINT(((long)9341))); 
exit( -1 );} } 
BgL_za72za7_1057 = 
(long)CINT(BgL_auxz00_4517); } 
BgL_aux2683z00_2611 = 
(OBJECT_TYPE+BgL_za72za7_1057); }  else 
{ /* ./Llib/object.scm 198 */
BgL_aux2683z00_2611 = OBJECT_TYPE; } 
POP_TRACE(); 
return BgL_aux2683z00_2611;} } } } 
}



/* _bigloo-types-number */
obj_t BGl__bigloozd2typeszd2numberz00zz__objectz00(obj_t BgL_envz00_2739)
{ AN_OBJECT;
{ /* ./Llib/object.scm 197 */
{ /* ./Llib/object.scm 198 */
long BgL_auxz00_4526;
BgL_auxz00_4526 = 
bgl_types_number(); 
return 
BINT(BgL_auxz00_4526);} } 
}



/* make-class */
obj_t BGl_makezd2classzd2zz__objectz00(obj_t BgL_namez00_1, long BgL_numz00_2, long BgL_minz00_3, obj_t BgL_superz00_4, obj_t BgL_subz00_5, obj_t BgL_maxz00_6, obj_t BgL_allocz00_7, long BgL_haz00_8, obj_t BgL_fdz00_9, obj_t BgL_constrz00_10, obj_t BgL_virtualz00_11, obj_t BgL_instz00_12)
{ AN_OBJECT;
{ /* ./Llib/object.scm 205 */
{ /* ./Llib/object.scm 206 */
obj_t BgL_symbol2688z00_2612;
BgL_symbol2688z00_2612 = BGl_symbol7763z00zz__objectz00; 
{ /* ./Llib/object.scm 206 */

PUSH_TRACE(BgL_symbol2688z00_2612); BUNSPEC; 
{ /* ./Llib/object.scm 206 */
obj_t BgL_aux2687z00_2613;
{ /* ./Llib/object.scm 206 */
obj_t BgL_v1011z00_1058;
{ 
int BgL_auxz00_4530;
BgL_auxz00_4530 = 
(int)(((long)13)); 
BgL_v1011z00_1058 = 
create_vector(BgL_auxz00_4530); } 
{ 
int BgL_auxz00_4533;
BgL_auxz00_4533 = 
(int)(((long)12)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4533,BGl_makezd2classzd2envz00zz__objectz00); } 
{ 
int BgL_auxz00_4536;
BgL_auxz00_4536 = 
(int)(((long)11)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4536,BgL_instz00_12); } 
{ 
int BgL_auxz00_4539;
BgL_auxz00_4539 = 
(int)(((long)10)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4539,BgL_virtualz00_11); } 
{ 
int BgL_auxz00_4542;
BgL_auxz00_4542 = 
(int)(((long)9)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4542,BgL_constrz00_10); } 
{ 
int BgL_auxz00_4545;
BgL_auxz00_4545 = 
(int)(((long)8)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4545,BgL_fdz00_9); } 
{ 
obj_t BgL_auxz00_4550;int BgL_auxz00_4548;
BgL_auxz00_4550 = 
BINT(BgL_haz00_8); 
BgL_auxz00_4548 = 
(int)(((long)7)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4548,BgL_auxz00_4550); } 
{ 
int BgL_auxz00_4553;
BgL_auxz00_4553 = 
(int)(((long)6)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4553,BgL_allocz00_7); } 
{ 
int BgL_auxz00_4556;
BgL_auxz00_4556 = 
(int)(((long)5)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4556,BgL_maxz00_6); } 
{ 
int BgL_auxz00_4559;
BgL_auxz00_4559 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4559,BgL_subz00_5); } 
{ 
int BgL_auxz00_4562;
BgL_auxz00_4562 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4562,BgL_superz00_4); } 
{ 
obj_t BgL_auxz00_4567;int BgL_auxz00_4565;
BgL_auxz00_4567 = 
BINT(BgL_minz00_3); 
BgL_auxz00_4565 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4565,BgL_auxz00_4567); } 
{ 
obj_t BgL_auxz00_4572;int BgL_auxz00_4570;
BgL_auxz00_4572 = 
BINT(BgL_numz00_2); 
BgL_auxz00_4570 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4570,BgL_auxz00_4572); } 
{ 
int BgL_auxz00_4575;
BgL_auxz00_4575 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1011z00_1058,BgL_auxz00_4575,BgL_namez00_1); } 
BgL_aux2687z00_2613 = BgL_v1011z00_1058; } 
POP_TRACE(); 
return BgL_aux2687z00_2613;} } } } 
}



/* _make-class */
obj_t BGl__makezd2classzd2zz__objectz00(obj_t BgL_envz00_2740, obj_t BgL_namez00_2741, obj_t BgL_numz00_2742, obj_t BgL_minz00_2743, obj_t BgL_superz00_2744, obj_t BgL_subz00_2745, obj_t BgL_maxz00_2746, obj_t BgL_allocz00_2747, obj_t BgL_haz00_2748, obj_t BgL_fdz00_2749, obj_t BgL_constrz00_2750, obj_t BgL_virtualz00_2751, obj_t BgL_instz00_2752)
{ AN_OBJECT;
{ /* ./Llib/object.scm 205 */
{ /* ./Llib/object.scm 206 */
obj_t BgL_auxz00_4615;long BgL_auxz00_4607;obj_t BgL_auxz00_4601;long BgL_auxz00_4593;long BgL_auxz00_4585;obj_t BgL_auxz00_4579;
if(
VECTORP(BgL_virtualz00_2751))
{ /* ./Llib/object.scm 206 */
BgL_auxz00_4615 = BgL_virtualz00_2751
; }  else 
{ /* ./Llib/object.scm 206 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7764z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_virtualz00_2751, BGl_string7762z00zz__objectz00, 
BINT(((long)9679))); 
exit( -1 );} 
{ /* ./Llib/object.scm 206 */
obj_t BgL_auxz00_4608;
if(
INTEGERP(BgL_haz00_2748))
{ /* ./Llib/object.scm 206 */
BgL_auxz00_4608 = BgL_haz00_2748
; }  else 
{ /* ./Llib/object.scm 206 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7764z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_haz00_2748, BGl_string7762z00zz__objectz00, 
BINT(((long)9679))); 
exit( -1 );} 
BgL_auxz00_4607 = 
(long)CINT(BgL_auxz00_4608); } 
if(
PROCEDUREP(BgL_allocz00_2747))
{ /* ./Llib/object.scm 206 */
BgL_auxz00_4601 = BgL_allocz00_2747
; }  else 
{ /* ./Llib/object.scm 206 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7764z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_allocz00_2747, BGl_string7762z00zz__objectz00, 
BINT(((long)9679))); 
exit( -1 );} 
{ /* ./Llib/object.scm 206 */
obj_t BgL_auxz00_4594;
if(
INTEGERP(BgL_minz00_2743))
{ /* ./Llib/object.scm 206 */
BgL_auxz00_4594 = BgL_minz00_2743
; }  else 
{ /* ./Llib/object.scm 206 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7764z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_minz00_2743, BGl_string7762z00zz__objectz00, 
BINT(((long)9679))); 
exit( -1 );} 
BgL_auxz00_4593 = 
(long)CINT(BgL_auxz00_4594); } 
{ /* ./Llib/object.scm 206 */
obj_t BgL_auxz00_4586;
if(
INTEGERP(BgL_numz00_2742))
{ /* ./Llib/object.scm 206 */
BgL_auxz00_4586 = BgL_numz00_2742
; }  else 
{ /* ./Llib/object.scm 206 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7764z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_numz00_2742, BGl_string7762z00zz__objectz00, 
BINT(((long)9679))); 
exit( -1 );} 
BgL_auxz00_4585 = 
(long)CINT(BgL_auxz00_4586); } 
if(
SYMBOLP(BgL_namez00_2741))
{ /* ./Llib/object.scm 206 */
BgL_auxz00_4579 = BgL_namez00_2741
; }  else 
{ /* ./Llib/object.scm 206 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7764z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_namez00_2741, BGl_string7762z00zz__objectz00, 
BINT(((long)9679))); 
exit( -1 );} 
return 
BGl_makezd2classzd2zz__objectz00(BgL_auxz00_4579, BgL_auxz00_4585, BgL_auxz00_4593, BgL_superz00_2744, BgL_subz00_2745, BgL_maxz00_2746, BgL_auxz00_4601, BgL_auxz00_4607, BgL_fdz00_2749, BgL_constrz00_2750, BgL_auxz00_4615, BgL_instz00_2752);} } 
}



/* class? */
BGL_EXPORTED_DEF bool_t BGl_classzf3zf3zz__objectz00(obj_t BgL_objz00_13)
{ AN_OBJECT;
{ /* ./Llib/object.scm 223 */
{ /* ./Llib/object.scm 224 */
bool_t BgL__andtest_1012z00_503;
BgL__andtest_1012z00_503 = 
VECTORP(BgL_objz00_13); 
if(BgL__andtest_1012z00_503)
{ /* ./Llib/object.scm 225 */
bool_t BgL__ortest_1013z00_504;
{ /* ./Llib/object.scm 225 */
bool_t BgL__andtest_1014z00_509;
{ /* ./Llib/object.scm 225 */
int BgL_arg1079z00_511;
{ /* ./Llib/object.scm 225 */
obj_t BgL_vectorz00_1098;
if(BgL__andtest_1012z00_503)
{ /* ./Llib/object.scm 225 */
BgL_vectorz00_1098 = BgL_objz00_13; }  else 
{ /* ./Llib/object.scm 225 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7768z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_objz00_13, BGl_string7762z00zz__objectz00, 
BINT(((long)10649))); 
exit( -1 );} 
BgL_arg1079z00_511 = 
VECTOR_LENGTH(BgL_vectorz00_1098); } 
{ /* ./Llib/object.scm 225 */
long BgL_auxz00_4629;
BgL_auxz00_4629 = 
(long)(BgL_arg1079z00_511); 
BgL__andtest_1014z00_509 = 
(BgL_auxz00_4629==((long)12)); } } 
if(BgL__andtest_1014z00_509)
{ /* ./Llib/object.scm 226 */
obj_t BgL_arg1073z00_510;
{ /* ./Llib/object.scm 226 */
obj_t BgL_vectorz00_1101;int BgL_kz00_1102;
if(
VECTORP(BgL_objz00_13))
{ /* ./Llib/object.scm 226 */
BgL_vectorz00_1101 = BgL_objz00_13; }  else 
{ /* ./Llib/object.scm 226 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7768z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_objz00_13, BGl_string7762z00zz__objectz00, 
BINT(((long)10664))); 
exit( -1 );} 
BgL_kz00_1102 = 
(int)(((long)11)); 
{ /* ./Llib/object.scm 226 */
bool_t BgL_test2430z00_1103;
{ /* ./Llib/object.scm 226 */
int BgL_arg2435z00_1104;
BgL_arg2435z00_1104 = 
VECTOR_LENGTH(BgL_vectorz00_1101); 
BgL_test2430z00_1103 = 
BOUND_CHECK(BgL_kz00_1102, BgL_arg2435z00_1104); } 
if(BgL_test2430z00_1103)
{ /* ./Llib/object.scm 226 */
BgL_arg1073z00_510 = 
VECTOR_REF(BgL_vectorz00_1101,BgL_kz00_1102); }  else 
{ /* ./Llib/object.scm 226 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1102), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1073z00_510 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)10664))); } } } 
BgL__ortest_1013z00_504 = 
(BgL_arg1073z00_510==BGl_makezd2classzd2envz00zz__objectz00); }  else 
{ /* ./Llib/object.scm 225 */
BgL__ortest_1013z00_504 = ((bool_t)0); } } 
if(BgL__ortest_1013z00_504)
{ /* ./Llib/object.scm 225 */
return BgL__ortest_1013z00_504;}  else 
{ /* ./Llib/object.scm 227 */
bool_t BgL__andtest_1015z00_505;
{ /* ./Llib/object.scm 227 */
int BgL_arg1068z00_507;
{ /* ./Llib/object.scm 227 */
obj_t BgL_vectorz00_1109;
if(
VECTORP(BgL_objz00_13))
{ /* ./Llib/object.scm 227 */
BgL_vectorz00_1109 = BgL_objz00_13; }  else 
{ /* ./Llib/object.scm 227 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7768z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_objz00_13, BGl_string7762z00zz__objectz00, 
BINT(((long)10729))); 
exit( -1 );} 
BgL_arg1068z00_507 = 
VECTOR_LENGTH(BgL_vectorz00_1109); } 
{ /* ./Llib/object.scm 227 */
long BgL_auxz00_4655;
BgL_auxz00_4655 = 
(long)(BgL_arg1068z00_507); 
BgL__andtest_1015z00_505 = 
(BgL_auxz00_4655==((long)13)); } } 
if(BgL__andtest_1015z00_505)
{ /* ./Llib/object.scm 228 */
obj_t BgL_arg1064z00_506;
{ /* ./Llib/object.scm 228 */
obj_t BgL_vectorz00_1112;int BgL_kz00_1113;
if(
VECTORP(BgL_objz00_13))
{ /* ./Llib/object.scm 228 */
BgL_vectorz00_1112 = BgL_objz00_13; }  else 
{ /* ./Llib/object.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7768z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_objz00_13, BGl_string7762z00zz__objectz00, 
BINT(((long)10744))); 
exit( -1 );} 
BgL_kz00_1113 = 
(int)(((long)12)); 
{ /* ./Llib/object.scm 228 */
bool_t BgL_test2430z00_1114;
{ /* ./Llib/object.scm 228 */
int BgL_arg2435z00_1115;
BgL_arg2435z00_1115 = 
VECTOR_LENGTH(BgL_vectorz00_1112); 
BgL_test2430z00_1114 = 
BOUND_CHECK(BgL_kz00_1113, BgL_arg2435z00_1115); } 
if(BgL_test2430z00_1114)
{ /* ./Llib/object.scm 228 */
BgL_arg1064z00_506 = 
VECTOR_REF(BgL_vectorz00_1112,BgL_kz00_1113); }  else 
{ /* ./Llib/object.scm 228 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1113), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1064z00_506 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)10744))); } } } 
return 
(BgL_arg1064z00_506==BGl_makezd2classzd2envz00zz__objectz00);}  else 
{ /* ./Llib/object.scm 227 */
return ((bool_t)0);} } }  else 
{ /* ./Llib/object.scm 224 */
return ((bool_t)0);} } } 
}



/* _class? */
obj_t BGl__classzf3zf3zz__objectz00(obj_t BgL_envz00_2753, obj_t BgL_objz00_2754)
{ AN_OBJECT;
{ /* ./Llib/object.scm 223 */
{ /* ./Llib/object.scm 224 */
bool_t BgL_auxz00_4674;
BgL_auxz00_4674 = 
BGl_classzf3zf3zz__objectz00(BgL_objz00_2754); 
return 
BBOOL(BgL_auxz00_4674);} } 
}



/* class-name */
BGL_EXPORTED_DEF obj_t BGl_classzd2namezd2zz__objectz00(obj_t BgL_classz00_14)
{ AN_OBJECT;
{ /* ./Llib/object.scm 233 */
{ /* ./Llib/object.scm 234 */
obj_t BgL_vectorz00_1120;int BgL_kz00_1121;
if(
VECTORP(BgL_classz00_14))
{ /* ./Llib/object.scm 234 */
BgL_vectorz00_1120 = BgL_classz00_14; }  else 
{ /* ./Llib/object.scm 234 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7771z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_14, BGl_string7762z00zz__objectz00, 
BINT(((long)11033))); 
exit( -1 );} 
BgL_kz00_1121 = 
(int)(((long)0)); 
{ /* ./Llib/object.scm 234 */
bool_t BgL_test2430z00_1122;
{ /* ./Llib/object.scm 234 */
int BgL_arg2435z00_1123;
BgL_arg2435z00_1123 = 
VECTOR_LENGTH(BgL_vectorz00_1120); 
BgL_test2430z00_1122 = 
BOUND_CHECK(BgL_kz00_1121, BgL_arg2435z00_1123); } 
if(BgL_test2430z00_1122)
{ /* ./Llib/object.scm 234 */
obj_t BgL_aux3246z00_2967;
BgL_aux3246z00_2967 = 
VECTOR_REF(BgL_vectorz00_1120,BgL_kz00_1121); 
if(
SYMBOLP(BgL_aux3246z00_2967))
{ /* ./Llib/object.scm 234 */
return BgL_aux3246z00_2967;}  else 
{ /* ./Llib/object.scm 234 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7771z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_aux3246z00_2967, BGl_string7762z00zz__objectz00, 
BINT(((long)11033))); 
exit( -1 );} }  else 
{ /* ./Llib/object.scm 234 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1121), "./Ieee/vector.scm", ((long)5865)); 
{ /* ./Llib/object.scm 234 */
obj_t BgL_aux3264z00_2969;
BgL_aux3264z00_2969 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)11033))); 
if(
SYMBOLP(BgL_aux3264z00_2969))
{ /* ./Llib/object.scm 234 */
return BgL_aux3264z00_2969;}  else 
{ /* ./Llib/object.scm 234 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7771z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_aux3264z00_2969, BGl_string7762z00zz__objectz00, 
BINT(((long)11033))); 
exit( -1 );} } } } } } 
}



/* _class-name */
obj_t BGl__classzd2namezd2zz__objectz00(obj_t BgL_envz00_2755, obj_t BgL_classz00_2756)
{ AN_OBJECT;
{ /* ./Llib/object.scm 233 */
return 
BGl_classzd2namezd2zz__objectz00(BgL_classz00_2756);} 
}



/* class-num */
BGL_EXPORTED_DEF long BGl_classzd2numzd2zz__objectz00(obj_t BgL_classz00_15)
{ AN_OBJECT;
{ /* ./Llib/object.scm 239 */
{ /* ./Llib/object.scm 240 */
obj_t BgL_vectorz00_1128;int BgL_kz00_1129;
if(
VECTORP(BgL_classz00_15))
{ /* ./Llib/object.scm 240 */
BgL_vectorz00_1128 = BgL_classz00_15; }  else 
{ /* ./Llib/object.scm 240 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7772z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_15, BGl_string7762z00zz__objectz00, 
BINT(((long)11326))); 
exit( -1 );} 
BgL_kz00_1129 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 240 */
obj_t BgL_auxz00_4708;
{ /* ./Llib/object.scm 240 */
obj_t BgL_aux3285z00_2973;
BgL_aux3285z00_2973 = 
VECTOR_REF(BgL_vectorz00_1128,BgL_kz00_1129); 
if(
INTEGERP(BgL_aux3285z00_2973))
{ /* ./Llib/object.scm 240 */
BgL_auxz00_4708 = BgL_aux3285z00_2973
; }  else 
{ /* ./Llib/object.scm 240 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7772z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux3285z00_2973, BGl_string7762z00zz__objectz00, 
BINT(((long)11307))); 
exit( -1 );} } 
return 
(long)CINT(BgL_auxz00_4708);} } } 
}



/* _class-num */
obj_t BGl__classzd2numzd2zz__objectz00(obj_t BgL_envz00_2757, obj_t BgL_classz00_2758)
{ AN_OBJECT;
{ /* ./Llib/object.scm 239 */
{ /* ./Llib/object.scm 240 */
long BgL_auxz00_4716;
BgL_auxz00_4716 = 
BGl_classzd2numzd2zz__objectz00(BgL_classz00_2758); 
return 
BINT(BgL_auxz00_4716);} } 
}



/* class-virtual */
BGL_EXPORTED_DEF obj_t BGl_classzd2virtualzd2zz__objectz00(obj_t BgL_classz00_22)
{ AN_OBJECT;
{ /* ./Llib/object.scm 269 */
{ /* ./Llib/object.scm 270 */
obj_t BgL_symbol2692z00_3718;
BgL_symbol2692z00_3718 = BGl_symbol7773z00zz__objectz00; 
{ /* ./Llib/object.scm 270 */

PUSH_TRACE(BgL_symbol2692z00_3718); BUNSPEC; 
{ /* ./Llib/object.scm 270 */
obj_t BgL_aux2691z00_3719;
{ /* ./Llib/object.scm 270 */
int BgL_kz00_3720;
BgL_kz00_3720 = 
(int)(((long)10)); 
{ /* ./Llib/object.scm 270 */
obj_t BgL_aux3298z00_3721;
BgL_aux3298z00_3721 = 
VECTOR_REF(BgL_classz00_22,BgL_kz00_3720); 
if(
VECTORP(BgL_aux3298z00_3721))
{ /* ./Llib/object.scm 270 */
BgL_aux2691z00_3719 = BgL_aux3298z00_3721; }  else 
{ /* ./Llib/object.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7773z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux3298z00_3721, BGl_string7762z00zz__objectz00, 
BINT(((long)12767))); 
exit( -1 );} } } 
POP_TRACE(); 
return BgL_aux2691z00_3719;} } } } 
}



/* _class-virtual */
obj_t BGl__classzd2virtualzd2zz__objectz00(obj_t BgL_envz00_2759, obj_t BgL_classz00_2760)
{ AN_OBJECT;
{ /* ./Llib/object.scm 269 */
{ /* ./Llib/object.scm 270 */
obj_t BgL_res8047z00_3727;
{ /* ./Llib/object.scm 270 */
obj_t BgL_classz00_3722;
if(
VECTORP(BgL_classz00_2760))
{ /* ./Llib/object.scm 270 */
BgL_classz00_3722 = BgL_classz00_2760; }  else 
{ /* ./Llib/object.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7774z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_2760, BGl_string7762z00zz__objectz00, 
BINT(((long)12767))); 
exit( -1 );} 
{ /* ./Llib/object.scm 270 */
obj_t BgL_symbol2692z00_3723;
BgL_symbol2692z00_3723 = BGl_symbol7773z00zz__objectz00; 
{ /* ./Llib/object.scm 270 */

PUSH_TRACE(BgL_symbol2692z00_3723); BUNSPEC; 
{ /* ./Llib/object.scm 270 */
obj_t BgL_aux2691z00_3724;
{ /* ./Llib/object.scm 270 */
int BgL_kz00_3725;
BgL_kz00_3725 = 
(int)(((long)10)); 
{ /* ./Llib/object.scm 270 */
obj_t BgL_aux3298z00_3726;
BgL_aux3298z00_3726 = 
VECTOR_REF(BgL_classz00_3722,BgL_kz00_3725); 
if(
VECTORP(BgL_aux3298z00_3726))
{ /* ./Llib/object.scm 270 */
BgL_aux2691z00_3724 = BgL_aux3298z00_3726; }  else 
{ /* ./Llib/object.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7773z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux3298z00_3726, BGl_string7762z00zz__objectz00, 
BINT(((long)12767))); 
exit( -1 );} } } 
POP_TRACE(); 
BgL_res8047z00_3727 = BgL_aux2691z00_3724; } } } } 
return BgL_res8047z00_3727;} } 
}



/* class-fields */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldszd2zz__objectz00(obj_t BgL_classz00_23)
{ AN_OBJECT;
{ /* ./Llib/object.scm 275 */
{ /* ./Llib/object.scm 276 */
obj_t BgL_symbol2696z00_2616;
BgL_symbol2696z00_2616 = BGl_symbol7775z00zz__objectz00; 
{ /* ./Llib/object.scm 276 */

PUSH_TRACE(BgL_symbol2696z00_2616); BUNSPEC; 
{ /* ./Llib/object.scm 276 */
obj_t BgL_aux2695z00_2617;
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_23))
{ /* ./Llib/object.scm 277 */
obj_t BgL_vectorz00_1142;int BgL_kz00_1143;
if(
VECTORP(BgL_classz00_23))
{ /* ./Llib/object.scm 277 */
BgL_vectorz00_1142 = BgL_classz00_23; }  else 
{ /* ./Llib/object.scm 277 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7775z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_23, BGl_string7762z00zz__objectz00, 
BINT(((long)13090))); 
exit( -1 );} 
BgL_kz00_1143 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 277 */
bool_t BgL_test2430z00_1144;
{ /* ./Llib/object.scm 277 */
int BgL_arg2435z00_1145;
BgL_arg2435z00_1145 = 
VECTOR_LENGTH(BgL_vectorz00_1142); 
BgL_test2430z00_1144 = 
BOUND_CHECK(BgL_kz00_1143, BgL_arg2435z00_1145); } 
if(BgL_test2430z00_1144)
{ /* ./Llib/object.scm 277 */
BgL_aux2695z00_2617 = 
VECTOR_REF(BgL_vectorz00_1142,BgL_kz00_1143); }  else 
{ /* ./Llib/object.scm 277 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1143), "./Ieee/vector.scm", ((long)5865)); 
BgL_aux2695z00_2617 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)13074))); } } }  else 
{ /* ./Llib/object.scm 276 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7776z00zz__objectz00, 
BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(BGl_string7777z00zz__objectz00, BGl_string7778z00zz__objectz00, 
BGl_findzd2runtimezd2typez00zz__errorz00(BgL_classz00_23)), BgL_classz00_23, "./Llib/object.scm", ((long)13102)); 
BgL_aux2695z00_2617 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)13131))); } 
POP_TRACE(); 
return BgL_aux2695z00_2617;} } } } 
}



/* _class-fields */
obj_t BGl__classzd2fieldszd2zz__objectz00(obj_t BgL_envz00_2761, obj_t BgL_classz00_2762)
{ AN_OBJECT;
{ /* ./Llib/object.scm 275 */
return 
BGl_classzd2fieldszd2zz__objectz00(BgL_classz00_2762);} 
}



/* class-all-fields */
BGL_EXPORTED_DEF obj_t BGl_classzd2allzd2fieldsz00zz__objectz00(obj_t BgL_classz00_24)
{ AN_OBJECT;
{ /* ./Llib/object.scm 287 */
{ /* ./Llib/object.scm 288 */
obj_t BgL_symbol2700z00_2618;
BgL_symbol2700z00_2618 = BGl_symbol7779z00zz__objectz00; 
{ /* ./Llib/object.scm 288 */

PUSH_TRACE(BgL_symbol2700z00_2618); BUNSPEC; 
{ /* ./Llib/object.scm 288 */
obj_t BgL_aux2699z00_2619;
{ /* ./Llib/object.scm 288 */
obj_t BgL_fieldsz00_521;obj_t BgL_superz00_522;
{ /* ./Llib/object.scm 288 */
obj_t BgL_fieldsz00_525;
BgL_fieldsz00_525 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_classz00_24); 
{ /* ./Llib/object.scm 289 */
bool_t BgL_testz00_4768;
{ /* ./Llib/object.scm 289 */
bool_t BgL__ortest_1020z00_1154;
BgL__ortest_1020z00_1154 = 
PAIRP(BgL_fieldsz00_525); 
if(BgL__ortest_1020z00_1154)
{ /* ./Llib/object.scm 289 */
BgL_testz00_4768 = BgL__ortest_1020z00_1154
; }  else 
{ /* ./Llib/object.scm 289 */
BgL_testz00_4768 = 
NULLP(BgL_fieldsz00_525)
; } } 
if(BgL_testz00_4768)
{ /* ./Llib/object.scm 289 */
BgL_fieldsz00_521 = BgL_fieldsz00_525; }  else 
{ /* ./Llib/object.scm 289 */
BgL_fieldsz00_521 = BNIL; } } } 
{ /* ./Llib/object.scm 292 */
obj_t BgL_vectorz00_1159;int BgL_kz00_1160;
if(
VECTORP(BgL_classz00_24))
{ /* ./Llib/object.scm 292 */
BgL_vectorz00_1159 = BgL_classz00_24; }  else 
{ /* ./Llib/object.scm 292 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7779z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_24, BGl_string7762z00zz__objectz00, 
BINT(((long)13616))); 
exit( -1 );} 
BgL_kz00_1160 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 292 */
bool_t BgL_test2430z00_1161;
{ /* ./Llib/object.scm 292 */
int BgL_arg2435z00_1162;
BgL_arg2435z00_1162 = 
VECTOR_LENGTH(BgL_vectorz00_1159); 
BgL_test2430z00_1161 = 
BOUND_CHECK(BgL_kz00_1160, BgL_arg2435z00_1162); } 
if(BgL_test2430z00_1161)
{ /* ./Llib/object.scm 292 */
BgL_superz00_522 = 
VECTOR_REF(BgL_vectorz00_1159,BgL_kz00_1160); }  else 
{ /* ./Llib/object.scm 292 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1160), "./Ieee/vector.scm", ((long)5865)); 
BgL_superz00_522 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)13616))); } } } 
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_522))
{ /* ./Llib/object.scm 294 */
obj_t BgL_arg1109z00_524;
BgL_arg1109z00_524 = 
BGl_classzd2allzd2fieldsz00zz__objectz00(BgL_superz00_522); 
{ /* ./Llib/object.scm 294 */
obj_t BgL_auxz00_4789;
{ /* ./Llib/object.scm 294 */
bool_t BgL_testz00_4790;
if(
PAIRP(BgL_arg1109z00_524))
{ /* ./Llib/object.scm 294 */
BgL_testz00_4790 = ((bool_t)1)
; }  else 
{ /* ./Llib/object.scm 294 */
BgL_testz00_4790 = 
NULLP(BgL_arg1109z00_524)
; } 
if(BgL_testz00_4790)
{ /* ./Llib/object.scm 294 */
BgL_auxz00_4789 = BgL_arg1109z00_524
; }  else 
{ /* ./Llib/object.scm 294 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7779z00zz__objectz00, BGl_string7780z00zz__objectz00, BgL_arg1109z00_524, BGl_string7762z00zz__objectz00, 
BINT(((long)13697))); 
exit( -1 );} } 
BgL_aux2699z00_2619 = 
bgl_append2(BgL_auxz00_4789, BgL_fieldsz00_521); } }  else 
{ /* ./Llib/object.scm 293 */
BgL_aux2699z00_2619 = BgL_fieldsz00_521; } } 
POP_TRACE(); 
return BgL_aux2699z00_2619;} } } } 
}



/* _class-all-fields */
obj_t BGl__classzd2allzd2fieldsz00zz__objectz00(obj_t BgL_envz00_2763, obj_t BgL_classz00_2764)
{ AN_OBJECT;
{ /* ./Llib/object.scm 287 */
return 
BGl_classzd2allzd2fieldsz00zz__objectz00(BgL_classz00_2764);} 
}



/* find-class-field */
BGL_EXPORTED_DEF obj_t BGl_findzd2classzd2fieldz00zz__objectz00(obj_t BgL_classz00_25, obj_t BgL_namez00_26)
{ AN_OBJECT;
{ /* ./Llib/object.scm 300 */
{ /* ./Llib/object.scm 308 */
obj_t BgL_symbol2704z00_2620;
BgL_symbol2704z00_2620 = BGl_symbol7781z00zz__objectz00; 
{ /* ./Llib/object.scm 308 */

PUSH_TRACE(BgL_symbol2704z00_2620); BUNSPEC; 
{ /* ./Llib/object.scm 308 */
obj_t BgL_aux2703z00_2621;
{ 
obj_t BgL_fieldsz00_536;
{ 
obj_t BgL_classz00_528;
BgL_classz00_528 = BgL_classz00_25; 
BgL_loopz00_529:
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_528))
{ /* ./Llib/object.scm 311 */
obj_t BgL_fieldsz00_531;
BgL_fieldsz00_531 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_classz00_528); 
{ /* ./Llib/object.scm 312 */
bool_t BgL_test1119z00_532;
{ /* ./Llib/object.scm 312 */
bool_t BgL__ortest_1020z00_1168;
BgL__ortest_1020z00_1168 = 
PAIRP(BgL_fieldsz00_531); 
if(BgL__ortest_1020z00_1168)
{ /* ./Llib/object.scm 312 */
BgL_test1119z00_532 = BgL__ortest_1020z00_1168; }  else 
{ /* ./Llib/object.scm 312 */
BgL_test1119z00_532 = 
NULLP(BgL_fieldsz00_531); } } 
if(BgL_test1119z00_532)
{ /* ./Llib/object.scm 313 */
obj_t BgL_resz00_533;
BgL_fieldsz00_536 = BgL_fieldsz00_531; 
BgL_zc3anonymousza31128za3llibzf2objectze2scmza3309ze3z93_537:
if(
NULLP(BgL_fieldsz00_536))
{ /* ./Llib/object.scm 303 */
BgL_resz00_533 = BFALSE; }  else 
{ /* ./Llib/object.scm 305 */
bool_t BgL_test1130z00_539;
{ /* ./Llib/object.scm 305 */
obj_t BgL_arg1137z00_541;
{ /* ./Llib/object.scm 305 */
obj_t BgL_arg1140z00_542;
{ /* ./Llib/object.scm 305 */
obj_t BgL_pairz00_1182;
if(
PAIRP(BgL_fieldsz00_536))
{ /* ./Llib/object.scm 305 */
BgL_pairz00_1182 = BgL_fieldsz00_536; }  else 
{ /* ./Llib/object.scm 305 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7781z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_fieldsz00_536, BGl_string7762z00zz__objectz00, 
BINT(((long)14110))); 
exit( -1 );} 
BgL_arg1140z00_542 = 
CAR(BgL_pairz00_1182); } 
BgL_arg1137z00_541 = 
BGl_classzd2fieldzd2namez00zz__objectz00(BgL_arg1140z00_542); } 
BgL_test1130z00_539 = 
(BgL_arg1137z00_541==BgL_namez00_26); } 
if(BgL_test1130z00_539)
{ /* ./Llib/object.scm 305 */
{ /* ./Llib/object.scm 306 */
obj_t BgL_pairz00_1183;
if(
PAIRP(BgL_fieldsz00_536))
{ /* ./Llib/object.scm 306 */
BgL_pairz00_1183 = BgL_fieldsz00_536; }  else 
{ /* ./Llib/object.scm 306 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7781z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_fieldsz00_536, BGl_string7762z00zz__objectz00, 
BINT(((long)14140))); 
exit( -1 );} 
BgL_resz00_533 = 
CAR(BgL_pairz00_1183); } }  else 
{ /* ./Llib/object.scm 305 */
{ /* ./Llib/object.scm 308 */
obj_t BgL_arg1133z00_540;
{ /* ./Llib/object.scm 308 */
obj_t BgL_pairz00_1184;
if(
PAIRP(BgL_fieldsz00_536))
{ /* ./Llib/object.scm 308 */
BgL_pairz00_1184 = BgL_fieldsz00_536; }  else 
{ /* ./Llib/object.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7781z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_fieldsz00_536, BGl_string7762z00zz__objectz00, 
BINT(((long)14187))); 
exit( -1 );} 
BgL_arg1133z00_540 = 
CDR(BgL_pairz00_1184); } 
{ 
obj_t BgL_fieldsz00_4831;
BgL_fieldsz00_4831 = BgL_arg1133z00_540; 
BgL_fieldsz00_536 = BgL_fieldsz00_4831; 
goto BgL_zc3anonymousza31128za3llibzf2objectze2scmza3309ze3z93_537;} } } } 
if(
CBOOL(BgL_resz00_533))
{ /* ./Llib/object.scm 314 */
BgL_aux2703z00_2621 = BgL_resz00_533; }  else 
{ /* ./Llib/object.scm 314 */
obj_t BgL_arg1121z00_535;
{ /* ./Llib/object.scm 314 */
obj_t BgL_vectorz00_1173;int BgL_kz00_1174;
if(
VECTORP(BgL_classz00_528))
{ /* ./Llib/object.scm 314 */
BgL_vectorz00_1173 = BgL_classz00_528; }  else 
{ /* ./Llib/object.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7781z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_528, BGl_string7762z00zz__objectz00, 
BINT(((long)14373))); 
exit( -1 );} 
BgL_kz00_1174 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 314 */
bool_t BgL_test2430z00_1175;
{ /* ./Llib/object.scm 314 */
int BgL_arg2435z00_1176;
BgL_arg2435z00_1176 = 
VECTOR_LENGTH(BgL_vectorz00_1173); 
BgL_test2430z00_1175 = 
BOUND_CHECK(BgL_kz00_1174, BgL_arg2435z00_1176); } 
if(BgL_test2430z00_1175)
{ /* ./Llib/object.scm 314 */
BgL_arg1121z00_535 = 
VECTOR_REF(BgL_vectorz00_1173,BgL_kz00_1174); }  else 
{ /* ./Llib/object.scm 314 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1174), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1121z00_535 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)14373))); } } } 
{ 
obj_t BgL_classz00_4848;
BgL_classz00_4848 = BgL_arg1121z00_535; 
BgL_classz00_528 = BgL_classz00_4848; 
goto BgL_loopz00_529;} } }  else 
{ /* ./Llib/object.scm 312 */
BgL_aux2703z00_2621 = BFALSE; } } }  else 
{ /* ./Llib/object.scm 310 */
BgL_aux2703z00_2621 = BFALSE; } } } 
POP_TRACE(); 
return BgL_aux2703z00_2621;} } } } 
}



/* _find-class-field */
obj_t BGl__findzd2classzd2fieldz00zz__objectz00(obj_t BgL_envz00_2765, obj_t BgL_classz00_2766, obj_t BgL_namez00_2767)
{ AN_OBJECT;
{ /* ./Llib/object.scm 300 */
{ /* ./Llib/object.scm 308 */
obj_t BgL_auxz00_4850;
if(
SYMBOLP(BgL_namez00_2767))
{ /* ./Llib/object.scm 308 */
BgL_auxz00_4850 = BgL_namez00_2767
; }  else 
{ /* ./Llib/object.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7783z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_namez00_2767, BGl_string7762z00zz__objectz00, 
BINT(((long)14192))); 
exit( -1 );} 
return 
BGl_findzd2classzd2fieldz00zz__objectz00(BgL_classz00_2766, BgL_auxz00_4850);} } 
}



/* make-class-field */
BGL_EXPORTED_DEF obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t BgL_namez00_27, obj_t BgL_getterz00_28, obj_t BgL_setterz00_29, obj_t BgL_indexedz00_30, bool_t BgL_virtualz00_31, obj_t BgL_infoz00_32)
{ AN_OBJECT;
{ /* ./Llib/object.scm 320 */
{ /* ./Llib/object.scm 321 */
obj_t BgL_symbol2708z00_2622;
BgL_symbol2708z00_2622 = BGl_symbol7784z00zz__objectz00; 
{ /* ./Llib/object.scm 321 */

PUSH_TRACE(BgL_symbol2708z00_2622); BUNSPEC; 
{ /* ./Llib/object.scm 321 */
obj_t BgL_aux2707z00_2623;
{ /* ./Llib/object.scm 321 */
obj_t BgL_v1017z00_1185;
{ 
int BgL_auxz00_4858;
BgL_auxz00_4858 = 
(int)(((long)7)); 
BgL_v1017z00_1185 = 
create_vector(BgL_auxz00_4858); } 
{ 
int BgL_auxz00_4861;
BgL_auxz00_4861 = 
(int)(((long)6)); 
VECTOR_SET(BgL_v1017z00_1185,BgL_auxz00_4861,BgL_infoz00_32); } 
{ 
int BgL_auxz00_4864;
BgL_auxz00_4864 = 
(int)(((long)5)); 
VECTOR_SET(BgL_v1017z00_1185,BgL_auxz00_4864,BGl_makezd2classzd2fieldzd2envzd2zz__objectz00); } 
{ 
obj_t BgL_auxz00_4869;int BgL_auxz00_4867;
BgL_auxz00_4869 = 
BBOOL(BgL_virtualz00_31); 
BgL_auxz00_4867 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1017z00_1185,BgL_auxz00_4867,BgL_auxz00_4869); } 
{ 
int BgL_auxz00_4872;
BgL_auxz00_4872 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1017z00_1185,BgL_auxz00_4872,BgL_indexedz00_30); } 
{ 
int BgL_auxz00_4875;
BgL_auxz00_4875 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1017z00_1185,BgL_auxz00_4875,BgL_setterz00_29); } 
{ 
int BgL_auxz00_4878;
BgL_auxz00_4878 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1017z00_1185,BgL_auxz00_4878,BgL_getterz00_28); } 
{ 
int BgL_auxz00_4881;
BgL_auxz00_4881 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1017z00_1185,BgL_auxz00_4881,BgL_namez00_27); } 
BgL_aux2707z00_2623 = BgL_v1017z00_1185; } 
POP_TRACE(); 
return BgL_aux2707z00_2623;} } } } 
}



/* _make-class-field */
obj_t BGl__makezd2classzd2fieldz00zz__objectz00(obj_t BgL_envz00_2768, obj_t BgL_namez00_2769, obj_t BgL_getterz00_2770, obj_t BgL_setterz00_2771, obj_t BgL_indexedz00_2772, obj_t BgL_virtualz00_2773, obj_t BgL_infoz00_2774)
{ AN_OBJECT;
{ /* ./Llib/object.scm 320 */
{ /* ./Llib/object.scm 321 */
obj_t BgL_auxz00_4885;
if(
SYMBOLP(BgL_namez00_2769))
{ /* ./Llib/object.scm 321 */
BgL_auxz00_4885 = BgL_namez00_2769
; }  else 
{ /* ./Llib/object.scm 321 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7785z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_namez00_2769, BGl_string7762z00zz__objectz00, 
BINT(((long)14700))); 
exit( -1 );} 
return 
BGl_makezd2classzd2fieldz00zz__objectz00(BgL_auxz00_4885, BgL_getterz00_2770, BgL_setterz00_2771, BgL_indexedz00_2772, 
CBOOL(BgL_virtualz00_2773), BgL_infoz00_2774);} } 
}



/* class-field? */
BGL_EXPORTED_DEF bool_t BGl_classzd2fieldzf3z21zz__objectz00(obj_t BgL_objz00_33)
{ AN_OBJECT;
{ /* ./Llib/object.scm 326 */
{ /* ./Llib/object.scm 327 */
obj_t BgL_symbol2712z00_2624;
BgL_symbol2712z00_2624 = BGl_symbol7786z00zz__objectz00; 
{ /* ./Llib/object.scm 327 */

PUSH_TRACE(BgL_symbol2712z00_2624); BUNSPEC; 
{ /* ./Llib/object.scm 327 */
bool_t BgL_aux2711z00_2625;
{ /* ./Llib/object.scm 327 */
bool_t BgL__andtest_1018z00_545;
BgL__andtest_1018z00_545 = 
VECTORP(BgL_objz00_33); 
if(BgL__andtest_1018z00_545)
{ /* ./Llib/object.scm 328 */
bool_t BgL__andtest_1019z00_546;
{ /* ./Llib/object.scm 328 */
int BgL_arg1158z00_548;
{ /* ./Llib/object.scm 328 */
obj_t BgL_vectorz00_1207;
if(BgL__andtest_1018z00_545)
{ /* ./Llib/object.scm 328 */
BgL_vectorz00_1207 = BgL_objz00_33; }  else 
{ /* ./Llib/object.scm 328 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7786z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_objz00_33, BGl_string7762z00zz__objectz00, 
BINT(((long)15062))); 
exit( -1 );} 
BgL_arg1158z00_548 = 
VECTOR_LENGTH(BgL_vectorz00_1207); } 
{ /* ./Llib/object.scm 328 */
long BgL_auxz00_4901;
BgL_auxz00_4901 = 
(long)(BgL_arg1158z00_548); 
BgL__andtest_1019z00_546 = 
(BgL_auxz00_4901==((long)7)); } } 
if(BgL__andtest_1019z00_546)
{ /* ./Llib/object.scm 329 */
obj_t BgL_arg1153z00_547;
{ /* ./Llib/object.scm 329 */
obj_t BgL_vectorz00_1210;int BgL_kz00_1211;
if(
VECTORP(BgL_objz00_33))
{ /* ./Llib/object.scm 329 */
BgL_vectorz00_1210 = BgL_objz00_33; }  else 
{ /* ./Llib/object.scm 329 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7786z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_objz00_33, BGl_string7762z00zz__objectz00, 
BINT(((long)15074))); 
exit( -1 );} 
BgL_kz00_1211 = 
(int)(((long)5)); 
{ /* ./Llib/object.scm 329 */
bool_t BgL_test2430z00_1212;
{ /* ./Llib/object.scm 329 */
int BgL_arg2435z00_1213;
BgL_arg2435z00_1213 = 
VECTOR_LENGTH(BgL_vectorz00_1210); 
BgL_test2430z00_1212 = 
BOUND_CHECK(BgL_kz00_1211, BgL_arg2435z00_1213); } 
if(BgL_test2430z00_1212)
{ /* ./Llib/object.scm 329 */
BgL_arg1153z00_547 = 
VECTOR_REF(BgL_vectorz00_1210,BgL_kz00_1211); }  else 
{ /* ./Llib/object.scm 329 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1211), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1153z00_547 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)15074))); } } } 
BgL_aux2711z00_2625 = 
(BgL_arg1153z00_547==BGl_makezd2classzd2fieldzd2envzd2zz__objectz00); }  else 
{ /* ./Llib/object.scm 328 */
BgL_aux2711z00_2625 = ((bool_t)0); } }  else 
{ /* ./Llib/object.scm 327 */
BgL_aux2711z00_2625 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2711z00_2625;} } } } 
}



/* _class-field? */
obj_t BGl__classzd2fieldzf3z21zz__objectz00(obj_t BgL_envz00_2775, obj_t BgL_objz00_2776)
{ AN_OBJECT;
{ /* ./Llib/object.scm 326 */
{ /* ./Llib/object.scm 327 */
bool_t BgL_auxz00_4921;
BgL_auxz00_4921 = 
BGl_classzd2fieldzf3z21zz__objectz00(BgL_objz00_2776); 
return 
BBOOL(BgL_auxz00_4921);} } 
}



/* class-fields? */
BGL_EXPORTED_DEF bool_t BGl_classzd2fieldszf3z21zz__objectz00(obj_t BgL_fieldsz00_34)
{ AN_OBJECT;
{ /* ./Llib/object.scm 334 */
{ /* ./Llib/object.scm 335 */
obj_t BgL_symbol2716z00_3733;
BgL_symbol2716z00_3733 = BGl_symbol7787z00zz__objectz00; 
{ /* ./Llib/object.scm 335 */

PUSH_TRACE(BgL_symbol2716z00_3733); BUNSPEC; 
{ /* ./Llib/object.scm 335 */
bool_t BgL_aux2715z00_3734;
{ /* ./Llib/object.scm 335 */
bool_t BgL__ortest_1020z00_3735;
BgL__ortest_1020z00_3735 = 
PAIRP(BgL_fieldsz00_34); 
if(BgL__ortest_1020z00_3735)
{ /* ./Llib/object.scm 335 */
BgL_aux2715z00_3734 = BgL__ortest_1020z00_3735; }  else 
{ /* ./Llib/object.scm 335 */
BgL_aux2715z00_3734 = 
NULLP(BgL_fieldsz00_34); } } 
POP_TRACE(); 
return BgL_aux2715z00_3734;} } } } 
}



/* _class-fields? */
obj_t BGl__classzd2fieldszf3z21zz__objectz00(obj_t BgL_envz00_2777, obj_t BgL_fieldsz00_2778)
{ AN_OBJECT;
{ /* ./Llib/object.scm 334 */
{ /* ./Llib/object.scm 335 */
bool_t BgL_auxz00_4929;
{ /* ./Llib/object.scm 335 */
bool_t BgL_res8049z00_3740;
{ /* ./Llib/object.scm 335 */
obj_t BgL_symbol2716z00_3737;
BgL_symbol2716z00_3737 = BGl_symbol7787z00zz__objectz00; 
{ /* ./Llib/object.scm 335 */

PUSH_TRACE(BgL_symbol2716z00_3737); BUNSPEC; 
{ /* ./Llib/object.scm 335 */
bool_t BgL_aux2715z00_3738;
{ /* ./Llib/object.scm 335 */
bool_t BgL__ortest_1020z00_3739;
BgL__ortest_1020z00_3739 = 
PAIRP(BgL_fieldsz00_2778); 
if(BgL__ortest_1020z00_3739)
{ /* ./Llib/object.scm 335 */
BgL_aux2715z00_3738 = BgL__ortest_1020z00_3739; }  else 
{ /* ./Llib/object.scm 335 */
BgL_aux2715z00_3738 = 
NULLP(BgL_fieldsz00_2778); } } 
POP_TRACE(); 
BgL_res8049z00_3740 = BgL_aux2715z00_3738; } } } 
BgL_auxz00_4929 = BgL_res8049z00_3740; } 
return 
BBOOL(BgL_auxz00_4929);} } 
}



/* class-field-name */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldzd2namez00zz__objectz00(obj_t BgL_fieldz00_35)
{ AN_OBJECT;
{ /* ./Llib/object.scm 340 */
{ /* ./Llib/object.scm 341 */
obj_t BgL_symbol2720z00_2628;
BgL_symbol2720z00_2628 = BGl_symbol7788z00zz__objectz00; 
{ /* ./Llib/object.scm 341 */

PUSH_TRACE(BgL_symbol2720z00_2628); BUNSPEC; 
{ /* ./Llib/object.scm 341 */
obj_t BgL_aux2719z00_2629;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_35))
{ /* ./Llib/object.scm 342 */
obj_t BgL_vectorz00_1221;int BgL_kz00_1222;
if(
VECTORP(BgL_fieldz00_35))
{ /* ./Llib/object.scm 342 */
BgL_vectorz00_1221 = BgL_fieldz00_35; }  else 
{ /* ./Llib/object.scm 342 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7788z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_fieldz00_35, BGl_string7762z00zz__objectz00, 
BINT(((long)15730))); 
exit( -1 );} 
BgL_kz00_1222 = 
(int)(((long)0)); 
{ /* ./Llib/object.scm 342 */
bool_t BgL_test2430z00_1223;
{ /* ./Llib/object.scm 342 */
int BgL_arg2435z00_1224;
BgL_arg2435z00_1224 = 
VECTOR_LENGTH(BgL_vectorz00_1221); 
BgL_test2430z00_1223 = 
BOUND_CHECK(BgL_kz00_1222, BgL_arg2435z00_1224); } 
if(BgL_test2430z00_1223)
{ /* ./Llib/object.scm 342 */
obj_t BgL_aux3500z00_3003;
BgL_aux3500z00_3003 = 
VECTOR_REF(BgL_vectorz00_1221,BgL_kz00_1222); 
if(
SYMBOLP(BgL_aux3500z00_3003))
{ /* ./Llib/object.scm 342 */
BgL_aux2719z00_2629 = BgL_aux3500z00_3003; }  else 
{ /* ./Llib/object.scm 342 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7788z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_aux3500z00_3003, BGl_string7762z00zz__objectz00, 
BINT(((long)15714))); 
exit( -1 );} }  else 
{ /* ./Llib/object.scm 342 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1222), "./Ieee/vector.scm", ((long)5865)); 
{ /* ./Llib/object.scm 342 */
obj_t BgL_aux3518z00_3005;
BgL_aux3518z00_3005 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)15714))); 
if(
SYMBOLP(BgL_aux3518z00_3005))
{ /* ./Llib/object.scm 342 */
BgL_aux2719z00_2629 = BgL_aux3518z00_3005; }  else 
{ /* ./Llib/object.scm 342 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7788z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_aux3518z00_3005, BGl_string7762z00zz__objectz00, 
BINT(((long)15714))); 
exit( -1 );} } } } }  else 
{ /* ./Llib/object.scm 341 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7789z00zz__objectz00, BGl_string7790z00zz__objectz00, BgL_fieldz00_35, "./Llib/object.scm", ((long)15742)); 
{ /* ./Llib/object.scm 343 */
obj_t BgL_aux3535z00_3007;
BgL_aux3535z00_3007 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)15786))); 
if(
SYMBOLP(BgL_aux3535z00_3007))
{ /* ./Llib/object.scm 343 */
BgL_aux2719z00_2629 = BgL_aux3535z00_3007; }  else 
{ /* ./Llib/object.scm 343 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7788z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_aux3535z00_3007, BGl_string7762z00zz__objectz00, 
BINT(((long)15786))); 
exit( -1 );} } } 
POP_TRACE(); 
return BgL_aux2719z00_2629;} } } } 
}



/* _class-field-name */
obj_t BGl__classzd2fieldzd2namez00zz__objectz00(obj_t BgL_envz00_2779, obj_t BgL_fieldz00_2780)
{ AN_OBJECT;
{ /* ./Llib/object.scm 340 */
return 
BGl_classzd2fieldzd2namez00zz__objectz00(BgL_fieldz00_2780);} 
}



/* class-field-indexed? */
BGL_EXPORTED_DEF bool_t BGl_classzd2fieldzd2indexedzf3zf3zz__objectz00(obj_t BgL_fieldz00_36)
{ AN_OBJECT;
{ /* ./Llib/object.scm 348 */
{ /* ./Llib/object.scm 349 */
obj_t BgL_symbol2724z00_2630;
BgL_symbol2724z00_2630 = BGl_symbol7791z00zz__objectz00; 
{ /* ./Llib/object.scm 349 */

PUSH_TRACE(BgL_symbol2724z00_2630); BUNSPEC; 
{ /* ./Llib/object.scm 349 */
bool_t BgL_aux2723z00_2631;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_36))
{ /* ./Llib/object.scm 350 */
obj_t BgL_arg1173z00_553;
{ /* ./Llib/object.scm 350 */
obj_t BgL_vectorz00_1232;int BgL_kz00_1233;
if(
VECTORP(BgL_fieldz00_36))
{ /* ./Llib/object.scm 350 */
BgL_vectorz00_1232 = BgL_fieldz00_36; }  else 
{ /* ./Llib/object.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7791z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_fieldz00_36, BGl_string7762z00zz__objectz00, 
BINT(((long)16110))); 
exit( -1 );} 
BgL_kz00_1233 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 350 */
bool_t BgL_test2430z00_1234;
{ /* ./Llib/object.scm 350 */
int BgL_arg2435z00_1235;
BgL_arg2435z00_1235 = 
VECTOR_LENGTH(BgL_vectorz00_1232); 
BgL_test2430z00_1234 = 
BOUND_CHECK(BgL_kz00_1233, BgL_arg2435z00_1235); } 
if(BgL_test2430z00_1234)
{ /* ./Llib/object.scm 350 */
BgL_arg1173z00_553 = 
VECTOR_REF(BgL_vectorz00_1232,BgL_kz00_1233); }  else 
{ /* ./Llib/object.scm 350 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1233), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1173z00_553 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)16110))); } } } 
BgL_aux2723z00_2631 = 
PROCEDUREP(BgL_arg1173z00_553); }  else 
{ /* ./Llib/object.scm 349 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7792z00zz__objectz00, BGl_string7790z00zz__objectz00, BgL_fieldz00_36, "./Llib/object.scm", ((long)16139)); 
{ /* ./Llib/object.scm 351 */
obj_t BgL_auxz00_4992;
BgL_auxz00_4992 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)16187))); 
BgL_aux2723z00_2631 = 
CBOOL(BgL_auxz00_4992); } } 
POP_TRACE(); 
return BgL_aux2723z00_2631;} } } } 
}



/* _class-field-indexed? */
obj_t BGl__classzd2fieldzd2indexedzf3zf3zz__objectz00(obj_t BgL_envz00_2781, obj_t BgL_fieldz00_2782)
{ AN_OBJECT;
{ /* ./Llib/object.scm 348 */
{ /* ./Llib/object.scm 349 */
bool_t BgL_auxz00_4997;
BgL_auxz00_4997 = 
BGl_classzd2fieldzd2indexedzf3zf3zz__objectz00(BgL_fieldz00_2782); 
return 
BBOOL(BgL_auxz00_4997);} } 
}



/* class-field-virtual? */
BGL_EXPORTED_DEF bool_t BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(obj_t BgL_fieldz00_37)
{ AN_OBJECT;
{ /* ./Llib/object.scm 356 */
{ /* ./Llib/object.scm 357 */
obj_t BgL_symbol2728z00_2632;
BgL_symbol2728z00_2632 = BGl_symbol7793z00zz__objectz00; 
{ /* ./Llib/object.scm 357 */

PUSH_TRACE(BgL_symbol2728z00_2632); BUNSPEC; 
{ /* ./Llib/object.scm 357 */
bool_t BgL_aux2727z00_2633;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_37))
{ /* ./Llib/object.scm 358 */
obj_t BgL_vectorz00_1244;int BgL_kz00_1245;
if(
VECTORP(BgL_fieldz00_37))
{ /* ./Llib/object.scm 358 */
BgL_vectorz00_1244 = BgL_fieldz00_37; }  else 
{ /* ./Llib/object.scm 358 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7793z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_fieldz00_37, BGl_string7762z00zz__objectz00, 
BINT(((long)16515))); 
exit( -1 );} 
BgL_kz00_1245 = 
(int)(((long)4)); 
{ /* ./Llib/object.scm 358 */
bool_t BgL_test2430z00_1246;
{ /* ./Llib/object.scm 358 */
int BgL_arg2435z00_1247;
BgL_arg2435z00_1247 = 
VECTOR_LENGTH(BgL_vectorz00_1244); 
BgL_test2430z00_1246 = 
BOUND_CHECK(BgL_kz00_1245, BgL_arg2435z00_1247); } 
if(BgL_test2430z00_1246)
{ /* ./Llib/object.scm 358 */
obj_t BgL_auxz00_5012;
BgL_auxz00_5012 = 
VECTOR_REF(BgL_vectorz00_1244,BgL_kz00_1245); 
BgL_aux2727z00_2633 = 
CBOOL(BgL_auxz00_5012); }  else 
{ /* ./Llib/object.scm 358 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1245), "./Ieee/vector.scm", ((long)5865)); 
{ /* ./Llib/object.scm 358 */
obj_t BgL_auxz00_5017;
BgL_auxz00_5017 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)16499))); 
BgL_aux2727z00_2633 = 
CBOOL(BgL_auxz00_5017); } } } }  else 
{ /* ./Llib/object.scm 357 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7794z00zz__objectz00, BGl_string7790z00zz__objectz00, BgL_fieldz00_37, "./Llib/object.scm", ((long)16527)); 
{ /* ./Llib/object.scm 359 */
obj_t BgL_auxz00_5022;
BgL_auxz00_5022 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)16575))); 
BgL_aux2727z00_2633 = 
CBOOL(BgL_auxz00_5022); } } 
POP_TRACE(); 
return BgL_aux2727z00_2633;} } } } 
}



/* _class-field-virtual? */
obj_t BGl__classzd2fieldzd2virtualzf3zf3zz__objectz00(obj_t BgL_envz00_2783, obj_t BgL_fieldz00_2784)
{ AN_OBJECT;
{ /* ./Llib/object.scm 356 */
{ /* ./Llib/object.scm 357 */
bool_t BgL_auxz00_5027;
BgL_auxz00_5027 = 
BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(BgL_fieldz00_2784); 
return 
BBOOL(BgL_auxz00_5027);} } 
}



/* class-field-accessor */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldzd2accessorz00zz__objectz00(obj_t BgL_fieldz00_38)
{ AN_OBJECT;
{ /* ./Llib/object.scm 364 */
{ /* ./Llib/object.scm 365 */
obj_t BgL_symbol2732z00_2634;
BgL_symbol2732z00_2634 = BGl_symbol7795z00zz__objectz00; 
{ /* ./Llib/object.scm 365 */

PUSH_TRACE(BgL_symbol2732z00_2634); BUNSPEC; 
{ /* ./Llib/object.scm 365 */
obj_t BgL_aux2731z00_2635;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_38))
{ /* ./Llib/object.scm 366 */
obj_t BgL_vectorz00_1255;int BgL_kz00_1256;
if(
VECTORP(BgL_fieldz00_38))
{ /* ./Llib/object.scm 366 */
BgL_vectorz00_1255 = BgL_fieldz00_38; }  else 
{ /* ./Llib/object.scm 366 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7795z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_fieldz00_38, BGl_string7762z00zz__objectz00, 
BINT(((long)16908))); 
exit( -1 );} 
BgL_kz00_1256 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 366 */
bool_t BgL_test2430z00_1257;
{ /* ./Llib/object.scm 366 */
int BgL_arg2435z00_1258;
BgL_arg2435z00_1258 = 
VECTOR_LENGTH(BgL_vectorz00_1255); 
BgL_test2430z00_1257 = 
BOUND_CHECK(BgL_kz00_1256, BgL_arg2435z00_1258); } 
if(BgL_test2430z00_1257)
{ /* ./Llib/object.scm 366 */
obj_t BgL_aux3614z00_3015;
BgL_aux3614z00_3015 = 
VECTOR_REF(BgL_vectorz00_1255,BgL_kz00_1256); 
if(
PROCEDUREP(BgL_aux3614z00_3015))
{ /* ./Llib/object.scm 366 */
BgL_aux2731z00_2635 = BgL_aux3614z00_3015; }  else 
{ /* ./Llib/object.scm 366 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7795z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux3614z00_3015, BGl_string7762z00zz__objectz00, 
BINT(((long)16892))); 
exit( -1 );} }  else 
{ /* ./Llib/object.scm 366 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1256), "./Ieee/vector.scm", ((long)5865)); 
{ /* ./Llib/object.scm 366 */
obj_t BgL_aux3632z00_3017;
BgL_aux3632z00_3017 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)16892))); 
if(
PROCEDUREP(BgL_aux3632z00_3017))
{ /* ./Llib/object.scm 366 */
BgL_aux2731z00_2635 = BgL_aux3632z00_3017; }  else 
{ /* ./Llib/object.scm 366 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7795z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux3632z00_3017, BGl_string7762z00zz__objectz00, 
BINT(((long)16892))); 
exit( -1 );} } } } }  else 
{ /* ./Llib/object.scm 365 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7796z00zz__objectz00, BGl_string7790z00zz__objectz00, BgL_fieldz00_38, "./Llib/object.scm", ((long)16920)); 
{ /* ./Llib/object.scm 367 */
obj_t BgL_aux3649z00_3019;
BgL_aux3649z00_3019 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)16968))); 
if(
PROCEDUREP(BgL_aux3649z00_3019))
{ /* ./Llib/object.scm 367 */
BgL_aux2731z00_2635 = BgL_aux3649z00_3019; }  else 
{ /* ./Llib/object.scm 367 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7795z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux3649z00_3019, BGl_string7762z00zz__objectz00, 
BINT(((long)16968))); 
exit( -1 );} } } 
POP_TRACE(); 
return BgL_aux2731z00_2635;} } } } 
}



/* _class-field-accessor */
obj_t BGl__classzd2fieldzd2accessorz00zz__objectz00(obj_t BgL_envz00_2785, obj_t BgL_fieldz00_2786)
{ AN_OBJECT;
{ /* ./Llib/object.scm 364 */
return 
BGl_classzd2fieldzd2accessorz00zz__objectz00(BgL_fieldz00_2786);} 
}



/* class-field-mutable? */
BGL_EXPORTED_DEF bool_t BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00(obj_t BgL_fieldz00_39)
{ AN_OBJECT;
{ /* ./Llib/object.scm 372 */
{ /* ./Llib/object.scm 373 */
obj_t BgL_symbol2736z00_2636;
BgL_symbol2736z00_2636 = BGl_symbol7797z00zz__objectz00; 
{ /* ./Llib/object.scm 373 */

PUSH_TRACE(BgL_symbol2736z00_2636); BUNSPEC; 
{ /* ./Llib/object.scm 373 */
bool_t BgL_aux2735z00_2637;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_39))
{ /* ./Llib/object.scm 374 */
obj_t BgL_arg1191z00_557;
{ /* ./Llib/object.scm 374 */
obj_t BgL_vectorz00_1266;int BgL_kz00_1267;
if(
VECTORP(BgL_fieldz00_39))
{ /* ./Llib/object.scm 374 */
BgL_vectorz00_1266 = BgL_fieldz00_39; }  else 
{ /* ./Llib/object.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7797z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_fieldz00_39, BGl_string7762z00zz__objectz00, 
BINT(((long)17292))); 
exit( -1 );} 
BgL_kz00_1267 = 
(int)(((long)2)); 
{ /* ./Llib/object.scm 374 */
bool_t BgL_test2430z00_1268;
{ /* ./Llib/object.scm 374 */
int BgL_arg2435z00_1269;
BgL_arg2435z00_1269 = 
VECTOR_LENGTH(BgL_vectorz00_1266); 
BgL_test2430z00_1268 = 
BOUND_CHECK(BgL_kz00_1267, BgL_arg2435z00_1269); } 
if(BgL_test2430z00_1268)
{ /* ./Llib/object.scm 374 */
BgL_arg1191z00_557 = 
VECTOR_REF(BgL_vectorz00_1266,BgL_kz00_1267); }  else 
{ /* ./Llib/object.scm 374 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1267), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1191z00_557 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)17292))); } } } 
BgL_aux2735z00_2637 = 
PROCEDUREP(BgL_arg1191z00_557); }  else 
{ /* ./Llib/object.scm 373 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7798z00zz__objectz00, BGl_string7790z00zz__objectz00, BgL_fieldz00_39, "./Llib/object.scm", ((long)17321)); 
{ /* ./Llib/object.scm 375 */
obj_t BgL_auxz00_5086;
BgL_auxz00_5086 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)17369))); 
BgL_aux2735z00_2637 = 
CBOOL(BgL_auxz00_5086); } } 
POP_TRACE(); 
return BgL_aux2735z00_2637;} } } } 
}



/* _class-field-mutable? */
obj_t BGl__classzd2fieldzd2mutablezf3zf3zz__objectz00(obj_t BgL_envz00_2787, obj_t BgL_fieldz00_2788)
{ AN_OBJECT;
{ /* ./Llib/object.scm 372 */
{ /* ./Llib/object.scm 373 */
bool_t BgL_auxz00_5091;
BgL_auxz00_5091 = 
BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00(BgL_fieldz00_2788); 
return 
BBOOL(BgL_auxz00_5091);} } 
}



/* class-field-mutator */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldzd2mutatorz00zz__objectz00(obj_t BgL_fieldz00_40)
{ AN_OBJECT;
{ /* ./Llib/object.scm 380 */
{ /* ./Llib/object.scm 381 */
obj_t BgL_symbol2740z00_2638;
BgL_symbol2740z00_2638 = BGl_symbol7799z00zz__objectz00; 
{ /* ./Llib/object.scm 381 */

PUSH_TRACE(BgL_symbol2740z00_2638); BUNSPEC; 
{ /* ./Llib/object.scm 381 */
obj_t BgL_aux2739z00_2639;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_40))
{ /* ./Llib/object.scm 382 */
obj_t BgL_vectorz00_1278;int BgL_kz00_1279;
if(
VECTORP(BgL_fieldz00_40))
{ /* ./Llib/object.scm 382 */
BgL_vectorz00_1278 = BgL_fieldz00_40; }  else 
{ /* ./Llib/object.scm 382 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7799z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_fieldz00_40, BGl_string7762z00zz__objectz00, 
BINT(((long)17701))); 
exit( -1 );} 
BgL_kz00_1279 = 
(int)(((long)2)); 
{ /* ./Llib/object.scm 382 */
bool_t BgL_test2430z00_1280;
{ /* ./Llib/object.scm 382 */
int BgL_arg2435z00_1281;
BgL_arg2435z00_1281 = 
VECTOR_LENGTH(BgL_vectorz00_1278); 
BgL_test2430z00_1280 = 
BOUND_CHECK(BgL_kz00_1279, BgL_arg2435z00_1281); } 
if(BgL_test2430z00_1280)
{ /* ./Llib/object.scm 382 */
obj_t BgL_aux3698z00_3025;
BgL_aux3698z00_3025 = 
VECTOR_REF(BgL_vectorz00_1278,BgL_kz00_1279); 
if(
PROCEDUREP(BgL_aux3698z00_3025))
{ /* ./Llib/object.scm 382 */
BgL_aux2739z00_2639 = BgL_aux3698z00_3025; }  else 
{ /* ./Llib/object.scm 382 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7799z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux3698z00_3025, BGl_string7762z00zz__objectz00, 
BINT(((long)17685))); 
exit( -1 );} }  else 
{ /* ./Llib/object.scm 382 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1279), "./Ieee/vector.scm", ((long)5865)); 
{ /* ./Llib/object.scm 382 */
obj_t BgL_aux3716z00_3027;
BgL_aux3716z00_3027 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)17685))); 
if(
PROCEDUREP(BgL_aux3716z00_3027))
{ /* ./Llib/object.scm 382 */
BgL_aux2739z00_2639 = BgL_aux3716z00_3027; }  else 
{ /* ./Llib/object.scm 382 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7799z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux3716z00_3027, BGl_string7762z00zz__objectz00, 
BINT(((long)17685))); 
exit( -1 );} } } } }  else 
{ /* ./Llib/object.scm 381 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7800z00zz__objectz00, BGl_string7790z00zz__objectz00, BgL_fieldz00_40, "./Llib/object.scm", ((long)17713)); 
{ /* ./Llib/object.scm 383 */
obj_t BgL_aux3733z00_3029;
BgL_aux3733z00_3029 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)17760))); 
if(
PROCEDUREP(BgL_aux3733z00_3029))
{ /* ./Llib/object.scm 383 */
BgL_aux2739z00_2639 = BgL_aux3733z00_3029; }  else 
{ /* ./Llib/object.scm 383 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7799z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux3733z00_3029, BGl_string7762z00zz__objectz00, 
BINT(((long)17760))); 
exit( -1 );} } } 
POP_TRACE(); 
return BgL_aux2739z00_2639;} } } } 
}



/* _class-field-mutator */
obj_t BGl__classzd2fieldzd2mutatorz00zz__objectz00(obj_t BgL_envz00_2789, obj_t BgL_fieldz00_2790)
{ AN_OBJECT;
{ /* ./Llib/object.scm 380 */
return 
BGl_classzd2fieldzd2mutatorz00zz__objectz00(BgL_fieldz00_2790);} 
}



/* class-field-len-accessor */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldzd2lenzd2accessorzd2zz__objectz00(obj_t BgL_fieldz00_41)
{ AN_OBJECT;
{ /* ./Llib/object.scm 388 */
{ /* ./Llib/object.scm 389 */
obj_t BgL_symbol2744z00_2640;
BgL_symbol2744z00_2640 = BGl_symbol7801z00zz__objectz00; 
{ /* ./Llib/object.scm 389 */

PUSH_TRACE(BgL_symbol2744z00_2640); BUNSPEC; 
{ /* ./Llib/object.scm 389 */
obj_t BgL_aux2743z00_2641;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_41))
{ /* ./Llib/object.scm 390 */
obj_t BgL_vectorz00_1289;int BgL_kz00_1290;
if(
VECTORP(BgL_fieldz00_41))
{ /* ./Llib/object.scm 390 */
BgL_vectorz00_1289 = BgL_fieldz00_41; }  else 
{ /* ./Llib/object.scm 390 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7801z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_fieldz00_41, BGl_string7762z00zz__objectz00, 
BINT(((long)18097))); 
exit( -1 );} 
BgL_kz00_1290 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 390 */
bool_t BgL_test2430z00_1291;
{ /* ./Llib/object.scm 390 */
int BgL_arg2435z00_1292;
BgL_arg2435z00_1292 = 
VECTOR_LENGTH(BgL_vectorz00_1289); 
BgL_test2430z00_1291 = 
BOUND_CHECK(BgL_kz00_1290, BgL_arg2435z00_1292); } 
if(BgL_test2430z00_1291)
{ /* ./Llib/object.scm 390 */
obj_t BgL_aux3754z00_3033;
BgL_aux3754z00_3033 = 
VECTOR_REF(BgL_vectorz00_1289,BgL_kz00_1290); 
if(
PROCEDUREP(BgL_aux3754z00_3033))
{ /* ./Llib/object.scm 390 */
BgL_aux2743z00_2641 = BgL_aux3754z00_3033; }  else 
{ /* ./Llib/object.scm 390 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7801z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux3754z00_3033, BGl_string7762z00zz__objectz00, 
BINT(((long)18081))); 
exit( -1 );} }  else 
{ /* ./Llib/object.scm 390 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1290), "./Ieee/vector.scm", ((long)5865)); 
{ /* ./Llib/object.scm 390 */
obj_t BgL_aux3772z00_3035;
BgL_aux3772z00_3035 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)18081))); 
if(
PROCEDUREP(BgL_aux3772z00_3035))
{ /* ./Llib/object.scm 390 */
BgL_aux2743z00_2641 = BgL_aux3772z00_3035; }  else 
{ /* ./Llib/object.scm 390 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7801z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux3772z00_3035, BGl_string7762z00zz__objectz00, 
BINT(((long)18081))); 
exit( -1 );} } } } }  else 
{ /* ./Llib/object.scm 389 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7802z00zz__objectz00, BGl_string7790z00zz__objectz00, BgL_fieldz00_41, "./Llib/object.scm", ((long)18109)); 
{ /* ./Llib/object.scm 391 */
obj_t BgL_aux3789z00_3037;
BgL_aux3789z00_3037 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)18161))); 
if(
PROCEDUREP(BgL_aux3789z00_3037))
{ /* ./Llib/object.scm 391 */
BgL_aux2743z00_2641 = BgL_aux3789z00_3037; }  else 
{ /* ./Llib/object.scm 391 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7801z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux3789z00_3037, BGl_string7762z00zz__objectz00, 
BINT(((long)18161))); 
exit( -1 );} } } 
POP_TRACE(); 
return BgL_aux2743z00_2641;} } } } 
}



/* _class-field-len-accessor */
obj_t BGl__classzd2fieldzd2lenzd2accessorzd2zz__objectz00(obj_t BgL_envz00_2791, obj_t BgL_fieldz00_2792)
{ AN_OBJECT;
{ /* ./Llib/object.scm 388 */
return 
BGl_classzd2fieldzd2lenzd2accessorzd2zz__objectz00(BgL_fieldz00_2792);} 
}



/* class-field-info */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldzd2infoz00zz__objectz00(obj_t BgL_fieldz00_42)
{ AN_OBJECT;
{ /* ./Llib/object.scm 396 */
{ /* ./Llib/object.scm 397 */
obj_t BgL_symbol2748z00_2642;
BgL_symbol2748z00_2642 = BGl_symbol7803z00zz__objectz00; 
{ /* ./Llib/object.scm 397 */

PUSH_TRACE(BgL_symbol2748z00_2642); BUNSPEC; 
{ /* ./Llib/object.scm 397 */
obj_t BgL_aux2747z00_2643;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_42))
{ /* ./Llib/object.scm 398 */
obj_t BgL_vectorz00_1300;int BgL_kz00_1301;
if(
VECTORP(BgL_fieldz00_42))
{ /* ./Llib/object.scm 398 */
BgL_vectorz00_1300 = BgL_fieldz00_42; }  else 
{ /* ./Llib/object.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7803z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_fieldz00_42, BGl_string7762z00zz__objectz00, 
BINT(((long)18479))); 
exit( -1 );} 
BgL_kz00_1301 = 
(int)(((long)6)); 
{ /* ./Llib/object.scm 398 */
bool_t BgL_test2430z00_1302;
{ /* ./Llib/object.scm 398 */
int BgL_arg2435z00_1303;
BgL_arg2435z00_1303 = 
VECTOR_LENGTH(BgL_vectorz00_1300); 
BgL_test2430z00_1302 = 
BOUND_CHECK(BgL_kz00_1301, BgL_arg2435z00_1303); } 
if(BgL_test2430z00_1302)
{ /* ./Llib/object.scm 398 */
BgL_aux2747z00_2643 = 
VECTOR_REF(BgL_vectorz00_1300,BgL_kz00_1301); }  else 
{ /* ./Llib/object.scm 398 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1301), "./Ieee/vector.scm", ((long)5865)); 
BgL_aux2747z00_2643 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)18463))); } } }  else 
{ /* ./Llib/object.scm 397 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7804z00zz__objectz00, BGl_string7790z00zz__objectz00, BgL_fieldz00_42, "./Llib/object.scm", ((long)18491)); 
BgL_aux2747z00_2643 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)18535))); } 
POP_TRACE(); 
return BgL_aux2747z00_2643;} } } } 
}



/* _class-field-info */
obj_t BGl__classzd2fieldzd2infoz00zz__objectz00(obj_t BgL_envz00_2793, obj_t BgL_fieldz00_2794)
{ AN_OBJECT;
{ /* ./Llib/object.scm 396 */
return 
BGl_classzd2fieldzd2infoz00zz__objectz00(BgL_fieldz00_2794);} 
}



/* class-super */
BGL_EXPORTED_DEF obj_t BGl_classzd2superzd2zz__objectz00(obj_t BgL_classz00_43)
{ AN_OBJECT;
{ /* ./Llib/object.scm 404 */
{ /* ./Llib/object.scm 405 */
obj_t BgL_vectorz00_1311;int BgL_kz00_1312;
if(
VECTORP(BgL_classz00_43))
{ /* ./Llib/object.scm 405 */
BgL_vectorz00_1311 = BgL_classz00_43; }  else 
{ /* ./Llib/object.scm 405 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7805z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_43, BGl_string7762z00zz__objectz00, 
BINT(((long)18800))); 
exit( -1 );} 
BgL_kz00_1312 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 405 */
bool_t BgL_test2430z00_1313;
{ /* ./Llib/object.scm 405 */
int BgL_arg2435z00_1314;
BgL_arg2435z00_1314 = 
VECTOR_LENGTH(BgL_vectorz00_1311); 
BgL_test2430z00_1313 = 
BOUND_CHECK(BgL_kz00_1312, BgL_arg2435z00_1314); } 
if(BgL_test2430z00_1313)
{ /* ./Llib/object.scm 405 */
return 
VECTOR_REF(BgL_vectorz00_1311,BgL_kz00_1312);}  else 
{ /* ./Llib/object.scm 405 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1312), "./Ieee/vector.scm", ((long)5865)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)18800)));} } } } 
}



/* _class-super */
obj_t BGl__classzd2superzd2zz__objectz00(obj_t BgL_envz00_2795, obj_t BgL_classz00_2796)
{ AN_OBJECT;
{ /* ./Llib/object.scm 404 */
return 
BGl_classzd2superzd2zz__objectz00(BgL_classz00_2796);} 
}



/* class-subclasses */
BGL_EXPORTED_DEF obj_t BGl_classzd2subclasseszd2zz__objectz00(obj_t BgL_classz00_44)
{ AN_OBJECT;
{ /* ./Llib/object.scm 410 */
{ /* ./Llib/object.scm 411 */
obj_t BgL_vectorz00_1319;int BgL_kz00_1320;
if(
VECTORP(BgL_classz00_44))
{ /* ./Llib/object.scm 411 */
BgL_vectorz00_1319 = BgL_classz00_44; }  else 
{ /* ./Llib/object.scm 411 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7806z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_44, BGl_string7762z00zz__objectz00, 
BINT(((long)19088))); 
exit( -1 );} 
BgL_kz00_1320 = 
(int)(((long)4)); 
{ /* ./Llib/object.scm 411 */
bool_t BgL_test2430z00_1321;
{ /* ./Llib/object.scm 411 */
int BgL_arg2435z00_1322;
BgL_arg2435z00_1322 = 
VECTOR_LENGTH(BgL_vectorz00_1319); 
BgL_test2430z00_1321 = 
BOUND_CHECK(BgL_kz00_1320, BgL_arg2435z00_1322); } 
if(BgL_test2430z00_1321)
{ /* ./Llib/object.scm 411 */
return 
VECTOR_REF(BgL_vectorz00_1319,BgL_kz00_1320);}  else 
{ /* ./Llib/object.scm 411 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1320), "./Ieee/vector.scm", ((long)5865)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)19088)));} } } } 
}



/* _class-subclasses */
obj_t BGl__classzd2subclasseszd2zz__objectz00(obj_t BgL_envz00_2797, obj_t BgL_classz00_2798)
{ AN_OBJECT;
{ /* ./Llib/object.scm 410 */
return 
BGl_classzd2subclasseszd2zz__objectz00(BgL_classz00_2798);} 
}



/* class-hash */
BGL_EXPORTED_DEF long BGl_classzd2hashzd2zz__objectz00(obj_t BgL_classz00_49)
{ AN_OBJECT;
{ /* ./Llib/object.scm 434 */
{ /* ./Llib/object.scm 435 */
obj_t BgL_symbol2752z00_2644;
BgL_symbol2752z00_2644 = BGl_symbol7807z00zz__objectz00; 
{ /* ./Llib/object.scm 435 */

PUSH_TRACE(BgL_symbol2752z00_2644); BUNSPEC; 
{ /* ./Llib/object.scm 435 */
long BgL_aux2751z00_2645;
{ /* ./Llib/object.scm 435 */
obj_t BgL_vectorz00_1332;int BgL_kz00_1333;
if(
VECTORP(BgL_classz00_49))
{ /* ./Llib/object.scm 435 */
BgL_vectorz00_1332 = BgL_classz00_49; }  else 
{ /* ./Llib/object.scm 435 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7807z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_49, BGl_string7762z00zz__objectz00, 
BINT(((long)20252))); 
exit( -1 );} 
BgL_kz00_1333 = 
(int)(((long)7)); 
{ /* ./Llib/object.scm 435 */
obj_t BgL_auxz00_5227;
{ /* ./Llib/object.scm 435 */
obj_t BgL_aux3874z00_3047;
BgL_aux3874z00_3047 = 
VECTOR_REF(BgL_vectorz00_1332,BgL_kz00_1333); 
if(
INTEGERP(BgL_aux3874z00_3047))
{ /* ./Llib/object.scm 435 */
BgL_auxz00_5227 = BgL_aux3874z00_3047
; }  else 
{ /* ./Llib/object.scm 435 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7807z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux3874z00_3047, BGl_string7762z00zz__objectz00, 
BINT(((long)20233))); 
exit( -1 );} } 
BgL_aux2751z00_2645 = 
(long)CINT(BgL_auxz00_5227); } } 
POP_TRACE(); 
return BgL_aux2751z00_2645;} } } } 
}



/* _class-hash */
obj_t BGl__classzd2hashzd2zz__objectz00(obj_t BgL_envz00_2799, obj_t BgL_classz00_2800)
{ AN_OBJECT;
{ /* ./Llib/object.scm 434 */
{ /* ./Llib/object.scm 435 */
long BgL_auxz00_5236;
BgL_auxz00_5236 = 
BGl_classzd2hashzd2zz__objectz00(BgL_classz00_2800); 
return 
BINT(BgL_auxz00_5236);} } 
}



/* class-constructor */
BGL_EXPORTED_DEF obj_t BGl_classzd2constructorzd2zz__objectz00(obj_t BgL_classz00_50)
{ AN_OBJECT;
{ /* ./Llib/object.scm 440 */
{ /* ./Llib/object.scm 441 */
obj_t BgL_vectorz00_1334;int BgL_kz00_1335;
if(
VECTORP(BgL_classz00_50))
{ /* ./Llib/object.scm 441 */
BgL_vectorz00_1334 = BgL_classz00_50; }  else 
{ /* ./Llib/object.scm 441 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7808z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_50, BGl_string7762z00zz__objectz00, 
BINT(((long)20518))); 
exit( -1 );} 
BgL_kz00_1335 = 
(int)(((long)9)); 
{ /* ./Llib/object.scm 441 */
bool_t BgL_test2430z00_1336;
{ /* ./Llib/object.scm 441 */
int BgL_arg2435z00_1337;
BgL_arg2435z00_1337 = 
VECTOR_LENGTH(BgL_vectorz00_1334); 
BgL_test2430z00_1336 = 
BOUND_CHECK(BgL_kz00_1335, BgL_arg2435z00_1337); } 
if(BgL_test2430z00_1336)
{ /* ./Llib/object.scm 441 */
return 
VECTOR_REF(BgL_vectorz00_1334,BgL_kz00_1335);}  else 
{ /* ./Llib/object.scm 441 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1335), "./Ieee/vector.scm", ((long)5865)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)20518)));} } } } 
}



/* _class-constructor */
obj_t BGl__classzd2constructorzd2zz__objectz00(obj_t BgL_envz00_2801, obj_t BgL_classz00_2802)
{ AN_OBJECT;
{ /* ./Llib/object.scm 440 */
return 
BGl_classzd2constructorzd2zz__objectz00(BgL_classz00_2802);} 
}



/* class-creator */
BGL_EXPORTED_DEF obj_t BGl_classzd2creatorzd2zz__objectz00(obj_t BgL_classz00_51)
{ AN_OBJECT;
{ /* ./Llib/object.scm 446 */
{ /* ./Llib/object.scm 447 */
obj_t BgL_vectorz00_1342;int BgL_kz00_1343;
if(
VECTORP(BgL_classz00_51))
{ /* ./Llib/object.scm 447 */
BgL_vectorz00_1342 = BgL_classz00_51; }  else 
{ /* ./Llib/object.scm 447 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7809z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_51, BGl_string7762z00zz__objectz00, 
BINT(((long)20796))); 
exit( -1 );} 
BgL_kz00_1343 = 
(int)(((long)11)); 
{ /* ./Llib/object.scm 447 */
bool_t BgL_test2430z00_1344;
{ /* ./Llib/object.scm 447 */
int BgL_arg2435z00_1345;
BgL_arg2435z00_1345 = 
VECTOR_LENGTH(BgL_vectorz00_1342); 
BgL_test2430z00_1344 = 
BOUND_CHECK(BgL_kz00_1343, BgL_arg2435z00_1345); } 
if(BgL_test2430z00_1344)
{ /* ./Llib/object.scm 447 */
return 
VECTOR_REF(BgL_vectorz00_1342,BgL_kz00_1343);}  else 
{ /* ./Llib/object.scm 447 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1343), "./Ieee/vector.scm", ((long)5865)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)20796)));} } } } 
}



/* _class-creator */
obj_t BGl__classzd2creatorzd2zz__objectz00(obj_t BgL_envz00_2803, obj_t BgL_classz00_2804)
{ AN_OBJECT;
{ /* ./Llib/object.scm 446 */
return 
BGl_classzd2creatorzd2zz__objectz00(BgL_classz00_2804);} 
}



/* initialize-objects! */
obj_t BGl_initializa7ezd2objectsz12z67zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 479 */
{ /* ./Llib/object.scm 480 */
obj_t BgL_symbol2756z00_2646;
BgL_symbol2756z00_2646 = BGl_symbol7810z00zz__objectz00; 
{ /* ./Llib/object.scm 480 */

PUSH_TRACE(BgL_symbol2756z00_2646); BUNSPEC; 
{ /* ./Llib/object.scm 480 */
obj_t BgL_aux2755z00_2647;
if(
INTEGERP(BGl_za2nbzd2classesza2zd2zz__objectz00))
{ /* ./Llib/object.scm 480 */
BgL_aux2755z00_2647 = BGl_symbol7811z00zz__objectz00; }  else 
{ /* ./Llib/object.scm 480 */
BGl_za2nbzd2classesza2zd2zz__objectz00 = 
BINT(((long)0)); 
BGl_za2nbzd2classeszd2maxza2z00zz__objectz00 = 
BINT(((long)50)); 
{ /* ./Llib/object.scm 485 */
int BgL_auxz00_5274;
{ /* ./Llib/object.scm 485 */
obj_t BgL_auxz00_5275;
{ /* ./Llib/object.scm 485 */
obj_t BgL_aux3926z00_3053;
BgL_aux3926z00_3053 = BGl_za2nbzd2classeszd2maxza2z00zz__objectz00; 
if(
INTEGERP(BgL_aux3926z00_3053))
{ /* ./Llib/object.scm 485 */
BgL_auxz00_5275 = BgL_aux3926z00_3053
; }  else 
{ /* ./Llib/object.scm 485 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7810z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_aux3926z00_3053, BGl_string7762z00zz__objectz00, 
BINT(((long)22709))); 
exit( -1 );} } 
BgL_auxz00_5274 = 
CINT(BgL_auxz00_5275); } 
BGl_za2classesza2z00zz__objectz00 = 
make_vector(BgL_auxz00_5274, BFALSE); } 
BGl_za2nbzd2genericszd2maxza2z00zz__objectz00 = 
BINT(((long)50)); 
BGl_za2nbzd2genericsza2zd2zz__objectz00 = 
BINT(((long)0)); 
{ /* ./Llib/object.scm 488 */
int BgL_auxz00_5285;
{ /* ./Llib/object.scm 488 */
obj_t BgL_auxz00_5286;
{ /* ./Llib/object.scm 488 */
obj_t BgL_aux3940z00_3055;
BgL_aux3940z00_3055 = BGl_za2nbzd2genericszd2maxza2z00zz__objectz00; 
if(
INTEGERP(BgL_aux3940z00_3055))
{ /* ./Llib/object.scm 488 */
BgL_auxz00_5286 = BgL_aux3940z00_3055
; }  else 
{ /* ./Llib/object.scm 488 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7810z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_aux3940z00_3055, BGl_string7762z00zz__objectz00, 
BINT(((long)22832))); 
exit( -1 );} } 
BgL_auxz00_5285 = 
CINT(BgL_auxz00_5286); } 
BgL_aux2755z00_2647 = ( 
BGl_za2genericsza2z00zz__objectz00 = 
make_vector(BgL_auxz00_5285, BFALSE), BUNSPEC) ; } } 
POP_TRACE(); 
return BgL_aux2755z00_2647;} } } } 
}



/* extend-vector */
obj_t BGl_extendzd2vectorzd2zz__objectz00(obj_t BgL_oldzd2veczd2_52, obj_t BgL_fillz00_53, int BgL_extendz00_54)
{ AN_OBJECT;
{ /* ./Llib/object.scm 493 */
{ /* ./Llib/object.scm 494 */
obj_t BgL_symbol2760z00_2648;
BgL_symbol2760z00_2648 = BGl_symbol7813z00zz__objectz00; 
{ /* ./Llib/object.scm 494 */

PUSH_TRACE(BgL_symbol2760z00_2648); BUNSPEC; 
{ /* ./Llib/object.scm 494 */
obj_t BgL_aux2759z00_2649;
{ /* ./Llib/object.scm 494 */
int BgL_oldzd2lenzd2_562;
{ /* ./Llib/object.scm 494 */
obj_t BgL_vectorz00_1352;
if(
VECTORP(BgL_oldzd2veczd2_52))
{ /* ./Llib/object.scm 494 */
BgL_vectorz00_1352 = BgL_oldzd2veczd2_52; }  else 
{ /* ./Llib/object.scm 494 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7813z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_oldzd2veczd2_52, BGl_string7762z00zz__objectz00, 
BINT(((long)23178))); 
exit( -1 );} 
BgL_oldzd2lenzd2_562 = 
VECTOR_LENGTH(BgL_vectorz00_1352); } 
{ /* ./Llib/object.scm 494 */
long BgL_newzd2lenzd2_563;
{ /* ./Llib/object.scm 495 */
long BgL_auxz00_5304;long BgL_auxz00_5302;
BgL_auxz00_5304 = 
(long)(BgL_oldzd2lenzd2_562); 
BgL_auxz00_5302 = 
(long)(BgL_extendz00_54); 
BgL_newzd2lenzd2_563 = 
(BgL_auxz00_5302+BgL_auxz00_5304); } 
{ /* ./Llib/object.scm 495 */
obj_t BgL_newzd2veczd2_564;
{ /* ./Llib/object.scm 496 */
int BgL_auxz00_5307;
BgL_auxz00_5307 = 
(int)(BgL_newzd2lenzd2_563); 
BgL_newzd2veczd2_564 = 
make_vector(BgL_auxz00_5307, BgL_fillz00_53); } 
{ /* ./Llib/object.scm 496 */

{ 
long BgL_iz00_565;
BgL_iz00_565 = ((long)0); 
BgL_loopz00_566:
{ /* ./Llib/object.scm 498 */
bool_t BgL_testz00_5310;
{ /* ./Llib/object.scm 498 */
long BgL_auxz00_5311;
BgL_auxz00_5311 = 
(long)(BgL_oldzd2lenzd2_562); 
BgL_testz00_5310 = 
(BgL_iz00_565==BgL_auxz00_5311); } 
if(BgL_testz00_5310)
{ /* ./Llib/object.scm 498 */
BgL_aux2759z00_2649 = BgL_newzd2veczd2_564; }  else 
{ /* ./Llib/object.scm 498 */
{ /* ./Llib/object.scm 501 */
obj_t BgL_arg1228z00_568;
{ /* ./Llib/object.scm 501 */
obj_t BgL_vectorz00_1357;int BgL_kz00_1358;
if(
VECTORP(BgL_oldzd2veczd2_52))
{ /* ./Llib/object.scm 501 */
BgL_vectorz00_1357 = BgL_oldzd2veczd2_52; }  else 
{ /* ./Llib/object.scm 501 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7813z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_oldzd2veczd2_52, BGl_string7762z00zz__objectz00, 
BINT(((long)23379))); 
exit( -1 );} 
BgL_kz00_1358 = 
(int)(BgL_iz00_565); 
BgL_arg1228z00_568 = 
VECTOR_REF(BgL_vectorz00_1357,BgL_kz00_1358); } 
{ 
int BgL_auxz00_5321;
BgL_auxz00_5321 = 
(int)(BgL_iz00_565); 
VECTOR_SET(BgL_newzd2veczd2_564,BgL_auxz00_5321,BgL_arg1228z00_568); } } 
{ 
long BgL_iz00_5324;
BgL_iz00_5324 = 
(BgL_iz00_565+((long)1)); 
BgL_iz00_565 = BgL_iz00_5324; 
goto BgL_loopz00_566;} } } } } } } } 
POP_TRACE(); 
return BgL_aux2759z00_2649;} } } } 
}



/* double-nb-classes! */
bool_t BGl_doublezd2nbzd2classesz12z12zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 513 */
{ /* ./Llib/object.scm 514 */
obj_t BgL_symbol2764z00_2650;
BgL_symbol2764z00_2650 = BGl_symbol7814z00zz__objectz00; 
{ /* ./Llib/object.scm 514 */

PUSH_TRACE(BgL_symbol2764z00_2650); BUNSPEC; 
{ /* ./Llib/object.scm 514 */
bool_t BgL_aux2763z00_2651;
{ /* ./Llib/object.scm 514 */
long BgL_za72za7_1367;
{ /* ./Llib/object.scm 514 */
obj_t BgL_auxz00_5328;
{ /* ./Llib/object.scm 514 */
obj_t BgL_aux3978z00_3061;
BgL_aux3978z00_3061 = BGl_za2nbzd2classeszd2maxza2z00zz__objectz00; 
if(
INTEGERP(BgL_aux3978z00_3061))
{ /* ./Llib/object.scm 514 */
BgL_auxz00_5328 = BgL_aux3978z00_3061
; }  else 
{ /* ./Llib/object.scm 514 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7814z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux3978z00_3061, BGl_string7762z00zz__objectz00, 
BINT(((long)24038))); 
exit( -1 );} } 
BgL_za72za7_1367 = 
(long)CINT(BgL_auxz00_5328); } 
{ /* ./Llib/object.scm 514 */
long BgL_auxz00_5335;
BgL_auxz00_5335 = 
(((long)2)*BgL_za72za7_1367); 
BGl_za2nbzd2classeszd2maxza2z00zz__objectz00 = 
BINT(BgL_auxz00_5335); } } 
{ /* ./Llib/object.scm 515 */
obj_t BgL_oldzd2veczd2_1368;
BgL_oldzd2veczd2_1368 = BGl_za2classesza2z00zz__objectz00; 
{ /* ./Llib/object.scm 515 */
int BgL_arg1241z00_1370;
{ /* ./Llib/object.scm 515 */
obj_t BgL_vectorz00_1371;
if(
VECTORP(BgL_oldzd2veczd2_1368))
{ /* ./Llib/object.scm 515 */
BgL_vectorz00_1371 = BgL_oldzd2veczd2_1368; }  else 
{ /* ./Llib/object.scm 515 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7814z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_oldzd2veczd2_1368, BGl_string7762z00zz__objectz00, 
BINT(((long)24061))); 
exit( -1 );} 
BgL_arg1241z00_1370 = 
VECTOR_LENGTH(BgL_vectorz00_1371); } 
BGl_za2classesza2z00zz__objectz00 = 
BGl_extendzd2vectorzd2zz__objectz00(BgL_oldzd2veczd2_1368, BFALSE, BgL_arg1241z00_1370); } } 
{ 
long BgL_iz00_571;
BgL_iz00_571 = ((long)0); 
BgL_loopz00_572:
{ /* ./Llib/object.scm 518 */
bool_t BgL_test1247z00_573;
{ /* ./Llib/object.scm 518 */
long BgL_n2z00_1373;
{ /* ./Llib/object.scm 518 */
obj_t BgL_auxz00_5345;
{ /* ./Llib/object.scm 518 */
obj_t BgL_aux4001z00_3065;
BgL_aux4001z00_3065 = BGl_za2nbzd2genericsza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux4001z00_3065))
{ /* ./Llib/object.scm 518 */
BgL_auxz00_5345 = BgL_aux4001z00_3065
; }  else 
{ /* ./Llib/object.scm 518 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7814z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4001z00_3065, BGl_string7762z00zz__objectz00, 
BINT(((long)24201))); 
exit( -1 );} } 
BgL_n2z00_1373 = 
(long)CINT(BgL_auxz00_5345); } 
BgL_test1247z00_573 = 
(BgL_iz00_571<BgL_n2z00_1373); } 
if(BgL_test1247z00_573)
{ /* ./Llib/object.scm 519 */
obj_t BgL_thezd2genericzd2_574;
{ /* ./Llib/object.scm 519 */
obj_t BgL_vectorz00_1374;int BgL_kz00_1375;
BgL_vectorz00_1374 = BGl_za2genericsza2z00zz__objectz00; 
BgL_kz00_1375 = 
(int)(BgL_iz00_571); 
{ /* ./Llib/object.scm 519 */
bool_t BgL_test2430z00_1376;
{ /* ./Llib/object.scm 519 */
int BgL_arg2435z00_1377;
BgL_arg2435z00_1377 = 
VECTOR_LENGTH(BgL_vectorz00_1374); 
BgL_test2430z00_1376 = 
BOUND_CHECK(BgL_kz00_1375, BgL_arg2435z00_1377); } 
if(BgL_test2430z00_1376)
{ /* ./Llib/object.scm 519 */
BgL_thezd2genericzd2_574 = 
VECTOR_REF(BgL_vectorz00_1374,BgL_kz00_1375); }  else 
{ /* ./Llib/object.scm 519 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1375), "./Ieee/vector.scm", ((long)5865)); 
BgL_thezd2genericzd2_574 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)24227))); } } } 
{ /* ./Llib/object.scm 519 */
obj_t BgL_defaultzd2bucketzd2_575;
{ /* ./Llib/object.scm 520 */
obj_t BgL_res2603z00_1383;
{ /* ./Llib/object.scm 520 */
obj_t BgL_aux4032z00_3069;
{ /* ./Llib/object.scm 520 */
int BgL_auxz00_5369;obj_t BgL_auxz00_5363;
BgL_auxz00_5369 = 
(int)(((long)2)); 
if(
PROCEDUREP(BgL_thezd2genericzd2_574))
{ /* ./Llib/object.scm 520 */
BgL_auxz00_5363 = BgL_thezd2genericzd2_574
; }  else 
{ /* ./Llib/object.scm 520 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7814z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_thezd2genericzd2_574, BGl_string7762z00zz__objectz00, 
BINT(((long)24273))); 
exit( -1 );} 
BgL_aux4032z00_3069 = 
PROCEDURE_REF(BgL_auxz00_5363, BgL_auxz00_5369); } 
if(
VECTORP(BgL_aux4032z00_3069))
{ /* ./Llib/object.scm 520 */
BgL_res2603z00_1383 = BgL_aux4032z00_3069; }  else 
{ /* ./Llib/object.scm 520 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7814z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux4032z00_3069, BGl_string7762z00zz__objectz00, 
BINT(((long)24273))); 
exit( -1 );} } 
BgL_defaultzd2bucketzd2_575 = BgL_res2603z00_1383; } 
{ /* ./Llib/object.scm 520 */
obj_t BgL_oldzd2methodzd2arrayz00_576;
{ /* ./Llib/object.scm 521 */
obj_t BgL_genericz00_1384;
if(
PROCEDUREP(BgL_thezd2genericzd2_574))
{ /* ./Llib/object.scm 521 */
BgL_genericz00_1384 = BgL_thezd2genericzd2_574; }  else 
{ /* ./Llib/object.scm 521 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7814z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_thezd2genericzd2_574, BGl_string7762z00zz__objectz00, 
BINT(((long)24364))); 
exit( -1 );} 
{ /* ./Llib/object.scm 521 */
int BgL_auxz00_5382;
BgL_auxz00_5382 = 
(int)(((long)1)); 
BgL_oldzd2methodzd2arrayz00_576 = 
PROCEDURE_REF(BgL_genericz00_1384, BgL_auxz00_5382); } } 
{ /* ./Llib/object.scm 521 */

{ /* ./Llib/object.scm 523 */
obj_t BgL_arg1249z00_577;
{ /* ./Llib/object.scm 523 */
int BgL_arg1241z00_1387;
{ /* ./Llib/object.scm 523 */
obj_t BgL_vectorz00_1388;
if(
VECTORP(BgL_oldzd2methodzd2arrayz00_576))
{ /* ./Llib/object.scm 523 */
BgL_vectorz00_1388 = BgL_oldzd2methodzd2arrayz00_576; }  else 
{ /* ./Llib/object.scm 523 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7814z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_oldzd2methodzd2arrayz00_576, BGl_string7762z00zz__objectz00, 
BINT(((long)24419))); 
exit( -1 );} 
BgL_arg1241z00_1387 = 
VECTOR_LENGTH(BgL_vectorz00_1388); } 
BgL_arg1249z00_577 = 
BGl_extendzd2vectorzd2zz__objectz00(BgL_oldzd2methodzd2arrayz00_576, BgL_defaultzd2bucketzd2_575, BgL_arg1241z00_1387); } 
{ /* ./Llib/object.scm 522 */
obj_t BgL_genericz00_1389;
if(
PROCEDUREP(BgL_thezd2genericzd2_574))
{ /* ./Llib/object.scm 522 */
BgL_genericz00_1389 = BgL_thezd2genericzd2_574; }  else 
{ /* ./Llib/object.scm 522 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7814z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_thezd2genericzd2_574, BGl_string7762z00zz__objectz00, 
BINT(((long)24412))); 
exit( -1 );} 
{ /* ./Llib/object.scm 522 */
int BgL_auxz00_5397;
BgL_auxz00_5397 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_genericz00_1389, BgL_auxz00_5397, BgL_arg1249z00_577); } } } 
{ 
long BgL_iz00_5400;
BgL_iz00_5400 = 
(BgL_iz00_571+((long)1)); 
BgL_iz00_571 = BgL_iz00_5400; 
goto BgL_loopz00_572;} } } } }  else 
{ /* ./Llib/object.scm 518 */
BgL_aux2763z00_2651 = ((bool_t)0); } } } 
POP_TRACE(); 
return BgL_aux2763z00_2651;} } } } 
}



/* double-nb-generics! */
obj_t BGl_doublezd2nbzd2genericsz12z12zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 530 */
{ /* ./Llib/object.scm 531 */
obj_t BgL_symbol2768z00_2652;
BgL_symbol2768z00_2652 = BGl_symbol7815z00zz__objectz00; 
{ /* ./Llib/object.scm 531 */

PUSH_TRACE(BgL_symbol2768z00_2652); BUNSPEC; 
{ /* ./Llib/object.scm 531 */
obj_t BgL_aux2767z00_2653;
{ /* ./Llib/object.scm 531 */
long BgL_za72za7_1394;
{ /* ./Llib/object.scm 531 */
obj_t BgL_auxz00_5404;
{ /* ./Llib/object.scm 531 */
obj_t BgL_aux4074z00_3077;
BgL_aux4074z00_3077 = BGl_za2nbzd2genericszd2maxza2z00zz__objectz00; 
if(
INTEGERP(BgL_aux4074z00_3077))
{ /* ./Llib/object.scm 531 */
BgL_auxz00_5404 = BgL_aux4074z00_3077
; }  else 
{ /* ./Llib/object.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7815z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4074z00_3077, BGl_string7762z00zz__objectz00, 
BINT(((long)24811))); 
exit( -1 );} } 
BgL_za72za7_1394 = 
(long)CINT(BgL_auxz00_5404); } 
{ /* ./Llib/object.scm 531 */
long BgL_auxz00_5411;
BgL_auxz00_5411 = 
(((long)2)*BgL_za72za7_1394); 
BGl_za2nbzd2genericszd2maxza2z00zz__objectz00 = 
BINT(BgL_auxz00_5411); } } 
{ /* ./Llib/object.scm 532 */
obj_t BgL_oldzd2veczd2_1395;
BgL_oldzd2veczd2_1395 = BGl_za2genericsza2z00zz__objectz00; 
{ /* ./Llib/object.scm 532 */
int BgL_arg1241z00_1397;
BgL_arg1241z00_1397 = 
VECTOR_LENGTH(BgL_oldzd2veczd2_1395); 
BgL_aux2767z00_2653 = ( 
BGl_za2genericsza2z00zz__objectz00 = 
BGl_extendzd2vectorzd2zz__objectz00(BgL_oldzd2veczd2_1395, BFALSE, BgL_arg1241z00_1397), BUNSPEC) ; } } 
POP_TRACE(); 
return BgL_aux2767z00_2653;} } } } 
}



/* object? */
BGL_EXPORTED_DEF bool_t BGl_objectzf3zf3zz__objectz00(obj_t BgL_objz00_57)
{ AN_OBJECT;
{ /* ./Llib/object.scm 537 */
{ /* ./Llib/object.scm 538 */
obj_t BgL_symbol2772z00_3741;
BgL_symbol2772z00_3741 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 538 */

PUSH_TRACE(BgL_symbol2772z00_3741); BUNSPEC; 
{ /* ./Llib/object.scm 538 */
bool_t BgL_aux2771z00_3742;
BgL_aux2771z00_3742 = 
BGL_OBJECTP(BgL_objz00_57); 
POP_TRACE(); 
return BgL_aux2771z00_3742;} } } } 
}



/* _object? */
obj_t BGl__objectzf3zf3zz__objectz00(obj_t BgL_envz00_2805, obj_t BgL_objz00_2806)
{ AN_OBJECT;
{ /* ./Llib/object.scm 537 */
{ /* ./Llib/object.scm 538 */
bool_t BgL_auxz00_5420;
{ /* ./Llib/object.scm 538 */
bool_t BgL_res8050z00_3746;
{ /* ./Llib/object.scm 538 */
obj_t BgL_symbol2772z00_3744;
BgL_symbol2772z00_3744 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 538 */

PUSH_TRACE(BgL_symbol2772z00_3744); BUNSPEC; 
{ /* ./Llib/object.scm 538 */
bool_t BgL_aux2771z00_3745;
BgL_aux2771z00_3745 = 
BGL_OBJECTP(BgL_objz00_2806); 
POP_TRACE(); 
BgL_res8050z00_3746 = BgL_aux2771z00_3745; } } } 
BgL_auxz00_5420 = BgL_res8050z00_3746; } 
return 
BBOOL(BgL_auxz00_5420);} } 
}



/* object-class-num */
BGL_EXPORTED_DEF long BGl_objectzd2classzd2numz00zz__objectz00(BgL_objectz00_bglt BgL_objz00_58)
{ AN_OBJECT;
{ /* ./Llib/object.scm 543 */
{ /* ./Llib/object.scm 544 */
obj_t BgL_symbol2776z00_3747;
BgL_symbol2776z00_3747 = BGl_symbol7817z00zz__objectz00; 
{ /* ./Llib/object.scm 544 */

PUSH_TRACE(BgL_symbol2776z00_3747); BUNSPEC; 
{ /* ./Llib/object.scm 544 */
long BgL_aux2775z00_3748;
BgL_aux2775z00_3748 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_58); 
POP_TRACE(); 
return BgL_aux2775z00_3748;} } } } 
}



/* _object-class-num */
obj_t BGl__objectzd2classzd2numz00zz__objectz00(obj_t BgL_envz00_2807, obj_t BgL_objz00_2808)
{ AN_OBJECT;
{ /* ./Llib/object.scm 543 */
{ /* ./Llib/object.scm 544 */
long BgL_auxz00_5428;
{ /* ./Llib/object.scm 544 */
long BgL_res8052z00_3756;
{ /* ./Llib/object.scm 544 */
BgL_objectz00_bglt BgL_objz00_3753;
{ /* ./Llib/object.scm 544 */
bool_t BgL_testz00_5429;
{ /* ./Llib/object.scm 544 */
bool_t BgL_res8051z00_3752;
{ /* ./Llib/object.scm 544 */
obj_t BgL_symbol2772z00_3750;
BgL_symbol2772z00_3750 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 544 */

PUSH_TRACE(BgL_symbol2772z00_3750); BUNSPEC; 
{ /* ./Llib/object.scm 544 */
bool_t BgL_aux2771z00_3751;
BgL_aux2771z00_3751 = 
BGL_OBJECTP(BgL_objz00_2808); 
POP_TRACE(); 
BgL_res8051z00_3752 = BgL_aux2771z00_3751; } } } 
BgL_testz00_5429 = BgL_res8051z00_3752; } 
if(BgL_testz00_5429)
{ /* ./Llib/object.scm 544 */
BgL_objz00_3753 = 
(BgL_objectz00_bglt)(BgL_objz00_2808); }  else 
{ /* ./Llib/object.scm 544 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7818z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2808, BGl_string7762z00zz__objectz00, 
BINT(((long)25405))); 
exit( -1 );} } 
{ /* ./Llib/object.scm 544 */
obj_t BgL_symbol2776z00_3754;
BgL_symbol2776z00_3754 = BGl_symbol7817z00zz__objectz00; 
{ /* ./Llib/object.scm 544 */

PUSH_TRACE(BgL_symbol2776z00_3754); BUNSPEC; 
{ /* ./Llib/object.scm 544 */
long BgL_aux2775z00_3755;
BgL_aux2775z00_3755 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3753); 
POP_TRACE(); 
BgL_res8052z00_3756 = BgL_aux2775z00_3755; } } } } 
BgL_auxz00_5428 = BgL_res8052z00_3756; } 
return 
BINT(BgL_auxz00_5428);} } 
}



/* object-class-num-set! */
BGL_EXPORTED_DEF obj_t BGl_objectzd2classzd2numzd2setz12zc0zz__objectz00(BgL_objectz00_bglt BgL_objz00_59, long BgL_numz00_60)
{ AN_OBJECT;
{ /* ./Llib/object.scm 549 */
{ /* ./Llib/object.scm 550 */
obj_t BgL_symbol2780z00_3757;
BgL_symbol2780z00_3757 = BGl_symbol7820z00zz__objectz00; 
{ /* ./Llib/object.scm 550 */

PUSH_TRACE(BgL_symbol2780z00_3757); BUNSPEC; 
{ /* ./Llib/object.scm 550 */
obj_t BgL_aux2779z00_3758;
BgL_aux2779z00_3758 = 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_59, BgL_numz00_60); 
POP_TRACE(); 
return BgL_aux2779z00_3758;} } } } 
}



/* _object-class-num-set! */
obj_t BGl__objectzd2classzd2numzd2setz12zc0zz__objectz00(obj_t BgL_envz00_2809, obj_t BgL_objz00_2810, obj_t BgL_numz00_2811)
{ AN_OBJECT;
{ /* ./Llib/object.scm 549 */
{ /* ./Llib/object.scm 550 */
BgL_objectz00_bglt BgL_objz00_3763;long BgL_numz00_3764;
{ /* ./Llib/object.scm 550 */
bool_t BgL_testz00_5444;
{ /* ./Llib/object.scm 550 */
bool_t BgL_res8053z00_3762;
{ /* ./Llib/object.scm 550 */
obj_t BgL_symbol2772z00_3760;
BgL_symbol2772z00_3760 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 550 */

PUSH_TRACE(BgL_symbol2772z00_3760); BUNSPEC; 
{ /* ./Llib/object.scm 550 */
bool_t BgL_aux2771z00_3761;
BgL_aux2771z00_3761 = 
BGL_OBJECTP(BgL_objz00_2810); 
POP_TRACE(); 
BgL_res8053z00_3762 = BgL_aux2771z00_3761; } } } 
BgL_testz00_5444 = BgL_res8053z00_3762; } 
if(BgL_testz00_5444)
{ /* ./Llib/object.scm 550 */
BgL_objz00_3763 = 
(BgL_objectz00_bglt)(BgL_objz00_2810); }  else 
{ /* ./Llib/object.scm 550 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7821z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2810, BGl_string7762z00zz__objectz00, 
BINT(((long)25703))); 
exit( -1 );} } 
{ /* ./Llib/object.scm 550 */
obj_t BgL_auxz00_5452;
if(
INTEGERP(BgL_numz00_2811))
{ /* ./Llib/object.scm 550 */
BgL_auxz00_5452 = BgL_numz00_2811
; }  else 
{ /* ./Llib/object.scm 550 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7821z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_numz00_2811, BGl_string7762z00zz__objectz00, 
BINT(((long)25703))); 
exit( -1 );} 
BgL_numz00_3764 = 
(long)CINT(BgL_auxz00_5452); } 
{ /* ./Llib/object.scm 550 */
obj_t BgL_symbol2780z00_3765;
BgL_symbol2780z00_3765 = BGl_symbol7820z00zz__objectz00; 
{ /* ./Llib/object.scm 550 */

PUSH_TRACE(BgL_symbol2780z00_3765); BUNSPEC; 
{ /* ./Llib/object.scm 550 */
obj_t BgL_aux2779z00_3766;
BgL_aux2779z00_3766 = 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_3763, BgL_numz00_3764); 
POP_TRACE(); 
return BgL_aux2779z00_3766;} } } } } 
}



/* object-mark-producer! */
BGL_EXPORTED_DEF obj_t BGl_objectzd2markzd2producerz12z12zz__objectz00(obj_t BgL_objz00_61)
{ AN_OBJECT;
{ /* ./Llib/object.scm 555 */
{ /* ./Llib/object.scm 556 */
obj_t BgL_symbol2784z00_3767;
BgL_symbol2784z00_3767 = BGl_symbol7822z00zz__objectz00; 
{ /* ./Llib/object.scm 556 */

PUSH_TRACE(BgL_symbol2784z00_3767); BUNSPEC; 
{ /* ./Llib/object.scm 556 */
obj_t BgL_aux2783z00_3768;
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_61); 
BgL_aux2783z00_3768 = BUNSPEC; 
POP_TRACE(); 
return BgL_aux2783z00_3768;} } } } 
}



/* _object-mark-producer! */
obj_t BGl__objectzd2markzd2producerz12z12zz__objectz00(obj_t BgL_envz00_2812, obj_t BgL_objz00_2813)
{ AN_OBJECT;
{ /* ./Llib/object.scm 555 */
{ /* ./Llib/object.scm 556 */
obj_t BgL_symbol2784z00_3770;
BgL_symbol2784z00_3770 = BGl_symbol7822z00zz__objectz00; 
{ /* ./Llib/object.scm 556 */

PUSH_TRACE(BgL_symbol2784z00_3770); BUNSPEC; 
{ /* ./Llib/object.scm 556 */
obj_t BgL_aux2783z00_3771;
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2813); 
BgL_aux2783z00_3771 = BUNSPEC; 
POP_TRACE(); 
return BgL_aux2783z00_3771;} } } } 
}



/* object-class */
BGL_EXPORTED_DEF obj_t BGl_objectzd2classzd2zz__objectz00(BgL_objectz00_bglt BgL_objectz00_62)
{ AN_OBJECT;
{ /* ./Llib/object.scm 562 */
{ /* ./Llib/object.scm 564 */
long BgL_arg1268z00_3772;
{ /* ./Llib/object.scm 564 */
long BgL_arg1273z00_3773;
BgL_arg1273z00_3773 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_62); 
BgL_arg1268z00_3772 = 
(BgL_arg1273z00_3773-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 564 */
obj_t BgL_vectorz00_3774;int BgL_kz00_3775;
{ /* ./Llib/object.scm 564 */
obj_t BgL_aux4122z00_3776;
BgL_aux4122z00_3776 = BGl_za2classesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux4122z00_3776))
{ /* ./Llib/object.scm 564 */
BgL_vectorz00_3774 = BgL_aux4122z00_3776; }  else 
{ /* ./Llib/object.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7823z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux4122z00_3776, BGl_string7762z00zz__objectz00, 
BINT(((long)26359))); 
exit( -1 );} } 
BgL_kz00_3775 = 
(int)(BgL_arg1268z00_3772); 
return 
VECTOR_REF(BgL_vectorz00_3774,BgL_kz00_3775);} } } 
}



/* _object-class */
obj_t BGl__objectzd2classzd2zz__objectz00(obj_t BgL_envz00_2814, obj_t BgL_objectz00_2815)
{ AN_OBJECT;
{ /* ./Llib/object.scm 562 */
{ /* ./Llib/object.scm 564 */
BgL_objectz00_bglt BgL_objectz00_3781;
{ /* ./Llib/object.scm 564 */
bool_t BgL_testz00_5477;
{ /* ./Llib/object.scm 564 */
bool_t BgL_res8054z00_3780;
{ /* ./Llib/object.scm 564 */
obj_t BgL_symbol2772z00_3778;
BgL_symbol2772z00_3778 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 564 */

PUSH_TRACE(BgL_symbol2772z00_3778); BUNSPEC; 
{ /* ./Llib/object.scm 564 */
bool_t BgL_aux2771z00_3779;
BgL_aux2771z00_3779 = 
BGL_OBJECTP(BgL_objectz00_2815); 
POP_TRACE(); 
BgL_res8054z00_3780 = BgL_aux2771z00_3779; } } } 
BgL_testz00_5477 = BgL_res8054z00_3780; } 
if(BgL_testz00_5477)
{ /* ./Llib/object.scm 564 */
BgL_objectz00_3781 = 
(BgL_objectz00_bglt)(BgL_objectz00_2815); }  else 
{ /* ./Llib/object.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7824z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objectz00_2815, BGl_string7762z00zz__objectz00, 
BINT(((long)26359))); 
exit( -1 );} } 
{ /* ./Llib/object.scm 564 */
long BgL_arg1268z00_3782;
{ /* ./Llib/object.scm 564 */
long BgL_arg1273z00_3783;
BgL_arg1273z00_3783 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_3781); 
BgL_arg1268z00_3782 = 
(BgL_arg1273z00_3783-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 564 */
obj_t BgL_vectorz00_3784;int BgL_kz00_3785;
{ /* ./Llib/object.scm 564 */
obj_t BgL_aux4122z00_3786;
BgL_aux4122z00_3786 = BGl_za2classesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux4122z00_3786))
{ /* ./Llib/object.scm 564 */
BgL_vectorz00_3784 = BgL_aux4122z00_3786; }  else 
{ /* ./Llib/object.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7823z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux4122z00_3786, BGl_string7762z00zz__objectz00, 
BINT(((long)26359))); 
exit( -1 );} } 
BgL_kz00_3785 = 
(int)(BgL_arg1268z00_3782); 
return 
VECTOR_REF(BgL_vectorz00_3784,BgL_kz00_3785);} } } } 
}



/* generic-default */
BGL_EXPORTED_DEF obj_t BGl_genericzd2defaultzd2zz__objectz00(obj_t BgL_genericz00_63)
{ AN_OBJECT;
{ /* ./Llib/object.scm 569 */
{ /* ./Llib/object.scm 570 */
obj_t BgL_symbol2788z00_3787;
BgL_symbol2788z00_3787 = BGl_symbol7825z00zz__objectz00; 
{ /* ./Llib/object.scm 570 */

PUSH_TRACE(BgL_symbol2788z00_3787); BUNSPEC; 
{ /* ./Llib/object.scm 570 */
obj_t BgL_aux2787z00_3788;
{ /* ./Llib/object.scm 570 */
obj_t BgL_aux4145z00_3789;
{ /* ./Llib/object.scm 570 */
int BgL_auxz00_5495;
BgL_auxz00_5495 = 
(int)(((long)0)); 
BgL_aux4145z00_3789 = 
PROCEDURE_REF(BgL_genericz00_63, BgL_auxz00_5495); } 
if(
PROCEDUREP(BgL_aux4145z00_3789))
{ /* ./Llib/object.scm 570 */
BgL_aux2787z00_3788 = BgL_aux4145z00_3789; }  else 
{ /* ./Llib/object.scm 570 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7825z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux4145z00_3789, BGl_string7762z00zz__objectz00, 
BINT(((long)26675))); 
exit( -1 );} } 
POP_TRACE(); 
return BgL_aux2787z00_3788;} } } } 
}



/* _generic-default */
obj_t BGl__genericzd2defaultzd2zz__objectz00(obj_t BgL_envz00_2816, obj_t BgL_genericz00_2817)
{ AN_OBJECT;
{ /* ./Llib/object.scm 569 */
{ /* ./Llib/object.scm 570 */
obj_t BgL_res8055z00_3794;
{ /* ./Llib/object.scm 570 */
obj_t BgL_genericz00_3790;
if(
PROCEDUREP(BgL_genericz00_2817))
{ /* ./Llib/object.scm 570 */
BgL_genericz00_3790 = BgL_genericz00_2817; }  else 
{ /* ./Llib/object.scm 570 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7826z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_2817, BGl_string7762z00zz__objectz00, 
BINT(((long)26675))); 
exit( -1 );} 
{ /* ./Llib/object.scm 570 */
obj_t BgL_symbol2788z00_3791;
BgL_symbol2788z00_3791 = BGl_symbol7825z00zz__objectz00; 
{ /* ./Llib/object.scm 570 */

PUSH_TRACE(BgL_symbol2788z00_3791); BUNSPEC; 
{ /* ./Llib/object.scm 570 */
obj_t BgL_aux2787z00_3792;
{ /* ./Llib/object.scm 570 */
obj_t BgL_aux4145z00_3793;
{ /* ./Llib/object.scm 570 */
int BgL_auxz00_5510;
BgL_auxz00_5510 = 
(int)(((long)0)); 
BgL_aux4145z00_3793 = 
PROCEDURE_REF(BgL_genericz00_3790, BgL_auxz00_5510); } 
if(
PROCEDUREP(BgL_aux4145z00_3793))
{ /* ./Llib/object.scm 570 */
BgL_aux2787z00_3792 = BgL_aux4145z00_3793; }  else 
{ /* ./Llib/object.scm 570 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7825z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux4145z00_3793, BGl_string7762z00zz__objectz00, 
BINT(((long)26675))); 
exit( -1 );} } 
POP_TRACE(); 
BgL_res8055z00_3794 = BgL_aux2787z00_3792; } } } } 
return BgL_res8055z00_3794;} } 
}



/* generic-method-array */
BGL_EXPORTED_DEF obj_t BGl_genericzd2methodzd2arrayz00zz__objectz00(obj_t BgL_genericz00_66)
{ AN_OBJECT;
{ /* ./Llib/object.scm 581 */
{ /* ./Llib/object.scm 582 */
obj_t BgL_symbol2792z00_3795;
BgL_symbol2792z00_3795 = BGl_symbol7827z00zz__objectz00; 
{ /* ./Llib/object.scm 582 */

PUSH_TRACE(BgL_symbol2792z00_3795); BUNSPEC; 
{ /* ./Llib/object.scm 582 */
obj_t BgL_aux2791z00_3796;
{ /* ./Llib/object.scm 582 */
int BgL_auxz00_5520;
BgL_auxz00_5520 = 
(int)(((long)1)); 
BgL_aux2791z00_3796 = 
PROCEDURE_REF(BgL_genericz00_66, BgL_auxz00_5520); } 
POP_TRACE(); 
return BgL_aux2791z00_3796;} } } } 
}



/* _generic-method-array */
obj_t BGl__genericzd2methodzd2arrayz00zz__objectz00(obj_t BgL_envz00_2818, obj_t BgL_genericz00_2819)
{ AN_OBJECT;
{ /* ./Llib/object.scm 581 */
{ /* ./Llib/object.scm 582 */
obj_t BgL_genericz00_3797;
if(
PROCEDUREP(BgL_genericz00_2819))
{ /* ./Llib/object.scm 582 */
BgL_genericz00_3797 = BgL_genericz00_2819; }  else 
{ /* ./Llib/object.scm 582 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7828z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_2819, BGl_string7762z00zz__objectz00, 
BINT(((long)27290))); 
exit( -1 );} 
{ /* ./Llib/object.scm 582 */
obj_t BgL_symbol2792z00_3798;
BgL_symbol2792z00_3798 = BGl_symbol7827z00zz__objectz00; 
{ /* ./Llib/object.scm 582 */

PUSH_TRACE(BgL_symbol2792z00_3798); BUNSPEC; 
{ /* ./Llib/object.scm 582 */
obj_t BgL_aux2791z00_3799;
{ /* ./Llib/object.scm 582 */
int BgL_auxz00_5530;
BgL_auxz00_5530 = 
(int)(((long)1)); 
BgL_aux2791z00_3799 = 
PROCEDURE_REF(BgL_genericz00_3797, BgL_auxz00_5530); } 
POP_TRACE(); 
return BgL_aux2791z00_3799;} } } } } 
}



/* generic-pre-method-set! */
BGL_EXPORTED_DEF obj_t BGl_genericzd2prezd2methodzd2setz12zc0zz__objectz00(obj_t BgL_genericz00_69, obj_t BgL_prezd2methodzd2_70)
{ AN_OBJECT;
{ /* ./Llib/object.scm 593 */
{ /* ./Llib/object.scm 594 */
obj_t BgL_symbol2796z00_3800;
BgL_symbol2796z00_3800 = BGl_symbol7829z00zz__objectz00; 
{ /* ./Llib/object.scm 594 */

PUSH_TRACE(BgL_symbol2796z00_3800); BUNSPEC; 
{ /* ./Llib/object.scm 594 */
obj_t BgL_aux2795z00_3801;
BgL_aux2795z00_3801 = BUNSPEC; 
POP_TRACE(); 
return BgL_aux2795z00_3801;} } } } 
}



/* _generic-pre-method-set! */
obj_t BGl__genericzd2prezd2methodzd2setz12zc0zz__objectz00(obj_t BgL_envz00_2820, obj_t BgL_genericz00_2821, obj_t BgL_prezd2methodzd2_2822)
{ AN_OBJECT;
{ /* ./Llib/object.scm 593 */
{ /* ./Llib/object.scm 594 */
obj_t BgL_genericz00_3802;
if(
PROCEDUREP(BgL_genericz00_2821))
{ /* ./Llib/object.scm 594 */
BgL_genericz00_3802 = BgL_genericz00_2821; }  else 
{ /* ./Llib/object.scm 594 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7830z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_2821, BGl_string7762z00zz__objectz00, 
BINT(((long)27945))); 
exit( -1 );} 
{ /* ./Llib/object.scm 594 */
obj_t BgL_symbol2796z00_3804;
BgL_symbol2796z00_3804 = BGl_symbol7829z00zz__objectz00; 
{ /* ./Llib/object.scm 594 */

PUSH_TRACE(BgL_symbol2796z00_3804); BUNSPEC; 
{ /* ./Llib/object.scm 594 */
obj_t BgL_aux2795z00_3805;
BgL_aux2795z00_3805 = BUNSPEC; 
POP_TRACE(); 
return BgL_aux2795z00_3805;} } } } } 
}



/* method-array-ref */
BGL_EXPORTED_DEF obj_t BGl_methodzd2arrayzd2refz00zz__objectz00(obj_t BgL_genericz00_74, obj_t BgL_arrayz00_75, int BgL_offsetz00_76)
{ AN_OBJECT;
{ /* ./Llib/object.scm 611 */
{ /* ./Llib/object.scm 612 */
obj_t BgL_symbol2800z00_3806;
BgL_symbol2800z00_3806 = BGl_symbol7831z00zz__objectz00; 
{ /* ./Llib/object.scm 612 */

PUSH_TRACE(BgL_symbol2800z00_3806); BUNSPEC; 
{ /* ./Llib/object.scm 612 */
obj_t BgL_aux2799z00_3807;
{ /* ./Llib/object.scm 612 */
long BgL_offsetz00_3808;
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_5544;
BgL_auxz00_5544 = 
(long)(BgL_offsetz00_76); 
BgL_offsetz00_3808 = 
(BgL_auxz00_5544-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 612 */
long BgL_modz00_3809;
{ /* ./Llib/object.scm 612 */
int BgL_arg1289z00_3810;
BgL_arg1289z00_3810 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_5548;
BgL_auxz00_5548 = 
(long)(BgL_arg1289z00_3810); 
BgL_modz00_3809 = 
(BgL_offsetz00_3808/BgL_auxz00_5548); } } 
{ /* ./Llib/object.scm 612 */
long BgL_restz00_3811;
{ /* ./Llib/object.scm 612 */
int BgL_arg1285z00_3812;
BgL_arg1285z00_3812 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_5552;
BgL_auxz00_5552 = 
(long)(BgL_arg1285z00_3812); 
BgL_restz00_3811 = 
(BgL_offsetz00_3808%BgL_auxz00_5552); } } 
{ /* ./Llib/object.scm 612 */

{ /* ./Llib/object.scm 612 */
obj_t BgL_bucketz00_3813;
{ 
int BgL_auxz00_5555;
BgL_auxz00_5555 = 
(int)(BgL_modz00_3809); 
BgL_bucketz00_3813 = 
VECTOR_REF(BgL_arrayz00_75,BgL_auxz00_5555); } 
{ /* ./Llib/object.scm 612 */
obj_t BgL_vectorz00_3814;int BgL_kz00_3815;
if(
VECTORP(BgL_bucketz00_3813))
{ /* ./Llib/object.scm 612 */
BgL_vectorz00_3814 = BgL_bucketz00_3813; }  else 
{ /* ./Llib/object.scm 612 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7831z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_3813, BGl_string7762z00zz__objectz00, 
BINT(((long)28891))); 
exit( -1 );} 
BgL_kz00_3815 = 
(int)(BgL_restz00_3811); 
BgL_aux2799z00_3807 = 
VECTOR_REF(BgL_vectorz00_3814,BgL_kz00_3815); } } } } } } 
POP_TRACE(); 
return BgL_aux2799z00_3807;} } } } 
}



/* _method-array-ref */
obj_t BGl__methodzd2arrayzd2refz00zz__objectz00(obj_t BgL_envz00_2823, obj_t BgL_genericz00_2824, obj_t BgL_arrayz00_2825, obj_t BgL_offsetz00_2826)
{ AN_OBJECT;
{ /* ./Llib/object.scm 611 */
{ /* ./Llib/object.scm 612 */
obj_t BgL_genericz00_3816;obj_t BgL_arrayz00_3817;int BgL_offsetz00_3818;
if(
PROCEDUREP(BgL_genericz00_2824))
{ /* ./Llib/object.scm 612 */
BgL_genericz00_3816 = BgL_genericz00_2824; }  else 
{ /* ./Llib/object.scm 612 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7832z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_2824, BGl_string7762z00zz__objectz00, 
BINT(((long)28891))); 
exit( -1 );} 
if(
VECTORP(BgL_arrayz00_2825))
{ /* ./Llib/object.scm 612 */
BgL_arrayz00_3817 = BgL_arrayz00_2825; }  else 
{ /* ./Llib/object.scm 612 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7832z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arrayz00_2825, BGl_string7762z00zz__objectz00, 
BINT(((long)28891))); 
exit( -1 );} 
{ /* ./Llib/object.scm 612 */
obj_t BgL_auxz00_5576;
if(
INTEGERP(BgL_offsetz00_2826))
{ /* ./Llib/object.scm 612 */
BgL_auxz00_5576 = BgL_offsetz00_2826
; }  else 
{ /* ./Llib/object.scm 612 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7832z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_offsetz00_2826, BGl_string7762z00zz__objectz00, 
BINT(((long)28891))); 
exit( -1 );} 
BgL_offsetz00_3818 = 
CINT(BgL_auxz00_5576); } 
{ /* ./Llib/object.scm 612 */
obj_t BgL_symbol2800z00_3819;
BgL_symbol2800z00_3819 = BGl_symbol7831z00zz__objectz00; 
{ /* ./Llib/object.scm 612 */

PUSH_TRACE(BgL_symbol2800z00_3819); BUNSPEC; 
{ /* ./Llib/object.scm 612 */
obj_t BgL_aux2799z00_3820;
{ /* ./Llib/object.scm 612 */
long BgL_offsetz00_3821;
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_5584;
BgL_auxz00_5584 = 
(long)(BgL_offsetz00_3818); 
BgL_offsetz00_3821 = 
(BgL_auxz00_5584-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 612 */
long BgL_modz00_3822;
{ /* ./Llib/object.scm 612 */
int BgL_arg1289z00_3823;
BgL_arg1289z00_3823 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_5588;
BgL_auxz00_5588 = 
(long)(BgL_arg1289z00_3823); 
BgL_modz00_3822 = 
(BgL_offsetz00_3821/BgL_auxz00_5588); } } 
{ /* ./Llib/object.scm 612 */
long BgL_restz00_3824;
{ /* ./Llib/object.scm 612 */
int BgL_arg1285z00_3825;
BgL_arg1285z00_3825 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_5592;
BgL_auxz00_5592 = 
(long)(BgL_arg1285z00_3825); 
BgL_restz00_3824 = 
(BgL_offsetz00_3821%BgL_auxz00_5592); } } 
{ /* ./Llib/object.scm 612 */

{ /* ./Llib/object.scm 612 */
obj_t BgL_bucketz00_3826;
{ 
int BgL_auxz00_5595;
BgL_auxz00_5595 = 
(int)(BgL_modz00_3822); 
BgL_bucketz00_3826 = 
VECTOR_REF(BgL_arrayz00_3817,BgL_auxz00_5595); } 
{ /* ./Llib/object.scm 612 */
obj_t BgL_vectorz00_3827;int BgL_kz00_3828;
if(
VECTORP(BgL_bucketz00_3826))
{ /* ./Llib/object.scm 612 */
BgL_vectorz00_3827 = BgL_bucketz00_3826; }  else 
{ /* ./Llib/object.scm 612 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7831z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_3826, BGl_string7762z00zz__objectz00, 
BINT(((long)28891))); 
exit( -1 );} 
BgL_kz00_3828 = 
(int)(BgL_restz00_3824); 
BgL_aux2799z00_3820 = 
VECTOR_REF(BgL_vectorz00_3827,BgL_kz00_3828); } } } } } } 
POP_TRACE(); 
return BgL_aux2799z00_3820;} } } } } 
}



/* method-array-set! */
obj_t BGl_methodzd2arrayzd2setz12z12zz__objectz00(obj_t BgL_genericz00_77, obj_t BgL_arrayz00_78, long BgL_offsetz00_79, obj_t BgL_valz00_80)
{ AN_OBJECT;
{ /* ./Llib/object.scm 621 */
{ /* ./Llib/object.scm 622 */
obj_t BgL_symbol2804z00_2670;
BgL_symbol2804z00_2670 = BGl_symbol7833z00zz__objectz00; 
{ /* ./Llib/object.scm 622 */

PUSH_TRACE(BgL_symbol2804z00_2670); BUNSPEC; 
{ /* ./Llib/object.scm 622 */
obj_t BgL_aux2803z00_2671;
{ /* ./Llib/object.scm 622 */
long BgL_offsetz00_587;
BgL_offsetz00_587 = 
(BgL_offsetz00_79-OBJECT_TYPE); 
{ /* ./Llib/object.scm 622 */
long BgL_modz00_588;
{ /* ./Llib/object.scm 623 */
int BgL_arg1317z00_599;
BgL_arg1317z00_599 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 623 */
long BgL_auxz00_5609;
BgL_auxz00_5609 = 
(long)(BgL_arg1317z00_599); 
BgL_modz00_588 = 
(BgL_offsetz00_587/BgL_auxz00_5609); } } 
{ /* ./Llib/object.scm 623 */
long BgL_restz00_589;
{ /* ./Llib/object.scm 624 */
int BgL_arg1313z00_598;
BgL_arg1313z00_598 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 624 */
long BgL_auxz00_5613;
BgL_auxz00_5613 = 
(long)(BgL_arg1313z00_598); 
BgL_restz00_589 = 
(BgL_offsetz00_587%BgL_auxz00_5613); } } 
{ /* ./Llib/object.scm 624 */

{ /* ./Llib/object.scm 625 */
obj_t BgL_bucketz00_590;
{ /* ./Llib/object.scm 625 */
obj_t BgL_vectorz00_1432;int BgL_kz00_1433;
if(
VECTORP(BgL_arrayz00_78))
{ /* ./Llib/object.scm 625 */
BgL_vectorz00_1432 = BgL_arrayz00_78; }  else 
{ /* ./Llib/object.scm 625 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7833z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arrayz00_78, BGl_string7762z00zz__objectz00, 
BINT(((long)29618))); 
exit( -1 );} 
BgL_kz00_1433 = 
(int)(BgL_modz00_588); 
BgL_bucketz00_590 = 
VECTOR_REF(BgL_vectorz00_1432,BgL_kz00_1433); } 
{ /* ./Llib/object.scm 626 */
bool_t BgL_test1293z00_591;
{ /* ./Llib/object.scm 626 */
bool_t BgL_test1301z00_594;
{ /* ./Llib/object.scm 626 */
obj_t BgL_arg1308z00_597;
{ /* ./Llib/object.scm 626 */
obj_t BgL_res2608z00_1435;
{ /* ./Llib/object.scm 626 */
obj_t BgL_genericz00_1434;
if(
PROCEDUREP(BgL_genericz00_77))
{ /* ./Llib/object.scm 626 */
BgL_genericz00_1434 = BgL_genericz00_77; }  else 
{ /* ./Llib/object.scm 626 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7833z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_77, BGl_string7762z00zz__objectz00, 
BINT(((long)29669))); 
exit( -1 );} 
{ /* ./Llib/object.scm 626 */
obj_t BgL_aux4260z00_3109;
{ /* ./Llib/object.scm 626 */
int BgL_auxz00_5628;
BgL_auxz00_5628 = 
(int)(((long)0)); 
BgL_aux4260z00_3109 = 
PROCEDURE_REF(BgL_genericz00_1434, BgL_auxz00_5628); } 
if(
PROCEDUREP(BgL_aux4260z00_3109))
{ /* ./Llib/object.scm 626 */
BgL_res2608z00_1435 = BgL_aux4260z00_3109; }  else 
{ /* ./Llib/object.scm 626 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7833z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux4260z00_3109, BGl_string7762z00zz__objectz00, 
BINT(((long)29646))); 
exit( -1 );} } } 
BgL_arg1308z00_597 = BgL_res2608z00_1435; } 
BgL_test1301z00_594 = 
(BgL_valz00_80==BgL_arg1308z00_597); } 
if(BgL_test1301z00_594)
{ /* ./Llib/object.scm 626 */
BgL_test1293z00_591 = ((bool_t)1); }  else 
{ /* ./Llib/object.scm 627 */
bool_t BgL_test1302z00_595;
{ /* ./Llib/object.scm 627 */
obj_t BgL_arg1304z00_596;
{ /* ./Llib/object.scm 627 */
obj_t BgL_res2609z00_1437;
{ /* ./Llib/object.scm 627 */
obj_t BgL_aux4281z00_3113;
{ /* ./Llib/object.scm 627 */
int BgL_auxz00_5644;obj_t BgL_auxz00_5638;
BgL_auxz00_5644 = 
(int)(((long)2)); 
if(
PROCEDUREP(BgL_genericz00_77))
{ /* ./Llib/object.scm 627 */
BgL_auxz00_5638 = BgL_genericz00_77
; }  else 
{ /* ./Llib/object.scm 627 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7833z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_77, BGl_string7762z00zz__objectz00, 
BINT(((long)29693))); 
exit( -1 );} 
BgL_aux4281z00_3113 = 
PROCEDURE_REF(BgL_auxz00_5638, BgL_auxz00_5644); } 
if(
VECTORP(BgL_aux4281z00_3113))
{ /* ./Llib/object.scm 627 */
BgL_res2609z00_1437 = BgL_aux4281z00_3113; }  else 
{ /* ./Llib/object.scm 627 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7833z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux4281z00_3113, BGl_string7762z00zz__objectz00, 
BINT(((long)29693))); 
exit( -1 );} } 
BgL_arg1304z00_596 = BgL_res2609z00_1437; } 
BgL_test1302z00_595 = 
(BgL_bucketz00_590==BgL_arg1304z00_596); } 
if(BgL_test1302z00_595)
{ /* ./Llib/object.scm 627 */
BgL_test1293z00_591 = ((bool_t)0); }  else 
{ /* ./Llib/object.scm 627 */
BgL_test1293z00_591 = ((bool_t)1); } } } 
if(BgL_test1293z00_591)
{ /* ./Llib/object.scm 628 */
obj_t BgL_vectorz00_1438;int BgL_kz00_1439;
if(
VECTORP(BgL_bucketz00_590))
{ /* ./Llib/object.scm 628 */
BgL_vectorz00_1438 = BgL_bucketz00_590; }  else 
{ /* ./Llib/object.scm 628 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7833z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_590, BGl_string7762z00zz__objectz00, 
BINT(((long)29756))); 
exit( -1 );} 
BgL_kz00_1439 = 
(int)(BgL_restz00_589); 
{ /* ./Llib/object.scm 628 */
obj_t BgL_xz00_3117;
BgL_xz00_3117 = 
VECTOR_SET(BgL_vectorz00_1438,BgL_kz00_1439,BgL_valz00_80); 
BgL_aux2803z00_2671 = BUNSPEC; } }  else 
{ /* ./Llib/object.scm 630 */
obj_t BgL_bucketz00_592;
{ /* ./Llib/object.scm 630 */
int BgL_arg1298z00_593;
BgL_arg1298z00_593 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 630 */
obj_t BgL_auxz00_5663;
if(
VECTORP(BgL_bucketz00_590))
{ /* ./Llib/object.scm 630 */
BgL_auxz00_5663 = BgL_bucketz00_590
; }  else 
{ /* ./Llib/object.scm 630 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7833z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_590, BGl_string7762z00zz__objectz00, 
BINT(((long)29846))); 
exit( -1 );} 
BgL_bucketz00_592 = 
BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(BgL_auxz00_5663, BgL_arg1298z00_593); } } 
{ 
int BgL_auxz00_5670;
BgL_auxz00_5670 = 
(int)(BgL_restz00_589); 
VECTOR_SET(BgL_bucketz00_592,BgL_auxz00_5670,BgL_valz00_80); } 
{ /* ./Llib/object.scm 632 */
obj_t BgL_vectorz00_1445;int BgL_kz00_1446;
if(
VECTORP(BgL_arrayz00_78))
{ /* ./Llib/object.scm 632 */
BgL_vectorz00_1445 = BgL_arrayz00_78; }  else 
{ /* ./Llib/object.scm 632 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7833z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arrayz00_78, BGl_string7762z00zz__objectz00, 
BINT(((long)29937))); 
exit( -1 );} 
BgL_kz00_1446 = 
(int)(BgL_modz00_588); 
{ /* ./Llib/object.scm 632 */
obj_t BgL_xz00_3122;
BgL_xz00_3122 = 
VECTOR_SET(BgL_vectorz00_1445,BgL_kz00_1446,BgL_bucketz00_592); 
BgL_aux2803z00_2671 = BUNSPEC; } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2803z00_2671;} } } } 
}



/* generics-add-class! */
obj_t BGl_genericszd2addzd2classz12z12zz__objectz00(long BgL_classzd2numzd2_81, long BgL_superzd2numzd2_82)
{ AN_OBJECT;
{ /* ./Llib/object.scm 639 */
{ /* ./Llib/object.scm 640 */
obj_t BgL_symbol2808z00_2672;
BgL_symbol2808z00_2672 = BGl_symbol7834z00zz__objectz00; 
{ /* ./Llib/object.scm 640 */

PUSH_TRACE(BgL_symbol2808z00_2672); BUNSPEC; 
{ /* ./Llib/object.scm 640 */
obj_t BgL_aux2807z00_2673;
{ 
long BgL_gz00_600;
BgL_gz00_600 = ((long)0); 
BgL_loopz00_601:
{ /* ./Llib/object.scm 641 */
bool_t BgL_test1322z00_602;
{ /* ./Llib/object.scm 641 */
long BgL_n2z00_1449;
{ /* ./Llib/object.scm 641 */
obj_t BgL_auxz00_5682;
{ /* ./Llib/object.scm 641 */
obj_t BgL_aux4325z00_3123;
BgL_aux4325z00_3123 = BGl_za2nbzd2genericsza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux4325z00_3123))
{ /* ./Llib/object.scm 641 */
BgL_auxz00_5682 = BgL_aux4325z00_3123
; }  else 
{ /* ./Llib/object.scm 641 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7834z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4325z00_3123, BGl_string7762z00zz__objectz00, 
BINT(((long)30430))); 
exit( -1 );} } 
BgL_n2z00_1449 = 
(long)CINT(BgL_auxz00_5682); } 
BgL_test1322z00_602 = 
(BgL_gz00_600==BgL_n2z00_1449); } 
if(BgL_test1322z00_602)
{ /* ./Llib/object.scm 641 */
BgL_aux2807z00_2673 = BGl_symbol7811z00zz__objectz00; }  else 
{ /* ./Llib/object.scm 643 */
obj_t BgL_thezd2genericzd2_603;
{ /* ./Llib/object.scm 643 */
obj_t BgL_vectorz00_1450;int BgL_kz00_1451;
BgL_vectorz00_1450 = BGl_za2genericsza2z00zz__objectz00; 
BgL_kz00_1451 = 
(int)(BgL_gz00_600); 
{ /* ./Llib/object.scm 643 */
bool_t BgL_test2430z00_1452;
{ /* ./Llib/object.scm 643 */
int BgL_arg2435z00_1453;
BgL_arg2435z00_1453 = 
VECTOR_LENGTH(BgL_vectorz00_1450); 
BgL_test2430z00_1452 = 
BOUND_CHECK(BgL_kz00_1451, BgL_arg2435z00_1453); } 
if(BgL_test2430z00_1452)
{ /* ./Llib/object.scm 643 */
BgL_thezd2genericzd2_603 = 
VECTOR_REF(BgL_vectorz00_1450,BgL_kz00_1451); }  else 
{ /* ./Llib/object.scm 643 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1451), "./Ieee/vector.scm", ((long)5865)); 
BgL_thezd2genericzd2_603 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)30465))); } } } 
{ /* ./Llib/object.scm 643 */
obj_t BgL_methodzd2arrayzd2_604;
{ /* ./Llib/object.scm 644 */
obj_t BgL_genericz00_1458;
if(
PROCEDUREP(BgL_thezd2genericzd2_603))
{ /* ./Llib/object.scm 644 */
BgL_genericz00_1458 = BgL_thezd2genericzd2_603; }  else 
{ /* ./Llib/object.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7834z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_thezd2genericzd2_603, BGl_string7762z00zz__objectz00, 
BINT(((long)30541))); 
exit( -1 );} 
{ /* ./Llib/object.scm 644 */
int BgL_auxz00_5705;
BgL_auxz00_5705 = 
(int)(((long)1)); 
BgL_methodzd2arrayzd2_604 = 
PROCEDURE_REF(BgL_genericz00_1458, BgL_auxz00_5705); } } 
{ /* ./Llib/object.scm 644 */
obj_t BgL_methodz00_605;
{ /* ./Llib/object.scm 645 */
obj_t BgL_arrayz00_1460;int BgL_offsetz00_1461;
if(
VECTORP(BgL_methodzd2arrayzd2_604))
{ /* ./Llib/object.scm 646 */
BgL_arrayz00_1460 = BgL_methodzd2arrayzd2_604; }  else 
{ /* ./Llib/object.scm 646 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7834z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_methodzd2arrayzd2_604, BGl_string7762z00zz__objectz00, 
BINT(((long)30605))); 
exit( -1 );} 
BgL_offsetz00_1461 = 
(int)(BgL_superzd2numzd2_82); 
{ /* ./Llib/object.scm 645 */
long BgL_offsetz00_1462;
{ /* ./Llib/object.scm 645 */
long BgL_auxz00_5714;
BgL_auxz00_5714 = 
(long)(BgL_offsetz00_1461); 
BgL_offsetz00_1462 = 
(BgL_auxz00_5714-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 645 */
long BgL_modz00_1463;
{ /* ./Llib/object.scm 645 */
int BgL_arg1289z00_1464;
BgL_arg1289z00_1464 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 645 */
long BgL_auxz00_5718;
BgL_auxz00_5718 = 
(long)(BgL_arg1289z00_1464); 
BgL_modz00_1463 = 
(BgL_offsetz00_1462/BgL_auxz00_5718); } } 
{ /* ./Llib/object.scm 645 */
long BgL_restz00_1465;
{ /* ./Llib/object.scm 645 */
int BgL_arg1285z00_1466;
BgL_arg1285z00_1466 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 645 */
long BgL_auxz00_5722;
BgL_auxz00_5722 = 
(long)(BgL_arg1285z00_1466); 
BgL_restz00_1465 = 
(BgL_offsetz00_1462%BgL_auxz00_5722); } } 
{ /* ./Llib/object.scm 645 */

{ /* ./Llib/object.scm 645 */
obj_t BgL_bucketz00_1467;
{ 
int BgL_auxz00_5725;
BgL_auxz00_5725 = 
(int)(BgL_modz00_1463); 
BgL_bucketz00_1467 = 
VECTOR_REF(BgL_arrayz00_1460,BgL_auxz00_5725); } 
{ /* ./Llib/object.scm 645 */
obj_t BgL_vectorz00_1478;int BgL_kz00_1479;
if(
VECTORP(BgL_bucketz00_1467))
{ /* ./Llib/object.scm 645 */
BgL_vectorz00_1478 = BgL_bucketz00_1467; }  else 
{ /* ./Llib/object.scm 645 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7834z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_1467, BGl_string7762z00zz__objectz00, 
BINT(((long)30556))); 
exit( -1 );} 
BgL_kz00_1479 = 
(int)(BgL_restz00_1465); 
BgL_methodz00_605 = 
VECTOR_REF(BgL_vectorz00_1478,BgL_kz00_1479); } } } } } } } 
{ /* ./Llib/object.scm 645 */

BGl_methodzd2arrayzd2setz12z12zz__objectz00(BgL_thezd2genericzd2_603, BgL_methodzd2arrayzd2_604, BgL_classzd2numzd2_81, BgL_methodz00_605); 
{ 
long BgL_gz00_5736;
BgL_gz00_5736 = 
(BgL_gz00_600+((long)1)); 
BgL_gz00_600 = BgL_gz00_5736; 
goto BgL_loopz00_601;} } } } } } } 
POP_TRACE(); 
return BgL_aux2807z00_2673;} } } } 
}



/* register-class! */
BGL_EXPORTED_DEF obj_t BGl_registerzd2classz12zc0zz__objectz00(obj_t BgL_namez00_83, obj_t BgL_superz00_84, obj_t BgL_creatorz00_85, obj_t BgL_allocatez00_86, long BgL_hashz00_87, obj_t BgL_defz00_88, obj_t BgL_constructorz00_89, obj_t BgL_virtualz00_90)
{ AN_OBJECT;
{ /* ./Llib/object.scm 654 */
{ /* ./Llib/object.scm 655 */
obj_t BgL_symbol2812z00_2674;
BgL_symbol2812z00_2674 = BGl_symbol7835z00zz__objectz00; 
{ /* ./Llib/object.scm 655 */

PUSH_TRACE(BgL_symbol2812z00_2674); BUNSPEC; 
{ /* ./Llib/object.scm 655 */
obj_t BgL_aux2811z00_2675;
BGl_initializa7ezd2objectsz12z67zz__objectz00(); 
{ /* ./Llib/object.scm 656 */
bool_t BgL_test1334z00_607;
if(
CBOOL(BgL_superz00_84))
{ /* ./Llib/object.scm 656 */
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_84))
{ /* ./Llib/object.scm 656 */
BgL_test1334z00_607 = ((bool_t)0); }  else 
{ /* ./Llib/object.scm 656 */
BgL_test1334z00_607 = ((bool_t)1); } }  else 
{ /* ./Llib/object.scm 656 */
BgL_test1334z00_607 = ((bool_t)0); } 
if(BgL_test1334z00_607)
{ /* ./Llib/object.scm 656 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7836z00zz__objectz00, BGl_string7837z00zz__objectz00, BgL_namez00_83, "./Llib/object.scm", ((long)31101)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)31158))); }  else 
{ /* ./Llib/object.scm 656 */BFALSE; } } 
{ /* ./Llib/object.scm 660 */
bool_t BgL_test1339z00_609;
{ /* ./Llib/object.scm 660 */
long BgL_n1z00_1485;long BgL_n2z00_1486;
{ /* ./Llib/object.scm 660 */
obj_t BgL_auxz00_5749;
{ /* ./Llib/object.scm 660 */
obj_t BgL_aux4393z00_3131;
BgL_aux4393z00_3131 = BGl_za2nbzd2classesza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux4393z00_3131))
{ /* ./Llib/object.scm 660 */
BgL_auxz00_5749 = BgL_aux4393z00_3131
; }  else 
{ /* ./Llib/object.scm 660 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4393z00_3131, BGl_string7762z00zz__objectz00, 
BINT(((long)31197))); 
exit( -1 );} } 
BgL_n1z00_1485 = 
(long)CINT(BgL_auxz00_5749); } 
{ /* ./Llib/object.scm 660 */
obj_t BgL_auxz00_5756;
{ /* ./Llib/object.scm 660 */
obj_t BgL_aux4404z00_3133;
BgL_aux4404z00_3133 = BGl_za2nbzd2classeszd2maxza2z00zz__objectz00; 
if(
INTEGERP(BgL_aux4404z00_3133))
{ /* ./Llib/object.scm 660 */
BgL_auxz00_5756 = BgL_aux4404z00_3133
; }  else 
{ /* ./Llib/object.scm 660 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4404z00_3133, BGl_string7762z00zz__objectz00, 
BINT(((long)31214))); 
exit( -1 );} } 
BgL_n2z00_1486 = 
(long)CINT(BgL_auxz00_5756); } 
BgL_test1339z00_609 = 
(BgL_n1z00_1485==BgL_n2z00_1486); } 
if(BgL_test1339z00_609)
{ /* ./Llib/object.scm 660 */
BGl_doublezd2nbzd2classesz12z12zz__objectz00(); }  else 
{ /* ./Llib/object.scm 660 */((bool_t)0); } } 
{ /* ./Llib/object.scm 662 */
long BgL_numz00_610;
{ /* ./Llib/object.scm 662 */
long BgL_za72za7_1488;
{ /* ./Llib/object.scm 662 */
obj_t BgL_auxz00_5766;
{ /* ./Llib/object.scm 662 */
obj_t BgL_aux4415z00_3135;
BgL_aux4415z00_3135 = BGl_za2nbzd2classesza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux4415z00_3135))
{ /* ./Llib/object.scm 662 */
BgL_auxz00_5766 = BgL_aux4415z00_3135
; }  else 
{ /* ./Llib/object.scm 662 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4415z00_3135, BGl_string7762z00zz__objectz00, 
BINT(((long)31263))); 
exit( -1 );} } 
BgL_za72za7_1488 = 
(long)CINT(BgL_auxz00_5766); } 
BgL_numz00_610 = 
(OBJECT_TYPE+BgL_za72za7_1488); } 
{ /* ./Llib/object.scm 662 */
obj_t BgL_classz00_611;
{ /* ./Llib/object.scm 663 */
obj_t BgL_arg1366z00_620;
BgL_arg1366z00_620 = 
BGl_makezd2classzd2virtualzd2slotszd2vectorz00zz__objectz00(BgL_superz00_84, BgL_virtualz00_90); 
{ /* ./Llib/object.scm 663 */
obj_t BgL_namez00_1489;
if(
SYMBOLP(BgL_namez00_83))
{ /* ./Llib/object.scm 663 */
BgL_namez00_1489 = BgL_namez00_83; }  else 
{ /* ./Llib/object.scm 663 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_namez00_83, BGl_string7762z00zz__objectz00, 
BINT(((long)31328))); 
exit( -1 );} 
{ /* ./Llib/object.scm 663 */
obj_t BgL_v1011z00_1501;
{ 
int BgL_auxz00_5780;
BgL_auxz00_5780 = 
(int)(((long)13)); 
BgL_v1011z00_1501 = 
create_vector(BgL_auxz00_5780); } 
{ 
int BgL_auxz00_5783;
BgL_auxz00_5783 = 
(int)(((long)12)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5783,BGl_makezd2classzd2envz00zz__objectz00); } 
{ 
int BgL_auxz00_5786;
BgL_auxz00_5786 = 
(int)(((long)11)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5786,BgL_creatorz00_85); } 
{ 
int BgL_auxz00_5789;
BgL_auxz00_5789 = 
(int)(((long)10)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5789,BgL_arg1366z00_620); } 
{ 
int BgL_auxz00_5792;
BgL_auxz00_5792 = 
(int)(((long)9)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5792,BgL_constructorz00_89); } 
{ 
int BgL_auxz00_5795;
BgL_auxz00_5795 = 
(int)(((long)8)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5795,BgL_defz00_88); } 
{ 
obj_t BgL_auxz00_5800;int BgL_auxz00_5798;
BgL_auxz00_5800 = 
BINT(BgL_hashz00_87); 
BgL_auxz00_5798 = 
(int)(((long)7)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5798,BgL_auxz00_5800); } 
{ 
int BgL_auxz00_5803;
BgL_auxz00_5803 = 
(int)(((long)6)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5803,BgL_allocatez00_86); } 
{ 
obj_t BgL_auxz00_5808;int BgL_auxz00_5806;
BgL_auxz00_5808 = 
BINT(((long)-1)); 
BgL_auxz00_5806 = 
(int)(((long)5)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5806,BgL_auxz00_5808); } 
{ 
int BgL_auxz00_5811;
BgL_auxz00_5811 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5811,BNIL); } 
{ 
int BgL_auxz00_5814;
BgL_auxz00_5814 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5814,BgL_superz00_84); } 
{ 
obj_t BgL_auxz00_5819;int BgL_auxz00_5817;
BgL_auxz00_5819 = 
BINT(((long)-1)); 
BgL_auxz00_5817 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5817,BgL_auxz00_5819); } 
{ 
obj_t BgL_auxz00_5824;int BgL_auxz00_5822;
BgL_auxz00_5824 = 
BINT(BgL_numz00_610); 
BgL_auxz00_5822 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5822,BgL_auxz00_5824); } 
{ 
int BgL_auxz00_5827;
BgL_auxz00_5827 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1011z00_1501,BgL_auxz00_5827,BgL_namez00_1489); } 
BgL_classz00_611 = BgL_v1011z00_1501; } } } 
{ /* ./Llib/object.scm 663 */

if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_84))
{ /* ./Llib/object.scm 676 */
{ /* ./Llib/object.scm 680 */
obj_t BgL_arg1344z00_613;
{ /* ./Llib/object.scm 680 */
obj_t BgL_arg1347z00_614;
{ /* ./Llib/object.scm 680 */
obj_t BgL_vectorz00_1541;int BgL_kz00_1542;
if(
VECTORP(BgL_superz00_84))
{ /* ./Llib/object.scm 680 */
BgL_vectorz00_1541 = BgL_superz00_84; }  else 
{ /* ./Llib/object.scm 680 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_84, BGl_string7762z00zz__objectz00, 
BINT(((long)31721))); 
exit( -1 );} 
BgL_kz00_1542 = 
(int)(((long)4)); 
{ /* ./Llib/object.scm 680 */
bool_t BgL_test2430z00_1543;
{ /* ./Llib/object.scm 680 */
int BgL_arg2435z00_1544;
BgL_arg2435z00_1544 = 
VECTOR_LENGTH(BgL_vectorz00_1541); 
BgL_test2430z00_1543 = 
BOUND_CHECK(BgL_kz00_1542, BgL_arg2435z00_1544); } 
if(BgL_test2430z00_1543)
{ /* ./Llib/object.scm 680 */
BgL_arg1347z00_614 = 
VECTOR_REF(BgL_vectorz00_1541,BgL_kz00_1542); }  else 
{ /* ./Llib/object.scm 680 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1542), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1347z00_614 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)31721))); } } } 
BgL_arg1344z00_613 = 
MAKE_PAIR(BgL_classz00_611, BgL_arg1347z00_614); } 
{ /* ./Llib/object.scm 679 */
obj_t BgL_vectorz00_1551;int BgL_kz00_1552;
if(
VECTORP(BgL_superz00_84))
{ /* ./Llib/object.scm 679 */
BgL_vectorz00_1551 = BgL_superz00_84; }  else 
{ /* ./Llib/object.scm 679 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_84, BGl_string7762z00zz__objectz00, 
BINT(((long)31672))); 
exit( -1 );} 
BgL_kz00_1552 = 
(int)(((long)4)); 
VECTOR_SET(BgL_vectorz00_1551,BgL_kz00_1552,BgL_arg1344z00_613); } } 
{ /* ./Llib/object.scm 682 */
bool_t BgL_auxz00_5854;
BgL_auxz00_5854 = 
BGl_classzd2hierarchyzd2numberingz12z12zz__objectz00(BgL_classz00_611, BgL_superz00_84); 
BBOOL(BgL_auxz00_5854); } }  else 
{ /* ./Llib/object.scm 676 */
{ 
obj_t BgL_auxz00_5859;int BgL_auxz00_5857;
BgL_auxz00_5859 = 
BINT(((long)1)); 
BgL_auxz00_5857 = 
(int)(((long)2)); 
VECTOR_SET(BgL_classz00_611,BgL_auxz00_5857,BgL_auxz00_5859); } 
{ 
obj_t BgL_auxz00_5864;int BgL_auxz00_5862;
BgL_auxz00_5864 = 
BINT(((long)1)); 
BgL_auxz00_5862 = 
(int)(((long)5)); 
VECTOR_SET(BgL_classz00_611,BgL_auxz00_5862,BgL_auxz00_5864); } } 
{ /* ./Llib/object.scm 687 */
obj_t BgL_vectorz00_1564;int BgL_kz00_1565;
{ /* ./Llib/object.scm 687 */
obj_t BgL_aux4489z00_3143;
BgL_aux4489z00_3143 = BGl_za2classesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux4489z00_3143))
{ /* ./Llib/object.scm 687 */
BgL_vectorz00_1564 = BgL_aux4489z00_3143; }  else 
{ /* ./Llib/object.scm 687 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux4489z00_3143, BGl_string7762z00zz__objectz00, 
BINT(((long)31997))); 
exit( -1 );} } 
{ /* ./Llib/object.scm 687 */
obj_t BgL_auxz00_5872;
{ /* ./Llib/object.scm 687 */
obj_t BgL_aux4499z00_3145;
BgL_aux4499z00_3145 = BGl_za2nbzd2classesza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux4499z00_3145))
{ /* ./Llib/object.scm 687 */
BgL_auxz00_5872 = BgL_aux4499z00_3145
; }  else 
{ /* ./Llib/object.scm 687 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_aux4499z00_3145, BGl_string7762z00zz__objectz00, 
BINT(((long)31997))); 
exit( -1 );} } 
BgL_kz00_1565 = 
CINT(BgL_auxz00_5872); } 
{ /* ./Llib/object.scm 687 */
bool_t BgL_test2422z00_1567;
{ /* ./Llib/object.scm 687 */
int BgL_arg2427z00_1568;
BgL_arg2427z00_1568 = 
VECTOR_LENGTH(BgL_vectorz00_1564); 
BgL_test2422z00_1567 = 
BOUND_CHECK(BgL_kz00_1565, BgL_arg2427z00_1568); } 
if(BgL_test2422z00_1567)
{ /* ./Llib/object.scm 687 */
VECTOR_SET(BgL_vectorz00_1564,BgL_kz00_1565,BgL_classz00_611); }  else 
{ /* ./Llib/object.scm 687 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7838z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1565), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)31997))); } } } 
{ /* ./Llib/object.scm 689 */
long BgL_za71za7_1573;
{ /* ./Llib/object.scm 689 */
obj_t BgL_auxz00_5887;
{ /* ./Llib/object.scm 689 */
obj_t BgL_aux4518z00_3147;
BgL_aux4518z00_3147 = BGl_za2nbzd2classesza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux4518z00_3147))
{ /* ./Llib/object.scm 689 */
BgL_auxz00_5887 = BgL_aux4518z00_3147
; }  else 
{ /* ./Llib/object.scm 689 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4518z00_3147, BGl_string7762z00zz__objectz00, 
BINT(((long)32111))); 
exit( -1 );} } 
BgL_za71za7_1573 = 
(long)CINT(BgL_auxz00_5887); } 
{ /* ./Llib/object.scm 689 */
long BgL_auxz00_5894;
BgL_auxz00_5894 = 
(BgL_za71za7_1573+((long)1)); 
BGl_za2nbzd2classesza2zd2zz__objectz00 = 
BINT(BgL_auxz00_5894); } } 
{ /* ./Llib/object.scm 691 */
long BgL_arg1357z00_615;
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_84))
{ /* ./Llib/object.scm 691 */
long BgL_res2613z00_1578;
{ /* ./Llib/object.scm 691 */
obj_t BgL_vectorz00_1576;int BgL_kz00_1577;
if(
VECTORP(BgL_superz00_84))
{ /* ./Llib/object.scm 691 */
BgL_vectorz00_1576 = BgL_superz00_84; }  else 
{ /* ./Llib/object.scm 691 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_84, BGl_string7762z00zz__objectz00, 
BINT(((long)32248))); 
exit( -1 );} 
BgL_kz00_1577 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 691 */
obj_t BgL_auxz00_5905;
{ /* ./Llib/object.scm 691 */
obj_t BgL_aux4541z00_3151;
BgL_aux4541z00_3151 = 
VECTOR_REF(BgL_vectorz00_1576,BgL_kz00_1577); 
if(
INTEGERP(BgL_aux4541z00_3151))
{ /* ./Llib/object.scm 691 */
BgL_auxz00_5905 = BgL_aux4541z00_3151
; }  else 
{ /* ./Llib/object.scm 691 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7835z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4541z00_3151, BGl_string7762z00zz__objectz00, 
BINT(((long)32248))); 
exit( -1 );} } 
BgL_res2613z00_1578 = 
(long)CINT(BgL_auxz00_5905); } } 
BgL_arg1357z00_615 = BgL_res2613z00_1578; }  else 
{ /* ./Llib/object.scm 691 */
BgL_arg1357z00_615 = BgL_numz00_610; } 
BGl_genericszd2addzd2classz12z12zz__objectz00(BgL_numz00_610, BgL_arg1357z00_615); } 
BgL_aux2811z00_2675 = BgL_classz00_611; } } } 
POP_TRACE(); 
return BgL_aux2811z00_2675;} } } } 
}



/* _register-class! */
obj_t BGl__registerzd2classz12zc0zz__objectz00(obj_t BgL_envz00_2827, obj_t BgL_namez00_2828, obj_t BgL_superz00_2829, obj_t BgL_creatorz00_2830, obj_t BgL_allocatez00_2831, obj_t BgL_hashz00_2832, obj_t BgL_defz00_2833, obj_t BgL_constructorz00_2834, obj_t BgL_virtualz00_2835)
{ AN_OBJECT;
{ /* ./Llib/object.scm 654 */
{ /* ./Llib/object.scm 655 */
obj_t BgL_auxz00_5929;long BgL_auxz00_5921;obj_t BgL_auxz00_5915;
if(
VECTORP(BgL_virtualz00_2835))
{ /* ./Llib/object.scm 655 */
BgL_auxz00_5929 = BgL_virtualz00_2835
; }  else 
{ /* ./Llib/object.scm 655 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7839z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_virtualz00_2835, BGl_string7762z00zz__objectz00, 
BINT(((long)31032))); 
exit( -1 );} 
{ /* ./Llib/object.scm 655 */
obj_t BgL_auxz00_5922;
if(
INTEGERP(BgL_hashz00_2832))
{ /* ./Llib/object.scm 655 */
BgL_auxz00_5922 = BgL_hashz00_2832
; }  else 
{ /* ./Llib/object.scm 655 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7839z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_hashz00_2832, BGl_string7762z00zz__objectz00, 
BINT(((long)31032))); 
exit( -1 );} 
BgL_auxz00_5921 = 
(long)CINT(BgL_auxz00_5922); } 
if(
PROCEDUREP(BgL_allocatez00_2831))
{ /* ./Llib/object.scm 655 */
BgL_auxz00_5915 = BgL_allocatez00_2831
; }  else 
{ /* ./Llib/object.scm 655 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7839z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_allocatez00_2831, BGl_string7762z00zz__objectz00, 
BINT(((long)31032))); 
exit( -1 );} 
return 
BGl_registerzd2classz12zc0zz__objectz00(BgL_namez00_2828, BgL_superz00_2829, BgL_creatorz00_2830, BgL_auxz00_5915, BgL_auxz00_5921, BgL_defz00_2833, BgL_constructorz00_2834, BgL_auxz00_5929);} } 
}



/* make-class-virtual-slots-vector */
obj_t BGl_makezd2classzd2virtualzd2slotszd2vectorz00zz__objectz00(obj_t BgL_superz00_91, obj_t BgL_virtualsz00_92)
{ AN_OBJECT;
{ /* ./Llib/object.scm 697 */
{ /* ./Llib/object.scm 703 */
obj_t BgL_symbol2816z00_2676;
BgL_symbol2816z00_2676 = BGl_symbol7840z00zz__objectz00; 
{ /* ./Llib/object.scm 703 */

PUSH_TRACE(BgL_symbol2816z00_2676); BUNSPEC; 
{ /* ./Llib/object.scm 703 */
obj_t BgL_aux2815z00_2677;
{ 
obj_t BgL_vecz00_637;
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_91))
{ /* ./Llib/object.scm 708 */
obj_t BgL_ovecz00_623;
{ /* ./Llib/object.scm 708 */
obj_t BgL_res2614z00_1582;
{ /* ./Llib/object.scm 708 */
obj_t BgL_classz00_1579;
if(
VECTORP(BgL_superz00_91))
{ /* ./Llib/object.scm 708 */
BgL_classz00_1579 = BgL_superz00_91; }  else 
{ /* ./Llib/object.scm 708 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7840z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_91, BGl_string7762z00zz__objectz00, 
BINT(((long)32965))); 
exit( -1 );} 
{ /* ./Llib/object.scm 708 */
int BgL_kz00_1581;
BgL_kz00_1581 = 
(int)(((long)10)); 
{ /* ./Llib/object.scm 708 */
obj_t BgL_aux4658z00_3171;
BgL_aux4658z00_3171 = 
VECTOR_REF(BgL_classz00_1579,BgL_kz00_1581); 
if(
VECTORP(BgL_aux4658z00_3171))
{ /* ./Llib/object.scm 708 */
BgL_res2614z00_1582 = BgL_aux4658z00_3171; }  else 
{ /* ./Llib/object.scm 708 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7840z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux4658z00_3171, BGl_string7762z00zz__objectz00, 
BINT(((long)32946))); 
exit( -1 );} } } } 
BgL_ovecz00_623 = BgL_res2614z00_1582; } 
{ /* ./Llib/object.scm 708 */
int BgL_olenz00_624;
BgL_olenz00_624 = 
VECTOR_LENGTH(BgL_ovecz00_623); 
{ /* ./Llib/object.scm 709 */
int BgL_lenz00_625;
BgL_lenz00_625 = 
VECTOR_LENGTH(BgL_virtualsz00_92); 
{ /* ./Llib/object.scm 710 */
obj_t BgL_vecz00_626;
{ /* ./Llib/object.scm 711 */
long BgL_arg1385z00_632;obj_t BgL_arg1386z00_633;
{ /* ./Llib/object.scm 711 */
long BgL_auxz00_5955;long BgL_auxz00_5953;
BgL_auxz00_5955 = 
(long)(BgL_lenz00_625); 
BgL_auxz00_5953 = 
(long)(BgL_olenz00_624); 
BgL_arg1385z00_632 = 
(BgL_auxz00_5953+BgL_auxz00_5955); } 
BgL_arg1386z00_633 = BUNSPEC; 
{ /* ./Llib/object.scm 711 */
int BgL_auxz00_5958;
BgL_auxz00_5958 = 
(int)(BgL_arg1385z00_632); 
BgL_vecz00_626 = 
make_vector(BgL_auxz00_5958, BgL_arg1386z00_633); } } 
{ /* ./Llib/object.scm 711 */

{ 
long BgL_iz00_627;
BgL_iz00_627 = ((long)0); 
BgL_loopz00_628:
{ /* ./Llib/object.scm 713 */
bool_t BgL_testz00_5961;
{ /* ./Llib/object.scm 713 */
long BgL_auxz00_5962;
BgL_auxz00_5962 = 
(long)(BgL_olenz00_624); 
BgL_testz00_5961 = 
(BgL_iz00_627==BgL_auxz00_5962); } 
if(BgL_testz00_5961)
{ /* ./Llib/object.scm 713 */
BgL_vecz00_637 = BgL_vecz00_626; 
BgL_lambda1400z00_638:
{ 
obj_t BgL_l1021z00_639;
BgL_l1021z00_639 = 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_virtualsz00_92); 
BgL_forzd2each1022zd2_640:
{ /* ./Llib/object.scm 699 */
bool_t BgL_test1405z00_642;
BgL_test1405z00_642 = 
PAIRP(BgL_l1021z00_639); 
if(BgL_test1405z00_642)
{ /* ./Llib/object.scm 699 */
{ /* ./Llib/object.scm 700 */
obj_t BgL_virtualz00_643;
{ /* ./Llib/object.scm 700 */
obj_t BgL_pairz00_1612;
if(BgL_test1405z00_642)
{ /* ./Llib/object.scm 700 */
BgL_pairz00_1612 = BgL_l1021z00_639; }  else 
{ /* ./Llib/object.scm 700 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7840z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_l1021z00_639, BGl_string7762z00zz__objectz00, 
BINT(((long)32673))); 
exit( -1 );} 
BgL_virtualz00_643 = 
CAR(BgL_pairz00_1612); } 
{ /* ./Llib/object.scm 700 */
obj_t BgL_numz00_644;
{ /* ./Llib/object.scm 700 */
obj_t BgL_pairz00_1613;
if(
PAIRP(BgL_virtualz00_643))
{ /* ./Llib/object.scm 700 */
BgL_pairz00_1613 = BgL_virtualz00_643; }  else 
{ /* ./Llib/object.scm 700 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7840z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_virtualz00_643, BGl_string7762z00zz__objectz00, 
BINT(((long)32695))); 
exit( -1 );} 
BgL_numz00_644 = 
CAR(BgL_pairz00_1613); } 
{ /* ./Llib/object.scm 701 */
obj_t BgL_arg1407z00_645;
{ /* ./Llib/object.scm 701 */
obj_t BgL_pairz00_1614;
if(
PAIRP(BgL_virtualz00_643))
{ /* ./Llib/object.scm 701 */
BgL_pairz00_1614 = BgL_virtualz00_643; }  else 
{ /* ./Llib/object.scm 701 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7840z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_virtualz00_643, BGl_string7762z00zz__objectz00, 
BINT(((long)32740))); 
exit( -1 );} 
BgL_arg1407z00_645 = 
CDR(BgL_pairz00_1614); } 
{ /* ./Llib/object.scm 701 */
int BgL_kz00_1616;
{ /* ./Llib/object.scm 701 */
obj_t BgL_auxz00_5984;
if(
INTEGERP(BgL_numz00_644))
{ /* ./Llib/object.scm 701 */
BgL_auxz00_5984 = BgL_numz00_644
; }  else 
{ /* ./Llib/object.scm 701 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7840z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_numz00_644, BGl_string7762z00zz__objectz00, 
BINT(((long)32708))); 
exit( -1 );} 
BgL_kz00_1616 = 
CINT(BgL_auxz00_5984); } 
{ /* ./Llib/object.scm 701 */
bool_t BgL_test2422z00_1618;
{ /* ./Llib/object.scm 701 */
int BgL_arg2427z00_1619;
BgL_arg2427z00_1619 = 
VECTOR_LENGTH(BgL_vecz00_637); 
BgL_test2422z00_1618 = 
BOUND_CHECK(BgL_kz00_1616, BgL_arg2427z00_1619); } 
if(BgL_test2422z00_1618)
{ /* ./Llib/object.scm 701 */
VECTOR_SET(BgL_vecz00_637,BgL_kz00_1616,BgL_arg1407z00_645); }  else 
{ /* ./Llib/object.scm 701 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7838z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1616), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)32708))); } } } } } } 
{ /* ./Llib/object.scm 699 */
obj_t BgL_arg1413z00_646;
{ /* ./Llib/object.scm 699 */
obj_t BgL_pairz00_1624;
if(
PAIRP(BgL_l1021z00_639))
{ /* ./Llib/object.scm 699 */
BgL_pairz00_1624 = BgL_l1021z00_639; }  else 
{ /* ./Llib/object.scm 699 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7840z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_l1021z00_639, BGl_string7762z00zz__objectz00, 
BINT(((long)32640))); 
exit( -1 );} 
BgL_arg1413z00_646 = 
CDR(BgL_pairz00_1624); } 
{ 
obj_t BgL_l1021z00_6005;
BgL_l1021z00_6005 = BgL_arg1413z00_646; 
BgL_l1021z00_639 = BgL_l1021z00_6005; 
goto BgL_forzd2each1022zd2_640;} } }  else 
{ /* ./Llib/object.scm 699 */
if(
NULLP(BgL_l1021z00_639))
{ /* ./Llib/object.scm 699 */BTRUE; }  else 
{ /* ./Llib/object.scm 699 */
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7841z00zz__objectz00, BGl_string7842z00zz__objectz00, BgL_l1021z00_639, BGl_string7762z00zz__objectz00, 
BINT(((long)32640))); } } } } 
BgL_aux2815z00_2677 = BgL_vecz00_637; }  else 
{ /* ./Llib/object.scm 713 */
{ /* ./Llib/object.scm 716 */
obj_t BgL_arg1375z00_630;
{ /* ./Llib/object.scm 716 */
int BgL_kz00_1591;
BgL_kz00_1591 = 
(int)(BgL_iz00_627); 
{ /* ./Llib/object.scm 716 */
bool_t BgL_test2430z00_1592;
{ /* ./Llib/object.scm 716 */
int BgL_arg2435z00_1593;
BgL_arg2435z00_1593 = 
VECTOR_LENGTH(BgL_ovecz00_623); 
BgL_test2430z00_1592 = 
BOUND_CHECK(BgL_kz00_1591, BgL_arg2435z00_1593); } 
if(BgL_test2430z00_1592)
{ /* ./Llib/object.scm 716 */
BgL_arg1375z00_630 = 
VECTOR_REF(BgL_ovecz00_623,BgL_kz00_1591); }  else 
{ /* ./Llib/object.scm 716 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1591), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1375z00_630 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)33202))); } } } 
{ /* ./Llib/object.scm 716 */
int BgL_kz00_1599;
BgL_kz00_1599 = 
(int)(BgL_iz00_627); 
{ /* ./Llib/object.scm 716 */
bool_t BgL_test2422z00_1601;
{ /* ./Llib/object.scm 716 */
int BgL_arg2427z00_1602;
BgL_arg2427z00_1602 = 
VECTOR_LENGTH(BgL_vecz00_626); 
BgL_test2422z00_1601 = 
BOUND_CHECK(BgL_kz00_1599, BgL_arg2427z00_1602); } 
if(BgL_test2422z00_1601)
{ /* ./Llib/object.scm 716 */
VECTOR_SET(BgL_vecz00_626,BgL_kz00_1599,BgL_arg1375z00_630); }  else 
{ /* ./Llib/object.scm 716 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7838z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1599), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)33183))); } } } } 
{ 
long BgL_iz00_6029;
BgL_iz00_6029 = 
(BgL_iz00_627+((long)1)); 
BgL_iz00_627 = BgL_iz00_6029; 
goto BgL_loopz00_628;} } } } } } } } }  else 
{ /* ./Llib/object.scm 705 */
int BgL_lenz00_634;
BgL_lenz00_634 = 
VECTOR_LENGTH(BgL_virtualsz00_92); 
{ /* ./Llib/object.scm 705 */
obj_t BgL_vecz00_635;
{ /* ./Llib/object.scm 706 */
obj_t BgL_auxz00_6032;
BgL_auxz00_6032 = BUNSPEC; 
BgL_vecz00_635 = 
make_vector(BgL_lenz00_634, BgL_auxz00_6032); } 
{ /* ./Llib/object.scm 706 */

{ 
obj_t BgL_vecz00_6034;
BgL_vecz00_6034 = BgL_vecz00_635; 
BgL_vecz00_637 = BgL_vecz00_6034; 
goto BgL_lambda1400z00_638;} } } } } 
POP_TRACE(); 
return BgL_aux2815z00_2677;} } } } 
}



/* generic-no-default-behavior */
obj_t BGl_genericzd2nozd2defaultzd2behaviorzd2zz__objectz00(obj_t BgL_lz00_95)
{ AN_OBJECT;
{ /* ./Llib/object.scm 735 */
{ /* ./Llib/object.scm 735 */
obj_t BgL_symbol2820z00_2678;
BgL_symbol2820z00_2678 = BGl_symbol7843z00zz__objectz00; 
{ /* ./Llib/object.scm 735 */

PUSH_TRACE(BgL_symbol2820z00_2678); BUNSPEC; 
{ /* ./Llib/object.scm 735 */
obj_t BgL_aux2819z00_2679;
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7844z00zz__objectz00, BGl_string7845z00zz__objectz00, BgL_lz00_95, "./Llib/object.scm", ((long)34218)); 
BgL_aux2819z00_2679 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)34173))); 
POP_TRACE(); 
return BgL_aux2819z00_2679;} } } } 
}



/* _generic-no-default-behavior */
obj_t BGl__genericzd2nozd2defaultzd2behaviorzd2zz__objectz00(obj_t BgL_envz00_2836, obj_t BgL_lz00_2837)
{ AN_OBJECT;
{ /* ./Llib/object.scm 735 */
return 
BGl_genericzd2nozd2defaultzd2behaviorzd2zz__objectz00(BgL_lz00_2837);} 
}



/* add-generic! */
BGL_EXPORTED_DEF obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t BgL_genericz00_96, obj_t BgL_defaultz00_97)
{ AN_OBJECT;
{ /* ./Llib/object.scm 748 */
{ /* ./Llib/object.scm 749 */
obj_t BgL_symbol2824z00_2680;
BgL_symbol2824z00_2680 = BGl_symbol7846z00zz__objectz00; 
{ /* ./Llib/object.scm 749 */

PUSH_TRACE(BgL_symbol2824z00_2680); BUNSPEC; 
{ /* ./Llib/object.scm 749 */
obj_t BgL_aux2823z00_2681;
{ /* ./Llib/object.scm 749 */
bool_t BgL_testz00_6043;
{ /* ./Llib/object.scm 749 */
obj_t BgL_auxz00_6044;
{ /* ./Llib/object.scm 749 */
int BgL_auxz00_6045;
BgL_auxz00_6045 = 
(int)(((long)1)); 
BgL_auxz00_6044 = 
PROCEDURE_REF(BgL_genericz00_96, BgL_auxz00_6045); } 
BgL_testz00_6043 = 
VECTORP(BgL_auxz00_6044); } 
if(BgL_testz00_6043)
{ /* ./Llib/object.scm 749 */
if(
PROCEDUREP(BgL_defaultz00_97))
{ /* ./Llib/object.scm 767 */
obj_t BgL_oldzd2defzd2bucketz00_656;obj_t BgL_newzd2defzd2bucketz00_657;obj_t BgL_oldzd2defaultzd2_658;
{ /* ./Llib/object.scm 767 */
obj_t BgL_res2618z00_1650;
{ /* ./Llib/object.scm 767 */
obj_t BgL_aux4699z00_3175;
{ /* ./Llib/object.scm 767 */
int BgL_auxz00_6051;
BgL_auxz00_6051 = 
(int)(((long)2)); 
BgL_aux4699z00_3175 = 
PROCEDURE_REF(BgL_genericz00_96, BgL_auxz00_6051); } 
if(
VECTORP(BgL_aux4699z00_3175))
{ /* ./Llib/object.scm 767 */
BgL_res2618z00_1650 = BgL_aux4699z00_3175; }  else 
{ /* ./Llib/object.scm 767 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux4699z00_3175, BGl_string7762z00zz__objectz00, 
BINT(((long)35818))); 
exit( -1 );} } 
BgL_oldzd2defzd2bucketz00_656 = BgL_res2618z00_1650; } 
{ /* ./Llib/object.scm 768 */
int BgL_auxz00_6059;
BgL_auxz00_6059 = 
(int)(((long)8)); 
BgL_newzd2defzd2bucketz00_657 = 
make_vector(BgL_auxz00_6059, BgL_defaultz00_97); } 
{ /* ./Llib/object.scm 770 */
obj_t BgL_res2620z00_1653;
{ /* ./Llib/object.scm 770 */
obj_t BgL_aux4711z00_3177;
{ /* ./Llib/object.scm 770 */
int BgL_auxz00_6062;
BgL_auxz00_6062 = 
(int)(((long)0)); 
BgL_aux4711z00_3177 = 
PROCEDURE_REF(BgL_genericz00_96, BgL_auxz00_6062); } 
if(
PROCEDUREP(BgL_aux4711z00_3177))
{ /* ./Llib/object.scm 770 */
BgL_res2620z00_1653 = BgL_aux4711z00_3177; }  else 
{ /* ./Llib/object.scm 770 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux4711z00_3177, BGl_string7762z00zz__objectz00, 
BINT(((long)35952))); 
exit( -1 );} } 
BgL_oldzd2defaultzd2_658 = BgL_res2620z00_1653; } 
{ /* ./Llib/object.scm 771 */
obj_t BgL_defaultz00_1655;
if(
PROCEDUREP(BgL_defaultz00_97))
{ /* ./Llib/object.scm 771 */
BgL_defaultz00_1655 = BgL_defaultz00_97; }  else 
{ /* ./Llib/object.scm 771 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_defaultz00_97, BGl_string7762z00zz__objectz00, 
BINT(((long)36019))); 
exit( -1 );} 
{ /* ./Llib/object.scm 771 */
int BgL_auxz00_6075;
BgL_auxz00_6075 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_genericz00_96, BgL_auxz00_6075, BgL_defaultz00_1655); } } 
{ /* ./Llib/object.scm 772 */
int BgL_auxz00_6078;
BgL_auxz00_6078 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_genericz00_96, BgL_auxz00_6078, BgL_newzd2defzd2bucketz00_657); } 
{ /* ./Llib/object.scm 773 */
obj_t BgL_marrayz00_659;
{ /* ./Llib/object.scm 773 */
int BgL_auxz00_6081;
BgL_auxz00_6081 = 
(int)(((long)1)); 
BgL_marrayz00_659 = 
PROCEDURE_REF(BgL_genericz00_96, BgL_auxz00_6081); } 
{ /* ./Llib/object.scm 773 */
int BgL_alenz00_660;
{ /* ./Llib/object.scm 774 */
obj_t BgL_vectorz00_1659;
if(
VECTORP(BgL_marrayz00_659))
{ /* ./Llib/object.scm 774 */
BgL_vectorz00_1659 = BgL_marrayz00_659; }  else 
{ /* ./Llib/object.scm 774 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_marrayz00_659, BGl_string7762z00zz__objectz00, 
BINT(((long)36157))); 
exit( -1 );} 
BgL_alenz00_660 = 
VECTOR_LENGTH(BgL_vectorz00_1659); } 
{ /* ./Llib/object.scm 774 */

{ 
long BgL_iz00_661;
BgL_iz00_661 = ((long)0); 
BgL_loopz00_662:
{ /* ./Llib/object.scm 776 */
bool_t BgL_testz00_6090;
{ /* ./Llib/object.scm 776 */
long BgL_auxz00_6091;
BgL_auxz00_6091 = 
(long)(BgL_alenz00_660); 
BgL_testz00_6090 = 
(BgL_iz00_661<BgL_auxz00_6091); } 
if(BgL_testz00_6090)
{ /* ./Llib/object.scm 777 */
obj_t BgL_bucketz00_664;
{ /* ./Llib/object.scm 777 */
obj_t BgL_vectorz00_1662;int BgL_kz00_1663;
if(
VECTORP(BgL_marrayz00_659))
{ /* ./Llib/object.scm 777 */
BgL_vectorz00_1662 = BgL_marrayz00_659; }  else 
{ /* ./Llib/object.scm 777 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_marrayz00_659, BGl_string7762z00zz__objectz00, 
BINT(((long)36232))); 
exit( -1 );} 
BgL_kz00_1663 = 
(int)(BgL_iz00_661); 
{ /* ./Llib/object.scm 777 */
bool_t BgL_test2430z00_1664;
{ /* ./Llib/object.scm 777 */
int BgL_arg2435z00_1665;
BgL_arg2435z00_1665 = 
VECTOR_LENGTH(BgL_vectorz00_1662); 
BgL_test2430z00_1664 = 
BOUND_CHECK(BgL_kz00_1663, BgL_arg2435z00_1665); } 
if(BgL_test2430z00_1664)
{ /* ./Llib/object.scm 777 */
BgL_bucketz00_664 = 
VECTOR_REF(BgL_vectorz00_1662,BgL_kz00_1663); }  else 
{ /* ./Llib/object.scm 777 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1663), "./Ieee/vector.scm", ((long)5865)); 
BgL_bucketz00_664 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)36232))); } } } 
if(
(BgL_bucketz00_664==BgL_oldzd2defzd2bucketz00_656))
{ /* ./Llib/object.scm 778 */
{ /* ./Llib/object.scm 780 */
obj_t BgL_vectorz00_1670;int BgL_kz00_1671;
if(
VECTORP(BgL_marrayz00_659))
{ /* ./Llib/object.scm 780 */
BgL_vectorz00_1670 = BgL_marrayz00_659; }  else 
{ /* ./Llib/object.scm 780 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_marrayz00_659, BGl_string7762z00zz__objectz00, 
BINT(((long)36337))); 
exit( -1 );} 
BgL_kz00_1671 = 
(int)(BgL_iz00_661); 
{ /* ./Llib/object.scm 780 */
bool_t BgL_test2422z00_1673;
{ /* ./Llib/object.scm 780 */
int BgL_arg2427z00_1674;
BgL_arg2427z00_1674 = 
VECTOR_LENGTH(BgL_vectorz00_1670); 
BgL_test2422z00_1673 = 
BOUND_CHECK(BgL_kz00_1671, BgL_arg2427z00_1674); } 
if(BgL_test2422z00_1673)
{ /* ./Llib/object.scm 780 */
VECTOR_SET(BgL_vectorz00_1670,BgL_kz00_1671,BgL_newzd2defzd2bucketz00_657); }  else 
{ /* ./Llib/object.scm 780 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7838z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1671), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)36319))); } } } 
{ 
long BgL_iz00_6124;
BgL_iz00_6124 = 
(BgL_iz00_661+((long)1)); 
BgL_iz00_661 = BgL_iz00_6124; 
goto BgL_loopz00_662;} }  else 
{ 
long BgL_jz00_667;
BgL_jz00_667 = ((long)0); 
BgL_laapz00_668:
{ /* ./Llib/object.scm 784 */
bool_t BgL_testz00_6126;
{ /* ./Llib/object.scm 784 */
long BgL_auxz00_6127;
{ /* ./Llib/object.scm 784 */
int BgL_auxz00_6128;
BgL_auxz00_6128 = 
(int)(((long)8)); 
BgL_auxz00_6127 = 
(long)(BgL_auxz00_6128); } 
BgL_testz00_6126 = 
(BgL_jz00_667==BgL_auxz00_6127); } 
if(BgL_testz00_6126)
{ /* ./Llib/object.scm 784 */
{ 
long BgL_iz00_6132;
BgL_iz00_6132 = 
(BgL_iz00_661+((long)1)); 
BgL_iz00_661 = BgL_iz00_6132; 
goto BgL_loopz00_662;} }  else 
{ /* ./Llib/object.scm 786 */
bool_t BgL_test1453z00_671;
{ /* ./Llib/object.scm 786 */
obj_t BgL_arg1465z00_674;
{ /* ./Llib/object.scm 786 */
obj_t BgL_vectorz00_1686;int BgL_kz00_1687;
if(
VECTORP(BgL_bucketz00_664))
{ /* ./Llib/object.scm 786 */
BgL_vectorz00_1686 = BgL_bucketz00_664; }  else 
{ /* ./Llib/object.scm 786 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_664, BGl_string7762z00zz__objectz00, 
BINT(((long)36501))); 
exit( -1 );} 
BgL_kz00_1687 = 
(int)(BgL_jz00_667); 
{ /* ./Llib/object.scm 786 */
bool_t BgL_test2430z00_1688;
{ /* ./Llib/object.scm 786 */
int BgL_arg2435z00_1689;
BgL_arg2435z00_1689 = 
VECTOR_LENGTH(BgL_vectorz00_1686); 
BgL_test2430z00_1688 = 
BOUND_CHECK(BgL_kz00_1687, BgL_arg2435z00_1689); } 
if(BgL_test2430z00_1688)
{ /* ./Llib/object.scm 786 */
BgL_arg1465z00_674 = 
VECTOR_REF(BgL_vectorz00_1686,BgL_kz00_1687); }  else 
{ /* ./Llib/object.scm 786 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1687), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1465z00_674 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)36501))); } } } 
BgL_test1453z00_671 = 
(BgL_arg1465z00_674==BgL_oldzd2defaultzd2_658); } 
if(BgL_test1453z00_671)
{ /* ./Llib/object.scm 786 */
{ /* ./Llib/object.scm 788 */
obj_t BgL_vectorz00_1694;int BgL_kz00_1695;
if(
VECTORP(BgL_bucketz00_664))
{ /* ./Llib/object.scm 788 */
BgL_vectorz00_1694 = BgL_bucketz00_664; }  else 
{ /* ./Llib/object.scm 788 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_664, BGl_string7762z00zz__objectz00, 
BINT(((long)36553))); 
exit( -1 );} 
BgL_kz00_1695 = 
(int)(BgL_jz00_667); 
{ /* ./Llib/object.scm 788 */
bool_t BgL_test2422z00_1697;
{ /* ./Llib/object.scm 788 */
int BgL_arg2427z00_1698;
BgL_arg2427z00_1698 = 
VECTOR_LENGTH(BgL_vectorz00_1694); 
BgL_test2422z00_1697 = 
BOUND_CHECK(BgL_kz00_1695, BgL_arg2427z00_1698); } 
if(BgL_test2422z00_1697)
{ /* ./Llib/object.scm 788 */
VECTOR_SET(BgL_vectorz00_1694,BgL_kz00_1695,BgL_defaultz00_97); }  else 
{ /* ./Llib/object.scm 788 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7838z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1695), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)36553))); } } } 
{ 
long BgL_jz00_6164;
BgL_jz00_6164 = 
(BgL_jz00_667+((long)1)); 
BgL_jz00_667 = BgL_jz00_6164; 
goto BgL_laapz00_668;} }  else 
{ /* ./Llib/object.scm 786 */
{ 
long BgL_jz00_6166;
BgL_jz00_6166 = 
(BgL_jz00_667+((long)1)); 
BgL_jz00_667 = BgL_jz00_6166; 
goto BgL_laapz00_668;} } } } } }  else 
{ /* ./Llib/object.scm 776 */((bool_t)0); } } } } } } }  else 
{ /* ./Llib/object.scm 763 */((bool_t)0); } 
BgL_aux2823z00_2681 = BUNSPEC; }  else 
{ /* ./Llib/object.scm 750 */
obj_t BgL_defzd2metzd2_677;
if(
PROCEDUREP(BgL_defaultz00_97))
{ /* ./Llib/object.scm 750 */
BgL_defzd2metzd2_677 = BgL_defaultz00_97; }  else 
{ /* ./Llib/object.scm 750 */
BgL_defzd2metzd2_677 = BGl_genericzd2nozd2defaultzd2behaviorzd2envz00zz__objectz00; } 
{ /* ./Llib/object.scm 750 */
obj_t BgL_defzd2bucketzd2_678;
{ /* ./Llib/object.scm 753 */
int BgL_auxz00_6170;
BgL_auxz00_6170 = 
(int)(((long)8)); 
BgL_defzd2bucketzd2_678 = 
make_vector(BgL_auxz00_6170, BgL_defzd2metzd2_677); } 
{ /* ./Llib/object.scm 753 */

{ /* ./Llib/object.scm 754 */
bool_t BgL_test1484z00_679;
{ /* ./Llib/object.scm 754 */
long BgL_n1z00_1709;long BgL_n2z00_1710;
{ /* ./Llib/object.scm 754 */
obj_t BgL_auxz00_6173;
{ /* ./Llib/object.scm 754 */
obj_t BgL_aux4824z00_3191;
BgL_aux4824z00_3191 = BGl_za2nbzd2genericsza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux4824z00_3191))
{ /* ./Llib/object.scm 754 */
BgL_auxz00_6173 = BgL_aux4824z00_3191
; }  else 
{ /* ./Llib/object.scm 754 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4824z00_3191, BGl_string7762z00zz__objectz00, 
BINT(((long)35273))); 
exit( -1 );} } 
BgL_n1z00_1709 = 
(long)CINT(BgL_auxz00_6173); } 
{ /* ./Llib/object.scm 754 */
obj_t BgL_auxz00_6180;
{ /* ./Llib/object.scm 754 */
obj_t BgL_aux4835z00_3193;
BgL_aux4835z00_3193 = BGl_za2nbzd2genericszd2maxza2z00zz__objectz00; 
if(
INTEGERP(BgL_aux4835z00_3193))
{ /* ./Llib/object.scm 754 */
BgL_auxz00_6180 = BgL_aux4835z00_3193
; }  else 
{ /* ./Llib/object.scm 754 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4835z00_3193, BGl_string7762z00zz__objectz00, 
BINT(((long)35291))); 
exit( -1 );} } 
BgL_n2z00_1710 = 
(long)CINT(BgL_auxz00_6180); } 
BgL_test1484z00_679 = 
(BgL_n1z00_1709==BgL_n2z00_1710); } 
if(BgL_test1484z00_679)
{ /* ./Llib/object.scm 754 */
BGl_doublezd2nbzd2genericsz12z12zz__objectz00(); }  else 
{ /* ./Llib/object.scm 754 */BFALSE; } } 
{ /* ./Llib/object.scm 756 */
obj_t BgL_vectorz00_1711;int BgL_kz00_1712;
BgL_vectorz00_1711 = BGl_za2genericsza2z00zz__objectz00; 
{ /* ./Llib/object.scm 756 */
obj_t BgL_auxz00_6190;
{ /* ./Llib/object.scm 756 */
obj_t BgL_aux4847z00_3195;
BgL_aux4847z00_3195 = BGl_za2nbzd2genericsza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux4847z00_3195))
{ /* ./Llib/object.scm 756 */
BgL_auxz00_6190 = BgL_aux4847z00_3195
; }  else 
{ /* ./Llib/object.scm 756 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_aux4847z00_3195, BGl_string7762z00zz__objectz00, 
BINT(((long)35327))); 
exit( -1 );} } 
BgL_kz00_1712 = 
CINT(BgL_auxz00_6190); } 
{ /* ./Llib/object.scm 756 */
bool_t BgL_test2422z00_1714;
{ /* ./Llib/object.scm 756 */
int BgL_arg2427z00_1715;
BgL_arg2427z00_1715 = 
VECTOR_LENGTH(BgL_vectorz00_1711); 
BgL_test2422z00_1714 = 
BOUND_CHECK(BgL_kz00_1712, BgL_arg2427z00_1715); } 
if(BgL_test2422z00_1714)
{ /* ./Llib/object.scm 756 */
VECTOR_SET(BgL_vectorz00_1711,BgL_kz00_1712,BgL_genericz00_96); }  else 
{ /* ./Llib/object.scm 756 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7838z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1712), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)35327))); } } } 
{ /* ./Llib/object.scm 757 */
long BgL_za71za7_1720;
{ /* ./Llib/object.scm 757 */
obj_t BgL_auxz00_6205;
{ /* ./Llib/object.scm 757 */
obj_t BgL_aux4866z00_3197;
BgL_aux4866z00_3197 = BGl_za2nbzd2genericsza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux4866z00_3197))
{ /* ./Llib/object.scm 757 */
BgL_auxz00_6205 = BgL_aux4866z00_3197
; }  else 
{ /* ./Llib/object.scm 757 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4866z00_3197, BGl_string7762z00zz__objectz00, 
BINT(((long)35397))); 
exit( -1 );} } 
BgL_za71za7_1720 = 
(long)CINT(BgL_auxz00_6205); } 
{ /* ./Llib/object.scm 757 */
long BgL_auxz00_6212;
BgL_auxz00_6212 = 
(BgL_za71za7_1720+((long)1)); 
BGl_za2nbzd2genericsza2zd2zz__objectz00 = 
BINT(BgL_auxz00_6212); } } 
{ /* ./Llib/object.scm 758 */
obj_t BgL_defaultz00_1723;
if(
PROCEDUREP(BgL_defzd2metzd2_677))
{ /* ./Llib/object.scm 758 */
BgL_defaultz00_1723 = BgL_defzd2metzd2_677; }  else 
{ /* ./Llib/object.scm 758 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_defzd2metzd2_677, BGl_string7762z00zz__objectz00, 
BINT(((long)35459))); 
exit( -1 );} 
{ /* ./Llib/object.scm 758 */
int BgL_auxz00_6220;
BgL_auxz00_6220 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_genericz00_96, BgL_auxz00_6220, BgL_defaultz00_1723); } } 
{ /* ./Llib/object.scm 759 */
int BgL_auxz00_6223;
BgL_auxz00_6223 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_genericz00_96, BgL_auxz00_6223, BgL_defzd2bucketzd2_678); } 
{ /* ./Llib/object.scm 760 */
obj_t BgL_arg1492z00_680;
{ /* ./Llib/object.scm 760 */
long BgL_sz00_1727;
{ /* ./Llib/object.scm 760 */
long BgL_arg1427z00_1729;
{ /* ./Llib/object.scm 760 */
int BgL_arg1430z00_1730;
BgL_arg1430z00_1730 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 760 */
long BgL_n1z00_1732;long BgL_n2z00_1733;
{ /* ./Llib/object.scm 760 */
obj_t BgL_auxz00_6227;
{ /* ./Llib/object.scm 760 */
obj_t BgL_aux4891z00_3201;
BgL_aux4891z00_3201 = BGl_za2nbzd2classeszd2maxza2z00zz__objectz00; 
if(
INTEGERP(BgL_aux4891z00_3201))
{ /* ./Llib/object.scm 760 */
BgL_auxz00_6227 = BgL_aux4891z00_3201
; }  else 
{ /* ./Llib/object.scm 760 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7846z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4891z00_3201, BGl_string7762z00zz__objectz00, 
BINT(((long)35552))); 
exit( -1 );} } 
BgL_n1z00_1732 = 
(long)CINT(BgL_auxz00_6227); } 
BgL_n2z00_1733 = 
(long)(BgL_arg1430z00_1730); 
BgL_arg1427z00_1729 = 
(BgL_n1z00_1732/BgL_n2z00_1733); } } 
BgL_sz00_1727 = 
(((long)1)+BgL_arg1427z00_1729); } 
{ /* ./Llib/object.scm 760 */
int BgL_auxz00_6237;
BgL_auxz00_6237 = 
(int)(BgL_sz00_1727); 
BgL_arg1492z00_680 = 
make_vector(BgL_auxz00_6237, BgL_defzd2bucketzd2_678); } } 
{ /* ./Llib/object.scm 760 */
int BgL_auxz00_6240;
BgL_auxz00_6240 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_genericz00_96, BgL_auxz00_6240, BgL_arg1492z00_680); } } 
BgL_aux2823z00_2681 = BUNSPEC; } } } } 
POP_TRACE(); 
return BgL_aux2823z00_2681;} } } } 
}



/* _add-generic! */
obj_t BGl__addzd2genericz12zc0zz__objectz00(obj_t BgL_envz00_2838, obj_t BgL_genericz00_2839, obj_t BgL_defaultz00_2840)
{ AN_OBJECT;
{ /* ./Llib/object.scm 748 */
{ /* ./Llib/object.scm 749 */
obj_t BgL_auxz00_6244;
if(
PROCEDUREP(BgL_genericz00_2839))
{ /* ./Llib/object.scm 749 */
BgL_auxz00_6244 = BgL_genericz00_2839
; }  else 
{ /* ./Llib/object.scm 749 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7847z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_2839, BGl_string7762z00zz__objectz00, 
BINT(((long)35044))); 
exit( -1 );} 
return 
BGl_addzd2genericz12zc0zz__objectz00(BgL_auxz00_6244, BgL_defaultz00_2840);} } 
}



/* add-method! */
BGL_EXPORTED_DEF obj_t BGl_addzd2methodz12zc0zz__objectz00(obj_t BgL_genericz00_98, obj_t BgL_classz00_99, obj_t BgL_methodz00_100)
{ AN_OBJECT;
{ /* ./Llib/object.scm 797 */
{ /* ./Llib/object.scm 799 */
obj_t BgL_symbol2828z00_2682;
BgL_symbol2828z00_2682 = BGl_symbol7848z00zz__objectz00; 
{ /* ./Llib/object.scm 799 */

PUSH_TRACE(BgL_symbol2828z00_2682); BUNSPEC; 
{ /* ./Llib/object.scm 799 */
obj_t BgL_aux2827z00_2683;
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_99))
{ /* ./Llib/object.scm 801 */
bool_t BgL_test1503z00_684;
{ /* ./Llib/object.scm 801 */
int BgL_arg1546z00_708;int BgL_arg1547z00_709;
BgL_arg1546z00_708 = 
PROCEDURE_ARITY(BgL_genericz00_98); 
BgL_arg1547z00_709 = 
PROCEDURE_ARITY(BgL_methodz00_100); 
{ /* ./Llib/object.scm 801 */
long BgL_auxz00_6258;long BgL_auxz00_6256;
BgL_auxz00_6258 = 
(long)(BgL_arg1547z00_709); 
BgL_auxz00_6256 = 
(long)(BgL_arg1546z00_708); 
BgL_test1503z00_684 = 
(BgL_auxz00_6256==BgL_auxz00_6258); } } 
if(BgL_test1503z00_684)
{ /* ./Llib/object.scm 801 */
{ /* ./Llib/object.scm 804 */
bool_t BgL_testz00_6262;
{ /* ./Llib/object.scm 804 */
obj_t BgL_auxz00_6263;
{ /* ./Llib/object.scm 804 */
int BgL_auxz00_6264;
BgL_auxz00_6264 = 
(int)(((long)1)); 
BgL_auxz00_6263 = 
PROCEDURE_REF(BgL_genericz00_98, BgL_auxz00_6264); } 
BgL_testz00_6262 = 
VECTORP(BgL_auxz00_6263); } 
if(BgL_testz00_6262)
{ /* ./Llib/object.scm 804 */BFALSE; }  else 
{ /* ./Llib/object.scm 804 */
BGl_addzd2genericz12zc0zz__objectz00(BgL_genericz00_98, BFALSE); } } 
{ /* ./Llib/object.scm 808 */
obj_t BgL_methodzd2arrayzd2_686;
{ /* ./Llib/object.scm 808 */
int BgL_auxz00_6269;
BgL_auxz00_6269 = 
(int)(((long)1)); 
BgL_methodzd2arrayzd2_686 = 
PROCEDURE_REF(BgL_genericz00_98, BgL_auxz00_6269); } 
{ /* ./Llib/object.scm 808 */
long BgL_cnumz00_687;
{ /* ./Llib/object.scm 809 */
long BgL_res2624z00_1748;
{ /* ./Llib/object.scm 809 */
obj_t BgL_vectorz00_1746;int BgL_kz00_1747;
if(
VECTORP(BgL_classz00_99))
{ /* ./Llib/object.scm 809 */
BgL_vectorz00_1746 = BgL_classz00_99; }  else 
{ /* ./Llib/object.scm 809 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7848z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_99, BGl_string7762z00zz__objectz00, 
BINT(((long)37419))); 
exit( -1 );} 
BgL_kz00_1747 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 809 */
obj_t BgL_auxz00_6278;
{ /* ./Llib/object.scm 809 */
obj_t BgL_aux4932z00_3207;
BgL_aux4932z00_3207 = 
VECTOR_REF(BgL_vectorz00_1746,BgL_kz00_1747); 
if(
INTEGERP(BgL_aux4932z00_3207))
{ /* ./Llib/object.scm 809 */
BgL_auxz00_6278 = BgL_aux4932z00_3207
; }  else 
{ /* ./Llib/object.scm 809 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7848z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux4932z00_3207, BGl_string7762z00zz__objectz00, 
BINT(((long)37419))); 
exit( -1 );} } 
BgL_res2624z00_1748 = 
(long)CINT(BgL_auxz00_6278); } } 
BgL_cnumz00_687 = BgL_res2624z00_1748; } 
{ /* ./Llib/object.scm 809 */
obj_t BgL_previousz00_688;
{ /* ./Llib/object.scm 810 */
obj_t BgL_arrayz00_1750;int BgL_offsetz00_1751;
if(
VECTORP(BgL_methodzd2arrayzd2_686))
{ /* ./Llib/object.scm 810 */
BgL_arrayz00_1750 = BgL_methodzd2arrayzd2_686; }  else 
{ /* ./Llib/object.scm 810 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7848z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_methodzd2arrayzd2_686, BGl_string7762z00zz__objectz00, 
BINT(((long)37492))); 
exit( -1 );} 
BgL_offsetz00_1751 = 
(int)(BgL_cnumz00_687); 
{ /* ./Llib/object.scm 810 */
long BgL_offsetz00_1752;
{ /* ./Llib/object.scm 810 */
long BgL_auxz00_6292;
BgL_auxz00_6292 = 
(long)(BgL_offsetz00_1751); 
BgL_offsetz00_1752 = 
(BgL_auxz00_6292-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 810 */
long BgL_modz00_1753;
{ /* ./Llib/object.scm 810 */
int BgL_arg1289z00_1754;
BgL_arg1289z00_1754 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 810 */
long BgL_auxz00_6296;
BgL_auxz00_6296 = 
(long)(BgL_arg1289z00_1754); 
BgL_modz00_1753 = 
(BgL_offsetz00_1752/BgL_auxz00_6296); } } 
{ /* ./Llib/object.scm 810 */
long BgL_restz00_1755;
{ /* ./Llib/object.scm 810 */
int BgL_arg1285z00_1756;
BgL_arg1285z00_1756 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 810 */
long BgL_auxz00_6300;
BgL_auxz00_6300 = 
(long)(BgL_arg1285z00_1756); 
BgL_restz00_1755 = 
(BgL_offsetz00_1752%BgL_auxz00_6300); } } 
{ /* ./Llib/object.scm 810 */

{ /* ./Llib/object.scm 810 */
obj_t BgL_bucketz00_1757;
{ 
int BgL_auxz00_6303;
BgL_auxz00_6303 = 
(int)(BgL_modz00_1753); 
BgL_bucketz00_1757 = 
VECTOR_REF(BgL_arrayz00_1750,BgL_auxz00_6303); } 
{ /* ./Llib/object.scm 810 */
obj_t BgL_vectorz00_1768;int BgL_kz00_1769;
if(
VECTORP(BgL_bucketz00_1757))
{ /* ./Llib/object.scm 810 */
BgL_vectorz00_1768 = BgL_bucketz00_1757; }  else 
{ /* ./Llib/object.scm 810 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7848z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_1757, BGl_string7762z00zz__objectz00, 
BINT(((long)37455))); 
exit( -1 );} 
BgL_kz00_1769 = 
(int)(BgL_restz00_1755); 
BgL_previousz00_688 = 
VECTOR_REF(BgL_vectorz00_1768,BgL_kz00_1769); } } } } } } } 
{ /* ./Llib/object.scm 810 */
obj_t BgL_defz00_689;
{ /* ./Llib/object.scm 811 */
obj_t BgL_res2627z00_1771;
{ /* ./Llib/object.scm 811 */
obj_t BgL_aux4972z00_3213;
{ /* ./Llib/object.scm 811 */
int BgL_auxz00_6313;
BgL_auxz00_6313 = 
(int)(((long)0)); 
BgL_aux4972z00_3213 = 
PROCEDURE_REF(BgL_genericz00_98, BgL_auxz00_6313); } 
if(
PROCEDUREP(BgL_aux4972z00_3213))
{ /* ./Llib/object.scm 811 */
BgL_res2627z00_1771 = BgL_aux4972z00_3213; }  else 
{ /* ./Llib/object.scm 811 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7848z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux4972z00_3213, BGl_string7762z00zz__objectz00, 
BINT(((long)37513))); 
exit( -1 );} } 
BgL_defz00_689 = BgL_res2627z00_1771; } 
{ /* ./Llib/object.scm 811 */

BGl_loopz00zz__objectz00(BgL_methodz00_100, BgL_genericz00_98, BgL_previousz00_688, BgL_defz00_689, BgL_methodzd2arrayzd2_686, BgL_classz00_99); } } } } } 
BgL_aux2827z00_2683 = BgL_methodz00_100; }  else 
{ /* ./Llib/object.scm 801 */
{ /* ./Llib/object.scm 802 */
obj_t BgL_arg1539z00_705;
BgL_arg1539z00_705 = 
MAKE_PAIR(BgL_genericz00_98, BgL_methodz00_100); 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7849z00zz__objectz00, BGl_string7850z00zz__objectz00, BgL_arg1539z00_705, "./Llib/object.scm", ((long)37103)); } 
{ /* ./Llib/object.scm 802 */
obj_t BgL_aux4989z00_3215;
BgL_aux4989z00_3215 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)37103))); 
if(
PROCEDUREP(BgL_aux4989z00_3215))
{ /* ./Llib/object.scm 802 */
BgL_aux2827z00_2683 = BgL_aux4989z00_3215; }  else 
{ /* ./Llib/object.scm 802 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7848z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux4989z00_3215, BGl_string7762z00zz__objectz00, 
BINT(((long)37103))); 
exit( -1 );} } } }  else 
{ /* ./Llib/object.scm 799 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7849z00zz__objectz00, BGl_string7851z00zz__objectz00, BgL_classz00_99, "./Llib/object.scm", ((long)36981)); 
{ /* ./Llib/object.scm 800 */
obj_t BgL_aux5006z00_3217;
BgL_aux5006z00_3217 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)36981))); 
if(
PROCEDUREP(BgL_aux5006z00_3217))
{ /* ./Llib/object.scm 800 */
BgL_aux2827z00_2683 = BgL_aux5006z00_3217; }  else 
{ /* ./Llib/object.scm 800 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7848z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux5006z00_3217, BGl_string7762z00zz__objectz00, 
BINT(((long)36981))); 
exit( -1 );} } } 
POP_TRACE(); 
return BgL_aux2827z00_2683;} } } } 
}



/* loop */
obj_t BGl_loopz00zz__objectz00(obj_t BgL_methodz00_2942, obj_t BgL_genericz00_2941, obj_t BgL_previousz00_2940, obj_t BgL_defz00_2939, obj_t BgL_methodzd2arrayzd2_2938, obj_t BgL_classz00_690)
{ AN_OBJECT;
{ /* ./Llib/object.scm 812 */
{ /* ./Llib/object.scm 813 */
long BgL_cnumz00_692;
{ /* ./Llib/object.scm 813 */
long BgL_res2628z00_1775;
{ /* ./Llib/object.scm 813 */
obj_t BgL_vectorz00_1773;int BgL_kz00_1774;
if(
VECTORP(BgL_classz00_690))
{ /* ./Llib/object.scm 813 */
BgL_vectorz00_1773 = BgL_classz00_690; }  else 
{ /* ./Llib/object.scm 813 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7852z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_690, BGl_string7762z00zz__objectz00, 
BINT(((long)37592))); 
exit( -1 );} 
BgL_kz00_1774 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 813 */
obj_t BgL_auxz00_6346;
{ /* ./Llib/object.scm 813 */
obj_t BgL_aux5027z00_3221;
BgL_aux5027z00_3221 = 
VECTOR_REF(BgL_vectorz00_1773,BgL_kz00_1774); 
if(
INTEGERP(BgL_aux5027z00_3221))
{ /* ./Llib/object.scm 813 */
BgL_auxz00_6346 = BgL_aux5027z00_3221
; }  else 
{ /* ./Llib/object.scm 813 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7852z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux5027z00_3221, BGl_string7762z00zz__objectz00, 
BINT(((long)37592))); 
exit( -1 );} } 
BgL_res2628z00_1775 = 
(long)CINT(BgL_auxz00_6346); } } 
BgL_cnumz00_692 = BgL_res2628z00_1775; } 
{ /* ./Llib/object.scm 813 */
obj_t BgL_currentz00_693;
{ /* ./Llib/object.scm 814 */
obj_t BgL_arrayz00_1777;int BgL_offsetz00_1778;
if(
VECTORP(BgL_methodzd2arrayzd2_2938))
{ /* ./Llib/object.scm 814 */
BgL_arrayz00_1777 = BgL_methodzd2arrayzd2_2938; }  else 
{ /* ./Llib/object.scm 814 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7852z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_methodzd2arrayzd2_2938, BGl_string7762z00zz__objectz00, 
BINT(((long)37663))); 
exit( -1 );} 
BgL_offsetz00_1778 = 
(int)(BgL_cnumz00_692); 
{ /* ./Llib/object.scm 814 */
long BgL_offsetz00_1779;
{ /* ./Llib/object.scm 814 */
long BgL_auxz00_6360;
BgL_auxz00_6360 = 
(long)(BgL_offsetz00_1778); 
BgL_offsetz00_1779 = 
(BgL_auxz00_6360-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 814 */
long BgL_modz00_1780;
{ /* ./Llib/object.scm 814 */
int BgL_arg1289z00_1781;
BgL_arg1289z00_1781 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 814 */
long BgL_auxz00_6364;
BgL_auxz00_6364 = 
(long)(BgL_arg1289z00_1781); 
BgL_modz00_1780 = 
(BgL_offsetz00_1779/BgL_auxz00_6364); } } 
{ /* ./Llib/object.scm 814 */
long BgL_restz00_1782;
{ /* ./Llib/object.scm 814 */
int BgL_arg1285z00_1783;
BgL_arg1285z00_1783 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 814 */
long BgL_auxz00_6368;
BgL_auxz00_6368 = 
(long)(BgL_arg1285z00_1783); 
BgL_restz00_1782 = 
(BgL_offsetz00_1779%BgL_auxz00_6368); } } 
{ /* ./Llib/object.scm 814 */

{ /* ./Llib/object.scm 814 */
obj_t BgL_bucketz00_1784;
{ 
int BgL_auxz00_6371;
BgL_auxz00_6371 = 
(int)(BgL_modz00_1780); 
BgL_bucketz00_1784 = 
VECTOR_REF(BgL_arrayz00_1777,BgL_auxz00_6371); } 
{ /* ./Llib/object.scm 814 */
obj_t BgL_vectorz00_1795;int BgL_kz00_1796;
if(
VECTORP(BgL_bucketz00_1784))
{ /* ./Llib/object.scm 814 */
BgL_vectorz00_1795 = BgL_bucketz00_1784; }  else 
{ /* ./Llib/object.scm 814 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7852z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_1784, BGl_string7762z00zz__objectz00, 
BINT(((long)37626))); 
exit( -1 );} 
BgL_kz00_1796 = 
(int)(BgL_restz00_1782); 
BgL_currentz00_693 = 
VECTOR_REF(BgL_vectorz00_1795,BgL_kz00_1796); } } } } } } } 
{ /* ./Llib/object.scm 814 */

{ /* ./Llib/object.scm 815 */
bool_t BgL_test1508z00_694;
if(
(BgL_currentz00_693==BgL_defz00_2939))
{ /* ./Llib/object.scm 815 */
BgL_test1508z00_694 = ((bool_t)1); }  else 
{ /* ./Llib/object.scm 815 */
BgL_test1508z00_694 = 
(BgL_currentz00_693==BgL_previousz00_2940); } 
if(BgL_test1508z00_694)
{ /* ./Llib/object.scm 815 */
BGl_methodzd2arrayzd2setz12z12zz__objectz00(BgL_genericz00_2941, BgL_methodzd2arrayzd2_2938, BgL_cnumz00_692, BgL_methodz00_2942); 
{ 
obj_t BgL_l1023z00_695;
{ /* ./Llib/object.scm 820 */
obj_t BgL_arg1511z00_697;
{ /* ./Llib/object.scm 820 */
obj_t BgL_vectorz00_1798;int BgL_kz00_1799;
if(
VECTORP(BgL_classz00_690))
{ /* ./Llib/object.scm 820 */
BgL_vectorz00_1798 = BgL_classz00_690; }  else 
{ /* ./Llib/object.scm 820 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7852z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_690, BGl_string7762z00zz__objectz00, 
BINT(((long)37906))); 
exit( -1 );} 
BgL_kz00_1799 = 
(int)(((long)4)); 
{ /* ./Llib/object.scm 820 */
bool_t BgL_test2430z00_1800;
{ /* ./Llib/object.scm 820 */
int BgL_arg2435z00_1801;
BgL_arg2435z00_1801 = 
VECTOR_LENGTH(BgL_vectorz00_1798); 
BgL_test2430z00_1800 = 
BOUND_CHECK(BgL_kz00_1799, BgL_arg2435z00_1801); } 
if(BgL_test2430z00_1800)
{ /* ./Llib/object.scm 820 */
BgL_arg1511z00_697 = 
VECTOR_REF(BgL_vectorz00_1798,BgL_kz00_1799); }  else 
{ /* ./Llib/object.scm 820 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1799), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1511z00_697 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)37906))); } } } 
BgL_l1023z00_695 = BgL_arg1511z00_697; 
BgL_forzd2each1024zd2_696:
{ /* ./Llib/object.scm 820 */
bool_t BgL_test1514z00_698;
BgL_test1514z00_698 = 
PAIRP(BgL_l1023z00_695); 
if(BgL_test1514z00_698)
{ /* ./Llib/object.scm 820 */
{ /* ./Llib/object.scm 820 */
obj_t BgL_arg1516z00_699;
{ /* ./Llib/object.scm 820 */
obj_t BgL_pairz00_1807;
if(BgL_test1514z00_698)
{ /* ./Llib/object.scm 820 */
BgL_pairz00_1807 = BgL_l1023z00_695; }  else 
{ /* ./Llib/object.scm 820 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7852z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_l1023z00_695, BGl_string7762z00zz__objectz00, 
BINT(((long)37891))); 
exit( -1 );} 
BgL_arg1516z00_699 = 
CAR(BgL_pairz00_1807); } 
BGl_loopz00zz__objectz00(BgL_methodz00_2942, BgL_genericz00_2941, BgL_previousz00_2940, BgL_defz00_2939, BgL_methodzd2arrayzd2_2938, BgL_arg1516z00_699); } 
{ /* ./Llib/object.scm 820 */
obj_t BgL_arg1520z00_700;
{ /* ./Llib/object.scm 820 */
obj_t BgL_pairz00_1808;
if(
PAIRP(BgL_l1023z00_695))
{ /* ./Llib/object.scm 820 */
BgL_pairz00_1808 = BgL_l1023z00_695; }  else 
{ /* ./Llib/object.scm 820 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7852z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_l1023z00_695, BGl_string7762z00zz__objectz00, 
BINT(((long)37891))); 
exit( -1 );} 
BgL_arg1520z00_700 = 
CDR(BgL_pairz00_1808); } 
{ 
obj_t BgL_l1023z00_6414;
BgL_l1023z00_6414 = BgL_arg1520z00_700; 
BgL_l1023z00_695 = BgL_l1023z00_6414; 
goto BgL_forzd2each1024zd2_696;} } }  else 
{ /* ./Llib/object.scm 820 */
if(
NULLP(BgL_l1023z00_695))
{ /* ./Llib/object.scm 820 */
return BTRUE;}  else 
{ /* ./Llib/object.scm 820 */
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string7841z00zz__objectz00, BGl_string7842z00zz__objectz00, BgL_l1023z00_695, BGl_string7762z00zz__objectz00, 
BINT(((long)37891)));} } } } } }  else 
{ /* ./Llib/object.scm 815 */
return BFALSE;} } } } } } 
}



/* _add-method! */
obj_t BGl__addzd2methodz12zc0zz__objectz00(obj_t BgL_envz00_2841, obj_t BgL_genericz00_2842, obj_t BgL_classz00_2843, obj_t BgL_methodz00_2844)
{ AN_OBJECT;
{ /* ./Llib/object.scm 797 */
{ /* ./Llib/object.scm 799 */
obj_t BgL_auxz00_6425;obj_t BgL_auxz00_6419;
if(
PROCEDUREP(BgL_methodz00_2844))
{ /* ./Llib/object.scm 799 */
BgL_auxz00_6425 = BgL_methodz00_2844
; }  else 
{ /* ./Llib/object.scm 799 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7853z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_methodz00_2844, BGl_string7762z00zz__objectz00, 
BINT(((long)36953))); 
exit( -1 );} 
if(
PROCEDUREP(BgL_genericz00_2842))
{ /* ./Llib/object.scm 799 */
BgL_auxz00_6419 = BgL_genericz00_2842
; }  else 
{ /* ./Llib/object.scm 799 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7853z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_2842, BGl_string7762z00zz__objectz00, 
BINT(((long)36953))); 
exit( -1 );} 
return 
BGl_addzd2methodz12zc0zz__objectz00(BgL_auxz00_6419, BgL_classz00_2843, BgL_auxz00_6425);} } 
}



/* find-method */
BGL_EXPORTED_DEF obj_t BGl_findzd2methodzd2zz__objectz00(BgL_objectz00_bglt BgL_objz00_101, obj_t BgL_genericz00_102)
{ AN_OBJECT;
{ /* ./Llib/object.scm 828 */
{ /* ./Llib/object.scm 829 */
obj_t BgL_symbol2832z00_3829;
BgL_symbol2832z00_3829 = BGl_symbol7854z00zz__objectz00; 
{ /* ./Llib/object.scm 829 */

PUSH_TRACE(BgL_symbol2832z00_3829); BUNSPEC; 
{ /* ./Llib/object.scm 829 */
obj_t BgL_aux2831z00_3830;
{ /* ./Llib/object.scm 829 */
long BgL_objzd2classzd2numz00_3831;
BgL_objzd2classzd2numz00_3831 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_101); 
{ /* ./Llib/object.scm 829 */
obj_t BgL_arg1555z00_3832;
{ /* ./Llib/object.scm 829 */
int BgL_auxz00_6434;
BgL_auxz00_6434 = 
(int)(((long)1)); 
BgL_arg1555z00_3832 = 
PROCEDURE_REF(BgL_genericz00_102, BgL_auxz00_6434); } 
{ /* ./Llib/object.scm 829 */
obj_t BgL_arrayz00_3833;int BgL_offsetz00_3834;
if(
VECTORP(BgL_arg1555z00_3832))
{ /* ./Llib/object.scm 829 */
BgL_arrayz00_3833 = BgL_arg1555z00_3832; }  else 
{ /* ./Llib/object.scm 829 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7854z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_3832, BGl_string7762z00zz__objectz00, 
BINT(((long)38369))); 
exit( -1 );} 
BgL_offsetz00_3834 = 
(int)(BgL_objzd2classzd2numz00_3831); 
{ /* ./Llib/object.scm 829 */
long BgL_offsetz00_3835;
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_6443;
BgL_auxz00_6443 = 
(long)(BgL_offsetz00_3834); 
BgL_offsetz00_3835 = 
(BgL_auxz00_6443-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 829 */
long BgL_modz00_3836;
{ /* ./Llib/object.scm 829 */
int BgL_arg1289z00_3837;
BgL_arg1289z00_3837 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_6447;
BgL_auxz00_6447 = 
(long)(BgL_arg1289z00_3837); 
BgL_modz00_3836 = 
(BgL_offsetz00_3835/BgL_auxz00_6447); } } 
{ /* ./Llib/object.scm 829 */
long BgL_restz00_3838;
{ /* ./Llib/object.scm 829 */
int BgL_arg1285z00_3839;
BgL_arg1285z00_3839 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_6451;
BgL_auxz00_6451 = 
(long)(BgL_arg1285z00_3839); 
BgL_restz00_3838 = 
(BgL_offsetz00_3835%BgL_auxz00_6451); } } 
{ /* ./Llib/object.scm 829 */

{ /* ./Llib/object.scm 829 */
obj_t BgL_bucketz00_3840;
{ 
int BgL_auxz00_6454;
BgL_auxz00_6454 = 
(int)(BgL_modz00_3836); 
BgL_bucketz00_3840 = 
VECTOR_REF(BgL_arrayz00_3833,BgL_auxz00_6454); } 
{ /* ./Llib/object.scm 829 */
obj_t BgL_vectorz00_3841;int BgL_kz00_3842;
if(
VECTORP(BgL_bucketz00_3840))
{ /* ./Llib/object.scm 829 */
BgL_vectorz00_3841 = BgL_bucketz00_3840; }  else 
{ /* ./Llib/object.scm 829 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7854z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_3840, BGl_string7762z00zz__objectz00, 
BINT(((long)38369))); 
exit( -1 );} 
BgL_kz00_3842 = 
(int)(BgL_restz00_3838); 
BgL_aux2831z00_3830 = 
VECTOR_REF(BgL_vectorz00_3841,BgL_kz00_3842); } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2831z00_3830;} } } } 
}



/* _find-method */
obj_t BGl__findzd2methodzd2zz__objectz00(obj_t BgL_envz00_2845, obj_t BgL_objz00_2846, obj_t BgL_genericz00_2847)
{ AN_OBJECT;
{ /* ./Llib/object.scm 828 */
{ /* ./Llib/object.scm 829 */
BgL_objectz00_bglt BgL_objz00_3847;obj_t BgL_genericz00_3848;
{ /* ./Llib/object.scm 829 */
bool_t BgL_testz00_6465;
{ /* ./Llib/object.scm 829 */
bool_t BgL_res8056z00_3846;
{ /* ./Llib/object.scm 829 */
obj_t BgL_symbol2772z00_3844;
BgL_symbol2772z00_3844 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 829 */

PUSH_TRACE(BgL_symbol2772z00_3844); BUNSPEC; 
{ /* ./Llib/object.scm 829 */
bool_t BgL_aux2771z00_3845;
BgL_aux2771z00_3845 = 
BGL_OBJECTP(BgL_objz00_2846); 
POP_TRACE(); 
BgL_res8056z00_3846 = BgL_aux2771z00_3845; } } } 
BgL_testz00_6465 = BgL_res8056z00_3846; } 
if(BgL_testz00_6465)
{ /* ./Llib/object.scm 829 */
BgL_objz00_3847 = 
(BgL_objectz00_bglt)(BgL_objz00_2846); }  else 
{ /* ./Llib/object.scm 829 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7855z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2846, BGl_string7762z00zz__objectz00, 
BINT(((long)38369))); 
exit( -1 );} } 
if(
PROCEDUREP(BgL_genericz00_2847))
{ /* ./Llib/object.scm 829 */
BgL_genericz00_3848 = BgL_genericz00_2847; }  else 
{ /* ./Llib/object.scm 829 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7855z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_2847, BGl_string7762z00zz__objectz00, 
BINT(((long)38369))); 
exit( -1 );} 
{ /* ./Llib/object.scm 829 */
obj_t BgL_symbol2832z00_3849;
BgL_symbol2832z00_3849 = BGl_symbol7854z00zz__objectz00; 
{ /* ./Llib/object.scm 829 */

PUSH_TRACE(BgL_symbol2832z00_3849); BUNSPEC; 
{ /* ./Llib/object.scm 829 */
obj_t BgL_aux2831z00_3850;
{ /* ./Llib/object.scm 829 */
long BgL_objzd2classzd2numz00_3851;
BgL_objzd2classzd2numz00_3851 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_3847); 
{ /* ./Llib/object.scm 829 */
obj_t BgL_arg1555z00_3852;
{ /* ./Llib/object.scm 829 */
int BgL_auxz00_6480;
BgL_auxz00_6480 = 
(int)(((long)1)); 
BgL_arg1555z00_3852 = 
PROCEDURE_REF(BgL_genericz00_3848, BgL_auxz00_6480); } 
{ /* ./Llib/object.scm 829 */
obj_t BgL_arrayz00_3853;int BgL_offsetz00_3854;
if(
VECTORP(BgL_arg1555z00_3852))
{ /* ./Llib/object.scm 829 */
BgL_arrayz00_3853 = BgL_arg1555z00_3852; }  else 
{ /* ./Llib/object.scm 829 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7854z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_3852, BGl_string7762z00zz__objectz00, 
BINT(((long)38369))); 
exit( -1 );} 
BgL_offsetz00_3854 = 
(int)(BgL_objzd2classzd2numz00_3851); 
{ /* ./Llib/object.scm 829 */
long BgL_offsetz00_3855;
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_6489;
BgL_auxz00_6489 = 
(long)(BgL_offsetz00_3854); 
BgL_offsetz00_3855 = 
(BgL_auxz00_6489-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 829 */
long BgL_modz00_3856;
{ /* ./Llib/object.scm 829 */
int BgL_arg1289z00_3857;
BgL_arg1289z00_3857 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_6493;
BgL_auxz00_6493 = 
(long)(BgL_arg1289z00_3857); 
BgL_modz00_3856 = 
(BgL_offsetz00_3855/BgL_auxz00_6493); } } 
{ /* ./Llib/object.scm 829 */
long BgL_restz00_3858;
{ /* ./Llib/object.scm 829 */
int BgL_arg1285z00_3859;
BgL_arg1285z00_3859 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_6497;
BgL_auxz00_6497 = 
(long)(BgL_arg1285z00_3859); 
BgL_restz00_3858 = 
(BgL_offsetz00_3855%BgL_auxz00_6497); } } 
{ /* ./Llib/object.scm 829 */

{ /* ./Llib/object.scm 829 */
obj_t BgL_bucketz00_3860;
{ 
int BgL_auxz00_6500;
BgL_auxz00_6500 = 
(int)(BgL_modz00_3856); 
BgL_bucketz00_3860 = 
VECTOR_REF(BgL_arrayz00_3853,BgL_auxz00_6500); } 
{ /* ./Llib/object.scm 829 */
obj_t BgL_vectorz00_3861;int BgL_kz00_3862;
if(
VECTORP(BgL_bucketz00_3860))
{ /* ./Llib/object.scm 829 */
BgL_vectorz00_3861 = BgL_bucketz00_3860; }  else 
{ /* ./Llib/object.scm 829 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7854z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_3860, BGl_string7762z00zz__objectz00, 
BINT(((long)38369))); 
exit( -1 );} 
BgL_kz00_3862 = 
(int)(BgL_restz00_3858); 
BgL_aux2831z00_3850 = 
VECTOR_REF(BgL_vectorz00_3861,BgL_kz00_3862); } } } } } } } } } 
POP_TRACE(); 
return BgL_aux2831z00_3850;} } } } } 
}



/* find-super-class-method */
BGL_EXPORTED_DEF obj_t BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_objectz00_bglt BgL_objz00_103, obj_t BgL_genericz00_104, obj_t BgL_classz00_105)
{ AN_OBJECT;
{ /* ./Llib/object.scm 837 */
{ 
obj_t BgL_superz00_712;
{ /* ./Llib/object.scm 838 */
obj_t BgL_arg1560z00_714;
{ /* ./Llib/object.scm 838 */
obj_t BgL_vectorz00_1845;int BgL_kz00_1846;
if(
VECTORP(BgL_classz00_105))
{ /* ./Llib/object.scm 838 */
BgL_vectorz00_1845 = BgL_classz00_105; }  else 
{ /* ./Llib/object.scm 838 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7856z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_105, BGl_string7762z00zz__objectz00, 
BINT(((long)38939))); 
exit( -1 );} 
BgL_kz00_1846 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 838 */
bool_t BgL_test2430z00_1847;
{ /* ./Llib/object.scm 838 */
int BgL_arg2435z00_1848;
BgL_arg2435z00_1848 = 
VECTOR_LENGTH(BgL_vectorz00_1845); 
BgL_test2430z00_1847 = 
BOUND_CHECK(BgL_kz00_1846, BgL_arg2435z00_1848); } 
if(BgL_test2430z00_1847)
{ /* ./Llib/object.scm 838 */
BgL_arg1560z00_714 = 
VECTOR_REF(BgL_vectorz00_1845,BgL_kz00_1846); }  else 
{ /* ./Llib/object.scm 838 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1846), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1560z00_714 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)38939))); } } } 
BgL_superz00_712 = BgL_arg1560z00_714; 
BgL_loopz00_713:
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_712))
{ /* ./Llib/object.scm 841 */
long BgL_objzd2superzd2classzd2numzd2_716;
{ /* ./Llib/object.scm 841 */
long BgL_res2633z00_1856;
{ /* ./Llib/object.scm 841 */
obj_t BgL_vectorz00_1854;int BgL_kz00_1855;
if(
VECTORP(BgL_superz00_712))
{ /* ./Llib/object.scm 841 */
BgL_vectorz00_1854 = BgL_superz00_712; }  else 
{ /* ./Llib/object.scm 841 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7856z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_712, BGl_string7762z00zz__objectz00, 
BINT(((long)39051))); 
exit( -1 );} 
BgL_kz00_1855 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 841 */
obj_t BgL_auxz00_6533;
{ /* ./Llib/object.scm 841 */
obj_t BgL_aux5192z00_3247;
BgL_aux5192z00_3247 = 
VECTOR_REF(BgL_vectorz00_1854,BgL_kz00_1855); 
if(
INTEGERP(BgL_aux5192z00_3247))
{ /* ./Llib/object.scm 841 */
BgL_auxz00_6533 = BgL_aux5192z00_3247
; }  else 
{ /* ./Llib/object.scm 841 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7856z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux5192z00_3247, BGl_string7762z00zz__objectz00, 
BINT(((long)39051))); 
exit( -1 );} } 
BgL_res2633z00_1856 = 
(long)CINT(BgL_auxz00_6533); } } 
BgL_objzd2superzd2classzd2numzd2_716 = BgL_res2633z00_1856; } 
{ /* ./Llib/object.scm 842 */
obj_t BgL_methodz00_717;
{ /* ./Llib/object.scm 843 */
obj_t BgL_arg1567z00_719;
{ /* ./Llib/object.scm 843 */
int BgL_auxz00_6541;
BgL_auxz00_6541 = 
(int)(((long)1)); 
BgL_arg1567z00_719 = 
PROCEDURE_REF(BgL_genericz00_104, BgL_auxz00_6541); } 
{ /* ./Llib/object.scm 842 */
obj_t BgL_arrayz00_1859;int BgL_offsetz00_1860;
if(
VECTORP(BgL_arg1567z00_719))
{ /* ./Llib/object.scm 843 */
BgL_arrayz00_1859 = BgL_arg1567z00_719; }  else 
{ /* ./Llib/object.scm 843 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7856z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1567z00_719, BGl_string7762z00zz__objectz00, 
BINT(((long)39156))); 
exit( -1 );} 
BgL_offsetz00_1860 = 
(int)(BgL_objzd2superzd2classzd2numzd2_716); 
{ /* ./Llib/object.scm 842 */
long BgL_offsetz00_1861;
{ /* ./Llib/object.scm 842 */
long BgL_auxz00_6550;
BgL_auxz00_6550 = 
(long)(BgL_offsetz00_1860); 
BgL_offsetz00_1861 = 
(BgL_auxz00_6550-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 842 */
long BgL_modz00_1862;
{ /* ./Llib/object.scm 842 */
int BgL_arg1289z00_1863;
BgL_arg1289z00_1863 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 842 */
long BgL_auxz00_6554;
BgL_auxz00_6554 = 
(long)(BgL_arg1289z00_1863); 
BgL_modz00_1862 = 
(BgL_offsetz00_1861/BgL_auxz00_6554); } } 
{ /* ./Llib/object.scm 842 */
long BgL_restz00_1864;
{ /* ./Llib/object.scm 842 */
int BgL_arg1285z00_1865;
BgL_arg1285z00_1865 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 842 */
long BgL_auxz00_6558;
BgL_auxz00_6558 = 
(long)(BgL_arg1285z00_1865); 
BgL_restz00_1864 = 
(BgL_offsetz00_1861%BgL_auxz00_6558); } } 
{ /* ./Llib/object.scm 842 */

{ /* ./Llib/object.scm 842 */
obj_t BgL_bucketz00_1866;
{ 
int BgL_auxz00_6561;
BgL_auxz00_6561 = 
(int)(BgL_modz00_1862); 
BgL_bucketz00_1866 = 
VECTOR_REF(BgL_arrayz00_1859,BgL_auxz00_6561); } 
{ /* ./Llib/object.scm 842 */
obj_t BgL_vectorz00_1877;int BgL_kz00_1878;
if(
VECTORP(BgL_bucketz00_1866))
{ /* ./Llib/object.scm 842 */
BgL_vectorz00_1877 = BgL_bucketz00_1866; }  else 
{ /* ./Llib/object.scm 842 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7856z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_1866, BGl_string7762z00zz__objectz00, 
BINT(((long)39091))); 
exit( -1 );} 
BgL_kz00_1878 = 
(int)(BgL_restz00_1864); 
BgL_methodz00_717 = 
VECTOR_REF(BgL_vectorz00_1877,BgL_kz00_1878); } } } } } } } } 
if(
CBOOL(BgL_methodz00_717))
{ /* ./Llib/object.scm 845 */
return BgL_methodz00_717;}  else 
{ /* ./Llib/object.scm 847 */
obj_t BgL_newzd2superzd2_718;
{ /* ./Llib/object.scm 847 */
obj_t BgL_vectorz00_1880;int BgL_kz00_1881;
if(
VECTORP(BgL_superz00_712))
{ /* ./Llib/object.scm 847 */
BgL_vectorz00_1880 = BgL_superz00_712; }  else 
{ /* ./Llib/object.scm 847 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7856z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_712, BGl_string7762z00zz__objectz00, 
BINT(((long)39240))); 
exit( -1 );} 
BgL_kz00_1881 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 847 */
bool_t BgL_test2430z00_1882;
{ /* ./Llib/object.scm 847 */
int BgL_arg2435z00_1883;
BgL_arg2435z00_1883 = 
VECTOR_LENGTH(BgL_vectorz00_1880); 
BgL_test2430z00_1882 = 
BOUND_CHECK(BgL_kz00_1881, BgL_arg2435z00_1883); } 
if(BgL_test2430z00_1882)
{ /* ./Llib/object.scm 847 */
BgL_newzd2superzd2_718 = 
VECTOR_REF(BgL_vectorz00_1880,BgL_kz00_1881); }  else 
{ /* ./Llib/object.scm 847 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1881), "./Ieee/vector.scm", ((long)5865)); 
BgL_newzd2superzd2_718 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)39240))); } } } 
{ 
obj_t BgL_superz00_6587;
BgL_superz00_6587 = BgL_newzd2superzd2_718; 
BgL_superz00_712 = BgL_superz00_6587; 
goto BgL_loopz00_713;} } } }  else 
{ /* ./Llib/object.scm 840 */
obj_t BgL_res2636z00_1889;
{ /* ./Llib/object.scm 840 */
obj_t BgL_aux5253z00_3255;
{ /* ./Llib/object.scm 840 */
int BgL_auxz00_6588;
BgL_auxz00_6588 = 
(int)(((long)0)); 
BgL_aux5253z00_3255 = 
PROCEDURE_REF(BgL_genericz00_104, BgL_auxz00_6588); } 
if(
PROCEDUREP(BgL_aux5253z00_3255))
{ /* ./Llib/object.scm 840 */
BgL_res2636z00_1889 = BgL_aux5253z00_3255; }  else 
{ /* ./Llib/object.scm 840 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7856z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux5253z00_3255, BGl_string7762z00zz__objectz00, 
BINT(((long)38995))); 
exit( -1 );} } 
return BgL_res2636z00_1889;} } } } 
}



/* _find-super-class-method */
obj_t BGl__findzd2superzd2classzd2methodzd2zz__objectz00(obj_t BgL_envz00_2848, obj_t BgL_objz00_2849, obj_t BgL_genericz00_2850, obj_t BgL_classz00_2851)
{ AN_OBJECT;
{ /* ./Llib/object.scm 837 */
{ /* ./Llib/object.scm 838 */
obj_t BgL_auxz00_6605;BgL_objectz00_bglt BgL_auxz00_6596;
if(
PROCEDUREP(BgL_genericz00_2850))
{ /* ./Llib/object.scm 838 */
BgL_auxz00_6605 = BgL_genericz00_2850
; }  else 
{ /* ./Llib/object.scm 838 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7857z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_2850, BGl_string7762z00zz__objectz00, 
BINT(((long)38921))); 
exit( -1 );} 
{ /* ./Llib/object.scm 838 */
bool_t BgL_testz00_6597;
{ /* ./Llib/object.scm 838 */
bool_t BgL_res8057z00_3866;
{ /* ./Llib/object.scm 838 */
obj_t BgL_symbol2772z00_3864;
BgL_symbol2772z00_3864 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 838 */

PUSH_TRACE(BgL_symbol2772z00_3864); BUNSPEC; 
{ /* ./Llib/object.scm 838 */
bool_t BgL_aux2771z00_3865;
BgL_aux2771z00_3865 = 
BGL_OBJECTP(BgL_objz00_2849); 
POP_TRACE(); 
BgL_res8057z00_3866 = BgL_aux2771z00_3865; } } } 
BgL_testz00_6597 = BgL_res8057z00_3866; } 
if(BgL_testz00_6597)
{ /* ./Llib/object.scm 838 */
BgL_auxz00_6596 = 
(BgL_objectz00_bglt)(BgL_objz00_2849)
; }  else 
{ /* ./Llib/object.scm 838 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7857z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2849, BGl_string7762z00zz__objectz00, 
BINT(((long)38921))); 
exit( -1 );} } 
return 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(BgL_auxz00_6596, BgL_auxz00_6605, BgL_classz00_2851);} } 
}



/* find-method-from */
BGL_EXPORTED_DEF obj_t BGl_findzd2methodzd2fromz00zz__objectz00(BgL_objectz00_bglt BgL_objz00_106, obj_t BgL_genericz00_107, obj_t BgL_classz00_108)
{ AN_OBJECT;
{ /* ./Llib/object.scm 853 */
{ /* ./Llib/object.scm 854 */
obj_t BgL_symbol2836z00_2686;
BgL_symbol2836z00_2686 = BGl_symbol7858z00zz__objectz00; 
{ /* ./Llib/object.scm 854 */

PUSH_TRACE(BgL_symbol2836z00_2686); BUNSPEC; 
{ /* ./Llib/object.scm 854 */
obj_t BgL_aux2835z00_2687;
{ 
obj_t BgL_classz00_720;
BgL_classz00_720 = BgL_classz00_108; 
BgL_loopz00_721:
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_720))
{ /* ./Llib/object.scm 857 */
long BgL_objzd2superzd2classzd2numzd2_723;
{ /* ./Llib/object.scm 857 */
long BgL_res2637z00_1893;
{ /* ./Llib/object.scm 857 */
obj_t BgL_vectorz00_1891;int BgL_kz00_1892;
if(
VECTORP(BgL_classz00_720))
{ /* ./Llib/object.scm 857 */
BgL_vectorz00_1891 = BgL_classz00_720; }  else 
{ /* ./Llib/object.scm 857 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7858z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_720, BGl_string7762z00zz__objectz00, 
BINT(((long)39669))); 
exit( -1 );} 
BgL_kz00_1892 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 857 */
obj_t BgL_auxz00_6621;
{ /* ./Llib/object.scm 857 */
obj_t BgL_aux5314z00_3265;
BgL_aux5314z00_3265 = 
VECTOR_REF(BgL_vectorz00_1891,BgL_kz00_1892); 
if(
INTEGERP(BgL_aux5314z00_3265))
{ /* ./Llib/object.scm 857 */
BgL_auxz00_6621 = BgL_aux5314z00_3265
; }  else 
{ /* ./Llib/object.scm 857 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7858z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux5314z00_3265, BGl_string7762z00zz__objectz00, 
BINT(((long)39669))); 
exit( -1 );} } 
BgL_res2637z00_1893 = 
(long)CINT(BgL_auxz00_6621); } } 
BgL_objzd2superzd2classzd2numzd2_723 = BgL_res2637z00_1893; } 
{ /* ./Llib/object.scm 858 */
obj_t BgL_methodz00_724;
{ /* ./Llib/object.scm 859 */
obj_t BgL_arg1581z00_726;
{ /* ./Llib/object.scm 859 */
int BgL_auxz00_6629;
BgL_auxz00_6629 = 
(int)(((long)1)); 
BgL_arg1581z00_726 = 
PROCEDURE_REF(BgL_genericz00_107, BgL_auxz00_6629); } 
{ /* ./Llib/object.scm 858 */
obj_t BgL_arrayz00_1896;int BgL_offsetz00_1897;
if(
VECTORP(BgL_arg1581z00_726))
{ /* ./Llib/object.scm 859 */
BgL_arrayz00_1896 = BgL_arg1581z00_726; }  else 
{ /* ./Llib/object.scm 859 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7858z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1581z00_726, BGl_string7762z00zz__objectz00, 
BINT(((long)39774))); 
exit( -1 );} 
BgL_offsetz00_1897 = 
(int)(BgL_objzd2superzd2classzd2numzd2_723); 
{ /* ./Llib/object.scm 858 */
long BgL_offsetz00_1898;
{ /* ./Llib/object.scm 858 */
long BgL_auxz00_6638;
BgL_auxz00_6638 = 
(long)(BgL_offsetz00_1897); 
BgL_offsetz00_1898 = 
(BgL_auxz00_6638-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 858 */
long BgL_modz00_1899;
{ /* ./Llib/object.scm 858 */
int BgL_arg1289z00_1900;
BgL_arg1289z00_1900 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 858 */
long BgL_auxz00_6642;
BgL_auxz00_6642 = 
(long)(BgL_arg1289z00_1900); 
BgL_modz00_1899 = 
(BgL_offsetz00_1898/BgL_auxz00_6642); } } 
{ /* ./Llib/object.scm 858 */
long BgL_restz00_1901;
{ /* ./Llib/object.scm 858 */
int BgL_arg1285z00_1902;
BgL_arg1285z00_1902 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 858 */
long BgL_auxz00_6646;
BgL_auxz00_6646 = 
(long)(BgL_arg1285z00_1902); 
BgL_restz00_1901 = 
(BgL_offsetz00_1898%BgL_auxz00_6646); } } 
{ /* ./Llib/object.scm 858 */

{ /* ./Llib/object.scm 858 */
obj_t BgL_bucketz00_1903;
{ 
int BgL_auxz00_6649;
BgL_auxz00_6649 = 
(int)(BgL_modz00_1899); 
BgL_bucketz00_1903 = 
VECTOR_REF(BgL_arrayz00_1896,BgL_auxz00_6649); } 
{ /* ./Llib/object.scm 858 */
obj_t BgL_vectorz00_1914;int BgL_kz00_1915;
if(
VECTORP(BgL_bucketz00_1903))
{ /* ./Llib/object.scm 858 */
BgL_vectorz00_1914 = BgL_bucketz00_1903; }  else 
{ /* ./Llib/object.scm 858 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7858z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_1903, BGl_string7762z00zz__objectz00, 
BINT(((long)39709))); 
exit( -1 );} 
BgL_kz00_1915 = 
(int)(BgL_restz00_1901); 
BgL_methodz00_724 = 
VECTOR_REF(BgL_vectorz00_1914,BgL_kz00_1915); } } } } } } } } 
if(
CBOOL(BgL_methodz00_724))
{ /* ./Llib/object.scm 861 */
BgL_aux2835z00_2687 = 
MAKE_PAIR(BgL_classz00_720, BgL_methodz00_724); }  else 
{ /* ./Llib/object.scm 863 */
obj_t BgL_arg1577z00_725;
{ /* ./Llib/object.scm 863 */
obj_t BgL_vectorz00_1917;int BgL_kz00_1918;
if(
VECTORP(BgL_classz00_720))
{ /* ./Llib/object.scm 863 */
BgL_vectorz00_1917 = BgL_classz00_720; }  else 
{ /* ./Llib/object.scm 863 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7858z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_720, BGl_string7762z00zz__objectz00, 
BINT(((long)39860))); 
exit( -1 );} 
BgL_kz00_1918 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 863 */
bool_t BgL_test2430z00_1919;
{ /* ./Llib/object.scm 863 */
int BgL_arg2435z00_1920;
BgL_arg2435z00_1920 = 
VECTOR_LENGTH(BgL_vectorz00_1917); 
BgL_test2430z00_1919 = 
BOUND_CHECK(BgL_kz00_1918, BgL_arg2435z00_1920); } 
if(BgL_test2430z00_1919)
{ /* ./Llib/object.scm 863 */
BgL_arg1577z00_725 = 
VECTOR_REF(BgL_vectorz00_1917,BgL_kz00_1918); }  else 
{ /* ./Llib/object.scm 863 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1918), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1577z00_725 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)39860))); } } } 
{ 
obj_t BgL_classz00_6676;
BgL_classz00_6676 = BgL_arg1577z00_725; 
BgL_classz00_720 = BgL_classz00_6676; 
goto BgL_loopz00_721;} } } }  else 
{ /* ./Llib/object.scm 855 */
BgL_aux2835z00_2687 = 
MAKE_PAIR(BFALSE, BFALSE); } } 
POP_TRACE(); 
return BgL_aux2835z00_2687;} } } } 
}



/* _find-method-from */
obj_t BGl__findzd2methodzd2fromz00zz__objectz00(obj_t BgL_envz00_2852, obj_t BgL_objz00_2853, obj_t BgL_genericz00_2854, obj_t BgL_classz00_2855)
{ AN_OBJECT;
{ /* ./Llib/object.scm 853 */
{ /* ./Llib/object.scm 854 */
obj_t BgL_auxz00_6688;BgL_objectz00_bglt BgL_auxz00_6679;
if(
PROCEDUREP(BgL_genericz00_2854))
{ /* ./Llib/object.scm 854 */
BgL_auxz00_6688 = BgL_genericz00_2854
; }  else 
{ /* ./Llib/object.scm 854 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7859z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_genericz00_2854, BGl_string7762z00zz__objectz00, 
BINT(((long)39566))); 
exit( -1 );} 
{ /* ./Llib/object.scm 854 */
bool_t BgL_testz00_6680;
{ /* ./Llib/object.scm 854 */
bool_t BgL_res8058z00_3870;
{ /* ./Llib/object.scm 854 */
obj_t BgL_symbol2772z00_3868;
BgL_symbol2772z00_3868 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 854 */

PUSH_TRACE(BgL_symbol2772z00_3868); BUNSPEC; 
{ /* ./Llib/object.scm 854 */
bool_t BgL_aux2771z00_3869;
BgL_aux2771z00_3869 = 
BGL_OBJECTP(BgL_objz00_2853); 
POP_TRACE(); 
BgL_res8058z00_3870 = BgL_aux2771z00_3869; } } } 
BgL_testz00_6680 = BgL_res8058z00_3870; } 
if(BgL_testz00_6680)
{ /* ./Llib/object.scm 854 */
BgL_auxz00_6679 = 
(BgL_objectz00_bglt)(BgL_objz00_2853)
; }  else 
{ /* ./Llib/object.scm 854 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7859z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2853, BGl_string7762z00zz__objectz00, 
BINT(((long)39566))); 
exit( -1 );} } 
return 
BGl_findzd2methodzd2fromz00zz__objectz00(BgL_auxz00_6679, BgL_auxz00_6688, BgL_classz00_2855);} } 
}



/* is-a? */
BGL_EXPORTED_DEF bool_t BGl_iszd2azf3z21zz__objectz00(obj_t BgL_objz00_109, obj_t BgL_classz00_110)
{ AN_OBJECT;
{ /* ./Llib/object.scm 870 */
{ /* ./Llib/object.scm 871 */
bool_t BgL_test1587z00_727;
BgL_test1587z00_727 = 
BGL_OBJECTP(BgL_objz00_109); 
if(BgL_test1587z00_727)
{ /* ./Llib/object.scm 873 */
obj_t BgL_ominz00_728;obj_t BgL_cminz00_729;obj_t BgL_cmaxz00_730;
{ /* ./Llib/object.scm 873 */
obj_t BgL_arg1593z00_732;
{ /* ./Llib/object.scm 873 */
BgL_objectz00_bglt BgL_objectz00_1926;
{ /* ./Llib/object.scm 873 */
bool_t BgL_testz00_6697;
{ /* ./Llib/object.scm 873 */
bool_t BgL_res8059z00_3874;
{ /* ./Llib/object.scm 873 */
obj_t BgL_symbol2772z00_3872;
BgL_symbol2772z00_3872 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 873 */

PUSH_TRACE(BgL_symbol2772z00_3872); BUNSPEC; 
{ /* ./Llib/object.scm 873 */
bool_t BgL_aux2771z00_3873;
BgL_aux2771z00_3873 = 
BGL_OBJECTP(BgL_objz00_109); 
POP_TRACE(); 
BgL_res8059z00_3874 = BgL_aux2771z00_3873; } } } 
BgL_testz00_6697 = BgL_res8059z00_3874; } 
if(BgL_testz00_6697)
{ /* ./Llib/object.scm 873 */
BgL_objectz00_1926 = 
(BgL_objectz00_bglt)(BgL_objz00_109); }  else 
{ /* ./Llib/object.scm 873 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7860z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_109, BGl_string7762z00zz__objectz00, 
BINT(((long)40419))); 
exit( -1 );} } 
{ /* ./Llib/object.scm 873 */
long BgL_arg1268z00_1927;
{ /* ./Llib/object.scm 873 */
long BgL_arg1273z00_1928;
BgL_arg1273z00_1928 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1926); 
BgL_arg1268z00_1927 = 
(BgL_arg1273z00_1928-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 873 */
obj_t BgL_vectorz00_1932;int BgL_kz00_1933;
{ /* ./Llib/object.scm 873 */
obj_t BgL_aux5408z00_3279;
BgL_aux5408z00_3279 = BGl_za2classesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux5408z00_3279))
{ /* ./Llib/object.scm 873 */
BgL_vectorz00_1932 = BgL_aux5408z00_3279; }  else 
{ /* ./Llib/object.scm 873 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7860z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux5408z00_3279, BGl_string7762z00zz__objectz00, 
BINT(((long)40403))); 
exit( -1 );} } 
BgL_kz00_1933 = 
(int)(BgL_arg1268z00_1927); 
BgL_arg1593z00_732 = 
VECTOR_REF(BgL_vectorz00_1932,BgL_kz00_1933); } } } 
{ /* ./Llib/object.scm 873 */
obj_t BgL_vectorz00_1935;int BgL_kz00_1936;
if(
VECTORP(BgL_arg1593z00_732))
{ /* ./Llib/object.scm 873 */
BgL_vectorz00_1935 = BgL_arg1593z00_732; }  else 
{ /* ./Llib/object.scm 873 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7860z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1593z00_732, BGl_string7762z00zz__objectz00, 
BINT(((long)40388))); 
exit( -1 );} 
BgL_kz00_1936 = 
(int)(((long)2)); 
BgL_ominz00_728 = 
VECTOR_REF(BgL_vectorz00_1935,BgL_kz00_1936); } } 
{ /* ./Llib/object.scm 874 */
obj_t BgL_vectorz00_1938;int BgL_kz00_1939;
if(
VECTORP(BgL_classz00_110))
{ /* ./Llib/object.scm 874 */
BgL_vectorz00_1938 = BgL_classz00_110; }  else 
{ /* ./Llib/object.scm 874 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7860z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_110, BGl_string7762z00zz__objectz00, 
BINT(((long)40436))); 
exit( -1 );} 
BgL_kz00_1939 = 
(int)(((long)2)); 
BgL_cminz00_729 = 
VECTOR_REF(BgL_vectorz00_1938,BgL_kz00_1939); } 
{ /* ./Llib/object.scm 875 */
obj_t BgL_vectorz00_1941;int BgL_kz00_1942;
if(
VECTORP(BgL_classz00_110))
{ /* ./Llib/object.scm 875 */
BgL_vectorz00_1941 = BgL_classz00_110; }  else 
{ /* ./Llib/object.scm 875 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7860z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_110, BGl_string7762z00zz__objectz00, 
BINT(((long)40471))); 
exit( -1 );} 
BgL_kz00_1942 = 
(int)(((long)5)); 
BgL_cmaxz00_730 = 
VECTOR_REF(BgL_vectorz00_1941,BgL_kz00_1942); } 
{ /* ./Llib/object.scm 876 */
bool_t BgL_test1588z00_731;
{ /* ./Llib/object.scm 876 */
long BgL_n1z00_1943;long BgL_n2z00_1944;
{ /* ./Llib/object.scm 876 */
obj_t BgL_auxz00_6735;
if(
INTEGERP(BgL_ominz00_728))
{ /* ./Llib/object.scm 876 */
BgL_auxz00_6735 = BgL_ominz00_728
; }  else 
{ /* ./Llib/object.scm 876 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7860z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_ominz00_728, BGl_string7762z00zz__objectz00, 
BINT(((long)40511))); 
exit( -1 );} 
BgL_n1z00_1943 = 
(long)CINT(BgL_auxz00_6735); } 
{ /* ./Llib/object.scm 876 */
obj_t BgL_auxz00_6742;
if(
INTEGERP(BgL_cminz00_729))
{ /* ./Llib/object.scm 876 */
BgL_auxz00_6742 = BgL_cminz00_729
; }  else 
{ /* ./Llib/object.scm 876 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7860z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_cminz00_729, BGl_string7762z00zz__objectz00, 
BINT(((long)40516))); 
exit( -1 );} 
BgL_n2z00_1944 = 
(long)CINT(BgL_auxz00_6742); } 
BgL_test1588z00_731 = 
(BgL_n1z00_1943>=BgL_n2z00_1944); } 
if(BgL_test1588z00_731)
{ /* ./Llib/object.scm 877 */
long BgL_n1z00_1945;long BgL_n2z00_1946;
{ /* ./Llib/object.scm 877 */
obj_t BgL_auxz00_6751;
if(
INTEGERP(BgL_ominz00_728))
{ /* ./Llib/object.scm 877 */
BgL_auxz00_6751 = BgL_ominz00_728
; }  else 
{ /* ./Llib/object.scm 877 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7860z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_ominz00_728, BGl_string7762z00zz__objectz00, 
BINT(((long)40535))); 
exit( -1 );} 
BgL_n1z00_1945 = 
(long)CINT(BgL_auxz00_6751); } 
{ /* ./Llib/object.scm 877 */
obj_t BgL_auxz00_6758;
if(
INTEGERP(BgL_cmaxz00_730))
{ /* ./Llib/object.scm 877 */
BgL_auxz00_6758 = BgL_cmaxz00_730
; }  else 
{ /* ./Llib/object.scm 877 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7860z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_cmaxz00_730, BGl_string7762z00zz__objectz00, 
BINT(((long)40540))); 
exit( -1 );} 
BgL_n2z00_1946 = 
(long)CINT(BgL_auxz00_6758); } 
return 
(BgL_n1z00_1945<=BgL_n2z00_1946);}  else 
{ /* ./Llib/object.scm 876 */
return ((bool_t)0);} } }  else 
{ /* ./Llib/object.scm 871 */
return ((bool_t)0);} } } 
}



/* _is-a? */
obj_t BGl__iszd2azf3z21zz__objectz00(obj_t BgL_envz00_2856, obj_t BgL_objz00_2857, obj_t BgL_classz00_2858)
{ AN_OBJECT;
{ /* ./Llib/object.scm 870 */
{ /* ./Llib/object.scm 871 */
bool_t BgL_auxz00_6766;
BgL_auxz00_6766 = 
BGl_iszd2azf3z21zz__objectz00(BgL_objz00_2857, BgL_classz00_2858); 
return 
BBOOL(BgL_auxz00_6766);} } 
}



/* class-hierarchy-numbering! */
bool_t BGl_classzd2hierarchyzd2numberingz12z12zz__objectz00(obj_t BgL_classz00_111, obj_t BgL_superz00_112)
{ AN_OBJECT;
{ /* ./Llib/object.scm 887 */
{ /* ./Llib/object.scm 888 */
obj_t BgL_symbol2840z00_2688;
BgL_symbol2840z00_2688 = BGl_symbol7861z00zz__objectz00; 
{ /* ./Llib/object.scm 888 */

PUSH_TRACE(BgL_symbol2840z00_2688); BUNSPEC; 
{ /* ./Llib/object.scm 888 */
bool_t BgL_aux2839z00_2689;
{ /* ./Llib/object.scm 888 */
obj_t BgL_superzd2minzd2_733;
{ /* ./Llib/object.scm 888 */
obj_t BgL_vectorz00_1948;int BgL_kz00_1949;
if(
VECTORP(BgL_superz00_112))
{ /* ./Llib/object.scm 888 */
BgL_vectorz00_1948 = BgL_superz00_112; }  else 
{ /* ./Llib/object.scm 888 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_112, BGl_string7762z00zz__objectz00, 
BINT(((long)41044))); 
exit( -1 );} 
BgL_kz00_1949 = 
(int)(((long)2)); 
BgL_superzd2minzd2_733 = 
VECTOR_REF(BgL_vectorz00_1948,BgL_kz00_1949); } 
{ /* ./Llib/object.scm 888 */
obj_t BgL_superzd2maxzd2_734;
{ /* ./Llib/object.scm 889 */
obj_t BgL_vectorz00_1951;int BgL_kz00_1952;
if(
VECTORP(BgL_superz00_112))
{ /* ./Llib/object.scm 889 */
BgL_vectorz00_1951 = BgL_superz00_112; }  else 
{ /* ./Llib/object.scm 889 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_112, BGl_string7762z00zz__objectz00, 
BINT(((long)41081))); 
exit( -1 );} 
BgL_kz00_1952 = 
(int)(((long)5)); 
BgL_superzd2maxzd2_734 = 
VECTOR_REF(BgL_vectorz00_1951,BgL_kz00_1952); } 
{ /* ./Llib/object.scm 889 */
obj_t BgL_subclassesz00_735;
{ /* ./Llib/object.scm 890 */
obj_t BgL_vectorz00_1954;int BgL_kz00_1955;
if(
VECTORP(BgL_superz00_112))
{ /* ./Llib/object.scm 890 */
BgL_vectorz00_1954 = BgL_superz00_112; }  else 
{ /* ./Llib/object.scm 890 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_112, BGl_string7762z00zz__objectz00, 
BINT(((long)41119))); 
exit( -1 );} 
BgL_kz00_1955 = 
(int)(((long)4)); 
{ /* ./Llib/object.scm 890 */
bool_t BgL_test2430z00_1956;
{ /* ./Llib/object.scm 890 */
int BgL_arg2435z00_1957;
BgL_arg2435z00_1957 = 
VECTOR_LENGTH(BgL_vectorz00_1954); 
BgL_test2430z00_1956 = 
BOUND_CHECK(BgL_kz00_1955, BgL_arg2435z00_1957); } 
if(BgL_test2430z00_1956)
{ /* ./Llib/object.scm 890 */
BgL_subclassesz00_735 = 
VECTOR_REF(BgL_vectorz00_1954,BgL_kz00_1955); }  else 
{ /* ./Llib/object.scm 890 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1955), "./Ieee/vector.scm", ((long)5865)); 
BgL_subclassesz00_735 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)41119))); } } } 
{ /* ./Llib/object.scm 890 */
long BgL_newzd2numzd2_736;
{ /* ./Llib/object.scm 891 */
bool_t BgL_test1604z00_738;
{ /* ./Llib/object.scm 891 */
obj_t BgL_arg1619z00_744;
{ /* ./Llib/object.scm 891 */
obj_t BgL_pairz00_1962;
if(
PAIRP(BgL_subclassesz00_735))
{ /* ./Llib/object.scm 891 */
BgL_pairz00_1962 = BgL_subclassesz00_735; }  else 
{ /* ./Llib/object.scm 891 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_subclassesz00_735, BGl_string7762z00zz__objectz00, 
BINT(((long)41182))); 
exit( -1 );} 
BgL_arg1619z00_744 = 
CDR(BgL_pairz00_1962); } 
BgL_test1604z00_738 = 
NULLP(BgL_arg1619z00_744); } 
if(BgL_test1604z00_738)
{ /* ./Llib/object.scm 892 */
obj_t BgL_arg1607z00_740;
{ /* ./Llib/object.scm 892 */
obj_t BgL_vectorz00_1965;int BgL_kz00_1966;
if(
VECTORP(BgL_superz00_112))
{ /* ./Llib/object.scm 892 */
BgL_vectorz00_1965 = BgL_superz00_112; }  else 
{ /* ./Llib/object.scm 892 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_112, BGl_string7762z00zz__objectz00, 
BINT(((long)41202))); 
exit( -1 );} 
BgL_kz00_1966 = 
(int)(((long)2)); 
BgL_arg1607z00_740 = 
VECTOR_REF(BgL_vectorz00_1965,BgL_kz00_1966); } 
{ /* ./Llib/object.scm 892 */
long BgL_za72za7_1968;
{ /* ./Llib/object.scm 892 */
obj_t BgL_auxz00_6813;
if(
INTEGERP(BgL_arg1607z00_740))
{ /* ./Llib/object.scm 892 */
BgL_auxz00_6813 = BgL_arg1607z00_740
; }  else 
{ /* ./Llib/object.scm 892 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_arg1607z00_740, BGl_string7762z00zz__objectz00, 
BINT(((long)41222))); 
exit( -1 );} 
BgL_za72za7_1968 = 
(long)CINT(BgL_auxz00_6813); } 
BgL_newzd2numzd2_736 = 
(((long)1)+BgL_za72za7_1968); } }  else 
{ /* ./Llib/object.scm 893 */
obj_t BgL_arg1612z00_742;
{ /* ./Llib/object.scm 893 */
obj_t BgL_arg1615z00_743;
{ /* ./Llib/object.scm 893 */
obj_t BgL_pairz00_1969;
if(
PAIRP(BgL_subclassesz00_735))
{ /* ./Llib/object.scm 893 */
BgL_pairz00_1969 = BgL_subclassesz00_735; }  else 
{ /* ./Llib/object.scm 893 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_subclassesz00_735, BGl_string7762z00zz__objectz00, 
BINT(((long)41271))); 
exit( -1 );} 
{ /* ./Llib/object.scm 893 */
obj_t BgL_arg2398z00_1970;
BgL_arg2398z00_1970 = 
CDR(BgL_pairz00_1969); 
{ /* ./Llib/object.scm 893 */
obj_t BgL_pairz00_1972;
if(
PAIRP(BgL_arg2398z00_1970))
{ /* ./Llib/object.scm 893 */
BgL_pairz00_1972 = BgL_arg2398z00_1970; }  else 
{ /* ./Llib/object.scm 893 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_arg2398z00_1970, BGl_string7762z00zz__objectz00, 
BINT(((long)41256))); 
exit( -1 );} 
BgL_arg1615z00_743 = 
CAR(BgL_pairz00_1972); } } } 
{ /* ./Llib/object.scm 893 */
obj_t BgL_vectorz00_1974;int BgL_kz00_1975;
if(
VECTORP(BgL_arg1615z00_743))
{ /* ./Llib/object.scm 893 */
BgL_vectorz00_1974 = BgL_arg1615z00_743; }  else 
{ /* ./Llib/object.scm 893 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1615z00_743, BGl_string7762z00zz__objectz00, 
BINT(((long)41241))); 
exit( -1 );} 
BgL_kz00_1975 = 
(int)(((long)5)); 
BgL_arg1612z00_742 = 
VECTOR_REF(BgL_vectorz00_1974,BgL_kz00_1975); } } 
{ /* ./Llib/object.scm 893 */
long BgL_za72za7_1977;
{ /* ./Llib/object.scm 893 */
obj_t BgL_auxz00_6840;
if(
INTEGERP(BgL_arg1612z00_742))
{ /* ./Llib/object.scm 893 */
BgL_auxz00_6840 = BgL_arg1612z00_742
; }  else 
{ /* ./Llib/object.scm 893 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_arg1612z00_742, BGl_string7762z00zz__objectz00, 
BINT(((long)41273))); 
exit( -1 );} 
BgL_za72za7_1977 = 
(long)CINT(BgL_auxz00_6840); } 
BgL_newzd2numzd2_736 = 
(((long)1)+BgL_za72za7_1977); } } } 
{ /* ./Llib/object.scm 891 */

{ 
obj_t BgL_auxz00_6850;int BgL_auxz00_6848;
BgL_auxz00_6850 = 
BINT(BgL_newzd2numzd2_736); 
BgL_auxz00_6848 = 
(int)(((long)2)); 
VECTOR_SET(BgL_classz00_111,BgL_auxz00_6848,BgL_auxz00_6850); } 
{ 
obj_t BgL_auxz00_6855;int BgL_auxz00_6853;
BgL_auxz00_6855 = 
BINT(BgL_newzd2numzd2_736); 
BgL_auxz00_6853 = 
(int)(((long)5)); 
VECTOR_SET(BgL_classz00_111,BgL_auxz00_6853,BgL_auxz00_6855); } 
{ /* ./Llib/object.scm 897 */
bool_t BgL_test1601z00_737;
{ /* ./Llib/object.scm 897 */
long BgL_n2z00_1989;
{ /* ./Llib/object.scm 897 */
obj_t BgL_auxz00_6858;
if(
INTEGERP(BgL_superzd2maxzd2_734))
{ /* ./Llib/object.scm 897 */
BgL_auxz00_6858 = BgL_superzd2maxzd2_734
; }  else 
{ /* ./Llib/object.scm 897 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7861z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_superzd2maxzd2_734, BGl_string7762z00zz__objectz00, 
BINT(((long)41423))); 
exit( -1 );} 
BgL_n2z00_1989 = 
(long)CINT(BgL_auxz00_6858); } 
BgL_test1601z00_737 = 
(BgL_newzd2numzd2_736>BgL_n2z00_1989); } 
if(BgL_test1601z00_737)
{ /* ./Llib/object.scm 897 */
BgL_aux2839z00_2689 = 
BGl_classzd2hierarchyzd2upzd2renumberz12zc0zz__objectz00(BgL_superz00_112); }  else 
{ /* ./Llib/object.scm 897 */
BgL_aux2839z00_2689 = ((bool_t)0); } } } } } } } 
POP_TRACE(); 
return BgL_aux2839z00_2689;} } } } 
}



/* class-hierarchy-up-renumber! */
bool_t BGl_classzd2hierarchyzd2upzd2renumberz12zc0zz__objectz00(obj_t BgL_classz00_113)
{ AN_OBJECT;
{ /* ./Llib/object.scm 904 */
{ /* ./Llib/object.scm 906 */
obj_t BgL_symbol2844z00_2690;
BgL_symbol2844z00_2690 = BGl_symbol7862z00zz__objectz00; 
{ /* ./Llib/object.scm 906 */

PUSH_TRACE(BgL_symbol2844z00_2690); BUNSPEC; 
{ /* ./Llib/object.scm 906 */
bool_t BgL_aux2843z00_2691;
{ /* ./Llib/object.scm 906 */
long BgL_newzd2numzd2_745;obj_t BgL_superz00_746;
{ /* ./Llib/object.scm 906 */
obj_t BgL_arg1680z00_773;
{ /* ./Llib/object.scm 906 */
obj_t BgL_vectorz00_1991;int BgL_kz00_1992;
if(
VECTORP(BgL_classz00_113))
{ /* ./Llib/object.scm 906 */
BgL_vectorz00_1991 = BgL_classz00_113; }  else 
{ /* ./Llib/object.scm 906 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_113, BGl_string7762z00zz__objectz00, 
BINT(((long)41864))); 
exit( -1 );} 
BgL_kz00_1992 = 
(int)(((long)5)); 
BgL_arg1680z00_773 = 
VECTOR_REF(BgL_vectorz00_1991,BgL_kz00_1992); } 
{ /* ./Llib/object.scm 906 */
long BgL_za72za7_1994;
{ /* ./Llib/object.scm 906 */
obj_t BgL_auxz00_6877;
if(
INTEGERP(BgL_arg1680z00_773))
{ /* ./Llib/object.scm 906 */
BgL_auxz00_6877 = BgL_arg1680z00_773
; }  else 
{ /* ./Llib/object.scm 906 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_arg1680z00_773, BGl_string7762z00zz__objectz00, 
BINT(((long)41884))); 
exit( -1 );} 
BgL_za72za7_1994 = 
(long)CINT(BgL_auxz00_6877); } 
BgL_newzd2numzd2_745 = 
(((long)2)*BgL_za72za7_1994); } } 
{ /* ./Llib/object.scm 907 */
obj_t BgL_vectorz00_1996;int BgL_kz00_1997;
if(
VECTORP(BgL_classz00_113))
{ /* ./Llib/object.scm 907 */
BgL_vectorz00_1996 = BgL_classz00_113; }  else 
{ /* ./Llib/object.scm 907 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_113, BGl_string7762z00zz__objectz00, 
BINT(((long)41897))); 
exit( -1 );} 
BgL_kz00_1997 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 907 */
bool_t BgL_test2430z00_1998;
{ /* ./Llib/object.scm 907 */
int BgL_arg2435z00_1999;
BgL_arg2435z00_1999 = 
VECTOR_LENGTH(BgL_vectorz00_1996); 
BgL_test2430z00_1998 = 
BOUND_CHECK(BgL_kz00_1997, BgL_arg2435z00_1999); } 
if(BgL_test2430z00_1998)
{ /* ./Llib/object.scm 907 */
BgL_superz00_746 = 
VECTOR_REF(BgL_vectorz00_1996,BgL_kz00_1997); }  else 
{ /* ./Llib/object.scm 907 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_1997), "./Ieee/vector.scm", ((long)5865)); 
BgL_superz00_746 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)41897))); } } } BGl_list7863z00zz__objectz00; 
{ /* ./Llib/object.scm 912 */
obj_t BgL_vectorz00_2006;int BgL_kz00_2007;obj_t BgL_objz00_2008;
if(
VECTORP(BgL_classz00_113))
{ /* ./Llib/object.scm 912 */
BgL_vectorz00_2006 = BgL_classz00_113; }  else 
{ /* ./Llib/object.scm 912 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_113, BGl_string7762z00zz__objectz00, 
BINT(((long)42087))); 
exit( -1 );} 
BgL_kz00_2007 = 
(int)(((long)5)); 
BgL_objz00_2008 = 
BINT(BgL_newzd2numzd2_745); 
VECTOR_SET(BgL_vectorz00_2006,BgL_kz00_2007,BgL_objz00_2008); } BGl_list7876z00zz__objectz00; 
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_746))
{ 
obj_t BgL_sistersz00_748;obj_t BgL_oldzd2sisterszd2_749;
{ /* ./Llib/object.scm 921 */
obj_t BgL_arg1628z00_751;
{ /* ./Llib/object.scm 921 */
obj_t BgL_vectorz00_2010;int BgL_kz00_2011;
if(
VECTORP(BgL_superz00_746))
{ /* ./Llib/object.scm 921 */
BgL_vectorz00_2010 = BgL_superz00_746; }  else 
{ /* ./Llib/object.scm 921 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_746, BGl_string7762z00zz__objectz00, 
BINT(((long)42425))); 
exit( -1 );} 
BgL_kz00_2011 = 
(int)(((long)4)); 
{ /* ./Llib/object.scm 921 */
bool_t BgL_test2430z00_2012;
{ /* ./Llib/object.scm 921 */
int BgL_arg2435z00_2013;
BgL_arg2435z00_2013 = 
VECTOR_LENGTH(BgL_vectorz00_2010); 
BgL_test2430z00_2012 = 
BOUND_CHECK(BgL_kz00_2011, BgL_arg2435z00_2013); } 
if(BgL_test2430z00_2012)
{ /* ./Llib/object.scm 921 */
BgL_arg1628z00_751 = 
VECTOR_REF(BgL_vectorz00_2010,BgL_kz00_2011); }  else 
{ /* ./Llib/object.scm 921 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_2011), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1628z00_751 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)42425))); } } } 
BgL_sistersz00_748 = BgL_arg1628z00_751; 
BgL_oldzd2sisterszd2_749 = BNIL; 
BgL_loopz00_750:
{ /* ./Llib/object.scm 925 */
bool_t BgL_test1632z00_753;
if(
NULLP(BgL_sistersz00_748))
{ /* ./Llib/object.scm 925 */
BgL_test1632z00_753 = ((bool_t)1); }  else 
{ /* ./Llib/object.scm 925 */
obj_t BgL_arg1673z00_771;
{ /* ./Llib/object.scm 925 */
obj_t BgL_pairz00_2019;
if(
PAIRP(BgL_sistersz00_748))
{ /* ./Llib/object.scm 925 */
BgL_pairz00_2019 = BgL_sistersz00_748; }  else 
{ /* ./Llib/object.scm 925 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_sistersz00_748, BGl_string7762z00zz__objectz00, 
BINT(((long)42574))); 
exit( -1 );} 
BgL_arg1673z00_771 = 
CAR(BgL_pairz00_2019); } 
BgL_test1632z00_753 = 
(BgL_arg1673z00_771==BgL_classz00_113); } 
if(BgL_test1632z00_753)
{ /* ./Llib/object.scm 925 */
{ 
obj_t BgL_oldzd2sisterszd2_754;long BgL_sisterzd2numzd2_755;
BgL_oldzd2sisterszd2_754 = BgL_oldzd2sisterszd2_749; 
BgL_sisterzd2numzd2_755 = 
(BgL_newzd2numzd2_745+((long)1)); 
BgL_liipz00_756:
if(
NULLP(BgL_oldzd2sisterszd2_754))
{ /* ./Llib/object.scm 933 */
bool_t BgL_test1638z00_759;
{ /* ./Llib/object.scm 933 */
obj_t BgL_arg1641z00_760;obj_t BgL_arg1642z00_761;
{ /* ./Llib/object.scm 933 */
obj_t BgL_arg1645z00_762;
{ /* ./Llib/object.scm 933 */
obj_t BgL_arg1648z00_763;
{ /* ./Llib/object.scm 933 */
obj_t BgL_vectorz00_2024;int BgL_kz00_2025;
if(
VECTORP(BgL_superz00_746))
{ /* ./Llib/object.scm 933 */
BgL_vectorz00_2024 = BgL_superz00_746; }  else 
{ /* ./Llib/object.scm 933 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_746, BGl_string7762z00zz__objectz00, 
BINT(((long)42894))); 
exit( -1 );} 
BgL_kz00_2025 = 
(int)(((long)4)); 
{ /* ./Llib/object.scm 933 */
bool_t BgL_test2430z00_2026;
{ /* ./Llib/object.scm 933 */
int BgL_arg2435z00_2027;
BgL_arg2435z00_2027 = 
VECTOR_LENGTH(BgL_vectorz00_2024); 
BgL_test2430z00_2026 = 
BOUND_CHECK(BgL_kz00_2025, BgL_arg2435z00_2027); } 
if(BgL_test2430z00_2026)
{ /* ./Llib/object.scm 933 */
BgL_arg1648z00_763 = 
VECTOR_REF(BgL_vectorz00_2024,BgL_kz00_2025); }  else 
{ /* ./Llib/object.scm 933 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_2025), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1648z00_763 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)42894))); } } } 
{ /* ./Llib/object.scm 933 */
obj_t BgL_pairz00_2032;
if(
PAIRP(BgL_arg1648z00_763))
{ /* ./Llib/object.scm 933 */
BgL_pairz00_2032 = BgL_arg1648z00_763; }  else 
{ /* ./Llib/object.scm 933 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_arg1648z00_763, BGl_string7762z00zz__objectz00, 
BINT(((long)42917))); 
exit( -1 );} 
BgL_arg1645z00_762 = 
CAR(BgL_pairz00_2032); } } 
{ /* ./Llib/object.scm 933 */
obj_t BgL_vectorz00_2034;int BgL_kz00_2035;
if(
VECTORP(BgL_arg1645z00_762))
{ /* ./Llib/object.scm 933 */
BgL_vectorz00_2034 = BgL_arg1645z00_762; }  else 
{ /* ./Llib/object.scm 933 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1645z00_762, BGl_string7762z00zz__objectz00, 
BINT(((long)42874))); 
exit( -1 );} 
BgL_kz00_2035 = 
(int)(((long)5)); 
BgL_arg1641z00_760 = 
VECTOR_REF(BgL_vectorz00_2034,BgL_kz00_2035); } } 
{ /* ./Llib/object.scm 934 */
obj_t BgL_vectorz00_2037;int BgL_kz00_2038;
if(
VECTORP(BgL_superz00_746))
{ /* ./Llib/object.scm 934 */
BgL_vectorz00_2037 = BgL_superz00_746; }  else 
{ /* ./Llib/object.scm 934 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_superz00_746, BGl_string7762z00zz__objectz00, 
BINT(((long)42926))); 
exit( -1 );} 
BgL_kz00_2038 = 
(int)(((long)5)); 
BgL_arg1642z00_761 = 
VECTOR_REF(BgL_vectorz00_2037,BgL_kz00_2038); } 
{ /* ./Llib/object.scm 933 */
long BgL_n1z00_2039;long BgL_n2z00_2040;
{ /* ./Llib/object.scm 933 */
obj_t BgL_auxz00_6969;
if(
INTEGERP(BgL_arg1641z00_760))
{ /* ./Llib/object.scm 933 */
BgL_auxz00_6969 = BgL_arg1641z00_760
; }  else 
{ /* ./Llib/object.scm 933 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_arg1641z00_760, BGl_string7762z00zz__objectz00, 
BINT(((long)42919))); 
exit( -1 );} 
BgL_n1z00_2039 = 
(long)CINT(BgL_auxz00_6969); } 
{ /* ./Llib/object.scm 934 */
obj_t BgL_auxz00_6976;
if(
INTEGERP(BgL_arg1642z00_761))
{ /* ./Llib/object.scm 934 */
BgL_auxz00_6976 = BgL_arg1642z00_761
; }  else 
{ /* ./Llib/object.scm 934 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_arg1642z00_761, BGl_string7762z00zz__objectz00, 
BINT(((long)42946))); 
exit( -1 );} 
BgL_n2z00_2040 = 
(long)CINT(BgL_auxz00_6976); } 
BgL_test1638z00_759 = 
(BgL_n1z00_2039>BgL_n2z00_2040); } } 
if(BgL_test1638z00_759)
{ /* ./Llib/object.scm 933 */
BgL_aux2843z00_2691 = 
BGl_classzd2hierarchyzd2upzd2renumberz12zc0zz__objectz00(BgL_superz00_746); }  else 
{ /* ./Llib/object.scm 933 */
BgL_aux2843z00_2691 = ((bool_t)0); } }  else 
{ /* ./Llib/object.scm 936 */
obj_t BgL_arg1653z00_764;long BgL_arg1654z00_765;
{ /* ./Llib/object.scm 936 */
obj_t BgL_pairz00_2041;
if(
PAIRP(BgL_oldzd2sisterszd2_754))
{ /* ./Llib/object.scm 936 */
BgL_pairz00_2041 = BgL_oldzd2sisterszd2_754; }  else 
{ /* ./Llib/object.scm 936 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_oldzd2sisterszd2_754, BGl_string7762z00zz__objectz00, 
BINT(((long)43018))); 
exit( -1 );} 
BgL_arg1653z00_764 = 
CDR(BgL_pairz00_2041); } 
{ /* ./Llib/object.scm 937 */
obj_t BgL_arg1658z00_766;
{ /* ./Llib/object.scm 937 */
obj_t BgL_pairz00_2042;
if(
PAIRP(BgL_oldzd2sisterszd2_754))
{ /* ./Llib/object.scm 937 */
BgL_pairz00_2042 = BgL_oldzd2sisterszd2_754; }  else 
{ /* ./Llib/object.scm 937 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_oldzd2sisterszd2_754, BGl_string7762z00zz__objectz00, 
BINT(((long)43077))); 
exit( -1 );} 
BgL_arg1658z00_766 = 
CAR(BgL_pairz00_2042); } 
BgL_arg1654z00_765 = 
BGl_classzd2hierarchyzd2downzd2renumberz12zc0zz__objectz00(BgL_arg1658z00_766, BgL_sisterzd2numzd2_755); } 
{ 
long BgL_sisterzd2numzd2_7000;obj_t BgL_oldzd2sisterszd2_6999;
BgL_oldzd2sisterszd2_6999 = BgL_arg1653z00_764; 
BgL_sisterzd2numzd2_7000 = BgL_arg1654z00_765; 
BgL_sisterzd2numzd2_755 = BgL_sisterzd2numzd2_7000; 
BgL_oldzd2sisterszd2_754 = BgL_oldzd2sisterszd2_6999; 
goto BgL_liipz00_756;} } } }  else 
{ /* ./Llib/object.scm 925 */
{ /* ./Llib/object.scm 940 */
obj_t BgL_arg1663z00_767;obj_t BgL_arg1664z00_768;
{ /* ./Llib/object.scm 940 */
obj_t BgL_pairz00_2043;
if(
PAIRP(BgL_sistersz00_748))
{ /* ./Llib/object.scm 940 */
BgL_pairz00_2043 = BgL_sistersz00_748; }  else 
{ /* ./Llib/object.scm 940 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_sistersz00_748, BGl_string7762z00zz__objectz00, 
BINT(((long)43137))); 
exit( -1 );} 
BgL_arg1663z00_767 = 
CDR(BgL_pairz00_2043); } 
{ /* ./Llib/object.scm 941 */
obj_t BgL_arg1668z00_769;
{ /* ./Llib/object.scm 941 */
obj_t BgL_pairz00_2044;
if(
PAIRP(BgL_sistersz00_748))
{ /* ./Llib/object.scm 941 */
BgL_pairz00_2044 = BgL_sistersz00_748; }  else 
{ /* ./Llib/object.scm 941 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7862z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_sistersz00_748, BGl_string7762z00zz__objectz00, 
BINT(((long)43166))); 
exit( -1 );} 
BgL_arg1668z00_769 = 
CAR(BgL_pairz00_2044); } 
BgL_arg1664z00_768 = 
MAKE_PAIR(BgL_arg1668z00_769, BgL_oldzd2sisterszd2_749); } 
{ 
obj_t BgL_oldzd2sisterszd2_7016;obj_t BgL_sistersz00_7015;
BgL_sistersz00_7015 = BgL_arg1663z00_767; 
BgL_oldzd2sisterszd2_7016 = BgL_arg1664z00_768; 
BgL_oldzd2sisterszd2_749 = BgL_oldzd2sisterszd2_7016; 
BgL_sistersz00_748 = BgL_sistersz00_7015; 
goto BgL_loopz00_750;} } } } } }  else 
{ /* ./Llib/object.scm 920 */
BgL_aux2843z00_2691 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2843z00_2691;} } } } 
}



/* class-hierarchy-down-renumber! */
long BGl_classzd2hierarchyzd2downzd2renumberz12zc0zz__objectz00(obj_t BgL_classz00_114, long BgL_numz00_115)
{ AN_OBJECT;
{ /* ./Llib/object.scm 946 */
{ /* ./Llib/object.scm 949 */
obj_t BgL_symbol2848z00_2692;
BgL_symbol2848z00_2692 = BGl_symbol7894z00zz__objectz00; 
{ /* ./Llib/object.scm 949 */

PUSH_TRACE(BgL_symbol2848z00_2692); BUNSPEC; 
{ /* ./Llib/object.scm 949 */
long BgL_aux2847z00_2693;BGl_list7895z00zz__objectz00; 
{ /* ./Llib/object.scm 950 */
obj_t BgL_vectorz00_2047;int BgL_kz00_2048;obj_t BgL_objz00_2049;
if(
VECTORP(BgL_classz00_114))
{ /* ./Llib/object.scm 950 */
BgL_vectorz00_2047 = BgL_classz00_114; }  else 
{ /* ./Llib/object.scm 950 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7894z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_114, BGl_string7762z00zz__objectz00, 
BINT(((long)43629))); 
exit( -1 );} 
BgL_kz00_2048 = 
(int)(((long)2)); 
BgL_objz00_2049 = 
BINT(BgL_numz00_115); 
VECTOR_SET(BgL_vectorz00_2047,BgL_kz00_2048,BgL_objz00_2049); } 
{ 
obj_t BgL_classesz00_774;long BgL_maxzd2numzd2_775;
{ /* ./Llib/object.scm 951 */
obj_t BgL_arg1686z00_777;
{ /* ./Llib/object.scm 951 */
obj_t BgL_arg1689z00_778;
{ /* ./Llib/object.scm 951 */
obj_t BgL_vectorz00_2051;int BgL_kz00_2052;
if(
VECTORP(BgL_classz00_114))
{ /* ./Llib/object.scm 951 */
BgL_vectorz00_2051 = BgL_classz00_114; }  else 
{ /* ./Llib/object.scm 951 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7894z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_114, BGl_string7762z00zz__objectz00, 
BINT(((long)43692))); 
exit( -1 );} 
BgL_kz00_2052 = 
(int)(((long)4)); 
{ /* ./Llib/object.scm 951 */
bool_t BgL_test2430z00_2053;
{ /* ./Llib/object.scm 951 */
int BgL_arg2435z00_2054;
BgL_arg2435z00_2054 = 
VECTOR_LENGTH(BgL_vectorz00_2051); 
BgL_test2430z00_2053 = 
BOUND_CHECK(BgL_kz00_2052, BgL_arg2435z00_2054); } 
if(BgL_test2430z00_2053)
{ /* ./Llib/object.scm 951 */
BgL_arg1689z00_778 = 
VECTOR_REF(BgL_vectorz00_2051,BgL_kz00_2052); }  else 
{ /* ./Llib/object.scm 951 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_2052), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1689z00_778 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)43692))); } } } 
{ /* ./Llib/object.scm 951 */
obj_t BgL_auxz00_7041;
{ /* ./Llib/object.scm 951 */
bool_t BgL_testz00_7042;
if(
PAIRP(BgL_arg1689z00_778))
{ /* ./Llib/object.scm 951 */
BgL_testz00_7042 = ((bool_t)1)
; }  else 
{ /* ./Llib/object.scm 951 */
BgL_testz00_7042 = 
NULLP(BgL_arg1689z00_778)
; } 
if(BgL_testz00_7042)
{ /* ./Llib/object.scm 951 */
BgL_auxz00_7041 = BgL_arg1689z00_778
; }  else 
{ /* ./Llib/object.scm 951 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7894z00zz__objectz00, BGl_string7780z00zz__objectz00, BgL_arg1689z00_778, BGl_string7762z00zz__objectz00, 
BINT(((long)43715))); 
exit( -1 );} } 
BgL_arg1686z00_777 = 
bgl_reverse(BgL_auxz00_7041); } } 
BgL_classesz00_774 = BgL_arg1686z00_777; 
BgL_maxzd2numzd2_775 = BgL_numz00_115; 
BgL_liipz00_776:
if(
NULLP(BgL_classesz00_774))
{ /* ./Llib/object.scm 953 */
{ /* ./Llib/object.scm 955 */
obj_t BgL_vectorz00_2062;int BgL_kz00_2063;obj_t BgL_objz00_2064;
if(
VECTORP(BgL_classz00_114))
{ /* ./Llib/object.scm 955 */
BgL_vectorz00_2062 = BgL_classz00_114; }  else 
{ /* ./Llib/object.scm 955 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7894z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_114, BGl_string7762z00zz__objectz00, 
BINT(((long)43783))); 
exit( -1 );} 
BgL_kz00_2063 = 
(int)(((long)5)); 
BgL_objz00_2064 = 
BINT(BgL_maxzd2numzd2_775); 
VECTOR_SET(BgL_vectorz00_2062,BgL_kz00_2063,BgL_objz00_2064); } 
BgL_aux2847z00_2693 = 
(((long)1)+BgL_maxzd2numzd2_775); }  else 
{ /* ./Llib/object.scm 957 */
obj_t BgL_arg1696z00_780;long BgL_arg1697z00_781;
{ /* ./Llib/object.scm 957 */
obj_t BgL_pairz00_2067;
if(
PAIRP(BgL_classesz00_774))
{ /* ./Llib/object.scm 957 */
BgL_pairz00_2067 = BgL_classesz00_774; }  else 
{ /* ./Llib/object.scm 957 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7894z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_classesz00_774, BGl_string7762z00zz__objectz00, 
BINT(((long)43861))); 
exit( -1 );} 
BgL_arg1696z00_780 = 
CDR(BgL_pairz00_2067); } 
{ /* ./Llib/object.scm 958 */
obj_t BgL_arg1701z00_782;long BgL_arg1702z00_783;
{ /* ./Llib/object.scm 958 */
obj_t BgL_pairz00_2068;
if(
PAIRP(BgL_classesz00_774))
{ /* ./Llib/object.scm 958 */
BgL_pairz00_2068 = BgL_classesz00_774; }  else 
{ /* ./Llib/object.scm 958 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7894z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_classesz00_774, BGl_string7762z00zz__objectz00, 
BINT(((long)43909))); 
exit( -1 );} 
BgL_arg1701z00_782 = 
CAR(BgL_pairz00_2068); } 
BgL_arg1702z00_783 = 
(((long)1)+BgL_maxzd2numzd2_775); 
BgL_arg1697z00_781 = 
BGl_classzd2hierarchyzd2downzd2renumberz12zc0zz__objectz00(BgL_arg1701z00_782, BgL_arg1702z00_783); } 
{ 
long BgL_maxzd2numzd2_7076;obj_t BgL_classesz00_7075;
BgL_classesz00_7075 = BgL_arg1696z00_780; 
BgL_maxzd2numzd2_7076 = BgL_arg1697z00_781; 
BgL_maxzd2numzd2_775 = BgL_maxzd2numzd2_7076; 
BgL_classesz00_774 = BgL_classesz00_7075; 
goto BgL_liipz00_776;} } } } 
POP_TRACE(); 
return BgL_aux2847z00_2693;} } } } 
}



/* struct->object */
BGL_EXPORTED_DEF BgL_objectz00_bglt BGl_structzd2ze3objectz31zz__objectz00(obj_t BgL_structz00_132)
{ AN_OBJECT;
{ /* ./Llib/object.scm 996 */
{ /* ./Llib/object.scm 997 */
BgL_objectz00_bglt BgL_arg1709z00_2071;
{ /* ./Llib/object.scm 997 */
obj_t BgL_arg1712z00_2072;
{ /* ./Llib/object.scm 997 */
obj_t BgL_res2640z00_2074;
{ /* ./Llib/object.scm 997 */
obj_t BgL_aux5895z00_3361;
BgL_aux5895z00_3361 = 
STRUCT_KEY(BgL_structz00_132); 
if(
SYMBOLP(BgL_aux5895z00_3361))
{ /* ./Llib/object.scm 997 */
BgL_res2640z00_2074 = BgL_aux5895z00_3361; }  else 
{ /* ./Llib/object.scm 997 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7897z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_aux5895z00_3361, BGl_string7762z00zz__objectz00, 
BINT(((long)46054))); 
exit( -1 );} } 
BgL_arg1712z00_2072 = BgL_res2640z00_2074; } 
BgL_arg1709z00_2071 = 
BGl_allocatezd2instancezd2zz__objectz00(BgL_arg1712z00_2072); } 
{ /* ./Llib/object.scm 997 */
BgL_objectz00_bglt BgL_res2643z00_2102;
{ /* ./Llib/object.scm 997 */
obj_t BgL_method1035z00_2077;
{ /* ./Llib/object.scm 997 */
long BgL_objzd2classzd2numz00_2079;
BgL_objzd2classzd2numz00_2079 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1709z00_2071); 
{ /* ./Llib/object.scm 997 */
obj_t BgL_arg1555z00_2080;
{ /* ./Llib/object.scm 997 */
int BgL_auxz00_7086;
BgL_auxz00_7086 = 
(int)(((long)1)); 
BgL_arg1555z00_2080 = 
PROCEDURE_REF(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BgL_auxz00_7086); } 
{ /* ./Llib/object.scm 997 */
obj_t BgL_arrayz00_2082;int BgL_offsetz00_2083;
if(
VECTORP(BgL_arg1555z00_2080))
{ /* ./Llib/object.scm 997 */
BgL_arrayz00_2082 = BgL_arg1555z00_2080; }  else 
{ /* ./Llib/object.scm 997 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7897z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_2080, BGl_string7762z00zz__objectz00, 
BINT(((long)46054))); 
exit( -1 );} 
BgL_offsetz00_2083 = 
(int)(BgL_objzd2classzd2numz00_2079); 
{ /* ./Llib/object.scm 997 */
long BgL_offsetz00_2084;
{ /* ./Llib/object.scm 997 */
long BgL_auxz00_7095;
BgL_auxz00_7095 = 
(long)(BgL_offsetz00_2083); 
BgL_offsetz00_2084 = 
(BgL_auxz00_7095-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 997 */
long BgL_modz00_2085;
{ /* ./Llib/object.scm 997 */
int BgL_arg1289z00_2086;
BgL_arg1289z00_2086 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 997 */
long BgL_auxz00_7099;
BgL_auxz00_7099 = 
(long)(BgL_arg1289z00_2086); 
BgL_modz00_2085 = 
(BgL_offsetz00_2084/BgL_auxz00_7099); } } 
{ /* ./Llib/object.scm 997 */
long BgL_restz00_2087;
{ /* ./Llib/object.scm 997 */
int BgL_arg1285z00_2088;
BgL_arg1285z00_2088 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 997 */
long BgL_auxz00_7103;
BgL_auxz00_7103 = 
(long)(BgL_arg1285z00_2088); 
BgL_restz00_2087 = 
(BgL_offsetz00_2084%BgL_auxz00_7103); } } 
{ /* ./Llib/object.scm 997 */

{ /* ./Llib/object.scm 997 */
obj_t BgL_bucketz00_2089;
{ 
int BgL_auxz00_7106;
BgL_auxz00_7106 = 
(int)(BgL_modz00_2085); 
BgL_bucketz00_2089 = 
VECTOR_REF(BgL_arrayz00_2082,BgL_auxz00_7106); } 
{ /* ./Llib/object.scm 997 */
obj_t BgL_vectorz00_2100;int BgL_kz00_2101;
if(
VECTORP(BgL_bucketz00_2089))
{ /* ./Llib/object.scm 997 */
BgL_vectorz00_2100 = BgL_bucketz00_2089; }  else 
{ /* ./Llib/object.scm 997 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7897z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_2089, BGl_string7762z00zz__objectz00, 
BINT(((long)46054))); 
exit( -1 );} 
BgL_kz00_2101 = 
(int)(BgL_restz00_2087); 
{ /* ./Llib/object.scm 997 */
obj_t BgL_aux5934z00_3367;
BgL_aux5934z00_3367 = 
VECTOR_REF(BgL_vectorz00_2100,BgL_kz00_2101); 
if(
PROCEDUREP(BgL_aux5934z00_3367))
{ /* ./Llib/object.scm 997 */
BgL_method1035z00_2077 = BgL_aux5934z00_3367; }  else 
{ /* ./Llib/object.scm 997 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7897z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux5934z00_3367, BGl_string7762z00zz__objectz00, 
BINT(((long)46054))); 
exit( -1 );} } } } } } } } } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1035z00_2077, ((long)2)))
{ /* ./Llib/object.scm 997 */
obj_t BgL_aux5946z00_3370;
BgL_aux5946z00_3370 = 
PROCEDURE_ENTRY(BgL_method1035z00_2077)(BgL_method1035z00_2077, 
(obj_t)(BgL_arg1709z00_2071), BgL_structz00_132, BEOA); 
{ /* ./Llib/object.scm 997 */
bool_t BgL_testz00_7126;
{ /* ./Llib/object.scm 997 */
bool_t BgL_res8061z00_3883;
{ /* ./Llib/object.scm 997 */
obj_t BgL_symbol2772z00_3881;
BgL_symbol2772z00_3881 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 997 */

PUSH_TRACE(BgL_symbol2772z00_3881); BUNSPEC; 
{ /* ./Llib/object.scm 997 */
bool_t BgL_aux2771z00_3882;
BgL_aux2771z00_3882 = 
BGL_OBJECTP(BgL_aux5946z00_3370); 
POP_TRACE(); 
BgL_res8061z00_3883 = BgL_aux2771z00_3882; } } } 
BgL_testz00_7126 = BgL_res8061z00_3883; } 
if(BgL_testz00_7126)
{ /* ./Llib/object.scm 997 */
BgL_res2643z00_2102 = 
(BgL_objectz00_bglt)(BgL_aux5946z00_3370); }  else 
{ /* ./Llib/object.scm 997 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7897z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_aux5946z00_3370, BGl_string7762z00zz__objectz00, 
BINT(((long)46054))); 
exit( -1 );} } }  else 
{ /* ./Llib/object.scm 997 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7898z00zz__objectz00, BGl_list7899z00zz__objectz00, BgL_method1035z00_2077, BGl_string7762z00zz__objectz00, 
BINT(((long)46054))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } 
return BgL_res2643z00_2102;} } } 
}



/* _struct->object */
obj_t BGl__structzd2ze3objectz31zz__objectz00(obj_t BgL_envz00_2859, obj_t BgL_structz00_2860)
{ AN_OBJECT;
{ /* ./Llib/object.scm 996 */
{ /* ./Llib/object.scm 997 */
BgL_objectz00_bglt BgL_auxz00_7137;
{ /* ./Llib/object.scm 997 */
obj_t BgL_auxz00_7138;
if(
STRUCTP(BgL_structz00_2860))
{ /* ./Llib/object.scm 997 */
BgL_auxz00_7138 = BgL_structz00_2860
; }  else 
{ /* ./Llib/object.scm 997 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7905z00zz__objectz00, BGl_string7906z00zz__objectz00, BgL_structz00_2860, BGl_string7762z00zz__objectz00, 
BINT(((long)46054))); 
exit( -1 );} 
BgL_auxz00_7137 = 
BGl_structzd2ze3objectz31zz__objectz00(BgL_auxz00_7138); } 
return 
(obj_t)(BgL_auxz00_7137);} } 
}



/* allocate-instance */
BGL_EXPORTED_DEF BgL_objectz00_bglt BGl_allocatezd2instancezd2zz__objectz00(obj_t BgL_cnamez00_133)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1002 */
{ /* ./Llib/object.scm 1003 */
obj_t BgL_symbol2852z00_2694;
BgL_symbol2852z00_2694 = BGl_symbol7907z00zz__objectz00; 
{ /* ./Llib/object.scm 1003 */

PUSH_TRACE(BgL_symbol2852z00_2694); BUNSPEC; 
{ /* ./Llib/object.scm 1003 */
BgL_objectz00_bglt BgL_aux2851z00_2695;
{ 
long BgL_iz00_786;
{ /* ./Llib/object.scm 1003 */
obj_t BgL_aux6070z00_3393;
BgL_iz00_786 = ((long)0); 
BgL_loopz00_787:
{ /* ./Llib/object.scm 1004 */
bool_t BgL_test1716z00_788;
{ /* ./Llib/object.scm 1004 */
long BgL_n2z00_2104;
{ /* ./Llib/object.scm 1004 */
obj_t BgL_auxz00_7147;
{ /* ./Llib/object.scm 1004 */
obj_t BgL_aux5974z00_3376;
BgL_aux5974z00_3376 = BGl_za2nbzd2classesza2zd2zz__objectz00; 
if(
INTEGERP(BgL_aux5974z00_3376))
{ /* ./Llib/object.scm 1004 */
BgL_auxz00_7147 = BgL_aux5974z00_3376
; }  else 
{ /* ./Llib/object.scm 1004 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7907z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux5974z00_3376, BGl_string7762z00zz__objectz00, 
BINT(((long)46406))); 
exit( -1 );} } 
BgL_n2z00_2104 = 
(long)CINT(BgL_auxz00_7147); } 
BgL_test1716z00_788 = 
(BgL_iz00_786==BgL_n2z00_2104); } 
if(BgL_test1716z00_788)
{ /* ./Llib/object.scm 1004 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7908z00zz__objectz00, BGl_string7909z00zz__objectz00, BgL_cnamez00_133, "./Llib/object.scm", ((long)46412)); 
BgL_aux6070z00_3393 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)46456))); }  else 
{ /* ./Llib/object.scm 1006 */
obj_t BgL_classz00_789;
{ /* ./Llib/object.scm 1006 */
obj_t BgL_vectorz00_2108;int BgL_kz00_2109;
{ /* ./Llib/object.scm 1006 */
obj_t BgL_aux5992z00_3378;
BgL_aux5992z00_3378 = BGl_za2classesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux5992z00_3378))
{ /* ./Llib/object.scm 1006 */
BgL_vectorz00_2108 = BgL_aux5992z00_3378; }  else 
{ /* ./Llib/object.scm 1006 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7907z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux5992z00_3378, BGl_string7762z00zz__objectz00, 
BINT(((long)46504))); 
exit( -1 );} } 
BgL_kz00_2109 = 
(int)(BgL_iz00_786); 
BgL_classz00_789 = 
VECTOR_REF(BgL_vectorz00_2108,BgL_kz00_2109); } 
{ /* ./Llib/object.scm 1007 */
bool_t BgL_test1719z00_790;
{ /* ./Llib/object.scm 1007 */
obj_t BgL_arg1729z00_793;
{ /* ./Llib/object.scm 1007 */
obj_t BgL_res2644z00_2119;
{ /* ./Llib/object.scm 1007 */
obj_t BgL_vectorz00_2111;int BgL_kz00_2112;
if(
VECTORP(BgL_classz00_789))
{ /* ./Llib/object.scm 1007 */
BgL_vectorz00_2111 = BgL_classz00_789; }  else 
{ /* ./Llib/object.scm 1007 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7907z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_789, BGl_string7762z00zz__objectz00, 
BINT(((long)46526))); 
exit( -1 );} 
BgL_kz00_2112 = 
(int)(((long)0)); 
{ /* ./Llib/object.scm 1007 */
bool_t BgL_test2430z00_2113;
{ /* ./Llib/object.scm 1007 */
int BgL_arg2435z00_2114;
BgL_arg2435z00_2114 = 
VECTOR_LENGTH(BgL_vectorz00_2111); 
BgL_test2430z00_2113 = 
BOUND_CHECK(BgL_kz00_2112, BgL_arg2435z00_2114); } 
if(BgL_test2430z00_2113)
{ /* ./Llib/object.scm 1007 */
obj_t BgL_aux6014z00_3382;
BgL_aux6014z00_3382 = 
VECTOR_REF(BgL_vectorz00_2111,BgL_kz00_2112); 
if(
SYMBOLP(BgL_aux6014z00_3382))
{ /* ./Llib/object.scm 1007 */
BgL_res2644z00_2119 = BgL_aux6014z00_3382; }  else 
{ /* ./Llib/object.scm 1007 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7907z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_aux6014z00_3382, BGl_string7762z00zz__objectz00, 
BINT(((long)46526))); 
exit( -1 );} }  else 
{ /* ./Llib/object.scm 1007 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_2112), "./Ieee/vector.scm", ((long)5865)); 
{ /* ./Llib/object.scm 1007 */
obj_t BgL_aux6032z00_3384;
BgL_aux6032z00_3384 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)46526))); 
if(
SYMBOLP(BgL_aux6032z00_3384))
{ /* ./Llib/object.scm 1007 */
BgL_res2644z00_2119 = BgL_aux6032z00_3384; }  else 
{ /* ./Llib/object.scm 1007 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7907z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_aux6032z00_3384, BGl_string7762z00zz__objectz00, 
BINT(((long)46526))); 
exit( -1 );} } } } } 
BgL_arg1729z00_793 = BgL_res2644z00_2119; } 
BgL_test1719z00_790 = 
(BgL_arg1729z00_793==BgL_cnamez00_133); } 
if(BgL_test1719z00_790)
{ /* ./Llib/object.scm 1008 */
obj_t BgL_fun1722z00_791;
{ /* ./Llib/object.scm 1008 */
obj_t BgL_res2645z00_2123;
{ /* ./Llib/object.scm 1008 */
obj_t BgL_vectorz00_2121;int BgL_kz00_2122;
if(
VECTORP(BgL_classz00_789))
{ /* ./Llib/object.scm 1008 */
BgL_vectorz00_2121 = BgL_classz00_789; }  else 
{ /* ./Llib/object.scm 1008 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7907z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_789, BGl_string7762z00zz__objectz00, 
BINT(((long)46556))); 
exit( -1 );} 
BgL_kz00_2122 = 
(int)(((long)6)); 
{ /* ./Llib/object.scm 1008 */
obj_t BgL_aux6053z00_3388;
BgL_aux6053z00_3388 = 
VECTOR_REF(BgL_vectorz00_2121,BgL_kz00_2122); 
if(
PROCEDUREP(BgL_aux6053z00_3388))
{ /* ./Llib/object.scm 1008 */
BgL_res2645z00_2123 = BgL_aux6053z00_3388; }  else 
{ /* ./Llib/object.scm 1008 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7907z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux6053z00_3388, BGl_string7762z00zz__objectz00, 
BINT(((long)46556))); 
exit( -1 );} } } 
BgL_fun1722z00_791 = BgL_res2645z00_2123; } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fun1722z00_791, ((long)0)))
{ /* ./Llib/object.scm 1008 */
BgL_aux6070z00_3393 = 
PROCEDURE_ENTRY(BgL_fun1722z00_791)(BgL_fun1722z00_791, BEOA); }  else 
{ /* ./Llib/object.scm 1008 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7910z00zz__objectz00, BGl_list7911z00zz__objectz00, BgL_fun1722z00_791, BGl_string7762z00zz__objectz00, 
BINT(((long)46555))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} }  else 
{ 
long BgL_iz00_7211;
BgL_iz00_7211 = 
(BgL_iz00_786+((long)1)); 
BgL_iz00_786 = BgL_iz00_7211; 
goto BgL_loopz00_787;} } } } 
{ /* ./Llib/object.scm 1003 */
bool_t BgL_testz00_7213;
{ /* ./Llib/object.scm 1003 */
bool_t BgL_res8062z00_3887;
{ /* ./Llib/object.scm 1003 */
obj_t BgL_symbol2772z00_3885;
BgL_symbol2772z00_3885 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1003 */

PUSH_TRACE(BgL_symbol2772z00_3885); BUNSPEC; 
{ /* ./Llib/object.scm 1003 */
bool_t BgL_aux2771z00_3886;
BgL_aux2771z00_3886 = 
BGL_OBJECTP(BgL_aux6070z00_3393); 
POP_TRACE(); 
BgL_res8062z00_3887 = BgL_aux2771z00_3886; } } } 
BgL_testz00_7213 = BgL_res8062z00_3887; } 
if(BgL_testz00_7213)
{ /* ./Llib/object.scm 1003 */
BgL_aux2851z00_2695 = 
(BgL_objectz00_bglt)(BgL_aux6070z00_3393); }  else 
{ /* ./Llib/object.scm 1003 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7907z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_aux6070z00_3393, BGl_string7762z00zz__objectz00, 
BINT(((long)46360))); 
exit( -1 );} } } } 
POP_TRACE(); 
return BgL_aux2851z00_2695;} } } } 
}



/* _allocate-instance */
obj_t BGl__allocatezd2instancezd2zz__objectz00(obj_t BgL_envz00_2864, obj_t BgL_cnamez00_2865)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1002 */
{ /* ./Llib/object.scm 1003 */
BgL_objectz00_bglt BgL_auxz00_7222;
{ /* ./Llib/object.scm 1003 */
obj_t BgL_auxz00_7223;
if(
SYMBOLP(BgL_cnamez00_2865))
{ /* ./Llib/object.scm 1003 */
BgL_auxz00_7223 = BgL_cnamez00_2865
; }  else 
{ /* ./Llib/object.scm 1003 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7913z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_cnamez00_2865, BGl_string7762z00zz__objectz00, 
BINT(((long)46360))); 
exit( -1 );} 
BgL_auxz00_7222 = 
BGl_allocatezd2instancezd2zz__objectz00(BgL_auxz00_7223); } 
return 
(obj_t)(BgL_auxz00_7222);} } 
}



/* wide-object? */
BGL_EXPORTED_DEF bool_t BGl_widezd2objectzf3z21zz__objectz00(BgL_objectz00_bglt BgL_objectz00_134)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1014 */
{ /* ./Llib/object.scm 1015 */
bool_t BgL_testz00_7231;
{ /* ./Llib/object.scm 1015 */
obj_t BgL_auxz00_7232;
BgL_auxz00_7232 = 
BGL_OBJECT_WIDENING(BgL_objectz00_134); 
BgL_testz00_7231 = 
CBOOL(BgL_auxz00_7232); } 
if(BgL_testz00_7231)
{ /* ./Llib/object.scm 1015 */
return ((bool_t)1);}  else 
{ /* ./Llib/object.scm 1015 */
return ((bool_t)0);} } } 
}



/* _wide-object? */
obj_t BGl__widezd2objectzf3z21zz__objectz00(obj_t BgL_envz00_2866, obj_t BgL_objectz00_2867)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1014 */
{ /* ./Llib/object.scm 1015 */
bool_t BgL_auxz00_7235;
{ /* ./Llib/object.scm 1015 */
BgL_objectz00_bglt BgL_objectz00_3892;
{ /* ./Llib/object.scm 1015 */
bool_t BgL_testz00_7236;
{ /* ./Llib/object.scm 1015 */
bool_t BgL_res8063z00_3891;
{ /* ./Llib/object.scm 1015 */
obj_t BgL_symbol2772z00_3889;
BgL_symbol2772z00_3889 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1015 */

PUSH_TRACE(BgL_symbol2772z00_3889); BUNSPEC; 
{ /* ./Llib/object.scm 1015 */
bool_t BgL_aux2771z00_3890;
BgL_aux2771z00_3890 = 
BGL_OBJECTP(BgL_objectz00_2867); 
POP_TRACE(); 
BgL_res8063z00_3891 = BgL_aux2771z00_3890; } } } 
BgL_testz00_7236 = BgL_res8063z00_3891; } 
if(BgL_testz00_7236)
{ /* ./Llib/object.scm 1015 */
BgL_objectz00_3892 = 
(BgL_objectz00_bglt)(BgL_objectz00_2867); }  else 
{ /* ./Llib/object.scm 1015 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7914z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objectz00_2867, BGl_string7762z00zz__objectz00, 
BINT(((long)46874))); 
exit( -1 );} } 
{ /* ./Llib/object.scm 1015 */
bool_t BgL_testz00_7244;
{ /* ./Llib/object.scm 1015 */
obj_t BgL_auxz00_7245;
BgL_auxz00_7245 = 
BGL_OBJECT_WIDENING(BgL_objectz00_3892); 
BgL_testz00_7244 = 
CBOOL(BgL_auxz00_7245); } 
if(BgL_testz00_7244)
{ /* ./Llib/object.scm 1015 */
BgL_auxz00_7235 = ((bool_t)1)
; }  else 
{ /* ./Llib/object.scm 1015 */
BgL_auxz00_7235 = ((bool_t)0)
; } } } 
return 
BBOOL(BgL_auxz00_7235);} } 
}



/* call-virtual-getter */
BGL_EXPORTED_DEF obj_t BGl_callzd2virtualzd2getterz00zz__objectz00(BgL_objectz00_bglt BgL_objz00_145, int BgL_numz00_146)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1124 */
{ /* ./Llib/object.scm 1125 */
obj_t BgL_symbol2856z00_2696;
BgL_symbol2856z00_2696 = BGl_symbol7915z00zz__objectz00; 
{ /* ./Llib/object.scm 1125 */

PUSH_TRACE(BgL_symbol2856z00_2696); BUNSPEC; 
{ /* ./Llib/object.scm 1125 */
obj_t BgL_aux2855z00_2697;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_classz00_2127;
{ /* ./Llib/object.scm 1125 */
long BgL_arg1268z00_2132;
{ /* ./Llib/object.scm 1125 */
long BgL_arg1273z00_2133;
BgL_arg1273z00_2133 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_145); 
BgL_arg1268z00_2132 = 
(BgL_arg1273z00_2133-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 1125 */
obj_t BgL_vectorz00_2137;int BgL_kz00_2138;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_aux6105z00_3399;
BgL_aux6105z00_3399 = BGl_za2classesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux6105z00_3399))
{ /* ./Llib/object.scm 1125 */
BgL_vectorz00_2137 = BgL_aux6105z00_3399; }  else 
{ /* ./Llib/object.scm 1125 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7915z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux6105z00_3399, BGl_string7762z00zz__objectz00, 
BINT(((long)50872))); 
exit( -1 );} } 
BgL_kz00_2138 = 
(int)(BgL_arg1268z00_2132); 
BgL_classz00_2127 = 
VECTOR_REF(BgL_vectorz00_2137,BgL_kz00_2138); } } 
{ /* ./Llib/object.scm 1125 */
obj_t BgL_getterz00_2128;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_arg1738z00_2129;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_arg1741z00_2130;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_res2646z00_2142;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_classz00_2139;
if(
VECTORP(BgL_classz00_2127))
{ /* ./Llib/object.scm 1125 */
BgL_classz00_2139 = BgL_classz00_2127; }  else 
{ /* ./Llib/object.scm 1125 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7915z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_2127, BGl_string7762z00zz__objectz00, 
BINT(((long)50857))); 
exit( -1 );} 
{ /* ./Llib/object.scm 1125 */
int BgL_kz00_2141;
BgL_kz00_2141 = 
(int)(((long)10)); 
{ /* ./Llib/object.scm 1125 */
obj_t BgL_aux6127z00_3403;
BgL_aux6127z00_3403 = 
VECTOR_REF(BgL_classz00_2139,BgL_kz00_2141); 
if(
VECTORP(BgL_aux6127z00_3403))
{ /* ./Llib/object.scm 1125 */
BgL_res2646z00_2142 = BgL_aux6127z00_3403; }  else 
{ /* ./Llib/object.scm 1125 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7915z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux6127z00_3403, BGl_string7762z00zz__objectz00, 
BINT(((long)50857))); 
exit( -1 );} } } } 
BgL_arg1741z00_2130 = BgL_res2646z00_2142; } 
{ /* ./Llib/object.scm 1125 */
bool_t BgL_test2430z00_2145;
{ /* ./Llib/object.scm 1125 */
int BgL_arg2435z00_2146;
BgL_arg2435z00_2146 = 
VECTOR_LENGTH(BgL_arg1741z00_2130); 
BgL_test2430z00_2145 = 
BOUND_CHECK(BgL_numz00_146, BgL_arg2435z00_2146); } 
if(BgL_test2430z00_2145)
{ /* ./Llib/object.scm 1125 */
BgL_arg1738z00_2129 = 
VECTOR_REF(BgL_arg1741z00_2130,BgL_numz00_146); }  else 
{ /* ./Llib/object.scm 1125 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_numz00_146), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1738z00_2129 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)50857))); } } } 
{ /* ./Llib/object.scm 1125 */
obj_t BgL_pairz00_2151;
if(
PAIRP(BgL_arg1738z00_2129))
{ /* ./Llib/object.scm 1125 */
BgL_pairz00_2151 = BgL_arg1738z00_2129; }  else 
{ /* ./Llib/object.scm 1125 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7915z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_arg1738z00_2129, BGl_string7762z00zz__objectz00, 
BINT(((long)50857))); 
exit( -1 );} 
BgL_getterz00_2128 = 
CAR(BgL_pairz00_2151); } } 
{ /* ./Llib/object.scm 1125 */

{ /* ./Llib/object.scm 1125 */
obj_t BgL_funz00_3409;
if(
PROCEDUREP(BgL_getterz00_2128))
{ /* ./Llib/object.scm 1125 */
BgL_funz00_3409 = BgL_getterz00_2128; }  else 
{ /* ./Llib/object.scm 1125 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7915z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_getterz00_2128, BGl_string7762z00zz__objectz00, 
BINT(((long)50857))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3409, ((long)1)))
{ /* ./Llib/object.scm 1125 */
BgL_aux2855z00_2697 = 
PROCEDURE_ENTRY(BgL_funz00_3409)(BgL_getterz00_2128, 
(obj_t)(BgL_objz00_145), BEOA); }  else 
{ /* ./Llib/object.scm 1125 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7916z00zz__objectz00, BGl_list7917z00zz__objectz00, BgL_funz00_3409, BGl_string7762z00zz__objectz00, 
BINT(((long)50857))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } } } } 
POP_TRACE(); 
return BgL_aux2855z00_2697;} } } } 
}



/* _call-virtual-getter */
obj_t BGl__callzd2virtualzd2getterz00zz__objectz00(obj_t BgL_envz00_2868, obj_t BgL_objz00_2869, obj_t BgL_numz00_2870)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1124 */
{ /* ./Llib/object.scm 1125 */
int BgL_auxz00_7308;BgL_objectz00_bglt BgL_auxz00_7299;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_auxz00_7309;
if(
INTEGERP(BgL_numz00_2870))
{ /* ./Llib/object.scm 1125 */
BgL_auxz00_7309 = BgL_numz00_2870
; }  else 
{ /* ./Llib/object.scm 1125 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7920z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_numz00_2870, BGl_string7762z00zz__objectz00, 
BINT(((long)50857))); 
exit( -1 );} 
BgL_auxz00_7308 = 
CINT(BgL_auxz00_7309); } 
{ /* ./Llib/object.scm 1125 */
bool_t BgL_testz00_7300;
{ /* ./Llib/object.scm 1125 */
bool_t BgL_res8064z00_3896;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_symbol2772z00_3894;
BgL_symbol2772z00_3894 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1125 */

PUSH_TRACE(BgL_symbol2772z00_3894); BUNSPEC; 
{ /* ./Llib/object.scm 1125 */
bool_t BgL_aux2771z00_3895;
BgL_aux2771z00_3895 = 
BGL_OBJECTP(BgL_objz00_2869); 
POP_TRACE(); 
BgL_res8064z00_3896 = BgL_aux2771z00_3895; } } } 
BgL_testz00_7300 = BgL_res8064z00_3896; } 
if(BgL_testz00_7300)
{ /* ./Llib/object.scm 1125 */
BgL_auxz00_7299 = 
(BgL_objectz00_bglt)(BgL_objz00_2869)
; }  else 
{ /* ./Llib/object.scm 1125 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7920z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2869, BGl_string7762z00zz__objectz00, 
BINT(((long)50857))); 
exit( -1 );} } 
return 
BGl_callzd2virtualzd2getterz00zz__objectz00(BgL_auxz00_7299, BgL_auxz00_7308);} } 
}



/* call-virtual-setter */
BGL_EXPORTED_DEF obj_t BGl_callzd2virtualzd2setterz00zz__objectz00(BgL_objectz00_bglt BgL_objz00_147, int BgL_numz00_148, obj_t BgL_valuez00_149)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1137 */
{ /* ./Llib/object.scm 1138 */
obj_t BgL_symbol2860z00_2698;
BgL_symbol2860z00_2698 = BGl_symbol7921z00zz__objectz00; 
{ /* ./Llib/object.scm 1138 */

PUSH_TRACE(BgL_symbol2860z00_2698); BUNSPEC; 
{ /* ./Llib/object.scm 1138 */
obj_t BgL_aux2859z00_2699;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_classz00_2152;
{ /* ./Llib/object.scm 1138 */
long BgL_arg1268z00_2157;
{ /* ./Llib/object.scm 1138 */
long BgL_arg1273z00_2158;
BgL_arg1273z00_2158 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_147); 
BgL_arg1268z00_2157 = 
(BgL_arg1273z00_2158-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 1138 */
obj_t BgL_vectorz00_2162;int BgL_kz00_2163;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_aux6195z00_3416;
BgL_aux6195z00_3416 = BGl_za2classesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux6195z00_3416))
{ /* ./Llib/object.scm 1138 */
BgL_vectorz00_2162 = BgL_aux6195z00_3416; }  else 
{ /* ./Llib/object.scm 1138 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7921z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux6195z00_3416, BGl_string7762z00zz__objectz00, 
BINT(((long)51639))); 
exit( -1 );} } 
BgL_kz00_2163 = 
(int)(BgL_arg1268z00_2157); 
BgL_classz00_2152 = 
VECTOR_REF(BgL_vectorz00_2162,BgL_kz00_2163); } } 
{ /* ./Llib/object.scm 1138 */
obj_t BgL_setterz00_2153;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_arg1748z00_2154;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_arg1752z00_2155;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_res2647z00_2167;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_classz00_2164;
if(
VECTORP(BgL_classz00_2152))
{ /* ./Llib/object.scm 1138 */
BgL_classz00_2164 = BgL_classz00_2152; }  else 
{ /* ./Llib/object.scm 1138 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7921z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_2152, BGl_string7762z00zz__objectz00, 
BINT(((long)51624))); 
exit( -1 );} 
{ /* ./Llib/object.scm 1138 */
int BgL_kz00_2166;
BgL_kz00_2166 = 
(int)(((long)10)); 
{ /* ./Llib/object.scm 1138 */
obj_t BgL_aux6217z00_3420;
BgL_aux6217z00_3420 = 
VECTOR_REF(BgL_classz00_2164,BgL_kz00_2166); 
if(
VECTORP(BgL_aux6217z00_3420))
{ /* ./Llib/object.scm 1138 */
BgL_res2647z00_2167 = BgL_aux6217z00_3420; }  else 
{ /* ./Llib/object.scm 1138 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7921z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux6217z00_3420, BGl_string7762z00zz__objectz00, 
BINT(((long)51624))); 
exit( -1 );} } } } 
BgL_arg1752z00_2155 = BgL_res2647z00_2167; } 
{ /* ./Llib/object.scm 1138 */
bool_t BgL_test2430z00_2170;
{ /* ./Llib/object.scm 1138 */
int BgL_arg2435z00_2171;
BgL_arg2435z00_2171 = 
VECTOR_LENGTH(BgL_arg1752z00_2155); 
BgL_test2430z00_2170 = 
BOUND_CHECK(BgL_numz00_148, BgL_arg2435z00_2171); } 
if(BgL_test2430z00_2170)
{ /* ./Llib/object.scm 1138 */
BgL_arg1748z00_2154 = 
VECTOR_REF(BgL_arg1752z00_2155,BgL_numz00_148); }  else 
{ /* ./Llib/object.scm 1138 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_numz00_148), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1748z00_2154 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)51624))); } } } 
{ /* ./Llib/object.scm 1138 */
obj_t BgL_pairz00_2176;
if(
PAIRP(BgL_arg1748z00_2154))
{ /* ./Llib/object.scm 1138 */
BgL_pairz00_2176 = BgL_arg1748z00_2154; }  else 
{ /* ./Llib/object.scm 1138 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7921z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_arg1748z00_2154, BGl_string7762z00zz__objectz00, 
BINT(((long)51624))); 
exit( -1 );} 
BgL_setterz00_2153 = 
CDR(BgL_pairz00_2176); } } 
{ /* ./Llib/object.scm 1138 */

{ /* ./Llib/object.scm 1138 */
obj_t BgL_funz00_3426;
if(
PROCEDUREP(BgL_setterz00_2153))
{ /* ./Llib/object.scm 1138 */
BgL_funz00_3426 = BgL_setterz00_2153; }  else 
{ /* ./Llib/object.scm 1138 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7921z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_setterz00_2153, BGl_string7762z00zz__objectz00, 
BINT(((long)51624))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3426, ((long)2)))
{ /* ./Llib/object.scm 1138 */
BgL_aux2859z00_2699 = 
PROCEDURE_ENTRY(BgL_funz00_3426)(BgL_setterz00_2153, 
(obj_t)(BgL_objz00_147), BgL_valuez00_149, BEOA); }  else 
{ /* ./Llib/object.scm 1138 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7922z00zz__objectz00, BGl_list7923z00zz__objectz00, BgL_funz00_3426, BGl_string7762z00zz__objectz00, 
BINT(((long)51624))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } } } } 
POP_TRACE(); 
return BgL_aux2859z00_2699;} } } } 
}



/* _call-virtual-setter */
obj_t BGl__callzd2virtualzd2setterz00zz__objectz00(obj_t BgL_envz00_2871, obj_t BgL_objz00_2872, obj_t BgL_numz00_2873, obj_t BgL_valuez00_2874)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1137 */
{ /* ./Llib/object.scm 1138 */
int BgL_auxz00_7376;BgL_objectz00_bglt BgL_auxz00_7367;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_auxz00_7377;
if(
INTEGERP(BgL_numz00_2873))
{ /* ./Llib/object.scm 1138 */
BgL_auxz00_7377 = BgL_numz00_2873
; }  else 
{ /* ./Llib/object.scm 1138 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7926z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_numz00_2873, BGl_string7762z00zz__objectz00, 
BINT(((long)51624))); 
exit( -1 );} 
BgL_auxz00_7376 = 
CINT(BgL_auxz00_7377); } 
{ /* ./Llib/object.scm 1138 */
bool_t BgL_testz00_7368;
{ /* ./Llib/object.scm 1138 */
bool_t BgL_res8065z00_3900;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_symbol2772z00_3898;
BgL_symbol2772z00_3898 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1138 */

PUSH_TRACE(BgL_symbol2772z00_3898); BUNSPEC; 
{ /* ./Llib/object.scm 1138 */
bool_t BgL_aux2771z00_3899;
BgL_aux2771z00_3899 = 
BGL_OBJECTP(BgL_objz00_2872); 
POP_TRACE(); 
BgL_res8065z00_3900 = BgL_aux2771z00_3899; } } } 
BgL_testz00_7368 = BgL_res8065z00_3900; } 
if(BgL_testz00_7368)
{ /* ./Llib/object.scm 1138 */
BgL_auxz00_7367 = 
(BgL_objectz00_bglt)(BgL_objz00_2872)
; }  else 
{ /* ./Llib/object.scm 1138 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7926z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2872, BGl_string7762z00zz__objectz00, 
BINT(((long)51624))); 
exit( -1 );} } 
return 
BGl_callzd2virtualzd2setterz00zz__objectz00(BgL_auxz00_7367, BgL_auxz00_7376, BgL_valuez00_2874);} } 
}



/* call-next-virtual-getter */
BGL_EXPORTED_DEF obj_t BGl_callzd2nextzd2virtualzd2getterzd2zz__objectz00(obj_t BgL_classz00_150, BgL_objectz00_bglt BgL_objz00_151, int BgL_numz00_152)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1160 */
{ /* ./Llib/object.scm 1161 */
obj_t BgL_symbol2864z00_2700;
BgL_symbol2864z00_2700 = BGl_symbol7927z00zz__objectz00; 
{ /* ./Llib/object.scm 1161 */

PUSH_TRACE(BgL_symbol2864z00_2700); BUNSPEC; 
{ /* ./Llib/object.scm 1161 */
obj_t BgL_aux2863z00_2701;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_nextzd2classzd2_2177;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_vectorz00_2182;int BgL_kz00_2183;
if(
VECTORP(BgL_classz00_150))
{ /* ./Llib/object.scm 1161 */
BgL_vectorz00_2182 = BgL_classz00_150; }  else 
{ /* ./Llib/object.scm 1161 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7927z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_150, BGl_string7762z00zz__objectz00, 
BINT(((long)53160))); 
exit( -1 );} 
BgL_kz00_2183 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 1161 */
bool_t BgL_test2430z00_2184;
{ /* ./Llib/object.scm 1161 */
int BgL_arg2435z00_2185;
BgL_arg2435z00_2185 = 
VECTOR_LENGTH(BgL_vectorz00_2182); 
BgL_test2430z00_2184 = 
BOUND_CHECK(BgL_kz00_2183, BgL_arg2435z00_2185); } 
if(BgL_test2430z00_2184)
{ /* ./Llib/object.scm 1161 */
BgL_nextzd2classzd2_2177 = 
VECTOR_REF(BgL_vectorz00_2182,BgL_kz00_2183); }  else 
{ /* ./Llib/object.scm 1161 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_2183), "./Ieee/vector.scm", ((long)5865)); 
BgL_nextzd2classzd2_2177 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)53160))); } } } 
{ /* ./Llib/object.scm 1161 */
obj_t BgL_fun1764z00_2178;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_arg1758z00_2179;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_arg1761z00_2180;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_res2648z00_2193;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_classz00_2190;
if(
VECTORP(BgL_nextzd2classzd2_2177))
{ /* ./Llib/object.scm 1161 */
BgL_classz00_2190 = BgL_nextzd2classzd2_2177; }  else 
{ /* ./Llib/object.scm 1161 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7927z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_nextzd2classzd2_2177, BGl_string7762z00zz__objectz00, 
BINT(((long)53142))); 
exit( -1 );} 
{ /* ./Llib/object.scm 1161 */
int BgL_kz00_2192;
BgL_kz00_2192 = 
(int)(((long)10)); 
{ /* ./Llib/object.scm 1161 */
obj_t BgL_aux6315z00_3437;
BgL_aux6315z00_3437 = 
VECTOR_REF(BgL_classz00_2190,BgL_kz00_2192); 
if(
VECTORP(BgL_aux6315z00_3437))
{ /* ./Llib/object.scm 1161 */
BgL_res2648z00_2193 = BgL_aux6315z00_3437; }  else 
{ /* ./Llib/object.scm 1161 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7927z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux6315z00_3437, BGl_string7762z00zz__objectz00, 
BINT(((long)53142))); 
exit( -1 );} } } } 
BgL_arg1761z00_2180 = BgL_res2648z00_2193; } 
{ /* ./Llib/object.scm 1161 */
bool_t BgL_test2430z00_2196;
{ /* ./Llib/object.scm 1161 */
int BgL_arg2435z00_2197;
BgL_arg2435z00_2197 = 
VECTOR_LENGTH(BgL_arg1761z00_2180); 
BgL_test2430z00_2196 = 
BOUND_CHECK(BgL_numz00_152, BgL_arg2435z00_2197); } 
if(BgL_test2430z00_2196)
{ /* ./Llib/object.scm 1161 */
BgL_arg1758z00_2179 = 
VECTOR_REF(BgL_arg1761z00_2180,BgL_numz00_152); }  else 
{ /* ./Llib/object.scm 1161 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_numz00_152), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1758z00_2179 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)53142))); } } } 
{ /* ./Llib/object.scm 1161 */
obj_t BgL_pairz00_2202;
if(
PAIRP(BgL_arg1758z00_2179))
{ /* ./Llib/object.scm 1161 */
BgL_pairz00_2202 = BgL_arg1758z00_2179; }  else 
{ /* ./Llib/object.scm 1161 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7927z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_arg1758z00_2179, BGl_string7762z00zz__objectz00, 
BINT(((long)53142))); 
exit( -1 );} 
BgL_fun1764z00_2178 = 
CAR(BgL_pairz00_2202); } } 
{ /* ./Llib/object.scm 1161 */
obj_t BgL_funz00_3443;
if(
PROCEDUREP(BgL_fun1764z00_2178))
{ /* ./Llib/object.scm 1161 */
BgL_funz00_3443 = BgL_fun1764z00_2178; }  else 
{ /* ./Llib/object.scm 1161 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7927z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_fun1764z00_2178, BGl_string7762z00zz__objectz00, 
BINT(((long)53142))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3443, ((long)1)))
{ /* ./Llib/object.scm 1161 */
BgL_aux2863z00_2701 = 
PROCEDURE_ENTRY(BgL_funz00_3443)(BgL_fun1764z00_2178, 
(obj_t)(BgL_objz00_151), BEOA); }  else 
{ /* ./Llib/object.scm 1161 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7928z00zz__objectz00, BGl_list7929z00zz__objectz00, BgL_funz00_3443, BGl_string7762z00zz__objectz00, 
BINT(((long)53142))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } } } 
POP_TRACE(); 
return BgL_aux2863z00_2701;} } } } 
}



/* _call-next-virtual-getter */
obj_t BGl__callzd2nextzd2virtualzd2getterzd2zz__objectz00(obj_t BgL_envz00_2875, obj_t BgL_classz00_2876, obj_t BgL_objz00_2877, obj_t BgL_numz00_2878)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1160 */
{ /* ./Llib/object.scm 1161 */
int BgL_auxz00_7449;BgL_objectz00_bglt BgL_auxz00_7440;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_auxz00_7450;
if(
INTEGERP(BgL_numz00_2878))
{ /* ./Llib/object.scm 1161 */
BgL_auxz00_7450 = BgL_numz00_2878
; }  else 
{ /* ./Llib/object.scm 1161 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7931z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_numz00_2878, BGl_string7762z00zz__objectz00, 
BINT(((long)53142))); 
exit( -1 );} 
BgL_auxz00_7449 = 
CINT(BgL_auxz00_7450); } 
{ /* ./Llib/object.scm 1161 */
bool_t BgL_testz00_7441;
{ /* ./Llib/object.scm 1161 */
bool_t BgL_res8066z00_3904;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_symbol2772z00_3902;
BgL_symbol2772z00_3902 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1161 */

PUSH_TRACE(BgL_symbol2772z00_3902); BUNSPEC; 
{ /* ./Llib/object.scm 1161 */
bool_t BgL_aux2771z00_3903;
BgL_aux2771z00_3903 = 
BGL_OBJECTP(BgL_objz00_2877); 
POP_TRACE(); 
BgL_res8066z00_3904 = BgL_aux2771z00_3903; } } } 
BgL_testz00_7441 = BgL_res8066z00_3904; } 
if(BgL_testz00_7441)
{ /* ./Llib/object.scm 1161 */
BgL_auxz00_7440 = 
(BgL_objectz00_bglt)(BgL_objz00_2877)
; }  else 
{ /* ./Llib/object.scm 1161 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7931z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2877, BGl_string7762z00zz__objectz00, 
BINT(((long)53142))); 
exit( -1 );} } 
return 
BGl_callzd2nextzd2virtualzd2getterzd2zz__objectz00(BgL_classz00_2876, BgL_auxz00_7440, BgL_auxz00_7449);} } 
}



/* call-next-virtual-setter */
BGL_EXPORTED_DEF obj_t BGl_callzd2nextzd2virtualzd2setterzd2zz__objectz00(obj_t BgL_classz00_153, BgL_objectz00_bglt BgL_objz00_154, int BgL_numz00_155, obj_t BgL_valuez00_156)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1172 */
{ /* ./Llib/object.scm 1173 */
obj_t BgL_symbol2868z00_2702;
BgL_symbol2868z00_2702 = BGl_symbol7932z00zz__objectz00; 
{ /* ./Llib/object.scm 1173 */

PUSH_TRACE(BgL_symbol2868z00_2702); BUNSPEC; 
{ /* ./Llib/object.scm 1173 */
obj_t BgL_aux2867z00_2703;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_nextzd2classzd2_2203;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_vectorz00_2208;int BgL_kz00_2209;
if(
VECTORP(BgL_classz00_153))
{ /* ./Llib/object.scm 1173 */
BgL_vectorz00_2208 = BgL_classz00_153; }  else 
{ /* ./Llib/object.scm 1173 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7932z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_153, BGl_string7762z00zz__objectz00, 
BINT(((long)53928))); 
exit( -1 );} 
BgL_kz00_2209 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 1173 */
bool_t BgL_test2430z00_2210;
{ /* ./Llib/object.scm 1173 */
int BgL_arg2435z00_2211;
BgL_arg2435z00_2211 = 
VECTOR_LENGTH(BgL_vectorz00_2208); 
BgL_test2430z00_2210 = 
BOUND_CHECK(BgL_kz00_2209, BgL_arg2435z00_2211); } 
if(BgL_test2430z00_2210)
{ /* ./Llib/object.scm 1173 */
BgL_nextzd2classzd2_2203 = 
VECTOR_REF(BgL_vectorz00_2208,BgL_kz00_2209); }  else 
{ /* ./Llib/object.scm 1173 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_2209), "./Ieee/vector.scm", ((long)5865)); 
BgL_nextzd2classzd2_2203 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)53928))); } } } 
{ /* ./Llib/object.scm 1173 */
obj_t BgL_fun1775z00_2204;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_arg1769z00_2205;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_arg1772z00_2206;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_res2649z00_2219;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_classz00_2216;
if(
VECTORP(BgL_nextzd2classzd2_2203))
{ /* ./Llib/object.scm 1173 */
BgL_classz00_2216 = BgL_nextzd2classzd2_2203; }  else 
{ /* ./Llib/object.scm 1173 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7932z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_nextzd2classzd2_2203, BGl_string7762z00zz__objectz00, 
BINT(((long)53910))); 
exit( -1 );} 
{ /* ./Llib/object.scm 1173 */
int BgL_kz00_2218;
BgL_kz00_2218 = 
(int)(((long)10)); 
{ /* ./Llib/object.scm 1173 */
obj_t BgL_aux6413z00_3454;
BgL_aux6413z00_3454 = 
VECTOR_REF(BgL_classz00_2216,BgL_kz00_2218); 
if(
VECTORP(BgL_aux6413z00_3454))
{ /* ./Llib/object.scm 1173 */
BgL_res2649z00_2219 = BgL_aux6413z00_3454; }  else 
{ /* ./Llib/object.scm 1173 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7932z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux6413z00_3454, BGl_string7762z00zz__objectz00, 
BINT(((long)53910))); 
exit( -1 );} } } } 
BgL_arg1772z00_2206 = BgL_res2649z00_2219; } 
{ /* ./Llib/object.scm 1173 */
bool_t BgL_test2430z00_2222;
{ /* ./Llib/object.scm 1173 */
int BgL_arg2435z00_2223;
BgL_arg2435z00_2223 = 
VECTOR_LENGTH(BgL_arg1772z00_2206); 
BgL_test2430z00_2222 = 
BOUND_CHECK(BgL_numz00_155, BgL_arg2435z00_2223); } 
if(BgL_test2430z00_2222)
{ /* ./Llib/object.scm 1173 */
BgL_arg1769z00_2205 = 
VECTOR_REF(BgL_arg1772z00_2206,BgL_numz00_155); }  else 
{ /* ./Llib/object.scm 1173 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_numz00_155), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1769z00_2205 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)53910))); } } } 
{ /* ./Llib/object.scm 1173 */
obj_t BgL_pairz00_2228;
if(
PAIRP(BgL_arg1769z00_2205))
{ /* ./Llib/object.scm 1173 */
BgL_pairz00_2228 = BgL_arg1769z00_2205; }  else 
{ /* ./Llib/object.scm 1173 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7932z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_arg1769z00_2205, BGl_string7762z00zz__objectz00, 
BINT(((long)53910))); 
exit( -1 );} 
BgL_fun1775z00_2204 = 
CDR(BgL_pairz00_2228); } } 
{ /* ./Llib/object.scm 1173 */
obj_t BgL_funz00_3460;
if(
PROCEDUREP(BgL_fun1775z00_2204))
{ /* ./Llib/object.scm 1173 */
BgL_funz00_3460 = BgL_fun1775z00_2204; }  else 
{ /* ./Llib/object.scm 1173 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7932z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_fun1775z00_2204, BGl_string7762z00zz__objectz00, 
BINT(((long)53910))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3460, ((long)2)))
{ /* ./Llib/object.scm 1173 */
BgL_aux2867z00_2703 = 
PROCEDURE_ENTRY(BgL_funz00_3460)(BgL_fun1775z00_2204, 
(obj_t)(BgL_objz00_154), BgL_valuez00_156, BEOA); }  else 
{ /* ./Llib/object.scm 1173 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7933z00zz__objectz00, BGl_list7934z00zz__objectz00, BgL_funz00_3460, BGl_string7762z00zz__objectz00, 
BINT(((long)53910))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } } } 
POP_TRACE(); 
return BgL_aux2867z00_2703;} } } } 
}



/* _call-next-virtual-setter */
obj_t BGl__callzd2nextzd2virtualzd2setterzd2zz__objectz00(obj_t BgL_envz00_2879, obj_t BgL_classz00_2880, obj_t BgL_objz00_2881, obj_t BgL_numz00_2882, obj_t BgL_valuez00_2883)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1172 */
{ /* ./Llib/object.scm 1173 */
int BgL_auxz00_7522;BgL_objectz00_bglt BgL_auxz00_7513;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_auxz00_7523;
if(
INTEGERP(BgL_numz00_2882))
{ /* ./Llib/object.scm 1173 */
BgL_auxz00_7523 = BgL_numz00_2882
; }  else 
{ /* ./Llib/object.scm 1173 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7936z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_numz00_2882, BGl_string7762z00zz__objectz00, 
BINT(((long)53910))); 
exit( -1 );} 
BgL_auxz00_7522 = 
CINT(BgL_auxz00_7523); } 
{ /* ./Llib/object.scm 1173 */
bool_t BgL_testz00_7514;
{ /* ./Llib/object.scm 1173 */
bool_t BgL_res8067z00_3908;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_symbol2772z00_3906;
BgL_symbol2772z00_3906 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1173 */

PUSH_TRACE(BgL_symbol2772z00_3906); BUNSPEC; 
{ /* ./Llib/object.scm 1173 */
bool_t BgL_aux2771z00_3907;
BgL_aux2771z00_3907 = 
BGL_OBJECTP(BgL_objz00_2881); 
POP_TRACE(); 
BgL_res8067z00_3908 = BgL_aux2771z00_3907; } } } 
BgL_testz00_7514 = BgL_res8067z00_3908; } 
if(BgL_testz00_7514)
{ /* ./Llib/object.scm 1173 */
BgL_auxz00_7513 = 
(BgL_objectz00_bglt)(BgL_objz00_2881)
; }  else 
{ /* ./Llib/object.scm 1173 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7936z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2881, BGl_string7762z00zz__objectz00, 
BINT(((long)53910))); 
exit( -1 );} } 
return 
BGl_callzd2nextzd2virtualzd2setterzd2zz__objectz00(BgL_classz00_2880, BgL_auxz00_7513, BgL_auxz00_7522, BgL_valuez00_2883);} } 
}



/* object-init */
obj_t BGl_objectzd2initzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 17 */
obj_t BgL_symbol2872z00_2704;
BgL_symbol2872z00_2704 = BGl_symbol7937z00zz__objectz00; 
{ /* ./Llib/object.scm 17 */

PUSH_TRACE(BgL_symbol2872z00_2704); BUNSPEC; 
{ /* ./Llib/object.scm 17 */
obj_t BgL_aux2871z00_2705;
{ /* ./Llib/object.scm 78 */
obj_t BgL_arg1779z00_811;obj_t BgL_arg1783z00_815;obj_t BgL_arg1784z00_816;
BgL_arg1779z00_811 = BGl_symbol7902z00zz__objectz00; 
{ /* ./Llib/object.scm 78 */
obj_t BgL_res2650z00_2230;
if(((bool_t)1))
{ /* ./Llib/object.scm 78 */
BgL_res2650z00_2230 = BNIL; }  else 
{ /* ./Llib/object.scm 78 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7937z00zz__objectz00, BGl_string7780z00zz__objectz00, BNIL, BGl_string7762z00zz__objectz00, 
BINT(((long)3012))); 
exit( -1 );} 
BgL_arg1783z00_815 = BgL_res2650z00_2230; } 
{ /* ./Llib/object.scm 78 */
obj_t BgL_v1026z00_818;
{ 
int BgL_auxz00_7536;
BgL_auxz00_7536 = 
(int)(((long)0)); 
BgL_v1026z00_818 = 
create_vector(BgL_auxz00_7536); } 
BgL_arg1784z00_816 = BgL_v1026z00_818; } 
BGl_objectz00zz__objectz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg1779z00_811, BFALSE, BGl_makezd2objectzd2envz00zz__objectz00, BGl_allocatezd2objectzd2envz00zz__objectz00, ((long)9383), BgL_arg1783z00_815, BFALSE, BgL_arg1784z00_816); } 
BgL_aux2871z00_2705 = BUNSPEC; 
POP_TRACE(); 
return BgL_aux2871z00_2705;} } } } 
}



/* make-object */
BGL_EXPORTED_DEF BgL_objectz00_bglt BGl_makezd2objectzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ /* ./Llib/object.scm 78 */
obj_t BgL_symbol2876z00_2706;
BgL_symbol2876z00_2706 = BGl_symbol7938z00zz__objectz00; 
{ /* ./Llib/object.scm 78 */

PUSH_TRACE(BgL_symbol2876z00_2706); BUNSPEC; 
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_aux2875z00_2707;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_new1003z00_2231;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_res2652z00_2241;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_new1007z00_2232;
BgL_new1007z00_2232 = 
((BgL_objectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_objectz00_bgl) ))); 
{ /* ./Llib/object.scm 78 */
long BgL_arg1792z00_2233;
{ /* ./Llib/object.scm 78 */
long BgL_res2651z00_2237;
{ /* ./Llib/object.scm 78 */
obj_t BgL_classz00_2234;
BgL_classz00_2234 = BGl_objectz00zz__objectz00; 
{ /* ./Llib/object.scm 78 */
obj_t BgL_vectorz00_2235;int BgL_kz00_2236;
if(
VECTORP(BgL_classz00_2234))
{ /* ./Llib/object.scm 78 */
BgL_vectorz00_2235 = BgL_classz00_2234; }  else 
{ /* ./Llib/object.scm 78 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7938z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_2234, BGl_string7762z00zz__objectz00, 
BINT(((long)3012))); 
exit( -1 );} 
BgL_kz00_2236 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 78 */
obj_t BgL_auxz00_7549;
{ /* ./Llib/object.scm 78 */
obj_t BgL_aux6505z00_3471;
BgL_aux6505z00_3471 = 
VECTOR_REF(BgL_vectorz00_2235,BgL_kz00_2236); 
if(
INTEGERP(BgL_aux6505z00_3471))
{ /* ./Llib/object.scm 78 */
BgL_auxz00_7549 = BgL_aux6505z00_3471
; }  else 
{ /* ./Llib/object.scm 78 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7938z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_aux6505z00_3471, BGl_string7762z00zz__objectz00, 
BINT(((long)3012))); 
exit( -1 );} } 
BgL_res2651z00_2237 = 
(long)CINT(BgL_auxz00_7549); } } } 
BgL_arg1792z00_2233 = BgL_res2651z00_2237; } 
BGL_OBJECT_CLASS_NUM_SET(BgL_new1007z00_2232, BgL_arg1792z00_2233); } 
BGL_OBJECT_WIDENING_SET(BgL_new1007z00_2232, BFALSE); 
{ /* ./Llib/object.scm 78 */
obj_t BgL_objz00_2240;
BgL_objz00_2240 = 
(obj_t)(BgL_new1007z00_2232); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2240); BUNSPEC; } 
BgL_res2652z00_2241 = BgL_new1007z00_2232; } 
BgL_new1003z00_2231 = BgL_res2652z00_2241; } 
BgL_aux2875z00_2707 = BgL_new1003z00_2231; } 
POP_TRACE(); 
return BgL_aux2875z00_2707;} } } } 
}



/* _make-object */
obj_t BGl__makezd2objectzd2zz__objectz00(obj_t BgL_envz00_2884)
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_auxz00_7562;
BgL_auxz00_7562 = 
BGl_makezd2objectzd2zz__objectz00(); 
return 
(obj_t)(BgL_auxz00_7562);} } 
}



/* fill-object! */
BGL_EXPORTED_DEF BgL_objectz00_bglt BGl_fillzd2objectz12zc0zz__objectz00(BgL_objectz00_bglt BgL_new1005z00_160)
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ /* ./Llib/object.scm 78 */
obj_t BgL_symbol2880z00_3914;
BgL_symbol2880z00_3914 = BGl_symbol7939z00zz__objectz00; 
{ /* ./Llib/object.scm 78 */

PUSH_TRACE(BgL_symbol2880z00_3914); BUNSPEC; 
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_aux2879z00_3915;
{ /* ./Llib/object.scm 78 */

BgL_aux2879z00_3915 = BgL_new1005z00_160; } 
POP_TRACE(); 
return BgL_aux2879z00_3915;} } } } 
}



/* _fill-object! */
obj_t BGl__fillzd2objectz12zc0zz__objectz00(obj_t BgL_envz00_2886, obj_t BgL_new1005z00_2887)
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_auxz00_7567;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_res8070z00_3923;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_new1005z00_3920;
{ /* ./Llib/object.scm 78 */
bool_t BgL_testz00_7568;
{ /* ./Llib/object.scm 78 */
bool_t BgL_res8069z00_3919;
{ /* ./Llib/object.scm 78 */
obj_t BgL_symbol2772z00_3917;
BgL_symbol2772z00_3917 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 78 */

PUSH_TRACE(BgL_symbol2772z00_3917); BUNSPEC; 
{ /* ./Llib/object.scm 78 */
bool_t BgL_aux2771z00_3918;
BgL_aux2771z00_3918 = 
BGL_OBJECTP(BgL_new1005z00_2887); 
POP_TRACE(); 
BgL_res8069z00_3919 = BgL_aux2771z00_3918; } } } 
BgL_testz00_7568 = BgL_res8069z00_3919; } 
if(BgL_testz00_7568)
{ /* ./Llib/object.scm 78 */
BgL_new1005z00_3920 = 
(BgL_objectz00_bglt)(BgL_new1005z00_2887); }  else 
{ /* ./Llib/object.scm 78 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7940z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_new1005z00_2887, BGl_string7762z00zz__objectz00, 
BINT(((long)3012))); 
exit( -1 );} } 
{ /* ./Llib/object.scm 78 */
obj_t BgL_symbol2880z00_3921;
BgL_symbol2880z00_3921 = BGl_symbol7939z00zz__objectz00; 
{ /* ./Llib/object.scm 78 */

PUSH_TRACE(BgL_symbol2880z00_3921); BUNSPEC; 
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_aux2879z00_3922;
{ /* ./Llib/object.scm 78 */

BgL_aux2879z00_3922 = BgL_new1005z00_3920; } 
POP_TRACE(); 
BgL_res8070z00_3923 = BgL_aux2879z00_3922; } } } } 
BgL_auxz00_7567 = BgL_res8070z00_3923; } 
return 
(obj_t)(BgL_auxz00_7567);} } 
}



/* allocate-object */
BGL_EXPORTED_DEF BgL_objectz00_bglt BGl_allocatezd2objectzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ /* ./Llib/object.scm 78 */
obj_t BgL_symbol2884z00_3924;
BgL_symbol2884z00_3924 = BGl_symbol7941z00zz__objectz00; 
{ /* ./Llib/object.scm 78 */

PUSH_TRACE(BgL_symbol2884z00_3924); BUNSPEC; 
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_aux2883z00_3925;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_new1007z00_3926;
BgL_new1007z00_3926 = 
((BgL_objectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_objectz00_bgl) ))); 
{ /* ./Llib/object.scm 78 */
long BgL_auxz00_7581;
BgL_auxz00_7581 = 
BGl_classzd2numzd2zz__objectz00(BGl_objectz00zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(BgL_new1007z00_3926, BgL_auxz00_7581); } 
BGL_OBJECT_WIDENING_SET(BgL_new1007z00_3926, BFALSE); 
{ /* ./Llib/object.scm 78 */
obj_t BgL_objz00_3927;
BgL_objz00_3927 = 
(obj_t)(BgL_new1007z00_3926); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3927); BUNSPEC; } 
BgL_aux2883z00_3925 = BgL_new1007z00_3926; } 
POP_TRACE(); 
return BgL_aux2883z00_3925;} } } } 
}



/* _allocate-object */
obj_t BGl__allocatezd2objectzd2zz__objectz00(obj_t BgL_envz00_2885)
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_auxz00_7588;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_res8071z00_3932;
{ /* ./Llib/object.scm 78 */
obj_t BgL_symbol2884z00_3928;
BgL_symbol2884z00_3928 = BGl_symbol7941z00zz__objectz00; 
{ /* ./Llib/object.scm 78 */

PUSH_TRACE(BgL_symbol2884z00_3928); BUNSPEC; 
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_aux2883z00_3929;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_new1007z00_3930;
BgL_new1007z00_3930 = 
((BgL_objectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_objectz00_bgl) ))); 
{ /* ./Llib/object.scm 78 */
long BgL_auxz00_7591;
BgL_auxz00_7591 = 
BGl_classzd2numzd2zz__objectz00(BGl_objectz00zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(BgL_new1007z00_3930, BgL_auxz00_7591); } 
BGL_OBJECT_WIDENING_SET(BgL_new1007z00_3930, BFALSE); 
{ /* ./Llib/object.scm 78 */
obj_t BgL_objz00_3931;
BgL_objz00_3931 = 
(obj_t)(BgL_new1007z00_3930); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_3931); BUNSPEC; } 
BgL_aux2883z00_3929 = BgL_new1007z00_3930; } 
POP_TRACE(); 
BgL_res8071z00_3932 = BgL_aux2883z00_3929; } } } 
BgL_auxz00_7588 = BgL_res8071z00_3932; } 
return 
(obj_t)(BgL_auxz00_7588);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 17 */
obj_t BgL_symbol2888z00_2712;
BgL_symbol2888z00_2712 = BGl_symbol7942z00zz__objectz00; 
{ /* ./Llib/object.scm 17 */

PUSH_TRACE(BgL_symbol2888z00_2712); BUNSPEC; 
{ /* ./Llib/object.scm 17 */
obj_t BgL_aux2887z00_2713;
BGl_addzd2genericz12zc0zz__objectz00(BGl_objectzd2displayzd2envz00zz__objectz00, BGl_objectzd2displayzd2default1028zd2envzd2zz__objectz00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_objectzd2writezd2envz00zz__objectz00, BGl_objectzd2writezd2default1030zd2envzd2zz__objectz00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_objectzd2ze3structzd2default1032zd2envz31zz__objectz00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_structzb2objectzd2ze3objectzd2default1034zd2envz83zz__objectz00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_objectzd2hashnumberzd2envz00zz__objectz00, BGl_objectzd2hashnumberzd2default1036zd2envzd2zz__objectz00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_objectzd2printzd2envz00zz__objectz00, BGl_objectzd2printzd2default1038zd2envzd2zz__objectz00); 
BGl_addzd2genericz12zc0zz__objectz00(BGl_objectzd2equalzf3zd2envzf3zz__objectz00, BGl_objectzd2equalzf3zd2default1040zd2envz21zz__objectz00); 
BGl_addzd2methodz12zc0zz__objectz00(BGl_objectzd2ze3structzd2envze3zz__objectz00, BGl_objectz00zz__objectz00, BGl_proc7943z00zz__objectz00); 
BgL_aux2887z00_2713 = 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_objectz00zz__objectz00, BGl_proc7944z00zz__objectz00); 
POP_TRACE(); 
return BgL_aux2887z00_2713;} } } } 
}



/* struct+object->object-object1045 */
obj_t BGl_structzb2objectzd2ze3objectzd2object1045z51zz__objectz00(obj_t BgL_envz00_2890, obj_t BgL_oz00_2891, obj_t BgL_sz00_2892)
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ 
BgL_objectz00_bglt BgL_oz00_828;obj_t BgL_sz00_829;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_auxz00_7610;
{ /* ./Llib/object.scm 78 */
bool_t BgL_testz00_7616;
{ /* ./Llib/object.scm 78 */
bool_t BgL_res8072z00_3936;
{ /* ./Llib/object.scm 78 */
obj_t BgL_symbol2772z00_3934;
BgL_symbol2772z00_3934 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 78 */

PUSH_TRACE(BgL_symbol2772z00_3934); BUNSPEC; 
{ /* ./Llib/object.scm 78 */
bool_t BgL_aux2771z00_3935;
BgL_aux2771z00_3935 = 
BGL_OBJECTP(BgL_oz00_2891); 
POP_TRACE(); 
BgL_res8072z00_3936 = BgL_aux2771z00_3935; } } } 
BgL_testz00_7616 = BgL_res8072z00_3936; } 
if(BgL_testz00_7616)
{ /* ./Llib/object.scm 78 */
BgL_oz00_828 = 
(BgL_objectz00_bglt)(BgL_oz00_2891); }  else 
{ /* ./Llib/object.scm 78 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7945z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_oz00_2891, BGl_string7762z00zz__objectz00, 
BINT(((long)3012))); 
exit( -1 );} } 
if(
STRUCTP(BgL_sz00_2892))
{ /* ./Llib/object.scm 78 */
BgL_sz00_829 = BgL_sz00_2892; }  else 
{ /* ./Llib/object.scm 78 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7945z00zz__objectz00, BGl_string7906z00zz__objectz00, BgL_sz00_2892, BGl_string7762z00zz__objectz00, 
BINT(((long)3012))); 
exit( -1 );} 
{ /* ./Llib/object.scm 78 */
obj_t BgL_auxz00_7611;
{ /* ./Llib/object.scm 78 */
int BgL_auxz00_7612;
BgL_auxz00_7612 = 
(int)(((long)0)); 
BgL_auxz00_7611 = 
STRUCT_REF(BgL_sz00_829, BgL_auxz00_7612); } 
BGL_OBJECT_WIDENING_SET(BgL_oz00_828, BgL_auxz00_7611); } 
BgL_auxz00_7610 = BgL_oz00_828; 
return 
(obj_t)(BgL_auxz00_7610);} } } 
}



/* object->struct-object1043 */
obj_t BGl_objectzd2ze3structzd2object1043ze3zz__objectz00(obj_t BgL_envz00_2893, obj_t BgL_obj1008z00_2894)
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ 
BgL_objectz00_bglt BgL_obj1008z00_822;
{ /* ./Llib/object.scm 78 */
bool_t BgL_testz00_7636;
{ /* ./Llib/object.scm 78 */
bool_t BgL_res8073z00_3940;
{ /* ./Llib/object.scm 78 */
obj_t BgL_symbol2772z00_3938;
BgL_symbol2772z00_3938 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 78 */

PUSH_TRACE(BgL_symbol2772z00_3938); BUNSPEC; 
{ /* ./Llib/object.scm 78 */
bool_t BgL_aux2771z00_3939;
BgL_aux2771z00_3939 = 
BGL_OBJECTP(BgL_obj1008z00_2894); 
POP_TRACE(); 
BgL_res8073z00_3940 = BgL_aux2771z00_3939; } } } 
BgL_testz00_7636 = BgL_res8073z00_3940; } 
if(BgL_testz00_7636)
{ /* ./Llib/object.scm 78 */
BgL_obj1008z00_822 = 
(BgL_objectz00_bglt)(BgL_obj1008z00_2894); }  else 
{ /* ./Llib/object.scm 78 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7946z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_obj1008z00_2894, BGl_string7762z00zz__objectz00, 
BINT(((long)3012))); 
exit( -1 );} } 
{ /* ./Llib/object.scm 78 */
obj_t BgL_res1009z00_2248;
{ /* ./Llib/object.scm 78 */
int BgL_auxz00_7630;
BgL_auxz00_7630 = 
(int)(((long)1)); 
BgL_res1009z00_2248 = 
make_struct(BGl_symbol7902z00zz__objectz00, BgL_auxz00_7630, BUNSPEC); } 
{ /* ./Llib/object.scm 78 */
int BgL_auxz00_7633;
BgL_auxz00_7633 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1009z00_2248, BgL_auxz00_7633, BFALSE); } 
return BgL_res1009z00_2248;} } } 
}



/* object-display */
BGL_EXPORTED_DEF obj_t BGl_objectzd2displayzd2zz__objectz00(BgL_objectz00_bglt BgL_objz00_116, obj_t BgL_portz00_117)
{ AN_OBJECT;
{ /* ./Llib/object.scm 964 */
{ /* ./Llib/object.scm 964 */
obj_t BgL_symbol2892z00_2714;
BgL_symbol2892z00_2714 = BGl_symbol7947z00zz__objectz00; 
{ /* ./Llib/object.scm 964 */

PUSH_TRACE(BgL_symbol2892z00_2714); BUNSPEC; 
{ /* ./Llib/object.scm 964 */
obj_t BgL_aux2891z00_2715;
{ /* ./Llib/object.scm 964 */
obj_t BgL_method1029z00_2258;
{ /* ./Llib/object.scm 964 */
long BgL_objzd2classzd2numz00_2261;
BgL_objzd2classzd2numz00_2261 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_116); 
{ /* ./Llib/object.scm 964 */
obj_t BgL_arg1555z00_2262;
{ /* ./Llib/object.scm 964 */
int BgL_auxz00_7646;
BgL_auxz00_7646 = 
(int)(((long)1)); 
BgL_arg1555z00_2262 = 
PROCEDURE_REF(BGl_objectzd2displayzd2envz00zz__objectz00, BgL_auxz00_7646); } 
{ /* ./Llib/object.scm 964 */
obj_t BgL_arrayz00_2264;int BgL_offsetz00_2265;
if(
VECTORP(BgL_arg1555z00_2262))
{ /* ./Llib/object.scm 964 */
BgL_arrayz00_2264 = BgL_arg1555z00_2262; }  else 
{ /* ./Llib/object.scm 964 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7947z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_2262, BGl_string7762z00zz__objectz00, 
BINT(((long)44162))); 
exit( -1 );} 
BgL_offsetz00_2265 = 
(int)(BgL_objzd2classzd2numz00_2261); 
{ /* ./Llib/object.scm 964 */
long BgL_offsetz00_2266;
{ /* ./Llib/object.scm 964 */
long BgL_auxz00_7655;
BgL_auxz00_7655 = 
(long)(BgL_offsetz00_2265); 
BgL_offsetz00_2266 = 
(BgL_auxz00_7655-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 964 */
long BgL_modz00_2267;
{ /* ./Llib/object.scm 964 */
int BgL_arg1289z00_2268;
BgL_arg1289z00_2268 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 964 */
long BgL_auxz00_7659;
BgL_auxz00_7659 = 
(long)(BgL_arg1289z00_2268); 
BgL_modz00_2267 = 
(BgL_offsetz00_2266/BgL_auxz00_7659); } } 
{ /* ./Llib/object.scm 964 */
long BgL_restz00_2269;
{ /* ./Llib/object.scm 964 */
int BgL_arg1285z00_2270;
BgL_arg1285z00_2270 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 964 */
long BgL_auxz00_7663;
BgL_auxz00_7663 = 
(long)(BgL_arg1285z00_2270); 
BgL_restz00_2269 = 
(BgL_offsetz00_2266%BgL_auxz00_7663); } } 
{ /* ./Llib/object.scm 964 */

{ /* ./Llib/object.scm 964 */
obj_t BgL_bucketz00_2271;
{ 
int BgL_auxz00_7666;
BgL_auxz00_7666 = 
(int)(BgL_modz00_2267); 
BgL_bucketz00_2271 = 
VECTOR_REF(BgL_arrayz00_2264,BgL_auxz00_7666); } 
{ /* ./Llib/object.scm 964 */
obj_t BgL_vectorz00_2282;int BgL_kz00_2283;
if(
VECTORP(BgL_bucketz00_2271))
{ /* ./Llib/object.scm 964 */
BgL_vectorz00_2282 = BgL_bucketz00_2271; }  else 
{ /* ./Llib/object.scm 964 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7947z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_2271, BGl_string7762z00zz__objectz00, 
BINT(((long)44162))); 
exit( -1 );} 
BgL_kz00_2283 = 
(int)(BgL_restz00_2269); 
{ /* ./Llib/object.scm 964 */
obj_t BgL_aux6604z00_3485;
BgL_aux6604z00_3485 = 
VECTOR_REF(BgL_vectorz00_2282,BgL_kz00_2283); 
if(
PROCEDUREP(BgL_aux6604z00_3485))
{ /* ./Llib/object.scm 964 */
BgL_method1029z00_2258 = BgL_aux6604z00_3485; }  else 
{ /* ./Llib/object.scm 964 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7947z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux6604z00_3485, BGl_string7762z00zz__objectz00, 
BINT(((long)44162))); 
exit( -1 );} } } } } } } } } } } 
{ /* ./Llib/object.scm 964 */
obj_t BgL_valz00_3488;
{ /* ./Llib/object.scm 964 */
obj_t BgL_list1824z00_2259;
BgL_list1824z00_2259 = 
MAKE_PAIR(BgL_portz00_117, BNIL); 
BgL_valz00_3488 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
(obj_t)(BgL_objz00_116), BgL_list1824z00_2259); } 
{ /* ./Llib/object.scm 964 */
int BgL_len6616z00_3489;
{ /* ./Llib/object.scm 964 */
long BgL_auxz00_7684;
BgL_auxz00_7684 = 
bgl_list_length(BgL_valz00_3488); 
BgL_len6616z00_3489 = 
(int)(BgL_auxz00_7684); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1029z00_2258, BgL_len6616z00_3489))
{ /* ./Llib/object.scm 964 */
BgL_aux2891z00_2715 = 
apply(BgL_method1029z00_2258, BgL_valz00_3488); }  else 
{ /* ./Llib/object.scm 964 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol7947z00zz__objectz00, BGl_string7948z00zz__objectz00, BGl_list7949z00zz__objectz00, BGl_string7762z00zz__objectz00, 
BINT(((long)44162))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } } } 
POP_TRACE(); 
return BgL_aux2891z00_2715;} } } } 
}



/* _object-display */
obj_t BGl__objectzd2displayzd2zz__objectz00(obj_t BgL_envz00_2895, obj_t BgL_objz00_2896, obj_t BgL_portz00_2897)
{ AN_OBJECT;
{ /* ./Llib/object.scm 964 */
{ /* ./Llib/object.scm 964 */
BgL_objectz00_bglt BgL_auxz00_7695;
{ /* ./Llib/object.scm 964 */
bool_t BgL_testz00_7696;
{ /* ./Llib/object.scm 964 */
bool_t BgL_res8074z00_3944;
{ /* ./Llib/object.scm 964 */
obj_t BgL_symbol2772z00_3942;
BgL_symbol2772z00_3942 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 964 */

PUSH_TRACE(BgL_symbol2772z00_3942); BUNSPEC; 
{ /* ./Llib/object.scm 964 */
bool_t BgL_aux2771z00_3943;
BgL_aux2771z00_3943 = 
BGL_OBJECTP(BgL_objz00_2896); 
POP_TRACE(); 
BgL_res8074z00_3944 = BgL_aux2771z00_3943; } } } 
BgL_testz00_7696 = BgL_res8074z00_3944; } 
if(BgL_testz00_7696)
{ /* ./Llib/object.scm 964 */
BgL_auxz00_7695 = 
(BgL_objectz00_bglt)(BgL_objz00_2896)
; }  else 
{ /* ./Llib/object.scm 964 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7964z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2896, BGl_string7762z00zz__objectz00, 
BINT(((long)44162))); 
exit( -1 );} } 
return 
BGl_objectzd2displayzd2zz__objectz00(BgL_auxz00_7695, BgL_portz00_2897);} } 
}



/* object-display-default1028 */
obj_t BGl_objectzd2displayzd2default1028z00zz__objectz00(BgL_objectz00_bglt BgL_objz00_118, obj_t BgL_portz00_119)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 965 */
obj_t BgL_symbol2896z00_2716;
BgL_symbol2896z00_2716 = BGl_symbol7965z00zz__objectz00; 
{ /* ./Llib/object.scm 965 */

PUSH_TRACE(BgL_symbol2896z00_2716); BUNSPEC; 
{ /* ./Llib/object.scm 965 */
obj_t BgL_aux2895z00_2717;
{ /* ./Llib/object.scm 965 */
obj_t BgL_portz00_2284;
{ /* ./Llib/object.scm 965 */
bool_t BgL_test1828z00_2285;
BgL_test1828z00_2285 = 
PAIRP(BgL_portz00_119); 
if(BgL_test1828z00_2285)
{ /* ./Llib/object.scm 965 */
obj_t BgL_pairz00_2287;
if(BgL_test1828z00_2285)
{ /* ./Llib/object.scm 965 */
BgL_pairz00_2287 = BgL_portz00_119; }  else 
{ /* ./Llib/object.scm 965 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7965z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_portz00_119, BGl_string7762z00zz__objectz00, 
BINT(((long)44229))); 
exit( -1 );} 
BgL_portz00_2284 = 
CAR(BgL_pairz00_2287); }  else 
{ /* ./Llib/object.scm 965 */
BgL_portz00_2284 = 
BGL_CURRENT_OUTPUT_PORT(); } } 
{ /* ./Llib/object.scm 965 */
obj_t BgL_portz00_2289;
if(
OUTPUT_PORTP(BgL_portz00_2284))
{ /* ./Llib/object.scm 965 */
BgL_portz00_2289 = BgL_portz00_2284; }  else 
{ /* ./Llib/object.scm 965 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7965z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_2284, BGl_string7762z00zz__objectz00, 
BINT(((long)44229))); 
exit( -1 );} 
{ /* ./Llib/object.scm 965 */
obj_t BgL_method1039z00_2290;
{ /* ./Llib/object.scm 965 */
long BgL_objzd2classzd2numz00_2292;
BgL_objzd2classzd2numz00_2292 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_118); 
{ /* ./Llib/object.scm 965 */
obj_t BgL_arg1555z00_2293;
{ /* ./Llib/object.scm 965 */
int BgL_auxz00_7720;
BgL_auxz00_7720 = 
(int)(((long)1)); 
BgL_arg1555z00_2293 = 
PROCEDURE_REF(BGl_objectzd2printzd2envz00zz__objectz00, BgL_auxz00_7720); } 
{ /* ./Llib/object.scm 965 */
obj_t BgL_arrayz00_2295;int BgL_offsetz00_2296;
if(
VECTORP(BgL_arg1555z00_2293))
{ /* ./Llib/object.scm 965 */
BgL_arrayz00_2295 = BgL_arg1555z00_2293; }  else 
{ /* ./Llib/object.scm 965 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7965z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_2293, BGl_string7762z00zz__objectz00, 
BINT(((long)44229))); 
exit( -1 );} 
BgL_offsetz00_2296 = 
(int)(BgL_objzd2classzd2numz00_2292); 
{ /* ./Llib/object.scm 965 */
long BgL_offsetz00_2297;
{ /* ./Llib/object.scm 965 */
long BgL_auxz00_7729;
BgL_auxz00_7729 = 
(long)(BgL_offsetz00_2296); 
BgL_offsetz00_2297 = 
(BgL_auxz00_7729-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 965 */
long BgL_modz00_2298;
{ /* ./Llib/object.scm 965 */
int BgL_arg1289z00_2299;
BgL_arg1289z00_2299 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 965 */
long BgL_auxz00_7733;
BgL_auxz00_7733 = 
(long)(BgL_arg1289z00_2299); 
BgL_modz00_2298 = 
(BgL_offsetz00_2297/BgL_auxz00_7733); } } 
{ /* ./Llib/object.scm 965 */
long BgL_restz00_2300;
{ /* ./Llib/object.scm 965 */
int BgL_arg1285z00_2301;
BgL_arg1285z00_2301 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 965 */
long BgL_auxz00_7737;
BgL_auxz00_7737 = 
(long)(BgL_arg1285z00_2301); 
BgL_restz00_2300 = 
(BgL_offsetz00_2297%BgL_auxz00_7737); } } 
{ /* ./Llib/object.scm 965 */

{ /* ./Llib/object.scm 965 */
obj_t BgL_bucketz00_2302;
{ 
int BgL_auxz00_7740;
BgL_auxz00_7740 = 
(int)(BgL_modz00_2298); 
BgL_bucketz00_2302 = 
VECTOR_REF(BgL_arrayz00_2295,BgL_auxz00_7740); } 
{ /* ./Llib/object.scm 965 */
obj_t BgL_vectorz00_2313;int BgL_kz00_2314;
if(
VECTORP(BgL_bucketz00_2302))
{ /* ./Llib/object.scm 965 */
BgL_vectorz00_2313 = BgL_bucketz00_2302; }  else 
{ /* ./Llib/object.scm 965 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7965z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_2302, BGl_string7762z00zz__objectz00, 
BINT(((long)44229))); 
exit( -1 );} 
BgL_kz00_2314 = 
(int)(BgL_restz00_2300); 
{ /* ./Llib/object.scm 965 */
obj_t BgL_aux6684z00_3501;
BgL_aux6684z00_3501 = 
VECTOR_REF(BgL_vectorz00_2313,BgL_kz00_2314); 
if(
PROCEDUREP(BgL_aux6684z00_3501))
{ /* ./Llib/object.scm 965 */
BgL_method1039z00_2290 = BgL_aux6684z00_3501; }  else 
{ /* ./Llib/object.scm 965 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7965z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux6684z00_3501, BGl_string7762z00zz__objectz00, 
BINT(((long)44229))); 
exit( -1 );} } } } } } } } } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1039z00_2290, ((long)3)))
{ /* ./Llib/object.scm 965 */
BgL_aux2895z00_2717 = 
PROCEDURE_ENTRY(BgL_method1039z00_2290)(BgL_method1039z00_2290, 
(obj_t)(BgL_objz00_118), BgL_portz00_2289, BGl_displayzd2envzd2zz__r4_output_6_10_3z00, BEOA); }  else 
{ /* ./Llib/object.scm 965 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7967z00zz__objectz00, BGl_list7968z00zz__objectz00, BgL_method1039z00_2290, BGl_string7762z00zz__objectz00, 
BINT(((long)44229))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } } } 
POP_TRACE(); 
return BgL_aux2895z00_2717;} } } } 
}



/* _object-display-default1028 */
obj_t BGl__objectzd2displayzd2default1028z00zz__objectz00(obj_t BgL_envz00_2898, obj_t BgL_objz00_2899, obj_t BgL_portz00_2900)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 965 */
BgL_objectz00_bglt BgL_auxz00_7764;
{ /* ./Llib/object.scm 965 */
bool_t BgL_testz00_7765;
{ /* ./Llib/object.scm 965 */
bool_t BgL_res8075z00_3948;
{ /* ./Llib/object.scm 965 */
obj_t BgL_symbol2772z00_3946;
BgL_symbol2772z00_3946 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 965 */

PUSH_TRACE(BgL_symbol2772z00_3946); BUNSPEC; 
{ /* ./Llib/object.scm 965 */
bool_t BgL_aux2771z00_3947;
BgL_aux2771z00_3947 = 
BGL_OBJECTP(BgL_objz00_2899); 
POP_TRACE(); 
BgL_res8075z00_3948 = BgL_aux2771z00_3947; } } } 
BgL_testz00_7765 = BgL_res8075z00_3948; } 
if(BgL_testz00_7765)
{ /* ./Llib/object.scm 965 */
BgL_auxz00_7764 = 
(BgL_objectz00_bglt)(BgL_objz00_2899)
; }  else 
{ /* ./Llib/object.scm 965 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7971z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2899, BGl_string7762z00zz__objectz00, 
BINT(((long)44229))); 
exit( -1 );} } 
return 
BGl_objectzd2displayzd2default1028z00zz__objectz00(BgL_auxz00_7764, BgL_portz00_2900);} } 
}



/* object-write */
BGL_EXPORTED_DEF obj_t BGl_objectzd2writezd2zz__objectz00(BgL_objectz00_bglt BgL_objz00_120, obj_t BgL_portz00_121)
{ AN_OBJECT;
{ /* ./Llib/object.scm 971 */
{ /* ./Llib/object.scm 971 */
obj_t BgL_symbol2900z00_2718;
BgL_symbol2900z00_2718 = BGl_symbol7972z00zz__objectz00; 
{ /* ./Llib/object.scm 971 */

PUSH_TRACE(BgL_symbol2900z00_2718); BUNSPEC; 
{ /* ./Llib/object.scm 971 */
obj_t BgL_aux2899z00_2719;
{ /* ./Llib/object.scm 971 */
obj_t BgL_method1031z00_2315;
{ /* ./Llib/object.scm 971 */
long BgL_objzd2classzd2numz00_2318;
BgL_objzd2classzd2numz00_2318 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_120); 
{ /* ./Llib/object.scm 971 */
obj_t BgL_arg1555z00_2319;
{ /* ./Llib/object.scm 971 */
int BgL_auxz00_7776;
BgL_auxz00_7776 = 
(int)(((long)1)); 
BgL_arg1555z00_2319 = 
PROCEDURE_REF(BGl_objectzd2writezd2envz00zz__objectz00, BgL_auxz00_7776); } 
{ /* ./Llib/object.scm 971 */
obj_t BgL_arrayz00_2321;int BgL_offsetz00_2322;
if(
VECTORP(BgL_arg1555z00_2319))
{ /* ./Llib/object.scm 971 */
BgL_arrayz00_2321 = BgL_arg1555z00_2319; }  else 
{ /* ./Llib/object.scm 971 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7972z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_2319, BGl_string7762z00zz__objectz00, 
BINT(((long)44544))); 
exit( -1 );} 
BgL_offsetz00_2322 = 
(int)(BgL_objzd2classzd2numz00_2318); 
{ /* ./Llib/object.scm 971 */
long BgL_offsetz00_2323;
{ /* ./Llib/object.scm 971 */
long BgL_auxz00_7785;
BgL_auxz00_7785 = 
(long)(BgL_offsetz00_2322); 
BgL_offsetz00_2323 = 
(BgL_auxz00_7785-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 971 */
long BgL_modz00_2324;
{ /* ./Llib/object.scm 971 */
int BgL_arg1289z00_2325;
BgL_arg1289z00_2325 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 971 */
long BgL_auxz00_7789;
BgL_auxz00_7789 = 
(long)(BgL_arg1289z00_2325); 
BgL_modz00_2324 = 
(BgL_offsetz00_2323/BgL_auxz00_7789); } } 
{ /* ./Llib/object.scm 971 */
long BgL_restz00_2326;
{ /* ./Llib/object.scm 971 */
int BgL_arg1285z00_2327;
BgL_arg1285z00_2327 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 971 */
long BgL_auxz00_7793;
BgL_auxz00_7793 = 
(long)(BgL_arg1285z00_2327); 
BgL_restz00_2326 = 
(BgL_offsetz00_2323%BgL_auxz00_7793); } } 
{ /* ./Llib/object.scm 971 */

{ /* ./Llib/object.scm 971 */
obj_t BgL_bucketz00_2328;
{ 
int BgL_auxz00_7796;
BgL_auxz00_7796 = 
(int)(BgL_modz00_2324); 
BgL_bucketz00_2328 = 
VECTOR_REF(BgL_arrayz00_2321,BgL_auxz00_7796); } 
{ /* ./Llib/object.scm 971 */
obj_t BgL_vectorz00_2339;int BgL_kz00_2340;
if(
VECTORP(BgL_bucketz00_2328))
{ /* ./Llib/object.scm 971 */
BgL_vectorz00_2339 = BgL_bucketz00_2328; }  else 
{ /* ./Llib/object.scm 971 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7972z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_2328, BGl_string7762z00zz__objectz00, 
BINT(((long)44544))); 
exit( -1 );} 
BgL_kz00_2340 = 
(int)(BgL_restz00_2326); 
{ /* ./Llib/object.scm 971 */
obj_t BgL_aux6742z00_3512;
BgL_aux6742z00_3512 = 
VECTOR_REF(BgL_vectorz00_2339,BgL_kz00_2340); 
if(
PROCEDUREP(BgL_aux6742z00_3512))
{ /* ./Llib/object.scm 971 */
BgL_method1031z00_2315 = BgL_aux6742z00_3512; }  else 
{ /* ./Llib/object.scm 971 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7972z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux6742z00_3512, BGl_string7762z00zz__objectz00, 
BINT(((long)44544))); 
exit( -1 );} } } } } } } } } } } 
{ /* ./Llib/object.scm 971 */
obj_t BgL_valz00_3515;
{ /* ./Llib/object.scm 971 */
obj_t BgL_list1833z00_2316;
BgL_list1833z00_2316 = 
MAKE_PAIR(BgL_portz00_121, BNIL); 
BgL_valz00_3515 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
(obj_t)(BgL_objz00_120), BgL_list1833z00_2316); } 
{ /* ./Llib/object.scm 971 */
int BgL_len6754z00_3516;
{ /* ./Llib/object.scm 971 */
long BgL_auxz00_7814;
BgL_auxz00_7814 = 
bgl_list_length(BgL_valz00_3515); 
BgL_len6754z00_3516 = 
(int)(BgL_auxz00_7814); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1031z00_2315, BgL_len6754z00_3516))
{ /* ./Llib/object.scm 971 */
BgL_aux2899z00_2719 = 
apply(BgL_method1031z00_2315, BgL_valz00_3515); }  else 
{ /* ./Llib/object.scm 971 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol7972z00zz__objectz00, BGl_string7948z00zz__objectz00, BGl_list7973z00zz__objectz00, BGl_string7762z00zz__objectz00, 
BINT(((long)44544))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } } } 
POP_TRACE(); 
return BgL_aux2899z00_2719;} } } } 
}



/* _object-write */
obj_t BGl__objectzd2writezd2zz__objectz00(obj_t BgL_envz00_2901, obj_t BgL_objz00_2902, obj_t BgL_portz00_2903)
{ AN_OBJECT;
{ /* ./Llib/object.scm 971 */
{ /* ./Llib/object.scm 971 */
BgL_objectz00_bglt BgL_auxz00_7825;
{ /* ./Llib/object.scm 971 */
bool_t BgL_testz00_7826;
{ /* ./Llib/object.scm 971 */
bool_t BgL_res8076z00_3952;
{ /* ./Llib/object.scm 971 */
obj_t BgL_symbol2772z00_3950;
BgL_symbol2772z00_3950 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 971 */

PUSH_TRACE(BgL_symbol2772z00_3950); BUNSPEC; 
{ /* ./Llib/object.scm 971 */
bool_t BgL_aux2771z00_3951;
BgL_aux2771z00_3951 = 
BGL_OBJECTP(BgL_objz00_2902); 
POP_TRACE(); 
BgL_res8076z00_3952 = BgL_aux2771z00_3951; } } } 
BgL_testz00_7826 = BgL_res8076z00_3952; } 
if(BgL_testz00_7826)
{ /* ./Llib/object.scm 971 */
BgL_auxz00_7825 = 
(BgL_objectz00_bglt)(BgL_objz00_2902)
; }  else 
{ /* ./Llib/object.scm 971 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7980z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2902, BGl_string7762z00zz__objectz00, 
BINT(((long)44544))); 
exit( -1 );} } 
return 
BGl_objectzd2writezd2zz__objectz00(BgL_auxz00_7825, BgL_portz00_2903);} } 
}



/* object-write-default1030 */
obj_t BGl_objectzd2writezd2default1030z00zz__objectz00(BgL_objectz00_bglt BgL_objz00_122, obj_t BgL_portz00_123)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 972 */
obj_t BgL_symbol2904z00_2720;
BgL_symbol2904z00_2720 = BGl_symbol7981z00zz__objectz00; 
{ /* ./Llib/object.scm 972 */

PUSH_TRACE(BgL_symbol2904z00_2720); BUNSPEC; 
{ /* ./Llib/object.scm 972 */
obj_t BgL_aux2903z00_2721;
{ /* ./Llib/object.scm 972 */
obj_t BgL_portz00_2341;
{ /* ./Llib/object.scm 972 */
bool_t BgL_test1837z00_2342;
BgL_test1837z00_2342 = 
PAIRP(BgL_portz00_123); 
if(BgL_test1837z00_2342)
{ /* ./Llib/object.scm 972 */
obj_t BgL_pairz00_2344;
if(BgL_test1837z00_2342)
{ /* ./Llib/object.scm 972 */
BgL_pairz00_2344 = BgL_portz00_123; }  else 
{ /* ./Llib/object.scm 972 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7981z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_portz00_123, BGl_string7762z00zz__objectz00, 
BINT(((long)44609))); 
exit( -1 );} 
BgL_portz00_2341 = 
CAR(BgL_pairz00_2344); }  else 
{ /* ./Llib/object.scm 972 */
BgL_portz00_2341 = 
BGL_CURRENT_OUTPUT_PORT(); } } 
{ /* ./Llib/object.scm 972 */
obj_t BgL_portz00_2346;
if(
OUTPUT_PORTP(BgL_portz00_2341))
{ /* ./Llib/object.scm 972 */
BgL_portz00_2346 = BgL_portz00_2341; }  else 
{ /* ./Llib/object.scm 972 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7981z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_2341, BGl_string7762z00zz__objectz00, 
BINT(((long)44609))); 
exit( -1 );} 
{ /* ./Llib/object.scm 972 */
obj_t BgL_method1039z00_2347;
{ /* ./Llib/object.scm 972 */
long BgL_objzd2classzd2numz00_2349;
BgL_objzd2classzd2numz00_2349 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_122); 
{ /* ./Llib/object.scm 972 */
obj_t BgL_arg1555z00_2350;
{ /* ./Llib/object.scm 972 */
int BgL_auxz00_7850;
BgL_auxz00_7850 = 
(int)(((long)1)); 
BgL_arg1555z00_2350 = 
PROCEDURE_REF(BGl_objectzd2printzd2envz00zz__objectz00, BgL_auxz00_7850); } 
{ /* ./Llib/object.scm 972 */
obj_t BgL_arrayz00_2352;int BgL_offsetz00_2353;
if(
VECTORP(BgL_arg1555z00_2350))
{ /* ./Llib/object.scm 972 */
BgL_arrayz00_2352 = BgL_arg1555z00_2350; }  else 
{ /* ./Llib/object.scm 972 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7981z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_2350, BGl_string7762z00zz__objectz00, 
BINT(((long)44609))); 
exit( -1 );} 
BgL_offsetz00_2353 = 
(int)(BgL_objzd2classzd2numz00_2349); 
{ /* ./Llib/object.scm 972 */
long BgL_offsetz00_2354;
{ /* ./Llib/object.scm 972 */
long BgL_auxz00_7859;
BgL_auxz00_7859 = 
(long)(BgL_offsetz00_2353); 
BgL_offsetz00_2354 = 
(BgL_auxz00_7859-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 972 */
long BgL_modz00_2355;
{ /* ./Llib/object.scm 972 */
int BgL_arg1289z00_2356;
BgL_arg1289z00_2356 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 972 */
long BgL_auxz00_7863;
BgL_auxz00_7863 = 
(long)(BgL_arg1289z00_2356); 
BgL_modz00_2355 = 
(BgL_offsetz00_2354/BgL_auxz00_7863); } } 
{ /* ./Llib/object.scm 972 */
long BgL_restz00_2357;
{ /* ./Llib/object.scm 972 */
int BgL_arg1285z00_2358;
BgL_arg1285z00_2358 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 972 */
long BgL_auxz00_7867;
BgL_auxz00_7867 = 
(long)(BgL_arg1285z00_2358); 
BgL_restz00_2357 = 
(BgL_offsetz00_2354%BgL_auxz00_7867); } } 
{ /* ./Llib/object.scm 972 */

{ /* ./Llib/object.scm 972 */
obj_t BgL_bucketz00_2359;
{ 
int BgL_auxz00_7870;
BgL_auxz00_7870 = 
(int)(BgL_modz00_2355); 
BgL_bucketz00_2359 = 
VECTOR_REF(BgL_arrayz00_2352,BgL_auxz00_7870); } 
{ /* ./Llib/object.scm 972 */
obj_t BgL_vectorz00_2370;int BgL_kz00_2371;
if(
VECTORP(BgL_bucketz00_2359))
{ /* ./Llib/object.scm 972 */
BgL_vectorz00_2370 = BgL_bucketz00_2359; }  else 
{ /* ./Llib/object.scm 972 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7981z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_2359, BGl_string7762z00zz__objectz00, 
BINT(((long)44609))); 
exit( -1 );} 
BgL_kz00_2371 = 
(int)(BgL_restz00_2357); 
{ /* ./Llib/object.scm 972 */
obj_t BgL_aux6822z00_3528;
BgL_aux6822z00_3528 = 
VECTOR_REF(BgL_vectorz00_2370,BgL_kz00_2371); 
if(
PROCEDUREP(BgL_aux6822z00_3528))
{ /* ./Llib/object.scm 972 */
BgL_method1039z00_2347 = BgL_aux6822z00_3528; }  else 
{ /* ./Llib/object.scm 972 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7981z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux6822z00_3528, BGl_string7762z00zz__objectz00, 
BINT(((long)44609))); 
exit( -1 );} } } } } } } } } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1039z00_2347, ((long)3)))
{ /* ./Llib/object.scm 972 */
BgL_aux2903z00_2721 = 
PROCEDURE_ENTRY(BgL_method1039z00_2347)(BgL_method1039z00_2347, 
(obj_t)(BgL_objz00_122), BgL_portz00_2346, BGl_writezd2envzd2zz__r4_output_6_10_3z00, BEOA); }  else 
{ /* ./Llib/object.scm 972 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7982z00zz__objectz00, BGl_list7983z00zz__objectz00, BgL_method1039z00_2347, BGl_string7762z00zz__objectz00, 
BINT(((long)44609))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } } } 
POP_TRACE(); 
return BgL_aux2903z00_2721;} } } } 
}



/* _object-write-default1030 */
obj_t BGl__objectzd2writezd2default1030z00zz__objectz00(obj_t BgL_envz00_2904, obj_t BgL_objz00_2905, obj_t BgL_portz00_2906)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 972 */
BgL_objectz00_bglt BgL_auxz00_7894;
{ /* ./Llib/object.scm 972 */
bool_t BgL_testz00_7895;
{ /* ./Llib/object.scm 972 */
bool_t BgL_res8077z00_3956;
{ /* ./Llib/object.scm 972 */
obj_t BgL_symbol2772z00_3954;
BgL_symbol2772z00_3954 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 972 */

PUSH_TRACE(BgL_symbol2772z00_3954); BUNSPEC; 
{ /* ./Llib/object.scm 972 */
bool_t BgL_aux2771z00_3955;
BgL_aux2771z00_3955 = 
BGL_OBJECTP(BgL_objz00_2905); 
POP_TRACE(); 
BgL_res8077z00_3956 = BgL_aux2771z00_3955; } } } 
BgL_testz00_7895 = BgL_res8077z00_3956; } 
if(BgL_testz00_7895)
{ /* ./Llib/object.scm 972 */
BgL_auxz00_7894 = 
(BgL_objectz00_bglt)(BgL_objz00_2905)
; }  else 
{ /* ./Llib/object.scm 972 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7985z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2905, BGl_string7762z00zz__objectz00, 
BINT(((long)44609))); 
exit( -1 );} } 
return 
BGl_objectzd2writezd2default1030z00zz__objectz00(BgL_auxz00_7894, BgL_portz00_2906);} } 
}



/* object->struct */
BGL_EXPORTED_DEF obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt BgL_objectz00_124)
{ AN_OBJECT;
{ /* ./Llib/object.scm 978 */
{ /* ./Llib/object.scm 978 */
obj_t BgL_method1033z00_2372;
{ /* ./Llib/object.scm 978 */
long BgL_objzd2classzd2numz00_2374;
BgL_objzd2classzd2numz00_2374 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_124); 
{ /* ./Llib/object.scm 978 */
obj_t BgL_arg1555z00_2375;
{ /* ./Llib/object.scm 978 */
int BgL_auxz00_7905;
BgL_auxz00_7905 = 
(int)(((long)1)); 
BgL_arg1555z00_2375 = 
PROCEDURE_REF(BGl_objectzd2ze3structzd2envze3zz__objectz00, BgL_auxz00_7905); } 
{ /* ./Llib/object.scm 978 */
obj_t BgL_arrayz00_2377;int BgL_offsetz00_2378;
if(
VECTORP(BgL_arg1555z00_2375))
{ /* ./Llib/object.scm 978 */
BgL_arrayz00_2377 = BgL_arg1555z00_2375; }  else 
{ /* ./Llib/object.scm 978 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7986z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_2375, BGl_string7762z00zz__objectz00, 
BINT(((long)44922))); 
exit( -1 );} 
BgL_offsetz00_2378 = 
(int)(BgL_objzd2classzd2numz00_2374); 
{ /* ./Llib/object.scm 978 */
long BgL_offsetz00_2379;
{ /* ./Llib/object.scm 978 */
long BgL_auxz00_7914;
BgL_auxz00_7914 = 
(long)(BgL_offsetz00_2378); 
BgL_offsetz00_2379 = 
(BgL_auxz00_7914-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 978 */
long BgL_modz00_2380;
{ /* ./Llib/object.scm 978 */
int BgL_arg1289z00_2381;
BgL_arg1289z00_2381 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 978 */
long BgL_auxz00_7918;
BgL_auxz00_7918 = 
(long)(BgL_arg1289z00_2381); 
BgL_modz00_2380 = 
(BgL_offsetz00_2379/BgL_auxz00_7918); } } 
{ /* ./Llib/object.scm 978 */
long BgL_restz00_2382;
{ /* ./Llib/object.scm 978 */
int BgL_arg1285z00_2383;
BgL_arg1285z00_2383 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 978 */
long BgL_auxz00_7922;
BgL_auxz00_7922 = 
(long)(BgL_arg1285z00_2383); 
BgL_restz00_2382 = 
(BgL_offsetz00_2379%BgL_auxz00_7922); } } 
{ /* ./Llib/object.scm 978 */

{ /* ./Llib/object.scm 978 */
obj_t BgL_bucketz00_2384;
{ 
int BgL_auxz00_7925;
BgL_auxz00_7925 = 
(int)(BgL_modz00_2380); 
BgL_bucketz00_2384 = 
VECTOR_REF(BgL_arrayz00_2377,BgL_auxz00_7925); } 
{ /* ./Llib/object.scm 978 */
obj_t BgL_vectorz00_2395;int BgL_kz00_2396;
if(
VECTORP(BgL_bucketz00_2384))
{ /* ./Llib/object.scm 978 */
BgL_vectorz00_2395 = BgL_bucketz00_2384; }  else 
{ /* ./Llib/object.scm 978 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7986z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_2384, BGl_string7762z00zz__objectz00, 
BINT(((long)44922))); 
exit( -1 );} 
BgL_kz00_2396 = 
(int)(BgL_restz00_2382); 
{ /* ./Llib/object.scm 978 */
obj_t BgL_aux6880z00_3539;
BgL_aux6880z00_3539 = 
VECTOR_REF(BgL_vectorz00_2395,BgL_kz00_2396); 
if(
PROCEDUREP(BgL_aux6880z00_3539))
{ /* ./Llib/object.scm 978 */
BgL_method1033z00_2372 = BgL_aux6880z00_3539; }  else 
{ /* ./Llib/object.scm 978 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7986z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux6880z00_3539, BGl_string7762z00zz__objectz00, 
BINT(((long)44922))); 
exit( -1 );} } } } } } } } } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1033z00_2372, ((long)1)))
{ /* ./Llib/object.scm 978 */
obj_t BgL_aux6892z00_3542;
BgL_aux6892z00_3542 = 
PROCEDURE_ENTRY(BgL_method1033z00_2372)(BgL_method1033z00_2372, 
(obj_t)(BgL_objectz00_124), BEOA); 
if(
STRUCTP(BgL_aux6892z00_3542))
{ /* ./Llib/object.scm 978 */
return BgL_aux6892z00_3542;}  else 
{ /* ./Llib/object.scm 978 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7986z00zz__objectz00, BGl_string7906z00zz__objectz00, BgL_aux6892z00_3542, BGl_string7762z00zz__objectz00, 
BINT(((long)44922))); 
exit( -1 );} }  else 
{ /* ./Llib/object.scm 978 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7987z00zz__objectz00, BGl_list7988z00zz__objectz00, BgL_method1033z00_2372, BGl_string7762z00zz__objectz00, 
BINT(((long)44922))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } } 
}



/* _object->struct */
obj_t BGl__objectzd2ze3structz31zz__objectz00(obj_t BgL_envz00_2907, obj_t BgL_objectz00_2908)
{ AN_OBJECT;
{ /* ./Llib/object.scm 978 */
{ /* ./Llib/object.scm 978 */
BgL_objectz00_bglt BgL_auxz00_7953;
{ /* ./Llib/object.scm 978 */
bool_t BgL_testz00_7954;
{ /* ./Llib/object.scm 978 */
bool_t BgL_res8078z00_3960;
{ /* ./Llib/object.scm 978 */
obj_t BgL_symbol2772z00_3958;
BgL_symbol2772z00_3958 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 978 */

PUSH_TRACE(BgL_symbol2772z00_3958); BUNSPEC; 
{ /* ./Llib/object.scm 978 */
bool_t BgL_aux2771z00_3959;
BgL_aux2771z00_3959 = 
BGL_OBJECTP(BgL_objectz00_2908); 
POP_TRACE(); 
BgL_res8078z00_3960 = BgL_aux2771z00_3959; } } } 
BgL_testz00_7954 = BgL_res8078z00_3960; } 
if(BgL_testz00_7954)
{ /* ./Llib/object.scm 978 */
BgL_auxz00_7953 = 
(BgL_objectz00_bglt)(BgL_objectz00_2908)
; }  else 
{ /* ./Llib/object.scm 978 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7990z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objectz00_2908, BGl_string7762z00zz__objectz00, 
BINT(((long)44922))); 
exit( -1 );} } 
return 
BGl_objectzd2ze3structz31zz__objectz00(BgL_auxz00_7953);} } 
}



/* object->struct-default1032 */
obj_t BGl_objectzd2ze3structzd2default1032ze3zz__objectz00(BgL_objectz00_bglt BgL_objectz00_125)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 17 */
obj_t BgL_symbol2908z00_2722;
BgL_symbol2908z00_2722 = BGl_symbol7991z00zz__objectz00; 
{ /* ./Llib/object.scm 17 */

PUSH_TRACE(BgL_symbol2908z00_2722); BUNSPEC; 
{ /* ./Llib/object.scm 17 */
obj_t BgL_aux2907z00_2723;
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7992z00zz__objectz00, BGl_string7993z00zz__objectz00, 
(obj_t)(BgL_objectz00_125), "./Llib/object.scm", ((long)44981)); 
{ /* ./Llib/object.scm 17 */
obj_t BgL_aux6927z00_3548;
BgL_aux6927z00_3548 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)1112))); 
if(
STRUCTP(BgL_aux6927z00_3548))
{ /* ./Llib/object.scm 17 */
BgL_aux2907z00_2723 = BgL_aux6927z00_3548; }  else 
{ /* ./Llib/object.scm 17 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7991z00zz__objectz00, BGl_string7906z00zz__objectz00, BgL_aux6927z00_3548, BGl_string7762z00zz__objectz00, 
BINT(((long)1112))); 
exit( -1 );} } 
POP_TRACE(); 
return BgL_aux2907z00_2723;} } } } 
}



/* _object->struct-default1032 */
obj_t BGl__objectzd2ze3structzd2default1032ze3zz__objectz00(obj_t BgL_envz00_2909, obj_t BgL_objectz00_2910)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 17 */
BgL_objectz00_bglt BgL_auxz00_7974;
{ /* ./Llib/object.scm 17 */
bool_t BgL_testz00_7975;
{ /* ./Llib/object.scm 17 */
bool_t BgL_res8079z00_3964;
{ /* ./Llib/object.scm 17 */
obj_t BgL_symbol2772z00_3962;
BgL_symbol2772z00_3962 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 17 */

PUSH_TRACE(BgL_symbol2772z00_3962); BUNSPEC; 
{ /* ./Llib/object.scm 17 */
bool_t BgL_aux2771z00_3963;
BgL_aux2771z00_3963 = 
BGL_OBJECTP(BgL_objectz00_2910); 
POP_TRACE(); 
BgL_res8079z00_3964 = BgL_aux2771z00_3963; } } } 
BgL_testz00_7975 = BgL_res8079z00_3964; } 
if(BgL_testz00_7975)
{ /* ./Llib/object.scm 17 */
BgL_auxz00_7974 = 
(BgL_objectz00_bglt)(BgL_objectz00_2910)
; }  else 
{ /* ./Llib/object.scm 17 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7994z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objectz00_2910, BGl_string7762z00zz__objectz00, 
BINT(((long)1112))); 
exit( -1 );} } 
return 
BGl_objectzd2ze3structzd2default1032ze3zz__objectz00(BgL_auxz00_7974);} } 
}



/* struct+object->object */
BGL_EXPORTED_DEF BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt BgL_objectz00_126, obj_t BgL_structz00_127)
{ AN_OBJECT;
{ /* ./Llib/object.scm 984 */
{ /* ./Llib/object.scm 984 */
obj_t BgL_method1035z00_2400;
{ /* ./Llib/object.scm 984 */
long BgL_objzd2classzd2numz00_2402;
BgL_objzd2classzd2numz00_2402 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_126); 
{ /* ./Llib/object.scm 984 */
obj_t BgL_arg1555z00_2403;
{ /* ./Llib/object.scm 984 */
int BgL_auxz00_7985;
BgL_auxz00_7985 = 
(int)(((long)1)); 
BgL_arg1555z00_2403 = 
PROCEDURE_REF(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BgL_auxz00_7985); } 
{ /* ./Llib/object.scm 984 */
obj_t BgL_arrayz00_2405;int BgL_offsetz00_2406;
if(
VECTORP(BgL_arg1555z00_2403))
{ /* ./Llib/object.scm 984 */
BgL_arrayz00_2405 = BgL_arg1555z00_2403; }  else 
{ /* ./Llib/object.scm 984 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7995z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_2403, BGl_string7762z00zz__objectz00, 
BINT(((long)45270))); 
exit( -1 );} 
BgL_offsetz00_2406 = 
(int)(BgL_objzd2classzd2numz00_2402); 
{ /* ./Llib/object.scm 984 */
long BgL_offsetz00_2407;
{ /* ./Llib/object.scm 984 */
long BgL_auxz00_7994;
BgL_auxz00_7994 = 
(long)(BgL_offsetz00_2406); 
BgL_offsetz00_2407 = 
(BgL_auxz00_7994-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 984 */
long BgL_modz00_2408;
{ /* ./Llib/object.scm 984 */
int BgL_arg1289z00_2409;
BgL_arg1289z00_2409 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 984 */
long BgL_auxz00_7998;
BgL_auxz00_7998 = 
(long)(BgL_arg1289z00_2409); 
BgL_modz00_2408 = 
(BgL_offsetz00_2407/BgL_auxz00_7998); } } 
{ /* ./Llib/object.scm 984 */
long BgL_restz00_2410;
{ /* ./Llib/object.scm 984 */
int BgL_arg1285z00_2411;
BgL_arg1285z00_2411 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 984 */
long BgL_auxz00_8002;
BgL_auxz00_8002 = 
(long)(BgL_arg1285z00_2411); 
BgL_restz00_2410 = 
(BgL_offsetz00_2407%BgL_auxz00_8002); } } 
{ /* ./Llib/object.scm 984 */

{ /* ./Llib/object.scm 984 */
obj_t BgL_bucketz00_2412;
{ 
int BgL_auxz00_8005;
BgL_auxz00_8005 = 
(int)(BgL_modz00_2408); 
BgL_bucketz00_2412 = 
VECTOR_REF(BgL_arrayz00_2405,BgL_auxz00_8005); } 
{ /* ./Llib/object.scm 984 */
obj_t BgL_vectorz00_2423;int BgL_kz00_2424;
if(
VECTORP(BgL_bucketz00_2412))
{ /* ./Llib/object.scm 984 */
BgL_vectorz00_2423 = BgL_bucketz00_2412; }  else 
{ /* ./Llib/object.scm 984 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7995z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_2412, BGl_string7762z00zz__objectz00, 
BINT(((long)45270))); 
exit( -1 );} 
BgL_kz00_2424 = 
(int)(BgL_restz00_2410); 
{ /* ./Llib/object.scm 984 */
obj_t BgL_aux6977z00_3556;
BgL_aux6977z00_3556 = 
VECTOR_REF(BgL_vectorz00_2423,BgL_kz00_2424); 
if(
PROCEDUREP(BgL_aux6977z00_3556))
{ /* ./Llib/object.scm 984 */
BgL_method1035z00_2400 = BgL_aux6977z00_3556; }  else 
{ /* ./Llib/object.scm 984 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7995z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux6977z00_3556, BGl_string7762z00zz__objectz00, 
BINT(((long)45270))); 
exit( -1 );} } } } } } } } } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1035z00_2400, ((long)2)))
{ /* ./Llib/object.scm 984 */
obj_t BgL_aux6989z00_3559;
BgL_aux6989z00_3559 = 
PROCEDURE_ENTRY(BgL_method1035z00_2400)(BgL_method1035z00_2400, 
(obj_t)(BgL_objectz00_126), BgL_structz00_127, BEOA); 
{ /* ./Llib/object.scm 984 */
bool_t BgL_testz00_8025;
{ /* ./Llib/object.scm 984 */
bool_t BgL_res8080z00_3968;
{ /* ./Llib/object.scm 984 */
obj_t BgL_symbol2772z00_3966;
BgL_symbol2772z00_3966 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 984 */

PUSH_TRACE(BgL_symbol2772z00_3966); BUNSPEC; 
{ /* ./Llib/object.scm 984 */
bool_t BgL_aux2771z00_3967;
BgL_aux2771z00_3967 = 
BGL_OBJECTP(BgL_aux6989z00_3559); 
POP_TRACE(); 
BgL_res8080z00_3968 = BgL_aux2771z00_3967; } } } 
BgL_testz00_8025 = BgL_res8080z00_3968; } 
if(BgL_testz00_8025)
{ /* ./Llib/object.scm 984 */
return 
(BgL_objectz00_bglt)(BgL_aux6989z00_3559);}  else 
{ /* ./Llib/object.scm 984 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7995z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_aux6989z00_3559, BGl_string7762z00zz__objectz00, 
BINT(((long)45270))); 
exit( -1 );} } }  else 
{ /* ./Llib/object.scm 984 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string7996z00zz__objectz00, BGl_list7899z00zz__objectz00, BgL_method1035z00_2400, BGl_string7762z00zz__objectz00, 
BINT(((long)45270))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } } 
}



/* _struct+object->object */
obj_t BGl__structzb2objectzd2ze3objectz83zz__objectz00(obj_t BgL_envz00_2861, obj_t BgL_objectz00_2862, obj_t BgL_structz00_2863)
{ AN_OBJECT;
{ /* ./Llib/object.scm 984 */
{ /* ./Llib/object.scm 984 */
BgL_objectz00_bglt BgL_auxz00_8036;
{ /* ./Llib/object.scm 984 */
obj_t BgL_auxz00_8046;BgL_objectz00_bglt BgL_auxz00_8037;
if(
STRUCTP(BgL_structz00_2863))
{ /* ./Llib/object.scm 984 */
BgL_auxz00_8046 = BgL_structz00_2863
; }  else 
{ /* ./Llib/object.scm 984 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7997z00zz__objectz00, BGl_string7906z00zz__objectz00, BgL_structz00_2863, BGl_string7762z00zz__objectz00, 
BINT(((long)45270))); 
exit( -1 );} 
{ /* ./Llib/object.scm 984 */
bool_t BgL_testz00_8038;
{ /* ./Llib/object.scm 984 */
bool_t BgL_res8081z00_3972;
{ /* ./Llib/object.scm 984 */
obj_t BgL_symbol2772z00_3970;
BgL_symbol2772z00_3970 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 984 */

PUSH_TRACE(BgL_symbol2772z00_3970); BUNSPEC; 
{ /* ./Llib/object.scm 984 */
bool_t BgL_aux2771z00_3971;
BgL_aux2771z00_3971 = 
BGL_OBJECTP(BgL_objectz00_2862); 
POP_TRACE(); 
BgL_res8081z00_3972 = BgL_aux2771z00_3971; } } } 
BgL_testz00_8038 = BgL_res8081z00_3972; } 
if(BgL_testz00_8038)
{ /* ./Llib/object.scm 984 */
BgL_auxz00_8037 = 
(BgL_objectz00_bglt)(BgL_objectz00_2862)
; }  else 
{ /* ./Llib/object.scm 984 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7997z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objectz00_2862, BGl_string7762z00zz__objectz00, 
BINT(((long)45270))); 
exit( -1 );} } 
BgL_auxz00_8036 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_auxz00_8037, BgL_auxz00_8046); } 
return 
(obj_t)(BgL_auxz00_8036);} } 
}



/* struct+object->object-default1034 */
BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectzd2default1034z51zz__objectz00(BgL_objectz00_bglt BgL_objectz00_128, obj_t BgL_structz00_129)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 17 */
obj_t BgL_symbol2912z00_2724;
BgL_symbol2912z00_2724 = BGl_symbol7998z00zz__objectz00; 
{ /* ./Llib/object.scm 17 */

PUSH_TRACE(BgL_symbol2912z00_2724); BUNSPEC; 
{ /* ./Llib/object.scm 17 */
BgL_objectz00_bglt BgL_aux2911z00_2725;
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7999z00zz__objectz00, BGl_string8000z00zz__objectz00, BgL_structz00_129, "./Llib/object.scm", ((long)45351)); 
{ /* ./Llib/object.scm 17 */
obj_t BgL_aux7035z00_3567;
BgL_aux7035z00_3567 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)1112))); 
{ /* ./Llib/object.scm 17 */
bool_t BgL_testz00_8058;
{ /* ./Llib/object.scm 17 */
bool_t BgL_res8082z00_3976;
{ /* ./Llib/object.scm 17 */
obj_t BgL_symbol2772z00_3974;
BgL_symbol2772z00_3974 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 17 */

PUSH_TRACE(BgL_symbol2772z00_3974); BUNSPEC; 
{ /* ./Llib/object.scm 17 */
bool_t BgL_aux2771z00_3975;
BgL_aux2771z00_3975 = 
BGL_OBJECTP(BgL_aux7035z00_3567); 
POP_TRACE(); 
BgL_res8082z00_3976 = BgL_aux2771z00_3975; } } } 
BgL_testz00_8058 = BgL_res8082z00_3976; } 
if(BgL_testz00_8058)
{ /* ./Llib/object.scm 17 */
BgL_aux2911z00_2725 = 
(BgL_objectz00_bglt)(BgL_aux7035z00_3567); }  else 
{ /* ./Llib/object.scm 17 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol7998z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_aux7035z00_3567, BGl_string7762z00zz__objectz00, 
BINT(((long)1112))); 
exit( -1 );} } } 
POP_TRACE(); 
return BgL_aux2911z00_2725;} } } } 
}



/* _struct+object->object-default1034 */
obj_t BGl__structzb2objectzd2ze3objectzd2default1034z51zz__objectz00(obj_t BgL_envz00_2911, obj_t BgL_objectz00_2912, obj_t BgL_structz00_2913)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 17 */
BgL_objectz00_bglt BgL_auxz00_8067;
{ /* ./Llib/object.scm 17 */
obj_t BgL_auxz00_8077;BgL_objectz00_bglt BgL_auxz00_8068;
if(
STRUCTP(BgL_structz00_2913))
{ /* ./Llib/object.scm 17 */
BgL_auxz00_8077 = BgL_structz00_2913
; }  else 
{ /* ./Llib/object.scm 17 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8001z00zz__objectz00, BGl_string7906z00zz__objectz00, BgL_structz00_2913, BGl_string7762z00zz__objectz00, 
BINT(((long)1112))); 
exit( -1 );} 
{ /* ./Llib/object.scm 17 */
bool_t BgL_testz00_8069;
{ /* ./Llib/object.scm 17 */
bool_t BgL_res8083z00_3980;
{ /* ./Llib/object.scm 17 */
obj_t BgL_symbol2772z00_3978;
BgL_symbol2772z00_3978 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 17 */

PUSH_TRACE(BgL_symbol2772z00_3978); BUNSPEC; 
{ /* ./Llib/object.scm 17 */
bool_t BgL_aux2771z00_3979;
BgL_aux2771z00_3979 = 
BGL_OBJECTP(BgL_objectz00_2912); 
POP_TRACE(); 
BgL_res8083z00_3980 = BgL_aux2771z00_3979; } } } 
BgL_testz00_8069 = BgL_res8083z00_3980; } 
if(BgL_testz00_8069)
{ /* ./Llib/object.scm 17 */
BgL_auxz00_8068 = 
(BgL_objectz00_bglt)(BgL_objectz00_2912)
; }  else 
{ /* ./Llib/object.scm 17 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8001z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objectz00_2912, BGl_string7762z00zz__objectz00, 
BINT(((long)1112))); 
exit( -1 );} } 
BgL_auxz00_8067 = 
BGl_structzb2objectzd2ze3objectzd2default1034z51zz__objectz00(BgL_auxz00_8068, BgL_auxz00_8077); } 
return 
(obj_t)(BgL_auxz00_8067);} } 
}



/* object-hashnumber */
BGL_EXPORTED_DEF int BGl_objectzd2hashnumberzd2zz__objectz00(BgL_objectz00_bglt BgL_objectz00_130)
{ AN_OBJECT;
{ /* ./Llib/object.scm 990 */
{ /* ./Llib/object.scm 990 */
obj_t BgL_symbol2916z00_2726;
BgL_symbol2916z00_2726 = BGl_symbol8002z00zz__objectz00; 
{ /* ./Llib/object.scm 990 */

PUSH_TRACE(BgL_symbol2916z00_2726); BUNSPEC; 
{ /* ./Llib/object.scm 990 */
int BgL_aux2915z00_2727;
{ /* ./Llib/object.scm 990 */
obj_t BgL_method1037z00_2428;
{ /* ./Llib/object.scm 990 */
long BgL_objzd2classzd2numz00_2430;
BgL_objzd2classzd2numz00_2430 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_130); 
{ /* ./Llib/object.scm 990 */
obj_t BgL_arg1555z00_2431;
{ /* ./Llib/object.scm 990 */
int BgL_auxz00_8087;
BgL_auxz00_8087 = 
(int)(((long)1)); 
BgL_arg1555z00_2431 = 
PROCEDURE_REF(BGl_objectzd2hashnumberzd2envz00zz__objectz00, BgL_auxz00_8087); } 
{ /* ./Llib/object.scm 990 */
obj_t BgL_arrayz00_2433;int BgL_offsetz00_2434;
if(
VECTORP(BgL_arg1555z00_2431))
{ /* ./Llib/object.scm 990 */
BgL_arrayz00_2433 = BgL_arg1555z00_2431; }  else 
{ /* ./Llib/object.scm 990 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8002z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_2431, BGl_string7762z00zz__objectz00, 
BINT(((long)45650))); 
exit( -1 );} 
BgL_offsetz00_2434 = 
(int)(BgL_objzd2classzd2numz00_2430); 
{ /* ./Llib/object.scm 990 */
long BgL_offsetz00_2435;
{ /* ./Llib/object.scm 990 */
long BgL_auxz00_8096;
BgL_auxz00_8096 = 
(long)(BgL_offsetz00_2434); 
BgL_offsetz00_2435 = 
(BgL_auxz00_8096-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 990 */
long BgL_modz00_2436;
{ /* ./Llib/object.scm 990 */
int BgL_arg1289z00_2437;
BgL_arg1289z00_2437 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 990 */
long BgL_auxz00_8100;
BgL_auxz00_8100 = 
(long)(BgL_arg1289z00_2437); 
BgL_modz00_2436 = 
(BgL_offsetz00_2435/BgL_auxz00_8100); } } 
{ /* ./Llib/object.scm 990 */
long BgL_restz00_2438;
{ /* ./Llib/object.scm 990 */
int BgL_arg1285z00_2439;
BgL_arg1285z00_2439 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 990 */
long BgL_auxz00_8104;
BgL_auxz00_8104 = 
(long)(BgL_arg1285z00_2439); 
BgL_restz00_2438 = 
(BgL_offsetz00_2435%BgL_auxz00_8104); } } 
{ /* ./Llib/object.scm 990 */

{ /* ./Llib/object.scm 990 */
obj_t BgL_bucketz00_2440;
{ 
int BgL_auxz00_8107;
BgL_auxz00_8107 = 
(int)(BgL_modz00_2436); 
BgL_bucketz00_2440 = 
VECTOR_REF(BgL_arrayz00_2433,BgL_auxz00_8107); } 
{ /* ./Llib/object.scm 990 */
obj_t BgL_vectorz00_2451;int BgL_kz00_2452;
if(
VECTORP(BgL_bucketz00_2440))
{ /* ./Llib/object.scm 990 */
BgL_vectorz00_2451 = BgL_bucketz00_2440; }  else 
{ /* ./Llib/object.scm 990 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8002z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_2440, BGl_string7762z00zz__objectz00, 
BINT(((long)45650))); 
exit( -1 );} 
BgL_kz00_2452 = 
(int)(BgL_restz00_2438); 
{ /* ./Llib/object.scm 990 */
obj_t BgL_aux7097z00_3577;
BgL_aux7097z00_3577 = 
VECTOR_REF(BgL_vectorz00_2451,BgL_kz00_2452); 
if(
PROCEDUREP(BgL_aux7097z00_3577))
{ /* ./Llib/object.scm 990 */
BgL_method1037z00_2428 = BgL_aux7097z00_3577; }  else 
{ /* ./Llib/object.scm 990 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8002z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux7097z00_3577, BGl_string7762z00zz__objectz00, 
BINT(((long)45650))); 
exit( -1 );} } } } } } } } } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1037z00_2428, ((long)1)))
{ /* ./Llib/object.scm 990 */
obj_t BgL_auxz00_8124;
{ /* ./Llib/object.scm 990 */
obj_t BgL_aux7109z00_3580;
BgL_aux7109z00_3580 = 
PROCEDURE_ENTRY(BgL_method1037z00_2428)(BgL_method1037z00_2428, 
(obj_t)(BgL_objectz00_130), BEOA); 
if(
INTEGERP(BgL_aux7109z00_3580))
{ /* ./Llib/object.scm 990 */
BgL_auxz00_8124 = BgL_aux7109z00_3580
; }  else 
{ /* ./Llib/object.scm 990 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8002z00zz__objectz00, BGl_string7812z00zz__objectz00, BgL_aux7109z00_3580, BGl_string7762z00zz__objectz00, 
BINT(((long)45650))); 
exit( -1 );} } 
BgL_aux2915z00_2727 = 
CINT(BgL_auxz00_8124); }  else 
{ /* ./Llib/object.scm 990 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8003z00zz__objectz00, BGl_list8004z00zz__objectz00, BgL_method1037z00_2428, BGl_string7762z00zz__objectz00, 
BINT(((long)45650))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } 
POP_TRACE(); 
return BgL_aux2915z00_2727;} } } } 
}



/* _object-hashnumber */
obj_t BGl__objectzd2hashnumberzd2zz__objectz00(obj_t BgL_envz00_2914, obj_t BgL_objectz00_2915)
{ AN_OBJECT;
{ /* ./Llib/object.scm 990 */
{ /* ./Llib/object.scm 990 */
int BgL_auxz00_8138;
{ /* ./Llib/object.scm 990 */
BgL_objectz00_bglt BgL_auxz00_8139;
{ /* ./Llib/object.scm 990 */
bool_t BgL_testz00_8140;
{ /* ./Llib/object.scm 990 */
bool_t BgL_res8084z00_3984;
{ /* ./Llib/object.scm 990 */
obj_t BgL_symbol2772z00_3982;
BgL_symbol2772z00_3982 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 990 */

PUSH_TRACE(BgL_symbol2772z00_3982); BUNSPEC; 
{ /* ./Llib/object.scm 990 */
bool_t BgL_aux2771z00_3983;
BgL_aux2771z00_3983 = 
BGL_OBJECTP(BgL_objectz00_2915); 
POP_TRACE(); 
BgL_res8084z00_3984 = BgL_aux2771z00_3983; } } } 
BgL_testz00_8140 = BgL_res8084z00_3984; } 
if(BgL_testz00_8140)
{ /* ./Llib/object.scm 990 */
BgL_auxz00_8139 = 
(BgL_objectz00_bglt)(BgL_objectz00_2915)
; }  else 
{ /* ./Llib/object.scm 990 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8006z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objectz00_2915, BGl_string7762z00zz__objectz00, 
BINT(((long)45650))); 
exit( -1 );} } 
BgL_auxz00_8138 = 
BGl_objectzd2hashnumberzd2zz__objectz00(BgL_auxz00_8139); } 
return 
BINT(BgL_auxz00_8138);} } 
}



/* object-hashnumber-default1036 */
int BGl_objectzd2hashnumberzd2default1036z00zz__objectz00(BgL_objectz00_bglt BgL_objectz00_131)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 991 */
obj_t BgL_symbol2920z00_2728;
BgL_symbol2920z00_2728 = BGl_symbol8007z00zz__objectz00; 
{ /* ./Llib/object.scm 991 */

PUSH_TRACE(BgL_symbol2920z00_2728); BUNSPEC; 
{ /* ./Llib/object.scm 991 */
int BgL_aux2919z00_2729;
{ /* ./Llib/object.scm 991 */
obj_t BgL_auxz00_8151;
BgL_auxz00_8151 = 
(obj_t)(BgL_objectz00_131); 
BgL_aux2919z00_2729 = 
bgl_obj_hash_number(BgL_auxz00_8151); } 
POP_TRACE(); 
return BgL_aux2919z00_2729;} } } } 
}



/* _object-hashnumber-default1036 */
obj_t BGl__objectzd2hashnumberzd2default1036z00zz__objectz00(obj_t BgL_envz00_2916, obj_t BgL_objectz00_2917)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 991 */
int BgL_auxz00_8155;
{ /* ./Llib/object.scm 991 */
BgL_objectz00_bglt BgL_auxz00_8156;
{ /* ./Llib/object.scm 991 */
bool_t BgL_testz00_8157;
{ /* ./Llib/object.scm 991 */
bool_t BgL_res8085z00_3988;
{ /* ./Llib/object.scm 991 */
obj_t BgL_symbol2772z00_3986;
BgL_symbol2772z00_3986 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 991 */

PUSH_TRACE(BgL_symbol2772z00_3986); BUNSPEC; 
{ /* ./Llib/object.scm 991 */
bool_t BgL_aux2771z00_3987;
BgL_aux2771z00_3987 = 
BGL_OBJECTP(BgL_objectz00_2917); 
POP_TRACE(); 
BgL_res8085z00_3988 = BgL_aux2771z00_3987; } } } 
BgL_testz00_8157 = BgL_res8085z00_3988; } 
if(BgL_testz00_8157)
{ /* ./Llib/object.scm 991 */
BgL_auxz00_8156 = 
(BgL_objectz00_bglt)(BgL_objectz00_2917)
; }  else 
{ /* ./Llib/object.scm 991 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8008z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objectz00_2917, BGl_string7762z00zz__objectz00, 
BINT(((long)45709))); 
exit( -1 );} } 
BgL_auxz00_8155 = 
BGl_objectzd2hashnumberzd2default1036z00zz__objectz00(BgL_auxz00_8156); } 
return 
BINT(BgL_auxz00_8155);} } 
}



/* object-print */
BGL_EXPORTED_DEF obj_t BGl_objectzd2printzd2zz__objectz00(BgL_objectz00_bglt BgL_objz00_135, obj_t BgL_portz00_136, obj_t BgL_printzd2slotzd2_137)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1020 */
{ /* ./Llib/object.scm 1020 */
obj_t BgL_symbol2924z00_2730;
BgL_symbol2924z00_2730 = BGl_symbol8009z00zz__objectz00; 
{ /* ./Llib/object.scm 1020 */

PUSH_TRACE(BgL_symbol2924z00_2730); BUNSPEC; 
{ /* ./Llib/object.scm 1020 */
obj_t BgL_aux2923z00_2731;
{ /* ./Llib/object.scm 1020 */
obj_t BgL_method1039z00_2453;
{ /* ./Llib/object.scm 1020 */
long BgL_objzd2classzd2numz00_2455;
BgL_objzd2classzd2numz00_2455 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_135); 
{ /* ./Llib/object.scm 1020 */
obj_t BgL_arg1555z00_2456;
{ /* ./Llib/object.scm 1020 */
int BgL_auxz00_8169;
BgL_auxz00_8169 = 
(int)(((long)1)); 
BgL_arg1555z00_2456 = 
PROCEDURE_REF(BGl_objectzd2printzd2envz00zz__objectz00, BgL_auxz00_8169); } 
{ /* ./Llib/object.scm 1020 */
obj_t BgL_arrayz00_2458;int BgL_offsetz00_2459;
if(
VECTORP(BgL_arg1555z00_2456))
{ /* ./Llib/object.scm 1020 */
BgL_arrayz00_2458 = BgL_arg1555z00_2456; }  else 
{ /* ./Llib/object.scm 1020 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8009z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_2456, BGl_string7762z00zz__objectz00, 
BINT(((long)47135))); 
exit( -1 );} 
BgL_offsetz00_2459 = 
(int)(BgL_objzd2classzd2numz00_2455); 
{ /* ./Llib/object.scm 1020 */
long BgL_offsetz00_2460;
{ /* ./Llib/object.scm 1020 */
long BgL_auxz00_8178;
BgL_auxz00_8178 = 
(long)(BgL_offsetz00_2459); 
BgL_offsetz00_2460 = 
(BgL_auxz00_8178-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 1020 */
long BgL_modz00_2461;
{ /* ./Llib/object.scm 1020 */
int BgL_arg1289z00_2462;
BgL_arg1289z00_2462 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 1020 */
long BgL_auxz00_8182;
BgL_auxz00_8182 = 
(long)(BgL_arg1289z00_2462); 
BgL_modz00_2461 = 
(BgL_offsetz00_2460/BgL_auxz00_8182); } } 
{ /* ./Llib/object.scm 1020 */
long BgL_restz00_2463;
{ /* ./Llib/object.scm 1020 */
int BgL_arg1285z00_2464;
BgL_arg1285z00_2464 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 1020 */
long BgL_auxz00_8186;
BgL_auxz00_8186 = 
(long)(BgL_arg1285z00_2464); 
BgL_restz00_2463 = 
(BgL_offsetz00_2460%BgL_auxz00_8186); } } 
{ /* ./Llib/object.scm 1020 */

{ /* ./Llib/object.scm 1020 */
obj_t BgL_bucketz00_2465;
{ 
int BgL_auxz00_8189;
BgL_auxz00_8189 = 
(int)(BgL_modz00_2461); 
BgL_bucketz00_2465 = 
VECTOR_REF(BgL_arrayz00_2458,BgL_auxz00_8189); } 
{ /* ./Llib/object.scm 1020 */
obj_t BgL_vectorz00_2476;int BgL_kz00_2477;
if(
VECTORP(BgL_bucketz00_2465))
{ /* ./Llib/object.scm 1020 */
BgL_vectorz00_2476 = BgL_bucketz00_2465; }  else 
{ /* ./Llib/object.scm 1020 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8009z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_2465, BGl_string7762z00zz__objectz00, 
BINT(((long)47135))); 
exit( -1 );} 
BgL_kz00_2477 = 
(int)(BgL_restz00_2463); 
{ /* ./Llib/object.scm 1020 */
obj_t BgL_aux7180z00_3592;
BgL_aux7180z00_3592 = 
VECTOR_REF(BgL_vectorz00_2476,BgL_kz00_2477); 
if(
PROCEDUREP(BgL_aux7180z00_3592))
{ /* ./Llib/object.scm 1020 */
BgL_method1039z00_2453 = BgL_aux7180z00_3592; }  else 
{ /* ./Llib/object.scm 1020 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8009z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux7180z00_3592, BGl_string7762z00zz__objectz00, 
BINT(((long)47135))); 
exit( -1 );} } } } } } } } } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1039z00_2453, ((long)3)))
{ /* ./Llib/object.scm 1020 */
BgL_aux2923z00_2731 = 
PROCEDURE_ENTRY(BgL_method1039z00_2453)(BgL_method1039z00_2453, 
(obj_t)(BgL_objz00_135), BgL_portz00_136, BgL_printzd2slotzd2_137, BEOA); }  else 
{ /* ./Llib/object.scm 1020 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8010z00zz__objectz00, BGl_list8011z00zz__objectz00, BgL_method1039z00_2453, BGl_string7762z00zz__objectz00, 
BINT(((long)47135))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } 
POP_TRACE(); 
return BgL_aux2923z00_2731;} } } } 
}



/* _object-print */
obj_t BGl__objectzd2printzd2zz__objectz00(obj_t BgL_envz00_2918, obj_t BgL_objz00_2919, obj_t BgL_portz00_2920, obj_t BgL_printzd2slotzd2_2921)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1020 */
{ /* ./Llib/object.scm 1020 */
obj_t BgL_auxz00_8228;obj_t BgL_auxz00_8222;BgL_objectz00_bglt BgL_auxz00_8213;
if(
PROCEDUREP(BgL_printzd2slotzd2_2921))
{ /* ./Llib/object.scm 1020 */
BgL_auxz00_8228 = BgL_printzd2slotzd2_2921
; }  else 
{ /* ./Llib/object.scm 1020 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8013z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_printzd2slotzd2_2921, BGl_string7762z00zz__objectz00, 
BINT(((long)47135))); 
exit( -1 );} 
if(
OUTPUT_PORTP(BgL_portz00_2920))
{ /* ./Llib/object.scm 1020 */
BgL_auxz00_8222 = BgL_portz00_2920
; }  else 
{ /* ./Llib/object.scm 1020 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8013z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_2920, BGl_string7762z00zz__objectz00, 
BINT(((long)47135))); 
exit( -1 );} 
{ /* ./Llib/object.scm 1020 */
bool_t BgL_testz00_8214;
{ /* ./Llib/object.scm 1020 */
bool_t BgL_res8086z00_3992;
{ /* ./Llib/object.scm 1020 */
obj_t BgL_symbol2772z00_3990;
BgL_symbol2772z00_3990 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1020 */

PUSH_TRACE(BgL_symbol2772z00_3990); BUNSPEC; 
{ /* ./Llib/object.scm 1020 */
bool_t BgL_aux2771z00_3991;
BgL_aux2771z00_3991 = 
BGL_OBJECTP(BgL_objz00_2919); 
POP_TRACE(); 
BgL_res8086z00_3992 = BgL_aux2771z00_3991; } } } 
BgL_testz00_8214 = BgL_res8086z00_3992; } 
if(BgL_testz00_8214)
{ /* ./Llib/object.scm 1020 */
BgL_auxz00_8213 = 
(BgL_objectz00_bglt)(BgL_objz00_2919)
; }  else 
{ /* ./Llib/object.scm 1020 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8013z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2919, BGl_string7762z00zz__objectz00, 
BINT(((long)47135))); 
exit( -1 );} } 
return 
BGl_objectzd2printzd2zz__objectz00(BgL_auxz00_8213, BgL_auxz00_8222, BgL_auxz00_8228);} } 
}



/* object-print-default1038 */
obj_t BGl_objectzd2printzd2default1038z00zz__objectz00(BgL_objectz00_bglt BgL_objz00_138, obj_t BgL_portz00_139, obj_t BgL_printzd2slotzd2_140)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 1043 */
obj_t BgL_symbol2928z00_2732;
BgL_symbol2928z00_2732 = BGl_symbol8014z00zz__objectz00; 
{ /* ./Llib/object.scm 1043 */

PUSH_TRACE(BgL_symbol2928z00_2732); BUNSPEC; 
{ /* ./Llib/object.scm 1043 */
obj_t BgL_aux2927z00_2733;
{ 
obj_t BgL_fieldz00_862;
{ /* ./Llib/object.scm 1044 */
obj_t BgL_classz00_848;
{ /* ./Llib/object.scm 1044 */
long BgL_arg1268z00_2479;
{ /* ./Llib/object.scm 1044 */
long BgL_arg1273z00_2480;
BgL_arg1273z00_2480 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_138); 
BgL_arg1268z00_2479 = 
(BgL_arg1273z00_2480-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 1044 */
obj_t BgL_vectorz00_2484;int BgL_kz00_2485;
{ /* ./Llib/object.scm 1044 */
obj_t BgL_aux7355z00_3634;
BgL_aux7355z00_3634 = BGl_za2classesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux7355z00_3634))
{ /* ./Llib/object.scm 1044 */
BgL_vectorz00_2484 = BgL_aux7355z00_3634; }  else 
{ /* ./Llib/object.scm 1044 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux7355z00_3634, BGl_string7762z00zz__objectz00, 
BINT(((long)47952))); 
exit( -1 );} } 
BgL_kz00_2485 = 
(int)(BgL_arg1268z00_2479); 
BgL_classz00_848 = 
VECTOR_REF(BgL_vectorz00_2484,BgL_kz00_2485); } } 
{ /* ./Llib/object.scm 1044 */
obj_t BgL_classzd2namezd2_849;
{ /* ./Llib/object.scm 1045 */
obj_t BgL_res2669z00_2495;
{ /* ./Llib/object.scm 1045 */
obj_t BgL_vectorz00_2487;int BgL_kz00_2488;
if(
VECTORP(BgL_classz00_848))
{ /* ./Llib/object.scm 1045 */
BgL_vectorz00_2487 = BgL_classz00_848; }  else 
{ /* ./Llib/object.scm 1045 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_848, BGl_string7762z00zz__objectz00, 
BINT(((long)47987))); 
exit( -1 );} 
BgL_kz00_2488 = 
(int)(((long)0)); 
{ /* ./Llib/object.scm 1045 */
bool_t BgL_test2430z00_2489;
{ /* ./Llib/object.scm 1045 */
int BgL_arg2435z00_2490;
BgL_arg2435z00_2490 = 
VECTOR_LENGTH(BgL_vectorz00_2487); 
BgL_test2430z00_2489 = 
BOUND_CHECK(BgL_kz00_2488, BgL_arg2435z00_2490); } 
if(BgL_test2430z00_2489)
{ /* ./Llib/object.scm 1045 */
obj_t BgL_aux7377z00_3638;
BgL_aux7377z00_3638 = 
VECTOR_REF(BgL_vectorz00_2487,BgL_kz00_2488); 
if(
SYMBOLP(BgL_aux7377z00_3638))
{ /* ./Llib/object.scm 1045 */
BgL_res2669z00_2495 = BgL_aux7377z00_3638; }  else 
{ /* ./Llib/object.scm 1045 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_aux7377z00_3638, BGl_string7762z00zz__objectz00, 
BINT(((long)47987))); 
exit( -1 );} }  else 
{ /* ./Llib/object.scm 1045 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_2488), "./Ieee/vector.scm", ((long)5865)); 
{ /* ./Llib/object.scm 1045 */
obj_t BgL_aux7395z00_3640;
BgL_aux7395z00_3640 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)47987))); 
if(
SYMBOLP(BgL_aux7395z00_3640))
{ /* ./Llib/object.scm 1045 */
BgL_res2669z00_2495 = BgL_aux7395z00_3640; }  else 
{ /* ./Llib/object.scm 1045 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7765z00zz__objectz00, BgL_aux7395z00_3640, BGl_string7762z00zz__objectz00, 
BINT(((long)47987))); 
exit( -1 );} } } } } 
BgL_classzd2namezd2_849 = BgL_res2669z00_2495; } 
{ /* ./Llib/object.scm 1045 */
obj_t BgL_fieldsz00_850;
BgL_fieldsz00_850 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_classz00_848); 
{ /* ./Llib/object.scm 1046 */

{ /* ./Llib/object.scm 1047 */
obj_t BgL_auxz00_8270;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1047 */
BgL_auxz00_8270 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1047 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)48051))); 
exit( -1 );} 
display_string(BGl_string8027z00zz__objectz00, BgL_auxz00_8270); } 
{ /* ./Llib/object.scm 1048 */
obj_t BgL_auxz00_8277;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1048 */
BgL_auxz00_8277 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1048 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)48077))); 
exit( -1 );} 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_classzd2namezd2_849, BgL_auxz00_8277); } 
{ /* ./Llib/object.scm 1049 */
bool_t BgL_test1856z00_851;
{ /* ./Llib/object.scm 1049 */
bool_t BgL__ortest_1020z00_2497;
BgL__ortest_1020z00_2497 = 
PAIRP(BgL_fieldsz00_850); 
if(BgL__ortest_1020z00_2497)
{ /* ./Llib/object.scm 1049 */
BgL_test1856z00_851 = BgL__ortest_1020z00_2497; }  else 
{ /* ./Llib/object.scm 1049 */
BgL_test1856z00_851 = 
NULLP(BgL_fieldsz00_850); } } 
if(BgL_test1856z00_851)
{ 
obj_t BgL_fieldsz00_852;obj_t BgL_classz00_853;
BgL_fieldsz00_852 = BgL_fieldsz00_850; 
BgL_classz00_853 = BgL_classz00_848; 
BgL_loopz00_854:
if(
NULLP(BgL_fieldsz00_852))
{ /* ./Llib/object.scm 1053 */
{ /* ./Llib/object.scm 1054 */
obj_t BgL_superz00_856;
{ /* ./Llib/object.scm 1054 */
obj_t BgL_vectorz00_2503;int BgL_kz00_2504;
if(
VECTORP(BgL_classz00_853))
{ /* ./Llib/object.scm 1054 */
BgL_vectorz00_2503 = BgL_classz00_853; }  else 
{ /* ./Llib/object.scm 1054 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_853, BGl_string7762z00zz__objectz00, 
BINT(((long)48235))); 
exit( -1 );} 
BgL_kz00_2504 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 1054 */
bool_t BgL_test2430z00_2505;
{ /* ./Llib/object.scm 1054 */
int BgL_arg2435z00_2506;
BgL_arg2435z00_2506 = 
VECTOR_LENGTH(BgL_vectorz00_2503); 
BgL_test2430z00_2505 = 
BOUND_CHECK(BgL_kz00_2504, BgL_arg2435z00_2506); } 
if(BgL_test2430z00_2505)
{ /* ./Llib/object.scm 1054 */
BgL_superz00_856 = 
VECTOR_REF(BgL_vectorz00_2503,BgL_kz00_2504); }  else 
{ /* ./Llib/object.scm 1054 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_2504), "./Ieee/vector.scm", ((long)5865)); 
BgL_superz00_856 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)48235))); } } } 
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_856))
{ 
obj_t BgL_classz00_8308;obj_t BgL_fieldsz00_8306;
BgL_fieldsz00_8306 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_superz00_856); 
BgL_classz00_8308 = BgL_superz00_856; 
BgL_classz00_853 = BgL_classz00_8308; 
BgL_fieldsz00_852 = BgL_fieldsz00_8306; 
goto BgL_loopz00_854;}  else 
{ /* ./Llib/object.scm 1058 */
obj_t BgL_auxz00_8311;obj_t BgL_auxz00_8309;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1058 */
BgL_auxz00_8311 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1058 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)48384))); 
exit( -1 );} 
BgL_auxz00_8309 = 
BCHAR(((unsigned char)'|')); 
BgL_aux2927z00_2733 = 
display_char(BgL_auxz00_8309, BgL_auxz00_8311); } } }  else 
{ /* ./Llib/object.scm 1053 */
if(
(BgL_fieldsz00_852==BUNSPEC))
{ /* ./Llib/object.scm 1059 */
{ /* ./Llib/object.scm 1060 */
obj_t BgL_auxz00_8320;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1060 */
BgL_auxz00_8320 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1060 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)48422))); 
exit( -1 );} 
display_string(BGl_string8028z00zz__objectz00, BgL_auxz00_8320); } 
{ 
obj_t BgL_fieldsz00_8327;
BgL_fieldsz00_8327 = BNIL; 
BgL_fieldsz00_852 = BgL_fieldsz00_8327; 
goto BgL_loopz00_854;} }  else 
{ /* ./Llib/object.scm 1059 */
{ /* ./Llib/object.scm 1063 */
obj_t BgL_arg1872z00_860;
{ /* ./Llib/object.scm 1063 */
obj_t BgL_pairz00_2511;
if(
PAIRP(BgL_fieldsz00_852))
{ /* ./Llib/object.scm 1063 */
BgL_pairz00_2511 = BgL_fieldsz00_852; }  else 
{ /* ./Llib/object.scm 1063 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_fieldsz00_852, BGl_string7762z00zz__objectz00, 
BINT(((long)48512))); 
exit( -1 );} 
BgL_arg1872z00_860 = 
CAR(BgL_pairz00_2511); } 
BgL_fieldz00_862 = BgL_arg1872z00_860; 
{ /* ./Llib/object.scm 1022 */
obj_t BgL_namez00_864;
BgL_namez00_864 = 
BGl_classzd2fieldzd2namez00zz__objectz00(BgL_fieldz00_862); 
{ /* ./Llib/object.scm 1022 */
obj_t BgL_getzd2valuezd2_865;
BgL_getzd2valuezd2_865 = 
BGl_classzd2fieldzd2accessorz00zz__objectz00(BgL_fieldz00_862); 
{ /* ./Llib/object.scm 1023 */

{ /* ./Llib/object.scm 1024 */
obj_t BgL_auxz00_8336;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1024 */
BgL_auxz00_8336 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1024 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)47350))); 
exit( -1 );} 
display_string(BGl_string8015z00zz__objectz00, BgL_auxz00_8336); } 
{ /* ./Llib/object.scm 1025 */
obj_t BgL_auxz00_8343;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1025 */
BgL_auxz00_8343 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1025 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)47372))); 
exit( -1 );} 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_namez00_864, BgL_auxz00_8343); } 
{ /* ./Llib/object.scm 1026 */
obj_t BgL_auxz00_8352;obj_t BgL_auxz00_8350;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1026 */
BgL_auxz00_8352 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1026 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)47394))); 
exit( -1 );} 
BgL_auxz00_8350 = 
BCHAR(((unsigned char)':')); 
display_char(BgL_auxz00_8350, BgL_auxz00_8352); } 
if(
BGl_classzd2fieldzd2indexedzf3zf3zz__objectz00(BgL_fieldz00_862))
{ /* ./Llib/object.scm 1035 */
obj_t BgL_getzd2lenzd2_867;
BgL_getzd2lenzd2_867 = 
BGl_classzd2fieldzd2lenzd2accessorzd2zz__objectz00(BgL_fieldz00_862); 
{ /* ./Llib/object.scm 1035 */
obj_t BgL_lenz00_868;
if(
PROCEDURE_CORRECT_ARITYP(BgL_getzd2lenzd2_867, ((long)1)))
{ /* ./Llib/object.scm 1036 */
BgL_lenz00_868 = 
PROCEDURE_ENTRY(BgL_getzd2lenzd2_867)(BgL_getzd2lenzd2_867, 
(obj_t)(BgL_objz00_138), BEOA); }  else 
{ /* ./Llib/object.scm 1036 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8016z00zz__objectz00, BGl_list8017z00zz__objectz00, BgL_getzd2lenzd2_867, BGl_string7762z00zz__objectz00, 
BINT(((long)47731))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} 
{ /* ./Llib/object.scm 1036 */

{ 
long BgL_iz00_869;
BgL_iz00_869 = ((long)0); 
BgL_loopz00_870:
{ /* ./Llib/object.scm 1038 */
bool_t BgL_test1892z00_871;
{ /* ./Llib/object.scm 1038 */
long BgL_n2z00_2514;
{ /* ./Llib/object.scm 1038 */
obj_t BgL_auxz00_8370;
if(
INTEGERP(BgL_lenz00_868))
{ /* ./Llib/object.scm 1038 */
BgL_auxz00_8370 = BgL_lenz00_868
; }  else 
{ /* ./Llib/object.scm 1038 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_lenz00_868, BGl_string7762z00zz__objectz00, 
BINT(((long)47785))); 
exit( -1 );} 
BgL_n2z00_2514 = 
(long)CINT(BgL_auxz00_8370); } 
BgL_test1892z00_871 = 
(BgL_iz00_869==BgL_n2z00_2514); } 
if(BgL_test1892z00_871)
{ /* ./Llib/object.scm 1039 */
obj_t BgL_auxz00_8381;obj_t BgL_auxz00_8379;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1039 */
BgL_auxz00_8381 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1039 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)47813))); 
exit( -1 );} 
BgL_auxz00_8379 = 
BCHAR(((unsigned char)']')); 
display_char(BgL_auxz00_8379, BgL_auxz00_8381); }  else 
{ /* ./Llib/object.scm 1038 */
{ /* ./Llib/object.scm 1041 */
obj_t BgL_auxz00_8390;obj_t BgL_auxz00_8388;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1041 */
BgL_auxz00_8390 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1041 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)47857))); 
exit( -1 );} 
BgL_auxz00_8388 = 
BCHAR(((unsigned char)' ')); 
display_char(BgL_auxz00_8388, BgL_auxz00_8390); } 
{ /* ./Llib/object.scm 1042 */
obj_t BgL_arg1896z00_872;
if(
PROCEDURE_CORRECT_ARITYP(BgL_getzd2valuezd2_865, ((long)2)))
{ /* ./Llib/object.scm 1042 */
BgL_arg1896z00_872 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_865)(BgL_getzd2valuezd2_865, 
(obj_t)(BgL_objz00_138), 
BINT(BgL_iz00_869), BEOA); }  else 
{ /* ./Llib/object.scm 1042 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8016z00zz__objectz00, BGl_list8019z00zz__objectz00, BgL_getzd2valuezd2_865, BGl_string7762z00zz__objectz00, 
BINT(((long)47877))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_printzd2slotzd2_140, ((long)2)))
{ /* ./Llib/object.scm 1042 */
PROCEDURE_ENTRY(BgL_printzd2slotzd2_140)(BgL_printzd2slotzd2_140, BgL_arg1896z00_872, BgL_portz00_139, BEOA); }  else 
{ /* ./Llib/object.scm 1042 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8016z00zz__objectz00, BGl_list8022z00zz__objectz00, BgL_printzd2slotzd2_140, BGl_string7762z00zz__objectz00, 
BINT(((long)47865))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } 
{ 
long BgL_iz00_8413;
BgL_iz00_8413 = 
(BgL_iz00_869+((long)1)); 
BgL_iz00_869 = BgL_iz00_8413; 
goto BgL_loopz00_870;} } } } } } }  else 
{ /* ./Llib/object.scm 1028 */
{ /* ./Llib/object.scm 1031 */
obj_t BgL_auxz00_8417;obj_t BgL_auxz00_8415;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1031 */
BgL_auxz00_8417 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1031 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)47565))); 
exit( -1 );} 
BgL_auxz00_8415 = 
BCHAR(((unsigned char)' ')); 
display_char(BgL_auxz00_8415, BgL_auxz00_8417); } 
{ /* ./Llib/object.scm 1032 */
obj_t BgL_arg1908z00_874;
if(
PROCEDURE_CORRECT_ARITYP(BgL_getzd2valuezd2_865, ((long)1)))
{ /* ./Llib/object.scm 1032 */
BgL_arg1908z00_874 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_865)(BgL_getzd2valuezd2_865, 
(obj_t)(BgL_objz00_138), BEOA); }  else 
{ /* ./Llib/object.scm 1032 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8016z00zz__objectz00, BGl_list8024z00zz__objectz00, BgL_getzd2valuezd2_865, BGl_string7762z00zz__objectz00, 
BINT(((long)47582))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_printzd2slotzd2_140, ((long)2)))
{ /* ./Llib/object.scm 1032 */
PROCEDURE_ENTRY(BgL_printzd2slotzd2_140)(BgL_printzd2slotzd2_140, BgL_arg1908z00_874, BgL_portz00_139, BEOA); }  else 
{ /* ./Llib/object.scm 1032 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8016z00zz__objectz00, BGl_list8025z00zz__objectz00, BgL_printzd2slotzd2_140, BGl_string7762z00zz__objectz00, 
BINT(((long)47570))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } 
{ /* ./Llib/object.scm 1033 */
obj_t BgL_auxz00_8441;obj_t BgL_auxz00_8439;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1033 */
BgL_auxz00_8441 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1033 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)47622))); 
exit( -1 );} 
BgL_auxz00_8439 = 
BCHAR(((unsigned char)']')); 
display_char(BgL_auxz00_8439, BgL_auxz00_8441); } } } } } } 
{ /* ./Llib/object.scm 1064 */
obj_t BgL_arg1876z00_861;
{ /* ./Llib/object.scm 1064 */
obj_t BgL_pairz00_2512;
if(
PAIRP(BgL_fieldsz00_852))
{ /* ./Llib/object.scm 1064 */
BgL_pairz00_2512 = BgL_fieldsz00_852; }  else 
{ /* ./Llib/object.scm 1064 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_fieldsz00_852, BGl_string7762z00zz__objectz00, 
BINT(((long)48535))); 
exit( -1 );} 
BgL_arg1876z00_861 = 
CDR(BgL_pairz00_2512); } 
{ 
obj_t BgL_fieldsz00_8454;
BgL_fieldsz00_8454 = BgL_arg1876z00_861; 
BgL_fieldsz00_852 = BgL_fieldsz00_8454; 
goto BgL_loopz00_854;} } } } }  else 
{ /* ./Llib/object.scm 1065 */
obj_t BgL_auxz00_8457;obj_t BgL_auxz00_8455;
if(
OUTPUT_PORTP(BgL_portz00_139))
{ /* ./Llib/object.scm 1065 */
BgL_auxz00_8457 = BgL_portz00_139
; }  else 
{ /* ./Llib/object.scm 1065 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8014z00zz__objectz00, BGl_string7966z00zz__objectz00, BgL_portz00_139, BGl_string7762z00zz__objectz00, 
BINT(((long)48567))); 
exit( -1 );} 
BgL_auxz00_8455 = 
BCHAR(((unsigned char)'|')); 
BgL_aux2927z00_2733 = 
display_char(BgL_auxz00_8455, BgL_auxz00_8457); } } } } } } } 
POP_TRACE(); 
return BgL_aux2927z00_2733;} } } } 
}



/* _object-print-default1038 */
obj_t BGl__objectzd2printzd2default1038z00zz__objectz00(obj_t BgL_envz00_2922, obj_t BgL_objz00_2923, obj_t BgL_portz00_2924, obj_t BgL_printzd2slotzd2_2925)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 1043 */
obj_t BgL_auxz00_8474;BgL_objectz00_bglt BgL_auxz00_8465;
if(
PROCEDUREP(BgL_printzd2slotzd2_2925))
{ /* ./Llib/object.scm 1043 */
BgL_auxz00_8474 = BgL_printzd2slotzd2_2925
; }  else 
{ /* ./Llib/object.scm 1043 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8029z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_printzd2slotzd2_2925, BGl_string7762z00zz__objectz00, 
BINT(((long)47928))); 
exit( -1 );} 
{ /* ./Llib/object.scm 1043 */
bool_t BgL_testz00_8466;
{ /* ./Llib/object.scm 1043 */
bool_t BgL_res8087z00_3996;
{ /* ./Llib/object.scm 1043 */
obj_t BgL_symbol2772z00_3994;
BgL_symbol2772z00_3994 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1043 */

PUSH_TRACE(BgL_symbol2772z00_3994); BUNSPEC; 
{ /* ./Llib/object.scm 1043 */
bool_t BgL_aux2771z00_3995;
BgL_aux2771z00_3995 = 
BGL_OBJECTP(BgL_objz00_2923); 
POP_TRACE(); 
BgL_res8087z00_3996 = BgL_aux2771z00_3995; } } } 
BgL_testz00_8466 = BgL_res8087z00_3996; } 
if(BgL_testz00_8466)
{ /* ./Llib/object.scm 1043 */
BgL_auxz00_8465 = 
(BgL_objectz00_bglt)(BgL_objz00_2923)
; }  else 
{ /* ./Llib/object.scm 1043 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8029z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_objz00_2923, BGl_string7762z00zz__objectz00, 
BINT(((long)47928))); 
exit( -1 );} } 
return 
BGl_objectzd2printzd2default1038z00zz__objectz00(BgL_auxz00_8465, BgL_portz00_2924, BgL_auxz00_8474);} } 
}



/* object-equal? */
BGL_EXPORTED_DEF bool_t BGl_objectzd2equalzf3z21zz__objectz00(BgL_objectz00_bglt BgL_obj1z00_141, BgL_objectz00_bglt BgL_obj2z00_142)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1070 */
{ /* ./Llib/object.scm 1070 */
obj_t BgL_symbol2932z00_2734;
BgL_symbol2932z00_2734 = BGl_symbol8030z00zz__objectz00; 
{ /* ./Llib/object.scm 1070 */

PUSH_TRACE(BgL_symbol2932z00_2734); BUNSPEC; 
{ /* ./Llib/object.scm 1070 */
bool_t BgL_aux2931z00_2735;
{ /* ./Llib/object.scm 1070 */
obj_t BgL_method1041z00_2517;
{ /* ./Llib/object.scm 1070 */
long BgL_objzd2classzd2numz00_2519;
BgL_objzd2classzd2numz00_2519 = 
BGL_OBJECT_CLASS_NUM(BgL_obj1z00_141); 
{ /* ./Llib/object.scm 1070 */
obj_t BgL_arg1555z00_2520;
{ /* ./Llib/object.scm 1070 */
int BgL_auxz00_8483;
BgL_auxz00_8483 = 
(int)(((long)1)); 
BgL_arg1555z00_2520 = 
PROCEDURE_REF(BGl_objectzd2equalzf3zd2envzf3zz__objectz00, BgL_auxz00_8483); } 
{ /* ./Llib/object.scm 1070 */
obj_t BgL_arrayz00_2522;int BgL_offsetz00_2523;
if(
VECTORP(BgL_arg1555z00_2520))
{ /* ./Llib/object.scm 1070 */
BgL_arrayz00_2522 = BgL_arg1555z00_2520; }  else 
{ /* ./Llib/object.scm 1070 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8030z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_arg1555z00_2520, BGl_string7762z00zz__objectz00, 
BINT(((long)48802))); 
exit( -1 );} 
BgL_offsetz00_2523 = 
(int)(BgL_objzd2classzd2numz00_2519); 
{ /* ./Llib/object.scm 1070 */
long BgL_offsetz00_2524;
{ /* ./Llib/object.scm 1070 */
long BgL_auxz00_8492;
BgL_auxz00_8492 = 
(long)(BgL_offsetz00_2523); 
BgL_offsetz00_2524 = 
(BgL_auxz00_8492-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 1070 */
long BgL_modz00_2525;
{ /* ./Llib/object.scm 1070 */
int BgL_arg1289z00_2526;
BgL_arg1289z00_2526 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 1070 */
long BgL_auxz00_8496;
BgL_auxz00_8496 = 
(long)(BgL_arg1289z00_2526); 
BgL_modz00_2525 = 
(BgL_offsetz00_2524/BgL_auxz00_8496); } } 
{ /* ./Llib/object.scm 1070 */
long BgL_restz00_2527;
{ /* ./Llib/object.scm 1070 */
int BgL_arg1285z00_2528;
BgL_arg1285z00_2528 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 1070 */
long BgL_auxz00_8500;
BgL_auxz00_8500 = 
(long)(BgL_arg1285z00_2528); 
BgL_restz00_2527 = 
(BgL_offsetz00_2524%BgL_auxz00_8500); } } 
{ /* ./Llib/object.scm 1070 */

{ /* ./Llib/object.scm 1070 */
obj_t BgL_bucketz00_2529;
{ 
int BgL_auxz00_8503;
BgL_auxz00_8503 = 
(int)(BgL_modz00_2525); 
BgL_bucketz00_2529 = 
VECTOR_REF(BgL_arrayz00_2522,BgL_auxz00_8503); } 
{ /* ./Llib/object.scm 1070 */
obj_t BgL_vectorz00_2540;int BgL_kz00_2541;
if(
VECTORP(BgL_bucketz00_2529))
{ /* ./Llib/object.scm 1070 */
BgL_vectorz00_2540 = BgL_bucketz00_2529; }  else 
{ /* ./Llib/object.scm 1070 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8030z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_bucketz00_2529, BGl_string7762z00zz__objectz00, 
BINT(((long)48802))); 
exit( -1 );} 
BgL_kz00_2541 = 
(int)(BgL_restz00_2527); 
{ /* ./Llib/object.scm 1070 */
obj_t BgL_aux7548z00_3666;
BgL_aux7548z00_3666 = 
VECTOR_REF(BgL_vectorz00_2540,BgL_kz00_2541); 
if(
PROCEDUREP(BgL_aux7548z00_3666))
{ /* ./Llib/object.scm 1070 */
BgL_method1041z00_2517 = BgL_aux7548z00_3666; }  else 
{ /* ./Llib/object.scm 1070 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8030z00zz__objectz00, BGl_string7766z00zz__objectz00, BgL_aux7548z00_3666, BGl_string7762z00zz__objectz00, 
BINT(((long)48802))); 
exit( -1 );} } } } } } } } } } } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_method1041z00_2517, ((long)2)))
{ /* ./Llib/object.scm 1070 */
obj_t BgL_auxz00_8520;
BgL_auxz00_8520 = 
PROCEDURE_ENTRY(BgL_method1041z00_2517)(BgL_method1041z00_2517, 
(obj_t)(BgL_obj1z00_141), 
(obj_t)(BgL_obj2z00_142), BEOA); 
BgL_aux2931z00_2735 = 
CBOOL(BgL_auxz00_8520); }  else 
{ /* ./Llib/object.scm 1070 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8031z00zz__objectz00, BGl_list8032z00zz__objectz00, BgL_method1041z00_2517, BGl_string7762z00zz__objectz00, 
BINT(((long)48802))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} } 
POP_TRACE(); 
return BgL_aux2931z00_2735;} } } } 
}



/* _object-equal? */
obj_t BGl__objectzd2equalzf3z21zz__objectz00(obj_t BgL_envz00_2926, obj_t BgL_obj1z00_2927, obj_t BgL_obj2z00_2928)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1070 */
{ /* ./Llib/object.scm 1070 */
bool_t BgL_auxz00_8530;
{ /* ./Llib/object.scm 1070 */
BgL_objectz00_bglt BgL_auxz00_8540;BgL_objectz00_bglt BgL_auxz00_8531;
{ /* ./Llib/object.scm 1070 */
bool_t BgL_testz00_8541;
{ /* ./Llib/object.scm 1070 */
bool_t BgL_res8089z00_4004;
{ /* ./Llib/object.scm 1070 */
obj_t BgL_symbol2772z00_4002;
BgL_symbol2772z00_4002 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1070 */

PUSH_TRACE(BgL_symbol2772z00_4002); BUNSPEC; 
{ /* ./Llib/object.scm 1070 */
bool_t BgL_aux2771z00_4003;
BgL_aux2771z00_4003 = 
BGL_OBJECTP(BgL_obj2z00_2928); 
POP_TRACE(); 
BgL_res8089z00_4004 = BgL_aux2771z00_4003; } } } 
BgL_testz00_8541 = BgL_res8089z00_4004; } 
if(BgL_testz00_8541)
{ /* ./Llib/object.scm 1070 */
BgL_auxz00_8540 = 
(BgL_objectz00_bglt)(BgL_obj2z00_2928)
; }  else 
{ /* ./Llib/object.scm 1070 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8036z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_obj2z00_2928, BGl_string7762z00zz__objectz00, 
BINT(((long)48802))); 
exit( -1 );} } 
{ /* ./Llib/object.scm 1070 */
bool_t BgL_testz00_8532;
{ /* ./Llib/object.scm 1070 */
bool_t BgL_res8088z00_4000;
{ /* ./Llib/object.scm 1070 */
obj_t BgL_symbol2772z00_3998;
BgL_symbol2772z00_3998 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1070 */

PUSH_TRACE(BgL_symbol2772z00_3998); BUNSPEC; 
{ /* ./Llib/object.scm 1070 */
bool_t BgL_aux2771z00_3999;
BgL_aux2771z00_3999 = 
BGL_OBJECTP(BgL_obj1z00_2927); 
POP_TRACE(); 
BgL_res8088z00_4000 = BgL_aux2771z00_3999; } } } 
BgL_testz00_8532 = BgL_res8088z00_4000; } 
if(BgL_testz00_8532)
{ /* ./Llib/object.scm 1070 */
BgL_auxz00_8531 = 
(BgL_objectz00_bglt)(BgL_obj1z00_2927)
; }  else 
{ /* ./Llib/object.scm 1070 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8036z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_obj1z00_2927, BGl_string7762z00zz__objectz00, 
BINT(((long)48802))); 
exit( -1 );} } 
BgL_auxz00_8530 = 
BGl_objectzd2equalzf3z21zz__objectz00(BgL_auxz00_8531, BgL_auxz00_8540); } 
return 
BBOOL(BgL_auxz00_8530);} } 
}



/* object-equal?-default1040 */
bool_t BGl_objectzd2equalzf3zd2default1040zf3zz__objectz00(BgL_objectz00_bglt BgL_obj1z00_143, BgL_objectz00_bglt BgL_obj2z00_144)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 1088 */
obj_t BgL_symbol2936z00_2736;
BgL_symbol2936z00_2736 = BGl_symbol8037z00zz__objectz00; 
{ /* ./Llib/object.scm 1088 */

PUSH_TRACE(BgL_symbol2936z00_2736); BUNSPEC; 
{ /* ./Llib/object.scm 1088 */
bool_t BgL_aux2935z00_2737;
{ 
obj_t BgL_fieldz00_894;
{ /* ./Llib/object.scm 1089 */
obj_t BgL_class1z00_878;obj_t BgL_class2z00_879;
{ /* ./Llib/object.scm 1089 */
long BgL_arg1268z00_2543;
{ /* ./Llib/object.scm 1089 */
long BgL_arg1273z00_2544;
BgL_arg1273z00_2544 = 
BGL_OBJECT_CLASS_NUM(BgL_obj1z00_143); 
BgL_arg1268z00_2543 = 
(BgL_arg1273z00_2544-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 1089 */
obj_t BgL_vectorz00_2548;int BgL_kz00_2549;
{ /* ./Llib/object.scm 1089 */
obj_t BgL_aux7674z00_3699;
BgL_aux7674z00_3699 = BGl_za2classesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux7674z00_3699))
{ /* ./Llib/object.scm 1089 */
BgL_vectorz00_2548 = BgL_aux7674z00_3699; }  else 
{ /* ./Llib/object.scm 1089 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8037z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux7674z00_3699, BGl_string7762z00zz__objectz00, 
BINT(((long)49510))); 
exit( -1 );} } 
BgL_kz00_2549 = 
(int)(BgL_arg1268z00_2543); 
BgL_class1z00_878 = 
VECTOR_REF(BgL_vectorz00_2548,BgL_kz00_2549); } } 
{ /* ./Llib/object.scm 1090 */
long BgL_arg1268z00_2551;
{ /* ./Llib/object.scm 1090 */
long BgL_arg1273z00_2552;
BgL_arg1273z00_2552 = 
BGL_OBJECT_CLASS_NUM(BgL_obj2z00_144); 
BgL_arg1268z00_2551 = 
(BgL_arg1273z00_2552-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 1090 */
obj_t BgL_vectorz00_2556;int BgL_kz00_2557;
{ /* ./Llib/object.scm 1090 */
obj_t BgL_aux7685z00_3701;
BgL_aux7685z00_3701 = BGl_za2classesza2z00zz__objectz00; 
if(
VECTORP(BgL_aux7685z00_3701))
{ /* ./Llib/object.scm 1090 */
BgL_vectorz00_2556 = BgL_aux7685z00_3701; }  else 
{ /* ./Llib/object.scm 1090 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8037z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_aux7685z00_3701, BGl_string7762z00zz__objectz00, 
BINT(((long)49541))); 
exit( -1 );} } 
BgL_kz00_2557 = 
(int)(BgL_arg1268z00_2551); 
BgL_class2z00_879 = 
VECTOR_REF(BgL_vectorz00_2556,BgL_kz00_2557); } } 
if(
(BgL_class1z00_878==BgL_class2z00_879))
{ /* ./Llib/object.scm 1092 */
{ /* ./Llib/object.scm 1095 */
obj_t BgL_fieldsz00_881;
BgL_fieldsz00_881 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_class1z00_878); 
{ /* ./Llib/object.scm 1096 */
bool_t BgL_test1918z00_882;
{ /* ./Llib/object.scm 1096 */
bool_t BgL__ortest_1020z00_2559;
BgL__ortest_1020z00_2559 = 
PAIRP(BgL_fieldsz00_881); 
if(BgL__ortest_1020z00_2559)
{ /* ./Llib/object.scm 1096 */
BgL_test1918z00_882 = BgL__ortest_1020z00_2559; }  else 
{ /* ./Llib/object.scm 1096 */
BgL_test1918z00_882 = 
NULLP(BgL_fieldsz00_881); } } 
if(BgL_test1918z00_882)
{ 
obj_t BgL_fieldsz00_883;obj_t BgL_classz00_884;
BgL_fieldsz00_883 = BgL_fieldsz00_881; 
BgL_classz00_884 = BgL_class1z00_878; 
BgL_loopz00_885:
if(
NULLP(BgL_fieldsz00_883))
{ /* ./Llib/object.scm 1101 */
{ /* ./Llib/object.scm 1102 */
obj_t BgL_superz00_887;
{ /* ./Llib/object.scm 1102 */
obj_t BgL_vectorz00_2565;int BgL_kz00_2566;
if(
VECTORP(BgL_classz00_884))
{ /* ./Llib/object.scm 1102 */
BgL_vectorz00_2565 = BgL_classz00_884; }  else 
{ /* ./Llib/object.scm 1102 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8037z00zz__objectz00, BGl_string7767z00zz__objectz00, BgL_classz00_884, BGl_string7762z00zz__objectz00, 
BINT(((long)49812))); 
exit( -1 );} 
BgL_kz00_2566 = 
(int)(((long)3)); 
{ /* ./Llib/object.scm 1102 */
bool_t BgL_test2430z00_2567;
{ /* ./Llib/object.scm 1102 */
int BgL_arg2435z00_2568;
BgL_arg2435z00_2568 = 
VECTOR_LENGTH(BgL_vectorz00_2565); 
BgL_test2430z00_2567 = 
BOUND_CHECK(BgL_kz00_2566, BgL_arg2435z00_2568); } 
if(BgL_test2430z00_2567)
{ /* ./Llib/object.scm 1102 */
BgL_superz00_887 = 
VECTOR_REF(BgL_vectorz00_2565,BgL_kz00_2566); }  else 
{ /* ./Llib/object.scm 1102 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string7769z00zz__objectz00, BGl_string7770z00zz__objectz00, 
BINT(BgL_kz00_2566), "./Ieee/vector.scm", ((long)5865)); 
BgL_superz00_887 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string7762z00zz__objectz00, 
BINT(((long)49812))); } } } 
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_887))
{ /* ./Llib/object.scm 1105 */
obj_t BgL_fieldsz00_889;
BgL_fieldsz00_889 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_superz00_887); 
{ /* ./Llib/object.scm 1106 */
bool_t BgL_test1923z00_890;
{ /* ./Llib/object.scm 1106 */
bool_t BgL__ortest_1020z00_2574;
BgL__ortest_1020z00_2574 = 
PAIRP(BgL_fieldsz00_889); 
if(BgL__ortest_1020z00_2574)
{ /* ./Llib/object.scm 1106 */
BgL_test1923z00_890 = BgL__ortest_1020z00_2574; }  else 
{ /* ./Llib/object.scm 1106 */
BgL_test1923z00_890 = 
NULLP(BgL_fieldsz00_889); } } 
if(BgL_test1923z00_890)
{ 
obj_t BgL_classz00_8601;obj_t BgL_fieldsz00_8600;
BgL_fieldsz00_8600 = BgL_fieldsz00_889; 
BgL_classz00_8601 = BgL_superz00_887; 
BgL_classz00_884 = BgL_classz00_8601; 
BgL_fieldsz00_883 = BgL_fieldsz00_8600; 
goto BgL_loopz00_885;}  else 
{ /* ./Llib/object.scm 1106 */
BgL_aux2935z00_2737 = ((bool_t)0); } } }  else 
{ /* ./Llib/object.scm 1103 */
BgL_aux2935z00_2737 = ((bool_t)1); } } }  else 
{ /* ./Llib/object.scm 1111 */
bool_t BgL_test1929z00_891;
{ /* ./Llib/object.scm 1111 */
obj_t BgL_arg1935z00_893;
{ /* ./Llib/object.scm 1111 */
obj_t BgL_pairz00_2578;
if(
PAIRP(BgL_fieldsz00_883))
{ /* ./Llib/object.scm 1111 */
BgL_pairz00_2578 = BgL_fieldsz00_883; }  else 
{ /* ./Llib/object.scm 1111 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8037z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_fieldsz00_883, BGl_string7762z00zz__objectz00, 
BINT(((long)50146))); 
exit( -1 );} 
BgL_arg1935z00_893 = 
CAR(BgL_pairz00_2578); } 
BgL_fieldz00_894 = BgL_arg1935z00_893; 
{ /* ./Llib/object.scm 1072 */
obj_t BgL_getzd2valuezd2_896;
BgL_getzd2valuezd2_896 = 
BGl_classzd2fieldzd2accessorz00zz__objectz00(BgL_fieldz00_894); 
if(
BGl_classzd2fieldzd2indexedzf3zf3zz__objectz00(BgL_fieldz00_894))
{ /* ./Llib/object.scm 1077 */
obj_t BgL_getzd2lenzd2_898;
BgL_getzd2lenzd2_898 = 
BGl_classzd2fieldzd2lenzd2accessorzd2zz__objectz00(BgL_fieldz00_894); 
{ /* ./Llib/object.scm 1077 */
obj_t BgL_len1z00_899;
if(
PROCEDURE_CORRECT_ARITYP(BgL_getzd2lenzd2_898, ((long)1)))
{ /* ./Llib/object.scm 1078 */
BgL_len1z00_899 = 
PROCEDURE_ENTRY(BgL_getzd2lenzd2_898)(BgL_getzd2lenzd2_898, 
(obj_t)(BgL_obj1z00_143), BEOA); }  else 
{ /* ./Llib/object.scm 1078 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8038z00zz__objectz00, BGl_list8039z00zz__objectz00, BgL_getzd2lenzd2_898, BGl_string7762z00zz__objectz00, 
BINT(((long)49248))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} 
{ /* ./Llib/object.scm 1078 */
obj_t BgL_len2z00_900;
if(
PROCEDURE_CORRECT_ARITYP(BgL_getzd2lenzd2_898, ((long)1)))
{ /* ./Llib/object.scm 1079 */
BgL_len2z00_900 = 
PROCEDURE_ENTRY(BgL_getzd2lenzd2_898)(BgL_getzd2lenzd2_898, 
(obj_t)(BgL_obj2z00_144), BEOA); }  else 
{ /* ./Llib/object.scm 1079 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8038z00zz__objectz00, BGl_list8040z00zz__objectz00, BgL_getzd2lenzd2_898, BGl_string7762z00zz__objectz00, 
BINT(((long)49279))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} 
{ /* ./Llib/object.scm 1079 */

{ /* ./Llib/object.scm 1080 */
bool_t BgL__andtest_1025z00_901;
{ /* ./Llib/object.scm 1080 */
long BgL_n1z00_2580;long BgL_n2z00_2581;
{ /* ./Llib/object.scm 1080 */
obj_t BgL_auxz00_8628;
if(
INTEGERP(BgL_len1z00_899))
{ /* ./Llib/object.scm 1080 */
BgL_auxz00_8628 = BgL_len1z00_899
; }  else 
{ /* ./Llib/object.scm 1080 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8037z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_len1z00_899, BGl_string7762z00zz__objectz00, 
BINT(((long)49311))); 
exit( -1 );} 
BgL_n1z00_2580 = 
(long)CINT(BgL_auxz00_8628); } 
{ /* ./Llib/object.scm 1080 */
obj_t BgL_auxz00_8635;
if(
INTEGERP(BgL_len2z00_900))
{ /* ./Llib/object.scm 1080 */
BgL_auxz00_8635 = BgL_len2z00_900
; }  else 
{ /* ./Llib/object.scm 1080 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8037z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_len2z00_900, BGl_string7762z00zz__objectz00, 
BINT(((long)49316))); 
exit( -1 );} 
BgL_n2z00_2581 = 
(long)CINT(BgL_auxz00_8635); } 
BgL__andtest_1025z00_901 = 
(BgL_n1z00_2580==BgL_n2z00_2581); } 
if(BgL__andtest_1025z00_901)
{ 
long BgL_iz00_902;
BgL_iz00_902 = ((long)0); 
BgL_loopz00_903:
{ /* ./Llib/object.scm 1083 */
bool_t BgL_test1947z00_904;
{ /* ./Llib/object.scm 1083 */
long BgL_n2z00_2583;
{ /* ./Llib/object.scm 1083 */
obj_t BgL_auxz00_8644;
if(
INTEGERP(BgL_len1z00_899))
{ /* ./Llib/object.scm 1083 */
BgL_auxz00_8644 = BgL_len1z00_899
; }  else 
{ /* ./Llib/object.scm 1083 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8037z00zz__objectz00, BGl_string7761z00zz__objectz00, BgL_len1z00_899, BGl_string7762z00zz__objectz00, 
BINT(((long)49370))); 
exit( -1 );} 
BgL_n2z00_2583 = 
(long)CINT(BgL_auxz00_8644); } 
BgL_test1947z00_904 = 
(BgL_iz00_902==BgL_n2z00_2583); } 
if(BgL_test1947z00_904)
{ /* ./Llib/object.scm 1083 */
BgL_test1929z00_891 = ((bool_t)1); }  else 
{ /* ./Llib/object.scm 1085 */
bool_t BgL_test1948z00_905;
{ /* ./Llib/object.scm 1085 */
obj_t BgL_arg1954z00_907;obj_t BgL_arg1955z00_908;
if(
PROCEDURE_CORRECT_ARITYP(BgL_getzd2valuezd2_896, ((long)2)))
{ /* ./Llib/object.scm 1085 */
BgL_arg1954z00_907 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_896)(BgL_getzd2valuezd2_896, 
(obj_t)(BgL_obj1z00_143), 
BINT(BgL_iz00_902), BEOA); }  else 
{ /* ./Llib/object.scm 1085 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8038z00zz__objectz00, BGl_list8041z00zz__objectz00, BgL_getzd2valuezd2_896, BGl_string7762z00zz__objectz00, 
BINT(((long)49399))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_getzd2valuezd2_896, ((long)2)))
{ /* ./Llib/object.scm 1085 */
BgL_arg1955z00_908 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_896)(BgL_getzd2valuezd2_896, 
(obj_t)(BgL_obj2z00_144), 
BINT(BgL_iz00_902), BEOA); }  else 
{ /* ./Llib/object.scm 1085 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8038z00zz__objectz00, BGl_list8042z00zz__objectz00, BgL_getzd2valuezd2_896, BGl_string7762z00zz__objectz00, 
BINT(((long)49418))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} 
BgL_test1948z00_905 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1954z00_907, BgL_arg1955z00_908); } 
if(BgL_test1948z00_905)
{ /* ./Llib/object.scm 1085 */
{ 
long BgL_iz00_8673;
BgL_iz00_8673 = 
(BgL_iz00_902+((long)1)); 
BgL_iz00_902 = BgL_iz00_8673; 
goto BgL_loopz00_903;} }  else 
{ /* ./Llib/object.scm 1085 */
BgL_test1929z00_891 = ((bool_t)0); } } } }  else 
{ /* ./Llib/object.scm 1080 */
BgL_test1929z00_891 = ((bool_t)0); } } } } } }  else 
{ /* ./Llib/object.scm 1075 */
obj_t BgL_arg1965z00_909;obj_t BgL_arg1966z00_910;
if(
PROCEDURE_CORRECT_ARITYP(BgL_getzd2valuezd2_896, ((long)1)))
{ /* ./Llib/object.scm 1075 */
BgL_arg1965z00_909 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_896)(BgL_getzd2valuezd2_896, 
(obj_t)(BgL_obj1z00_143), BEOA); }  else 
{ /* ./Llib/object.scm 1075 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8038z00zz__objectz00, BGl_list8043z00zz__objectz00, BgL_getzd2valuezd2_896, BGl_string7762z00zz__objectz00, 
BINT(((long)49078))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_getzd2valuezd2_896, ((long)1)))
{ /* ./Llib/object.scm 1075 */
BgL_arg1966z00_910 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_896)(BgL_getzd2valuezd2_896, 
(obj_t)(BgL_obj2z00_144), BEOA); }  else 
{ /* ./Llib/object.scm 1075 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string8038z00zz__objectz00, BGl_list8044z00zz__objectz00, BgL_getzd2valuezd2_896, BGl_string7762z00zz__objectz00, 
BINT(((long)49095))); 
FAILURE(BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00,BGl_symbol7904z00zz__objectz00);} 
BgL_test1929z00_891 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1965z00_909, BgL_arg1966z00_910); } } } 
if(BgL_test1929z00_891)
{ /* ./Llib/object.scm 1111 */
{ /* ./Llib/object.scm 1112 */
obj_t BgL_arg1931z00_892;
{ /* ./Llib/object.scm 1112 */
obj_t BgL_pairz00_2579;
if(
PAIRP(BgL_fieldsz00_883))
{ /* ./Llib/object.scm 1112 */
BgL_pairz00_2579 = BgL_fieldsz00_883; }  else 
{ /* ./Llib/object.scm 1112 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8037z00zz__objectz00, BGl_string7782z00zz__objectz00, BgL_fieldsz00_883, BGl_string7762z00zz__objectz00, 
BINT(((long)50169))); 
exit( -1 );} 
BgL_arg1931z00_892 = 
CDR(BgL_pairz00_2579); } 
{ 
obj_t BgL_fieldsz00_8699;
BgL_fieldsz00_8699 = BgL_arg1931z00_892; 
BgL_fieldsz00_883 = BgL_fieldsz00_8699; 
goto BgL_loopz00_885;} } }  else 
{ /* ./Llib/object.scm 1111 */
BgL_aux2935z00_2737 = ((bool_t)0); } } }  else 
{ /* ./Llib/object.scm 1096 */
BgL_aux2935z00_2737 = ((bool_t)0); } } } }  else 
{ /* ./Llib/object.scm 1092 */
BgL_aux2935z00_2737 = ((bool_t)0); } } } 
POP_TRACE(); 
return BgL_aux2935z00_2737;} } } } 
}



/* _object-equal?-default1040 */
obj_t BGl__objectzd2equalzf3zd2default1040zf3zz__objectz00(obj_t BgL_envz00_2929, obj_t BgL_obj1z00_2930, obj_t BgL_obj2z00_2931)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 1088 */
bool_t BgL_auxz00_8701;
{ /* ./Llib/object.scm 1088 */
BgL_objectz00_bglt BgL_auxz00_8711;BgL_objectz00_bglt BgL_auxz00_8702;
{ /* ./Llib/object.scm 1088 */
bool_t BgL_testz00_8712;
{ /* ./Llib/object.scm 1088 */
bool_t BgL_res8091z00_4012;
{ /* ./Llib/object.scm 1088 */
obj_t BgL_symbol2772z00_4010;
BgL_symbol2772z00_4010 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1088 */

PUSH_TRACE(BgL_symbol2772z00_4010); BUNSPEC; 
{ /* ./Llib/object.scm 1088 */
bool_t BgL_aux2771z00_4011;
BgL_aux2771z00_4011 = 
BGL_OBJECTP(BgL_obj2z00_2931); 
POP_TRACE(); 
BgL_res8091z00_4012 = BgL_aux2771z00_4011; } } } 
BgL_testz00_8712 = BgL_res8091z00_4012; } 
if(BgL_testz00_8712)
{ /* ./Llib/object.scm 1088 */
BgL_auxz00_8711 = 
(BgL_objectz00_bglt)(BgL_obj2z00_2931)
; }  else 
{ /* ./Llib/object.scm 1088 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8045z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_obj2z00_2931, BGl_string7762z00zz__objectz00, 
BINT(((long)49491))); 
exit( -1 );} } 
{ /* ./Llib/object.scm 1088 */
bool_t BgL_testz00_8703;
{ /* ./Llib/object.scm 1088 */
bool_t BgL_res8090z00_4008;
{ /* ./Llib/object.scm 1088 */
obj_t BgL_symbol2772z00_4006;
BgL_symbol2772z00_4006 = BGl_symbol7816z00zz__objectz00; 
{ /* ./Llib/object.scm 1088 */

PUSH_TRACE(BgL_symbol2772z00_4006); BUNSPEC; 
{ /* ./Llib/object.scm 1088 */
bool_t BgL_aux2771z00_4007;
BgL_aux2771z00_4007 = 
BGL_OBJECTP(BgL_obj1z00_2930); 
POP_TRACE(); 
BgL_res8090z00_4008 = BgL_aux2771z00_4007; } } } 
BgL_testz00_8703 = BgL_res8090z00_4008; } 
if(BgL_testz00_8703)
{ /* ./Llib/object.scm 1088 */
BgL_auxz00_8702 = 
(BgL_objectz00_bglt)(BgL_obj1z00_2930)
; }  else 
{ /* ./Llib/object.scm 1088 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol8045z00zz__objectz00, BGl_string7819z00zz__objectz00, BgL_obj1z00_2930, BGl_string7762z00zz__objectz00, 
BINT(((long)49491))); 
exit( -1 );} } 
BgL_auxz00_8701 = 
BGl_objectzd2equalzf3zd2default1040zf3zz__objectz00(BgL_auxz00_8702, BgL_auxz00_8711); } 
return 
BBOOL(BgL_auxz00_8701);} } 
}

