/*===========================================================================*/
/*   (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 -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Llib/object.scm -indent -o objs/obj_u/Llib/object.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

#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 bool_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__objectzf3zf3zz__objectz00(obj_t, obj_t);
static obj_t BGl__genericzd2prezd2methodzd2setz12zc0zz__objectz00(obj_t, obj_t, obj_t);
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 BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectzd2default1034z51zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_extendzd2vectorzd2zz__objectz00(obj_t, obj_t, int);
static obj_t BGl_list3314z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list3317z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol3352z00zz__objectz00 = BUNSPEC;
static obj_t BGl__addzd2genericz12zc0zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zz__objectz00();
static obj_t BGl_list3321z00zz__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_symbol3347z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_objectzd2writezd2zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl_list3324z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol3342z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list3328z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list3330z00zz__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_symbol3340z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_objectzf3zf3zz__objectz00(obj_t);
static obj_t BGl_symbol3338z00zz__objectz00 = BUNSPEC;
static obj_t BGl_objectzd2printzd2default1038z00zz__objectz00(BgL_objectz00_bglt, obj_t, obj_t);
static obj_t BGl_list3333z00zz__objectz00 = BUNSPEC;
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_symbol3336z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list3335z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list3337z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
static obj_t BGl_symbol3332z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list3339z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol3331z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list3341z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol3329z00zz__objectz00 = BUNSPEC;
static obj_t BGl__allocatezd2instancezd2zz__objectz00(obj_t, obj_t);
static obj_t BGl_list3343z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol3327z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list3344z00zz__objectz00 = BUNSPEC;
extern obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_list3345z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol3325z00zz__objectz00 = BUNSPEC;
static obj_t BGl_list3346z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_classzf3zf3zz__objectz00(obj_t);
static obj_t BGl_list3348z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol3322z00zz__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_symbol3319z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol3318z00zz__objectz00 = BUNSPEC;
static obj_t BGl_symbol3315z00zz__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__genericzd2defaultzd2zz__objectz00(obj_t, obj_t);
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_cnstzd2initzd2zz__objectz00();
static obj_t BGl__bigloozd2typeszd2numberz00zz__objectz00(obj_t);
BGL_EXPORTED_DECL long BGl_classzd2numzd2zz__objectz00(obj_t);
static obj_t BGl_symbol3306z00zz__objectz00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_objectzd2markzd2producerz12z12zz__objectz00(obj_t);
static obj_t BGl__classzd2fieldzd2virtualzf3zf3zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL long bgl_types_number();
BGL_EXPORTED_DECL long BGl_classzd2hashzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_findzd2methodzd2zz__objectz00(BgL_objectz00_bglt, obj_t);
extern obj_t string_to_symbol(char *);
extern obj_t BGl_findzd2runtimezd2typez00zz__errorz00(obj_t);
static bool_t BGl_objectzd2equalzf3zd2default1040zf3zz__objectz00(BgL_objectz00_bglt, BgL_objectz00_bglt);
extern obj_t display_char(obj_t, obj_t);
static obj_t BGl__structzb2objectzd2ze3objectz83zz__objectz00(obj_t, obj_t, obj_t);
static obj_t BGl_objectzd2ze3structzd2default1032ze3zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl_makezd2classzd2virtualzd2slotszd2vectorz00zz__objectz00(obj_t, obj_t);
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 long BGl_za2nbzd2genericszd2maxza2z00zz__objectz00;
extern obj_t bgl_reverse(obj_t);
BGL_EXPORTED_DECL obj_t BGl_findzd2classzd2fieldz00zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_classzd2fieldzf3z21zz__objectz00(obj_t);
BGL_EXPORTED_DECL long BGl_objectzd2classzd2numz00zz__objectz00(BgL_objectz00_bglt);
static long BGl_za2nbzd2genericsza2zd2zz__objectz00;
static obj_t BGl__classzd2subclasseszd2zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_widezd2objectzf3z21zz__objectz00(BgL_objectz00_bglt);
extern obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_doublezd2nbzd2genericsz12z12zz__objectz00();
static bool_t BGl_classzd2hierarchyzd2numberingz12z12zz__objectz00(obj_t, obj_t);
static obj_t BGl__objectzd2ze3structzd2default1032ze3zz__objectz00(obj_t, obj_t);
static obj_t BGl__makezd2objectzd2zz__objectz00(obj_t);
static obj_t BGl__methodzd2arrayzd2refz00zz__objectz00(obj_t, obj_t, obj_t, obj_t);
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__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__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__findzd2methodzd2zz__objectz00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_objectzd2displayzd2zz__objectz00(BgL_objectz00_bglt, obj_t);
extern obj_t make_vector(int, obj_t);
static obj_t BGl__classzd2fieldzd2infoz00zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_objectz00_bglt BGl_structzb2objectzd2ze3objectz83zz__objectz00(BgL_objectz00_bglt, obj_t);
BGL_EXPORTED_DECL obj_t BGl_classzd2subclasseszd2zz__objectz00(obj_t);
static obj_t BGl__objectzd2hashnumberzd2default1036z00zz__objectz00(obj_t, obj_t);
static obj_t BGl__classzd2virtualzd2zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_objectzd2ze3structz31zz__objectz00(BgL_objectz00_bglt);
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__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);
BGL_EXPORTED_DECL obj_t BGl_classzd2fieldszd2zz__objectz00(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__findzd2superzd2classzd2methodzd2zz__objectz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_genericzd2prezd2methodzd2setz12zc0zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_addzd2genericz12zc0zz__objectz00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__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);
BGL_EXPORTED_DECL obj_t BGl_genericzd2methodzd2arrayz00zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_classzd2fieldzd2infoz00zz__objectz00(obj_t);
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__objectzd2displayzd2zz__objectz00(obj_t, obj_t, obj_t);
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);
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 bool_t BGl_doublezd2nbzd2classesz12z12zz__objectz00();
static obj_t BGl_za2genericsza2z00zz__objectz00 = BUNSPEC;
static obj_t BGl__classzd2fieldzd2indexedzf3zf3zz__objectz00(obj_t, obj_t);
static obj_t BGl__classzd2numzd2zz__objectz00(obj_t, obj_t);
static obj_t BGl__objectzd2ze3structz31zz__objectz00(obj_t, obj_t);
static obj_t BGl__callzd2virtualzd2getterz00zz__objectz00(obj_t, obj_t, obj_t);
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__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__objectzd2printzd2default1038z00zz__objectz00(obj_t, obj_t, obj_t, obj_t);
extern int bgl_obj_hash_number(obj_t);
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;
BGL_EXPORTED_DECL obj_t BGl_classzd2superzd2zz__objectz00(obj_t);
static obj_t BGl__callzd2virtualzd2setterz00zz__objectz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_initializa7ezd2objectsz12z67zz__objectz00();
static obj_t BGl__allocatezd2objectzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_classzd2fieldzd2mutatorz00zz__objectz00(obj_t);
static obj_t BGl__objectzd2hashnumberzd2zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_callzd2virtualzd2setterz00zz__objectz00(BgL_objectz00_bglt, int, obj_t);
static obj_t BGl__classzd2fieldzd2mutablezf3zf3zz__objectz00(obj_t, obj_t);
static obj_t BGl__classzd2fieldzd2namez00zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_objectzd2classzd2numzd2setz12zc0zz__objectz00(BgL_objectz00_bglt, long);
static obj_t BGl__structzd2ze3objectz31zz__objectz00(obj_t, obj_t);
static obj_t BGl__callzd2nextzd2virtualzd2getterzd2zz__objectz00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__classzd2fieldzf3z21zz__objectz00(obj_t, obj_t);
static obj_t BGl__widezd2objectzf3z21zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2classesza2z00zz__objectz00 = BUNSPEC;
static obj_t BGl_objectzd2displayzd2default1028z00zz__objectz00(BgL_objectz00_bglt, obj_t);
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);
extern obj_t BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(obj_t, int);
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_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_toplevelzd2initzd2zz__objectz00();
BGL_EXPORTED_DECL obj_t BGl_objectzd2classzd2zz__objectz00(BgL_objectz00_bglt);
static obj_t BGl__classzd2fieldzd2lenzd2accessorzd2zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL BgL_objectz00_bglt BGl_fillzd2objectz12zc0zz__objectz00(BgL_objectz00_bglt);
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);
BGL_EXPORTED_DECL int BGl_objectzd2hashnumberzd2zz__objectz00(BgL_objectz00_bglt);
extern obj_t display_string(obj_t, obj_t);
static obj_t BGl__classzd2namezd2zz__objectz00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_objectzd2equalzf3z21zz__objectz00(BgL_objectz00_bglt, BgL_objectz00_bglt);
BGL_EXPORTED_DECL obj_t BGl_classzd2virtualzd2zz__objectz00(obj_t);
static obj_t BGl__genericzd2nozd2defaultzd2behaviorzd2zz__objectz00(obj_t, obj_t);
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 long BGl_za2nbzd2classeszd2maxza2z00zz__objectz00;
BGL_EXPORTED_DECL obj_t BGl_classzd2creatorzd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2classzd2fieldz00zz__objectz00(obj_t, obj_t, obj_t, obj_t, bool_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_GENERIC( BGl_objectzd2hashnumberzd2envz00zz__objectz00, BgL_bgl__objectza7d2hashnumberza7d2za7za7__objectza7003374za7, BGl__objectzd2hashnumberzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2objectzd2envz00zz__objectz00, BgL_bgl__makeza7d2objectza7d2za7za7__objectza7003375za7, BGl__makezd2objectzd2zz__objectz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2infozd2envzd2zz__objectz00, BgL_bgl__classza7d2fieldza7d2infoza700za7za7__objectza7003376z00, BGl__classzd2fieldzd2infoz00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2genericzd2bucketzd2siza7ezd2envza7zz__objectz00, BgL_bgl__biglooza7d2genericza7d2bucketza7d2siza7a7eza775za7za7__objectza7003377z00, BGl__bigloozd2genericzd2bucketzd2siza7ez75zz__objectz00, 0L, 0 );
extern obj_t BGl_displayzd2envzd2zz__r4_output_6_10_3z00;
DEFINE_EXPORT_GENERIC( BGl_objectzd2writezd2envz00zz__objectz00, BgL_bgl__objectza7d2writeza7d2za7za7__objectza7003378za7, va_generic_entry, BGl__objectzd2writezd2zz__objectz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2mutablezf3zd2envz21zz__objectz00, BgL_bgl__classza7d2fieldza7d2mutableza7f3za7f3za7za7__objectza7003379za7, BGl__classzd2fieldzd2mutablezf3zf3zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2classzd2fieldzd2envzd2zz__objectz00, BgL_bgl__findza7d2classza7d2fieldza700za7za7__objectza7003380z00, BGl__findzd2classzd2fieldz00zz__objectz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2ze3structzd2default1032zd2envz31zz__objectz00, BgL_bgl__objectza7d2za7e3structza7d2default1032za7e3za7za7__objectza7003381za7, BGl__objectzd2ze3structzd2default1032ze3zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_makezd2classzd2envz00zz__objectz00, BgL_bgl__makeza7d2classza7d2za7za7__objectza7003382za7, BGl__makezd2classzd2zz__objectz00, 0L, 12 );
DEFINE_EXPORT_PROCEDURE( BGl_fillzd2objectz12zd2envz12zz__objectz00, BgL_bgl__fillza7d2objectza712za7c0za7za7__objectza7003383z00, BGl__fillzd2objectz12zc0zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string3361z00zz__objectz00, BgL_bgl_string3361za700za7za7__objectza7003384z00, "...", 3 );
DEFINE_STRING( BGl_string3360z00zz__objectz00, BgL_bgl_string3360za700za7za7__objectza7003385z00, "#|", 2 );
DEFINE_STRING( BGl_string3359z00zz__objectz00, BgL_bgl_string3359za700za7za7__objectza7003386z00, " [", 2 );
DEFINE_STRING( BGl_string3358z00zz__objectz00, BgL_bgl_string3358za700za7za7__objectza7003387z00, "This structure can't be converted", 33 );
DEFINE_STRING( BGl_string3357z00zz__objectz00, BgL_bgl_string3357za700za7za7__objectza7003388z00, "struct+object->object", 21 );
DEFINE_STRING( BGl_string3356z00zz__objectz00, BgL_bgl_string3356za700za7za7__objectza7003389z00, "This object can't be converted", 30 );
DEFINE_STRING( BGl_string3355z00zz__objectz00, BgL_bgl_string3355za700za7za7__objectza7003390z00, "object->struct", 14 );
DEFINE_EXPORT_PROCEDURE( BGl_objectzd2markzd2producerz12zd2envzc0zz__objectz00, BgL_bgl__objectza7d2markza7d2producerza712za712za7za7__objectza7003391za7, BGl__objectzd2markzd2producerz12z12zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_structzd2ze3objectzd2envze3zz__objectz00, BgL_bgl__structza7d2za7e3objectza731za7za7__objectza7003392z00, BGl__structzd2ze3objectz31zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string3351z00zz__objectz00, BgL_bgl_string3351za700za7za7__objectza7003393z00, "Can't find class", 16 );
DEFINE_STRING( BGl_string3350z00zz__objectz00, BgL_bgl_string3350za700za7za7__objectza7003394z00, "allocate-instance", 17 );
DEFINE_STRING( BGl_string3349z00zz__objectz00, BgL_bgl_string3349za700za7za7__objectza7003395z00, "DOWN RENUMBERING...: ", 21 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2superzd2classzd2methodzd2envz00zz__objectz00, BgL_bgl__findza7d2superza7d2classza7d2methodza7d2za7za7__objectza7003396za7, BGl__findzd2superzd2classzd2methodzd2zz__objectz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2subclasseszd2envz00zz__objectz00, BgL_bgl__classza7d2subclassesza7d2za7za7__objectza7003397za7, BGl__classzd2subclasseszd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2accessorzd2envzd2zz__objectz00, BgL_bgl__classza7d2fieldza7d2accessorza700za7za7__objectza7003398z00, BGl__classzd2fieldzd2accessorz00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldszd2envz00zz__objectz00, BgL_bgl__classza7d2fieldsza7d2za7za7__objectza7003399za7, BGl__classzd2fieldszd2zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3353z00zz__objectz00, BgL_bgl_objectza7d2za7e3structza7d2object1043za7e3za7za7__objectza7003400za7, BGl_objectzd2ze3structzd2object1043ze3zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_proc3354z00zz__objectz00, BgL_bgl_structza7b2objectza7d2za7e3objectza7d2object1045za751za7za7__objectza7003401z00, BGl_structzb2objectzd2ze3objectzd2object1045z51zz__objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2lenzd2accessorzd2envz00zz__objectz00, BgL_bgl__classza7d2fieldza7d2lenza7d2accessorza7d2za7za7__objectza7003402za7, BGl__classzd2fieldzd2lenzd2accessorzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_objectzd2classzd2numzd2setz12zd2envz12zz__objectz00, BgL_bgl__objectza7d2classza7d2numza7d2setza712za7c0za7za7__objectza7003403z00, BGl__objectzd2classzd2numzd2setz12zc0zz__objectz00, 0L, 2 );
DEFINE_EXPORT_GENERIC( BGl_objectzd2equalzf3zd2envzf3zz__objectz00, BgL_bgl__objectza7d2equalza7f3za721za7za7__objectza7003404z00, BGl__objectzd2equalzf3z21zz__objectz00, 0L, 2 );
DEFINE_STRING( BGl_string3334z00zz__objectz00, BgL_bgl_string3334za700za7za7__objectza7003405z00, "           sister: ", 19 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2virtualzd2envz00zz__objectz00, BgL_bgl__classza7d2virtualza7d2za7za7__objectza7003406za7, BGl__classzd2virtualzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2virtualzd2getterzd2envzd2zz__objectz00, BgL_bgl__callza7d2virtualza7d2getterza700za7za7__objectza7003407z00, BGl__callzd2virtualzd2getterz00zz__objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_addzd2methodz12zd2envz12zz__objectz00, BgL_bgl__addza7d2methodza712za7c0za7za7__objectza7003408z00, BGl__addzd2methodz12zc0zz__objectz00, 0L, 3 );
DEFINE_STRING( BGl_string3326z00zz__objectz00, BgL_bgl_string3326za700za7za7__objectza7003409z00, " new-max: ", 10 );
DEFINE_STRING( BGl_string3323z00zz__objectz00, BgL_bgl_string3323za700za7za7__objectza7003410z00, " old-max: ", 10 );
DEFINE_EXPORT_PROCEDURE( BGl_objectzf3zd2envz21zz__objectz00, BgL_bgl__objectza7f3za7f3za7za7__objectza7003411za7, BGl__objectzf3zf3zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2classzd2fieldzd2envzd2zz__objectz00, BgL_bgl__makeza7d2classza7d2fieldza700za7za7__objectza7003412z00, BGl__makezd2classzd2fieldz00zz__objectz00, 0L, 6 );
DEFINE_STRING( BGl_string3320z00zz__objectz00, BgL_bgl_string3320za700za7za7__objectza7003413z00, " min: ", 6 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2displayzd2default1028zd2envzd2zz__objectz00, BgL_bgl__objectza7d2displayza7d2default1028za700za7za7__objectza7003414z00, va_generic_entry, BGl__objectzd2displayzd2default1028z00zz__objectz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2creatorzd2envz00zz__objectz00, BgL_bgl__classza7d2creatorza7d2za7za7__objectza7003415za7, BGl__classzd2creatorzd2zz__objectz00, 0L, 1 );
DEFINE_STRING( BGl_string3316z00zz__objectz00, BgL_bgl_string3316za700za7za7__objectza7003416z00, "UP RENUMBERING...: ", 19 );
DEFINE_STRING( BGl_string3313z00zz__objectz00, BgL_bgl_string3313za700za7za7__objectza7003417z00, "Illegal class", 13 );
DEFINE_STRING( BGl_string3312z00zz__objectz00, BgL_bgl_string3312za700za7za7__objectza7003418z00, "arity mismatch", 14 );
DEFINE_STRING( BGl_string3311z00zz__objectz00, BgL_bgl_string3311za700za7za7__objectza7003419z00, "add-method!", 11 );
DEFINE_STRING( BGl_string3310z00zz__objectz00, BgL_bgl_string3310za700za7za7__objectza7003420z00, "No default behavior", 19 );
DEFINE_STRING( BGl_string3309z00zz__objectz00, BgL_bgl_string3309za700za7za7__objectza7003421z00, "generic", 7 );
DEFINE_STRING( BGl_string3299z00zz__objectz00, BgL_bgl_string3299za700za7za7__objectza7003422z00, "class-field-indexed?", 20 );
DEFINE_STRING( BGl_string3308z00zz__objectz00, BgL_bgl_string3308za700za7za7__objectza7003423z00, "Illegal super class for class", 29 );
DEFINE_STRING( BGl_string3298z00zz__objectz00, BgL_bgl_string3298za700za7za7__objectza7003424z00, "Not a class field", 17 );
DEFINE_STRING( BGl_string3307z00zz__objectz00, BgL_bgl_string3307za700za7za7__objectza7003425z00, "add-class!", 10 );
DEFINE_STRING( BGl_string3297z00zz__objectz00, BgL_bgl_string3297za700za7za7__objectza7003426z00, "class-field-name", 16 );
DEFINE_EXPORT_PROCEDURE( BGl_addzd2genericz12zd2envz12zz__objectz00, BgL_bgl__addza7d2genericza712za7c0za7za7__objectza7003427z00, BGl__addzd2genericz12zc0zz__objectz00, 0L, 2 );
DEFINE_STRING( BGl_string3296z00zz__objectz00, BgL_bgl_string3296za700za7za7__objectza7003428z00, "class-fields", 12 );
DEFINE_STRING( BGl_string3305z00zz__objectz00, BgL_bgl_string3305za700za7za7__objectza7003429z00, "class-field-info", 16 );
DEFINE_STRING( BGl_string3295z00zz__objectz00, BgL_bgl_string3295za700za7za7__objectza7003430z00, "Class", 5 );
DEFINE_STRING( BGl_string3304z00zz__objectz00, BgL_bgl_string3304za700za7za7__objectza7003431z00, "class-field-len-accessor", 24 );
DEFINE_STRING( BGl_string3294z00zz__objectz00, BgL_bgl_string3294za700za7za7__objectza7003432z00, "runtime type error", 18 );
DEFINE_STRING( BGl_string3303z00zz__objectz00, BgL_bgl_string3303za700za7za7__objectza7003433z00, "class-field-mutator", 19 );
DEFINE_STRING( BGl_string3302z00zz__objectz00, BgL_bgl_string3302za700za7za7__objectza7003434z00, "class-field-mutable?", 20 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2objectzd2envz00zz__objectz00, BgL_bgl__allocateza7d2objectza7d2za7za7__objectza7003435za7, BGl__allocatezd2objectzd2zz__objectz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_genericzd2prezd2methodzd2setz12zd2envz12zz__objectz00, BgL_bgl__genericza7d2preza7d2methodza7d2setza712za7c0za7za7__objectza7003436z00, BGl__genericzd2prezd2methodzd2setz12zc0zz__objectz00, 0L, 2 );
DEFINE_STRING( BGl_string3301z00zz__objectz00, BgL_bgl_string3301za700za7za7__objectza7003437z00, "class-field-accessor", 20 );
DEFINE_STRING( BGl_string3300z00zz__objectz00, BgL_bgl_string3300za700za7za7__objectza7003438z00, "class-field-virtual?", 20 );
DEFINE_EXPORT_PROCEDURE( BGl_objectzd2classzd2envz00zz__objectz00, BgL_bgl__objectza7d2classza7d2za7za7__objectza7003439za7, BGl__objectzd2classzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_GENERIC( BGl_objectzd2printzd2envz00zz__objectz00, BgL_bgl__objectza7d2printza7d2za7za7__objectza7003440za7, BGl__objectzd2printzd2zz__objectz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_widezd2objectzf3zd2envzf3zz__objectz00, BgL_bgl__wideza7d2objectza7f3za721za7za7__objectza7003441z00, BGl__widezd2objectzf3z21zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2nextzd2virtualzd2setterzd2envz00zz__objectz00, BgL_bgl__callza7d2nextza7d2virtualza7d2setterza7d2za7za7__objectza7003442za7, BGl__callzd2nextzd2virtualzd2setterzd2zz__objectz00, 0L, 4 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2numzd2envz00zz__objectz00, BgL_bgl__classza7d2numza7d2za7za7__objectza7003443za7, BGl__classzd2numzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2methodzd2fromzd2envzd2zz__objectz00, BgL_bgl__findza7d2methodza7d2fromza700za7za7__objectza7003444z00, BGl__findzd2methodzd2fromz00zz__objectz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_iszd2azf3zd2envzf3zz__objectz00, BgL_bgl__isza7d2aza7f3za721za7za7__objectza7003445z00, BGl__iszd2azf3z21zz__objectz00, 0L, 2 );
extern obj_t BGl_writezd2envzd2zz__r4_output_6_10_3z00;
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2namezd2envzd2zz__objectz00, BgL_bgl__classza7d2fieldza7d2nameza700za7za7__objectza7003446z00, BGl__classzd2fieldzd2namez00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzf3zd2envzf3zz__objectz00, BgL_bgl__classza7d2fieldza7f3za721za7za7__objectza7003447z00, BGl__classzd2fieldzf3z21zz__objectz00, 0L, 1 );
DEFINE_EXPORT_GENERIC( BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BgL_bgl__structza7b2objectza7d2za7e3objectza783za7za7__objectza7003448za7, BGl__structzb2objectzd2ze3objectz83zz__objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_objectzd2classzd2numzd2envzd2zz__objectz00, BgL_bgl__objectza7d2classza7d2numza700za7za7__objectza7003449z00, BGl__objectzd2classzd2numz00zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2writezd2default1030zd2envzd2zz__objectz00, BgL_bgl__objectza7d2writeza7d2default1030za700za7za7__objectza7003450z00, va_generic_entry, BGl__objectzd2writezd2default1030z00zz__objectz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2superzd2envz00zz__objectz00, BgL_bgl__classza7d2superza7d2za7za7__objectza7003451za7, BGl__classzd2superzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_genericzd2defaultzd2envz00zz__objectz00, BgL_bgl__genericza7d2defaultza7d2za7za7__objectza7003452za7, BGl__genericzd2defaultzd2zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_genericzd2nozd2defaultzd2behaviorzd2envz00zz__objectz00, BgL_bgl__genericza7d2noza7d2defaultza7d2behaviorza7d2za7za7__objectza7003453za7, va_generic_entry, BGl__genericzd2nozd2defaultzd2behaviorzd2zz__objectz00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2indexedzf3zd2envz21zz__objectz00, BgL_bgl__classza7d2fieldza7d2indexedza7f3za7f3za7za7__objectza7003454za7, BGl__classzd2fieldzd2indexedzf3zf3zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_structzb2objectzd2ze3objectzd2default1034zd2envz83zz__objectz00, BgL_bgl__structza7b2objectza7d2za7e3objectza7d2default1034za751za7za7__objectza7003455z00, BGl__structzb2objectzd2ze3objectzd2default1034z51zz__objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2mutatorzd2envzd2zz__objectz00, BgL_bgl__classza7d2fieldza7d2mutatorza700za7za7__objectza7003456z00, BGl__classzd2fieldzd2mutatorz00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2allzd2fieldszd2envzd2zz__objectz00, BgL_bgl__classza7d2allza7d2fieldsza700za7za7__objectza7003457z00, BGl__classzd2allzd2fieldsz00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_methodzd2arrayzd2refzd2envzd2zz__objectz00, BgL_bgl__methodza7d2arrayza7d2refza700za7za7__objectza7003458z00, BGl__methodzd2arrayzd2refz00zz__objectz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_bigloozd2typeszd2numberzd2envzd2zz__objectz00, BgL_bgl__biglooza7d2typesza7d2numberza700za7za7__objectza7003459z00, BGl__bigloozd2typeszd2numberz00zz__objectz00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldzd2virtualzf3zd2envz21zz__objectz00, BgL_bgl__classza7d2fieldza7d2virtualza7f3za7f3za7za7__objectza7003460za7, BGl__classzd2fieldzd2virtualzf3zf3zz__objectz00, 0L, 1 );
DEFINE_EXPORT_GENERIC( BGl_objectzd2ze3structzd2envze3zz__objectz00, BgL_bgl__objectza7d2za7e3structza731za7za7__objectza7003461z00, BGl__objectzd2ze3structz31zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2constructorzd2envz00zz__objectz00, BgL_bgl__classza7d2constructorza7d2za7za7__objectza7003462za7, BGl__classzd2constructorzd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzf3zd2envz21zz__objectz00, BgL_bgl__classza7f3za7f3za7za7__objectza7003463za7, BGl__classzf3zf3zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_registerzd2classz12zd2envz12zz__objectz00, BgL_bgl__registerza7d2classza712za7c0za7za7__objectza7003464z00, BGl__registerzd2classz12zc0zz__objectz00, 0L, 8 );
DEFINE_EXPORT_PROCEDURE( BGl_genericzd2methodzd2arrayzd2envzd2zz__objectz00, BgL_bgl__genericza7d2methodza7d2arrayza700za7za7__objectza7003465z00, BGl__genericzd2methodzd2arrayz00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_allocatezd2instancezd2envz00zz__objectz00, BgL_bgl__allocateza7d2instanceza7d2za7za7__objectza7003466za7, BGl__allocatezd2instancezd2zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2fieldszf3zd2envzf3zz__objectz00, BgL_bgl__classza7d2fieldsza7f3za721za7za7__objectza7003467z00, BGl__classzd2fieldszf3z21zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2nextzd2virtualzd2getterzd2envz00zz__objectz00, BgL_bgl__callza7d2nextza7d2virtualza7d2getterza7d2za7za7__objectza7003468za7, BGl__callzd2nextzd2virtualzd2getterzd2zz__objectz00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_callzd2virtualzd2setterzd2envzd2zz__objectz00, BgL_bgl__callza7d2virtualza7d2setterza700za7za7__objectza7003469z00, BGl__callzd2virtualzd2setterz00zz__objectz00, 0L, 3 );
DEFINE_EXPORT_GENERIC( BGl_objectzd2displayzd2envz00zz__objectz00, BgL_bgl__objectza7d2displayza7d2za7za7__objectza7003470za7, va_generic_entry, BGl__objectzd2displayzd2zz__objectz00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_findzd2methodzd2envz00zz__objectz00, BgL_bgl__findza7d2methodza7d2za7za7__objectza7003471za7, BGl__findzd2methodzd2zz__objectz00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2hashzd2envz00zz__objectz00, BgL_bgl__classza7d2hashza7d2za7za7__objectza7003472za7, BGl__classzd2hashzd2zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2hashnumberzd2default1036zd2envzd2zz__objectz00, BgL_bgl__objectza7d2hashnumberza7d2default1036za700za7za7__objectza7003473z00, BGl__objectzd2hashnumberzd2default1036z00zz__objectz00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_classzd2namezd2envz00zz__objectz00, BgL_bgl__classza7d2nameza7d2za7za7__objectza7003474za7, BGl__classzd2namezd2zz__objectz00, 0L, 1 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2printzd2default1038zd2envzd2zz__objectz00, BgL_bgl__objectza7d2printza7d2default1038za700za7za7__objectza7003475z00, BGl__objectzd2printzd2default1038z00zz__objectz00, 0L, 3 );
DEFINE_STATIC_PROCEDURE( BGl_objectzd2equalzf3zd2default1040zd2envz21zz__objectz00, BgL_bgl__objectza7d2equalza7f3za7d2default1040za7f3za7za7__objectza7003476za7, BGl__objectzd2equalzf3zd2default1040zf3zz__objectz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long BgL_checksumz00_2751, char * BgL_fromz00_2752)
{ 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_symbol3306z00zz__objectz00 = 
string_to_symbol("done"); 
BGl_symbol3315z00zz__objectz00 = 
string_to_symbol("tprint"); 
BGl_symbol3318z00zz__objectz00 = 
string_to_symbol("class-name"); 
BGl_symbol3319z00zz__objectz00 = 
string_to_symbol("class"); 
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2764;
BgL_auxz00_2764 = 
MAKE_PAIR(BGl_symbol3319z00zz__objectz00, BNIL); 
BGl_list3317z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3318z00zz__objectz00, BgL_auxz00_2764); } 
BGl_symbol3322z00zz__objectz00 = 
string_to_symbol("class-min-num"); 
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2768;
BgL_auxz00_2768 = 
MAKE_PAIR(BGl_symbol3319z00zz__objectz00, BNIL); 
BGl_list3321z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3322z00zz__objectz00, BgL_auxz00_2768); } 
BGl_symbol3325z00zz__objectz00 = 
string_to_symbol("class-max-num"); 
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2772;
BgL_auxz00_2772 = 
MAKE_PAIR(BGl_symbol3319z00zz__objectz00, BNIL); 
BGl_list3324z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3325z00zz__objectz00, BgL_auxz00_2772); } 
BGl_symbol3327z00zz__objectz00 = 
string_to_symbol("new-num"); 
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2776;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2777;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2778;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2779;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2780;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2781;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2782;
{ /* ./Llib/object.scm 911 */
obj_t BgL_auxz00_2783;
BgL_auxz00_2783 = 
MAKE_PAIR(BGl_symbol3327z00zz__objectz00, BNIL); 
BgL_auxz00_2782 = 
MAKE_PAIR(BGl_string3326z00zz__objectz00, BgL_auxz00_2783); } 
BgL_auxz00_2781 = 
MAKE_PAIR(BGl_list3324z00zz__objectz00, BgL_auxz00_2782); } 
BgL_auxz00_2780 = 
MAKE_PAIR(BGl_string3323z00zz__objectz00, BgL_auxz00_2781); } 
BgL_auxz00_2779 = 
MAKE_PAIR(BGl_list3321z00zz__objectz00, BgL_auxz00_2780); } 
BgL_auxz00_2778 = 
MAKE_PAIR(BGl_string3320z00zz__objectz00, BgL_auxz00_2779); } 
BgL_auxz00_2777 = 
MAKE_PAIR(BGl_list3317z00zz__objectz00, BgL_auxz00_2778); } 
BgL_auxz00_2776 = 
MAKE_PAIR(BGl_string3316z00zz__objectz00, BgL_auxz00_2777); } 
BGl_list3314z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3315z00zz__objectz00, BgL_auxz00_2776); } 
BGl_symbol3329z00zz__objectz00 = 
string_to_symbol("if"); 
BGl_symbol3331z00zz__objectz00 = 
string_to_symbol("class?"); 
BGl_symbol3332z00zz__objectz00 = 
string_to_symbol("super"); 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2796;
BgL_auxz00_2796 = 
MAKE_PAIR(BGl_symbol3332z00zz__objectz00, BNIL); 
BGl_list3330z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3331z00zz__objectz00, BgL_auxz00_2796); } 
BGl_symbol3336z00zz__objectz00 = 
string_to_symbol("map"); 
BGl_symbol3338z00zz__objectz00 = 
string_to_symbol("lambda"); 
BGl_symbol3340z00zz__objectz00 = 
string_to_symbol("c"); 
BGl_list3339z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3340z00zz__objectz00, BNIL); 
BGl_symbol3342z00zz__objectz00 = 
string_to_symbol("vector"); 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2804;
BgL_auxz00_2804 = 
MAKE_PAIR(BGl_symbol3340z00zz__objectz00, BNIL); 
BGl_list3343z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3318z00zz__objectz00, BgL_auxz00_2804); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2807;
BgL_auxz00_2807 = 
MAKE_PAIR(BGl_symbol3340z00zz__objectz00, BNIL); 
BGl_list3344z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3322z00zz__objectz00, BgL_auxz00_2807); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2810;
BgL_auxz00_2810 = 
MAKE_PAIR(BGl_symbol3340z00zz__objectz00, BNIL); 
BGl_list3345z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3325z00zz__objectz00, BgL_auxz00_2810); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2813;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2814;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2815;
BgL_auxz00_2815 = 
MAKE_PAIR(BGl_list3345z00zz__objectz00, BNIL); 
BgL_auxz00_2814 = 
MAKE_PAIR(BGl_list3344z00zz__objectz00, BgL_auxz00_2815); } 
BgL_auxz00_2813 = 
MAKE_PAIR(BGl_list3343z00zz__objectz00, BgL_auxz00_2814); } 
BGl_list3341z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3342z00zz__objectz00, BgL_auxz00_2813); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2820;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2821;
BgL_auxz00_2821 = 
MAKE_PAIR(BGl_list3341z00zz__objectz00, BNIL); 
BgL_auxz00_2820 = 
MAKE_PAIR(BGl_list3339z00zz__objectz00, BgL_auxz00_2821); } 
BGl_list3337z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3338z00zz__objectz00, BgL_auxz00_2820); } 
BGl_symbol3347z00zz__objectz00 = 
string_to_symbol("class-subclasses"); 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2826;
BgL_auxz00_2826 = 
MAKE_PAIR(BGl_symbol3332z00zz__objectz00, BNIL); 
BGl_list3346z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3347z00zz__objectz00, BgL_auxz00_2826); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2829;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2830;
BgL_auxz00_2830 = 
MAKE_PAIR(BGl_list3346z00zz__objectz00, BNIL); 
BgL_auxz00_2829 = 
MAKE_PAIR(BGl_list3337z00zz__objectz00, BgL_auxz00_2830); } 
BGl_list3335z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3336z00zz__objectz00, BgL_auxz00_2829); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2834;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2835;
BgL_auxz00_2835 = 
MAKE_PAIR(BGl_list3335z00zz__objectz00, BNIL); 
BgL_auxz00_2834 = 
MAKE_PAIR(BGl_string3334z00zz__objectz00, BgL_auxz00_2835); } 
BGl_list3333z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3315z00zz__objectz00, BgL_auxz00_2834); } 
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2839;
{ /* ./Llib/object.scm 918 */
obj_t BgL_auxz00_2840;
BgL_auxz00_2840 = 
MAKE_PAIR(BGl_list3333z00zz__objectz00, BNIL); 
BgL_auxz00_2839 = 
MAKE_PAIR(BGl_list3330z00zz__objectz00, BgL_auxz00_2840); } 
BGl_list3328z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3329z00zz__objectz00, BgL_auxz00_2839); } 
{ /* ./Llib/object.scm 949 */
obj_t BgL_auxz00_2844;
{ /* ./Llib/object.scm 949 */
obj_t BgL_auxz00_2845;
{ /* ./Llib/object.scm 949 */
obj_t BgL_auxz00_2846;
{ /* ./Llib/object.scm 949 */
obj_t BgL_auxz00_2847;
BgL_auxz00_2847 = 
MAKE_PAIR(BGl_list3321z00zz__objectz00, BNIL); 
BgL_auxz00_2846 = 
MAKE_PAIR(BGl_string3320z00zz__objectz00, BgL_auxz00_2847); } 
BgL_auxz00_2845 = 
MAKE_PAIR(BGl_list3317z00zz__objectz00, BgL_auxz00_2846); } 
BgL_auxz00_2844 = 
MAKE_PAIR(BGl_string3349z00zz__objectz00, BgL_auxz00_2845); } 
BGl_list3348z00zz__objectz00 = 
MAKE_PAIR(BGl_symbol3315z00zz__objectz00, BgL_auxz00_2844); } 
return ( 
BGl_symbol3352z00zz__objectz00 = 
string_to_symbol("object"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */BUNSPEC; BUNSPEC; BUNSPEC; BUNSPEC; BUNSPEC; BUNSPEC; 
return BUNSPEC;} 
}



/* bigloo-generic-bucket-size */
BGL_EXPORTED_DEF int BGl_bigloozd2genericzd2bucketzd2siza7ez75zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 188 */
return 
(int)(((long)8));} 
}



/* _bigloo-generic-bucket-size */
obj_t BGl__bigloozd2genericzd2bucketzd2siza7ez75zz__objectz00(obj_t BgL_envz00_2478)
{ AN_OBJECT;
{ /* ./Llib/object.scm 188 */
{ /* ./Llib/object.scm 188 */
int BgL_auxz00_2855;
BgL_auxz00_2855 = 
(int)(((long)8)); 
return 
BINT(BgL_auxz00_2855);} } 
}



/* bigloo-types-number */
BGL_EXPORTED_DEF long bgl_types_number()
{ AN_OBJECT;
{ /* ./Llib/object.scm 197 */
if(
INTEGERP(BGl_za2nbzd2classesza2zd2zz__objectz00))
{ /* ./Llib/object.scm 199 */
long BgL_auxz00_2860;
BgL_auxz00_2860 = 
(long)CINT(BGl_za2nbzd2classesza2zd2zz__objectz00); 
return 
(OBJECT_TYPE+BgL_auxz00_2860);}  else 
{ /* ./Llib/object.scm 198 */
return OBJECT_TYPE;} } 
}



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



/* 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_v1011z00_1050;
{ 
int BgL_auxz00_2866;
BgL_auxz00_2866 = 
(int)(((long)13)); 
BgL_v1011z00_1050 = 
create_vector(BgL_auxz00_2866); } 
{ 
int BgL_auxz00_2869;
BgL_auxz00_2869 = 
(int)(((long)12)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2869,BGl_makezd2classzd2envz00zz__objectz00); } 
{ 
int BgL_auxz00_2872;
BgL_auxz00_2872 = 
(int)(((long)11)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2872,BgL_instz00_12); } 
{ 
int BgL_auxz00_2875;
BgL_auxz00_2875 = 
(int)(((long)10)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2875,BgL_virtualz00_11); } 
{ 
int BgL_auxz00_2878;
BgL_auxz00_2878 = 
(int)(((long)9)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2878,BgL_constrz00_10); } 
{ 
int BgL_auxz00_2881;
BgL_auxz00_2881 = 
(int)(((long)8)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2881,BgL_fdz00_9); } 
{ 
obj_t BgL_auxz00_2886;int BgL_auxz00_2884;
BgL_auxz00_2886 = 
BINT(BgL_haz00_8); 
BgL_auxz00_2884 = 
(int)(((long)7)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2884,BgL_auxz00_2886); } 
{ 
int BgL_auxz00_2889;
BgL_auxz00_2889 = 
(int)(((long)6)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2889,BgL_allocz00_7); } 
{ 
int BgL_auxz00_2892;
BgL_auxz00_2892 = 
(int)(((long)5)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2892,BgL_maxz00_6); } 
{ 
int BgL_auxz00_2895;
BgL_auxz00_2895 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2895,BgL_subz00_5); } 
{ 
int BgL_auxz00_2898;
BgL_auxz00_2898 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2898,BgL_superz00_4); } 
{ 
obj_t BgL_auxz00_2903;int BgL_auxz00_2901;
BgL_auxz00_2903 = 
BINT(BgL_minz00_3); 
BgL_auxz00_2901 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2901,BgL_auxz00_2903); } 
{ 
obj_t BgL_auxz00_2908;int BgL_auxz00_2906;
BgL_auxz00_2908 = 
BINT(BgL_numz00_2); 
BgL_auxz00_2906 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2906,BgL_auxz00_2908); } 
{ 
int BgL_auxz00_2911;
BgL_auxz00_2911 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1011z00_1050,BgL_auxz00_2911,BgL_namez00_1); } 
return BgL_v1011z00_1050;} } 
}



/* _make-class */
obj_t BGl__makezd2classzd2zz__objectz00(obj_t BgL_envz00_2480, obj_t BgL_namez00_2481, obj_t BgL_numz00_2482, obj_t BgL_minz00_2483, obj_t BgL_superz00_2484, obj_t BgL_subz00_2485, obj_t BgL_maxz00_2486, obj_t BgL_allocz00_2487, obj_t BgL_haz00_2488, obj_t BgL_fdz00_2489, obj_t BgL_constrz00_2490, obj_t BgL_virtualz00_2491, obj_t BgL_instz00_2492)
{ AN_OBJECT;
{ /* ./Llib/object.scm 205 */
return 
BGl_makezd2classzd2zz__objectz00(BgL_namez00_2481, 
(long)CINT(BgL_numz00_2482), 
(long)CINT(BgL_minz00_2483), BgL_superz00_2484, BgL_subz00_2485, BgL_maxz00_2486, BgL_allocz00_2487, 
(long)CINT(BgL_haz00_2488), BgL_fdz00_2489, BgL_constrz00_2490, BgL_virtualz00_2491, BgL_instz00_2492);} 
}



/* class? */
BGL_EXPORTED_DEF bool_t BGl_classzf3zf3zz__objectz00(obj_t BgL_objz00_13)
{ AN_OBJECT;
{ /* ./Llib/object.scm 223 */
if(
VECTORP(BgL_objz00_13))
{ /* ./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;
BgL_arg1079z00_511 = 
VECTOR_LENGTH(BgL_objz00_13); 
{ /* ./Llib/object.scm 225 */
long BgL_auxz00_2921;
BgL_auxz00_2921 = 
(long)(BgL_arg1079z00_511); 
BgL__andtest_1014z00_509 = 
(BgL_auxz00_2921==((long)12)); } } 
if(BgL__andtest_1014z00_509)
{ /* ./Llib/object.scm 226 */
obj_t BgL_auxz00_2925;
{ 
int BgL_auxz00_2926;
BgL_auxz00_2926 = 
(int)(((long)11)); 
BgL_auxz00_2925 = 
VECTOR_REF(BgL_objz00_13,BgL_auxz00_2926); } 
BgL__ortest_1013z00_504 = 
(BgL_auxz00_2925==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;
BgL_arg1068z00_507 = 
VECTOR_LENGTH(BgL_objz00_13); 
{ /* ./Llib/object.scm 227 */
long BgL_auxz00_2932;
BgL_auxz00_2932 = 
(long)(BgL_arg1068z00_507); 
BgL__andtest_1015z00_505 = 
(BgL_auxz00_2932==((long)13)); } } 
if(BgL__andtest_1015z00_505)
{ /* ./Llib/object.scm 228 */
obj_t BgL_auxz00_2936;
{ 
int BgL_auxz00_2937;
BgL_auxz00_2937 = 
(int)(((long)12)); 
BgL_auxz00_2936 = 
VECTOR_REF(BgL_objz00_13,BgL_auxz00_2937); } 
return 
(BgL_auxz00_2936==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_2493, obj_t BgL_objz00_2494)
{ AN_OBJECT;
{ /* ./Llib/object.scm 223 */
{ /* ./Llib/object.scm 224 */
bool_t BgL_auxz00_2941;
BgL_auxz00_2941 = 
BGl_classzf3zf3zz__objectz00(BgL_objz00_2494); 
return 
BBOOL(BgL_auxz00_2941);} } 
}



/* class-name */
BGL_EXPORTED_DEF obj_t BGl_classzd2namezd2zz__objectz00(obj_t BgL_classz00_14)
{ AN_OBJECT;
{ /* ./Llib/object.scm 233 */
{ 
int BgL_auxz00_2944;
BgL_auxz00_2944 = 
(int)(((long)0)); 
return 
VECTOR_REF(BgL_classz00_14,BgL_auxz00_2944);} } 
}



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



/* class-num */
BGL_EXPORTED_DEF long BGl_classzd2numzd2zz__objectz00(obj_t BgL_classz00_15)
{ AN_OBJECT;
{ /* ./Llib/object.scm 239 */
{ /* ./Llib/object.scm 240 */
int BgL_kz00_1103;
BgL_kz00_1103 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 240 */
obj_t BgL_auxz00_2949;
BgL_auxz00_2949 = 
VECTOR_REF(BgL_classz00_15,BgL_kz00_1103); 
return 
(long)CINT(BgL_auxz00_2949);} } } 
}



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



/* class-virtual */
BGL_EXPORTED_DEF obj_t BGl_classzd2virtualzd2zz__objectz00(obj_t BgL_classz00_22)
{ AN_OBJECT;
{ /* ./Llib/object.scm 269 */
{ 
int BgL_auxz00_2955;
BgL_auxz00_2955 = 
(int)(((long)10)); 
return 
VECTOR_REF(BgL_classz00_22,BgL_auxz00_2955);} } 
}



/* _class-virtual */
obj_t BGl__classzd2virtualzd2zz__objectz00(obj_t BgL_envz00_2499, obj_t BgL_classz00_2500)
{ AN_OBJECT;
{ /* ./Llib/object.scm 269 */
{ 
int BgL_auxz00_2958;
BgL_auxz00_2958 = 
(int)(((long)10)); 
return 
VECTOR_REF(BgL_classz00_2500,BgL_auxz00_2958);} } 
}



/* class-fields */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldszd2zz__objectz00(obj_t BgL_classz00_23)
{ AN_OBJECT;
{ /* ./Llib/object.scm 275 */
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_23))
{ 
int BgL_auxz00_2963;
BgL_auxz00_2963 = 
(int)(((long)8)); 
return 
VECTOR_REF(BgL_classz00_23,BgL_auxz00_2963);}  else 
{ /* ./Llib/object.scm 278 */
obj_t BgL_arg1095z00_515;
BgL_arg1095z00_515 = 
BGl_bigloozd2typezd2errorzd2msgzd2zz__errorz00(BGl_string3294z00zz__objectz00, BGl_string3295z00zz__objectz00, 
BGl_findzd2runtimezd2typez00zz__errorz00(BgL_classz00_23)); 
FAILURE(BGl_string3296z00zz__objectz00,BgL_arg1095z00_515,BgL_classz00_23);} } 
}



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



/* 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_fieldsz00_519;obj_t BgL_superz00_520;
{ /* ./Llib/object.scm 288 */
obj_t BgL_fieldsz00_523;
BgL_fieldsz00_523 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_classz00_24); 
{ /* ./Llib/object.scm 289 */
bool_t BgL_testz00_2971;
{ /* ./Llib/object.scm 289 */
bool_t BgL__ortest_1020z00_1122;
BgL__ortest_1020z00_1122 = 
PAIRP(BgL_fieldsz00_523); 
if(BgL__ortest_1020z00_1122)
{ /* ./Llib/object.scm 289 */
BgL_testz00_2971 = BgL__ortest_1020z00_1122
; }  else 
{ /* ./Llib/object.scm 289 */
BgL_testz00_2971 = 
NULLP(BgL_fieldsz00_523)
; } } 
if(BgL_testz00_2971)
{ /* ./Llib/object.scm 289 */
BgL_fieldsz00_519 = BgL_fieldsz00_523; }  else 
{ /* ./Llib/object.scm 289 */
BgL_fieldsz00_519 = BNIL; } } } 
{ 
int BgL_auxz00_2975;
BgL_auxz00_2975 = 
(int)(((long)3)); 
BgL_superz00_520 = 
VECTOR_REF(BgL_classz00_24,BgL_auxz00_2975); } 
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_520))
{ /* ./Llib/object.scm 293 */
return 
bgl_append2(
BGl_classzd2allzd2fieldsz00zz__objectz00(BgL_superz00_520), BgL_fieldsz00_519);}  else 
{ /* ./Llib/object.scm 293 */
return BgL_fieldsz00_519;} } } 
}



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



/* 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 */
{ 
obj_t BgL_fieldsz00_534;
{ 
obj_t BgL_classz00_526;
BgL_classz00_526 = BgL_classz00_25; 
BgL_loopz00_527:
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_526))
{ /* ./Llib/object.scm 311 */
obj_t BgL_fieldsz00_529;
BgL_fieldsz00_529 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_classz00_526); 
{ /* ./Llib/object.scm 312 */
bool_t BgL_test1116z00_530;
{ /* ./Llib/object.scm 312 */
bool_t BgL__ortest_1020z00_1130;
BgL__ortest_1020z00_1130 = 
PAIRP(BgL_fieldsz00_529); 
if(BgL__ortest_1020z00_1130)
{ /* ./Llib/object.scm 312 */
BgL_test1116z00_530 = BgL__ortest_1020z00_1130; }  else 
{ /* ./Llib/object.scm 312 */
BgL_test1116z00_530 = 
NULLP(BgL_fieldsz00_529); } } 
if(BgL_test1116z00_530)
{ /* ./Llib/object.scm 313 */
obj_t BgL_resz00_531;
BgL_fieldsz00_534 = BgL_fieldsz00_529; 
BgL_zc3anonymousza31125ze3z83_535:
if(
NULLP(BgL_fieldsz00_534))
{ /* ./Llib/object.scm 303 */
BgL_resz00_531 = BFALSE; }  else 
{ /* ./Llib/object.scm 305 */
bool_t BgL_test1127z00_537;
{ /* ./Llib/object.scm 305 */
obj_t BgL_arg1134z00_539;
{ /* ./Llib/object.scm 305 */
obj_t BgL_arg1137z00_540;
BgL_arg1137z00_540 = 
CAR(BgL_fieldsz00_534); 
{ /* ./Llib/object.scm 305 */
obj_t BgL_res2567z00_1146;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_arg1137z00_540))
{ 
int BgL_auxz00_2995;
BgL_auxz00_2995 = 
(int)(((long)0)); 
BgL_res2567z00_1146 = 
VECTOR_REF(BgL_arg1137z00_540,BgL_auxz00_2995); }  else 
{ /* ./Llib/object.scm 305 */
FAILURE(BGl_string3297z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_arg1137z00_540);} 
BgL_arg1134z00_539 = BgL_res2567z00_1146; } } 
BgL_test1127z00_537 = 
(BgL_arg1134z00_539==BgL_namez00_26); } 
if(BgL_test1127z00_537)
{ /* ./Llib/object.scm 305 */
BgL_resz00_531 = 
CAR(BgL_fieldsz00_534); }  else 
{ /* ./Llib/object.scm 305 */
{ 
obj_t BgL_fieldsz00_3002;
BgL_fieldsz00_3002 = 
CDR(BgL_fieldsz00_534); 
BgL_fieldsz00_534 = BgL_fieldsz00_3002; 
goto BgL_zc3anonymousza31125ze3z83_535;} } } 
if(
CBOOL(BgL_resz00_531))
{ /* ./Llib/object.scm 314 */
return BgL_resz00_531;}  else 
{ 
obj_t BgL_classz00_3006;
{ 
int BgL_auxz00_3007;
BgL_auxz00_3007 = 
(int)(((long)3)); 
BgL_classz00_3006 = 
VECTOR_REF(BgL_classz00_526,BgL_auxz00_3007); } 
BgL_classz00_526 = BgL_classz00_3006; 
goto BgL_loopz00_527;} }  else 
{ /* ./Llib/object.scm 312 */
return BFALSE;} } }  else 
{ /* ./Llib/object.scm 310 */
return BFALSE;} } } } 
}



/* _find-class-field */
obj_t BGl__findzd2classzd2fieldz00zz__objectz00(obj_t BgL_envz00_2505, obj_t BgL_classz00_2506, obj_t BgL_namez00_2507)
{ AN_OBJECT;
{ /* ./Llib/object.scm 300 */
return 
BGl_findzd2classzd2fieldz00zz__objectz00(BgL_classz00_2506, BgL_namez00_2507);} 
}



/* 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_v1017z00_1149;
{ 
int BgL_auxz00_3011;
BgL_auxz00_3011 = 
(int)(((long)7)); 
BgL_v1017z00_1149 = 
create_vector(BgL_auxz00_3011); } 
{ 
int BgL_auxz00_3014;
BgL_auxz00_3014 = 
(int)(((long)6)); 
VECTOR_SET(BgL_v1017z00_1149,BgL_auxz00_3014,BgL_infoz00_32); } 
{ 
int BgL_auxz00_3017;
BgL_auxz00_3017 = 
(int)(((long)5)); 
VECTOR_SET(BgL_v1017z00_1149,BgL_auxz00_3017,BGl_makezd2classzd2fieldzd2envzd2zz__objectz00); } 
{ 
obj_t BgL_auxz00_3022;int BgL_auxz00_3020;
BgL_auxz00_3022 = 
BBOOL(BgL_virtualz00_31); 
BgL_auxz00_3020 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1017z00_1149,BgL_auxz00_3020,BgL_auxz00_3022); } 
{ 
int BgL_auxz00_3025;
BgL_auxz00_3025 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1017z00_1149,BgL_auxz00_3025,BgL_indexedz00_30); } 
{ 
int BgL_auxz00_3028;
BgL_auxz00_3028 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1017z00_1149,BgL_auxz00_3028,BgL_setterz00_29); } 
{ 
int BgL_auxz00_3031;
BgL_auxz00_3031 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1017z00_1149,BgL_auxz00_3031,BgL_getterz00_28); } 
{ 
int BgL_auxz00_3034;
BgL_auxz00_3034 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1017z00_1149,BgL_auxz00_3034,BgL_namez00_27); } 
return BgL_v1017z00_1149;} } 
}



/* _make-class-field */
obj_t BGl__makezd2classzd2fieldz00zz__objectz00(obj_t BgL_envz00_2508, obj_t BgL_namez00_2509, obj_t BgL_getterz00_2510, obj_t BgL_setterz00_2511, obj_t BgL_indexedz00_2512, obj_t BgL_virtualz00_2513, obj_t BgL_infoz00_2514)
{ AN_OBJECT;
{ /* ./Llib/object.scm 320 */
return 
BGl_makezd2classzd2fieldz00zz__objectz00(BgL_namez00_2509, BgL_getterz00_2510, BgL_setterz00_2511, BgL_indexedz00_2512, 
CBOOL(BgL_virtualz00_2513), BgL_infoz00_2514);} 
}



/* class-field? */
BGL_EXPORTED_DEF bool_t BGl_classzd2fieldzf3z21zz__objectz00(obj_t BgL_objz00_33)
{ AN_OBJECT;
{ /* ./Llib/object.scm 326 */
if(
VECTORP(BgL_objz00_33))
{ /* ./Llib/object.scm 328 */
bool_t BgL__andtest_1019z00_544;
{ /* ./Llib/object.scm 328 */
int BgL_arg1154z00_546;
BgL_arg1154z00_546 = 
VECTOR_LENGTH(BgL_objz00_33); 
{ /* ./Llib/object.scm 328 */
long BgL_auxz00_3042;
BgL_auxz00_3042 = 
(long)(BgL_arg1154z00_546); 
BgL__andtest_1019z00_544 = 
(BgL_auxz00_3042==((long)7)); } } 
if(BgL__andtest_1019z00_544)
{ /* ./Llib/object.scm 329 */
obj_t BgL_auxz00_3046;
{ 
int BgL_auxz00_3047;
BgL_auxz00_3047 = 
(int)(((long)5)); 
BgL_auxz00_3046 = 
VECTOR_REF(BgL_objz00_33,BgL_auxz00_3047); } 
return 
(BgL_auxz00_3046==BGl_makezd2classzd2fieldzd2envzd2zz__objectz00);}  else 
{ /* ./Llib/object.scm 328 */
return ((bool_t)0);} }  else 
{ /* ./Llib/object.scm 327 */
return ((bool_t)0);} } 
}



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



/* 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 */
bool_t BgL__ortest_1020z00_2690;
BgL__ortest_1020z00_2690 = 
PAIRP(BgL_fieldsz00_34); 
if(BgL__ortest_1020z00_2690)
{ /* ./Llib/object.scm 335 */
return BgL__ortest_1020z00_2690;}  else 
{ /* ./Llib/object.scm 335 */
return 
NULLP(BgL_fieldsz00_34);} } } 
}



/* _class-fields? */
obj_t BGl__classzd2fieldszf3z21zz__objectz00(obj_t BgL_envz00_2517, obj_t BgL_fieldsz00_2518)
{ AN_OBJECT;
{ /* ./Llib/object.scm 334 */
{ /* ./Llib/object.scm 335 */
bool_t BgL_auxz00_3057;
{ /* ./Llib/object.scm 335 */
bool_t BgL__ortest_1020z00_2692;
BgL__ortest_1020z00_2692 = 
PAIRP(BgL_fieldsz00_2518); 
if(BgL__ortest_1020z00_2692)
{ /* ./Llib/object.scm 335 */
BgL_auxz00_3057 = BgL__ortest_1020z00_2692
; }  else 
{ /* ./Llib/object.scm 335 */
BgL_auxz00_3057 = 
NULLP(BgL_fieldsz00_2518)
; } } 
return 
BBOOL(BgL_auxz00_3057);} } 
}



/* class-field-name */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldzd2namez00zz__objectz00(obj_t BgL_fieldz00_35)
{ AN_OBJECT;
{ /* ./Llib/object.scm 340 */
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_35))
{ 
int BgL_auxz00_3064;
BgL_auxz00_3064 = 
(int)(((long)0)); 
return 
VECTOR_REF(BgL_fieldz00_35,BgL_auxz00_3064);}  else 
{ /* ./Llib/object.scm 341 */
FAILURE(BGl_string3297z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_35);} } 
}



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



/* class-field-indexed? */
BGL_EXPORTED_DEF bool_t BGl_classzd2fieldzd2indexedzf3zf3zz__objectz00(obj_t BgL_fieldz00_36)
{ AN_OBJECT;
{ /* ./Llib/object.scm 348 */
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_36))
{ /* ./Llib/object.scm 349 */
obj_t BgL_auxz00_3071;
{ 
int BgL_auxz00_3072;
BgL_auxz00_3072 = 
(int)(((long)3)); 
BgL_auxz00_3071 = 
VECTOR_REF(BgL_fieldz00_36,BgL_auxz00_3072); } 
return 
PROCEDUREP(BgL_auxz00_3071);}  else 
{ /* ./Llib/object.scm 349 */
FAILURE(BGl_string3299z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_36);} } 
}



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



/* class-field-virtual? */
BGL_EXPORTED_DEF bool_t BGl_classzd2fieldzd2virtualzf3zf3zz__objectz00(obj_t BgL_fieldz00_37)
{ AN_OBJECT;
{ /* ./Llib/object.scm 356 */
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_37))
{ /* ./Llib/object.scm 357 */
int BgL_kz00_1195;
BgL_kz00_1195 = 
(int)(((long)4)); 
{ /* ./Llib/object.scm 357 */
obj_t BgL_auxz00_3083;
BgL_auxz00_3083 = 
VECTOR_REF(BgL_fieldz00_37,BgL_kz00_1195); 
return 
CBOOL(BgL_auxz00_3083);} }  else 
{ /* ./Llib/object.scm 357 */
FAILURE(BGl_string3300z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_37);} } 
}



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



/* class-field-accessor */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldzd2accessorz00zz__objectz00(obj_t BgL_fieldz00_38)
{ AN_OBJECT;
{ /* ./Llib/object.scm 364 */
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_38))
{ 
int BgL_auxz00_3092;
BgL_auxz00_3092 = 
(int)(((long)1)); 
return 
VECTOR_REF(BgL_fieldz00_38,BgL_auxz00_3092);}  else 
{ /* ./Llib/object.scm 365 */
FAILURE(BGl_string3301z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_38);} } 
}



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



/* class-field-mutable? */
BGL_EXPORTED_DEF bool_t BGl_classzd2fieldzd2mutablezf3zf3zz__objectz00(obj_t BgL_fieldz00_39)
{ AN_OBJECT;
{ /* ./Llib/object.scm 372 */
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_39))
{ /* ./Llib/object.scm 373 */
obj_t BgL_auxz00_3099;
{ 
int BgL_auxz00_3100;
BgL_auxz00_3100 = 
(int)(((long)2)); 
BgL_auxz00_3099 = 
VECTOR_REF(BgL_fieldz00_39,BgL_auxz00_3100); } 
return 
PROCEDUREP(BgL_auxz00_3099);}  else 
{ /* ./Llib/object.scm 373 */
FAILURE(BGl_string3302z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_39);} } 
}



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



/* class-field-mutator */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldzd2mutatorz00zz__objectz00(obj_t BgL_fieldz00_40)
{ AN_OBJECT;
{ /* ./Llib/object.scm 380 */
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_40))
{ 
int BgL_auxz00_3110;
BgL_auxz00_3110 = 
(int)(((long)2)); 
return 
VECTOR_REF(BgL_fieldz00_40,BgL_auxz00_3110);}  else 
{ /* ./Llib/object.scm 381 */
FAILURE(BGl_string3303z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_40);} } 
}



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



/* class-field-len-accessor */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldzd2lenzd2accessorzd2zz__objectz00(obj_t BgL_fieldz00_41)
{ AN_OBJECT;
{ /* ./Llib/object.scm 388 */
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_41))
{ 
int BgL_auxz00_3117;
BgL_auxz00_3117 = 
(int)(((long)3)); 
return 
VECTOR_REF(BgL_fieldz00_41,BgL_auxz00_3117);}  else 
{ /* ./Llib/object.scm 389 */
FAILURE(BGl_string3304z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_41);} } 
}



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



/* class-field-info */
BGL_EXPORTED_DEF obj_t BGl_classzd2fieldzd2infoz00zz__objectz00(obj_t BgL_fieldz00_42)
{ AN_OBJECT;
{ /* ./Llib/object.scm 396 */
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_42))
{ 
int BgL_auxz00_3124;
BgL_auxz00_3124 = 
(int)(((long)6)); 
return 
VECTOR_REF(BgL_fieldz00_42,BgL_auxz00_3124);}  else 
{ /* ./Llib/object.scm 397 */
FAILURE(BGl_string3305z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_42);} } 
}



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



/* class-super */
BGL_EXPORTED_DEF obj_t BGl_classzd2superzd2zz__objectz00(obj_t BgL_classz00_43)
{ AN_OBJECT;
{ /* ./Llib/object.scm 404 */
{ 
int BgL_auxz00_3129;
BgL_auxz00_3129 = 
(int)(((long)3)); 
return 
VECTOR_REF(BgL_classz00_43,BgL_auxz00_3129);} } 
}



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



/* class-subclasses */
BGL_EXPORTED_DEF obj_t BGl_classzd2subclasseszd2zz__objectz00(obj_t BgL_classz00_44)
{ AN_OBJECT;
{ /* ./Llib/object.scm 410 */
{ 
int BgL_auxz00_3133;
BgL_auxz00_3133 = 
(int)(((long)4)); 
return 
VECTOR_REF(BgL_classz00_44,BgL_auxz00_3133);} } 
}



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



/* class-hash */
BGL_EXPORTED_DEF long BGl_classzd2hashzd2zz__objectz00(obj_t BgL_classz00_49)
{ AN_OBJECT;
{ /* ./Llib/object.scm 434 */
{ /* ./Llib/object.scm 435 */
int BgL_kz00_1241;
BgL_kz00_1241 = 
(int)(((long)7)); 
{ /* ./Llib/object.scm 435 */
obj_t BgL_auxz00_3138;
BgL_auxz00_3138 = 
VECTOR_REF(BgL_classz00_49,BgL_kz00_1241); 
return 
(long)CINT(BgL_auxz00_3138);} } } 
}



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



/* class-constructor */
BGL_EXPORTED_DEF obj_t BGl_classzd2constructorzd2zz__objectz00(obj_t BgL_classz00_50)
{ AN_OBJECT;
{ /* ./Llib/object.scm 440 */
{ 
int BgL_auxz00_3144;
BgL_auxz00_3144 = 
(int)(((long)9)); 
return 
VECTOR_REF(BgL_classz00_50,BgL_auxz00_3144);} } 
}



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



/* class-creator */
BGL_EXPORTED_DEF obj_t BGl_classzd2creatorzd2zz__objectz00(obj_t BgL_classz00_51)
{ AN_OBJECT;
{ /* ./Llib/object.scm 446 */
{ 
int BgL_auxz00_3148;
BgL_auxz00_3148 = 
(int)(((long)11)); 
return 
VECTOR_REF(BgL_classz00_51,BgL_auxz00_3148);} } 
}



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



/* initialize-objects! */
obj_t BGl_initializa7ezd2objectsz12z67zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 479 */
if(
INTEGERP(BGl_za2nbzd2classesza2zd2zz__objectz00))
{ /* ./Llib/object.scm 480 */
return BGl_symbol3306z00zz__objectz00;}  else 
{ /* ./Llib/object.scm 480 */
BGl_za2nbzd2classesza2zd2zz__objectz00 = 
BINT(((long)0)); 
BGl_za2nbzd2classeszd2maxza2z00zz__objectz00 = ((long)50); 
{ /* ./Llib/object.scm 485 */
int BgL_auxz00_3155;
BgL_auxz00_3155 = 
(int)(BGl_za2nbzd2classeszd2maxza2z00zz__objectz00); 
BGl_za2classesza2z00zz__objectz00 = 
make_vector(BgL_auxz00_3155, BFALSE); } 
BGl_za2nbzd2genericszd2maxza2z00zz__objectz00 = ((long)50); 
BGl_za2nbzd2genericsza2zd2zz__objectz00 = ((long)0); 
{ /* ./Llib/object.scm 488 */
int BgL_auxz00_3158;
BgL_auxz00_3158 = 
(int)(BGl_za2nbzd2genericszd2maxza2z00zz__objectz00); 
return ( 
BGl_za2genericsza2z00zz__objectz00 = 
make_vector(BgL_auxz00_3158, BFALSE), BUNSPEC) ;} } } 
}



/* 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 */
int BgL_oldzd2lenzd2_1248;
BgL_oldzd2lenzd2_1248 = 
VECTOR_LENGTH(BgL_oldzd2veczd2_52); 
{ /* ./Llib/object.scm 494 */
long BgL_newzd2lenzd2_1249;
{ /* ./Llib/object.scm 494 */
long BgL_auxz00_3164;long BgL_auxz00_3162;
BgL_auxz00_3164 = 
(long)(BgL_oldzd2lenzd2_1248); 
BgL_auxz00_3162 = 
(long)(BgL_extendz00_54); 
BgL_newzd2lenzd2_1249 = 
(BgL_auxz00_3162+BgL_auxz00_3164); } 
{ /* ./Llib/object.scm 494 */
obj_t BgL_newzd2veczd2_1250;
{ /* ./Llib/object.scm 494 */
int BgL_auxz00_3167;
BgL_auxz00_3167 = 
(int)(BgL_newzd2lenzd2_1249); 
BgL_newzd2veczd2_1250 = 
make_vector(BgL_auxz00_3167, BgL_fillz00_53); } 
{ /* ./Llib/object.scm 494 */

{ 
long BgL_iz00_1252;
BgL_iz00_1252 = ((long)0); 
BgL_loopz00_1251:
{ /* ./Llib/object.scm 494 */
bool_t BgL_testz00_3170;
{ /* ./Llib/object.scm 494 */
long BgL_auxz00_3171;
BgL_auxz00_3171 = 
(long)(BgL_oldzd2lenzd2_1248); 
BgL_testz00_3170 = 
(BgL_iz00_1252==BgL_auxz00_3171); } 
if(BgL_testz00_3170)
{ /* ./Llib/object.scm 494 */
return BgL_newzd2veczd2_1250;}  else 
{ /* ./Llib/object.scm 494 */
{ 
obj_t BgL_auxz00_3176;int BgL_auxz00_3174;
{ 
int BgL_auxz00_3177;
BgL_auxz00_3177 = 
(int)(BgL_iz00_1252); 
BgL_auxz00_3176 = 
VECTOR_REF(BgL_oldzd2veczd2_52,BgL_auxz00_3177); } 
BgL_auxz00_3174 = 
(int)(BgL_iz00_1252); 
VECTOR_SET(BgL_newzd2veczd2_1250,BgL_auxz00_3174,BgL_auxz00_3176); } 
{ 
long BgL_iz00_3181;
BgL_iz00_3181 = 
(BgL_iz00_1252+((long)1)); 
BgL_iz00_1252 = BgL_iz00_3181; 
goto BgL_loopz00_1251;} } } } } } } } } 
}



/* double-nb-classes! */
bool_t BGl_doublezd2nbzd2classesz12z12zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 513 */
BGl_za2nbzd2classeszd2maxza2z00zz__objectz00 = 
(((long)2)*BGl_za2nbzd2classeszd2maxza2z00zz__objectz00); 
{ /* ./Llib/object.scm 515 */
obj_t BgL_oldzd2veczd2_1295;
BgL_oldzd2veczd2_1295 = BGl_za2classesza2z00zz__objectz00; 
{ /* ./Llib/object.scm 515 */
int BgL_arg1229z00_1297;
BgL_arg1229z00_1297 = 
VECTOR_LENGTH(BgL_oldzd2veczd2_1295); 
BGl_za2classesza2z00zz__objectz00 = 
BGl_extendzd2vectorzd2zz__objectz00(BgL_oldzd2veczd2_1295, BFALSE, BgL_arg1229z00_1297); } } 
{ 
long BgL_iz00_569;
BgL_iz00_569 = ((long)0); 
BgL_loopz00_570:
if(
(BgL_iz00_569<BGl_za2nbzd2genericsza2zd2zz__objectz00))
{ /* ./Llib/object.scm 519 */
obj_t BgL_thezd2genericzd2_572;
{ 
int BgL_auxz00_3188;
BgL_auxz00_3188 = 
(int)(BgL_iz00_569); 
BgL_thezd2genericzd2_572 = 
VECTOR_REF(BGl_za2genericsza2z00zz__objectz00,BgL_auxz00_3188); } 
{ /* ./Llib/object.scm 519 */
obj_t BgL_defaultzd2bucketzd2_573;
{ /* ./Llib/object.scm 520 */
int BgL_auxz00_3191;
BgL_auxz00_3191 = 
(int)(((long)2)); 
BgL_defaultzd2bucketzd2_573 = 
PROCEDURE_REF(BgL_thezd2genericzd2_572, BgL_auxz00_3191); } 
{ /* ./Llib/object.scm 520 */
obj_t BgL_oldzd2methodzd2arrayz00_574;
{ /* ./Llib/object.scm 521 */
int BgL_auxz00_3194;
BgL_auxz00_3194 = 
(int)(((long)1)); 
BgL_oldzd2methodzd2arrayz00_574 = 
PROCEDURE_REF(BgL_thezd2genericzd2_572, BgL_auxz00_3194); } 
{ /* ./Llib/object.scm 521 */

{ /* ./Llib/object.scm 523 */
obj_t BgL_arg1237z00_575;
{ /* ./Llib/object.scm 523 */
int BgL_arg1229z00_1308;
BgL_arg1229z00_1308 = 
VECTOR_LENGTH(BgL_oldzd2methodzd2arrayz00_574); 
BgL_arg1237z00_575 = 
BGl_extendzd2vectorzd2zz__objectz00(BgL_oldzd2methodzd2arrayz00_574, BgL_defaultzd2bucketzd2_573, BgL_arg1229z00_1308); } 
{ /* ./Llib/object.scm 522 */
int BgL_auxz00_3199;
BgL_auxz00_3199 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_thezd2genericzd2_572, BgL_auxz00_3199, BgL_arg1237z00_575); } } 
{ 
long BgL_iz00_3202;
BgL_iz00_3202 = 
(BgL_iz00_569+((long)1)); 
BgL_iz00_569 = BgL_iz00_3202; 
goto BgL_loopz00_570;} } } } }  else 
{ /* ./Llib/object.scm 518 */
return ((bool_t)0);} } } 
}



/* double-nb-generics! */
obj_t BGl_doublezd2nbzd2genericsz12z12zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 530 */
BGl_za2nbzd2genericszd2maxza2z00zz__objectz00 = 
(((long)2)*BGl_za2nbzd2genericszd2maxza2z00zz__objectz00); 
{ /* ./Llib/object.scm 532 */
obj_t BgL_oldzd2veczd2_1316;
BgL_oldzd2veczd2_1316 = BGl_za2genericsza2z00zz__objectz00; 
{ /* ./Llib/object.scm 532 */
int BgL_arg1229z00_1318;
BgL_arg1229z00_1318 = 
VECTOR_LENGTH(BgL_oldzd2veczd2_1316); 
return ( 
BGl_za2genericsza2z00zz__objectz00 = 
BGl_extendzd2vectorzd2zz__objectz00(BgL_oldzd2veczd2_1316, BFALSE, BgL_arg1229z00_1318), BUNSPEC) ;} } } 
}



/* object? */
BGL_EXPORTED_DEF bool_t BGl_objectzf3zf3zz__objectz00(obj_t BgL_objz00_57)
{ AN_OBJECT;
{ /* ./Llib/object.scm 537 */
return 
BGL_OBJECTP(BgL_objz00_57);} 
}



/* _object? */
obj_t BGl__objectzf3zf3zz__objectz00(obj_t BgL_envz00_2545, obj_t BgL_objz00_2546)
{ AN_OBJECT;
{ /* ./Llib/object.scm 537 */
{ /* ./Llib/object.scm 538 */
bool_t BgL_auxz00_3208;
BgL_auxz00_3208 = 
BGL_OBJECTP(BgL_objz00_2546); 
return 
BBOOL(BgL_auxz00_3208);} } 
}



/* object-class-num */
BGL_EXPORTED_DEF long BGl_objectzd2classzd2numz00zz__objectz00(BgL_objectz00_bglt BgL_objz00_58)
{ AN_OBJECT;
{ /* ./Llib/object.scm 543 */
return 
BGL_OBJECT_CLASS_NUM(BgL_objz00_58);} 
}



/* _object-class-num */
obj_t BGl__objectzd2classzd2numz00zz__objectz00(obj_t BgL_envz00_2547, obj_t BgL_objz00_2548)
{ AN_OBJECT;
{ /* ./Llib/object.scm 543 */
{ /* ./Llib/object.scm 544 */
long BgL_auxz00_3212;
{ /* ./Llib/object.scm 544 */
BgL_objectz00_bglt BgL_objz00_2695;
BgL_objz00_2695 = 
(BgL_objectz00_bglt)(BgL_objz00_2548); 
BgL_auxz00_3212 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2695); } 
return 
BINT(BgL_auxz00_3212);} } 
}



/* 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 */
return 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_59, BgL_numz00_60);} 
}



/* _object-class-num-set! */
obj_t BGl__objectzd2classzd2numzd2setz12zc0zz__objectz00(obj_t BgL_envz00_2549, obj_t BgL_objz00_2550, obj_t BgL_numz00_2551)
{ AN_OBJECT;
{ /* ./Llib/object.scm 549 */
{ /* ./Llib/object.scm 550 */
BgL_objectz00_bglt BgL_objz00_2696;long BgL_numz00_2697;
BgL_objz00_2696 = 
(BgL_objectz00_bglt)(BgL_objz00_2550); 
BgL_numz00_2697 = 
(long)CINT(BgL_numz00_2551); 
return 
BGL_OBJECT_CLASS_NUM_SET(BgL_objz00_2696, BgL_numz00_2697);} } 
}



/* object-mark-producer! */
BGL_EXPORTED_DEF obj_t BGl_objectzd2markzd2producerz12z12zz__objectz00(obj_t BgL_objz00_61)
{ AN_OBJECT;
{ /* ./Llib/object.scm 555 */
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_61); 
return BUNSPEC;} 
}



/* _object-mark-producer! */
obj_t BGl__objectzd2markzd2producerz12z12zz__objectz00(obj_t BgL_envz00_2552, obj_t BgL_objz00_2553)
{ AN_OBJECT;
{ /* ./Llib/object.scm 555 */
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2553); 
return BUNSPEC;} 
}



/* 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_arg1255z00_2699;
{ /* ./Llib/object.scm 564 */
long BgL_arg1258z00_2700;
BgL_arg1258z00_2700 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_62); 
BgL_arg1255z00_2699 = 
(BgL_arg1258z00_2700-OBJECT_TYPE); } 
{ 
int BgL_auxz00_3224;
BgL_auxz00_3224 = 
(int)(BgL_arg1255z00_2699); 
return 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_3224);} } } 
}



/* _object-class */
obj_t BGl__objectzd2classzd2zz__objectz00(obj_t BgL_envz00_2554, obj_t BgL_objectz00_2555)
{ AN_OBJECT;
{ /* ./Llib/object.scm 562 */
{ /* ./Llib/object.scm 564 */
BgL_objectz00_bglt BgL_objectz00_2701;
BgL_objectz00_2701 = 
(BgL_objectz00_bglt)(BgL_objectz00_2555); 
{ /* ./Llib/object.scm 564 */
long BgL_arg1255z00_2702;
{ /* ./Llib/object.scm 564 */
long BgL_arg1258z00_2703;
BgL_arg1258z00_2703 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_2701); 
BgL_arg1255z00_2702 = 
(BgL_arg1258z00_2703-OBJECT_TYPE); } 
{ 
int BgL_auxz00_3230;
BgL_auxz00_3230 = 
(int)(BgL_arg1255z00_2702); 
return 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_3230);} } } } 
}



/* 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 */
int BgL_auxz00_3233;
BgL_auxz00_3233 = 
(int)(((long)0)); 
return 
PROCEDURE_REF(BgL_genericz00_63, BgL_auxz00_3233);} } 
}



/* _generic-default */
obj_t BGl__genericzd2defaultzd2zz__objectz00(obj_t BgL_envz00_2556, obj_t BgL_genericz00_2557)
{ AN_OBJECT;
{ /* ./Llib/object.scm 569 */
{ /* ./Llib/object.scm 570 */
int BgL_auxz00_3236;
BgL_auxz00_3236 = 
(int)(((long)0)); 
return 
PROCEDURE_REF(BgL_genericz00_2557, BgL_auxz00_3236);} } 
}



/* 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 */
int BgL_auxz00_3239;
BgL_auxz00_3239 = 
(int)(((long)1)); 
return 
PROCEDURE_REF(BgL_genericz00_66, BgL_auxz00_3239);} } 
}



/* _generic-method-array */
obj_t BGl__genericzd2methodzd2arrayz00zz__objectz00(obj_t BgL_envz00_2558, obj_t BgL_genericz00_2559)
{ AN_OBJECT;
{ /* ./Llib/object.scm 581 */
{ /* ./Llib/object.scm 582 */
int BgL_auxz00_3242;
BgL_auxz00_3242 = 
(int)(((long)1)); 
return 
PROCEDURE_REF(BgL_genericz00_2559, BgL_auxz00_3242);} } 
}



/* 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 */
return BUNSPEC;} 
}



/* _generic-pre-method-set! */
obj_t BGl__genericzd2prezd2methodzd2setz12zc0zz__objectz00(obj_t BgL_envz00_2560, obj_t BgL_genericz00_2561, obj_t BgL_prezd2methodzd2_2562)
{ AN_OBJECT;
{ /* ./Llib/object.scm 593 */
return BUNSPEC;} 
}



/* 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 */
long BgL_offsetz00_2709;
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_3245;
BgL_auxz00_3245 = 
(long)(BgL_offsetz00_76); 
BgL_offsetz00_2709 = 
(BgL_auxz00_3245-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 612 */
long BgL_modz00_2710;
{ /* ./Llib/object.scm 612 */
int BgL_arg1274z00_2711;
BgL_arg1274z00_2711 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_3249;
BgL_auxz00_3249 = 
(long)(BgL_arg1274z00_2711); 
BgL_modz00_2710 = 
(BgL_offsetz00_2709/BgL_auxz00_3249); } } 
{ /* ./Llib/object.scm 612 */
long BgL_restz00_2712;
{ /* ./Llib/object.scm 612 */
int BgL_arg1270z00_2713;
BgL_arg1270z00_2713 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_3253;
BgL_auxz00_3253 = 
(long)(BgL_arg1270z00_2713); 
BgL_restz00_2712 = 
(BgL_offsetz00_2709%BgL_auxz00_3253); } } 
{ /* ./Llib/object.scm 612 */

{ 
int BgL_auxz00_3260;obj_t BgL_auxz00_3256;
BgL_auxz00_3260 = 
(int)(BgL_restz00_2712); 
{ 
int BgL_auxz00_3257;
BgL_auxz00_3257 = 
(int)(BgL_modz00_2710); 
BgL_auxz00_3256 = 
VECTOR_REF(BgL_arrayz00_75,BgL_auxz00_3257); } 
return 
VECTOR_REF(BgL_auxz00_3256,BgL_auxz00_3260);} } } } } } 
}



/* _method-array-ref */
obj_t BGl__methodzd2arrayzd2refz00zz__objectz00(obj_t BgL_envz00_2563, obj_t BgL_genericz00_2564, obj_t BgL_arrayz00_2565, obj_t BgL_offsetz00_2566)
{ AN_OBJECT;
{ /* ./Llib/object.scm 611 */
{ /* ./Llib/object.scm 612 */
int BgL_offsetz00_2717;
BgL_offsetz00_2717 = 
CINT(BgL_offsetz00_2566); 
{ /* ./Llib/object.scm 612 */
long BgL_offsetz00_2718;
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_3264;
BgL_auxz00_3264 = 
(long)(BgL_offsetz00_2717); 
BgL_offsetz00_2718 = 
(BgL_auxz00_3264-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 612 */
long BgL_modz00_2719;
{ /* ./Llib/object.scm 612 */
int BgL_arg1274z00_2720;
BgL_arg1274z00_2720 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_3268;
BgL_auxz00_3268 = 
(long)(BgL_arg1274z00_2720); 
BgL_modz00_2719 = 
(BgL_offsetz00_2718/BgL_auxz00_3268); } } 
{ /* ./Llib/object.scm 612 */
long BgL_restz00_2721;
{ /* ./Llib/object.scm 612 */
int BgL_arg1270z00_2722;
BgL_arg1270z00_2722 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 612 */
long BgL_auxz00_3272;
BgL_auxz00_3272 = 
(long)(BgL_arg1270z00_2722); 
BgL_restz00_2721 = 
(BgL_offsetz00_2718%BgL_auxz00_3272); } } 
{ /* ./Llib/object.scm 612 */

{ 
int BgL_auxz00_3279;obj_t BgL_auxz00_3275;
BgL_auxz00_3279 = 
(int)(BgL_restz00_2721); 
{ 
int BgL_auxz00_3276;
BgL_auxz00_3276 = 
(int)(BgL_modz00_2719); 
BgL_auxz00_3275 = 
VECTOR_REF(BgL_arrayz00_2565,BgL_auxz00_3276); } 
return 
VECTOR_REF(BgL_auxz00_3275,BgL_auxz00_3279);} } } } } } } 
}



/* 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 */
long BgL_offsetz00_585;
BgL_offsetz00_585 = 
(BgL_offsetz00_79-OBJECT_TYPE); 
{ /* ./Llib/object.scm 622 */
long BgL_modz00_586;
{ /* ./Llib/object.scm 623 */
int BgL_arg1302z00_597;
BgL_arg1302z00_597 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 623 */
long BgL_auxz00_3284;
BgL_auxz00_3284 = 
(long)(BgL_arg1302z00_597); 
BgL_modz00_586 = 
(BgL_offsetz00_585/BgL_auxz00_3284); } } 
{ /* ./Llib/object.scm 623 */
long BgL_restz00_587;
{ /* ./Llib/object.scm 624 */
int BgL_arg1298z00_596;
BgL_arg1298z00_596 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 624 */
long BgL_auxz00_3288;
BgL_auxz00_3288 = 
(long)(BgL_arg1298z00_596); 
BgL_restz00_587 = 
(BgL_offsetz00_585%BgL_auxz00_3288); } } 
{ /* ./Llib/object.scm 624 */

{ /* ./Llib/object.scm 625 */
obj_t BgL_bucketz00_588;
{ 
int BgL_auxz00_3291;
BgL_auxz00_3291 = 
(int)(BgL_modz00_586); 
BgL_bucketz00_588 = 
VECTOR_REF(BgL_arrayz00_78,BgL_auxz00_3291); } 
{ /* ./Llib/object.scm 626 */
bool_t BgL_test1278z00_589;
{ /* ./Llib/object.scm 626 */
bool_t BgL_testz00_3294;
{ /* ./Llib/object.scm 626 */
obj_t BgL_auxz00_3295;
{ /* ./Llib/object.scm 626 */
int BgL_auxz00_3296;
BgL_auxz00_3296 = 
(int)(((long)0)); 
BgL_auxz00_3295 = 
PROCEDURE_REF(BgL_genericz00_77, BgL_auxz00_3296); } 
BgL_testz00_3294 = 
(BgL_valz00_80==BgL_auxz00_3295); } 
if(BgL_testz00_3294)
{ /* ./Llib/object.scm 626 */
BgL_test1278z00_589 = ((bool_t)1); }  else 
{ /* ./Llib/object.scm 627 */
bool_t BgL_testz00_3300;
{ /* ./Llib/object.scm 627 */
obj_t BgL_auxz00_3301;
{ /* ./Llib/object.scm 627 */
int BgL_auxz00_3302;
BgL_auxz00_3302 = 
(int)(((long)2)); 
BgL_auxz00_3301 = 
PROCEDURE_REF(BgL_genericz00_77, BgL_auxz00_3302); } 
BgL_testz00_3300 = 
(BgL_bucketz00_588==BgL_auxz00_3301); } 
if(BgL_testz00_3300)
{ /* ./Llib/object.scm 627 */
BgL_test1278z00_589 = ((bool_t)0); }  else 
{ /* ./Llib/object.scm 627 */
BgL_test1278z00_589 = ((bool_t)1); } } } 
if(BgL_test1278z00_589)
{ /* ./Llib/object.scm 628 */
int BgL_kz00_1360;
BgL_kz00_1360 = 
(int)(BgL_restz00_587); 
{ /* ./Llib/object.scm 628 */
obj_t BgL_xz00_2683;
BgL_xz00_2683 = 
VECTOR_SET(BgL_bucketz00_588,BgL_kz00_1360,BgL_valz00_80); 
return BUNSPEC;} }  else 
{ /* ./Llib/object.scm 630 */
obj_t BgL_bucketz00_590;
{ /* ./Llib/object.scm 630 */
int BgL_auxz00_3309;
BgL_auxz00_3309 = 
(int)(((long)8)); 
BgL_bucketz00_590 = 
BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(BgL_bucketz00_588, BgL_auxz00_3309); } 
{ 
int BgL_auxz00_3312;
BgL_auxz00_3312 = 
(int)(BgL_restz00_587); 
VECTOR_SET(BgL_bucketz00_590,BgL_auxz00_3312,BgL_valz00_80); } 
{ /* ./Llib/object.scm 632 */
int BgL_kz00_1367;
BgL_kz00_1367 = 
(int)(BgL_modz00_586); 
{ /* ./Llib/object.scm 632 */
obj_t BgL_xz00_2684;
BgL_xz00_2684 = 
VECTOR_SET(BgL_arrayz00_78,BgL_kz00_1367,BgL_bucketz00_590); 
return BUNSPEC;} } } } } } } } } } 
}



/* generics-add-class! */
obj_t BGl_genericszd2addzd2classz12z12zz__objectz00(long BgL_classzd2numzd2_81, long BgL_superzd2numzd2_82)
{ AN_OBJECT;
{ /* ./Llib/object.scm 639 */
{ 
long BgL_gz00_598;
BgL_gz00_598 = ((long)0); 
BgL_loopz00_599:
if(
(BgL_gz00_598==BGl_za2nbzd2genericsza2zd2zz__objectz00))
{ /* ./Llib/object.scm 641 */
return BGl_symbol3306z00zz__objectz00;}  else 
{ /* ./Llib/object.scm 643 */
obj_t BgL_thezd2genericzd2_601;
{ 
int BgL_auxz00_3319;
BgL_auxz00_3319 = 
(int)(BgL_gz00_598); 
BgL_thezd2genericzd2_601 = 
VECTOR_REF(BGl_za2genericsza2z00zz__objectz00,BgL_auxz00_3319); } 
{ /* ./Llib/object.scm 643 */
obj_t BgL_methodzd2arrayzd2_602;
{ /* ./Llib/object.scm 644 */
int BgL_auxz00_3322;
BgL_auxz00_3322 = 
(int)(((long)1)); 
BgL_methodzd2arrayzd2_602 = 
PROCEDURE_REF(BgL_thezd2genericzd2_601, BgL_auxz00_3322); } 
{ /* ./Llib/object.scm 644 */
obj_t BgL_methodz00_603;
{ /* ./Llib/object.scm 645 */
int BgL_offsetz00_1376;
BgL_offsetz00_1376 = 
(int)(BgL_superzd2numzd2_82); 
{ /* ./Llib/object.scm 645 */
long BgL_offsetz00_1377;
{ /* ./Llib/object.scm 645 */
long BgL_auxz00_3326;
BgL_auxz00_3326 = 
(long)(BgL_offsetz00_1376); 
BgL_offsetz00_1377 = 
(BgL_auxz00_3326-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 645 */
long BgL_modz00_1378;
{ /* ./Llib/object.scm 645 */
int BgL_arg1274z00_1379;
BgL_arg1274z00_1379 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 645 */
long BgL_auxz00_3330;
BgL_auxz00_3330 = 
(long)(BgL_arg1274z00_1379); 
BgL_modz00_1378 = 
(BgL_offsetz00_1377/BgL_auxz00_3330); } } 
{ /* ./Llib/object.scm 645 */
long BgL_restz00_1380;
{ /* ./Llib/object.scm 645 */
int BgL_arg1270z00_1381;
BgL_arg1270z00_1381 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 645 */
long BgL_auxz00_3334;
BgL_auxz00_3334 = 
(long)(BgL_arg1270z00_1381); 
BgL_restz00_1380 = 
(BgL_offsetz00_1377%BgL_auxz00_3334); } } 
{ /* ./Llib/object.scm 645 */

{ 
int BgL_auxz00_3341;obj_t BgL_auxz00_3337;
BgL_auxz00_3341 = 
(int)(BgL_restz00_1380); 
{ 
int BgL_auxz00_3338;
BgL_auxz00_3338 = 
(int)(BgL_modz00_1378); 
BgL_auxz00_3337 = 
VECTOR_REF(BgL_methodzd2arrayzd2_602,BgL_auxz00_3338); } 
BgL_methodz00_603 = 
VECTOR_REF(BgL_auxz00_3337,BgL_auxz00_3341); } } } } } } 
{ /* ./Llib/object.scm 645 */

BGl_methodzd2arrayzd2setz12z12zz__objectz00(BgL_thezd2genericzd2_601, BgL_methodzd2arrayzd2_602, BgL_classzd2numzd2_81, BgL_methodz00_603); 
{ 
long BgL_gz00_3345;
BgL_gz00_3345 = 
(BgL_gz00_598+((long)1)); 
BgL_gz00_598 = BgL_gz00_3345; 
goto BgL_loopz00_599;} } } } } } } 
}



/* 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 */
BGl_initializa7ezd2objectsz12z67zz__objectz00(); 
{ /* ./Llib/object.scm 656 */
bool_t BgL_test1318z00_605;
if(
CBOOL(BgL_superz00_84))
{ /* ./Llib/object.scm 656 */
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_84))
{ /* ./Llib/object.scm 656 */
BgL_test1318z00_605 = ((bool_t)0); }  else 
{ /* ./Llib/object.scm 656 */
BgL_test1318z00_605 = ((bool_t)1); } }  else 
{ /* ./Llib/object.scm 656 */
BgL_test1318z00_605 = ((bool_t)0); } 
if(BgL_test1318z00_605)
{ /* ./Llib/object.scm 656 */
FAILURE(BGl_string3307z00zz__objectz00,BGl_string3308z00zz__objectz00,BgL_namez00_83);}  else 
{ /* ./Llib/object.scm 656 */((bool_t)0); } } 
{ /* ./Llib/object.scm 660 */
bool_t BgL_testz00_3354;
{ /* ./Llib/object.scm 660 */
long BgL_auxz00_3355;
BgL_auxz00_3355 = 
(long)CINT(BGl_za2nbzd2classesza2zd2zz__objectz00); 
BgL_testz00_3354 = 
(BgL_auxz00_3355==BGl_za2nbzd2classeszd2maxza2z00zz__objectz00); } 
if(BgL_testz00_3354)
{ /* ./Llib/object.scm 660 */
BGl_doublezd2nbzd2classesz12z12zz__objectz00(); }  else 
{ /* ./Llib/object.scm 660 */((bool_t)0); } } 
{ /* ./Llib/object.scm 662 */
long BgL_numz00_608;
{ /* ./Llib/object.scm 662 */
long BgL_auxz00_3359;
BgL_auxz00_3359 = 
(long)CINT(BGl_za2nbzd2classesza2zd2zz__objectz00); 
BgL_numz00_608 = 
(OBJECT_TYPE+BgL_auxz00_3359); } 
{ /* ./Llib/object.scm 662 */
obj_t BgL_classz00_609;
{ /* ./Llib/object.scm 663 */
obj_t BgL_arg1349z00_618;
BgL_arg1349z00_618 = 
BGl_makezd2classzd2virtualzd2slotszd2vectorz00zz__objectz00(BgL_superz00_84, BgL_virtualz00_90); 
{ /* ./Llib/object.scm 663 */
obj_t BgL_v1011z00_1416;
{ 
int BgL_auxz00_3363;
BgL_auxz00_3363 = 
(int)(((long)13)); 
BgL_v1011z00_1416 = 
create_vector(BgL_auxz00_3363); } 
{ 
int BgL_auxz00_3366;
BgL_auxz00_3366 = 
(int)(((long)12)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3366,BGl_makezd2classzd2envz00zz__objectz00); } 
{ 
int BgL_auxz00_3369;
BgL_auxz00_3369 = 
(int)(((long)11)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3369,BgL_creatorz00_85); } 
{ 
int BgL_auxz00_3372;
BgL_auxz00_3372 = 
(int)(((long)10)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3372,BgL_arg1349z00_618); } 
{ 
int BgL_auxz00_3375;
BgL_auxz00_3375 = 
(int)(((long)9)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3375,BgL_constructorz00_89); } 
{ 
int BgL_auxz00_3378;
BgL_auxz00_3378 = 
(int)(((long)8)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3378,BgL_defz00_88); } 
{ 
obj_t BgL_auxz00_3383;int BgL_auxz00_3381;
BgL_auxz00_3383 = 
BINT(BgL_hashz00_87); 
BgL_auxz00_3381 = 
(int)(((long)7)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3381,BgL_auxz00_3383); } 
{ 
int BgL_auxz00_3386;
BgL_auxz00_3386 = 
(int)(((long)6)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3386,BgL_allocatez00_86); } 
{ 
obj_t BgL_auxz00_3391;int BgL_auxz00_3389;
BgL_auxz00_3391 = 
BINT(((long)-1)); 
BgL_auxz00_3389 = 
(int)(((long)5)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3389,BgL_auxz00_3391); } 
{ 
int BgL_auxz00_3394;
BgL_auxz00_3394 = 
(int)(((long)4)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3394,BNIL); } 
{ 
int BgL_auxz00_3397;
BgL_auxz00_3397 = 
(int)(((long)3)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3397,BgL_superz00_84); } 
{ 
obj_t BgL_auxz00_3402;int BgL_auxz00_3400;
BgL_auxz00_3402 = 
BINT(((long)-1)); 
BgL_auxz00_3400 = 
(int)(((long)2)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3400,BgL_auxz00_3402); } 
{ 
obj_t BgL_auxz00_3407;int BgL_auxz00_3405;
BgL_auxz00_3407 = 
BINT(BgL_numz00_608); 
BgL_auxz00_3405 = 
(int)(((long)1)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3405,BgL_auxz00_3407); } 
{ 
int BgL_auxz00_3410;
BgL_auxz00_3410 = 
(int)(((long)0)); 
VECTOR_SET(BgL_v1011z00_1416,BgL_auxz00_3410,BgL_namez00_83); } 
BgL_classz00_609 = BgL_v1011z00_1416; } } 
{ /* ./Llib/object.scm 663 */

if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_84))
{ /* ./Llib/object.scm 676 */
{ /* ./Llib/object.scm 680 */
obj_t BgL_arg1327z00_611;
{ /* ./Llib/object.scm 680 */
obj_t BgL_auxz00_3415;
{ 
int BgL_auxz00_3416;
BgL_auxz00_3416 = 
(int)(((long)4)); 
BgL_auxz00_3415 = 
VECTOR_REF(BgL_superz00_84,BgL_auxz00_3416); } 
BgL_arg1327z00_611 = 
MAKE_PAIR(BgL_classz00_609, BgL_auxz00_3415); } 
{ 
int BgL_auxz00_3420;
BgL_auxz00_3420 = 
(int)(((long)4)); 
VECTOR_SET(BgL_superz00_84,BgL_auxz00_3420,BgL_arg1327z00_611); } } 
{ /* ./Llib/object.scm 682 */
bool_t BgL_auxz00_3423;
BgL_auxz00_3423 = 
BGl_classzd2hierarchyzd2numberingz12z12zz__objectz00(BgL_classz00_609, BgL_superz00_84); 
BBOOL(BgL_auxz00_3423); } }  else 
{ /* ./Llib/object.scm 676 */
{ 
obj_t BgL_auxz00_3428;int BgL_auxz00_3426;
BgL_auxz00_3428 = 
BINT(((long)1)); 
BgL_auxz00_3426 = 
(int)(((long)2)); 
VECTOR_SET(BgL_classz00_609,BgL_auxz00_3426,BgL_auxz00_3428); } 
{ 
obj_t BgL_auxz00_3433;int BgL_auxz00_3431;
BgL_auxz00_3433 = 
BINT(((long)1)); 
BgL_auxz00_3431 = 
(int)(((long)5)); 
VECTOR_SET(BgL_classz00_609,BgL_auxz00_3431,BgL_auxz00_3433); } } 
{ 
int BgL_auxz00_3436;
BgL_auxz00_3436 = 
CINT(BGl_za2nbzd2classesza2zd2zz__objectz00); 
VECTOR_SET(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_3436,BgL_classz00_609); } 
{ /* ./Llib/object.scm 689 */
long BgL_za71za7_1476;
BgL_za71za7_1476 = 
(long)CINT(BGl_za2nbzd2classesza2zd2zz__objectz00); 
{ /* ./Llib/object.scm 689 */
long BgL_auxz00_3440;
BgL_auxz00_3440 = 
(BgL_za71za7_1476+((long)1)); 
BGl_za2nbzd2classesza2zd2zz__objectz00 = 
BINT(BgL_auxz00_3440); } } 
{ /* ./Llib/object.scm 691 */
long BgL_arg1340z00_613;
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_84))
{ /* ./Llib/object.scm 691 */
long BgL_res2578z00_1481;
{ /* ./Llib/object.scm 691 */
int BgL_kz00_1480;
BgL_kz00_1480 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 691 */
obj_t BgL_auxz00_3446;
BgL_auxz00_3446 = 
VECTOR_REF(BgL_superz00_84,BgL_kz00_1480); 
BgL_res2578z00_1481 = 
(long)CINT(BgL_auxz00_3446); } } 
BgL_arg1340z00_613 = BgL_res2578z00_1481; }  else 
{ /* ./Llib/object.scm 691 */
BgL_arg1340z00_613 = BgL_numz00_608; } 
BGl_genericszd2addzd2classz12z12zz__objectz00(BgL_numz00_608, BgL_arg1340z00_613); } 
return BgL_classz00_609;} } } } 
}



/* _register-class! */
obj_t BGl__registerzd2classz12zc0zz__objectz00(obj_t BgL_envz00_2567, obj_t BgL_namez00_2568, obj_t BgL_superz00_2569, obj_t BgL_creatorz00_2570, obj_t BgL_allocatez00_2571, obj_t BgL_hashz00_2572, obj_t BgL_defz00_2573, obj_t BgL_constructorz00_2574, obj_t BgL_virtualz00_2575)
{ AN_OBJECT;
{ /* ./Llib/object.scm 654 */
return 
BGl_registerzd2classz12zc0zz__objectz00(BgL_namez00_2568, BgL_superz00_2569, BgL_creatorz00_2570, BgL_allocatez00_2571, 
(long)CINT(BgL_hashz00_2572), BgL_defz00_2573, BgL_constructorz00_2574, BgL_virtualz00_2575);} 
}



/* 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 */
{ 
obj_t BgL_vecz00_635;
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_91))
{ /* ./Llib/object.scm 708 */
obj_t BgL_ovecz00_621;
{ 
int BgL_auxz00_3454;
BgL_auxz00_3454 = 
(int)(((long)10)); 
BgL_ovecz00_621 = 
VECTOR_REF(BgL_superz00_91,BgL_auxz00_3454); } 
{ /* ./Llib/object.scm 708 */
int BgL_olenz00_622;
BgL_olenz00_622 = 
VECTOR_LENGTH(BgL_ovecz00_621); 
{ /* ./Llib/object.scm 709 */
int BgL_lenz00_623;
BgL_lenz00_623 = 
VECTOR_LENGTH(BgL_virtualsz00_92); 
{ /* ./Llib/object.scm 710 */
obj_t BgL_vecz00_624;
{ /* ./Llib/object.scm 711 */
long BgL_arg1368z00_630;obj_t BgL_arg1370z00_631;
{ /* ./Llib/object.scm 711 */
long BgL_auxz00_3461;long BgL_auxz00_3459;
BgL_auxz00_3461 = 
(long)(BgL_lenz00_623); 
BgL_auxz00_3459 = 
(long)(BgL_olenz00_622); 
BgL_arg1368z00_630 = 
(BgL_auxz00_3459+BgL_auxz00_3461); } 
BgL_arg1370z00_631 = BUNSPEC; 
{ /* ./Llib/object.scm 711 */
int BgL_auxz00_3464;
BgL_auxz00_3464 = 
(int)(BgL_arg1368z00_630); 
BgL_vecz00_624 = 
make_vector(BgL_auxz00_3464, BgL_arg1370z00_631); } } 
{ /* ./Llib/object.scm 711 */

{ 
long BgL_iz00_625;
BgL_iz00_625 = ((long)0); 
BgL_loopz00_626:
{ /* ./Llib/object.scm 713 */
bool_t BgL_testz00_3467;
{ /* ./Llib/object.scm 713 */
long BgL_auxz00_3468;
BgL_auxz00_3468 = 
(long)(BgL_olenz00_622); 
BgL_testz00_3467 = 
(BgL_iz00_625==BgL_auxz00_3468); } 
if(BgL_testz00_3467)
{ /* ./Llib/object.scm 713 */
BgL_vecz00_635 = BgL_vecz00_624; 
BgL_lambda1385z00_636:
{ 
obj_t BgL_l1021z00_637;
BgL_l1021z00_637 = 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_virtualsz00_92); 
BgL_forzd2each1022zd2_638:
if(
PAIRP(BgL_l1021z00_637))
{ /* ./Llib/object.scm 699 */
{ /* ./Llib/object.scm 700 */
obj_t BgL_virtualz00_641;
BgL_virtualz00_641 = 
CAR(BgL_l1021z00_637); 
{ /* ./Llib/object.scm 700 */
obj_t BgL_numz00_642;
BgL_numz00_642 = 
CAR(BgL_virtualz00_641); 
{ 
obj_t BgL_auxz00_3477;int BgL_auxz00_3475;
BgL_auxz00_3477 = 
CDR(BgL_virtualz00_641); 
BgL_auxz00_3475 = 
CINT(BgL_numz00_642); 
VECTOR_SET(BgL_vecz00_635,BgL_auxz00_3475,BgL_auxz00_3477); } } } 
{ 
obj_t BgL_l1021z00_3480;
BgL_l1021z00_3480 = 
CDR(BgL_l1021z00_637); 
BgL_l1021z00_637 = BgL_l1021z00_3480; 
goto BgL_forzd2each1022zd2_638;} }  else 
{ /* ./Llib/object.scm 699 */((bool_t)1); } } 
return BgL_vecz00_635;}  else 
{ /* ./Llib/object.scm 713 */
{ 
obj_t BgL_auxz00_3485;int BgL_auxz00_3483;
{ 
int BgL_auxz00_3486;
BgL_auxz00_3486 = 
(int)(BgL_iz00_625); 
BgL_auxz00_3485 = 
VECTOR_REF(BgL_ovecz00_621,BgL_auxz00_3486); } 
BgL_auxz00_3483 = 
(int)(BgL_iz00_625); 
VECTOR_SET(BgL_vecz00_624,BgL_auxz00_3483,BgL_auxz00_3485); } 
{ 
long BgL_iz00_3490;
BgL_iz00_3490 = 
(BgL_iz00_625+((long)1)); 
BgL_iz00_625 = BgL_iz00_3490; 
goto BgL_loopz00_626;} } } } } } } } }  else 
{ /* ./Llib/object.scm 705 */
int BgL_lenz00_632;
BgL_lenz00_632 = 
VECTOR_LENGTH(BgL_virtualsz00_92); 
{ /* ./Llib/object.scm 705 */
obj_t BgL_vecz00_633;
{ /* ./Llib/object.scm 706 */
obj_t BgL_auxz00_3493;
BgL_auxz00_3493 = BUNSPEC; 
BgL_vecz00_633 = 
make_vector(BgL_lenz00_632, BgL_auxz00_3493); } 
{ /* ./Llib/object.scm 706 */

{ 
obj_t BgL_vecz00_3495;
BgL_vecz00_3495 = BgL_vecz00_633; 
BgL_vecz00_635 = BgL_vecz00_3495; 
goto BgL_lambda1385z00_636;} } } } } } 
}



/* generic-no-default-behavior */
obj_t BGl_genericzd2nozd2defaultzd2behaviorzd2zz__objectz00(obj_t BgL_lz00_95)
{ AN_OBJECT;
{ /* ./Llib/object.scm 735 */
FAILURE(BGl_string3309z00zz__objectz00,BGl_string3310z00zz__objectz00,BgL_lz00_95);} 
}



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



/* 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 */
bool_t BgL_testz00_3498;
{ /* ./Llib/object.scm 749 */
obj_t BgL_auxz00_3499;
{ /* ./Llib/object.scm 749 */
int BgL_auxz00_3500;
BgL_auxz00_3500 = 
(int)(((long)1)); 
BgL_auxz00_3499 = 
PROCEDURE_REF(BgL_genericz00_96, BgL_auxz00_3500); } 
BgL_testz00_3498 = 
VECTORP(BgL_auxz00_3499); } 
if(BgL_testz00_3498)
{ /* ./Llib/object.scm 749 */
if(
PROCEDUREP(BgL_defaultz00_97))
{ /* ./Llib/object.scm 767 */
obj_t BgL_oldzd2defzd2bucketz00_653;obj_t BgL_newzd2defzd2bucketz00_654;obj_t BgL_oldzd2defaultzd2_655;
{ /* ./Llib/object.scm 767 */
int BgL_auxz00_3506;
BgL_auxz00_3506 = 
(int)(((long)2)); 
BgL_oldzd2defzd2bucketz00_653 = 
PROCEDURE_REF(BgL_genericz00_96, BgL_auxz00_3506); } 
{ /* ./Llib/object.scm 768 */
int BgL_auxz00_3509;
BgL_auxz00_3509 = 
(int)(((long)8)); 
BgL_newzd2defzd2bucketz00_654 = 
make_vector(BgL_auxz00_3509, BgL_defaultz00_97); } 
{ /* ./Llib/object.scm 770 */
int BgL_auxz00_3512;
BgL_auxz00_3512 = 
(int)(((long)0)); 
BgL_oldzd2defaultzd2_655 = 
PROCEDURE_REF(BgL_genericz00_96, BgL_auxz00_3512); } 
{ /* ./Llib/object.scm 771 */
int BgL_auxz00_3515;
BgL_auxz00_3515 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_genericz00_96, BgL_auxz00_3515, BgL_defaultz00_97); } 
{ /* ./Llib/object.scm 772 */
int BgL_auxz00_3518;
BgL_auxz00_3518 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_genericz00_96, BgL_auxz00_3518, BgL_newzd2defzd2bucketz00_654); } 
{ /* ./Llib/object.scm 773 */
obj_t BgL_marrayz00_656;
{ /* ./Llib/object.scm 773 */
int BgL_auxz00_3521;
BgL_auxz00_3521 = 
(int)(((long)1)); 
BgL_marrayz00_656 = 
PROCEDURE_REF(BgL_genericz00_96, BgL_auxz00_3521); } 
{ /* ./Llib/object.scm 773 */
int BgL_alenz00_657;
BgL_alenz00_657 = 
VECTOR_LENGTH(BgL_marrayz00_656); 
{ /* ./Llib/object.scm 774 */

{ 
long BgL_iz00_658;
BgL_iz00_658 = ((long)0); 
BgL_loopz00_659:
{ /* ./Llib/object.scm 776 */
bool_t BgL_testz00_3525;
{ /* ./Llib/object.scm 776 */
long BgL_auxz00_3526;
BgL_auxz00_3526 = 
(long)(BgL_alenz00_657); 
BgL_testz00_3525 = 
(BgL_iz00_658<BgL_auxz00_3526); } 
if(BgL_testz00_3525)
{ /* ./Llib/object.scm 777 */
obj_t BgL_bucketz00_661;
{ 
int BgL_auxz00_3529;
BgL_auxz00_3529 = 
(int)(BgL_iz00_658); 
BgL_bucketz00_661 = 
VECTOR_REF(BgL_marrayz00_656,BgL_auxz00_3529); } 
if(
(BgL_bucketz00_661==BgL_oldzd2defzd2bucketz00_653))
{ /* ./Llib/object.scm 778 */
{ 
int BgL_auxz00_3534;
BgL_auxz00_3534 = 
(int)(BgL_iz00_658); 
VECTOR_SET(BgL_marrayz00_656,BgL_auxz00_3534,BgL_newzd2defzd2bucketz00_654); } 
{ 
long BgL_iz00_3537;
BgL_iz00_3537 = 
(BgL_iz00_658+((long)1)); 
BgL_iz00_658 = BgL_iz00_3537; 
goto BgL_loopz00_659;} }  else 
{ 
long BgL_jz00_664;
BgL_jz00_664 = ((long)0); 
BgL_laapz00_665:
{ /* ./Llib/object.scm 784 */
bool_t BgL_testz00_3539;
{ /* ./Llib/object.scm 784 */
long BgL_auxz00_3540;
{ /* ./Llib/object.scm 784 */
int BgL_auxz00_3541;
BgL_auxz00_3541 = 
(int)(((long)8)); 
BgL_auxz00_3540 = 
(long)(BgL_auxz00_3541); } 
BgL_testz00_3539 = 
(BgL_jz00_664==BgL_auxz00_3540); } 
if(BgL_testz00_3539)
{ /* ./Llib/object.scm 784 */
{ 
long BgL_iz00_3545;
BgL_iz00_3545 = 
(BgL_iz00_658+((long)1)); 
BgL_iz00_658 = BgL_iz00_3545; 
goto BgL_loopz00_659;} }  else 
{ /* ./Llib/object.scm 786 */
bool_t BgL_testz00_3547;
{ /* ./Llib/object.scm 786 */
obj_t BgL_auxz00_3548;
{ 
int BgL_auxz00_3549;
BgL_auxz00_3549 = 
(int)(BgL_jz00_664); 
BgL_auxz00_3548 = 
VECTOR_REF(BgL_bucketz00_661,BgL_auxz00_3549); } 
BgL_testz00_3547 = 
(BgL_auxz00_3548==BgL_oldzd2defaultzd2_655); } 
if(BgL_testz00_3547)
{ /* ./Llib/object.scm 786 */
{ 
int BgL_auxz00_3553;
BgL_auxz00_3553 = 
(int)(BgL_jz00_664); 
VECTOR_SET(BgL_bucketz00_661,BgL_auxz00_3553,BgL_defaultz00_97); } 
{ 
long BgL_jz00_3556;
BgL_jz00_3556 = 
(BgL_jz00_664+((long)1)); 
BgL_jz00_664 = BgL_jz00_3556; 
goto BgL_laapz00_665;} }  else 
{ /* ./Llib/object.scm 786 */
{ 
long BgL_jz00_3558;
BgL_jz00_3558 = 
(BgL_jz00_664+((long)1)); 
BgL_jz00_664 = BgL_jz00_3558; 
goto BgL_laapz00_665;} } } } } }  else 
{ /* ./Llib/object.scm 776 */((bool_t)0); } } } } } } }  else 
{ /* ./Llib/object.scm 763 */((bool_t)0); } 
return BUNSPEC;}  else 
{ /* ./Llib/object.scm 750 */
obj_t BgL_defzd2metzd2_674;
if(
PROCEDUREP(BgL_defaultz00_97))
{ /* ./Llib/object.scm 750 */
BgL_defzd2metzd2_674 = BgL_defaultz00_97; }  else 
{ /* ./Llib/object.scm 750 */
BgL_defzd2metzd2_674 = BGl_genericzd2nozd2defaultzd2behaviorzd2envz00zz__objectz00; } 
{ /* ./Llib/object.scm 750 */
obj_t BgL_defzd2bucketzd2_675;
{ /* ./Llib/object.scm 753 */
int BgL_auxz00_3562;
BgL_auxz00_3562 = 
(int)(((long)8)); 
BgL_defzd2bucketzd2_675 = 
make_vector(BgL_auxz00_3562, BgL_defzd2metzd2_674); } 
{ /* ./Llib/object.scm 753 */

if(
(BGl_za2nbzd2genericsza2zd2zz__objectz00==BGl_za2nbzd2genericszd2maxza2z00zz__objectz00))
{ /* ./Llib/object.scm 754 */
BGl_doublezd2nbzd2genericsz12z12zz__objectz00(); }  else 
{ /* ./Llib/object.scm 754 */BFALSE; } 
{ 
int BgL_auxz00_3568;
BgL_auxz00_3568 = 
(int)(BGl_za2nbzd2genericsza2zd2zz__objectz00); 
VECTOR_SET(BGl_za2genericsza2z00zz__objectz00,BgL_auxz00_3568,BgL_genericz00_96); } 
BGl_za2nbzd2genericsza2zd2zz__objectz00 = 
(BGl_za2nbzd2genericsza2zd2zz__objectz00+((long)1)); 
{ /* ./Llib/object.scm 758 */
int BgL_auxz00_3572;
BgL_auxz00_3572 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_genericz00_96, BgL_auxz00_3572, BgL_defzd2metzd2_674); } 
{ /* ./Llib/object.scm 759 */
int BgL_auxz00_3575;
BgL_auxz00_3575 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_genericz00_96, BgL_auxz00_3575, BgL_defzd2bucketzd2_675); } 
{ /* ./Llib/object.scm 760 */
obj_t BgL_arg1472z00_677;
{ /* ./Llib/object.scm 760 */
long BgL_sz00_1578;
{ /* ./Llib/object.scm 760 */
long BgL_arg1409z00_1580;
{ /* ./Llib/object.scm 760 */
int BgL_arg1412z00_1581;
BgL_arg1412z00_1581 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 760 */
long BgL_auxz00_3579;
BgL_auxz00_3579 = 
(long)(BgL_arg1412z00_1581); 
BgL_arg1409z00_1580 = 
(BGl_za2nbzd2classeszd2maxza2z00zz__objectz00/BgL_auxz00_3579); } } 
BgL_sz00_1578 = 
(((long)1)+BgL_arg1409z00_1580); } 
{ /* ./Llib/object.scm 760 */
int BgL_auxz00_3583;
BgL_auxz00_3583 = 
(int)(BgL_sz00_1578); 
BgL_arg1472z00_677 = 
make_vector(BgL_auxz00_3583, BgL_defzd2bucketzd2_675); } } 
{ /* ./Llib/object.scm 760 */
int BgL_auxz00_3586;
BgL_auxz00_3586 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_genericz00_96, BgL_auxz00_3586, BgL_arg1472z00_677); } } 
return BUNSPEC;} } } } } 
}



/* _add-generic! */
obj_t BGl__addzd2genericz12zc0zz__objectz00(obj_t BgL_envz00_2578, obj_t BgL_genericz00_2579, obj_t BgL_defaultz00_2580)
{ AN_OBJECT;
{ /* ./Llib/object.scm 748 */
return 
BGl_addzd2genericz12zc0zz__objectz00(BgL_genericz00_2579, BgL_defaultz00_2580);} 
}



/* 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 */
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_99))
{ /* ./Llib/object.scm 801 */
bool_t BgL_test1483z00_681;
{ /* ./Llib/object.scm 801 */
int BgL_arg1520z00_702;int BgL_arg1521z00_703;
BgL_arg1520z00_702 = 
PROCEDURE_ARITY(BgL_genericz00_98); 
BgL_arg1521z00_703 = 
PROCEDURE_ARITY(BgL_methodz00_100); 
{ /* ./Llib/object.scm 801 */
long BgL_auxz00_3596;long BgL_auxz00_3594;
BgL_auxz00_3596 = 
(long)(BgL_arg1521z00_703); 
BgL_auxz00_3594 = 
(long)(BgL_arg1520z00_702); 
BgL_test1483z00_681 = 
(BgL_auxz00_3594==BgL_auxz00_3596); } } 
if(BgL_test1483z00_681)
{ /* ./Llib/object.scm 801 */
{ /* ./Llib/object.scm 804 */
bool_t BgL_testz00_3600;
{ /* ./Llib/object.scm 804 */
obj_t BgL_auxz00_3601;
{ /* ./Llib/object.scm 804 */
int BgL_auxz00_3602;
BgL_auxz00_3602 = 
(int)(((long)1)); 
BgL_auxz00_3601 = 
PROCEDURE_REF(BgL_genericz00_98, BgL_auxz00_3602); } 
BgL_testz00_3600 = 
VECTORP(BgL_auxz00_3601); } 
if(BgL_testz00_3600)
{ /* ./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_683;
{ /* ./Llib/object.scm 808 */
int BgL_auxz00_3607;
BgL_auxz00_3607 = 
(int)(((long)1)); 
BgL_methodzd2arrayzd2_683 = 
PROCEDURE_REF(BgL_genericz00_98, BgL_auxz00_3607); } 
{ /* ./Llib/object.scm 808 */
long BgL_cnumz00_684;
{ /* ./Llib/object.scm 809 */
long BgL_res2589z00_1599;
{ /* ./Llib/object.scm 809 */
int BgL_kz00_1598;
BgL_kz00_1598 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 809 */
obj_t BgL_auxz00_3611;
BgL_auxz00_3611 = 
VECTOR_REF(BgL_classz00_99,BgL_kz00_1598); 
BgL_res2589z00_1599 = 
(long)CINT(BgL_auxz00_3611); } } 
BgL_cnumz00_684 = BgL_res2589z00_1599; } 
{ /* ./Llib/object.scm 809 */
obj_t BgL_previousz00_685;
{ /* ./Llib/object.scm 810 */
int BgL_offsetz00_1602;
BgL_offsetz00_1602 = 
(int)(BgL_cnumz00_684); 
{ /* ./Llib/object.scm 810 */
long BgL_offsetz00_1603;
{ /* ./Llib/object.scm 810 */
long BgL_auxz00_3615;
BgL_auxz00_3615 = 
(long)(BgL_offsetz00_1602); 
BgL_offsetz00_1603 = 
(BgL_auxz00_3615-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 810 */
long BgL_modz00_1604;
{ /* ./Llib/object.scm 810 */
int BgL_arg1274z00_1605;
BgL_arg1274z00_1605 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 810 */
long BgL_auxz00_3619;
BgL_auxz00_3619 = 
(long)(BgL_arg1274z00_1605); 
BgL_modz00_1604 = 
(BgL_offsetz00_1603/BgL_auxz00_3619); } } 
{ /* ./Llib/object.scm 810 */
long BgL_restz00_1606;
{ /* ./Llib/object.scm 810 */
int BgL_arg1270z00_1607;
BgL_arg1270z00_1607 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 810 */
long BgL_auxz00_3623;
BgL_auxz00_3623 = 
(long)(BgL_arg1270z00_1607); 
BgL_restz00_1606 = 
(BgL_offsetz00_1603%BgL_auxz00_3623); } } 
{ /* ./Llib/object.scm 810 */

{ 
int BgL_auxz00_3630;obj_t BgL_auxz00_3626;
BgL_auxz00_3630 = 
(int)(BgL_restz00_1606); 
{ 
int BgL_auxz00_3627;
BgL_auxz00_3627 = 
(int)(BgL_modz00_1604); 
BgL_auxz00_3626 = 
VECTOR_REF(BgL_methodzd2arrayzd2_683,BgL_auxz00_3627); } 
BgL_previousz00_685 = 
VECTOR_REF(BgL_auxz00_3626,BgL_auxz00_3630); } } } } } } 
{ /* ./Llib/object.scm 810 */
obj_t BgL_defz00_686;
{ /* ./Llib/object.scm 811 */
int BgL_auxz00_3633;
BgL_auxz00_3633 = 
(int)(((long)0)); 
BgL_defz00_686 = 
PROCEDURE_REF(BgL_genericz00_98, BgL_auxz00_3633); } 
{ /* ./Llib/object.scm 811 */

BGl_loopz00zz__objectz00(BgL_methodz00_100, BgL_genericz00_98, BgL_previousz00_685, BgL_defz00_686, BgL_methodzd2arrayzd2_683, BgL_classz00_99); } } } } } 
return BgL_methodz00_100;}  else 
{ /* ./Llib/object.scm 801 */
{ /* ./Llib/object.scm 802 */
obj_t BgL_arg1516z00_701;
BgL_arg1516z00_701 = 
MAKE_PAIR(BgL_genericz00_98, BgL_methodz00_100); 
FAILURE(BGl_string3311z00zz__objectz00,BGl_string3312z00zz__objectz00,BgL_arg1516z00_701);} } }  else 
{ /* ./Llib/object.scm 799 */
FAILURE(BGl_string3311z00zz__objectz00,BGl_string3313z00zz__objectz00,BgL_classz00_99);} } 
}



/* loop */
bool_t BGl_loopz00zz__objectz00(obj_t BgL_methodz00_2682, obj_t BgL_genericz00_2681, obj_t BgL_previousz00_2680, obj_t BgL_defz00_2679, obj_t BgL_methodzd2arrayzd2_2678, obj_t BgL_classz00_687)
{ AN_OBJECT;
{ /* ./Llib/object.scm 812 */
{ /* ./Llib/object.scm 813 */
long BgL_cnumz00_689;
{ /* ./Llib/object.scm 813 */
long BgL_res2593z00_1626;
{ /* ./Llib/object.scm 813 */
int BgL_kz00_1625;
BgL_kz00_1625 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 813 */
obj_t BgL_auxz00_3641;
BgL_auxz00_3641 = 
VECTOR_REF(BgL_classz00_687,BgL_kz00_1625); 
BgL_res2593z00_1626 = 
(long)CINT(BgL_auxz00_3641); } } 
BgL_cnumz00_689 = BgL_res2593z00_1626; } 
{ /* ./Llib/object.scm 813 */
obj_t BgL_currentz00_690;
{ /* ./Llib/object.scm 814 */
int BgL_offsetz00_1629;
BgL_offsetz00_1629 = 
(int)(BgL_cnumz00_689); 
{ /* ./Llib/object.scm 814 */
long BgL_offsetz00_1630;
{ /* ./Llib/object.scm 814 */
long BgL_auxz00_3645;
BgL_auxz00_3645 = 
(long)(BgL_offsetz00_1629); 
BgL_offsetz00_1630 = 
(BgL_auxz00_3645-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 814 */
long BgL_modz00_1631;
{ /* ./Llib/object.scm 814 */
int BgL_arg1274z00_1632;
BgL_arg1274z00_1632 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 814 */
long BgL_auxz00_3649;
BgL_auxz00_3649 = 
(long)(BgL_arg1274z00_1632); 
BgL_modz00_1631 = 
(BgL_offsetz00_1630/BgL_auxz00_3649); } } 
{ /* ./Llib/object.scm 814 */
long BgL_restz00_1633;
{ /* ./Llib/object.scm 814 */
int BgL_arg1270z00_1634;
BgL_arg1270z00_1634 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 814 */
long BgL_auxz00_3653;
BgL_auxz00_3653 = 
(long)(BgL_arg1270z00_1634); 
BgL_restz00_1633 = 
(BgL_offsetz00_1630%BgL_auxz00_3653); } } 
{ /* ./Llib/object.scm 814 */

{ 
int BgL_auxz00_3660;obj_t BgL_auxz00_3656;
BgL_auxz00_3660 = 
(int)(BgL_restz00_1633); 
{ 
int BgL_auxz00_3657;
BgL_auxz00_3657 = 
(int)(BgL_modz00_1631); 
BgL_auxz00_3656 = 
VECTOR_REF(BgL_methodzd2arrayzd2_2678,BgL_auxz00_3657); } 
BgL_currentz00_690 = 
VECTOR_REF(BgL_auxz00_3656,BgL_auxz00_3660); } } } } } } 
{ /* ./Llib/object.scm 814 */

{ /* ./Llib/object.scm 815 */
bool_t BgL_test1488z00_691;
if(
(BgL_currentz00_690==BgL_defz00_2679))
{ /* ./Llib/object.scm 815 */
BgL_test1488z00_691 = ((bool_t)1); }  else 
{ /* ./Llib/object.scm 815 */
BgL_test1488z00_691 = 
(BgL_currentz00_690==BgL_previousz00_2680); } 
if(BgL_test1488z00_691)
{ /* ./Llib/object.scm 815 */
BGl_methodzd2arrayzd2setz12z12zz__objectz00(BgL_genericz00_2681, BgL_methodzd2arrayzd2_2678, BgL_cnumz00_689, BgL_methodz00_2682); 
{ /* ./Llib/object.scm 820 */
obj_t BgL_arg1491z00_694;
{ 
int BgL_auxz00_3668;
BgL_auxz00_3668 = 
(int)(((long)4)); 
BgL_arg1491z00_694 = 
VECTOR_REF(BgL_classz00_687,BgL_auxz00_3668); } 
{ 
obj_t BgL_l1023z00_1652;
BgL_l1023z00_1652 = BgL_arg1491z00_694; 
BgL_forzd2each1024zd2_1651:
if(
PAIRP(BgL_l1023z00_1652))
{ /* ./Llib/object.scm 820 */
BGl_loopz00zz__objectz00(BgL_methodz00_2682, BgL_genericz00_2681, BgL_previousz00_2680, BgL_defz00_2679, BgL_methodzd2arrayzd2_2678, 
CAR(BgL_l1023z00_1652)); 
{ 
obj_t BgL_l1023z00_3675;
BgL_l1023z00_3675 = 
CDR(BgL_l1023z00_1652); 
BgL_l1023z00_1652 = BgL_l1023z00_3675; 
goto BgL_forzd2each1024zd2_1651;} }  else 
{ /* ./Llib/object.scm 820 */
return ((bool_t)1);} } } }  else 
{ /* ./Llib/object.scm 815 */
return ((bool_t)0);} } } } } } 
}



/* _add-method! */
obj_t BGl__addzd2methodz12zc0zz__objectz00(obj_t BgL_envz00_2581, obj_t BgL_genericz00_2582, obj_t BgL_classz00_2583, obj_t BgL_methodz00_2584)
{ AN_OBJECT;
{ /* ./Llib/object.scm 797 */
return 
BGl_addzd2methodz12zc0zz__objectz00(BgL_genericz00_2582, BgL_classz00_2583, BgL_methodz00_2584);} 
}



/* 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 */
long BgL_objzd2classzd2numz00_2724;
BgL_objzd2classzd2numz00_2724 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_101); 
{ /* ./Llib/object.scm 829 */
obj_t BgL_arg1528z00_2725;
{ /* ./Llib/object.scm 829 */
int BgL_auxz00_3679;
BgL_auxz00_3679 = 
(int)(((long)1)); 
BgL_arg1528z00_2725 = 
PROCEDURE_REF(BgL_genericz00_102, BgL_auxz00_3679); } 
{ /* ./Llib/object.scm 829 */
int BgL_offsetz00_2726;
BgL_offsetz00_2726 = 
(int)(BgL_objzd2classzd2numz00_2724); 
{ /* ./Llib/object.scm 829 */
long BgL_offsetz00_2727;
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_3683;
BgL_auxz00_3683 = 
(long)(BgL_offsetz00_2726); 
BgL_offsetz00_2727 = 
(BgL_auxz00_3683-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 829 */
long BgL_modz00_2728;
{ /* ./Llib/object.scm 829 */
int BgL_arg1274z00_2729;
BgL_arg1274z00_2729 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_3687;
BgL_auxz00_3687 = 
(long)(BgL_arg1274z00_2729); 
BgL_modz00_2728 = 
(BgL_offsetz00_2727/BgL_auxz00_3687); } } 
{ /* ./Llib/object.scm 829 */
long BgL_restz00_2730;
{ /* ./Llib/object.scm 829 */
int BgL_arg1270z00_2731;
BgL_arg1270z00_2731 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_3691;
BgL_auxz00_3691 = 
(long)(BgL_arg1270z00_2731); 
BgL_restz00_2730 = 
(BgL_offsetz00_2727%BgL_auxz00_3691); } } 
{ /* ./Llib/object.scm 829 */

{ 
int BgL_auxz00_3698;obj_t BgL_auxz00_3694;
BgL_auxz00_3698 = 
(int)(BgL_restz00_2730); 
{ 
int BgL_auxz00_3695;
BgL_auxz00_3695 = 
(int)(BgL_modz00_2728); 
BgL_auxz00_3694 = 
VECTOR_REF(BgL_arg1528z00_2725,BgL_auxz00_3695); } 
return 
VECTOR_REF(BgL_auxz00_3694,BgL_auxz00_3698);} } } } } } } } } 
}



/* _find-method */
obj_t BGl__findzd2methodzd2zz__objectz00(obj_t BgL_envz00_2585, obj_t BgL_objz00_2586, obj_t BgL_genericz00_2587)
{ AN_OBJECT;
{ /* ./Llib/object.scm 828 */
{ /* ./Llib/object.scm 829 */
BgL_objectz00_bglt BgL_objz00_2733;
BgL_objz00_2733 = 
(BgL_objectz00_bglt)(BgL_objz00_2586); 
{ /* ./Llib/object.scm 829 */
long BgL_objzd2classzd2numz00_2735;
BgL_objzd2classzd2numz00_2735 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_2733); 
{ /* ./Llib/object.scm 829 */
obj_t BgL_arg1528z00_2736;
{ /* ./Llib/object.scm 829 */
int BgL_auxz00_3703;
BgL_auxz00_3703 = 
(int)(((long)1)); 
BgL_arg1528z00_2736 = 
PROCEDURE_REF(BgL_genericz00_2587, BgL_auxz00_3703); } 
{ /* ./Llib/object.scm 829 */
int BgL_offsetz00_2737;
BgL_offsetz00_2737 = 
(int)(BgL_objzd2classzd2numz00_2735); 
{ /* ./Llib/object.scm 829 */
long BgL_offsetz00_2738;
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_3707;
BgL_auxz00_3707 = 
(long)(BgL_offsetz00_2737); 
BgL_offsetz00_2738 = 
(BgL_auxz00_3707-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 829 */
long BgL_modz00_2739;
{ /* ./Llib/object.scm 829 */
int BgL_arg1274z00_2740;
BgL_arg1274z00_2740 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_3711;
BgL_auxz00_3711 = 
(long)(BgL_arg1274z00_2740); 
BgL_modz00_2739 = 
(BgL_offsetz00_2738/BgL_auxz00_3711); } } 
{ /* ./Llib/object.scm 829 */
long BgL_restz00_2741;
{ /* ./Llib/object.scm 829 */
int BgL_arg1270z00_2742;
BgL_arg1270z00_2742 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 829 */
long BgL_auxz00_3715;
BgL_auxz00_3715 = 
(long)(BgL_arg1270z00_2742); 
BgL_restz00_2741 = 
(BgL_offsetz00_2738%BgL_auxz00_3715); } } 
{ /* ./Llib/object.scm 829 */

{ 
int BgL_auxz00_3722;obj_t BgL_auxz00_3718;
BgL_auxz00_3722 = 
(int)(BgL_restz00_2741); 
{ 
int BgL_auxz00_3719;
BgL_auxz00_3719 = 
(int)(BgL_modz00_2739); 
BgL_auxz00_3718 = 
VECTOR_REF(BgL_arg1528z00_2736,BgL_auxz00_3719); } 
return 
VECTOR_REF(BgL_auxz00_3718,BgL_auxz00_3722);} } } } } } } } } } 
}



/* 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_1707;
{ 
int BgL_auxz00_3762;
BgL_auxz00_3762 = 
(int)(((long)3)); 
BgL_superz00_1707 = 
VECTOR_REF(BgL_classz00_105,BgL_auxz00_3762); } 
BgL_loopz00_1706:
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_1707))
{ /* ./Llib/object.scm 838 */
long BgL_objzd2superzd2classzd2numzd2_1709;
{ /* ./Llib/object.scm 838 */
long BgL_res2598z00_1720;
{ /* ./Llib/object.scm 838 */
int BgL_kz00_1719;
BgL_kz00_1719 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 838 */
obj_t BgL_auxz00_3728;
BgL_auxz00_3728 = 
VECTOR_REF(BgL_superz00_1707,BgL_kz00_1719); 
BgL_res2598z00_1720 = 
(long)CINT(BgL_auxz00_3728); } } 
BgL_objzd2superzd2classzd2numzd2_1709 = BgL_res2598z00_1720; } 
{ /* ./Llib/object.scm 838 */
obj_t BgL_methodz00_1710;
{ /* ./Llib/object.scm 838 */
obj_t BgL_arg1540z00_1711;
{ /* ./Llib/object.scm 838 */
int BgL_auxz00_3731;
BgL_auxz00_3731 = 
(int)(((long)1)); 
BgL_arg1540z00_1711 = 
PROCEDURE_REF(BgL_genericz00_104, BgL_auxz00_3731); } 
{ /* ./Llib/object.scm 838 */
int BgL_offsetz00_1724;
BgL_offsetz00_1724 = 
(int)(BgL_objzd2superzd2classzd2numzd2_1709); 
{ /* ./Llib/object.scm 838 */
long BgL_offsetz00_1725;
{ /* ./Llib/object.scm 838 */
long BgL_auxz00_3735;
BgL_auxz00_3735 = 
(long)(BgL_offsetz00_1724); 
BgL_offsetz00_1725 = 
(BgL_auxz00_3735-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 838 */
long BgL_modz00_1726;
{ /* ./Llib/object.scm 838 */
int BgL_arg1274z00_1727;
BgL_arg1274z00_1727 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 838 */
long BgL_auxz00_3739;
BgL_auxz00_3739 = 
(long)(BgL_arg1274z00_1727); 
BgL_modz00_1726 = 
(BgL_offsetz00_1725/BgL_auxz00_3739); } } 
{ /* ./Llib/object.scm 838 */
long BgL_restz00_1728;
{ /* ./Llib/object.scm 838 */
int BgL_arg1270z00_1729;
BgL_arg1270z00_1729 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 838 */
long BgL_auxz00_3743;
BgL_auxz00_3743 = 
(long)(BgL_arg1270z00_1729); 
BgL_restz00_1728 = 
(BgL_offsetz00_1725%BgL_auxz00_3743); } } 
{ /* ./Llib/object.scm 838 */

{ 
int BgL_auxz00_3750;obj_t BgL_auxz00_3746;
BgL_auxz00_3750 = 
(int)(BgL_restz00_1728); 
{ 
int BgL_auxz00_3747;
BgL_auxz00_3747 = 
(int)(BgL_modz00_1726); 
BgL_auxz00_3746 = 
VECTOR_REF(BgL_arg1540z00_1711,BgL_auxz00_3747); } 
BgL_methodz00_1710 = 
VECTOR_REF(BgL_auxz00_3746,BgL_auxz00_3750); } } } } } } } 
if(
CBOOL(BgL_methodz00_1710))
{ /* ./Llib/object.scm 838 */
return BgL_methodz00_1710;}  else 
{ 
obj_t BgL_superz00_3755;
{ 
int BgL_auxz00_3756;
BgL_auxz00_3756 = 
(int)(((long)3)); 
BgL_superz00_3755 = 
VECTOR_REF(BgL_superz00_1707,BgL_auxz00_3756); } 
BgL_superz00_1707 = BgL_superz00_3755; 
goto BgL_loopz00_1706;} } }  else 
{ /* ./Llib/object.scm 838 */
int BgL_auxz00_3759;
BgL_auxz00_3759 = 
(int)(((long)0)); 
return 
PROCEDURE_REF(BgL_genericz00_104, BgL_auxz00_3759);} } } 
}



/* _find-super-class-method */
obj_t BGl__findzd2superzd2classzd2methodzd2zz__objectz00(obj_t BgL_envz00_2588, obj_t BgL_objz00_2589, obj_t BgL_genericz00_2590, obj_t BgL_classz00_2591)
{ AN_OBJECT;
{ /* ./Llib/object.scm 837 */
return 
BGl_findzd2superzd2classzd2methodzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_2589), BgL_genericz00_2590, BgL_classz00_2591);} 
}



/* 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 */
{ 
obj_t BgL_classz00_1749;
BgL_classz00_1749 = BgL_classz00_108; 
BgL_loopz00_1748:
if(
BGl_classzf3zf3zz__objectz00(BgL_classz00_1749))
{ /* ./Llib/object.scm 854 */
long BgL_objzd2superzd2classzd2numzd2_1751;
{ /* ./Llib/object.scm 854 */
long BgL_res2602z00_1758;
{ /* ./Llib/object.scm 854 */
int BgL_kz00_1757;
BgL_kz00_1757 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 854 */
obj_t BgL_auxz00_3770;
BgL_auxz00_3770 = 
VECTOR_REF(BgL_classz00_1749,BgL_kz00_1757); 
BgL_res2602z00_1758 = 
(long)CINT(BgL_auxz00_3770); } } 
BgL_objzd2superzd2classzd2numzd2_1751 = BgL_res2602z00_1758; } 
{ /* ./Llib/object.scm 854 */
obj_t BgL_methodz00_1752;
{ /* ./Llib/object.scm 854 */
obj_t BgL_arg1554z00_1753;
{ /* ./Llib/object.scm 854 */
int BgL_auxz00_3773;
BgL_auxz00_3773 = 
(int)(((long)1)); 
BgL_arg1554z00_1753 = 
PROCEDURE_REF(BgL_genericz00_107, BgL_auxz00_3773); } 
{ /* ./Llib/object.scm 854 */
int BgL_offsetz00_1762;
BgL_offsetz00_1762 = 
(int)(BgL_objzd2superzd2classzd2numzd2_1751); 
{ /* ./Llib/object.scm 854 */
long BgL_offsetz00_1763;
{ /* ./Llib/object.scm 854 */
long BgL_auxz00_3777;
BgL_auxz00_3777 = 
(long)(BgL_offsetz00_1762); 
BgL_offsetz00_1763 = 
(BgL_auxz00_3777-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 854 */
long BgL_modz00_1764;
{ /* ./Llib/object.scm 854 */
int BgL_arg1274z00_1765;
BgL_arg1274z00_1765 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 854 */
long BgL_auxz00_3781;
BgL_auxz00_3781 = 
(long)(BgL_arg1274z00_1765); 
BgL_modz00_1764 = 
(BgL_offsetz00_1763/BgL_auxz00_3781); } } 
{ /* ./Llib/object.scm 854 */
long BgL_restz00_1766;
{ /* ./Llib/object.scm 854 */
int BgL_arg1270z00_1767;
BgL_arg1270z00_1767 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 854 */
long BgL_auxz00_3785;
BgL_auxz00_3785 = 
(long)(BgL_arg1270z00_1767); 
BgL_restz00_1766 = 
(BgL_offsetz00_1763%BgL_auxz00_3785); } } 
{ /* ./Llib/object.scm 854 */

{ 
int BgL_auxz00_3792;obj_t BgL_auxz00_3788;
BgL_auxz00_3792 = 
(int)(BgL_restz00_1766); 
{ 
int BgL_auxz00_3789;
BgL_auxz00_3789 = 
(int)(BgL_modz00_1764); 
BgL_auxz00_3788 = 
VECTOR_REF(BgL_arg1554z00_1753,BgL_auxz00_3789); } 
BgL_methodz00_1752 = 
VECTOR_REF(BgL_auxz00_3788,BgL_auxz00_3792); } } } } } } } 
if(
CBOOL(BgL_methodz00_1752))
{ /* ./Llib/object.scm 854 */
return 
MAKE_PAIR(BgL_classz00_1749, BgL_methodz00_1752);}  else 
{ 
obj_t BgL_classz00_3798;
{ 
int BgL_auxz00_3799;
BgL_auxz00_3799 = 
(int)(((long)3)); 
BgL_classz00_3798 = 
VECTOR_REF(BgL_classz00_1749,BgL_auxz00_3799); } 
BgL_classz00_1749 = BgL_classz00_3798; 
goto BgL_loopz00_1748;} } }  else 
{ /* ./Llib/object.scm 854 */
return 
MAKE_PAIR(BFALSE, BFALSE);} } } 
}



/* _find-method-from */
obj_t BGl__findzd2methodzd2fromz00zz__objectz00(obj_t BgL_envz00_2592, obj_t BgL_objz00_2593, obj_t BgL_genericz00_2594, obj_t BgL_classz00_2595)
{ AN_OBJECT;
{ /* ./Llib/object.scm 853 */
return 
BGl_findzd2methodzd2fromz00zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_2593), BgL_genericz00_2594, BgL_classz00_2595);} 
}



/* 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_test1560z00_1784;
BgL_test1560z00_1784 = 
BGL_OBJECTP(BgL_objz00_109); 
if(BgL_test1560z00_1784)
{ /* ./Llib/object.scm 871 */
obj_t BgL_ominz00_1785;obj_t BgL_cminz00_1786;obj_t BgL_cmaxz00_1787;
{ /* ./Llib/object.scm 871 */
obj_t BgL_arg1565z00_1788;
{ /* ./Llib/object.scm 871 */
BgL_objectz00_bglt BgL_objectz00_1791;
BgL_objectz00_1791 = 
(BgL_objectz00_bglt)(BgL_objz00_109); 
{ /* ./Llib/object.scm 871 */
long BgL_arg1255z00_1792;
{ /* ./Llib/object.scm 871 */
long BgL_arg1258z00_1793;
BgL_arg1258z00_1793 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_1791); 
BgL_arg1255z00_1792 = 
(BgL_arg1258z00_1793-OBJECT_TYPE); } 
{ 
int BgL_auxz00_3810;
BgL_auxz00_3810 = 
(int)(BgL_arg1255z00_1792); 
BgL_arg1565z00_1788 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_3810); } } } 
{ 
int BgL_auxz00_3813;
BgL_auxz00_3813 = 
(int)(((long)2)); 
BgL_ominz00_1785 = 
VECTOR_REF(BgL_arg1565z00_1788,BgL_auxz00_3813); } } 
{ 
int BgL_auxz00_3816;
BgL_auxz00_3816 = 
(int)(((long)2)); 
BgL_cminz00_1786 = 
VECTOR_REF(BgL_classz00_110,BgL_auxz00_3816); } 
{ 
int BgL_auxz00_3819;
BgL_auxz00_3819 = 
(int)(((long)5)); 
BgL_cmaxz00_1787 = 
VECTOR_REF(BgL_classz00_110,BgL_auxz00_3819); } 
{ /* ./Llib/object.scm 871 */
bool_t BgL_testz00_3822;
{ /* ./Llib/object.scm 871 */
long BgL_auxz00_3825;long BgL_auxz00_3823;
BgL_auxz00_3825 = 
(long)CINT(BgL_cminz00_1786); 
BgL_auxz00_3823 = 
(long)CINT(BgL_ominz00_1785); 
BgL_testz00_3822 = 
(BgL_auxz00_3823>=BgL_auxz00_3825); } 
if(BgL_testz00_3822)
{ /* ./Llib/object.scm 871 */
long BgL_auxz00_3830;long BgL_auxz00_3828;
BgL_auxz00_3830 = 
(long)CINT(BgL_cmaxz00_1787); 
BgL_auxz00_3828 = 
(long)CINT(BgL_ominz00_1785); 
return 
(BgL_auxz00_3828<=BgL_auxz00_3830);}  else 
{ /* ./Llib/object.scm 871 */
return ((bool_t)0);} } }  else 
{ /* ./Llib/object.scm 871 */
return ((bool_t)0);} } } 
}



/* _is-a? */
obj_t BGl__iszd2azf3z21zz__objectz00(obj_t BgL_envz00_2596, obj_t BgL_objz00_2597, obj_t BgL_classz00_2598)
{ AN_OBJECT;
{ /* ./Llib/object.scm 870 */
{ /* ./Llib/object.scm 871 */
bool_t BgL_auxz00_3833;
BgL_auxz00_3833 = 
BGl_iszd2azf3z21zz__objectz00(BgL_objz00_2597, BgL_classz00_2598); 
return 
BBOOL(BgL_auxz00_3833);} } 
}



/* 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_superzd2minzd2_727;
{ 
int BgL_auxz00_3836;
BgL_auxz00_3836 = 
(int)(((long)2)); 
BgL_superzd2minzd2_727 = 
VECTOR_REF(BgL_superz00_112,BgL_auxz00_3836); } 
{ /* ./Llib/object.scm 888 */
obj_t BgL_superzd2maxzd2_728;
{ 
int BgL_auxz00_3839;
BgL_auxz00_3839 = 
(int)(((long)5)); 
BgL_superzd2maxzd2_728 = 
VECTOR_REF(BgL_superz00_112,BgL_auxz00_3839); } 
{ /* ./Llib/object.scm 889 */
obj_t BgL_subclassesz00_729;
{ 
int BgL_auxz00_3842;
BgL_auxz00_3842 = 
(int)(((long)4)); 
BgL_subclassesz00_729 = 
VECTOR_REF(BgL_superz00_112,BgL_auxz00_3842); } 
{ /* ./Llib/object.scm 890 */
long BgL_newzd2numzd2_730;
{ /* ./Llib/object.scm 891 */
bool_t BgL_testz00_3845;
{ /* ./Llib/object.scm 891 */
obj_t BgL_auxz00_3846;
BgL_auxz00_3846 = 
CDR(BgL_subclassesz00_729); 
BgL_testz00_3845 = 
NULLP(BgL_auxz00_3846); } 
if(BgL_testz00_3845)
{ /* ./Llib/object.scm 892 */
obj_t BgL_arg1579z00_734;
{ 
int BgL_auxz00_3849;
BgL_auxz00_3849 = 
(int)(((long)2)); 
BgL_arg1579z00_734 = 
VECTOR_REF(BgL_superz00_112,BgL_auxz00_3849); } 
{ /* ./Llib/object.scm 892 */
long BgL_auxz00_3852;
BgL_auxz00_3852 = 
(long)CINT(BgL_arg1579z00_734); 
BgL_newzd2numzd2_730 = 
(((long)1)+BgL_auxz00_3852); } }  else 
{ /* ./Llib/object.scm 893 */
obj_t BgL_arg1586z00_736;
{ 
int BgL_auxz00_3859;obj_t BgL_auxz00_3855;
BgL_auxz00_3859 = 
(int)(((long)5)); 
{ /* ./Llib/object.scm 893 */
obj_t BgL_auxz00_3856;
BgL_auxz00_3856 = 
CDR(BgL_subclassesz00_729); 
BgL_auxz00_3855 = 
CAR(BgL_auxz00_3856); } 
BgL_arg1586z00_736 = 
VECTOR_REF(BgL_auxz00_3855,BgL_auxz00_3859); } 
{ /* ./Llib/object.scm 893 */
long BgL_auxz00_3862;
BgL_auxz00_3862 = 
(long)CINT(BgL_arg1586z00_736); 
BgL_newzd2numzd2_730 = 
(((long)1)+BgL_auxz00_3862); } } } 
{ /* ./Llib/object.scm 891 */

{ 
obj_t BgL_auxz00_3867;int BgL_auxz00_3865;
BgL_auxz00_3867 = 
BINT(BgL_newzd2numzd2_730); 
BgL_auxz00_3865 = 
(int)(((long)2)); 
VECTOR_SET(BgL_classz00_111,BgL_auxz00_3865,BgL_auxz00_3867); } 
{ 
obj_t BgL_auxz00_3872;int BgL_auxz00_3870;
BgL_auxz00_3872 = 
BINT(BgL_newzd2numzd2_730); 
BgL_auxz00_3870 = 
(int)(((long)5)); 
VECTOR_SET(BgL_classz00_111,BgL_auxz00_3870,BgL_auxz00_3872); } 
{ /* ./Llib/object.scm 897 */
bool_t BgL_testz00_3875;
{ /* ./Llib/object.scm 897 */
long BgL_auxz00_3876;
BgL_auxz00_3876 = 
(long)CINT(BgL_superzd2maxzd2_728); 
BgL_testz00_3875 = 
(BgL_newzd2numzd2_730>BgL_auxz00_3876); } 
if(BgL_testz00_3875)
{ /* ./Llib/object.scm 897 */
return 
BGl_classzd2hierarchyzd2upzd2renumberz12zc0zz__objectz00(BgL_superz00_112);}  else 
{ /* ./Llib/object.scm 897 */
return ((bool_t)0);} } } } } } } } 
}



/* class-hierarchy-up-renumber! */
bool_t BGl_classzd2hierarchyzd2upzd2renumberz12zc0zz__objectz00(obj_t BgL_classz00_113)
{ AN_OBJECT;
{ /* ./Llib/object.scm 904 */
BGl_classzd2hierarchyzd2upzd2renumberz12zc0zz__objectz00:
{ /* ./Llib/object.scm 906 */
long BgL_newzd2numzd2_739;obj_t BgL_superz00_740;
{ /* ./Llib/object.scm 906 */
obj_t BgL_arg1655z00_767;
{ 
int BgL_auxz00_3880;
BgL_auxz00_3880 = 
(int)(((long)5)); 
BgL_arg1655z00_767 = 
VECTOR_REF(BgL_classz00_113,BgL_auxz00_3880); } 
{ /* ./Llib/object.scm 906 */
long BgL_auxz00_3883;
BgL_auxz00_3883 = 
(long)CINT(BgL_arg1655z00_767); 
BgL_newzd2numzd2_739 = 
(((long)2)*BgL_auxz00_3883); } } 
{ 
int BgL_auxz00_3886;
BgL_auxz00_3886 = 
(int)(((long)3)); 
BgL_superz00_740 = 
VECTOR_REF(BgL_classz00_113,BgL_auxz00_3886); } BGl_list3314z00zz__objectz00; 
{ 
obj_t BgL_auxz00_3891;int BgL_auxz00_3889;
BgL_auxz00_3891 = 
BINT(BgL_newzd2numzd2_739); 
BgL_auxz00_3889 = 
(int)(((long)5)); 
VECTOR_SET(BgL_classz00_113,BgL_auxz00_3889,BgL_auxz00_3891); } BGl_list3328z00zz__objectz00; 
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_740))
{ 
obj_t BgL_sistersz00_742;obj_t BgL_oldzd2sisterszd2_743;
{ 
int BgL_auxz00_3935;
BgL_auxz00_3935 = 
(int)(((long)4)); 
BgL_sistersz00_742 = 
VECTOR_REF(BgL_superz00_740,BgL_auxz00_3935); } 
BgL_oldzd2sisterszd2_743 = BNIL; 
BgL_loopz00_744:
{ /* ./Llib/object.scm 925 */
bool_t BgL_test1606z00_747;
if(
NULLP(BgL_sistersz00_742))
{ /* ./Llib/object.scm 925 */
BgL_test1606z00_747 = ((bool_t)1); }  else 
{ /* ./Llib/object.scm 925 */
obj_t BgL_auxz00_3898;
BgL_auxz00_3898 = 
CAR(BgL_sistersz00_742); 
BgL_test1606z00_747 = 
(BgL_auxz00_3898==BgL_classz00_113); } 
if(BgL_test1606z00_747)
{ /* ./Llib/object.scm 925 */
{ 
obj_t BgL_oldzd2sisterszd2_748;long BgL_sisterzd2numzd2_749;
BgL_oldzd2sisterszd2_748 = BgL_oldzd2sisterszd2_743; 
BgL_sisterzd2numzd2_749 = 
(BgL_newzd2numzd2_739+((long)1)); 
BgL_liipz00_750:
if(
NULLP(BgL_oldzd2sisterszd2_748))
{ /* ./Llib/object.scm 933 */
bool_t BgL_test1612z00_753;
{ /* ./Llib/object.scm 933 */
obj_t BgL_arg1615z00_754;obj_t BgL_arg1616z00_755;
{ 
int BgL_auxz00_3910;obj_t BgL_auxz00_3904;
BgL_auxz00_3910 = 
(int)(((long)5)); 
{ /* ./Llib/object.scm 933 */
obj_t BgL_auxz00_3905;
{ 
int BgL_auxz00_3906;
BgL_auxz00_3906 = 
(int)(((long)4)); 
BgL_auxz00_3905 = 
VECTOR_REF(BgL_superz00_740,BgL_auxz00_3906); } 
BgL_auxz00_3904 = 
CAR(BgL_auxz00_3905); } 
BgL_arg1615z00_754 = 
VECTOR_REF(BgL_auxz00_3904,BgL_auxz00_3910); } 
{ 
int BgL_auxz00_3913;
BgL_auxz00_3913 = 
(int)(((long)5)); 
BgL_arg1616z00_755 = 
VECTOR_REF(BgL_superz00_740,BgL_auxz00_3913); } 
{ /* ./Llib/object.scm 933 */
long BgL_auxz00_3918;long BgL_auxz00_3916;
BgL_auxz00_3918 = 
(long)CINT(BgL_arg1616z00_755); 
BgL_auxz00_3916 = 
(long)CINT(BgL_arg1615z00_754); 
BgL_test1612z00_753 = 
(BgL_auxz00_3916>BgL_auxz00_3918); } } 
if(BgL_test1612z00_753)
{ 
obj_t BgL_classz00_3922;
BgL_classz00_3922 = BgL_superz00_740; 
BgL_classz00_113 = BgL_classz00_3922; 
goto BGl_classzd2hierarchyzd2upzd2renumberz12zc0zz__objectz00;}  else 
{ /* ./Llib/object.scm 933 */
return ((bool_t)0);} }  else 
{ 
long BgL_sisterzd2numzd2_3925;obj_t BgL_oldzd2sisterszd2_3923;
BgL_oldzd2sisterszd2_3923 = 
CDR(BgL_oldzd2sisterszd2_748); 
BgL_sisterzd2numzd2_3925 = 
BGl_classzd2hierarchyzd2downzd2renumberz12zc0zz__objectz00(
CAR(BgL_oldzd2sisterszd2_748), BgL_sisterzd2numzd2_749); 
BgL_sisterzd2numzd2_749 = BgL_sisterzd2numzd2_3925; 
BgL_oldzd2sisterszd2_748 = BgL_oldzd2sisterszd2_3923; 
goto BgL_liipz00_750;} } }  else 
{ /* ./Llib/object.scm 925 */
{ /* ./Llib/object.scm 940 */
obj_t BgL_arg1637z00_761;obj_t BgL_arg1638z00_762;
BgL_arg1637z00_761 = 
CDR(BgL_sistersz00_742); 
{ /* ./Llib/object.scm 941 */
obj_t BgL_auxz00_3930;
BgL_auxz00_3930 = 
CAR(BgL_sistersz00_742); 
BgL_arg1638z00_762 = 
MAKE_PAIR(BgL_auxz00_3930, BgL_oldzd2sisterszd2_743); } 
{ 
obj_t BgL_oldzd2sisterszd2_3934;obj_t BgL_sistersz00_3933;
BgL_sistersz00_3933 = BgL_arg1637z00_761; 
BgL_oldzd2sisterszd2_3934 = BgL_arg1638z00_762; 
BgL_oldzd2sisterszd2_743 = BgL_oldzd2sisterszd2_3934; 
BgL_sistersz00_742 = BgL_sistersz00_3933; 
goto BgL_loopz00_744;} } } } }  else 
{ /* ./Llib/object.scm 920 */
return ((bool_t)0);} } } 
}



/* class-hierarchy-down-renumber! */
long BGl_classzd2hierarchyzd2downzd2renumberz12zc0zz__objectz00(obj_t BgL_classz00_114, long BgL_numz00_115)
{ AN_OBJECT;
{ /* ./Llib/object.scm 946 */BGl_list3348z00zz__objectz00; 
{ 
obj_t BgL_auxz00_3940;int BgL_auxz00_3938;
BgL_auxz00_3940 = 
BINT(BgL_numz00_115); 
BgL_auxz00_3938 = 
(int)(((long)2)); 
VECTOR_SET(BgL_classz00_114,BgL_auxz00_3938,BgL_auxz00_3940); } 
{ /* ./Llib/object.scm 951 */
obj_t BgL_arg1661z00_771;
{ /* ./Llib/object.scm 951 */
obj_t BgL_auxz00_3943;
{ 
int BgL_auxz00_3944;
BgL_auxz00_3944 = 
(int)(((long)4)); 
BgL_auxz00_3943 = 
VECTOR_REF(BgL_classz00_114,BgL_auxz00_3944); } 
BgL_arg1661z00_771 = 
bgl_reverse(BgL_auxz00_3943); } 
{ 
obj_t BgL_classesz00_1895;long BgL_maxzd2numzd2_1896;
BgL_classesz00_1895 = BgL_arg1661z00_771; 
BgL_maxzd2numzd2_1896 = BgL_numz00_115; 
BgL_liipz00_1894:
if(
NULLP(BgL_classesz00_1895))
{ /* ./Llib/object.scm 951 */
{ 
obj_t BgL_auxz00_3952;int BgL_auxz00_3950;
BgL_auxz00_3952 = 
BINT(BgL_maxzd2numzd2_1896); 
BgL_auxz00_3950 = 
(int)(((long)5)); 
VECTOR_SET(BgL_classz00_114,BgL_auxz00_3950,BgL_auxz00_3952); } 
return 
(((long)1)+BgL_maxzd2numzd2_1896);}  else 
{ 
long BgL_maxzd2numzd2_3958;obj_t BgL_classesz00_3956;
BgL_classesz00_3956 = 
CDR(BgL_classesz00_1895); 
BgL_maxzd2numzd2_3958 = 
BGl_classzd2hierarchyzd2downzd2renumberz12zc0zz__objectz00(
CAR(BgL_classesz00_1895), 
(((long)1)+BgL_maxzd2numzd2_1896)); 
BgL_maxzd2numzd2_1896 = BgL_maxzd2numzd2_3958; 
BgL_classesz00_1895 = BgL_classesz00_3956; 
goto BgL_liipz00_1894;} } } } 
}



/* 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_arg1684z00_1955;
BgL_arg1684z00_1955 = 
BGl_allocatezd2instancezd2zz__objectz00(
STRUCT_KEY(BgL_structz00_132)); 
{ /* ./Llib/object.scm 997 */
BgL_objectz00_bglt BgL_res2608z00_1986;
{ /* ./Llib/object.scm 997 */
obj_t BgL_method1035z00_1961;
{ /* ./Llib/object.scm 997 */
long BgL_objzd2classzd2numz00_1963;
BgL_objzd2classzd2numz00_1963 = 
BGL_OBJECT_CLASS_NUM(BgL_arg1684z00_1955); 
{ /* ./Llib/object.scm 997 */
obj_t BgL_arg1528z00_1964;
{ /* ./Llib/object.scm 997 */
int BgL_auxz00_3965;
BgL_auxz00_3965 = 
(int)(((long)1)); 
BgL_arg1528z00_1964 = 
PROCEDURE_REF(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BgL_auxz00_3965); } 
{ /* ./Llib/object.scm 997 */
int BgL_offsetz00_1967;
BgL_offsetz00_1967 = 
(int)(BgL_objzd2classzd2numz00_1963); 
{ /* ./Llib/object.scm 997 */
long BgL_offsetz00_1968;
{ /* ./Llib/object.scm 997 */
long BgL_auxz00_3969;
BgL_auxz00_3969 = 
(long)(BgL_offsetz00_1967); 
BgL_offsetz00_1968 = 
(BgL_auxz00_3969-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 997 */
long BgL_modz00_1969;
{ /* ./Llib/object.scm 997 */
int BgL_arg1274z00_1970;
BgL_arg1274z00_1970 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 997 */
long BgL_auxz00_3973;
BgL_auxz00_3973 = 
(long)(BgL_arg1274z00_1970); 
BgL_modz00_1969 = 
(BgL_offsetz00_1968/BgL_auxz00_3973); } } 
{ /* ./Llib/object.scm 997 */
long BgL_restz00_1971;
{ /* ./Llib/object.scm 997 */
int BgL_arg1270z00_1972;
BgL_arg1270z00_1972 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 997 */
long BgL_auxz00_3977;
BgL_auxz00_3977 = 
(long)(BgL_arg1270z00_1972); 
BgL_restz00_1971 = 
(BgL_offsetz00_1968%BgL_auxz00_3977); } } 
{ /* ./Llib/object.scm 997 */

{ 
int BgL_auxz00_3984;obj_t BgL_auxz00_3980;
BgL_auxz00_3984 = 
(int)(BgL_restz00_1971); 
{ 
int BgL_auxz00_3981;
BgL_auxz00_3981 = 
(int)(BgL_modz00_1969); 
BgL_auxz00_3980 = 
VECTOR_REF(BgL_arg1528z00_1964,BgL_auxz00_3981); } 
BgL_method1035z00_1961 = 
VECTOR_REF(BgL_auxz00_3980,BgL_auxz00_3984); } } } } } } } } 
{ /* ./Llib/object.scm 997 */
obj_t BgL_auxz00_3987;
BgL_auxz00_3987 = 
PROCEDURE_ENTRY(BgL_method1035z00_1961)(BgL_method1035z00_1961, 
(obj_t)(BgL_arg1684z00_1955), BgL_structz00_132, BEOA); 
BgL_res2608z00_1986 = 
(BgL_objectz00_bglt)(BgL_auxz00_3987); } } 
return BgL_res2608z00_1986;} } } 
}



/* _struct->object */
obj_t BGl__structzd2ze3objectz31zz__objectz00(obj_t BgL_envz00_2599, obj_t BgL_structz00_2600)
{ AN_OBJECT;
{ /* ./Llib/object.scm 996 */
{ /* ./Llib/object.scm 997 */
BgL_objectz00_bglt BgL_auxz00_3992;
BgL_auxz00_3992 = 
BGl_structzd2ze3objectz31zz__objectz00(BgL_structz00_2600); 
return 
(obj_t)(BgL_auxz00_3992);} } 
}



/* allocate-instance */
BGL_EXPORTED_DEF BgL_objectz00_bglt BGl_allocatezd2instancezd2zz__objectz00(obj_t BgL_cnamez00_133)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1002 */
{ 
long BgL_iz00_780;
{ /* ./Llib/object.scm 1003 */
obj_t BgL_auxz00_3995;
BgL_iz00_780 = ((long)0); 
BgL_loopz00_781:
{ /* ./Llib/object.scm 1004 */
bool_t BgL_testz00_3996;
{ /* ./Llib/object.scm 1004 */
long BgL_auxz00_3997;
BgL_auxz00_3997 = 
(long)CINT(BGl_za2nbzd2classesza2zd2zz__objectz00); 
BgL_testz00_3996 = 
(BgL_iz00_780==BgL_auxz00_3997); } 
if(BgL_testz00_3996)
{ /* ./Llib/object.scm 1004 */
FAILURE(BGl_string3350z00zz__objectz00,BGl_string3351z00zz__objectz00,BgL_cnamez00_133);}  else 
{ /* ./Llib/object.scm 1006 */
obj_t BgL_classz00_783;
{ 
int BgL_auxz00_4001;
BgL_auxz00_4001 = 
(int)(BgL_iz00_780); 
BgL_classz00_783 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_4001); } 
{ /* ./Llib/object.scm 1007 */
bool_t BgL_testz00_4004;
{ /* ./Llib/object.scm 1007 */
obj_t BgL_auxz00_4005;
{ 
int BgL_auxz00_4006;
BgL_auxz00_4006 = 
(int)(((long)0)); 
BgL_auxz00_4005 = 
VECTOR_REF(BgL_classz00_783,BgL_auxz00_4006); } 
BgL_testz00_4004 = 
(BgL_auxz00_4005==BgL_cnamez00_133); } 
if(BgL_testz00_4004)
{ /* ./Llib/object.scm 1008 */
obj_t BgL_fun1697z00_785;
{ 
int BgL_auxz00_4010;
BgL_auxz00_4010 = 
(int)(((long)6)); 
BgL_fun1697z00_785 = 
VECTOR_REF(BgL_classz00_783,BgL_auxz00_4010); } 
BgL_auxz00_3995 = 
PROCEDURE_ENTRY(BgL_fun1697z00_785)(BgL_fun1697z00_785, BEOA); }  else 
{ 
long BgL_iz00_4015;
BgL_iz00_4015 = 
(BgL_iz00_780+((long)1)); 
BgL_iz00_780 = BgL_iz00_4015; 
goto BgL_loopz00_781;} } } } 
return 
(BgL_objectz00_bglt)(BgL_auxz00_3995);} } } 
}



/* _allocate-instance */
obj_t BGl__allocatezd2instancezd2zz__objectz00(obj_t BgL_envz00_2604, obj_t BgL_cnamez00_2605)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1002 */
{ /* ./Llib/object.scm 1003 */
BgL_objectz00_bglt BgL_auxz00_4018;
BgL_auxz00_4018 = 
BGl_allocatezd2instancezd2zz__objectz00(BgL_cnamez00_2605); 
return 
(obj_t)(BgL_auxz00_4018);} } 
}



/* 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_4021;
{ /* ./Llib/object.scm 1015 */
obj_t BgL_auxz00_4022;
BgL_auxz00_4022 = 
BGL_OBJECT_WIDENING(BgL_objectz00_134); 
BgL_testz00_4021 = 
CBOOL(BgL_auxz00_4022); } 
if(BgL_testz00_4021)
{ /* ./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_2606, obj_t BgL_objectz00_2607)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1014 */
{ /* ./Llib/object.scm 1015 */
bool_t BgL_auxz00_4025;
{ /* ./Llib/object.scm 1015 */
bool_t BgL_testz00_4026;
{ /* ./Llib/object.scm 1015 */
obj_t BgL_auxz00_4027;
{ /* ./Llib/object.scm 1015 */
BgL_objectz00_bglt BgL_auxz00_4028;
BgL_auxz00_4028 = 
(BgL_objectz00_bglt)(BgL_objectz00_2607); 
BgL_auxz00_4027 = 
BGL_OBJECT_WIDENING(BgL_auxz00_4028); } 
BgL_testz00_4026 = 
CBOOL(BgL_auxz00_4027); } 
if(BgL_testz00_4026)
{ /* ./Llib/object.scm 1015 */
BgL_auxz00_4025 = ((bool_t)1)
; }  else 
{ /* ./Llib/object.scm 1015 */
BgL_auxz00_4025 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_4025);} } 
}



/* 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_classz00_2005;
{ /* ./Llib/object.scm 1125 */
long BgL_arg1255z00_2010;
{ /* ./Llib/object.scm 1125 */
long BgL_arg1258z00_2011;
BgL_arg1258z00_2011 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_145); 
BgL_arg1255z00_2010 = 
(BgL_arg1258z00_2011-OBJECT_TYPE); } 
{ 
int BgL_auxz00_4035;
BgL_auxz00_4035 = 
(int)(BgL_arg1255z00_2010); 
BgL_classz00_2005 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_4035); } } 
{ /* ./Llib/object.scm 1125 */
obj_t BgL_getterz00_2006;
{ /* ./Llib/object.scm 1125 */
obj_t BgL_auxz00_4038;
{ 
obj_t BgL_auxz00_4039;
{ 
int BgL_auxz00_4040;
BgL_auxz00_4040 = 
(int)(((long)10)); 
BgL_auxz00_4039 = 
VECTOR_REF(BgL_classz00_2005,BgL_auxz00_4040); } 
BgL_auxz00_4038 = 
VECTOR_REF(BgL_auxz00_4039,BgL_numz00_146); } 
BgL_getterz00_2006 = 
CAR(BgL_auxz00_4038); } 
{ /* ./Llib/object.scm 1125 */

return 
PROCEDURE_ENTRY(BgL_getterz00_2006)(BgL_getterz00_2006, 
(obj_t)(BgL_objz00_145), BEOA);} } } } 
}



/* _call-virtual-getter */
obj_t BGl__callzd2virtualzd2getterz00zz__objectz00(obj_t BgL_envz00_2608, obj_t BgL_objz00_2609, obj_t BgL_numz00_2610)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1124 */
return 
BGl_callzd2virtualzd2getterz00zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_2609), 
CINT(BgL_numz00_2610));} 
}



/* 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_classz00_2024;
{ /* ./Llib/object.scm 1138 */
long BgL_arg1255z00_2029;
{ /* ./Llib/object.scm 1138 */
long BgL_arg1258z00_2030;
BgL_arg1258z00_2030 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_147); 
BgL_arg1255z00_2029 = 
(BgL_arg1258z00_2030-OBJECT_TYPE); } 
{ 
int BgL_auxz00_4053;
BgL_auxz00_4053 = 
(int)(BgL_arg1255z00_2029); 
BgL_classz00_2024 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_4053); } } 
{ /* ./Llib/object.scm 1138 */
obj_t BgL_setterz00_2025;
{ /* ./Llib/object.scm 1138 */
obj_t BgL_auxz00_4056;
{ 
obj_t BgL_auxz00_4057;
{ 
int BgL_auxz00_4058;
BgL_auxz00_4058 = 
(int)(((long)10)); 
BgL_auxz00_4057 = 
VECTOR_REF(BgL_classz00_2024,BgL_auxz00_4058); } 
BgL_auxz00_4056 = 
VECTOR_REF(BgL_auxz00_4057,BgL_numz00_148); } 
BgL_setterz00_2025 = 
CDR(BgL_auxz00_4056); } 
{ /* ./Llib/object.scm 1138 */

return 
PROCEDURE_ENTRY(BgL_setterz00_2025)(BgL_setterz00_2025, 
(obj_t)(BgL_objz00_147), BgL_valuez00_149, BEOA);} } } } 
}



/* _call-virtual-setter */
obj_t BGl__callzd2virtualzd2setterz00zz__objectz00(obj_t BgL_envz00_2611, obj_t BgL_objz00_2612, obj_t BgL_numz00_2613, obj_t BgL_valuez00_2614)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1137 */
return 
BGl_callzd2virtualzd2setterz00zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_2612), 
CINT(BgL_numz00_2613), BgL_valuez00_2614);} 
}



/* 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_nextzd2classzd2_2043;
{ 
int BgL_auxz00_4069;
BgL_auxz00_4069 = 
(int)(((long)3)); 
BgL_nextzd2classzd2_2043 = 
VECTOR_REF(BgL_classz00_150,BgL_auxz00_4069); } 
{ /* ./Llib/object.scm 1161 */
obj_t BgL_fun1737z00_2044;
{ /* ./Llib/object.scm 1161 */
obj_t BgL_auxz00_4072;
{ 
obj_t BgL_auxz00_4073;
{ 
int BgL_auxz00_4074;
BgL_auxz00_4074 = 
(int)(((long)10)); 
BgL_auxz00_4073 = 
VECTOR_REF(BgL_nextzd2classzd2_2043,BgL_auxz00_4074); } 
BgL_auxz00_4072 = 
VECTOR_REF(BgL_auxz00_4073,BgL_numz00_152); } 
BgL_fun1737z00_2044 = 
CAR(BgL_auxz00_4072); } 
return 
PROCEDURE_ENTRY(BgL_fun1737z00_2044)(BgL_fun1737z00_2044, 
(obj_t)(BgL_objz00_151), BEOA);} } } 
}



/* _call-next-virtual-getter */
obj_t BGl__callzd2nextzd2virtualzd2getterzd2zz__objectz00(obj_t BgL_envz00_2615, obj_t BgL_classz00_2616, obj_t BgL_objz00_2617, obj_t BgL_numz00_2618)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1160 */
return 
BGl_callzd2nextzd2virtualzd2getterzd2zz__objectz00(BgL_classz00_2616, 
(BgL_objectz00_bglt)(BgL_objz00_2617), 
CINT(BgL_numz00_2618));} 
}



/* 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_nextzd2classzd2_2057;
{ 
int BgL_auxz00_4085;
BgL_auxz00_4085 = 
(int)(((long)3)); 
BgL_nextzd2classzd2_2057 = 
VECTOR_REF(BgL_classz00_153,BgL_auxz00_4085); } 
{ /* ./Llib/object.scm 1173 */
obj_t BgL_fun1749z00_2058;
{ /* ./Llib/object.scm 1173 */
obj_t BgL_auxz00_4088;
{ 
obj_t BgL_auxz00_4089;
{ 
int BgL_auxz00_4090;
BgL_auxz00_4090 = 
(int)(((long)10)); 
BgL_auxz00_4089 = 
VECTOR_REF(BgL_nextzd2classzd2_2057,BgL_auxz00_4090); } 
BgL_auxz00_4088 = 
VECTOR_REF(BgL_auxz00_4089,BgL_numz00_155); } 
BgL_fun1749z00_2058 = 
CDR(BgL_auxz00_4088); } 
return 
PROCEDURE_ENTRY(BgL_fun1749z00_2058)(BgL_fun1749z00_2058, 
(obj_t)(BgL_objz00_154), BgL_valuez00_156, BEOA);} } } 
}



/* _call-next-virtual-setter */
obj_t BGl__callzd2nextzd2virtualzd2setterzd2zz__objectz00(obj_t BgL_envz00_2619, obj_t BgL_classz00_2620, obj_t BgL_objz00_2621, obj_t BgL_numz00_2622, obj_t BgL_valuez00_2623)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1172 */
return 
BGl_callzd2nextzd2virtualzd2setterzd2zz__objectz00(BgL_classz00_2620, 
(BgL_objectz00_bglt)(BgL_objz00_2621), 
CINT(BgL_numz00_2622), BgL_valuez00_2623);} 
}



/* object-init */
obj_t BGl_objectzd2initzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 78 */
obj_t BgL_arg1753z00_805;obj_t BgL_arg1758z00_809;obj_t BgL_arg1759z00_810;
BgL_arg1753z00_805 = BGl_symbol3352z00zz__objectz00; 
BgL_arg1758z00_809 = BNIL; 
{ /* ./Llib/object.scm 78 */
obj_t BgL_v1026z00_812;
{ 
int BgL_auxz00_4101;
BgL_auxz00_4101 = 
(int)(((long)0)); 
BgL_v1026z00_812 = 
create_vector(BgL_auxz00_4101); } 
BgL_arg1759z00_810 = BgL_v1026z00_812; } 
BGl_objectz00zz__objectz00 = 
BGl_registerzd2classz12zc0zz__objectz00(BgL_arg1753z00_805, BFALSE, BGl_makezd2objectzd2envz00zz__objectz00, BGl_allocatezd2objectzd2envz00zz__objectz00, ((long)9383), BgL_arg1758z00_809, BFALSE, BgL_arg1759z00_810); } 
return BUNSPEC;} 
}



/* make-object */
BGL_EXPORTED_DEF BgL_objectz00_bglt BGl_makezd2objectzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_new1003z00_2073;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_res2617z00_2083;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_new1007z00_2074;
BgL_new1007z00_2074 = 
((BgL_objectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_objectz00_bgl) ))); 
{ /* ./Llib/object.scm 78 */
long BgL_arg1767z00_2075;
{ /* ./Llib/object.scm 78 */
long BgL_res2616z00_2079;
{ /* ./Llib/object.scm 78 */
obj_t BgL_classz00_2076;
BgL_classz00_2076 = BGl_objectz00zz__objectz00; 
{ /* ./Llib/object.scm 78 */
int BgL_kz00_2078;
BgL_kz00_2078 = 
(int)(((long)1)); 
{ /* ./Llib/object.scm 78 */
obj_t BgL_auxz00_4107;
BgL_auxz00_4107 = 
VECTOR_REF(BgL_classz00_2076,BgL_kz00_2078); 
BgL_res2616z00_2079 = 
(long)CINT(BgL_auxz00_4107); } } } 
BgL_arg1767z00_2075 = BgL_res2616z00_2079; } 
BGL_OBJECT_CLASS_NUM_SET(BgL_new1007z00_2074, BgL_arg1767z00_2075); } 
BGL_OBJECT_WIDENING_SET(BgL_new1007z00_2074, BFALSE); 
{ /* ./Llib/object.scm 78 */
obj_t BgL_objz00_2082;
BgL_objz00_2082 = 
(obj_t)(BgL_new1007z00_2074); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2082); BUNSPEC; } 
BgL_res2617z00_2083 = BgL_new1007z00_2074; } 
BgL_new1003z00_2073 = BgL_res2617z00_2083; } 
return BgL_new1003z00_2073;} } 
}



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



/* 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 */

return BgL_new1005z00_160;} } 
}



/* _fill-object! */
obj_t BGl__fillzd2objectz12zc0zz__objectz00(obj_t BgL_envz00_2626, obj_t BgL_new1005z00_2627)
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_auxz00_4117;
{ /* ./Llib/object.scm 78 */

BgL_auxz00_4117 = 
(BgL_objectz00_bglt)(BgL_new1005z00_2627); } 
return 
(obj_t)(BgL_auxz00_4117);} } 
}



/* allocate-object */
BGL_EXPORTED_DEF BgL_objectz00_bglt BGl_allocatezd2objectzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_new1007z00_2746;
BgL_new1007z00_2746 = 
((BgL_objectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_objectz00_bgl) ))); 
{ /* ./Llib/object.scm 78 */
long BgL_auxz00_4121;
BgL_auxz00_4121 = 
BGl_classzd2numzd2zz__objectz00(BGl_objectz00zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(BgL_new1007z00_2746, BgL_auxz00_4121); } 
BGL_OBJECT_WIDENING_SET(BgL_new1007z00_2746, BFALSE); 
{ /* ./Llib/object.scm 78 */
obj_t BgL_objz00_2747;
BgL_objz00_2747 = 
(obj_t)(BgL_new1007z00_2746); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2747); BUNSPEC; } 
return BgL_new1007z00_2746;} } 
}



/* _allocate-object */
obj_t BGl__allocatezd2objectzd2zz__objectz00(obj_t BgL_envz00_2625)
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_auxz00_4127;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_res3366z00_2750;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_new1007z00_2748;
BgL_new1007z00_2748 = 
((BgL_objectz00_bglt)BREF( GC_MALLOC ( sizeof(struct BgL_objectz00_bgl) ))); 
{ /* ./Llib/object.scm 78 */
long BgL_auxz00_4129;
BgL_auxz00_4129 = 
BGl_classzd2numzd2zz__objectz00(BGl_objectz00zz__objectz00); 
BGL_OBJECT_CLASS_NUM_SET(BgL_new1007z00_2748, BgL_auxz00_4129); } 
BGL_OBJECT_WIDENING_SET(BgL_new1007z00_2748, BFALSE); 
{ /* ./Llib/object.scm 78 */
obj_t BgL_objz00_2749;
BgL_objz00_2749 = 
(obj_t)(BgL_new1007z00_2748); 
BGL_HEAP_DEBUG_MARK_OBJ(BgL_objz00_2749); BUNSPEC; } 
BgL_res3366z00_2750 = BgL_new1007z00_2748; } 
BgL_auxz00_4127 = BgL_res3366z00_2750; } 
return 
(obj_t)(BgL_auxz00_4127);} } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zz__objectz00()
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
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_proc3353z00zz__objectz00); 
return 
BGl_addzd2methodz12zc0zz__objectz00(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BGl_objectz00zz__objectz00, BGl_proc3354z00zz__objectz00);} 
}



/* struct+object->object-object1045 */
obj_t BGl_structzb2objectzd2ze3objectzd2object1045z51zz__objectz00(obj_t BgL_envz00_2630, obj_t BgL_oz00_2631, obj_t BgL_sz00_2632)
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ 
BgL_objectz00_bglt BgL_oz00_822;obj_t BgL_sz00_823;
{ /* ./Llib/object.scm 78 */
BgL_objectz00_bglt BgL_auxz00_4145;
BgL_oz00_822 = 
(BgL_objectz00_bglt)(BgL_oz00_2631); 
BgL_sz00_823 = BgL_sz00_2632; 
{ /* ./Llib/object.scm 78 */
obj_t BgL_auxz00_4146;
{ /* ./Llib/object.scm 78 */
int BgL_auxz00_4147;
BgL_auxz00_4147 = 
(int)(((long)0)); 
BgL_auxz00_4146 = 
STRUCT_REF(BgL_sz00_823, BgL_auxz00_4147); } 
BGL_OBJECT_WIDENING_SET(BgL_oz00_822, BgL_auxz00_4146); } 
BgL_auxz00_4145 = BgL_oz00_822; 
return 
(obj_t)(BgL_auxz00_4145);} } } 
}



/* object->struct-object1043 */
obj_t BGl_objectzd2ze3structzd2object1043ze3zz__objectz00(obj_t BgL_envz00_2633, obj_t BgL_obj1008z00_2634)
{ AN_OBJECT;
{ /* ./Llib/object.scm 78 */
{ 
BgL_objectz00_bglt BgL_obj1008z00_816;
BgL_obj1008z00_816 = 
(BgL_objectz00_bglt)(BgL_obj1008z00_2634); 
{ /* ./Llib/object.scm 78 */
obj_t BgL_res1009z00_2090;
{ /* ./Llib/object.scm 78 */
int BgL_auxz00_4153;
BgL_auxz00_4153 = 
(int)(((long)1)); 
BgL_res1009z00_2090 = 
make_struct(BGl_symbol3352z00zz__objectz00, BgL_auxz00_4153, BUNSPEC); } 
{ /* ./Llib/object.scm 78 */
int BgL_auxz00_4156;
BgL_auxz00_4156 = 
(int)(((long)0)); 
STRUCT_SET(BgL_res1009z00_2090, BgL_auxz00_4156, BFALSE); } 
return BgL_res1009z00_2090;} } } 
}



/* 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_method1029z00_2100;
{ /* ./Llib/object.scm 964 */
long BgL_objzd2classzd2numz00_2103;
BgL_objzd2classzd2numz00_2103 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_116); 
{ /* ./Llib/object.scm 964 */
obj_t BgL_arg1528z00_2104;
{ /* ./Llib/object.scm 964 */
int BgL_auxz00_4161;
BgL_auxz00_4161 = 
(int)(((long)1)); 
BgL_arg1528z00_2104 = 
PROCEDURE_REF(BGl_objectzd2displayzd2envz00zz__objectz00, BgL_auxz00_4161); } 
{ /* ./Llib/object.scm 964 */
int BgL_offsetz00_2107;
BgL_offsetz00_2107 = 
(int)(BgL_objzd2classzd2numz00_2103); 
{ /* ./Llib/object.scm 964 */
long BgL_offsetz00_2108;
{ /* ./Llib/object.scm 964 */
long BgL_auxz00_4165;
BgL_auxz00_4165 = 
(long)(BgL_offsetz00_2107); 
BgL_offsetz00_2108 = 
(BgL_auxz00_4165-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 964 */
long BgL_modz00_2109;
{ /* ./Llib/object.scm 964 */
int BgL_arg1274z00_2110;
BgL_arg1274z00_2110 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 964 */
long BgL_auxz00_4169;
BgL_auxz00_4169 = 
(long)(BgL_arg1274z00_2110); 
BgL_modz00_2109 = 
(BgL_offsetz00_2108/BgL_auxz00_4169); } } 
{ /* ./Llib/object.scm 964 */
long BgL_restz00_2111;
{ /* ./Llib/object.scm 964 */
int BgL_arg1270z00_2112;
BgL_arg1270z00_2112 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 964 */
long BgL_auxz00_4173;
BgL_auxz00_4173 = 
(long)(BgL_arg1270z00_2112); 
BgL_restz00_2111 = 
(BgL_offsetz00_2108%BgL_auxz00_4173); } } 
{ /* ./Llib/object.scm 964 */

{ 
int BgL_auxz00_4180;obj_t BgL_auxz00_4176;
BgL_auxz00_4180 = 
(int)(BgL_restz00_2111); 
{ 
int BgL_auxz00_4177;
BgL_auxz00_4177 = 
(int)(BgL_modz00_2109); 
BgL_auxz00_4176 = 
VECTOR_REF(BgL_arg1528z00_2104,BgL_auxz00_4177); } 
BgL_method1029z00_2100 = 
VECTOR_REF(BgL_auxz00_4176,BgL_auxz00_4180); } } } } } } } } 
{ /* ./Llib/object.scm 964 */
obj_t BgL_auxz00_4183;
{ /* ./Llib/object.scm 964 */
obj_t BgL_list1798z00_2101;
BgL_list1798z00_2101 = 
MAKE_PAIR(BgL_portz00_117, BNIL); 
BgL_auxz00_4183 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
(obj_t)(BgL_objz00_116), BgL_list1798z00_2101); } 
return 
apply(BgL_method1029z00_2100, BgL_auxz00_4183);} } } 
}



/* _object-display */
obj_t BGl__objectzd2displayzd2zz__objectz00(obj_t BgL_envz00_2635, obj_t BgL_objz00_2636, obj_t BgL_portz00_2637)
{ AN_OBJECT;
{ /* ./Llib/object.scm 964 */
return 
BGl_objectzd2displayzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_2636), BgL_portz00_2637);} 
}



/* 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_portz00_2126;
if(
PAIRP(BgL_portz00_119))
{ /* ./Llib/object.scm 965 */
BgL_portz00_2126 = 
CAR(BgL_portz00_119); }  else 
{ /* ./Llib/object.scm 965 */
BgL_portz00_2126 = 
BGL_CURRENT_OUTPUT_PORT(); } 
{ /* ./Llib/object.scm 965 */
obj_t BgL_method1039z00_2132;
{ /* ./Llib/object.scm 965 */
long BgL_objzd2classzd2numz00_2134;
BgL_objzd2classzd2numz00_2134 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_118); 
{ /* ./Llib/object.scm 965 */
obj_t BgL_arg1528z00_2135;
{ /* ./Llib/object.scm 965 */
int BgL_auxz00_4195;
BgL_auxz00_4195 = 
(int)(((long)1)); 
BgL_arg1528z00_2135 = 
PROCEDURE_REF(BGl_objectzd2printzd2envz00zz__objectz00, BgL_auxz00_4195); } 
{ /* ./Llib/object.scm 965 */
int BgL_offsetz00_2138;
BgL_offsetz00_2138 = 
(int)(BgL_objzd2classzd2numz00_2134); 
{ /* ./Llib/object.scm 965 */
long BgL_offsetz00_2139;
{ /* ./Llib/object.scm 965 */
long BgL_auxz00_4199;
BgL_auxz00_4199 = 
(long)(BgL_offsetz00_2138); 
BgL_offsetz00_2139 = 
(BgL_auxz00_4199-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 965 */
long BgL_modz00_2140;
{ /* ./Llib/object.scm 965 */
int BgL_arg1274z00_2141;
BgL_arg1274z00_2141 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 965 */
long BgL_auxz00_4203;
BgL_auxz00_4203 = 
(long)(BgL_arg1274z00_2141); 
BgL_modz00_2140 = 
(BgL_offsetz00_2139/BgL_auxz00_4203); } } 
{ /* ./Llib/object.scm 965 */
long BgL_restz00_2142;
{ /* ./Llib/object.scm 965 */
int BgL_arg1270z00_2143;
BgL_arg1270z00_2143 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 965 */
long BgL_auxz00_4207;
BgL_auxz00_4207 = 
(long)(BgL_arg1270z00_2143); 
BgL_restz00_2142 = 
(BgL_offsetz00_2139%BgL_auxz00_4207); } } 
{ /* ./Llib/object.scm 965 */

{ 
int BgL_auxz00_4214;obj_t BgL_auxz00_4210;
BgL_auxz00_4214 = 
(int)(BgL_restz00_2142); 
{ 
int BgL_auxz00_4211;
BgL_auxz00_4211 = 
(int)(BgL_modz00_2140); 
BgL_auxz00_4210 = 
VECTOR_REF(BgL_arg1528z00_2135,BgL_auxz00_4211); } 
BgL_method1039z00_2132 = 
VECTOR_REF(BgL_auxz00_4210,BgL_auxz00_4214); } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method1039z00_2132)(BgL_method1039z00_2132, 
(obj_t)(BgL_objz00_118), BgL_portz00_2126, BGl_displayzd2envzd2zz__r4_output_6_10_3z00, BEOA);} } } 
}



/* _object-display-default1028 */
obj_t BGl__objectzd2displayzd2default1028z00zz__objectz00(obj_t BgL_envz00_2638, obj_t BgL_objz00_2639, obj_t BgL_portz00_2640)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
return 
BGl_objectzd2displayzd2default1028z00zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_2639), BgL_portz00_2640);} 
}



/* 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_method1031z00_2157;
{ /* ./Llib/object.scm 971 */
long BgL_objzd2classzd2numz00_2160;
BgL_objzd2classzd2numz00_2160 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_120); 
{ /* ./Llib/object.scm 971 */
obj_t BgL_arg1528z00_2161;
{ /* ./Llib/object.scm 971 */
int BgL_auxz00_4223;
BgL_auxz00_4223 = 
(int)(((long)1)); 
BgL_arg1528z00_2161 = 
PROCEDURE_REF(BGl_objectzd2writezd2envz00zz__objectz00, BgL_auxz00_4223); } 
{ /* ./Llib/object.scm 971 */
int BgL_offsetz00_2164;
BgL_offsetz00_2164 = 
(int)(BgL_objzd2classzd2numz00_2160); 
{ /* ./Llib/object.scm 971 */
long BgL_offsetz00_2165;
{ /* ./Llib/object.scm 971 */
long BgL_auxz00_4227;
BgL_auxz00_4227 = 
(long)(BgL_offsetz00_2164); 
BgL_offsetz00_2165 = 
(BgL_auxz00_4227-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 971 */
long BgL_modz00_2166;
{ /* ./Llib/object.scm 971 */
int BgL_arg1274z00_2167;
BgL_arg1274z00_2167 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 971 */
long BgL_auxz00_4231;
BgL_auxz00_4231 = 
(long)(BgL_arg1274z00_2167); 
BgL_modz00_2166 = 
(BgL_offsetz00_2165/BgL_auxz00_4231); } } 
{ /* ./Llib/object.scm 971 */
long BgL_restz00_2168;
{ /* ./Llib/object.scm 971 */
int BgL_arg1270z00_2169;
BgL_arg1270z00_2169 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 971 */
long BgL_auxz00_4235;
BgL_auxz00_4235 = 
(long)(BgL_arg1270z00_2169); 
BgL_restz00_2168 = 
(BgL_offsetz00_2165%BgL_auxz00_4235); } } 
{ /* ./Llib/object.scm 971 */

{ 
int BgL_auxz00_4242;obj_t BgL_auxz00_4238;
BgL_auxz00_4242 = 
(int)(BgL_restz00_2168); 
{ 
int BgL_auxz00_4239;
BgL_auxz00_4239 = 
(int)(BgL_modz00_2166); 
BgL_auxz00_4238 = 
VECTOR_REF(BgL_arg1528z00_2161,BgL_auxz00_4239); } 
BgL_method1031z00_2157 = 
VECTOR_REF(BgL_auxz00_4238,BgL_auxz00_4242); } } } } } } } } 
{ /* ./Llib/object.scm 971 */
obj_t BgL_auxz00_4245;
{ /* ./Llib/object.scm 971 */
obj_t BgL_list1807z00_2158;
BgL_list1807z00_2158 = 
MAKE_PAIR(BgL_portz00_121, BNIL); 
BgL_auxz00_4245 = 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(
(obj_t)(BgL_objz00_120), BgL_list1807z00_2158); } 
return 
apply(BgL_method1031z00_2157, BgL_auxz00_4245);} } } 
}



/* _object-write */
obj_t BGl__objectzd2writezd2zz__objectz00(obj_t BgL_envz00_2641, obj_t BgL_objz00_2642, obj_t BgL_portz00_2643)
{ AN_OBJECT;
{ /* ./Llib/object.scm 971 */
return 
BGl_objectzd2writezd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_2642), BgL_portz00_2643);} 
}



/* 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_portz00_2183;
if(
PAIRP(BgL_portz00_123))
{ /* ./Llib/object.scm 972 */
BgL_portz00_2183 = 
CAR(BgL_portz00_123); }  else 
{ /* ./Llib/object.scm 972 */
BgL_portz00_2183 = 
BGL_CURRENT_OUTPUT_PORT(); } 
{ /* ./Llib/object.scm 972 */
obj_t BgL_method1039z00_2189;
{ /* ./Llib/object.scm 972 */
long BgL_objzd2classzd2numz00_2191;
BgL_objzd2classzd2numz00_2191 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_122); 
{ /* ./Llib/object.scm 972 */
obj_t BgL_arg1528z00_2192;
{ /* ./Llib/object.scm 972 */
int BgL_auxz00_4257;
BgL_auxz00_4257 = 
(int)(((long)1)); 
BgL_arg1528z00_2192 = 
PROCEDURE_REF(BGl_objectzd2printzd2envz00zz__objectz00, BgL_auxz00_4257); } 
{ /* ./Llib/object.scm 972 */
int BgL_offsetz00_2195;
BgL_offsetz00_2195 = 
(int)(BgL_objzd2classzd2numz00_2191); 
{ /* ./Llib/object.scm 972 */
long BgL_offsetz00_2196;
{ /* ./Llib/object.scm 972 */
long BgL_auxz00_4261;
BgL_auxz00_4261 = 
(long)(BgL_offsetz00_2195); 
BgL_offsetz00_2196 = 
(BgL_auxz00_4261-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 972 */
long BgL_modz00_2197;
{ /* ./Llib/object.scm 972 */
int BgL_arg1274z00_2198;
BgL_arg1274z00_2198 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 972 */
long BgL_auxz00_4265;
BgL_auxz00_4265 = 
(long)(BgL_arg1274z00_2198); 
BgL_modz00_2197 = 
(BgL_offsetz00_2196/BgL_auxz00_4265); } } 
{ /* ./Llib/object.scm 972 */
long BgL_restz00_2199;
{ /* ./Llib/object.scm 972 */
int BgL_arg1270z00_2200;
BgL_arg1270z00_2200 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 972 */
long BgL_auxz00_4269;
BgL_auxz00_4269 = 
(long)(BgL_arg1270z00_2200); 
BgL_restz00_2199 = 
(BgL_offsetz00_2196%BgL_auxz00_4269); } } 
{ /* ./Llib/object.scm 972 */

{ 
int BgL_auxz00_4276;obj_t BgL_auxz00_4272;
BgL_auxz00_4276 = 
(int)(BgL_restz00_2199); 
{ 
int BgL_auxz00_4273;
BgL_auxz00_4273 = 
(int)(BgL_modz00_2197); 
BgL_auxz00_4272 = 
VECTOR_REF(BgL_arg1528z00_2192,BgL_auxz00_4273); } 
BgL_method1039z00_2189 = 
VECTOR_REF(BgL_auxz00_4272,BgL_auxz00_4276); } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method1039z00_2189)(BgL_method1039z00_2189, 
(obj_t)(BgL_objz00_122), BgL_portz00_2183, BGl_writezd2envzd2zz__r4_output_6_10_3z00, BEOA);} } } 
}



/* _object-write-default1030 */
obj_t BGl__objectzd2writezd2default1030z00zz__objectz00(obj_t BgL_envz00_2644, obj_t BgL_objz00_2645, obj_t BgL_portz00_2646)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
return 
BGl_objectzd2writezd2default1030z00zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_2645), BgL_portz00_2646);} 
}



/* 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_2214;
{ /* ./Llib/object.scm 978 */
long BgL_objzd2classzd2numz00_2216;
BgL_objzd2classzd2numz00_2216 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_124); 
{ /* ./Llib/object.scm 978 */
obj_t BgL_arg1528z00_2217;
{ /* ./Llib/object.scm 978 */
int BgL_auxz00_4285;
BgL_auxz00_4285 = 
(int)(((long)1)); 
BgL_arg1528z00_2217 = 
PROCEDURE_REF(BGl_objectzd2ze3structzd2envze3zz__objectz00, BgL_auxz00_4285); } 
{ /* ./Llib/object.scm 978 */
int BgL_offsetz00_2220;
BgL_offsetz00_2220 = 
(int)(BgL_objzd2classzd2numz00_2216); 
{ /* ./Llib/object.scm 978 */
long BgL_offsetz00_2221;
{ /* ./Llib/object.scm 978 */
long BgL_auxz00_4289;
BgL_auxz00_4289 = 
(long)(BgL_offsetz00_2220); 
BgL_offsetz00_2221 = 
(BgL_auxz00_4289-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 978 */
long BgL_modz00_2222;
{ /* ./Llib/object.scm 978 */
int BgL_arg1274z00_2223;
BgL_arg1274z00_2223 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 978 */
long BgL_auxz00_4293;
BgL_auxz00_4293 = 
(long)(BgL_arg1274z00_2223); 
BgL_modz00_2222 = 
(BgL_offsetz00_2221/BgL_auxz00_4293); } } 
{ /* ./Llib/object.scm 978 */
long BgL_restz00_2224;
{ /* ./Llib/object.scm 978 */
int BgL_arg1270z00_2225;
BgL_arg1270z00_2225 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 978 */
long BgL_auxz00_4297;
BgL_auxz00_4297 = 
(long)(BgL_arg1270z00_2225); 
BgL_restz00_2224 = 
(BgL_offsetz00_2221%BgL_auxz00_4297); } } 
{ /* ./Llib/object.scm 978 */

{ 
int BgL_auxz00_4304;obj_t BgL_auxz00_4300;
BgL_auxz00_4304 = 
(int)(BgL_restz00_2224); 
{ 
int BgL_auxz00_4301;
BgL_auxz00_4301 = 
(int)(BgL_modz00_2222); 
BgL_auxz00_4300 = 
VECTOR_REF(BgL_arg1528z00_2217,BgL_auxz00_4301); } 
BgL_method1033z00_2214 = 
VECTOR_REF(BgL_auxz00_4300,BgL_auxz00_4304); } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method1033z00_2214)(BgL_method1033z00_2214, 
(obj_t)(BgL_objectz00_124), BEOA);} } 
}



/* _object->struct */
obj_t BGl__objectzd2ze3structz31zz__objectz00(obj_t BgL_envz00_2647, obj_t BgL_objectz00_2648)
{ AN_OBJECT;
{ /* ./Llib/object.scm 978 */
return 
BGl_objectzd2ze3structz31zz__objectz00(
(BgL_objectz00_bglt)(BgL_objectz00_2648));} 
}



/* object->struct-default1032 */
obj_t BGl_objectzd2ze3structzd2default1032ze3zz__objectz00(BgL_objectz00_bglt BgL_objectz00_125)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 979 */
obj_t BgL_objectz00_2241;
BgL_objectz00_2241 = 
(obj_t)(BgL_objectz00_125); 
FAILURE(BGl_string3355z00zz__objectz00,BGl_string3356z00zz__objectz00,BgL_objectz00_2241);} } 
}



/* _object->struct-default1032 */
obj_t BGl__objectzd2ze3structzd2default1032ze3zz__objectz00(obj_t BgL_envz00_2649, obj_t BgL_objectz00_2650)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
return 
BGl_objectzd2ze3structzd2default1032ze3zz__objectz00(
(BgL_objectz00_bglt)(BgL_objectz00_2650));} 
}



/* 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_2242;
{ /* ./Llib/object.scm 984 */
long BgL_objzd2classzd2numz00_2244;
BgL_objzd2classzd2numz00_2244 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_126); 
{ /* ./Llib/object.scm 984 */
obj_t BgL_arg1528z00_2245;
{ /* ./Llib/object.scm 984 */
int BgL_auxz00_4317;
BgL_auxz00_4317 = 
(int)(((long)1)); 
BgL_arg1528z00_2245 = 
PROCEDURE_REF(BGl_structzb2objectzd2ze3objectzd2envz51zz__objectz00, BgL_auxz00_4317); } 
{ /* ./Llib/object.scm 984 */
int BgL_offsetz00_2248;
BgL_offsetz00_2248 = 
(int)(BgL_objzd2classzd2numz00_2244); 
{ /* ./Llib/object.scm 984 */
long BgL_offsetz00_2249;
{ /* ./Llib/object.scm 984 */
long BgL_auxz00_4321;
BgL_auxz00_4321 = 
(long)(BgL_offsetz00_2248); 
BgL_offsetz00_2249 = 
(BgL_auxz00_4321-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 984 */
long BgL_modz00_2250;
{ /* ./Llib/object.scm 984 */
int BgL_arg1274z00_2251;
BgL_arg1274z00_2251 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 984 */
long BgL_auxz00_4325;
BgL_auxz00_4325 = 
(long)(BgL_arg1274z00_2251); 
BgL_modz00_2250 = 
(BgL_offsetz00_2249/BgL_auxz00_4325); } } 
{ /* ./Llib/object.scm 984 */
long BgL_restz00_2252;
{ /* ./Llib/object.scm 984 */
int BgL_arg1270z00_2253;
BgL_arg1270z00_2253 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 984 */
long BgL_auxz00_4329;
BgL_auxz00_4329 = 
(long)(BgL_arg1270z00_2253); 
BgL_restz00_2252 = 
(BgL_offsetz00_2249%BgL_auxz00_4329); } } 
{ /* ./Llib/object.scm 984 */

{ 
int BgL_auxz00_4336;obj_t BgL_auxz00_4332;
BgL_auxz00_4336 = 
(int)(BgL_restz00_2252); 
{ 
int BgL_auxz00_4333;
BgL_auxz00_4333 = 
(int)(BgL_modz00_2250); 
BgL_auxz00_4332 = 
VECTOR_REF(BgL_arg1528z00_2245,BgL_auxz00_4333); } 
BgL_method1035z00_2242 = 
VECTOR_REF(BgL_auxz00_4332,BgL_auxz00_4336); } } } } } } } } 
{ /* ./Llib/object.scm 984 */
obj_t BgL_auxz00_4339;
BgL_auxz00_4339 = 
PROCEDURE_ENTRY(BgL_method1035z00_2242)(BgL_method1035z00_2242, 
(obj_t)(BgL_objectz00_126), BgL_structz00_127, BEOA); 
return 
(BgL_objectz00_bglt)(BgL_auxz00_4339);} } } 
}



/* _struct+object->object */
obj_t BGl__structzb2objectzd2ze3objectz83zz__objectz00(obj_t BgL_envz00_2601, obj_t BgL_objectz00_2602, obj_t BgL_structz00_2603)
{ AN_OBJECT;
{ /* ./Llib/object.scm 984 */
{ /* ./Llib/object.scm 984 */
BgL_objectz00_bglt BgL_auxz00_4344;
BgL_auxz00_4344 = 
BGl_structzb2objectzd2ze3objectz83zz__objectz00(
(BgL_objectz00_bglt)(BgL_objectz00_2602), BgL_structz00_2603); 
return 
(obj_t)(BgL_auxz00_4344);} } 
}



/* 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 */
FAILURE(BGl_string3357z00zz__objectz00,BGl_string3358z00zz__objectz00,BgL_structz00_129);} 
}



/* _struct+object->object-default1034 */
obj_t BGl__structzb2objectzd2ze3objectzd2default1034z51zz__objectz00(obj_t BgL_envz00_2651, obj_t BgL_objectz00_2652, obj_t BgL_structz00_2653)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 985 */
BgL_objectz00_bglt BgL_auxz00_4349;
BgL_auxz00_4349 = 
BGl_structzb2objectzd2ze3objectzd2default1034z51zz__objectz00(
(BgL_objectz00_bglt)(BgL_objectz00_2652), BgL_structz00_2653); 
return 
(obj_t)(BgL_auxz00_4349);} } 
}



/* 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_method1037z00_2270;
{ /* ./Llib/object.scm 990 */
long BgL_objzd2classzd2numz00_2272;
BgL_objzd2classzd2numz00_2272 = 
BGL_OBJECT_CLASS_NUM(BgL_objectz00_130); 
{ /* ./Llib/object.scm 990 */
obj_t BgL_arg1528z00_2273;
{ /* ./Llib/object.scm 990 */
int BgL_auxz00_4354;
BgL_auxz00_4354 = 
(int)(((long)1)); 
BgL_arg1528z00_2273 = 
PROCEDURE_REF(BGl_objectzd2hashnumberzd2envz00zz__objectz00, BgL_auxz00_4354); } 
{ /* ./Llib/object.scm 990 */
int BgL_offsetz00_2276;
BgL_offsetz00_2276 = 
(int)(BgL_objzd2classzd2numz00_2272); 
{ /* ./Llib/object.scm 990 */
long BgL_offsetz00_2277;
{ /* ./Llib/object.scm 990 */
long BgL_auxz00_4358;
BgL_auxz00_4358 = 
(long)(BgL_offsetz00_2276); 
BgL_offsetz00_2277 = 
(BgL_auxz00_4358-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 990 */
long BgL_modz00_2278;
{ /* ./Llib/object.scm 990 */
int BgL_arg1274z00_2279;
BgL_arg1274z00_2279 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 990 */
long BgL_auxz00_4362;
BgL_auxz00_4362 = 
(long)(BgL_arg1274z00_2279); 
BgL_modz00_2278 = 
(BgL_offsetz00_2277/BgL_auxz00_4362); } } 
{ /* ./Llib/object.scm 990 */
long BgL_restz00_2280;
{ /* ./Llib/object.scm 990 */
int BgL_arg1270z00_2281;
BgL_arg1270z00_2281 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 990 */
long BgL_auxz00_4366;
BgL_auxz00_4366 = 
(long)(BgL_arg1270z00_2281); 
BgL_restz00_2280 = 
(BgL_offsetz00_2277%BgL_auxz00_4366); } } 
{ /* ./Llib/object.scm 990 */

{ 
int BgL_auxz00_4373;obj_t BgL_auxz00_4369;
BgL_auxz00_4373 = 
(int)(BgL_restz00_2280); 
{ 
int BgL_auxz00_4370;
BgL_auxz00_4370 = 
(int)(BgL_modz00_2278); 
BgL_auxz00_4369 = 
VECTOR_REF(BgL_arg1528z00_2273,BgL_auxz00_4370); } 
BgL_method1037z00_2270 = 
VECTOR_REF(BgL_auxz00_4369,BgL_auxz00_4373); } } } } } } } } 
{ /* ./Llib/object.scm 990 */
obj_t BgL_auxz00_4376;
BgL_auxz00_4376 = 
PROCEDURE_ENTRY(BgL_method1037z00_2270)(BgL_method1037z00_2270, 
(obj_t)(BgL_objectz00_130), BEOA); 
return 
CINT(BgL_auxz00_4376);} } } 
}



/* _object-hashnumber */
obj_t BGl__objectzd2hashnumberzd2zz__objectz00(obj_t BgL_envz00_2654, obj_t BgL_objectz00_2655)
{ AN_OBJECT;
{ /* ./Llib/object.scm 990 */
{ /* ./Llib/object.scm 990 */
int BgL_auxz00_4381;
BgL_auxz00_4381 = 
BGl_objectzd2hashnumberzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_objectz00_2655)); 
return 
BINT(BgL_auxz00_4381);} } 
}



/* 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_auxz00_4385;
BgL_auxz00_4385 = 
(obj_t)(BgL_objectz00_131); 
return 
bgl_obj_hash_number(BgL_auxz00_4385);} } 
}



/* _object-hashnumber-default1036 */
obj_t BGl__objectzd2hashnumberzd2default1036z00zz__objectz00(obj_t BgL_envz00_2656, obj_t BgL_objectz00_2657)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 991 */
int BgL_auxz00_4388;
BgL_auxz00_4388 = 
BGl_objectzd2hashnumberzd2default1036z00zz__objectz00(
(BgL_objectz00_bglt)(BgL_objectz00_2657)); 
return 
BINT(BgL_auxz00_4388);} } 
}



/* 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_method1039z00_2295;
{ /* ./Llib/object.scm 1020 */
long BgL_objzd2classzd2numz00_2297;
BgL_objzd2classzd2numz00_2297 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_135); 
{ /* ./Llib/object.scm 1020 */
obj_t BgL_arg1528z00_2298;
{ /* ./Llib/object.scm 1020 */
int BgL_auxz00_4393;
BgL_auxz00_4393 = 
(int)(((long)1)); 
BgL_arg1528z00_2298 = 
PROCEDURE_REF(BGl_objectzd2printzd2envz00zz__objectz00, BgL_auxz00_4393); } 
{ /* ./Llib/object.scm 1020 */
int BgL_offsetz00_2301;
BgL_offsetz00_2301 = 
(int)(BgL_objzd2classzd2numz00_2297); 
{ /* ./Llib/object.scm 1020 */
long BgL_offsetz00_2302;
{ /* ./Llib/object.scm 1020 */
long BgL_auxz00_4397;
BgL_auxz00_4397 = 
(long)(BgL_offsetz00_2301); 
BgL_offsetz00_2302 = 
(BgL_auxz00_4397-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 1020 */
long BgL_modz00_2303;
{ /* ./Llib/object.scm 1020 */
int BgL_arg1274z00_2304;
BgL_arg1274z00_2304 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 1020 */
long BgL_auxz00_4401;
BgL_auxz00_4401 = 
(long)(BgL_arg1274z00_2304); 
BgL_modz00_2303 = 
(BgL_offsetz00_2302/BgL_auxz00_4401); } } 
{ /* ./Llib/object.scm 1020 */
long BgL_restz00_2305;
{ /* ./Llib/object.scm 1020 */
int BgL_arg1270z00_2306;
BgL_arg1270z00_2306 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 1020 */
long BgL_auxz00_4405;
BgL_auxz00_4405 = 
(long)(BgL_arg1270z00_2306); 
BgL_restz00_2305 = 
(BgL_offsetz00_2302%BgL_auxz00_4405); } } 
{ /* ./Llib/object.scm 1020 */

{ 
int BgL_auxz00_4412;obj_t BgL_auxz00_4408;
BgL_auxz00_4412 = 
(int)(BgL_restz00_2305); 
{ 
int BgL_auxz00_4409;
BgL_auxz00_4409 = 
(int)(BgL_modz00_2303); 
BgL_auxz00_4408 = 
VECTOR_REF(BgL_arg1528z00_2298,BgL_auxz00_4409); } 
BgL_method1039z00_2295 = 
VECTOR_REF(BgL_auxz00_4408,BgL_auxz00_4412); } } } } } } } } 
return 
PROCEDURE_ENTRY(BgL_method1039z00_2295)(BgL_method1039z00_2295, 
(obj_t)(BgL_objz00_135), BgL_portz00_136, BgL_printzd2slotzd2_137, BEOA);} } 
}



/* _object-print */
obj_t BGl__objectzd2printzd2zz__objectz00(obj_t BgL_envz00_2658, obj_t BgL_objz00_2659, obj_t BgL_portz00_2660, obj_t BgL_printzd2slotzd2_2661)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1020 */
return 
BGl_objectzd2printzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_2659), BgL_portz00_2660, BgL_printzd2slotzd2_2661);} 
}



/* 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 */
{ 
obj_t BgL_fieldz00_856;
{ /* ./Llib/object.scm 1044 */
obj_t BgL_classz00_842;
{ /* ./Llib/object.scm 1044 */
long BgL_arg1255z00_2321;
{ /* ./Llib/object.scm 1044 */
long BgL_arg1258z00_2322;
BgL_arg1258z00_2322 = 
BGL_OBJECT_CLASS_NUM(BgL_objz00_138); 
BgL_arg1255z00_2321 = 
(BgL_arg1258z00_2322-OBJECT_TYPE); } 
{ 
int BgL_auxz00_4422;
BgL_auxz00_4422 = 
(int)(BgL_arg1255z00_2321); 
BgL_classz00_842 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_4422); } } 
{ /* ./Llib/object.scm 1044 */
obj_t BgL_classzd2namezd2_843;
{ 
int BgL_auxz00_4425;
BgL_auxz00_4425 = 
(int)(((long)0)); 
BgL_classzd2namezd2_843 = 
VECTOR_REF(BgL_classz00_842,BgL_auxz00_4425); } 
{ /* ./Llib/object.scm 1045 */
obj_t BgL_fieldsz00_844;
BgL_fieldsz00_844 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_classz00_842); 
{ /* ./Llib/object.scm 1046 */

display_string(BGl_string3360z00zz__objectz00, BgL_portz00_139); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_classzd2namezd2_843, BgL_portz00_139); 
{ /* ./Llib/object.scm 1049 */
bool_t BgL_test1829z00_845;
{ /* ./Llib/object.scm 1049 */
bool_t BgL__ortest_1020z00_2333;
BgL__ortest_1020z00_2333 = 
PAIRP(BgL_fieldsz00_844); 
if(BgL__ortest_1020z00_2333)
{ /* ./Llib/object.scm 1049 */
BgL_test1829z00_845 = BgL__ortest_1020z00_2333; }  else 
{ /* ./Llib/object.scm 1049 */
BgL_test1829z00_845 = 
NULLP(BgL_fieldsz00_844); } } 
if(BgL_test1829z00_845)
{ 
obj_t BgL_fieldsz00_846;obj_t BgL_classz00_847;
BgL_fieldsz00_846 = BgL_fieldsz00_844; 
BgL_classz00_847 = BgL_classz00_842; 
BgL_loopz00_848:
if(
NULLP(BgL_fieldsz00_846))
{ /* ./Llib/object.scm 1053 */
{ /* ./Llib/object.scm 1054 */
obj_t BgL_superz00_850;
{ 
int BgL_auxz00_4437;
BgL_auxz00_4437 = 
(int)(((long)3)); 
BgL_superz00_850 = 
VECTOR_REF(BgL_classz00_847,BgL_auxz00_4437); } 
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_850))
{ 
obj_t BgL_classz00_4444;obj_t BgL_fieldsz00_4442;
BgL_fieldsz00_4442 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_superz00_850); 
BgL_classz00_4444 = BgL_superz00_850; 
BgL_classz00_847 = BgL_classz00_4444; 
BgL_fieldsz00_846 = BgL_fieldsz00_4442; 
goto BgL_loopz00_848;}  else 
{ /* ./Llib/object.scm 1058 */
obj_t BgL_auxz00_4445;
BgL_auxz00_4445 = 
BCHAR(((unsigned char)'|')); 
return 
display_char(BgL_auxz00_4445, BgL_portz00_139);} } }  else 
{ /* ./Llib/object.scm 1053 */
if(
(BgL_fieldsz00_846==BUNSPEC))
{ /* ./Llib/object.scm 1059 */
display_string(BGl_string3361z00zz__objectz00, BgL_portz00_139); 
{ 
obj_t BgL_fieldsz00_4451;
BgL_fieldsz00_4451 = BNIL; 
BgL_fieldsz00_846 = BgL_fieldsz00_4451; 
goto BgL_loopz00_848;} }  else 
{ /* ./Llib/object.scm 1059 */
BgL_fieldz00_856 = 
CAR(BgL_fieldsz00_846); 
{ /* ./Llib/object.scm 1022 */
obj_t BgL_namez00_858;
{ /* ./Llib/object.scm 1022 */
obj_t BgL_res2636z00_2350;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_856))
{ 
int BgL_auxz00_4454;
BgL_auxz00_4454 = 
(int)(((long)0)); 
BgL_res2636z00_2350 = 
VECTOR_REF(BgL_fieldz00_856,BgL_auxz00_4454); }  else 
{ /* ./Llib/object.scm 1022 */
FAILURE(BGl_string3297z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_856);} 
BgL_namez00_858 = BgL_res2636z00_2350; } 
{ /* ./Llib/object.scm 1022 */
obj_t BgL_getzd2valuezd2_859;
{ /* ./Llib/object.scm 1023 */
obj_t BgL_res2637z00_2358;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_856))
{ 
int BgL_auxz00_4460;
BgL_auxz00_4460 = 
(int)(((long)1)); 
BgL_res2637z00_2358 = 
VECTOR_REF(BgL_fieldz00_856,BgL_auxz00_4460); }  else 
{ /* ./Llib/object.scm 1023 */
FAILURE(BGl_string3301z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_856);} 
BgL_getzd2valuezd2_859 = BgL_res2637z00_2358; } 
{ /* ./Llib/object.scm 1023 */

display_string(BGl_string3359z00zz__objectz00, BgL_portz00_139); 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_namez00_858, BgL_portz00_139); 
{ /* ./Llib/object.scm 1026 */
obj_t BgL_auxz00_4466;
BgL_auxz00_4466 = 
BCHAR(((unsigned char)':')); 
display_char(BgL_auxz00_4466, BgL_portz00_139); } 
{ /* ./Llib/object.scm 1028 */
bool_t BgL_test1864z00_860;
{ /* ./Llib/object.scm 1028 */
bool_t BgL_res2638z00_2368;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_856))
{ /* ./Llib/object.scm 1028 */
obj_t BgL_auxz00_4471;
{ 
int BgL_auxz00_4472;
BgL_auxz00_4472 = 
(int)(((long)3)); 
BgL_auxz00_4471 = 
VECTOR_REF(BgL_fieldz00_856,BgL_auxz00_4472); } 
BgL_res2638z00_2368 = 
PROCEDUREP(BgL_auxz00_4471); }  else 
{ /* ./Llib/object.scm 1028 */
FAILURE(BGl_string3299z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_856);} 
BgL_test1864z00_860 = BgL_res2638z00_2368; } 
if(BgL_test1864z00_860)
{ /* ./Llib/object.scm 1035 */
obj_t BgL_getzd2lenzd2_861;
{ /* ./Llib/object.scm 1035 */
obj_t BgL_res2639z00_2376;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_856))
{ 
int BgL_auxz00_4480;
BgL_auxz00_4480 = 
(int)(((long)3)); 
BgL_res2639z00_2376 = 
VECTOR_REF(BgL_fieldz00_856,BgL_auxz00_4480); }  else 
{ /* ./Llib/object.scm 1035 */
FAILURE(BGl_string3304z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_856);} 
BgL_getzd2lenzd2_861 = BgL_res2639z00_2376; } 
{ /* ./Llib/object.scm 1035 */
obj_t BgL_lenz00_862;
BgL_lenz00_862 = 
PROCEDURE_ENTRY(BgL_getzd2lenzd2_861)(BgL_getzd2lenzd2_861, 
(obj_t)(BgL_objz00_138), BEOA); 
{ /* ./Llib/object.scm 1036 */

{ 
long BgL_iz00_863;
BgL_iz00_863 = ((long)0); 
BgL_loopz00_864:
{ /* ./Llib/object.scm 1038 */
bool_t BgL_testz00_4487;
{ /* ./Llib/object.scm 1038 */
long BgL_auxz00_4488;
BgL_auxz00_4488 = 
(long)CINT(BgL_lenz00_862); 
BgL_testz00_4487 = 
(BgL_iz00_863==BgL_auxz00_4488); } 
if(BgL_testz00_4487)
{ /* ./Llib/object.scm 1039 */
obj_t BgL_auxz00_4491;
BgL_auxz00_4491 = 
BCHAR(((unsigned char)']')); 
display_char(BgL_auxz00_4491, BgL_portz00_139); }  else 
{ /* ./Llib/object.scm 1038 */
{ /* ./Llib/object.scm 1041 */
obj_t BgL_auxz00_4494;
BgL_auxz00_4494 = 
BCHAR(((unsigned char)' ')); 
display_char(BgL_auxz00_4494, BgL_portz00_139); } 
{ /* ./Llib/object.scm 1042 */
obj_t BgL_arg1870z00_866;
BgL_arg1870z00_866 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_859)(BgL_getzd2valuezd2_859, 
(obj_t)(BgL_objz00_138), 
BINT(BgL_iz00_863), BEOA); 
PROCEDURE_ENTRY(BgL_printzd2slotzd2_140)(BgL_printzd2slotzd2_140, BgL_arg1870z00_866, BgL_portz00_139, BEOA); } 
{ 
long BgL_iz00_4503;
BgL_iz00_4503 = 
(BgL_iz00_863+((long)1)); 
BgL_iz00_863 = BgL_iz00_4503; 
goto BgL_loopz00_864;} } } } } } }  else 
{ /* ./Llib/object.scm 1028 */
{ /* ./Llib/object.scm 1031 */
obj_t BgL_auxz00_4505;
BgL_auxz00_4505 = 
BCHAR(((unsigned char)' ')); 
display_char(BgL_auxz00_4505, BgL_portz00_139); } 
{ /* ./Llib/object.scm 1032 */
obj_t BgL_arg1882z00_868;
BgL_arg1882z00_868 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_859)(BgL_getzd2valuezd2_859, 
(obj_t)(BgL_objz00_138), BEOA); 
PROCEDURE_ENTRY(BgL_printzd2slotzd2_140)(BgL_printzd2slotzd2_140, BgL_arg1882z00_868, BgL_portz00_139, BEOA); } 
{ /* ./Llib/object.scm 1033 */
obj_t BgL_auxz00_4513;
BgL_auxz00_4513 = 
BCHAR(((unsigned char)']')); 
display_char(BgL_auxz00_4513, BgL_portz00_139); } } } } } } 
{ 
obj_t BgL_fieldsz00_4517;
BgL_fieldsz00_4517 = 
CDR(BgL_fieldsz00_846); 
BgL_fieldsz00_846 = BgL_fieldsz00_4517; 
goto BgL_loopz00_848;} } } }  else 
{ /* ./Llib/object.scm 1065 */
obj_t BgL_auxz00_4519;
BgL_auxz00_4519 = 
BCHAR(((unsigned char)'|')); 
return 
display_char(BgL_auxz00_4519, BgL_portz00_139);} } } } } } } } 
}



/* _object-print-default1038 */
obj_t BGl__objectzd2printzd2default1038z00zz__objectz00(obj_t BgL_envz00_2662, obj_t BgL_objz00_2663, obj_t BgL_portz00_2664, obj_t BgL_printzd2slotzd2_2665)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
return 
BGl_objectzd2printzd2default1038z00zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_2663), BgL_portz00_2664, BgL_printzd2slotzd2_2665);} 
}



/* 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_method1041z00_2381;
{ /* ./Llib/object.scm 1070 */
long BgL_objzd2classzd2numz00_2383;
BgL_objzd2classzd2numz00_2383 = 
BGL_OBJECT_CLASS_NUM(BgL_obj1z00_141); 
{ /* ./Llib/object.scm 1070 */
obj_t BgL_arg1528z00_2384;
{ /* ./Llib/object.scm 1070 */
int BgL_auxz00_4525;
BgL_auxz00_4525 = 
(int)(((long)1)); 
BgL_arg1528z00_2384 = 
PROCEDURE_REF(BGl_objectzd2equalzf3zd2envzf3zz__objectz00, BgL_auxz00_4525); } 
{ /* ./Llib/object.scm 1070 */
int BgL_offsetz00_2387;
BgL_offsetz00_2387 = 
(int)(BgL_objzd2classzd2numz00_2383); 
{ /* ./Llib/object.scm 1070 */
long BgL_offsetz00_2388;
{ /* ./Llib/object.scm 1070 */
long BgL_auxz00_4529;
BgL_auxz00_4529 = 
(long)(BgL_offsetz00_2387); 
BgL_offsetz00_2388 = 
(BgL_auxz00_4529-OBJECT_TYPE); } 
{ /* ./Llib/object.scm 1070 */
long BgL_modz00_2389;
{ /* ./Llib/object.scm 1070 */
int BgL_arg1274z00_2390;
BgL_arg1274z00_2390 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 1070 */
long BgL_auxz00_4533;
BgL_auxz00_4533 = 
(long)(BgL_arg1274z00_2390); 
BgL_modz00_2389 = 
(BgL_offsetz00_2388/BgL_auxz00_4533); } } 
{ /* ./Llib/object.scm 1070 */
long BgL_restz00_2391;
{ /* ./Llib/object.scm 1070 */
int BgL_arg1270z00_2392;
BgL_arg1270z00_2392 = 
(int)(((long)8)); 
{ /* ./Llib/object.scm 1070 */
long BgL_auxz00_4537;
BgL_auxz00_4537 = 
(long)(BgL_arg1270z00_2392); 
BgL_restz00_2391 = 
(BgL_offsetz00_2388%BgL_auxz00_4537); } } 
{ /* ./Llib/object.scm 1070 */

{ 
int BgL_auxz00_4544;obj_t BgL_auxz00_4540;
BgL_auxz00_4544 = 
(int)(BgL_restz00_2391); 
{ 
int BgL_auxz00_4541;
BgL_auxz00_4541 = 
(int)(BgL_modz00_2389); 
BgL_auxz00_4540 = 
VECTOR_REF(BgL_arg1528z00_2384,BgL_auxz00_4541); } 
BgL_method1041z00_2381 = 
VECTOR_REF(BgL_auxz00_4540,BgL_auxz00_4544); } } } } } } } } 
{ /* ./Llib/object.scm 1070 */
obj_t BgL_auxz00_4547;
BgL_auxz00_4547 = 
PROCEDURE_ENTRY(BgL_method1041z00_2381)(BgL_method1041z00_2381, 
(obj_t)(BgL_obj1z00_141), 
(obj_t)(BgL_obj2z00_142), BEOA); 
return 
CBOOL(BgL_auxz00_4547);} } } 
}



/* _object-equal? */
obj_t BGl__objectzd2equalzf3z21zz__objectz00(obj_t BgL_envz00_2666, obj_t BgL_obj1z00_2667, obj_t BgL_obj2z00_2668)
{ AN_OBJECT;
{ /* ./Llib/object.scm 1070 */
{ /* ./Llib/object.scm 1070 */
bool_t BgL_auxz00_4553;
BgL_auxz00_4553 = 
BGl_objectzd2equalzf3z21zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj1z00_2667), 
(BgL_objectz00_bglt)(BgL_obj2z00_2668)); 
return 
BBOOL(BgL_auxz00_4553);} } 
}



/* 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 */
{ 
obj_t BgL_fieldz00_888;
{ /* ./Llib/object.scm 1089 */
obj_t BgL_class1z00_872;obj_t BgL_class2z00_873;
{ /* ./Llib/object.scm 1089 */
long BgL_arg1255z00_2407;
{ /* ./Llib/object.scm 1089 */
long BgL_arg1258z00_2408;
BgL_arg1258z00_2408 = 
BGL_OBJECT_CLASS_NUM(BgL_obj1z00_143); 
BgL_arg1255z00_2407 = 
(BgL_arg1258z00_2408-OBJECT_TYPE); } 
{ 
int BgL_auxz00_4560;
BgL_auxz00_4560 = 
(int)(BgL_arg1255z00_2407); 
BgL_class1z00_872 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_4560); } } 
{ /* ./Llib/object.scm 1090 */
long BgL_arg1255z00_2415;
{ /* ./Llib/object.scm 1090 */
long BgL_arg1258z00_2416;
BgL_arg1258z00_2416 = 
BGL_OBJECT_CLASS_NUM(BgL_obj2z00_144); 
BgL_arg1255z00_2415 = 
(BgL_arg1258z00_2416-OBJECT_TYPE); } 
{ 
int BgL_auxz00_4565;
BgL_auxz00_4565 = 
(int)(BgL_arg1255z00_2415); 
BgL_class2z00_873 = 
VECTOR_REF(BGl_za2classesza2z00zz__objectz00,BgL_auxz00_4565); } } 
if(
(BgL_class1z00_872==BgL_class2z00_873))
{ /* ./Llib/object.scm 1092 */
{ /* ./Llib/object.scm 1095 */
obj_t BgL_fieldsz00_875;
BgL_fieldsz00_875 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_class1z00_872); 
{ /* ./Llib/object.scm 1096 */
bool_t BgL_test1892z00_876;
{ /* ./Llib/object.scm 1096 */
bool_t BgL__ortest_1020z00_2423;
BgL__ortest_1020z00_2423 = 
PAIRP(BgL_fieldsz00_875); 
if(BgL__ortest_1020z00_2423)
{ /* ./Llib/object.scm 1096 */
BgL_test1892z00_876 = BgL__ortest_1020z00_2423; }  else 
{ /* ./Llib/object.scm 1096 */
BgL_test1892z00_876 = 
NULLP(BgL_fieldsz00_875); } } 
if(BgL_test1892z00_876)
{ 
obj_t BgL_fieldsz00_877;obj_t BgL_classz00_878;
BgL_fieldsz00_877 = BgL_fieldsz00_875; 
BgL_classz00_878 = BgL_class1z00_872; 
BgL_loopz00_879:
if(
NULLP(BgL_fieldsz00_877))
{ /* ./Llib/object.scm 1101 */
{ /* ./Llib/object.scm 1102 */
obj_t BgL_superz00_881;
{ 
int BgL_auxz00_4577;
BgL_auxz00_4577 = 
(int)(((long)3)); 
BgL_superz00_881 = 
VECTOR_REF(BgL_classz00_878,BgL_auxz00_4577); } 
if(
BGl_classzf3zf3zz__objectz00(BgL_superz00_881))
{ /* ./Llib/object.scm 1105 */
obj_t BgL_fieldsz00_883;
BgL_fieldsz00_883 = 
BGl_classzd2fieldszd2zz__objectz00(BgL_superz00_881); 
{ /* ./Llib/object.scm 1106 */
bool_t BgL_test1896z00_884;
{ /* ./Llib/object.scm 1106 */
bool_t BgL__ortest_1020z00_2432;
BgL__ortest_1020z00_2432 = 
PAIRP(BgL_fieldsz00_883); 
if(BgL__ortest_1020z00_2432)
{ /* ./Llib/object.scm 1106 */
BgL_test1896z00_884 = BgL__ortest_1020z00_2432; }  else 
{ /* ./Llib/object.scm 1106 */
BgL_test1896z00_884 = 
NULLP(BgL_fieldsz00_883); } } 
if(BgL_test1896z00_884)
{ 
obj_t BgL_classz00_4588;obj_t BgL_fieldsz00_4587;
BgL_fieldsz00_4587 = BgL_fieldsz00_883; 
BgL_classz00_4588 = BgL_superz00_881; 
BgL_classz00_878 = BgL_classz00_4588; 
BgL_fieldsz00_877 = BgL_fieldsz00_4587; 
goto BgL_loopz00_879;}  else 
{ /* ./Llib/object.scm 1106 */
return ((bool_t)0);} } }  else 
{ /* ./Llib/object.scm 1103 */
return ((bool_t)1);} } }  else 
{ /* ./Llib/object.scm 1111 */
bool_t BgL_testz00_4589;
BgL_fieldz00_888 = 
CAR(BgL_fieldsz00_877); 
{ /* ./Llib/object.scm 1072 */
obj_t BgL_getzd2valuezd2_890;
{ /* ./Llib/object.scm 1072 */
obj_t BgL_res2644z00_2445;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_888))
{ 
int BgL_auxz00_4592;
BgL_auxz00_4592 = 
(int)(((long)1)); 
BgL_res2644z00_2445 = 
VECTOR_REF(BgL_fieldz00_888,BgL_auxz00_4592); }  else 
{ /* ./Llib/object.scm 1072 */
FAILURE(BGl_string3301z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_888);} 
BgL_getzd2valuezd2_890 = BgL_res2644z00_2445; } 
{ /* ./Llib/object.scm 1073 */
bool_t BgL_test1918z00_891;
{ /* ./Llib/object.scm 1073 */
bool_t BgL_res2645z00_2455;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_888))
{ /* ./Llib/object.scm 1073 */
obj_t BgL_auxz00_4598;
{ 
int BgL_auxz00_4599;
BgL_auxz00_4599 = 
(int)(((long)3)); 
BgL_auxz00_4598 = 
VECTOR_REF(BgL_fieldz00_888,BgL_auxz00_4599); } 
BgL_res2645z00_2455 = 
PROCEDUREP(BgL_auxz00_4598); }  else 
{ /* ./Llib/object.scm 1073 */
FAILURE(BGl_string3299z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_888);} 
BgL_test1918z00_891 = BgL_res2645z00_2455; } 
if(BgL_test1918z00_891)
{ /* ./Llib/object.scm 1077 */
obj_t BgL_getzd2lenzd2_892;
{ /* ./Llib/object.scm 1077 */
obj_t BgL_res2646z00_2463;
if(
BGl_classzd2fieldzf3z21zz__objectz00(BgL_fieldz00_888))
{ 
int BgL_auxz00_4607;
BgL_auxz00_4607 = 
(int)(((long)3)); 
BgL_res2646z00_2463 = 
VECTOR_REF(BgL_fieldz00_888,BgL_auxz00_4607); }  else 
{ /* ./Llib/object.scm 1077 */
FAILURE(BGl_string3304z00zz__objectz00,BGl_string3298z00zz__objectz00,BgL_fieldz00_888);} 
BgL_getzd2lenzd2_892 = BgL_res2646z00_2463; } 
{ /* ./Llib/object.scm 1077 */
obj_t BgL_len1z00_893;
BgL_len1z00_893 = 
PROCEDURE_ENTRY(BgL_getzd2lenzd2_892)(BgL_getzd2lenzd2_892, 
(obj_t)(BgL_obj1z00_143), BEOA); 
{ /* ./Llib/object.scm 1078 */
obj_t BgL_len2z00_894;
BgL_len2z00_894 = 
PROCEDURE_ENTRY(BgL_getzd2lenzd2_892)(BgL_getzd2lenzd2_892, 
(obj_t)(BgL_obj2z00_144), BEOA); 
{ /* ./Llib/object.scm 1079 */

{ /* ./Llib/object.scm 1080 */
bool_t BgL_testz00_4617;
{ /* ./Llib/object.scm 1080 */
long BgL_auxz00_4620;long BgL_auxz00_4618;
BgL_auxz00_4620 = 
(long)CINT(BgL_len2z00_894); 
BgL_auxz00_4618 = 
(long)CINT(BgL_len1z00_893); 
BgL_testz00_4617 = 
(BgL_auxz00_4618==BgL_auxz00_4620); } 
if(BgL_testz00_4617)
{ 
long BgL_iz00_896;
BgL_iz00_896 = ((long)0); 
BgL_loopz00_897:
{ /* ./Llib/object.scm 1083 */
bool_t BgL_testz00_4623;
{ /* ./Llib/object.scm 1083 */
long BgL_auxz00_4624;
BgL_auxz00_4624 = 
(long)CINT(BgL_len1z00_893); 
BgL_testz00_4623 = 
(BgL_iz00_896==BgL_auxz00_4624); } 
if(BgL_testz00_4623)
{ /* ./Llib/object.scm 1083 */
BgL_testz00_4589 = ((bool_t)1); }  else 
{ /* ./Llib/object.scm 1085 */
bool_t BgL_test1922z00_899;
{ /* ./Llib/object.scm 1085 */
obj_t BgL_arg1928z00_901;obj_t BgL_arg1930z00_902;
BgL_arg1928z00_901 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_890)(BgL_getzd2valuezd2_890, 
(obj_t)(BgL_obj1z00_143), 
BINT(BgL_iz00_896), BEOA); 
BgL_arg1930z00_902 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_890)(BgL_getzd2valuezd2_890, 
(obj_t)(BgL_obj2z00_144), 
BINT(BgL_iz00_896), BEOA); 
BgL_test1922z00_899 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1928z00_901, BgL_arg1930z00_902); } 
if(BgL_test1922z00_899)
{ /* ./Llib/object.scm 1085 */
{ 
long BgL_iz00_4637;
BgL_iz00_4637 = 
(BgL_iz00_896+((long)1)); 
BgL_iz00_896 = BgL_iz00_4637; 
goto BgL_loopz00_897;} }  else 
{ /* ./Llib/object.scm 1085 */
BgL_testz00_4589 = ((bool_t)0); } } } }  else 
{ /* ./Llib/object.scm 1080 */
BgL_testz00_4589 = ((bool_t)0)
; } } } } } }  else 
{ /* ./Llib/object.scm 1075 */
obj_t BgL_arg1941z00_903;obj_t BgL_arg1943z00_904;
BgL_arg1941z00_903 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_890)(BgL_getzd2valuezd2_890, 
(obj_t)(BgL_obj1z00_143), BEOA); 
BgL_arg1943z00_904 = 
PROCEDURE_ENTRY(BgL_getzd2valuezd2_890)(BgL_getzd2valuezd2_890, 
(obj_t)(BgL_obj2z00_144), BEOA); 
BgL_testz00_4589 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1941z00_903, BgL_arg1943z00_904); } } } 
if(BgL_testz00_4589)
{ /* ./Llib/object.scm 1111 */
{ 
obj_t BgL_fieldsz00_4647;
BgL_fieldsz00_4647 = 
CDR(BgL_fieldsz00_877); 
BgL_fieldsz00_877 = BgL_fieldsz00_4647; 
goto BgL_loopz00_879;} }  else 
{ /* ./Llib/object.scm 1111 */
return ((bool_t)0);} } }  else 
{ /* ./Llib/object.scm 1096 */
return ((bool_t)0);} } } }  else 
{ /* ./Llib/object.scm 1092 */
return ((bool_t)0);} } } } 
}



/* _object-equal?-default1040 */
obj_t BGl__objectzd2equalzf3zd2default1040zf3zz__objectz00(obj_t BgL_envz00_2669, obj_t BgL_obj1z00_2670, obj_t BgL_obj2z00_2671)
{ AN_OBJECT;
{ /* ./Llib/object.scm 17 */
{ /* ./Llib/object.scm 1088 */
bool_t BgL_auxz00_4649;
BgL_auxz00_4649 = 
BGl_objectzd2equalzf3zd2default1040zf3zz__objectz00(
(BgL_objectz00_bglt)(BgL_obj1z00_2670), 
(BgL_objectz00_bglt)(BgL_obj2z00_2671)); 
return 
BBOOL(BgL_auxz00_4649);} } 
}

