/*===========================================================================*/
/*   (Jas/as.scm)                                                            */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -q -afile .afile -fsharing -fno-reflection -cc gcc-2.95 -lib-dir /users/serrano/prgm/project/bigloo/lib/2.6b -unsafev -no-hello -O2 -rm -unsafe -s -indent Jas/as.scm)*/
/* GC selection */
#define THE_GC BOEHM_GC

#include <bigloo.h>


/* Object type definitions */
typedef struct BgL_typez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_codez00;
   obj_t BgL_vectz00;
} *BgL_typez00_bglt;

typedef struct BgL_basicz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_codez00;
   obj_t BgL_vectz00;
} *BgL_basicz00_bglt;

typedef struct BgL_vectz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_codez00;
   obj_t BgL_vectz00;
   struct BgL_typez00_bgl * BgL_typez00;
} *BgL_vectz00_bglt;

typedef struct BgL_funz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_codez00;
   obj_t BgL_vectz00;
   struct BgL_typez00_bgl * BgL_tretz00;
   obj_t BgL_targsz00;
} *BgL_funz00_bglt;

typedef struct BgL_classez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_codez00;
   obj_t BgL_vectz00;
   obj_t BgL_flagsz00;
   obj_t BgL_namez00;
   obj_t BgL_poolz00;
} *BgL_classez00_bglt;

typedef struct BgL_fieldzd2orzd2methodz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_flagsz00;
   obj_t BgL_namez00;
   obj_t BgL_ownerz00;
   obj_t BgL_usertypez00;
   obj_t BgL_typez00;
   obj_t BgL_pnamez00;
   obj_t BgL_descriptorz00;
   obj_t BgL_poolz00;
   obj_t BgL_attributesz00;
} *BgL_fieldzd2orzd2methodz00_bglt;

typedef struct BgL_fieldz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_flagsz00;
   obj_t BgL_namez00;
   obj_t BgL_ownerz00;
   obj_t BgL_usertypez00;
   obj_t BgL_typez00;
   obj_t BgL_pnamez00;
   obj_t BgL_descriptorz00;
   obj_t BgL_poolz00;
   obj_t BgL_attributesz00;
} *BgL_fieldz00_bglt;

typedef struct BgL_methodz00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_flagsz00;
   obj_t BgL_namez00;
   obj_t BgL_ownerz00;
   obj_t BgL_usertypez00;
   obj_t BgL_typez00;
   obj_t BgL_pnamez00;
   obj_t BgL_descriptorz00;
   obj_t BgL_poolz00;
   obj_t BgL_attributesz00;
} *BgL_methodz00_bglt;

typedef struct BgL_attributez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_typez00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_infoz00;
} *BgL_attributez00_bglt;

typedef struct BgL_classfilez00_bgl {
   header_t header;
   obj_t widening;
   obj_t BgL_currentzd2methodzd2;
   obj_t BgL_globalsz00;
   obj_t BgL_poolz00;
   obj_t BgL_poolzd2siza7ez75;
   obj_t BgL_flagsz00;
   obj_t BgL_mez00;
   obj_t BgL_superz00;
   obj_t BgL_interfacesz00;
   obj_t BgL_fieldsz00;
   obj_t BgL_methodsz00;
   obj_t BgL_attributesz00;
} *BgL_classfilez00_bglt;


BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzjas_asz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjas_libz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjas_classfilez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjas_producez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjas_opcodez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjas_peepz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjas_widez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjas_labelsz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzjas_stackz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__objectz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_IMPORT obj_t make_string(int, unsigned char);
extern int BGl_poolzd2classzd2byzd2namezd2zzjas_classfilez00(BgL_classfilez00_bglt, obj_t);
static obj_t BGl_methodzd2initzd2zzjas_asz00();
extern BgL_fieldz00_bglt BGl_declaredzd2fieldzd2zzjas_classfilez00(BgL_classfilez00_bglt, obj_t);
BGL_IMPORT bool_t bigloo_strncmp(obj_t, obj_t, int);
BGL_IMPORT long bgl_list_length(obj_t);
static obj_t BGl_aszd2declarezd2zzjas_asz00(BgL_classfilez00_bglt, obj_t);
extern int BGl_poolzd2namezd2zzjas_classfilez00(BgL_classfilez00_bglt, obj_t);
static BgL_attributez00_bglt BGl_makezd2localvarszd2zzjas_asz00(BgL_classfilez00_bglt, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
BGL_IMPORT obj_t string_to_symbol(char *);
extern obj_t BGl_jaszd2errorzd2zzjas_classfilez00(BgL_classfilez00_bglt, obj_t, obj_t);
extern obj_t BGl_fieldzd2orzd2methodz00zzjas_classfilez00;
static obj_t BGl_aszd2methodzd2zzjas_asz00(BgL_classfilez00_bglt, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
BGL_IMPORT obj_t open_output_binary_file(obj_t);
BGL_IMPORT bool_t BGl_iszd2azf3z21zz__objectz00(obj_t, obj_t);
BGL_IMPORT obj_t string_append(obj_t, obj_t);
extern obj_t BGl_aszd2assignzd2zzjas_classfilez00(BgL_classfilez00_bglt, obj_t, obj_t);
extern BgL_attributez00_bglt BGl_makezd2attributezd2zzjas_classfilez00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_linezd2compresszd2zzjas_asz00(obj_t, obj_t);
extern BgL_typez00_bglt BGl_aszd2typezd2zzjas_classfilez00(BgL_classfilez00_bglt, obj_t);
static BgL_attributez00_bglt BGl_aszd2codezd2zzjas_asz00(BgL_classfilez00_bglt, obj_t, obj_t, obj_t);
static obj_t BGl_getzd2lineszd2zzjas_asz00(obj_t, long);
extern obj_t BGl_stringzd2ze3utf8z31zzjas_libz00(obj_t);
extern BgL_classfilez00_bglt BGl_makezd2classfilezd2zzjas_classfilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_filterz00zz__r4_control_features_6_9z00(obj_t, obj_t);
static obj_t BGl_za2za2sdefullfileza2za2z00zzjas_asz00 = BUNSPEC;
BGL_IMPORT bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_jvmzd2aszd2zzjas_asz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_jvmzd2asfilezd2zzjas_asz00(obj_t, obj_t);
static BgL_attributez00_bglt BGl_makezd2linezd2attributez00zzjas_asz00(BgL_classfilez00_bglt, obj_t);
static obj_t BGl_getzd2procedurezd2codez00zzjas_asz00(BgL_classfilez00_bglt, obj_t, obj_t);
BGL_IMPORT obj_t BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(long, obj_t);
static obj_t BGl_reorderzd2classfilezd2zzjas_asz00(BgL_classfilez00_bglt, obj_t);
extern BgL_classez00_bglt BGl_declaredzd2classzd2zzjas_classfilez00(BgL_classfilez00_bglt, obj_t);
static bool_t BGl_setzd2fieldzd2methodzd2typezd2zzjas_asz00(BgL_classfilez00_bglt);
static obj_t BGl_za2za2sdefileza2za2z00zzjas_asz00 = BUNSPEC;
extern obj_t BGl_peepz00zzjas_peepz00;
extern obj_t BGl_resolvezd2labelszd2zzjas_labelsz00;
static obj_t BGl_scanzd2infoszd2zzjas_asz00(BgL_classfilez00_bglt, obj_t);
static obj_t BGl_getzd2bytecodezd2zzjas_asz00(obj_t);
BGL_IMPORT obj_t BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(obj_t, obj_t);
BGL_EXPORTED_DEF obj_t BGl_za2jaszd2warningza2zd2zzjas_asz00 = BUNSPEC;
extern obj_t BGl_producez00zzjas_producez00(obj_t, obj_t);
extern obj_t BGl_resolvezd2opcodeszd2zzjas_opcodez00;
static obj_t BGl_cnstzd2initzd2zzjas_asz00();
extern int BGl_poolzd2fieldzd2zzjas_classfilez00(BgL_classfilez00_bglt, BgL_fieldz00_bglt);
static obj_t BGl_getzd2handlerszd2zzjas_asz00(obj_t);
static obj_t BGl_smapfilez00zzjas_asz00();
BGL_IMPORT obj_t c_substring(obj_t, int, int);
extern BgL_methodz00_bglt BGl_declaredzd2methodzd2zzjas_classfilez00(BgL_classfilez00_bglt, obj_t);
static obj_t BGl_pathnamez00zzjas_asz00(obj_t);
BGL_IMPORT obj_t bgl_append2(obj_t, obj_t);
static long BGl_aszd2fieldzd2modifiersz00zzjas_asz00(obj_t);
static obj_t BGl_za2za2maxlineza2za2z00zzjas_asz00 = BUNSPEC;
BGL_IMPORT obj_t BGl_stringzd2appendzd2zz__r4_strings_6_7z00(obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzjas_asz00();
BGL_IMPORT obj_t BGl_warningz00zz__errorz00(obj_t);
extern obj_t BGl_poolzd2localzd2methodz00zzjas_classfilez00(BgL_classfilez00_bglt, BgL_methodz00_bglt);
extern obj_t BGl_resolvezd2widezd2zzjas_widez00;
static obj_t BGl_requirezd2initializa7ationz75zzjas_asz00 = BUNSPEC;
extern BgL_fieldz00_bglt BGl_makezd2fieldzd2zzjas_classfilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_za2za2lastzd2numberzd2ofzd2localsza2za2zd2zzjas_peepz00;
static BgL_attributez00_bglt BGl_srcfilez00zzjas_asz00(BgL_classfilez00_bglt, obj_t);
extern obj_t BGl_stkzd2analysiszd2zzjas_stackz00(obj_t, obj_t);
extern BgL_methodz00_bglt BGl_makezd2methodzd2zzjas_classfilez00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static long BGl_aszd2classzd2modifiersz00zzjas_asz00(obj_t);
static obj_t BGl__jvmzd2as2804zd2zzjas_asz00(obj_t, obj_t, obj_t);
BGL_IMPORT bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzjas_asz00();
static BgL_attributez00_bglt BGl_smapz00zzjas_asz00(BgL_classfilez00_bglt);
BGL_IMPORT obj_t close_binary_port(obj_t);
static obj_t BGl_getzd2localvarszd2zzjas_asz00(obj_t);
static obj_t BGl_asz00zzjas_asz00(obj_t);
static obj_t BGl__jvmzd2asfilezd2zzjas_asz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzjas_asz00();
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
extern int BGl_poolzd2classzd2zzjas_classfilez00(BgL_classfilez00_bglt, BgL_classez00_bglt);
static obj_t BGl_zc3anonymousza31493ze3z83zzjas_asz00(obj_t, obj_t);
static long BGl_aszd2methodzd2modifiersz00zzjas_asz00(obj_t);
extern BgL_classez00_bglt BGl_makezd2classezd2zzjas_classfilez00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t __cnst[ 27 ] ;


DEFINE_STRING( BGl_string2980z00zzjas_asz00, BgL_bgl_string2980za700za7za7jas_asza7003013z00, "localvariable linenumber code native synchronized transient volatile static protected private abstract interface super final public field class function bytevector srcfile sde sourcefile fields declare as method invokestatic ", 225 );
DEFINE_STRING( BGl_string2979z00zzjas_asz00, BgL_bgl_string2979za700za7za7jas_asza7003014z00, "LocalVariableTable", 18 );
DEFINE_STRING( BGl_string2978z00zzjas_asz00, BgL_bgl_string2978za700za7za7jas_asza7003015z00, "LineNumberTable", 15 );
DEFINE_STRING( BGl_string2977z00zzjas_asz00, BgL_bgl_string2977za700za7za7jas_asza7003016z00, "Code", 4 );
DEFINE_STRING( BGl_string2976z00zzjas_asz00, BgL_bgl_string2976za700za7za7jas_asza7003017z00, "Method too large. This may cause some troubles to Jvm jits (current size: ", 74 );
DEFINE_STRING( BGl_string2975z00zzjas_asz00, BgL_bgl_string2975za700za7za7jas_asza7003018z00, ", limit size: 8000).\n", 21 );
DEFINE_STRING( BGl_string2974z00zzjas_asz00, BgL_bgl_string2974za700za7za7jas_asza7003019z00, "You should consider splitting this function in small pieces.", 60 );
DEFINE_STRING( BGl_string2973z00zzjas_asz00, BgL_bgl_string2973za700za7za7jas_asza7003020z00, "bad method definition", 21 );
DEFINE_STRING( BGl_string2972z00zzjas_asz00, BgL_bgl_string2972za700za7za7jas_asza7003021z00, "bad field modifier", 18 );
DEFINE_STRING( BGl_string2971z00zzjas_asz00, BgL_bgl_string2971za700za7za7jas_asza7003022z00, "bad method modifier", 19 );
DEFINE_STRING( BGl_string2970z00zzjas_asz00, BgL_bgl_string2970za700za7za7jas_asza7003023z00, "as", 2 );
DEFINE_STRING( BGl_string2969z00zzjas_asz00, BgL_bgl_string2969za700za7za7jas_asza7003024z00, "bad declaration", 15 );
DEFINE_STRING( BGl_string2968z00zzjas_asz00, BgL_bgl_string2968za700za7za7jas_asza7003025z00, ";", 1 );
DEFINE_STRING( BGl_string2967z00zzjas_asz00, BgL_bgl_string2967za700za7za7jas_asza7003026z00, "L", 1 );
DEFINE_STRING( BGl_string2966z00zzjas_asz00, BgL_bgl_string2966za700za7za7jas_asza7003027z00, "SMAP\n", 5 );
DEFINE_STRING( BGl_string2965z00zzjas_asz00, BgL_bgl_string2965za700za7za7jas_asza7003028z00, "\nBigloo\n*S Bigloo\n*F\n+ 1 ", 25 );
DEFINE_STRING( BGl_string2964z00zzjas_asz00, BgL_bgl_string2964za700za7za7jas_asza7003029z00, "\n", 1 );
DEFINE_STRING( BGl_string2963z00zzjas_asz00, BgL_bgl_string2963za700za7za7jas_asza7003030z00, "\n*L\n", 4 );
DEFINE_STRING( BGl_string2962z00zzjas_asz00, BgL_bgl_string2962za700za7za7jas_asza7003031z00, "1#1,", 4 );
DEFINE_STRING( BGl_string2961z00zzjas_asz00, BgL_bgl_string2961za700za7za7jas_asza7003032z00, ":1\n", 3 );
DEFINE_STRING( BGl_string2960z00zzjas_asz00, BgL_bgl_string2960za700za7za7jas_asza7003033z00, "*E\n", 3 );
DEFINE_STRING( BGl_string2959z00zzjas_asz00, BgL_bgl_string2959za700za7za7jas_asza7003034z00, "SourceDebugExtension", 20 );
DEFINE_STRING( BGl_string2958z00zzjas_asz00, BgL_bgl_string2958za700za7za7jas_asza7003035z00, "SourceFile", 10 );
DEFINE_STRING( BGl_string2957z00zzjas_asz00, BgL_bgl_string2957za700za7za7jas_asza7003036z00, "bad module definition", 21 );
DEFINE_STRING( BGl_string2956z00zzjas_asz00, BgL_bgl_string2956za700za7za7jas_asza7003037z00, "jas", 3 );
DEFINE_STRING( BGl_string2955z00zzjas_asz00, BgL_bgl_string2955za700za7za7jas_asza7003038z00, "apply", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_jvmzd2aszd2envz00zzjas_asz00, BgL_bgl__jvmza7d2as2804za7d2za7za7jas_asza7003039za7, BGl__jvmzd2as2804zd2zzjas_asz00, 0L, 2 );
DEFINE_STRING( BGl_string2954z00zzjas_asz00, BgL_bgl_string2954za700za7za7jas_asza7003040z00, "BgL__", 5 );
DEFINE_STRING( BGl_string2953z00zzjas_asz00, BgL_bgl_string2953za700za7za7jas_asza7003041z00, "_", 1 );
DEFINE_STRING( BGl_string2952z00zzjas_asz00, BgL_bgl_string2952za700za7za7jas_asza7003042z00, "Can't open file for output", 26 );
DEFINE_STRING( BGl_string2951z00zzjas_asz00, BgL_bgl_string2951za700za7za7jas_asza7003043z00, "Jas", 3 );
BGL_IMPORT obj_t BGl_readzd2envzd2zz__readerz00;
DEFINE_EXPORT_PROCEDURE( BGl_jvmzd2asfilezd2envz00zzjas_asz00, BgL_bgl__jvmza7d2asfileza7d2za7za7jas_asza7003044za7, BGl__jvmzd2asfilezd2zzjas_asz00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzjas_asz00(long BgL_checksumz00_1494, char * BgL_fromz00_1495)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzjas_asz00))
{ 
BGl_requirezd2initializa7ationz75zzjas_asz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzjas_asz00(); 
BGl_cnstzd2initzd2zzjas_asz00(); 
BGl_importedzd2moduleszd2initz00zzjas_asz00(); 
BGl_toplevelzd2initzd2zzjas_asz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzjas_asz00()
{ AN_OBJECT;
{ /* ./Jas/as.scm 1 */
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "jas_as"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "jas_as"); 
BGl_modulezd2initializa7ationz75zz__objectz00(((long)0), "jas_as"); 
BGl_modulezd2initializa7ationz75zz__r4_control_features_6_9z00(((long)0), "jas_as"); 
BGl_modulezd2initializa7ationz75zz__r4_equivalence_6_2z00(((long)0), "jas_as"); 
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5_fixnumz00(((long)0), "jas_as"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)0), "jas_as"); 
BGl_modulezd2initializa7ationz75zz__r4_strings_6_7z00(((long)0), "jas_as"); 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)0), "jas_as"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzjas_asz00()
{ AN_OBJECT;
{ /* ./Jas/as.scm 1 */
{ /* ./Jas/as.scm 1 */
obj_t BgL_cportz00_1461;
BgL_cportz00_1461 = 
open_input_string(BGl_string2980z00zzjas_asz00); 
{ 
long BgL_iz00_1462;
BgL_iz00_1462 = ((long)26); 
BgL_loopz00_1463:
{ /* ./Jas/as.scm 1 */
bool_t BgL_test2982z00_1464;
BgL_test2982z00_1464 = 
(BgL_iz00_1462==((long)-1)); 
if(BgL_test2982z00_1464)
{ /* ./Jas/as.scm 1 */
return BUNSPEC;}  else 
{ /* ./Jas/as.scm 1 */
{ /* ./Jas/as.scm 1 */
obj_t BgL_arg2984z00_1465;
{ /* ./Jas/as.scm 1 */
obj_t BgL_list2987z00_1466;
BgL_list2987z00_1466 = 
MAKE_PAIR(BgL_cportz00_1461, BNIL); 
BgL_arg2984z00_1465 = 
BGl_readz00zz__readerz00(BgL_list2987z00_1466); } 
{ /* ./Jas/as.scm 1 */
int BgL_auxz00_1517;
BgL_auxz00_1517 = 
(int)(BgL_iz00_1462); 
CNST_TABLE_SET(BgL_auxz00_1517, BgL_arg2984z00_1465); } } 
{ /* ./Jas/as.scm 1 */
int BgL_auxz00_1467;
{ /* ./Jas/as.scm 1 */
long BgL_auxz00_1520;
BgL_auxz00_1520 = 
(BgL_iz00_1462-((long)1)); 
BgL_auxz00_1467 = 
(int)(BgL_auxz00_1520); } 
{ 
long BgL_iz00_1523;
BgL_iz00_1523 = 
(long)(BgL_auxz00_1467); 
BgL_iz00_1462 = BgL_iz00_1523; 
goto BgL_loopz00_1463;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzjas_asz00()
{ AN_OBJECT;
{ /* ./Jas/as.scm 1 */
BGl_za2jaszd2warningza2zd2zzjas_asz00 = BFALSE; 
BGl_za2za2sdefileza2za2z00zzjas_asz00 = BFALSE; 
BGl_za2za2sdefullfileza2za2z00zzjas_asz00 = BFALSE; 
return ( 
BGl_za2za2maxlineza2za2z00zzjas_asz00 = 
BINT(((long)0)), BUNSPEC) ;} 
}



/* jvm-asfile */
BGL_EXPORTED_DEF obj_t BGl_jvmzd2asfilezd2zzjas_asz00(obj_t BgL_fileinz00_1, obj_t BgL_fileoutz00_2)
{ AN_OBJECT;
{ /* ./Jas/as.scm 24 */
{ /* ./Jas/as.scm 25 */
obj_t BgL_portz00_213;
BgL_portz00_213 = 
open_output_binary_file(BgL_fileoutz00_2); 
{ /* ./Jas/as.scm 26 */
bool_t BgL_test1447z00_214;
BgL_test1447z00_214 = 
BINARY_PORTP(BgL_portz00_213); 
if(BgL_test1447z00_214)
{ /* ./Jas/as.scm 26 */((bool_t)0); }  else 
{ /* ./Jas/as.scm 26 */
FAILURE(BGl_string2951z00zzjas_asz00,BGl_string2952z00zzjas_asz00,BgL_fileoutz00_2);} } 
{ /* ./Jas/as.scm 28 */
obj_t BgL_arg1451z00_215;
BgL_arg1451z00_215 = 
BGl_callzd2withzd2inputzd2filezd2zz__r4_ports_6_10_1z00(BgL_fileinz00_1, BGl_readzd2envzd2zz__readerz00); 
{ /* ./Jas/as.scm 28 */
obj_t BgL_classfilez00_917;
BgL_classfilez00_917 = 
BGl_asz00zzjas_asz00(BgL_arg1451z00_215); 
BGl_reorderzd2classfilezd2zzjas_asz00(
(BgL_classfilez00_bglt)(BgL_classfilez00_917), BgL_arg1451z00_215); 
BGl_producez00zzjas_producez00(BgL_portz00_213, BgL_classfilez00_917); } } 
return 
close_binary_port(BgL_portz00_213);} } 
}



/* _jvm-asfile */
obj_t BGl__jvmzd2asfilezd2zzjas_asz00(obj_t BgL_envz00_1448, obj_t BgL_fileinz00_1449, obj_t BgL_fileoutz00_1450)
{ AN_OBJECT;
{ /* ./Jas/as.scm 24 */
return 
BGl_jvmzd2asfilezd2zzjas_asz00(BgL_fileinz00_1449, BgL_fileoutz00_1450);} 
}



/* jvm-as */
BGL_EXPORTED_DEF obj_t BGl_jvmzd2aszd2zzjas_asz00(obj_t BgL_lz00_3, obj_t BgL_outchanz00_4)
{ AN_OBJECT;
{ /* ./Jas/as.scm 31 */
{ /* ./Jas/as.scm 32 */
obj_t BgL_classfilez00_919;
BgL_classfilez00_919 = 
BGl_asz00zzjas_asz00(BgL_lz00_3); 
BGl_reorderzd2classfilezd2zzjas_asz00(
(BgL_classfilez00_bglt)(BgL_classfilez00_919), BgL_lz00_3); 
return 
BGl_producez00zzjas_producez00(BgL_outchanz00_4, BgL_classfilez00_919);} } 
}



/* _jvm-as2804 */
obj_t BGl__jvmzd2as2804zd2zzjas_asz00(obj_t BgL_envz00_1453, obj_t BgL_lz00_1454, obj_t BgL_outchanz00_1455)
{ AN_OBJECT;
{ /* ./Jas/as.scm 31 */
return 
BGl_jvmzd2aszd2zzjas_asz00(BgL_lz00_1454, BgL_outchanz00_1455);} 
}



/* reorder-classfile */
obj_t BGl_reorderzd2classfilezd2zzjas_asz00(BgL_classfilez00_bglt BgL_classez00_5, obj_t BgL_lz00_6)
{ AN_OBJECT;
{ /* ./Jas/as.scm 42 */
{ /* ./Jas/as.scm 90 */
obj_t BgL_defsz00_220;
BgL_defsz00_220 = BUNSPEC; 
{ 
obj_t BgL_namez00_230;obj_t BgL_codez00_264;obj_t BgL_accz00_265;
{ /* ./Jas/as.scm 43 */
obj_t BgL_auxz00_1542;
{ /* ./Jas/as.scm 43 */
obj_t BgL_auxz00_1543;
{ /* ./Jas/as.scm 43 */
obj_t BgL_auxz00_1544;
{ /* ./Jas/as.scm 43 */
obj_t BgL_auxz00_1545;
BgL_auxz00_1545 = 
CDR(BgL_lz00_6); 
BgL_auxz00_1544 = 
CDR(BgL_auxz00_1545); } 
BgL_auxz00_1543 = 
CDR(BgL_auxz00_1544); } 
BgL_auxz00_1542 = 
CDR(BgL_auxz00_1543); } 
BgL_defsz00_220 = 
CDR(BgL_auxz00_1542); } 
{ /* ./Jas/as.scm 92 */
obj_t BgL_codez00_221;
BgL_codez00_221 = 
BGl_getzd2procedurezd2codez00zzjas_asz00(BgL_classez00_5, BgL_defsz00_220, BGl_string2955z00zzjas_asz00); 
if(
CBOOL(BgL_codez00_221))
{ /* ./Jas/as.scm 94 */
obj_t BgL_closuresz00_222;obj_t BgL_methodsz00_223;
BgL_codez00_264 = BgL_codez00_221; 
BgL_accz00_265 = BNIL; 
BgL_zc3anonymousza31549ze3z83_266:
{ /* ./Jas/as.scm 57 */
bool_t BgL_test1550z00_267;
BgL_test1550z00_267 = 
NULLP(BgL_codez00_264); 
if(BgL_test1550z00_267)
{ /* ./Jas/as.scm 57 */
BgL_closuresz00_222 = BgL_accz00_265; }  else 
{ /* ./Jas/as.scm 58 */
bool_t BgL_test1551z00_268;
{ /* ./Jas/as.scm 58 */
bool_t BgL_testz00_1556;
{ /* ./Jas/as.scm 58 */
obj_t BgL_auxz00_1557;
BgL_auxz00_1557 = 
CAR(BgL_codez00_264); 
BgL_testz00_1556 = 
PAIRP(BgL_auxz00_1557); } 
if(BgL_testz00_1556)
{ /* ./Jas/as.scm 58 */
obj_t BgL_auxz00_1564;obj_t BgL_auxz00_1560;
BgL_auxz00_1564 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Jas/as.scm 58 */
obj_t BgL_auxz00_1561;
BgL_auxz00_1561 = 
CAR(BgL_codez00_264); 
BgL_auxz00_1560 = 
CAR(BgL_auxz00_1561); } 
BgL_test1551z00_268 = 
(BgL_auxz00_1560==BgL_auxz00_1564); }  else 
{ /* ./Jas/as.scm 58 */
BgL_test1551z00_268 = ((bool_t)0); } } 
if(BgL_test1551z00_268)
{ /* ./Jas/as.scm 58 */
{ /* ./Jas/as.scm 59 */
obj_t BgL_arg1554z00_269;obj_t BgL_arg1555z00_270;
BgL_arg1554z00_269 = 
CDR(BgL_codez00_264); 
{ /* ./Jas/as.scm 60 */
BgL_methodz00_bglt BgL_arg1559z00_271;
{ /* ./Jas/as.scm 60 */
obj_t BgL_arg1562z00_272;
{ /* ./Jas/as.scm 60 */
obj_t BgL_auxz00_1569;
{ /* ./Jas/as.scm 60 */
obj_t BgL_auxz00_1570;
BgL_auxz00_1570 = 
CAR(BgL_codez00_264); 
BgL_auxz00_1569 = 
CDR(BgL_auxz00_1570); } 
BgL_arg1562z00_272 = 
CAR(BgL_auxz00_1569); } 
BgL_namez00_230 = BgL_arg1562z00_272; 
{ /* ./Jas/as.scm 66 */
BgL_methodz00_bglt BgL_mz00_232;
BgL_mz00_232 = 
BGl_declaredzd2methodzd2zzjas_classfilez00(BgL_classez00_5, BgL_namez00_230); 
{ /* ./Jas/as.scm 66 */
obj_t BgL_stubz00_233;
{ /* ./Jas/as.scm 67 */
BgL_fieldzd2orzd2methodz00_bglt BgL_obj1122z00_936;
BgL_obj1122z00_936 = 
(BgL_fieldzd2orzd2methodz00_bglt)(BgL_mz00_232); 
BgL_stubz00_233 = 
(((BgL_fieldzd2orzd2methodz00_bglt)CREF(BgL_obj1122z00_936))->BgL_namez00); } 
{ /* ./Jas/as.scm 67 */

{ /* ./Jas/as.scm 68 */
bool_t BgL_test1477z00_234;
{ /* ./Jas/as.scm 68 */
bool_t BgL_test1544z00_263;
{ /* ./Jas/as.scm 68 */
int BgL_lenz00_939;
BgL_lenz00_939 = 
(int)(((long)1)); 
BgL_test1544z00_263 = 
bigloo_strncmp(BgL_stubz00_233, BGl_string2953z00zzjas_asz00, BgL_lenz00_939); } 
if(BgL_test1544z00_263)
{ /* ./Jas/as.scm 68 */
BgL_test1477z00_234 = ((bool_t)1); }  else 
{ /* ./Jas/as.scm 69 */
int BgL_lenz00_942;
BgL_lenz00_942 = 
(int)(((long)5)); 
BgL_test1477z00_234 = 
bigloo_strncmp(BgL_stubz00_233, BGl_string2954z00zzjas_asz00, BgL_lenz00_942); } } 
if(BgL_test1477z00_234)
{ /* ./Jas/as.scm 71 */
obj_t BgL_ownerz00_235;
{ /* ./Jas/as.scm 71 */
obj_t BgL_arg1540z00_262;
{ /* ./Jas/as.scm 71 */
BgL_fieldzd2orzd2methodz00_bglt BgL_obj1125z00_943;
BgL_obj1125z00_943 = 
(BgL_fieldzd2orzd2methodz00_bglt)(BgL_mz00_232); 
BgL_arg1540z00_262 = 
(((BgL_fieldzd2orzd2methodz00_bglt)CREF(BgL_obj1125z00_943))->BgL_ownerz00); } 
BgL_ownerz00_235 = 
SYMBOL_TO_STRING(BgL_arg1540z00_262); } 
{ /* ./Jas/as.scm 71 */
obj_t BgL_name2z00_236;
BgL_name2z00_236 = 
SYMBOL_TO_STRING(BgL_namez00_230); 
{ /* ./Jas/as.scm 72 */
obj_t BgL_nameprocz00_237;
{ /* ./Jas/as.scm 74 */
obj_t BgL_arg1516z00_254;obj_t BgL_arg1518z00_255;
{ /* ./Jas/as.scm 74 */
int BgL_arg1524z00_257;
BgL_arg1524z00_257 = 
STRING_LENGTH(BgL_ownerz00_235); 
{ /* ./Jas/as.scm 74 */
int BgL_startz00_948;
BgL_startz00_948 = 
(int)(((long)0)); 
BgL_arg1516z00_254 = 
c_substring(BgL_name2z00_236, BgL_startz00_948, BgL_arg1524z00_257); } } 
{ /* ./Jas/as.scm 76 */
long BgL_arg1528z00_258;int BgL_arg1530z00_259;
{ /* ./Jas/as.scm 76 */
long BgL_auxz00_1590;
{ /* ./Jas/as.scm 76 */
int BgL_auxz00_1591;
BgL_auxz00_1591 = 
STRING_LENGTH(BgL_ownerz00_235); 
BgL_auxz00_1590 = 
(long)(BgL_auxz00_1591); } 
BgL_arg1528z00_258 = 
(((long)1)+BgL_auxz00_1590); } 
BgL_arg1530z00_259 = 
STRING_LENGTH(BgL_name2z00_236); 
{ /* ./Jas/as.scm 75 */
int BgL_startz00_955;
BgL_startz00_955 = 
(int)(BgL_arg1528z00_258); 
BgL_arg1518z00_255 = 
c_substring(BgL_name2z00_236, BgL_startz00_955, BgL_arg1530z00_259); } } 
BgL_nameprocz00_237 = 
string_append(BgL_arg1516z00_254, BgL_arg1518z00_255); } 
{ /* ./Jas/as.scm 73 */
obj_t BgL_proczd2inzd2codez00_238;
{ /* ./Jas/as.scm 79 */
obj_t BgL_arg1491z00_243;
{ /* ./Jas/as.scm 84 */
obj_t BgL_arg1511z00_252;
{ /* ./Jas/as.scm 84 */
BgL_fieldzd2orzd2methodz00_bglt BgL_obj1122z00_957;
BgL_obj1122z00_957 = 
(BgL_fieldzd2orzd2methodz00_bglt)(BgL_mz00_232); 
BgL_arg1511z00_252 = 
(((BgL_fieldzd2orzd2methodz00_bglt)CREF(BgL_obj1122z00_957))->BgL_namez00); } 
BgL_arg1491z00_243 = 
BGl_getzd2procedurezd2codez00zzjas_asz00(BgL_classez00_5, BgL_lz00_6, BgL_arg1511z00_252); } 
{ /* ./Jas/as.scm 80 */
obj_t BgL_zc3anonymousza31493ze3z83_1456;
{ 
int BgL_auxz00_1604;int BgL_auxz00_1602;
BgL_auxz00_1604 = 
(int)(((long)1)); 
BgL_auxz00_1602 = 
(int)(((long)1)); 
BgL_zc3anonymousza31493ze3z83_1456 = 
make_fx_procedure(BGl_zc3anonymousza31493ze3z83zzjas_asz00, BgL_auxz00_1602, BgL_auxz00_1604); } 
{ /* ./Jas/as.scm 80 */
int BgL_auxz00_1607;
BgL_auxz00_1607 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31493ze3z83_1456, BgL_auxz00_1607, BgL_nameprocz00_237); } 
BgL_proczd2inzd2codez00_238 = 
BGl_filterz00zz__r4_control_features_6_9z00(BgL_zc3anonymousza31493ze3z83_1456, BgL_arg1491z00_243); } } 
{ /* ./Jas/as.scm 78 */

{ /* ./Jas/as.scm 87 */
bool_t BgL_test1478z00_239;
BgL_test1478z00_239 = 
NULLP(BgL_proczd2inzd2codez00_238); 
if(BgL_test1478z00_239)
{ /* ./Jas/as.scm 87 */
BgL_arg1559z00_271 = 
BGl_declaredzd2methodzd2zzjas_classfilez00(BgL_classez00_5, BgL_namez00_230); }  else 
{ /* ./Jas/as.scm 88 */
obj_t BgL_arg1481z00_240;
{ /* ./Jas/as.scm 88 */
obj_t BgL_auxz00_1614;
{ /* ./Jas/as.scm 88 */
obj_t BgL_auxz00_1615;
BgL_auxz00_1615 = 
CAR(BgL_proczd2inzd2codez00_238); 
BgL_auxz00_1614 = 
CDR(BgL_auxz00_1615); } 
BgL_arg1481z00_240 = 
CAR(BgL_auxz00_1614); } 
BgL_arg1559z00_271 = 
BGl_declaredzd2methodzd2zzjas_classfilez00(BgL_classez00_5, BgL_arg1481z00_240); } } } } } } }  else 
{ /* ./Jas/as.scm 68 */
BgL_arg1559z00_271 = 
BGl_declaredzd2methodzd2zzjas_classfilez00(BgL_classez00_5, BgL_namez00_230); } } } } } } 
{ /* ./Jas/as.scm 60 */
obj_t BgL_auxz00_1621;
BgL_auxz00_1621 = 
(obj_t)(BgL_arg1559z00_271); 
BgL_arg1555z00_270 = 
MAKE_PAIR(BgL_auxz00_1621, BgL_accz00_265); } } 
{ 
obj_t BgL_accz00_1625;obj_t BgL_codez00_1624;
BgL_codez00_1624 = BgL_arg1554z00_269; 
BgL_accz00_1625 = BgL_arg1555z00_270; 
BgL_accz00_265 = BgL_accz00_1625; 
BgL_codez00_264 = BgL_codez00_1624; 
goto BgL_zc3anonymousza31549ze3z83_266;} } }  else 
{ /* ./Jas/as.scm 58 */
{ /* ./Jas/as.scm 61 */
obj_t BgL_arg1566z00_273;
BgL_arg1566z00_273 = 
CDR(BgL_codez00_264); 
{ 
obj_t BgL_codez00_1627;
BgL_codez00_1627 = BgL_arg1566z00_273; 
BgL_codez00_264 = BgL_codez00_1627; 
goto BgL_zc3anonymousza31549ze3z83_266;} } } } } 
BgL_methodsz00_223 = 
(((BgL_classfilez00_bglt)CREF(BgL_classez00_5))->BgL_methodsz00); 
{ 
obj_t BgL_l1394z00_224;
BgL_l1394z00_224 = BgL_closuresz00_222; 
BgL_forzd2each1395zd2_225:
{ /* ./Jas/as.scm 97 */
bool_t BgL_test1460z00_226;
BgL_test1460z00_226 = 
PAIRP(BgL_l1394z00_224); 
if(BgL_test1460z00_226)
{ /* ./Jas/as.scm 97 */
{ /* ./Jas/as.scm 97 */
obj_t BgL_xz00_227;
BgL_xz00_227 = 
CAR(BgL_l1394z00_224); 
BgL_methodsz00_223 = 
BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00(BgL_xz00_227, BgL_methodsz00_223); } 
{ /* ./Jas/as.scm 97 */
obj_t BgL_arg1464z00_228;
BgL_arg1464z00_228 = 
CDR(BgL_l1394z00_224); 
{ 
obj_t BgL_l1394z00_1634;
BgL_l1394z00_1634 = BgL_arg1464z00_228; 
BgL_l1394z00_224 = BgL_l1394z00_1634; 
goto BgL_forzd2each1395zd2_225;} } }  else 
{ /* ./Jas/as.scm 97 */((bool_t)1); } } } 
{ /* ./Jas/as.scm 99 */
obj_t BgL_arg1470z00_229;
BgL_arg1470z00_229 = 
bgl_append2(BgL_methodsz00_223, BgL_closuresz00_222); 
{ /* ./Jas/as.scm 99 */
BgL_classfilez00_bglt BgL_obj1351z00_934;obj_t BgL_val1350z00_935;
BgL_obj1351z00_934 = BgL_classez00_5; 
BgL_val1350z00_935 = BgL_arg1470z00_229; 
return 
((((BgL_classfilez00_bglt)CREF(BgL_obj1351z00_934))->BgL_methodsz00) = ((obj_t)BgL_val1350z00_935), BUNSPEC);} } }  else 
{ /* ./Jas/as.scm 93 */
return BFALSE;} } } } } 
}



/* get-procedure-code */
obj_t BGl_getzd2procedurezd2codez00zzjas_asz00(BgL_classfilez00_bglt BgL_classez00_1460, obj_t BgL_lz00_278, obj_t BgL_procnamez00_279)
{ AN_OBJECT;
{ /* ./Jas/as.scm 53 */
BGl_getzd2procedurezd2codez00zzjas_asz00:
{ 

{ /* ./Jas/as.scm 53 */
bool_t BgL_test1583z00_290;
BgL_test1583z00_290 = 
NULLP(BgL_lz00_278); 
if(BgL_test1583z00_290)
{ /* ./Jas/as.scm 53 */
return BFALSE;}  else 
{ /* ./Jas/as.scm 53 */
bool_t BgL_test1585z00_291;
BgL_test1585z00_291 = 
PAIRP(BgL_lz00_278); 
if(BgL_test1585z00_291)
{ /* ./Jas/as.scm 53 */
obj_t BgL_carzd2120zd2_292;
BgL_carzd2120zd2_292 = 
CAR(BgL_lz00_278); 
{ /* ./Jas/as.scm 53 */
bool_t BgL_test1586z00_293;
BgL_test1586z00_293 = 
PAIRP(BgL_carzd2120zd2_292); 
if(BgL_test1586z00_293)
{ /* ./Jas/as.scm 53 */
obj_t BgL_cdrzd2127zd2_294;
BgL_cdrzd2127zd2_294 = 
CDR(BgL_carzd2120zd2_292); 
{ /* ./Jas/as.scm 53 */
bool_t BgL_test1587z00_295;
{ /* ./Jas/as.scm 53 */
obj_t BgL_auxz00_1647;obj_t BgL_auxz00_1645;
BgL_auxz00_1647 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_1645 = 
CAR(BgL_carzd2120zd2_292); 
BgL_test1587z00_295 = 
(BgL_auxz00_1645==BgL_auxz00_1647); } 
if(BgL_test1587z00_295)
{ /* ./Jas/as.scm 53 */
bool_t BgL_test1588z00_296;
BgL_test1588z00_296 = 
PAIRP(BgL_cdrzd2127zd2_294); 
if(BgL_test1588z00_296)
{ /* ./Jas/as.scm 53 */
obj_t BgL_cdrzd2133zd2_297;
BgL_cdrzd2133zd2_297 = 
CDR(BgL_cdrzd2127zd2_294); 
{ /* ./Jas/as.scm 53 */
bool_t BgL_test1589z00_298;
BgL_test1589z00_298 = 
PAIRP(BgL_cdrzd2133zd2_297); 
if(BgL_test1589z00_298)
{ /* ./Jas/as.scm 53 */
obj_t BgL_cdrzd2139zd2_299;
BgL_cdrzd2139zd2_299 = 
CDR(BgL_cdrzd2133zd2_297); 
{ /* ./Jas/as.scm 53 */
bool_t BgL_test1590z00_300;
BgL_test1590z00_300 = 
PAIRP(BgL_cdrzd2139zd2_299); 
if(BgL_test1590z00_300)
{ /* ./Jas/as.scm 53 */
obj_t BgL_arg1593z00_301;obj_t BgL_arg1597z00_304;
BgL_arg1593z00_301 = 
CAR(BgL_cdrzd2127zd2_294); 
BgL_arg1597z00_304 = 
CDR(BgL_cdrzd2139zd2_299); 
{ /* ./Jas/as.scm 53 */
BgL_methodz00_bglt BgL_mz00_1007;
BgL_mz00_1007 = 
BGl_declaredzd2methodzd2zzjas_classfilez00(BgL_classez00_1460, BgL_arg1593z00_301); 
{ /* ./Jas/as.scm 53 */
bool_t BgL_test1628z00_1008;
{ /* ./Jas/as.scm 53 */
obj_t BgL_auxz00_1662;
{ /* ./Jas/as.scm 53 */
BgL_fieldzd2orzd2methodz00_bglt BgL_obj1122z00_1011;
BgL_obj1122z00_1011 = 
(BgL_fieldzd2orzd2methodz00_bglt)(BgL_mz00_1007); 
BgL_auxz00_1662 = 
(((BgL_fieldzd2orzd2methodz00_bglt)CREF(BgL_obj1122z00_1011))->BgL_namez00); } 
BgL_test1628z00_1008 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_1662, BgL_procnamez00_279); } 
if(BgL_test1628z00_1008)
{ /* ./Jas/as.scm 53 */
return BgL_arg1597z00_304;}  else 
{ /* ./Jas/as.scm 53 */
obj_t BgL_arg1631z00_1010;
BgL_arg1631z00_1010 = 
CDR(BgL_lz00_278); 
{ 
obj_t BgL_lz00_1668;
BgL_lz00_1668 = BgL_arg1631z00_1010; 
BgL_lz00_278 = BgL_lz00_1668; 
goto BGl_getzd2procedurezd2codez00zzjas_asz00;} } } } }  else 
{ /* ./Jas/as.scm 53 */
BgL_tagzd2103zd2_288:
{ /* ./Jas/as.scm 53 */
obj_t BgL_arg1641z00_312;
BgL_arg1641z00_312 = 
CDR(BgL_lz00_278); 
{ 
obj_t BgL_lz00_1670;
BgL_lz00_1670 = BgL_arg1641z00_312; 
BgL_lz00_278 = BgL_lz00_1670; 
goto BGl_getzd2procedurezd2codez00zzjas_asz00;} } } } }  else 
{ /* ./Jas/as.scm 53 */
goto BgL_tagzd2103zd2_288;} } }  else 
{ /* ./Jas/as.scm 53 */
goto BgL_tagzd2103zd2_288;} }  else 
{ /* ./Jas/as.scm 53 */
goto BgL_tagzd2103zd2_288;} } }  else 
{ /* ./Jas/as.scm 53 */
goto BgL_tagzd2103zd2_288;} } }  else 
{ /* ./Jas/as.scm 53 */
goto BgL_tagzd2103zd2_288;} } } } } 
}



/* <anonymous:1493> */
obj_t BGl_zc3anonymousza31493ze3z83zzjas_asz00(obj_t BgL_envz00_1457, obj_t BgL_xz00_1459)
{ AN_OBJECT;
{ /* ./Jas/as.scm 79 */
{ /* ./Jas/as.scm 80 */
obj_t BgL_nameprocz00_1458;
{ /* ./Jas/as.scm 80 */
int BgL_auxz00_1671;
BgL_auxz00_1671 = 
(int)(((long)0)); 
BgL_nameprocz00_1458 = 
PROCEDURE_REF(BgL_envz00_1457, BgL_auxz00_1671); } 
{ 
obj_t BgL_xz00_244;
{ /* ./Jas/as.scm 80 */
bool_t BgL_auxz00_1674;
BgL_xz00_244 = BgL_xz00_1459; 
{ /* ./Jas/as.scm 80 */
bool_t BgL__andtest_1392z00_246;
BgL__andtest_1392z00_246 = 
PAIRP(BgL_xz00_244); 
if(BgL__andtest_1392z00_246)
{ /* ./Jas/as.scm 81 */
bool_t BgL__andtest_1393z00_247;
{ /* ./Jas/as.scm 81 */
obj_t BgL_auxz00_1679;obj_t BgL_auxz00_1677;
BgL_auxz00_1679 = 
CNST_TABLE_REF(((long)0)); 
BgL_auxz00_1677 = 
CAR(BgL_xz00_244); 
BgL__andtest_1393z00_247 = 
(BgL_auxz00_1677==BgL_auxz00_1679); } 
if(BgL__andtest_1393z00_247)
{ /* ./Jas/as.scm 82 */
obj_t BgL_arg1496z00_248;obj_t BgL_arg1497z00_249;
{ /* ./Jas/as.scm 82 */
obj_t BgL_auxz00_1683;
BgL_auxz00_1683 = 
CDR(BgL_xz00_244); 
BgL_arg1496z00_248 = 
CAR(BgL_auxz00_1683); } 
{ /* ./Jas/as.scm 83 */
char * BgL_auxz00_1686;
BgL_auxz00_1686 = 
BSTRING_TO_STRING(BgL_nameprocz00_1458); 
BgL_arg1497z00_249 = 
string_to_symbol(BgL_auxz00_1686); } 
BgL_auxz00_1674 = 
(BgL_arg1496z00_248==BgL_arg1497z00_249); }  else 
{ /* ./Jas/as.scm 81 */
BgL_auxz00_1674 = ((bool_t)0)
; } }  else 
{ /* ./Jas/as.scm 80 */
BgL_auxz00_1674 = ((bool_t)0)
; } } 
return 
BBOOL(BgL_auxz00_1674);} } } } 
}



/* as */
obj_t BGl_asz00zzjas_asz00(obj_t BgL_lz00_7)
{ AN_OBJECT;
{ /* ./Jas/as.scm 104 */
{ 
obj_t BgL_keyz00_317;obj_t BgL_thisz00_318;obj_t BgL_extendz00_319;obj_t BgL_implementsz00_320;obj_t BgL_declsz00_321;obj_t BgL_infosz00_322;
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1651z00_326;
BgL_test1651z00_326 = 
PAIRP(BgL_lz00_7); 
if(BgL_test1651z00_326)
{ /* ./Jas/as.scm 105 */
obj_t BgL_cdrzd2166zd2_327;
BgL_cdrzd2166zd2_327 = 
CDR(BgL_lz00_7); 
{ /* ./Jas/as.scm 105 */
obj_t BgL_keyz00_328;
BgL_keyz00_328 = 
CAR(BgL_lz00_7); 
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1652z00_329;
BgL_test1652z00_329 = 
PAIRP(BgL_cdrzd2166zd2_327); 
if(BgL_test1652z00_329)
{ /* ./Jas/as.scm 105 */
obj_t BgL_carzd2173zd2_330;obj_t BgL_cdrzd2174zd2_331;
BgL_carzd2173zd2_330 = 
CAR(BgL_cdrzd2166zd2_327); 
BgL_cdrzd2174zd2_331 = 
CDR(BgL_cdrzd2166zd2_327); 
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1653z00_333;
BgL_test1653z00_333 = 
SYMBOLP(BgL_carzd2173zd2_330); 
if(BgL_test1653z00_333)
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1654z00_334;
BgL_test1654z00_334 = 
PAIRP(BgL_cdrzd2174zd2_331); 
if(BgL_test1654z00_334)
{ /* ./Jas/as.scm 105 */
obj_t BgL_carzd2181zd2_335;obj_t BgL_cdrzd2182zd2_336;
BgL_carzd2181zd2_335 = 
CAR(BgL_cdrzd2174zd2_331); 
BgL_cdrzd2182zd2_336 = 
CDR(BgL_cdrzd2174zd2_331); 
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1655z00_338;
BgL_test1655z00_338 = 
SYMBOLP(BgL_carzd2181zd2_335); 
if(BgL_test1655z00_338)
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1656z00_339;
BgL_test1656z00_339 = 
PAIRP(BgL_cdrzd2182zd2_336); 
if(BgL_test1656z00_339)
{ /* ./Jas/as.scm 105 */
obj_t BgL_carzd2188zd2_340;obj_t BgL_cdrzd2189zd2_341;
BgL_carzd2188zd2_340 = 
CAR(BgL_cdrzd2182zd2_336); 
BgL_cdrzd2189zd2_341 = 
CDR(BgL_cdrzd2182zd2_336); 
{ 
obj_t BgL_gzd2205zd2_360;obj_t BgL_gzd2192zd2_345;
BgL_gzd2192zd2_345 = BgL_carzd2188zd2_340; 
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1659z00_347;
BgL_test1659z00_347 = 
NULLP(BgL_gzd2192zd2_345); 
if(BgL_test1659z00_347)
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1660z00_348;
BgL_test1660z00_348 = 
PAIRP(BgL_cdrzd2189zd2_341); 
if(BgL_test1660z00_348)
{ /* ./Jas/as.scm 105 */
obj_t BgL_carzd2196zd2_349;
BgL_carzd2196zd2_349 = 
CAR(BgL_cdrzd2189zd2_341); 
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1661z00_350;
BgL_test1661z00_350 = 
PAIRP(BgL_carzd2196zd2_349); 
if(BgL_test1661z00_350)
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1662z00_351;
{ /* ./Jas/as.scm 105 */
obj_t BgL_auxz00_1720;obj_t BgL_auxz00_1718;
BgL_auxz00_1720 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_1718 = 
CAR(BgL_carzd2196zd2_349); 
BgL_test1662z00_351 = 
(BgL_auxz00_1718==BgL_auxz00_1720); } 
if(BgL_test1662z00_351)
{ /* ./Jas/as.scm 105 */
obj_t BgL_arg1666z00_352;obj_t BgL_arg1667z00_353;
BgL_arg1666z00_352 = 
CDR(BgL_carzd2196zd2_349); 
BgL_arg1667z00_353 = 
CDR(BgL_cdrzd2189zd2_341); 
{ /* ./Jas/as.scm 105 */
BgL_classfilez00_bglt BgL_auxz00_1726;
BgL_keyz00_317 = BgL_keyz00_328; 
BgL_thisz00_318 = BgL_carzd2173zd2_330; 
BgL_extendz00_319 = BgL_carzd2181zd2_335; 
BgL_implementsz00_320 = BgL_carzd2188zd2_340; 
BgL_declsz00_321 = BgL_arg1666z00_352; 
BgL_infosz00_322 = BgL_arg1667z00_353; 
BgL_tagzd2148zd2_323:
{ /* ./Jas/as.scm 110 */
BgL_classfilez00_bglt BgL_classfilez00_377;
BgL_classfilez00_377 = 
BGl_makezd2classfilezd2zzjas_classfilez00(
CNST_TABLE_REF(((long)2)), BNIL, BNIL, 
BINT(((long)1)), BFALSE, BFALSE, BFALSE, BNIL, BNIL, BNIL, BNIL); 
{ /* ./Jas/as.scm 111 */
bool_t BgL_test1752z00_379;
BgL_test1752z00_379 = 
NULLP(BgL_declsz00_321); 
if(BgL_test1752z00_379)
{ /* ./Jas/as.scm 111 */BNIL; }  else 
{ /* ./Jas/as.scm 111 */
obj_t BgL_head1399z00_380;
BgL_head1399z00_380 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1397z00_381;obj_t BgL_tail1400z00_382;
BgL_l1397z00_381 = BgL_declsz00_321; 
BgL_tail1400z00_382 = BgL_head1399z00_380; 
BgL_map1398z00_383:
{ /* ./Jas/as.scm 111 */
bool_t BgL_test1754z00_384;
BgL_test1754z00_384 = 
NULLP(BgL_l1397z00_381); 
if(BgL_test1754z00_384)
{ /* ./Jas/as.scm 111 */
CDR(BgL_head1399z00_380); }  else 
{ /* ./Jas/as.scm 111 */
obj_t BgL_newtail1401z00_385;
{ /* ./Jas/as.scm 111 */
obj_t BgL_arg1762z00_387;
{ /* ./Jas/as.scm 111 */
obj_t BgL_declz00_389;
BgL_declz00_389 = 
CAR(BgL_l1397z00_381); 
BgL_arg1762z00_387 = 
BGl_aszd2declarezd2zzjas_asz00(BgL_classfilez00_377, BgL_declz00_389); } 
BgL_newtail1401z00_385 = 
MAKE_PAIR(BgL_arg1762z00_387, BNIL); } 
SET_CDR(BgL_tail1400z00_382, BgL_newtail1401z00_385); 
{ /* ./Jas/as.scm 111 */
obj_t BgL_arg1758z00_386;
BgL_arg1758z00_386 = 
CDR(BgL_l1397z00_381); 
{ 
obj_t BgL_tail1400z00_1742;obj_t BgL_l1397z00_1741;
BgL_l1397z00_1741 = BgL_arg1758z00_386; 
BgL_tail1400z00_1742 = BgL_newtail1401z00_385; 
BgL_tail1400z00_382 = BgL_tail1400z00_1742; 
BgL_l1397z00_381 = BgL_l1397z00_1741; 
goto BgL_map1398z00_383;} } } } } } } 
BGl_setzd2fieldzd2methodzd2typezd2zzjas_asz00(BgL_classfilez00_377); 
{ /* ./Jas/as.scm 115 */
BgL_classez00_bglt BgL_cthisz00_392;BgL_classez00_bglt BgL_cextendz00_393;
BgL_cthisz00_392 = 
BGl_declaredzd2classzd2zzjas_classfilez00(BgL_classfilez00_377, BgL_thisz00_318); 
BgL_cextendz00_393 = 
BGl_declaredzd2classzd2zzjas_classfilez00(BgL_classfilez00_377, BgL_extendz00_319); 
{ /* ./Jas/as.scm 117 */
obj_t BgL_arg1775z00_394;
BgL_arg1775z00_394 = 
(((BgL_classez00_bglt)CREF(BgL_cthisz00_392))->BgL_flagsz00); 
{ /* ./Jas/as.scm 117 */
BgL_classfilez00_bglt BgL_obj1336z00_1068;obj_t BgL_val1335z00_1069;
BgL_obj1336z00_1068 = BgL_classfilez00_377; 
BgL_val1335z00_1069 = BgL_arg1775z00_394; 
((((BgL_classfilez00_bglt)CREF(BgL_obj1336z00_1068))->BgL_flagsz00) = ((obj_t)BgL_val1335z00_1069), BUNSPEC); } } 
{ /* ./Jas/as.scm 118 */
int BgL_arg1779z00_395;
BgL_arg1779z00_395 = 
BGl_poolzd2classzd2zzjas_classfilez00(BgL_classfilez00_377, BgL_cthisz00_392); 
{ /* ./Jas/as.scm 118 */
BgL_classfilez00_bglt BgL_obj1339z00_1070;obj_t BgL_val1338z00_1071;
BgL_obj1339z00_1070 = BgL_classfilez00_377; 
BgL_val1338z00_1071 = 
BINT(BgL_arg1779z00_395); 
((((BgL_classfilez00_bglt)CREF(BgL_obj1339z00_1070))->BgL_mez00) = ((obj_t)BgL_val1338z00_1071), BUNSPEC); } } } 
{ /* ./Jas/as.scm 119 */
int BgL_arg1785z00_396;
BgL_arg1785z00_396 = 
BGl_poolzd2classzd2byzd2namezd2zzjas_classfilez00(BgL_classfilez00_377, BgL_extendz00_319); 
{ /* ./Jas/as.scm 119 */
BgL_classfilez00_bglt BgL_obj1342z00_1073;obj_t BgL_val1341z00_1074;
BgL_obj1342z00_1073 = BgL_classfilez00_377; 
BgL_val1341z00_1074 = 
BINT(BgL_arg1785z00_396); 
((((BgL_classfilez00_bglt)CREF(BgL_obj1342z00_1073))->BgL_superz00) = ((obj_t)BgL_val1341z00_1074), BUNSPEC); } } 
{ /* ./Jas/as.scm 120 */
obj_t BgL_arg1789z00_397;
{ /* ./Jas/as.scm 120 */
bool_t BgL_test1791z00_399;
BgL_test1791z00_399 = 
NULLP(BgL_implementsz00_320); 
if(BgL_test1791z00_399)
{ /* ./Jas/as.scm 120 */
BgL_arg1789z00_397 = BNIL; }  else 
{ /* ./Jas/as.scm 120 */
obj_t BgL_head1406z00_400;
{ /* ./Jas/as.scm 120 */
int BgL_arg1815z00_411;
{ /* ./Jas/as.scm 120 */
obj_t BgL_arg1821z00_413;
BgL_arg1821z00_413 = 
CAR(BgL_implementsz00_320); 
BgL_arg1815z00_411 = 
BGl_poolzd2classzd2byzd2namezd2zzjas_classfilez00(BgL_classfilez00_377, BgL_arg1821z00_413); } 
{ /* ./Jas/as.scm 120 */
obj_t BgL_obj1z00_1078;
BgL_obj1z00_1078 = 
BINT(BgL_arg1815z00_411); 
BgL_head1406z00_400 = 
MAKE_PAIR(BgL_obj1z00_1078, BNIL); } } 
{ 
obj_t BgL_l1404z00_401;obj_t BgL_tail1407z00_402;
{ /* ./Jas/as.scm 120 */
obj_t BgL_arg1793z00_404;
BgL_arg1793z00_404 = 
CDR(BgL_implementsz00_320); 
BgL_l1404z00_401 = BgL_arg1793z00_404; 
BgL_tail1407z00_402 = BgL_head1406z00_400; 
BgL_map1405z00_403:
{ /* ./Jas/as.scm 120 */
bool_t BgL_test1796z00_405;
BgL_test1796z00_405 = 
NULLP(BgL_l1404z00_401); 
if(BgL_test1796z00_405)
{ /* ./Jas/as.scm 120 */
BgL_arg1789z00_397 = BgL_head1406z00_400; }  else 
{ /* ./Jas/as.scm 120 */
obj_t BgL_newtail1408z00_406;
{ /* ./Jas/as.scm 120 */
int BgL_arg1804z00_408;
{ /* ./Jas/as.scm 120 */
obj_t BgL_arg1809z00_410;
BgL_arg1809z00_410 = 
CAR(BgL_l1404z00_401); 
BgL_arg1804z00_408 = 
BGl_poolzd2classzd2byzd2namezd2zzjas_classfilez00(BgL_classfilez00_377, BgL_arg1809z00_410); } 
{ /* ./Jas/as.scm 120 */
obj_t BgL_obj1z00_1084;
BgL_obj1z00_1084 = 
BINT(BgL_arg1804z00_408); 
BgL_newtail1408z00_406 = 
MAKE_PAIR(BgL_obj1z00_1084, BNIL); } } 
SET_CDR(BgL_tail1407z00_402, BgL_newtail1408z00_406); 
{ /* ./Jas/as.scm 120 */
obj_t BgL_arg1799z00_407;
BgL_arg1799z00_407 = 
CDR(BgL_l1404z00_401); 
{ 
obj_t BgL_tail1407z00_1770;obj_t BgL_l1404z00_1769;
BgL_l1404z00_1769 = BgL_arg1799z00_407; 
BgL_tail1407z00_1770 = BgL_newtail1408z00_406; 
BgL_tail1407z00_402 = BgL_tail1407z00_1770; 
BgL_l1404z00_401 = BgL_l1404z00_1769; 
goto BgL_map1405z00_403;} } } } } } } } 
{ /* ./Jas/as.scm 120 */
BgL_classfilez00_bglt BgL_obj1345z00_1089;obj_t BgL_val1344z00_1090;
BgL_obj1345z00_1089 = BgL_classfilez00_377; 
BgL_val1344z00_1090 = BgL_arg1789z00_397; 
((((BgL_classfilez00_bglt)CREF(BgL_obj1345z00_1089))->BgL_interfacesz00) = ((obj_t)BgL_val1344z00_1090), BUNSPEC); } } 
BGl_scanzd2infoszd2zzjas_asz00(BgL_classfilez00_377, BgL_infosz00_322); 
{ /* ./Jas/as.scm 122 */
bool_t BgL_test1827z00_414;
{ /* ./Jas/as.scm 122 */
obj_t BgL_objz00_1091;
BgL_objz00_1091 = BGl_za2za2sdefullfileza2za2z00zzjas_asz00; 
BgL_test1827z00_414 = 
STRINGP(BgL_objz00_1091); } 
if(BgL_test1827z00_414)
{ /* ./Jas/as.scm 124 */
obj_t BgL_arg1829z00_416;
{ /* ./Jas/as.scm 124 */
BgL_attributez00_bglt BgL_arg1833z00_417;obj_t BgL_arg1836z00_418;
BgL_arg1833z00_417 = 
BGl_smapz00zzjas_asz00(BgL_classfilez00_377); 
BgL_arg1836z00_418 = 
(((BgL_classfilez00_bglt)CREF(BgL_classfilez00_377))->BgL_attributesz00); 
{ /* ./Jas/as.scm 124 */
obj_t BgL_auxz00_1777;
BgL_auxz00_1777 = 
(obj_t)(BgL_arg1833z00_417); 
BgL_arg1829z00_416 = 
MAKE_PAIR(BgL_auxz00_1777, BgL_arg1836z00_418); } } 
{ /* ./Jas/as.scm 124 */
BgL_classfilez00_bglt BgL_obj1354z00_1093;obj_t BgL_val1353z00_1094;
BgL_obj1354z00_1093 = BgL_classfilez00_377; 
BgL_val1353z00_1094 = BgL_arg1829z00_416; 
((((BgL_classfilez00_bglt)CREF(BgL_obj1354z00_1093))->BgL_attributesz00) = ((obj_t)BgL_val1353z00_1094), BUNSPEC); } }  else 
{ /* ./Jas/as.scm 122 */BFALSE; } } 
BgL_auxz00_1726 = BgL_classfilez00_377; } 
return 
(obj_t)(BgL_auxz00_1726);} }  else 
{ /* ./Jas/as.scm 105 */
BgL_tagzd2149zd2_324:
FAILURE(BGl_string2956z00zzjas_asz00,BGl_string2957z00zzjas_asz00,BgL_lz00_7);} }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} } }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} }  else 
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1682z00_356;
BgL_test1682z00_356 = 
PAIRP(BgL_gzd2192zd2_345); 
if(BgL_test1682z00_356)
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1683z00_357;
{ /* ./Jas/as.scm 105 */
obj_t BgL_auxz00_1785;
BgL_auxz00_1785 = 
CAR(BgL_gzd2192zd2_345); 
BgL_test1683z00_357 = 
SYMBOLP(BgL_auxz00_1785); } 
if(BgL_test1683z00_357)
{ /* ./Jas/as.scm 105 */
obj_t BgL_arg1685z00_358;
BgL_arg1685z00_358 = 
CDR(BgL_gzd2192zd2_345); 
BgL_gzd2205zd2_360 = BgL_arg1685z00_358; 
BgL_zc3anonymousza31696ze3z83_361:
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1697z00_362;
BgL_test1697z00_362 = 
NULLP(BgL_gzd2205zd2_360); 
if(BgL_test1697z00_362)
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1698z00_363;
BgL_test1698z00_363 = 
PAIRP(BgL_cdrzd2189zd2_341); 
if(BgL_test1698z00_363)
{ /* ./Jas/as.scm 105 */
obj_t BgL_carzd2209zd2_364;
BgL_carzd2209zd2_364 = 
CAR(BgL_cdrzd2189zd2_341); 
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1699z00_365;
BgL_test1699z00_365 = 
PAIRP(BgL_carzd2209zd2_364); 
if(BgL_test1699z00_365)
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1700z00_366;
{ /* ./Jas/as.scm 105 */
obj_t BgL_auxz00_1799;obj_t BgL_auxz00_1797;
BgL_auxz00_1799 = 
CNST_TABLE_REF(((long)3)); 
BgL_auxz00_1797 = 
CAR(BgL_carzd2209zd2_364); 
BgL_test1700z00_366 = 
(BgL_auxz00_1797==BgL_auxz00_1799); } 
if(BgL_test1700z00_366)
{ /* ./Jas/as.scm 105 */
obj_t BgL_arg1702z00_367;obj_t BgL_arg1703z00_368;
BgL_arg1702z00_367 = 
CDR(BgL_carzd2209zd2_364); 
BgL_arg1703z00_368 = 
CDR(BgL_cdrzd2189zd2_341); 
{ /* ./Jas/as.scm 105 */
BgL_classfilez00_bglt BgL_auxz00_1805;
{ 
obj_t BgL_infosz00_1811;obj_t BgL_declsz00_1810;obj_t BgL_implementsz00_1809;obj_t BgL_extendz00_1808;obj_t BgL_thisz00_1807;obj_t BgL_keyz00_1806;
BgL_keyz00_1806 = BgL_keyz00_328; 
BgL_thisz00_1807 = BgL_carzd2173zd2_330; 
BgL_extendz00_1808 = BgL_carzd2181zd2_335; 
BgL_implementsz00_1809 = BgL_carzd2188zd2_340; 
BgL_declsz00_1810 = BgL_arg1702z00_367; 
BgL_infosz00_1811 = BgL_arg1703z00_368; 
BgL_infosz00_322 = BgL_infosz00_1811; 
BgL_declsz00_321 = BgL_declsz00_1810; 
BgL_implementsz00_320 = BgL_implementsz00_1809; 
BgL_extendz00_319 = BgL_extendz00_1808; 
BgL_thisz00_318 = BgL_thisz00_1807; 
BgL_keyz00_317 = BgL_keyz00_1806; 
goto BgL_tagzd2148zd2_323;} 
return 
(obj_t)(BgL_auxz00_1805);} }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} } }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} }  else 
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1718z00_371;
BgL_test1718z00_371 = 
PAIRP(BgL_gzd2205zd2_360); 
if(BgL_test1718z00_371)
{ /* ./Jas/as.scm 105 */
bool_t BgL_test1719z00_372;
{ /* ./Jas/as.scm 105 */
obj_t BgL_auxz00_1815;
BgL_auxz00_1815 = 
CAR(BgL_gzd2205zd2_360); 
BgL_test1719z00_372 = 
SYMBOLP(BgL_auxz00_1815); } 
if(BgL_test1719z00_372)
{ /* ./Jas/as.scm 105 */
obj_t BgL_arg1721z00_373;
BgL_arg1721z00_373 = 
CDR(BgL_gzd2205zd2_360); 
{ 
obj_t BgL_gzd2205zd2_1820;
BgL_gzd2205zd2_1820 = BgL_arg1721z00_373; 
BgL_gzd2205zd2_360 = BgL_gzd2205zd2_1820; 
goto BgL_zc3anonymousza31696ze3z83_361;} }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} } } }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} } } } }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} } }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} } }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} } } }  else 
{ /* ./Jas/as.scm 105 */
goto BgL_tagzd2149zd2_324;} } } } 
}



/* set-field-method-type */
bool_t BGl_setzd2fieldzd2methodzd2typezd2zzjas_asz00(BgL_classfilez00_bglt BgL_classfilez00_8)
{ AN_OBJECT;
{ /* ./Jas/as.scm 128 */
{ 
obj_t BgL_l1411z00_422;
{ /* ./Jas/as.scm 135 */
obj_t BgL_arg1846z00_424;
BgL_arg1846z00_424 = 
(((BgL_classfilez00_bglt)CREF(BgL_classfilez00_8))->BgL_globalsz00); 
BgL_l1411z00_422 = BgL_arg1846z00_424; 
BgL_forzd2each1412zd2_423:
{ /* ./Jas/as.scm 129 */
bool_t BgL_test1849z00_425;
BgL_test1849z00_425 = 
PAIRP(BgL_l1411z00_422); 
if(BgL_test1849z00_425)
{ /* ./Jas/as.scm 129 */
{ /* ./Jas/as.scm 131 */
obj_t BgL_slotz00_426;
BgL_slotz00_426 = 
CAR(BgL_l1411z00_422); 
{ /* ./Jas/as.scm 131 */
obj_t BgL_valuez00_427;
BgL_valuez00_427 = 
CDR(BgL_slotz00_426); 
{ /* ./Jas/as.scm 132 */
bool_t BgL_test1850z00_428;
BgL_test1850z00_428 = 
BGl_iszd2azf3z21zz__objectz00(BgL_valuez00_427, BGl_fieldzd2orzd2methodz00zzjas_classfilez00); 
if(BgL_test1850z00_428)
{ /* ./Jas/as.scm 134 */
BgL_typez00_bglt BgL_arg1853z00_430;
{ /* ./Jas/as.scm 134 */
obj_t BgL_arg1856z00_431;
{ /* ./Jas/as.scm 134 */
BgL_fieldzd2orzd2methodz00_bglt BgL_obj1128z00_1103;
BgL_obj1128z00_1103 = 
(BgL_fieldzd2orzd2methodz00_bglt)(BgL_valuez00_427); 
BgL_arg1856z00_431 = 
(((BgL_fieldzd2orzd2methodz00_bglt)CREF(BgL_obj1128z00_1103))->BgL_usertypez00); } 
BgL_arg1853z00_430 = 
BGl_aszd2typezd2zzjas_classfilez00(BgL_classfilez00_8, BgL_arg1856z00_431); } 
{ /* ./Jas/as.scm 134 */
BgL_fieldzd2orzd2methodz00_bglt BgL_obj1133z00_1104;obj_t BgL_val1132z00_1105;
BgL_obj1133z00_1104 = 
(BgL_fieldzd2orzd2methodz00_bglt)(BgL_valuez00_427); 
BgL_val1132z00_1105 = 
(obj_t)(BgL_arg1853z00_430); 
((((BgL_fieldzd2orzd2methodz00_bglt)CREF(BgL_obj1133z00_1104))->BgL_typez00) = ((obj_t)BgL_val1132z00_1105), BUNSPEC); } }  else 
{ /* ./Jas/as.scm 132 */BFALSE; } } } } 
{ /* ./Jas/as.scm 129 */
obj_t BgL_arg1864z00_432;
BgL_arg1864z00_432 = 
CDR(BgL_l1411z00_422); 
{ 
obj_t BgL_l1411z00_1835;
BgL_l1411z00_1835 = BgL_arg1864z00_432; 
BgL_l1411z00_422 = BgL_l1411z00_1835; 
goto BgL_forzd2each1412zd2_423;} } }  else 
{ /* ./Jas/as.scm 129 */
return ((bool_t)1);} } } } } 
}



/* scan-infos */
obj_t BGl_scanzd2infoszd2zzjas_asz00(BgL_classfilez00_bglt BgL_classfilez00_9, obj_t BgL_infosz00_10)
{ AN_OBJECT;
{ /* ./Jas/as.scm 137 */
BGl_scanzd2infoszd2zzjas_asz00:
{ /* ./Jas/as.scm 139 */
bool_t BgL_test1868z00_433;
BgL_test1868z00_433 = 
NULLP(BgL_infosz00_10); 
if(BgL_test1868z00_433)
{ /* ./Jas/as.scm 139 */
return 
(obj_t)(BgL_classfilez00_9);}  else 
{ /* ./Jas/as.scm 140 */
bool_t BgL_test1869z00_434;
{ /* ./Jas/as.scm 140 */
obj_t BgL_auxz00_1843;obj_t BgL_auxz00_1839;
BgL_auxz00_1843 = 
CNST_TABLE_REF(((long)4)); 
{ /* ./Jas/as.scm 140 */
obj_t BgL_auxz00_1840;
BgL_auxz00_1840 = 
CAR(BgL_infosz00_10); 
BgL_auxz00_1839 = 
CAR(BgL_auxz00_1840); } 
BgL_test1869z00_434 = 
(BgL_auxz00_1839==BgL_auxz00_1843); } 
if(BgL_test1869z00_434)
{ /* ./Jas/as.scm 140 */
{ /* ./Jas/as.scm 142 */
obj_t BgL_arg1872z00_436;
{ /* ./Jas/as.scm 142 */
obj_t BgL_l1417z00_437;
{ /* ./Jas/as.scm 142 */
obj_t BgL_auxz00_1847;
BgL_auxz00_1847 = 
CAR(BgL_infosz00_10); 
BgL_l1417z00_437 = 
CDR(BgL_auxz00_1847); } 
{ /* ./Jas/as.scm 142 */
bool_t BgL_test1874z00_438;
BgL_test1874z00_438 = 
NULLP(BgL_l1417z00_437); 
if(BgL_test1874z00_438)
{ /* ./Jas/as.scm 142 */
BgL_arg1872z00_436 = BNIL; }  else 
{ /* ./Jas/as.scm 142 */
obj_t BgL_head1419z00_439;
BgL_head1419z00_439 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1417z00_440;obj_t BgL_tail1420z00_441;
BgL_l1417z00_440 = BgL_l1417z00_437; 
BgL_tail1420z00_441 = BgL_head1419z00_439; 
BgL_map1418z00_442:
{ /* ./Jas/as.scm 142 */
bool_t BgL_test1876z00_443;
BgL_test1876z00_443 = 
NULLP(BgL_l1417z00_440); 
if(BgL_test1876z00_443)
{ /* ./Jas/as.scm 142 */
BgL_arg1872z00_436 = 
CDR(BgL_head1419z00_439); }  else 
{ /* ./Jas/as.scm 142 */
obj_t BgL_newtail1421z00_444;
{ /* ./Jas/as.scm 142 */
BgL_fieldz00_bglt BgL_arg1884z00_446;
{ /* ./Jas/as.scm 142 */
obj_t BgL_fz00_448;
BgL_fz00_448 = 
CAR(BgL_l1417z00_440); 
{ /* ./Jas/as.scm 142 */
BgL_fieldz00_bglt BgL_fieldz00_1124;
BgL_fieldz00_1124 = 
BGl_declaredzd2fieldzd2zzjas_classfilez00(BgL_classfilez00_9, BgL_fz00_448); 
BGl_poolzd2fieldzd2zzjas_classfilez00(BgL_classfilez00_9, BgL_fieldz00_1124); 
BgL_arg1884z00_446 = BgL_fieldz00_1124; } } 
{ /* ./Jas/as.scm 142 */
obj_t BgL_obj1z00_1125;
BgL_obj1z00_1125 = 
(obj_t)(BgL_arg1884z00_446); 
BgL_newtail1421z00_444 = 
MAKE_PAIR(BgL_obj1z00_1125, BNIL); } } 
SET_CDR(BgL_tail1420z00_441, BgL_newtail1421z00_444); 
{ /* ./Jas/as.scm 142 */
obj_t BgL_arg1880z00_445;
BgL_arg1880z00_445 = 
CDR(BgL_l1417z00_440); 
{ 
obj_t BgL_tail1420z00_1864;obj_t BgL_l1417z00_1863;
BgL_l1417z00_1863 = BgL_arg1880z00_445; 
BgL_tail1420z00_1864 = BgL_newtail1421z00_444; 
BgL_tail1420z00_441 = BgL_tail1420z00_1864; 
BgL_l1417z00_440 = BgL_l1417z00_1863; 
goto BgL_map1418z00_442;} } } } } } } } 
{ /* ./Jas/as.scm 142 */
BgL_classfilez00_bglt BgL_obj1348z00_1130;obj_t BgL_val1347z00_1131;
BgL_obj1348z00_1130 = BgL_classfilez00_9; 
BgL_val1347z00_1131 = BgL_arg1872z00_436; 
((((BgL_classfilez00_bglt)CREF(BgL_obj1348z00_1130))->BgL_fieldsz00) = ((obj_t)BgL_val1347z00_1131), BUNSPEC); } } 
{ /* ./Jas/as.scm 143 */
obj_t BgL_arg1894z00_449;
BgL_arg1894z00_449 = 
CDR(BgL_infosz00_10); 
{ 
obj_t BgL_infosz00_1867;
BgL_infosz00_1867 = BgL_arg1894z00_449; 
BgL_infosz00_10 = BgL_infosz00_1867; 
goto BGl_scanzd2infoszd2zzjas_asz00;} } }  else 
{ /* ./Jas/as.scm 144 */
bool_t BgL_test1897z00_450;
{ /* ./Jas/as.scm 144 */
obj_t BgL_auxz00_1872;obj_t BgL_auxz00_1868;
BgL_auxz00_1872 = 
CNST_TABLE_REF(((long)5)); 
{ /* ./Jas/as.scm 144 */
obj_t BgL_auxz00_1869;
BgL_auxz00_1869 = 
CAR(BgL_infosz00_10); 
BgL_auxz00_1868 = 
CAR(BgL_auxz00_1869); } 
BgL_test1897z00_450 = 
(BgL_auxz00_1868==BgL_auxz00_1872); } 
if(BgL_test1897z00_450)
{ /* ./Jas/as.scm 144 */
{ /* ./Jas/as.scm 146 */
obj_t BgL_arg1902z00_452;
{ /* ./Jas/as.scm 146 */
BgL_attributez00_bglt BgL_arg1905z00_453;obj_t BgL_arg1906z00_454;
{ /* ./Jas/as.scm 146 */
obj_t BgL_arg1911z00_455;
{ /* ./Jas/as.scm 146 */
obj_t BgL_auxz00_1876;
{ /* ./Jas/as.scm 146 */
obj_t BgL_auxz00_1877;
BgL_auxz00_1877 = 
CAR(BgL_infosz00_10); 
BgL_auxz00_1876 = 
CDR(BgL_auxz00_1877); } 
BgL_arg1911z00_455 = 
CAR(BgL_auxz00_1876); } 
BgL_arg1905z00_453 = 
BGl_srcfilez00zzjas_asz00(BgL_classfilez00_9, BgL_arg1911z00_455); } 
BgL_arg1906z00_454 = 
(((BgL_classfilez00_bglt)CREF(BgL_classfilez00_9))->BgL_attributesz00); 
{ /* ./Jas/as.scm 146 */
obj_t BgL_auxz00_1883;
BgL_auxz00_1883 = 
(obj_t)(BgL_arg1905z00_453); 
BgL_arg1902z00_452 = 
MAKE_PAIR(BgL_auxz00_1883, BgL_arg1906z00_454); } } 
{ /* ./Jas/as.scm 146 */
BgL_classfilez00_bglt BgL_obj1354z00_1144;obj_t BgL_val1353z00_1145;
BgL_obj1354z00_1144 = BgL_classfilez00_9; 
BgL_val1353z00_1145 = BgL_arg1902z00_452; 
((((BgL_classfilez00_bglt)CREF(BgL_obj1354z00_1144))->BgL_attributesz00) = ((obj_t)BgL_val1353z00_1145), BUNSPEC); } } 
{ /* ./Jas/as.scm 147 */
obj_t BgL_arg1916z00_456;
BgL_arg1916z00_456 = 
CDR(BgL_infosz00_10); 
{ 
obj_t BgL_infosz00_1888;
BgL_infosz00_1888 = BgL_arg1916z00_456; 
BgL_infosz00_10 = BgL_infosz00_1888; 
goto BGl_scanzd2infoszd2zzjas_asz00;} } }  else 
{ /* ./Jas/as.scm 148 */
bool_t BgL_test1919z00_457;
{ /* ./Jas/as.scm 148 */
obj_t BgL_auxz00_1893;obj_t BgL_auxz00_1889;
BgL_auxz00_1893 = 
CNST_TABLE_REF(((long)6)); 
{ /* ./Jas/as.scm 148 */
obj_t BgL_auxz00_1890;
BgL_auxz00_1890 = 
CAR(BgL_infosz00_10); 
BgL_auxz00_1889 = 
CAR(BgL_auxz00_1890); } 
BgL_test1919z00_457 = 
(BgL_auxz00_1889==BgL_auxz00_1893); } 
if(BgL_test1919z00_457)
{ /* ./Jas/as.scm 148 */
{ /* ./Jas/as.scm 149 */
obj_t BgL_auxz00_1897;
{ /* ./Jas/as.scm 149 */
obj_t BgL_auxz00_1898;
BgL_auxz00_1898 = 
CAR(BgL_infosz00_10); 
BgL_auxz00_1897 = 
CDR(BgL_auxz00_1898); } 
BGl_za2za2sdefileza2za2z00zzjas_asz00 = 
CAR(BgL_auxz00_1897); } 
{ /* ./Jas/as.scm 150 */
obj_t BgL_auxz00_1902;
{ /* ./Jas/as.scm 150 */
obj_t BgL_auxz00_1903;
{ /* ./Jas/as.scm 150 */
obj_t BgL_auxz00_1904;
BgL_auxz00_1904 = 
CAR(BgL_infosz00_10); 
BgL_auxz00_1903 = 
CDR(BgL_auxz00_1904); } 
BgL_auxz00_1902 = 
CDR(BgL_auxz00_1903); } 
BGl_za2za2sdefullfileza2za2z00zzjas_asz00 = 
CAR(BgL_auxz00_1902); } 
{ /* ./Jas/as.scm 151 */
obj_t BgL_arg1924z00_458;
BgL_arg1924z00_458 = 
CDR(BgL_infosz00_10); 
{ 
obj_t BgL_infosz00_1910;
BgL_infosz00_1910 = BgL_arg1924z00_458; 
BgL_infosz00_10 = BgL_infosz00_1910; 
goto BGl_scanzd2infoszd2zzjas_asz00;} } }  else 
{ /* ./Jas/as.scm 148 */
{ /* ./Jas/as.scm 154 */
obj_t BgL_arg1928z00_460;
if(BgL_test1868z00_433)
{ /* ./Jas/as.scm 154 */
BgL_arg1928z00_460 = BNIL; }  else 
{ /* ./Jas/as.scm 154 */
obj_t BgL_head1428z00_463;
BgL_head1428z00_463 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1426z00_464;obj_t BgL_tail1429z00_465;
BgL_l1426z00_464 = BgL_infosz00_10; 
BgL_tail1429z00_465 = BgL_head1428z00_463; 
BgL_map1427z00_466:
{ /* ./Jas/as.scm 154 */
bool_t BgL_test1932z00_467;
BgL_test1932z00_467 = 
NULLP(BgL_l1426z00_464); 
if(BgL_test1932z00_467)
{ /* ./Jas/as.scm 154 */
BgL_arg1928z00_460 = 
CDR(BgL_head1428z00_463); }  else 
{ /* ./Jas/as.scm 154 */
obj_t BgL_newtail1430z00_468;
{ /* ./Jas/as.scm 154 */
obj_t BgL_arg1941z00_470;
{ /* ./Jas/as.scm 154 */
obj_t BgL_mz00_472;
BgL_mz00_472 = 
CAR(BgL_l1426z00_464); 
BgL_arg1941z00_470 = 
BGl_aszd2methodzd2zzjas_asz00(BgL_classfilez00_9, BgL_mz00_472); } 
BgL_newtail1430z00_468 = 
MAKE_PAIR(BgL_arg1941z00_470, BNIL); } 
SET_CDR(BgL_tail1429z00_465, BgL_newtail1430z00_468); 
{ /* ./Jas/as.scm 154 */
obj_t BgL_arg1936z00_469;
BgL_arg1936z00_469 = 
CDR(BgL_l1426z00_464); 
{ 
obj_t BgL_tail1429z00_1922;obj_t BgL_l1426z00_1921;
BgL_l1426z00_1921 = BgL_arg1936z00_469; 
BgL_tail1429z00_1922 = BgL_newtail1430z00_468; 
BgL_tail1429z00_465 = BgL_tail1429z00_1922; 
BgL_l1426z00_464 = BgL_l1426z00_1921; 
goto BgL_map1427z00_466;} } } } } } 
{ /* ./Jas/as.scm 154 */
BgL_classfilez00_bglt BgL_obj1351z00_1177;obj_t BgL_val1350z00_1178;
BgL_obj1351z00_1177 = BgL_classfilez00_9; 
BgL_val1350z00_1178 = BgL_arg1928z00_460; 
return 
((((BgL_classfilez00_bglt)CREF(BgL_obj1351z00_1177))->BgL_methodsz00) = ((obj_t)BgL_val1350z00_1178), BUNSPEC);} } } } } } } } 
}



/* srcfile */
BgL_attributez00_bglt BGl_srcfilez00zzjas_asz00(BgL_classfilez00_bglt BgL_classfilez00_11, obj_t BgL_namez00_12)
{ AN_OBJECT;
{ /* ./Jas/as.scm 159 */
{ /* ./Jas/as.scm 161 */
obj_t BgL_arg1970z00_479;int BgL_arg1971z00_480;long BgL_arg1973z00_481;int BgL_arg1974z00_482;
BgL_arg1970z00_479 = 
CNST_TABLE_REF(((long)7)); 
BgL_arg1971z00_480 = 
BGl_poolzd2namezd2zzjas_classfilez00(BgL_classfilez00_11, BGl_string2958z00zzjas_asz00); 
BgL_arg1973z00_481 = ((long)2); 
BgL_arg1974z00_482 = 
BGl_poolzd2namezd2zzjas_classfilez00(BgL_classfilez00_11, BgL_namez00_12); 
return 
BGl_makezd2attributezd2zzjas_classfilez00(BgL_arg1970z00_479, 
BINT(BgL_arg1971z00_480), 
BINT(BgL_arg1973z00_481), 
BINT(BgL_arg1974z00_482));} } 
}



/* smap */
BgL_attributez00_bglt BGl_smapz00zzjas_asz00(BgL_classfilez00_bglt BgL_classfilez00_13)
{ AN_OBJECT;
{ /* ./Jas/as.scm 169 */
{ /* ./Jas/as.scm 170 */
obj_t BgL_smapfilez00_483;
{ /* ./Jas/as.scm 170 */
obj_t BgL_arg1989z00_488;
BgL_arg1989z00_488 = 
BGl_smapfilez00zzjas_asz00(); 
BgL_smapfilez00_483 = 
BGl_stringzd2ze3utf8z31zzjas_libz00(BgL_arg1989z00_488); } 
{ /* ./Jas/as.scm 172 */
obj_t BgL_arg1981z00_484;int BgL_arg1982z00_485;int BgL_arg1983z00_486;obj_t BgL_arg1984z00_487;
BgL_arg1981z00_484 = 
CNST_TABLE_REF(((long)8)); 
BgL_arg1982z00_485 = 
BGl_poolzd2namezd2zzjas_classfilez00(BgL_classfilez00_13, BGl_string2959z00zzjas_asz00); 
BgL_arg1983z00_486 = 
STRING_LENGTH(BgL_smapfilez00_483); 
BgL_arg1984z00_487 = BgL_smapfilez00_483; 
return 
BGl_makezd2attributezd2zzjas_classfilez00(BgL_arg1981z00_484, 
BINT(BgL_arg1982z00_485), 
BINT(BgL_arg1983z00_486), BgL_arg1984z00_487);} } } 
}



/* smapfile */
obj_t BGl_smapfilez00zzjas_asz00()
{ AN_OBJECT;
{ /* ./Jas/as.scm 177 */
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2001z00_494;
BgL_arg2001z00_494 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(
(long)CINT(BGl_za2za2maxlineza2za2z00zzjas_asz00), BNIL); 
{ /* ./Jas/as.scm 178 */
obj_t BgL_list2007z00_497;
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2010z00_498;
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2014z00_499;
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2018z00_500;
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2021z00_501;
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2025z00_502;
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2029z00_503;
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2032z00_504;
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2035z00_505;
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2038z00_506;
{ /* ./Jas/as.scm 178 */
obj_t BgL_arg2041z00_507;
BgL_arg2041z00_507 = 
MAKE_PAIR(BGl_string2960z00zzjas_asz00, BNIL); 
BgL_arg2038z00_506 = 
MAKE_PAIR(BGl_string2961z00zzjas_asz00, BgL_arg2041z00_507); } 
BgL_arg2035z00_505 = 
MAKE_PAIR(BgL_arg2001z00_494, BgL_arg2038z00_506); } 
BgL_arg2032z00_504 = 
MAKE_PAIR(BGl_string2962z00zzjas_asz00, BgL_arg2035z00_505); } 
BgL_arg2029z00_503 = 
MAKE_PAIR(BGl_string2963z00zzjas_asz00, BgL_arg2032z00_504); } 
BgL_arg2025z00_502 = 
MAKE_PAIR(BGl_za2za2sdefullfileza2za2z00zzjas_asz00, BgL_arg2029z00_503); } 
BgL_arg2021z00_501 = 
MAKE_PAIR(BGl_string2964z00zzjas_asz00, BgL_arg2025z00_502); } 
BgL_arg2018z00_500 = 
MAKE_PAIR(BGl_za2za2sdefileza2za2z00zzjas_asz00, BgL_arg2021z00_501); } 
BgL_arg2014z00_499 = 
MAKE_PAIR(BGl_string2965z00zzjas_asz00, BgL_arg2018z00_500); } 
BgL_arg2010z00_498 = 
MAKE_PAIR(BGl_za2za2sdefileza2za2z00zzjas_asz00, BgL_arg2014z00_499); } 
BgL_list2007z00_497 = 
MAKE_PAIR(BGl_string2966z00zzjas_asz00, BgL_arg2010z00_498); } 
return 
BGl_stringzd2appendzd2zz__r4_strings_6_7z00(BgL_list2007z00_497);} } } 
}



/* as-declare */
obj_t BGl_aszd2declarezd2zzjas_asz00(BgL_classfilez00_bglt BgL_classfilez00_14, obj_t BgL_declz00_15)
{ AN_OBJECT;
{ /* ./Jas/as.scm 192 */
{ 
obj_t BgL_gnamez00_509;obj_t BgL_valuez00_510;
{ /* ./Jas/as.scm 193 */
bool_t BgL_test2046z00_514;
BgL_test2046z00_514 = 
PAIRP(BgL_declz00_15); 
if(BgL_test2046z00_514)
{ /* ./Jas/as.scm 193 */
obj_t BgL_cdrzd2226zd2_515;
BgL_cdrzd2226zd2_515 = 
CDR(BgL_declz00_15); 
{ /* ./Jas/as.scm 193 */
bool_t BgL_test2047z00_516;
BgL_test2047z00_516 = 
PAIRP(BgL_cdrzd2226zd2_515); 
if(BgL_test2047z00_516)
{ /* ./Jas/as.scm 193 */
bool_t BgL_test2048z00_517;
{ /* ./Jas/as.scm 193 */
obj_t BgL_auxz00_1958;
BgL_auxz00_1958 = 
CDR(BgL_cdrzd2226zd2_515); 
BgL_test2048z00_517 = 
NULLP(BgL_auxz00_1958); } 
if(BgL_test2048z00_517)
{ /* ./Jas/as.scm 193 */
obj_t BgL_arg2050z00_518;obj_t BgL_arg2051z00_519;
BgL_arg2050z00_518 = 
CAR(BgL_declz00_15); 
BgL_arg2051z00_519 = 
CAR(BgL_cdrzd2226zd2_515); 
BgL_gnamez00_509 = BgL_arg2050z00_518; 
BgL_valuez00_510 = BgL_arg2051z00_519; 
{ /* ./Jas/as.scm 195 */
obj_t BgL_arg2066z00_521;
{ 
obj_t BgL_classz00_530;obj_t BgL_modifiersz00_531;obj_t BgL_tretz00_532;obj_t BgL_namez00_533;obj_t BgL_targsz00_534;obj_t BgL_modifiersz00_522;obj_t BgL_namez00_523;
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2068z00_538;
BgL_test2068z00_538 = 
PAIRP(BgL_valuez00_510); 
if(BgL_test2068z00_538)
{ /* ./Jas/as.scm 195 */
obj_t BgL_cdrzd2246zd2_539;
BgL_cdrzd2246zd2_539 = 
CDR(BgL_valuez00_510); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2069z00_540;
{ /* ./Jas/as.scm 195 */
obj_t BgL_auxz00_1969;obj_t BgL_auxz00_1967;
BgL_auxz00_1969 = 
CNST_TABLE_REF(((long)10)); 
BgL_auxz00_1967 = 
CAR(BgL_valuez00_510); 
BgL_test2069z00_540 = 
(BgL_auxz00_1967==BgL_auxz00_1969); } 
if(BgL_test2069z00_540)
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2070z00_541;
BgL_test2070z00_541 = 
PAIRP(BgL_cdrzd2246zd2_539); 
if(BgL_test2070z00_541)
{ /* ./Jas/as.scm 195 */
obj_t BgL_cdrzd2250zd2_542;
BgL_cdrzd2250zd2_542 = 
CDR(BgL_cdrzd2246zd2_539); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2071z00_543;
BgL_test2071z00_543 = 
PAIRP(BgL_cdrzd2250zd2_542); 
if(BgL_test2071z00_543)
{ /* ./Jas/as.scm 195 */
obj_t BgL_carzd2253zd2_544;
BgL_carzd2253zd2_544 = 
CAR(BgL_cdrzd2250zd2_542); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2072z00_545;
BgL_test2072z00_545 = 
STRINGP(BgL_carzd2253zd2_544); 
if(BgL_test2072z00_545)
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2073z00_546;
{ /* ./Jas/as.scm 195 */
obj_t BgL_auxz00_1981;
BgL_auxz00_1981 = 
CDR(BgL_cdrzd2250zd2_542); 
BgL_test2073z00_546 = 
NULLP(BgL_auxz00_1981); } 
if(BgL_test2073z00_546)
{ /* ./Jas/as.scm 195 */
obj_t BgL_arg2075z00_547;
BgL_arg2075z00_547 = 
CAR(BgL_cdrzd2246zd2_539); 
{ /* ./Jas/as.scm 195 */
BgL_classez00_bglt BgL_auxz00_1986;
BgL_modifiersz00_522 = BgL_arg2075z00_547; 
BgL_namez00_523 = BgL_carzd2253zd2_544; 
{ /* ./Jas/as.scm 198 */
obj_t BgL_namezf2zf2_586;
BgL_namezf2zf2_586 = 
BGl_pathnamez00zzjas_asz00(BgL_namez00_523); 
{ /* ./Jas/as.scm 200 */
obj_t BgL_arg2179z00_587;long BgL_arg2180z00_588;obj_t BgL_arg2181z00_589;
BgL_arg2179z00_587 = 
string_append_3(BGl_string2967z00zzjas_asz00, BgL_namezf2zf2_586, BGl_string2968z00zzjas_asz00); 
BgL_arg2180z00_588 = 
BGl_aszd2classzd2modifiersz00zzjas_asz00(BgL_modifiersz00_522); 
BgL_arg2181z00_589 = BgL_namezf2zf2_586; 
BgL_auxz00_1986 = 
BGl_makezd2classezd2zzjas_classfilez00(BgL_arg2179z00_587, BFALSE, 
BINT(BgL_arg2180z00_588), BgL_arg2181z00_589, BFALSE); } } 
BgL_arg2066z00_521 = 
(obj_t)(BgL_auxz00_1986); } }  else 
{ /* ./Jas/as.scm 195 */
BgL_tagzd2235zd2_536:
BgL_arg2066z00_521 = 
BGl_jaszd2errorzd2zzjas_classfilez00(BgL_classfilez00_14, BGl_string2969z00zzjas_asz00, BgL_declz00_15); } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} }  else 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2091z00_550;
{ /* ./Jas/as.scm 195 */
obj_t BgL_auxz00_1996;obj_t BgL_auxz00_1994;
BgL_auxz00_1996 = 
CNST_TABLE_REF(((long)11)); 
BgL_auxz00_1994 = 
CAR(BgL_valuez00_510); 
BgL_test2091z00_550 = 
(BgL_auxz00_1994==BgL_auxz00_1996); } 
if(BgL_test2091z00_550)
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2092z00_551;
BgL_test2092z00_551 = 
PAIRP(BgL_cdrzd2246zd2_539); 
if(BgL_test2092z00_551)
{ /* ./Jas/as.scm 195 */
obj_t BgL_cdrzd2355zd2_552;
BgL_cdrzd2355zd2_552 = 
CDR(BgL_cdrzd2246zd2_539); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2094z00_553;
BgL_test2094z00_553 = 
PAIRP(BgL_cdrzd2355zd2_552); 
if(BgL_test2094z00_553)
{ /* ./Jas/as.scm 195 */
obj_t BgL_cdrzd2361zd2_554;
BgL_cdrzd2361zd2_554 = 
CDR(BgL_cdrzd2355zd2_552); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2095z00_555;
BgL_test2095z00_555 = 
PAIRP(BgL_cdrzd2361zd2_554); 
if(BgL_test2095z00_555)
{ /* ./Jas/as.scm 195 */
obj_t BgL_cdrzd2366zd2_556;
BgL_cdrzd2366zd2_556 = 
CDR(BgL_cdrzd2361zd2_554); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2096z00_557;
BgL_test2096z00_557 = 
PAIRP(BgL_cdrzd2366zd2_556); 
if(BgL_test2096z00_557)
{ /* ./Jas/as.scm 195 */
obj_t BgL_carzd2369zd2_558;
BgL_carzd2369zd2_558 = 
CAR(BgL_cdrzd2366zd2_556); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2097z00_559;
BgL_test2097z00_559 = 
STRINGP(BgL_carzd2369zd2_558); 
if(BgL_test2097z00_559)
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2098z00_560;
{ /* ./Jas/as.scm 195 */
obj_t BgL_auxz00_2014;
BgL_auxz00_2014 = 
CDR(BgL_cdrzd2366zd2_556); 
BgL_test2098z00_560 = 
NULLP(BgL_auxz00_2014); } 
if(BgL_test2098z00_560)
{ /* ./Jas/as.scm 195 */
obj_t BgL_arg2100z00_561;obj_t BgL_arg2101z00_562;obj_t BgL_arg2102z00_563;
BgL_arg2100z00_561 = 
CAR(BgL_cdrzd2246zd2_539); 
BgL_arg2101z00_562 = 
CAR(BgL_cdrzd2355zd2_552); 
BgL_arg2102z00_563 = 
CAR(BgL_cdrzd2361zd2_554); 
{ /* ./Jas/as.scm 195 */
long BgL_arg2187z00_1218;obj_t BgL_arg2188z00_1219;obj_t BgL_arg2189z00_1220;obj_t BgL_arg2190z00_1221;
BgL_arg2187z00_1218 = 
BGl_aszd2fieldzd2modifiersz00zzjas_asz00(BgL_arg2101z00_562); 
BgL_arg2188z00_1219 = BgL_carzd2369zd2_558; 
BgL_arg2189z00_1220 = BgL_arg2100z00_561; 
BgL_arg2190z00_1221 = BgL_arg2102z00_563; 
{ /* ./Jas/as.scm 195 */
BgL_fieldz00_bglt BgL_auxz00_2022;
BgL_auxz00_2022 = 
BGl_makezd2fieldzd2zzjas_classfilez00(
BINT(BgL_arg2187z00_1218), BgL_arg2188z00_1219, BgL_arg2189z00_1220, BgL_arg2190z00_1221, BFALSE, BFALSE, BFALSE, BFALSE, BNIL); 
BgL_arg2066z00_521 = 
(obj_t)(BgL_auxz00_2022); } } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} }  else 
{ /* ./Jas/as.scm 195 */
obj_t BgL_cdrzd2445zd2_565;
BgL_cdrzd2445zd2_565 = 
CDR(BgL_valuez00_510); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2126z00_566;
{ /* ./Jas/as.scm 195 */
obj_t BgL_auxz00_2029;obj_t BgL_auxz00_2027;
BgL_auxz00_2029 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2027 = 
CAR(BgL_valuez00_510); 
BgL_test2126z00_566 = 
(BgL_auxz00_2027==BgL_auxz00_2029); } 
if(BgL_test2126z00_566)
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2127z00_567;
BgL_test2127z00_567 = 
PAIRP(BgL_cdrzd2445zd2_565); 
if(BgL_test2127z00_567)
{ /* ./Jas/as.scm 195 */
obj_t BgL_cdrzd2452zd2_568;
BgL_cdrzd2452zd2_568 = 
CDR(BgL_cdrzd2445zd2_565); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2128z00_569;
BgL_test2128z00_569 = 
PAIRP(BgL_cdrzd2452zd2_568); 
if(BgL_test2128z00_569)
{ /* ./Jas/as.scm 195 */
obj_t BgL_cdrzd2459zd2_570;
BgL_cdrzd2459zd2_570 = 
CDR(BgL_cdrzd2452zd2_568); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2129z00_571;
BgL_test2129z00_571 = 
PAIRP(BgL_cdrzd2459zd2_570); 
if(BgL_test2129z00_571)
{ /* ./Jas/as.scm 195 */
obj_t BgL_cdrzd2465zd2_572;
BgL_cdrzd2465zd2_572 = 
CDR(BgL_cdrzd2459zd2_570); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2130z00_573;
BgL_test2130z00_573 = 
PAIRP(BgL_cdrzd2465zd2_572); 
if(BgL_test2130z00_573)
{ /* ./Jas/as.scm 195 */
obj_t BgL_carzd2469zd2_574;
BgL_carzd2469zd2_574 = 
CAR(BgL_cdrzd2465zd2_572); 
{ /* ./Jas/as.scm 195 */
bool_t BgL_test2131z00_575;
BgL_test2131z00_575 = 
STRINGP(BgL_carzd2469zd2_574); 
if(BgL_test2131z00_575)
{ /* ./Jas/as.scm 195 */
obj_t BgL_arg2133z00_576;obj_t BgL_arg2135z00_577;obj_t BgL_arg2136z00_578;obj_t BgL_arg2137z00_579;
BgL_arg2133z00_576 = 
CAR(BgL_cdrzd2445zd2_565); 
BgL_arg2135z00_577 = 
CAR(BgL_cdrzd2452zd2_568); 
BgL_arg2136z00_578 = 
CAR(BgL_cdrzd2459zd2_570); 
BgL_arg2137z00_579 = 
CDR(BgL_cdrzd2465zd2_572); 
{ /* ./Jas/as.scm 195 */
BgL_methodz00_bglt BgL_auxz00_2051;
BgL_classz00_530 = BgL_arg2133z00_576; 
BgL_modifiersz00_531 = BgL_arg2135z00_577; 
BgL_tretz00_532 = BgL_arg2136z00_578; 
BgL_namez00_533 = BgL_carzd2469zd2_574; 
BgL_targsz00_534 = BgL_arg2137z00_579; 
{ /* ./Jas/as.scm 211 */
long BgL_arg2195z00_595;obj_t BgL_arg2196z00_596;obj_t BgL_arg2197z00_597;obj_t BgL_arg2198z00_598;
BgL_arg2195z00_595 = 
BGl_aszd2methodzd2modifiersz00zzjas_asz00(BgL_modifiersz00_531); 
BgL_arg2196z00_596 = BgL_namez00_533; 
BgL_arg2197z00_597 = BgL_classz00_530; 
{ /* ./Jas/as.scm 214 */
obj_t BgL_arg2203z00_600;obj_t BgL_arg2204z00_601;
BgL_arg2203z00_600 = 
CNST_TABLE_REF(((long)9)); 
{ /* ./Jas/as.scm 214 */
obj_t BgL_arg2207z00_602;
BgL_arg2207z00_602 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_targsz00_534, BNIL); 
BgL_arg2204z00_601 = 
MAKE_PAIR(BgL_tretz00_532, BgL_arg2207z00_602); } 
BgL_arg2198z00_598 = 
MAKE_PAIR(BgL_arg2203z00_600, BgL_arg2204z00_601); } 
BgL_auxz00_2051 = 
BGl_makezd2methodzd2zzjas_classfilez00(
BINT(BgL_arg2195z00_595), BgL_arg2196z00_596, BgL_arg2197z00_597, BgL_arg2198z00_598, BFALSE, BFALSE, BFALSE, BFALSE, BNIL); } 
BgL_arg2066z00_521 = 
(obj_t)(BgL_auxz00_2051); } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } } } } }  else 
{ /* ./Jas/as.scm 195 */
goto BgL_tagzd2235zd2_536;} } } 
return 
BGl_aszd2assignzd2zzjas_classfilez00(BgL_classfilez00_14, BgL_gnamez00_509, BgL_arg2066z00_521);} }  else 
{ /* ./Jas/as.scm 193 */
BgL_tagzd2219zd2_512:
return 
BGl_jaszd2errorzd2zzjas_classfilez00(BgL_classfilez00_14, BGl_string2969z00zzjas_asz00, BgL_declz00_15);} }  else 
{ /* ./Jas/as.scm 193 */
goto BgL_tagzd2219zd2_512;} } }  else 
{ /* ./Jas/as.scm 193 */
goto BgL_tagzd2219zd2_512;} } } } 
}



/* pathname */
obj_t BGl_pathnamez00zzjas_asz00(obj_t BgL_strz00_16)
{ AN_OBJECT;
{ /* ./Jas/as.scm 218 */
{ /* ./Jas/as.scm 219 */
int BgL_lenz00_603;
BgL_lenz00_603 = 
STRING_LENGTH(BgL_strz00_16); 
{ /* ./Jas/as.scm 219 */
obj_t BgL_resz00_604;
{ /* ./Jas/as.scm 220 */
obj_t BgL_res2800z00_1250;
BgL_res2800z00_1250 = 
make_string(BgL_lenz00_603, ((unsigned char)' ')); 
BgL_resz00_604 = BgL_res2800z00_1250; } 
{ /* ./Jas/as.scm 220 */

{ 
long BgL_iz00_605;
{ /* ./Jas/as.scm 221 */
long BgL_arg2213z00_607;
{ /* ./Jas/as.scm 221 */
long BgL_auxz00_2064;
BgL_auxz00_2064 = 
(long)(BgL_lenz00_603); 
BgL_arg2213z00_607 = 
(BgL_auxz00_2064-((long)1)); } 
BgL_iz00_605 = BgL_arg2213z00_607; 
BgL_loopz00_606:
{ /* ./Jas/as.scm 223 */
bool_t BgL_test2216z00_608;
BgL_test2216z00_608 = 
(BgL_iz00_605==((long)-1)); 
if(BgL_test2216z00_608)
{ /* ./Jas/as.scm 223 */
return BgL_resz00_604;}  else 
{ /* ./Jas/as.scm 225 */
bool_t BgL_test2217z00_609;
{ /* ./Jas/as.scm 225 */
unsigned char BgL_auxz00_2069;
{ /* ./Jas/as.scm 225 */
int BgL_auxz00_2070;
BgL_auxz00_2070 = 
(int)(BgL_iz00_605); 
BgL_auxz00_2069 = 
STRING_REF(BgL_strz00_16, BgL_auxz00_2070); } 
BgL_test2217z00_609 = 
(BgL_auxz00_2069==((unsigned char)'.')); } 
if(BgL_test2217z00_609)
{ /* ./Jas/as.scm 225 */
{ /* ./Jas/as.scm 226 */
int BgL_kz00_1260;
BgL_kz00_1260 = 
(int)(BgL_iz00_605); 
STRING_SET(BgL_resz00_604, BgL_kz00_1260, ((unsigned char)'/')); } 
{ /* ./Jas/as.scm 227 */
long BgL_arg2220z00_610;
BgL_arg2220z00_610 = 
(BgL_iz00_605-((long)1)); 
{ 
long BgL_iz00_2078;
BgL_iz00_2078 = BgL_arg2220z00_610; 
BgL_iz00_605 = BgL_iz00_2078; 
goto BgL_loopz00_606;} } }  else 
{ /* ./Jas/as.scm 225 */
{ /* ./Jas/as.scm 229 */
unsigned char BgL_arg2224z00_611;
{ /* ./Jas/as.scm 229 */
int BgL_auxz00_2079;
BgL_auxz00_2079 = 
(int)(BgL_iz00_605); 
BgL_arg2224z00_611 = 
STRING_REF(BgL_strz00_16, BgL_auxz00_2079); } 
{ /* ./Jas/as.scm 229 */
int BgL_kz00_1267;
BgL_kz00_1267 = 
(int)(BgL_iz00_605); 
STRING_SET(BgL_resz00_604, BgL_kz00_1267, BgL_arg2224z00_611); } } 
{ /* ./Jas/as.scm 230 */
long BgL_arg2228z00_612;
BgL_arg2228z00_612 = 
(BgL_iz00_605-((long)1)); 
{ 
long BgL_iz00_2085;
BgL_iz00_2085 = BgL_arg2228z00_612; 
BgL_iz00_605 = BgL_iz00_2085; 
goto BgL_loopz00_606;} } } } } } } } } } } 
}



/* as-class-modifiers */
long BGl_aszd2classzd2modifiersz00zzjas_asz00(obj_t BgL_modifiersz00_17)
{ AN_OBJECT;
{ /* ./Jas/as.scm 233 */
{ /* ./Jas/as.scm 234 */
long BgL_rz00_615;
BgL_rz00_615 = ((long)0); 
{ 
obj_t BgL_l1436z00_616;
BgL_l1436z00_616 = BgL_modifiersz00_17; 
BgL_forzd2each1437zd2_617:
{ /* ./Jas/as.scm 235 */
bool_t BgL_test2240z00_618;
BgL_test2240z00_618 = 
PAIRP(BgL_l1436z00_616); 
if(BgL_test2240z00_618)
{ /* ./Jas/as.scm 235 */
{ /* ./Jas/as.scm 237 */
obj_t BgL_namez00_619;
BgL_namez00_619 = 
CAR(BgL_l1436z00_616); 
{ /* ./Jas/as.scm 237 */
bool_t BgL_test2241z00_621;
BgL_test2241z00_621 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_619, 
CNST_TABLE_REF(((long)12))); 
if(BgL_test2241z00_621)
{ /* ./Jas/as.scm 238 */
long BgL_xz00_1273;
BgL_xz00_1273 = BgL_rz00_615; 
BgL_rz00_615 = 
(BgL_xz00_1273 | ((long)1)); }  else 
{ /* ./Jas/as.scm 237 */
bool_t BgL_test2243z00_622;
BgL_test2243z00_622 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_619, 
CNST_TABLE_REF(((long)13))); 
if(BgL_test2243z00_622)
{ /* ./Jas/as.scm 239 */
long BgL_xz00_1275;
BgL_xz00_1275 = BgL_rz00_615; 
BgL_rz00_615 = 
(BgL_xz00_1275 | ((long)16)); }  else 
{ /* ./Jas/as.scm 237 */
bool_t BgL_test2245z00_623;
BgL_test2245z00_623 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_619, 
CNST_TABLE_REF(((long)14))); 
if(BgL_test2245z00_623)
{ /* ./Jas/as.scm 240 */
long BgL_xz00_1277;
BgL_xz00_1277 = BgL_rz00_615; 
BgL_rz00_615 = 
(BgL_xz00_1277 | ((long)32)); }  else 
{ /* ./Jas/as.scm 237 */
bool_t BgL_test2247z00_624;
BgL_test2247z00_624 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_619, 
CNST_TABLE_REF(((long)15))); 
if(BgL_test2247z00_624)
{ /* ./Jas/as.scm 241 */
long BgL_xz00_1279;
BgL_xz00_1279 = BgL_rz00_615; 
BgL_rz00_615 = 
(BgL_xz00_1279 | ((long)512)); }  else 
{ /* ./Jas/as.scm 237 */
bool_t BgL_test2249z00_625;
BgL_test2249z00_625 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_619, 
CNST_TABLE_REF(((long)16))); 
if(BgL_test2249z00_625)
{ /* ./Jas/as.scm 242 */
long BgL_xz00_1281;
BgL_xz00_1281 = BgL_rz00_615; 
BgL_rz00_615 = 
(BgL_xz00_1281 | ((long)1024)); }  else 
{ /* ./Jas/as.scm 237 */
FAILURE(BGl_string2970z00zzjas_asz00,BGl_string2971z00zzjas_asz00,BgL_namez00_619);} } } } } } } 
{ /* ./Jas/as.scm 235 */
obj_t BgL_arg2260z00_626;
BgL_arg2260z00_626 = 
CDR(BgL_l1436z00_616); 
{ 
obj_t BgL_l1436z00_2111;
BgL_l1436z00_2111 = BgL_arg2260z00_626; 
BgL_l1436z00_616 = BgL_l1436z00_2111; 
goto BgL_forzd2each1437zd2_617;} } }  else 
{ /* ./Jas/as.scm 235 */((bool_t)1); } } } 
return BgL_rz00_615;} } 
}



/* as-field-modifiers */
long BGl_aszd2fieldzd2modifiersz00zzjas_asz00(obj_t BgL_modifiersz00_18)
{ AN_OBJECT;
{ /* ./Jas/as.scm 247 */
{ /* ./Jas/as.scm 248 */
long BgL_rz00_627;
BgL_rz00_627 = ((long)0); 
{ 
obj_t BgL_l1438z00_628;
BgL_l1438z00_628 = BgL_modifiersz00_18; 
BgL_forzd2each1439zd2_629:
{ /* ./Jas/as.scm 249 */
bool_t BgL_test2265z00_630;
BgL_test2265z00_630 = 
PAIRP(BgL_l1438z00_628); 
if(BgL_test2265z00_630)
{ /* ./Jas/as.scm 249 */
{ /* ./Jas/as.scm 251 */
obj_t BgL_namez00_631;
BgL_namez00_631 = 
CAR(BgL_l1438z00_628); 
{ /* ./Jas/as.scm 251 */
bool_t BgL_test2266z00_633;
BgL_test2266z00_633 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_631, 
CNST_TABLE_REF(((long)12))); 
if(BgL_test2266z00_633)
{ /* ./Jas/as.scm 252 */
long BgL_xz00_1289;
BgL_xz00_1289 = BgL_rz00_627; 
BgL_rz00_627 = 
(BgL_xz00_1289 | ((long)1)); }  else 
{ /* ./Jas/as.scm 251 */
bool_t BgL_test2268z00_634;
BgL_test2268z00_634 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_631, 
CNST_TABLE_REF(((long)17))); 
if(BgL_test2268z00_634)
{ /* ./Jas/as.scm 253 */
long BgL_xz00_1291;
BgL_xz00_1291 = BgL_rz00_627; 
BgL_rz00_627 = 
(BgL_xz00_1291 | ((long)2)); }  else 
{ /* ./Jas/as.scm 251 */
bool_t BgL_test2270z00_635;
BgL_test2270z00_635 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_631, 
CNST_TABLE_REF(((long)18))); 
if(BgL_test2270z00_635)
{ /* ./Jas/as.scm 254 */
long BgL_xz00_1293;
BgL_xz00_1293 = BgL_rz00_627; 
BgL_rz00_627 = 
(BgL_xz00_1293 | ((long)4)); }  else 
{ /* ./Jas/as.scm 251 */
bool_t BgL_test2272z00_636;
BgL_test2272z00_636 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_631, 
CNST_TABLE_REF(((long)19))); 
if(BgL_test2272z00_636)
{ /* ./Jas/as.scm 255 */
long BgL_xz00_1295;
BgL_xz00_1295 = BgL_rz00_627; 
BgL_rz00_627 = 
(BgL_xz00_1295 | ((long)8)); }  else 
{ /* ./Jas/as.scm 251 */
bool_t BgL_test2274z00_637;
BgL_test2274z00_637 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_631, 
CNST_TABLE_REF(((long)13))); 
if(BgL_test2274z00_637)
{ /* ./Jas/as.scm 256 */
long BgL_xz00_1297;
BgL_xz00_1297 = BgL_rz00_627; 
BgL_rz00_627 = 
(BgL_xz00_1297 | ((long)16)); }  else 
{ /* ./Jas/as.scm 251 */
bool_t BgL_test2276z00_638;
BgL_test2276z00_638 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_631, 
CNST_TABLE_REF(((long)20))); 
if(BgL_test2276z00_638)
{ /* ./Jas/as.scm 257 */
long BgL_xz00_1299;
BgL_xz00_1299 = BgL_rz00_627; 
BgL_rz00_627 = 
(BgL_xz00_1299 | ((long)64)); }  else 
{ /* ./Jas/as.scm 251 */
bool_t BgL_test2278z00_639;
BgL_test2278z00_639 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_631, 
CNST_TABLE_REF(((long)21))); 
if(BgL_test2278z00_639)
{ /* ./Jas/as.scm 258 */
long BgL_xz00_1301;
BgL_xz00_1301 = BgL_rz00_627; 
BgL_rz00_627 = 
(BgL_xz00_1301 | ((long)128)); }  else 
{ /* ./Jas/as.scm 251 */
FAILURE(BGl_string2970z00zzjas_asz00,BGl_string2972z00zzjas_asz00,BgL_namez00_631);} } } } } } } } } 
{ /* ./Jas/as.scm 249 */
obj_t BgL_arg2290z00_640;
BgL_arg2290z00_640 = 
CDR(BgL_l1438z00_628); 
{ 
obj_t BgL_l1438z00_2145;
BgL_l1438z00_2145 = BgL_arg2290z00_640; 
BgL_l1438z00_628 = BgL_l1438z00_2145; 
goto BgL_forzd2each1439zd2_629;} } }  else 
{ /* ./Jas/as.scm 249 */((bool_t)1); } } } 
return BgL_rz00_627;} } 
}



/* as-method-modifiers */
long BGl_aszd2methodzd2modifiersz00zzjas_asz00(obj_t BgL_modifiersz00_19)
{ AN_OBJECT;
{ /* ./Jas/as.scm 263 */
{ /* ./Jas/as.scm 264 */
long BgL_rz00_641;
BgL_rz00_641 = ((long)0); 
{ 
obj_t BgL_l1440z00_642;
BgL_l1440z00_642 = BgL_modifiersz00_19; 
BgL_forzd2each1441zd2_643:
{ /* ./Jas/as.scm 265 */
bool_t BgL_test2295z00_644;
BgL_test2295z00_644 = 
PAIRP(BgL_l1440z00_642); 
if(BgL_test2295z00_644)
{ /* ./Jas/as.scm 265 */
{ /* ./Jas/as.scm 267 */
obj_t BgL_namez00_645;
BgL_namez00_645 = 
CAR(BgL_l1440z00_642); 
{ /* ./Jas/as.scm 267 */
bool_t BgL_test2296z00_647;
BgL_test2296z00_647 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_645, 
CNST_TABLE_REF(((long)12))); 
if(BgL_test2296z00_647)
{ /* ./Jas/as.scm 268 */
long BgL_xz00_1309;
BgL_xz00_1309 = BgL_rz00_641; 
BgL_rz00_641 = 
(BgL_xz00_1309 | ((long)1)); }  else 
{ /* ./Jas/as.scm 267 */
bool_t BgL_test2298z00_648;
BgL_test2298z00_648 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_645, 
CNST_TABLE_REF(((long)17))); 
if(BgL_test2298z00_648)
{ /* ./Jas/as.scm 269 */
long BgL_xz00_1311;
BgL_xz00_1311 = BgL_rz00_641; 
BgL_rz00_641 = 
(BgL_xz00_1311 | ((long)2)); }  else 
{ /* ./Jas/as.scm 267 */
bool_t BgL_test2300z00_649;
BgL_test2300z00_649 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_645, 
CNST_TABLE_REF(((long)18))); 
if(BgL_test2300z00_649)
{ /* ./Jas/as.scm 270 */
long BgL_xz00_1313;
BgL_xz00_1313 = BgL_rz00_641; 
BgL_rz00_641 = 
(BgL_xz00_1313 | ((long)4)); }  else 
{ /* ./Jas/as.scm 267 */
bool_t BgL_test2302z00_650;
BgL_test2302z00_650 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_645, 
CNST_TABLE_REF(((long)19))); 
if(BgL_test2302z00_650)
{ /* ./Jas/as.scm 271 */
long BgL_xz00_1315;
BgL_xz00_1315 = BgL_rz00_641; 
BgL_rz00_641 = 
(BgL_xz00_1315 | ((long)8)); }  else 
{ /* ./Jas/as.scm 267 */
bool_t BgL_test2304z00_651;
BgL_test2304z00_651 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_645, 
CNST_TABLE_REF(((long)13))); 
if(BgL_test2304z00_651)
{ /* ./Jas/as.scm 272 */
long BgL_xz00_1317;
BgL_xz00_1317 = BgL_rz00_641; 
BgL_rz00_641 = 
(BgL_xz00_1317 | ((long)16)); }  else 
{ /* ./Jas/as.scm 267 */
bool_t BgL_test2306z00_652;
BgL_test2306z00_652 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_645, 
CNST_TABLE_REF(((long)22))); 
if(BgL_test2306z00_652)
{ /* ./Jas/as.scm 273 */
long BgL_xz00_1319;
BgL_xz00_1319 = BgL_rz00_641; 
BgL_rz00_641 = 
(BgL_xz00_1319 | ((long)32)); }  else 
{ /* ./Jas/as.scm 267 */
bool_t BgL_test2308z00_653;
BgL_test2308z00_653 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_645, 
CNST_TABLE_REF(((long)23))); 
if(BgL_test2308z00_653)
{ /* ./Jas/as.scm 274 */
long BgL_xz00_1321;
BgL_xz00_1321 = BgL_rz00_641; 
BgL_rz00_641 = 
(BgL_xz00_1321 | ((long)256)); }  else 
{ /* ./Jas/as.scm 267 */
bool_t BgL_test2310z00_654;
BgL_test2310z00_654 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_namez00_645, 
CNST_TABLE_REF(((long)16))); 
if(BgL_test2310z00_654)
{ /* ./Jas/as.scm 275 */
long BgL_xz00_1323;
BgL_xz00_1323 = BgL_rz00_641; 
BgL_rz00_641 = 
(BgL_xz00_1323 | ((long)1024)); }  else 
{ /* ./Jas/as.scm 267 */
FAILURE(BGl_string2970z00zzjas_asz00,BGl_string2971z00zzjas_asz00,BgL_namez00_645);} } } } } } } } } } 
{ /* ./Jas/as.scm 265 */
obj_t BgL_arg2323z00_655;
BgL_arg2323z00_655 = 
CDR(BgL_l1440z00_642); 
{ 
obj_t BgL_l1440z00_2183;
BgL_l1440z00_2183 = BgL_arg2323z00_655; 
BgL_l1440z00_642 = BgL_l1440z00_2183; 
goto BgL_forzd2each1441zd2_643;} } }  else 
{ /* ./Jas/as.scm 265 */((bool_t)1); } } } 
return BgL_rz00_641;} } 
}



/* as-method */
obj_t BGl_aszd2methodzd2zzjas_asz00(BgL_classfilez00_bglt BgL_classfilez00_22, obj_t BgL_declz00_23)
{ AN_OBJECT;
{ /* ./Jas/as.scm 293 */
{ 
obj_t BgL_gnamez00_657;obj_t BgL_paramsz00_658;obj_t BgL_localsz00_659;obj_t BgL_codez00_660;
{ /* ./Jas/as.scm 294 */
bool_t BgL_test2329z00_664;
BgL_test2329z00_664 = 
PAIRP(BgL_declz00_23); 
if(BgL_test2329z00_664)
{ /* ./Jas/as.scm 294 */
obj_t BgL_cdrzd2507zd2_665;
BgL_cdrzd2507zd2_665 = 
CDR(BgL_declz00_23); 
{ /* ./Jas/as.scm 294 */
bool_t BgL_test2330z00_666;
{ /* ./Jas/as.scm 294 */
obj_t BgL_auxz00_2189;obj_t BgL_auxz00_2187;
BgL_auxz00_2189 = 
CNST_TABLE_REF(((long)1)); 
BgL_auxz00_2187 = 
CAR(BgL_declz00_23); 
BgL_test2330z00_666 = 
(BgL_auxz00_2187==BgL_auxz00_2189); } 
if(BgL_test2330z00_666)
{ /* ./Jas/as.scm 294 */
bool_t BgL_test2331z00_667;
BgL_test2331z00_667 = 
PAIRP(BgL_cdrzd2507zd2_665); 
if(BgL_test2331z00_667)
{ /* ./Jas/as.scm 294 */
obj_t BgL_cdrzd2513zd2_668;
BgL_cdrzd2513zd2_668 = 
CDR(BgL_cdrzd2507zd2_665); 
{ /* ./Jas/as.scm 294 */
bool_t BgL_test2332z00_669;
BgL_test2332z00_669 = 
PAIRP(BgL_cdrzd2513zd2_668); 
if(BgL_test2332z00_669)
{ /* ./Jas/as.scm 294 */
obj_t BgL_cdrzd2519zd2_670;
BgL_cdrzd2519zd2_670 = 
CDR(BgL_cdrzd2513zd2_668); 
{ /* ./Jas/as.scm 294 */
bool_t BgL_test2333z00_671;
BgL_test2333z00_671 = 
PAIRP(BgL_cdrzd2519zd2_670); 
if(BgL_test2333z00_671)
{ /* ./Jas/as.scm 294 */
obj_t BgL_arg2335z00_672;obj_t BgL_arg2336z00_673;obj_t BgL_arg2337z00_674;obj_t BgL_arg2339z00_675;
BgL_arg2335z00_672 = 
CAR(BgL_cdrzd2507zd2_665); 
BgL_arg2336z00_673 = 
CAR(BgL_cdrzd2513zd2_668); 
BgL_arg2337z00_674 = 
CAR(BgL_cdrzd2519zd2_670); 
BgL_arg2339z00_675 = 
CDR(BgL_cdrzd2519zd2_670); 
{ /* ./Jas/as.scm 294 */
BgL_methodz00_bglt BgL_auxz00_2205;
BgL_gnamez00_657 = BgL_arg2335z00_672; 
BgL_paramsz00_658 = BgL_arg2336z00_673; 
BgL_localsz00_659 = BgL_arg2337z00_674; 
BgL_codez00_660 = BgL_arg2339z00_675; 
{ /* ./Jas/as.scm 296 */
BgL_classfilez00_bglt BgL_obj1324z00_1342;obj_t BgL_val1323z00_1343;
BgL_obj1324z00_1342 = BgL_classfilez00_22; 
BgL_val1323z00_1343 = BgL_gnamez00_657; 
((((BgL_classfilez00_bglt)CREF(BgL_obj1324z00_1342))->BgL_currentzd2methodzd2) = ((obj_t)BgL_val1323z00_1343), BUNSPEC); } 
{ /* ./Jas/as.scm 297 */
BgL_methodz00_bglt BgL_mz00_678;
BgL_mz00_678 = 
BGl_declaredzd2methodzd2zzjas_classfilez00(BgL_classfilez00_22, BgL_gnamez00_657); 
BGl_poolzd2localzd2methodz00zzjas_classfilez00(BgL_classfilez00_22, BgL_mz00_678); 
{ /* ./Jas/as.scm 300 */
obj_t BgL_arg2365z00_680;
{ /* ./Jas/as.scm 300 */
BgL_attributez00_bglt BgL_arg2368z00_681;obj_t BgL_arg2369z00_682;
BgL_arg2368z00_681 = 
BGl_aszd2codezd2zzjas_asz00(BgL_classfilez00_22, BgL_paramsz00_658, BgL_localsz00_659, BgL_codez00_660); 
{ /* ./Jas/as.scm 300 */
BgL_fieldzd2orzd2methodz00_bglt BgL_obj1144z00_1344;
BgL_obj1144z00_1344 = 
(BgL_fieldzd2orzd2methodz00_bglt)(BgL_mz00_678); 
BgL_arg2369z00_682 = 
(((BgL_fieldzd2orzd2methodz00_bglt)CREF(BgL_obj1144z00_1344))->BgL_attributesz00); } 
{ /* ./Jas/as.scm 300 */
obj_t BgL_auxz00_2212;
BgL_auxz00_2212 = 
(obj_t)(BgL_arg2368z00_681); 
BgL_arg2365z00_680 = 
MAKE_PAIR(BgL_auxz00_2212, BgL_arg2369z00_682); } } 
{ /* ./Jas/as.scm 300 */
BgL_fieldzd2orzd2methodz00_bglt BgL_obj1146z00_1345;obj_t BgL_val1145z00_1346;
BgL_obj1146z00_1345 = 
(BgL_fieldzd2orzd2methodz00_bglt)(BgL_mz00_678); 
BgL_val1145z00_1346 = BgL_arg2365z00_680; 
((((BgL_fieldzd2orzd2methodz00_bglt)CREF(BgL_obj1146z00_1345))->BgL_attributesz00) = ((obj_t)BgL_val1145z00_1346), BUNSPEC); } } 
BgL_auxz00_2205 = BgL_mz00_678; } 
return 
(obj_t)(BgL_auxz00_2205);} }  else 
{ /* ./Jas/as.scm 294 */
BgL_tagzd2496zd2_662:
FAILURE(BGl_string2970z00zzjas_asz00,BGl_string2973z00zzjas_asz00,BgL_declz00_23);} } }  else 
{ /* ./Jas/as.scm 294 */
goto BgL_tagzd2496zd2_662;} } }  else 
{ /* ./Jas/as.scm 294 */
goto BgL_tagzd2496zd2_662;} }  else 
{ /* ./Jas/as.scm 294 */
goto BgL_tagzd2496zd2_662;} } }  else 
{ /* ./Jas/as.scm 294 */
goto BgL_tagzd2496zd2_662;} } } } 
}



/* as-code */
BgL_attributez00_bglt BGl_aszd2codezd2zzjas_asz00(BgL_classfilez00_bglt BgL_classfilez00_24, obj_t BgL_paramz00_25, obj_t BgL_localsz00_26, obj_t BgL_codez00_27)
{ AN_OBJECT;
{ /* ./Jas/as.scm 305 */
{ /* ./Jas/as.scm 306 */
obj_t BgL_l1z00_683;
BgL_l1z00_683 = 
PROCEDURE_ENTRY(BGl_resolvezd2opcodeszd2zzjas_opcodez00)(BGl_resolvezd2opcodeszd2zzjas_opcodez00, 
(obj_t)(BgL_classfilez00_24), BgL_paramz00_25, BgL_localsz00_26, BgL_codez00_27, BEOA); 
{ /* ./Jas/as.scm 306 */
obj_t BgL_lpz00_684;
BgL_lpz00_684 = 
PROCEDURE_ENTRY(BGl_peepz00zzjas_peepz00)(BGl_peepz00zzjas_peepz00, 
(obj_t)(BgL_classfilez00_24), BgL_paramz00_25, BgL_localsz00_26, BgL_l1z00_683, BEOA); 
{ /* ./Jas/as.scm 307 */
obj_t BgL_lwz00_685;
BgL_lwz00_685 = 
PROCEDURE_ENTRY(BGl_resolvezd2widezd2zzjas_widez00)(BGl_resolvezd2widezd2zzjas_widez00, 
(obj_t)(BgL_classfilez00_24), BgL_lpz00_684, BEOA); 
{ /* ./Jas/as.scm 308 */
obj_t BgL_l3z00_686;
BgL_l3z00_686 = 
PROCEDURE_ENTRY(BGl_resolvezd2labelszd2zzjas_labelsz00)(BGl_resolvezd2labelszd2zzjas_labelsz00, 
(obj_t)(BgL_classfilez00_24), BgL_lwz00_685, BEOA); 
{ /* ./Jas/as.scm 309 */
obj_t BgL_handlersz00_687;
BgL_handlersz00_687 = 
BGl_getzd2handlerszd2zzjas_asz00(BgL_l3z00_686); 
{ /* ./Jas/as.scm 310 */
obj_t BgL_linesz00_688;
{ /* ./Jas/as.scm 311 */
obj_t BgL_arg2499z00_745;
BgL_arg2499z00_745 = 
BGl_getzd2lineszd2zzjas_asz00(BgL_l3z00_686, ((long)0)); 
BgL_linesz00_688 = 
BGl_linezd2compresszd2zzjas_asz00(BgL_arg2499z00_745, 
BINT(((long)-1))); } 
{ /* ./Jas/as.scm 311 */
obj_t BgL_localvarsz00_689;
BgL_localvarsz00_689 = 
BGl_getzd2localvarszd2zzjas_asz00(BgL_l3z00_686); 
{ /* ./Jas/as.scm 312 */
obj_t BgL_bytecodez00_690;
BgL_bytecodez00_690 = 
BGl_getzd2bytecodezd2zzjas_asz00(BgL_l3z00_686); 
{ /* ./Jas/as.scm 313 */

{ /* ./Jas/as.scm 314 */
long BgL_nz00_691;
BgL_nz00_691 = 
bgl_list_length(BgL_bytecodez00_690); 
{ /* ./Jas/as.scm 315 */
bool_t BgL_test2375z00_692;
{ /* ./Jas/as.scm 315 */
bool_t BgL_test2398z00_702;
BgL_test2398z00_702 = 
(BgL_nz00_691>=((long)8000)); 
if(BgL_test2398z00_702)
{ /* ./Jas/as.scm 315 */
if(
CBOOL(BGl_za2jaszd2warningza2zd2zzjas_asz00))
{ /* ./Jas/as.scm 315 */
BgL_test2375z00_692 = ((bool_t)0); }  else 
{ /* ./Jas/as.scm 315 */
BgL_test2375z00_692 = ((bool_t)1); } }  else 
{ /* ./Jas/as.scm 315 */
BgL_test2375z00_692 = ((bool_t)0); } } 
if(BgL_test2375z00_692)
{ /* ./Jas/as.scm 316 */
obj_t BgL_arg2377z00_693;
BgL_arg2377z00_693 = 
(((BgL_classfilez00_bglt)CREF(BgL_classfilez00_24))->BgL_currentzd2methodzd2); 
{ /* ./Jas/as.scm 316 */
obj_t BgL_list2383z00_697;
{ /* ./Jas/as.scm 316 */
obj_t BgL_arg2385z00_698;
{ /* ./Jas/as.scm 316 */
obj_t BgL_arg2388z00_699;
{ /* ./Jas/as.scm 316 */
obj_t BgL_arg2391z00_700;
{ /* ./Jas/as.scm 316 */
obj_t BgL_arg2394z00_701;
BgL_arg2394z00_701 = 
MAKE_PAIR(BGl_string2974z00zzjas_asz00, BNIL); 
BgL_arg2391z00_700 = 
MAKE_PAIR(BGl_string2975z00zzjas_asz00, BgL_arg2394z00_701); } 
{ /* ./Jas/as.scm 316 */
obj_t BgL_auxz00_2246;
BgL_auxz00_2246 = 
BINT(BgL_nz00_691); 
BgL_arg2388z00_699 = 
MAKE_PAIR(BgL_auxz00_2246, BgL_arg2391z00_700); } } 
BgL_arg2385z00_698 = 
MAKE_PAIR(BGl_string2976z00zzjas_asz00, BgL_arg2388z00_699); } 
BgL_list2383z00_697 = 
MAKE_PAIR(BgL_arg2377z00_693, BgL_arg2385z00_698); } 
BGl_warningz00zz__errorz00(BgL_list2383z00_697); } }  else 
{ /* ./Jas/as.scm 315 */BFALSE; } } } 
{ /* ./Jas/as.scm 320 */
bool_t BgL_test2401z00_703;
{ /* ./Jas/as.scm 320 */
obj_t BgL_objz00_1353;
BgL_objz00_1353 = BgL_linesz00_688; 
BgL_test2401z00_703 = 
NULLP(BgL_objz00_1353); } 
if(BgL_test2401z00_703)
{ /* ./Jas/as.scm 320 */
obj_t BgL_arg2403z00_704;
{ /* ./Jas/as.scm 320 */
obj_t BgL_auxz00_2256;obj_t BgL_auxz00_2254;
BgL_auxz00_2256 = 
BINT(((long)0)); 
BgL_auxz00_2254 = 
BINT(((long)0)); 
BgL_arg2403z00_704 = 
MAKE_PAIR(BgL_auxz00_2254, BgL_auxz00_2256); } 
BgL_linesz00_688 = 
MAKE_PAIR(BgL_arg2403z00_704, BNIL); }  else 
{ /* ./Jas/as.scm 320 */BFALSE; } } 
{ /* ./Jas/as.scm 322 */
obj_t BgL_arg2409z00_706;int BgL_arg2410z00_707;long BgL_arg2411z00_708;obj_t BgL_arg2412z00_709;
BgL_arg2409z00_706 = 
CNST_TABLE_REF(((long)24)); 
BgL_arg2410z00_707 = 
BGl_poolzd2namezd2zzjas_classfilez00(BgL_classfilez00_24, BGl_string2977z00zzjas_asz00); 
{ /* ./Jas/as.scm 324 */
long BgL_arg2417z00_711;
{ /* ./Jas/as.scm 324 */
long BgL_arg2420z00_712;long BgL_arg2421z00_713;
BgL_arg2420z00_712 = 
bgl_list_length(BgL_bytecodez00_690); 
{ /* ./Jas/as.scm 324 */
long BgL_arg2425z00_714;long BgL_arg2427z00_715;
{ /* ./Jas/as.scm 324 */
long BgL_auxz00_2263;
BgL_auxz00_2263 = 
bgl_list_length(BgL_handlersz00_687); 
BgL_arg2425z00_714 = 
(((long)8)*BgL_auxz00_2263); } 
{ /* ./Jas/as.scm 325 */
long BgL_arg2435z00_718;long BgL_arg2436z00_719;
{ /* ./Jas/as.scm 325 */
bool_t BgL_test2438z00_720;
{ /* ./Jas/as.scm 325 */
obj_t BgL_objz00_1354;
BgL_objz00_1354 = BgL_linesz00_688; 
BgL_test2438z00_720 = 
NULLP(BgL_objz00_1354); } 
if(BgL_test2438z00_720)
{ /* ./Jas/as.scm 325 */
BgL_arg2435z00_718 = ((long)0); }  else 
{ /* ./Jas/as.scm 325 */
long BgL_arg2441z00_722;
{ /* ./Jas/as.scm 325 */
long BgL_arg2445z00_724;
BgL_arg2445z00_724 = 
bgl_list_length(BgL_linesz00_688); 
BgL_arg2441z00_722 = 
(((long)4)*BgL_arg2445z00_724); } 
BgL_arg2435z00_718 = 
(((long)8)+BgL_arg2441z00_722); } } 
if(
NULLP(BgL_localvarsz00_689))
{ /* ./Jas/as.scm 326 */
BgL_arg2436z00_719 = ((long)0); }  else 
{ /* ./Jas/as.scm 326 */
long BgL_auxz00_2273;
{ /* ./Jas/as.scm 326 */
long BgL_auxz00_2274;
BgL_auxz00_2274 = 
bgl_list_length(BgL_localvarsz00_689); 
BgL_auxz00_2273 = 
(((long)10)*BgL_auxz00_2274); } 
BgL_arg2436z00_719 = 
(((long)8)+BgL_auxz00_2273); } 
BgL_arg2427z00_715 = 
(BgL_arg2435z00_718+BgL_arg2436z00_719); } 
BgL_arg2421z00_713 = 
(BgL_arg2425z00_714+BgL_arg2427z00_715); } 
BgL_arg2417z00_711 = 
(BgL_arg2420z00_712+BgL_arg2421z00_713); } 
BgL_arg2411z00_708 = 
(((long)12)+BgL_arg2417z00_711); } 
{ /* ./Jas/as.scm 327 */
obj_t BgL_arg2461z00_730;obj_t BgL_arg2462z00_731;
BgL_arg2461z00_730 = 
BGl_stkzd2analysiszd2zzjas_stackz00(
(obj_t)(BgL_classfilez00_24), BgL_lpz00_684); 
{ /* ./Jas/as.scm 331 */
obj_t BgL_arg2466z00_732;
{ /* ./Jas/as.scm 331 */
obj_t BgL_arg2469z00_733;
{ /* ./Jas/as.scm 331 */
obj_t BgL_arg2472z00_734;
{ /* ./Jas/as.scm 331 */
obj_t BgL_arg2475z00_735;obj_t BgL_arg2476z00_736;
{ /* ./Jas/as.scm 331 */
bool_t BgL_test2478z00_737;
{ /* ./Jas/as.scm 331 */
obj_t BgL_objz00_1356;
BgL_objz00_1356 = BgL_linesz00_688; 
BgL_test2478z00_737 = 
NULLP(BgL_objz00_1356); } 
if(BgL_test2478z00_737)
{ /* ./Jas/as.scm 331 */
BgL_arg2475z00_735 = BNIL; }  else 
{ /* ./Jas/as.scm 332 */
BgL_attributez00_bglt BgL_arg2480z00_738;
BgL_arg2480z00_738 = 
BGl_makezd2linezd2attributez00zzjas_asz00(BgL_classfilez00_24, BgL_linesz00_688); 
{ /* ./Jas/as.scm 332 */
obj_t BgL_auxz00_2287;
BgL_auxz00_2287 = 
(obj_t)(BgL_arg2480z00_738); 
BgL_arg2475z00_735 = 
MAKE_PAIR(BgL_auxz00_2287, BNIL); } } } 
{ /* ./Jas/as.scm 333 */
obj_t BgL_arg2486z00_740;
{ /* ./Jas/as.scm 333 */
bool_t BgL_test2489z00_742;
BgL_test2489z00_742 = 
NULLP(BgL_localvarsz00_689); 
if(BgL_test2489z00_742)
{ /* ./Jas/as.scm 333 */
BgL_arg2486z00_740 = BNIL; }  else 
{ /* ./Jas/as.scm 334 */
BgL_attributez00_bglt BgL_arg2491z00_743;
BgL_arg2491z00_743 = 
BGl_makezd2localvarszd2zzjas_asz00(BgL_classfilez00_24, BgL_localvarsz00_689); 
{ /* ./Jas/as.scm 334 */
obj_t BgL_auxz00_2293;
BgL_auxz00_2293 = 
(obj_t)(BgL_arg2491z00_743); 
BgL_arg2486z00_740 = 
MAKE_PAIR(BgL_auxz00_2293, BNIL); } } } 
BgL_arg2476z00_736 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2486z00_740, BNIL); } 
BgL_arg2472z00_734 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2475z00_735, BgL_arg2476z00_736); } 
BgL_arg2469z00_733 = 
MAKE_PAIR(BgL_handlersz00_687, BgL_arg2472z00_734); } 
BgL_arg2466z00_732 = 
MAKE_PAIR(BgL_bytecodez00_690, BgL_arg2469z00_733); } 
BgL_arg2462z00_731 = 
MAKE_PAIR(BGl_za2za2lastzd2numberzd2ofzd2localsza2za2zd2zzjas_peepz00, BgL_arg2466z00_732); } 
BgL_arg2412z00_709 = 
MAKE_PAIR(BgL_arg2461z00_730, BgL_arg2462z00_731); } 
return 
BGl_makezd2attributezd2zzjas_classfilez00(BgL_arg2409z00_706, 
BINT(BgL_arg2410z00_707), 
BINT(BgL_arg2411z00_708), BgL_arg2412z00_709);} } } } } } } } } } } 
}



/* make-line-attribute */
BgL_attributez00_bglt BGl_makezd2linezd2attributez00zzjas_asz00(BgL_classfilez00_bglt BgL_classfilez00_28, obj_t BgL_linesz00_29)
{ AN_OBJECT;
{ /* ./Jas/as.scm 336 */
{ /* ./Jas/as.scm 338 */
obj_t BgL_arg2509z00_747;int BgL_arg2510z00_748;long BgL_arg2511z00_749;obj_t BgL_arg2512z00_750;
BgL_arg2509z00_747 = 
CNST_TABLE_REF(((long)25)); 
BgL_arg2510z00_748 = 
BGl_poolzd2namezd2zzjas_classfilez00(BgL_classfilez00_28, BGl_string2978z00zzjas_asz00); 
{ /* ./Jas/as.scm 340 */
long BgL_auxz00_2307;
{ /* ./Jas/as.scm 340 */
long BgL_auxz00_2308;
BgL_auxz00_2308 = 
bgl_list_length(BgL_linesz00_29); 
BgL_auxz00_2307 = 
(((long)4)*BgL_auxz00_2308); } 
BgL_arg2511z00_749 = 
(((long)2)+BgL_auxz00_2307); } 
BgL_arg2512z00_750 = BgL_linesz00_29; 
return 
BGl_makezd2attributezd2zzjas_classfilez00(BgL_arg2509z00_747, 
BINT(BgL_arg2510z00_748), 
BINT(BgL_arg2511z00_749), BgL_arg2512z00_750);} } 
}



/* make-localvars */
BgL_attributez00_bglt BGl_makezd2localvarszd2zzjas_asz00(BgL_classfilez00_bglt BgL_classfilez00_30, obj_t BgL_localvarsz00_31)
{ AN_OBJECT;
{ /* ./Jas/as.scm 343 */
{ /* ./Jas/as.scm 345 */
obj_t BgL_arg2525z00_755;int BgL_arg2526z00_756;long BgL_arg2527z00_757;obj_t BgL_arg2528z00_758;
BgL_arg2525z00_755 = 
CNST_TABLE_REF(((long)26)); 
BgL_arg2526z00_756 = 
BGl_poolzd2namezd2zzjas_classfilez00(BgL_classfilez00_30, BGl_string2979z00zzjas_asz00); 
{ /* ./Jas/as.scm 347 */
long BgL_auxz00_2317;
{ /* ./Jas/as.scm 347 */
long BgL_auxz00_2318;
BgL_auxz00_2318 = 
bgl_list_length(BgL_localvarsz00_31); 
BgL_auxz00_2317 = 
(((long)10)*BgL_auxz00_2318); } 
BgL_arg2527z00_757 = 
(((long)2)+BgL_auxz00_2317); } 
BgL_arg2528z00_758 = BgL_localvarsz00_31; 
return 
BGl_makezd2attributezd2zzjas_classfilez00(BgL_arg2525z00_755, 
BINT(BgL_arg2526z00_756), 
BINT(BgL_arg2527z00_757), BgL_arg2528z00_758);} } 
}



/* get-handlers */
obj_t BGl_getzd2handlerszd2zzjas_asz00(obj_t BgL_lz00_32)
{ AN_OBJECT;
{ /* ./Jas/as.scm 350 */
BGl_getzd2handlerszd2zzjas_asz00:
{ /* ./Jas/as.scm 351 */
bool_t BgL_test2540z00_763;
BgL_test2540z00_763 = 
NULLP(BgL_lz00_32); 
if(BgL_test2540z00_763)
{ /* ./Jas/as.scm 351 */
return BgL_lz00_32;}  else 
{ /* ./Jas/as.scm 352 */
bool_t BgL_test2541z00_764;
{ /* ./Jas/as.scm 352 */
obj_t BgL_auxz00_2331;obj_t BgL_auxz00_2327;
BgL_auxz00_2331 = 
BINT(((long)202)); 
{ /* ./Jas/as.scm 352 */
obj_t BgL_auxz00_2328;
BgL_auxz00_2328 = 
CAR(BgL_lz00_32); 
BgL_auxz00_2327 = 
CAR(BgL_auxz00_2328); } 
BgL_test2541z00_764 = 
(BgL_auxz00_2327==BgL_auxz00_2331); } 
if(BgL_test2541z00_764)
{ /* ./Jas/as.scm 352 */
{ /* ./Jas/as.scm 352 */
obj_t BgL_arg2543z00_765;obj_t BgL_arg2544z00_766;
{ /* ./Jas/as.scm 352 */
obj_t BgL_auxz00_2335;
BgL_auxz00_2335 = 
CAR(BgL_lz00_32); 
BgL_arg2543z00_765 = 
CDR(BgL_auxz00_2335); } 
{ /* ./Jas/as.scm 352 */
obj_t BgL_arg2548z00_767;
BgL_arg2548z00_767 = 
CDR(BgL_lz00_32); 
BgL_arg2544z00_766 = 
BGl_getzd2handlerszd2zzjas_asz00(BgL_arg2548z00_767); } 
return 
MAKE_PAIR(BgL_arg2543z00_765, BgL_arg2544z00_766);} }  else 
{ /* ./Jas/as.scm 352 */
{ /* ./Jas/as.scm 353 */
obj_t BgL_arg2552z00_768;
BgL_arg2552z00_768 = 
CDR(BgL_lz00_32); 
{ 
obj_t BgL_lz00_2342;
BgL_lz00_2342 = BgL_arg2552z00_768; 
BgL_lz00_32 = BgL_lz00_2342; 
goto BGl_getzd2handlerszd2zzjas_asz00;} } } } } } 
}



/* get-lines */
obj_t BGl_getzd2lineszd2zzjas_asz00(obj_t BgL_lz00_33, long BgL_pcz00_34)
{ AN_OBJECT;
{ /* ./Jas/as.scm 355 */
BGl_getzd2lineszd2zzjas_asz00:
{ /* ./Jas/as.scm 356 */
bool_t BgL_test2561z00_771;
BgL_test2561z00_771 = 
NULLP(BgL_lz00_33); 
if(BgL_test2561z00_771)
{ /* ./Jas/as.scm 356 */
return BgL_lz00_33;}  else 
{ /* ./Jas/as.scm 357 */
bool_t BgL_test2562z00_772;
{ /* ./Jas/as.scm 357 */
obj_t BgL_auxz00_2349;obj_t BgL_auxz00_2345;
BgL_auxz00_2349 = 
BINT(((long)202)); 
{ /* ./Jas/as.scm 357 */
obj_t BgL_auxz00_2346;
BgL_auxz00_2346 = 
CAR(BgL_lz00_33); 
BgL_auxz00_2345 = 
CAR(BgL_auxz00_2346); } 
BgL_test2562z00_772 = 
(BgL_auxz00_2345==BgL_auxz00_2349); } 
if(BgL_test2562z00_772)
{ /* ./Jas/as.scm 357 */
{ /* ./Jas/as.scm 357 */
obj_t BgL_arg2564z00_773;
BgL_arg2564z00_773 = 
CDR(BgL_lz00_33); 
{ 
obj_t BgL_lz00_2354;
BgL_lz00_2354 = BgL_arg2564z00_773; 
BgL_lz00_33 = BgL_lz00_2354; 
goto BGl_getzd2lineszd2zzjas_asz00;} } }  else 
{ /* ./Jas/as.scm 358 */
bool_t BgL_test2567z00_774;
{ /* ./Jas/as.scm 358 */
obj_t BgL_auxz00_2359;obj_t BgL_auxz00_2355;
BgL_auxz00_2359 = 
BINT(((long)203)); 
{ /* ./Jas/as.scm 358 */
obj_t BgL_auxz00_2356;
BgL_auxz00_2356 = 
CAR(BgL_lz00_33); 
BgL_auxz00_2355 = 
CAR(BgL_auxz00_2356); } 
BgL_test2567z00_774 = 
(BgL_auxz00_2355==BgL_auxz00_2359); } 
if(BgL_test2567z00_774)
{ /* ./Jas/as.scm 358 */
{ /* ./Jas/as.scm 358 */
obj_t BgL_arg2569z00_775;obj_t BgL_arg2570z00_776;
{ /* ./Jas/as.scm 358 */
obj_t BgL_arg2573z00_777;
{ /* ./Jas/as.scm 358 */
obj_t BgL_auxz00_2363;
{ /* ./Jas/as.scm 358 */
obj_t BgL_auxz00_2364;
BgL_auxz00_2364 = 
CAR(BgL_lz00_33); 
BgL_auxz00_2363 = 
CDR(BgL_auxz00_2364); } 
BgL_arg2573z00_777 = 
CAR(BgL_auxz00_2363); } 
{ /* ./Jas/as.scm 358 */
obj_t BgL_auxz00_2368;
BgL_auxz00_2368 = 
BINT(BgL_pcz00_34); 
BgL_arg2569z00_775 = 
MAKE_PAIR(BgL_auxz00_2368, BgL_arg2573z00_777); } } 
{ /* ./Jas/as.scm 358 */
obj_t BgL_arg2577z00_778;
BgL_arg2577z00_778 = 
CDR(BgL_lz00_33); 
BgL_arg2570z00_776 = 
BGl_getzd2lineszd2zzjas_asz00(BgL_arg2577z00_778, BgL_pcz00_34); } 
return 
MAKE_PAIR(BgL_arg2569z00_775, BgL_arg2570z00_776);} }  else 
{ /* ./Jas/as.scm 359 */
bool_t BgL_test2580z00_779;
{ /* ./Jas/as.scm 359 */
obj_t BgL_auxz00_2378;obj_t BgL_auxz00_2374;
BgL_auxz00_2378 = 
BINT(((long)204)); 
{ /* ./Jas/as.scm 359 */
obj_t BgL_auxz00_2375;
BgL_auxz00_2375 = 
CAR(BgL_lz00_33); 
BgL_auxz00_2374 = 
CAR(BgL_auxz00_2375); } 
BgL_test2580z00_779 = 
(BgL_auxz00_2374==BgL_auxz00_2378); } 
if(BgL_test2580z00_779)
{ /* ./Jas/as.scm 359 */
{ /* ./Jas/as.scm 359 */
obj_t BgL_arg2584z00_780;
BgL_arg2584z00_780 = 
CDR(BgL_lz00_33); 
{ 
obj_t BgL_lz00_2383;
BgL_lz00_2383 = BgL_arg2584z00_780; 
BgL_lz00_33 = BgL_lz00_2383; 
goto BGl_getzd2lineszd2zzjas_asz00;} } }  else 
{ /* ./Jas/as.scm 360 */
bool_t BgL_test2587z00_781;
{ /* ./Jas/as.scm 360 */
obj_t BgL_auxz00_2388;obj_t BgL_auxz00_2384;
BgL_auxz00_2388 = 
BINT(((long)205)); 
{ /* ./Jas/as.scm 360 */
obj_t BgL_auxz00_2385;
BgL_auxz00_2385 = 
CAR(BgL_lz00_33); 
BgL_auxz00_2384 = 
CAR(BgL_auxz00_2385); } 
BgL_test2587z00_781 = 
(BgL_auxz00_2384==BgL_auxz00_2388); } 
if(BgL_test2587z00_781)
{ /* ./Jas/as.scm 360 */
{ /* ./Jas/as.scm 360 */
obj_t BgL_arg2589z00_782;
BgL_arg2589z00_782 = 
CDR(BgL_lz00_33); 
{ 
obj_t BgL_lz00_2393;
BgL_lz00_2393 = BgL_arg2589z00_782; 
BgL_lz00_33 = BgL_lz00_2393; 
goto BGl_getzd2lineszd2zzjas_asz00;} } }  else 
{ /* ./Jas/as.scm 360 */
{ /* ./Jas/as.scm 361 */
obj_t BgL_arg2593z00_783;long BgL_arg2594z00_784;
BgL_arg2593z00_783 = 
CDR(BgL_lz00_33); 
{ /* ./Jas/as.scm 361 */
long BgL_auxz00_2395;
BgL_auxz00_2395 = 
bgl_list_length(
CAR(BgL_lz00_33)); 
BgL_arg2594z00_784 = 
(BgL_pcz00_34+BgL_auxz00_2395); } 
{ 
long BgL_pcz00_2400;obj_t BgL_lz00_2399;
BgL_lz00_2399 = BgL_arg2593z00_783; 
BgL_pcz00_2400 = BgL_arg2594z00_784; 
BgL_pcz00_34 = BgL_pcz00_2400; 
BgL_lz00_33 = BgL_lz00_2399; 
goto BGl_getzd2lineszd2zzjas_asz00;} } } } } } } } } 
}



/* line-compress */
obj_t BGl_linezd2compresszd2zzjas_asz00(obj_t BgL_lz00_35, obj_t BgL_linez00_36)
{ AN_OBJECT;
{ /* ./Jas/as.scm 363 */
BGl_linezd2compresszd2zzjas_asz00:
{ /* ./Jas/as.scm 364 */
bool_t BgL_test2625z00_795;
{ /* ./Jas/as.scm 364 */
long BgL_n1z00_1400;long BgL_n2z00_1401;
BgL_n1z00_1400 = 
(long)CINT(BgL_linez00_36); 
BgL_n2z00_1401 = 
(long)CINT(BGl_za2za2maxlineza2za2z00zzjas_asz00); 
BgL_test2625z00_795 = 
(BgL_n1z00_1400>BgL_n2z00_1401); } 
if(BgL_test2625z00_795)
{ /* ./Jas/as.scm 364 */
BGl_za2za2maxlineza2za2z00zzjas_asz00 = BgL_linez00_36; }  else 
{ /* ./Jas/as.scm 364 */BFALSE; } } 
{ /* ./Jas/as.scm 366 */
bool_t BgL_test2627z00_796;
BgL_test2627z00_796 = 
NULLP(BgL_lz00_35); 
if(BgL_test2627z00_796)
{ /* ./Jas/as.scm 366 */
return BgL_lz00_35;}  else 
{ /* ./Jas/as.scm 367 */
bool_t BgL_test2628z00_797;
{ /* ./Jas/as.scm 367 */
obj_t BgL_auxz00_2407;
{ /* ./Jas/as.scm 367 */
obj_t BgL_auxz00_2408;
BgL_auxz00_2408 = 
CAR(BgL_lz00_35); 
BgL_auxz00_2407 = 
CDR(BgL_auxz00_2408); } 
BgL_test2628z00_797 = 
(BgL_auxz00_2407==BgL_linez00_36); } 
if(BgL_test2628z00_797)
{ /* ./Jas/as.scm 367 */
{ /* ./Jas/as.scm 367 */
obj_t BgL_arg2630z00_798;
BgL_arg2630z00_798 = 
CDR(BgL_lz00_35); 
{ 
obj_t BgL_lz00_2414;
BgL_lz00_2414 = BgL_arg2630z00_798; 
BgL_lz00_35 = BgL_lz00_2414; 
goto BGl_linezd2compresszd2zzjas_asz00;} } }  else 
{ /* ./Jas/as.scm 367 */
{ /* ./Jas/as.scm 369 */
obj_t BgL_arg2634z00_799;obj_t BgL_arg2635z00_800;
BgL_arg2634z00_799 = 
CAR(BgL_lz00_35); 
{ /* ./Jas/as.scm 369 */
obj_t BgL_arg2639z00_801;obj_t BgL_arg2640z00_802;
BgL_arg2639z00_801 = 
CDR(BgL_lz00_35); 
{ /* ./Jas/as.scm 369 */
obj_t BgL_auxz00_2417;
BgL_auxz00_2417 = 
CAR(BgL_lz00_35); 
BgL_arg2640z00_802 = 
CDR(BgL_auxz00_2417); } 
BgL_arg2635z00_800 = 
BGl_linezd2compresszd2zzjas_asz00(BgL_arg2639z00_801, BgL_arg2640z00_802); } 
return 
MAKE_PAIR(BgL_arg2634z00_799, BgL_arg2635z00_800);} } } } } 
}



/* get-localvars */
obj_t BGl_getzd2localvarszd2zzjas_asz00(obj_t BgL_lz00_37)
{ AN_OBJECT;
{ /* ./Jas/as.scm 371 */
BGl_getzd2localvarszd2zzjas_asz00:
{ /* ./Jas/as.scm 373 */
bool_t BgL_test2650z00_804;
BgL_test2650z00_804 = 
NULLP(BgL_lz00_37); 
if(BgL_test2650z00_804)
{ /* ./Jas/as.scm 373 */
return BgL_lz00_37;}  else 
{ /* ./Jas/as.scm 374 */
bool_t BgL_test2651z00_805;
{ /* ./Jas/as.scm 374 */
obj_t BgL_auxz00_2428;obj_t BgL_auxz00_2424;
BgL_auxz00_2428 = 
BINT(((long)205)); 
{ /* ./Jas/as.scm 374 */
obj_t BgL_auxz00_2425;
BgL_auxz00_2425 = 
CAR(BgL_lz00_37); 
BgL_auxz00_2424 = 
CAR(BgL_auxz00_2425); } 
BgL_test2651z00_805 = 
(BgL_auxz00_2424==BgL_auxz00_2428); } 
if(BgL_test2651z00_805)
{ /* ./Jas/as.scm 374 */
{ /* ./Jas/as.scm 375 */
obj_t BgL_arg2653z00_806;obj_t BgL_arg2654z00_807;
{ /* ./Jas/as.scm 375 */
obj_t BgL_auxz00_2432;
BgL_auxz00_2432 = 
CAR(BgL_lz00_37); 
BgL_arg2653z00_806 = 
CDR(BgL_auxz00_2432); } 
{ /* ./Jas/as.scm 375 */
obj_t BgL_arg2658z00_808;
BgL_arg2658z00_808 = 
CDR(BgL_lz00_37); 
BgL_arg2654z00_807 = 
BGl_getzd2localvarszd2zzjas_asz00(BgL_arg2658z00_808); } 
return 
MAKE_PAIR(BgL_arg2653z00_806, BgL_arg2654z00_807);} }  else 
{ /* ./Jas/as.scm 374 */
{ /* ./Jas/as.scm 376 */
obj_t BgL_arg2662z00_809;
BgL_arg2662z00_809 = 
CDR(BgL_lz00_37); 
{ 
obj_t BgL_lz00_2439;
BgL_lz00_2439 = BgL_arg2662z00_809; 
BgL_lz00_37 = BgL_lz00_2439; 
goto BGl_getzd2localvarszd2zzjas_asz00;} } } } } } 
}



/* get-bytecode */
obj_t BGl_getzd2bytecodezd2zzjas_asz00(obj_t BgL_lz00_38)
{ AN_OBJECT;
{ /* ./Jas/as.scm 379 */
BGl_getzd2bytecodezd2zzjas_asz00:
if(
NULLP(BgL_lz00_38))
{ /* ./Jas/as.scm 380 */
return BgL_lz00_38;}  else 
{ /* ./Jas/as.scm 381 */
bool_t BgL_testz00_2442;
{ /* ./Jas/as.scm 381 */
obj_t BgL_auxz00_2447;obj_t BgL_auxz00_2443;
BgL_auxz00_2447 = 
BINT(((long)202)); 
{ /* ./Jas/as.scm 381 */
obj_t BgL_auxz00_2444;
BgL_auxz00_2444 = 
CAR(BgL_lz00_38); 
BgL_auxz00_2443 = 
CAR(BgL_auxz00_2444); } 
BgL_testz00_2442 = 
(BgL_auxz00_2443==BgL_auxz00_2447); } 
if(BgL_testz00_2442)
{ /* ./Jas/as.scm 381 */
{ 
obj_t BgL_lz00_2450;
BgL_lz00_2450 = 
CDR(BgL_lz00_38); 
BgL_lz00_38 = BgL_lz00_2450; 
goto BGl_getzd2bytecodezd2zzjas_asz00;} }  else 
{ /* ./Jas/as.scm 382 */
bool_t BgL_testz00_2452;
{ /* ./Jas/as.scm 382 */
obj_t BgL_auxz00_2457;obj_t BgL_auxz00_2453;
BgL_auxz00_2457 = 
BINT(((long)203)); 
{ /* ./Jas/as.scm 382 */
obj_t BgL_auxz00_2454;
BgL_auxz00_2454 = 
CAR(BgL_lz00_38); 
BgL_auxz00_2453 = 
CAR(BgL_auxz00_2454); } 
BgL_testz00_2452 = 
(BgL_auxz00_2453==BgL_auxz00_2457); } 
if(BgL_testz00_2452)
{ /* ./Jas/as.scm 382 */
{ 
obj_t BgL_lz00_2460;
BgL_lz00_2460 = 
CDR(BgL_lz00_38); 
BgL_lz00_38 = BgL_lz00_2460; 
goto BGl_getzd2bytecodezd2zzjas_asz00;} }  else 
{ /* ./Jas/as.scm 383 */
bool_t BgL_testz00_2462;
{ /* ./Jas/as.scm 383 */
obj_t BgL_auxz00_2467;obj_t BgL_auxz00_2463;
BgL_auxz00_2467 = 
BINT(((long)204)); 
{ /* ./Jas/as.scm 383 */
obj_t BgL_auxz00_2464;
BgL_auxz00_2464 = 
CAR(BgL_lz00_38); 
BgL_auxz00_2463 = 
CAR(BgL_auxz00_2464); } 
BgL_testz00_2462 = 
(BgL_auxz00_2463==BgL_auxz00_2467); } 
if(BgL_testz00_2462)
{ /* ./Jas/as.scm 383 */
{ 
obj_t BgL_lz00_2470;
BgL_lz00_2470 = 
CDR(BgL_lz00_38); 
BgL_lz00_38 = BgL_lz00_2470; 
goto BGl_getzd2bytecodezd2zzjas_asz00;} }  else 
{ /* ./Jas/as.scm 384 */
bool_t BgL_testz00_2472;
{ /* ./Jas/as.scm 384 */
obj_t BgL_auxz00_2477;obj_t BgL_auxz00_2473;
BgL_auxz00_2477 = 
BINT(((long)205)); 
{ /* ./Jas/as.scm 384 */
obj_t BgL_auxz00_2474;
BgL_auxz00_2474 = 
CAR(BgL_lz00_38); 
BgL_auxz00_2473 = 
CAR(BgL_auxz00_2474); } 
BgL_testz00_2472 = 
(BgL_auxz00_2473==BgL_auxz00_2477); } 
if(BgL_testz00_2472)
{ /* ./Jas/as.scm 384 */
{ 
obj_t BgL_lz00_2480;
BgL_lz00_2480 = 
CDR(BgL_lz00_38); 
BgL_lz00_38 = BgL_lz00_2480; 
goto BGl_getzd2bytecodezd2zzjas_asz00;} }  else 
{ /* ./Jas/as.scm 384 */
return 
bgl_append2(
CAR(BgL_lz00_38), 
BGl_getzd2bytecodezd2zzjas_asz00(
CDR(BgL_lz00_38)));} } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzjas_asz00()
{ AN_OBJECT;
{ /* ./Jas/as.scm 1 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzjas_asz00()
{ AN_OBJECT;
{ /* ./Jas/as.scm 1 */
BGl_modulezd2initializa7ationz75zzjas_libz00(((long)38394), "jas_as"); 
BGl_modulezd2initializa7ationz75zzjas_classfilez00(((long)21074), "jas_as"); 
BGl_modulezd2initializa7ationz75zzjas_producez00(((long)62323), "jas_as"); 
BGl_modulezd2initializa7ationz75zzjas_opcodez00(((long)19751), "jas_as"); 
BGl_modulezd2initializa7ationz75zzjas_peepz00(((long)20893), "jas_as"); 
BGl_modulezd2initializa7ationz75zzjas_widez00(((long)43026), "jas_as"); 
BGl_modulezd2initializa7ationz75zzjas_labelsz00(((long)32670), "jas_as"); 
return 
BGl_modulezd2initializa7ationz75zzjas_stackz00(((long)65036), "jas_as");} 
}

