/*===========================================================================*/
/*   (Expand/initial.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 Expand/initial.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_idz00;
   obj_t BgL_namez00;
   obj_t BgL_siza7eza7;
   obj_t BgL_classz00;
   obj_t BgL_coercezd2tozd2;
   obj_t BgL_parentsz00;
   bool_t BgL_initzf3zf3;
   bool_t BgL_magiczf3zf3;
   obj_t BgL_z42z42;
   obj_t BgL_aliasz00;
   obj_t BgL_pointedzd2tozd2byz00;
   obj_t BgL_tvectorz00;
   obj_t BgL_locationz00;
   obj_t BgL_importzd2locationzd2;
} *BgL_typez00_bglt;


BGL_IMPORT bool_t BGl_2zd3zd3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_boundzd2checkzd2zzexpand_installz00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zzexpand_installz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_ifz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_lambdaz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_definez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_expanderz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_exitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_garithmetiquez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_iarithmetiquez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_farithmetiquez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_letz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_casez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_structz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_mapz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_assertz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_objectz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_prognz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_miscz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztools_locationz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzengine_paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzexpand_srfizd20zd2(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zztype_typez00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zzast_identz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__readerz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__macroz00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(long, char *);
BGL_IMPORT obj_t BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(long, char *);
BGL_IMPORT obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_za2genericityza2z00zzengine_paramz00;
static obj_t BGl_methodzd2initzd2zzexpand_installz00();
extern obj_t BGl_initializa7ezd2Genvz12z67zzexpand_expanderz00();
static obj_t BGl_zc3anonymousza31926ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31990ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32865ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33385ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31435ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
BGL_IMPORT long bgl_list_length(obj_t);
static obj_t BGl_zc3anonymousza32657ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t open_input_string(obj_t);
extern obj_t BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza32806ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31786ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31933ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31996ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32663ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31516ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_readz00zz__readerz00(obj_t);
static obj_t BGl_zc3anonymousza32812ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t string_append(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31801ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_dispz00zzexpand_installz00(obj_t);
static obj_t BGl_zc3anonymousza32951ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31793ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31940ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32669ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl__installzd2initialzd2expanderz00zzexpand_installz00(obj_t);
static obj_t BGl_callzd2checkzd2zzexpand_installz00(obj_t, obj_t, char *, obj_t);
static obj_t BGl_zc3anonymousza33189ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2compilerzd2debugza2zd2zzengine_paramz00;
static obj_t BGl_zc3anonymousza31734ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31807ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32746ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t string_to_bstring(char *);
static obj_t BGl_zc3anonymousza32540ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31948ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_installzd2compilerzd2expanderz00zz__macroz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza34355ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
BGL_IMPORT obj_t BGl_gensymz00zz__r4_symbols_6_4z00;
static obj_t BGl_zc3anonymousza31814ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32262ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31606ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
extern obj_t BGl_findzd2locationzd2zztools_locationz00(obj_t);
static obj_t BGl_zc3anonymousza32546ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31954ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_loopz00zzexpand_installz00(obj_t, obj_t, obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32128ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
extern obj_t BGl_initializa7ezd2Oenvz12z67zzexpand_expanderz00();
static obj_t BGl_zc3anonymousza32341ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza34994ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31613ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31823ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
extern obj_t BGl_epairifyz00zztools_miscz00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_installzd2initialzd2expanderz00zzexpand_installz00();
static obj_t BGl_zc3anonymousza33502ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31962ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zzexpand_installz00();
static obj_t BGl_loopz72z72zzexpand_installz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza33285ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32064ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32003ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33644ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32486ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31831ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2unsafezd2rangeza2zd2zzengine_paramz00;
static obj_t BGl_zc3anonymousza31968ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32426ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33784ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zzexpand_installz00();
static obj_t BGl_zc3anonymousza31268ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32218ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32492ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32009ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zzexpand_installz00 = BUNSPEC;
static obj_t BGl_zc3anonymousza35119ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31975ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33790ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33100ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
extern obj_t BGl_za2profilezd2modeza2zd2zzengine_paramz00;
static obj_t BGl_zc3anonymousza32992ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_libraryzd2moduleszd2initz00zzexpand_installz00();
static obj_t BGl_zc3anonymousza31698ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza33796ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza31983ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_zc3anonymousza32021ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_toplevelzd2initzd2zzexpand_installz00();
static obj_t BGl_zc3anonymousza32859ze3z83zzexpand_installz00(obj_t, obj_t, obj_t);
static obj_t BGl_mapzd2checkzd2zzexpand_installz00(obj_t, obj_t);
extern obj_t BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(obj_t);
BGL_IMPORT obj_t string_append_3(obj_t, obj_t, obj_t);
static obj_t __cnst[ 148 ] ;


extern obj_t BGl_expandzd2widenz12zd2envz12zzexpand_objectz00;
extern obj_t BGl_expandzd2letzd2envz00zzexpand_letz00;
extern obj_t BGl_expandzd2eqzf3zd2envzf3zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2gzf2zd2envzf2zzexpand_garithmetiquez00;
extern obj_t BGl_expandzd2forzd2eachzd2envzd2zzexpand_mapz00;
extern obj_t BGl_expandzd2izd2zd2envzd2zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2assertzd2envz00zzexpand_assertz00;
extern obj_t BGl_expandzd2izd3zd2envzd3zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2structzd2envz00zzexpand_structz00;
extern obj_t BGl_expandzd2casezd2envz00zzexpand_casez00;
DEFINE_STRING( BGl_string6440z00zzexpand_installz00, BgL_bgl_string6440za700za7za7expand_installza7006469z00, "(@ display-2 __r4_output_6_10_3) (@ display-char foreign) (@ display-flonum foreign) (@ display-fixnum foreign) (@ display-symbol foreign) (@ display-string foreign) length correct-arity? error/c-location warning/c-location location append-2 list? eappend-2 quote sqrtfl-ur atan-2fl-ur current-input-port c-create-vector v (unspecified) c-make-vector vector-set-ur! vector-ref-ur vector-bound-check? vector-length c-string-append c-string-append-3 string? symbol? substring-ur string-set-ur! string-ref-ur string-bound-check? blit-string-ur! integer->char-ur c-cons __r4_pairs_and_lists_6_3 write-char-2 __r4_ports_6_10_1 current-output-port __r4_output_6_10_3 newline-1 port number? ((@ %set-mvalues-number! __r5_control_features_6_4) 0) %set-mvalues-val! val3_ val2_ val1_ val0_ %set-mvalues-number! list val_ %get-mvalues-val __r5_control_features_6_4 @ GC-profile-push GC-profile-pop GC-collect-profile-push value begin profile/gc profile cond-expand shrink! widen! duplicate co-instantiate instantiate with-access asser"
"t call-with-values values exact->inexact inexact->exact fprint print write-char display newline apply cons* integer->char blit-string! string-ref string-set! substring symbol-append string-append vector-ref vector-set! make-vector vector read/rp read case labels letrec let let* atan-2fl sqrtfl atanfl minfl maxfl -fx +fx eq? max min sin cos >= <= > < = - / * + equal? every? any? filter! filter for-each map cons string-length eappend append warning error unwind-protect bind-exit jump-exit set-exit set! define-struct define-method define-generic define-inline define lambda not if ", 1608 );
DEFINE_STRING( BGl_string6439z00zzexpand_installz00, BgL_bgl_string6439za700za7za7expand_installza7006470z00, ": various lists length", 22 );
DEFINE_STRING( BGl_string6438z00zzexpand_installz00, BgL_bgl_string6438za700za7za7expand_installza7006471z00, ": incorrect function arity", 26 );
DEFINE_STRING( BGl_string6437z00zzexpand_installz00, BgL_bgl_string6437za700za7za7expand_installza7006472z00, ": argument not a list", 21 );
DEFINE_STRING( BGl_string6436z00zzexpand_installz00, BgL_bgl_string6436za700za7za7expand_installza7006473z00, "Illegal expression", 18 );
DEFINE_STRING( BGl_string6435z00zzexpand_installz00, BgL_bgl_string6435za700za7za7expand_installza7006474z00, ": index out of bound", 20 );
DEFINE_STRING( BGl_string6434z00zzexpand_installz00, BgL_bgl_string6434za700za7za7expand_installza7006475z00, ": argument not a ", 17 );
DEFINE_STRING( BGl_string6433z00zzexpand_installz00, BgL_bgl_string6433za700za7za7expand_installza7006476z00, "Illegal `append' form", 21 );
DEFINE_STRING( BGl_string6432z00zzexpand_installz00, BgL_bgl_string6432za700za7za7expand_installza7006477z00, "Illegal `eappend' form", 22 );
DEFINE_STRING( BGl_string6431z00zzexpand_installz00, BgL_bgl_string6431za700za7za7expand_installza7006478z00, "Illegal 'string-length' form", 28 );
DEFINE_STRING( BGl_string6430z00zzexpand_installz00, BgL_bgl_string6430za700za7za7expand_installza7006479z00, "Illegal `cons' form", 19 );
DEFINE_STRING( BGl_string6429z00zzexpand_installz00, BgL_bgl_string6429za700za7za7expand_installza7006480z00, "Illegal `equal?' form", 21 );
DEFINE_STRING( BGl_string6428z00zzexpand_installz00, BgL_bgl_string6428za700za7za7expand_installza7006481z00, "Illegal `sqrtfl' call", 21 );
DEFINE_STRING( BGl_string6427z00zzexpand_installz00, BgL_bgl_string6427za700za7za7expand_installza7006482z00, "Illegal `atan-2fl' call", 23 );
DEFINE_STRING( BGl_string6426z00zzexpand_installz00, BgL_bgl_string6426za700za7za7expand_installza7006483z00, "Illegal `read' form", 19 );
DEFINE_STRING( BGl_string6425z00zzexpand_installz00, BgL_bgl_string6425za700za7za7expand_installza7006484z00, "Illegal `read/rp' form", 22 );
DEFINE_STRING( BGl_string6424z00zzexpand_installz00, BgL_bgl_string6424za700za7za7expand_installza7006485z00, "Illegal `vector-set!' form", 26 );
DEFINE_STRING( BGl_string6423z00zzexpand_installz00, BgL_bgl_string6423za700za7za7expand_installza7006486z00, "Illegal `vector-ref' form", 25 );
DEFINE_STRING( BGl_string6422z00zzexpand_installz00, BgL_bgl_string6422za700za7za7expand_installza7006487z00, "Illegal `string-set!' form", 26 );
DEFINE_STRING( BGl_string6421z00zzexpand_installz00, BgL_bgl_string6421za700za7za7expand_installza7006488z00, "Illegal `string-ref' form", 25 );
DEFINE_STRING( BGl_string6420z00zzexpand_installz00, BgL_bgl_string6420za700za7za7expand_installza7006489z00, "Illegal `blit-string!' form", 27 );
DEFINE_STRING( BGl_string6419z00zzexpand_installz00, BgL_bgl_string6419za700za7za7expand_installza7006490z00, "Illegal `integer->char' call", 28 );
DEFINE_STRING( BGl_string6418z00zzexpand_installz00, BgL_bgl_string6418za700za7za7expand_installza7006491z00, "Illegal `apply' form", 20 );
DEFINE_STRING( BGl_string6417z00zzexpand_installz00, BgL_bgl_string6417za700za7za7expand_installza7006492z00, "Illegal form", 12 );
DEFINE_STRING( BGl_string6416z00zzexpand_installz00, BgL_bgl_string6416za700za7za7expand_installza7006493z00, "profile", 7 );
DEFINE_EXPORT_PROCEDURE( BGl_installzd2initialzd2expanderzd2envzd2zzexpand_installz00, BgL_bgl__installza7d2initialza7d2expanderza700za7za7expand_installza7006494z00, BGl__installzd2initialzd2expanderz00zzexpand_installz00, 0L, 0 );
extern obj_t BGl_expandzd2notzd2envz00zzexpand_ifz00;
extern obj_t BGl_expandzd2fminzd2envz00zzexpand_farithmetiquez00;
extern obj_t BGl_expandzd2gze3zd2envze3zzexpand_garithmetiquez00;
extern obj_t BGl_expandzd2inlinezd2envz00zzexpand_definez00;
extern obj_t BGl_expandzd2izc3zd2envzc3zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2letza2zd2envza2zzexpand_letz00;
DEFINE_STATIC_PROCEDURE( BGl_proc6356z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31268za7e3za783za7za7expand_installza7006495za7, BGl_zc3anonymousza31268ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6357z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31435za7e3za783za7za7expand_installza7006496za7, BGl_zc3anonymousza31435ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6358z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31516za7e3za783za7za7expand_installza7006497za7, BGl_zc3anonymousza31516ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6360z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31613za7e3za783za7za7expand_installza7006498za7, BGl_zc3anonymousza31613ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6359z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31606za7e3za783za7za7expand_installza7006499za7, BGl_zc3anonymousza31606ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6361z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31698za7e3za783za7za7expand_installza7006500za7, BGl_zc3anonymousza31698ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6362z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31734za7e3za783za7za7expand_installza7006501za7, BGl_zc3anonymousza31734ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6363z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31786za7e3za783za7za7expand_installza7006502za7, BGl_zc3anonymousza31786ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6364z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31793za7e3za783za7za7expand_installza7006503za7, BGl_zc3anonymousza31793ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6365z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31801za7e3za783za7za7expand_installza7006504za7, BGl_zc3anonymousza31801ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6366z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31807za7e3za783za7za7expand_installza7006505za7, BGl_zc3anonymousza31807ze3z83zzexpand_installz00, 0L, 2 );
extern obj_t BGl_expandzd2mapzd2envz00zzexpand_mapz00;
DEFINE_STATIC_PROCEDURE( BGl_proc6367z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31814za7e3za783za7za7expand_installza7006506za7, BGl_zc3anonymousza31814ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6368z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31823za7e3za783za7za7expand_installza7006507za7, BGl_zc3anonymousza31823ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6370z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31926za7e3za783za7za7expand_installza7006508za7, BGl_zc3anonymousza31926ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6369z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31831za7e3za783za7za7expand_installza7006509za7, BGl_zc3anonymousza31831ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6371z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31933za7e3za783za7za7expand_installza7006510za7, BGl_zc3anonymousza31933ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6372z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31940za7e3za783za7za7expand_installza7006511za7, BGl_zc3anonymousza31940ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6373z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31948za7e3za783za7za7expand_installza7006512za7, BGl_zc3anonymousza31948ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6374z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31954za7e3za783za7za7expand_installza7006513za7, BGl_zc3anonymousza31954ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6375z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31962za7e3za783za7za7expand_installza7006514za7, BGl_zc3anonymousza31962ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6376z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31968za7e3za783za7za7expand_installza7006515za7, BGl_zc3anonymousza31968ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6377z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31975za7e3za783za7za7expand_installza7006516za7, BGl_zc3anonymousza31975ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6378z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31983za7e3za783za7za7expand_installza7006517za7, BGl_zc3anonymousza31983ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6380z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31996za7e3za783za7za7expand_installza7006518za7, BGl_zc3anonymousza31996ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6379z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a31990za7e3za783za7za7expand_installza7006519za7, BGl_zc3anonymousza31990ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6381z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32003za7e3za783za7za7expand_installza7006520za7, BGl_zc3anonymousza32003ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6382z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32009za7e3za783za7za7expand_installza7006521za7, BGl_zc3anonymousza32009ze3z83zzexpand_installz00, 0L, 2 );
extern obj_t BGl_expandzd2ize3zd3zd2envz30zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2gzd2zd2envzd2zzexpand_garithmetiquez00;
DEFINE_STATIC_PROCEDURE( BGl_proc6383z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32021za7e3za783za7za7expand_installza7006522za7, BGl_zc3anonymousza32021ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6384z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32064za7e3za783za7za7expand_installza7006523za7, BGl_zc3anonymousza32064ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6385z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32128za7e3za783za7za7expand_installza7006524za7, BGl_zc3anonymousza32128ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6386z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32218za7e3za783za7za7expand_installza7006525za7, BGl_zc3anonymousza32218ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6387z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32262za7e3za783za7za7expand_installza7006526za7, BGl_zc3anonymousza32262ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6388z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32341za7e3za783za7za7expand_installza7006527za7, BGl_zc3anonymousza32341ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6400z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32859za7e3za783za7za7expand_installza7006528za7, BGl_zc3anonymousza32859ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6390z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32486za7e3za783za7za7expand_installza7006529za7, BGl_zc3anonymousza32486ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6389z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32426za7e3za783za7za7expand_installza7006530za7, BGl_zc3anonymousza32426ze3z83zzexpand_installz00, 0L, 2 );
extern obj_t BGl_expandzd2zd2fxzd2envzd2zzexpand_iarithmetiquez00;
DEFINE_STATIC_PROCEDURE( BGl_proc6401z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32865za7e3za783za7za7expand_installza7006531za7, BGl_zc3anonymousza32865ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6391z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32492za7e3za783za7za7expand_installza7006532za7, BGl_zc3anonymousza32492ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6402z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32951za7e3za783za7za7expand_installza7006533za7, BGl_zc3anonymousza32951ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6392z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32540za7e3za783za7za7expand_installza7006534za7, BGl_zc3anonymousza32540ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6403z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32992za7e3za783za7za7expand_installza7006535za7, BGl_zc3anonymousza32992ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6393z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32546za7e3za783za7za7expand_installza7006536za7, BGl_zc3anonymousza32546ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6404z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a33100za7e3za783za7za7expand_installza7006537za7, BGl_zc3anonymousza33100ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6394z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32657za7e3za783za7za7expand_installza7006538za7, BGl_zc3anonymousza32657ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6405z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a33189za7e3za783za7za7expand_installza7006539za7, BGl_zc3anonymousza33189ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6395z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32663za7e3za783za7za7expand_installza7006540za7, BGl_zc3anonymousza32663ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6406z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a33285za7e3za783za7za7expand_installza7006541za7, BGl_zc3anonymousza33285ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6396z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32669za7e3za783za7za7expand_installza7006542za7, BGl_zc3anonymousza32669ze3z83zzexpand_installz00, 0L, 2 );
extern obj_t BGl_expandzd2lambdazd2envz00zzexpand_lambdaz00;
DEFINE_STATIC_PROCEDURE( BGl_proc6407z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a33385za7e3za783za7za7expand_installza7006543za7, BGl_zc3anonymousza33385ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6397z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32746za7e3za783za7za7expand_installza7006544za7, BGl_zc3anonymousza32746ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6408z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a33502za7e3za783za7za7expand_installza7006545za7, BGl_zc3anonymousza33502ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6398z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32806za7e3za783za7za7expand_installza7006546za7, BGl_zc3anonymousza32806ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6410z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a33784za7e3za783za7za7expand_installza7006547za7, BGl_zc3anonymousza33784ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6409z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a33644za7e3za783za7za7expand_installza7006548za7, BGl_zc3anonymousza33644ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6399z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a32812za7e3za783za7za7expand_installza7006549za7, BGl_zc3anonymousza32812ze3z83zzexpand_installz00, 0L, 2 );
extern obj_t BGl_expandzd2izb2zd2envzb2zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2gzd3zd2envzd3zzexpand_garithmetiquez00;
DEFINE_STATIC_PROCEDURE( BGl_proc6411z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a33790za7e3za783za7za7expand_installza7006550za7, BGl_zc3anonymousza33790ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6412z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a33796za7e3za783za7za7expand_installza7006551za7, BGl_zc3anonymousza33796ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6413z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a34355za7e3za783za7za7expand_installza7006552za7, BGl_zc3anonymousza34355ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6414z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a34994za7e3za783za7za7expand_installza7006553za7, BGl_zc3anonymousza34994ze3z83zzexpand_installz00, 0L, 2 );
DEFINE_STATIC_PROCEDURE( BGl_proc6415z00zzexpand_installz00, BgL_bgl_za7c3anonymousza7a35119za7e3za783za7za7expand_installza7006554za7, BGl_zc3anonymousza35119ze3z83zzexpand_installz00, 0L, 2 );
extern obj_t BGl_expandzd2gze3zd3zd2envz30zzexpand_garithmetiquez00;
extern obj_t BGl_expandzd2zb2fxzd2envzb2zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2ifzd2envz00zzexpand_ifz00;
extern obj_t BGl_expandzd2condzd2expandzd2envzd2zzexpand_srfizd20zd2;
extern obj_t BGl_expandzd2setz12zd2envz12zzexpand_definez00;
extern obj_t BGl_expandzd2labelszd2envz00zzexpand_letz00;
extern obj_t BGl_expandzd2shrinkz12zd2envz12zzexpand_objectz00;
extern obj_t BGl_expandzd2letreczd2envz00zzexpand_letz00;
extern obj_t BGl_expandzd2iza2zd2envza2zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2gzc3zd2envzc3zzexpand_garithmetiquez00;
extern obj_t BGl_expandzd2methodzd2envz00zzexpand_definez00;
extern obj_t BGl_expandzd2instantiatezd2envz00zzexpand_objectz00;
extern obj_t BGl_expandzd2izf2zd2envzf2zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2fmaxzd2envz00zzexpand_farithmetiquez00;
extern obj_t BGl_expandzd2bindzd2exitzd2envzd2zzexpand_exitz00;
extern obj_t BGl_expandzd2izc3zd3zd2envz10zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2genericzd2envz00zzexpand_definez00;
extern obj_t BGl_expandzd2jumpzd2exitzd2envzd2zzexpand_exitz00;
extern obj_t BGl_expandzd2gzb2zd2envzb2zzexpand_garithmetiquez00;
extern obj_t BGl_expandzd2duplicatezd2envz00zzexpand_objectz00;
extern obj_t BGl_expandzd2gzc3zd3zd2envz10zzexpand_garithmetiquez00;
extern obj_t BGl_expandzd2cozd2instantiatezd2envzd2zzexpand_objectz00;
extern obj_t BGl_expandzd2setzd2exitzd2envzd2zzexpand_exitz00;
extern obj_t BGl_expandzd2withzd2accesszd2envzd2zzexpand_objectz00;
extern obj_t BGl_expandzd2unwindzd2protectzd2envzd2zzexpand_exitz00;
extern obj_t BGl_expandzd2ize3zd2envze3zzexpand_iarithmetiquez00;
extern obj_t BGl_expandzd2definezd2envz00zzexpand_definez00;
extern obj_t BGl_expandzd2anyzf3zd2envzf3zzexpand_mapz00;
extern obj_t BGl_expandzd2fatanzd2envz00zzexpand_farithmetiquez00;
extern obj_t BGl_expandzd2everyzf3zd2envzf3zzexpand_mapz00;
extern obj_t BGl_expandzd2gza2zd2envza2zzexpand_garithmetiquez00;



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zzexpand_installz00(long BgL_checksumz00_4055, char * BgL_fromz00_4056)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zzexpand_installz00))
{ 
BGl_requirezd2initializa7ationz75zzexpand_installz00 = 
BBOOL(((bool_t)0)); 
BGl_libraryzd2moduleszd2initz00zzexpand_installz00(); 
BGl_cnstzd2initzd2zzexpand_installz00(); 
BGl_importedzd2moduleszd2initz00zzexpand_installz00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* library-modules-init */
obj_t BGl_libraryzd2moduleszd2initz00zzexpand_installz00()
{ AN_OBJECT;
{ /* ./Expand/initial.scm 15 */
BGl_modulezd2initializa7ationz75zz__r4_numbers_6_5z00(((long)0), "expand_install"); 
BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(((long)0), "expand_install"); 
BGl_modulezd2initializa7ationz75zz__readerz00(((long)0), "expand_install"); 
BGl_modulezd2initializa7ationz75zz__macroz00(((long)0), "expand_install"); 
BGl_modulezd2initializa7ationz75zz__r4_symbols_6_4z00(((long)0), "expand_install"); 
return BUNSPEC;} 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zzexpand_installz00()
{ AN_OBJECT;
{ /* ./Expand/initial.scm 15 */
{ /* ./Expand/initial.scm 15 */
obj_t BgL_cportz00_4036;
BgL_cportz00_4036 = 
open_input_string(BGl_string6440z00zzexpand_installz00); 
{ 
long BgL_iz00_4037;
BgL_iz00_4037 = ((long)147); 
BgL_loopz00_4038:
{ /* ./Expand/initial.scm 15 */
bool_t BgL_test6442z00_4039;
BgL_test6442z00_4039 = 
(BgL_iz00_4037==((long)-1)); 
if(BgL_test6442z00_4039)
{ /* ./Expand/initial.scm 15 */
return BUNSPEC;}  else 
{ /* ./Expand/initial.scm 15 */
{ /* ./Expand/initial.scm 15 */
obj_t BgL_arg6444z00_4040;
{ /* ./Expand/initial.scm 15 */
obj_t BgL_list6447z00_4041;
BgL_list6447z00_4041 = 
MAKE_PAIR(BgL_cportz00_4036, BNIL); 
BgL_arg6444z00_4040 = 
BGl_readz00zz__readerz00(BgL_list6447z00_4041); } 
{ /* ./Expand/initial.scm 15 */
int BgL_auxz00_4073;
BgL_auxz00_4073 = 
(int)(BgL_iz00_4037); 
CNST_TABLE_SET(BgL_auxz00_4073, BgL_arg6444z00_4040); } } 
{ /* ./Expand/initial.scm 15 */
int BgL_auxz00_4042;
{ /* ./Expand/initial.scm 15 */
long BgL_auxz00_4076;
BgL_auxz00_4076 = 
(BgL_iz00_4037-((long)1)); 
BgL_auxz00_4042 = 
(int)(BgL_auxz00_4076); } 
{ 
long BgL_iz00_4079;
BgL_iz00_4079 = 
(long)(BgL_auxz00_4042); 
BgL_iz00_4037 = BgL_iz00_4079; 
goto BgL_loopz00_4038;} } } } } } } 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zzexpand_installz00()
{ AN_OBJECT;
{ /* ./Expand/initial.scm 15 */
return BUNSPEC;} 
}



/* install-initial-expander */
BGL_EXPORTED_DEF obj_t BGl_installzd2initialzd2expanderz00zzexpand_installz00()
{ AN_OBJECT;
{ /* ./Expand/initial.scm 44 */
BGl_initializa7ezd2Oenvz12z67zzexpand_expanderz00(); 
BGl_initializa7ezd2Genvz12z67zzexpand_expanderz00(); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)0)), BGl_expandzd2ifzd2envz00zzexpand_ifz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)1)), BGl_expandzd2notzd2envz00zzexpand_ifz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)2)), BGl_expandzd2lambdazd2envz00zzexpand_lambdaz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)3)), BGl_expandzd2definezd2envz00zzexpand_definez00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)4)), BGl_expandzd2inlinezd2envz00zzexpand_definez00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)5)), BGl_expandzd2genericzd2envz00zzexpand_definez00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)6)), BGl_expandzd2methodzd2envz00zzexpand_definez00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)7)), BGl_expandzd2structzd2envz00zzexpand_structz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)8)), BGl_expandzd2setz12zd2envz12zzexpand_definez00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)9)), BGl_expandzd2setzd2exitzd2envzd2zzexpand_exitz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)10)), BGl_expandzd2jumpzd2exitzd2envzd2zzexpand_exitz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)11)), BGl_expandzd2bindzd2exitzd2envzd2zzexpand_exitz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)12)), BGl_expandzd2unwindzd2protectzd2envzd2zzexpand_exitz00); 
{ /* ./Expand/initial.scm 91 */
obj_t BgL_arg1265z00_92;
BgL_arg1265z00_92 = 
CNST_TABLE_REF(((long)13)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1265z00_92, BGl_proc6356z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 111 */
obj_t BgL_arg1432z00_178;
BgL_arg1432z00_178 = 
CNST_TABLE_REF(((long)14)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1432z00_178, BGl_proc6357z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 124 */
obj_t BgL_arg1513z00_223;
BgL_arg1513z00_223 = 
CNST_TABLE_REF(((long)15)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1513z00_223, BGl_proc6358z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 135 */
obj_t BgL_arg1603z00_270;
BgL_arg1603z00_270 = 
CNST_TABLE_REF(((long)15)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1603z00_270, BGl_proc6359z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 141 */
obj_t BgL_arg1610z00_276;
BgL_arg1610z00_276 = 
CNST_TABLE_REF(((long)16)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1610z00_276, BGl_proc6360z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 153 */
obj_t BgL_arg1695z00_323;
BgL_arg1695z00_323 = 
CNST_TABLE_REF(((long)17)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1695z00_323, BGl_proc6361z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 165 */
obj_t BgL_arg1731z00_344;
BgL_arg1731z00_344 = 
CNST_TABLE_REF(((long)18)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1731z00_344, BGl_proc6362z00zzexpand_installz00); } 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)19)), BGl_expandzd2mapzd2envz00zzexpand_mapz00); 
{ /* ./Expand/initial.scm 175 */
obj_t BgL_arg1783z00_372;
BgL_arg1783z00_372 = 
CNST_TABLE_REF(((long)19)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1783z00_372, BGl_proc6363z00zzexpand_installz00); } 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)20)), BGl_expandzd2forzd2eachzd2envzd2zzexpand_mapz00); 
{ /* ./Expand/initial.scm 181 */
obj_t BgL_arg1790z00_378;
BgL_arg1790z00_378 = 
CNST_TABLE_REF(((long)20)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1790z00_378, BGl_proc6364z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 186 */
obj_t BgL_arg1798z00_384;
BgL_arg1798z00_384 = 
CNST_TABLE_REF(((long)21)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1798z00_384, BGl_proc6365z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 189 */
obj_t BgL_arg1804z00_390;
BgL_arg1804z00_390 = 
CNST_TABLE_REF(((long)22)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1804z00_390, BGl_proc6366z00zzexpand_installz00); } 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)23)), BGl_expandzd2anyzf3zd2envzf3zzexpand_mapz00); 
{ /* ./Expand/initial.scm 195 */
obj_t BgL_arg1811z00_396;
BgL_arg1811z00_396 = 
CNST_TABLE_REF(((long)23)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1811z00_396, BGl_proc6367z00zzexpand_installz00); } 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)24)), BGl_expandzd2everyzf3zd2envzf3zzexpand_mapz00); 
{ /* ./Expand/initial.scm 199 */
obj_t BgL_arg1818z00_402;
BgL_arg1818z00_402 = 
CNST_TABLE_REF(((long)24)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1818z00_402, BGl_proc6368z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 205 */
obj_t BgL_arg1826z00_408;
BgL_arg1826z00_408 = 
CNST_TABLE_REF(((long)25)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1826z00_408, BGl_proc6369z00zzexpand_installz00); } 
if(
CBOOL(BGl_za2genericityza2z00zzengine_paramz00))
{ /* ./Expand/initial.scm 225 */
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)26)), BGl_expandzd2gzb2zd2envzb2zzexpand_garithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)27)), BGl_expandzd2gza2zd2envza2zzexpand_garithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)28)), BGl_expandzd2gzf2zd2envzf2zzexpand_garithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)29)), BGl_expandzd2gzd2zd2envzd2zzexpand_garithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)30)), BGl_expandzd2gzd3zd2envzd3zzexpand_garithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)31)), BGl_expandzd2gzc3zd2envzc3zzexpand_garithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)32)), BGl_expandzd2gze3zd2envze3zzexpand_garithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)33)), BGl_expandzd2gzc3zd3zd2envz10zzexpand_garithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)34)), BGl_expandzd2gze3zd3zd2envz30zzexpand_garithmetiquez00); }  else 
{ /* ./Expand/initial.scm 225 */
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)26)), BGl_expandzd2izb2zd2envzb2zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)27)), BGl_expandzd2iza2zd2envza2zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)28)), BGl_expandzd2izf2zd2envzf2zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)29)), BGl_expandzd2izd2zd2envzd2zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)30)), BGl_expandzd2izd3zd2envzd3zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)31)), BGl_expandzd2izc3zd2envzc3zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)32)), BGl_expandzd2ize3zd2envze3zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)33)), BGl_expandzd2izc3zd3zd2envz10zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)34)), BGl_expandzd2ize3zd3zd2envz30zzexpand_iarithmetiquez00); } 
{ /* ./Expand/initial.scm 265 */
obj_t BgL_arg1922z00_448;
BgL_arg1922z00_448 = 
CNST_TABLE_REF(((long)26)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1922z00_448, BGl_proc6370z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 267 */
obj_t BgL_arg1930z00_454;
BgL_arg1930z00_454 = 
CNST_TABLE_REF(((long)27)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1930z00_454, BGl_proc6371z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 269 */
obj_t BgL_arg1936z00_460;
BgL_arg1936z00_460 = 
CNST_TABLE_REF(((long)28)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1936z00_460, BGl_proc6372z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 271 */
obj_t BgL_arg1945z00_466;
BgL_arg1945z00_466 = 
CNST_TABLE_REF(((long)29)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1945z00_466, BGl_proc6373z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 273 */
obj_t BgL_arg1951z00_472;
BgL_arg1951z00_472 = 
CNST_TABLE_REF(((long)30)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1951z00_472, BGl_proc6374z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 275 */
obj_t BgL_arg1958z00_478;
BgL_arg1958z00_478 = 
CNST_TABLE_REF(((long)32)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1958z00_478, BGl_proc6375z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 277 */
obj_t BgL_arg1965z00_484;
BgL_arg1965z00_484 = 
CNST_TABLE_REF(((long)31)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1965z00_484, BGl_proc6376z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 279 */
obj_t BgL_arg1971z00_490;
BgL_arg1971z00_490 = 
CNST_TABLE_REF(((long)34)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1971z00_490, BGl_proc6377z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 281 */
obj_t BgL_arg1978z00_496;
BgL_arg1978z00_496 = 
CNST_TABLE_REF(((long)33)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1978z00_496, BGl_proc6378z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 283 */
obj_t BgL_arg1987z00_502;
BgL_arg1987z00_502 = 
CNST_TABLE_REF(((long)35)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1987z00_502, BGl_proc6379z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 285 */
obj_t BgL_arg1993z00_508;
BgL_arg1993z00_508 = 
CNST_TABLE_REF(((long)36)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg1993z00_508, BGl_proc6380z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 287 */
obj_t BgL_arg2000z00_514;
BgL_arg2000z00_514 = 
CNST_TABLE_REF(((long)37)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2000z00_514, BGl_proc6381z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 289 */
obj_t BgL_arg2006z00_520;
BgL_arg2006z00_520 = 
CNST_TABLE_REF(((long)38)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2006z00_520, BGl_proc6382z00zzexpand_installz00); } 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)39)), BGl_expandzd2eqzf3zd2envzf3zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)40)), BGl_expandzd2zb2fxzd2envzb2zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)41)), BGl_expandzd2zd2fxzd2envzd2zzexpand_iarithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)42)), BGl_expandzd2fmaxzd2envz00zzexpand_farithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)43)), BGl_expandzd2fminzd2envz00zzexpand_farithmetiquez00); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(
CNST_TABLE_REF(((long)44)), BGl_expandzd2fatanzd2envz00zzexpand_farithmetiquez00); 
{ /* ./Expand/initial.scm 312 */
obj_t BgL_arg2018z00_526;
BgL_arg2018z00_526 = 
CNST_TABLE_REF(((long)45)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2018z00_526, BGl_proc6383z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 323 */
obj_t BgL_arg2061z00_550;
BgL_arg2061z00_550 = 
CNST_TABLE_REF(((long)46)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2061z00_550, BGl_proc6384z00zzexpand_installz00); } 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)47)), BGl_expandzd2letza2zd2envza2zzexpand_letz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)48)), BGl_expandzd2letzd2envz00zzexpand_letz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)49)), BGl_expandzd2letreczd2envz00zzexpand_letz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)50)), BGl_expandzd2labelszd2envz00zzexpand_letz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)51)), BGl_expandzd2casezd2envz00zzexpand_casez00); 
{ /* ./Expand/initial.scm 349 */
obj_t BgL_arg2125z00_582;
BgL_arg2125z00_582 = 
CNST_TABLE_REF(((long)52)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2125z00_582, BGl_proc6385z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 363 */
obj_t BgL_arg2215z00_631;
BgL_arg2215z00_631 = 
CNST_TABLE_REF(((long)53)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2215z00_631, BGl_proc6386z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 373 */
obj_t BgL_arg2258z00_657;
BgL_arg2258z00_657 = 
CNST_TABLE_REF(((long)54)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2258z00_657, BGl_proc6387z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 396 */
obj_t BgL_arg2337z00_698;
BgL_arg2337z00_698 = 
CNST_TABLE_REF(((long)55)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2337z00_698, BGl_proc6388z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 407 */
obj_t BgL_arg2423z00_748;
BgL_arg2423z00_748 = 
CNST_TABLE_REF(((long)56)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2423z00_748, BGl_proc6389z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 420 */
obj_t BgL_arg2483z00_783;
BgL_arg2483z00_783 = 
CNST_TABLE_REF(((long)56)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2483z00_783, BGl_proc6390z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 425 */
obj_t BgL_arg2489z00_789;
BgL_arg2489z00_789 = 
CNST_TABLE_REF(((long)57)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2489z00_789, BGl_proc6391z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 437 */
obj_t BgL_arg2537z00_817;
BgL_arg2537z00_817 = 
CNST_TABLE_REF(((long)57)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2537z00_817, BGl_proc6392z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 443 */
obj_t BgL_arg2543z00_823;
BgL_arg2543z00_823 = 
CNST_TABLE_REF(((long)58)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2543z00_823, BGl_proc6393z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 455 */
obj_t BgL_arg2654z00_888;
BgL_arg2654z00_888 = 
CNST_TABLE_REF(((long)58)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2654z00_888, BGl_proc6394z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 459 */
obj_t BgL_arg2660z00_894;
BgL_arg2660z00_894 = 
CNST_TABLE_REF(((long)59)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2660z00_894, BGl_proc6395z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 465 */
obj_t BgL_arg2666z00_900;
BgL_arg2666z00_900 = 
CNST_TABLE_REF(((long)60)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2666z00_900, BGl_proc6396z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 480 */
obj_t BgL_arg2743z00_947;
BgL_arg2743z00_947 = 
CNST_TABLE_REF(((long)61)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2743z00_947, BGl_proc6397z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 493 */
obj_t BgL_arg2803z00_982;
BgL_arg2803z00_982 = 
CNST_TABLE_REF(((long)61)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2803z00_982, BGl_proc6398z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 500 */
obj_t BgL_arg2809z00_988;
BgL_arg2809z00_988 = 
CNST_TABLE_REF(((long)62)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2809z00_988, BGl_proc6399z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 512 */
obj_t BgL_arg2856z00_1016;
BgL_arg2856z00_1016 = 
CNST_TABLE_REF(((long)62)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2856z00_1016, BGl_proc6400z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 518 */
obj_t BgL_arg2862z00_1022;
BgL_arg2862z00_1022 = 
CNST_TABLE_REF(((long)63)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2862z00_1022, BGl_proc6401z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 542 */
obj_t BgL_arg2948z00_1071;
BgL_arg2948z00_1071 = 
CNST_TABLE_REF(((long)64)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2948z00_1071, BGl_proc6402z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 556 */
obj_t BgL_arg2989z00_1095;
BgL_arg2989z00_1095 = 
CNST_TABLE_REF(((long)65)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg2989z00_1095, BGl_proc6403z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 574 */
obj_t BgL_arg3097z00_1159;
BgL_arg3097z00_1159 = 
CNST_TABLE_REF(((long)66)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg3097z00_1159, BGl_proc6404z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 595 */
obj_t BgL_arg3186z00_1208;
BgL_arg3186z00_1208 = 
CNST_TABLE_REF(((long)67)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg3186z00_1208, BGl_proc6405z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 609 */
obj_t BgL_arg3282z00_1261;
BgL_arg3282z00_1261 = 
CNST_TABLE_REF(((long)68)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg3282z00_1261, BGl_proc6406z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 620 */
obj_t BgL_arg3382z00_1317;
BgL_arg3382z00_1317 = 
CNST_TABLE_REF(((long)69)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg3382z00_1317, BGl_proc6407z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 634 */
obj_t BgL_arg3499z00_1381;
BgL_arg3499z00_1381 = 
CNST_TABLE_REF(((long)70)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg3499z00_1381, BGl_proc6408z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 650 */
obj_t BgL_arg3641z00_1453;
BgL_arg3641z00_1453 = 
CNST_TABLE_REF(((long)71)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg3641z00_1453, BGl_proc6409z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 669 */
obj_t BgL_arg3781z00_1530;
BgL_arg3781z00_1530 = 
CNST_TABLE_REF(((long)72)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg3781z00_1530, BGl_proc6410z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 675 */
obj_t BgL_arg3787z00_1536;
BgL_arg3787z00_1536 = 
CNST_TABLE_REF(((long)73)); 
BGl_installzd2Gzd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg3787z00_1536, BGl_proc6411z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 681 */
obj_t BgL_arg3793z00_1542;
BgL_arg3793z00_1542 = 
CNST_TABLE_REF(((long)74)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg3793z00_1542, BGl_proc6412z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 732 */
obj_t BgL_arg4352z00_1813;
BgL_arg4352z00_1813 = 
CNST_TABLE_REF(((long)75)); 
BGl_installzd2Ozd2comptimezd2expanderzd2zzexpand_expanderz00(BgL_arg4352z00_1813, BGl_proc6413z00zzexpand_installz00); } 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)76)), BGl_expandzd2assertzd2envz00zzexpand_assertz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)77)), BGl_expandzd2withzd2accesszd2envzd2zzexpand_objectz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)78)), BGl_expandzd2instantiatezd2envz00zzexpand_objectz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)79)), BGl_expandzd2cozd2instantiatezd2envzd2zzexpand_objectz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)80)), BGl_expandzd2duplicatezd2envz00zzexpand_objectz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)81)), BGl_expandzd2widenz12zd2envz12zzexpand_objectz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)82)), BGl_expandzd2shrinkz12zd2envz12zzexpand_objectz00); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(
CNST_TABLE_REF(((long)83)), BGl_expandzd2condzd2expandzd2envzd2zzexpand_srfizd20zd2); 
{ /* ./Expand/initial.scm 807 */
obj_t BgL_arg4991z00_2136;
BgL_arg4991z00_2136 = 
CNST_TABLE_REF(((long)84)); 
BGl_installzd2compilerzd2expanderz00zz__macroz00(BgL_arg4991z00_2136, BGl_proc6414z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 834 */
obj_t BgL_arg5116z00_2202;
BgL_arg5116z00_2202 = 
CNST_TABLE_REF(((long)85)); 
return 
BGl_installzd2compilerzd2expanderz00zz__macroz00(BgL_arg5116z00_2202, BGl_proc6415z00zzexpand_installz00);} } 
}



/* _install-initial-expander */
obj_t BGl__installzd2initialzd2expanderz00zzexpand_installz00(obj_t BgL_envz00_3682)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 44 */
return 
BGl_installzd2initialzd2expanderz00zzexpand_installz00();} 
}



/* <anonymous:5119> */
obj_t BGl_zc3anonymousza35119ze3z83zzexpand_installz00(obj_t BgL_envz00_3683, obj_t BgL_xz00_3684, obj_t BgL_ez00_3685)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 835 */
{ 
obj_t BgL_xz00_2204;obj_t BgL_ez00_2205;
BgL_xz00_2204 = BgL_xz00_3684; 
BgL_ez00_2205 = BgL_ez00_3685; 
{ 
obj_t BgL_lblz00_2207;obj_t BgL_exprsz00_2208;
{ /* ./Expand/initial.scm 835 */
bool_t BgL_test5120z00_2212;
BgL_test5120z00_2212 = 
PAIRP(BgL_xz00_2204); 
if(BgL_test5120z00_2212)
{ /* ./Expand/initial.scm 835 */
obj_t BgL_cdrzd22006zd2_2213;
BgL_cdrzd22006zd2_2213 = 
CDR(BgL_xz00_2204); 
{ /* ./Expand/initial.scm 835 */
bool_t BgL_test5121z00_2214;
BgL_test5121z00_2214 = 
PAIRP(BgL_cdrzd22006zd2_2213); 
if(BgL_test5121z00_2214)
{ /* ./Expand/initial.scm 835 */
obj_t BgL_carzd22009zd2_2215;
BgL_carzd22009zd2_2215 = 
CAR(BgL_cdrzd22006zd2_2213); 
{ /* ./Expand/initial.scm 835 */
bool_t BgL_test5122z00_2216;
BgL_test5122z00_2216 = 
SYMBOLP(BgL_carzd22009zd2_2215); 
if(BgL_test5122z00_2216)
{ /* ./Expand/initial.scm 835 */
obj_t BgL_arg5124z00_2217;
BgL_arg5124z00_2217 = 
CDR(BgL_cdrzd22006zd2_2213); 
BgL_lblz00_2207 = BgL_carzd22009zd2_2215; 
BgL_exprsz00_2208 = BgL_arg5124z00_2217; 
{ /* ./Expand/initial.scm 838 */
bool_t BgL_test5135z00_2218;
{ /* ./Expand/initial.scm 838 */
bool_t BgL_test5236z00_2266;
{ /* ./Expand/initial.scm 838 */
bool_t BgL_res5948z00_3464;
{ /* ./Expand/initial.scm 838 */
obj_t BgL_objz00_3460;
BgL_objz00_3460 = BGl_za2profilezd2modeza2zd2zzengine_paramz00; 
if(
INTEGERP(BgL_objz00_3460))
{ /* ./Expand/initial.scm 838 */
BgL_res5948z00_3464 = ((bool_t)1); }  else 
{ /* ./Expand/initial.scm 838 */
BgL_res5948z00_3464 = 
REALP(BgL_objz00_3460); } } 
BgL_test5236z00_2266 = BgL_res5948z00_3464; } 
if(BgL_test5236z00_2266)
{ /* ./Expand/initial.scm 838 */
BgL_test5135z00_2218 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BGl_za2profilezd2modeza2zd2zzengine_paramz00, 
BINT(((long)0))); }  else 
{ /* ./Expand/initial.scm 838 */
BgL_test5135z00_2218 = ((bool_t)1); } } 
if(BgL_test5135z00_2218)
{ /* ./Expand/initial.scm 839 */
obj_t BgL_arg5137z00_2219;
{ /* ./Expand/initial.scm 839 */
obj_t BgL_arg5140z00_2220;obj_t BgL_arg5141z00_2221;
BgL_arg5140z00_2220 = 
CNST_TABLE_REF(((long)86)); 
BgL_arg5141z00_2221 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprsz00_2208, BNIL); 
BgL_arg5137z00_2219 = 
MAKE_PAIR(BgL_arg5140z00_2220, BgL_arg5141z00_2221); } 
return 
PROCEDURE_ENTRY(BgL_ez00_2205)(BgL_ez00_2205, BgL_arg5137z00_2219, BgL_ez00_2205, BEOA);}  else 
{ /* ./Expand/initial.scm 840 */
obj_t BgL_laz00_2222;
{ /* ./Expand/initial.scm 840 */
obj_t BgL_arg5228z00_2262;obj_t BgL_arg5229z00_2263;
BgL_arg5228z00_2262 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/initial.scm 840 */
obj_t BgL_arg5233z00_2265;
BgL_arg5233z00_2265 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprsz00_2208, BNIL); 
BgL_arg5229z00_2263 = 
MAKE_PAIR(BNIL, BgL_arg5233z00_2265); } 
BgL_laz00_2222 = 
MAKE_PAIR(BgL_arg5228z00_2262, BgL_arg5229z00_2263); } 
{ /* ./Expand/initial.scm 840 */
obj_t BgL_lamz00_2223;
{ /* ./Expand/initial.scm 841 */
bool_t BgL_test5217z00_2258;
BgL_test5217z00_2258 = 
EXTENDED_PAIRP(BgL_xz00_2204); 
if(BgL_test5217z00_2258)
{ /* ./Expand/initial.scm 842 */
obj_t BgL_arg5219z00_2259;obj_t BgL_arg5220z00_2260;obj_t BgL_arg5221z00_2261;
BgL_arg5219z00_2259 = 
CAR(BgL_laz00_2222); 
BgL_arg5220z00_2260 = 
CDR(BgL_laz00_2222); 
BgL_arg5221z00_2261 = 
CER(BgL_xz00_2204); 
{ /* ./Expand/initial.scm 842 */
obj_t BgL_res5949z00_3472;
BgL_res5949z00_3472 = 
MAKE_EXTENDED_PAIR(BgL_arg5219z00_2259, BgL_arg5220z00_2260, BgL_arg5221z00_2261); 
BgL_lamz00_2223 = BgL_res5949z00_3472; } }  else 
{ /* ./Expand/initial.scm 841 */
BgL_lamz00_2223 = BgL_laz00_2222; } } 
{ /* ./Expand/initial.scm 841 */
obj_t BgL_valz00_2224;
{ /* ./Expand/initial.scm 844 */
obj_t BgL_symz00_2257;
BgL_symz00_2257 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)87)), BEOA); 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_symz00_2257); 
BgL_valz00_2224 = BgL_symz00_2257; } 
{ /* ./Expand/initial.scm 844 */
obj_t BgL_auxz00_2225;
{ /* ./Expand/initial.scm 847 */
obj_t BgL_arg5156z00_2231;obj_t BgL_arg5157z00_2232;
BgL_arg5156z00_2231 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 847 */
obj_t BgL_arg5160z00_2233;obj_t BgL_arg5161z00_2234;
{ /* ./Expand/initial.scm 847 */
obj_t BgL_arg5164z00_2235;
{ /* ./Expand/initial.scm 847 */
obj_t BgL_arg5168z00_2237;
BgL_arg5168z00_2237 = 
MAKE_PAIR(BgL_lamz00_2223, BNIL); 
BgL_arg5164z00_2235 = 
MAKE_PAIR(BgL_lblz00_2207, BgL_arg5168z00_2237); } 
BgL_arg5160z00_2233 = 
MAKE_PAIR(BgL_arg5164z00_2235, BNIL); } 
{ /* ./Expand/initial.scm 848 */
obj_t BgL_arg5172z00_2238;obj_t BgL_arg5173z00_2239;
{ /* ./Expand/initial.scm 848 */
obj_t BgL_arg5176z00_2240;obj_t BgL_arg5177z00_2241;
BgL_arg5176z00_2240 = 
CNST_TABLE_REF(((long)88)); 
{ /* ./Expand/initial.scm 848 */
obj_t BgL_arg5180z00_2242;obj_t BgL_arg5181z00_2243;
BgL_arg5180z00_2242 = 
SYMBOL_TO_STRING(BgL_lblz00_2207); 
BgL_arg5181z00_2243 = 
MAKE_PAIR(BgL_lblz00_2207, BNIL); 
BgL_arg5177z00_2241 = 
MAKE_PAIR(BgL_arg5180z00_2242, BgL_arg5181z00_2243); } 
BgL_arg5172z00_2238 = 
MAKE_PAIR(BgL_arg5176z00_2240, BgL_arg5177z00_2241); } 
{ /* ./Expand/initial.scm 850 */
obj_t BgL_arg5186z00_2244;
{ /* ./Expand/initial.scm 850 */
obj_t BgL_arg5190z00_2246;obj_t BgL_arg5191z00_2247;
BgL_arg5190z00_2246 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 850 */
obj_t BgL_arg5194z00_2248;obj_t BgL_arg5195z00_2249;
{ /* ./Expand/initial.scm 850 */
obj_t BgL_arg5198z00_2250;
{ /* ./Expand/initial.scm 850 */
obj_t BgL_arg5202z00_2252;
{ /* ./Expand/initial.scm 850 */
obj_t BgL_arg5205z00_2253;
BgL_arg5205z00_2253 = 
MAKE_PAIR(BgL_lblz00_2207, BNIL); 
BgL_arg5202z00_2252 = 
MAKE_PAIR(BgL_arg5205z00_2253, BNIL); } 
BgL_arg5198z00_2250 = 
MAKE_PAIR(BgL_valz00_2224, BgL_arg5202z00_2252); } 
BgL_arg5194z00_2248 = 
MAKE_PAIR(BgL_arg5198z00_2250, BNIL); } 
{ /* ./Expand/initial.scm 851 */
obj_t BgL_arg5210z00_2255;obj_t BgL_arg5211z00_2256;
{ /* ./Expand/initial.scm 851 */
obj_t BgL_auxz00_4363;
BgL_auxz00_4363 = 
CNST_TABLE_REF(((long)89)); 
BgL_arg5210z00_2255 = 
MAKE_PAIR(BgL_auxz00_4363, BNIL); } 
BgL_arg5211z00_2256 = 
MAKE_PAIR(BgL_valz00_2224, BNIL); 
BgL_arg5195z00_2249 = 
MAKE_PAIR(BgL_arg5210z00_2255, BgL_arg5211z00_2256); } 
BgL_arg5191z00_2247 = 
MAKE_PAIR(BgL_arg5194z00_2248, BgL_arg5195z00_2249); } 
BgL_arg5186z00_2244 = 
MAKE_PAIR(BgL_arg5190z00_2246, BgL_arg5191z00_2247); } 
BgL_arg5173z00_2239 = 
MAKE_PAIR(BgL_arg5186z00_2244, BNIL); } 
BgL_arg5161z00_2234 = 
MAKE_PAIR(BgL_arg5172z00_2238, BgL_arg5173z00_2239); } 
BgL_arg5157z00_2232 = 
MAKE_PAIR(BgL_arg5160z00_2233, BgL_arg5161z00_2234); } 
BgL_auxz00_2225 = 
MAKE_PAIR(BgL_arg5156z00_2231, BgL_arg5157z00_2232); } 
{ /* ./Expand/initial.scm 847 */
obj_t BgL_resz00_2226;
{ /* ./Expand/initial.scm 853 */
bool_t BgL_test5145z00_2227;
BgL_test5145z00_2227 = 
EXTENDED_PAIRP(BgL_xz00_2204); 
if(BgL_test5145z00_2227)
{ /* ./Expand/initial.scm 854 */
obj_t BgL_arg5147z00_2228;obj_t BgL_arg5148z00_2229;obj_t BgL_arg5149z00_2230;
BgL_arg5147z00_2228 = 
CAR(BgL_auxz00_2225); 
BgL_arg5148z00_2229 = 
CDR(BgL_auxz00_2225); 
BgL_arg5149z00_2230 = 
CER(BgL_xz00_2204); 
{ /* ./Expand/initial.scm 854 */
obj_t BgL_res5950z00_3481;
BgL_res5950z00_3481 = 
MAKE_EXTENDED_PAIR(BgL_arg5147z00_2228, BgL_arg5148z00_2229, BgL_arg5149z00_2230); 
BgL_resz00_2226 = BgL_res5950z00_3481; } }  else 
{ /* ./Expand/initial.scm 853 */
BgL_resz00_2226 = BgL_auxz00_2225; } } 
{ /* ./Expand/initial.scm 853 */

return 
PROCEDURE_ENTRY(BgL_ez00_2205)(BgL_ez00_2205, BgL_auxz00_2225, BgL_ez00_2205, BEOA);} } } } } } } }  else 
{ /* ./Expand/initial.scm 835 */
BgL_tagzd21999zd2_2210:
FAILURE(BGl_string6416z00zzexpand_installz00,BGl_string6417z00zzexpand_installz00,BgL_xz00_2204);} } }  else 
{ /* ./Expand/initial.scm 835 */
goto BgL_tagzd21999zd2_2210;} } }  else 
{ /* ./Expand/initial.scm 835 */
goto BgL_tagzd21999zd2_2210;} } } } } 
}



/* <anonymous:4994> */
obj_t BGl_zc3anonymousza34994ze3z83zzexpand_installz00(obj_t BgL_envz00_3686, obj_t BgL_xz00_3687, obj_t BgL_ez00_3688)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 808 */
{ 
obj_t BgL_xz00_2138;obj_t BgL_ez00_2139;
BgL_xz00_2138 = BgL_xz00_3687; 
BgL_ez00_2139 = BgL_ez00_3688; 
{ 
obj_t BgL_lblz00_2141;obj_t BgL_exprsz00_2142;
{ /* ./Expand/initial.scm 808 */
bool_t BgL_test4995z00_2146;
BgL_test4995z00_2146 = 
PAIRP(BgL_xz00_2138); 
if(BgL_test4995z00_2146)
{ /* ./Expand/initial.scm 808 */
obj_t BgL_cdrzd21989zd2_2147;
BgL_cdrzd21989zd2_2147 = 
CDR(BgL_xz00_2138); 
{ /* ./Expand/initial.scm 808 */
bool_t BgL_test4996z00_2148;
BgL_test4996z00_2148 = 
PAIRP(BgL_cdrzd21989zd2_2147); 
if(BgL_test4996z00_2148)
{ /* ./Expand/initial.scm 808 */
obj_t BgL_carzd21992zd2_2149;
BgL_carzd21992zd2_2149 = 
CAR(BgL_cdrzd21989zd2_2147); 
{ /* ./Expand/initial.scm 808 */
bool_t BgL_test4997z00_2150;
BgL_test4997z00_2150 = 
SYMBOLP(BgL_carzd21992zd2_2149); 
if(BgL_test4997z00_2150)
{ /* ./Expand/initial.scm 808 */
obj_t BgL_arg4999z00_2151;
BgL_arg4999z00_2151 = 
CDR(BgL_cdrzd21989zd2_2147); 
BgL_lblz00_2141 = BgL_carzd21992zd2_2149; 
BgL_exprsz00_2142 = BgL_arg4999z00_2151; 
{ /* ./Expand/initial.scm 811 */
bool_t BgL_test5010z00_2152;
{ /* ./Expand/initial.scm 811 */
bool_t BgL_test5111z00_2200;
{ /* ./Expand/initial.scm 811 */
bool_t BgL_res5945z00_3433;
{ /* ./Expand/initial.scm 811 */
obj_t BgL_objz00_3429;
BgL_objz00_3429 = BGl_za2profilezd2modeza2zd2zzengine_paramz00; 
if(
INTEGERP(BgL_objz00_3429))
{ /* ./Expand/initial.scm 811 */
BgL_res5945z00_3433 = ((bool_t)1); }  else 
{ /* ./Expand/initial.scm 811 */
BgL_res5945z00_3433 = 
REALP(BgL_objz00_3429); } } 
BgL_test5111z00_2200 = BgL_res5945z00_3433; } 
if(BgL_test5111z00_2200)
{ /* ./Expand/initial.scm 811 */
BgL_test5010z00_2152 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BGl_za2profilezd2modeza2zd2zzengine_paramz00, 
BINT(((long)0))); }  else 
{ /* ./Expand/initial.scm 811 */
BgL_test5010z00_2152 = ((bool_t)1); } } 
if(BgL_test5010z00_2152)
{ /* ./Expand/initial.scm 812 */
obj_t BgL_arg5012z00_2153;
{ /* ./Expand/initial.scm 812 */
obj_t BgL_arg5015z00_2154;obj_t BgL_arg5016z00_2155;
BgL_arg5015z00_2154 = 
CNST_TABLE_REF(((long)86)); 
BgL_arg5016z00_2155 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprsz00_2142, BNIL); 
BgL_arg5012z00_2153 = 
MAKE_PAIR(BgL_arg5015z00_2154, BgL_arg5016z00_2155); } 
return 
PROCEDURE_ENTRY(BgL_ez00_2139)(BgL_ez00_2139, BgL_arg5012z00_2153, BgL_ez00_2139, BEOA);}  else 
{ /* ./Expand/initial.scm 813 */
obj_t BgL_laz00_2156;
{ /* ./Expand/initial.scm 813 */
obj_t BgL_arg5103z00_2196;obj_t BgL_arg5104z00_2197;
BgL_arg5103z00_2196 = 
CNST_TABLE_REF(((long)2)); 
{ /* ./Expand/initial.scm 813 */
obj_t BgL_arg5108z00_2199;
BgL_arg5108z00_2199 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_exprsz00_2142, BNIL); 
BgL_arg5104z00_2197 = 
MAKE_PAIR(BNIL, BgL_arg5108z00_2199); } 
BgL_laz00_2156 = 
MAKE_PAIR(BgL_arg5103z00_2196, BgL_arg5104z00_2197); } 
{ /* ./Expand/initial.scm 813 */
obj_t BgL_lamz00_2157;
{ /* ./Expand/initial.scm 814 */
bool_t BgL_test5092z00_2192;
BgL_test5092z00_2192 = 
EXTENDED_PAIRP(BgL_xz00_2138); 
if(BgL_test5092z00_2192)
{ /* ./Expand/initial.scm 815 */
obj_t BgL_arg5094z00_2193;obj_t BgL_arg5095z00_2194;obj_t BgL_arg5096z00_2195;
BgL_arg5094z00_2193 = 
CAR(BgL_laz00_2156); 
BgL_arg5095z00_2194 = 
CDR(BgL_laz00_2156); 
BgL_arg5096z00_2195 = 
CER(BgL_xz00_2138); 
{ /* ./Expand/initial.scm 815 */
obj_t BgL_res5946z00_3441;
BgL_res5946z00_3441 = 
MAKE_EXTENDED_PAIR(BgL_arg5094z00_2193, BgL_arg5095z00_2194, BgL_arg5096z00_2195); 
BgL_lamz00_2157 = BgL_res5946z00_3441; } }  else 
{ /* ./Expand/initial.scm 814 */
BgL_lamz00_2157 = BgL_laz00_2156; } } 
{ /* ./Expand/initial.scm 814 */
obj_t BgL_valz00_2158;
{ /* ./Expand/initial.scm 817 */
obj_t BgL_symz00_2191;
BgL_symz00_2191 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)87)), BEOA); 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_symz00_2191); 
BgL_valz00_2158 = BgL_symz00_2191; } 
{ /* ./Expand/initial.scm 817 */
obj_t BgL_auxz00_2159;
{ /* ./Expand/initial.scm 820 */
obj_t BgL_arg5031z00_2165;obj_t BgL_arg5032z00_2166;
BgL_arg5031z00_2165 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 820 */
obj_t BgL_arg5035z00_2167;obj_t BgL_arg5036z00_2168;
{ /* ./Expand/initial.scm 820 */
obj_t BgL_arg5039z00_2169;
{ /* ./Expand/initial.scm 820 */
obj_t BgL_arg5043z00_2171;
BgL_arg5043z00_2171 = 
MAKE_PAIR(BgL_lamz00_2157, BNIL); 
BgL_arg5039z00_2169 = 
MAKE_PAIR(BgL_lblz00_2141, BgL_arg5043z00_2171); } 
BgL_arg5035z00_2167 = 
MAKE_PAIR(BgL_arg5039z00_2169, BNIL); } 
{ /* ./Expand/initial.scm 821 */
obj_t BgL_arg5047z00_2172;obj_t BgL_arg5048z00_2173;
{ /* ./Expand/initial.scm 821 */
obj_t BgL_arg5051z00_2174;obj_t BgL_arg5052z00_2175;
BgL_arg5051z00_2174 = 
CNST_TABLE_REF(((long)90)); 
{ /* ./Expand/initial.scm 821 */
obj_t BgL_arg5055z00_2176;obj_t BgL_arg5056z00_2177;
BgL_arg5055z00_2176 = 
SYMBOL_TO_STRING(BgL_lblz00_2141); 
BgL_arg5056z00_2177 = 
MAKE_PAIR(BgL_lblz00_2141, BNIL); 
BgL_arg5052z00_2175 = 
MAKE_PAIR(BgL_arg5055z00_2176, BgL_arg5056z00_2177); } 
BgL_arg5047z00_2172 = 
MAKE_PAIR(BgL_arg5051z00_2174, BgL_arg5052z00_2175); } 
{ /* ./Expand/initial.scm 822 */
obj_t BgL_arg5061z00_2178;
{ /* ./Expand/initial.scm 822 */
obj_t BgL_arg5065z00_2180;obj_t BgL_arg5066z00_2181;
BgL_arg5065z00_2180 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 822 */
obj_t BgL_arg5069z00_2182;obj_t BgL_arg5070z00_2183;
{ /* ./Expand/initial.scm 822 */
obj_t BgL_arg5073z00_2184;
{ /* ./Expand/initial.scm 822 */
obj_t BgL_arg5077z00_2186;
{ /* ./Expand/initial.scm 822 */
obj_t BgL_arg5080z00_2187;
BgL_arg5080z00_2187 = 
MAKE_PAIR(BgL_lblz00_2141, BNIL); 
BgL_arg5077z00_2186 = 
MAKE_PAIR(BgL_arg5080z00_2187, BNIL); } 
BgL_arg5073z00_2184 = 
MAKE_PAIR(BgL_valz00_2158, BgL_arg5077z00_2186); } 
BgL_arg5069z00_2182 = 
MAKE_PAIR(BgL_arg5073z00_2184, BNIL); } 
{ /* ./Expand/initial.scm 823 */
obj_t BgL_arg5085z00_2189;obj_t BgL_arg5086z00_2190;
{ /* ./Expand/initial.scm 823 */
obj_t BgL_auxz00_4432;
BgL_auxz00_4432 = 
CNST_TABLE_REF(((long)89)); 
BgL_arg5085z00_2189 = 
MAKE_PAIR(BgL_auxz00_4432, BNIL); } 
BgL_arg5086z00_2190 = 
MAKE_PAIR(BgL_valz00_2158, BNIL); 
BgL_arg5070z00_2183 = 
MAKE_PAIR(BgL_arg5085z00_2189, BgL_arg5086z00_2190); } 
BgL_arg5066z00_2181 = 
MAKE_PAIR(BgL_arg5069z00_2182, BgL_arg5070z00_2183); } 
BgL_arg5061z00_2178 = 
MAKE_PAIR(BgL_arg5065z00_2180, BgL_arg5066z00_2181); } 
BgL_arg5048z00_2173 = 
MAKE_PAIR(BgL_arg5061z00_2178, BNIL); } 
BgL_arg5036z00_2168 = 
MAKE_PAIR(BgL_arg5047z00_2172, BgL_arg5048z00_2173); } 
BgL_arg5032z00_2166 = 
MAKE_PAIR(BgL_arg5035z00_2167, BgL_arg5036z00_2168); } 
BgL_auxz00_2159 = 
MAKE_PAIR(BgL_arg5031z00_2165, BgL_arg5032z00_2166); } 
{ /* ./Expand/initial.scm 820 */
obj_t BgL_resz00_2160;
{ /* ./Expand/initial.scm 825 */
bool_t BgL_test5020z00_2161;
BgL_test5020z00_2161 = 
EXTENDED_PAIRP(BgL_xz00_2138); 
if(BgL_test5020z00_2161)
{ /* ./Expand/initial.scm 826 */
obj_t BgL_arg5022z00_2162;obj_t BgL_arg5023z00_2163;obj_t BgL_arg5024z00_2164;
BgL_arg5022z00_2162 = 
CAR(BgL_auxz00_2159); 
BgL_arg5023z00_2163 = 
CDR(BgL_auxz00_2159); 
BgL_arg5024z00_2164 = 
CER(BgL_xz00_2138); 
{ /* ./Expand/initial.scm 826 */
obj_t BgL_res5947z00_3450;
BgL_res5947z00_3450 = 
MAKE_EXTENDED_PAIR(BgL_arg5022z00_2162, BgL_arg5023z00_2163, BgL_arg5024z00_2164); 
BgL_resz00_2160 = BgL_res5947z00_3450; } }  else 
{ /* ./Expand/initial.scm 825 */
BgL_resz00_2160 = BgL_auxz00_2159; } } 
{ /* ./Expand/initial.scm 825 */

return 
PROCEDURE_ENTRY(BgL_ez00_2139)(BgL_ez00_2139, BgL_auxz00_2159, BgL_ez00_2139, BEOA);} } } } } } } }  else 
{ /* ./Expand/initial.scm 808 */
BgL_tagzd21982zd2_2144:
FAILURE(BGl_string6416z00zzexpand_installz00,BGl_string6417z00zzexpand_installz00,BgL_xz00_2138);} } }  else 
{ /* ./Expand/initial.scm 808 */
goto BgL_tagzd21982zd2_2144;} } }  else 
{ /* ./Expand/initial.scm 808 */
goto BgL_tagzd21982zd2_2144;} } } } } 
}



/* <anonymous:4355> */
obj_t BGl_zc3anonymousza34355ze3z83zzexpand_installz00(obj_t BgL_envz00_3689, obj_t BgL_xz00_3690, obj_t BgL_ez00_3691)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 733 */
{ 
obj_t BgL_xz00_1815;obj_t BgL_ez00_1816;
BgL_xz00_1815 = BgL_xz00_3690; 
BgL_ez00_1816 = BgL_ez00_3691; 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_arg4357z00_1818;
{ 
obj_t BgL_producerz00_1819;obj_t BgL_bodyz00_1820;obj_t BgL_producerz00_1822;obj_t BgL_v0z00_1823;obj_t BgL_bodyz00_1824;obj_t BgL_producerz00_1826;obj_t BgL_v0z00_1827;obj_t BgL_v1z00_1828;obj_t BgL_bodyz00_1829;obj_t BgL_producerz00_1831;obj_t BgL_v0z00_1832;obj_t BgL_v1z00_1833;obj_t BgL_v2z00_1834;obj_t BgL_bodyz00_1835;obj_t BgL_producerz00_1837;obj_t BgL_v0z00_1838;obj_t BgL_v1z00_1839;obj_t BgL_v2z00_1840;obj_t BgL_v3z00_1841;obj_t BgL_bodyz00_1842;
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4359z00_1846;
BgL_test4359z00_1846 = 
PAIRP(BgL_xz00_1815); 
if(BgL_test4359z00_1846)
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21166zd2_1847;
BgL_cdrzd21166zd2_1847 = 
CDR(BgL_xz00_1815); 
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4360z00_1848;
BgL_test4360z00_1848 = 
PAIRP(BgL_cdrzd21166zd2_1847); 
if(BgL_test4360z00_1848)
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21170zd2_1849;
BgL_cdrzd21170zd2_1849 = 
CDR(BgL_cdrzd21166zd2_1847); 
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4361z00_1850;
BgL_test4361z00_1850 = 
PAIRP(BgL_cdrzd21170zd2_1849); 
if(BgL_test4361z00_1850)
{ /* ./Expand/initial.scm 734 */
obj_t BgL_carzd21173zd2_1851;
BgL_carzd21173zd2_1851 = 
CAR(BgL_cdrzd21170zd2_1849); 
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4362z00_1852;
BgL_test4362z00_1852 = 
PAIRP(BgL_carzd21173zd2_1851); 
if(BgL_test4362z00_1852)
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21177zd2_1853;
BgL_cdrzd21177zd2_1853 = 
CDR(BgL_carzd21173zd2_1851); 
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4363z00_1854;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4466;obj_t BgL_auxz00_4464;
BgL_auxz00_4466 = 
CNST_TABLE_REF(((long)2)); 
BgL_auxz00_4464 = 
CAR(BgL_carzd21173zd2_1851); 
BgL_test4363z00_1854 = 
(BgL_auxz00_4464==BgL_auxz00_4466); } 
if(BgL_test4363z00_1854)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4364z00_1855;
BgL_test4364z00_1855 = 
PAIRP(BgL_cdrzd21177zd2_1853); 
if(BgL_test4364z00_1855)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4365z00_1856;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4472;
BgL_auxz00_4472 = 
CAR(BgL_cdrzd21177zd2_1853); 
BgL_test4365z00_1856 = 
NULLP(BgL_auxz00_4472); } 
if(BgL_test4365z00_1856)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4366z00_1857;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4476;
BgL_auxz00_4476 = 
CDR(BgL_cdrzd21170zd2_1849); 
BgL_test4366z00_1857 = 
NULLP(BgL_auxz00_4476); } 
if(BgL_test4366z00_1857)
{ /* ./Expand/initial.scm 734 */
obj_t BgL_arg4368z00_1858;obj_t BgL_arg4369z00_1859;
BgL_arg4368z00_1858 = 
CAR(BgL_cdrzd21166zd2_1847); 
BgL_arg4369z00_1859 = 
CDR(BgL_cdrzd21177zd2_1853); 
BgL_producerz00_1819 = BgL_arg4368z00_1858; 
BgL_bodyz00_1820 = BgL_arg4369z00_1859; 
{ /* ./Expand/initial.scm 736 */
obj_t BgL_arg4538z00_1928;obj_t BgL_arg4539z00_1929;
BgL_arg4538z00_1928 = 
CNST_TABLE_REF(((long)86)); 
{ /* ./Expand/initial.scm 736 */
obj_t BgL_arg4542z00_1930;obj_t BgL_arg4543z00_1931;
{ /* ./Expand/initial.scm 736 */
bool_t BgL_test4545z00_1936;
BgL_test4545z00_1936 = 
PAIRP(BgL_producerz00_1819); 
if(BgL_test4545z00_1936)
{ /* ./Expand/initial.scm 736 */
obj_t BgL_cdrzd21932zd2_1937;
BgL_cdrzd21932zd2_1937 = 
CDR(BgL_producerz00_1819); 
{ /* ./Expand/initial.scm 736 */
bool_t BgL_test4546z00_1938;
{ /* ./Expand/initial.scm 736 */
obj_t BgL_auxz00_4488;obj_t BgL_auxz00_4486;
BgL_auxz00_4488 = 
CNST_TABLE_REF(((long)2)); 
BgL_auxz00_4486 = 
CAR(BgL_producerz00_1819); 
BgL_test4546z00_1938 = 
(BgL_auxz00_4486==BgL_auxz00_4488); } 
if(BgL_test4546z00_1938)
{ /* ./Expand/initial.scm 736 */
bool_t BgL_test4547z00_1939;
BgL_test4547z00_1939 = 
PAIRP(BgL_cdrzd21932zd2_1937); 
if(BgL_test4547z00_1939)
{ /* ./Expand/initial.scm 736 */
bool_t BgL_test4548z00_1940;
{ /* ./Expand/initial.scm 736 */
obj_t BgL_auxz00_4494;
BgL_auxz00_4494 = 
CAR(BgL_cdrzd21932zd2_1937); 
BgL_test4548z00_1940 = 
NULLP(BgL_auxz00_4494); } 
if(BgL_test4548z00_1940)
{ /* ./Expand/initial.scm 736 */
obj_t BgL_arg4550z00_1941;
BgL_arg4550z00_1941 = 
CDR(BgL_cdrzd21932zd2_1937); 
{ /* ./Expand/initial.scm 736 */
obj_t BgL_arg4570z00_3370;obj_t BgL_arg4571z00_3371;
BgL_arg4570z00_3370 = 
CNST_TABLE_REF(((long)86)); 
BgL_arg4571z00_3371 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4550z00_1941, BNIL); 
BgL_arg4542z00_1930 = 
MAKE_PAIR(BgL_arg4570z00_3370, BgL_arg4571z00_3371); } }  else 
{ /* ./Expand/initial.scm 736 */
BgL_arg4542z00_1930 = 
MAKE_PAIR(BgL_producerz00_1819, BNIL); } }  else 
{ /* ./Expand/initial.scm 736 */
BgL_arg4542z00_1930 = 
MAKE_PAIR(BgL_producerz00_1819, BNIL); } }  else 
{ /* ./Expand/initial.scm 736 */
BgL_arg4542z00_1930 = 
MAKE_PAIR(BgL_producerz00_1819, BNIL); } } }  else 
{ /* ./Expand/initial.scm 736 */
BgL_arg4542z00_1930 = 
MAKE_PAIR(BgL_producerz00_1819, BNIL); } } 
BgL_arg4543z00_1931 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_1820, BNIL); 
BgL_arg4539z00_1929 = 
MAKE_PAIR(BgL_arg4542z00_1930, BgL_arg4543z00_1931); } 
BgL_arg4357z00_1818 = 
MAKE_PAIR(BgL_arg4538z00_1928, BgL_arg4539z00_1929); } }  else 
{ /* ./Expand/initial.scm 734 */
BgL_tagzd21155zd2_1844:
{ /* ./Expand/initial.scm 778 */
obj_t BgL_arg4965z00_2127;obj_t BgL_arg4966z00_2128;
{ /* ./Expand/initial.scm 778 */
obj_t BgL_arg4969z00_2129;obj_t BgL_arg4970z00_2130;
BgL_arg4969z00_2129 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 778 */
obj_t BgL_arg4973z00_2131;obj_t BgL_arg4974z00_2132;
BgL_arg4973z00_2131 = 
CNST_TABLE_REF(((long)75)); 
{ /* ./Expand/initial.scm 778 */
obj_t BgL_auxz00_4511;
BgL_auxz00_4511 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4974z00_2132 = 
MAKE_PAIR(BgL_auxz00_4511, BNIL); } 
BgL_arg4970z00_2130 = 
MAKE_PAIR(BgL_arg4973z00_2131, BgL_arg4974z00_2132); } 
BgL_arg4965z00_2127 = 
MAKE_PAIR(BgL_arg4969z00_2129, BgL_arg4970z00_2130); } 
BgL_arg4966z00_2128 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
CDR(BgL_xz00_1815), BNIL); 
BgL_arg4357z00_1818 = 
MAKE_PAIR(BgL_arg4965z00_2127, BgL_arg4966z00_2128); } } }  else 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21249zd2_1862;
BgL_cdrzd21249zd2_1862 = 
CDR(BgL_cdrzd21166zd2_1847); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21259zd2_1863;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4520;
BgL_auxz00_4520 = 
CAR(BgL_cdrzd21249zd2_1862); 
BgL_cdrzd21259zd2_1863 = 
CDR(BgL_auxz00_4520); } 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_carzd21262zd2_1864;
BgL_carzd21262zd2_1864 = 
CAR(BgL_cdrzd21259zd2_1863); 
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4378z00_1865;
BgL_test4378z00_1865 = 
PAIRP(BgL_carzd21262zd2_1864); 
if(BgL_test4378z00_1865)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4379z00_1866;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4526;
BgL_auxz00_4526 = 
CDR(BgL_carzd21262zd2_1864); 
BgL_test4379z00_1866 = 
NULLP(BgL_auxz00_4526); } 
if(BgL_test4379z00_1866)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4380z00_1867;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4530;
BgL_auxz00_4530 = 
CDR(BgL_cdrzd21249zd2_1862); 
BgL_test4380z00_1867 = 
NULLP(BgL_auxz00_4530); } 
if(BgL_test4380z00_1867)
{ /* ./Expand/initial.scm 734 */
obj_t BgL_arg4382z00_1868;obj_t BgL_arg4383z00_1869;obj_t BgL_arg4384z00_1870;
BgL_arg4382z00_1868 = 
CAR(BgL_cdrzd21166zd2_1847); 
BgL_arg4383z00_1869 = 
CAR(BgL_carzd21262zd2_1864); 
BgL_arg4384z00_1870 = 
CDR(BgL_cdrzd21259zd2_1863); 
BgL_producerz00_1822 = BgL_arg4382z00_1868; 
BgL_v0z00_1823 = BgL_arg4383z00_1869; 
BgL_bodyz00_1824 = BgL_arg4384z00_1870; 
{ /* ./Expand/initial.scm 744 */
obj_t BgL_arg4577z00_1947;obj_t BgL_arg4579z00_1948;
BgL_arg4577z00_1947 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 744 */
obj_t BgL_arg4582z00_1949;obj_t BgL_arg4583z00_1950;
{ /* ./Expand/initial.scm 744 */
obj_t BgL_arg4586z00_1951;
{ /* ./Expand/initial.scm 744 */
obj_t BgL_arg4590z00_1953;
{ /* ./Expand/initial.scm 744 */
obj_t BgL_arg4593z00_1954;
{ /* ./Expand/initial.scm 744 */
bool_t BgL_test4596z00_1960;
BgL_test4596z00_1960 = 
PAIRP(BgL_producerz00_1822); 
if(BgL_test4596z00_1960)
{ /* ./Expand/initial.scm 744 */
obj_t BgL_cdrzd21943zd2_1961;
BgL_cdrzd21943zd2_1961 = 
CDR(BgL_producerz00_1822); 
{ /* ./Expand/initial.scm 744 */
bool_t BgL_test4597z00_1962;
{ /* ./Expand/initial.scm 744 */
obj_t BgL_auxz00_4543;obj_t BgL_auxz00_4541;
BgL_auxz00_4543 = 
CNST_TABLE_REF(((long)2)); 
BgL_auxz00_4541 = 
CAR(BgL_producerz00_1822); 
BgL_test4597z00_1962 = 
(BgL_auxz00_4541==BgL_auxz00_4543); } 
if(BgL_test4597z00_1962)
{ /* ./Expand/initial.scm 744 */
bool_t BgL_test4598z00_1963;
BgL_test4598z00_1963 = 
PAIRP(BgL_cdrzd21943zd2_1961); 
if(BgL_test4598z00_1963)
{ /* ./Expand/initial.scm 744 */
bool_t BgL_test4599z00_1964;
{ /* ./Expand/initial.scm 744 */
obj_t BgL_auxz00_4549;
BgL_auxz00_4549 = 
CAR(BgL_cdrzd21943zd2_1961); 
BgL_test4599z00_1964 = 
NULLP(BgL_auxz00_4549); } 
if(BgL_test4599z00_1964)
{ /* ./Expand/initial.scm 744 */
obj_t BgL_arg4601z00_1965;
BgL_arg4601z00_1965 = 
CDR(BgL_cdrzd21943zd2_1961); 
{ /* ./Expand/initial.scm 744 */
obj_t BgL_arg4621z00_3382;obj_t BgL_arg4622z00_3383;
BgL_arg4621z00_3382 = 
CNST_TABLE_REF(((long)86)); 
BgL_arg4622z00_3383 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4601z00_1965, BNIL); 
BgL_arg4593z00_1954 = 
MAKE_PAIR(BgL_arg4621z00_3382, BgL_arg4622z00_3383); } }  else 
{ /* ./Expand/initial.scm 744 */
BgL_arg4593z00_1954 = 
MAKE_PAIR(BgL_producerz00_1822, BNIL); } }  else 
{ /* ./Expand/initial.scm 744 */
BgL_arg4593z00_1954 = 
MAKE_PAIR(BgL_producerz00_1822, BNIL); } }  else 
{ /* ./Expand/initial.scm 744 */
BgL_arg4593z00_1954 = 
MAKE_PAIR(BgL_producerz00_1822, BNIL); } } }  else 
{ /* ./Expand/initial.scm 744 */
BgL_arg4593z00_1954 = 
MAKE_PAIR(BgL_producerz00_1822, BNIL); } } 
BgL_arg4590z00_1953 = 
MAKE_PAIR(BgL_arg4593z00_1954, BNIL); } 
BgL_arg4586z00_1951 = 
MAKE_PAIR(BgL_v0z00_1823, BgL_arg4590z00_1953); } 
BgL_arg4582z00_1949 = 
MAKE_PAIR(BgL_arg4586z00_1951, BNIL); } 
BgL_arg4583z00_1950 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_1824, BNIL); 
BgL_arg4579z00_1948 = 
MAKE_PAIR(BgL_arg4582z00_1949, BgL_arg4583z00_1950); } 
BgL_arg4357z00_1818 = 
MAKE_PAIR(BgL_arg4577z00_1947, BgL_arg4579z00_1948); } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} }  else 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21324zd2_1872;
BgL_cdrzd21324zd2_1872 = 
CDR(BgL_xz00_1815); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21332zd2_1873;
BgL_cdrzd21332zd2_1873 = 
CDR(BgL_cdrzd21324zd2_1872); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21346zd2_1874;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4569;
BgL_auxz00_4569 = 
CAR(BgL_cdrzd21332zd2_1873); 
BgL_cdrzd21346zd2_1874 = 
CDR(BgL_auxz00_4569); } 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_carzd21351zd2_1875;
BgL_carzd21351zd2_1875 = 
CAR(BgL_cdrzd21346zd2_1874); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21357zd2_1876;
BgL_cdrzd21357zd2_1876 = 
CDR(BgL_carzd21351zd2_1875); 
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4394z00_1877;
BgL_test4394z00_1877 = 
PAIRP(BgL_cdrzd21357zd2_1876); 
if(BgL_test4394z00_1877)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4395z00_1878;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4576;
BgL_auxz00_4576 = 
CDR(BgL_cdrzd21357zd2_1876); 
BgL_test4395z00_1878 = 
NULLP(BgL_auxz00_4576); } 
if(BgL_test4395z00_1878)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4396z00_1879;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4580;
BgL_auxz00_4580 = 
CDR(BgL_cdrzd21332zd2_1873); 
BgL_test4396z00_1879 = 
NULLP(BgL_auxz00_4580); } 
if(BgL_test4396z00_1879)
{ /* ./Expand/initial.scm 734 */
obj_t BgL_arg4398z00_1880;obj_t BgL_arg4399z00_1881;obj_t BgL_arg4400z00_1882;obj_t BgL_arg4401z00_1883;
BgL_arg4398z00_1880 = 
CAR(BgL_cdrzd21324zd2_1872); 
BgL_arg4399z00_1881 = 
CAR(BgL_carzd21351zd2_1875); 
BgL_arg4400z00_1882 = 
CAR(BgL_cdrzd21357zd2_1876); 
BgL_arg4401z00_1883 = 
CDR(BgL_cdrzd21346zd2_1874); 
BgL_producerz00_1826 = BgL_arg4398z00_1880; 
BgL_v0z00_1827 = BgL_arg4399z00_1881; 
BgL_v1z00_1828 = BgL_arg4400z00_1882; 
BgL_bodyz00_1829 = BgL_arg4401z00_1883; 
{ /* ./Expand/initial.scm 751 */
obj_t BgL_arg4628z00_1971;obj_t BgL_arg4629z00_1972;
BgL_arg4628z00_1971 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 751 */
obj_t BgL_arg4632z00_1973;obj_t BgL_arg4633z00_1974;
{ /* ./Expand/initial.scm 751 */
obj_t BgL_arg4637z00_1975;
{ /* ./Expand/initial.scm 751 */
obj_t BgL_arg4641z00_1977;
{ /* ./Expand/initial.scm 751 */
obj_t BgL_arg4644z00_1978;
{ /* ./Expand/initial.scm 751 */
bool_t BgL_test4647z00_1984;
BgL_test4647z00_1984 = 
PAIRP(BgL_producerz00_1826); 
if(BgL_test4647z00_1984)
{ /* ./Expand/initial.scm 751 */
obj_t BgL_cdrzd21954zd2_1985;
BgL_cdrzd21954zd2_1985 = 
CDR(BgL_producerz00_1826); 
{ /* ./Expand/initial.scm 751 */
bool_t BgL_test4648z00_1986;
{ /* ./Expand/initial.scm 751 */
obj_t BgL_auxz00_4594;obj_t BgL_auxz00_4592;
BgL_auxz00_4594 = 
CNST_TABLE_REF(((long)2)); 
BgL_auxz00_4592 = 
CAR(BgL_producerz00_1826); 
BgL_test4648z00_1986 = 
(BgL_auxz00_4592==BgL_auxz00_4594); } 
if(BgL_test4648z00_1986)
{ /* ./Expand/initial.scm 751 */
bool_t BgL_test4649z00_1987;
BgL_test4649z00_1987 = 
PAIRP(BgL_cdrzd21954zd2_1985); 
if(BgL_test4649z00_1987)
{ /* ./Expand/initial.scm 751 */
bool_t BgL_test4650z00_1988;
{ /* ./Expand/initial.scm 751 */
obj_t BgL_auxz00_4600;
BgL_auxz00_4600 = 
CAR(BgL_cdrzd21954zd2_1985); 
BgL_test4650z00_1988 = 
NULLP(BgL_auxz00_4600); } 
if(BgL_test4650z00_1988)
{ /* ./Expand/initial.scm 751 */
obj_t BgL_arg4652z00_1989;
BgL_arg4652z00_1989 = 
CDR(BgL_cdrzd21954zd2_1985); 
{ /* ./Expand/initial.scm 751 */
obj_t BgL_arg4672z00_3394;obj_t BgL_arg4673z00_3395;
BgL_arg4672z00_3394 = 
CNST_TABLE_REF(((long)86)); 
BgL_arg4673z00_3395 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4652z00_1989, BNIL); 
BgL_arg4644z00_1978 = 
MAKE_PAIR(BgL_arg4672z00_3394, BgL_arg4673z00_3395); } }  else 
{ /* ./Expand/initial.scm 751 */
BgL_arg4644z00_1978 = 
MAKE_PAIR(BgL_producerz00_1826, BNIL); } }  else 
{ /* ./Expand/initial.scm 751 */
BgL_arg4644z00_1978 = 
MAKE_PAIR(BgL_producerz00_1826, BNIL); } }  else 
{ /* ./Expand/initial.scm 751 */
BgL_arg4644z00_1978 = 
MAKE_PAIR(BgL_producerz00_1826, BNIL); } } }  else 
{ /* ./Expand/initial.scm 751 */
BgL_arg4644z00_1978 = 
MAKE_PAIR(BgL_producerz00_1826, BNIL); } } 
BgL_arg4641z00_1977 = 
MAKE_PAIR(BgL_arg4644z00_1978, BNIL); } 
BgL_arg4637z00_1975 = 
MAKE_PAIR(BgL_v0z00_1827, BgL_arg4641z00_1977); } 
BgL_arg4632z00_1973 = 
MAKE_PAIR(BgL_arg4637z00_1975, BNIL); } 
{ /* ./Expand/initial.scm 756 */
obj_t BgL_arg4678z00_1995;
{ /* ./Expand/initial.scm 756 */
obj_t BgL_arg4682z00_1997;obj_t BgL_arg4683z00_1998;
BgL_arg4682z00_1997 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 756 */
obj_t BgL_arg4686z00_1999;obj_t BgL_arg4687z00_2000;
{ /* ./Expand/initial.scm 756 */
obj_t BgL_arg4690z00_2001;
{ /* ./Expand/initial.scm 756 */
obj_t BgL_arg4694z00_2003;
{ /* ./Expand/initial.scm 756 */
obj_t BgL_arg4697z00_2004;
{ /* ./Expand/initial.scm 756 */
obj_t BgL_arg4701z00_2006;obj_t BgL_arg4702z00_2007;
{ /* ./Expand/initial.scm 756 */
obj_t BgL_arg4705z00_2008;obj_t BgL_arg4706z00_2009;
BgL_arg4705z00_2008 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 756 */
obj_t BgL_arg4709z00_2010;obj_t BgL_arg4710z00_2011;
BgL_arg4709z00_2010 = 
CNST_TABLE_REF(((long)93)); 
{ /* ./Expand/initial.scm 756 */
obj_t BgL_auxz00_4618;
BgL_auxz00_4618 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4710z00_2011 = 
MAKE_PAIR(BgL_auxz00_4618, BNIL); } 
BgL_arg4706z00_2009 = 
MAKE_PAIR(BgL_arg4709z00_2010, BgL_arg4710z00_2011); } 
BgL_arg4701z00_2006 = 
MAKE_PAIR(BgL_arg4705z00_2008, BgL_arg4706z00_2009); } 
{ /* ./Expand/initial.scm 756 */
obj_t BgL_auxz00_4623;
BgL_auxz00_4623 = 
BINT(((long)1)); 
BgL_arg4702z00_2007 = 
MAKE_PAIR(BgL_auxz00_4623, BNIL); } 
BgL_arg4697z00_2004 = 
MAKE_PAIR(BgL_arg4701z00_2006, BgL_arg4702z00_2007); } 
BgL_arg4694z00_2003 = 
MAKE_PAIR(BgL_arg4697z00_2004, BNIL); } 
BgL_arg4690z00_2001 = 
MAKE_PAIR(BgL_v1z00_1828, BgL_arg4694z00_2003); } 
BgL_arg4686z00_1999 = 
MAKE_PAIR(BgL_arg4690z00_2001, BNIL); } 
BgL_arg4687z00_2000 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_1829, BNIL); 
BgL_arg4683z00_1998 = 
MAKE_PAIR(BgL_arg4686z00_1999, BgL_arg4687z00_2000); } 
BgL_arg4678z00_1995 = 
MAKE_PAIR(BgL_arg4682z00_1997, BgL_arg4683z00_1998); } 
BgL_arg4633z00_1974 = 
MAKE_PAIR(BgL_arg4678z00_1995, BNIL); } 
BgL_arg4629z00_1972 = 
MAKE_PAIR(BgL_arg4632z00_1973, BgL_arg4633z00_1974); } 
BgL_arg4357z00_1818 = 
MAKE_PAIR(BgL_arg4628z00_1971, BgL_arg4629z00_1972); } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} }  else 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21421zd2_1886;
BgL_cdrzd21421zd2_1886 = 
CDR(BgL_cdrzd21324zd2_1872); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21439zd2_1887;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4637;
BgL_auxz00_4637 = 
CAR(BgL_cdrzd21421zd2_1886); 
BgL_cdrzd21439zd2_1887 = 
CDR(BgL_auxz00_4637); } 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_carzd21446zd2_1888;
BgL_carzd21446zd2_1888 = 
CAR(BgL_cdrzd21439zd2_1887); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21454zd2_1889;
BgL_cdrzd21454zd2_1889 = 
CDR(BgL_carzd21446zd2_1888); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21461zd2_1890;
BgL_cdrzd21461zd2_1890 = 
CDR(BgL_cdrzd21454zd2_1889); 
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4412z00_1891;
BgL_test4412z00_1891 = 
PAIRP(BgL_cdrzd21461zd2_1890); 
if(BgL_test4412z00_1891)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4413z00_1892;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4645;
BgL_auxz00_4645 = 
CDR(BgL_cdrzd21461zd2_1890); 
BgL_test4413z00_1892 = 
NULLP(BgL_auxz00_4645); } 
if(BgL_test4413z00_1892)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4414z00_1893;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4649;
BgL_auxz00_4649 = 
CDR(BgL_cdrzd21421zd2_1886); 
BgL_test4414z00_1893 = 
NULLP(BgL_auxz00_4649); } 
if(BgL_test4414z00_1893)
{ /* ./Expand/initial.scm 734 */
obj_t BgL_arg4416z00_1894;obj_t BgL_arg4417z00_1895;obj_t BgL_arg4418z00_1896;obj_t BgL_arg4419z00_1897;obj_t BgL_arg4420z00_1898;
BgL_arg4416z00_1894 = 
CAR(BgL_cdrzd21324zd2_1872); 
BgL_arg4417z00_1895 = 
CAR(BgL_carzd21446zd2_1888); 
BgL_arg4418z00_1896 = 
CAR(BgL_cdrzd21454zd2_1889); 
BgL_arg4419z00_1897 = 
CAR(BgL_cdrzd21461zd2_1890); 
BgL_arg4420z00_1898 = 
CDR(BgL_cdrzd21439zd2_1887); 
BgL_producerz00_1831 = BgL_arg4416z00_1894; 
BgL_v0z00_1832 = BgL_arg4417z00_1895; 
BgL_v1z00_1833 = BgL_arg4418z00_1896; 
BgL_v2z00_1834 = BgL_arg4419z00_1897; 
BgL_bodyz00_1835 = BgL_arg4420z00_1898; 
{ /* ./Expand/initial.scm 759 */
obj_t BgL_arg4716z00_2012;obj_t BgL_arg4717z00_2013;
BgL_arg4716z00_2012 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 759 */
obj_t BgL_arg4720z00_2014;obj_t BgL_arg4721z00_2015;
{ /* ./Expand/initial.scm 759 */
obj_t BgL_arg4724z00_2016;
{ /* ./Expand/initial.scm 759 */
obj_t BgL_arg4728z00_2018;
{ /* ./Expand/initial.scm 759 */
obj_t BgL_arg4731z00_2019;
{ /* ./Expand/initial.scm 759 */
bool_t BgL_test4734z00_2025;
BgL_test4734z00_2025 = 
PAIRP(BgL_producerz00_1831); 
if(BgL_test4734z00_2025)
{ /* ./Expand/initial.scm 759 */
obj_t BgL_cdrzd21965zd2_2026;
BgL_cdrzd21965zd2_2026 = 
CDR(BgL_producerz00_1831); 
{ /* ./Expand/initial.scm 759 */
bool_t BgL_test4735z00_2027;
{ /* ./Expand/initial.scm 759 */
obj_t BgL_auxz00_4664;obj_t BgL_auxz00_4662;
BgL_auxz00_4664 = 
CNST_TABLE_REF(((long)2)); 
BgL_auxz00_4662 = 
CAR(BgL_producerz00_1831); 
BgL_test4735z00_2027 = 
(BgL_auxz00_4662==BgL_auxz00_4664); } 
if(BgL_test4735z00_2027)
{ /* ./Expand/initial.scm 759 */
bool_t BgL_test4736z00_2028;
BgL_test4736z00_2028 = 
PAIRP(BgL_cdrzd21965zd2_2026); 
if(BgL_test4736z00_2028)
{ /* ./Expand/initial.scm 759 */
bool_t BgL_test4737z00_2029;
{ /* ./Expand/initial.scm 759 */
obj_t BgL_auxz00_4670;
BgL_auxz00_4670 = 
CAR(BgL_cdrzd21965zd2_2026); 
BgL_test4737z00_2029 = 
NULLP(BgL_auxz00_4670); } 
if(BgL_test4737z00_2029)
{ /* ./Expand/initial.scm 759 */
obj_t BgL_arg4739z00_2030;
BgL_arg4739z00_2030 = 
CDR(BgL_cdrzd21965zd2_2026); 
{ /* ./Expand/initial.scm 759 */
obj_t BgL_arg4759z00_3406;obj_t BgL_arg4760z00_3407;
BgL_arg4759z00_3406 = 
CNST_TABLE_REF(((long)86)); 
BgL_arg4760z00_3407 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4739z00_2030, BNIL); 
BgL_arg4731z00_2019 = 
MAKE_PAIR(BgL_arg4759z00_3406, BgL_arg4760z00_3407); } }  else 
{ /* ./Expand/initial.scm 759 */
BgL_arg4731z00_2019 = 
MAKE_PAIR(BgL_producerz00_1831, BNIL); } }  else 
{ /* ./Expand/initial.scm 759 */
BgL_arg4731z00_2019 = 
MAKE_PAIR(BgL_producerz00_1831, BNIL); } }  else 
{ /* ./Expand/initial.scm 759 */
BgL_arg4731z00_2019 = 
MAKE_PAIR(BgL_producerz00_1831, BNIL); } } }  else 
{ /* ./Expand/initial.scm 759 */
BgL_arg4731z00_2019 = 
MAKE_PAIR(BgL_producerz00_1831, BNIL); } } 
BgL_arg4728z00_2018 = 
MAKE_PAIR(BgL_arg4731z00_2019, BNIL); } 
BgL_arg4724z00_2016 = 
MAKE_PAIR(BgL_v0z00_1832, BgL_arg4728z00_2018); } 
BgL_arg4720z00_2014 = 
MAKE_PAIR(BgL_arg4724z00_2016, BNIL); } 
{ /* ./Expand/initial.scm 764 */
obj_t BgL_arg4765z00_2036;
{ /* ./Expand/initial.scm 764 */
obj_t BgL_arg4769z00_2038;obj_t BgL_arg4770z00_2039;
BgL_arg4769z00_2038 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 764 */
obj_t BgL_arg4773z00_2040;obj_t BgL_arg4774z00_2041;
{ /* ./Expand/initial.scm 764 */
obj_t BgL_arg4777z00_2042;obj_t BgL_arg4778z00_2043;
{ /* ./Expand/initial.scm 764 */
obj_t BgL_arg4781z00_2044;
{ /* ./Expand/initial.scm 764 */
obj_t BgL_arg4784z00_2045;
{ /* ./Expand/initial.scm 764 */
obj_t BgL_arg4788z00_2047;obj_t BgL_arg4789z00_2048;
{ /* ./Expand/initial.scm 764 */
obj_t BgL_arg4792z00_2049;obj_t BgL_arg4793z00_2050;
BgL_arg4792z00_2049 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 764 */
obj_t BgL_arg4796z00_2051;obj_t BgL_arg4797z00_2052;
BgL_arg4796z00_2051 = 
CNST_TABLE_REF(((long)93)); 
{ /* ./Expand/initial.scm 764 */
obj_t BgL_auxz00_4688;
BgL_auxz00_4688 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4797z00_2052 = 
MAKE_PAIR(BgL_auxz00_4688, BNIL); } 
BgL_arg4793z00_2050 = 
MAKE_PAIR(BgL_arg4796z00_2051, BgL_arg4797z00_2052); } 
BgL_arg4788z00_2047 = 
MAKE_PAIR(BgL_arg4792z00_2049, BgL_arg4793z00_2050); } 
{ /* ./Expand/initial.scm 764 */
obj_t BgL_auxz00_4693;
BgL_auxz00_4693 = 
BINT(((long)1)); 
BgL_arg4789z00_2048 = 
MAKE_PAIR(BgL_auxz00_4693, BNIL); } 
BgL_arg4784z00_2045 = 
MAKE_PAIR(BgL_arg4788z00_2047, BgL_arg4789z00_2048); } 
BgL_arg4781z00_2044 = 
MAKE_PAIR(BgL_arg4784z00_2045, BNIL); } 
BgL_arg4777z00_2042 = 
MAKE_PAIR(BgL_v1z00_1833, BgL_arg4781z00_2044); } 
{ /* ./Expand/initial.scm 765 */
obj_t BgL_arg4802z00_2053;
{ /* ./Expand/initial.scm 765 */
obj_t BgL_arg4806z00_2055;
{ /* ./Expand/initial.scm 765 */
obj_t BgL_arg4809z00_2056;
{ /* ./Expand/initial.scm 765 */
obj_t BgL_arg4813z00_2058;obj_t BgL_arg4814z00_2059;
{ /* ./Expand/initial.scm 765 */
obj_t BgL_arg4817z00_2060;obj_t BgL_arg4818z00_2061;
BgL_arg4817z00_2060 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 765 */
obj_t BgL_arg4821z00_2062;obj_t BgL_arg4822z00_2063;
BgL_arg4821z00_2062 = 
CNST_TABLE_REF(((long)93)); 
{ /* ./Expand/initial.scm 765 */
obj_t BgL_auxz00_4701;
BgL_auxz00_4701 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4822z00_2063 = 
MAKE_PAIR(BgL_auxz00_4701, BNIL); } 
BgL_arg4818z00_2061 = 
MAKE_PAIR(BgL_arg4821z00_2062, BgL_arg4822z00_2063); } 
BgL_arg4813z00_2058 = 
MAKE_PAIR(BgL_arg4817z00_2060, BgL_arg4818z00_2061); } 
{ /* ./Expand/initial.scm 765 */
obj_t BgL_auxz00_4706;
BgL_auxz00_4706 = 
BINT(((long)2)); 
BgL_arg4814z00_2059 = 
MAKE_PAIR(BgL_auxz00_4706, BNIL); } 
BgL_arg4809z00_2056 = 
MAKE_PAIR(BgL_arg4813z00_2058, BgL_arg4814z00_2059); } 
BgL_arg4806z00_2055 = 
MAKE_PAIR(BgL_arg4809z00_2056, BNIL); } 
BgL_arg4802z00_2053 = 
MAKE_PAIR(BgL_v2z00_1834, BgL_arg4806z00_2055); } 
BgL_arg4778z00_2043 = 
MAKE_PAIR(BgL_arg4802z00_2053, BNIL); } 
BgL_arg4773z00_2040 = 
MAKE_PAIR(BgL_arg4777z00_2042, BgL_arg4778z00_2043); } 
BgL_arg4774z00_2041 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_1835, BNIL); 
BgL_arg4770z00_2039 = 
MAKE_PAIR(BgL_arg4773z00_2040, BgL_arg4774z00_2041); } 
BgL_arg4765z00_2036 = 
MAKE_PAIR(BgL_arg4769z00_2038, BgL_arg4770z00_2039); } 
BgL_arg4721z00_2015 = 
MAKE_PAIR(BgL_arg4765z00_2036, BNIL); } 
BgL_arg4717z00_2013 = 
MAKE_PAIR(BgL_arg4720z00_2014, BgL_arg4721z00_2015); } 
BgL_arg4357z00_1818 = 
MAKE_PAIR(BgL_arg4716z00_2012, BgL_arg4717z00_2013); } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} }  else 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21515zd2_1901;
BgL_cdrzd21515zd2_1901 = 
CDR(BgL_cdrzd21324zd2_1872); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21537zd2_1902;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4721;
BgL_auxz00_4721 = 
CAR(BgL_cdrzd21515zd2_1901); 
BgL_cdrzd21537zd2_1902 = 
CDR(BgL_auxz00_4721); } 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_carzd21546zd2_1903;
BgL_carzd21546zd2_1903 = 
CAR(BgL_cdrzd21537zd2_1902); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21556zd2_1904;
BgL_cdrzd21556zd2_1904 = 
CDR(BgL_carzd21546zd2_1903); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21565zd2_1905;
BgL_cdrzd21565zd2_1905 = 
CDR(BgL_cdrzd21556zd2_1904); 
{ /* ./Expand/initial.scm 734 */
obj_t BgL_cdrzd21572zd2_1906;
BgL_cdrzd21572zd2_1906 = 
CDR(BgL_cdrzd21565zd2_1905); 
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4432z00_1907;
BgL_test4432z00_1907 = 
PAIRP(BgL_cdrzd21572zd2_1906); 
if(BgL_test4432z00_1907)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4433z00_1908;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4730;
BgL_auxz00_4730 = 
CDR(BgL_cdrzd21572zd2_1906); 
BgL_test4433z00_1908 = 
NULLP(BgL_auxz00_4730); } 
if(BgL_test4433z00_1908)
{ /* ./Expand/initial.scm 734 */
bool_t BgL_test4434z00_1909;
{ /* ./Expand/initial.scm 734 */
obj_t BgL_auxz00_4734;
BgL_auxz00_4734 = 
CDR(BgL_cdrzd21515zd2_1901); 
BgL_test4434z00_1909 = 
NULLP(BgL_auxz00_4734); } 
if(BgL_test4434z00_1909)
{ /* ./Expand/initial.scm 734 */
obj_t BgL_arg4436z00_1910;obj_t BgL_arg4437z00_1911;obj_t BgL_arg4438z00_1912;obj_t BgL_arg4439z00_1913;obj_t BgL_arg4440z00_1914;obj_t BgL_arg4441z00_1915;
BgL_arg4436z00_1910 = 
CAR(BgL_cdrzd21324zd2_1872); 
BgL_arg4437z00_1911 = 
CAR(BgL_carzd21546zd2_1903); 
BgL_arg4438z00_1912 = 
CAR(BgL_cdrzd21556zd2_1904); 
BgL_arg4439z00_1913 = 
CAR(BgL_cdrzd21565zd2_1905); 
BgL_arg4440z00_1914 = 
CAR(BgL_cdrzd21572zd2_1906); 
BgL_arg4441z00_1915 = 
CDR(BgL_cdrzd21537zd2_1902); 
BgL_producerz00_1837 = BgL_arg4436z00_1910; 
BgL_v0z00_1838 = BgL_arg4437z00_1911; 
BgL_v1z00_1839 = BgL_arg4438z00_1912; 
BgL_v2z00_1840 = BgL_arg4439z00_1913; 
BgL_v3z00_1841 = BgL_arg4440z00_1914; 
BgL_bodyz00_1842 = BgL_arg4441z00_1915; 
{ /* ./Expand/initial.scm 768 */
obj_t BgL_arg4828z00_2064;obj_t BgL_arg4829z00_2065;
BgL_arg4828z00_2064 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 768 */
obj_t BgL_arg4832z00_2066;obj_t BgL_arg4833z00_2067;
{ /* ./Expand/initial.scm 768 */
obj_t BgL_arg4836z00_2068;
{ /* ./Expand/initial.scm 768 */
obj_t BgL_arg4840z00_2070;
{ /* ./Expand/initial.scm 768 */
obj_t BgL_arg4843z00_2071;
{ /* ./Expand/initial.scm 768 */
bool_t BgL_test4846z00_2077;
BgL_test4846z00_2077 = 
PAIRP(BgL_producerz00_1837); 
if(BgL_test4846z00_2077)
{ /* ./Expand/initial.scm 768 */
obj_t BgL_cdrzd21976zd2_2078;
BgL_cdrzd21976zd2_2078 = 
CDR(BgL_producerz00_1837); 
{ /* ./Expand/initial.scm 768 */
bool_t BgL_test4847z00_2079;
{ /* ./Expand/initial.scm 768 */
obj_t BgL_auxz00_4750;obj_t BgL_auxz00_4748;
BgL_auxz00_4750 = 
CNST_TABLE_REF(((long)2)); 
BgL_auxz00_4748 = 
CAR(BgL_producerz00_1837); 
BgL_test4847z00_2079 = 
(BgL_auxz00_4748==BgL_auxz00_4750); } 
if(BgL_test4847z00_2079)
{ /* ./Expand/initial.scm 768 */
bool_t BgL_test4848z00_2080;
BgL_test4848z00_2080 = 
PAIRP(BgL_cdrzd21976zd2_2078); 
if(BgL_test4848z00_2080)
{ /* ./Expand/initial.scm 768 */
bool_t BgL_test4849z00_2081;
{ /* ./Expand/initial.scm 768 */
obj_t BgL_auxz00_4756;
BgL_auxz00_4756 = 
CAR(BgL_cdrzd21976zd2_2078); 
BgL_test4849z00_2081 = 
NULLP(BgL_auxz00_4756); } 
if(BgL_test4849z00_2081)
{ /* ./Expand/initial.scm 768 */
obj_t BgL_arg4851z00_2082;
BgL_arg4851z00_2082 = 
CDR(BgL_cdrzd21976zd2_2078); 
{ /* ./Expand/initial.scm 768 */
obj_t BgL_arg4871z00_3418;obj_t BgL_arg4872z00_3419;
BgL_arg4871z00_3418 = 
CNST_TABLE_REF(((long)86)); 
BgL_arg4872z00_3419 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4851z00_2082, BNIL); 
BgL_arg4843z00_2071 = 
MAKE_PAIR(BgL_arg4871z00_3418, BgL_arg4872z00_3419); } }  else 
{ /* ./Expand/initial.scm 768 */
BgL_arg4843z00_2071 = 
MAKE_PAIR(BgL_producerz00_1837, BNIL); } }  else 
{ /* ./Expand/initial.scm 768 */
BgL_arg4843z00_2071 = 
MAKE_PAIR(BgL_producerz00_1837, BNIL); } }  else 
{ /* ./Expand/initial.scm 768 */
BgL_arg4843z00_2071 = 
MAKE_PAIR(BgL_producerz00_1837, BNIL); } } }  else 
{ /* ./Expand/initial.scm 768 */
BgL_arg4843z00_2071 = 
MAKE_PAIR(BgL_producerz00_1837, BNIL); } } 
BgL_arg4840z00_2070 = 
MAKE_PAIR(BgL_arg4843z00_2071, BNIL); } 
BgL_arg4836z00_2068 = 
MAKE_PAIR(BgL_v0z00_1838, BgL_arg4840z00_2070); } 
BgL_arg4832z00_2066 = 
MAKE_PAIR(BgL_arg4836z00_2068, BNIL); } 
{ /* ./Expand/initial.scm 773 */
obj_t BgL_arg4877z00_2088;
{ /* ./Expand/initial.scm 773 */
obj_t BgL_arg4881z00_2090;obj_t BgL_arg4882z00_2091;
BgL_arg4881z00_2090 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 773 */
obj_t BgL_arg4885z00_2092;obj_t BgL_arg4886z00_2093;
{ /* ./Expand/initial.scm 773 */
obj_t BgL_arg4889z00_2094;obj_t BgL_arg4890z00_2095;
{ /* ./Expand/initial.scm 773 */
obj_t BgL_arg4893z00_2096;
{ /* ./Expand/initial.scm 773 */
obj_t BgL_arg4896z00_2097;
{ /* ./Expand/initial.scm 773 */
obj_t BgL_arg4900z00_2099;obj_t BgL_arg4901z00_2100;
{ /* ./Expand/initial.scm 773 */
obj_t BgL_arg4904z00_2101;obj_t BgL_arg4905z00_2102;
BgL_arg4904z00_2101 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 773 */
obj_t BgL_arg4908z00_2103;obj_t BgL_arg4909z00_2104;
BgL_arg4908z00_2103 = 
CNST_TABLE_REF(((long)93)); 
{ /* ./Expand/initial.scm 773 */
obj_t BgL_auxz00_4774;
BgL_auxz00_4774 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4909z00_2104 = 
MAKE_PAIR(BgL_auxz00_4774, BNIL); } 
BgL_arg4905z00_2102 = 
MAKE_PAIR(BgL_arg4908z00_2103, BgL_arg4909z00_2104); } 
BgL_arg4900z00_2099 = 
MAKE_PAIR(BgL_arg4904z00_2101, BgL_arg4905z00_2102); } 
{ /* ./Expand/initial.scm 773 */
obj_t BgL_auxz00_4779;
BgL_auxz00_4779 = 
BINT(((long)1)); 
BgL_arg4901z00_2100 = 
MAKE_PAIR(BgL_auxz00_4779, BNIL); } 
BgL_arg4896z00_2097 = 
MAKE_PAIR(BgL_arg4900z00_2099, BgL_arg4901z00_2100); } 
BgL_arg4893z00_2096 = 
MAKE_PAIR(BgL_arg4896z00_2097, BNIL); } 
BgL_arg4889z00_2094 = 
MAKE_PAIR(BgL_v1z00_1839, BgL_arg4893z00_2096); } 
{ /* ./Expand/initial.scm 774 */
obj_t BgL_arg4914z00_2105;obj_t BgL_arg4915z00_2106;
{ /* ./Expand/initial.scm 774 */
obj_t BgL_arg4918z00_2107;
{ /* ./Expand/initial.scm 774 */
obj_t BgL_arg4921z00_2108;
{ /* ./Expand/initial.scm 774 */
obj_t BgL_arg4925z00_2110;obj_t BgL_arg4926z00_2111;
{ /* ./Expand/initial.scm 774 */
obj_t BgL_arg4929z00_2112;obj_t BgL_arg4930z00_2113;
BgL_arg4929z00_2112 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 774 */
obj_t BgL_arg4933z00_2114;obj_t BgL_arg4934z00_2115;
BgL_arg4933z00_2114 = 
CNST_TABLE_REF(((long)93)); 
{ /* ./Expand/initial.scm 774 */
obj_t BgL_auxz00_4787;
BgL_auxz00_4787 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4934z00_2115 = 
MAKE_PAIR(BgL_auxz00_4787, BNIL); } 
BgL_arg4930z00_2113 = 
MAKE_PAIR(BgL_arg4933z00_2114, BgL_arg4934z00_2115); } 
BgL_arg4925z00_2110 = 
MAKE_PAIR(BgL_arg4929z00_2112, BgL_arg4930z00_2113); } 
{ /* ./Expand/initial.scm 774 */
obj_t BgL_auxz00_4792;
BgL_auxz00_4792 = 
BINT(((long)2)); 
BgL_arg4926z00_2111 = 
MAKE_PAIR(BgL_auxz00_4792, BNIL); } 
BgL_arg4921z00_2108 = 
MAKE_PAIR(BgL_arg4925z00_2110, BgL_arg4926z00_2111); } 
BgL_arg4918z00_2107 = 
MAKE_PAIR(BgL_arg4921z00_2108, BNIL); } 
BgL_arg4914z00_2105 = 
MAKE_PAIR(BgL_v2z00_1840, BgL_arg4918z00_2107); } 
{ /* ./Expand/initial.scm 775 */
obj_t BgL_arg4939z00_2116;
{ /* ./Expand/initial.scm 775 */
obj_t BgL_arg4943z00_2118;
{ /* ./Expand/initial.scm 775 */
obj_t BgL_arg4946z00_2119;
{ /* ./Expand/initial.scm 775 */
obj_t BgL_arg4950z00_2121;obj_t BgL_arg4951z00_2122;
{ /* ./Expand/initial.scm 775 */
obj_t BgL_arg4954z00_2123;obj_t BgL_arg4955z00_2124;
BgL_arg4954z00_2123 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 775 */
obj_t BgL_arg4958z00_2125;obj_t BgL_arg4959z00_2126;
BgL_arg4958z00_2125 = 
CNST_TABLE_REF(((long)93)); 
{ /* ./Expand/initial.scm 775 */
obj_t BgL_auxz00_4800;
BgL_auxz00_4800 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4959z00_2126 = 
MAKE_PAIR(BgL_auxz00_4800, BNIL); } 
BgL_arg4955z00_2124 = 
MAKE_PAIR(BgL_arg4958z00_2125, BgL_arg4959z00_2126); } 
BgL_arg4950z00_2121 = 
MAKE_PAIR(BgL_arg4954z00_2123, BgL_arg4955z00_2124); } 
{ /* ./Expand/initial.scm 775 */
obj_t BgL_auxz00_4805;
BgL_auxz00_4805 = 
BINT(((long)3)); 
BgL_arg4951z00_2122 = 
MAKE_PAIR(BgL_auxz00_4805, BNIL); } 
BgL_arg4946z00_2119 = 
MAKE_PAIR(BgL_arg4950z00_2121, BgL_arg4951z00_2122); } 
BgL_arg4943z00_2118 = 
MAKE_PAIR(BgL_arg4946z00_2119, BNIL); } 
BgL_arg4939z00_2116 = 
MAKE_PAIR(BgL_v3z00_1841, BgL_arg4943z00_2118); } 
BgL_arg4915z00_2106 = 
MAKE_PAIR(BgL_arg4939z00_2116, BNIL); } 
BgL_arg4890z00_2095 = 
MAKE_PAIR(BgL_arg4914z00_2105, BgL_arg4915z00_2106); } 
BgL_arg4885z00_2092 = 
MAKE_PAIR(BgL_arg4889z00_2094, BgL_arg4890z00_2095); } 
BgL_arg4886z00_2093 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_bodyz00_1842, BNIL); 
BgL_arg4882z00_2091 = 
MAKE_PAIR(BgL_arg4885z00_2092, BgL_arg4886z00_2093); } 
BgL_arg4877z00_2088 = 
MAKE_PAIR(BgL_arg4881z00_2090, BgL_arg4882z00_2091); } 
BgL_arg4833z00_2067 = 
MAKE_PAIR(BgL_arg4877z00_2088, BNIL); } 
BgL_arg4829z00_2065 = 
MAKE_PAIR(BgL_arg4832z00_2066, BgL_arg4833z00_2067); } 
BgL_arg4357z00_1818 = 
MAKE_PAIR(BgL_arg4828z00_2064, BgL_arg4829z00_2065); } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} } } } } } } } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} } } } } } } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} } } } } } } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} } } } } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} } }  else 
{ /* ./Expand/initial.scm 734 */
goto BgL_tagzd21155zd2_1844;} } } 
return 
PROCEDURE_ENTRY(BgL_ez00_1816)(BgL_ez00_1816, BgL_arg4357z00_1818, BgL_ez00_1816, BEOA);} } } 
}



/* <anonymous:3796> */
obj_t BGl_zc3anonymousza33796ze3z83zzexpand_installz00(obj_t BgL_envz00_3692, obj_t BgL_xz00_3693, obj_t BgL_ez00_3694)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 682 */
{ 
obj_t BgL_xz00_1544;obj_t BgL_ez00_1545;
BgL_xz00_1544 = BgL_xz00_3693; 
BgL_ez00_1545 = BgL_ez00_3694; 
{ 
obj_t BgL_val0z00_1548;obj_t BgL_val0z00_1550;obj_t BgL_val1z00_1551;obj_t BgL_val0z00_1553;obj_t BgL_val1z00_1554;obj_t BgL_val2z00_1555;obj_t BgL_val0z00_1557;obj_t BgL_val1z00_1558;obj_t BgL_val2z00_1559;obj_t BgL_val3z00_1560;
{ /* ./Expand/initial.scm 682 */
bool_t BgL_test3797z00_1564;
BgL_test3797z00_1564 = 
PAIRP(BgL_xz00_1544); 
if(BgL_test3797z00_1564)
{ /* ./Expand/initial.scm 682 */
bool_t BgL_test3798z00_1565;
{ /* ./Expand/initial.scm 682 */
obj_t BgL_auxz00_4824;
BgL_auxz00_4824 = 
CDR(BgL_xz00_1544); 
BgL_test3798z00_1565 = 
NULLP(BgL_auxz00_4824); } 
if(BgL_test3798z00_1565)
{ /* ./Expand/initial.scm 682 */
return 
CNST_TABLE_REF(((long)102));}  else 
{ /* ./Expand/initial.scm 682 */
obj_t BgL_cdrzd2976zd2_1566;
BgL_cdrzd2976zd2_1566 = 
CDR(BgL_xz00_1544); 
{ /* ./Expand/initial.scm 682 */
bool_t BgL_test3800z00_1567;
BgL_test3800z00_1567 = 
PAIRP(BgL_cdrzd2976zd2_1566); 
if(BgL_test3800z00_1567)
{ /* ./Expand/initial.scm 682 */
bool_t BgL_test3801z00_1568;
{ /* ./Expand/initial.scm 682 */
obj_t BgL_auxz00_4832;
BgL_auxz00_4832 = 
CDR(BgL_cdrzd2976zd2_1566); 
BgL_test3801z00_1568 = 
NULLP(BgL_auxz00_4832); } 
if(BgL_test3801z00_1568)
{ /* ./Expand/initial.scm 682 */
obj_t BgL_arg3803z00_1569;
BgL_arg3803z00_1569 = 
CAR(BgL_cdrzd2976zd2_1566); 
BgL_val0z00_1548 = BgL_arg3803z00_1569; 
{ /* ./Expand/initial.scm 687 */
obj_t BgL_g0z00_1599;
{ /* ./Expand/initial.scm 687 */
obj_t BgL_arg3920z00_1617;
BgL_arg3920z00_1617 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)97)), BEOA); 
BgL_g0z00_1599 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3920z00_1617); } 
{ /* ./Expand/initial.scm 688 */
obj_t BgL_arg3880z00_1600;obj_t BgL_arg3881z00_1601;
BgL_arg3880z00_1600 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 688 */
obj_t BgL_arg3885z00_1602;obj_t BgL_arg3886z00_1603;
{ /* ./Expand/initial.scm 688 */
obj_t BgL_arg3889z00_1604;
{ /* ./Expand/initial.scm 688 */
obj_t BgL_arg3893z00_1606;
{ /* ./Expand/initial.scm 688 */
obj_t BgL_arg3896z00_1607;
BgL_arg3896z00_1607 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_val0z00_1548, BgL_ez00_1545, BEOA); 
BgL_arg3893z00_1606 = 
MAKE_PAIR(BgL_arg3896z00_1607, BNIL); } 
BgL_arg3889z00_1604 = 
MAKE_PAIR(BgL_g0z00_1599, BgL_arg3893z00_1606); } 
BgL_arg3885z00_1602 = 
MAKE_PAIR(BgL_arg3889z00_1604, BNIL); } 
{ /* ./Expand/initial.scm 689 */
obj_t BgL_arg3901z00_1609;obj_t BgL_arg3902z00_1610;
{ /* ./Expand/initial.scm 689 */
obj_t BgL_arg3905z00_1611;obj_t BgL_arg3906z00_1612;
{ /* ./Expand/initial.scm 689 */
obj_t BgL_arg3909z00_1613;obj_t BgL_arg3910z00_1614;
BgL_arg3909z00_1613 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 689 */
obj_t BgL_arg3913z00_1615;obj_t BgL_arg3914z00_1616;
BgL_arg3913z00_1615 = 
CNST_TABLE_REF(((long)96)); 
{ /* ./Expand/initial.scm 689 */
obj_t BgL_auxz00_4849;
BgL_auxz00_4849 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg3914z00_1616 = 
MAKE_PAIR(BgL_auxz00_4849, BNIL); } 
BgL_arg3910z00_1614 = 
MAKE_PAIR(BgL_arg3913z00_1615, BgL_arg3914z00_1616); } 
BgL_arg3905z00_1611 = 
MAKE_PAIR(BgL_arg3909z00_1613, BgL_arg3910z00_1614); } 
{ /* ./Expand/initial.scm 689 */
obj_t BgL_auxz00_4854;
BgL_auxz00_4854 = 
BINT(((long)1)); 
BgL_arg3906z00_1612 = 
MAKE_PAIR(BgL_auxz00_4854, BNIL); } 
BgL_arg3901z00_1609 = 
MAKE_PAIR(BgL_arg3905z00_1611, BgL_arg3906z00_1612); } 
BgL_arg3902z00_1610 = 
MAKE_PAIR(BgL_g0z00_1599, BNIL); 
BgL_arg3886z00_1603 = 
MAKE_PAIR(BgL_arg3901z00_1609, BgL_arg3902z00_1610); } 
BgL_arg3881z00_1601 = 
MAKE_PAIR(BgL_arg3885z00_1602, BgL_arg3886z00_1603); } 
return 
MAKE_PAIR(BgL_arg3880z00_1600, BgL_arg3881z00_1601);} } }  else 
{ /* ./Expand/initial.scm 682 */
obj_t BgL_cdrzd2994zd2_1571;
BgL_cdrzd2994zd2_1571 = 
CDR(BgL_cdrzd2976zd2_1566); 
{ /* ./Expand/initial.scm 682 */
bool_t BgL_test3806z00_1572;
BgL_test3806z00_1572 = 
PAIRP(BgL_cdrzd2994zd2_1571); 
if(BgL_test3806z00_1572)
{ /* ./Expand/initial.scm 682 */
bool_t BgL_test3807z00_1573;
{ /* ./Expand/initial.scm 682 */
obj_t BgL_auxz00_4865;
BgL_auxz00_4865 = 
CDR(BgL_cdrzd2994zd2_1571); 
BgL_test3807z00_1573 = 
NULLP(BgL_auxz00_4865); } 
if(BgL_test3807z00_1573)
{ /* ./Expand/initial.scm 682 */
obj_t BgL_arg3809z00_1574;obj_t BgL_arg3810z00_1575;
BgL_arg3809z00_1574 = 
CAR(BgL_cdrzd2976zd2_1566); 
BgL_arg3810z00_1575 = 
CAR(BgL_cdrzd2994zd2_1571); 
BgL_val0z00_1550 = BgL_arg3809z00_1574; 
BgL_val1z00_1551 = BgL_arg3810z00_1575; 
{ /* ./Expand/initial.scm 692 */
obj_t BgL_g0z00_1618;obj_t BgL_g1z00_1619;
{ /* ./Expand/initial.scm 692 */
obj_t BgL_arg3998z00_1652;
BgL_arg3998z00_1652 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)97)), BEOA); 
BgL_g0z00_1618 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3998z00_1652); } 
{ /* ./Expand/initial.scm 693 */
obj_t BgL_arg4002z00_1653;
BgL_arg4002z00_1653 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)98)), BEOA); 
BgL_g1z00_1619 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4002z00_1653); } 
{ /* ./Expand/initial.scm 694 */
obj_t BgL_arg3924z00_1620;obj_t BgL_arg3925z00_1621;
BgL_arg3924z00_1620 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 694 */
obj_t BgL_arg3928z00_1622;obj_t BgL_arg3929z00_1623;
{ /* ./Expand/initial.scm 694 */
obj_t BgL_arg3932z00_1624;obj_t BgL_arg3933z00_1625;
{ /* ./Expand/initial.scm 694 */
obj_t BgL_arg3937z00_1626;
{ /* ./Expand/initial.scm 694 */
obj_t BgL_arg3940z00_1627;
BgL_arg3940z00_1627 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_val0z00_1550, BgL_ez00_1545, BEOA); 
BgL_arg3937z00_1626 = 
MAKE_PAIR(BgL_arg3940z00_1627, BNIL); } 
BgL_arg3932z00_1624 = 
MAKE_PAIR(BgL_g0z00_1618, BgL_arg3937z00_1626); } 
{ /* ./Expand/initial.scm 695 */
obj_t BgL_arg3945z00_1629;
{ /* ./Expand/initial.scm 695 */
obj_t BgL_arg3949z00_1631;
{ /* ./Expand/initial.scm 695 */
obj_t BgL_arg3952z00_1632;
BgL_arg3952z00_1632 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_val1z00_1551, BgL_ez00_1545, BEOA); 
BgL_arg3949z00_1631 = 
MAKE_PAIR(BgL_arg3952z00_1632, BNIL); } 
BgL_arg3945z00_1629 = 
MAKE_PAIR(BgL_g1z00_1619, BgL_arg3949z00_1631); } 
BgL_arg3933z00_1625 = 
MAKE_PAIR(BgL_arg3945z00_1629, BNIL); } 
BgL_arg3928z00_1622 = 
MAKE_PAIR(BgL_arg3932z00_1624, BgL_arg3933z00_1625); } 
{ /* ./Expand/initial.scm 696 */
obj_t BgL_arg3957z00_1634;obj_t BgL_arg3958z00_1635;
{ /* ./Expand/initial.scm 696 */
obj_t BgL_arg3961z00_1636;obj_t BgL_arg3962z00_1637;
{ /* ./Expand/initial.scm 696 */
obj_t BgL_arg3965z00_1638;obj_t BgL_arg3966z00_1639;
BgL_arg3965z00_1638 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 696 */
obj_t BgL_arg3969z00_1640;obj_t BgL_arg3970z00_1641;
BgL_arg3969z00_1640 = 
CNST_TABLE_REF(((long)96)); 
{ /* ./Expand/initial.scm 696 */
obj_t BgL_auxz00_4892;
BgL_auxz00_4892 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg3970z00_1641 = 
MAKE_PAIR(BgL_auxz00_4892, BNIL); } 
BgL_arg3966z00_1639 = 
MAKE_PAIR(BgL_arg3969z00_1640, BgL_arg3970z00_1641); } 
BgL_arg3961z00_1636 = 
MAKE_PAIR(BgL_arg3965z00_1638, BgL_arg3966z00_1639); } 
{ /* ./Expand/initial.scm 696 */
obj_t BgL_auxz00_4897;
BgL_auxz00_4897 = 
BINT(((long)2)); 
BgL_arg3962z00_1637 = 
MAKE_PAIR(BgL_auxz00_4897, BNIL); } 
BgL_arg3957z00_1634 = 
MAKE_PAIR(BgL_arg3961z00_1636, BgL_arg3962z00_1637); } 
{ /* ./Expand/initial.scm 697 */
obj_t BgL_arg3975z00_1642;obj_t BgL_arg3976z00_1643;
{ /* ./Expand/initial.scm 697 */
obj_t BgL_arg3979z00_1644;obj_t BgL_arg3980z00_1645;
{ /* ./Expand/initial.scm 697 */
obj_t BgL_arg3983z00_1646;obj_t BgL_arg3984z00_1647;
BgL_arg3983z00_1646 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 697 */
obj_t BgL_arg3987z00_1648;obj_t BgL_arg3988z00_1649;
BgL_arg3987z00_1648 = 
CNST_TABLE_REF(((long)101)); 
{ /* ./Expand/initial.scm 697 */
obj_t BgL_auxz00_4903;
BgL_auxz00_4903 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg3988z00_1649 = 
MAKE_PAIR(BgL_auxz00_4903, BNIL); } 
BgL_arg3984z00_1647 = 
MAKE_PAIR(BgL_arg3987z00_1648, BgL_arg3988z00_1649); } 
BgL_arg3979z00_1644 = 
MAKE_PAIR(BgL_arg3983z00_1646, BgL_arg3984z00_1647); } 
{ /* ./Expand/initial.scm 697 */
obj_t BgL_arg3993z00_1651;
BgL_arg3993z00_1651 = 
MAKE_PAIR(BgL_g1z00_1619, BNIL); 
{ /* ./Expand/initial.scm 697 */
obj_t BgL_auxz00_4909;
BgL_auxz00_4909 = 
BINT(((long)1)); 
BgL_arg3980z00_1645 = 
MAKE_PAIR(BgL_auxz00_4909, BgL_arg3993z00_1651); } } 
BgL_arg3975z00_1642 = 
MAKE_PAIR(BgL_arg3979z00_1644, BgL_arg3980z00_1645); } 
BgL_arg3976z00_1643 = 
MAKE_PAIR(BgL_g0z00_1618, BNIL); 
BgL_arg3958z00_1635 = 
MAKE_PAIR(BgL_arg3975z00_1642, BgL_arg3976z00_1643); } 
BgL_arg3929z00_1623 = 
MAKE_PAIR(BgL_arg3957z00_1634, BgL_arg3958z00_1635); } 
BgL_arg3925z00_1621 = 
MAKE_PAIR(BgL_arg3928z00_1622, BgL_arg3929z00_1623); } 
return 
MAKE_PAIR(BgL_arg3924z00_1620, BgL_arg3925z00_1621);} } }  else 
{ /* ./Expand/initial.scm 682 */
obj_t BgL_cdrzd21018zd2_1577;
BgL_cdrzd21018zd2_1577 = 
CDR(BgL_cdrzd2976zd2_1566); 
{ /* ./Expand/initial.scm 682 */
obj_t BgL_cdrzd21025zd2_1578;
BgL_cdrzd21025zd2_1578 = 
CDR(BgL_cdrzd21018zd2_1577); 
{ /* ./Expand/initial.scm 682 */
bool_t BgL_test3814z00_1579;
BgL_test3814z00_1579 = 
PAIRP(BgL_cdrzd21025zd2_1578); 
if(BgL_test3814z00_1579)
{ /* ./Expand/initial.scm 682 */
bool_t BgL_test3815z00_1580;
{ /* ./Expand/initial.scm 682 */
obj_t BgL_auxz00_4922;
BgL_auxz00_4922 = 
CDR(BgL_cdrzd21025zd2_1578); 
BgL_test3815z00_1580 = 
NULLP(BgL_auxz00_4922); } 
if(BgL_test3815z00_1580)
{ /* ./Expand/initial.scm 682 */
obj_t BgL_arg3817z00_1581;obj_t BgL_arg3818z00_1582;obj_t BgL_arg3819z00_1583;
BgL_arg3817z00_1581 = 
CAR(BgL_cdrzd2976zd2_1566); 
BgL_arg3818z00_1582 = 
CAR(BgL_cdrzd21018zd2_1577); 
BgL_arg3819z00_1583 = 
CAR(BgL_cdrzd21025zd2_1578); 
BgL_val0z00_1553 = BgL_arg3817z00_1581; 
BgL_val1z00_1554 = BgL_arg3818z00_1582; 
BgL_val2z00_1555 = BgL_arg3819z00_1583; 
{ /* ./Expand/initial.scm 700 */
obj_t BgL_g0z00_1654;obj_t BgL_g1z00_1655;obj_t BgL_g2z00_1656;
{ /* ./Expand/initial.scm 700 */
obj_t BgL_arg4114z00_1704;
BgL_arg4114z00_1704 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)97)), BEOA); 
BgL_g0z00_1654 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4114z00_1704); } 
{ /* ./Expand/initial.scm 701 */
obj_t BgL_arg4118z00_1705;
BgL_arg4118z00_1705 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)98)), BEOA); 
BgL_g1z00_1655 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4118z00_1705); } 
{ /* ./Expand/initial.scm 702 */
obj_t BgL_arg4122z00_1706;
BgL_arg4122z00_1706 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)99)), BEOA); 
BgL_g2z00_1656 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4122z00_1706); } 
{ /* ./Expand/initial.scm 703 */
obj_t BgL_arg4006z00_1657;obj_t BgL_arg4007z00_1658;
BgL_arg4006z00_1657 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 703 */
obj_t BgL_arg4010z00_1659;obj_t BgL_arg4011z00_1660;
{ /* ./Expand/initial.scm 703 */
obj_t BgL_arg4014z00_1661;obj_t BgL_arg4015z00_1662;
{ /* ./Expand/initial.scm 703 */
obj_t BgL_arg4018z00_1663;
{ /* ./Expand/initial.scm 703 */
obj_t BgL_arg4021z00_1664;
BgL_arg4021z00_1664 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_val0z00_1553, BgL_ez00_1545, BEOA); 
BgL_arg4018z00_1663 = 
MAKE_PAIR(BgL_arg4021z00_1664, BNIL); } 
BgL_arg4014z00_1661 = 
MAKE_PAIR(BgL_g0z00_1654, BgL_arg4018z00_1663); } 
{ /* ./Expand/initial.scm 704 */
obj_t BgL_arg4026z00_1666;obj_t BgL_arg4027z00_1667;
{ /* ./Expand/initial.scm 704 */
obj_t BgL_arg4030z00_1668;
{ /* ./Expand/initial.scm 704 */
obj_t BgL_arg4033z00_1669;
BgL_arg4033z00_1669 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_val1z00_1554, BgL_ez00_1545, BEOA); 
BgL_arg4030z00_1668 = 
MAKE_PAIR(BgL_arg4033z00_1669, BNIL); } 
BgL_arg4026z00_1666 = 
MAKE_PAIR(BgL_g1z00_1655, BgL_arg4030z00_1668); } 
{ /* ./Expand/initial.scm 705 */
obj_t BgL_arg4038z00_1671;
{ /* ./Expand/initial.scm 705 */
obj_t BgL_arg4042z00_1673;
{ /* ./Expand/initial.scm 705 */
obj_t BgL_arg4045z00_1674;
BgL_arg4045z00_1674 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_val2z00_1555, BgL_ez00_1545, BEOA); 
BgL_arg4042z00_1673 = 
MAKE_PAIR(BgL_arg4045z00_1674, BNIL); } 
BgL_arg4038z00_1671 = 
MAKE_PAIR(BgL_g2z00_1656, BgL_arg4042z00_1673); } 
BgL_arg4027z00_1667 = 
MAKE_PAIR(BgL_arg4038z00_1671, BNIL); } 
BgL_arg4015z00_1662 = 
MAKE_PAIR(BgL_arg4026z00_1666, BgL_arg4027z00_1667); } 
BgL_arg4010z00_1659 = 
MAKE_PAIR(BgL_arg4014z00_1661, BgL_arg4015z00_1662); } 
{ /* ./Expand/initial.scm 706 */
obj_t BgL_arg4050z00_1676;obj_t BgL_arg4052z00_1677;
{ /* ./Expand/initial.scm 706 */
obj_t BgL_arg4055z00_1678;obj_t BgL_arg4056z00_1679;
{ /* ./Expand/initial.scm 706 */
obj_t BgL_arg4059z00_1680;obj_t BgL_arg4060z00_1681;
BgL_arg4059z00_1680 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 706 */
obj_t BgL_arg4063z00_1682;obj_t BgL_arg4064z00_1683;
BgL_arg4063z00_1682 = 
CNST_TABLE_REF(((long)96)); 
{ /* ./Expand/initial.scm 706 */
obj_t BgL_auxz00_4959;
BgL_auxz00_4959 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4064z00_1683 = 
MAKE_PAIR(BgL_auxz00_4959, BNIL); } 
BgL_arg4060z00_1681 = 
MAKE_PAIR(BgL_arg4063z00_1682, BgL_arg4064z00_1683); } 
BgL_arg4055z00_1678 = 
MAKE_PAIR(BgL_arg4059z00_1680, BgL_arg4060z00_1681); } 
{ /* ./Expand/initial.scm 706 */
obj_t BgL_auxz00_4964;
BgL_auxz00_4964 = 
BINT(((long)3)); 
BgL_arg4056z00_1679 = 
MAKE_PAIR(BgL_auxz00_4964, BNIL); } 
BgL_arg4050z00_1676 = 
MAKE_PAIR(BgL_arg4055z00_1678, BgL_arg4056z00_1679); } 
{ /* ./Expand/initial.scm 707 */
obj_t BgL_arg4069z00_1684;obj_t BgL_arg4070z00_1685;
{ /* ./Expand/initial.scm 707 */
obj_t BgL_arg4073z00_1686;obj_t BgL_arg4074z00_1687;
{ /* ./Expand/initial.scm 707 */
obj_t BgL_arg4077z00_1688;obj_t BgL_arg4078z00_1689;
BgL_arg4077z00_1688 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 707 */
obj_t BgL_arg4081z00_1690;obj_t BgL_arg4082z00_1691;
BgL_arg4081z00_1690 = 
CNST_TABLE_REF(((long)101)); 
{ /* ./Expand/initial.scm 707 */
obj_t BgL_auxz00_4970;
BgL_auxz00_4970 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4082z00_1691 = 
MAKE_PAIR(BgL_auxz00_4970, BNIL); } 
BgL_arg4078z00_1689 = 
MAKE_PAIR(BgL_arg4081z00_1690, BgL_arg4082z00_1691); } 
BgL_arg4073z00_1686 = 
MAKE_PAIR(BgL_arg4077z00_1688, BgL_arg4078z00_1689); } 
{ /* ./Expand/initial.scm 707 */
obj_t BgL_arg4087z00_1693;
BgL_arg4087z00_1693 = 
MAKE_PAIR(BgL_g1z00_1655, BNIL); 
{ /* ./Expand/initial.scm 707 */
obj_t BgL_auxz00_4976;
BgL_auxz00_4976 = 
BINT(((long)1)); 
BgL_arg4074z00_1687 = 
MAKE_PAIR(BgL_auxz00_4976, BgL_arg4087z00_1693); } } 
BgL_arg4069z00_1684 = 
MAKE_PAIR(BgL_arg4073z00_1686, BgL_arg4074z00_1687); } 
{ /* ./Expand/initial.scm 708 */
obj_t BgL_arg4091z00_1694;obj_t BgL_arg4092z00_1695;
{ /* ./Expand/initial.scm 708 */
obj_t BgL_arg4095z00_1696;obj_t BgL_arg4096z00_1697;
{ /* ./Expand/initial.scm 708 */
obj_t BgL_arg4099z00_1698;obj_t BgL_arg4100z00_1699;
BgL_arg4099z00_1698 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 708 */
obj_t BgL_arg4103z00_1700;obj_t BgL_arg4104z00_1701;
BgL_arg4103z00_1700 = 
CNST_TABLE_REF(((long)101)); 
{ /* ./Expand/initial.scm 708 */
obj_t BgL_auxz00_4982;
BgL_auxz00_4982 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4104z00_1701 = 
MAKE_PAIR(BgL_auxz00_4982, BNIL); } 
BgL_arg4100z00_1699 = 
MAKE_PAIR(BgL_arg4103z00_1700, BgL_arg4104z00_1701); } 
BgL_arg4095z00_1696 = 
MAKE_PAIR(BgL_arg4099z00_1698, BgL_arg4100z00_1699); } 
{ /* ./Expand/initial.scm 708 */
obj_t BgL_arg4109z00_1703;
BgL_arg4109z00_1703 = 
MAKE_PAIR(BgL_g2z00_1656, BNIL); 
{ /* ./Expand/initial.scm 708 */
obj_t BgL_auxz00_4988;
BgL_auxz00_4988 = 
BINT(((long)2)); 
BgL_arg4096z00_1697 = 
MAKE_PAIR(BgL_auxz00_4988, BgL_arg4109z00_1703); } } 
BgL_arg4091z00_1694 = 
MAKE_PAIR(BgL_arg4095z00_1696, BgL_arg4096z00_1697); } 
BgL_arg4092z00_1695 = 
MAKE_PAIR(BgL_g0z00_1654, BNIL); 
BgL_arg4070z00_1685 = 
MAKE_PAIR(BgL_arg4091z00_1694, BgL_arg4092z00_1695); } 
BgL_arg4052z00_1677 = 
MAKE_PAIR(BgL_arg4069z00_1684, BgL_arg4070z00_1685); } 
BgL_arg4011z00_1660 = 
MAKE_PAIR(BgL_arg4050z00_1676, BgL_arg4052z00_1677); } 
BgL_arg4007z00_1658 = 
MAKE_PAIR(BgL_arg4010z00_1659, BgL_arg4011z00_1660); } 
return 
MAKE_PAIR(BgL_arg4006z00_1657, BgL_arg4007z00_1658);} } }  else 
{ /* ./Expand/initial.scm 682 */
obj_t BgL_cdrzd21053zd2_1585;
BgL_cdrzd21053zd2_1585 = 
CDR(BgL_cdrzd2976zd2_1566); 
{ /* ./Expand/initial.scm 682 */
obj_t BgL_cdrzd21062zd2_1586;
BgL_cdrzd21062zd2_1586 = 
CDR(BgL_cdrzd21053zd2_1585); 
{ /* ./Expand/initial.scm 682 */
obj_t BgL_cdrzd21069zd2_1587;
BgL_cdrzd21069zd2_1587 = 
CDR(BgL_cdrzd21062zd2_1586); 
{ /* ./Expand/initial.scm 682 */
bool_t BgL_test3824z00_1588;
BgL_test3824z00_1588 = 
PAIRP(BgL_cdrzd21069zd2_1587); 
if(BgL_test3824z00_1588)
{ /* ./Expand/initial.scm 682 */
bool_t BgL_test3825z00_1589;
{ /* ./Expand/initial.scm 682 */
obj_t BgL_auxz00_5003;
BgL_auxz00_5003 = 
CDR(BgL_cdrzd21069zd2_1587); 
BgL_test3825z00_1589 = 
NULLP(BgL_auxz00_5003); } 
if(BgL_test3825z00_1589)
{ /* ./Expand/initial.scm 682 */
obj_t BgL_arg3827z00_1590;obj_t BgL_arg3828z00_1591;obj_t BgL_arg3830z00_1592;obj_t BgL_arg3832z00_1593;
BgL_arg3827z00_1590 = 
CAR(BgL_cdrzd2976zd2_1566); 
BgL_arg3828z00_1591 = 
CAR(BgL_cdrzd21053zd2_1585); 
BgL_arg3830z00_1592 = 
CAR(BgL_cdrzd21062zd2_1586); 
BgL_arg3832z00_1593 = 
CAR(BgL_cdrzd21069zd2_1587); 
BgL_val0z00_1557 = BgL_arg3827z00_1590; 
BgL_val1z00_1558 = BgL_arg3828z00_1591; 
BgL_val2z00_1559 = BgL_arg3830z00_1592; 
BgL_val3z00_1560 = BgL_arg3832z00_1593; 
{ /* ./Expand/initial.scm 711 */
obj_t BgL_g0z00_1707;obj_t BgL_g1z00_1708;obj_t BgL_g2z00_1709;obj_t BgL_g3z00_1710;
{ /* ./Expand/initial.scm 711 */
obj_t BgL_arg4267z00_1773;
BgL_arg4267z00_1773 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)97)), BEOA); 
BgL_g0z00_1707 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4267z00_1773); } 
{ /* ./Expand/initial.scm 712 */
obj_t BgL_arg4271z00_1774;
BgL_arg4271z00_1774 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)98)), BEOA); 
BgL_g1z00_1708 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4271z00_1774); } 
{ /* ./Expand/initial.scm 713 */
obj_t BgL_arg4275z00_1775;
BgL_arg4275z00_1775 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)99)), BEOA); 
BgL_g2z00_1709 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4275z00_1775); } 
{ /* ./Expand/initial.scm 714 */
obj_t BgL_arg4279z00_1776;
BgL_arg4279z00_1776 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)100)), BEOA); 
BgL_g3z00_1710 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4279z00_1776); } 
{ /* ./Expand/initial.scm 715 */
obj_t BgL_arg4126z00_1711;obj_t BgL_arg4127z00_1712;
BgL_arg4126z00_1711 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 715 */
obj_t BgL_arg4130z00_1713;obj_t BgL_arg4131z00_1714;
{ /* ./Expand/initial.scm 715 */
obj_t BgL_arg4134z00_1715;obj_t BgL_arg4135z00_1716;
{ /* ./Expand/initial.scm 715 */
obj_t BgL_arg4138z00_1717;
{ /* ./Expand/initial.scm 715 */
obj_t BgL_arg4141z00_1718;
BgL_arg4141z00_1718 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_val0z00_1557, BgL_ez00_1545, BEOA); 
BgL_arg4138z00_1717 = 
MAKE_PAIR(BgL_arg4141z00_1718, BNIL); } 
BgL_arg4134z00_1715 = 
MAKE_PAIR(BgL_g0z00_1707, BgL_arg4138z00_1717); } 
{ /* ./Expand/initial.scm 716 */
obj_t BgL_arg4146z00_1720;obj_t BgL_arg4147z00_1721;
{ /* ./Expand/initial.scm 716 */
obj_t BgL_arg4150z00_1722;
{ /* ./Expand/initial.scm 716 */
obj_t BgL_arg4153z00_1723;
BgL_arg4153z00_1723 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_val1z00_1558, BgL_ez00_1545, BEOA); 
BgL_arg4150z00_1722 = 
MAKE_PAIR(BgL_arg4153z00_1723, BNIL); } 
BgL_arg4146z00_1720 = 
MAKE_PAIR(BgL_g1z00_1708, BgL_arg4150z00_1722); } 
{ /* ./Expand/initial.scm 717 */
obj_t BgL_arg4158z00_1725;obj_t BgL_arg4159z00_1726;
{ /* ./Expand/initial.scm 717 */
obj_t BgL_arg4162z00_1727;
{ /* ./Expand/initial.scm 717 */
obj_t BgL_arg4165z00_1728;
BgL_arg4165z00_1728 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_val2z00_1559, BgL_ez00_1545, BEOA); 
BgL_arg4162z00_1727 = 
MAKE_PAIR(BgL_arg4165z00_1728, BNIL); } 
BgL_arg4158z00_1725 = 
MAKE_PAIR(BgL_g2z00_1709, BgL_arg4162z00_1727); } 
{ /* ./Expand/initial.scm 718 */
obj_t BgL_arg4170z00_1730;
{ /* ./Expand/initial.scm 718 */
obj_t BgL_arg4174z00_1732;
{ /* ./Expand/initial.scm 718 */
obj_t BgL_arg4177z00_1733;
BgL_arg4177z00_1733 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_val3z00_1560, BgL_ez00_1545, BEOA); 
BgL_arg4174z00_1732 = 
MAKE_PAIR(BgL_arg4177z00_1733, BNIL); } 
BgL_arg4170z00_1730 = 
MAKE_PAIR(BgL_g3z00_1710, BgL_arg4174z00_1732); } 
BgL_arg4159z00_1726 = 
MAKE_PAIR(BgL_arg4170z00_1730, BNIL); } 
BgL_arg4147z00_1721 = 
MAKE_PAIR(BgL_arg4158z00_1725, BgL_arg4159z00_1726); } 
BgL_arg4135z00_1716 = 
MAKE_PAIR(BgL_arg4146z00_1720, BgL_arg4147z00_1721); } 
BgL_arg4130z00_1713 = 
MAKE_PAIR(BgL_arg4134z00_1715, BgL_arg4135z00_1716); } 
{ /* ./Expand/initial.scm 719 */
obj_t BgL_arg4182z00_1735;obj_t BgL_arg4183z00_1736;
{ /* ./Expand/initial.scm 719 */
obj_t BgL_arg4186z00_1737;obj_t BgL_arg4187z00_1738;
{ /* ./Expand/initial.scm 719 */
obj_t BgL_arg4190z00_1739;obj_t BgL_arg4191z00_1740;
BgL_arg4190z00_1739 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 719 */
obj_t BgL_arg4194z00_1741;obj_t BgL_arg4195z00_1742;
BgL_arg4194z00_1741 = 
CNST_TABLE_REF(((long)96)); 
{ /* ./Expand/initial.scm 719 */
obj_t BgL_auxz00_5050;
BgL_auxz00_5050 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4195z00_1742 = 
MAKE_PAIR(BgL_auxz00_5050, BNIL); } 
BgL_arg4191z00_1740 = 
MAKE_PAIR(BgL_arg4194z00_1741, BgL_arg4195z00_1742); } 
BgL_arg4186z00_1737 = 
MAKE_PAIR(BgL_arg4190z00_1739, BgL_arg4191z00_1740); } 
{ /* ./Expand/initial.scm 719 */
obj_t BgL_auxz00_5055;
BgL_auxz00_5055 = 
BINT(((long)4)); 
BgL_arg4187z00_1738 = 
MAKE_PAIR(BgL_auxz00_5055, BNIL); } 
BgL_arg4182z00_1735 = 
MAKE_PAIR(BgL_arg4186z00_1737, BgL_arg4187z00_1738); } 
{ /* ./Expand/initial.scm 720 */
obj_t BgL_arg4200z00_1743;obj_t BgL_arg4201z00_1744;
{ /* ./Expand/initial.scm 720 */
obj_t BgL_arg4204z00_1745;obj_t BgL_arg4205z00_1746;
{ /* ./Expand/initial.scm 720 */
obj_t BgL_arg4208z00_1747;obj_t BgL_arg4209z00_1748;
BgL_arg4208z00_1747 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 720 */
obj_t BgL_arg4212z00_1749;obj_t BgL_arg4213z00_1750;
BgL_arg4212z00_1749 = 
CNST_TABLE_REF(((long)101)); 
{ /* ./Expand/initial.scm 720 */
obj_t BgL_auxz00_5061;
BgL_auxz00_5061 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4213z00_1750 = 
MAKE_PAIR(BgL_auxz00_5061, BNIL); } 
BgL_arg4209z00_1748 = 
MAKE_PAIR(BgL_arg4212z00_1749, BgL_arg4213z00_1750); } 
BgL_arg4204z00_1745 = 
MAKE_PAIR(BgL_arg4208z00_1747, BgL_arg4209z00_1748); } 
{ /* ./Expand/initial.scm 720 */
obj_t BgL_arg4218z00_1752;
BgL_arg4218z00_1752 = 
MAKE_PAIR(BgL_g1z00_1708, BNIL); 
{ /* ./Expand/initial.scm 720 */
obj_t BgL_auxz00_5067;
BgL_auxz00_5067 = 
BINT(((long)1)); 
BgL_arg4205z00_1746 = 
MAKE_PAIR(BgL_auxz00_5067, BgL_arg4218z00_1752); } } 
BgL_arg4200z00_1743 = 
MAKE_PAIR(BgL_arg4204z00_1745, BgL_arg4205z00_1746); } 
{ /* ./Expand/initial.scm 721 */
obj_t BgL_arg4222z00_1753;obj_t BgL_arg4223z00_1754;
{ /* ./Expand/initial.scm 721 */
obj_t BgL_arg4226z00_1755;obj_t BgL_arg4227z00_1756;
{ /* ./Expand/initial.scm 721 */
obj_t BgL_arg4230z00_1757;obj_t BgL_arg4231z00_1758;
BgL_arg4230z00_1757 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 721 */
obj_t BgL_arg4234z00_1759;obj_t BgL_arg4235z00_1760;
BgL_arg4234z00_1759 = 
CNST_TABLE_REF(((long)101)); 
{ /* ./Expand/initial.scm 721 */
obj_t BgL_auxz00_5073;
BgL_auxz00_5073 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4235z00_1760 = 
MAKE_PAIR(BgL_auxz00_5073, BNIL); } 
BgL_arg4231z00_1758 = 
MAKE_PAIR(BgL_arg4234z00_1759, BgL_arg4235z00_1760); } 
BgL_arg4226z00_1755 = 
MAKE_PAIR(BgL_arg4230z00_1757, BgL_arg4231z00_1758); } 
{ /* ./Expand/initial.scm 721 */
obj_t BgL_arg4240z00_1762;
BgL_arg4240z00_1762 = 
MAKE_PAIR(BgL_g2z00_1709, BNIL); 
{ /* ./Expand/initial.scm 721 */
obj_t BgL_auxz00_5079;
BgL_auxz00_5079 = 
BINT(((long)2)); 
BgL_arg4227z00_1756 = 
MAKE_PAIR(BgL_auxz00_5079, BgL_arg4240z00_1762); } } 
BgL_arg4222z00_1753 = 
MAKE_PAIR(BgL_arg4226z00_1755, BgL_arg4227z00_1756); } 
{ /* ./Expand/initial.scm 722 */
obj_t BgL_arg4244z00_1763;obj_t BgL_arg4245z00_1764;
{ /* ./Expand/initial.scm 722 */
obj_t BgL_arg4248z00_1765;obj_t BgL_arg4249z00_1766;
{ /* ./Expand/initial.scm 722 */
obj_t BgL_arg4252z00_1767;obj_t BgL_arg4253z00_1768;
BgL_arg4252z00_1767 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 722 */
obj_t BgL_arg4256z00_1769;obj_t BgL_arg4257z00_1770;
BgL_arg4256z00_1769 = 
CNST_TABLE_REF(((long)101)); 
{ /* ./Expand/initial.scm 722 */
obj_t BgL_auxz00_5085;
BgL_auxz00_5085 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4257z00_1770 = 
MAKE_PAIR(BgL_auxz00_5085, BNIL); } 
BgL_arg4253z00_1768 = 
MAKE_PAIR(BgL_arg4256z00_1769, BgL_arg4257z00_1770); } 
BgL_arg4248z00_1765 = 
MAKE_PAIR(BgL_arg4252z00_1767, BgL_arg4253z00_1768); } 
{ /* ./Expand/initial.scm 722 */
obj_t BgL_arg4262z00_1772;
BgL_arg4262z00_1772 = 
MAKE_PAIR(BgL_g3z00_1710, BNIL); 
{ /* ./Expand/initial.scm 722 */
obj_t BgL_auxz00_5091;
BgL_auxz00_5091 = 
BINT(((long)3)); 
BgL_arg4249z00_1766 = 
MAKE_PAIR(BgL_auxz00_5091, BgL_arg4262z00_1772); } } 
BgL_arg4244z00_1763 = 
MAKE_PAIR(BgL_arg4248z00_1765, BgL_arg4249z00_1766); } 
BgL_arg4245z00_1764 = 
MAKE_PAIR(BgL_g0z00_1707, BNIL); 
BgL_arg4223z00_1754 = 
MAKE_PAIR(BgL_arg4244z00_1763, BgL_arg4245z00_1764); } 
BgL_arg4201z00_1744 = 
MAKE_PAIR(BgL_arg4222z00_1753, BgL_arg4223z00_1754); } 
BgL_arg4183z00_1736 = 
MAKE_PAIR(BgL_arg4200z00_1743, BgL_arg4201z00_1744); } 
BgL_arg4131z00_1714 = 
MAKE_PAIR(BgL_arg4182z00_1735, BgL_arg4183z00_1736); } 
BgL_arg4127z00_1712 = 
MAKE_PAIR(BgL_arg4130z00_1713, BgL_arg4131z00_1714); } 
return 
MAKE_PAIR(BgL_arg4126z00_1711, BgL_arg4127z00_1712);} } }  else 
{ /* ./Expand/initial.scm 682 */
BgL_tagzd2962zd2_1562:
{ /* ./Expand/initial.scm 725 */
obj_t BgL_g0z00_1777;
{ /* ./Expand/initial.scm 725 */
obj_t BgL_arg4348z00_1811;
BgL_arg4348z00_1811 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)94)), BEOA); 
BgL_g0z00_1777 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg4348z00_1811); } 
{ /* ./Expand/initial.scm 726 */
obj_t BgL_arg4283z00_1778;obj_t BgL_arg4284z00_1779;
BgL_arg4283z00_1778 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 726 */
obj_t BgL_arg4287z00_1780;obj_t BgL_arg4288z00_1781;
{ /* ./Expand/initial.scm 726 */
obj_t BgL_arg4291z00_1782;
{ /* ./Expand/initial.scm 726 */
obj_t BgL_arg4295z00_1784;
{ /* ./Expand/initial.scm 726 */
obj_t BgL_arg4298z00_1785;
{ /* ./Expand/initial.scm 726 */
obj_t BgL_arg4302z00_1787;obj_t BgL_arg4303z00_1788;
BgL_arg4302z00_1787 = 
CNST_TABLE_REF(((long)95)); 
{ /* ./Expand/initial.scm 726 */
obj_t BgL_arg4306z00_1789;
{ /* ./Expand/initial.scm 726 */
obj_t BgL_l1171z00_1791;
BgL_l1171z00_1791 = 
CDR(BgL_xz00_1544); 
{ /* ./Expand/initial.scm 726 */
bool_t BgL_test4309z00_1792;
BgL_test4309z00_1792 = 
NULLP(BgL_l1171z00_1791); 
if(BgL_test4309z00_1792)
{ /* ./Expand/initial.scm 726 */
BgL_arg4306z00_1789 = BNIL; }  else 
{ /* ./Expand/initial.scm 726 */
obj_t BgL_head1173z00_1793;
BgL_head1173z00_1793 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1171z00_1794;obj_t BgL_tail1174z00_1795;
BgL_l1171z00_1794 = BgL_l1171z00_1791; 
BgL_tail1174z00_1795 = BgL_head1173z00_1793; 
BgL_map1172z00_1796:
{ /* ./Expand/initial.scm 726 */
bool_t BgL_test4311z00_1797;
BgL_test4311z00_1797 = 
NULLP(BgL_l1171z00_1794); 
if(BgL_test4311z00_1797)
{ /* ./Expand/initial.scm 726 */
BgL_arg4306z00_1789 = 
CDR(BgL_head1173z00_1793); }  else 
{ /* ./Expand/initial.scm 726 */
obj_t BgL_newtail1175z00_1798;
{ /* ./Expand/initial.scm 726 */
obj_t BgL_arg4319z00_1800;
{ /* ./Expand/initial.scm 726 */
obj_t BgL_xz00_1802;
BgL_xz00_1802 = 
CAR(BgL_l1171z00_1794); 
BgL_arg4319z00_1800 = 
PROCEDURE_ENTRY(BgL_ez00_1545)(BgL_ez00_1545, BgL_xz00_1802, BgL_ez00_1545, BEOA); } 
BgL_newtail1175z00_1798 = 
MAKE_PAIR(BgL_arg4319z00_1800, BNIL); } 
SET_CDR(BgL_tail1174z00_1795, BgL_newtail1175z00_1798); 
{ /* ./Expand/initial.scm 726 */
obj_t BgL_arg4315z00_1799;
BgL_arg4315z00_1799 = 
CDR(BgL_l1171z00_1794); 
{ 
obj_t BgL_tail1174z00_5122;obj_t BgL_l1171z00_5121;
BgL_l1171z00_5121 = BgL_arg4315z00_1799; 
BgL_tail1174z00_5122 = BgL_newtail1175z00_1798; 
BgL_tail1174z00_1795 = BgL_tail1174z00_5122; 
BgL_l1171z00_1794 = BgL_l1171z00_5121; 
goto BgL_map1172z00_1796;} } } } } } } } 
BgL_arg4303z00_1788 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg4306z00_1789, BNIL); } 
BgL_arg4298z00_1785 = 
MAKE_PAIR(BgL_arg4302z00_1787, BgL_arg4303z00_1788); } 
BgL_arg4295z00_1784 = 
MAKE_PAIR(BgL_arg4298z00_1785, BNIL); } 
BgL_arg4291z00_1782 = 
MAKE_PAIR(BgL_g0z00_1777, BgL_arg4295z00_1784); } 
BgL_arg4287z00_1780 = 
MAKE_PAIR(BgL_arg4291z00_1782, BNIL); } 
{ /* ./Expand/initial.scm 727 */
obj_t BgL_arg4329z00_1803;obj_t BgL_arg4330z00_1804;
{ /* ./Expand/initial.scm 727 */
obj_t BgL_arg4333z00_1805;obj_t BgL_arg4334z00_1806;
{ /* ./Expand/initial.scm 727 */
obj_t BgL_arg4337z00_1807;obj_t BgL_arg4338z00_1808;
BgL_arg4337z00_1807 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 727 */
obj_t BgL_arg4341z00_1809;obj_t BgL_arg4342z00_1810;
BgL_arg4341z00_1809 = 
CNST_TABLE_REF(((long)96)); 
{ /* ./Expand/initial.scm 727 */
obj_t BgL_auxz00_5130;
BgL_auxz00_5130 = 
CNST_TABLE_REF(((long)92)); 
BgL_arg4342z00_1810 = 
MAKE_PAIR(BgL_auxz00_5130, BNIL); } 
BgL_arg4338z00_1808 = 
MAKE_PAIR(BgL_arg4341z00_1809, BgL_arg4342z00_1810); } 
BgL_arg4333z00_1805 = 
MAKE_PAIR(BgL_arg4337z00_1807, BgL_arg4338z00_1808); } 
{ /* ./Expand/initial.scm 727 */
obj_t BgL_auxz00_5135;
BgL_auxz00_5135 = 
BINT(((long)-1)); 
BgL_arg4334z00_1806 = 
MAKE_PAIR(BgL_auxz00_5135, BNIL); } 
BgL_arg4329z00_1803 = 
MAKE_PAIR(BgL_arg4333z00_1805, BgL_arg4334z00_1806); } 
BgL_arg4330z00_1804 = 
MAKE_PAIR(BgL_g0z00_1777, BNIL); 
BgL_arg4288z00_1781 = 
MAKE_PAIR(BgL_arg4329z00_1803, BgL_arg4330z00_1804); } 
BgL_arg4284z00_1779 = 
MAKE_PAIR(BgL_arg4287z00_1780, BgL_arg4288z00_1781); } 
return 
MAKE_PAIR(BgL_arg4283z00_1778, BgL_arg4284z00_1779);} } } }  else 
{ /* ./Expand/initial.scm 682 */
goto BgL_tagzd2962zd2_1562;} } } } } }  else 
{ /* ./Expand/initial.scm 682 */
goto BgL_tagzd2962zd2_1562;} } } } }  else 
{ /* ./Expand/initial.scm 682 */
goto BgL_tagzd2962zd2_1562;} } } }  else 
{ /* ./Expand/initial.scm 682 */
goto BgL_tagzd2962zd2_1562;} } } }  else 
{ /* ./Expand/initial.scm 682 */
goto BgL_tagzd2962zd2_1562;} } } } } 
}



/* <anonymous:3790> */
obj_t BGl_zc3anonymousza33790ze3z83zzexpand_installz00(obj_t BgL_envz00_3695, obj_t BgL_xz00_3696, obj_t BgL_ez00_3697)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 676 */
{ 
obj_t BgL_xz00_1538;obj_t BgL_ez00_1539;
BgL_xz00_1538 = BgL_xz00_3696; 
BgL_ez00_1539 = BgL_ez00_3697; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_1538, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_1539);} } 
}



/* <anonymous:3784> */
obj_t BGl_zc3anonymousza33784ze3z83zzexpand_installz00(obj_t BgL_envz00_3698, obj_t BgL_xz00_3699, obj_t BgL_ez00_3700)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 670 */
{ 
obj_t BgL_xz00_1532;obj_t BgL_ez00_1533;
BgL_xz00_1532 = BgL_xz00_3699; 
BgL_ez00_1533 = BgL_ez00_3700; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_1532, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_1533);} } 
}



/* <anonymous:3644> */
obj_t BGl_zc3anonymousza33644ze3z83zzexpand_installz00(obj_t BgL_envz00_3701, obj_t BgL_xz00_3702, obj_t BgL_ez00_3703)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 651 */
{ 
obj_t BgL_xz00_1455;obj_t BgL_ez00_1456;
BgL_xz00_1455 = BgL_xz00_3702; 
BgL_ez00_1456 = BgL_ez00_3703; 
{ 
obj_t BgL_portz00_1458;obj_t BgL_portz00_1460;obj_t BgL_objz00_1461;
{ /* ./Expand/initial.scm 651 */
bool_t BgL_test3645z00_1465;
BgL_test3645z00_1465 = 
PAIRP(BgL_xz00_1455); 
if(BgL_test3645z00_1465)
{ /* ./Expand/initial.scm 651 */
obj_t BgL_cdrzd2929zd2_1466;
BgL_cdrzd2929zd2_1466 = 
CDR(BgL_xz00_1455); 
{ /* ./Expand/initial.scm 651 */
bool_t BgL_test3646z00_1467;
BgL_test3646z00_1467 = 
PAIRP(BgL_cdrzd2929zd2_1466); 
if(BgL_test3646z00_1467)
{ /* ./Expand/initial.scm 651 */
bool_t BgL_test3647z00_1468;
{ /* ./Expand/initial.scm 651 */
obj_t BgL_auxz00_5152;
BgL_auxz00_5152 = 
CDR(BgL_cdrzd2929zd2_1466); 
BgL_test3647z00_1468 = 
NULLP(BgL_auxz00_5152); } 
if(BgL_test3647z00_1468)
{ /* ./Expand/initial.scm 651 */
obj_t BgL_arg3650z00_1469;
BgL_arg3650z00_1469 = 
CAR(BgL_cdrzd2929zd2_1466); 
BgL_portz00_1458 = BgL_arg3650z00_1469; 
{ /* ./Expand/initial.scm 654 */
obj_t BgL_arg3670z00_1474;
{ /* ./Expand/initial.scm 654 */
obj_t BgL_arg3673z00_1475;obj_t BgL_arg3674z00_1476;
{ /* ./Expand/initial.scm 654 */
obj_t BgL_arg3677z00_1477;obj_t BgL_arg3678z00_1478;
BgL_arg3677z00_1477 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 654 */
obj_t BgL_arg3681z00_1479;obj_t BgL_arg3682z00_1480;
BgL_arg3681z00_1479 = 
CNST_TABLE_REF(((long)105)); 
{ /* ./Expand/initial.scm 654 */
obj_t BgL_auxz00_5159;
BgL_auxz00_5159 = 
CNST_TABLE_REF(((long)106)); 
BgL_arg3682z00_1480 = 
MAKE_PAIR(BgL_auxz00_5159, BNIL); } 
BgL_arg3678z00_1478 = 
MAKE_PAIR(BgL_arg3681z00_1479, BgL_arg3682z00_1480); } 
BgL_arg3673z00_1475 = 
MAKE_PAIR(BgL_arg3677z00_1477, BgL_arg3678z00_1478); } 
BgL_arg3674z00_1476 = 
MAKE_PAIR(BgL_portz00_1458, BNIL); 
BgL_arg3670z00_1474 = 
MAKE_PAIR(BgL_arg3673z00_1475, BgL_arg3674z00_1476); } 
return 
PROCEDURE_ENTRY(BgL_ez00_1456)(BgL_ez00_1456, BgL_arg3670z00_1474, BgL_ez00_1456, BEOA);} }  else 
{ /* ./Expand/initial.scm 651 */
obj_t BgL_arg3654z00_1471;obj_t BgL_arg3655z00_1472;
BgL_arg3654z00_1471 = 
CAR(BgL_cdrzd2929zd2_1466); 
BgL_arg3655z00_1472 = 
CDR(BgL_cdrzd2929zd2_1466); 
BgL_portz00_1460 = BgL_arg3654z00_1471; 
BgL_objz00_1461 = BgL_arg3655z00_1472; 
{ /* ./Expand/initial.scm 657 */
obj_t BgL_auxz00_1481;
{ /* ./Expand/initial.scm 657 */
obj_t BgL_arg3758z00_1516;
BgL_arg3758z00_1516 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)104)), BEOA); 
BgL_auxz00_1481 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3758z00_1516); } 
{ /* ./Expand/initial.scm 658 */
obj_t BgL_arg3687z00_1482;
{ /* ./Expand/initial.scm 658 */
obj_t BgL_arg3690z00_1483;obj_t BgL_arg3691z00_1484;
BgL_arg3690z00_1483 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 658 */
obj_t BgL_arg3694z00_1485;obj_t BgL_arg3695z00_1486;
{ /* ./Expand/initial.scm 658 */
obj_t BgL_arg3698z00_1487;
{ /* ./Expand/initial.scm 658 */
obj_t BgL_arg3702z00_1489;
BgL_arg3702z00_1489 = 
MAKE_PAIR(BgL_portz00_1460, BNIL); 
BgL_arg3698z00_1487 = 
MAKE_PAIR(BgL_auxz00_1481, BgL_arg3702z00_1489); } 
BgL_arg3694z00_1485 = 
MAKE_PAIR(BgL_arg3698z00_1487, BNIL); } 
{ /* ./Expand/initial.scm 659 */
obj_t BgL_arg3706z00_1490;obj_t BgL_arg3707z00_1491;
{ /* ./Expand/initial.scm 659 */
bool_t BgL_test3709z00_1493;
BgL_test3709z00_1493 = 
NULLP(BgL_objz00_1461); 
if(BgL_test3709z00_1493)
{ /* ./Expand/initial.scm 659 */
BgL_arg3706z00_1490 = BNIL; }  else 
{ /* ./Expand/initial.scm 659 */
obj_t BgL_head1163z00_1494;
BgL_head1163z00_1494 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1161z00_1495;obj_t BgL_tail1164z00_1496;
BgL_l1161z00_1495 = BgL_objz00_1461; 
BgL_tail1164z00_1496 = BgL_head1163z00_1494; 
BgL_map1162z00_1497:
{ /* ./Expand/initial.scm 659 */
bool_t BgL_test3711z00_1498;
BgL_test3711z00_1498 = 
NULLP(BgL_l1161z00_1495); 
if(BgL_test3711z00_1498)
{ /* ./Expand/initial.scm 659 */
BgL_arg3706z00_1490 = 
CDR(BgL_head1163z00_1494); }  else 
{ /* ./Expand/initial.scm 660 */
obj_t BgL_newtail1165z00_1499;
{ /* ./Expand/initial.scm 660 */
obj_t BgL_arg3719z00_1501;
{ /* ./Expand/initial.scm 660 */
obj_t BgL_yz00_1503;
BgL_yz00_1503 = 
CAR(BgL_l1161z00_1495); 
{ /* ./Expand/initial.scm 660 */
obj_t BgL_arg3723z00_1504;
{ /* ./Expand/initial.scm 660 */
obj_t BgL_arg3726z00_1505;obj_t BgL_arg3728z00_1506;
BgL_arg3726z00_1505 = 
BGl_dispz00zzexpand_installz00(BgL_yz00_1503); 
{ /* ./Expand/initial.scm 660 */
obj_t BgL_arg3732z00_1507;
BgL_arg3732z00_1507 = 
MAKE_PAIR(BgL_auxz00_1481, BNIL); 
BgL_arg3728z00_1506 = 
MAKE_PAIR(BgL_yz00_1503, BgL_arg3732z00_1507); } 
BgL_arg3723z00_1504 = 
MAKE_PAIR(BgL_arg3726z00_1505, BgL_arg3728z00_1506); } 
BgL_arg3719z00_1501 = 
BGl_epairifyz00zztools_miscz00(BgL_arg3723z00_1504, BgL_xz00_1455); } } 
BgL_newtail1165z00_1499 = 
MAKE_PAIR(BgL_arg3719z00_1501, BNIL); } 
SET_CDR(BgL_tail1164z00_1496, BgL_newtail1165z00_1499); 
{ /* ./Expand/initial.scm 659 */
obj_t BgL_arg3715z00_1500;
BgL_arg3715z00_1500 = 
CDR(BgL_l1161z00_1495); 
{ 
obj_t BgL_tail1164z00_5194;obj_t BgL_l1161z00_5193;
BgL_l1161z00_5193 = BgL_arg3715z00_1500; 
BgL_tail1164z00_5194 = BgL_newtail1165z00_1499; 
BgL_tail1164z00_1496 = BgL_tail1164z00_5194; 
BgL_l1161z00_1495 = BgL_l1161z00_5193; 
goto BgL_map1162z00_1497;} } } } } } } 
{ /* ./Expand/initial.scm 662 */
obj_t BgL_arg3740z00_1508;
{ /* ./Expand/initial.scm 662 */
obj_t BgL_arg3744z00_1510;obj_t BgL_arg3745z00_1511;
{ /* ./Expand/initial.scm 662 */
obj_t BgL_arg3748z00_1512;obj_t BgL_arg3749z00_1513;
BgL_arg3748z00_1512 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 662 */
obj_t BgL_arg3752z00_1514;obj_t BgL_arg3753z00_1515;
BgL_arg3752z00_1514 = 
CNST_TABLE_REF(((long)105)); 
{ /* ./Expand/initial.scm 662 */
obj_t BgL_auxz00_5197;
BgL_auxz00_5197 = 
CNST_TABLE_REF(((long)106)); 
BgL_arg3753z00_1515 = 
MAKE_PAIR(BgL_auxz00_5197, BNIL); } 
BgL_arg3749z00_1513 = 
MAKE_PAIR(BgL_arg3752z00_1514, BgL_arg3753z00_1515); } 
BgL_arg3744z00_1510 = 
MAKE_PAIR(BgL_arg3748z00_1512, BgL_arg3749z00_1513); } 
BgL_arg3745z00_1511 = 
MAKE_PAIR(BgL_auxz00_1481, BNIL); 
BgL_arg3740z00_1508 = 
MAKE_PAIR(BgL_arg3744z00_1510, BgL_arg3745z00_1511); } 
BgL_arg3707z00_1491 = 
MAKE_PAIR(BgL_arg3740z00_1508, BNIL); } 
BgL_arg3695z00_1486 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3706z00_1490, BgL_arg3707z00_1491); } 
BgL_arg3691z00_1484 = 
MAKE_PAIR(BgL_arg3694z00_1485, BgL_arg3695z00_1486); } 
BgL_arg3687z00_1482 = 
MAKE_PAIR(BgL_arg3690z00_1483, BgL_arg3691z00_1484); } 
return 
PROCEDURE_ENTRY(BgL_ez00_1456)(BgL_ez00_1456, BgL_arg3687z00_1482, BgL_ez00_1456, BEOA);} } } }  else 
{ /* ./Expand/initial.scm 651 */
BgL_tagzd2923zd2_1463:
{ /* ./Expand/initial.scm 665 */
bool_t BgL_test3761z00_1518;
BgL_test3761z00_1518 = 
NULLP(BgL_xz00_1455); 
if(BgL_test3761z00_1518)
{ /* ./Expand/initial.scm 665 */
return BNIL;}  else 
{ /* ./Expand/initial.scm 665 */
obj_t BgL_head1168z00_1519;
BgL_head1168z00_1519 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1166z00_1520;obj_t BgL_tail1169z00_1521;
BgL_l1166z00_1520 = BgL_xz00_1455; 
BgL_tail1169z00_1521 = BgL_head1168z00_1519; 
BgL_map1167z00_1522:
{ /* ./Expand/initial.scm 665 */
bool_t BgL_test3763z00_1523;
BgL_test3763z00_1523 = 
NULLP(BgL_l1166z00_1520); 
if(BgL_test3763z00_1523)
{ /* ./Expand/initial.scm 665 */
return 
CDR(BgL_head1168z00_1519);}  else 
{ /* ./Expand/initial.scm 665 */
obj_t BgL_newtail1170z00_1524;
{ /* ./Expand/initial.scm 665 */
obj_t BgL_arg3771z00_1526;
{ /* ./Expand/initial.scm 665 */
obj_t BgL_xz00_1528;
BgL_xz00_1528 = 
CAR(BgL_l1166z00_1520); 
BgL_arg3771z00_1526 = 
PROCEDURE_ENTRY(BgL_ez00_1456)(BgL_ez00_1456, BgL_xz00_1528, BgL_ez00_1456, BEOA); } 
BgL_newtail1170z00_1524 = 
MAKE_PAIR(BgL_arg3771z00_1526, BNIL); } 
SET_CDR(BgL_tail1169z00_1521, BgL_newtail1170z00_1524); 
{ /* ./Expand/initial.scm 665 */
obj_t BgL_arg3767z00_1525;
BgL_arg3767z00_1525 = 
CDR(BgL_l1166z00_1520); 
{ 
obj_t BgL_tail1169z00_5223;obj_t BgL_l1166z00_5222;
BgL_l1166z00_5222 = BgL_arg3767z00_1525; 
BgL_tail1169z00_5223 = BgL_newtail1170z00_1524; 
BgL_tail1169z00_1521 = BgL_tail1169z00_5223; 
BgL_l1166z00_1520 = BgL_l1166z00_5222; 
goto BgL_map1167z00_1522;} } } } } } } } } }  else 
{ /* ./Expand/initial.scm 651 */
goto BgL_tagzd2923zd2_1463;} } } } } 
}



/* <anonymous:3502> */
obj_t BGl_zc3anonymousza33502ze3z83zzexpand_installz00(obj_t BgL_envz00_3704, obj_t BgL_xz00_3705, obj_t BgL_ez00_3706)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 635 */
{ 
obj_t BgL_xz00_1383;obj_t BgL_ez00_1384;
BgL_xz00_1383 = BgL_xz00_3705; 
BgL_ez00_1384 = BgL_ez00_3706; 
{ 
obj_t BgL_objz00_1387;
{ /* ./Expand/initial.scm 635 */
bool_t BgL_test3503z00_1390;
BgL_test3503z00_1390 = 
PAIRP(BgL_xz00_1383); 
if(BgL_test3503z00_1390)
{ /* ./Expand/initial.scm 635 */
bool_t BgL_test3504z00_1391;
{ /* ./Expand/initial.scm 635 */
obj_t BgL_auxz00_5226;
BgL_auxz00_5226 = 
CDR(BgL_xz00_1383); 
BgL_test3504z00_1391 = 
NULLP(BgL_auxz00_5226); } 
if(BgL_test3504z00_1391)
{ /* ./Expand/initial.scm 635 */
{ /* ./Expand/initial.scm 638 */
obj_t BgL_arg3517z00_1394;obj_t BgL_arg3518z00_1395;
{ /* ./Expand/initial.scm 638 */
obj_t BgL_arg3521z00_1396;obj_t BgL_arg3522z00_1397;
BgL_arg3521z00_1396 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 638 */
obj_t BgL_arg3525z00_1398;obj_t BgL_arg3526z00_1399;
BgL_arg3525z00_1398 = 
CNST_TABLE_REF(((long)105)); 
{ /* ./Expand/initial.scm 638 */
obj_t BgL_auxz00_5232;
BgL_auxz00_5232 = 
CNST_TABLE_REF(((long)106)); 
BgL_arg3526z00_1399 = 
MAKE_PAIR(BgL_auxz00_5232, BNIL); } 
BgL_arg3522z00_1397 = 
MAKE_PAIR(BgL_arg3525z00_1398, BgL_arg3526z00_1399); } 
BgL_arg3517z00_1394 = 
MAKE_PAIR(BgL_arg3521z00_1396, BgL_arg3522z00_1397); } 
{ /* ./Expand/initial.scm 639 */
obj_t BgL_arg3530z00_1400;
{ /* ./Expand/initial.scm 639 */
obj_t BgL_arg3534z00_1402;
{ /* ./Expand/initial.scm 639 */
obj_t BgL_arg3538z00_1404;obj_t BgL_arg3541z00_1405;
BgL_arg3538z00_1404 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 639 */
obj_t BgL_arg3544z00_1406;obj_t BgL_arg3545z00_1407;
BgL_arg3544z00_1406 = 
CNST_TABLE_REF(((long)107)); 
{ /* ./Expand/initial.scm 639 */
obj_t BgL_auxz00_5239;
BgL_auxz00_5239 = 
CNST_TABLE_REF(((long)108)); 
BgL_arg3545z00_1407 = 
MAKE_PAIR(BgL_auxz00_5239, BNIL); } 
BgL_arg3541z00_1405 = 
MAKE_PAIR(BgL_arg3544z00_1406, BgL_arg3545z00_1407); } 
BgL_arg3534z00_1402 = 
MAKE_PAIR(BgL_arg3538z00_1404, BgL_arg3541z00_1405); } 
BgL_arg3530z00_1400 = 
MAKE_PAIR(BgL_arg3534z00_1402, BNIL); } 
BgL_arg3518z00_1395 = 
MAKE_PAIR(BgL_arg3530z00_1400, BNIL); } 
return 
MAKE_PAIR(BgL_arg3517z00_1394, BgL_arg3518z00_1395);} }  else 
{ /* ./Expand/initial.scm 635 */
obj_t BgL_arg3507z00_1392;
BgL_arg3507z00_1392 = 
CDR(BgL_xz00_1383); 
BgL_objz00_1387 = BgL_arg3507z00_1392; 
{ /* ./Expand/initial.scm 641 */
obj_t BgL_pz00_1408;
{ /* ./Expand/initial.scm 641 */
obj_t BgL_arg3637z00_1451;
BgL_arg3637z00_1451 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)104)), BEOA); 
BgL_pz00_1408 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg3637z00_1451); } 
{ /* ./Expand/initial.scm 642 */
obj_t BgL_arg3549z00_1409;
{ /* ./Expand/initial.scm 642 */
obj_t BgL_arg3552z00_1410;obj_t BgL_arg3553z00_1411;
BgL_arg3552z00_1410 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 642 */
obj_t BgL_arg3556z00_1412;obj_t BgL_arg3557z00_1413;
{ /* ./Expand/initial.scm 642 */
obj_t BgL_arg3560z00_1414;
{ /* ./Expand/initial.scm 642 */
obj_t BgL_arg3564z00_1416;
{ /* ./Expand/initial.scm 642 */
obj_t BgL_arg3567z00_1417;
{ /* ./Expand/initial.scm 642 */
obj_t BgL_arg3571z00_1419;
{ /* ./Expand/initial.scm 642 */
obj_t BgL_arg3575z00_1421;obj_t BgL_arg3576z00_1422;
BgL_arg3575z00_1421 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 642 */
obj_t BgL_arg3579z00_1423;obj_t BgL_arg3580z00_1424;
BgL_arg3579z00_1423 = 
CNST_TABLE_REF(((long)107)); 
{ /* ./Expand/initial.scm 642 */
obj_t BgL_auxz00_5255;
BgL_auxz00_5255 = 
CNST_TABLE_REF(((long)108)); 
BgL_arg3580z00_1424 = 
MAKE_PAIR(BgL_auxz00_5255, BNIL); } 
BgL_arg3576z00_1422 = 
MAKE_PAIR(BgL_arg3579z00_1423, BgL_arg3580z00_1424); } 
BgL_arg3571z00_1419 = 
MAKE_PAIR(BgL_arg3575z00_1421, BgL_arg3576z00_1422); } 
BgL_arg3567z00_1417 = 
MAKE_PAIR(BgL_arg3571z00_1419, BNIL); } 
BgL_arg3564z00_1416 = 
MAKE_PAIR(BgL_arg3567z00_1417, BNIL); } 
BgL_arg3560z00_1414 = 
MAKE_PAIR(BgL_pz00_1408, BgL_arg3564z00_1416); } 
BgL_arg3556z00_1412 = 
MAKE_PAIR(BgL_arg3560z00_1414, BNIL); } 
{ /* ./Expand/initial.scm 643 */
obj_t BgL_arg3585z00_1425;obj_t BgL_arg3586z00_1426;
{ /* ./Expand/initial.scm 643 */
bool_t BgL_test3588z00_1428;
BgL_test3588z00_1428 = 
NULLP(BgL_objz00_1387); 
if(BgL_test3588z00_1428)
{ /* ./Expand/initial.scm 643 */
BgL_arg3585z00_1425 = BNIL; }  else 
{ /* ./Expand/initial.scm 643 */
obj_t BgL_head1158z00_1429;
BgL_head1158z00_1429 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1156z00_1430;obj_t BgL_tail1159z00_1431;
BgL_l1156z00_1430 = BgL_objz00_1387; 
BgL_tail1159z00_1431 = BgL_head1158z00_1429; 
BgL_map1157z00_1432:
{ /* ./Expand/initial.scm 643 */
bool_t BgL_test3590z00_1433;
BgL_test3590z00_1433 = 
NULLP(BgL_l1156z00_1430); 
if(BgL_test3590z00_1433)
{ /* ./Expand/initial.scm 643 */
BgL_arg3585z00_1425 = 
CDR(BgL_head1158z00_1429); }  else 
{ /* ./Expand/initial.scm 644 */
obj_t BgL_newtail1160z00_1434;
{ /* ./Expand/initial.scm 644 */
obj_t BgL_arg3598z00_1436;
{ /* ./Expand/initial.scm 644 */
obj_t BgL_yz00_1438;
BgL_yz00_1438 = 
CAR(BgL_l1156z00_1430); 
{ /* ./Expand/initial.scm 644 */
obj_t BgL_arg3602z00_1439;
{ /* ./Expand/initial.scm 644 */
obj_t BgL_arg3605z00_1440;obj_t BgL_arg3606z00_1441;
BgL_arg3605z00_1440 = 
BGl_dispz00zzexpand_installz00(BgL_yz00_1438); 
{ /* ./Expand/initial.scm 644 */
obj_t BgL_arg3610z00_1442;
BgL_arg3610z00_1442 = 
MAKE_PAIR(BgL_pz00_1408, BNIL); 
BgL_arg3606z00_1441 = 
MAKE_PAIR(BgL_yz00_1438, BgL_arg3610z00_1442); } 
BgL_arg3602z00_1439 = 
MAKE_PAIR(BgL_arg3605z00_1440, BgL_arg3606z00_1441); } 
BgL_arg3598z00_1436 = 
BGl_epairifyz00zztools_miscz00(BgL_arg3602z00_1439, BgL_xz00_1383); } } 
BgL_newtail1160z00_1434 = 
MAKE_PAIR(BgL_arg3598z00_1436, BNIL); } 
SET_CDR(BgL_tail1159z00_1431, BgL_newtail1160z00_1434); 
{ /* ./Expand/initial.scm 643 */
obj_t BgL_arg3594z00_1435;
BgL_arg3594z00_1435 = 
CDR(BgL_l1156z00_1430); 
{ 
obj_t BgL_tail1159z00_5280;obj_t BgL_l1156z00_5279;
BgL_l1156z00_5279 = BgL_arg3594z00_1435; 
BgL_tail1159z00_5280 = BgL_newtail1160z00_1434; 
BgL_tail1159z00_1431 = BgL_tail1159z00_5280; 
BgL_l1156z00_1430 = BgL_l1156z00_5279; 
goto BgL_map1157z00_1432;} } } } } } } 
{ /* ./Expand/initial.scm 646 */
obj_t BgL_arg3618z00_1443;
{ /* ./Expand/initial.scm 646 */
obj_t BgL_arg3623z00_1445;obj_t BgL_arg3624z00_1446;
{ /* ./Expand/initial.scm 646 */
obj_t BgL_arg3627z00_1447;obj_t BgL_arg3628z00_1448;
BgL_arg3627z00_1447 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 646 */
obj_t BgL_arg3631z00_1449;obj_t BgL_arg3632z00_1450;
BgL_arg3631z00_1449 = 
CNST_TABLE_REF(((long)105)); 
{ /* ./Expand/initial.scm 646 */
obj_t BgL_auxz00_5283;
BgL_auxz00_5283 = 
CNST_TABLE_REF(((long)106)); 
BgL_arg3632z00_1450 = 
MAKE_PAIR(BgL_auxz00_5283, BNIL); } 
BgL_arg3628z00_1448 = 
MAKE_PAIR(BgL_arg3631z00_1449, BgL_arg3632z00_1450); } 
BgL_arg3623z00_1445 = 
MAKE_PAIR(BgL_arg3627z00_1447, BgL_arg3628z00_1448); } 
BgL_arg3624z00_1446 = 
MAKE_PAIR(BgL_pz00_1408, BNIL); 
BgL_arg3618z00_1443 = 
MAKE_PAIR(BgL_arg3623z00_1445, BgL_arg3624z00_1446); } 
BgL_arg3586z00_1426 = 
MAKE_PAIR(BgL_arg3618z00_1443, BNIL); } 
BgL_arg3557z00_1413 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg3585z00_1425, BgL_arg3586z00_1426); } 
BgL_arg3553z00_1411 = 
MAKE_PAIR(BgL_arg3556z00_1412, BgL_arg3557z00_1413); } 
BgL_arg3549z00_1409 = 
MAKE_PAIR(BgL_arg3552z00_1410, BgL_arg3553z00_1411); } 
return 
PROCEDURE_ENTRY(BgL_ez00_1384)(BgL_ez00_1384, BgL_arg3549z00_1409, BgL_ez00_1384, BEOA);} } } }  else 
{ /* ./Expand/initial.scm 635 */
return BFALSE;} } } } } 
}



/* <anonymous:3385> */
obj_t BGl_zc3anonymousza33385ze3z83zzexpand_installz00(obj_t BgL_envz00_3707, obj_t BgL_xz00_3708, obj_t BgL_ez00_3709)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 621 */
{ 
obj_t BgL_xz00_1319;obj_t BgL_ez00_1320;
BgL_xz00_1319 = BgL_xz00_3708; 
BgL_ez00_1320 = BgL_ez00_3709; 
{ 
obj_t BgL_objz00_1322;obj_t BgL_objz00_1324;obj_t BgL_portz00_1325;
{ /* ./Expand/initial.scm 621 */
bool_t BgL_test3386z00_1329;
BgL_test3386z00_1329 = 
PAIRP(BgL_xz00_1319); 
if(BgL_test3386z00_1329)
{ /* ./Expand/initial.scm 621 */
obj_t BgL_cdrzd2877zd2_1330;
BgL_cdrzd2877zd2_1330 = 
CDR(BgL_xz00_1319); 
{ /* ./Expand/initial.scm 621 */
bool_t BgL_test3387z00_1331;
BgL_test3387z00_1331 = 
PAIRP(BgL_cdrzd2877zd2_1330); 
if(BgL_test3387z00_1331)
{ /* ./Expand/initial.scm 621 */
bool_t BgL_test3388z00_1332;
{ /* ./Expand/initial.scm 621 */
obj_t BgL_auxz00_5301;
BgL_auxz00_5301 = 
CDR(BgL_cdrzd2877zd2_1330); 
BgL_test3388z00_1332 = 
NULLP(BgL_auxz00_5301); } 
if(BgL_test3388z00_1332)
{ /* ./Expand/initial.scm 621 */
obj_t BgL_arg3390z00_1333;
BgL_arg3390z00_1333 = 
CAR(BgL_cdrzd2877zd2_1330); 
BgL_objz00_1322 = BgL_arg3390z00_1333; 
{ /* ./Expand/initial.scm 624 */
obj_t BgL_arg3420z00_1342;obj_t BgL_arg3422z00_1343;
{ /* ./Expand/initial.scm 624 */
obj_t BgL_arg3425z00_1344;obj_t BgL_arg3426z00_1345;
BgL_arg3425z00_1344 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 624 */
obj_t BgL_arg3429z00_1346;obj_t BgL_arg3430z00_1347;
BgL_arg3429z00_1346 = 
CNST_TABLE_REF(((long)109)); 
{ /* ./Expand/initial.scm 624 */
obj_t BgL_auxz00_5308;
BgL_auxz00_5308 = 
CNST_TABLE_REF(((long)106)); 
BgL_arg3430z00_1347 = 
MAKE_PAIR(BgL_auxz00_5308, BNIL); } 
BgL_arg3426z00_1345 = 
MAKE_PAIR(BgL_arg3429z00_1346, BgL_arg3430z00_1347); } 
BgL_arg3420z00_1342 = 
MAKE_PAIR(BgL_arg3425z00_1344, BgL_arg3426z00_1345); } 
{ /* ./Expand/initial.scm 625 */
obj_t BgL_arg3434z00_1348;obj_t BgL_arg3436z00_1349;
BgL_arg3434z00_1348 = 
PROCEDURE_ENTRY(BgL_ez00_1320)(BgL_ez00_1320, BgL_objz00_1322, BgL_ez00_1320, BEOA); 
{ /* ./Expand/initial.scm 626 */
obj_t BgL_arg3440z00_1350;
{ /* ./Expand/initial.scm 626 */
obj_t BgL_arg3444z00_1352;
{ /* ./Expand/initial.scm 626 */
obj_t BgL_arg3449z00_1354;obj_t BgL_arg3450z00_1355;
BgL_arg3449z00_1354 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 626 */
obj_t BgL_arg3453z00_1356;obj_t BgL_arg3454z00_1357;
BgL_arg3453z00_1356 = 
CNST_TABLE_REF(((long)107)); 
{ /* ./Expand/initial.scm 626 */
obj_t BgL_auxz00_5317;
BgL_auxz00_5317 = 
CNST_TABLE_REF(((long)108)); 
BgL_arg3454z00_1357 = 
MAKE_PAIR(BgL_auxz00_5317, BNIL); } 
BgL_arg3450z00_1355 = 
MAKE_PAIR(BgL_arg3453z00_1356, BgL_arg3454z00_1357); } 
BgL_arg3444z00_1352 = 
MAKE_PAIR(BgL_arg3449z00_1354, BgL_arg3450z00_1355); } 
BgL_arg3440z00_1350 = 
MAKE_PAIR(BgL_arg3444z00_1352, BNIL); } 
BgL_arg3436z00_1349 = 
MAKE_PAIR(BgL_arg3440z00_1350, BNIL); } 
BgL_arg3422z00_1343 = 
MAKE_PAIR(BgL_arg3434z00_1348, BgL_arg3436z00_1349); } 
return 
MAKE_PAIR(BgL_arg3420z00_1342, BgL_arg3422z00_1343);} }  else 
{ /* ./Expand/initial.scm 621 */
obj_t BgL_cdrzd2893zd2_1335;
BgL_cdrzd2893zd2_1335 = 
CDR(BgL_cdrzd2877zd2_1330); 
{ /* ./Expand/initial.scm 621 */
bool_t BgL_test3393z00_1336;
BgL_test3393z00_1336 = 
PAIRP(BgL_cdrzd2893zd2_1335); 
if(BgL_test3393z00_1336)
{ /* ./Expand/initial.scm 621 */
bool_t BgL_test3394z00_1337;
{ /* ./Expand/initial.scm 621 */
obj_t BgL_auxz00_5329;
BgL_auxz00_5329 = 
CDR(BgL_cdrzd2893zd2_1335); 
BgL_test3394z00_1337 = 
NULLP(BgL_auxz00_5329); } 
if(BgL_test3394z00_1337)
{ /* ./Expand/initial.scm 621 */
obj_t BgL_arg3396z00_1338;obj_t BgL_arg3397z00_1339;
BgL_arg3396z00_1338 = 
CAR(BgL_cdrzd2877zd2_1330); 
BgL_arg3397z00_1339 = 
CAR(BgL_cdrzd2893zd2_1335); 
BgL_objz00_1324 = BgL_arg3396z00_1338; 
BgL_portz00_1325 = BgL_arg3397z00_1339; 
{ /* ./Expand/initial.scm 628 */
obj_t BgL_arg3458z00_1358;obj_t BgL_arg3459z00_1359;
{ /* ./Expand/initial.scm 628 */
obj_t BgL_arg3462z00_1360;obj_t BgL_arg3463z00_1361;
BgL_arg3462z00_1360 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 628 */
obj_t BgL_arg3466z00_1362;obj_t BgL_arg3467z00_1363;
BgL_arg3466z00_1362 = 
CNST_TABLE_REF(((long)109)); 
{ /* ./Expand/initial.scm 628 */
obj_t BgL_auxz00_5337;
BgL_auxz00_5337 = 
CNST_TABLE_REF(((long)106)); 
BgL_arg3467z00_1363 = 
MAKE_PAIR(BgL_auxz00_5337, BNIL); } 
BgL_arg3463z00_1361 = 
MAKE_PAIR(BgL_arg3466z00_1362, BgL_arg3467z00_1363); } 
BgL_arg3458z00_1358 = 
MAKE_PAIR(BgL_arg3462z00_1360, BgL_arg3463z00_1361); } 
{ /* ./Expand/initial.scm 628 */
obj_t BgL_arg3471z00_1364;obj_t BgL_arg3472z00_1365;
BgL_arg3471z00_1364 = 
PROCEDURE_ENTRY(BgL_ez00_1320)(BgL_ez00_1320, BgL_objz00_1324, BgL_ez00_1320, BEOA); 
{ /* ./Expand/initial.scm 628 */
obj_t BgL_arg3476z00_1366;
BgL_arg3476z00_1366 = 
PROCEDURE_ENTRY(BgL_ez00_1320)(BgL_ez00_1320, BgL_portz00_1325, BgL_ez00_1320, BEOA); 
BgL_arg3472z00_1365 = 
MAKE_PAIR(BgL_arg3476z00_1366, BNIL); } 
BgL_arg3459z00_1359 = 
MAKE_PAIR(BgL_arg3471z00_1364, BgL_arg3472z00_1365); } 
return 
MAKE_PAIR(BgL_arg3458z00_1358, BgL_arg3459z00_1359);} }  else 
{ /* ./Expand/initial.scm 621 */
BgL_tagzd2871zd2_1327:
{ /* ./Expand/initial.scm 630 */
bool_t BgL_test3480z00_1369;
BgL_test3480z00_1369 = 
NULLP(BgL_xz00_1319); 
if(BgL_test3480z00_1369)
{ /* ./Expand/initial.scm 630 */
return BNIL;}  else 
{ /* ./Expand/initial.scm 630 */
obj_t BgL_head1153z00_1370;
BgL_head1153z00_1370 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1151z00_1371;obj_t BgL_tail1154z00_1372;
BgL_l1151z00_1371 = BgL_xz00_1319; 
BgL_tail1154z00_1372 = BgL_head1153z00_1370; 
BgL_map1152z00_1373:
{ /* ./Expand/initial.scm 630 */
bool_t BgL_test3482z00_1374;
BgL_test3482z00_1374 = 
NULLP(BgL_l1151z00_1371); 
if(BgL_test3482z00_1374)
{ /* ./Expand/initial.scm 630 */
return 
CDR(BgL_head1153z00_1370);}  else 
{ /* ./Expand/initial.scm 630 */
obj_t BgL_newtail1155z00_1375;
{ /* ./Expand/initial.scm 630 */
obj_t BgL_arg3490z00_1377;
{ /* ./Expand/initial.scm 630 */
obj_t BgL_xz00_1379;
BgL_xz00_1379 = 
CAR(BgL_l1151z00_1371); 
BgL_arg3490z00_1377 = 
PROCEDURE_ENTRY(BgL_ez00_1320)(BgL_ez00_1320, BgL_xz00_1379, BgL_ez00_1320, BEOA); } 
BgL_newtail1155z00_1375 = 
MAKE_PAIR(BgL_arg3490z00_1377, BNIL); } 
SET_CDR(BgL_tail1154z00_1372, BgL_newtail1155z00_1375); 
{ /* ./Expand/initial.scm 630 */
obj_t BgL_arg3486z00_1376;
BgL_arg3486z00_1376 = 
CDR(BgL_l1151z00_1371); 
{ 
obj_t BgL_tail1154z00_5362;obj_t BgL_l1151z00_5361;
BgL_l1151z00_5361 = BgL_arg3486z00_1376; 
BgL_tail1154z00_5362 = BgL_newtail1155z00_1375; 
BgL_tail1154z00_1372 = BgL_tail1154z00_5362; 
BgL_l1151z00_1371 = BgL_l1151z00_5361; 
goto BgL_map1152z00_1373;} } } } } } } } }  else 
{ /* ./Expand/initial.scm 621 */
goto BgL_tagzd2871zd2_1327;} } } }  else 
{ /* ./Expand/initial.scm 621 */
goto BgL_tagzd2871zd2_1327;} } }  else 
{ /* ./Expand/initial.scm 621 */
goto BgL_tagzd2871zd2_1327;} } } } } 
}



/* <anonymous:3285> */
obj_t BGl_zc3anonymousza33285ze3z83zzexpand_installz00(obj_t BgL_envz00_3710, obj_t BgL_xz00_3711, obj_t BgL_ez00_3712)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 610 */
{ 
obj_t BgL_xz00_1263;obj_t BgL_ez00_1264;
BgL_xz00_1263 = BgL_xz00_3711; 
BgL_ez00_1264 = BgL_ez00_3712; 
{ 
obj_t BgL_oz00_1266;obj_t BgL_oz00_1268;obj_t BgL_portz00_1269;
{ /* ./Expand/initial.scm 610 */
bool_t BgL_test3286z00_1273;
BgL_test3286z00_1273 = 
PAIRP(BgL_xz00_1263); 
if(BgL_test3286z00_1273)
{ /* ./Expand/initial.scm 610 */
obj_t BgL_cdrzd2838zd2_1274;
BgL_cdrzd2838zd2_1274 = 
CDR(BgL_xz00_1263); 
{ /* ./Expand/initial.scm 610 */
bool_t BgL_test3287z00_1275;
BgL_test3287z00_1275 = 
PAIRP(BgL_cdrzd2838zd2_1274); 
if(BgL_test3287z00_1275)
{ /* ./Expand/initial.scm 610 */
bool_t BgL_test3288z00_1276;
{ /* ./Expand/initial.scm 610 */
obj_t BgL_auxz00_5368;
BgL_auxz00_5368 = 
CDR(BgL_cdrzd2838zd2_1274); 
BgL_test3288z00_1276 = 
NULLP(BgL_auxz00_5368); } 
if(BgL_test3288z00_1276)
{ /* ./Expand/initial.scm 610 */
obj_t BgL_arg3290z00_1277;
BgL_arg3290z00_1277 = 
CAR(BgL_cdrzd2838zd2_1274); 
BgL_oz00_1266 = BgL_arg3290z00_1277; 
{ /* ./Expand/initial.scm 613 */
obj_t BgL_arg3320z00_1286;obj_t BgL_arg3321z00_1287;
BgL_arg3320z00_1286 = 
BGl_dispz00zzexpand_installz00(BgL_oz00_1266); 
{ /* ./Expand/initial.scm 613 */
obj_t BgL_arg3325z00_1288;obj_t BgL_arg3326z00_1289;
BgL_arg3325z00_1288 = 
PROCEDURE_ENTRY(BgL_ez00_1264)(BgL_ez00_1264, BgL_oz00_1266, BgL_ez00_1264, BEOA); 
{ /* ./Expand/initial.scm 613 */
obj_t BgL_arg3330z00_1290;
{ /* ./Expand/initial.scm 613 */
obj_t BgL_arg3334z00_1292;
{ /* ./Expand/initial.scm 613 */
obj_t BgL_arg3338z00_1294;obj_t BgL_arg3340z00_1295;
BgL_arg3338z00_1294 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 613 */
obj_t BgL_arg3343z00_1296;obj_t BgL_arg3344z00_1297;
BgL_arg3343z00_1296 = 
CNST_TABLE_REF(((long)107)); 
{ /* ./Expand/initial.scm 613 */
obj_t BgL_auxz00_5378;
BgL_auxz00_5378 = 
CNST_TABLE_REF(((long)108)); 
BgL_arg3344z00_1297 = 
MAKE_PAIR(BgL_auxz00_5378, BNIL); } 
BgL_arg3340z00_1295 = 
MAKE_PAIR(BgL_arg3343z00_1296, BgL_arg3344z00_1297); } 
BgL_arg3334z00_1292 = 
MAKE_PAIR(BgL_arg3338z00_1294, BgL_arg3340z00_1295); } 
BgL_arg3330z00_1290 = 
MAKE_PAIR(BgL_arg3334z00_1292, BNIL); } 
BgL_arg3326z00_1289 = 
MAKE_PAIR(BgL_arg3330z00_1290, BNIL); } 
BgL_arg3321z00_1287 = 
MAKE_PAIR(BgL_arg3325z00_1288, BgL_arg3326z00_1289); } 
return 
MAKE_PAIR(BgL_arg3320z00_1286, BgL_arg3321z00_1287);} }  else 
{ /* ./Expand/initial.scm 610 */
obj_t BgL_cdrzd2854zd2_1279;
BgL_cdrzd2854zd2_1279 = 
CDR(BgL_cdrzd2838zd2_1274); 
{ /* ./Expand/initial.scm 610 */
bool_t BgL_test3293z00_1280;
BgL_test3293z00_1280 = 
PAIRP(BgL_cdrzd2854zd2_1279); 
if(BgL_test3293z00_1280)
{ /* ./Expand/initial.scm 610 */
bool_t BgL_test3294z00_1281;
{ /* ./Expand/initial.scm 610 */
obj_t BgL_auxz00_5390;
BgL_auxz00_5390 = 
CDR(BgL_cdrzd2854zd2_1279); 
BgL_test3294z00_1281 = 
NULLP(BgL_auxz00_5390); } 
if(BgL_test3294z00_1281)
{ /* ./Expand/initial.scm 610 */
obj_t BgL_arg3296z00_1282;obj_t BgL_arg3297z00_1283;
BgL_arg3296z00_1282 = 
CAR(BgL_cdrzd2838zd2_1274); 
BgL_arg3297z00_1283 = 
CAR(BgL_cdrzd2854zd2_1279); 
BgL_oz00_1268 = BgL_arg3296z00_1282; 
BgL_portz00_1269 = BgL_arg3297z00_1283; 
{ /* ./Expand/initial.scm 615 */
obj_t BgL_arg3348z00_1298;obj_t BgL_arg3349z00_1299;
BgL_arg3348z00_1298 = 
BGl_dispz00zzexpand_installz00(BgL_oz00_1268); 
{ /* ./Expand/initial.scm 615 */
obj_t BgL_arg3354z00_1300;obj_t BgL_arg3355z00_1301;
BgL_arg3354z00_1300 = 
PROCEDURE_ENTRY(BgL_ez00_1264)(BgL_ez00_1264, BgL_oz00_1268, BgL_ez00_1264, BEOA); 
{ /* ./Expand/initial.scm 615 */
obj_t BgL_arg3359z00_1302;
BgL_arg3359z00_1302 = 
PROCEDURE_ENTRY(BgL_ez00_1264)(BgL_ez00_1264, BgL_portz00_1269, BgL_ez00_1264, BEOA); 
BgL_arg3355z00_1301 = 
MAKE_PAIR(BgL_arg3359z00_1302, BNIL); } 
BgL_arg3349z00_1299 = 
MAKE_PAIR(BgL_arg3354z00_1300, BgL_arg3355z00_1301); } 
return 
MAKE_PAIR(BgL_arg3348z00_1298, BgL_arg3349z00_1299);} }  else 
{ /* ./Expand/initial.scm 610 */
BgL_tagzd2832zd2_1271:
{ /* ./Expand/initial.scm 617 */
bool_t BgL_test3363z00_1305;
BgL_test3363z00_1305 = 
NULLP(BgL_xz00_1263); 
if(BgL_test3363z00_1305)
{ /* ./Expand/initial.scm 617 */
return BNIL;}  else 
{ /* ./Expand/initial.scm 617 */
obj_t BgL_head1148z00_1306;
BgL_head1148z00_1306 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1146z00_1307;obj_t BgL_tail1149z00_1308;
BgL_l1146z00_1307 = BgL_xz00_1263; 
BgL_tail1149z00_1308 = BgL_head1148z00_1306; 
BgL_map1147z00_1309:
{ /* ./Expand/initial.scm 617 */
bool_t BgL_test3365z00_1310;
BgL_test3365z00_1310 = 
NULLP(BgL_l1146z00_1307); 
if(BgL_test3365z00_1310)
{ /* ./Expand/initial.scm 617 */
return 
CDR(BgL_head1148z00_1306);}  else 
{ /* ./Expand/initial.scm 617 */
obj_t BgL_newtail1150z00_1311;
{ /* ./Expand/initial.scm 617 */
obj_t BgL_arg3373z00_1313;
{ /* ./Expand/initial.scm 617 */
obj_t BgL_xz00_1315;
BgL_xz00_1315 = 
CAR(BgL_l1146z00_1307); 
BgL_arg3373z00_1313 = 
PROCEDURE_ENTRY(BgL_ez00_1264)(BgL_ez00_1264, BgL_xz00_1315, BgL_ez00_1264, BEOA); } 
BgL_newtail1150z00_1311 = 
MAKE_PAIR(BgL_arg3373z00_1313, BNIL); } 
SET_CDR(BgL_tail1149z00_1308, BgL_newtail1150z00_1311); 
{ /* ./Expand/initial.scm 617 */
obj_t BgL_arg3369z00_1312;
BgL_arg3369z00_1312 = 
CDR(BgL_l1146z00_1307); 
{ 
obj_t BgL_tail1149z00_5417;obj_t BgL_l1146z00_5416;
BgL_l1146z00_5416 = BgL_arg3369z00_1312; 
BgL_tail1149z00_5417 = BgL_newtail1150z00_1311; 
BgL_tail1149z00_1308 = BgL_tail1149z00_5417; 
BgL_l1146z00_1307 = BgL_l1146z00_5416; 
goto BgL_map1147z00_1309;} } } } } } } } }  else 
{ /* ./Expand/initial.scm 610 */
goto BgL_tagzd2832zd2_1271;} } } }  else 
{ /* ./Expand/initial.scm 610 */
goto BgL_tagzd2832zd2_1271;} } }  else 
{ /* ./Expand/initial.scm 610 */
goto BgL_tagzd2832zd2_1271;} } } } } 
}



/* <anonymous:3189> */
obj_t BGl_zc3anonymousza33189ze3z83zzexpand_installz00(obj_t BgL_envz00_3713, obj_t BgL_xz00_3714, obj_t BgL_ez00_3715)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 596 */
{ 
obj_t BgL_xz00_1210;obj_t BgL_ez00_1211;
BgL_xz00_1210 = BgL_xz00_3714; 
BgL_ez00_1211 = BgL_ez00_3715; 
{ 
obj_t BgL_portz00_1214;
{ /* ./Expand/initial.scm 596 */
bool_t BgL_test3190z00_1218;
BgL_test3190z00_1218 = 
PAIRP(BgL_xz00_1210); 
if(BgL_test3190z00_1218)
{ /* ./Expand/initial.scm 596 */
bool_t BgL_test3191z00_1219;
{ /* ./Expand/initial.scm 596 */
obj_t BgL_auxz00_5420;
BgL_auxz00_5420 = 
CDR(BgL_xz00_1210); 
BgL_test3191z00_1219 = 
NULLP(BgL_auxz00_5420); } 
if(BgL_test3191z00_1219)
{ /* ./Expand/initial.scm 596 */
{ /* ./Expand/initial.scm 599 */
obj_t BgL_arg3214z00_1226;obj_t BgL_arg3215z00_1227;
{ /* ./Expand/initial.scm 599 */
obj_t BgL_arg3218z00_1228;obj_t BgL_arg3219z00_1229;
BgL_arg3218z00_1228 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 599 */
obj_t BgL_arg3222z00_1230;obj_t BgL_arg3223z00_1231;
BgL_arg3222z00_1230 = 
CNST_TABLE_REF(((long)105)); 
{ /* ./Expand/initial.scm 599 */
obj_t BgL_auxz00_5426;
BgL_auxz00_5426 = 
CNST_TABLE_REF(((long)106)); 
BgL_arg3223z00_1231 = 
MAKE_PAIR(BgL_auxz00_5426, BNIL); } 
BgL_arg3219z00_1229 = 
MAKE_PAIR(BgL_arg3222z00_1230, BgL_arg3223z00_1231); } 
BgL_arg3214z00_1226 = 
MAKE_PAIR(BgL_arg3218z00_1228, BgL_arg3219z00_1229); } 
{ /* ./Expand/initial.scm 600 */
obj_t BgL_arg3227z00_1232;
{ /* ./Expand/initial.scm 600 */
obj_t BgL_arg3231z00_1234;
{ /* ./Expand/initial.scm 600 */
obj_t BgL_arg3235z00_1236;obj_t BgL_arg3236z00_1237;
BgL_arg3235z00_1236 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 600 */
obj_t BgL_arg3239z00_1238;obj_t BgL_arg3240z00_1239;
BgL_arg3239z00_1238 = 
CNST_TABLE_REF(((long)107)); 
{ /* ./Expand/initial.scm 600 */
obj_t BgL_auxz00_5433;
BgL_auxz00_5433 = 
CNST_TABLE_REF(((long)108)); 
BgL_arg3240z00_1239 = 
MAKE_PAIR(BgL_auxz00_5433, BNIL); } 
BgL_arg3236z00_1237 = 
MAKE_PAIR(BgL_arg3239z00_1238, BgL_arg3240z00_1239); } 
BgL_arg3231z00_1234 = 
MAKE_PAIR(BgL_arg3235z00_1236, BgL_arg3236z00_1237); } 
BgL_arg3227z00_1232 = 
MAKE_PAIR(BgL_arg3231z00_1234, BNIL); } 
BgL_arg3215z00_1227 = 
MAKE_PAIR(BgL_arg3227z00_1232, BNIL); } 
return 
MAKE_PAIR(BgL_arg3214z00_1226, BgL_arg3215z00_1227);} }  else 
{ /* ./Expand/initial.scm 596 */
obj_t BgL_cdrzd2823zd2_1220;
BgL_cdrzd2823zd2_1220 = 
CDR(BgL_xz00_1210); 
{ /* ./Expand/initial.scm 596 */
bool_t BgL_test3193z00_1221;
BgL_test3193z00_1221 = 
PAIRP(BgL_cdrzd2823zd2_1220); 
if(BgL_test3193z00_1221)
{ /* ./Expand/initial.scm 596 */
bool_t BgL_test3194z00_1222;
{ /* ./Expand/initial.scm 596 */
obj_t BgL_auxz00_5444;
BgL_auxz00_5444 = 
CDR(BgL_cdrzd2823zd2_1220); 
BgL_test3194z00_1222 = 
NULLP(BgL_auxz00_5444); } 
if(BgL_test3194z00_1222)
{ /* ./Expand/initial.scm 596 */
obj_t BgL_arg3196z00_1223;
BgL_arg3196z00_1223 = 
CAR(BgL_cdrzd2823zd2_1220); 
BgL_portz00_1214 = BgL_arg3196z00_1223; 
{ /* ./Expand/initial.scm 603 */
obj_t BgL_arg3245z00_1240;obj_t BgL_arg3246z00_1241;
{ /* ./Expand/initial.scm 603 */
obj_t BgL_arg3249z00_1242;obj_t BgL_arg3250z00_1243;
BgL_arg3249z00_1242 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 603 */
obj_t BgL_arg3253z00_1244;obj_t BgL_arg3254z00_1245;
BgL_arg3253z00_1244 = 
CNST_TABLE_REF(((long)105)); 
{ /* ./Expand/initial.scm 603 */
obj_t BgL_auxz00_5451;
BgL_auxz00_5451 = 
CNST_TABLE_REF(((long)106)); 
BgL_arg3254z00_1245 = 
MAKE_PAIR(BgL_auxz00_5451, BNIL); } 
BgL_arg3250z00_1243 = 
MAKE_PAIR(BgL_arg3253z00_1244, BgL_arg3254z00_1245); } 
BgL_arg3245z00_1240 = 
MAKE_PAIR(BgL_arg3249z00_1242, BgL_arg3250z00_1243); } 
{ /* ./Expand/initial.scm 604 */
obj_t BgL_arg3259z00_1246;
BgL_arg3259z00_1246 = 
PROCEDURE_ENTRY(BgL_ez00_1211)(BgL_ez00_1211, BgL_portz00_1214, BgL_ez00_1211, BEOA); 
BgL_arg3246z00_1241 = 
MAKE_PAIR(BgL_arg3259z00_1246, BNIL); } 
return 
MAKE_PAIR(BgL_arg3245z00_1240, BgL_arg3246z00_1241);} }  else 
{ /* ./Expand/initial.scm 596 */
BgL_tagzd2815zd2_1216:
{ /* ./Expand/initial.scm 606 */
bool_t BgL_test3263z00_1249;
BgL_test3263z00_1249 = 
NULLP(BgL_xz00_1210); 
if(BgL_test3263z00_1249)
{ /* ./Expand/initial.scm 606 */
return BNIL;}  else 
{ /* ./Expand/initial.scm 606 */
obj_t BgL_head1143z00_1250;
BgL_head1143z00_1250 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1141z00_1251;obj_t BgL_tail1144z00_1252;
BgL_l1141z00_1251 = BgL_xz00_1210; 
BgL_tail1144z00_1252 = BgL_head1143z00_1250; 
BgL_map1142z00_1253:
{ /* ./Expand/initial.scm 606 */
bool_t BgL_test3265z00_1254;
BgL_test3265z00_1254 = 
NULLP(BgL_l1141z00_1251); 
if(BgL_test3265z00_1254)
{ /* ./Expand/initial.scm 606 */
return 
CDR(BgL_head1143z00_1250);}  else 
{ /* ./Expand/initial.scm 606 */
obj_t BgL_newtail1145z00_1255;
{ /* ./Expand/initial.scm 606 */
obj_t BgL_arg3273z00_1257;
{ /* ./Expand/initial.scm 606 */
obj_t BgL_xz00_1259;
BgL_xz00_1259 = 
CAR(BgL_l1141z00_1251); 
BgL_arg3273z00_1257 = 
PROCEDURE_ENTRY(BgL_ez00_1211)(BgL_ez00_1211, BgL_xz00_1259, BgL_ez00_1211, BEOA); } 
BgL_newtail1145z00_1255 = 
MAKE_PAIR(BgL_arg3273z00_1257, BNIL); } 
SET_CDR(BgL_tail1144z00_1252, BgL_newtail1145z00_1255); 
{ /* ./Expand/initial.scm 606 */
obj_t BgL_arg3269z00_1256;
BgL_arg3269z00_1256 = 
CDR(BgL_l1141z00_1251); 
{ 
obj_t BgL_tail1144z00_5473;obj_t BgL_l1141z00_5472;
BgL_l1141z00_5472 = BgL_arg3269z00_1256; 
BgL_tail1144z00_5473 = BgL_newtail1145z00_1255; 
BgL_tail1144z00_1252 = BgL_tail1144z00_5473; 
BgL_l1141z00_1251 = BgL_l1141z00_5472; 
goto BgL_map1142z00_1253;} } } } } } } } }  else 
{ /* ./Expand/initial.scm 596 */
goto BgL_tagzd2815zd2_1216;} } } }  else 
{ /* ./Expand/initial.scm 596 */
goto BgL_tagzd2815zd2_1216;} } } } } 
}



/* <anonymous:3100> */
obj_t BGl_zc3anonymousza33100ze3z83zzexpand_installz00(obj_t BgL_envz00_3716, obj_t BgL_xz00_3717, obj_t BgL_ez00_3718)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 575 */
{ 
obj_t BgL_xz00_1161;obj_t BgL_ez00_1162;
BgL_xz00_1161 = BgL_xz00_3717; 
BgL_ez00_1162 = BgL_ez00_3718; 
{ 
obj_t BgL_functionz00_1164;obj_t BgL_onezd2argzd2_1165;obj_t BgL_functionz00_1167;obj_t BgL_argsz00_1168;
{ /* ./Expand/initial.scm 575 */
bool_t BgL_test3101z00_1172;
BgL_test3101z00_1172 = 
PAIRP(BgL_xz00_1161); 
if(BgL_test3101z00_1172)
{ /* ./Expand/initial.scm 575 */
obj_t BgL_cdrzd2765zd2_1173;
BgL_cdrzd2765zd2_1173 = 
CDR(BgL_xz00_1161); 
{ /* ./Expand/initial.scm 575 */
bool_t BgL_test3102z00_1174;
BgL_test3102z00_1174 = 
PAIRP(BgL_cdrzd2765zd2_1173); 
if(BgL_test3102z00_1174)
{ /* ./Expand/initial.scm 575 */
obj_t BgL_cdrzd2769zd2_1175;
BgL_cdrzd2769zd2_1175 = 
CDR(BgL_cdrzd2765zd2_1173); 
{ /* ./Expand/initial.scm 575 */
bool_t BgL_test3103z00_1176;
BgL_test3103z00_1176 = 
PAIRP(BgL_cdrzd2769zd2_1175); 
if(BgL_test3103z00_1176)
{ /* ./Expand/initial.scm 575 */
bool_t BgL_test3104z00_1177;
{ /* ./Expand/initial.scm 575 */
obj_t BgL_auxz00_5482;
BgL_auxz00_5482 = 
CDR(BgL_cdrzd2769zd2_1175); 
BgL_test3104z00_1177 = 
NULLP(BgL_auxz00_5482); } 
if(BgL_test3104z00_1177)
{ /* ./Expand/initial.scm 575 */
obj_t BgL_arg3106z00_1178;obj_t BgL_arg3107z00_1179;
BgL_arg3106z00_1178 = 
CAR(BgL_cdrzd2765zd2_1173); 
BgL_arg3107z00_1179 = 
CAR(BgL_cdrzd2769zd2_1175); 
BgL_functionz00_1164 = BgL_arg3106z00_1178; 
BgL_onezd2argzd2_1165 = BgL_arg3107z00_1179; 
{ /* ./Expand/initial.scm 578 */
obj_t BgL_arg3137z00_1187;obj_t BgL_arg3138z00_1188;
BgL_arg3137z00_1187 = 
CNST_TABLE_REF(((long)66)); 
{ /* ./Expand/initial.scm 578 */
obj_t BgL_arg3141z00_1189;obj_t BgL_arg3142z00_1190;
BgL_arg3141z00_1189 = 
PROCEDURE_ENTRY(BgL_ez00_1162)(BgL_ez00_1162, BgL_functionz00_1164, BgL_ez00_1162, BEOA); 
{ /* ./Expand/initial.scm 579 */
obj_t BgL_arg3146z00_1191;
BgL_arg3146z00_1191 = 
PROCEDURE_ENTRY(BgL_ez00_1162)(BgL_ez00_1162, BgL_onezd2argzd2_1165, BgL_ez00_1162, BEOA); 
BgL_arg3142z00_1190 = 
MAKE_PAIR(BgL_arg3146z00_1191, BNIL); } 
BgL_arg3138z00_1188 = 
MAKE_PAIR(BgL_arg3141z00_1189, BgL_arg3142z00_1190); } 
return 
MAKE_PAIR(BgL_arg3137z00_1187, BgL_arg3138z00_1188);} }  else 
{ /* ./Expand/initial.scm 575 */
obj_t BgL_arg3112z00_1181;obj_t BgL_arg3113z00_1182;
BgL_arg3112z00_1181 = 
CAR(BgL_cdrzd2765zd2_1173); 
BgL_arg3113z00_1182 = 
CDR(BgL_cdrzd2765zd2_1173); 
BgL_functionz00_1167 = BgL_arg3112z00_1181; 
BgL_argsz00_1168 = BgL_arg3113z00_1182; 
BgL_tagzd2756zd2_1169:
{ /* ./Expand/initial.scm 581 */
obj_t BgL_arg3151z00_1193;obj_t BgL_arg3152z00_1194;
BgL_arg3151z00_1193 = 
CNST_TABLE_REF(((long)66)); 
{ /* ./Expand/initial.scm 581 */
obj_t BgL_arg3156z00_1195;obj_t BgL_arg3157z00_1196;
BgL_arg3156z00_1195 = 
PROCEDURE_ENTRY(BgL_ez00_1162)(BgL_ez00_1162, BgL_functionz00_1167, BgL_ez00_1162, BEOA); 
{ /* ./Expand/initial.scm 583 */
obj_t BgL_arg3161z00_1197;
{ /* ./Expand/initial.scm 583 */
obj_t BgL_arg3165z00_1199;
{ /* ./Expand/initial.scm 583 */
obj_t BgL_arg3168z00_1200;
{ /* ./Expand/initial.scm 583 */
obj_t BgL_arg3171z00_1201;obj_t BgL_arg3172z00_1202;
{ /* ./Expand/initial.scm 583 */
obj_t BgL_arg3175z00_1203;obj_t BgL_arg3176z00_1204;
BgL_arg3175z00_1203 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 583 */
obj_t BgL_arg3179z00_1205;obj_t BgL_arg3180z00_1206;
BgL_arg3179z00_1205 = 
CNST_TABLE_REF(((long)65)); 
{ /* ./Expand/initial.scm 583 */
obj_t BgL_auxz00_5503;
BgL_auxz00_5503 = 
CNST_TABLE_REF(((long)110)); 
BgL_arg3180z00_1206 = 
MAKE_PAIR(BgL_auxz00_5503, BNIL); } 
BgL_arg3176z00_1204 = 
MAKE_PAIR(BgL_arg3179z00_1205, BgL_arg3180z00_1206); } 
BgL_arg3171z00_1201 = 
MAKE_PAIR(BgL_arg3175z00_1203, BgL_arg3176z00_1204); } 
BgL_arg3172z00_1202 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_argsz00_1168, BNIL); 
BgL_arg3168z00_1200 = 
MAKE_PAIR(BgL_arg3171z00_1201, BgL_arg3172z00_1202); } 
BgL_arg3165z00_1199 = 
BGl_epairifyz00zztools_miscz00(BgL_arg3168z00_1200, BgL_xz00_1161); } 
BgL_arg3161z00_1197 = 
PROCEDURE_ENTRY(BgL_ez00_1162)(BgL_ez00_1162, BgL_arg3165z00_1199, BgL_ez00_1162, BEOA); } 
BgL_arg3157z00_1196 = 
MAKE_PAIR(BgL_arg3161z00_1197, BNIL); } 
BgL_arg3152z00_1194 = 
MAKE_PAIR(BgL_arg3156z00_1195, BgL_arg3157z00_1196); } 
return 
MAKE_PAIR(BgL_arg3151z00_1193, BgL_arg3152z00_1194);} } }  else 
{ /* ./Expand/initial.scm 575 */
obj_t BgL_arg3123z00_1185;obj_t BgL_arg3124z00_1186;
BgL_arg3123z00_1185 = 
CAR(BgL_cdrzd2765zd2_1173); 
BgL_arg3124z00_1186 = 
CDR(BgL_cdrzd2765zd2_1173); 
{ 
obj_t BgL_argsz00_5519;obj_t BgL_functionz00_5518;
BgL_functionz00_5518 = BgL_arg3123z00_1185; 
BgL_argsz00_5519 = BgL_arg3124z00_1186; 
BgL_argsz00_1168 = BgL_argsz00_5519; 
BgL_functionz00_1167 = BgL_functionz00_5518; 
goto BgL_tagzd2756zd2_1169;} } } }  else 
{ /* ./Expand/initial.scm 575 */
BgL_tagzd2757zd2_1170:
FAILURE(BFALSE,BGl_string6418z00zzexpand_installz00,BgL_xz00_1161);} } }  else 
{ /* ./Expand/initial.scm 575 */
goto BgL_tagzd2757zd2_1170;} } } } } 
}



/* <anonymous:2992> */
obj_t BGl_zc3anonymousza32992ze3z83zzexpand_installz00(obj_t BgL_envz00_3719, obj_t BgL_xz00_3720, obj_t BgL_ez00_3721)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 557 */
{ 
obj_t BgL_xz00_1097;obj_t BgL_ez00_1098;
BgL_xz00_1097 = BgL_xz00_3720; 
BgL_ez00_1098 = BgL_ez00_3721; 
{ 
obj_t BgL_x1z00_1102;obj_t BgL_x2z00_1103;obj_t BgL_x1z00_1105;obj_t BgL_x2z00_1106;obj_t BgL_restz00_1107;
{ /* ./Expand/initial.scm 557 */
bool_t BgL_test2993z00_1111;
BgL_test2993z00_1111 = 
PAIRP(BgL_xz00_1097); 
if(BgL_test2993z00_1111)
{ /* ./Expand/initial.scm 557 */
obj_t BgL_cdrzd2675zd2_1112;
BgL_cdrzd2675zd2_1112 = 
CDR(BgL_xz00_1097); 
{ /* ./Expand/initial.scm 557 */
bool_t BgL_test2994z00_1113;
BgL_test2994z00_1113 = 
PAIRP(BgL_cdrzd2675zd2_1112); 
if(BgL_test2994z00_1113)
{ /* ./Expand/initial.scm 557 */
bool_t BgL_test2995z00_1114;
{ /* ./Expand/initial.scm 557 */
obj_t BgL_auxz00_5526;
BgL_auxz00_5526 = 
CDR(BgL_cdrzd2675zd2_1112); 
BgL_test2995z00_1114 = 
NULLP(BgL_auxz00_5526); } 
if(BgL_test2995z00_1114)
{ /* ./Expand/initial.scm 557 */
obj_t BgL_arg2997z00_1115;
BgL_arg2997z00_1115 = 
CAR(BgL_cdrzd2675zd2_1112); 
return 
PROCEDURE_ENTRY(BgL_ez00_1098)(BgL_ez00_1098, BgL_arg2997z00_1115, BgL_ez00_1098, BEOA);}  else 
{ /* ./Expand/initial.scm 557 */
obj_t BgL_cdrzd2692zd2_1117;
BgL_cdrzd2692zd2_1117 = 
CDR(BgL_cdrzd2675zd2_1112); 
{ /* ./Expand/initial.scm 557 */
bool_t BgL_test3000z00_1118;
BgL_test3000z00_1118 = 
PAIRP(BgL_cdrzd2692zd2_1117); 
if(BgL_test3000z00_1118)
{ /* ./Expand/initial.scm 557 */
bool_t BgL_test3001z00_1119;
{ /* ./Expand/initial.scm 557 */
obj_t BgL_auxz00_5536;
BgL_auxz00_5536 = 
CDR(BgL_cdrzd2692zd2_1117); 
BgL_test3001z00_1119 = 
NULLP(BgL_auxz00_5536); } 
if(BgL_test3001z00_1119)
{ /* ./Expand/initial.scm 557 */
obj_t BgL_arg3003z00_1120;obj_t BgL_arg3004z00_1121;
BgL_arg3003z00_1120 = 
CAR(BgL_cdrzd2675zd2_1112); 
BgL_arg3004z00_1121 = 
CAR(BgL_cdrzd2692zd2_1117); 
BgL_x1z00_1102 = BgL_arg3003z00_1120; 
BgL_x2z00_1103 = BgL_arg3004z00_1121; 
{ /* ./Expand/initial.scm 562 */
obj_t BgL_arg3037z00_1129;obj_t BgL_arg3038z00_1130;
BgL_arg3037z00_1129 = 
CNST_TABLE_REF(((long)111)); 
{ /* ./Expand/initial.scm 562 */
obj_t BgL_arg3041z00_1131;obj_t BgL_arg3042z00_1132;
BgL_arg3041z00_1131 = 
PROCEDURE_ENTRY(BgL_ez00_1098)(BgL_ez00_1098, BgL_x1z00_1102, BgL_ez00_1098, BEOA); 
{ /* ./Expand/initial.scm 562 */
obj_t BgL_arg3047z00_1133;
BgL_arg3047z00_1133 = 
PROCEDURE_ENTRY(BgL_ez00_1098)(BgL_ez00_1098, BgL_x2z00_1103, BgL_ez00_1098, BEOA); 
BgL_arg3042z00_1132 = 
MAKE_PAIR(BgL_arg3047z00_1133, BNIL); } 
BgL_arg3038z00_1130 = 
MAKE_PAIR(BgL_arg3041z00_1131, BgL_arg3042z00_1132); } 
return 
MAKE_PAIR(BgL_arg3037z00_1129, BgL_arg3038z00_1130);} }  else 
{ /* ./Expand/initial.scm 557 */
obj_t BgL_cdrzd2715zd2_1123;
BgL_cdrzd2715zd2_1123 = 
CDR(BgL_cdrzd2675zd2_1112); 
{ /* ./Expand/initial.scm 557 */
obj_t BgL_arg3009z00_1124;obj_t BgL_arg3010z00_1125;obj_t BgL_arg3011z00_1126;
BgL_arg3009z00_1124 = 
CAR(BgL_cdrzd2675zd2_1112); 
BgL_arg3010z00_1125 = 
CAR(BgL_cdrzd2715zd2_1123); 
BgL_arg3011z00_1126 = 
CDR(BgL_cdrzd2715zd2_1123); 
BgL_x1z00_1105 = BgL_arg3009z00_1124; 
BgL_x2z00_1106 = BgL_arg3010z00_1125; 
BgL_restz00_1107 = BgL_arg3011z00_1126; 
{ /* ./Expand/initial.scm 564 */
obj_t BgL_arg3052z00_1135;obj_t BgL_arg3053z00_1136;
BgL_arg3052z00_1135 = 
CNST_TABLE_REF(((long)111)); 
{ /* ./Expand/initial.scm 564 */
obj_t BgL_arg3056z00_1137;obj_t BgL_arg3057z00_1138;
BgL_arg3056z00_1137 = 
PROCEDURE_ENTRY(BgL_ez00_1098)(BgL_ez00_1098, BgL_x1z00_1105, BgL_ez00_1098, BEOA); 
{ /* ./Expand/initial.scm 566 */
obj_t BgL_arg3061z00_1139;
{ /* ./Expand/initial.scm 566 */
obj_t BgL_arg3065z00_1141;
{ /* ./Expand/initial.scm 566 */
obj_t BgL_arg3068z00_1142;
{ /* ./Expand/initial.scm 566 */
obj_t BgL_arg3071z00_1143;obj_t BgL_arg3072z00_1144;
BgL_arg3071z00_1143 = 
CNST_TABLE_REF(((long)65)); 
{ /* ./Expand/initial.scm 566 */
obj_t BgL_arg3075z00_1145;
BgL_arg3075z00_1145 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_restz00_1107, BNIL); 
BgL_arg3072z00_1144 = 
MAKE_PAIR(BgL_x2z00_1106, BgL_arg3075z00_1145); } 
BgL_arg3068z00_1142 = 
MAKE_PAIR(BgL_arg3071z00_1143, BgL_arg3072z00_1144); } 
BgL_arg3065z00_1141 = 
BGl_epairifyz00zztools_miscz00(BgL_arg3068z00_1142, BgL_xz00_1097); } 
BgL_arg3061z00_1139 = 
PROCEDURE_ENTRY(BgL_ez00_1098)(BgL_ez00_1098, BgL_arg3065z00_1141, BgL_ez00_1098, BEOA); } 
BgL_arg3057z00_1138 = 
MAKE_PAIR(BgL_arg3061z00_1139, BNIL); } 
BgL_arg3053z00_1136 = 
MAKE_PAIR(BgL_arg3056z00_1137, BgL_arg3057z00_1138); } 
return 
MAKE_PAIR(BgL_arg3052z00_1135, BgL_arg3053z00_1136);} } } }  else 
{ /* ./Expand/initial.scm 557 */
BgL_tagzd2668zd2_1109:
{ /* ./Expand/initial.scm 570 */
bool_t BgL_test3078z00_1147;
BgL_test3078z00_1147 = 
NULLP(BgL_xz00_1097); 
if(BgL_test3078z00_1147)
{ /* ./Expand/initial.scm 570 */
return BNIL;}  else 
{ /* ./Expand/initial.scm 570 */
obj_t BgL_head1138z00_1148;
BgL_head1138z00_1148 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1136z00_1149;obj_t BgL_tail1139z00_1150;
BgL_l1136z00_1149 = BgL_xz00_1097; 
BgL_tail1139z00_1150 = BgL_head1138z00_1148; 
BgL_map1137z00_1151:
{ /* ./Expand/initial.scm 570 */
bool_t BgL_test3080z00_1152;
BgL_test3080z00_1152 = 
NULLP(BgL_l1136z00_1149); 
if(BgL_test3080z00_1152)
{ /* ./Expand/initial.scm 570 */
return 
CDR(BgL_head1138z00_1148);}  else 
{ /* ./Expand/initial.scm 570 */
obj_t BgL_newtail1140z00_1153;
{ /* ./Expand/initial.scm 570 */
obj_t BgL_arg3088z00_1155;
{ /* ./Expand/initial.scm 570 */
obj_t BgL_xz00_1157;
BgL_xz00_1157 = 
CAR(BgL_l1136z00_1149); 
BgL_arg3088z00_1155 = 
PROCEDURE_ENTRY(BgL_ez00_1098)(BgL_ez00_1098, BgL_xz00_1157, BgL_ez00_1098, BEOA); } 
BgL_newtail1140z00_1153 = 
MAKE_PAIR(BgL_arg3088z00_1155, BNIL); } 
SET_CDR(BgL_tail1139z00_1150, BgL_newtail1140z00_1153); 
{ /* ./Expand/initial.scm 570 */
obj_t BgL_arg3084z00_1154;
BgL_arg3084z00_1154 = 
CDR(BgL_l1136z00_1149); 
{ 
obj_t BgL_tail1139z00_5580;obj_t BgL_l1136z00_5579;
BgL_l1136z00_5579 = BgL_arg3084z00_1154; 
BgL_tail1139z00_5580 = BgL_newtail1140z00_1153; 
BgL_tail1139z00_1150 = BgL_tail1139z00_5580; 
BgL_l1136z00_1149 = BgL_l1136z00_5579; 
goto BgL_map1137z00_1151;} } } } } } } } } } }  else 
{ /* ./Expand/initial.scm 557 */
goto BgL_tagzd2668zd2_1109;} } }  else 
{ /* ./Expand/initial.scm 557 */
goto BgL_tagzd2668zd2_1109;} } } } } 
}



/* <anonymous:2951> */
obj_t BGl_zc3anonymousza32951ze3z83zzexpand_installz00(obj_t BgL_envz00_3722, obj_t BgL_xz00_3723, obj_t BgL_ez00_3724)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 543 */
{ 
obj_t BgL_xz00_1073;obj_t BgL_ez00_1074;
BgL_xz00_1073 = BgL_xz00_3723; 
BgL_ez00_1074 = BgL_ez00_3724; 
{ 
obj_t BgL_nz00_1076;
{ /* ./Expand/initial.scm 543 */
bool_t BgL_test2952z00_1080;
BgL_test2952z00_1080 = 
PAIRP(BgL_xz00_1073); 
if(BgL_test2952z00_1080)
{ /* ./Expand/initial.scm 543 */
obj_t BgL_cdrzd2660zd2_1081;
BgL_cdrzd2660zd2_1081 = 
CDR(BgL_xz00_1073); 
{ /* ./Expand/initial.scm 543 */
bool_t BgL_test2953z00_1082;
BgL_test2953z00_1082 = 
PAIRP(BgL_cdrzd2660zd2_1081); 
if(BgL_test2953z00_1082)
{ /* ./Expand/initial.scm 543 */
bool_t BgL_test2954z00_1083;
{ /* ./Expand/initial.scm 543 */
obj_t BgL_auxz00_5586;
BgL_auxz00_5586 = 
CDR(BgL_cdrzd2660zd2_1081); 
BgL_test2954z00_1083 = 
NULLP(BgL_auxz00_5586); } 
if(BgL_test2954z00_1083)
{ /* ./Expand/initial.scm 543 */
obj_t BgL_arg2956z00_1084;
BgL_arg2956z00_1084 = 
CAR(BgL_cdrzd2660zd2_1081); 
BgL_nz00_1076 = BgL_arg2956z00_1084; 
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Expand/initial.scm 547 */
obj_t BgL_arg2970z00_1086;obj_t BgL_arg2971z00_1087;
BgL_arg2970z00_1086 = 
CNST_TABLE_REF(((long)112)); 
{ /* ./Expand/initial.scm 547 */
obj_t BgL_arg2974z00_1088;
BgL_arg2974z00_1088 = 
PROCEDURE_ENTRY(BgL_ez00_1074)(BgL_ez00_1074, BgL_nz00_1076, BgL_ez00_1074, BEOA); 
BgL_arg2971z00_1087 = 
MAKE_PAIR(BgL_arg2974z00_1088, BNIL); } 
return 
MAKE_PAIR(BgL_arg2970z00_1086, BgL_arg2971z00_1087);}  else 
{ /* ./Expand/initial.scm 548 */
obj_t BgL_arg2979z00_1090;obj_t BgL_arg2980z00_1091;
BgL_arg2979z00_1090 = 
CNST_TABLE_REF(((long)64)); 
{ /* ./Expand/initial.scm 548 */
obj_t BgL_arg2983z00_1092;
BgL_arg2983z00_1092 = 
PROCEDURE_ENTRY(BgL_ez00_1074)(BgL_ez00_1074, BgL_nz00_1076, BgL_ez00_1074, BEOA); 
BgL_arg2980z00_1091 = 
MAKE_PAIR(BgL_arg2983z00_1092, BNIL); } 
return 
MAKE_PAIR(BgL_arg2979z00_1090, BgL_arg2980z00_1091);} }  else 
{ /* ./Expand/initial.scm 543 */
BgL_tagzd2655zd2_1078:
FAILURE(BFALSE,BGl_string6419z00zzexpand_installz00,BgL_xz00_1073);} }  else 
{ /* ./Expand/initial.scm 543 */
goto BgL_tagzd2655zd2_1078;} } }  else 
{ /* ./Expand/initial.scm 543 */
goto BgL_tagzd2655zd2_1078;} } } } } 
}



/* <anonymous:2865> */
obj_t BGl_zc3anonymousza32865ze3z83zzexpand_installz00(obj_t BgL_envz00_3725, obj_t BgL_xz00_3726, obj_t BgL_ez00_3727)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 519 */
{ 
obj_t BgL_xz00_1024;obj_t BgL_ez00_1025;
BgL_xz00_1024 = BgL_xz00_3726; 
BgL_ez00_1025 = BgL_ez00_3727; 
{ 
obj_t BgL_s1z00_1027;obj_t BgL_o1z00_1028;obj_t BgL_s2z00_1029;obj_t BgL_o2z00_1030;obj_t BgL_lz00_1031;
{ /* ./Expand/initial.scm 519 */
bool_t BgL_test2866z00_1035;
BgL_test2866z00_1035 = 
PAIRP(BgL_xz00_1024); 
if(BgL_test2866z00_1035)
{ /* ./Expand/initial.scm 519 */
obj_t BgL_cdrzd2623zd2_1036;
BgL_cdrzd2623zd2_1036 = 
CDR(BgL_xz00_1024); 
{ /* ./Expand/initial.scm 519 */
bool_t BgL_test2867z00_1037;
BgL_test2867z00_1037 = 
PAIRP(BgL_cdrzd2623zd2_1036); 
if(BgL_test2867z00_1037)
{ /* ./Expand/initial.scm 519 */
obj_t BgL_cdrzd2630zd2_1038;
BgL_cdrzd2630zd2_1038 = 
CDR(BgL_cdrzd2623zd2_1036); 
{ /* ./Expand/initial.scm 519 */
bool_t BgL_test2868z00_1039;
BgL_test2868z00_1039 = 
PAIRP(BgL_cdrzd2630zd2_1038); 
if(BgL_test2868z00_1039)
{ /* ./Expand/initial.scm 519 */
obj_t BgL_cdrzd2637zd2_1040;
BgL_cdrzd2637zd2_1040 = 
CDR(BgL_cdrzd2630zd2_1038); 
{ /* ./Expand/initial.scm 519 */
bool_t BgL_test2869z00_1041;
BgL_test2869z00_1041 = 
PAIRP(BgL_cdrzd2637zd2_1040); 
if(BgL_test2869z00_1041)
{ /* ./Expand/initial.scm 519 */
obj_t BgL_cdrzd2643zd2_1042;
BgL_cdrzd2643zd2_1042 = 
CDR(BgL_cdrzd2637zd2_1040); 
{ /* ./Expand/initial.scm 519 */
bool_t BgL_test2870z00_1043;
BgL_test2870z00_1043 = 
PAIRP(BgL_cdrzd2643zd2_1042); 
if(BgL_test2870z00_1043)
{ /* ./Expand/initial.scm 519 */
obj_t BgL_cdrzd2648zd2_1044;
BgL_cdrzd2648zd2_1044 = 
CDR(BgL_cdrzd2643zd2_1042); 
{ /* ./Expand/initial.scm 519 */
bool_t BgL_test2871z00_1045;
BgL_test2871z00_1045 = 
PAIRP(BgL_cdrzd2648zd2_1044); 
if(BgL_test2871z00_1045)
{ /* ./Expand/initial.scm 519 */
bool_t BgL_test2872z00_1046;
{ /* ./Expand/initial.scm 519 */
obj_t BgL_auxz00_5621;
BgL_auxz00_5621 = 
CDR(BgL_cdrzd2648zd2_1044); 
BgL_test2872z00_1046 = 
NULLP(BgL_auxz00_5621); } 
if(BgL_test2872z00_1046)
{ /* ./Expand/initial.scm 519 */
obj_t BgL_arg2874z00_1047;obj_t BgL_arg2875z00_1048;obj_t BgL_arg2876z00_1049;obj_t BgL_arg2877z00_1050;obj_t BgL_arg2878z00_1051;
BgL_arg2874z00_1047 = 
CAR(BgL_cdrzd2623zd2_1036); 
BgL_arg2875z00_1048 = 
CAR(BgL_cdrzd2630zd2_1038); 
BgL_arg2876z00_1049 = 
CAR(BgL_cdrzd2637zd2_1040); 
BgL_arg2877z00_1050 = 
CAR(BgL_cdrzd2643zd2_1042); 
BgL_arg2878z00_1051 = 
CAR(BgL_cdrzd2648zd2_1044); 
BgL_s1z00_1027 = BgL_arg2874z00_1047; 
BgL_o1z00_1028 = BgL_arg2875z00_1048; 
BgL_s2z00_1029 = BgL_arg2876z00_1049; 
BgL_o2z00_1030 = BgL_arg2877z00_1050; 
BgL_lz00_1031 = BgL_arg2878z00_1051; 
{ /* ./Expand/initial.scm 522 */
obj_t BgL_s1z00_1053;obj_t BgL_o1z00_1054;obj_t BgL_s2z00_1055;obj_t BgL_o2z00_1056;obj_t BgL_lz00_1057;
BgL_s1z00_1053 = 
PROCEDURE_ENTRY(BgL_ez00_1025)(BgL_ez00_1025, BgL_s1z00_1027, BgL_ez00_1025, BEOA); 
BgL_o1z00_1054 = 
PROCEDURE_ENTRY(BgL_ez00_1025)(BgL_ez00_1025, BgL_o1z00_1028, BgL_ez00_1025, BEOA); 
BgL_s2z00_1055 = 
PROCEDURE_ENTRY(BgL_ez00_1025)(BgL_ez00_1025, BgL_s2z00_1029, BgL_ez00_1025, BEOA); 
BgL_o2z00_1056 = 
PROCEDURE_ENTRY(BgL_ez00_1025)(BgL_ez00_1025, BgL_o2z00_1030, BgL_ez00_1025, BEOA); 
BgL_lz00_1057 = 
PROCEDURE_ENTRY(BgL_ez00_1025)(BgL_ez00_1025, BgL_lz00_1031, BgL_ez00_1025, BEOA); 
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Expand/initial.scm 532 */
obj_t BgL_arg2908z00_1058;obj_t BgL_arg2909z00_1059;
BgL_arg2908z00_1058 = 
CNST_TABLE_REF(((long)113)); 
{ /* ./Expand/initial.scm 528 */
obj_t BgL_arg2912z00_1060;
{ /* ./Expand/initial.scm 528 */
obj_t BgL_arg2915z00_1061;
{ /* ./Expand/initial.scm 528 */
obj_t BgL_arg2918z00_1062;
{ /* ./Expand/initial.scm 528 */
obj_t BgL_arg2921z00_1063;
BgL_arg2921z00_1063 = 
MAKE_PAIR(BgL_lz00_1057, BNIL); 
BgL_arg2918z00_1062 = 
MAKE_PAIR(BgL_o2z00_1056, BgL_arg2921z00_1063); } 
BgL_arg2915z00_1061 = 
MAKE_PAIR(BgL_s2z00_1055, BgL_arg2918z00_1062); } 
BgL_arg2912z00_1060 = 
MAKE_PAIR(BgL_o1z00_1054, BgL_arg2915z00_1061); } 
BgL_arg2909z00_1059 = 
MAKE_PAIR(BgL_s1z00_1053, BgL_arg2912z00_1060); } 
return 
MAKE_PAIR(BgL_arg2908z00_1058, BgL_arg2909z00_1059);}  else 
{ /* ./Expand/initial.scm 537 */
obj_t BgL_arg2925z00_1064;obj_t BgL_arg2926z00_1065;
BgL_arg2925z00_1064 = 
CNST_TABLE_REF(((long)63)); 
{ /* ./Expand/initial.scm 533 */
obj_t BgL_arg2929z00_1066;
{ /* ./Expand/initial.scm 533 */
obj_t BgL_arg2932z00_1067;
{ /* ./Expand/initial.scm 533 */
obj_t BgL_arg2935z00_1068;
{ /* ./Expand/initial.scm 533 */
obj_t BgL_arg2938z00_1069;
BgL_arg2938z00_1069 = 
MAKE_PAIR(BgL_lz00_1057, BNIL); 
BgL_arg2935z00_1068 = 
MAKE_PAIR(BgL_o2z00_1056, BgL_arg2938z00_1069); } 
BgL_arg2932z00_1067 = 
MAKE_PAIR(BgL_s2z00_1055, BgL_arg2935z00_1068); } 
BgL_arg2929z00_1066 = 
MAKE_PAIR(BgL_o1z00_1054, BgL_arg2932z00_1067); } 
BgL_arg2926z00_1065 = 
MAKE_PAIR(BgL_s1z00_1053, BgL_arg2929z00_1066); } 
return 
MAKE_PAIR(BgL_arg2925z00_1064, BgL_arg2926z00_1065);} } }  else 
{ /* ./Expand/initial.scm 519 */
BgL_tagzd2610zd2_1033:
FAILURE(BFALSE,BGl_string6420z00zzexpand_installz00,BgL_xz00_1024);} }  else 
{ /* ./Expand/initial.scm 519 */
goto BgL_tagzd2610zd2_1033;} } }  else 
{ /* ./Expand/initial.scm 519 */
goto BgL_tagzd2610zd2_1033;} } }  else 
{ /* ./Expand/initial.scm 519 */
goto BgL_tagzd2610zd2_1033;} } }  else 
{ /* ./Expand/initial.scm 519 */
goto BgL_tagzd2610zd2_1033;} } }  else 
{ /* ./Expand/initial.scm 519 */
goto BgL_tagzd2610zd2_1033;} } }  else 
{ /* ./Expand/initial.scm 519 */
goto BgL_tagzd2610zd2_1033;} } } } } 
}



/* <anonymous:2859> */
obj_t BGl_zc3anonymousza32859ze3z83zzexpand_installz00(obj_t BgL_envz00_3728, obj_t BgL_xz00_3729, obj_t BgL_ez00_3730)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 513 */
{ 
obj_t BgL_xz00_1018;obj_t BgL_ez00_1019;
BgL_xz00_1018 = BgL_xz00_3729; 
BgL_ez00_1019 = BgL_ez00_3730; 
return 
BGl_boundzd2checkzd2zzexpand_installz00(BgL_xz00_1018, 
CNST_TABLE_REF(((long)17)), 
CNST_TABLE_REF(((long)114)), BgL_ez00_1019);} } 
}



/* <anonymous:2812> */
obj_t BGl_zc3anonymousza32812ze3z83zzexpand_installz00(obj_t BgL_envz00_3731, obj_t BgL_xz00_3732, obj_t BgL_ez00_3733)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 501 */
{ 
obj_t BgL_xz00_990;obj_t BgL_ez00_991;
BgL_xz00_990 = BgL_xz00_3732; 
BgL_ez00_991 = BgL_ez00_3733; 
{ 
obj_t BgL_vecz00_993;obj_t BgL_kz00_994;
{ /* ./Expand/initial.scm 501 */
bool_t BgL_test2813z00_998;
BgL_test2813z00_998 = 
PAIRP(BgL_xz00_990); 
if(BgL_test2813z00_998)
{ /* ./Expand/initial.scm 501 */
obj_t BgL_cdrzd2599zd2_999;
BgL_cdrzd2599zd2_999 = 
CDR(BgL_xz00_990); 
{ /* ./Expand/initial.scm 501 */
bool_t BgL_test2814z00_1000;
BgL_test2814z00_1000 = 
PAIRP(BgL_cdrzd2599zd2_999); 
if(BgL_test2814z00_1000)
{ /* ./Expand/initial.scm 501 */
obj_t BgL_cdrzd2603zd2_1001;
BgL_cdrzd2603zd2_1001 = 
CDR(BgL_cdrzd2599zd2_999); 
{ /* ./Expand/initial.scm 501 */
bool_t BgL_test2815z00_1002;
BgL_test2815z00_1002 = 
PAIRP(BgL_cdrzd2603zd2_1001); 
if(BgL_test2815z00_1002)
{ /* ./Expand/initial.scm 501 */
bool_t BgL_test2816z00_1003;
{ /* ./Expand/initial.scm 501 */
obj_t BgL_auxz00_5668;
BgL_auxz00_5668 = 
CDR(BgL_cdrzd2603zd2_1001); 
BgL_test2816z00_1003 = 
NULLP(BgL_auxz00_5668); } 
if(BgL_test2816z00_1003)
{ /* ./Expand/initial.scm 501 */
obj_t BgL_arg2818z00_1004;obj_t BgL_arg2819z00_1005;
BgL_arg2818z00_1004 = 
CAR(BgL_cdrzd2599zd2_999); 
BgL_arg2819z00_1005 = 
CAR(BgL_cdrzd2603zd2_1001); 
BgL_vecz00_993 = BgL_arg2818z00_1004; 
BgL_kz00_994 = BgL_arg2819z00_1005; 
{ /* ./Expand/initial.scm 504 */
obj_t BgL_evecz00_1007;obj_t BgL_ekz00_1008;
BgL_evecz00_1007 = 
PROCEDURE_ENTRY(BgL_ez00_991)(BgL_ez00_991, BgL_vecz00_993, BgL_ez00_991, BEOA); 
BgL_ekz00_1008 = 
PROCEDURE_ENTRY(BgL_ez00_991)(BgL_ez00_991, BgL_kz00_994, BgL_ez00_991, BEOA); 
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Expand/initial.scm 507 */
obj_t BgL_arg2837z00_1009;obj_t BgL_arg2838z00_1010;
BgL_arg2837z00_1009 = 
CNST_TABLE_REF(((long)115)); 
{ /* ./Expand/initial.scm 507 */
obj_t BgL_arg2841z00_1011;
BgL_arg2841z00_1011 = 
MAKE_PAIR(BgL_ekz00_1008, BNIL); 
BgL_arg2838z00_1010 = 
MAKE_PAIR(BgL_evecz00_1007, BgL_arg2841z00_1011); } 
return 
MAKE_PAIR(BgL_arg2837z00_1009, BgL_arg2838z00_1010);}  else 
{ /* ./Expand/initial.scm 508 */
obj_t BgL_arg2845z00_1012;obj_t BgL_arg2846z00_1013;
BgL_arg2845z00_1012 = 
CNST_TABLE_REF(((long)62)); 
{ /* ./Expand/initial.scm 508 */
obj_t BgL_arg2849z00_1014;
BgL_arg2849z00_1014 = 
MAKE_PAIR(BgL_ekz00_1008, BNIL); 
BgL_arg2846z00_1013 = 
MAKE_PAIR(BgL_evecz00_1007, BgL_arg2849z00_1014); } 
return 
MAKE_PAIR(BgL_arg2845z00_1012, BgL_arg2846z00_1013);} } }  else 
{ /* ./Expand/initial.scm 501 */
BgL_tagzd2592zd2_996:
FAILURE(BFALSE,BGl_string6421z00zzexpand_installz00,BgL_xz00_990);} }  else 
{ /* ./Expand/initial.scm 501 */
goto BgL_tagzd2592zd2_996;} } }  else 
{ /* ./Expand/initial.scm 501 */
goto BgL_tagzd2592zd2_996;} } }  else 
{ /* ./Expand/initial.scm 501 */
goto BgL_tagzd2592zd2_996;} } } } } 
}



/* <anonymous:2806> */
obj_t BGl_zc3anonymousza32806ze3z83zzexpand_installz00(obj_t BgL_envz00_3734, obj_t BgL_xz00_3735, obj_t BgL_ez00_3736)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 494 */
{ 
obj_t BgL_xz00_984;obj_t BgL_ez00_985;
BgL_xz00_984 = BgL_xz00_3735; 
BgL_ez00_985 = BgL_ez00_3736; 
return 
BGl_boundzd2checkzd2zzexpand_installz00(BgL_xz00_984, 
CNST_TABLE_REF(((long)17)), 
CNST_TABLE_REF(((long)114)), BgL_ez00_985);} } 
}



/* <anonymous:2746> */
obj_t BGl_zc3anonymousza32746ze3z83zzexpand_installz00(obj_t BgL_envz00_3737, obj_t BgL_xz00_3738, obj_t BgL_ez00_3739)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 481 */
{ 
obj_t BgL_xz00_949;obj_t BgL_ez00_950;
BgL_xz00_949 = BgL_xz00_3738; 
BgL_ez00_950 = BgL_ez00_3739; 
{ 
obj_t BgL_vecz00_952;obj_t BgL_kz00_953;obj_t BgL_objz00_954;
{ /* ./Expand/initial.scm 481 */
bool_t BgL_test2747z00_958;
BgL_test2747z00_958 = 
PAIRP(BgL_xz00_949); 
if(BgL_test2747z00_958)
{ /* ./Expand/initial.scm 481 */
obj_t BgL_cdrzd2575zd2_959;
BgL_cdrzd2575zd2_959 = 
CDR(BgL_xz00_949); 
{ /* ./Expand/initial.scm 481 */
bool_t BgL_test2748z00_960;
BgL_test2748z00_960 = 
PAIRP(BgL_cdrzd2575zd2_959); 
if(BgL_test2748z00_960)
{ /* ./Expand/initial.scm 481 */
obj_t BgL_cdrzd2580zd2_961;
BgL_cdrzd2580zd2_961 = 
CDR(BgL_cdrzd2575zd2_959); 
{ /* ./Expand/initial.scm 481 */
bool_t BgL_test2749z00_962;
BgL_test2749z00_962 = 
PAIRP(BgL_cdrzd2580zd2_961); 
if(BgL_test2749z00_962)
{ /* ./Expand/initial.scm 481 */
obj_t BgL_cdrzd2585zd2_963;
BgL_cdrzd2585zd2_963 = 
CDR(BgL_cdrzd2580zd2_961); 
{ /* ./Expand/initial.scm 481 */
bool_t BgL_test2750z00_964;
BgL_test2750z00_964 = 
PAIRP(BgL_cdrzd2585zd2_963); 
if(BgL_test2750z00_964)
{ /* ./Expand/initial.scm 481 */
bool_t BgL_test2751z00_965;
{ /* ./Expand/initial.scm 481 */
obj_t BgL_auxz00_5703;
BgL_auxz00_5703 = 
CDR(BgL_cdrzd2585zd2_963); 
BgL_test2751z00_965 = 
NULLP(BgL_auxz00_5703); } 
if(BgL_test2751z00_965)
{ /* ./Expand/initial.scm 481 */
obj_t BgL_arg2753z00_966;obj_t BgL_arg2754z00_967;obj_t BgL_arg2755z00_968;
BgL_arg2753z00_966 = 
CAR(BgL_cdrzd2575zd2_959); 
BgL_arg2754z00_967 = 
CAR(BgL_cdrzd2580zd2_961); 
BgL_arg2755z00_968 = 
CAR(BgL_cdrzd2585zd2_963); 
BgL_vecz00_952 = BgL_arg2753z00_966; 
BgL_kz00_953 = BgL_arg2754z00_967; 
BgL_objz00_954 = BgL_arg2755z00_968; 
{ /* ./Expand/initial.scm 484 */
obj_t BgL_evecz00_970;obj_t BgL_ekz00_971;obj_t BgL_eobjz00_972;
BgL_evecz00_970 = 
PROCEDURE_ENTRY(BgL_ez00_950)(BgL_ez00_950, BgL_vecz00_952, BgL_ez00_950, BEOA); 
BgL_ekz00_971 = 
PROCEDURE_ENTRY(BgL_ez00_950)(BgL_ez00_950, BgL_kz00_953, BgL_ez00_950, BEOA); 
BgL_eobjz00_972 = 
PROCEDURE_ENTRY(BgL_ez00_950)(BgL_ez00_950, BgL_objz00_954, BgL_ez00_950, BEOA); 
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Expand/initial.scm 488 */
obj_t BgL_arg2777z00_973;obj_t BgL_arg2778z00_974;
BgL_arg2777z00_973 = 
CNST_TABLE_REF(((long)116)); 
{ /* ./Expand/initial.scm 488 */
obj_t BgL_arg2781z00_975;
{ /* ./Expand/initial.scm 488 */
obj_t BgL_arg2784z00_976;
BgL_arg2784z00_976 = 
MAKE_PAIR(BgL_eobjz00_972, BNIL); 
BgL_arg2781z00_975 = 
MAKE_PAIR(BgL_ekz00_971, BgL_arg2784z00_976); } 
BgL_arg2778z00_974 = 
MAKE_PAIR(BgL_evecz00_970, BgL_arg2781z00_975); } 
return 
MAKE_PAIR(BgL_arg2777z00_973, BgL_arg2778z00_974);}  else 
{ /* ./Expand/initial.scm 489 */
obj_t BgL_arg2788z00_977;obj_t BgL_arg2789z00_978;
BgL_arg2788z00_977 = 
CNST_TABLE_REF(((long)61)); 
{ /* ./Expand/initial.scm 489 */
obj_t BgL_arg2792z00_979;
{ /* ./Expand/initial.scm 489 */
obj_t BgL_arg2795z00_980;
BgL_arg2795z00_980 = 
MAKE_PAIR(BgL_eobjz00_972, BNIL); 
BgL_arg2792z00_979 = 
MAKE_PAIR(BgL_ekz00_971, BgL_arg2795z00_980); } 
BgL_arg2789z00_978 = 
MAKE_PAIR(BgL_evecz00_970, BgL_arg2792z00_979); } 
return 
MAKE_PAIR(BgL_arg2788z00_977, BgL_arg2789z00_978);} } }  else 
{ /* ./Expand/initial.scm 481 */
BgL_tagzd2566zd2_956:
FAILURE(BFALSE,BGl_string6422z00zzexpand_installz00,BgL_xz00_949);} }  else 
{ /* ./Expand/initial.scm 481 */
goto BgL_tagzd2566zd2_956;} } }  else 
{ /* ./Expand/initial.scm 481 */
goto BgL_tagzd2566zd2_956;} } }  else 
{ /* ./Expand/initial.scm 481 */
goto BgL_tagzd2566zd2_956;} } }  else 
{ /* ./Expand/initial.scm 481 */
goto BgL_tagzd2566zd2_956;} } } } } 
}



/* <anonymous:2669> */
obj_t BGl_zc3anonymousza32669ze3z83zzexpand_installz00(obj_t BgL_envz00_3740, obj_t BgL_xz00_3741, obj_t BgL_ez00_3742)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 466 */
{ 
obj_t BgL_xz00_902;obj_t BgL_ez00_903;
BgL_xz00_902 = BgL_xz00_3741; 
BgL_ez00_903 = BgL_ez00_3742; 
{ 
obj_t BgL_sz00_905;obj_t BgL_minz00_906;obj_t BgL_maxz00_907;
{ /* ./Expand/initial.scm 466 */
bool_t BgL_test2670z00_911;
BgL_test2670z00_911 = 
PAIRP(BgL_xz00_902); 
if(BgL_test2670z00_911)
{ /* ./Expand/initial.scm 466 */
obj_t BgL_cdrzd2549zd2_912;
BgL_cdrzd2549zd2_912 = 
CDR(BgL_xz00_902); 
{ /* ./Expand/initial.scm 466 */
bool_t BgL_test2671z00_913;
BgL_test2671z00_913 = 
PAIRP(BgL_cdrzd2549zd2_912); 
if(BgL_test2671z00_913)
{ /* ./Expand/initial.scm 466 */
obj_t BgL_cdrzd2554zd2_914;
BgL_cdrzd2554zd2_914 = 
CDR(BgL_cdrzd2549zd2_912); 
{ /* ./Expand/initial.scm 466 */
bool_t BgL_test2672z00_915;
BgL_test2672z00_915 = 
PAIRP(BgL_cdrzd2554zd2_914); 
if(BgL_test2672z00_915)
{ /* ./Expand/initial.scm 466 */
obj_t BgL_cdrzd2559zd2_916;
BgL_cdrzd2559zd2_916 = 
CDR(BgL_cdrzd2554zd2_914); 
{ /* ./Expand/initial.scm 466 */
bool_t BgL_test2673z00_917;
BgL_test2673z00_917 = 
PAIRP(BgL_cdrzd2559zd2_916); 
if(BgL_test2673z00_917)
{ /* ./Expand/initial.scm 466 */
bool_t BgL_test2674z00_918;
{ /* ./Expand/initial.scm 466 */
obj_t BgL_auxz00_5740;
BgL_auxz00_5740 = 
CDR(BgL_cdrzd2559zd2_916); 
BgL_test2674z00_918 = 
NULLP(BgL_auxz00_5740); } 
if(BgL_test2674z00_918)
{ /* ./Expand/initial.scm 466 */
obj_t BgL_arg2676z00_919;obj_t BgL_arg2677z00_920;obj_t BgL_arg2678z00_921;
BgL_arg2676z00_919 = 
CAR(BgL_cdrzd2549zd2_912); 
BgL_arg2677z00_920 = 
CAR(BgL_cdrzd2554zd2_914); 
BgL_arg2678z00_921 = 
CAR(BgL_cdrzd2559zd2_916); 
BgL_sz00_905 = BgL_arg2676z00_919; 
BgL_minz00_906 = BgL_arg2677z00_920; 
BgL_maxz00_907 = BgL_arg2678z00_921; 
{ /* ./Expand/initial.scm 469 */
obj_t BgL_sz00_923;obj_t BgL_minz00_924;obj_t BgL_maxz00_925;
BgL_sz00_923 = 
PROCEDURE_ENTRY(BgL_ez00_903)(BgL_ez00_903, BgL_sz00_905, BgL_ez00_903, BEOA); 
BgL_minz00_924 = 
PROCEDURE_ENTRY(BgL_ez00_903)(BgL_ez00_903, BgL_minz00_906, BgL_ez00_903, BEOA); 
BgL_maxz00_925 = 
PROCEDURE_ENTRY(BgL_ez00_903)(BgL_ez00_903, BgL_maxz00_907, BgL_ez00_903, BEOA); 
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Expand/initial.scm 473 */
obj_t BgL_arg2700z00_926;obj_t BgL_arg2701z00_927;
BgL_arg2700z00_926 = 
CNST_TABLE_REF(((long)117)); 
{ /* ./Expand/initial.scm 473 */
obj_t BgL_arg2704z00_928;
{ /* ./Expand/initial.scm 473 */
obj_t BgL_arg2707z00_929;
BgL_arg2707z00_929 = 
MAKE_PAIR(BgL_maxz00_925, BNIL); 
BgL_arg2704z00_928 = 
MAKE_PAIR(BgL_minz00_924, BgL_arg2707z00_929); } 
BgL_arg2701z00_927 = 
MAKE_PAIR(BgL_sz00_923, BgL_arg2704z00_928); } 
return 
MAKE_PAIR(BgL_arg2700z00_926, BgL_arg2701z00_927);}  else 
{ /* ./Expand/initial.scm 474 */
obj_t BgL_arg2711z00_930;obj_t BgL_arg2712z00_931;
BgL_arg2711z00_930 = 
CNST_TABLE_REF(((long)60)); 
{ /* ./Expand/initial.scm 474 */
obj_t BgL_arg2715z00_932;
{ /* ./Expand/initial.scm 474 */
obj_t BgL_arg2718z00_933;
BgL_arg2718z00_933 = 
MAKE_PAIR(BgL_maxz00_925, BNIL); 
BgL_arg2715z00_932 = 
MAKE_PAIR(BgL_minz00_924, BgL_arg2718z00_933); } 
BgL_arg2712z00_931 = 
MAKE_PAIR(BgL_sz00_923, BgL_arg2715z00_932); } 
return 
MAKE_PAIR(BgL_arg2711z00_930, BgL_arg2712z00_931);} } }  else 
{ /* ./Expand/initial.scm 466 */
BgL_tagzd2540zd2_909:
{ /* ./Expand/initial.scm 476 */
bool_t BgL_test2724z00_935;
BgL_test2724z00_935 = 
NULLP(BgL_xz00_902); 
if(BgL_test2724z00_935)
{ /* ./Expand/initial.scm 476 */
return BNIL;}  else 
{ /* ./Expand/initial.scm 476 */
obj_t BgL_head1133z00_936;
BgL_head1133z00_936 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1131z00_937;obj_t BgL_tail1134z00_938;
BgL_l1131z00_937 = BgL_xz00_902; 
BgL_tail1134z00_938 = BgL_head1133z00_936; 
BgL_map1132z00_939:
{ /* ./Expand/initial.scm 476 */
bool_t BgL_test2726z00_940;
BgL_test2726z00_940 = 
NULLP(BgL_l1131z00_937); 
if(BgL_test2726z00_940)
{ /* ./Expand/initial.scm 476 */
return 
CDR(BgL_head1133z00_936);}  else 
{ /* ./Expand/initial.scm 476 */
obj_t BgL_newtail1135z00_941;
{ /* ./Expand/initial.scm 476 */
obj_t BgL_arg2734z00_943;
{ /* ./Expand/initial.scm 476 */
obj_t BgL_xz00_945;
BgL_xz00_945 = 
CAR(BgL_l1131z00_937); 
BgL_arg2734z00_943 = 
PROCEDURE_ENTRY(BgL_ez00_903)(BgL_ez00_903, BgL_xz00_945, BgL_ez00_903, BEOA); } 
BgL_newtail1135z00_941 = 
MAKE_PAIR(BgL_arg2734z00_943, BNIL); } 
SET_CDR(BgL_tail1134z00_938, BgL_newtail1135z00_941); 
{ /* ./Expand/initial.scm 476 */
obj_t BgL_arg2730z00_942;
BgL_arg2730z00_942 = 
CDR(BgL_l1131z00_937); 
{ 
obj_t BgL_tail1134z00_5778;obj_t BgL_l1131z00_5777;
BgL_l1131z00_5777 = BgL_arg2730z00_942; 
BgL_tail1134z00_5778 = BgL_newtail1135z00_941; 
BgL_tail1134z00_938 = BgL_tail1134z00_5778; 
BgL_l1131z00_937 = BgL_l1131z00_5777; 
goto BgL_map1132z00_939;} } } } } } } } }  else 
{ /* ./Expand/initial.scm 466 */
goto BgL_tagzd2540zd2_909;} } }  else 
{ /* ./Expand/initial.scm 466 */
goto BgL_tagzd2540zd2_909;} } }  else 
{ /* ./Expand/initial.scm 466 */
goto BgL_tagzd2540zd2_909;} } }  else 
{ /* ./Expand/initial.scm 466 */
goto BgL_tagzd2540zd2_909;} } } } } 
}



/* <anonymous:2663> */
obj_t BGl_zc3anonymousza32663ze3z83zzexpand_installz00(obj_t BgL_envz00_3743, obj_t BgL_xz00_3744, obj_t BgL_ez00_3745)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 460 */
{ 
obj_t BgL_xz00_896;obj_t BgL_ez00_897;
BgL_xz00_896 = BgL_xz00_3744; 
BgL_ez00_897 = BgL_ez00_3745; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_896, 
CNST_TABLE_REF(((long)118)), "symbol", BgL_ez00_897);} } 
}



/* <anonymous:2657> */
obj_t BGl_zc3anonymousza32657ze3z83zzexpand_installz00(obj_t BgL_envz00_3746, obj_t BgL_xz00_3747, obj_t BgL_ez00_3748)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 456 */
{ 
obj_t BgL_xz00_890;obj_t BgL_ez00_891;
BgL_xz00_890 = BgL_xz00_3747; 
BgL_ez00_891 = BgL_ez00_3748; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_890, 
CNST_TABLE_REF(((long)119)), "string", BgL_ez00_891);} } 
}



/* <anonymous:2546> */
obj_t BGl_zc3anonymousza32546ze3z83zzexpand_installz00(obj_t BgL_envz00_3749, obj_t BgL_xz00_3750, obj_t BgL_ez00_3751)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 444 */
{ 
obj_t BgL_xz00_825;obj_t BgL_ez00_826;
BgL_xz00_825 = BgL_xz00_3750; 
BgL_ez00_826 = BgL_ez00_3751; 
{ 
obj_t BgL_str1z00_830;obj_t BgL_str2z00_831;obj_t BgL_str1z00_833;obj_t BgL_str2z00_834;obj_t BgL_str3z00_835;
{ /* ./Expand/initial.scm 444 */
bool_t BgL_test2547z00_839;
BgL_test2547z00_839 = 
PAIRP(BgL_xz00_825); 
if(BgL_test2547z00_839)
{ /* ./Expand/initial.scm 444 */
obj_t BgL_cdrzd2456zd2_840;
BgL_cdrzd2456zd2_840 = 
CDR(BgL_xz00_825); 
{ /* ./Expand/initial.scm 444 */
bool_t BgL_test2548z00_841;
BgL_test2548z00_841 = 
PAIRP(BgL_cdrzd2456zd2_840); 
if(BgL_test2548z00_841)
{ /* ./Expand/initial.scm 444 */
bool_t BgL_test2549z00_842;
{ /* ./Expand/initial.scm 444 */
obj_t BgL_auxz00_5788;
BgL_auxz00_5788 = 
CDR(BgL_cdrzd2456zd2_840); 
BgL_test2549z00_842 = 
NULLP(BgL_auxz00_5788); } 
if(BgL_test2549z00_842)
{ /* ./Expand/initial.scm 444 */
obj_t BgL_arg2551z00_843;
BgL_arg2551z00_843 = 
CAR(BgL_cdrzd2456zd2_840); 
return 
PROCEDURE_ENTRY(BgL_ez00_826)(BgL_ez00_826, BgL_arg2551z00_843, BgL_ez00_826, BEOA);}  else 
{ /* ./Expand/initial.scm 444 */
obj_t BgL_cdrzd2473zd2_845;
BgL_cdrzd2473zd2_845 = 
CDR(BgL_cdrzd2456zd2_840); 
{ /* ./Expand/initial.scm 444 */
bool_t BgL_test2554z00_846;
BgL_test2554z00_846 = 
PAIRP(BgL_cdrzd2473zd2_845); 
if(BgL_test2554z00_846)
{ /* ./Expand/initial.scm 444 */
bool_t BgL_test2555z00_847;
{ /* ./Expand/initial.scm 444 */
obj_t BgL_auxz00_5798;
BgL_auxz00_5798 = 
CDR(BgL_cdrzd2473zd2_845); 
BgL_test2555z00_847 = 
NULLP(BgL_auxz00_5798); } 
if(BgL_test2555z00_847)
{ /* ./Expand/initial.scm 444 */
obj_t BgL_arg2557z00_848;obj_t BgL_arg2558z00_849;
BgL_arg2557z00_848 = 
CAR(BgL_cdrzd2456zd2_840); 
BgL_arg2558z00_849 = 
CAR(BgL_cdrzd2473zd2_845); 
BgL_str1z00_830 = BgL_arg2557z00_848; 
BgL_str2z00_831 = BgL_arg2558z00_849; 
{ /* ./Expand/initial.scm 449 */
obj_t BgL_arg2602z00_861;obj_t BgL_arg2603z00_862;
BgL_arg2602z00_861 = 
CNST_TABLE_REF(((long)121)); 
{ /* ./Expand/initial.scm 449 */
obj_t BgL_arg2606z00_863;obj_t BgL_arg2607z00_864;
BgL_arg2606z00_863 = 
PROCEDURE_ENTRY(BgL_ez00_826)(BgL_ez00_826, BgL_str1z00_830, BgL_ez00_826, BEOA); 
{ /* ./Expand/initial.scm 449 */
obj_t BgL_arg2611z00_865;
BgL_arg2611z00_865 = 
PROCEDURE_ENTRY(BgL_ez00_826)(BgL_ez00_826, BgL_str2z00_831, BgL_ez00_826, BEOA); 
BgL_arg2607z00_864 = 
MAKE_PAIR(BgL_arg2611z00_865, BNIL); } 
BgL_arg2603z00_862 = 
MAKE_PAIR(BgL_arg2606z00_863, BgL_arg2607z00_864); } 
return 
MAKE_PAIR(BgL_arg2602z00_861, BgL_arg2603z00_862);} }  else 
{ /* ./Expand/initial.scm 444 */
obj_t BgL_cdrzd2496zd2_851;
BgL_cdrzd2496zd2_851 = 
CDR(BgL_cdrzd2456zd2_840); 
{ /* ./Expand/initial.scm 444 */
obj_t BgL_cdrzd2503zd2_852;
BgL_cdrzd2503zd2_852 = 
CDR(BgL_cdrzd2496zd2_851); 
{ /* ./Expand/initial.scm 444 */
bool_t BgL_test2562z00_853;
BgL_test2562z00_853 = 
PAIRP(BgL_cdrzd2503zd2_852); 
if(BgL_test2562z00_853)
{ /* ./Expand/initial.scm 444 */
bool_t BgL_test2563z00_854;
{ /* ./Expand/initial.scm 444 */
obj_t BgL_auxz00_5816;
BgL_auxz00_5816 = 
CDR(BgL_cdrzd2503zd2_852); 
BgL_test2563z00_854 = 
NULLP(BgL_auxz00_5816); } 
if(BgL_test2563z00_854)
{ /* ./Expand/initial.scm 444 */
obj_t BgL_arg2565z00_855;obj_t BgL_arg2566z00_856;obj_t BgL_arg2567z00_857;
BgL_arg2565z00_855 = 
CAR(BgL_cdrzd2456zd2_840); 
BgL_arg2566z00_856 = 
CAR(BgL_cdrzd2496zd2_851); 
BgL_arg2567z00_857 = 
CAR(BgL_cdrzd2503zd2_852); 
BgL_str1z00_833 = BgL_arg2565z00_855; 
BgL_str2z00_834 = BgL_arg2566z00_856; 
BgL_str3z00_835 = BgL_arg2567z00_857; 
{ /* ./Expand/initial.scm 451 */
obj_t BgL_arg2616z00_867;obj_t BgL_arg2617z00_868;
BgL_arg2616z00_867 = 
CNST_TABLE_REF(((long)120)); 
{ /* ./Expand/initial.scm 451 */
obj_t BgL_arg2620z00_869;obj_t BgL_arg2621z00_870;
BgL_arg2620z00_869 = 
PROCEDURE_ENTRY(BgL_ez00_826)(BgL_ez00_826, BgL_str1z00_833, BgL_ez00_826, BEOA); 
{ /* ./Expand/initial.scm 451 */
obj_t BgL_arg2625z00_871;obj_t BgL_arg2626z00_872;
BgL_arg2625z00_871 = 
PROCEDURE_ENTRY(BgL_ez00_826)(BgL_ez00_826, BgL_str2z00_834, BgL_ez00_826, BEOA); 
{ /* ./Expand/initial.scm 451 */
obj_t BgL_arg2630z00_873;
BgL_arg2630z00_873 = 
PROCEDURE_ENTRY(BgL_ez00_826)(BgL_ez00_826, BgL_str3z00_835, BgL_ez00_826, BEOA); 
BgL_arg2626z00_872 = 
MAKE_PAIR(BgL_arg2630z00_873, BNIL); } 
BgL_arg2621z00_870 = 
MAKE_PAIR(BgL_arg2625z00_871, BgL_arg2626z00_872); } 
BgL_arg2617z00_868 = 
MAKE_PAIR(BgL_arg2620z00_869, BgL_arg2621z00_870); } 
return 
MAKE_PAIR(BgL_arg2616z00_867, BgL_arg2617z00_868);} }  else 
{ /* ./Expand/initial.scm 444 */
BgL_tagzd2449zd2_837:
{ /* ./Expand/initial.scm 453 */
bool_t BgL_test2634z00_876;
BgL_test2634z00_876 = 
NULLP(BgL_xz00_825); 
if(BgL_test2634z00_876)
{ /* ./Expand/initial.scm 453 */
return BNIL;}  else 
{ /* ./Expand/initial.scm 453 */
obj_t BgL_head1128z00_877;
BgL_head1128z00_877 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1126z00_878;obj_t BgL_tail1129z00_879;
BgL_l1126z00_878 = BgL_xz00_825; 
BgL_tail1129z00_879 = BgL_head1128z00_877; 
BgL_map1127z00_880:
{ /* ./Expand/initial.scm 453 */
bool_t BgL_test2636z00_881;
BgL_test2636z00_881 = 
NULLP(BgL_l1126z00_878); 
if(BgL_test2636z00_881)
{ /* ./Expand/initial.scm 453 */
return 
CDR(BgL_head1128z00_877);}  else 
{ /* ./Expand/initial.scm 453 */
obj_t BgL_newtail1130z00_882;
{ /* ./Expand/initial.scm 453 */
obj_t BgL_arg2644z00_884;
{ /* ./Expand/initial.scm 453 */
obj_t BgL_xz00_886;
BgL_xz00_886 = 
CAR(BgL_l1126z00_878); 
BgL_arg2644z00_884 = 
PROCEDURE_ENTRY(BgL_ez00_826)(BgL_ez00_826, BgL_xz00_886, BgL_ez00_826, BEOA); } 
BgL_newtail1130z00_882 = 
MAKE_PAIR(BgL_arg2644z00_884, BNIL); } 
SET_CDR(BgL_tail1129z00_879, BgL_newtail1130z00_882); 
{ /* ./Expand/initial.scm 453 */
obj_t BgL_arg2640z00_883;
BgL_arg2640z00_883 = 
CDR(BgL_l1126z00_878); 
{ 
obj_t BgL_tail1129z00_5847;obj_t BgL_l1126z00_5846;
BgL_l1126z00_5846 = BgL_arg2640z00_883; 
BgL_tail1129z00_5847 = BgL_newtail1130z00_882; 
BgL_tail1129z00_879 = BgL_tail1129z00_5847; 
BgL_l1126z00_878 = BgL_l1126z00_5846; 
goto BgL_map1127z00_880;} } } } } } } } }  else 
{ /* ./Expand/initial.scm 444 */
goto BgL_tagzd2449zd2_837;} } } } }  else 
{ /* ./Expand/initial.scm 444 */
goto BgL_tagzd2449zd2_837;} } } }  else 
{ /* ./Expand/initial.scm 444 */
goto BgL_tagzd2449zd2_837;} } }  else 
{ /* ./Expand/initial.scm 444 */
goto BgL_tagzd2449zd2_837;} } } } } 
}



/* <anonymous:2540> */
obj_t BGl_zc3anonymousza32540ze3z83zzexpand_installz00(obj_t BgL_envz00_3752, obj_t BgL_xz00_3753, obj_t BgL_ez00_3754)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 438 */
{ 
obj_t BgL_xz00_819;obj_t BgL_ez00_820;
BgL_xz00_819 = BgL_xz00_3753; 
BgL_ez00_820 = BgL_ez00_3754; 
return 
BGl_boundzd2checkzd2zzexpand_installz00(BgL_xz00_819, 
CNST_TABLE_REF(((long)122)), 
CNST_TABLE_REF(((long)123)), BgL_ez00_820);} } 
}



/* <anonymous:2492> */
obj_t BGl_zc3anonymousza32492ze3z83zzexpand_installz00(obj_t BgL_envz00_3755, obj_t BgL_xz00_3756, obj_t BgL_ez00_3757)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 426 */
{ 
obj_t BgL_xz00_791;obj_t BgL_ez00_792;
BgL_xz00_791 = BgL_xz00_3756; 
BgL_ez00_792 = BgL_ez00_3757; 
{ 
obj_t BgL_vecz00_794;obj_t BgL_kz00_795;
{ /* ./Expand/initial.scm 426 */
bool_t BgL_test2493z00_799;
BgL_test2493z00_799 = 
PAIRP(BgL_xz00_791); 
if(BgL_test2493z00_799)
{ /* ./Expand/initial.scm 426 */
obj_t BgL_cdrzd2436zd2_800;
BgL_cdrzd2436zd2_800 = 
CDR(BgL_xz00_791); 
{ /* ./Expand/initial.scm 426 */
bool_t BgL_test2494z00_801;
BgL_test2494z00_801 = 
PAIRP(BgL_cdrzd2436zd2_800); 
if(BgL_test2494z00_801)
{ /* ./Expand/initial.scm 426 */
obj_t BgL_cdrzd2440zd2_802;
BgL_cdrzd2440zd2_802 = 
CDR(BgL_cdrzd2436zd2_800); 
{ /* ./Expand/initial.scm 426 */
bool_t BgL_test2495z00_803;
BgL_test2495z00_803 = 
PAIRP(BgL_cdrzd2440zd2_802); 
if(BgL_test2495z00_803)
{ /* ./Expand/initial.scm 426 */
bool_t BgL_test2496z00_804;
{ /* ./Expand/initial.scm 426 */
obj_t BgL_auxz00_5859;
BgL_auxz00_5859 = 
CDR(BgL_cdrzd2440zd2_802); 
BgL_test2496z00_804 = 
NULLP(BgL_auxz00_5859); } 
if(BgL_test2496z00_804)
{ /* ./Expand/initial.scm 426 */
obj_t BgL_arg2498z00_805;obj_t BgL_arg2499z00_806;
BgL_arg2498z00_805 = 
CAR(BgL_cdrzd2436zd2_800); 
BgL_arg2499z00_806 = 
CAR(BgL_cdrzd2440zd2_802); 
BgL_vecz00_794 = BgL_arg2498z00_805; 
BgL_kz00_795 = BgL_arg2499z00_806; 
{ /* ./Expand/initial.scm 429 */
obj_t BgL_evecz00_808;obj_t BgL_ekz00_809;
BgL_evecz00_808 = 
PROCEDURE_ENTRY(BgL_ez00_792)(BgL_ez00_792, BgL_vecz00_794, BgL_ez00_792, BEOA); 
BgL_ekz00_809 = 
PROCEDURE_ENTRY(BgL_ez00_792)(BgL_ez00_792, BgL_kz00_795, BgL_ez00_792, BEOA); 
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Expand/initial.scm 432 */
obj_t BgL_arg2517z00_810;obj_t BgL_arg2518z00_811;
BgL_arg2517z00_810 = 
CNST_TABLE_REF(((long)124)); 
{ /* ./Expand/initial.scm 432 */
obj_t BgL_arg2521z00_812;
BgL_arg2521z00_812 = 
MAKE_PAIR(BgL_ekz00_809, BNIL); 
BgL_arg2518z00_811 = 
MAKE_PAIR(BgL_evecz00_808, BgL_arg2521z00_812); } 
return 
MAKE_PAIR(BgL_arg2517z00_810, BgL_arg2518z00_811);}  else 
{ /* ./Expand/initial.scm 433 */
obj_t BgL_arg2525z00_813;obj_t BgL_arg2526z00_814;
BgL_arg2525z00_813 = 
CNST_TABLE_REF(((long)57)); 
{ /* ./Expand/initial.scm 433 */
obj_t BgL_arg2530z00_815;
BgL_arg2530z00_815 = 
MAKE_PAIR(BgL_ekz00_809, BNIL); 
BgL_arg2526z00_814 = 
MAKE_PAIR(BgL_evecz00_808, BgL_arg2530z00_815); } 
return 
MAKE_PAIR(BgL_arg2525z00_813, BgL_arg2526z00_814);} } }  else 
{ /* ./Expand/initial.scm 426 */
BgL_tagzd2429zd2_797:
FAILURE(BFALSE,BGl_string6423z00zzexpand_installz00,BgL_xz00_791);} }  else 
{ /* ./Expand/initial.scm 426 */
goto BgL_tagzd2429zd2_797;} } }  else 
{ /* ./Expand/initial.scm 426 */
goto BgL_tagzd2429zd2_797;} } }  else 
{ /* ./Expand/initial.scm 426 */
goto BgL_tagzd2429zd2_797;} } } } } 
}



/* <anonymous:2486> */
obj_t BGl_zc3anonymousza32486ze3z83zzexpand_installz00(obj_t BgL_envz00_3758, obj_t BgL_xz00_3759, obj_t BgL_ez00_3760)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 421 */
{ 
obj_t BgL_xz00_785;obj_t BgL_ez00_786;
BgL_xz00_785 = BgL_xz00_3759; 
BgL_ez00_786 = BgL_ez00_3760; 
return 
BGl_boundzd2checkzd2zzexpand_installz00(BgL_xz00_785, 
CNST_TABLE_REF(((long)122)), 
CNST_TABLE_REF(((long)123)), BgL_ez00_786);} } 
}



/* <anonymous:2426> */
obj_t BGl_zc3anonymousza32426ze3z83zzexpand_installz00(obj_t BgL_envz00_3761, obj_t BgL_xz00_3762, obj_t BgL_ez00_3763)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 408 */
{ 
obj_t BgL_xz00_750;obj_t BgL_ez00_751;
BgL_xz00_750 = BgL_xz00_3762; 
BgL_ez00_751 = BgL_ez00_3763; 
{ 
obj_t BgL_vecz00_753;obj_t BgL_kz00_754;obj_t BgL_objz00_755;
{ /* ./Expand/initial.scm 408 */
bool_t BgL_test2427z00_759;
BgL_test2427z00_759 = 
PAIRP(BgL_xz00_750); 
if(BgL_test2427z00_759)
{ /* ./Expand/initial.scm 408 */
obj_t BgL_cdrzd2412zd2_760;
BgL_cdrzd2412zd2_760 = 
CDR(BgL_xz00_750); 
{ /* ./Expand/initial.scm 408 */
bool_t BgL_test2428z00_761;
BgL_test2428z00_761 = 
PAIRP(BgL_cdrzd2412zd2_760); 
if(BgL_test2428z00_761)
{ /* ./Expand/initial.scm 408 */
obj_t BgL_cdrzd2417zd2_762;
BgL_cdrzd2417zd2_762 = 
CDR(BgL_cdrzd2412zd2_760); 
{ /* ./Expand/initial.scm 408 */
bool_t BgL_test2429z00_763;
BgL_test2429z00_763 = 
PAIRP(BgL_cdrzd2417zd2_762); 
if(BgL_test2429z00_763)
{ /* ./Expand/initial.scm 408 */
obj_t BgL_cdrzd2422zd2_764;
BgL_cdrzd2422zd2_764 = 
CDR(BgL_cdrzd2417zd2_762); 
{ /* ./Expand/initial.scm 408 */
bool_t BgL_test2430z00_765;
BgL_test2430z00_765 = 
PAIRP(BgL_cdrzd2422zd2_764); 
if(BgL_test2430z00_765)
{ /* ./Expand/initial.scm 408 */
bool_t BgL_test2431z00_766;
{ /* ./Expand/initial.scm 408 */
obj_t BgL_auxz00_5894;
BgL_auxz00_5894 = 
CDR(BgL_cdrzd2422zd2_764); 
BgL_test2431z00_766 = 
NULLP(BgL_auxz00_5894); } 
if(BgL_test2431z00_766)
{ /* ./Expand/initial.scm 408 */
obj_t BgL_arg2433z00_767;obj_t BgL_arg2434z00_768;obj_t BgL_arg2435z00_769;
BgL_arg2433z00_767 = 
CAR(BgL_cdrzd2412zd2_760); 
BgL_arg2434z00_768 = 
CAR(BgL_cdrzd2417zd2_762); 
BgL_arg2435z00_769 = 
CAR(BgL_cdrzd2422zd2_764); 
BgL_vecz00_753 = BgL_arg2433z00_767; 
BgL_kz00_754 = BgL_arg2434z00_768; 
BgL_objz00_755 = BgL_arg2435z00_769; 
{ /* ./Expand/initial.scm 411 */
obj_t BgL_evecz00_771;obj_t BgL_ekz00_772;obj_t BgL_eobjz00_773;
BgL_evecz00_771 = 
PROCEDURE_ENTRY(BgL_ez00_751)(BgL_ez00_751, BgL_vecz00_753, BgL_ez00_751, BEOA); 
BgL_ekz00_772 = 
PROCEDURE_ENTRY(BgL_ez00_751)(BgL_ez00_751, BgL_kz00_754, BgL_ez00_751, BEOA); 
BgL_eobjz00_773 = 
PROCEDURE_ENTRY(BgL_ez00_751)(BgL_ez00_751, BgL_objz00_755, BgL_ez00_751, BEOA); 
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Expand/initial.scm 415 */
obj_t BgL_arg2457z00_774;obj_t BgL_arg2458z00_775;
BgL_arg2457z00_774 = 
CNST_TABLE_REF(((long)125)); 
{ /* ./Expand/initial.scm 415 */
obj_t BgL_arg2461z00_776;
{ /* ./Expand/initial.scm 415 */
obj_t BgL_arg2464z00_777;
BgL_arg2464z00_777 = 
MAKE_PAIR(BgL_eobjz00_773, BNIL); 
BgL_arg2461z00_776 = 
MAKE_PAIR(BgL_ekz00_772, BgL_arg2464z00_777); } 
BgL_arg2458z00_775 = 
MAKE_PAIR(BgL_evecz00_771, BgL_arg2461z00_776); } 
return 
MAKE_PAIR(BgL_arg2457z00_774, BgL_arg2458z00_775);}  else 
{ /* ./Expand/initial.scm 416 */
obj_t BgL_arg2468z00_778;obj_t BgL_arg2469z00_779;
BgL_arg2468z00_778 = 
CNST_TABLE_REF(((long)56)); 
{ /* ./Expand/initial.scm 416 */
obj_t BgL_arg2472z00_780;
{ /* ./Expand/initial.scm 416 */
obj_t BgL_arg2475z00_781;
BgL_arg2475z00_781 = 
MAKE_PAIR(BgL_eobjz00_773, BNIL); 
BgL_arg2472z00_780 = 
MAKE_PAIR(BgL_ekz00_772, BgL_arg2475z00_781); } 
BgL_arg2469z00_779 = 
MAKE_PAIR(BgL_evecz00_771, BgL_arg2472z00_780); } 
return 
MAKE_PAIR(BgL_arg2468z00_778, BgL_arg2469z00_779);} } }  else 
{ /* ./Expand/initial.scm 408 */
BgL_tagzd2403zd2_757:
FAILURE(BFALSE,BGl_string6424z00zzexpand_installz00,BgL_xz00_750);} }  else 
{ /* ./Expand/initial.scm 408 */
goto BgL_tagzd2403zd2_757;} } }  else 
{ /* ./Expand/initial.scm 408 */
goto BgL_tagzd2403zd2_757;} } }  else 
{ /* ./Expand/initial.scm 408 */
goto BgL_tagzd2403zd2_757;} } }  else 
{ /* ./Expand/initial.scm 408 */
goto BgL_tagzd2403zd2_757;} } } } } 
}



/* <anonymous:2341> */
obj_t BGl_zc3anonymousza32341ze3z83zzexpand_installz00(obj_t BgL_envz00_3764, obj_t BgL_xz00_3765, obj_t BgL_ez00_3766)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 397 */
{ 
obj_t BgL_xz00_700;obj_t BgL_ez00_701;
BgL_xz00_700 = BgL_xz00_3765; 
BgL_ez00_701 = BgL_ez00_3766; 
{ 
obj_t BgL_nz00_703;obj_t BgL_nz00_705;obj_t BgL_initz00_706;
{ /* ./Expand/initial.scm 397 */
bool_t BgL_test2342z00_710;
BgL_test2342z00_710 = 
PAIRP(BgL_xz00_700); 
if(BgL_test2342z00_710)
{ /* ./Expand/initial.scm 397 */
obj_t BgL_cdrzd2371zd2_711;
BgL_cdrzd2371zd2_711 = 
CDR(BgL_xz00_700); 
{ /* ./Expand/initial.scm 397 */
bool_t BgL_test2343z00_712;
BgL_test2343z00_712 = 
PAIRP(BgL_cdrzd2371zd2_711); 
if(BgL_test2343z00_712)
{ /* ./Expand/initial.scm 397 */
bool_t BgL_test2344z00_713;
{ /* ./Expand/initial.scm 397 */
obj_t BgL_auxz00_5925;
BgL_auxz00_5925 = 
CDR(BgL_cdrzd2371zd2_711); 
BgL_test2344z00_713 = 
NULLP(BgL_auxz00_5925); } 
if(BgL_test2344z00_713)
{ /* ./Expand/initial.scm 397 */
obj_t BgL_arg2346z00_714;
BgL_arg2346z00_714 = 
CAR(BgL_cdrzd2371zd2_711); 
BgL_nz00_703 = BgL_arg2346z00_714; 
{ /* ./Expand/initial.scm 400 */
obj_t BgL_arg2377z00_723;obj_t BgL_arg2378z00_724;
BgL_arg2377z00_723 = 
CNST_TABLE_REF(((long)126)); 
{ /* ./Expand/initial.scm 400 */
obj_t BgL_arg2381z00_725;obj_t BgL_arg2382z00_726;
BgL_arg2381z00_725 = 
PROCEDURE_ENTRY(BgL_ez00_701)(BgL_ez00_701, BgL_nz00_703, BgL_ez00_701, BEOA); 
{ /* ./Expand/initial.scm 400 */
obj_t BgL_arg2386z00_727;
BgL_arg2386z00_727 = 
PROCEDURE_ENTRY(BgL_ez00_701)(BgL_ez00_701, 
CNST_TABLE_REF(((long)127)), BgL_ez00_701, BEOA); 
BgL_arg2382z00_726 = 
MAKE_PAIR(BgL_arg2386z00_727, BNIL); } 
BgL_arg2378z00_724 = 
MAKE_PAIR(BgL_arg2381z00_725, BgL_arg2382z00_726); } 
return 
MAKE_PAIR(BgL_arg2377z00_723, BgL_arg2378z00_724);} }  else 
{ /* ./Expand/initial.scm 397 */
obj_t BgL_cdrzd2387zd2_716;
BgL_cdrzd2387zd2_716 = 
CDR(BgL_cdrzd2371zd2_711); 
{ /* ./Expand/initial.scm 397 */
bool_t BgL_test2349z00_717;
BgL_test2349z00_717 = 
PAIRP(BgL_cdrzd2387zd2_716); 
if(BgL_test2349z00_717)
{ /* ./Expand/initial.scm 397 */
bool_t BgL_test2350z00_718;
{ /* ./Expand/initial.scm 397 */
obj_t BgL_auxz00_5942;
BgL_auxz00_5942 = 
CDR(BgL_cdrzd2387zd2_716); 
BgL_test2350z00_718 = 
NULLP(BgL_auxz00_5942); } 
if(BgL_test2350z00_718)
{ /* ./Expand/initial.scm 397 */
obj_t BgL_arg2353z00_719;obj_t BgL_arg2354z00_720;
BgL_arg2353z00_719 = 
CAR(BgL_cdrzd2371zd2_711); 
BgL_arg2354z00_720 = 
CAR(BgL_cdrzd2387zd2_716); 
BgL_nz00_705 = BgL_arg2353z00_719; 
BgL_initz00_706 = BgL_arg2354z00_720; 
{ /* ./Expand/initial.scm 402 */
obj_t BgL_arg2391z00_729;obj_t BgL_arg2392z00_730;
BgL_arg2391z00_729 = 
CNST_TABLE_REF(((long)126)); 
{ /* ./Expand/initial.scm 402 */
obj_t BgL_arg2395z00_731;obj_t BgL_arg2396z00_732;
BgL_arg2395z00_731 = 
PROCEDURE_ENTRY(BgL_ez00_701)(BgL_ez00_701, BgL_nz00_705, BgL_ez00_701, BEOA); 
{ /* ./Expand/initial.scm 402 */
obj_t BgL_arg2400z00_733;
BgL_arg2400z00_733 = 
PROCEDURE_ENTRY(BgL_ez00_701)(BgL_ez00_701, BgL_initz00_706, BgL_ez00_701, BEOA); 
BgL_arg2396z00_732 = 
MAKE_PAIR(BgL_arg2400z00_733, BNIL); } 
BgL_arg2392z00_730 = 
MAKE_PAIR(BgL_arg2395z00_731, BgL_arg2396z00_732); } 
return 
MAKE_PAIR(BgL_arg2391z00_729, BgL_arg2392z00_730);} }  else 
{ /* ./Expand/initial.scm 397 */
BgL_tagzd2365zd2_708:
{ /* ./Expand/initial.scm 404 */
bool_t BgL_test2404z00_736;
BgL_test2404z00_736 = 
NULLP(BgL_xz00_700); 
if(BgL_test2404z00_736)
{ /* ./Expand/initial.scm 404 */
return BNIL;}  else 
{ /* ./Expand/initial.scm 404 */
obj_t BgL_head1123z00_737;
BgL_head1123z00_737 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1121z00_738;obj_t BgL_tail1124z00_739;
BgL_l1121z00_738 = BgL_xz00_700; 
BgL_tail1124z00_739 = BgL_head1123z00_737; 
BgL_map1122z00_740:
{ /* ./Expand/initial.scm 404 */
bool_t BgL_test2406z00_741;
BgL_test2406z00_741 = 
NULLP(BgL_l1121z00_738); 
if(BgL_test2406z00_741)
{ /* ./Expand/initial.scm 404 */
return 
CDR(BgL_head1123z00_737);}  else 
{ /* ./Expand/initial.scm 404 */
obj_t BgL_newtail1125z00_742;
{ /* ./Expand/initial.scm 404 */
obj_t BgL_arg2414z00_744;
{ /* ./Expand/initial.scm 404 */
obj_t BgL_xz00_746;
BgL_xz00_746 = 
CAR(BgL_l1121z00_738); 
BgL_arg2414z00_744 = 
PROCEDURE_ENTRY(BgL_ez00_701)(BgL_ez00_701, BgL_xz00_746, BgL_ez00_701, BEOA); } 
BgL_newtail1125z00_742 = 
MAKE_PAIR(BgL_arg2414z00_744, BNIL); } 
SET_CDR(BgL_tail1124z00_739, BgL_newtail1125z00_742); 
{ /* ./Expand/initial.scm 404 */
obj_t BgL_arg2410z00_743;
BgL_arg2410z00_743 = 
CDR(BgL_l1121z00_738); 
{ 
obj_t BgL_tail1124z00_5969;obj_t BgL_l1121z00_5968;
BgL_l1121z00_5968 = BgL_arg2410z00_743; 
BgL_tail1124z00_5969 = BgL_newtail1125z00_742; 
BgL_tail1124z00_739 = BgL_tail1124z00_5969; 
BgL_l1121z00_738 = BgL_l1121z00_5968; 
goto BgL_map1122z00_740;} } } } } } } } }  else 
{ /* ./Expand/initial.scm 397 */
goto BgL_tagzd2365zd2_708;} } } }  else 
{ /* ./Expand/initial.scm 397 */
goto BgL_tagzd2365zd2_708;} } }  else 
{ /* ./Expand/initial.scm 397 */
goto BgL_tagzd2365zd2_708;} } } } } 
}



/* <anonymous:2262> */
obj_t BGl_zc3anonymousza32262ze3z83zzexpand_installz00(obj_t BgL_envz00_3767, obj_t BgL_xz00_3768, obj_t BgL_ez00_3769)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 374 */
{ 
obj_t BgL_xz00_659;obj_t BgL_ez00_660;
BgL_xz00_659 = BgL_xz00_3768; 
BgL_ez00_660 = BgL_ez00_3769; 
{ /* ./Expand/initial.scm 375 */
obj_t BgL_argsz00_662;obj_t BgL_vz00_663;
BgL_argsz00_662 = 
CDR(BgL_xz00_659); 
{ /* ./Expand/initial.scm 377 */
obj_t BgL_arg2333z00_696;
BgL_arg2333z00_696 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, 
CNST_TABLE_REF(((long)128)), BEOA); 
BgL_vz00_663 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg2333z00_696); } 
{ /* ./Expand/initial.scm 378 */
obj_t BgL_arg2264z00_664;
{ /* ./Expand/initial.scm 378 */
obj_t BgL_arg2267z00_665;obj_t BgL_arg2268z00_666;
BgL_arg2267z00_665 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 378 */
obj_t BgL_arg2271z00_667;obj_t BgL_arg2272z00_668;
{ /* ./Expand/initial.scm 378 */
obj_t BgL_arg2275z00_669;
{ /* ./Expand/initial.scm 378 */
obj_t BgL_arg2279z00_671;
{ /* ./Expand/initial.scm 378 */
obj_t BgL_arg2282z00_672;
{ /* ./Expand/initial.scm 378 */
obj_t BgL_arg2286z00_674;obj_t BgL_arg2287z00_675;
BgL_arg2286z00_674 = 
CNST_TABLE_REF(((long)129)); 
{ /* ./Expand/initial.scm 379 */
long BgL_arg2290z00_676;
BgL_arg2290z00_676 = 
bgl_list_length(BgL_argsz00_662); 
{ /* ./Expand/initial.scm 378 */
obj_t BgL_auxz00_5978;
BgL_auxz00_5978 = 
BINT(BgL_arg2290z00_676); 
BgL_arg2287z00_675 = 
MAKE_PAIR(BgL_auxz00_5978, BNIL); } } 
BgL_arg2282z00_672 = 
MAKE_PAIR(BgL_arg2286z00_674, BgL_arg2287z00_675); } 
BgL_arg2279z00_671 = 
MAKE_PAIR(BgL_arg2282z00_672, BNIL); } 
BgL_arg2275z00_669 = 
MAKE_PAIR(BgL_vz00_663, BgL_arg2279z00_671); } 
BgL_arg2271z00_667 = 
MAKE_PAIR(BgL_arg2275z00_669, BNIL); } 
{ /* ./Expand/initial.scm 380 */
obj_t BgL_arg2295z00_678;obj_t BgL_arg2296z00_679;
{ 
long BgL_iz00_680;obj_t BgL_argsz00_681;obj_t BgL_resz00_682;
BgL_iz00_680 = ((long)0); 
BgL_argsz00_681 = BgL_argsz00_662; 
BgL_resz00_682 = BNIL; 
BgL_loopz00_683:
{ /* ./Expand/initial.scm 383 */
bool_t BgL_test2299z00_684;
BgL_test2299z00_684 = 
NULLP(BgL_argsz00_681); 
if(BgL_test2299z00_684)
{ /* ./Expand/initial.scm 383 */
BgL_arg2295z00_678 = BgL_resz00_682; }  else 
{ /* ./Expand/initial.scm 385 */
long BgL_arg2301z00_685;obj_t BgL_arg2303z00_686;obj_t BgL_arg2304z00_687;
BgL_arg2301z00_685 = 
(BgL_iz00_680+((long)1)); 
BgL_arg2303z00_686 = 
CDR(BgL_argsz00_681); 
{ /* ./Expand/initial.scm 389 */
obj_t BgL_arg2309z00_688;
{ /* ./Expand/initial.scm 389 */
obj_t BgL_arg2312z00_689;
{ /* ./Expand/initial.scm 389 */
obj_t BgL_arg2315z00_690;obj_t BgL_arg2316z00_691;
BgL_arg2315z00_690 = 
CNST_TABLE_REF(((long)125)); 
{ /* ./Expand/initial.scm 389 */
obj_t BgL_arg2319z00_692;
{ /* ./Expand/initial.scm 389 */
obj_t BgL_arg2322z00_693;
{ /* ./Expand/initial.scm 389 */
obj_t BgL_arg2325z00_694;
BgL_arg2325z00_694 = 
CAR(BgL_argsz00_681); 
BgL_arg2322z00_693 = 
MAKE_PAIR(BgL_arg2325z00_694, BNIL); } 
{ /* ./Expand/initial.scm 389 */
obj_t BgL_auxz00_5992;
BgL_auxz00_5992 = 
BINT(BgL_iz00_680); 
BgL_arg2319z00_692 = 
MAKE_PAIR(BgL_auxz00_5992, BgL_arg2322z00_693); } } 
BgL_arg2316z00_691 = 
MAKE_PAIR(BgL_vz00_663, BgL_arg2319z00_692); } 
BgL_arg2312z00_689 = 
MAKE_PAIR(BgL_arg2315z00_690, BgL_arg2316z00_691); } 
BgL_arg2309z00_688 = 
BGl_epairifyz00zztools_miscz00(BgL_arg2312z00_689, BgL_xz00_659); } 
BgL_arg2304z00_687 = 
MAKE_PAIR(BgL_arg2309z00_688, BgL_resz00_682); } 
{ 
obj_t BgL_resz00_6001;obj_t BgL_argsz00_6000;long BgL_iz00_5999;
BgL_iz00_5999 = BgL_arg2301z00_685; 
BgL_argsz00_6000 = BgL_arg2303z00_686; 
BgL_resz00_6001 = BgL_arg2304z00_687; 
BgL_resz00_682 = BgL_resz00_6001; 
BgL_argsz00_681 = BgL_argsz00_6000; 
BgL_iz00_680 = BgL_iz00_5999; 
goto BgL_loopz00_683;} } } } 
BgL_arg2296z00_679 = 
MAKE_PAIR(BgL_vz00_663, BNIL); 
BgL_arg2272z00_668 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg2295z00_678, BgL_arg2296z00_679); } 
BgL_arg2268z00_666 = 
MAKE_PAIR(BgL_arg2271z00_667, BgL_arg2272z00_668); } 
BgL_arg2264z00_664 = 
MAKE_PAIR(BgL_arg2267z00_665, BgL_arg2268z00_666); } 
return 
PROCEDURE_ENTRY(BgL_ez00_660)(BgL_ez00_660, BgL_arg2264z00_664, BgL_ez00_660, BEOA);} } } } 
}



/* <anonymous:2218> */
obj_t BGl_zc3anonymousza32218ze3z83zzexpand_installz00(obj_t BgL_envz00_3770, obj_t BgL_xz00_3771, obj_t BgL_ez00_3772)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 364 */
{ 
obj_t BgL_xz00_633;obj_t BgL_ez00_634;
BgL_xz00_633 = BgL_xz00_3771; 
BgL_ez00_634 = BgL_ez00_3772; 
{ 
obj_t BgL_grammarz00_636;obj_t BgL_portz00_637;
{ /* ./Expand/initial.scm 364 */
bool_t BgL_test2219z00_641;
BgL_test2219z00_641 = 
PAIRP(BgL_xz00_633); 
if(BgL_test2219z00_641)
{ /* ./Expand/initial.scm 364 */
obj_t BgL_cdrzd2353zd2_642;
BgL_cdrzd2353zd2_642 = 
CDR(BgL_xz00_633); 
{ /* ./Expand/initial.scm 364 */
bool_t BgL_test2220z00_643;
BgL_test2220z00_643 = 
PAIRP(BgL_cdrzd2353zd2_642); 
if(BgL_test2220z00_643)
{ /* ./Expand/initial.scm 364 */
obj_t BgL_cdrzd2357zd2_644;
BgL_cdrzd2357zd2_644 = 
CDR(BgL_cdrzd2353zd2_642); 
{ /* ./Expand/initial.scm 364 */
bool_t BgL_test2221z00_645;
BgL_test2221z00_645 = 
PAIRP(BgL_cdrzd2357zd2_644); 
if(BgL_test2221z00_645)
{ /* ./Expand/initial.scm 364 */
bool_t BgL_test2222z00_646;
{ /* ./Expand/initial.scm 364 */
obj_t BgL_auxz00_6016;
BgL_auxz00_6016 = 
CDR(BgL_cdrzd2357zd2_644); 
BgL_test2222z00_646 = 
NULLP(BgL_auxz00_6016); } 
if(BgL_test2222z00_646)
{ /* ./Expand/initial.scm 364 */
obj_t BgL_arg2224z00_647;obj_t BgL_arg2225z00_648;
BgL_arg2224z00_647 = 
CAR(BgL_cdrzd2353zd2_642); 
BgL_arg2225z00_648 = 
CAR(BgL_cdrzd2357zd2_644); 
BgL_grammarz00_636 = BgL_arg2224z00_647; 
BgL_portz00_637 = BgL_arg2225z00_648; 
{ /* ./Expand/initial.scm 367 */
obj_t BgL_arg2243z00_650;obj_t BgL_arg2244z00_651;
BgL_arg2243z00_650 = 
CNST_TABLE_REF(((long)53)); 
{ /* ./Expand/initial.scm 367 */
obj_t BgL_arg2247z00_652;obj_t BgL_arg2248z00_653;
BgL_arg2247z00_652 = 
PROCEDURE_ENTRY(BgL_ez00_634)(BgL_ez00_634, BgL_grammarz00_636, BgL_ez00_634, BEOA); 
{ /* ./Expand/initial.scm 367 */
obj_t BgL_arg2252z00_654;
BgL_arg2252z00_654 = 
PROCEDURE_ENTRY(BgL_ez00_634)(BgL_ez00_634, BgL_portz00_637, BgL_ez00_634, BEOA); 
BgL_arg2248z00_653 = 
MAKE_PAIR(BgL_arg2252z00_654, BNIL); } 
BgL_arg2244z00_651 = 
MAKE_PAIR(BgL_arg2247z00_652, BgL_arg2248z00_653); } 
return 
MAKE_PAIR(BgL_arg2243z00_650, BgL_arg2244z00_651);} }  else 
{ /* ./Expand/initial.scm 364 */
BgL_tagzd2346zd2_639:
FAILURE(BFALSE,BGl_string6425z00zzexpand_installz00,BgL_xz00_633);} }  else 
{ /* ./Expand/initial.scm 364 */
goto BgL_tagzd2346zd2_639;} } }  else 
{ /* ./Expand/initial.scm 364 */
goto BgL_tagzd2346zd2_639;} } }  else 
{ /* ./Expand/initial.scm 364 */
goto BgL_tagzd2346zd2_639;} } } } } 
}



/* <anonymous:2128> */
obj_t BGl_zc3anonymousza32128ze3z83zzexpand_installz00(obj_t BgL_envz00_3773, obj_t BgL_xz00_3774, obj_t BgL_ez00_3775)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 350 */
{ 
obj_t BgL_xz00_584;obj_t BgL_ez00_585;
BgL_xz00_584 = BgL_xz00_3774; 
BgL_ez00_585 = BgL_ez00_3775; 
{ 
obj_t BgL_portz00_587;obj_t BgL_portz00_589;obj_t BgL_valuez00_590;
{ /* ./Expand/initial.scm 350 */
bool_t BgL_test2129z00_595;
BgL_test2129z00_595 = 
PAIRP(BgL_xz00_584); 
if(BgL_test2129z00_595)
{ /* ./Expand/initial.scm 350 */
obj_t BgL_cdrzd2312zd2_596;
BgL_cdrzd2312zd2_596 = 
CDR(BgL_xz00_584); 
{ /* ./Expand/initial.scm 350 */
bool_t BgL_test2130z00_597;
BgL_test2130z00_597 = 
PAIRP(BgL_cdrzd2312zd2_596); 
if(BgL_test2130z00_597)
{ /* ./Expand/initial.scm 350 */
bool_t BgL_test2131z00_598;
{ /* ./Expand/initial.scm 350 */
obj_t BgL_auxz00_6036;
BgL_auxz00_6036 = 
CDR(BgL_cdrzd2312zd2_596); 
BgL_test2131z00_598 = 
NULLP(BgL_auxz00_6036); } 
if(BgL_test2131z00_598)
{ /* ./Expand/initial.scm 350 */
obj_t BgL_arg2133z00_599;
BgL_arg2133z00_599 = 
CAR(BgL_cdrzd2312zd2_596); 
BgL_portz00_587 = BgL_arg2133z00_599; 
{ /* ./Expand/initial.scm 353 */
obj_t BgL_arg2170z00_610;obj_t BgL_arg2171z00_611;
BgL_arg2170z00_610 = 
CNST_TABLE_REF(((long)52)); 
{ /* ./Expand/initial.scm 353 */
obj_t BgL_arg2174z00_612;
BgL_arg2174z00_612 = 
PROCEDURE_ENTRY(BgL_ez00_585)(BgL_ez00_585, BgL_portz00_587, BgL_ez00_585, BEOA); 
BgL_arg2171z00_611 = 
MAKE_PAIR(BgL_arg2174z00_612, BNIL); } 
return 
MAKE_PAIR(BgL_arg2170z00_610, BgL_arg2171z00_611);} }  else 
{ /* ./Expand/initial.scm 350 */
obj_t BgL_cdrzd2328zd2_601;
BgL_cdrzd2328zd2_601 = 
CDR(BgL_cdrzd2312zd2_596); 
{ /* ./Expand/initial.scm 350 */
bool_t BgL_test2136z00_602;
BgL_test2136z00_602 = 
PAIRP(BgL_cdrzd2328zd2_601); 
if(BgL_test2136z00_602)
{ /* ./Expand/initial.scm 350 */
bool_t BgL_test2137z00_603;
{ /* ./Expand/initial.scm 350 */
obj_t BgL_auxz00_6049;
BgL_auxz00_6049 = 
CDR(BgL_cdrzd2328zd2_601); 
BgL_test2137z00_603 = 
NULLP(BgL_auxz00_6049); } 
if(BgL_test2137z00_603)
{ /* ./Expand/initial.scm 350 */
obj_t BgL_arg2139z00_604;obj_t BgL_arg2141z00_605;
BgL_arg2139z00_604 = 
CAR(BgL_cdrzd2312zd2_596); 
BgL_arg2141z00_605 = 
CAR(BgL_cdrzd2328zd2_601); 
BgL_portz00_589 = BgL_arg2139z00_604; 
BgL_valuez00_590 = BgL_arg2141z00_605; 
{ /* ./Expand/initial.scm 355 */
obj_t BgL_arg2179z00_614;obj_t BgL_arg2180z00_615;
BgL_arg2179z00_614 = 
CNST_TABLE_REF(((long)52)); 
{ /* ./Expand/initial.scm 355 */
obj_t BgL_arg2183z00_616;obj_t BgL_arg2184z00_617;
BgL_arg2183z00_616 = 
PROCEDURE_ENTRY(BgL_ez00_585)(BgL_ez00_585, BgL_portz00_589, BgL_ez00_585, BEOA); 
{ /* ./Expand/initial.scm 355 */
obj_t BgL_arg2188z00_618;
BgL_arg2188z00_618 = 
PROCEDURE_ENTRY(BgL_ez00_585)(BgL_ez00_585, BgL_valuez00_590, BgL_ez00_585, BEOA); 
BgL_arg2184z00_617 = 
MAKE_PAIR(BgL_arg2188z00_618, BNIL); } 
BgL_arg2180z00_615 = 
MAKE_PAIR(BgL_arg2183z00_616, BgL_arg2184z00_617); } 
return 
MAKE_PAIR(BgL_arg2179z00_614, BgL_arg2180z00_615);} }  else 
{ /* ./Expand/initial.scm 350 */
BgL_tagzd2306zd2_593:
FAILURE(BFALSE,BGl_string6426z00zzexpand_installz00,BgL_xz00_584);} }  else 
{ /* ./Expand/initial.scm 350 */
goto BgL_tagzd2306zd2_593;} } } }  else 
{ /* ./Expand/initial.scm 350 */
bool_t BgL_test2158z00_608;
BgL_test2158z00_608 = 
NULLP(BgL_cdrzd2312zd2_596); 
if(BgL_test2158z00_608)
{ /* ./Expand/initial.scm 350 */
{ /* ./Expand/initial.scm 357 */
obj_t BgL_arg2193z00_620;obj_t BgL_arg2194z00_621;
BgL_arg2193z00_620 = 
CNST_TABLE_REF(((long)52)); 
{ /* ./Expand/initial.scm 357 */
obj_t BgL_arg2197z00_622;
{ /* ./Expand/initial.scm 357 */
obj_t BgL_arg2201z00_624;
{ /* ./Expand/initial.scm 357 */
obj_t BgL_arg2205z00_626;obj_t BgL_arg2206z00_627;
BgL_arg2205z00_626 = 
CNST_TABLE_REF(((long)91)); 
{ /* ./Expand/initial.scm 357 */
obj_t BgL_arg2209z00_628;obj_t BgL_arg2210z00_629;
BgL_arg2209z00_628 = 
CNST_TABLE_REF(((long)130)); 
{ /* ./Expand/initial.scm 357 */
obj_t BgL_auxz00_6069;
BgL_auxz00_6069 = 
CNST_TABLE_REF(((long)108)); 
BgL_arg2210z00_629 = 
MAKE_PAIR(BgL_auxz00_6069, BNIL); } 
BgL_arg2206z00_627 = 
MAKE_PAIR(BgL_arg2209z00_628, BgL_arg2210z00_629); } 
BgL_arg2201z00_624 = 
MAKE_PAIR(BgL_arg2205z00_626, BgL_arg2206z00_627); } 
BgL_arg2197z00_622 = 
MAKE_PAIR(BgL_arg2201z00_624, BNIL); } 
BgL_arg2194z00_621 = 
MAKE_PAIR(BgL_arg2197z00_622, BNIL); } 
return 
MAKE_PAIR(BgL_arg2193z00_620, BgL_arg2194z00_621);} }  else 
{ /* ./Expand/initial.scm 350 */
goto BgL_tagzd2306zd2_593;} } } }  else 
{ /* ./Expand/initial.scm 350 */
goto BgL_tagzd2306zd2_593;} } } } } 
}



/* <anonymous:2064> */
obj_t BGl_zc3anonymousza32064ze3z83zzexpand_installz00(obj_t BgL_envz00_3776, obj_t BgL_xz00_3777, obj_t BgL_ez00_3778)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 324 */
{ 
obj_t BgL_xz00_552;obj_t BgL_ez00_553;
BgL_xz00_552 = BgL_xz00_3777; 
BgL_ez00_553 = BgL_ez00_3778; 
{ 
obj_t BgL_nz00_555;obj_t BgL_mz00_556;
{ /* ./Expand/initial.scm 324 */
bool_t BgL_test2065z00_560;
BgL_test2065z00_560 = 
PAIRP(BgL_xz00_552); 
if(BgL_test2065z00_560)
{ /* ./Expand/initial.scm 324 */
obj_t BgL_cdrzd2293zd2_561;
BgL_cdrzd2293zd2_561 = 
CDR(BgL_xz00_552); 
{ /* ./Expand/initial.scm 324 */
bool_t BgL_test2066z00_562;
BgL_test2066z00_562 = 
PAIRP(BgL_cdrzd2293zd2_561); 
if(BgL_test2066z00_562)
{ /* ./Expand/initial.scm 324 */
obj_t BgL_cdrzd2297zd2_563;
BgL_cdrzd2297zd2_563 = 
CDR(BgL_cdrzd2293zd2_561); 
{ /* ./Expand/initial.scm 324 */
bool_t BgL_test2067z00_564;
BgL_test2067z00_564 = 
PAIRP(BgL_cdrzd2297zd2_563); 
if(BgL_test2067z00_564)
{ /* ./Expand/initial.scm 324 */
bool_t BgL_test2068z00_565;
{ /* ./Expand/initial.scm 324 */
obj_t BgL_auxz00_6085;
BgL_auxz00_6085 = 
CDR(BgL_cdrzd2297zd2_563); 
BgL_test2068z00_565 = 
NULLP(BgL_auxz00_6085); } 
if(BgL_test2068z00_565)
{ /* ./Expand/initial.scm 324 */
obj_t BgL_arg2070z00_566;obj_t BgL_arg2071z00_567;
BgL_arg2070z00_566 = 
CAR(BgL_cdrzd2293zd2_561); 
BgL_arg2071z00_567 = 
CAR(BgL_cdrzd2297zd2_563); 
BgL_nz00_555 = BgL_arg2070z00_566; 
BgL_mz00_556 = BgL_arg2071z00_567; 
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Expand/initial.scm 328 */
obj_t BgL_arg2089z00_569;obj_t BgL_arg2090z00_570;
BgL_arg2089z00_569 = 
CNST_TABLE_REF(((long)131)); 
{ /* ./Expand/initial.scm 328 */
obj_t BgL_arg2093z00_571;obj_t BgL_arg2094z00_572;
BgL_arg2093z00_571 = 
PROCEDURE_ENTRY(BgL_ez00_553)(BgL_ez00_553, BgL_nz00_555, BgL_ez00_553, BEOA); 
{ /* ./Expand/initial.scm 328 */
obj_t BgL_arg2098z00_573;
BgL_arg2098z00_573 = 
PROCEDURE_ENTRY(BgL_ez00_553)(BgL_ez00_553, BgL_mz00_556, BgL_ez00_553, BEOA); 
BgL_arg2094z00_572 = 
MAKE_PAIR(BgL_arg2098z00_573, BNIL); } 
BgL_arg2090z00_570 = 
MAKE_PAIR(BgL_arg2093z00_571, BgL_arg2094z00_572); } 
return 
MAKE_PAIR(BgL_arg2089z00_569, BgL_arg2090z00_570);}  else 
{ /* ./Expand/initial.scm 329 */
obj_t BgL_arg2103z00_575;obj_t BgL_arg2105z00_576;
BgL_arg2103z00_575 = 
CNST_TABLE_REF(((long)46)); 
{ /* ./Expand/initial.scm 329 */
obj_t BgL_arg2108z00_577;obj_t BgL_arg2109z00_578;
BgL_arg2108z00_577 = 
PROCEDURE_ENTRY(BgL_ez00_553)(BgL_ez00_553, BgL_nz00_555, BgL_ez00_553, BEOA); 
{ /* ./Expand/initial.scm 329 */
obj_t BgL_arg2113z00_579;
BgL_arg2113z00_579 = 
PROCEDURE_ENTRY(BgL_ez00_553)(BgL_ez00_553, BgL_mz00_556, BgL_ez00_553, BEOA); 
BgL_arg2109z00_578 = 
MAKE_PAIR(BgL_arg2113z00_579, BNIL); } 
BgL_arg2105z00_576 = 
MAKE_PAIR(BgL_arg2108z00_577, BgL_arg2109z00_578); } 
return 
MAKE_PAIR(BgL_arg2103z00_575, BgL_arg2105z00_576);} }  else 
{ /* ./Expand/initial.scm 324 */
BgL_tagzd2286zd2_558:
FAILURE(BFALSE,BGl_string6427z00zzexpand_installz00,BgL_xz00_552);} }  else 
{ /* ./Expand/initial.scm 324 */
goto BgL_tagzd2286zd2_558;} } }  else 
{ /* ./Expand/initial.scm 324 */
goto BgL_tagzd2286zd2_558;} } }  else 
{ /* ./Expand/initial.scm 324 */
goto BgL_tagzd2286zd2_558;} } } } } 
}



/* <anonymous:2021> */
obj_t BGl_zc3anonymousza32021ze3z83zzexpand_installz00(obj_t BgL_envz00_3779, obj_t BgL_xz00_3780, obj_t BgL_ez00_3781)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 313 */
{ 
obj_t BgL_xz00_528;obj_t BgL_ez00_529;
BgL_xz00_528 = BgL_xz00_3780; 
BgL_ez00_529 = BgL_ez00_3781; 
{ 
obj_t BgL_nz00_531;
{ /* ./Expand/initial.scm 313 */
bool_t BgL_test2022z00_535;
BgL_test2022z00_535 = 
PAIRP(BgL_xz00_528); 
if(BgL_test2022z00_535)
{ /* ./Expand/initial.scm 313 */
obj_t BgL_cdrzd2280zd2_536;
BgL_cdrzd2280zd2_536 = 
CDR(BgL_xz00_528); 
{ /* ./Expand/initial.scm 313 */
bool_t BgL_test2024z00_537;
BgL_test2024z00_537 = 
PAIRP(BgL_cdrzd2280zd2_536); 
if(BgL_test2024z00_537)
{ /* ./Expand/initial.scm 313 */
bool_t BgL_test2025z00_538;
{ /* ./Expand/initial.scm 313 */
obj_t BgL_auxz00_6115;
BgL_auxz00_6115 = 
CDR(BgL_cdrzd2280zd2_536); 
BgL_test2025z00_538 = 
NULLP(BgL_auxz00_6115); } 
if(BgL_test2025z00_538)
{ /* ./Expand/initial.scm 313 */
obj_t BgL_arg2027z00_539;
BgL_arg2027z00_539 = 
CAR(BgL_cdrzd2280zd2_536); 
BgL_nz00_531 = BgL_arg2027z00_539; 
if(
CBOOL(BGl_za2unsafezd2rangeza2zd2zzengine_paramz00))
{ /* ./Expand/initial.scm 317 */
obj_t BgL_arg2041z00_541;obj_t BgL_arg2042z00_542;
BgL_arg2041z00_541 = 
CNST_TABLE_REF(((long)132)); 
{ /* ./Expand/initial.scm 317 */
obj_t BgL_arg2045z00_543;
BgL_arg2045z00_543 = 
PROCEDURE_ENTRY(BgL_ez00_529)(BgL_ez00_529, BgL_nz00_531, BgL_ez00_529, BEOA); 
BgL_arg2042z00_542 = 
MAKE_PAIR(BgL_arg2045z00_543, BNIL); } 
return 
MAKE_PAIR(BgL_arg2041z00_541, BgL_arg2042z00_542);}  else 
{ /* ./Expand/initial.scm 318 */
obj_t BgL_arg2050z00_545;obj_t BgL_arg2051z00_546;
BgL_arg2050z00_545 = 
CNST_TABLE_REF(((long)45)); 
{ /* ./Expand/initial.scm 318 */
obj_t BgL_arg2054z00_547;
BgL_arg2054z00_547 = 
PROCEDURE_ENTRY(BgL_ez00_529)(BgL_ez00_529, BgL_nz00_531, BgL_ez00_529, BEOA); 
BgL_arg2051z00_546 = 
MAKE_PAIR(BgL_arg2054z00_547, BNIL); } 
return 
MAKE_PAIR(BgL_arg2050z00_545, BgL_arg2051z00_546);} }  else 
{ /* ./Expand/initial.scm 313 */
BgL_tagzd2275zd2_533:
FAILURE(BFALSE,BGl_string6428z00zzexpand_installz00,BgL_xz00_528);} }  else 
{ /* ./Expand/initial.scm 313 */
goto BgL_tagzd2275zd2_533;} } }  else 
{ /* ./Expand/initial.scm 313 */
goto BgL_tagzd2275zd2_533;} } } } } 
}



/* <anonymous:2009> */
obj_t BGl_zc3anonymousza32009ze3z83zzexpand_installz00(obj_t BgL_envz00_3782, obj_t BgL_xz00_3783, obj_t BgL_ez00_3784)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 289 */
{ 
obj_t BgL_xz00_522;obj_t BgL_ez00_523;
BgL_xz00_522 = BgL_xz00_3783; 
BgL_ez00_523 = BgL_ez00_3784; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_522, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_523);} } 
}



/* <anonymous:2003> */
obj_t BGl_zc3anonymousza32003ze3z83zzexpand_installz00(obj_t BgL_envz00_3785, obj_t BgL_xz00_3786, obj_t BgL_ez00_3787)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 287 */
{ 
obj_t BgL_xz00_516;obj_t BgL_ez00_517;
BgL_xz00_516 = BgL_xz00_3786; 
BgL_ez00_517 = BgL_ez00_3787; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_516, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_517);} } 
}



/* <anonymous:1996> */
obj_t BGl_zc3anonymousza31996ze3z83zzexpand_installz00(obj_t BgL_envz00_3788, obj_t BgL_xz00_3789, obj_t BgL_ez00_3790)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 285 */
{ 
obj_t BgL_xz00_510;obj_t BgL_ez00_511;
BgL_xz00_510 = BgL_xz00_3789; 
BgL_ez00_511 = BgL_ez00_3790; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_510, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_511);} } 
}



/* <anonymous:1990> */
obj_t BGl_zc3anonymousza31990ze3z83zzexpand_installz00(obj_t BgL_envz00_3791, obj_t BgL_xz00_3792, obj_t BgL_ez00_3793)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 283 */
{ 
obj_t BgL_xz00_504;obj_t BgL_ez00_505;
BgL_xz00_504 = BgL_xz00_3792; 
BgL_ez00_505 = BgL_ez00_3793; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_504, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_505);} } 
}



/* <anonymous:1983> */
obj_t BGl_zc3anonymousza31983ze3z83zzexpand_installz00(obj_t BgL_envz00_3794, obj_t BgL_xz00_3795, obj_t BgL_ez00_3796)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 281 */
{ 
obj_t BgL_xz00_498;obj_t BgL_ez00_499;
BgL_xz00_498 = BgL_xz00_3795; 
BgL_ez00_499 = BgL_ez00_3796; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_498, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_499);} } 
}



/* <anonymous:1975> */
obj_t BGl_zc3anonymousza31975ze3z83zzexpand_installz00(obj_t BgL_envz00_3797, obj_t BgL_xz00_3798, obj_t BgL_ez00_3799)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 279 */
{ 
obj_t BgL_xz00_492;obj_t BgL_ez00_493;
BgL_xz00_492 = BgL_xz00_3798; 
BgL_ez00_493 = BgL_ez00_3799; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_492, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_493);} } 
}



/* <anonymous:1968> */
obj_t BGl_zc3anonymousza31968ze3z83zzexpand_installz00(obj_t BgL_envz00_3800, obj_t BgL_xz00_3801, obj_t BgL_ez00_3802)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 277 */
{ 
obj_t BgL_xz00_486;obj_t BgL_ez00_487;
BgL_xz00_486 = BgL_xz00_3801; 
BgL_ez00_487 = BgL_ez00_3802; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_486, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_487);} } 
}



/* <anonymous:1962> */
obj_t BGl_zc3anonymousza31962ze3z83zzexpand_installz00(obj_t BgL_envz00_3803, obj_t BgL_xz00_3804, obj_t BgL_ez00_3805)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 275 */
{ 
obj_t BgL_xz00_480;obj_t BgL_ez00_481;
BgL_xz00_480 = BgL_xz00_3804; 
BgL_ez00_481 = BgL_ez00_3805; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_480, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_481);} } 
}



/* <anonymous:1954> */
obj_t BGl_zc3anonymousza31954ze3z83zzexpand_installz00(obj_t BgL_envz00_3806, obj_t BgL_xz00_3807, obj_t BgL_ez00_3808)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 273 */
{ 
obj_t BgL_xz00_474;obj_t BgL_ez00_475;
BgL_xz00_474 = BgL_xz00_3807; 
BgL_ez00_475 = BgL_ez00_3808; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_474, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_475);} } 
}



/* <anonymous:1948> */
obj_t BGl_zc3anonymousza31948ze3z83zzexpand_installz00(obj_t BgL_envz00_3809, obj_t BgL_xz00_3810, obj_t BgL_ez00_3811)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 271 */
{ 
obj_t BgL_xz00_468;obj_t BgL_ez00_469;
BgL_xz00_468 = BgL_xz00_3810; 
BgL_ez00_469 = BgL_ez00_3811; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_468, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_469);} } 
}



/* <anonymous:1940> */
obj_t BGl_zc3anonymousza31940ze3z83zzexpand_installz00(obj_t BgL_envz00_3812, obj_t BgL_xz00_3813, obj_t BgL_ez00_3814)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 269 */
{ 
obj_t BgL_xz00_462;obj_t BgL_ez00_463;
BgL_xz00_462 = BgL_xz00_3813; 
BgL_ez00_463 = BgL_ez00_3814; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_462, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_463);} } 
}



/* <anonymous:1933> */
obj_t BGl_zc3anonymousza31933ze3z83zzexpand_installz00(obj_t BgL_envz00_3815, obj_t BgL_xz00_3816, obj_t BgL_ez00_3817)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 267 */
{ 
obj_t BgL_xz00_456;obj_t BgL_ez00_457;
BgL_xz00_456 = BgL_xz00_3816; 
BgL_ez00_457 = BgL_ez00_3817; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_456, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_457);} } 
}



/* <anonymous:1926> */
obj_t BGl_zc3anonymousza31926ze3z83zzexpand_installz00(obj_t BgL_envz00_3818, obj_t BgL_xz00_3819, obj_t BgL_ez00_3820)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 265 */
{ 
obj_t BgL_xz00_450;obj_t BgL_ez00_451;
BgL_xz00_450 = BgL_xz00_3819; 
BgL_ez00_451 = BgL_ez00_3820; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_450, 
CNST_TABLE_REF(((long)103)), "number", BgL_ez00_451);} } 
}



/* <anonymous:1831> */
obj_t BGl_zc3anonymousza31831ze3z83zzexpand_installz00(obj_t BgL_envz00_3821, obj_t BgL_xz00_3822, obj_t BgL_ez00_3823)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 206 */
{ 
obj_t BgL_xz00_410;obj_t BgL_ez00_411;
BgL_xz00_410 = BgL_xz00_3822; 
BgL_ez00_411 = BgL_ez00_3823; 
{ 
obj_t BgL_a1z00_413;obj_t BgL_a2z00_414;
{ /* ./Expand/initial.scm 206 */
bool_t BgL_test1832z00_418;
BgL_test1832z00_418 = 
PAIRP(BgL_xz00_410); 
if(BgL_test1832z00_418)
{ /* ./Expand/initial.scm 206 */
obj_t BgL_cdrzd2264zd2_419;
BgL_cdrzd2264zd2_419 = 
CDR(BgL_xz00_410); 
{ /* ./Expand/initial.scm 206 */
bool_t BgL_test1833z00_420;
BgL_test1833z00_420 = 
PAIRP(BgL_cdrzd2264zd2_419); 
if(BgL_test1833z00_420)
{ /* ./Expand/initial.scm 206 */
obj_t BgL_cdrzd2268zd2_421;
BgL_cdrzd2268zd2_421 = 
CDR(BgL_cdrzd2264zd2_419); 
{ /* ./Expand/initial.scm 206 */
bool_t BgL_test1834z00_422;
BgL_test1834z00_422 = 
PAIRP(BgL_cdrzd2268zd2_421); 
if(BgL_test1834z00_422)
{ /* ./Expand/initial.scm 206 */
bool_t BgL_test1835z00_423;
{ /* ./Expand/initial.scm 206 */
obj_t BgL_auxz00_6167;
BgL_auxz00_6167 = 
CDR(BgL_cdrzd2268zd2_421); 
BgL_test1835z00_423 = 
NULLP(BgL_auxz00_6167); } 
if(BgL_test1835z00_423)
{ /* ./Expand/initial.scm 206 */
obj_t BgL_arg1837z00_424;obj_t BgL_arg1838z00_425;
BgL_arg1837z00_424 = 
CAR(BgL_cdrzd2264zd2_419); 
BgL_arg1838z00_425 = 
CAR(BgL_cdrzd2268zd2_421); 
BgL_a1z00_413 = BgL_arg1837z00_424; 
BgL_a2z00_414 = BgL_arg1838z00_425; 
{ /* ./Expand/initial.scm 209 */
obj_t BgL_arg1857z00_427;obj_t BgL_arg1859z00_428;
{ /* ./Expand/initial.scm 209 */
bool_t BgL_testz00_6173;
if(
INTEGERP(BgL_a1z00_413))
{ /* ./Expand/initial.scm 209 */
BgL_testz00_6173 = ((bool_t)1)
; }  else 
{ /* ./Expand/initial.scm 209 */
if(
INTEGERP(BgL_a2z00_414))
{ /* ./Expand/initial.scm 211 */
BgL_testz00_6173 = ((bool_t)1)
; }  else 
{ /* ./Expand/initial.scm 213 */
bool_t BgL_testz00_6178;
if(
PAIRP(BgL_a1z00_413))
{ /* ./Expand/initial.scm 212 */
bool_t BgL_testz00_6181;
{ /* ./Expand/initial.scm 212 */
obj_t BgL_auxz00_6184;obj_t BgL_auxz00_6182;
BgL_auxz00_6184 = 
CNST_TABLE_REF(((long)133)); 
BgL_auxz00_6182 = 
CAR(BgL_a1z00_413); 
BgL_testz00_6181 = 
(BgL_auxz00_6182==BgL_auxz00_6184); } 
if(BgL_testz00_6181)
{ /* ./Expand/initial.scm 213 */
obj_t BgL_auxz00_6187;
{ /* ./Expand/initial.scm 213 */
obj_t BgL_auxz00_6188;
BgL_auxz00_6188 = 
CDR(BgL_a1z00_413); 
BgL_auxz00_6187 = 
CAR(BgL_auxz00_6188); } 
BgL_testz00_6178 = 
SYMBOLP(BgL_auxz00_6187); }  else 
{ /* ./Expand/initial.scm 212 */
BgL_testz00_6178 = ((bool_t)0)
; } }  else 
{ /* ./Expand/initial.scm 213 */
BgL_testz00_6178 = ((bool_t)0)
; } 
if(BgL_testz00_6178)
{ /* ./Expand/initial.scm 213 */
BgL_testz00_6173 = ((bool_t)1)
; }  else 
{ /* ./Expand/initial.scm 213 */
if(
PAIRP(BgL_a2z00_414))
{ /* ./Expand/initial.scm 215 */
bool_t BgL_testz00_6194;
{ /* ./Expand/initial.scm 215 */
obj_t BgL_auxz00_6197;obj_t BgL_auxz00_6195;
BgL_auxz00_6197 = 
CNST_TABLE_REF(((long)133)); 
BgL_auxz00_6195 = 
CAR(BgL_a2z00_414); 
BgL_testz00_6194 = 
(BgL_auxz00_6195==BgL_auxz00_6197); } 
if(BgL_testz00_6194)
{ /* ./Expand/initial.scm 216 */
obj_t BgL_auxz00_6200;
{ /* ./Expand/initial.scm 216 */
obj_t BgL_auxz00_6201;
BgL_auxz00_6201 = 
CDR(BgL_a2z00_414); 
BgL_auxz00_6200 = 
CAR(BgL_auxz00_6201); } 
BgL_testz00_6173 = 
SYMBOLP(BgL_auxz00_6200); }  else 
{ /* ./Expand/initial.scm 215 */
BgL_testz00_6173 = ((bool_t)0)
; } }  else 
{ /* ./Expand/initial.scm 214 */
BgL_testz00_6173 = ((bool_t)0)
; } } } } 
if(BgL_testz00_6173)
{ /* ./Expand/initial.scm 209 */
BgL_arg1857z00_427 = 
CNST_TABLE_REF(((long)39)); }  else 
{ /* ./Expand/initial.scm 209 */
BgL_arg1857z00_427 = 
CNST_TABLE_REF(((long)25)); } } 
{ /* ./Expand/initial.scm 219 */
obj_t BgL_arg1892z00_443;obj_t BgL_arg1893z00_444;
BgL_arg1892z00_443 = 
PROCEDURE_ENTRY(BgL_ez00_411)(BgL_ez00_411, BgL_a1z00_413, BgL_ez00_411, BEOA); 
{ /* ./Expand/initial.scm 220 */
obj_t BgL_arg1897z00_445;
BgL_arg1897z00_445 = 
PROCEDURE_ENTRY(BgL_ez00_411)(BgL_ez00_411, BgL_a2z00_414, BgL_ez00_411, BEOA); 
BgL_arg1893z00_444 = 
MAKE_PAIR(BgL_arg1897z00_445, BNIL); } 
BgL_arg1859z00_428 = 
MAKE_PAIR(BgL_arg1892z00_443, BgL_arg1893z00_444); } 
return 
MAKE_PAIR(BgL_arg1857z00_427, BgL_arg1859z00_428);} }  else 
{ /* ./Expand/initial.scm 206 */
BgL_tagzd2257zd2_416:
FAILURE(BFALSE,BGl_string6429z00zzexpand_installz00,BgL_xz00_410);} }  else 
{ /* ./Expand/initial.scm 206 */
goto BgL_tagzd2257zd2_416;} } }  else 
{ /* ./Expand/initial.scm 206 */
goto BgL_tagzd2257zd2_416;} } }  else 
{ /* ./Expand/initial.scm 206 */
goto BgL_tagzd2257zd2_416;} } } } } 
}



/* <anonymous:1823> */
obj_t BGl_zc3anonymousza31823ze3z83zzexpand_installz00(obj_t BgL_envz00_3824, obj_t BgL_xz00_3825, obj_t BgL_ez00_3826)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 200 */
return 
BGl_mapzd2checkzd2zzexpand_installz00(BgL_xz00_3825, BgL_ez00_3826);} 
}



/* <anonymous:1814> */
obj_t BGl_zc3anonymousza31814ze3z83zzexpand_installz00(obj_t BgL_envz00_3827, obj_t BgL_xz00_3828, obj_t BgL_ez00_3829)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 196 */
return 
BGl_mapzd2checkzd2zzexpand_installz00(BgL_xz00_3828, BgL_ez00_3829);} 
}



/* <anonymous:1807> */
obj_t BGl_zc3anonymousza31807ze3z83zzexpand_installz00(obj_t BgL_envz00_3830, obj_t BgL_xz00_3831, obj_t BgL_ez00_3832)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 190 */
return 
BGl_mapzd2checkzd2zzexpand_installz00(BgL_xz00_3831, BgL_ez00_3832);} 
}



/* <anonymous:1801> */
obj_t BGl_zc3anonymousza31801ze3z83zzexpand_installz00(obj_t BgL_envz00_3833, obj_t BgL_xz00_3834, obj_t BgL_ez00_3835)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 187 */
return 
BGl_mapzd2checkzd2zzexpand_installz00(BgL_xz00_3834, BgL_ez00_3835);} 
}



/* <anonymous:1793> */
obj_t BGl_zc3anonymousza31793ze3z83zzexpand_installz00(obj_t BgL_envz00_3836, obj_t BgL_xz00_3837, obj_t BgL_ez00_3838)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 182 */
return 
BGl_mapzd2checkzd2zzexpand_installz00(BgL_xz00_3837, BgL_ez00_3838);} 
}



/* <anonymous:1786> */
obj_t BGl_zc3anonymousza31786ze3z83zzexpand_installz00(obj_t BgL_envz00_3839, obj_t BgL_xz00_3840, obj_t BgL_ez00_3841)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 176 */
return 
BGl_mapzd2checkzd2zzexpand_installz00(BgL_xz00_3840, BgL_ez00_3841);} 
}



/* <anonymous:1734> */
obj_t BGl_zc3anonymousza31734ze3z83zzexpand_installz00(obj_t BgL_envz00_3842, obj_t BgL_xz00_3843, obj_t BgL_ez00_3844)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 166 */
{ 
obj_t BgL_xz00_346;obj_t BgL_ez00_347;
BgL_xz00_346 = BgL_xz00_3843; 
BgL_ez00_347 = BgL_ez00_3844; 
{ 
obj_t BgL_funz00_349;obj_t BgL_az00_350;obj_t BgL_dz00_351;
{ /* ./Expand/initial.scm 166 */
bool_t BgL_test1735z00_355;
BgL_test1735z00_355 = 
PAIRP(BgL_xz00_346); 
if(BgL_test1735z00_355)
{ /* ./Expand/initial.scm 166 */
obj_t BgL_cdrzd2245zd2_356;
BgL_cdrzd2245zd2_356 = 
CDR(BgL_xz00_346); 
{ /* ./Expand/initial.scm 166 */
bool_t BgL_test1736z00_357;
BgL_test1736z00_357 = 
PAIRP(BgL_cdrzd2245zd2_356); 
if(BgL_test1736z00_357)
{ /* ./Expand/initial.scm 166 */
obj_t BgL_cdrzd2250zd2_358;
BgL_cdrzd2250zd2_358 = 
CDR(BgL_cdrzd2245zd2_356); 
{ /* ./Expand/initial.scm 166 */
bool_t BgL_test1737z00_359;
BgL_test1737z00_359 = 
PAIRP(BgL_cdrzd2250zd2_358); 
if(BgL_test1737z00_359)
{ /* ./Expand/initial.scm 166 */
bool_t BgL_test1738z00_360;
{ /* ./Expand/initial.scm 166 */
obj_t BgL_auxz00_6229;
BgL_auxz00_6229 = 
CDR(BgL_cdrzd2250zd2_358); 
BgL_test1738z00_360 = 
NULLP(BgL_auxz00_6229); } 
if(BgL_test1738z00_360)
{ /* ./Expand/initial.scm 166 */
obj_t BgL_arg1741z00_361;obj_t BgL_arg1743z00_362;obj_t BgL_arg1744z00_363;
BgL_arg1741z00_361 = 
CAR(BgL_xz00_346); 
BgL_arg1743z00_362 = 
CAR(BgL_cdrzd2245zd2_356); 
BgL_arg1744z00_363 = 
CAR(BgL_cdrzd2250zd2_358); 
BgL_funz00_349 = BgL_arg1741z00_361; 
BgL_az00_350 = BgL_arg1743z00_362; 
BgL_dz00_351 = BgL_arg1744z00_363; 
{ /* ./Expand/initial.scm 169 */
obj_t BgL_arg1766z00_365;obj_t BgL_arg1767z00_366;
BgL_arg1766z00_365 = 
CNST_TABLE_REF(((long)111)); 
{ /* ./Expand/initial.scm 169 */
obj_t BgL_arg1771z00_367;obj_t BgL_arg1772z00_368;
BgL_arg1771z00_367 = 
PROCEDURE_ENTRY(BgL_ez00_347)(BgL_ez00_347, BgL_az00_350, BgL_ez00_347, BEOA); 
{ /* ./Expand/initial.scm 169 */
obj_t BgL_arg1776z00_369;
BgL_arg1776z00_369 = 
PROCEDURE_ENTRY(BgL_ez00_347)(BgL_ez00_347, BgL_dz00_351, BgL_ez00_347, BEOA); 
BgL_arg1772z00_368 = 
MAKE_PAIR(BgL_arg1776z00_369, BNIL); } 
BgL_arg1767z00_366 = 
MAKE_PAIR(BgL_arg1771z00_367, BgL_arg1772z00_368); } 
return 
MAKE_PAIR(BgL_arg1766z00_365, BgL_arg1767z00_366);} }  else 
{ /* ./Expand/initial.scm 166 */
BgL_tagzd2236zd2_353:
FAILURE(BFALSE,BGl_string6430z00zzexpand_installz00,BgL_xz00_346);} }  else 
{ /* ./Expand/initial.scm 166 */
goto BgL_tagzd2236zd2_353;} } }  else 
{ /* ./Expand/initial.scm 166 */
goto BgL_tagzd2236zd2_353;} } }  else 
{ /* ./Expand/initial.scm 166 */
goto BgL_tagzd2236zd2_353;} } } } } 
}



/* <anonymous:1698> */
obj_t BGl_zc3anonymousza31698ze3z83zzexpand_installz00(obj_t BgL_envz00_3845, obj_t BgL_xz00_3846, obj_t BgL_ez00_3847)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 154 */
{ 
obj_t BgL_xz00_325;obj_t BgL_ez00_326;
BgL_xz00_325 = BgL_xz00_3846; 
BgL_ez00_326 = BgL_ez00_3847; 
{ 
obj_t BgL_sz00_328;
{ /* ./Expand/initial.scm 154 */
bool_t BgL_test1699z00_332;
BgL_test1699z00_332 = 
PAIRP(BgL_xz00_325); 
if(BgL_test1699z00_332)
{ /* ./Expand/initial.scm 154 */
obj_t BgL_cdrzd2230zd2_333;
BgL_cdrzd2230zd2_333 = 
CDR(BgL_xz00_325); 
{ /* ./Expand/initial.scm 154 */
bool_t BgL_test1700z00_334;
BgL_test1700z00_334 = 
PAIRP(BgL_cdrzd2230zd2_333); 
if(BgL_test1700z00_334)
{ /* ./Expand/initial.scm 154 */
bool_t BgL_test1701z00_335;
{ /* ./Expand/initial.scm 154 */
obj_t BgL_auxz00_6250;
BgL_auxz00_6250 = 
CDR(BgL_cdrzd2230zd2_333); 
BgL_test1701z00_335 = 
NULLP(BgL_auxz00_6250); } 
if(BgL_test1701z00_335)
{ /* ./Expand/initial.scm 154 */
obj_t BgL_arg1703z00_336;
BgL_arg1703z00_336 = 
CAR(BgL_cdrzd2230zd2_333); 
BgL_sz00_328 = BgL_arg1703z00_336; 
{ /* ./Expand/initial.scm 157 */
bool_t BgL_test1717z00_338;
BgL_test1717z00_338 = 
STRINGP(BgL_sz00_328); 
if(BgL_test1717z00_338)
{ /* ./Expand/initial.scm 158 */
int BgL_auxz00_6257;
BgL_auxz00_6257 = 
STRING_LENGTH(BgL_sz00_328); 
return 
BINT(BgL_auxz00_6257);}  else 
{ /* ./Expand/initial.scm 159 */
obj_t BgL_arg1720z00_339;obj_t BgL_arg1721z00_340;
BgL_arg1720z00_339 = 
CNST_TABLE_REF(((long)17)); 
{ /* ./Expand/initial.scm 159 */
obj_t BgL_arg1724z00_341;
BgL_arg1724z00_341 = 
PROCEDURE_ENTRY(BgL_ez00_326)(BgL_ez00_326, BgL_sz00_328, BgL_ez00_326, BEOA); 
BgL_arg1721z00_340 = 
MAKE_PAIR(BgL_arg1724z00_341, BNIL); } 
return 
MAKE_PAIR(BgL_arg1720z00_339, BgL_arg1721z00_340);} } }  else 
{ /* ./Expand/initial.scm 154 */
BgL_tagzd2225zd2_330:
FAILURE(BFALSE,BGl_string6431z00zzexpand_installz00,BgL_xz00_325);} }  else 
{ /* ./Expand/initial.scm 154 */
goto BgL_tagzd2225zd2_330;} } }  else 
{ /* ./Expand/initial.scm 154 */
goto BgL_tagzd2225zd2_330;} } } } } 
}



/* <anonymous:1613> */
obj_t BGl_zc3anonymousza31613ze3z83zzexpand_installz00(obj_t BgL_envz00_3848, obj_t BgL_xz00_3849, obj_t BgL_ez00_3850)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 142 */
{ 
obj_t BgL_xz00_278;obj_t BgL_ez00_279;
BgL_xz00_278 = BgL_xz00_3849; 
BgL_ez00_279 = BgL_ez00_3850; 
{ 
obj_t BgL_l1z00_281;obj_t BgL_l2z00_282;obj_t BgL_listsz00_284;
{ /* ./Expand/initial.scm 142 */
bool_t BgL_test1614z00_288;
BgL_test1614z00_288 = 
PAIRP(BgL_xz00_278); 
if(BgL_test1614z00_288)
{ /* ./Expand/initial.scm 142 */
obj_t BgL_cdrzd2197zd2_289;
BgL_cdrzd2197zd2_289 = 
CDR(BgL_xz00_278); 
{ /* ./Expand/initial.scm 142 */
bool_t BgL_test1615z00_290;
BgL_test1615z00_290 = 
PAIRP(BgL_cdrzd2197zd2_289); 
if(BgL_test1615z00_290)
{ /* ./Expand/initial.scm 142 */
obj_t BgL_cdrzd2201zd2_291;
BgL_cdrzd2201zd2_291 = 
CDR(BgL_cdrzd2197zd2_289); 
{ /* ./Expand/initial.scm 142 */
bool_t BgL_test1616z00_292;
BgL_test1616z00_292 = 
PAIRP(BgL_cdrzd2201zd2_291); 
if(BgL_test1616z00_292)
{ /* ./Expand/initial.scm 142 */
bool_t BgL_test1617z00_293;
{ /* ./Expand/initial.scm 142 */
obj_t BgL_auxz00_6274;
BgL_auxz00_6274 = 
CDR(BgL_cdrzd2201zd2_291); 
BgL_test1617z00_293 = 
NULLP(BgL_auxz00_6274); } 
if(BgL_test1617z00_293)
{ /* ./Expand/initial.scm 142 */
obj_t BgL_arg1620z00_294;obj_t BgL_arg1621z00_295;
BgL_arg1620z00_294 = 
CAR(BgL_cdrzd2197zd2_289); 
BgL_arg1621z00_295 = 
CAR(BgL_cdrzd2201zd2_291); 
BgL_l1z00_281 = BgL_arg1620z00_294; 
BgL_l2z00_282 = BgL_arg1621z00_295; 
{ /* ./Expand/initial.scm 145 */
obj_t BgL_arg1650z00_300;obj_t BgL_arg1651z00_301;
BgL_arg1650z00_300 = 
CNST_TABLE_REF(((long)134)); 
{ /* ./Expand/initial.scm 145 */
obj_t BgL_arg1654z00_302;obj_t BgL_arg1655z00_303;
BgL_arg1654z00_302 = 
PROCEDURE_ENTRY(BgL_ez00_279)(BgL_ez00_279, BgL_l1z00_281, BgL_ez00_279, BEOA); 
{ /* ./Expand/initial.scm 145 */
obj_t BgL_arg1659z00_304;
BgL_arg1659z00_304 = 
PROCEDURE_ENTRY(BgL_ez00_279)(BgL_ez00_279, BgL_l2z00_282, BgL_ez00_279, BEOA); 
BgL_arg1655z00_303 = 
MAKE_PAIR(BgL_arg1659z00_304, BNIL); } 
BgL_arg1651z00_301 = 
MAKE_PAIR(BgL_arg1654z00_302, BgL_arg1655z00_303); } 
return 
MAKE_PAIR(BgL_arg1650z00_300, BgL_arg1651z00_301);} }  else 
{ /* ./Expand/initial.scm 142 */
BgL_listsz00_284 = BgL_cdrzd2197zd2_289; 
BgL_tagzd2188zd2_285:
{ /* ./Expand/initial.scm 147 */
obj_t BgL_arg1666z00_306;obj_t BgL_arg1667z00_307;
BgL_arg1666z00_306 = 
CNST_TABLE_REF(((long)16)); 
{ /* ./Expand/initial.scm 147 */
obj_t BgL_arg1670z00_308;
{ /* ./Expand/initial.scm 147 */
bool_t BgL_test1673z00_311;
BgL_test1673z00_311 = 
NULLP(BgL_listsz00_284); 
if(BgL_test1673z00_311)
{ /* ./Expand/initial.scm 147 */
BgL_arg1670z00_308 = BNIL; }  else 
{ /* ./Expand/initial.scm 147 */
obj_t BgL_head1116z00_312;
BgL_head1116z00_312 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1114z00_313;obj_t BgL_tail1117z00_314;
BgL_l1114z00_313 = BgL_listsz00_284; 
BgL_tail1117z00_314 = BgL_head1116z00_312; 
BgL_map1115z00_315:
{ /* ./Expand/initial.scm 147 */
bool_t BgL_test1675z00_316;
BgL_test1675z00_316 = 
NULLP(BgL_l1114z00_313); 
if(BgL_test1675z00_316)
{ /* ./Expand/initial.scm 147 */
BgL_arg1670z00_308 = 
CDR(BgL_head1116z00_312); }  else 
{ /* ./Expand/initial.scm 147 */
obj_t BgL_newtail1118z00_317;
{ /* ./Expand/initial.scm 147 */
obj_t BgL_arg1683z00_319;
{ /* ./Expand/initial.scm 147 */
obj_t BgL_lz00_321;
BgL_lz00_321 = 
CAR(BgL_l1114z00_313); 
BgL_arg1683z00_319 = 
PROCEDURE_ENTRY(BgL_ez00_279)(BgL_ez00_279, BgL_lz00_321, BgL_ez00_279, BEOA); } 
BgL_newtail1118z00_317 = 
MAKE_PAIR(BgL_arg1683z00_319, BNIL); } 
SET_CDR(BgL_tail1117z00_314, BgL_newtail1118z00_317); 
{ /* ./Expand/initial.scm 147 */
obj_t BgL_arg1679z00_318;
BgL_arg1679z00_318 = 
CDR(BgL_l1114z00_313); 
{ 
obj_t BgL_tail1117z00_6302;obj_t BgL_l1114z00_6301;
BgL_l1114z00_6301 = BgL_arg1679z00_318; 
BgL_tail1117z00_6302 = BgL_newtail1118z00_317; 
BgL_tail1117z00_314 = BgL_tail1117z00_6302; 
BgL_l1114z00_313 = BgL_l1114z00_6301; 
goto BgL_map1115z00_315;} } } } } } } 
BgL_arg1667z00_307 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1670z00_308, BNIL); } 
return 
MAKE_PAIR(BgL_arg1666z00_306, BgL_arg1667z00_307);} } }  else 
{ 
obj_t BgL_listsz00_6305;
BgL_listsz00_6305 = BgL_cdrzd2197zd2_289; 
BgL_listsz00_284 = BgL_listsz00_6305; 
goto BgL_tagzd2188zd2_285;} } }  else 
{ 
obj_t BgL_listsz00_6306;
BgL_listsz00_6306 = BgL_cdrzd2197zd2_289; 
BgL_listsz00_284 = BgL_listsz00_6306; 
goto BgL_tagzd2188zd2_285;} } }  else 
{ /* ./Expand/initial.scm 142 */
FAILURE(BFALSE,BGl_string6432z00zzexpand_installz00,BgL_xz00_278);} } } } } 
}



/* <anonymous:1606> */
obj_t BGl_zc3anonymousza31606ze3z83zzexpand_installz00(obj_t BgL_envz00_3851, obj_t BgL_xz00_3852, obj_t BgL_ez00_3853)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 136 */
{ 
obj_t BgL_xz00_272;obj_t BgL_ez00_273;
BgL_xz00_272 = BgL_xz00_3852; 
BgL_ez00_273 = BgL_ez00_3853; 
return 
BGl_callzd2checkzd2zzexpand_installz00(BgL_xz00_272, 
CNST_TABLE_REF(((long)135)), "list", BgL_ez00_273);} } 
}



/* <anonymous:1516> */
obj_t BGl_zc3anonymousza31516ze3z83zzexpand_installz00(obj_t BgL_envz00_3854, obj_t BgL_xz00_3855, obj_t BgL_ez00_3856)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 125 */
{ 
obj_t BgL_xz00_225;obj_t BgL_ez00_226;
BgL_xz00_225 = BgL_xz00_3855; 
BgL_ez00_226 = BgL_ez00_3856; 
{ 
obj_t BgL_l1z00_228;obj_t BgL_l2z00_229;obj_t BgL_listsz00_231;
{ /* ./Expand/initial.scm 125 */
bool_t BgL_test1517z00_235;
BgL_test1517z00_235 = 
PAIRP(BgL_xz00_225); 
if(BgL_test1517z00_235)
{ /* ./Expand/initial.scm 125 */
obj_t BgL_cdrzd2160zd2_236;
BgL_cdrzd2160zd2_236 = 
CDR(BgL_xz00_225); 
{ /* ./Expand/initial.scm 125 */
bool_t BgL_test1518z00_237;
BgL_test1518z00_237 = 
PAIRP(BgL_cdrzd2160zd2_236); 
if(BgL_test1518z00_237)
{ /* ./Expand/initial.scm 125 */
obj_t BgL_cdrzd2164zd2_238;
BgL_cdrzd2164zd2_238 = 
CDR(BgL_cdrzd2160zd2_236); 
{ /* ./Expand/initial.scm 125 */
bool_t BgL_test1519z00_239;
BgL_test1519z00_239 = 
PAIRP(BgL_cdrzd2164zd2_238); 
if(BgL_test1519z00_239)
{ /* ./Expand/initial.scm 125 */
bool_t BgL_test1520z00_240;
{ /* ./Expand/initial.scm 125 */
obj_t BgL_auxz00_6318;
BgL_auxz00_6318 = 
CDR(BgL_cdrzd2164zd2_238); 
BgL_test1520z00_240 = 
NULLP(BgL_auxz00_6318); } 
if(BgL_test1520z00_240)
{ /* ./Expand/initial.scm 125 */
obj_t BgL_arg1524z00_241;obj_t BgL_arg1526z00_242;
BgL_arg1524z00_241 = 
CAR(BgL_cdrzd2160zd2_236); 
BgL_arg1526z00_242 = 
CAR(BgL_cdrzd2164zd2_238); 
BgL_l1z00_228 = BgL_arg1524z00_241; 
BgL_l2z00_229 = BgL_arg1526z00_242; 
{ /* ./Expand/initial.scm 128 */
obj_t BgL_arg1555z00_247;obj_t BgL_arg1557z00_248;
BgL_arg1555z00_247 = 
CNST_TABLE_REF(((long)136)); 
{ /* ./Expand/initial.scm 128 */
obj_t BgL_arg1562z00_249;obj_t BgL_arg1564z00_250;
BgL_arg1562z00_249 = 
PROCEDURE_ENTRY(BgL_ez00_226)(BgL_ez00_226, BgL_l1z00_228, BgL_ez00_226, BEOA); 
{ /* ./Expand/initial.scm 128 */
obj_t BgL_arg1568z00_251;
BgL_arg1568z00_251 = 
PROCEDURE_ENTRY(BgL_ez00_226)(BgL_ez00_226, BgL_l2z00_229, BgL_ez00_226, BEOA); 
BgL_arg1564z00_250 = 
MAKE_PAIR(BgL_arg1568z00_251, BNIL); } 
BgL_arg1557z00_248 = 
MAKE_PAIR(BgL_arg1562z00_249, BgL_arg1564z00_250); } 
return 
MAKE_PAIR(BgL_arg1555z00_247, BgL_arg1557z00_248);} }  else 
{ /* ./Expand/initial.scm 125 */
BgL_listsz00_231 = BgL_cdrzd2160zd2_236; 
BgL_tagzd2151zd2_232:
{ /* ./Expand/initial.scm 130 */
obj_t BgL_arg1573z00_253;obj_t BgL_arg1575z00_254;
BgL_arg1573z00_253 = 
CNST_TABLE_REF(((long)15)); 
{ /* ./Expand/initial.scm 131 */
obj_t BgL_arg1578z00_255;
{ /* ./Expand/initial.scm 131 */
bool_t BgL_test1581z00_258;
BgL_test1581z00_258 = 
NULLP(BgL_listsz00_231); 
if(BgL_test1581z00_258)
{ /* ./Expand/initial.scm 131 */
BgL_arg1578z00_255 = BNIL; }  else 
{ /* ./Expand/initial.scm 131 */
obj_t BgL_head1111z00_259;
BgL_head1111z00_259 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1109z00_260;obj_t BgL_tail1112z00_261;
BgL_l1109z00_260 = BgL_listsz00_231; 
BgL_tail1112z00_261 = BgL_head1111z00_259; 
BgL_map1110z00_262:
{ /* ./Expand/initial.scm 131 */
bool_t BgL_test1583z00_263;
BgL_test1583z00_263 = 
NULLP(BgL_l1109z00_260); 
if(BgL_test1583z00_263)
{ /* ./Expand/initial.scm 131 */
BgL_arg1578z00_255 = 
CDR(BgL_head1111z00_259); }  else 
{ /* ./Expand/initial.scm 131 */
obj_t BgL_newtail1113z00_264;
{ /* ./Expand/initial.scm 131 */
obj_t BgL_arg1591z00_266;
{ /* ./Expand/initial.scm 131 */
obj_t BgL_lz00_268;
BgL_lz00_268 = 
CAR(BgL_l1109z00_260); 
BgL_arg1591z00_266 = 
PROCEDURE_ENTRY(BgL_ez00_226)(BgL_ez00_226, BgL_lz00_268, BgL_ez00_226, BEOA); } 
BgL_newtail1113z00_264 = 
MAKE_PAIR(BgL_arg1591z00_266, BNIL); } 
SET_CDR(BgL_tail1112z00_261, BgL_newtail1113z00_264); 
{ /* ./Expand/initial.scm 131 */
obj_t BgL_arg1587z00_265;
BgL_arg1587z00_265 = 
CDR(BgL_l1109z00_260); 
{ 
obj_t BgL_tail1112z00_6346;obj_t BgL_l1109z00_6345;
BgL_l1109z00_6345 = BgL_arg1587z00_265; 
BgL_tail1112z00_6346 = BgL_newtail1113z00_264; 
BgL_tail1112z00_261 = BgL_tail1112z00_6346; 
BgL_l1109z00_260 = BgL_l1109z00_6345; 
goto BgL_map1110z00_262;} } } } } } } 
BgL_arg1575z00_254 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1578z00_255, BNIL); } 
return 
MAKE_PAIR(BgL_arg1573z00_253, BgL_arg1575z00_254);} } }  else 
{ 
obj_t BgL_listsz00_6349;
BgL_listsz00_6349 = BgL_cdrzd2160zd2_236; 
BgL_listsz00_231 = BgL_listsz00_6349; 
goto BgL_tagzd2151zd2_232;} } }  else 
{ 
obj_t BgL_listsz00_6350;
BgL_listsz00_6350 = BgL_cdrzd2160zd2_236; 
BgL_listsz00_231 = BgL_listsz00_6350; 
goto BgL_tagzd2151zd2_232;} } }  else 
{ /* ./Expand/initial.scm 125 */
FAILURE(BFALSE,BGl_string6433z00zzexpand_installz00,BgL_xz00_225);} } } } } 
}



/* <anonymous:1435> */
obj_t BGl_zc3anonymousza31435ze3z83zzexpand_installz00(obj_t BgL_envz00_3857, obj_t BgL_xz00_3858, obj_t BgL_ez00_3859)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 112 */
{ 
obj_t BgL_xz00_180;obj_t BgL_ez00_181;
BgL_xz00_180 = BgL_xz00_3858; 
BgL_ez00_181 = BgL_ez00_3859; 
{ /* ./Expand/initial.scm 113 */
obj_t BgL_locz00_183;
BgL_locz00_183 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_180); 
{ /* ./Expand/initial.scm 114 */
bool_t BgL_test1436z00_184;
{ /* ./Expand/initial.scm 114 */
bool_t BgL_test1508z00_221;
if(
STRUCTP(BgL_locz00_183))
{ /* ./Expand/initial.scm 114 */
obj_t BgL_auxz00_6357;obj_t BgL_auxz00_6355;
BgL_auxz00_6357 = 
CNST_TABLE_REF(((long)137)); 
BgL_auxz00_6355 = 
STRUCT_KEY(BgL_locz00_183); 
BgL_test1508z00_221 = 
(BgL_auxz00_6355==BgL_auxz00_6357); }  else 
{ /* ./Expand/initial.scm 114 */
BgL_test1508z00_221 = ((bool_t)0); } 
if(BgL_test1508z00_221)
{ /* ./Expand/initial.scm 115 */
long BgL_n1z00_2716;
BgL_n1z00_2716 = 
(long)CINT(BGl_za2compilerzd2debugza2zd2zzengine_paramz00); 
BgL_test1436z00_184 = 
(BgL_n1z00_2716>((long)0)); }  else 
{ /* ./Expand/initial.scm 114 */
BgL_test1436z00_184 = ((bool_t)0); } } 
if(BgL_test1436z00_184)
{ /* ./Expand/initial.scm 119 */
obj_t BgL_arg1438z00_185;obj_t BgL_arg1440z00_186;
BgL_arg1438z00_185 = 
CNST_TABLE_REF(((long)138)); 
{ /* ./Expand/initial.scm 116 */
obj_t BgL_arg1444z00_187;obj_t BgL_arg1446z00_188;
{ /* ./Expand/initial.scm 116 */
int BgL_auxz00_6365;
BgL_auxz00_6365 = 
(int)(((long)0)); 
BgL_arg1444z00_187 = 
STRUCT_REF(BgL_locz00_183, BgL_auxz00_6365); } 
{ /* ./Expand/initial.scm 117 */
obj_t BgL_arg1450z00_189;obj_t BgL_arg1451z00_190;
{ /* ./Expand/initial.scm 117 */
int BgL_auxz00_6368;
BgL_auxz00_6368 = 
(int)(((long)1)); 
BgL_arg1450z00_189 = 
STRUCT_REF(BgL_locz00_183, BgL_auxz00_6368); } 
{ /* ./Expand/initial.scm 118 */
obj_t BgL_arg1456z00_191;
{ /* ./Expand/initial.scm 118 */
obj_t BgL_l1099z00_193;
BgL_l1099z00_193 = 
CDR(BgL_xz00_180); 
{ /* ./Expand/initial.scm 118 */
bool_t BgL_test1459z00_194;
BgL_test1459z00_194 = 
NULLP(BgL_l1099z00_193); 
if(BgL_test1459z00_194)
{ /* ./Expand/initial.scm 118 */
BgL_arg1456z00_191 = BNIL; }  else 
{ /* ./Expand/initial.scm 118 */
obj_t BgL_head1101z00_195;
BgL_head1101z00_195 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1099z00_196;obj_t BgL_tail1102z00_197;
BgL_l1099z00_196 = BgL_l1099z00_193; 
BgL_tail1102z00_197 = BgL_head1101z00_195; 
BgL_map1100z00_198:
{ /* ./Expand/initial.scm 118 */
bool_t BgL_test1461z00_199;
BgL_test1461z00_199 = 
NULLP(BgL_l1099z00_196); 
if(BgL_test1461z00_199)
{ /* ./Expand/initial.scm 118 */
BgL_arg1456z00_191 = 
CDR(BgL_head1101z00_195); }  else 
{ /* ./Expand/initial.scm 118 */
obj_t BgL_newtail1103z00_200;
{ /* ./Expand/initial.scm 118 */
obj_t BgL_arg1470z00_202;
{ /* ./Expand/initial.scm 118 */
obj_t BgL_lz00_204;
BgL_lz00_204 = 
CAR(BgL_l1099z00_196); 
BgL_arg1470z00_202 = 
PROCEDURE_ENTRY(BgL_ez00_181)(BgL_ez00_181, BgL_lz00_204, BgL_ez00_181, BEOA); } 
BgL_newtail1103z00_200 = 
MAKE_PAIR(BgL_arg1470z00_202, BNIL); } 
SET_CDR(BgL_tail1102z00_197, BgL_newtail1103z00_200); 
{ /* ./Expand/initial.scm 118 */
obj_t BgL_arg1466z00_201;
BgL_arg1466z00_201 = 
CDR(BgL_l1099z00_196); 
{ 
obj_t BgL_tail1102z00_6385;obj_t BgL_l1099z00_6384;
BgL_l1099z00_6384 = BgL_arg1466z00_201; 
BgL_tail1102z00_6385 = BgL_newtail1103z00_200; 
BgL_tail1102z00_197 = BgL_tail1102z00_6385; 
BgL_l1099z00_196 = BgL_l1099z00_6384; 
goto BgL_map1100z00_198;} } } } } } } } 
BgL_arg1451z00_190 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1456z00_191, BNIL); } 
BgL_arg1446z00_188 = 
MAKE_PAIR(BgL_arg1450z00_189, BgL_arg1451z00_190); } 
BgL_arg1440z00_186 = 
MAKE_PAIR(BgL_arg1444z00_187, BgL_arg1446z00_188); } 
return 
MAKE_PAIR(BgL_arg1438z00_185, BgL_arg1440z00_186);}  else 
{ /* ./Expand/initial.scm 120 */
obj_t BgL_arg1480z00_205;obj_t BgL_arg1481z00_206;
BgL_arg1480z00_205 = 
CNST_TABLE_REF(((long)14)); 
{ /* ./Expand/initial.scm 120 */
obj_t BgL_arg1484z00_207;
{ /* ./Expand/initial.scm 120 */
obj_t BgL_l1104z00_209;
BgL_l1104z00_209 = 
CDR(BgL_xz00_180); 
{ /* ./Expand/initial.scm 120 */
bool_t BgL_test1488z00_210;
BgL_test1488z00_210 = 
NULLP(BgL_l1104z00_209); 
if(BgL_test1488z00_210)
{ /* ./Expand/initial.scm 120 */
BgL_arg1484z00_207 = BNIL; }  else 
{ /* ./Expand/initial.scm 120 */
obj_t BgL_head1106z00_211;
BgL_head1106z00_211 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1104z00_212;obj_t BgL_tail1107z00_213;
BgL_l1104z00_212 = BgL_l1104z00_209; 
BgL_tail1107z00_213 = BgL_head1106z00_211; 
BgL_map1105z00_214:
{ /* ./Expand/initial.scm 120 */
bool_t BgL_test1490z00_215;
BgL_test1490z00_215 = 
NULLP(BgL_l1104z00_212); 
if(BgL_test1490z00_215)
{ /* ./Expand/initial.scm 120 */
BgL_arg1484z00_207 = 
CDR(BgL_head1106z00_211); }  else 
{ /* ./Expand/initial.scm 120 */
obj_t BgL_newtail1108z00_216;
{ /* ./Expand/initial.scm 120 */
obj_t BgL_arg1498z00_218;
{ /* ./Expand/initial.scm 120 */
obj_t BgL_lz00_220;
BgL_lz00_220 = 
CAR(BgL_l1104z00_212); 
BgL_arg1498z00_218 = 
PROCEDURE_ENTRY(BgL_ez00_181)(BgL_ez00_181, BgL_lz00_220, BgL_ez00_181, BEOA); } 
BgL_newtail1108z00_216 = 
MAKE_PAIR(BgL_arg1498z00_218, BNIL); } 
SET_CDR(BgL_tail1107z00_213, BgL_newtail1108z00_216); 
{ /* ./Expand/initial.scm 120 */
obj_t BgL_arg1494z00_217;
BgL_arg1494z00_217 = 
CDR(BgL_l1104z00_212); 
{ 
obj_t BgL_tail1107z00_6405;obj_t BgL_l1104z00_6404;
BgL_l1104z00_6404 = BgL_arg1494z00_217; 
BgL_tail1107z00_6405 = BgL_newtail1108z00_216; 
BgL_tail1107z00_213 = BgL_tail1107z00_6405; 
BgL_l1104z00_212 = BgL_l1104z00_6404; 
goto BgL_map1105z00_214;} } } } } } } } 
BgL_arg1481z00_206 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1484z00_207, BNIL); } 
return 
MAKE_PAIR(BgL_arg1480z00_205, BgL_arg1481z00_206);} } } } } 
}



/* <anonymous:1268> */
obj_t BGl_zc3anonymousza31268ze3z83zzexpand_installz00(obj_t BgL_envz00_3860, obj_t BgL_xz00_3861, obj_t BgL_ez00_3862)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 92 */
{ 
obj_t BgL_xz00_94;obj_t BgL_ez00_95;
BgL_xz00_94 = BgL_xz00_3861; 
BgL_ez00_95 = BgL_ez00_3862; 
{ /* ./Expand/initial.scm 93 */
obj_t BgL_locz00_97;
BgL_locz00_97 = 
BGl_findzd2locationzd2zztools_locationz00(BgL_xz00_94); 
{ /* ./Expand/initial.scm 94 */
bool_t BgL_test1269z00_98;
{ /* ./Expand/initial.scm 94 */
bool_t BgL_test1427z00_176;
if(
STRUCTP(BgL_locz00_97))
{ /* ./Expand/initial.scm 94 */
obj_t BgL_auxz00_6413;obj_t BgL_auxz00_6411;
BgL_auxz00_6413 = 
CNST_TABLE_REF(((long)137)); 
BgL_auxz00_6411 = 
STRUCT_KEY(BgL_locz00_97); 
BgL_test1427z00_176 = 
(BgL_auxz00_6411==BgL_auxz00_6413); }  else 
{ /* ./Expand/initial.scm 94 */
BgL_test1427z00_176 = ((bool_t)0); } 
if(BgL_test1427z00_176)
{ /* ./Expand/initial.scm 95 */
long BgL_n1z00_2662;
BgL_n1z00_2662 = 
(long)CINT(BGl_za2compilerzd2debugza2zd2zzengine_paramz00); 
BgL_test1269z00_98 = 
(BgL_n1z00_2662>((long)0)); }  else 
{ /* ./Expand/initial.scm 94 */
BgL_test1269z00_98 = ((bool_t)0); } } 
if(BgL_test1269z00_98)
{ 
obj_t BgL_l1z00_99;obj_t BgL_l2z00_100;obj_t BgL_l3z00_101;obj_t BgL_listz00_103;
{ /* ./Expand/initial.scm 96 */
bool_t BgL_test1270z00_106;
BgL_test1270z00_106 = 
PAIRP(BgL_xz00_94); 
if(BgL_test1270z00_106)
{ /* ./Expand/initial.scm 96 */
obj_t BgL_cdrzd2112zd2_107;
BgL_cdrzd2112zd2_107 = 
CDR(BgL_xz00_94); 
{ /* ./Expand/initial.scm 96 */
bool_t BgL_test1271z00_108;
BgL_test1271z00_108 = 
PAIRP(BgL_cdrzd2112zd2_107); 
if(BgL_test1271z00_108)
{ /* ./Expand/initial.scm 96 */
obj_t BgL_cdrzd2117zd2_109;
BgL_cdrzd2117zd2_109 = 
CDR(BgL_cdrzd2112zd2_107); 
{ /* ./Expand/initial.scm 96 */
bool_t BgL_test1272z00_110;
BgL_test1272z00_110 = 
PAIRP(BgL_cdrzd2117zd2_109); 
if(BgL_test1272z00_110)
{ /* ./Expand/initial.scm 96 */
obj_t BgL_cdrzd2122zd2_111;
BgL_cdrzd2122zd2_111 = 
CDR(BgL_cdrzd2117zd2_109); 
{ /* ./Expand/initial.scm 96 */
bool_t BgL_test1273z00_112;
BgL_test1273z00_112 = 
PAIRP(BgL_cdrzd2122zd2_111); 
if(BgL_test1273z00_112)
{ /* ./Expand/initial.scm 96 */
bool_t BgL_test1274z00_113;
{ /* ./Expand/initial.scm 96 */
obj_t BgL_auxz00_6431;
BgL_auxz00_6431 = 
CDR(BgL_cdrzd2122zd2_111); 
BgL_test1274z00_113 = 
NULLP(BgL_auxz00_6431); } 
if(BgL_test1274z00_113)
{ /* ./Expand/initial.scm 96 */
obj_t BgL_arg1276z00_114;obj_t BgL_arg1277z00_115;obj_t BgL_arg1278z00_116;
BgL_arg1276z00_114 = 
CAR(BgL_cdrzd2112zd2_107); 
BgL_arg1277z00_115 = 
CAR(BgL_cdrzd2117zd2_109); 
BgL_arg1278z00_116 = 
CAR(BgL_cdrzd2122zd2_111); 
BgL_l1z00_99 = BgL_arg1276z00_114; 
BgL_l2z00_100 = BgL_arg1277z00_115; 
BgL_l3z00_101 = BgL_arg1278z00_116; 
{ /* ./Expand/initial.scm 98 */
obj_t BgL_arg1311z00_122;obj_t BgL_arg1312z00_123;
BgL_arg1311z00_122 = 
CNST_TABLE_REF(((long)86)); 
{ /* ./Expand/initial.scm 99 */
obj_t BgL_arg1315z00_124;obj_t BgL_arg1316z00_125;
{ /* ./Expand/initial.scm 99 */
obj_t BgL_arg1319z00_126;obj_t BgL_arg1320z00_127;
BgL_arg1319z00_126 = 
CNST_TABLE_REF(((long)139)); 
{ /* ./Expand/initial.scm 99 */
obj_t BgL_arg1323z00_128;obj_t BgL_arg1324z00_129;
BgL_arg1323z00_128 = 
PROCEDURE_ENTRY(BgL_ez00_95)(BgL_ez00_95, BgL_l1z00_99, BgL_ez00_95, BEOA); 
{ /* ./Expand/initial.scm 100 */
obj_t BgL_arg1328z00_130;obj_t BgL_arg1329z00_131;
BgL_arg1328z00_130 = 
PROCEDURE_ENTRY(BgL_ez00_95)(BgL_ez00_95, BgL_l2z00_100, BgL_ez00_95, BEOA); 
{ /* ./Expand/initial.scm 101 */
obj_t BgL_arg1333z00_132;obj_t BgL_arg1334z00_133;
BgL_arg1333z00_132 = 
PROCEDURE_ENTRY(BgL_ez00_95)(BgL_ez00_95, BgL_l3z00_101, BgL_ez00_95, BEOA); 
{ /* ./Expand/initial.scm 102 */
obj_t BgL_arg1338z00_134;obj_t BgL_arg1340z00_135;
{ /* ./Expand/initial.scm 102 */
int BgL_auxz00_6446;
BgL_auxz00_6446 = 
(int)(((long)0)); 
BgL_arg1338z00_134 = 
STRUCT_REF(BgL_locz00_97, BgL_auxz00_6446); } 
{ /* ./Expand/initial.scm 103 */
obj_t BgL_arg1344z00_136;
{ /* ./Expand/initial.scm 103 */
int BgL_auxz00_6449;
BgL_auxz00_6449 = 
(int)(((long)1)); 
BgL_arg1344z00_136 = 
STRUCT_REF(BgL_locz00_97, BgL_auxz00_6449); } 
BgL_arg1340z00_135 = 
MAKE_PAIR(BgL_arg1344z00_136, BNIL); } 
BgL_arg1334z00_133 = 
MAKE_PAIR(BgL_arg1338z00_134, BgL_arg1340z00_135); } 
BgL_arg1329z00_131 = 
MAKE_PAIR(BgL_arg1333z00_132, BgL_arg1334z00_133); } 
BgL_arg1324z00_129 = 
MAKE_PAIR(BgL_arg1328z00_130, BgL_arg1329z00_131); } 
BgL_arg1320z00_127 = 
MAKE_PAIR(BgL_arg1323z00_128, BgL_arg1324z00_129); } 
BgL_arg1315z00_124 = 
MAKE_PAIR(BgL_arg1319z00_126, BgL_arg1320z00_127); } 
{ /* ./Expand/initial.scm 104 */
obj_t BgL_arg1349z00_138;
{ /* ./Expand/initial.scm 104 */
obj_t BgL_arg1355z00_140;obj_t BgL_arg1356z00_141;
BgL_arg1355z00_140 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Expand/initial.scm 104 */
obj_t BgL_arg1359z00_142;
{ /* ./Expand/initial.scm 104 */
obj_t BgL_arg1362z00_143;
BgL_arg1362z00_143 = 
MAKE_PAIR(BFALSE, BNIL); 
BgL_arg1359z00_142 = 
MAKE_PAIR(BFALSE, BgL_arg1362z00_143); } 
BgL_arg1356z00_141 = 
MAKE_PAIR(BFALSE, BgL_arg1359z00_142); } 
BgL_arg1349z00_138 = 
MAKE_PAIR(BgL_arg1355z00_140, BgL_arg1356z00_141); } 
BgL_arg1316z00_125 = 
MAKE_PAIR(BgL_arg1349z00_138, BNIL); } 
BgL_arg1312z00_123 = 
MAKE_PAIR(BgL_arg1315z00_124, BgL_arg1316z00_125); } 
return 
MAKE_PAIR(BgL_arg1311z00_122, BgL_arg1312z00_123);} }  else 
{ /* ./Expand/initial.scm 96 */
BgL_listz00_103 = BgL_cdrzd2112zd2_107; 
BgL_tagzd2102zd2_104:
{ /* ./Expand/initial.scm 106 */
obj_t BgL_arg1366z00_144;obj_t BgL_arg1368z00_145;
BgL_arg1366z00_144 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Expand/initial.scm 106 */
obj_t BgL_arg1371z00_146;
{ /* ./Expand/initial.scm 106 */
bool_t BgL_test1374z00_149;
BgL_test1374z00_149 = 
NULLP(BgL_listz00_103); 
if(BgL_test1374z00_149)
{ /* ./Expand/initial.scm 106 */
BgL_arg1371z00_146 = BNIL; }  else 
{ /* ./Expand/initial.scm 106 */
obj_t BgL_head1091z00_150;
BgL_head1091z00_150 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1089z00_151;obj_t BgL_tail1092z00_152;
BgL_l1089z00_151 = BgL_listz00_103; 
BgL_tail1092z00_152 = BgL_head1091z00_150; 
BgL_map1090z00_153:
{ /* ./Expand/initial.scm 106 */
bool_t BgL_test1376z00_154;
BgL_test1376z00_154 = 
NULLP(BgL_l1089z00_151); 
if(BgL_test1376z00_154)
{ /* ./Expand/initial.scm 106 */
BgL_arg1371z00_146 = 
CDR(BgL_head1091z00_150); }  else 
{ /* ./Expand/initial.scm 106 */
obj_t BgL_newtail1093z00_155;
{ /* ./Expand/initial.scm 106 */
obj_t BgL_arg1388z00_157;
{ /* ./Expand/initial.scm 106 */
obj_t BgL_lz00_159;
BgL_lz00_159 = 
CAR(BgL_l1089z00_151); 
BgL_arg1388z00_157 = 
PROCEDURE_ENTRY(BgL_ez00_95)(BgL_ez00_95, BgL_lz00_159, BgL_ez00_95, BEOA); } 
BgL_newtail1093z00_155 = 
MAKE_PAIR(BgL_arg1388z00_157, BNIL); } 
SET_CDR(BgL_tail1092z00_152, BgL_newtail1093z00_155); 
{ /* ./Expand/initial.scm 106 */
obj_t BgL_arg1382z00_156;
BgL_arg1382z00_156 = 
CDR(BgL_l1089z00_151); 
{ 
obj_t BgL_tail1092z00_6480;obj_t BgL_l1089z00_6479;
BgL_l1089z00_6479 = BgL_arg1382z00_156; 
BgL_tail1092z00_6480 = BgL_newtail1093z00_155; 
BgL_tail1092z00_152 = BgL_tail1092z00_6480; 
BgL_l1089z00_151 = BgL_l1089z00_6479; 
goto BgL_map1090z00_153;} } } } } } } 
BgL_arg1368z00_145 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1371z00_146, BNIL); } 
return 
MAKE_PAIR(BgL_arg1366z00_144, BgL_arg1368z00_145);} } }  else 
{ 
obj_t BgL_listz00_6483;
BgL_listz00_6483 = BgL_cdrzd2112zd2_107; 
BgL_listz00_103 = BgL_listz00_6483; 
goto BgL_tagzd2102zd2_104;} } }  else 
{ 
obj_t BgL_listz00_6484;
BgL_listz00_6484 = BgL_cdrzd2112zd2_107; 
BgL_listz00_103 = BgL_listz00_6484; 
goto BgL_tagzd2102zd2_104;} } }  else 
{ 
obj_t BgL_listz00_6485;
BgL_listz00_6485 = BgL_cdrzd2112zd2_107; 
BgL_listz00_103 = BgL_listz00_6485; 
goto BgL_tagzd2102zd2_104;} } }  else 
{ /* ./Expand/initial.scm 96 */
return BFALSE;} } }  else 
{ /* ./Expand/initial.scm 107 */
obj_t BgL_arg1398z00_160;obj_t BgL_arg1400z00_161;
BgL_arg1398z00_160 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Expand/initial.scm 107 */
obj_t BgL_arg1403z00_162;
{ /* ./Expand/initial.scm 107 */
obj_t BgL_l1094z00_164;
BgL_l1094z00_164 = 
CDR(BgL_xz00_94); 
{ /* ./Expand/initial.scm 107 */
bool_t BgL_test1408z00_165;
BgL_test1408z00_165 = 
NULLP(BgL_l1094z00_164); 
if(BgL_test1408z00_165)
{ /* ./Expand/initial.scm 107 */
BgL_arg1403z00_162 = BNIL; }  else 
{ /* ./Expand/initial.scm 107 */
obj_t BgL_head1096z00_166;
BgL_head1096z00_166 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1094z00_167;obj_t BgL_tail1097z00_168;
BgL_l1094z00_167 = BgL_l1094z00_164; 
BgL_tail1097z00_168 = BgL_head1096z00_166; 
BgL_map1095z00_169:
{ /* ./Expand/initial.scm 107 */
bool_t BgL_test1410z00_170;
BgL_test1410z00_170 = 
NULLP(BgL_l1094z00_167); 
if(BgL_test1410z00_170)
{ /* ./Expand/initial.scm 107 */
BgL_arg1403z00_162 = 
CDR(BgL_head1096z00_166); }  else 
{ /* ./Expand/initial.scm 107 */
obj_t BgL_newtail1098z00_171;
{ /* ./Expand/initial.scm 107 */
obj_t BgL_arg1418z00_173;
{ /* ./Expand/initial.scm 107 */
obj_t BgL_lz00_175;
BgL_lz00_175 = 
CAR(BgL_l1094z00_167); 
BgL_arg1418z00_173 = 
PROCEDURE_ENTRY(BgL_ez00_95)(BgL_ez00_95, BgL_lz00_175, BgL_ez00_95, BEOA); } 
BgL_newtail1098z00_171 = 
MAKE_PAIR(BgL_arg1418z00_173, BNIL); } 
SET_CDR(BgL_tail1097z00_168, BgL_newtail1098z00_171); 
{ /* ./Expand/initial.scm 107 */
obj_t BgL_arg1414z00_172;
BgL_arg1414z00_172 = 
CDR(BgL_l1094z00_167); 
{ 
obj_t BgL_tail1097z00_6501;obj_t BgL_l1094z00_6500;
BgL_l1094z00_6500 = BgL_arg1414z00_172; 
BgL_tail1097z00_6501 = BgL_newtail1098z00_171; 
BgL_tail1097z00_168 = BgL_tail1097z00_6501; 
BgL_l1094z00_167 = BgL_l1094z00_6500; 
goto BgL_map1095z00_169;} } } } } } } } 
BgL_arg1400z00_161 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1403z00_162, BNIL); } 
return 
MAKE_PAIR(BgL_arg1398z00_160, BgL_arg1400z00_161);} } } } } 
}



/* call-check */
obj_t BGl_callzd2checkzd2zzexpand_installz00(obj_t BgL_xz00_15, obj_t BgL_predz00_16, char * BgL_tnamez00_17, obj_t BgL_ez00_18)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 863 */
{ /* ./Expand/initial.scm 864 */
obj_t BgL_funz00_2268;
BgL_funz00_2268 = 
CAR(BgL_xz00_15); 
{ /* ./Expand/initial.scm 864 */
obj_t BgL_actualsz00_2269;
BgL_actualsz00_2269 = 
CDR(BgL_xz00_15); 
{ /* ./Expand/initial.scm 865 */
obj_t BgL_formalsz00_2270;
{ /* ./Expand/initial.scm 866 */
bool_t BgL_test5352z00_2329;
BgL_test5352z00_2329 = 
NULLP(BgL_actualsz00_2269); 
if(BgL_test5352z00_2329)
{ /* ./Expand/initial.scm 866 */
BgL_formalsz00_2270 = BNIL; }  else 
{ /* ./Expand/initial.scm 866 */
obj_t BgL_head1178z00_2330;
BgL_head1178z00_2330 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1176z00_2331;obj_t BgL_tail1179z00_2332;
BgL_l1176z00_2331 = BgL_actualsz00_2269; 
BgL_tail1179z00_2332 = BgL_head1178z00_2330; 
BgL_map1177z00_2333:
{ /* ./Expand/initial.scm 866 */
bool_t BgL_test5354z00_2334;
BgL_test5354z00_2334 = 
NULLP(BgL_l1176z00_2331); 
if(BgL_test5354z00_2334)
{ /* ./Expand/initial.scm 866 */
BgL_formalsz00_2270 = 
CDR(BgL_head1178z00_2330); }  else 
{ /* ./Expand/initial.scm 866 */
obj_t BgL_newtail1180z00_2335;
{ /* ./Expand/initial.scm 866 */
obj_t BgL_arg5362z00_2337;
{ /* ./Expand/initial.scm 866 */
obj_t BgL_arg5366z00_2340;
BgL_arg5366z00_2340 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_arg5362z00_2337 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg5366z00_2340); } 
BgL_newtail1180z00_2335 = 
MAKE_PAIR(BgL_arg5362z00_2337, BNIL); } 
SET_CDR(BgL_tail1179z00_2332, BgL_newtail1180z00_2335); 
{ /* ./Expand/initial.scm 866 */
obj_t BgL_arg5358z00_2336;
BgL_arg5358z00_2336 = 
CDR(BgL_l1176z00_2331); 
{ 
obj_t BgL_tail1179z00_6519;obj_t BgL_l1176z00_6518;
BgL_l1176z00_6518 = BgL_arg5358z00_2336; 
BgL_tail1179z00_6519 = BgL_newtail1180z00_2335; 
BgL_tail1179z00_2332 = BgL_tail1179z00_6519; 
BgL_l1176z00_2331 = BgL_l1176z00_6518; 
goto BgL_map1177z00_2333;} } } } } } } 
{ /* ./Expand/initial.scm 866 */
obj_t BgL_msgz00_2271;
{ /* ./Expand/initial.scm 867 */
obj_t BgL_arg5349z00_2327;
BgL_arg5349z00_2327 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_msgz00_2271 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg5349z00_2327); } 
{ /* ./Expand/initial.scm 867 */

{ /* ./Expand/initial.scm 868 */
obj_t BgL_arg5241z00_2272;obj_t BgL_arg5242z00_2273;
BgL_arg5241z00_2272 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 868 */
obj_t BgL_arg5245z00_2274;obj_t BgL_arg5246z00_2275;
{ /* ./Expand/initial.scm 868 */
obj_t BgL_arg5249z00_2276;obj_t BgL_arg5250z00_2277;
{ /* ./Expand/initial.scm 868 */
bool_t BgL_test5252z00_2280;
BgL_test5252z00_2280 = 
NULLP(BgL_formalsz00_2270); 
if(BgL_test5252z00_2280)
{ /* ./Expand/initial.scm 868 */
BgL_arg5249z00_2276 = BNIL; }  else 
{ /* ./Expand/initial.scm 868 */
obj_t BgL_head1183z00_2281;
BgL_head1183z00_2281 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_ll1181z00_2282;obj_t BgL_ll1182z00_2283;obj_t BgL_tail1184z00_2284;
BgL_ll1181z00_2282 = BgL_formalsz00_2270; 
BgL_ll1182z00_2283 = BgL_actualsz00_2269; 
BgL_tail1184z00_2284 = BgL_head1183z00_2281; 
BgL_map1186z00_2285:
{ /* ./Expand/initial.scm 868 */
bool_t BgL_test5254z00_2286;
BgL_test5254z00_2286 = 
NULLP(BgL_ll1181z00_2282); 
if(BgL_test5254z00_2286)
{ /* ./Expand/initial.scm 868 */
BgL_arg5249z00_2276 = 
CDR(BgL_head1183z00_2281); }  else 
{ /* ./Expand/initial.scm 868 */
obj_t BgL_newtail1185z00_2287;
{ /* ./Expand/initial.scm 868 */
obj_t BgL_arg5264z00_2290;
{ /* ./Expand/initial.scm 868 */
obj_t BgL_fz00_2292;obj_t BgL_vz00_2293;
BgL_fz00_2292 = 
CAR(BgL_ll1181z00_2282); 
BgL_vz00_2293 = 
CAR(BgL_ll1182z00_2283); 
{ /* ./Expand/initial.scm 868 */
obj_t BgL_arg5268z00_2294;
BgL_arg5268z00_2294 = 
PROCEDURE_ENTRY(BgL_ez00_18)(BgL_ez00_18, BgL_vz00_2293, BgL_ez00_18, BEOA); 
{ /* ./Expand/initial.scm 868 */
obj_t BgL_list5270z00_2295;
{ /* ./Expand/initial.scm 868 */
obj_t BgL_arg5272z00_2296;
BgL_arg5272z00_2296 = 
MAKE_PAIR(BgL_arg5268z00_2294, BNIL); 
BgL_list5270z00_2295 = 
MAKE_PAIR(BgL_fz00_2292, BgL_arg5272z00_2296); } 
BgL_arg5264z00_2290 = BgL_list5270z00_2295; } } } 
BgL_newtail1185z00_2287 = 
MAKE_PAIR(BgL_arg5264z00_2290, BNIL); } 
SET_CDR(BgL_tail1184z00_2284, BgL_newtail1185z00_2287); 
{ /* ./Expand/initial.scm 868 */
obj_t BgL_arg5258z00_2288;obj_t BgL_arg5259z00_2289;
BgL_arg5258z00_2288 = 
CDR(BgL_ll1181z00_2282); 
BgL_arg5259z00_2289 = 
CDR(BgL_ll1182z00_2283); 
{ 
obj_t BgL_tail1184z00_6542;obj_t BgL_ll1182z00_6541;obj_t BgL_ll1181z00_6540;
BgL_ll1181z00_6540 = BgL_arg5258z00_2288; 
BgL_ll1182z00_6541 = BgL_arg5259z00_2289; 
BgL_tail1184z00_6542 = BgL_newtail1185z00_2287; 
BgL_tail1184z00_2284 = BgL_tail1184z00_6542; 
BgL_ll1182z00_2283 = BgL_ll1182z00_6541; 
BgL_ll1181z00_2282 = BgL_ll1181z00_6540; 
goto BgL_map1186z00_2285;} } } } } } } 
{ /* ./Expand/initial.scm 869 */
obj_t BgL_arg5282z00_2297;
{ /* ./Expand/initial.scm 869 */
obj_t BgL_arg5286z00_2299;
{ /* ./Expand/initial.scm 869 */
obj_t BgL_arg5289z00_2300;
{ /* ./Expand/initial.scm 869 */
obj_t BgL_arg5293z00_2302;
BgL_arg5293z00_2302 = 
SYMBOL_TO_STRING(BgL_funz00_2268); 
{ /* ./Expand/initial.scm 869 */
obj_t BgL_auxz00_6544;
BgL_auxz00_6544 = 
string_to_bstring(BgL_tnamez00_17); 
BgL_arg5289z00_2300 = 
string_append_3(BgL_arg5293z00_2302, BGl_string6434z00zzexpand_installz00, BgL_auxz00_6544); } } 
BgL_arg5286z00_2299 = 
MAKE_PAIR(BgL_arg5289z00_2300, BNIL); } 
BgL_arg5282z00_2297 = 
MAKE_PAIR(BgL_msgz00_2271, BgL_arg5286z00_2299); } 
BgL_arg5250z00_2277 = 
MAKE_PAIR(BgL_arg5282z00_2297, BNIL); } 
BgL_arg5245z00_2274 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg5249z00_2276, BgL_arg5250z00_2277); } 
{ /* ./Expand/initial.scm 871 */
obj_t BgL_arg5298z00_2304;
BgL_arg5298z00_2304 = 
BGl_loopz72z72zzexpand_installz00(BgL_formalsz00_2270, BgL_funz00_2268, BgL_msgz00_2271, BgL_predz00_16, BgL_formalsz00_2270); 
BgL_arg5246z00_2275 = 
MAKE_PAIR(BgL_arg5298z00_2304, BNIL); } 
BgL_arg5242z00_2273 = 
MAKE_PAIR(BgL_arg5245z00_2274, BgL_arg5246z00_2275); } 
return 
MAKE_PAIR(BgL_arg5241z00_2272, BgL_arg5242z00_2273);} } } } } } } 
}



/* loop' */
obj_t BGl_loopz72z72zzexpand_installz00(obj_t BgL_formalsz00_4034, obj_t BgL_funz00_4033, obj_t BgL_msgz00_4032, obj_t BgL_predz00_4031, obj_t BgL_argsz00_2306)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 871 */
{ /* ./Expand/initial.scm 872 */
bool_t BgL_test5302z00_2308;
BgL_test5302z00_2308 = 
NULLP(BgL_argsz00_2306); 
if(BgL_test5302z00_2308)
{ /* ./Expand/initial.scm 872 */
return 
MAKE_PAIR(BgL_funz00_4033, BgL_formalsz00_4034);}  else 
{ /* ./Expand/initial.scm 876 */
obj_t BgL_arg5305z00_2309;obj_t BgL_arg5306z00_2310;
BgL_arg5305z00_2309 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/initial.scm 874 */
obj_t BgL_arg5309z00_2311;obj_t BgL_arg5310z00_2312;
{ /* ./Expand/initial.scm 874 */
obj_t BgL_arg5313z00_2313;
{ /* ./Expand/initial.scm 874 */
obj_t BgL_arg5316z00_2314;
BgL_arg5316z00_2314 = 
CAR(BgL_argsz00_2306); 
BgL_arg5313z00_2313 = 
MAKE_PAIR(BgL_arg5316z00_2314, BNIL); } 
BgL_arg5309z00_2311 = 
MAKE_PAIR(BgL_predz00_4031, BgL_arg5313z00_2313); } 
{ /* ./Expand/initial.scm 875 */
obj_t BgL_arg5321z00_2316;obj_t BgL_arg5322z00_2317;
{ /* ./Expand/initial.scm 875 */
obj_t BgL_arg5325z00_2318;
BgL_arg5325z00_2318 = 
CDR(BgL_argsz00_2306); 
BgL_arg5321z00_2316 = 
BGl_loopz72z72zzexpand_installz00(BgL_formalsz00_4034, BgL_funz00_4033, BgL_msgz00_4032, BgL_predz00_4031, BgL_arg5325z00_2318); } 
{ /* ./Expand/initial.scm 876 */
obj_t BgL_arg5329z00_2319;
{ /* ./Expand/initial.scm 876 */
obj_t BgL_arg5333z00_2321;obj_t BgL_arg5334z00_2322;
BgL_arg5333z00_2321 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Expand/initial.scm 876 */
obj_t BgL_arg5337z00_2323;
{ /* ./Expand/initial.scm 876 */
obj_t BgL_arg5340z00_2324;
{ /* ./Expand/initial.scm 876 */
obj_t BgL_arg5343z00_2325;
BgL_arg5343z00_2325 = 
CAR(BgL_argsz00_2306); 
BgL_arg5340z00_2324 = 
MAKE_PAIR(BgL_arg5343z00_2325, BNIL); } 
BgL_arg5337z00_2323 = 
MAKE_PAIR(BgL_msgz00_4032, BgL_arg5340z00_2324); } 
BgL_arg5334z00_2322 = 
MAKE_PAIR(BFALSE, BgL_arg5337z00_2323); } 
BgL_arg5329z00_2319 = 
MAKE_PAIR(BgL_arg5333z00_2321, BgL_arg5334z00_2322); } 
BgL_arg5322z00_2317 = 
MAKE_PAIR(BgL_arg5329z00_2319, BNIL); } 
BgL_arg5310z00_2312 = 
MAKE_PAIR(BgL_arg5321z00_2316, BgL_arg5322z00_2317); } 
BgL_arg5306z00_2310 = 
MAKE_PAIR(BgL_arg5309z00_2311, BgL_arg5310z00_2312); } 
return 
MAKE_PAIR(BgL_arg5305z00_2309, BgL_arg5306z00_2310);} } } 
}



/* bound-check */
obj_t BGl_boundzd2checkzd2zzexpand_installz00(obj_t BgL_xz00_19, obj_t BgL_flenz00_20, obj_t BgL_predz00_21, obj_t BgL_ez00_22)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 881 */
{ 
obj_t BgL_funz00_2341;obj_t BgL_aobjz00_2342;obj_t BgL_aoffz00_2343;obj_t BgL_restz00_2344;
{ /* ./Expand/initial.scm 882 */
bool_t BgL_test5375z00_2348;
BgL_test5375z00_2348 = 
PAIRP(BgL_xz00_19); 
if(BgL_test5375z00_2348)
{ /* ./Expand/initial.scm 882 */
obj_t BgL_cdrzd22027zd2_2349;
BgL_cdrzd22027zd2_2349 = 
CDR(BgL_xz00_19); 
{ /* ./Expand/initial.scm 882 */
bool_t BgL_test5376z00_2350;
BgL_test5376z00_2350 = 
PAIRP(BgL_cdrzd22027zd2_2349); 
if(BgL_test5376z00_2350)
{ /* ./Expand/initial.scm 882 */
obj_t BgL_cdrzd22033zd2_2351;
BgL_cdrzd22033zd2_2351 = 
CDR(BgL_cdrzd22027zd2_2349); 
{ /* ./Expand/initial.scm 882 */
bool_t BgL_test5377z00_2352;
BgL_test5377z00_2352 = 
PAIRP(BgL_cdrzd22033zd2_2351); 
if(BgL_test5377z00_2352)
{ /* ./Expand/initial.scm 882 */
obj_t BgL_arg5379z00_2353;obj_t BgL_arg5380z00_2354;obj_t BgL_arg5381z00_2355;obj_t BgL_arg5382z00_2356;
BgL_arg5379z00_2353 = 
CAR(BgL_xz00_19); 
BgL_arg5380z00_2354 = 
CAR(BgL_cdrzd22027zd2_2349); 
BgL_arg5381z00_2355 = 
CAR(BgL_cdrzd22033zd2_2351); 
BgL_arg5382z00_2356 = 
CDR(BgL_cdrzd22033zd2_2351); 
BgL_funz00_2341 = BgL_arg5379z00_2353; 
BgL_aobjz00_2342 = BgL_arg5380z00_2354; 
BgL_aoffz00_2343 = BgL_arg5381z00_2355; 
BgL_restz00_2344 = BgL_arg5382z00_2356; 
{ /* ./Expand/initial.scm 884 */
obj_t BgL_fobjz00_2357;obj_t BgL_foffz00_2358;obj_t BgL_lenz00_2359;
{ /* ./Expand/initial.scm 884 */
obj_t BgL_arg5531z00_2422;
BgL_arg5531z00_2422 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_fobjz00_2357 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg5531z00_2422); } 
{ /* ./Expand/initial.scm 885 */
obj_t BgL_arg5535z00_2423;
BgL_arg5535z00_2423 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_foffz00_2358 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg5535z00_2423); } 
{ /* ./Expand/initial.scm 886 */
obj_t BgL_arg5539z00_2424;
BgL_arg5539z00_2424 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_lenz00_2359 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg5539z00_2424); } 
{ /* ./Expand/initial.scm 887 */
obj_t BgL_arg5397z00_2360;obj_t BgL_arg5398z00_2361;
BgL_arg5397z00_2360 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 887 */
obj_t BgL_arg5401z00_2362;obj_t BgL_arg5402z00_2363;
{ /* ./Expand/initial.scm 887 */
obj_t BgL_arg5405z00_2364;obj_t BgL_arg5406z00_2365;
{ /* ./Expand/initial.scm 887 */
obj_t BgL_arg5409z00_2366;
{ /* ./Expand/initial.scm 887 */
obj_t BgL_arg5412z00_2367;
BgL_arg5412z00_2367 = 
PROCEDURE_ENTRY(BgL_ez00_22)(BgL_ez00_22, BgL_aobjz00_2342, BgL_ez00_22, BEOA); 
BgL_arg5409z00_2366 = 
MAKE_PAIR(BgL_arg5412z00_2367, BNIL); } 
BgL_arg5405z00_2364 = 
MAKE_PAIR(BgL_fobjz00_2357, BgL_arg5409z00_2366); } 
{ /* ./Expand/initial.scm 888 */
obj_t BgL_arg5417z00_2369;
{ /* ./Expand/initial.scm 888 */
obj_t BgL_arg5421z00_2371;
{ /* ./Expand/initial.scm 888 */
obj_t BgL_arg5424z00_2372;
BgL_arg5424z00_2372 = 
PROCEDURE_ENTRY(BgL_ez00_22)(BgL_ez00_22, BgL_aoffz00_2343, BgL_ez00_22, BEOA); 
BgL_arg5421z00_2371 = 
MAKE_PAIR(BgL_arg5424z00_2372, BNIL); } 
BgL_arg5417z00_2369 = 
MAKE_PAIR(BgL_foffz00_2358, BgL_arg5421z00_2371); } 
BgL_arg5406z00_2365 = 
MAKE_PAIR(BgL_arg5417z00_2369, BNIL); } 
BgL_arg5401z00_2362 = 
MAKE_PAIR(BgL_arg5405z00_2364, BgL_arg5406z00_2365); } 
{ /* ./Expand/initial.scm 889 */
obj_t BgL_arg5429z00_2374;
{ /* ./Expand/initial.scm 889 */
obj_t BgL_arg5433z00_2376;obj_t BgL_arg5434z00_2377;
BgL_arg5433z00_2376 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 889 */
obj_t BgL_arg5437z00_2378;obj_t BgL_arg5438z00_2379;
{ /* ./Expand/initial.scm 889 */
obj_t BgL_arg5441z00_2380;
{ /* ./Expand/initial.scm 889 */
obj_t BgL_arg5445z00_2382;
{ /* ./Expand/initial.scm 889 */
obj_t BgL_arg5448z00_2383;
{ /* ./Expand/initial.scm 889 */
obj_t BgL_arg5452z00_2385;
BgL_arg5452z00_2385 = 
MAKE_PAIR(BgL_fobjz00_2357, BNIL); 
BgL_arg5448z00_2383 = 
MAKE_PAIR(BgL_flenz00_20, BgL_arg5452z00_2385); } 
BgL_arg5445z00_2382 = 
MAKE_PAIR(BgL_arg5448z00_2383, BNIL); } 
BgL_arg5441z00_2380 = 
MAKE_PAIR(BgL_lenz00_2359, BgL_arg5445z00_2382); } 
BgL_arg5437z00_2378 = 
MAKE_PAIR(BgL_arg5441z00_2380, BNIL); } 
{ /* ./Expand/initial.scm 890 */
obj_t BgL_arg5456z00_2386;
{ /* ./Expand/initial.scm 890 */
obj_t BgL_arg5460z00_2388;obj_t BgL_arg5461z00_2389;
BgL_arg5460z00_2388 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/initial.scm 890 */
obj_t BgL_arg5464z00_2390;obj_t BgL_arg5465z00_2391;
{ /* ./Expand/initial.scm 890 */
obj_t BgL_arg5468z00_2392;
{ /* ./Expand/initial.scm 890 */
obj_t BgL_arg5471z00_2393;
BgL_arg5471z00_2393 = 
MAKE_PAIR(BgL_lenz00_2359, BNIL); 
BgL_arg5468z00_2392 = 
MAKE_PAIR(BgL_foffz00_2358, BgL_arg5471z00_2393); } 
BgL_arg5464z00_2390 = 
MAKE_PAIR(BgL_predz00_21, BgL_arg5468z00_2392); } 
{ /* ./Expand/initial.scm 891 */
obj_t BgL_arg5475z00_2394;obj_t BgL_arg5476z00_2395;
{ /* ./Expand/initial.scm 891 */
obj_t BgL_arg5479z00_2396;
{ /* ./Expand/initial.scm 891 */
obj_t BgL_arg5482z00_2397;
{ /* ./Expand/initial.scm 891 */
obj_t BgL_arg5485z00_2398;
{ /* ./Expand/initial.scm 891 */
obj_t BgL_arg5488z00_2399;
{ /* ./Expand/initial.scm 891 */
bool_t BgL_test5491z00_2402;
BgL_test5491z00_2402 = 
NULLP(BgL_restz00_2344); 
if(BgL_test5491z00_2402)
{ /* ./Expand/initial.scm 891 */
BgL_arg5488z00_2399 = BNIL; }  else 
{ /* ./Expand/initial.scm 891 */
obj_t BgL_head1189z00_2403;
BgL_head1189z00_2403 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1187z00_2404;obj_t BgL_tail1190z00_2405;
BgL_l1187z00_2404 = BgL_restz00_2344; 
BgL_tail1190z00_2405 = BgL_head1189z00_2403; 
BgL_map1188z00_2406:
{ /* ./Expand/initial.scm 891 */
bool_t BgL_test5493z00_2407;
BgL_test5493z00_2407 = 
NULLP(BgL_l1187z00_2404); 
if(BgL_test5493z00_2407)
{ /* ./Expand/initial.scm 891 */
BgL_arg5488z00_2399 = 
CDR(BgL_head1189z00_2403); }  else 
{ /* ./Expand/initial.scm 891 */
obj_t BgL_newtail1191z00_2408;
{ /* ./Expand/initial.scm 891 */
obj_t BgL_arg5501z00_2410;
{ /* ./Expand/initial.scm 891 */
obj_t BgL_xz00_2412;
BgL_xz00_2412 = 
CAR(BgL_l1187z00_2404); 
BgL_arg5501z00_2410 = 
PROCEDURE_ENTRY(BgL_ez00_22)(BgL_ez00_22, BgL_xz00_2412, BgL_ez00_22, BEOA); } 
BgL_newtail1191z00_2408 = 
MAKE_PAIR(BgL_arg5501z00_2410, BNIL); } 
SET_CDR(BgL_tail1190z00_2405, BgL_newtail1191z00_2408); 
{ /* ./Expand/initial.scm 891 */
obj_t BgL_arg5497z00_2409;
BgL_arg5497z00_2409 = 
CDR(BgL_l1187z00_2404); 
{ 
obj_t BgL_tail1190z00_6629;obj_t BgL_l1187z00_6628;
BgL_l1187z00_6628 = BgL_arg5497z00_2409; 
BgL_tail1190z00_6629 = BgL_newtail1191z00_2408; 
BgL_tail1190z00_2405 = BgL_tail1190z00_6629; 
BgL_l1187z00_2404 = BgL_l1187z00_6628; 
goto BgL_map1188z00_2406;} } } } } } } 
BgL_arg5485z00_2398 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg5488z00_2399, BNIL); } 
BgL_arg5482z00_2397 = 
MAKE_PAIR(BgL_foffz00_2358, BgL_arg5485z00_2398); } 
BgL_arg5479z00_2396 = 
MAKE_PAIR(BgL_fobjz00_2357, BgL_arg5482z00_2397); } 
BgL_arg5475z00_2394 = 
MAKE_PAIR(BgL_funz00_2341, BgL_arg5479z00_2396); } 
{ /* ./Expand/initial.scm 892 */
obj_t BgL_arg5510z00_2413;
{ /* ./Expand/initial.scm 892 */
obj_t BgL_arg5514z00_2415;obj_t BgL_arg5515z00_2416;
BgL_arg5514z00_2415 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Expand/initial.scm 893 */
obj_t BgL_arg5518z00_2417;
{ /* ./Expand/initial.scm 893 */
obj_t BgL_arg5521z00_2418;obj_t BgL_arg5522z00_2419;
{ /* ./Expand/initial.scm 893 */
obj_t BgL_arg5525z00_2420;
BgL_arg5525z00_2420 = 
SYMBOL_TO_STRING(BgL_funz00_2341); 
BgL_arg5521z00_2418 = 
string_append(BgL_arg5525z00_2420, BGl_string6435z00zzexpand_installz00); } 
BgL_arg5522z00_2419 = 
MAKE_PAIR(BgL_foffz00_2358, BNIL); 
BgL_arg5518z00_2417 = 
MAKE_PAIR(BgL_arg5521z00_2418, BgL_arg5522z00_2419); } 
BgL_arg5515z00_2416 = 
MAKE_PAIR(BFALSE, BgL_arg5518z00_2417); } 
BgL_arg5510z00_2413 = 
MAKE_PAIR(BgL_arg5514z00_2415, BgL_arg5515z00_2416); } 
BgL_arg5476z00_2395 = 
MAKE_PAIR(BgL_arg5510z00_2413, BNIL); } 
BgL_arg5465z00_2391 = 
MAKE_PAIR(BgL_arg5475z00_2394, BgL_arg5476z00_2395); } 
BgL_arg5461z00_2389 = 
MAKE_PAIR(BgL_arg5464z00_2390, BgL_arg5465z00_2391); } 
BgL_arg5456z00_2386 = 
MAKE_PAIR(BgL_arg5460z00_2388, BgL_arg5461z00_2389); } 
BgL_arg5438z00_2379 = 
MAKE_PAIR(BgL_arg5456z00_2386, BNIL); } 
BgL_arg5434z00_2377 = 
MAKE_PAIR(BgL_arg5437z00_2378, BgL_arg5438z00_2379); } 
BgL_arg5429z00_2374 = 
MAKE_PAIR(BgL_arg5433z00_2376, BgL_arg5434z00_2377); } 
BgL_arg5402z00_2363 = 
MAKE_PAIR(BgL_arg5429z00_2374, BNIL); } 
BgL_arg5398z00_2361 = 
MAKE_PAIR(BgL_arg5401z00_2362, BgL_arg5402z00_2363); } 
return 
MAKE_PAIR(BgL_arg5397z00_2360, BgL_arg5398z00_2361);} } }  else 
{ /* ./Expand/initial.scm 882 */
BgL_tagzd22016zd2_2346:
FAILURE(BFALSE,BGl_string6436z00zzexpand_installz00,BgL_xz00_19);} } }  else 
{ /* ./Expand/initial.scm 882 */
goto BgL_tagzd22016zd2_2346;} } }  else 
{ /* ./Expand/initial.scm 882 */
goto BgL_tagzd22016zd2_2346;} } } } 
}



/* map-check */
obj_t BGl_mapzd2checkzd2zzexpand_installz00(obj_t BgL_xz00_23, obj_t BgL_ez00_24)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 902 */
{ 
obj_t BgL_opz00_2425;obj_t BgL_funz00_2426;obj_t BgL_actualsz00_2427;
{ /* ./Expand/initial.scm 903 */
bool_t BgL_test5543z00_2431;
BgL_test5543z00_2431 = 
PAIRP(BgL_xz00_23); 
if(BgL_test5543z00_2431)
{ /* ./Expand/initial.scm 903 */
obj_t BgL_cdrzd22051zd2_2432;
BgL_cdrzd22051zd2_2432 = 
CDR(BgL_xz00_23); 
{ /* ./Expand/initial.scm 903 */
bool_t BgL_test5544z00_2433;
BgL_test5544z00_2433 = 
PAIRP(BgL_cdrzd22051zd2_2432); 
if(BgL_test5544z00_2433)
{ /* ./Expand/initial.scm 903 */
obj_t BgL_arg5546z00_2434;obj_t BgL_arg5547z00_2435;obj_t BgL_arg5548z00_2436;
BgL_arg5546z00_2434 = 
CAR(BgL_xz00_23); 
BgL_arg5547z00_2435 = 
CAR(BgL_cdrzd22051zd2_2432); 
BgL_arg5548z00_2436 = 
CDR(BgL_cdrzd22051zd2_2432); 
BgL_opz00_2425 = BgL_arg5546z00_2434; 
BgL_funz00_2426 = BgL_arg5547z00_2435; 
BgL_actualsz00_2427 = BgL_arg5548z00_2436; 
{ /* ./Expand/initial.scm 905 */
obj_t BgL_formalsz00_2437;obj_t BgL_lformalsz00_2438;obj_t BgL_ufunz00_2439;obj_t BgL_msgzd2listzd2_2440;
{ /* ./Expand/initial.scm 905 */
bool_t BgL_test5837z00_2580;
BgL_test5837z00_2580 = 
NULLP(BgL_actualsz00_2427); 
if(BgL_test5837z00_2580)
{ /* ./Expand/initial.scm 905 */
BgL_formalsz00_2437 = BNIL; }  else 
{ /* ./Expand/initial.scm 905 */
obj_t BgL_head1194z00_2581;
BgL_head1194z00_2581 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1192z00_2582;obj_t BgL_tail1195z00_2583;
BgL_l1192z00_2582 = BgL_actualsz00_2427; 
BgL_tail1195z00_2583 = BgL_head1194z00_2581; 
BgL_map1193z00_2584:
{ /* ./Expand/initial.scm 905 */
bool_t BgL_test5839z00_2585;
BgL_test5839z00_2585 = 
NULLP(BgL_l1192z00_2582); 
if(BgL_test5839z00_2585)
{ /* ./Expand/initial.scm 905 */
BgL_formalsz00_2437 = 
CDR(BgL_head1194z00_2581); }  else 
{ /* ./Expand/initial.scm 905 */
obj_t BgL_newtail1196z00_2586;
{ /* ./Expand/initial.scm 905 */
obj_t BgL_arg5847z00_2588;
{ /* ./Expand/initial.scm 905 */
obj_t BgL_arg5851z00_2591;
BgL_arg5851z00_2591 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_arg5847z00_2588 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg5851z00_2591); } 
BgL_newtail1196z00_2586 = 
MAKE_PAIR(BgL_arg5847z00_2588, BNIL); } 
SET_CDR(BgL_tail1195z00_2583, BgL_newtail1196z00_2586); 
{ /* ./Expand/initial.scm 905 */
obj_t BgL_arg5843z00_2587;
BgL_arg5843z00_2587 = 
CDR(BgL_l1192z00_2582); 
{ 
obj_t BgL_tail1195z00_6673;obj_t BgL_l1192z00_6672;
BgL_l1192z00_6672 = BgL_arg5843z00_2587; 
BgL_tail1195z00_6673 = BgL_newtail1196z00_2586; 
BgL_tail1195z00_2583 = BgL_tail1195z00_6673; 
BgL_l1192z00_2582 = BgL_l1192z00_6672; 
goto BgL_map1193z00_2584;} } } } } } } 
{ /* ./Expand/initial.scm 907 */
bool_t BgL_test5858z00_2593;
BgL_test5858z00_2593 = 
NULLP(BgL_actualsz00_2427); 
if(BgL_test5858z00_2593)
{ /* ./Expand/initial.scm 907 */
BgL_lformalsz00_2438 = BNIL; }  else 
{ /* ./Expand/initial.scm 907 */
obj_t BgL_head1199z00_2594;
BgL_head1199z00_2594 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_l1197z00_2595;obj_t BgL_tail1200z00_2596;
BgL_l1197z00_2595 = BgL_actualsz00_2427; 
BgL_tail1200z00_2596 = BgL_head1199z00_2594; 
BgL_map1198z00_2597:
{ /* ./Expand/initial.scm 907 */
bool_t BgL_test5860z00_2598;
BgL_test5860z00_2598 = 
NULLP(BgL_l1197z00_2595); 
if(BgL_test5860z00_2598)
{ /* ./Expand/initial.scm 907 */
BgL_lformalsz00_2438 = 
CDR(BgL_head1199z00_2594); }  else 
{ /* ./Expand/initial.scm 907 */
obj_t BgL_newtail1201z00_2599;
{ /* ./Expand/initial.scm 907 */
obj_t BgL_arg5868z00_2601;
{ /* ./Expand/initial.scm 907 */
obj_t BgL_arg5872z00_2604;
BgL_arg5872z00_2604 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_arg5868z00_2601 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg5872z00_2604); } 
BgL_newtail1201z00_2599 = 
MAKE_PAIR(BgL_arg5868z00_2601, BNIL); } 
SET_CDR(BgL_tail1200z00_2596, BgL_newtail1201z00_2599); 
{ /* ./Expand/initial.scm 907 */
obj_t BgL_arg5864z00_2600;
BgL_arg5864z00_2600 = 
CDR(BgL_l1197z00_2595); 
{ 
obj_t BgL_tail1200z00_6687;obj_t BgL_l1197z00_6686;
BgL_l1197z00_6686 = BgL_arg5864z00_2600; 
BgL_tail1200z00_6687 = BgL_newtail1201z00_2599; 
BgL_tail1200z00_2596 = BgL_tail1200z00_6687; 
BgL_l1197z00_2595 = BgL_l1197z00_6686; 
goto BgL_map1198z00_2597;} } } } } } } 
{ /* ./Expand/initial.scm 909 */
obj_t BgL_arg5880z00_2605;
BgL_arg5880z00_2605 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_ufunz00_2439 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg5880z00_2605); } 
{ /* ./Expand/initial.scm 910 */
obj_t BgL_arg5884z00_2606;
BgL_arg5884z00_2606 = 
PROCEDURE_ENTRY(BGl_gensymz00zz__r4_symbols_6_4z00)(BGl_gensymz00zz__r4_symbols_6_4z00, BEOA); 
BgL_msgzd2listzd2_2440 = 
BGl_markzd2symbolzd2nonzd2userz12zc0zzast_identz00(BgL_arg5884z00_2606); } 
{ /* ./Expand/initial.scm 911 */
obj_t BgL_arg5559z00_2441;obj_t BgL_arg5560z00_2442;
BgL_arg5559z00_2441 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 911 */
obj_t BgL_arg5563z00_2443;obj_t BgL_arg5564z00_2444;
{ /* ./Expand/initial.scm 911 */
obj_t BgL_arg5567z00_2445;obj_t BgL_arg5568z00_2446;
{ /* ./Expand/initial.scm 911 */
bool_t BgL_test5570z00_2449;
BgL_test5570z00_2449 = 
NULLP(BgL_formalsz00_2437); 
if(BgL_test5570z00_2449)
{ /* ./Expand/initial.scm 911 */
BgL_arg5567z00_2445 = BNIL; }  else 
{ /* ./Expand/initial.scm 911 */
obj_t BgL_head1204z00_2450;
BgL_head1204z00_2450 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_ll1202z00_2451;obj_t BgL_ll1203z00_2452;obj_t BgL_tail1205z00_2453;
BgL_ll1202z00_2451 = BgL_formalsz00_2437; 
BgL_ll1203z00_2452 = BgL_actualsz00_2427; 
BgL_tail1205z00_2453 = BgL_head1204z00_2450; 
BgL_map1207z00_2454:
{ /* ./Expand/initial.scm 911 */
bool_t BgL_test5572z00_2455;
BgL_test5572z00_2455 = 
NULLP(BgL_ll1202z00_2451); 
if(BgL_test5572z00_2455)
{ /* ./Expand/initial.scm 911 */
BgL_arg5567z00_2445 = 
CDR(BgL_head1204z00_2450); }  else 
{ /* ./Expand/initial.scm 911 */
obj_t BgL_newtail1206z00_2456;
{ /* ./Expand/initial.scm 911 */
obj_t BgL_arg5582z00_2459;
{ /* ./Expand/initial.scm 911 */
obj_t BgL_fz00_2461;obj_t BgL_vz00_2462;
BgL_fz00_2461 = 
CAR(BgL_ll1202z00_2451); 
BgL_vz00_2462 = 
CAR(BgL_ll1203z00_2452); 
{ /* ./Expand/initial.scm 911 */
obj_t BgL_arg5586z00_2463;
BgL_arg5586z00_2463 = 
PROCEDURE_ENTRY(BgL_ez00_24)(BgL_ez00_24, BgL_vz00_2462, BgL_ez00_24, BEOA); 
{ /* ./Expand/initial.scm 911 */
obj_t BgL_list5588z00_2464;
{ /* ./Expand/initial.scm 911 */
obj_t BgL_arg5590z00_2465;
BgL_arg5590z00_2465 = 
MAKE_PAIR(BgL_arg5586z00_2463, BNIL); 
BgL_list5588z00_2464 = 
MAKE_PAIR(BgL_fz00_2461, BgL_arg5590z00_2465); } 
BgL_arg5582z00_2459 = BgL_list5588z00_2464; } } } 
BgL_newtail1206z00_2456 = 
MAKE_PAIR(BgL_arg5582z00_2459, BNIL); } 
SET_CDR(BgL_tail1205z00_2453, BgL_newtail1206z00_2456); 
{ /* ./Expand/initial.scm 911 */
obj_t BgL_arg5576z00_2457;obj_t BgL_arg5577z00_2458;
BgL_arg5576z00_2457 = 
CDR(BgL_ll1202z00_2451); 
BgL_arg5577z00_2458 = 
CDR(BgL_ll1203z00_2452); 
{ 
obj_t BgL_tail1205z00_6713;obj_t BgL_ll1203z00_6712;obj_t BgL_ll1202z00_6711;
BgL_ll1202z00_6711 = BgL_arg5576z00_2457; 
BgL_ll1203z00_6712 = BgL_arg5577z00_2458; 
BgL_tail1205z00_6713 = BgL_newtail1206z00_2456; 
BgL_tail1205z00_2453 = BgL_tail1205z00_6713; 
BgL_ll1203z00_2452 = BgL_ll1203z00_6712; 
BgL_ll1202z00_2451 = BgL_ll1202z00_6711; 
goto BgL_map1207z00_2454;} } } } } } } 
{ /* ./Expand/initial.scm 912 */
obj_t BgL_arg5600z00_2466;obj_t BgL_arg5601z00_2467;
{ /* ./Expand/initial.scm 912 */
obj_t BgL_arg5604z00_2468;
{ /* ./Expand/initial.scm 912 */
obj_t BgL_arg5607z00_2469;
BgL_arg5607z00_2469 = 
PROCEDURE_ENTRY(BgL_ez00_24)(BgL_ez00_24, BgL_funz00_2426, BgL_ez00_24, BEOA); 
BgL_arg5604z00_2468 = 
MAKE_PAIR(BgL_arg5607z00_2469, BNIL); } 
BgL_arg5600z00_2466 = 
MAKE_PAIR(BgL_ufunz00_2439, BgL_arg5604z00_2468); } 
{ /* ./Expand/initial.scm 913 */
obj_t BgL_arg5612z00_2471;
{ /* ./Expand/initial.scm 913 */
obj_t BgL_arg5616z00_2473;
{ /* ./Expand/initial.scm 913 */
obj_t BgL_arg5619z00_2474;
{ /* ./Expand/initial.scm 913 */
obj_t BgL_arg5623z00_2476;
BgL_arg5623z00_2476 = 
SYMBOL_TO_STRING(BgL_opz00_2425); 
BgL_arg5619z00_2474 = 
string_append(BgL_arg5623z00_2476, BGl_string6437z00zzexpand_installz00); } 
BgL_arg5616z00_2473 = 
MAKE_PAIR(BgL_arg5619z00_2474, BNIL); } 
BgL_arg5612z00_2471 = 
MAKE_PAIR(BgL_msgzd2listzd2_2440, BgL_arg5616z00_2473); } 
BgL_arg5601z00_2467 = 
MAKE_PAIR(BgL_arg5612z00_2471, BNIL); } 
BgL_arg5568z00_2446 = 
MAKE_PAIR(BgL_arg5600z00_2466, BgL_arg5601z00_2467); } 
BgL_arg5563z00_2443 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_arg5567z00_2445, BgL_arg5568z00_2446); } 
{ /* ./Expand/initial.scm 915 */
obj_t BgL_arg5628z00_2478;
{ /* ./Expand/initial.scm 915 */
obj_t BgL_arg5632z00_2480;obj_t BgL_arg5633z00_2481;
BgL_arg5632z00_2480 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/initial.scm 915 */
obj_t BgL_arg5636z00_2482;obj_t BgL_arg5637z00_2483;
{ /* ./Expand/initial.scm 915 */
obj_t BgL_arg5640z00_2484;obj_t BgL_arg5641z00_2485;
BgL_arg5640z00_2484 = 
CNST_TABLE_REF(((long)140)); 
{ /* ./Expand/initial.scm 915 */
obj_t BgL_arg5644z00_2486;
{ /* ./Expand/initial.scm 915 */
long BgL_arg5647z00_2487;
BgL_arg5647z00_2487 = 
bgl_list_length(BgL_actualsz00_2427); 
{ /* ./Expand/initial.scm 915 */
obj_t BgL_auxz00_6728;
BgL_auxz00_6728 = 
BINT(BgL_arg5647z00_2487); 
BgL_arg5644z00_2486 = 
MAKE_PAIR(BgL_auxz00_6728, BNIL); } } 
BgL_arg5641z00_2485 = 
MAKE_PAIR(BgL_ufunz00_2439, BgL_arg5644z00_2486); } 
BgL_arg5636z00_2482 = 
MAKE_PAIR(BgL_arg5640z00_2484, BgL_arg5641z00_2485); } 
{ /* ./Expand/initial.scm 916 */
obj_t BgL_arg5652z00_2489;obj_t BgL_arg5653z00_2490;
BgL_arg5652z00_2489 = 
BGl_loopz00zzexpand_installz00(BgL_lformalsz00_2438, BgL_opz00_2425, BgL_ufunz00_2439, BgL_formalsz00_2437, BgL_actualsz00_2427, BgL_msgzd2listzd2_2440, BgL_formalsz00_2437); 
{ /* ./Expand/initial.scm 932 */
obj_t BgL_arg5813z00_2568;
{ /* ./Expand/initial.scm 932 */
obj_t BgL_arg5817z00_2570;obj_t BgL_arg5818z00_2571;
BgL_arg5817z00_2570 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Expand/initial.scm 933 */
obj_t BgL_arg5821z00_2572;
{ /* ./Expand/initial.scm 933 */
obj_t BgL_arg5824z00_2573;obj_t BgL_arg5825z00_2574;
{ /* ./Expand/initial.scm 933 */
obj_t BgL_arg5828z00_2575;
BgL_arg5828z00_2575 = 
SYMBOL_TO_STRING(BgL_opz00_2425); 
BgL_arg5824z00_2573 = 
string_append(BgL_arg5828z00_2575, BGl_string6438z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 935 */
long BgL_arg5833z00_2577;
BgL_arg5833z00_2577 = 
bgl_list_length(BgL_actualsz00_2427); 
{ /* ./Expand/initial.scm 932 */
obj_t BgL_auxz00_6738;
BgL_auxz00_6738 = 
BINT(BgL_arg5833z00_2577); 
BgL_arg5825z00_2574 = 
MAKE_PAIR(BgL_auxz00_6738, BNIL); } } 
BgL_arg5821z00_2572 = 
MAKE_PAIR(BgL_arg5824z00_2573, BgL_arg5825z00_2574); } 
BgL_arg5818z00_2571 = 
MAKE_PAIR(BFALSE, BgL_arg5821z00_2572); } 
BgL_arg5813z00_2568 = 
MAKE_PAIR(BgL_arg5817z00_2570, BgL_arg5818z00_2571); } 
BgL_arg5653z00_2490 = 
MAKE_PAIR(BgL_arg5813z00_2568, BNIL); } 
BgL_arg5637z00_2483 = 
MAKE_PAIR(BgL_arg5652z00_2489, BgL_arg5653z00_2490); } 
BgL_arg5633z00_2481 = 
MAKE_PAIR(BgL_arg5636z00_2482, BgL_arg5637z00_2483); } 
BgL_arg5628z00_2478 = 
MAKE_PAIR(BgL_arg5632z00_2480, BgL_arg5633z00_2481); } 
BgL_arg5564z00_2444 = 
MAKE_PAIR(BgL_arg5628z00_2478, BNIL); } 
BgL_arg5560z00_2442 = 
MAKE_PAIR(BgL_arg5563z00_2443, BgL_arg5564z00_2444); } 
return 
MAKE_PAIR(BgL_arg5559z00_2441, BgL_arg5560z00_2442);} } }  else 
{ /* ./Expand/initial.scm 903 */
BgL_tagzd22042zd2_2429:
{ /* ./Expand/initial.scm 937 */
obj_t BgL_arg5888z00_2607;
BgL_arg5888z00_2607 = 
CAR(BgL_xz00_23); 
FAILURE(BFALSE,BgL_arg5888z00_2607,BGl_string6417z00zzexpand_installz00);} } } }  else 
{ /* ./Expand/initial.scm 903 */
goto BgL_tagzd22042zd2_2429;} } } } 
}



/* loop */
obj_t BGl_loopz00zzexpand_installz00(obj_t BgL_lformalsz00_4030, obj_t BgL_opz00_4029, obj_t BgL_ufunz00_4028, obj_t BgL_formalsz00_4027, obj_t BgL_actualsz00_4026, obj_t BgL_msgzd2listzd2_4025, obj_t BgL_argsz00_2491)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 916 */
{ /* ./Expand/initial.scm 917 */
bool_t BgL_test5656z00_2493;
BgL_test5656z00_2493 = 
NULLP(BgL_argsz00_2491); 
if(BgL_test5656z00_2493)
{ /* ./Expand/initial.scm 918 */
bool_t BgL_test5657z00_2494;
{ /* ./Expand/initial.scm 918 */
long BgL_auxz00_6755;
BgL_auxz00_6755 = 
bgl_list_length(BgL_actualsz00_4026); 
BgL_test5657z00_2494 = 
(BgL_auxz00_6755>((long)1)); } 
if(BgL_test5657z00_2494)
{ /* ./Expand/initial.scm 927 */
obj_t BgL_arg5659z00_2495;obj_t BgL_arg5660z00_2496;
BgL_arg5659z00_2495 = 
CNST_TABLE_REF(((long)48)); 
{ /* ./Expand/initial.scm 919 */
obj_t BgL_arg5663z00_2497;obj_t BgL_arg5664z00_2498;
{ /* ./Expand/initial.scm 919 */
bool_t BgL_test5666z00_2501;
BgL_test5666z00_2501 = 
NULLP(BgL_lformalsz00_4030); 
if(BgL_test5666z00_2501)
{ /* ./Expand/initial.scm 919 */
BgL_arg5663z00_2497 = BNIL; }  else 
{ /* ./Expand/initial.scm 919 */
obj_t BgL_head1210z00_2502;
BgL_head1210z00_2502 = 
MAKE_PAIR(BNIL, BNIL); 
{ 
obj_t BgL_ll1208z00_2503;obj_t BgL_ll1209z00_2504;obj_t BgL_tail1211z00_2505;
BgL_ll1208z00_2503 = BgL_lformalsz00_4030; 
BgL_ll1209z00_2504 = BgL_formalsz00_4027; 
BgL_tail1211z00_2505 = BgL_head1210z00_2502; 
BgL_map1213z00_2506:
{ /* ./Expand/initial.scm 919 */
bool_t BgL_test5668z00_2507;
BgL_test5668z00_2507 = 
NULLP(BgL_ll1208z00_2503); 
if(BgL_test5668z00_2507)
{ /* ./Expand/initial.scm 919 */
BgL_arg5663z00_2497 = 
CDR(BgL_head1210z00_2502); }  else 
{ /* ./Expand/initial.scm 920 */
obj_t BgL_newtail1212z00_2508;
{ /* ./Expand/initial.scm 920 */
obj_t BgL_arg5678z00_2511;
{ /* ./Expand/initial.scm 920 */
obj_t BgL_lfz00_2513;obj_t BgL_fz00_2514;
BgL_lfz00_2513 = 
CAR(BgL_ll1208z00_2503); 
BgL_fz00_2514 = 
CAR(BgL_ll1209z00_2504); 
{ /* ./Expand/initial.scm 920 */
obj_t BgL_arg5682z00_2515;
{ /* ./Expand/initial.scm 920 */
obj_t BgL_arg5685z00_2516;
{ /* ./Expand/initial.scm 920 */
obj_t BgL_arg5689z00_2518;obj_t BgL_arg5690z00_2519;
BgL_arg5689z00_2518 = 
CNST_TABLE_REF(((long)141)); 
BgL_arg5690z00_2519 = 
MAKE_PAIR(BgL_fz00_2514, BNIL); 
BgL_arg5685z00_2516 = 
MAKE_PAIR(BgL_arg5689z00_2518, BgL_arg5690z00_2519); } 
BgL_arg5682z00_2515 = 
MAKE_PAIR(BgL_arg5685z00_2516, BNIL); } 
BgL_arg5678z00_2511 = 
MAKE_PAIR(BgL_lfz00_2513, BgL_arg5682z00_2515); } } 
BgL_newtail1212z00_2508 = 
MAKE_PAIR(BgL_arg5678z00_2511, BNIL); } 
SET_CDR(BgL_tail1211z00_2505, BgL_newtail1212z00_2508); 
{ /* ./Expand/initial.scm 919 */
obj_t BgL_arg5672z00_2509;obj_t BgL_arg5673z00_2510;
BgL_arg5672z00_2509 = 
CDR(BgL_ll1208z00_2503); 
BgL_arg5673z00_2510 = 
CDR(BgL_ll1209z00_2504); 
{ 
obj_t BgL_tail1211z00_6779;obj_t BgL_ll1209z00_6778;obj_t BgL_ll1208z00_6777;
BgL_ll1208z00_6777 = BgL_arg5672z00_2509; 
BgL_ll1209z00_6778 = BgL_arg5673z00_2510; 
BgL_tail1211z00_6779 = BgL_newtail1212z00_2508; 
BgL_tail1211z00_2505 = BgL_tail1211z00_6779; 
BgL_ll1209z00_2504 = BgL_ll1209z00_6778; 
BgL_ll1208z00_2503 = BgL_ll1208z00_6777; 
goto BgL_map1213z00_2506;} } } } } } } 
{ /* ./Expand/initial.scm 922 */
obj_t BgL_arg5699z00_2520;
{ /* ./Expand/initial.scm 922 */
obj_t BgL_arg5703z00_2522;obj_t BgL_arg5704z00_2523;
BgL_arg5703z00_2522 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/initial.scm 922 */
obj_t BgL_arg5707z00_2524;obj_t BgL_arg5708z00_2525;
{ /* ./Expand/initial.scm 922 */
obj_t BgL_arg5711z00_2526;obj_t BgL_arg5712z00_2527;
BgL_arg5711z00_2526 = 
CNST_TABLE_REF(((long)30)); 
BgL_arg5712z00_2527 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_lformalsz00_4030, BNIL); 
BgL_arg5707z00_2524 = 
MAKE_PAIR(BgL_arg5711z00_2526, BgL_arg5712z00_2527); } 
{ /* ./Expand/initial.scm 923 */
obj_t BgL_arg5716z00_2528;obj_t BgL_arg5717z00_2529;
{ /* ./Expand/initial.scm 923 */
obj_t BgL_arg5720z00_2530;
{ /* ./Expand/initial.scm 923 */
obj_t BgL_arg5723z00_2531;
BgL_arg5723z00_2531 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_formalsz00_4027, BNIL); 
BgL_arg5720z00_2530 = 
MAKE_PAIR(BgL_ufunz00_4028, BgL_arg5723z00_2531); } 
BgL_arg5716z00_2528 = 
MAKE_PAIR(BgL_opz00_4029, BgL_arg5720z00_2530); } 
{ /* ./Expand/initial.scm 924 */
obj_t BgL_arg5727z00_2532;
{ /* ./Expand/initial.scm 924 */
obj_t BgL_arg5731z00_2534;obj_t BgL_arg5732z00_2535;
BgL_arg5731z00_2534 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Expand/initial.scm 925 */
obj_t BgL_arg5735z00_2536;
{ /* ./Expand/initial.scm 925 */
obj_t BgL_arg5738z00_2537;obj_t BgL_arg5739z00_2538;
{ /* ./Expand/initial.scm 925 */
obj_t BgL_arg5742z00_2539;
BgL_arg5742z00_2539 = 
SYMBOL_TO_STRING(BgL_opz00_4029); 
BgL_arg5738z00_2537 = 
string_append(BgL_arg5742z00_2539, BGl_string6439z00zzexpand_installz00); } 
{ /* ./Expand/initial.scm 927 */
obj_t BgL_arg5747z00_2541;
{ /* ./Expand/initial.scm 927 */
obj_t BgL_arg5751z00_2543;obj_t BgL_arg5752z00_2544;
BgL_arg5751z00_2543 = 
CNST_TABLE_REF(((long)95)); 
BgL_arg5752z00_2544 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_lformalsz00_4030, BNIL); 
BgL_arg5747z00_2541 = 
MAKE_PAIR(BgL_arg5751z00_2543, BgL_arg5752z00_2544); } 
BgL_arg5739z00_2538 = 
MAKE_PAIR(BgL_arg5747z00_2541, BNIL); } 
BgL_arg5735z00_2536 = 
MAKE_PAIR(BgL_arg5738z00_2537, BgL_arg5739z00_2538); } 
BgL_arg5732z00_2535 = 
MAKE_PAIR(BFALSE, BgL_arg5735z00_2536); } 
BgL_arg5727z00_2532 = 
MAKE_PAIR(BgL_arg5731z00_2534, BgL_arg5732z00_2535); } 
BgL_arg5717z00_2529 = 
MAKE_PAIR(BgL_arg5727z00_2532, BNIL); } 
BgL_arg5708z00_2525 = 
MAKE_PAIR(BgL_arg5716z00_2528, BgL_arg5717z00_2529); } 
BgL_arg5704z00_2523 = 
MAKE_PAIR(BgL_arg5707z00_2524, BgL_arg5708z00_2525); } 
BgL_arg5699z00_2520 = 
MAKE_PAIR(BgL_arg5703z00_2522, BgL_arg5704z00_2523); } 
BgL_arg5664z00_2498 = 
MAKE_PAIR(BgL_arg5699z00_2520, BNIL); } 
BgL_arg5660z00_2496 = 
MAKE_PAIR(BgL_arg5663z00_2497, BgL_arg5664z00_2498); } 
return 
MAKE_PAIR(BgL_arg5659z00_2495, BgL_arg5660z00_2496);}  else 
{ /* ./Expand/initial.scm 928 */
obj_t BgL_arg5756z00_2545;
{ /* ./Expand/initial.scm 928 */
obj_t BgL_arg5759z00_2546;
BgL_arg5759z00_2546 = 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_formalsz00_4027, BNIL); 
BgL_arg5756z00_2545 = 
MAKE_PAIR(BgL_ufunz00_4028, BgL_arg5759z00_2546); } 
return 
MAKE_PAIR(BgL_opz00_4029, BgL_arg5756z00_2545);} }  else 
{ /* ./Expand/initial.scm 931 */
obj_t BgL_arg5768z00_2549;obj_t BgL_arg5769z00_2550;
BgL_arg5768z00_2549 = 
CNST_TABLE_REF(((long)0)); 
{ /* ./Expand/initial.scm 929 */
obj_t BgL_arg5772z00_2551;obj_t BgL_arg5773z00_2552;
{ /* ./Expand/initial.scm 929 */
obj_t BgL_arg5776z00_2553;obj_t BgL_arg5777z00_2554;
BgL_arg5776z00_2553 = 
CNST_TABLE_REF(((long)135)); 
{ /* ./Expand/initial.scm 929 */
obj_t BgL_arg5780z00_2555;
BgL_arg5780z00_2555 = 
CAR(BgL_argsz00_2491); 
BgL_arg5777z00_2554 = 
MAKE_PAIR(BgL_arg5780z00_2555, BNIL); } 
BgL_arg5772z00_2551 = 
MAKE_PAIR(BgL_arg5776z00_2553, BgL_arg5777z00_2554); } 
{ /* ./Expand/initial.scm 930 */
obj_t BgL_arg5785z00_2557;obj_t BgL_arg5786z00_2558;
{ /* ./Expand/initial.scm 930 */
obj_t BgL_arg5789z00_2559;
BgL_arg5789z00_2559 = 
CDR(BgL_argsz00_2491); 
BgL_arg5785z00_2557 = 
BGl_loopz00zzexpand_installz00(BgL_lformalsz00_4030, BgL_opz00_4029, BgL_ufunz00_4028, BgL_formalsz00_4027, BgL_actualsz00_4026, BgL_msgzd2listzd2_4025, BgL_arg5789z00_2559); } 
{ /* ./Expand/initial.scm 931 */
obj_t BgL_arg5793z00_2560;
{ /* ./Expand/initial.scm 931 */
obj_t BgL_arg5797z00_2562;obj_t BgL_arg5798z00_2563;
BgL_arg5797z00_2562 = 
CNST_TABLE_REF(((long)13)); 
{ /* ./Expand/initial.scm 931 */
obj_t BgL_arg5801z00_2564;
{ /* ./Expand/initial.scm 931 */
obj_t BgL_arg5804z00_2565;
{ /* ./Expand/initial.scm 931 */
obj_t BgL_arg5807z00_2566;
BgL_arg5807z00_2566 = 
CAR(BgL_argsz00_2491); 
BgL_arg5804z00_2565 = 
MAKE_PAIR(BgL_arg5807z00_2566, BNIL); } 
BgL_arg5801z00_2564 = 
MAKE_PAIR(BgL_msgzd2listzd2_4025, BgL_arg5804z00_2565); } 
BgL_arg5798z00_2563 = 
MAKE_PAIR(BFALSE, BgL_arg5801z00_2564); } 
BgL_arg5793z00_2560 = 
MAKE_PAIR(BgL_arg5797z00_2562, BgL_arg5798z00_2563); } 
BgL_arg5786z00_2558 = 
MAKE_PAIR(BgL_arg5793z00_2560, BNIL); } 
BgL_arg5773z00_2552 = 
MAKE_PAIR(BgL_arg5785z00_2557, BgL_arg5786z00_2558); } 
BgL_arg5769z00_2550 = 
MAKE_PAIR(BgL_arg5772z00_2551, BgL_arg5773z00_2552); } 
return 
MAKE_PAIR(BgL_arg5768z00_2549, BgL_arg5769z00_2550);} } } 
}



/* disp */
obj_t BGl_dispz00zzexpand_installz00(obj_t BgL_objz00_25)
{ AN_OBJECT;
{ /* ./Expand/initial.scm 942 */
if(
STRINGP(BgL_objz00_25))
{ /* ./Expand/initial.scm 944 */
return 
CNST_TABLE_REF(((long)142));}  else 
{ /* ./Expand/initial.scm 946 */
bool_t BgL_testz00_6827;
if(
PAIRP(BgL_objz00_25))
{ /* ./Expand/initial.scm 947 */
bool_t BgL_testz00_6830;
{ /* ./Expand/initial.scm 947 */
obj_t BgL_auxz00_6833;obj_t BgL_auxz00_6831;
BgL_auxz00_6833 = 
CNST_TABLE_REF(((long)133)); 
BgL_auxz00_6831 = 
CAR(BgL_objz00_25); 
BgL_testz00_6830 = 
(BgL_auxz00_6831==BgL_auxz00_6833); } 
if(BgL_testz00_6830)
{ /* ./Expand/initial.scm 948 */
obj_t BgL_auxz00_6836;
{ /* ./Expand/initial.scm 948 */
obj_t BgL_auxz00_6837;
BgL_auxz00_6837 = 
CDR(BgL_objz00_25); 
BgL_auxz00_6836 = 
CAR(BgL_auxz00_6837); } 
BgL_testz00_6827 = 
SYMBOLP(BgL_auxz00_6836); }  else 
{ /* ./Expand/initial.scm 947 */
BgL_testz00_6827 = ((bool_t)0)
; } }  else 
{ /* ./Expand/initial.scm 946 */
BgL_testz00_6827 = ((bool_t)0)
; } 
if(BgL_testz00_6827)
{ /* ./Expand/initial.scm 946 */
return 
CNST_TABLE_REF(((long)143));}  else 
{ /* ./Expand/initial.scm 946 */
if(
INTEGERP(BgL_objz00_25))
{ /* ./Expand/initial.scm 950 */
return 
CNST_TABLE_REF(((long)144));}  else 
{ /* ./Expand/initial.scm 950 */
if(
REALP(BgL_objz00_25))
{ /* ./Expand/initial.scm 952 */
return 
CNST_TABLE_REF(((long)145));}  else 
{ /* ./Expand/initial.scm 952 */
if(
CHARP(BgL_objz00_25))
{ /* ./Expand/initial.scm 954 */
return 
CNST_TABLE_REF(((long)146));}  else 
{ /* ./Expand/initial.scm 954 */
return 
CNST_TABLE_REF(((long)147));} } } } } } 
}



/* method-init */
obj_t BGl_methodzd2initzd2zzexpand_installz00()
{ AN_OBJECT;
{ /* ./Expand/initial.scm 15 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zzexpand_installz00()
{ AN_OBJECT;
{ /* ./Expand/initial.scm 15 */
BGl_modulezd2initializa7ationz75zzexpand_ifz00(((long)32831), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_lambdaz00(((long)7027), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_definez00(((long)11451), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_expanderz00(((long)52206), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_exitz00(((long)25431), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_garithmetiquez00(((long)42310), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_iarithmetiquez00(((long)14410), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_farithmetiquez00(((long)5158), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_letz00(((long)16138), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_casez00(((long)53581), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_structz00(((long)18298), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_mapz00(((long)41027), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_assertz00(((long)28258), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_objectz00(((long)18047), "expand_install"); 
BGl_modulezd2initializa7ationz75zztools_prognz00(((long)55569), "expand_install"); 
BGl_modulezd2initializa7ationz75zztools_miscz00(((long)64117), "expand_install"); 
BGl_modulezd2initializa7ationz75zztools_locationz00(((long)32118), "expand_install"); 
BGl_modulezd2initializa7ationz75zzengine_paramz00(((long)14260), "expand_install"); 
BGl_modulezd2initializa7ationz75zzexpand_srfizd20zd2(((long)38705), "expand_install"); 
BGl_modulezd2initializa7ationz75zztype_typez00(((long)19090), "expand_install"); 
return 
BGl_modulezd2initializa7ationz75zzast_identz00(((long)51504), "expand_install");} 
}

