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

/* debug mode */
#define BIGLOO_DEBUG 1

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

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2vectorzd2zz__r4_vectors_6_8z00(int, obj_t);
BGL_EXPORTED_DECL obj_t BGl_sortz00zz__r4_vectors_6_8z00(obj_t, obj_t);
BGL_EXPORTED_DECL int BGl_vectorzd2tagzd2zz__r4_vectors_6_8z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_vectorzd2copyzd2zz__r4_vectors_6_8z00(obj_t, obj_t);
extern long bgl_list_length(obj_t);
BGL_EXPORTED_DECL obj_t BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl__listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r4_vectors_6_8z00();
static obj_t BGl__vectorzd2lengthzd2zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl__vectorzd2tagzd2zz__r4_vectors_6_8z00(obj_t, obj_t);
extern obj_t sort_vector(obj_t, obj_t);
extern obj_t string_to_symbol(char *);
BGL_EXPORTED_DECL obj_t BGl_vectorzd2setz12zc0zz__r4_vectors_6_8z00(obj_t, int, obj_t);
static obj_t BGl__vectorzd2refzd2urz00zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
static obj_t BGl__vectorzd2copyzd2zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_vectorz00zz__r4_vectors_6_8z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_vectorzd2setzd2urz12z12zz__r4_vectors_6_8z00(obj_t, int, obj_t);
extern obj_t make_vector(int, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_vectors_6_8z00();
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_vectorzd2refzd2zz__r4_vectors_6_8z00(obj_t, int);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl__vectorzd2setz12zc0zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__vectorzd2tagzd2setz12z12zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
static obj_t BGl__copyzd2vectorzd2zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
static obj_t BGl__vectorzf3zf3zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl__vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
static obj_t BGl__vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl__makezd2vectorzd2zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
BGL_EXPORTED_DECL int BGl_vectorzd2lengthzd2zz__r4_vectors_6_8z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_symbol2420z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2418z00zz__r4_vectors_6_8z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_vectorzf3zf3zz__r4_vectors_6_8z00(obj_t);
static obj_t BGl_symbol2415z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2414z00zz__r4_vectors_6_8z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_vectorzd2tagzd2setz12z12zz__r4_vectors_6_8z00(obj_t, int);
static obj_t BGl_symbol2409z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2399z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2408z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2398z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl__vectorzd2refzd2zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2407z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2397z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2406z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2396z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2405z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2395z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2404z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2394z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2403z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2393z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2402z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2392z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl__vectorzd2setzd2urz12z12zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol2401z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2390z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2389z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2386z00zz__r4_vectors_6_8z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_vectorzd2refzd2urz00zz__r4_vectors_6_8z00(obj_t, int);
static obj_t BGl_symbol2384z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl__sortz00zz__r4_vectors_6_8z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2383z00zz__r4_vectors_6_8z00 = BUNSPEC;
extern obj_t fill_vector(obj_t, int, obj_t);
static obj_t BGl_symbol2382z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl__vectorz00zz__r4_vectors_6_8z00(obj_t, obj_t);
static obj_t BGl_symbol2380z00zz__r4_vectors_6_8z00 = BUNSPEC;
static obj_t BGl_symbol2377z00zz__r4_vectors_6_8z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(obj_t, int);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2refzd2envz00zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2refza7d2za7za7__r4_vectors_6_8za7002431za7, BGl__vectorzd2refzd2zz__r4_vectors_6_8z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2tagzd2envz00zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2tagza7d2za7za7__r4_vectors_6_8za7002432za7, BGl__vectorzd2tagzd2zz__r4_vectors_6_8z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl__vectorza700za7za7__r4_vectors_6_8za7002433z00, va_generic_entry, BGl__vectorz00zz__r4_vectors_6_8z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2setzd2urz12zd2envzc0zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2setza7d2urza712za712za7za7__r4_vectors_6_8za7002434za7, BGl__vectorzd2setzd2urz12z12zz__r4_vectors_6_8z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2fillz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2fillza712za7c0za7za7__r4_vectors_6_8za7002435z00, BGl__vectorzd2fillz12zc0zz__r4_vectors_6_8z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzf3zd2envz21zz__r4_vectors_6_8z00, BgL_bgl__vectorza7f3za7f3za7za7__r4_vectors_6_8za7002436za7, BGl__vectorzf3zf3zz__r4_vectors_6_8z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2copyzd2envz00zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2copyza7d2za7za7__r4_vectors_6_8za7002437za7, va_generic_entry, BGl__vectorzd2copyzd2zz__r4_vectors_6_8z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_copyzd2vectorzd2envz00zz__r4_vectors_6_8z00, BgL_bgl__copyza7d2vectorza7d2za7za7__r4_vectors_6_8za7002438za7, BGl__copyzd2vectorzd2zz__r4_vectors_6_8z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_sortzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl__sortza700za7za7__r4_vectors_6_8za7002439z00, BGl__sortz00zz__r4_vectors_6_8z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2refzd2urzd2envzd2zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2refza7d2urza700za7za7__r4_vectors_6_8za7002440z00, BGl__vectorzd2refzd2urz00zz__r4_vectors_6_8z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2vectorzd2envz00zz__r4_vectors_6_8z00, BgL_bgl__makeza7d2vectorza7d2za7za7__r4_vectors_6_8za7002441za7, va_generic_entry, BGl__makezd2vectorzd2zz__r4_vectors_6_8z00, -2 );
DEFINE_STRING( BGl_string2419z00zz__r4_vectors_6_8z00, BgL_bgl_string2419za700za7za7__r4_vectors_6_8za7002442z00, "procedure", 9 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2ze3listzd2envze3zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2za7e3listza731za7za7__r4_vectors_6_8za7002443z00, BGl__vectorzd2ze3listz31zz__r4_vectors_6_8z00, 0L, 1 );
DEFINE_STRING( BGl_string2417z00zz__r4_vectors_6_8z00, BgL_bgl_string2417za700za7za7__r4_vectors_6_8za7002444z00, "Object must be a list or a vector", 33 );
DEFINE_STRING( BGl_string2416z00zz__r4_vectors_6_8z00, BgL_bgl_string2416za700za7za7__r4_vectors_6_8za7002445z00, "sort", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2setz12zd2envz12zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2setza712za7c0za7za7__r4_vectors_6_8za7002446z00, BGl__vectorzd2setz12zc0zz__r4_vectors_6_8z00, 0L, 3 );
DEFINE_STRING( BGl_string2413z00zz__r4_vectors_6_8z00, BgL_bgl_string2413za700za7za7__r4_vectors_6_8za7002447z00, "Illegal indexes", 15 );
DEFINE_STRING( BGl_string2412z00zz__r4_vectors_6_8z00, BgL_bgl_string2412za700za7za7__r4_vectors_6_8za7002448z00, "long", 4 );
DEFINE_STRING( BGl_string2411z00zz__r4_vectors_6_8z00, BgL_bgl_string2411za700za7za7__r4_vectors_6_8za7002449z00, "Illegal argument", 16 );
DEFINE_STRING( BGl_string2410z00zz__r4_vectors_6_8z00, BgL_bgl_string2410za700za7za7__r4_vectors_6_8za7002450z00, "vector-copy", 11 );
DEFINE_STRING( BGl_string2391z00zz__r4_vectors_6_8z00, BgL_bgl_string2391za700za7za7__r4_vectors_6_8za7002451z00, "vector-set!", 11 );
DEFINE_STRING( BGl_string2400z00zz__r4_vectors_6_8z00, BgL_bgl_string2400za700za7za7__r4_vectors_6_8za7002452z00, "pair-nil", 8 );
DEFINE_STRING( BGl_string2388z00zz__r4_vectors_6_8z00, BgL_bgl_string2388za700za7za7__r4_vectors_6_8za7002453z00, "index out of range", 18 );
DEFINE_STRING( BGl_string2387z00zz__r4_vectors_6_8z00, BgL_bgl_string2387za700za7za7__r4_vectors_6_8za7002454z00, "vector-ref", 10 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2tagzd2setz12zd2envzc0zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2tagza7d2setza712za712za7za7__r4_vectors_6_8za7002455za7, BGl__vectorzd2tagzd2setz12z12zz__r4_vectors_6_8z00, 0L, 2 );
DEFINE_STRING( BGl_string2385z00zz__r4_vectors_6_8z00, BgL_bgl_string2385za700za7za7__r4_vectors_6_8za7002456z00, "vector", 6 );
DEFINE_STRING( BGl_string2381z00zz__r4_vectors_6_8z00, BgL_bgl_string2381za700za7za7__r4_vectors_6_8za7002457z00, "int", 3 );
DEFINE_STRING( BGl_string2379z00zz__r4_vectors_6_8z00, BgL_bgl_string2379za700za7za7__r4_vectors_6_8za7002458z00, "/tmp/bigloo/runtime/./Ieee/vector.scm", 37 );
DEFINE_STRING( BGl_string2378z00zz__r4_vectors_6_8z00, BgL_bgl_string2378za700za7za7__r4_vectors_6_8za7002459z00, "pair", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2ze3vectorzd2envze3zz__r4_vectors_6_8z00, BgL_bgl__listza7d2za7e3vectorza731za7za7__r4_vectors_6_8za7002460z00, BGl__listzd2ze3vectorz31zz__r4_vectors_6_8z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_vectorzd2lengthzd2envz00zz__r4_vectors_6_8z00, BgL_bgl__vectorza7d2lengthza7d2za7za7__r4_vectors_6_8za7002461za7, BGl__vectorzd2lengthzd2zz__r4_vectors_6_8z00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_vectors_6_8z00(long BgL_checksumz00_886, char * BgL_fromz00_887)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_vectors_6_8z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_vectors_6_8z00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__r4_vectors_6_8z00(); 
BGl_importedzd2moduleszd2initz00zz__r4_vectors_6_8z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_vectors_6_8z00()
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 18 */
BGl_symbol2377z00zz__r4_vectors_6_8z00 = 
string_to_symbol("make-vector"); 
BGl_symbol2380z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_make-vector"); 
BGl_symbol2382z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector"); 
BGl_symbol2383z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector-length"); 
BGl_symbol2384z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_vector-length"); 
BGl_symbol2386z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector-ref"); 
BGl_symbol2389z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_vector-ref"); 
BGl_symbol2390z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector-set!"); 
BGl_symbol2392z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_vector-set!"); 
BGl_symbol2393z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector-ref-ur"); 
BGl_symbol2394z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_vector-ref-ur"); 
BGl_symbol2395z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector-set-ur!"); 
BGl_symbol2396z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_vector-set-ur!"); 
BGl_symbol2397z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector->list"); 
BGl_symbol2398z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_vector->list"); 
BGl_symbol2399z00zz__r4_vectors_6_8z00 = 
string_to_symbol("list->vector"); 
BGl_symbol2401z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector-fill!"); 
BGl_symbol2402z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_vector-fill!"); 
BGl_symbol2403z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector-tag"); 
BGl_symbol2404z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_vector-tag"); 
BGl_symbol2405z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector-tag-set!"); 
BGl_symbol2406z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_vector-tag-set!"); 
BGl_symbol2407z00zz__r4_vectors_6_8z00 = 
string_to_symbol("copy-vector"); 
BGl_symbol2408z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_copy-vector"); 
BGl_symbol2409z00zz__r4_vectors_6_8z00 = 
string_to_symbol("vector-copy"); 
BGl_symbol2414z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_vector-copy"); 
BGl_symbol2415z00zz__r4_vectors_6_8z00 = 
string_to_symbol("sort"); 
BGl_symbol2418z00zz__r4_vectors_6_8z00 = 
string_to_symbol("_sort"); 
return ( 
BGl_symbol2420z00zz__r4_vectors_6_8z00 = 
string_to_symbol("%import@__r4_vectors_6_8"), BUNSPEC) ;} 
}



/* vector? */
BGL_EXPORTED_DEF bool_t BGl_vectorzf3zf3zz__r4_vectors_6_8z00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 103 */
return 
VECTORP(BgL_objz00_1);} 
}



/* _vector? */
obj_t BGl__vectorzf3zf3zz__r4_vectors_6_8z00(obj_t BgL_envz00_672, obj_t BgL_objz00_673)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 103 */
{ /* ./Ieee/vector.scm 104 */
bool_t BgL_auxz00_923;
BgL_auxz00_923 = 
VECTORP(BgL_objz00_673); 
return 
BBOOL(BgL_auxz00_923);} } 
}



/* make-vector */
BGL_EXPORTED_DEF obj_t BGl_makezd2vectorzd2zz__r4_vectors_6_8z00(int BgL_intz00_2, obj_t BgL_fillz00_3)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 109 */
{ /* ./Ieee/vector.scm 110 */
obj_t BgL_symbol1693z00_812;
BgL_symbol1693z00_812 = BGl_symbol2377z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 110 */

PUSH_TRACE(BgL_symbol1693z00_812); BUNSPEC; 
{ /* ./Ieee/vector.scm 110 */
obj_t BgL_aux1692z00_813;
if(
NULLP(BgL_fillz00_3))
{ /* ./Ieee/vector.scm 110 */
BgL_aux1692z00_813 = 
make_vector(BgL_intz00_2, BUNSPEC); }  else 
{ /* ./Ieee/vector.scm 110 */
obj_t BgL_arg1007z00_814;
{ /* ./Ieee/vector.scm 110 */
obj_t BgL_pairz00_815;
if(
PAIRP(BgL_fillz00_3))
{ /* ./Ieee/vector.scm 110 */
BgL_pairz00_815 = BgL_fillz00_3; }  else 
{ /* ./Ieee/vector.scm 110 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2377z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_fillz00_3, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)4848))); 
exit( -1 );} 
BgL_arg1007z00_814 = 
CAR(BgL_pairz00_815); } 
BgL_aux1692z00_813 = 
make_vector(BgL_intz00_2, BgL_arg1007z00_814); } 
POP_TRACE(); 
return BgL_aux1692z00_813;} } } } 
}



/* _make-vector */
obj_t BGl__makezd2vectorzd2zz__r4_vectors_6_8z00(obj_t BgL_envz00_674, obj_t BgL_intz00_675, obj_t BgL_fillz00_676)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 109 */
{ /* ./Ieee/vector.scm 110 */
obj_t BgL_res2421z00_822;
{ /* ./Ieee/vector.scm 110 */
int BgL_intz00_816;
{ /* ./Ieee/vector.scm 110 */
obj_t BgL_auxz00_938;
if(
INTEGERP(BgL_intz00_675))
{ /* ./Ieee/vector.scm 110 */
BgL_auxz00_938 = BgL_intz00_675
; }  else 
{ /* ./Ieee/vector.scm 110 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2380z00zz__r4_vectors_6_8z00, BGl_string2381z00zz__r4_vectors_6_8z00, BgL_intz00_675, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)4848))); 
exit( -1 );} 
BgL_intz00_816 = 
CINT(BgL_auxz00_938); } 
{ /* ./Ieee/vector.scm 110 */
obj_t BgL_symbol1693z00_818;
BgL_symbol1693z00_818 = BGl_symbol2377z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 110 */

PUSH_TRACE(BgL_symbol1693z00_818); BUNSPEC; 
{ /* ./Ieee/vector.scm 110 */
obj_t BgL_aux1692z00_819;
if(
NULLP(BgL_fillz00_676))
{ /* ./Ieee/vector.scm 110 */
BgL_aux1692z00_819 = 
make_vector(BgL_intz00_816, BUNSPEC); }  else 
{ /* ./Ieee/vector.scm 110 */
obj_t BgL_arg1007z00_820;
{ /* ./Ieee/vector.scm 110 */
obj_t BgL_pairz00_821;
if(
PAIRP(BgL_fillz00_676))
{ /* ./Ieee/vector.scm 110 */
BgL_pairz00_821 = BgL_fillz00_676; }  else 
{ /* ./Ieee/vector.scm 110 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2377z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_fillz00_676, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)4848))); 
exit( -1 );} 
BgL_arg1007z00_820 = 
CAR(BgL_pairz00_821); } 
BgL_aux1692z00_819 = 
make_vector(BgL_intz00_816, BgL_arg1007z00_820); } 
POP_TRACE(); 
BgL_res2421z00_822 = BgL_aux1692z00_819; } } } } 
return BgL_res2421z00_822;} } 
}



/* vector */
BGL_EXPORTED_DEF obj_t BGl_vectorz00zz__r4_vectors_6_8z00(obj_t BgL_argsz00_4)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 117 */
{ /* ./Ieee/vector.scm 118 */
obj_t BgL_symbol1697z00_823;
BgL_symbol1697z00_823 = BGl_symbol2382z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 118 */

PUSH_TRACE(BgL_symbol1697z00_823); BUNSPEC; 
{ /* ./Ieee/vector.scm 118 */
obj_t BgL_aux1696z00_824;
BgL_aux1696z00_824 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_argsz00_4); 
POP_TRACE(); 
return BgL_aux1696z00_824;} } } } 
}



/* _vector */
obj_t BGl__vectorz00zz__r4_vectors_6_8z00(obj_t BgL_envz00_677, obj_t BgL_argsz00_678)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 117 */
{ /* ./Ieee/vector.scm 118 */
obj_t BgL_res2422z00_828;
{ /* ./Ieee/vector.scm 118 */
obj_t BgL_symbol1697z00_826;
BgL_symbol1697z00_826 = BGl_symbol2382z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 118 */

PUSH_TRACE(BgL_symbol1697z00_826); BUNSPEC; 
{ /* ./Ieee/vector.scm 118 */
obj_t BgL_aux1696z00_827;
BgL_aux1696z00_827 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_argsz00_678); 
POP_TRACE(); 
BgL_res2422z00_828 = BgL_aux1696z00_827; } } } 
return BgL_res2422z00_828;} } 
}



/* vector-length */
BGL_EXPORTED_DEF int BGl_vectorzd2lengthzd2zz__r4_vectors_6_8z00(obj_t BgL_vectorz00_5)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 123 */
{ /* ./Ieee/vector.scm 124 */
obj_t BgL_symbol1701z00_829;
BgL_symbol1701z00_829 = BGl_symbol2383z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 124 */

PUSH_TRACE(BgL_symbol1701z00_829); BUNSPEC; 
{ /* ./Ieee/vector.scm 124 */
int BgL_aux1700z00_830;
BgL_aux1700z00_830 = 
VECTOR_LENGTH(BgL_vectorz00_5); 
POP_TRACE(); 
return BgL_aux1700z00_830;} } } } 
}



/* _vector-length */
obj_t BGl__vectorzd2lengthzd2zz__r4_vectors_6_8z00(obj_t BgL_envz00_679, obj_t BgL_vectorz00_680)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 123 */
{ /* ./Ieee/vector.scm 124 */
int BgL_auxz00_966;
{ /* ./Ieee/vector.scm 124 */
int BgL_res2423z00_834;
{ /* ./Ieee/vector.scm 124 */
obj_t BgL_vectorz00_831;
if(
VECTORP(BgL_vectorz00_680))
{ /* ./Ieee/vector.scm 124 */
BgL_vectorz00_831 = BgL_vectorz00_680; }  else 
{ /* ./Ieee/vector.scm 124 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2384z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_vectorz00_680, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)5487))); 
exit( -1 );} 
{ /* ./Ieee/vector.scm 124 */
obj_t BgL_symbol1701z00_832;
BgL_symbol1701z00_832 = BGl_symbol2383z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 124 */

PUSH_TRACE(BgL_symbol1701z00_832); BUNSPEC; 
{ /* ./Ieee/vector.scm 124 */
int BgL_aux1700z00_833;
BgL_aux1700z00_833 = 
VECTOR_LENGTH(BgL_vectorz00_831); 
POP_TRACE(); 
BgL_res2423z00_834 = BgL_aux1700z00_833; } } } } 
BgL_auxz00_966 = BgL_res2423z00_834; } 
return 
BINT(BgL_auxz00_966);} } 
}



/* vector-ref */
BGL_EXPORTED_DEF obj_t BGl_vectorzd2refzd2zz__r4_vectors_6_8z00(obj_t BgL_vectorz00_6, int BgL_kz00_7)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 129 */
{ /* ./Ieee/vector.scm 130 */
obj_t BgL_symbol1705z00_835;
BgL_symbol1705z00_835 = BGl_symbol2386z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 130 */

PUSH_TRACE(BgL_symbol1705z00_835); BUNSPEC; 
{ /* ./Ieee/vector.scm 130 */
obj_t BgL_aux1704z00_836;
{ /* ./Ieee/vector.scm 130 */
bool_t BgL_test1013z00_837;
{ /* ./Ieee/vector.scm 130 */
int BgL_arg1018z00_838;
BgL_arg1018z00_838 = 
VECTOR_LENGTH(BgL_vectorz00_6); 
BgL_test1013z00_837 = 
BOUND_CHECK(BgL_kz00_7, BgL_arg1018z00_838); } 
if(BgL_test1013z00_837)
{ /* ./Ieee/vector.scm 130 */
BgL_aux1704z00_836 = 
VECTOR_REF(BgL_vectorz00_6,BgL_kz00_7); }  else 
{ /* ./Ieee/vector.scm 130 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2387z00zz__r4_vectors_6_8z00, BGl_string2388z00zz__r4_vectors_6_8z00, 
BINT(BgL_kz00_7), "./Ieee/vector.scm", ((long)5865)); 
BgL_aux1704z00_836 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)5803))); } } 
POP_TRACE(); 
return BgL_aux1704z00_836;} } } } 
}



/* _vector-ref */
obj_t BGl__vectorzd2refzd2zz__r4_vectors_6_8z00(obj_t BgL_envz00_681, obj_t BgL_vectorz00_682, obj_t BgL_kz00_683)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 129 */
{ /* ./Ieee/vector.scm 130 */
obj_t BgL_vectorz00_839;int BgL_kz00_840;
if(
VECTORP(BgL_vectorz00_682))
{ /* ./Ieee/vector.scm 130 */
BgL_vectorz00_839 = BgL_vectorz00_682; }  else 
{ /* ./Ieee/vector.scm 130 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2389z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_vectorz00_682, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)5803))); 
exit( -1 );} 
{ /* ./Ieee/vector.scm 130 */
obj_t BgL_auxz00_991;
if(
INTEGERP(BgL_kz00_683))
{ /* ./Ieee/vector.scm 130 */
BgL_auxz00_991 = BgL_kz00_683
; }  else 
{ /* ./Ieee/vector.scm 130 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2389z00zz__r4_vectors_6_8z00, BGl_string2381z00zz__r4_vectors_6_8z00, BgL_kz00_683, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)5803))); 
exit( -1 );} 
BgL_kz00_840 = 
CINT(BgL_auxz00_991); } 
{ /* ./Ieee/vector.scm 130 */
obj_t BgL_symbol1705z00_841;
BgL_symbol1705z00_841 = BGl_symbol2386z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 130 */

PUSH_TRACE(BgL_symbol1705z00_841); BUNSPEC; 
{ /* ./Ieee/vector.scm 130 */
obj_t BgL_aux1704z00_842;
{ /* ./Ieee/vector.scm 130 */
bool_t BgL_test1013z00_843;
{ /* ./Ieee/vector.scm 130 */
int BgL_arg1018z00_844;
BgL_arg1018z00_844 = 
VECTOR_LENGTH(BgL_vectorz00_839); 
BgL_test1013z00_843 = 
BOUND_CHECK(BgL_kz00_840, BgL_arg1018z00_844); } 
if(BgL_test1013z00_843)
{ /* ./Ieee/vector.scm 130 */
BgL_aux1704z00_842 = 
VECTOR_REF(BgL_vectorz00_839,BgL_kz00_840); }  else 
{ /* ./Ieee/vector.scm 130 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2387z00zz__r4_vectors_6_8z00, BGl_string2388z00zz__r4_vectors_6_8z00, 
BINT(BgL_kz00_840), "./Ieee/vector.scm", ((long)5865)); 
BgL_aux1704z00_842 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)5803))); } } 
POP_TRACE(); 
return BgL_aux1704z00_842;} } } } } 
}



/* vector-set! */
BGL_EXPORTED_DEF obj_t BGl_vectorzd2setz12zc0zz__r4_vectors_6_8z00(obj_t BgL_vectorz00_8, int BgL_kz00_9, obj_t BgL_objz00_10)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 137 */
{ /* ./Ieee/vector.scm 138 */
obj_t BgL_symbol1709z00_845;
BgL_symbol1709z00_845 = BGl_symbol2390z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 138 */

PUSH_TRACE(BgL_symbol1709z00_845); BUNSPEC; 
{ /* ./Ieee/vector.scm 138 */
obj_t BgL_aux1708z00_846;
{ /* ./Ieee/vector.scm 138 */
bool_t BgL_test1021z00_847;
{ /* ./Ieee/vector.scm 138 */
int BgL_arg1026z00_848;
BgL_arg1026z00_848 = 
VECTOR_LENGTH(BgL_vectorz00_8); 
BgL_test1021z00_847 = 
BOUND_CHECK(BgL_kz00_9, BgL_arg1026z00_848); } 
if(BgL_test1021z00_847)
{ /* ./Ieee/vector.scm 138 */
BgL_aux1708z00_846 = 
VECTOR_SET(BgL_vectorz00_8,BgL_kz00_9,BgL_objz00_10); }  else 
{ /* ./Ieee/vector.scm 138 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2391z00zz__r4_vectors_6_8z00, BGl_string2388z00zz__r4_vectors_6_8z00, 
BINT(BgL_kz00_9), "./Ieee/vector.scm", ((long)6273)); 
BgL_aux1708z00_846 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)6206))); } } 
POP_TRACE(); 
return BgL_aux1708z00_846;} } } } 
}



/* _vector-set! */
obj_t BGl__vectorzd2setz12zc0zz__r4_vectors_6_8z00(obj_t BgL_envz00_684, obj_t BgL_vectorz00_685, obj_t BgL_kz00_686, obj_t BgL_objz00_687)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 137 */
{ /* ./Ieee/vector.scm 138 */
obj_t BgL_vectorz00_849;int BgL_kz00_850;
if(
VECTORP(BgL_vectorz00_685))
{ /* ./Ieee/vector.scm 138 */
BgL_vectorz00_849 = BgL_vectorz00_685; }  else 
{ /* ./Ieee/vector.scm 138 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2392z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_vectorz00_685, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)6206))); 
exit( -1 );} 
{ /* ./Ieee/vector.scm 138 */
obj_t BgL_auxz00_1023;
if(
INTEGERP(BgL_kz00_686))
{ /* ./Ieee/vector.scm 138 */
BgL_auxz00_1023 = BgL_kz00_686
; }  else 
{ /* ./Ieee/vector.scm 138 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2392z00zz__r4_vectors_6_8z00, BGl_string2381z00zz__r4_vectors_6_8z00, BgL_kz00_686, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)6206))); 
exit( -1 );} 
BgL_kz00_850 = 
CINT(BgL_auxz00_1023); } 
{ /* ./Ieee/vector.scm 138 */
obj_t BgL_symbol1709z00_852;
BgL_symbol1709z00_852 = BGl_symbol2390z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 138 */

PUSH_TRACE(BgL_symbol1709z00_852); BUNSPEC; 
{ /* ./Ieee/vector.scm 138 */
obj_t BgL_aux1708z00_853;
{ /* ./Ieee/vector.scm 138 */
bool_t BgL_test1021z00_854;
{ /* ./Ieee/vector.scm 138 */
int BgL_arg1026z00_855;
BgL_arg1026z00_855 = 
VECTOR_LENGTH(BgL_vectorz00_849); 
BgL_test1021z00_854 = 
BOUND_CHECK(BgL_kz00_850, BgL_arg1026z00_855); } 
if(BgL_test1021z00_854)
{ /* ./Ieee/vector.scm 138 */
BgL_aux1708z00_853 = 
VECTOR_SET(BgL_vectorz00_849,BgL_kz00_850,BgL_objz00_687); }  else 
{ /* ./Ieee/vector.scm 138 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2391z00zz__r4_vectors_6_8z00, BGl_string2388z00zz__r4_vectors_6_8z00, 
BINT(BgL_kz00_850), "./Ieee/vector.scm", ((long)6273)); 
BgL_aux1708z00_853 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)6206))); } } 
POP_TRACE(); 
return BgL_aux1708z00_853;} } } } } 
}



/* vector-ref-ur */
BGL_EXPORTED_DEF obj_t BGl_vectorzd2refzd2urz00zz__r4_vectors_6_8z00(obj_t BgL_vectorz00_11, int BgL_kz00_12)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 145 */
{ /* ./Ieee/vector.scm 146 */
obj_t BgL_symbol1713z00_856;
BgL_symbol1713z00_856 = BGl_symbol2393z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 146 */

PUSH_TRACE(BgL_symbol1713z00_856); BUNSPEC; 
{ /* ./Ieee/vector.scm 146 */
obj_t BgL_aux1712z00_857;
BgL_aux1712z00_857 = 
VECTOR_REF(BgL_vectorz00_11,BgL_kz00_12); 
POP_TRACE(); 
return BgL_aux1712z00_857;} } } } 
}



/* _vector-ref-ur */
obj_t BGl__vectorzd2refzd2urz00zz__r4_vectors_6_8z00(obj_t BgL_envz00_688, obj_t BgL_vectorz00_689, obj_t BgL_kz00_690)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 145 */
{ /* ./Ieee/vector.scm 146 */
obj_t BgL_vectorz00_858;int BgL_kz00_859;
if(
VECTORP(BgL_vectorz00_689))
{ /* ./Ieee/vector.scm 146 */
BgL_vectorz00_858 = BgL_vectorz00_689; }  else 
{ /* ./Ieee/vector.scm 146 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2394z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_vectorz00_689, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)6586))); 
exit( -1 );} 
{ /* ./Ieee/vector.scm 146 */
obj_t BgL_auxz00_1048;
if(
INTEGERP(BgL_kz00_690))
{ /* ./Ieee/vector.scm 146 */
BgL_auxz00_1048 = BgL_kz00_690
; }  else 
{ /* ./Ieee/vector.scm 146 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2394z00zz__r4_vectors_6_8z00, BGl_string2381z00zz__r4_vectors_6_8z00, BgL_kz00_690, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)6586))); 
exit( -1 );} 
BgL_kz00_859 = 
CINT(BgL_auxz00_1048); } 
{ /* ./Ieee/vector.scm 146 */
obj_t BgL_symbol1713z00_860;
BgL_symbol1713z00_860 = BGl_symbol2393z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 146 */

PUSH_TRACE(BgL_symbol1713z00_860); BUNSPEC; 
{ /* ./Ieee/vector.scm 146 */
obj_t BgL_aux1712z00_861;
BgL_aux1712z00_861 = 
VECTOR_REF(BgL_vectorz00_858,BgL_kz00_859); 
POP_TRACE(); 
return BgL_aux1712z00_861;} } } } } 
}



/* vector-set-ur! */
BGL_EXPORTED_DEF obj_t BGl_vectorzd2setzd2urz12z12zz__r4_vectors_6_8z00(obj_t BgL_vectorz00_13, int BgL_kz00_14, obj_t BgL_objz00_15)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 151 */
{ /* ./Ieee/vector.scm 152 */
obj_t BgL_symbol1717z00_862;
BgL_symbol1717z00_862 = BGl_symbol2395z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 152 */

PUSH_TRACE(BgL_symbol1717z00_862); BUNSPEC; 
{ /* ./Ieee/vector.scm 152 */
obj_t BgL_aux1716z00_863;
BgL_aux1716z00_863 = 
VECTOR_SET(BgL_vectorz00_13,BgL_kz00_14,BgL_objz00_15); 
POP_TRACE(); 
return BgL_aux1716z00_863;} } } } 
}



/* _vector-set-ur! */
obj_t BGl__vectorzd2setzd2urz12z12zz__r4_vectors_6_8z00(obj_t BgL_envz00_691, obj_t BgL_vectorz00_692, obj_t BgL_kz00_693, obj_t BgL_objz00_694)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 151 */
{ /* ./Ieee/vector.scm 152 */
obj_t BgL_vectorz00_864;int BgL_kz00_865;
if(
VECTORP(BgL_vectorz00_692))
{ /* ./Ieee/vector.scm 152 */
BgL_vectorz00_864 = BgL_vectorz00_692; }  else 
{ /* ./Ieee/vector.scm 152 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2396z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_vectorz00_692, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)6882))); 
exit( -1 );} 
{ /* ./Ieee/vector.scm 152 */
obj_t BgL_auxz00_1066;
if(
INTEGERP(BgL_kz00_693))
{ /* ./Ieee/vector.scm 152 */
BgL_auxz00_1066 = BgL_kz00_693
; }  else 
{ /* ./Ieee/vector.scm 152 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2396z00zz__r4_vectors_6_8z00, BGl_string2381z00zz__r4_vectors_6_8z00, BgL_kz00_693, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)6882))); 
exit( -1 );} 
BgL_kz00_865 = 
CINT(BgL_auxz00_1066); } 
{ /* ./Ieee/vector.scm 152 */
obj_t BgL_symbol1717z00_867;
BgL_symbol1717z00_867 = BGl_symbol2395z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 152 */

PUSH_TRACE(BgL_symbol1717z00_867); BUNSPEC; 
{ /* ./Ieee/vector.scm 152 */
obj_t BgL_aux1716z00_868;
BgL_aux1716z00_868 = 
VECTOR_SET(BgL_vectorz00_864,BgL_kz00_865,BgL_objz00_694); 
POP_TRACE(); 
return BgL_aux1716z00_868;} } } } } 
}



/* vector->list */
BGL_EXPORTED_DEF obj_t BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t BgL_vectorz00_16)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 157 */
{ /* ./Ieee/vector.scm 158 */
obj_t BgL_symbol1721z00_654;
BgL_symbol1721z00_654 = BGl_symbol2397z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 158 */

PUSH_TRACE(BgL_symbol1721z00_654); BUNSPEC; 
{ /* ./Ieee/vector.scm 158 */
obj_t BgL_aux1720z00_655;
{ /* ./Ieee/vector.scm 158 */
int BgL_vlenz00_263;
BgL_vlenz00_263 = 
VECTOR_LENGTH(BgL_vectorz00_16); 
{ /* ./Ieee/vector.scm 159 */
bool_t BgL_testz00_1078;
{ /* ./Ieee/vector.scm 159 */
long BgL_auxz00_1079;
BgL_auxz00_1079 = 
(long)(BgL_vlenz00_263); 
BgL_testz00_1078 = 
(BgL_auxz00_1079==((long)0)); } 
if(BgL_testz00_1078)
{ /* ./Ieee/vector.scm 159 */
BgL_aux1720z00_655 = BNIL; }  else 
{ 
long BgL_iz00_265;obj_t BgL_accz00_266;
{ /* ./Ieee/vector.scm 161 */
long BgL_auxz00_1097;
BgL_auxz00_1097 = 
(long)(BgL_vlenz00_263); 
BgL_iz00_265 = 
(BgL_auxz00_1097-((long)1)); } 
BgL_accz00_266 = BNIL; 
BgL_loopz00_267:
if(
(BgL_iz00_265==((long)0)))
{ /* ./Ieee/vector.scm 164 */
obj_t BgL_auxz00_1084;
{ 
int BgL_auxz00_1085;
BgL_auxz00_1085 = 
(int)(BgL_iz00_265); 
BgL_auxz00_1084 = 
VECTOR_REF(BgL_vectorz00_16,BgL_auxz00_1085); } 
BgL_aux1720z00_655 = 
MAKE_PAIR(BgL_auxz00_1084, BgL_accz00_266); }  else 
{ /* ./Ieee/vector.scm 165 */
long BgL_arg1043z00_272;obj_t BgL_arg1044z00_273;
BgL_arg1043z00_272 = 
(BgL_iz00_265-((long)1)); 
{ /* ./Ieee/vector.scm 165 */
obj_t BgL_auxz00_1090;
{ 
int BgL_auxz00_1091;
BgL_auxz00_1091 = 
(int)(BgL_iz00_265); 
BgL_auxz00_1090 = 
VECTOR_REF(BgL_vectorz00_16,BgL_auxz00_1091); } 
BgL_arg1044z00_273 = 
MAKE_PAIR(BgL_auxz00_1090, BgL_accz00_266); } 
{ 
obj_t BgL_accz00_1096;long BgL_iz00_1095;
BgL_iz00_1095 = BgL_arg1043z00_272; 
BgL_accz00_1096 = BgL_arg1044z00_273; 
BgL_accz00_266 = BgL_accz00_1096; 
BgL_iz00_265 = BgL_iz00_1095; 
goto BgL_loopz00_267;} } } } } 
POP_TRACE(); 
return BgL_aux1720z00_655;} } } } 
}



/* _vector->list */
obj_t BGl__vectorzd2ze3listz31zz__r4_vectors_6_8z00(obj_t BgL_envz00_695, obj_t BgL_vectorz00_696)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 157 */
{ /* ./Ieee/vector.scm 158 */
obj_t BgL_auxz00_1101;
if(
VECTORP(BgL_vectorz00_696))
{ /* ./Ieee/vector.scm 158 */
BgL_auxz00_1101 = BgL_vectorz00_696
; }  else 
{ /* ./Ieee/vector.scm 158 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2398z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_vectorz00_696, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)7168))); 
exit( -1 );} 
return 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_auxz00_1101);} } 
}



/* list->vector */
BGL_EXPORTED_DEF obj_t BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t BgL_listz00_17)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 170 */
{ /* ./Ieee/vector.scm 171 */
obj_t BgL_symbol1725z00_656;
BgL_symbol1725z00_656 = BGl_symbol2399z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 171 */

PUSH_TRACE(BgL_symbol1725z00_656); BUNSPEC; 
{ /* ./Ieee/vector.scm 171 */
obj_t BgL_aux1724z00_657;
{ /* ./Ieee/vector.scm 171 */
long BgL_lenz00_275;
{ /* ./Ieee/vector.scm 171 */
obj_t BgL_auxz00_1109;
{ /* ./Ieee/vector.scm 171 */
bool_t BgL_testz00_1110;
if(
PAIRP(BgL_listz00_17))
{ /* ./Ieee/vector.scm 171 */
BgL_testz00_1110 = ((bool_t)1)
; }  else 
{ /* ./Ieee/vector.scm 171 */
BgL_testz00_1110 = 
NULLP(BgL_listz00_17)
; } 
if(BgL_testz00_1110)
{ /* ./Ieee/vector.scm 171 */
BgL_auxz00_1109 = BgL_listz00_17
; }  else 
{ /* ./Ieee/vector.scm 171 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2399z00zz__r4_vectors_6_8z00, BGl_string2400z00zz__r4_vectors_6_8z00, BgL_listz00_17, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)7681))); 
exit( -1 );} } 
BgL_lenz00_275 = 
bgl_list_length(BgL_auxz00_1109); } 
{ /* ./Ieee/vector.scm 171 */
obj_t BgL_vecz00_276;
{ 
int BgL_auxz00_1118;
BgL_auxz00_1118 = 
(int)(BgL_lenz00_275); 
BgL_vecz00_276 = 
create_vector(BgL_auxz00_1118); } 
{ /* ./Ieee/vector.scm 172 */

{ 
long BgL_iz00_277;obj_t BgL_lz00_278;
BgL_iz00_277 = ((long)0); 
BgL_lz00_278 = BgL_listz00_17; 
BgL_loopz00_279:
if(
(BgL_iz00_277==BgL_lenz00_275))
{ /* ./Ieee/vector.scm 175 */
BgL_aux1724z00_657 = BgL_vecz00_276; }  else 
{ /* ./Ieee/vector.scm 175 */
{ /* ./Ieee/vector.scm 178 */
obj_t BgL_arg1058z00_281;
{ /* ./Ieee/vector.scm 178 */
obj_t BgL_pairz00_498;
if(
PAIRP(BgL_lz00_278))
{ /* ./Ieee/vector.scm 178 */
BgL_pairz00_498 = BgL_lz00_278; }  else 
{ /* ./Ieee/vector.scm 178 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2399z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_lz00_278, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)7823))); 
exit( -1 );} 
BgL_arg1058z00_281 = 
CAR(BgL_pairz00_498); } 
{ 
int BgL_auxz00_1129;
BgL_auxz00_1129 = 
(int)(BgL_iz00_277); 
VECTOR_SET(BgL_vecz00_276,BgL_auxz00_1129,BgL_arg1058z00_281); } } 
{ /* ./Ieee/vector.scm 179 */
long BgL_arg1064z00_282;obj_t BgL_arg1065z00_283;
BgL_arg1064z00_282 = 
(BgL_iz00_277+((long)1)); 
{ /* ./Ieee/vector.scm 179 */
obj_t BgL_pairz00_504;
if(
PAIRP(BgL_lz00_278))
{ /* ./Ieee/vector.scm 179 */
BgL_pairz00_504 = BgL_lz00_278; }  else 
{ /* ./Ieee/vector.scm 179 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2399z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_lz00_278, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)7850))); 
exit( -1 );} 
BgL_arg1065z00_283 = 
CDR(BgL_pairz00_504); } 
{ 
obj_t BgL_lz00_1140;long BgL_iz00_1139;
BgL_iz00_1139 = BgL_arg1064z00_282; 
BgL_lz00_1140 = BgL_arg1065z00_283; 
BgL_lz00_278 = BgL_lz00_1140; 
BgL_iz00_277 = BgL_iz00_1139; 
goto BgL_loopz00_279;} } } } } } } 
POP_TRACE(); 
return BgL_aux1724z00_657;} } } } 
}



/* _list->vector */
obj_t BGl__listzd2ze3vectorz31zz__r4_vectors_6_8z00(obj_t BgL_envz00_697, obj_t BgL_listz00_698)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 170 */
return 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_listz00_698);} 
}



/* vector-fill! */
BGL_EXPORTED_DEF obj_t BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t BgL_vectorz00_18, obj_t BgL_fillz00_19)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 184 */
{ /* ./Ieee/vector.scm 185 */
obj_t BgL_symbol1729z00_658;
BgL_symbol1729z00_658 = BGl_symbol2401z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 185 */

PUSH_TRACE(BgL_symbol1729z00_658); BUNSPEC; 
{ /* ./Ieee/vector.scm 185 */
obj_t BgL_aux1728z00_659;
{ /* ./Ieee/vector.scm 185 */
int BgL_arg1073z00_505;
BgL_arg1073z00_505 = 
VECTOR_LENGTH(BgL_vectorz00_18); 
BgL_aux1728z00_659 = 
fill_vector(BgL_vectorz00_18, BgL_arg1073z00_505, BgL_fillz00_19); } 
POP_TRACE(); 
return BgL_aux1728z00_659;} } } } 
}



/* _vector-fill! */
obj_t BGl__vectorzd2fillz12zc0zz__r4_vectors_6_8z00(obj_t BgL_envz00_699, obj_t BgL_vectorz00_700, obj_t BgL_fillz00_701)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 184 */
{ /* ./Ieee/vector.scm 185 */
obj_t BgL_auxz00_1147;
if(
VECTORP(BgL_vectorz00_700))
{ /* ./Ieee/vector.scm 185 */
BgL_auxz00_1147 = BgL_vectorz00_700
; }  else 
{ /* ./Ieee/vector.scm 185 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2402z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_vectorz00_700, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)8143))); 
exit( -1 );} 
return 
BGl_vectorzd2fillz12zc0zz__r4_vectors_6_8z00(BgL_auxz00_1147, BgL_fillz00_701);} } 
}



/* vector-tag */
BGL_EXPORTED_DEF int BGl_vectorzd2tagzd2zz__r4_vectors_6_8z00(obj_t BgL_vectorz00_20)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 190 */
{ /* ./Ieee/vector.scm 191 */
obj_t BgL_symbol1733z00_874;
BgL_symbol1733z00_874 = BGl_symbol2403z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 191 */

PUSH_TRACE(BgL_symbol1733z00_874); BUNSPEC; 
{ /* ./Ieee/vector.scm 191 */
int BgL_aux1732z00_875;
BgL_aux1732z00_875 = 
VECTOR_TAG(BgL_vectorz00_20); 
POP_TRACE(); 
return BgL_aux1732z00_875;} } } } 
}



/* _vector-tag */
obj_t BGl__vectorzd2tagzd2zz__r4_vectors_6_8z00(obj_t BgL_envz00_702, obj_t BgL_vectorz00_703)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 190 */
{ /* ./Ieee/vector.scm 191 */
int BgL_auxz00_1157;
{ /* ./Ieee/vector.scm 191 */
int BgL_res2425z00_879;
{ /* ./Ieee/vector.scm 191 */
obj_t BgL_vectorz00_876;
if(
VECTORP(BgL_vectorz00_703))
{ /* ./Ieee/vector.scm 191 */
BgL_vectorz00_876 = BgL_vectorz00_703; }  else 
{ /* ./Ieee/vector.scm 191 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2404z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_vectorz00_703, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)8434))); 
exit( -1 );} 
{ /* ./Ieee/vector.scm 191 */
obj_t BgL_symbol1733z00_877;
BgL_symbol1733z00_877 = BGl_symbol2403z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 191 */

PUSH_TRACE(BgL_symbol1733z00_877); BUNSPEC; 
{ /* ./Ieee/vector.scm 191 */
int BgL_aux1732z00_878;
BgL_aux1732z00_878 = 
VECTOR_TAG(BgL_vectorz00_876); 
POP_TRACE(); 
BgL_res2425z00_879 = BgL_aux1732z00_878; } } } } 
BgL_auxz00_1157 = BgL_res2425z00_879; } 
return 
BINT(BgL_auxz00_1157);} } 
}



/* vector-tag-set! */
BGL_EXPORTED_DEF obj_t BGl_vectorzd2tagzd2setz12z12zz__r4_vectors_6_8z00(obj_t BgL_vectorz00_21, int BgL_tagz00_22)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 196 */
{ /* ./Ieee/vector.scm 197 */
obj_t BgL_symbol1737z00_880;
BgL_symbol1737z00_880 = BGl_symbol2405z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 197 */

PUSH_TRACE(BgL_symbol1737z00_880); BUNSPEC; 
{ /* ./Ieee/vector.scm 197 */
obj_t BgL_aux1736z00_881;
BgL_aux1736z00_881 = 
VECTOR_TAG_SET(BgL_vectorz00_21, BgL_tagz00_22); 
POP_TRACE(); 
return BgL_aux1736z00_881;} } } } 
}



/* _vector-tag-set! */
obj_t BGl__vectorzd2tagzd2setz12z12zz__r4_vectors_6_8z00(obj_t BgL_envz00_704, obj_t BgL_vectorz00_705, obj_t BgL_tagz00_706)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 196 */
{ /* ./Ieee/vector.scm 197 */
obj_t BgL_vectorz00_882;int BgL_tagz00_883;
if(
VECTORP(BgL_vectorz00_705))
{ /* ./Ieee/vector.scm 197 */
BgL_vectorz00_882 = BgL_vectorz00_705; }  else 
{ /* ./Ieee/vector.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2406z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_vectorz00_705, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)8727))); 
exit( -1 );} 
{ /* ./Ieee/vector.scm 197 */
obj_t BgL_auxz00_1175;
if(
INTEGERP(BgL_tagz00_706))
{ /* ./Ieee/vector.scm 197 */
BgL_auxz00_1175 = BgL_tagz00_706
; }  else 
{ /* ./Ieee/vector.scm 197 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2406z00zz__r4_vectors_6_8z00, BGl_string2381z00zz__r4_vectors_6_8z00, BgL_tagz00_706, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)8727))); 
exit( -1 );} 
BgL_tagz00_883 = 
CINT(BgL_auxz00_1175); } 
{ /* ./Ieee/vector.scm 197 */
obj_t BgL_symbol1737z00_884;
BgL_symbol1737z00_884 = BGl_symbol2405z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 197 */

PUSH_TRACE(BgL_symbol1737z00_884); BUNSPEC; 
{ /* ./Ieee/vector.scm 197 */
obj_t BgL_aux1736z00_885;
BgL_aux1736z00_885 = 
VECTOR_TAG_SET(BgL_vectorz00_882, BgL_tagz00_883); 
POP_TRACE(); 
return BgL_aux1736z00_885;} } } } } 
}



/* copy-vector */
BGL_EXPORTED_DEF obj_t BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(obj_t BgL_oldzd2veczd2_23, int BgL_newzd2lenzd2_24)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 202 */
{ /* ./Ieee/vector.scm 203 */
obj_t BgL_symbol1741z00_664;
BgL_symbol1741z00_664 = BGl_symbol2407z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 203 */

PUSH_TRACE(BgL_symbol1741z00_664); BUNSPEC; 
{ /* ./Ieee/vector.scm 203 */
obj_t BgL_aux1740z00_665;
{ /* ./Ieee/vector.scm 203 */
int BgL_oldzd2lenzd2_285;
BgL_oldzd2lenzd2_285 = 
VECTOR_LENGTH(BgL_oldzd2veczd2_23); 
{ /* ./Ieee/vector.scm 203 */
obj_t BgL_newzd2veczd2_286;
{ /* ./Ieee/vector.scm 204 */
obj_t BgL_auxz00_1187;
BgL_auxz00_1187 = BUNSPEC; 
BgL_newzd2veczd2_286 = 
make_vector(BgL_newzd2lenzd2_24, BgL_auxz00_1187); } 
{ /* ./Ieee/vector.scm 204 */
int BgL_minz00_287;
{ /* ./Ieee/vector.scm 205 */
bool_t BgL_testz00_1189;
{ /* ./Ieee/vector.scm 205 */
long BgL_auxz00_1192;long BgL_auxz00_1190;
BgL_auxz00_1192 = 
(long)(BgL_oldzd2lenzd2_285); 
BgL_auxz00_1190 = 
(long)(BgL_newzd2lenzd2_24); 
BgL_testz00_1189 = 
(BgL_auxz00_1190<BgL_auxz00_1192); } 
if(BgL_testz00_1189)
{ /* ./Ieee/vector.scm 205 */
BgL_minz00_287 = BgL_newzd2lenzd2_24; }  else 
{ /* ./Ieee/vector.scm 205 */
BgL_minz00_287 = BgL_oldzd2lenzd2_285; } } 
{ /* ./Ieee/vector.scm 205 */

{ 
long BgL_iz00_288;
BgL_iz00_288 = ((long)0); 
BgL_loopz00_289:
{ /* ./Ieee/vector.scm 209 */
bool_t BgL_testz00_1195;
{ /* ./Ieee/vector.scm 209 */
long BgL_auxz00_1196;
BgL_auxz00_1196 = 
(long)(BgL_minz00_287); 
BgL_testz00_1195 = 
(BgL_iz00_288==BgL_auxz00_1196); } 
if(BgL_testz00_1195)
{ /* ./Ieee/vector.scm 209 */
BgL_aux1740z00_665 = BgL_newzd2veczd2_286; }  else 
{ /* ./Ieee/vector.scm 209 */
{ /* ./Ieee/vector.scm 212 */
obj_t BgL_arg1081z00_291;
{ /* ./Ieee/vector.scm 212 */
int BgL_kz00_514;
BgL_kz00_514 = 
(int)(BgL_iz00_288); 
{ /* ./Ieee/vector.scm 212 */
bool_t BgL_test1013z00_515;
{ /* ./Ieee/vector.scm 212 */
int BgL_arg1018z00_516;
BgL_arg1018z00_516 = 
VECTOR_LENGTH(BgL_oldzd2veczd2_23); 
BgL_test1013z00_515 = 
BOUND_CHECK(BgL_kz00_514, BgL_arg1018z00_516); } 
if(BgL_test1013z00_515)
{ /* ./Ieee/vector.scm 212 */
BgL_arg1081z00_291 = 
VECTOR_REF(BgL_oldzd2veczd2_23,BgL_kz00_514); }  else 
{ /* ./Ieee/vector.scm 212 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2387z00zz__r4_vectors_6_8z00, BGl_string2388z00zz__r4_vectors_6_8z00, 
BINT(BgL_kz00_514), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1081z00_291 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9289))); } } } 
{ /* ./Ieee/vector.scm 212 */
int BgL_kz00_522;
BgL_kz00_522 = 
(int)(BgL_iz00_288); 
{ /* ./Ieee/vector.scm 212 */
bool_t BgL_test1021z00_524;
{ /* ./Ieee/vector.scm 212 */
int BgL_arg1026z00_525;
BgL_arg1026z00_525 = 
VECTOR_LENGTH(BgL_newzd2veczd2_286); 
BgL_test1021z00_524 = 
BOUND_CHECK(BgL_kz00_522, BgL_arg1026z00_525); } 
if(BgL_test1021z00_524)
{ /* ./Ieee/vector.scm 212 */
VECTOR_SET(BgL_newzd2veczd2_286,BgL_kz00_522,BgL_arg1081z00_291); }  else 
{ /* ./Ieee/vector.scm 212 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2391z00zz__r4_vectors_6_8z00, BGl_string2388z00zz__r4_vectors_6_8z00, 
BINT(BgL_kz00_522), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9266))); } } } } 
{ 
long BgL_iz00_1217;
BgL_iz00_1217 = 
(BgL_iz00_288+((long)1)); 
BgL_iz00_288 = BgL_iz00_1217; 
goto BgL_loopz00_289;} } } } } } } } 
POP_TRACE(); 
return BgL_aux1740z00_665;} } } } 
}



/* _copy-vector */
obj_t BGl__copyzd2vectorzd2zz__r4_vectors_6_8z00(obj_t BgL_envz00_707, obj_t BgL_oldzd2veczd2_708, obj_t BgL_newzd2lenzd2_709)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 202 */
{ /* ./Ieee/vector.scm 203 */
int BgL_auxz00_1226;obj_t BgL_auxz00_1220;
{ /* ./Ieee/vector.scm 203 */
obj_t BgL_auxz00_1227;
if(
INTEGERP(BgL_newzd2lenzd2_709))
{ /* ./Ieee/vector.scm 203 */
BgL_auxz00_1227 = BgL_newzd2lenzd2_709
; }  else 
{ /* ./Ieee/vector.scm 203 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2408z00zz__r4_vectors_6_8z00, BGl_string2381z00zz__r4_vectors_6_8z00, BgL_newzd2lenzd2_709, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9044))); 
exit( -1 );} 
BgL_auxz00_1226 = 
CINT(BgL_auxz00_1227); } 
if(
VECTORP(BgL_oldzd2veczd2_708))
{ /* ./Ieee/vector.scm 203 */
BgL_auxz00_1220 = BgL_oldzd2veczd2_708
; }  else 
{ /* ./Ieee/vector.scm 203 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2408z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_oldzd2veczd2_708, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9044))); 
exit( -1 );} 
return 
BGl_copyzd2vectorzd2zz__r4_vectors_6_8z00(BgL_auxz00_1220, BgL_auxz00_1226);} } 
}



/* vector-copy */
BGL_EXPORTED_DEF obj_t BGl_vectorzd2copyzd2zz__r4_vectors_6_8z00(obj_t BgL_oldzd2veczd2_25, obj_t BgL_argsz00_26)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 218 */
{ /* ./Ieee/vector.scm 219 */
obj_t BgL_symbol1745z00_666;
BgL_symbol1745z00_666 = BGl_symbol2409z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 219 */

PUSH_TRACE(BgL_symbol1745z00_666); BUNSPEC; 
{ /* ./Ieee/vector.scm 219 */
obj_t BgL_aux1744z00_667;
{ /* ./Ieee/vector.scm 219 */
int BgL_oldzd2lenzd2_295;
BgL_oldzd2lenzd2_295 = 
VECTOR_LENGTH(BgL_oldzd2veczd2_25); 
{ /* ./Ieee/vector.scm 219 */
obj_t BgL_startz00_296;
{ /* ./Ieee/vector.scm 220 */
bool_t BgL_test1153z00_326;
BgL_test1153z00_326 = 
PAIRP(BgL_argsz00_26); 
if(BgL_test1153z00_326)
{ /* ./Ieee/vector.scm 221 */
bool_t BgL_test1154z00_327;
{ /* ./Ieee/vector.scm 221 */
obj_t BgL_arg1169z00_333;
{ /* ./Ieee/vector.scm 221 */
obj_t BgL_pairz00_534;
if(BgL_test1153z00_326)
{ /* ./Ieee/vector.scm 221 */
BgL_pairz00_534 = BgL_argsz00_26; }  else 
{ /* ./Ieee/vector.scm 221 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_argsz00_26, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9712))); 
exit( -1 );} 
BgL_arg1169z00_333 = 
CAR(BgL_pairz00_534); } 
BgL_test1154z00_327 = 
INTEGERP(BgL_arg1169z00_333); } 
if(BgL_test1154z00_327)
{ /* ./Ieee/vector.scm 222 */
obj_t BgL_pairz00_536;
if(
PAIRP(BgL_argsz00_26))
{ /* ./Ieee/vector.scm 222 */
BgL_pairz00_536 = BgL_argsz00_26; }  else 
{ /* ./Ieee/vector.scm 222 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_argsz00_26, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9728))); 
exit( -1 );} 
BgL_startz00_296 = 
CAR(BgL_pairz00_536); }  else 
{ /* ./Ieee/vector.scm 221 */
{ /* ./Ieee/vector.scm 223 */
obj_t BgL_arg1161z00_330;
{ /* ./Ieee/vector.scm 223 */
obj_t BgL_pairz00_537;
if(
PAIRP(BgL_argsz00_26))
{ /* ./Ieee/vector.scm 223 */
BgL_pairz00_537 = BgL_argsz00_26; }  else 
{ /* ./Ieee/vector.scm 223 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_argsz00_26, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9783))); 
exit( -1 );} 
BgL_arg1161z00_330 = 
CAR(BgL_pairz00_537); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2410z00zz__r4_vectors_6_8z00, BGl_string2411z00zz__r4_vectors_6_8z00, BgL_arg1161z00_330, "./Ieee/vector.scm", ((long)9735)); } 
BgL_startz00_296 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9773))); } }  else 
{ /* ./Ieee/vector.scm 220 */
BgL_startz00_296 = 
BINT(((long)0)); } } 
{ /* ./Ieee/vector.scm 220 */
obj_t BgL_stopz00_297;
{ /* ./Ieee/vector.scm 225 */
bool_t BgL_test1124z00_313;
{ /* ./Ieee/vector.scm 225 */
bool_t BgL_test1147z00_324;
BgL_test1147z00_324 = 
PAIRP(BgL_argsz00_26); 
if(BgL_test1147z00_324)
{ /* ./Ieee/vector.scm 225 */
obj_t BgL_arg1149z00_325;
{ /* ./Ieee/vector.scm 225 */
obj_t BgL_pairz00_542;
if(BgL_test1147z00_324)
{ /* ./Ieee/vector.scm 225 */
BgL_pairz00_542 = BgL_argsz00_26; }  else 
{ /* ./Ieee/vector.scm 225 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_argsz00_26, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9845))); 
exit( -1 );} 
BgL_arg1149z00_325 = 
CDR(BgL_pairz00_542); } 
BgL_test1124z00_313 = 
PAIRP(BgL_arg1149z00_325); }  else 
{ /* ./Ieee/vector.scm 225 */
BgL_test1124z00_313 = ((bool_t)0); } } 
if(BgL_test1124z00_313)
{ /* ./Ieee/vector.scm 226 */
bool_t BgL_test1125z00_314;
{ /* ./Ieee/vector.scm 226 */
bool_t BgL_test1137z00_320;
{ /* ./Ieee/vector.scm 226 */
obj_t BgL_arg1144z00_323;
{ /* ./Ieee/vector.scm 226 */
obj_t BgL_pairz00_544;
if(
PAIRP(BgL_argsz00_26))
{ /* ./Ieee/vector.scm 226 */
BgL_pairz00_544 = BgL_argsz00_26; }  else 
{ /* ./Ieee/vector.scm 226 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_argsz00_26, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9880))); 
exit( -1 );} 
{ /* ./Ieee/vector.scm 226 */
obj_t BgL_arg1448z00_545;
BgL_arg1448z00_545 = 
CDR(BgL_pairz00_544); 
{ /* ./Ieee/vector.scm 226 */
obj_t BgL_pairz00_547;
if(
PAIRP(BgL_arg1448z00_545))
{ /* ./Ieee/vector.scm 226 */
BgL_pairz00_547 = BgL_arg1448z00_545; }  else 
{ /* ./Ieee/vector.scm 226 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_arg1448z00_545, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9871))); 
exit( -1 );} 
BgL_arg1144z00_323 = 
CDR(BgL_pairz00_547); } } } 
BgL_test1137z00_320 = 
PAIRP(BgL_arg1144z00_323); } 
if(BgL_test1137z00_320)
{ /* ./Ieee/vector.scm 226 */
BgL_test1125z00_314 = ((bool_t)1); }  else 
{ /* ./Ieee/vector.scm 227 */
bool_t BgL_test1138z00_321;
{ /* ./Ieee/vector.scm 227 */
obj_t BgL_arg1140z00_322;
{ /* ./Ieee/vector.scm 227 */
obj_t BgL_pairz00_549;
if(
PAIRP(BgL_argsz00_26))
{ /* ./Ieee/vector.scm 227 */
BgL_pairz00_549 = BgL_argsz00_26; }  else 
{ /* ./Ieee/vector.scm 227 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_argsz00_26, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9914))); 
exit( -1 );} 
{ /* ./Ieee/vector.scm 227 */
obj_t BgL_arg1456z00_550;
BgL_arg1456z00_550 = 
CDR(BgL_pairz00_549); 
{ /* ./Ieee/vector.scm 227 */
obj_t BgL_pairz00_552;
if(
PAIRP(BgL_arg1456z00_550))
{ /* ./Ieee/vector.scm 227 */
BgL_pairz00_552 = BgL_arg1456z00_550; }  else 
{ /* ./Ieee/vector.scm 227 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_arg1456z00_550, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9905))); 
exit( -1 );} 
BgL_arg1140z00_322 = 
CAR(BgL_pairz00_552); } } } 
BgL_test1138z00_321 = 
INTEGERP(BgL_arg1140z00_322); } 
if(BgL_test1138z00_321)
{ /* ./Ieee/vector.scm 227 */
BgL_test1125z00_314 = ((bool_t)0); }  else 
{ /* ./Ieee/vector.scm 227 */
BgL_test1125z00_314 = ((bool_t)1); } } } 
if(BgL_test1125z00_314)
{ /* ./Ieee/vector.scm 226 */
{ /* ./Ieee/vector.scm 228 */
obj_t BgL_arg1130z00_317;
{ /* ./Ieee/vector.scm 228 */
obj_t BgL_pairz00_554;
if(
PAIRP(BgL_argsz00_26))
{ /* ./Ieee/vector.scm 228 */
BgL_pairz00_554 = BgL_argsz00_26; }  else 
{ /* ./Ieee/vector.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_argsz00_26, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9971))); 
exit( -1 );} 
BgL_arg1130z00_317 = 
CDR(BgL_pairz00_554); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2410z00zz__r4_vectors_6_8z00, BGl_string2411z00zz__r4_vectors_6_8z00, BgL_arg1130z00_317, "./Ieee/vector.scm", ((long)9923)); } 
BgL_stopz00_297 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9961))); }  else 
{ /* ./Ieee/vector.scm 229 */
obj_t BgL_pairz00_558;
if(
PAIRP(BgL_argsz00_26))
{ /* ./Ieee/vector.scm 229 */
BgL_pairz00_558 = BgL_argsz00_26; }  else 
{ /* ./Ieee/vector.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_argsz00_26, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9987))); 
exit( -1 );} 
{ /* ./Ieee/vector.scm 229 */
obj_t BgL_arg1456z00_559;
BgL_arg1456z00_559 = 
CDR(BgL_pairz00_558); 
{ /* ./Ieee/vector.scm 229 */
obj_t BgL_pairz00_561;
if(
PAIRP(BgL_arg1456z00_559))
{ /* ./Ieee/vector.scm 229 */
BgL_pairz00_561 = BgL_arg1456z00_559; }  else 
{ /* ./Ieee/vector.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2378z00zz__r4_vectors_6_8z00, BgL_arg1456z00_559, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9978))); 
exit( -1 );} 
BgL_stopz00_297 = 
CAR(BgL_pairz00_561); } } } }  else 
{ /* ./Ieee/vector.scm 225 */
BgL_stopz00_297 = 
BINT(BgL_oldzd2lenzd2_295); } } 
{ /* ./Ieee/vector.scm 225 */
long BgL_newzd2lenzd2_298;
{ /* ./Ieee/vector.scm 231 */
long BgL_za71za7_562;long BgL_za72za7_563;
{ /* ./Ieee/vector.scm 231 */
obj_t BgL_auxz00_1322;
if(
INTEGERP(BgL_stopz00_297))
{ /* ./Ieee/vector.scm 231 */
BgL_auxz00_1322 = BgL_stopz00_297
; }  else 
{ /* ./Ieee/vector.scm 231 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2412z00zz__r4_vectors_6_8z00, BgL_stopz00_297, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10019))); 
exit( -1 );} 
BgL_za71za7_562 = 
(long)CINT(BgL_auxz00_1322); } 
{ /* ./Ieee/vector.scm 231 */
obj_t BgL_auxz00_1329;
if(
INTEGERP(BgL_startz00_296))
{ /* ./Ieee/vector.scm 231 */
BgL_auxz00_1329 = BgL_startz00_296
; }  else 
{ /* ./Ieee/vector.scm 231 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2412z00zz__r4_vectors_6_8z00, BgL_startz00_296, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10019))); 
exit( -1 );} 
BgL_za72za7_563 = 
(long)CINT(BgL_auxz00_1329); } 
BgL_newzd2lenzd2_298 = 
(BgL_za71za7_562-BgL_za72za7_563); } 
{ /* ./Ieee/vector.scm 231 */
obj_t BgL_newzd2veczd2_299;
{ /* ./Ieee/vector.scm 232 */
obj_t BgL_auxz00_1339;int BgL_auxz00_1337;
BgL_auxz00_1339 = BUNSPEC; 
BgL_auxz00_1337 = 
(int)(BgL_newzd2lenzd2_298); 
BgL_newzd2veczd2_299 = 
make_vector(BgL_auxz00_1337, BgL_auxz00_1339); } 
{ /* ./Ieee/vector.scm 233 */

{ /* ./Ieee/vector.scm 236 */
bool_t BgL_test1096z00_301;
if(
(BgL_newzd2lenzd2_298<((long)0)))
{ /* ./Ieee/vector.scm 236 */
BgL_test1096z00_301 = ((bool_t)1); }  else 
{ /* ./Ieee/vector.scm 238 */
bool_t BgL_test1113z00_310;
{ /* ./Ieee/vector.scm 237 */
long BgL_n1z00_569;long BgL_n2z00_570;
{ /* ./Ieee/vector.scm 237 */
obj_t BgL_auxz00_1343;
if(
INTEGERP(BgL_startz00_296))
{ /* ./Ieee/vector.scm 237 */
BgL_auxz00_1343 = BgL_startz00_296
; }  else 
{ /* ./Ieee/vector.scm 237 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2412z00zz__r4_vectors_6_8z00, BgL_startz00_296, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10181))); 
exit( -1 );} 
BgL_n1z00_569 = 
(long)CINT(BgL_auxz00_1343); } 
BgL_n2z00_570 = 
(long)(BgL_oldzd2lenzd2_295); 
BgL_test1113z00_310 = 
(BgL_n1z00_569>BgL_n2z00_570); } 
if(BgL_test1113z00_310)
{ /* ./Ieee/vector.scm 238 */
BgL_test1096z00_301 = ((bool_t)1); }  else 
{ /* ./Ieee/vector.scm 238 */
long BgL_n1z00_571;long BgL_n2z00_572;
{ /* ./Ieee/vector.scm 238 */
obj_t BgL_auxz00_1353;
if(
INTEGERP(BgL_stopz00_297))
{ /* ./Ieee/vector.scm 238 */
BgL_auxz00_1353 = BgL_stopz00_297
; }  else 
{ /* ./Ieee/vector.scm 238 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2412z00zz__r4_vectors_6_8z00, BgL_stopz00_297, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10207))); 
exit( -1 );} 
BgL_n1z00_571 = 
(long)CINT(BgL_auxz00_1353); } 
BgL_n2z00_572 = 
(long)(BgL_oldzd2lenzd2_295); 
BgL_test1096z00_301 = 
(BgL_n1z00_571>BgL_n2z00_572); } } 
if(BgL_test1096z00_301)
{ /* ./Ieee/vector.scm 236 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2410z00zz__r4_vectors_6_8z00, BGl_string2413z00zz__r4_vectors_6_8z00, BgL_argsz00_26, "./Ieee/vector.scm", ((long)10222)); 
{ /* ./Ieee/vector.scm 239 */
obj_t BgL_aux2229z00_790;
BgL_aux2229z00_790 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10259))); 
if(
VECTORP(BgL_aux2229z00_790))
{ /* ./Ieee/vector.scm 239 */
BgL_aux1744z00_667 = BgL_aux2229z00_790; }  else 
{ /* ./Ieee/vector.scm 239 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_aux2229z00_790, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10259))); 
exit( -1 );} } }  else 
{ 
obj_t BgL_rz00_302;long BgL_wz00_303;
BgL_rz00_302 = BgL_startz00_296; 
BgL_wz00_303 = ((long)0); 
BgL_loopz00_304:
{ /* ./Ieee/vector.scm 242 */
bool_t BgL_test1100z00_305;
{ /* ./Ieee/vector.scm 242 */
long BgL_n1z00_576;long BgL_n2z00_577;
{ /* ./Ieee/vector.scm 242 */
obj_t BgL_auxz00_1371;
if(
INTEGERP(BgL_rz00_302))
{ /* ./Ieee/vector.scm 242 */
BgL_auxz00_1371 = BgL_rz00_302
; }  else 
{ /* ./Ieee/vector.scm 242 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2412z00zz__r4_vectors_6_8z00, BgL_rz00_302, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10320))); 
exit( -1 );} 
BgL_n1z00_576 = 
(long)CINT(BgL_auxz00_1371); } 
{ /* ./Ieee/vector.scm 242 */
obj_t BgL_auxz00_1378;
if(
INTEGERP(BgL_stopz00_297))
{ /* ./Ieee/vector.scm 242 */
BgL_auxz00_1378 = BgL_stopz00_297
; }  else 
{ /* ./Ieee/vector.scm 242 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2412z00zz__r4_vectors_6_8z00, BgL_stopz00_297, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10325))); 
exit( -1 );} 
BgL_n2z00_577 = 
(long)CINT(BgL_auxz00_1378); } 
BgL_test1100z00_305 = 
(BgL_n1z00_576==BgL_n2z00_577); } 
if(BgL_test1100z00_305)
{ /* ./Ieee/vector.scm 242 */
BgL_aux1744z00_667 = BgL_newzd2veczd2_299; }  else 
{ /* ./Ieee/vector.scm 242 */
{ /* ./Ieee/vector.scm 245 */
obj_t BgL_arg1102z00_306;
{ /* ./Ieee/vector.scm 245 */
int BgL_kz00_579;
{ /* ./Ieee/vector.scm 245 */
obj_t BgL_auxz00_1387;
if(
INTEGERP(BgL_rz00_302))
{ /* ./Ieee/vector.scm 245 */
BgL_auxz00_1387 = BgL_rz00_302
; }  else 
{ /* ./Ieee/vector.scm 245 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2381z00zz__r4_vectors_6_8z00, BgL_rz00_302, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10398))); 
exit( -1 );} 
BgL_kz00_579 = 
CINT(BgL_auxz00_1387); } 
{ /* ./Ieee/vector.scm 245 */
bool_t BgL_test1013z00_580;
{ /* ./Ieee/vector.scm 245 */
int BgL_arg1018z00_581;
BgL_arg1018z00_581 = 
VECTOR_LENGTH(BgL_oldzd2veczd2_25); 
BgL_test1013z00_580 = 
BOUND_CHECK(BgL_kz00_579, BgL_arg1018z00_581); } 
if(BgL_test1013z00_580)
{ /* ./Ieee/vector.scm 245 */
BgL_arg1102z00_306 = 
VECTOR_REF(BgL_oldzd2veczd2_25,BgL_kz00_579); }  else 
{ /* ./Ieee/vector.scm 245 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2387z00zz__r4_vectors_6_8z00, BGl_string2388z00zz__r4_vectors_6_8z00, 
BINT(BgL_kz00_579), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1102z00_306 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10378))); } } } 
{ /* ./Ieee/vector.scm 245 */
int BgL_kz00_587;
BgL_kz00_587 = 
(int)(BgL_wz00_303); 
{ /* ./Ieee/vector.scm 245 */
bool_t BgL_test1021z00_589;
{ /* ./Ieee/vector.scm 245 */
int BgL_arg1026z00_590;
BgL_arg1026z00_590 = 
VECTOR_LENGTH(BgL_newzd2veczd2_299); 
BgL_test1021z00_589 = 
BOUND_CHECK(BgL_kz00_587, BgL_arg1026z00_590); } 
if(BgL_test1021z00_589)
{ /* ./Ieee/vector.scm 245 */
VECTOR_SET(BgL_newzd2veczd2_299,BgL_kz00_587,BgL_arg1102z00_306); }  else 
{ /* ./Ieee/vector.scm 245 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2391z00zz__r4_vectors_6_8z00, BGl_string2388z00zz__r4_vectors_6_8z00, 
BINT(BgL_kz00_587), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10355))); } } } } 
{ /* ./Ieee/vector.scm 246 */
long BgL_arg1106z00_307;long BgL_arg1107z00_308;
{ /* ./Ieee/vector.scm 246 */
long BgL_za71za7_595;
{ /* ./Ieee/vector.scm 246 */
obj_t BgL_auxz00_1411;
if(
INTEGERP(BgL_rz00_302))
{ /* ./Ieee/vector.scm 246 */
BgL_auxz00_1411 = BgL_rz00_302
; }  else 
{ /* ./Ieee/vector.scm 246 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2409z00zz__r4_vectors_6_8z00, BGl_string2412z00zz__r4_vectors_6_8z00, BgL_rz00_302, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10414))); 
exit( -1 );} 
BgL_za71za7_595 = 
(long)CINT(BgL_auxz00_1411); } 
BgL_arg1106z00_307 = 
(BgL_za71za7_595+((long)1)); } 
BgL_arg1107z00_308 = 
(BgL_wz00_303+((long)1)); 
{ 
long BgL_wz00_1422;obj_t BgL_rz00_1420;
BgL_rz00_1420 = 
BINT(BgL_arg1106z00_307); 
BgL_wz00_1422 = BgL_arg1107z00_308; 
BgL_wz00_303 = BgL_wz00_1422; 
BgL_rz00_302 = BgL_rz00_1420; 
goto BgL_loopz00_304;} } } } } } } } } } } } 
POP_TRACE(); 
return BgL_aux1744z00_667;} } } } 
}



/* _vector-copy */
obj_t BGl__vectorzd2copyzd2zz__r4_vectors_6_8z00(obj_t BgL_envz00_710, obj_t BgL_oldzd2veczd2_711, obj_t BgL_argsz00_712)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 218 */
{ /* ./Ieee/vector.scm 219 */
obj_t BgL_auxz00_1424;
if(
VECTORP(BgL_oldzd2veczd2_711))
{ /* ./Ieee/vector.scm 219 */
BgL_auxz00_1424 = BgL_oldzd2veczd2_711
; }  else 
{ /* ./Ieee/vector.scm 219 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2414z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_oldzd2veczd2_711, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)9616))); 
exit( -1 );} 
return 
BGl_vectorzd2copyzd2zz__r4_vectors_6_8z00(BgL_auxz00_1424, BgL_argsz00_712);} } 
}



/* sort */
BGL_EXPORTED_DEF obj_t BGl_sortz00zz__r4_vectors_6_8z00(obj_t BgL_objz00_27, obj_t BgL_procz00_28)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 251 */
{ /* ./Ieee/vector.scm 252 */
obj_t BgL_symbol1749z00_668;
BgL_symbol1749z00_668 = BGl_symbol2415z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 252 */

PUSH_TRACE(BgL_symbol1749z00_668); BUNSPEC; 
{ /* ./Ieee/vector.scm 252 */
obj_t BgL_aux1748z00_669;
if(
NULLP(BgL_objz00_27))
{ /* ./Ieee/vector.scm 252 */
BgL_aux1748z00_669 = BgL_objz00_27; }  else 
{ /* ./Ieee/vector.scm 254 */
obj_t BgL_vecz00_335;
{ /* ./Ieee/vector.scm 255 */
bool_t BgL_test1179z00_338;
BgL_test1179z00_338 = 
VECTORP(BgL_objz00_27); 
if(BgL_test1179z00_338)
{ /* ./Ieee/vector.scm 255 */
{ /* ./Ieee/vector.scm 256 */
int BgL_lenz00_339;
{ /* ./Ieee/vector.scm 256 */
obj_t BgL_vectorz00_601;
if(BgL_test1179z00_338)
{ /* ./Ieee/vector.scm 256 */
BgL_vectorz00_601 = BgL_objz00_27; }  else 
{ /* ./Ieee/vector.scm 256 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2415z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_objz00_27, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10815))); 
exit( -1 );} 
BgL_lenz00_339 = 
VECTOR_LENGTH(BgL_vectorz00_601); } 
{ /* ./Ieee/vector.scm 256 */
obj_t BgL_newz00_340;
{ /* ./Ieee/vector.scm 257 */
obj_t BgL_auxz00_1441;
BgL_auxz00_1441 = BUNSPEC; 
BgL_newz00_340 = 
make_vector(BgL_lenz00_339, BgL_auxz00_1441); } 
{ /* ./Ieee/vector.scm 257 */

{ 
long BgL_iz00_341;
BgL_iz00_341 = ((long)0); 
BgL_loopz00_342:
{ /* ./Ieee/vector.scm 259 */
bool_t BgL_testz00_1443;
{ /* ./Ieee/vector.scm 259 */
long BgL_auxz00_1444;
BgL_auxz00_1444 = 
(long)(BgL_lenz00_339); 
BgL_testz00_1443 = 
(BgL_iz00_341<BgL_auxz00_1444); } 
if(BgL_testz00_1443)
{ /* ./Ieee/vector.scm 259 */
{ /* ./Ieee/vector.scm 261 */
obj_t BgL_arg1183z00_344;
{ /* ./Ieee/vector.scm 261 */
obj_t BgL_vectorz00_605;int BgL_kz00_606;
if(
VECTORP(BgL_objz00_27))
{ /* ./Ieee/vector.scm 261 */
BgL_vectorz00_605 = BgL_objz00_27; }  else 
{ /* ./Ieee/vector.scm 261 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2415z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_objz00_27, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10948))); 
exit( -1 );} 
BgL_kz00_606 = 
(int)(BgL_iz00_341); 
{ /* ./Ieee/vector.scm 261 */
bool_t BgL_test1013z00_607;
{ /* ./Ieee/vector.scm 261 */
int BgL_arg1018z00_608;
BgL_arg1018z00_608 = 
VECTOR_LENGTH(BgL_vectorz00_605); 
BgL_test1013z00_607 = 
BOUND_CHECK(BgL_kz00_606, BgL_arg1018z00_608); } 
if(BgL_test1013z00_607)
{ /* ./Ieee/vector.scm 261 */
BgL_arg1183z00_344 = 
VECTOR_REF(BgL_vectorz00_605,BgL_kz00_606); }  else 
{ /* ./Ieee/vector.scm 261 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2387z00zz__r4_vectors_6_8z00, BGl_string2388z00zz__r4_vectors_6_8z00, 
BINT(BgL_kz00_606), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1183z00_344 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10934))); } } } 
{ /* ./Ieee/vector.scm 261 */
int BgL_kz00_614;
BgL_kz00_614 = 
(int)(BgL_iz00_341); 
{ /* ./Ieee/vector.scm 261 */
bool_t BgL_test1021z00_616;
{ /* ./Ieee/vector.scm 261 */
int BgL_arg1026z00_617;
BgL_arg1026z00_617 = 
VECTOR_LENGTH(BgL_newz00_340); 
BgL_test1021z00_616 = 
BOUND_CHECK(BgL_kz00_614, BgL_arg1026z00_617); } 
if(BgL_test1021z00_616)
{ /* ./Ieee/vector.scm 261 */
VECTOR_SET(BgL_newz00_340,BgL_kz00_614,BgL_arg1183z00_344); }  else 
{ /* ./Ieee/vector.scm 261 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2391z00zz__r4_vectors_6_8z00, BGl_string2388z00zz__r4_vectors_6_8z00, 
BINT(BgL_kz00_614), "./Ieee/vector.scm", ((long)6273)); 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10915))); } } } } 
{ 
long BgL_iz00_1470;
BgL_iz00_1470 = 
(BgL_iz00_341+((long)1)); 
BgL_iz00_341 = BgL_iz00_1470; 
goto BgL_loopz00_342;} }  else 
{ /* ./Ieee/vector.scm 259 */((bool_t)0); } } } 
BgL_vecz00_335 = BgL_newz00_340; } } } }  else 
{ /* ./Ieee/vector.scm 255 */
if(
PAIRP(BgL_objz00_27))
{ /* ./Ieee/vector.scm 264 */
BgL_vecz00_335 = 
BGl_listzd2ze3vectorz31zz__r4_vectors_6_8z00(BgL_objz00_27); }  else 
{ /* ./Ieee/vector.scm 264 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string2416z00zz__r4_vectors_6_8z00, BGl_string2417z00zz__r4_vectors_6_8z00, BgL_objz00_27, "./Ieee/vector.scm", ((long)11060)); 
BgL_vecz00_335 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)11060))); } } } 
{ /* ./Ieee/vector.scm 270 */
obj_t BgL_resz00_336;
{ /* ./Ieee/vector.scm 270 */
obj_t BgL_auxz00_1478;
if(
VECTORP(BgL_vecz00_335))
{ /* ./Ieee/vector.scm 270 */
BgL_auxz00_1478 = BgL_vecz00_335
; }  else 
{ /* ./Ieee/vector.scm 270 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2415z00zz__r4_vectors_6_8z00, BGl_string2385z00zz__r4_vectors_6_8z00, BgL_vecz00_335, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)11166))); 
exit( -1 );} 
BgL_resz00_336 = 
sort_vector(BgL_auxz00_1478, BgL_procz00_28); } 
if(
PAIRP(BgL_objz00_27))
{ /* ./Ieee/vector.scm 271 */
BgL_aux1748z00_669 = 
BGl_vectorzd2ze3listz31zz__r4_vectors_6_8z00(BgL_resz00_336); }  else 
{ /* ./Ieee/vector.scm 271 */
BgL_aux1748z00_669 = BgL_resz00_336; } } } 
POP_TRACE(); 
return BgL_aux1748z00_669;} } } } 
}



/* _sort */
obj_t BGl__sortz00zz__r4_vectors_6_8z00(obj_t BgL_envz00_713, obj_t BgL_objz00_714, obj_t BgL_procz00_715)
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 251 */
{ /* ./Ieee/vector.scm 252 */
obj_t BgL_auxz00_1489;
if(
PROCEDUREP(BgL_procz00_715))
{ /* ./Ieee/vector.scm 252 */
BgL_auxz00_1489 = BgL_procz00_715
; }  else 
{ /* ./Ieee/vector.scm 252 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol2418z00zz__r4_vectors_6_8z00, BGl_string2419z00zz__r4_vectors_6_8z00, BgL_procz00_715, BGl_string2379z00zz__r4_vectors_6_8z00, 
BINT(((long)10705))); 
exit( -1 );} 
return 
BGl_sortz00zz__r4_vectors_6_8z00(BgL_objz00_714, BgL_auxz00_1489);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_vectors_6_8z00()
{ AN_OBJECT;
{ /* ./Ieee/vector.scm 18 */
{ /* ./Ieee/vector.scm 18 */
obj_t BgL_symbol1753z00_670;
BgL_symbol1753z00_670 = BGl_symbol2420z00zz__r4_vectors_6_8z00; 
{ /* ./Ieee/vector.scm 18 */

PUSH_TRACE(BgL_symbol1753z00_670); BUNSPEC; 
{ /* ./Ieee/vector.scm 18 */
obj_t BgL_aux1752z00_671;
BgL_aux1752z00_671 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_vectors_6_8"); 
POP_TRACE(); 
return BgL_aux1752z00_671;} } } } 
}

