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

/* debug mode */
#define BIGLOO_DEBUG 1

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

static obj_t BGl_symbol6524z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6523z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6522z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6521z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__memq2881z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6520z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6519z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl__listz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6518z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6517z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6516z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__lastzd2pair2879zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6515z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6514z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_caaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6513z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6512z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6511z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6510z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6509z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6499z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6508z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6498z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6507z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6497z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6506z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6496z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__appendz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6495z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_setzd2carz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6504z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6503z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6493z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cdaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6502z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6501z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6491z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6500z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6490z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6489z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6488z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6487z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6486z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6484z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__consz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6483z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6482z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6481z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6480z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6479z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6478z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6477z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6476z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_caaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6475z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL long bgl_list_length(obj_t);
static obj_t BGl_symbol6474z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_caadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_pairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6473z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6472z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6471z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6470z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6469z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__deletez122899z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6468z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6467z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__memv2883z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6466z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6465z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6464z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6463z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6462z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6461z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6460z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6459z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6458z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6457z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6456z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6455z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6454z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6453z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6452z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6451z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6450z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6449z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6448z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6447z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6446z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_caaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6445z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6444z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cdaddr2838z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6443z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6442z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6441z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6440z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6439z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6438z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6437z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6436z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6435z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6434z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6433z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
extern obj_t string_to_symbol(char *);
static obj_t BGl__cdadar2844z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6432z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6431z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6430z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6429z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6428z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6427z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6426z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6425z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6424z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6423z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6538z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6422z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t, long);
static obj_t BGl_symbol6420z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6419z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t bgl_reverse(obj_t);
static obj_t BGl__reverse2869z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6418z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6417z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6546z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6414z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__anyzf32908zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6413z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6548z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6412z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6550z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6411z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6551z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6410z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6554z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6555z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6556z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6558z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6560z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6559z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cdaaar2826z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6562z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__length2867z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6564z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cdaadr2836z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6566z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6568z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6570z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6569z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6572z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6573z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cdaar2810z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__caadar2822z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6574z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cdadr2814z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__caaddr2828z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6576z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6577z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cer2792z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6578z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6999z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6580z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_caarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6998z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6581z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6997z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6582z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6996z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6995z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6584z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6586z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6992z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6587z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6588z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(int, obj_t);
static obj_t BGl_symbol6990z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6989z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6589z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6988z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6601z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6591z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6602z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6592z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cdddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__delete2895z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6986z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6593z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_deletez00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6604z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6595z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6606z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6607z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6597z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6608z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6610z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6599z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6611z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6613z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__everyzf32906zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6614z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6974z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6616z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6617z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6618z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6620z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6968z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6621z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cdaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6622z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(int, obj_t);
static obj_t BGl_list6624z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6625z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__econsz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__caaadr2820z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6626z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6628z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6630z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6629z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__caaaar2818z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6631z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cddar2812z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cddddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__cdddr2816z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6633z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6955z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6634z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6635z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6636z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6637z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6638z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6950z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6640z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6639z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list6641z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6642z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6946z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_list6644z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6645z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6646z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6942z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6648z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cadaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6649z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6651z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cdadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6652z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6653z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6935z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6654z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cddddr2848z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6656z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6657z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6931z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6658z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cdddar2846z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6929z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6660z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6659z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6661z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6663z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6665z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6667z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6921z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cddr2800z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6670z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6671z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6672z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6674z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6913z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cadadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6909z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6679z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6681z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6897z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6682z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__eappendzd222861zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6683z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cdar2798z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6905z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6684z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6893z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6686z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6687z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6688z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol7000z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6700z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6690z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6888z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6691z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__assoc2891z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6702z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6692z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6703z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6693z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6704z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6694z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6884z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6695z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, long, obj_t);
static obj_t BGl_list6706z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6696z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6882z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6707z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6708z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6698z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cddadr2842z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6710z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6709z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6699z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__pairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6711z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6712z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cddaar2840z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_remqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6714z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6715z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6716z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6717z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6718z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cadddr2834z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6870z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6720z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6719z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__caaar2802z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__caddar2830z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6722z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__caadr2804z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6724z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6864z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6725z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6726z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6728z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6730z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6729z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6731z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6732z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6733z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6735z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cadr2796z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6736z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6737z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6851z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__caar2794z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6740z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6739z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6741z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__member2885z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6846z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6743z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6744z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6745z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6746z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6842z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6748z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__reversez122902z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6750z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6749z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6838z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6751z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6752z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6753z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6754z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6755z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_setzd2cdrz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6756z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cdaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6757z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6831z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6758z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6759z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6761z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_anyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6827z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6762z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6763z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6825z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6764z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cadaar2824z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6765z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cadar2806z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cadadr2832z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6767z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6768z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__caddr2808z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6770z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6769z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6771z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6817z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6772z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_everyzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6773z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_caadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6775z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6776z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_caddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6777z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__listzd2tail2873zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6809z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6779z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6783z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6805z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_assvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6785z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_appendzd2listz72za0zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6793z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6786z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cdaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6787z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6801z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6788z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6800z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6790z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6789z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6791z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6802z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6792z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6803z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6804z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6794z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6795z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6784z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6806z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6796z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6807z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6797z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6808z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6798z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6810z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6799z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6780z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6811z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6778z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6812z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6813z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_carz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6814z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_caaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6815z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6816z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_appendzd2listzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6818z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6820z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6819z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6821z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6822z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6823z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6766z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6824z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_cnstzd2initzd2zz__r4_pairs_and_lists_6_3z00();
static obj_t BGl_list6826z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6828z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6830z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6829z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6760z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6832z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6833z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6834z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6835z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6836z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6837z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_listz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6840z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6839z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6841z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6747z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6843z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cdrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6844z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6845z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6847z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6742z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6848z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6850z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6849z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6738z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6852z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6853z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cerz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6854z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6855z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6734z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__iotaz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2cerz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6856z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6857z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6858z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6860z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6859z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6861z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6862z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6727z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6863z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_consz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6865z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6866z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6723z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6867z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6868z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6721z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6869z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6871z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6872z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6873z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6874z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6875z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6876z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6713z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl_list6877z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__makezd2listzd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6880z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6879z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cdarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__remq2893z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6881z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6697z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6883z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6705z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6887z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6701z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6900z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6890z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6889z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6689z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6901z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6891z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6902z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6892z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6903z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_consza21za2zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6904z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6894z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6685z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6895z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6906z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6896z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6907z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6908z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6898z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_pairs_and_lists_6_3z00();
static obj_t BGl_list6910z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6899z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6680z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6911z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6912z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__setzd2cerz122854zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6914z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6675z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__assq2887z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6915z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6916z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6673z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6917z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6918z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6920z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6919z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6668z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6922z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_anyzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6923z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6666z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__appendzd222859zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6924z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6925z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6664z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list6926z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__setzd2cdrz122852zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6927z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6662z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6928z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6930z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__anyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cddaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6932z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6933z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6934z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6655z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__listzd2ref2875zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6936z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__ereverse2871z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list6937z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6938z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6940z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6939z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6650z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6941z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6647z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6943z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6944z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6945z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6643z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6947z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6948z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_caddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6949z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6951z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cdddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6952z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6953z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6954z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6956z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6957z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6632z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__assv2889z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6958z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6960z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6959z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6961z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cddadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6962z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6627z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6963z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6964z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6965z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6966z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6623z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6967z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__listzd2setz122877zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list6970z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6969z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6619z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6971z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6972z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6973z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__setzd2carz122850zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list6975z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6976z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6977z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6612z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6978z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cadddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list6980z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6979z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6609z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6981z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6598z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6983z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6984z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6605z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6985z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6603z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6987z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl_symbol6600z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6590z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list6994z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6585z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__cdr2790z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6579z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__car2788z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6575z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6571z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6567z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6563z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__appendz122865z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_econsz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6557z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6553z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6552z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6547z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
extern obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_list_ref(obj_t, long);
static obj_t BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
extern obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__remqz122897z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6541z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6539z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(int, obj_t);
static obj_t BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6535z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6534z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6533z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cdadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol6532z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6531z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6529z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6527z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6526z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol6525z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_caadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caadar2822za700za7za7__r4_pairs_and_lists_6_3za7007010z00, BGl__caadar2822z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_STRING( BGl_string6545z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6545za700za7za7__r4_pairs_and_lists_6_3za7007011z00, "Wrong number of arguments", 25 );
DEFINE_STRING( BGl_string6544z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6544za700za7za7__r4_pairs_and_lists_6_3za7007012z00, "argument not a list", 19 );
DEFINE_STRING( BGl_string6543z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6543za700za7za7__r4_pairs_and_lists_6_3za7007013z00, "map", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_appendzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__appendza700za7za7__r4_pairs_and_lists_6_3za7007014z00, va_generic_entry, BGl__appendz00zz__r4_pairs_and_lists_6_3z00, -1 );
DEFINE_STRING( BGl_string6537z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6537za700za7za7__r4_pairs_and_lists_6_3za7007015z00, "every:Wrong number of arguments", 31 );
DEFINE_EXPORT_PROCEDURE( BGl_cddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cddr2800za700za7za7__r4_pairs_and_lists_6_3za7007016z00, BGl__cddr2800z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_remqz12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl__remqza7122897za712za7za7__r4_pairs_and_lists_6_3za7007017za7, BGl__remqz122897z12zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cdarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdar2798za700za7za7__r4_pairs_and_lists_6_3za7007018z00, BGl__cdar2798z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_caaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caaadr2820za700za7za7__r4_pairs_and_lists_6_3za7007019z00, BGl__caaadr2820z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cddddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cddddr2848za700za7za7__r4_pairs_and_lists_6_3za7007020z00, BGl__cddddr2848z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_lengthzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__length2867za700za7za7__r4_pairs_and_lists_6_3za7007021z00, BGl__length2867z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_STRING( BGl_string6505z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6505za700za7za7__r4_pairs_and_lists_6_3za7007022z00, "long", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_caaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caaaar2818za700za7za7__r4_pairs_and_lists_6_3za7007023z00, BGl__caaaar2818z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cdddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdddar2846za700za7za7__r4_pairs_and_lists_6_3za7007024z00, BGl__cdddar2846z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza700za7za7__r4_pairs_and_lists_6_3za7007025z00, va_generic_entry, BGl__listz00zz__r4_pairs_and_lists_6_3z00, -1 );
DEFINE_STRING( BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6485za700za7za7__r4_pairs_and_lists_6_3za7007026z00, "pair-nil", 8 );
DEFINE_EXPORT_PROCEDURE( BGl_cadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cadr2796za700za7za7__r4_pairs_and_lists_6_3za7007027z00, BGl__cadr2796z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__nullza7f3za7f3za7za7__r4_pairs_and_lists_6_3za7007028za7, BGl__nullzf3zf3zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2cerz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl__setza7d2cerza7122854za7c0za7za7__r4_pairs_and_lists_6_3za7007029z00, BGl__setzd2cerz122854zc0zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_eappendzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__eappendza700za7za7__r4_pairs_and_lists_6_3za7007030z00, va_generic_entry, BGl__eappendz00zz__r4_pairs_and_lists_6_3z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_caarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caar2794za700za7za7__r4_pairs_and_lists_6_3za7007031z00, BGl__caar2794z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_econszd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__econsza700za7za7__r4_pairs_and_lists_6_3za7007032z00, BGl__econsz00zz__r4_pairs_and_lists_6_3z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2cdrz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl__setza7d2cdrza7122852za7c0za7za7__r4_pairs_and_lists_6_3za7007033z00, BGl__setzd2cdrz122852zc0zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdr2790za700za7za7__r4_pairs_and_lists_6_3za7007034z00, BGl__cdr2790z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cddadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cddadr2842za700za7za7__r4_pairs_and_lists_6_3za7007035z00, BGl__cddadr2842z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_reversez12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl__reverseza7122902za712za7za7__r4_pairs_and_lists_6_3za7007036za7, BGl__reversez122902z12zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__car2788za700za7za7__r4_pairs_and_lists_6_3za7007037z00, BGl__car2788z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cddaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cddaar2840za700za7za7__r4_pairs_and_lists_6_3za7007038z00, BGl__cddaar2840z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cadddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cadddr2834za700za7za7__r4_pairs_and_lists_6_3za7007039z00, BGl__cadddr2834z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_remqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__remq2893za700za7za7__r4_pairs_and_lists_6_3za7007040z00, BGl__remq2893z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_caddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caddar2830za700za7za7__r4_pairs_and_lists_6_3za7007041z00, BGl__caddar2830z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_STRING( BGl_string6421z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6421za700za7za7__r4_pairs_and_lists_6_3za7007042z00, "epair", 5 );
DEFINE_STRING( BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6416za700za7za7__r4_pairs_and_lists_6_3za7007043z00, "/tmp/bigloo/runtime/./Ieee/pairlist.scm", 39 );
DEFINE_EXPORT_PROCEDURE( BGl_anyzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__anyza700za7za7__r4_pairs_and_lists_6_3za7007044z00, va_generic_entry, BGl__anyz00zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_STRING( BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6415za700za7za7__r4_pairs_and_lists_6_3za7007045z00, "pair", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2carz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl__setza7d2carza7122850za7c0za7za7__r4_pairs_and_lists_6_3za7007046z00, BGl__setzd2carz122850zc0zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_assqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__assq2887za700za7za7__r4_pairs_and_lists_6_3za7007047z00, BGl__assq2887z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cadadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cadadr2832za700za7za7__r4_pairs_and_lists_6_3za7007048z00, BGl__cadadr2832z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cadaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cadaar2824za700za7za7__r4_pairs_and_lists_6_3za7007049z00, BGl__cadaar2824z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_STRING( BGl_string6993z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6993za700za7za7__r4_pairs_and_lists_6_3za7007050z00, "list-tabulate:Wrong number of arguments", 39 );
DEFINE_STRING( BGl_string6991z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6991za700za7za7__r4_pairs_and_lists_6_3za7007051z00, "int", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_assvzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__assv2889za700za7za7__r4_pairs_and_lists_6_3za7007052z00, BGl__assv2889z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2listzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__makeza7d2listza7d2za7za7__r4_pairs_and_lists_6_3za7007053za7, va_generic_entry, BGl__makezd2listzd2zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_lastzd2pairzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__lastza7d2pair2879za7d2za7za7__r4_pairs_and_lists_6_3za7007054za7, BGl__lastzd2pair2879zd2zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_reversezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__reverse2869za700za7za7__r4_pairs_and_lists_6_3za7007055z00, BGl__reverse2869z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2tabulatezd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza7d2tabulateza7d2za7za7__r4_pairs_and_lists_6_3za7007056za7, BGl__listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_everyzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__everyza7f32906za7f3za7za7__r4_pairs_and_lists_6_3za7007057za7, va_generic_entry, BGl__everyzf32906zf3zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_appendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__appendza7d222859za7d2za7za7__r4_pairs_and_lists_6_3za7007058za7, BGl__appendzd222859zd2zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_appendz12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl__appendza7122865za712za7za7__r4_pairs_and_lists_6_3za7007059za7, BGl__appendz122865z12zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ereversezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__ereverse2871za700za7za7__r4_pairs_and_lists_6_3za7007060z00, BGl__ereverse2871z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2refzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza7d2ref2875za7d2za7za7__r4_pairs_and_lists_6_3za7007061za7, BGl__listzd2ref2875zd2zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_listzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza7f3za7f3za7za7__r4_pairs_and_lists_6_3za7007062za7, BGl__listzf3zf3zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_STRING( BGl_string6886z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6886za700za7za7__r4_pairs_and_lists_6_3za7007063z00, "any?:Wrong number of arguments", 30 );
DEFINE_EXPORT_PROCEDURE( BGl_cerzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cer2792za700za7za7__r4_pairs_and_lists_6_3za7007064z00, BGl__cer2792z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2setz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza7d2setza7122877za7c0za7za7__r4_pairs_and_lists_6_3za7007065z00, BGl__listzd2setz122877zc0zz__r4_pairs_and_lists_6_3z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_memqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__memq2881za700za7za7__r4_pairs_and_lists_6_3za7007066z00, BGl__memq2881z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_iotazd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__iotaza700za7za7__r4_pairs_and_lists_6_3za7007067z00, va_generic_entry, BGl__iotaz00zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_memvzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__memv2883za700za7za7__r4_pairs_and_lists_6_3za7007068z00, BGl__memv2883z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_assoczd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__assoc2891za700za7za7__r4_pairs_and_lists_6_3za7007069z00, BGl__assoc2891z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_epairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__epairza7f3za7f3za7za7__r4_pairs_and_lists_6_3za7007070za7, BGl__epairzf3zf3zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_caddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caddr2808za700za7za7__r4_pairs_and_lists_6_3za7007071z00, BGl__caddr2808z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_STRING( BGl_string6782z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6782za700za7za7__r4_pairs_and_lists_6_3za7007072z00, "every?:Wrong number of arguments", 32 );
DEFINE_EXPORT_PROCEDURE( BGl_cadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cadar2806za700za7za7__r4_pairs_and_lists_6_3za7007073z00, BGl__cadar2806z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_everyzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__everyza700za7za7__r4_pairs_and_lists_6_3za7007074z00, va_generic_entry, BGl__everyz00zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_deletez12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl__deleteza7122899za712za7za7__r4_pairs_and_lists_6_3za7007075za7, BGl__deletez122899z12zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_anyzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__anyza7f32908za7f3za7za7__r4_pairs_and_lists_6_3za7007076za7, va_generic_entry, BGl__anyzf32908zf3zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__pairza7f3za7f3za7za7__r4_pairs_and_lists_6_3za7007077za7, BGl__pairzf3zf3zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_caadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caadr2804za700za7za7__r4_pairs_and_lists_6_3za7007078z00, BGl__caadr2804z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_caaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caaar2802za700za7za7__r4_pairs_and_lists_6_3za7007079z00, BGl__caaar2802z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_pairzd2orzd2nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__pairza7d2orza7d2nullza7f3za7f3za7za7__r4_pairs_and_lists_6_3za7007080za7, BGl__pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_STRING( BGl_string6678z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6678za700za7za7__r4_pairs_and_lists_6_3za7007081z00, "any:Wrong number of arguments", 29 );
DEFINE_STRING( BGl_string6676z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string6676za700za7za7__r4_pairs_and_lists_6_3za7007082z00, "procedure", 9 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2tailzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza7d2tail2873za7d2za7za7__r4_pairs_and_lists_6_3za7007083za7, BGl__listzd2tail2873zd2zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__consza700za7za7__r4_pairs_and_lists_6_3za7007084z00, BGl__consz00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cdddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdddr2816za700za7za7__r4_pairs_and_lists_6_3za7007085z00, BGl__cdddr2816z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_memberzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__member2885za700za7za7__r4_pairs_and_lists_6_3za7007086z00, BGl__member2885z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cddar2812za700za7za7__r4_pairs_and_lists_6_3za7007087z00, BGl__cddar2812z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cdaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdaddr2838za700za7za7__r4_pairs_and_lists_6_3za7007088z00, BGl__cdaddr2838z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cdadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdadar2844za700za7za7__r4_pairs_and_lists_6_3za7007089z00, BGl__cdadar2844z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_deletezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__delete2895za700za7za7__r4_pairs_and_lists_6_3za7007090z00, BGl__delete2895z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cdadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdadr2814za700za7za7__r4_pairs_and_lists_6_3za7007091z00, BGl__cdadr2814z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cdaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdaar2810za700za7za7__r4_pairs_and_lists_6_3za7007092z00, BGl__cdaar2810z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_consza2zd2envz70zz__r4_pairs_and_lists_6_3z00, BgL_bgl__consza7a2za7a2za7za7__r4_pairs_and_lists_6_3za7007093za7, va_generic_entry, BGl__consza2za2zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_cdaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdaadr2836za700za7za7__r4_pairs_and_lists_6_3za7007094z00, BGl__cdaadr2836z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cdaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdaaar2826za700za7za7__r4_pairs_and_lists_6_3za7007095z00, BGl__cdaaar2826z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_eappendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__eappendza7d222861za7d2za7za7__r4_pairs_and_lists_6_3za7007096za7, BGl__eappendzd222861zd2zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_caaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caaddr2828za700za7za7__r4_pairs_and_lists_6_3za7007097z00, BGl__caaddr2828z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long BgL_checksumz00_3188, char * BgL_fromz00_3189)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__r4_pairs_and_lists_6_3z00(); 
BGl_importedzd2moduleszd2initz00zz__r4_pairs_and_lists_6_3z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_pairs_and_lists_6_3z00()
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 18 */
BGl_symbol6410z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("epair?"); 
BGl_symbol6411z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cons"); 
BGl_symbol6412z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("econs"); 
BGl_symbol6413z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("car"); 
BGl_symbol6414z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_car2788"); 
BGl_symbol6417z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cdr"); 
BGl_symbol6418z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cdr2790"); 
BGl_symbol6419z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cer"); 
BGl_symbol6420z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cer2792"); 
BGl_symbol6422z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("caar"); 
BGl_symbol6423z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_caar2794"); 
BGl_symbol6424z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cadr"); 
BGl_symbol6425z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cadr2796"); 
BGl_symbol6426z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cdar"); 
BGl_symbol6427z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cdar2798"); 
BGl_symbol6428z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cddr"); 
BGl_symbol6429z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cddr2800"); 
BGl_symbol6430z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("caaar"); 
BGl_symbol6431z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_caaar2802"); 
BGl_symbol6432z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("caadr"); 
BGl_symbol6433z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_caadr2804"); 
BGl_symbol6434z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cadar"); 
BGl_symbol6435z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cadar2806"); 
BGl_symbol6436z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("caddr"); 
BGl_symbol6437z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_caddr2808"); 
BGl_symbol6438z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cdaar"); 
BGl_symbol6439z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cdaar2810"); 
BGl_symbol6440z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cddar"); 
BGl_symbol6441z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cddar2812"); 
BGl_symbol6442z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cdadr"); 
BGl_symbol6443z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cdadr2814"); 
BGl_symbol6444z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cdddr"); 
BGl_symbol6445z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cdddr2816"); 
BGl_symbol6446z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("caaaar"); 
BGl_symbol6447z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_caaaar2818"); 
BGl_symbol6448z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("caaadr"); 
BGl_symbol6449z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_caaadr2820"); 
BGl_symbol6450z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("caadar"); 
BGl_symbol6451z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_caadar2822"); 
BGl_symbol6452z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cadaar"); 
BGl_symbol6453z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cadaar2824"); 
BGl_symbol6454z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cdaaar"); 
BGl_symbol6455z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cdaaar2826"); 
BGl_symbol6456z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("caaddr"); 
BGl_symbol6457z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_caaddr2828"); 
BGl_symbol6458z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("caddar"); 
BGl_symbol6459z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_caddar2830"); 
BGl_symbol6460z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cadadr"); 
BGl_symbol6461z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cadadr2832"); 
BGl_symbol6462z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cadddr"); 
BGl_symbol6463z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cadddr2834"); 
BGl_symbol6464z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cdaadr"); 
BGl_symbol6465z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cdaadr2836"); 
BGl_symbol6466z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cdaddr"); 
BGl_symbol6467z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cdaddr2838"); 
BGl_symbol6468z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cddaar"); 
BGl_symbol6469z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cddaar2840"); 
BGl_symbol6470z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cddadr"); 
BGl_symbol6471z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cddadr2842"); 
BGl_symbol6472z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cdadar"); 
BGl_symbol6473z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cdadar2844"); 
BGl_symbol6474z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cdddar"); 
BGl_symbol6475z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cdddar2846"); 
BGl_symbol6476z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cddddr"); 
BGl_symbol6477z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_cddddr2848"); 
BGl_symbol6478z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("set-car!"); 
BGl_symbol6479z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_set-car!2850"); 
BGl_symbol6480z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("set-cdr!"); 
BGl_symbol6481z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_set-cdr!2852"); 
BGl_symbol6482z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("set-cer!"); 
BGl_symbol6483z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_set-cer!2854"); 
BGl_symbol6484z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("list"); 
BGl_symbol6486z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("list?"); 
BGl_symbol6487z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("append-2"); 
BGl_symbol6488z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_append-22859"); 
BGl_symbol6489z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("eappend-2"); 
BGl_symbol6490z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_eappend-22861"); 
BGl_symbol6491z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("append"); 
BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("append-list'"); 
BGl_symbol6493z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("eappend"); 
BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("append-list"); 
BGl_symbol6495z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("append!"); 
BGl_symbol6496z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_append!2865"); 
BGl_symbol6497z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("length"); 
BGl_symbol6498z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_length2867"); 
BGl_symbol6499z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("reverse"); 
BGl_symbol6500z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_reverse2869"); 
BGl_symbol6501z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("ereverse"); 
BGl_symbol6502z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_ereverse2871"); 
BGl_symbol6503z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("list-tail"); 
BGl_symbol6504z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_list-tail2873"); 
BGl_symbol6506z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("list-ref"); 
BGl_symbol6507z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_list-ref2875"); 
BGl_symbol6508z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("list-set!"); 
BGl_symbol6509z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_list-set!2877"); 
BGl_symbol6510z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("last-pair"); 
BGl_symbol6511z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_last-pair2879"); 
BGl_symbol6512z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("memq"); 
BGl_symbol6513z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_memq2881"); 
BGl_symbol6514z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("memv"); 
BGl_symbol6515z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_memv2883"); 
BGl_symbol6516z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("member"); 
BGl_symbol6517z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_member2885"); 
BGl_symbol6518z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("assq"); 
BGl_symbol6519z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_assq2887"); 
BGl_symbol6520z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("assv"); 
BGl_symbol6521z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_assv2889"); 
BGl_symbol6522z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("assoc"); 
BGl_symbol6523z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_assoc2891"); 
BGl_symbol6524z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("remq"); 
BGl_symbol6525z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_remq2893"); 
BGl_symbol6526z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("delete"); 
BGl_symbol6527z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_delete2895"); 
BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("remq!"); 
BGl_symbol6529z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_remq!2897"); 
BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("delete!"); 
BGl_symbol6531z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_delete!2899"); 
BGl_symbol6532z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cons*"); 
BGl_symbol6533z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("cons*1"); 
BGl_symbol6534z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("reverse!"); 
BGl_symbol6535z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_reverse!2902"); 
BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("every"); 
BGl_symbol6539z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("funcall"); 
BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("pred"); 
BGl_symbol6541z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1762"); 
{ /* ./Ieee/pairlist.scm 771 */
obj_t BgL_auxz00_3320;
{ /* ./Ieee/pairlist.scm 771 */
obj_t BgL_auxz00_3321;
{ /* ./Ieee/pairlist.scm 771 */
obj_t BgL_auxz00_3322;
BgL_auxz00_3322 = 
MAKE_PAIR(BGl_symbol6541z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3321 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3322); } 
BgL_auxz00_3320 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3321); } 
BGl_list6538z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6539z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3320); } 
BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_"); 
BGl_symbol6547z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("apply"); 
BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("let"); 
BGl_symbol6552z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("l1010"); 
BGl_symbol6553z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("l"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3332;
BgL_auxz00_3332 = 
MAKE_PAIR(BGl_symbol6553z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6551z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6552z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3332); } 
BGl_list6550z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6551z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6557z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test1803"); 
BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("obj"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3338;
BgL_auxz00_3338 = 
MAKE_PAIR(BGl_symbol6552z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6560z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3338); } 
BGl_list6559z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6560z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6563z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("c-null?"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3343;
BgL_auxz00_3343 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6562z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6563z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3343); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3346;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3347;
BgL_auxz00_3347 = 
MAKE_PAIR(BGl_list6562z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3346 = 
MAKE_PAIR(BGl_list6559z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3347); } 
BGl_list6558z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3346); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3351;
BgL_auxz00_3351 = 
MAKE_PAIR(BGl_list6558z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6556z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6557z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3351); } 
BGl_list6555z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6556z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("if"); 
BGl_symbol6567z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("quote"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3357;
BgL_auxz00_3357 = 
MAKE_PAIR(BNIL, BNIL); 
BGl_list6566z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6567z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3357); } 
BGl_symbol6571z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("head1012"); 
BGl_symbol6575z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1829"); 
BGl_symbol6579z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1833"); 
BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("pair"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3364;
BgL_auxz00_3364 = 
MAKE_PAIR(BGl_symbol6552z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6582z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3364); } 
BGl_list6581z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6582z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6585z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("c-car"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3369;
BgL_auxz00_3369 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6584z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6585z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3369); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3372;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3373;
BgL_auxz00_3373 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3372 = 
MAKE_PAIR(BGl_list6581z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3373); } 
BGl_list6580z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3372); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3377;
BgL_auxz00_3377 = 
MAKE_PAIR(BGl_list6580z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6578z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6579z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3377); } 
BGl_list6577z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6578z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3381;
BgL_auxz00_3381 = 
MAKE_PAIR(BGl_symbol6579z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6588z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3381); } 
BGl_list6587z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6588z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3385;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3386;
BgL_auxz00_3386 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3385 = 
MAKE_PAIR(BGl_list6587z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3386); } 
BGl_list6586z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3385); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3390;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3391;
BgL_auxz00_3391 = 
MAKE_PAIR(BGl_list6586z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3390 = 
MAKE_PAIR(BGl_list6577z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3391); } 
BGl_list6576z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3390); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3395;
BgL_auxz00_3395 = 
MAKE_PAIR(BGl_list6576z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6574z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6575z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3395); } 
BGl_symbol6590z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1830"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3399;
BgL_auxz00_3399 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6589z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6590z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3399); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3402;
BgL_auxz00_3402 = 
MAKE_PAIR(BGl_list6589z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6573z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6574z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3402); } 
BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("obj1"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3406;
BgL_auxz00_3406 = 
MAKE_PAIR(BGl_symbol6575z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6593z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3406); } 
BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("obj2"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3410;
BgL_auxz00_3410 = 
MAKE_PAIR(BGl_symbol6590z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6595z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3410); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3413;
BgL_auxz00_3413 = 
MAKE_PAIR(BGl_list6595z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6592z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6593z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3413); } 
BGl_symbol6598z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("c-cons"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3417;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3418;
BgL_auxz00_3418 = 
MAKE_PAIR(BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3417 = 
MAKE_PAIR(BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3418); } 
BGl_list6597z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6598z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3417); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3422;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3423;
BgL_auxz00_3423 = 
MAKE_PAIR(BGl_list6597z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3422 = 
MAKE_PAIR(BGl_list6592z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3423); } 
BGl_list6591z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3422); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3427;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3428;
BgL_auxz00_3428 = 
MAKE_PAIR(BGl_list6591z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3427 = 
MAKE_PAIR(BGl_list6573z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3428); } 
BGl_list6572z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3427); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3432;
BgL_auxz00_3432 = 
MAKE_PAIR(BGl_list6572z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6570z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6571z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3432); } 
BGl_list6569z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6570z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6600z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("labels"); 
BGl_symbol6603z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("map1011"); 
BGl_symbol6605z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("tail1013"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3439;
BgL_auxz00_3439 = 
MAKE_PAIR(BGl_symbol6605z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6604z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6552z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3439); } 
BGl_symbol6609z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test1808"); 
BGl_symbol6612z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("c-pair?"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3444;
BgL_auxz00_3444 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6611z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6612z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3444); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3447;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3448;
BgL_auxz00_3448 = 
MAKE_PAIR(BGl_list6611z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3447 = 
MAKE_PAIR(BGl_list6559z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3448); } 
BGl_list6610z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3447); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3452;
BgL_auxz00_3452 = 
MAKE_PAIR(BGl_list6610z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6608z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6609z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3452); } 
BGl_list6607z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6608z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("begin"); 
BGl_symbol6619z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("newtail1014"); 
BGl_symbol6623z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1815"); 
BGl_symbol6627z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1821"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3460;
BgL_auxz00_3460 = 
MAKE_PAIR(BGl_list6580z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6626z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6627z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3460); } 
BGl_list6625z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6626z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3464;
BgL_auxz00_3464 = 
MAKE_PAIR(BGl_symbol6627z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6630z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3464); } 
BGl_list6629z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6630z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3468;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3469;
BgL_auxz00_3469 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3468 = 
MAKE_PAIR(BGl_list6629z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3469); } 
BGl_list6628z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3468); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3473;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3474;
BgL_auxz00_3474 = 
MAKE_PAIR(BGl_list6628z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3473 = 
MAKE_PAIR(BGl_list6625z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3474); } 
BGl_list6624z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3473); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3478;
BgL_auxz00_3478 = 
MAKE_PAIR(BGl_list6624z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6622z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6623z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3478); } 
BGl_symbol6632z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1816"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3482;
BgL_auxz00_3482 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6631z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6632z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3482); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3485;
BgL_auxz00_3485 = 
MAKE_PAIR(BGl_list6631z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6621z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6622z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3485); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3488;
BgL_auxz00_3488 = 
MAKE_PAIR(BGl_symbol6623z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6635z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3488); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3491;
BgL_auxz00_3491 = 
MAKE_PAIR(BGl_symbol6632z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6636z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3491); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3494;
BgL_auxz00_3494 = 
MAKE_PAIR(BGl_list6636z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6634z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6635z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3494); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3497;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3498;
BgL_auxz00_3498 = 
MAKE_PAIR(BGl_list6597z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3497 = 
MAKE_PAIR(BGl_list6634z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3498); } 
BGl_list6633z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3497); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3502;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3503;
BgL_auxz00_3503 = 
MAKE_PAIR(BGl_list6633z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3502 = 
MAKE_PAIR(BGl_list6621z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3503); } 
BGl_list6620z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3502); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3507;
BgL_auxz00_3507 = 
MAKE_PAIR(BGl_list6620z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6618z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6619z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3507); } 
BGl_list6617z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6618z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3511;
BgL_auxz00_3511 = 
MAKE_PAIR(BGl_symbol6605z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6640z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3511); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3514;
BgL_auxz00_3514 = 
MAKE_PAIR(BGl_symbol6619z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6641z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3514); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3517;
BgL_auxz00_3517 = 
MAKE_PAIR(BGl_list6641z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6639z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6640z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3517); } 
BGl_symbol6643z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("c-set-cdr!"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3521;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3522;
BgL_auxz00_3522 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3521 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3522); } 
BGl_list6642z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6643z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3521); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3526;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3527;
BgL_auxz00_3527 = 
MAKE_PAIR(BGl_list6642z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3526 = 
MAKE_PAIR(BGl_list6639z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3527); } 
BGl_list6638z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3526); } 
BGl_symbol6647z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1811"); 
BGl_symbol6650z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("c-cdr"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3533;
BgL_auxz00_3533 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6649z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6650z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3533); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3536;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3537;
BgL_auxz00_3537 = 
MAKE_PAIR(BGl_list6649z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3536 = 
MAKE_PAIR(BGl_list6581z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3537); } 
BGl_list6648z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3536); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3541;
BgL_auxz00_3541 = 
MAKE_PAIR(BGl_list6648z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6646z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6647z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3541); } 
BGl_list6645z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6646z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3545;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3546;
BgL_auxz00_3546 = 
MAKE_PAIR(BGl_symbol6619z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3545 = 
MAKE_PAIR(BGl_symbol6647z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3546); } 
BGl_list6651z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6603z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3545); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3550;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3551;
BgL_auxz00_3551 = 
MAKE_PAIR(BGl_list6651z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3550 = 
MAKE_PAIR(BGl_list6645z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3551); } 
BGl_list6644z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3550); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3555;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3556;
BgL_auxz00_3556 = 
MAKE_PAIR(BGl_list6644z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3555 = 
MAKE_PAIR(BGl_list6638z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3556); } 
BGl_list6637z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3555); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3560;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3561;
BgL_auxz00_3561 = 
MAKE_PAIR(BGl_list6637z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3560 = 
MAKE_PAIR(BGl_list6617z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3561); } 
BGl_list6616z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3560); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3565;
BgL_auxz00_3565 = 
MAKE_PAIR(BGl_list6616z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6614z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3565); } 
BGl_symbol6655z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test1824"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3569;
BgL_auxz00_3569 = 
MAKE_PAIR(BGl_list6558z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6654z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6655z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3569); } 
BGl_list6653z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6654z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3573;
BgL_auxz00_3573 = 
MAKE_PAIR(BGl_symbol6571z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6657z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3573); } 
BGl_symbol6662z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("proc"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3577;
BgL_auxz00_3577 = 
MAKE_PAIR(BGl_string6543z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6661z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6662z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3577); } 
BGl_symbol6664z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("message"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3581;
BgL_auxz00_3581 = 
MAKE_PAIR(BGl_string6544z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6663z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6664z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3581); } 
BGl_symbol6666z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("object"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3585;
BgL_auxz00_3585 = 
MAKE_PAIR(BGl_symbol6552z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6665z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6666z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3585); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3588;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3589;
BgL_auxz00_3589 = 
MAKE_PAIR(BGl_list6665z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3588 = 
MAKE_PAIR(BGl_list6663z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3589); } 
BGl_list6660z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6661z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3588); } 
BGl_symbol6668z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("debug-error/location"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3594;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3595;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3596;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3597;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3598;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3599;
BgL_auxz00_3599 = 
BINT(((long)31326)); 
BgL_auxz00_3598 = 
MAKE_PAIR(BgL_auxz00_3599, BNIL); } 
BgL_auxz00_3597 = 
MAKE_PAIR(BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3598); } 
BgL_auxz00_3596 = 
MAKE_PAIR(BGl_symbol6666z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3597); } 
BgL_auxz00_3595 = 
MAKE_PAIR(BGl_symbol6664z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3596); } 
BgL_auxz00_3594 = 
MAKE_PAIR(BGl_symbol6662z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3595); } 
BGl_list6667z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6668z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3594); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3607;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3608;
BgL_auxz00_3608 = 
MAKE_PAIR(BGl_list6667z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3607 = 
MAKE_PAIR(BGl_list6660z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3608); } 
BGl_list6659z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3607); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3612;
BgL_auxz00_3612 = 
MAKE_PAIR(BGl_list6659z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6658z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3612); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3615;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3616;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3617;
BgL_auxz00_3617 = 
MAKE_PAIR(BGl_list6658z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3616 = 
MAKE_PAIR(BGl_list6657z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3617); } 
BgL_auxz00_3615 = 
MAKE_PAIR(BGl_symbol6655z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3616); } 
BGl_list6656z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3615); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3622;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3623;
BgL_auxz00_3623 = 
MAKE_PAIR(BGl_list6656z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3622 = 
MAKE_PAIR(BGl_list6653z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3623); } 
BGl_list6652z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3622); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3627;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3628;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3629;
BgL_auxz00_3629 = 
MAKE_PAIR(BGl_list6652z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3628 = 
MAKE_PAIR(BGl_list6614z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3629); } 
BgL_auxz00_3627 = 
MAKE_PAIR(BGl_symbol6609z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3628); } 
BGl_list6613z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3627); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3634;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3635;
BgL_auxz00_3635 = 
MAKE_PAIR(BGl_list6613z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3634 = 
MAKE_PAIR(BGl_list6607z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3635); } 
BGl_list6606z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3634); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3639;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3640;
BgL_auxz00_3640 = 
MAKE_PAIR(BGl_list6606z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3639 = 
MAKE_PAIR(BGl_list6604z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3640); } 
BGl_list6602z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6603z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3639); } 
BGl_list6601z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6602z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6673z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1805"); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3646;
BgL_auxz00_3646 = 
MAKE_PAIR(BGl_list6648z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6672z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6673z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3646); } 
BGl_list6671z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6672z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3650;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3651;
BgL_auxz00_3651 = 
MAKE_PAIR(BGl_symbol6571z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3650 = 
MAKE_PAIR(BGl_symbol6673z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3651); } 
BGl_list6674z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6603z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3650); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3655;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3656;
BgL_auxz00_3656 = 
MAKE_PAIR(BGl_list6674z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3655 = 
MAKE_PAIR(BGl_list6671z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3656); } 
BGl_list6670z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3655); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3660;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3661;
BgL_auxz00_3661 = 
MAKE_PAIR(BGl_list6670z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3660 = 
MAKE_PAIR(BGl_list6601z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3661); } 
BGl_list6599z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6600z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3660); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3665;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3666;
BgL_auxz00_3666 = 
MAKE_PAIR(BGl_list6599z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3665 = 
MAKE_PAIR(BGl_list6569z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3666); } 
BGl_list6568z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3665); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3670;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3671;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3672;
BgL_auxz00_3672 = 
MAKE_PAIR(BGl_list6568z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3671 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3672); } 
BgL_auxz00_3670 = 
MAKE_PAIR(BGl_symbol6557z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3671); } 
BGl_list6564z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3670); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3677;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3678;
BgL_auxz00_3678 = 
MAKE_PAIR(BGl_list6564z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3677 = 
MAKE_PAIR(BGl_list6555z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3678); } 
BGl_list6554z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3677); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3682;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3683;
BgL_auxz00_3683 = 
MAKE_PAIR(BGl_list6554z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3682 = 
MAKE_PAIR(BGl_list6550z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3683); } 
BGl_list6548z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3682); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3687;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3688;
BgL_auxz00_3688 = 
MAKE_PAIR(BGl_list6548z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3687 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3688); } 
BGl_list6546z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6547z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3687); } 
BGl_symbol6675z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_every"); 
BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("any"); 
BGl_symbol6680z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1858"); 
{ /* ./Ieee/pairlist.scm 792 */
obj_t BgL_auxz00_3695;
{ /* ./Ieee/pairlist.scm 792 */
obj_t BgL_auxz00_3696;
{ /* ./Ieee/pairlist.scm 792 */
obj_t BgL_auxz00_3697;
BgL_auxz00_3697 = 
MAKE_PAIR(BGl_symbol6680z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3696 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3697); } 
BgL_auxz00_3695 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3696); } 
BGl_list6679z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6539z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3695); } 
BGl_symbol6685z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("l1023"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3703;
BgL_auxz00_3703 = 
MAKE_PAIR(BGl_symbol6553z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6684z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6685z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3703); } 
BGl_list6683z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6684z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6689z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test1900"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3708;
BgL_auxz00_3708 = 
MAKE_PAIR(BGl_symbol6685z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6692z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3708); } 
BGl_list6691z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6692z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3712;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3713;
BgL_auxz00_3713 = 
MAKE_PAIR(BGl_list6562z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3712 = 
MAKE_PAIR(BGl_list6691z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3713); } 
BGl_list6690z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3712); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3717;
BgL_auxz00_3717 = 
MAKE_PAIR(BGl_list6690z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6688z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6689z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3717); } 
BGl_list6687z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6688z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6697z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("head1025"); 
BGl_symbol6701z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1928"); 
BGl_symbol6705z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1933"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3724;
BgL_auxz00_3724 = 
MAKE_PAIR(BGl_symbol6685z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6708z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3724); } 
BGl_list6707z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6708z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3728;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3729;
BgL_auxz00_3729 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3728 = 
MAKE_PAIR(BGl_list6707z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3729); } 
BGl_list6706z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3728); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3733;
BgL_auxz00_3733 = 
MAKE_PAIR(BGl_list6706z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6704z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6705z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3733); } 
BGl_list6703z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6704z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3737;
BgL_auxz00_3737 = 
MAKE_PAIR(BGl_symbol6705z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6711z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3737); } 
BGl_list6710z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6711z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3741;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3742;
BgL_auxz00_3742 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3741 = 
MAKE_PAIR(BGl_list6710z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3742); } 
BGl_list6709z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3741); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3746;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3747;
BgL_auxz00_3747 = 
MAKE_PAIR(BGl_list6709z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3746 = 
MAKE_PAIR(BGl_list6703z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3747); } 
BGl_list6702z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3746); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3751;
BgL_auxz00_3751 = 
MAKE_PAIR(BGl_list6702z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6700z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6701z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3751); } 
BGl_symbol6713z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1930"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3755;
BgL_auxz00_3755 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6712z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6713z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3755); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3758;
BgL_auxz00_3758 = 
MAKE_PAIR(BGl_list6712z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6699z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6700z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3758); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3761;
BgL_auxz00_3761 = 
MAKE_PAIR(BGl_symbol6701z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6716z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3761); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3764;
BgL_auxz00_3764 = 
MAKE_PAIR(BGl_symbol6713z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6717z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3764); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3767;
BgL_auxz00_3767 = 
MAKE_PAIR(BGl_list6717z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6715z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6716z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3767); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3770;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3771;
BgL_auxz00_3771 = 
MAKE_PAIR(BGl_list6597z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3770 = 
MAKE_PAIR(BGl_list6715z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3771); } 
BGl_list6714z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3770); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3775;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3776;
BgL_auxz00_3776 = 
MAKE_PAIR(BGl_list6714z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3775 = 
MAKE_PAIR(BGl_list6699z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3776); } 
BGl_list6698z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3775); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3780;
BgL_auxz00_3780 = 
MAKE_PAIR(BGl_list6698z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6696z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6697z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3780); } 
BGl_list6695z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6696z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6721z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("map1024"); 
BGl_symbol6723z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("tail1026"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3786;
BgL_auxz00_3786 = 
MAKE_PAIR(BGl_symbol6723z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6722z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6685z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3786); } 
BGl_symbol6727z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test1905"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3790;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3791;
BgL_auxz00_3791 = 
MAKE_PAIR(BGl_list6611z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3790 = 
MAKE_PAIR(BGl_list6691z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3791); } 
BGl_list6728z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3790); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3795;
BgL_auxz00_3795 = 
MAKE_PAIR(BGl_list6728z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6726z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6727z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3795); } 
BGl_list6725z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6726z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6734z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("newtail1027"); 
BGl_symbol6738z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1912"); 
BGl_symbol6742z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1919"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3802;
BgL_auxz00_3802 = 
MAKE_PAIR(BGl_list6706z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6741z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6742z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3802); } 
BGl_list6740z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6741z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3806;
BgL_auxz00_3806 = 
MAKE_PAIR(BGl_symbol6742z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6745z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3806); } 
BGl_list6744z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6745z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3810;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3811;
BgL_auxz00_3811 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3810 = 
MAKE_PAIR(BGl_list6744z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3811); } 
BGl_list6743z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3810); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3815;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3816;
BgL_auxz00_3816 = 
MAKE_PAIR(BGl_list6743z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3815 = 
MAKE_PAIR(BGl_list6740z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3816); } 
BGl_list6739z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3815); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3820;
BgL_auxz00_3820 = 
MAKE_PAIR(BGl_list6739z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6737z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6738z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3820); } 
BGl_symbol6747z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1915"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3824;
BgL_auxz00_3824 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6746z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6747z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3824); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3827;
BgL_auxz00_3827 = 
MAKE_PAIR(BGl_list6746z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6736z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6737z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3827); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3830;
BgL_auxz00_3830 = 
MAKE_PAIR(BGl_symbol6738z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6750z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3830); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3833;
BgL_auxz00_3833 = 
MAKE_PAIR(BGl_symbol6747z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6751z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3833); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3836;
BgL_auxz00_3836 = 
MAKE_PAIR(BGl_list6751z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6749z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6750z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3836); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3839;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3840;
BgL_auxz00_3840 = 
MAKE_PAIR(BGl_list6597z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3839 = 
MAKE_PAIR(BGl_list6749z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3840); } 
BGl_list6748z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3839); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3844;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3845;
BgL_auxz00_3845 = 
MAKE_PAIR(BGl_list6748z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3844 = 
MAKE_PAIR(BGl_list6736z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3845); } 
BGl_list6735z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3844); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3849;
BgL_auxz00_3849 = 
MAKE_PAIR(BGl_list6735z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6733z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6734z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3849); } 
BGl_list6732z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6733z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3853;
BgL_auxz00_3853 = 
MAKE_PAIR(BGl_symbol6723z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6755z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3853); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3856;
BgL_auxz00_3856 = 
MAKE_PAIR(BGl_symbol6734z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6756z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3856); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3859;
BgL_auxz00_3859 = 
MAKE_PAIR(BGl_list6756z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6754z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6755z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3859); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3862;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3863;
BgL_auxz00_3863 = 
MAKE_PAIR(BGl_list6642z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3862 = 
MAKE_PAIR(BGl_list6754z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3863); } 
BGl_list6753z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3862); } 
BGl_symbol6760z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1908"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3868;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3869;
BgL_auxz00_3869 = 
MAKE_PAIR(BGl_list6649z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3868 = 
MAKE_PAIR(BGl_list6707z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3869); } 
BGl_list6761z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3868); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3873;
BgL_auxz00_3873 = 
MAKE_PAIR(BGl_list6761z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6759z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6760z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3873); } 
BGl_list6758z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6759z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3877;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3878;
BgL_auxz00_3878 = 
MAKE_PAIR(BGl_symbol6734z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3877 = 
MAKE_PAIR(BGl_symbol6760z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3878); } 
BGl_list6762z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6721z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3877); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3882;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3883;
BgL_auxz00_3883 = 
MAKE_PAIR(BGl_list6762z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3882 = 
MAKE_PAIR(BGl_list6758z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3883); } 
BGl_list6757z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3882); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3887;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3888;
BgL_auxz00_3888 = 
MAKE_PAIR(BGl_list6757z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3887 = 
MAKE_PAIR(BGl_list6753z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3888); } 
BGl_list6752z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3887); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3892;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3893;
BgL_auxz00_3893 = 
MAKE_PAIR(BGl_list6752z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3892 = 
MAKE_PAIR(BGl_list6732z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3893); } 
BGl_list6731z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3892); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3897;
BgL_auxz00_3897 = 
MAKE_PAIR(BGl_list6731z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6730z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3897); } 
BGl_symbol6766z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test1922"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3901;
BgL_auxz00_3901 = 
MAKE_PAIR(BGl_list6690z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6765z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6766z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3901); } 
BGl_list6764z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6765z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3905;
BgL_auxz00_3905 = 
MAKE_PAIR(BGl_symbol6697z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6768z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3905); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3908;
BgL_auxz00_3908 = 
MAKE_PAIR(BGl_symbol6685z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6772z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6666z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3908); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3911;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3912;
BgL_auxz00_3912 = 
MAKE_PAIR(BGl_list6772z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3911 = 
MAKE_PAIR(BGl_list6663z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3912); } 
BGl_list6771z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6661z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3911); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3916;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3917;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3918;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3919;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3920;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3921;
BgL_auxz00_3921 = 
BINT(((long)31887)); 
BgL_auxz00_3920 = 
MAKE_PAIR(BgL_auxz00_3921, BNIL); } 
BgL_auxz00_3919 = 
MAKE_PAIR(BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3920); } 
BgL_auxz00_3918 = 
MAKE_PAIR(BGl_symbol6666z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3919); } 
BgL_auxz00_3917 = 
MAKE_PAIR(BGl_symbol6664z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3918); } 
BgL_auxz00_3916 = 
MAKE_PAIR(BGl_symbol6662z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3917); } 
BGl_list6773z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6668z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3916); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3929;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3930;
BgL_auxz00_3930 = 
MAKE_PAIR(BGl_list6773z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3929 = 
MAKE_PAIR(BGl_list6771z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3930); } 
BGl_list6770z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3929); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3934;
BgL_auxz00_3934 = 
MAKE_PAIR(BGl_list6770z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6769z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3934); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3937;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3938;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3939;
BgL_auxz00_3939 = 
MAKE_PAIR(BGl_list6769z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3938 = 
MAKE_PAIR(BGl_list6768z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3939); } 
BgL_auxz00_3937 = 
MAKE_PAIR(BGl_symbol6766z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3938); } 
BGl_list6767z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3937); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3944;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3945;
BgL_auxz00_3945 = 
MAKE_PAIR(BGl_list6767z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3944 = 
MAKE_PAIR(BGl_list6764z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3945); } 
BGl_list6763z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3944); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3949;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3950;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3951;
BgL_auxz00_3951 = 
MAKE_PAIR(BGl_list6763z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3950 = 
MAKE_PAIR(BGl_list6730z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3951); } 
BgL_auxz00_3949 = 
MAKE_PAIR(BGl_symbol6727z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3950); } 
BGl_list6729z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3949); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3956;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3957;
BgL_auxz00_3957 = 
MAKE_PAIR(BGl_list6729z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3956 = 
MAKE_PAIR(BGl_list6725z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3957); } 
BGl_list6724z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3956); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3961;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3962;
BgL_auxz00_3962 = 
MAKE_PAIR(BGl_list6724z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3961 = 
MAKE_PAIR(BGl_list6722z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3962); } 
BGl_list6720z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6721z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3961); } 
BGl_list6719z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6720z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6778z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1902"); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3968;
BgL_auxz00_3968 = 
MAKE_PAIR(BGl_list6761z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6777z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6778z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3968); } 
BGl_list6776z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6777z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3972;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3973;
BgL_auxz00_3973 = 
MAKE_PAIR(BGl_symbol6697z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3972 = 
MAKE_PAIR(BGl_symbol6778z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3973); } 
BGl_list6779z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6721z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3972); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3977;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3978;
BgL_auxz00_3978 = 
MAKE_PAIR(BGl_list6779z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3977 = 
MAKE_PAIR(BGl_list6776z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3978); } 
BGl_list6775z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3977); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3982;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3983;
BgL_auxz00_3983 = 
MAKE_PAIR(BGl_list6775z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3982 = 
MAKE_PAIR(BGl_list6719z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3983); } 
BGl_list6718z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6600z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3982); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3987;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3988;
BgL_auxz00_3988 = 
MAKE_PAIR(BGl_list6718z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3987 = 
MAKE_PAIR(BGl_list6695z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3988); } 
BGl_list6694z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3987); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3992;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3993;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3994;
BgL_auxz00_3994 = 
MAKE_PAIR(BGl_list6694z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3993 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3994); } 
BgL_auxz00_3992 = 
MAKE_PAIR(BGl_symbol6689z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3993); } 
BGl_list6693z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3992); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3999;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_4000;
BgL_auxz00_4000 = 
MAKE_PAIR(BGl_list6693z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_3999 = 
MAKE_PAIR(BGl_list6687z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4000); } 
BGl_list6686z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_3999); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_4004;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_4005;
BgL_auxz00_4005 = 
MAKE_PAIR(BGl_list6686z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4004 = 
MAKE_PAIR(BGl_list6683z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4005); } 
BGl_list6682z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4004); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_4009;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_4010;
BgL_auxz00_4010 = 
MAKE_PAIR(BGl_list6682z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4009 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4010); } 
BGl_list6681z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6547z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4009); } 
BGl_symbol6780z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_any"); 
BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("every?"); 
BGl_symbol6784z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg1960"); 
{ /* ./Ieee/pairlist.scm 813 */
obj_t BgL_auxz00_4017;
{ /* ./Ieee/pairlist.scm 813 */
obj_t BgL_auxz00_4018;
{ /* ./Ieee/pairlist.scm 813 */
obj_t BgL_auxz00_4019;
BgL_auxz00_4019 = 
MAKE_PAIR(BGl_symbol6784z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4018 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4019); } 
BgL_auxz00_4017 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4018); } 
BGl_list6783z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6539z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4017); } 
BGl_symbol6789z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("l1033"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4025;
BgL_auxz00_4025 = 
MAKE_PAIR(BGl_symbol6553z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6788z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6789z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4025); } 
BGl_list6787z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6788z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6793z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test2004"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4030;
BgL_auxz00_4030 = 
MAKE_PAIR(BGl_symbol6789z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6796z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4030); } 
BGl_list6795z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6796z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4034;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4035;
BgL_auxz00_4035 = 
MAKE_PAIR(BGl_list6562z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4034 = 
MAKE_PAIR(BGl_list6795z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4035); } 
BGl_list6794z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4034); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4039;
BgL_auxz00_4039 = 
MAKE_PAIR(BGl_list6794z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6792z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6793z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4039); } 
BGl_list6791z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6792z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6801z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("head1035"); 
BGl_symbol6805z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2029"); 
BGl_symbol6809z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2033"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4046;
BgL_auxz00_4046 = 
MAKE_PAIR(BGl_symbol6789z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6812z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4046); } 
BGl_list6811z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6812z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4050;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4051;
BgL_auxz00_4051 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4050 = 
MAKE_PAIR(BGl_list6811z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4051); } 
BGl_list6810z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4050); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4055;
BgL_auxz00_4055 = 
MAKE_PAIR(BGl_list6810z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6808z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6809z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4055); } 
BGl_list6807z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6808z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4059;
BgL_auxz00_4059 = 
MAKE_PAIR(BGl_symbol6809z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6815z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4059); } 
BGl_list6814z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6815z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4063;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4064;
BgL_auxz00_4064 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4063 = 
MAKE_PAIR(BGl_list6814z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4064); } 
BGl_list6813z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4063); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4068;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4069;
BgL_auxz00_4069 = 
MAKE_PAIR(BGl_list6813z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4068 = 
MAKE_PAIR(BGl_list6807z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4069); } 
BGl_list6806z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4068); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4073;
BgL_auxz00_4073 = 
MAKE_PAIR(BGl_list6806z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6804z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6805z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4073); } 
BGl_symbol6817z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2030"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4077;
BgL_auxz00_4077 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6816z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6817z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4077); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4080;
BgL_auxz00_4080 = 
MAKE_PAIR(BGl_list6816z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6803z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6804z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4080); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4083;
BgL_auxz00_4083 = 
MAKE_PAIR(BGl_symbol6805z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6820z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4083); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4086;
BgL_auxz00_4086 = 
MAKE_PAIR(BGl_symbol6817z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6821z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4086); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4089;
BgL_auxz00_4089 = 
MAKE_PAIR(BGl_list6821z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6819z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6820z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4089); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4092;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4093;
BgL_auxz00_4093 = 
MAKE_PAIR(BGl_list6597z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4092 = 
MAKE_PAIR(BGl_list6819z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4093); } 
BGl_list6818z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4092); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4097;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4098;
BgL_auxz00_4098 = 
MAKE_PAIR(BGl_list6818z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4097 = 
MAKE_PAIR(BGl_list6803z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4098); } 
BGl_list6802z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4097); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4102;
BgL_auxz00_4102 = 
MAKE_PAIR(BGl_list6802z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6800z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6801z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4102); } 
BGl_list6799z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6800z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6825z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("map1034"); 
BGl_symbol6827z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("tail1036"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4108;
BgL_auxz00_4108 = 
MAKE_PAIR(BGl_symbol6827z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6826z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6789z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4108); } 
BGl_symbol6831z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test2009"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4112;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4113;
BgL_auxz00_4113 = 
MAKE_PAIR(BGl_list6611z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4112 = 
MAKE_PAIR(BGl_list6795z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4113); } 
BGl_list6832z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4112); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4117;
BgL_auxz00_4117 = 
MAKE_PAIR(BGl_list6832z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6830z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6831z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4117); } 
BGl_list6829z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6830z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6838z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("newtail1037"); 
BGl_symbol6842z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2016"); 
BGl_symbol6846z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2021"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4124;
BgL_auxz00_4124 = 
MAKE_PAIR(BGl_list6810z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6845z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6846z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4124); } 
BGl_list6844z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6845z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4128;
BgL_auxz00_4128 = 
MAKE_PAIR(BGl_symbol6846z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6849z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4128); } 
BGl_list6848z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6849z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4132;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4133;
BgL_auxz00_4133 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4132 = 
MAKE_PAIR(BGl_list6848z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4133); } 
BGl_list6847z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4132); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4137;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4138;
BgL_auxz00_4138 = 
MAKE_PAIR(BGl_list6847z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4137 = 
MAKE_PAIR(BGl_list6844z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4138); } 
BGl_list6843z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4137); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4142;
BgL_auxz00_4142 = 
MAKE_PAIR(BGl_list6843z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6841z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6842z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4142); } 
BGl_symbol6851z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2018"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4146;
BgL_auxz00_4146 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6850z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6851z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4146); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4149;
BgL_auxz00_4149 = 
MAKE_PAIR(BGl_list6850z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6840z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6841z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4149); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4152;
BgL_auxz00_4152 = 
MAKE_PAIR(BGl_symbol6842z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6854z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4152); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4155;
BgL_auxz00_4155 = 
MAKE_PAIR(BGl_symbol6851z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6855z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4155); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4158;
BgL_auxz00_4158 = 
MAKE_PAIR(BGl_list6855z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6853z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6854z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4158); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4161;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4162;
BgL_auxz00_4162 = 
MAKE_PAIR(BGl_list6597z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4161 = 
MAKE_PAIR(BGl_list6853z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4162); } 
BGl_list6852z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4161); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4166;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4167;
BgL_auxz00_4167 = 
MAKE_PAIR(BGl_list6852z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4166 = 
MAKE_PAIR(BGl_list6840z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4167); } 
BGl_list6839z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4166); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4171;
BgL_auxz00_4171 = 
MAKE_PAIR(BGl_list6839z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6837z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6838z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4171); } 
BGl_list6836z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6837z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4175;
BgL_auxz00_4175 = 
MAKE_PAIR(BGl_symbol6827z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6859z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4175); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4178;
BgL_auxz00_4178 = 
MAKE_PAIR(BGl_symbol6838z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6860z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4178); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4181;
BgL_auxz00_4181 = 
MAKE_PAIR(BGl_list6860z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6858z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6859z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4181); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4184;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4185;
BgL_auxz00_4185 = 
MAKE_PAIR(BGl_list6642z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4184 = 
MAKE_PAIR(BGl_list6858z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4185); } 
BGl_list6857z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4184); } 
BGl_symbol6864z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2012"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4190;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4191;
BgL_auxz00_4191 = 
MAKE_PAIR(BGl_list6649z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4190 = 
MAKE_PAIR(BGl_list6811z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4191); } 
BGl_list6865z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4190); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4195;
BgL_auxz00_4195 = 
MAKE_PAIR(BGl_list6865z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6863z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6864z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4195); } 
BGl_list6862z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6863z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4199;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4200;
BgL_auxz00_4200 = 
MAKE_PAIR(BGl_symbol6838z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4199 = 
MAKE_PAIR(BGl_symbol6864z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4200); } 
BGl_list6866z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6825z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4199); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4204;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4205;
BgL_auxz00_4205 = 
MAKE_PAIR(BGl_list6866z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4204 = 
MAKE_PAIR(BGl_list6862z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4205); } 
BGl_list6861z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4204); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4209;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4210;
BgL_auxz00_4210 = 
MAKE_PAIR(BGl_list6861z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4209 = 
MAKE_PAIR(BGl_list6857z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4210); } 
BGl_list6856z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4209); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4214;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4215;
BgL_auxz00_4215 = 
MAKE_PAIR(BGl_list6856z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4214 = 
MAKE_PAIR(BGl_list6836z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4215); } 
BGl_list6835z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4214); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4219;
BgL_auxz00_4219 = 
MAKE_PAIR(BGl_list6835z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6834z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4219); } 
BGl_symbol6870z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test2024"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4223;
BgL_auxz00_4223 = 
MAKE_PAIR(BGl_list6794z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6869z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6870z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4223); } 
BGl_list6868z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6869z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4227;
BgL_auxz00_4227 = 
MAKE_PAIR(BGl_symbol6801z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6872z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4227); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4230;
BgL_auxz00_4230 = 
MAKE_PAIR(BGl_symbol6789z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6876z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6666z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4230); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4233;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4234;
BgL_auxz00_4234 = 
MAKE_PAIR(BGl_list6876z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4233 = 
MAKE_PAIR(BGl_list6663z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4234); } 
BGl_list6875z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6661z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4233); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4238;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4239;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4240;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4241;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4242;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4243;
BgL_auxz00_4243 = 
BINT(((long)32476)); 
BgL_auxz00_4242 = 
MAKE_PAIR(BgL_auxz00_4243, BNIL); } 
BgL_auxz00_4241 = 
MAKE_PAIR(BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4242); } 
BgL_auxz00_4240 = 
MAKE_PAIR(BGl_symbol6666z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4241); } 
BgL_auxz00_4239 = 
MAKE_PAIR(BGl_symbol6664z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4240); } 
BgL_auxz00_4238 = 
MAKE_PAIR(BGl_symbol6662z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4239); } 
BGl_list6877z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6668z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4238); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4251;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4252;
BgL_auxz00_4252 = 
MAKE_PAIR(BGl_list6877z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4251 = 
MAKE_PAIR(BGl_list6875z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4252); } 
BGl_list6874z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4251); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4256;
BgL_auxz00_4256 = 
MAKE_PAIR(BGl_list6874z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6873z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4256); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4259;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4260;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4261;
BgL_auxz00_4261 = 
MAKE_PAIR(BGl_list6873z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4260 = 
MAKE_PAIR(BGl_list6872z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4261); } 
BgL_auxz00_4259 = 
MAKE_PAIR(BGl_symbol6870z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4260); } 
BGl_list6871z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4259); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4266;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4267;
BgL_auxz00_4267 = 
MAKE_PAIR(BGl_list6871z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4266 = 
MAKE_PAIR(BGl_list6868z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4267); } 
BGl_list6867z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4266); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4271;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4272;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4273;
BgL_auxz00_4273 = 
MAKE_PAIR(BGl_list6867z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4272 = 
MAKE_PAIR(BGl_list6834z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4273); } 
BgL_auxz00_4271 = 
MAKE_PAIR(BGl_symbol6831z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4272); } 
BGl_list6833z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4271); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4278;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4279;
BgL_auxz00_4279 = 
MAKE_PAIR(BGl_list6833z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4278 = 
MAKE_PAIR(BGl_list6829z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4279); } 
BGl_list6828z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4278); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4283;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4284;
BgL_auxz00_4284 = 
MAKE_PAIR(BGl_list6828z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4283 = 
MAKE_PAIR(BGl_list6826z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4284); } 
BGl_list6824z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6825z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4283); } 
BGl_list6823z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6824z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6882z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2006"); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4290;
BgL_auxz00_4290 = 
MAKE_PAIR(BGl_list6865z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6881z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6882z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4290); } 
BGl_list6880z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6881z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4294;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4295;
BgL_auxz00_4295 = 
MAKE_PAIR(BGl_symbol6801z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4294 = 
MAKE_PAIR(BGl_symbol6882z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4295); } 
BGl_list6883z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6825z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4294); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4299;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4300;
BgL_auxz00_4300 = 
MAKE_PAIR(BGl_list6883z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4299 = 
MAKE_PAIR(BGl_list6880z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4300); } 
BGl_list6879z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4299); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4304;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4305;
BgL_auxz00_4305 = 
MAKE_PAIR(BGl_list6879z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4304 = 
MAKE_PAIR(BGl_list6823z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4305); } 
BGl_list6822z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6600z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4304); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4309;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4310;
BgL_auxz00_4310 = 
MAKE_PAIR(BGl_list6822z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4309 = 
MAKE_PAIR(BGl_list6799z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4310); } 
BGl_list6798z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4309); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4314;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4315;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4316;
BgL_auxz00_4316 = 
MAKE_PAIR(BGl_list6798z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4315 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4316); } 
BgL_auxz00_4314 = 
MAKE_PAIR(BGl_symbol6793z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4315); } 
BGl_list6797z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4314); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4321;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4322;
BgL_auxz00_4322 = 
MAKE_PAIR(BGl_list6797z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4321 = 
MAKE_PAIR(BGl_list6791z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4322); } 
BGl_list6790z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4321); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4326;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4327;
BgL_auxz00_4327 = 
MAKE_PAIR(BGl_list6790z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4326 = 
MAKE_PAIR(BGl_list6787z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4327); } 
BGl_list6786z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4326); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4331;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_4332;
BgL_auxz00_4332 = 
MAKE_PAIR(BGl_list6786z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4331 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4332); } 
BGl_list6785z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6547z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4331); } 
BGl_symbol6884z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_every?2906"); 
BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("any?"); 
BGl_symbol6888z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2059"); 
{ /* ./Ieee/pairlist.scm 839 */
obj_t BgL_auxz00_4339;
{ /* ./Ieee/pairlist.scm 839 */
obj_t BgL_auxz00_4340;
{ /* ./Ieee/pairlist.scm 839 */
obj_t BgL_auxz00_4341;
BgL_auxz00_4341 = 
MAKE_PAIR(BGl_symbol6888z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4340 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4341); } 
BgL_auxz00_4339 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4340); } 
BGl_list6887z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6539z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4339); } 
BGl_symbol6893z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("l1043"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4347;
BgL_auxz00_4347 = 
MAKE_PAIR(BGl_symbol6553z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6892z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6893z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4347); } 
BGl_list6891z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6892z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6897z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test2101"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4352;
BgL_auxz00_4352 = 
MAKE_PAIR(BGl_symbol6893z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6900z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4352); } 
BGl_list6899z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6900z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4356;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4357;
BgL_auxz00_4357 = 
MAKE_PAIR(BGl_list6562z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4356 = 
MAKE_PAIR(BGl_list6899z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4357); } 
BGl_list6898z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4356); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4361;
BgL_auxz00_4361 = 
MAKE_PAIR(BGl_list6898z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6896z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6897z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4361); } 
BGl_list6895z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6896z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6905z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("head1045"); 
BGl_symbol6909z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2126"); 
BGl_symbol6913z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2132"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4368;
BgL_auxz00_4368 = 
MAKE_PAIR(BGl_symbol6893z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6916z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4368); } 
BGl_list6915z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6916z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4372;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4373;
BgL_auxz00_4373 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4372 = 
MAKE_PAIR(BGl_list6915z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4373); } 
BGl_list6914z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4372); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4377;
BgL_auxz00_4377 = 
MAKE_PAIR(BGl_list6914z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6912z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6913z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4377); } 
BGl_list6911z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6912z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4381;
BgL_auxz00_4381 = 
MAKE_PAIR(BGl_symbol6913z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6919z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4381); } 
BGl_list6918z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6919z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4385;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4386;
BgL_auxz00_4386 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4385 = 
MAKE_PAIR(BGl_list6918z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4386); } 
BGl_list6917z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4385); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4390;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4391;
BgL_auxz00_4391 = 
MAKE_PAIR(BGl_list6917z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4390 = 
MAKE_PAIR(BGl_list6911z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4391); } 
BGl_list6910z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4390); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4395;
BgL_auxz00_4395 = 
MAKE_PAIR(BGl_list6910z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6908z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6909z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4395); } 
BGl_symbol6921z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2127"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4399;
BgL_auxz00_4399 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6920z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6921z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4399); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4402;
BgL_auxz00_4402 = 
MAKE_PAIR(BGl_list6920z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6907z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6908z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4402); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4405;
BgL_auxz00_4405 = 
MAKE_PAIR(BGl_symbol6909z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6924z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4405); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4408;
BgL_auxz00_4408 = 
MAKE_PAIR(BGl_symbol6921z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6925z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4408); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4411;
BgL_auxz00_4411 = 
MAKE_PAIR(BGl_list6925z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6923z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6924z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4411); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4414;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4415;
BgL_auxz00_4415 = 
MAKE_PAIR(BGl_list6597z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4414 = 
MAKE_PAIR(BGl_list6923z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4415); } 
BGl_list6922z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4414); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4419;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4420;
BgL_auxz00_4420 = 
MAKE_PAIR(BGl_list6922z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4419 = 
MAKE_PAIR(BGl_list6907z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4420); } 
BGl_list6906z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4419); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4424;
BgL_auxz00_4424 = 
MAKE_PAIR(BGl_list6906z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6904z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6905z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4424); } 
BGl_list6903z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6904z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6929z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("map1044"); 
BGl_symbol6931z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("tail1046"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4430;
BgL_auxz00_4430 = 
MAKE_PAIR(BGl_symbol6931z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6930z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6893z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4430); } 
BGl_symbol6935z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test2106"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4434;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4435;
BgL_auxz00_4435 = 
MAKE_PAIR(BGl_list6611z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4434 = 
MAKE_PAIR(BGl_list6899z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4435); } 
BGl_list6936z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4434); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4439;
BgL_auxz00_4439 = 
MAKE_PAIR(BGl_list6936z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6934z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6935z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4439); } 
BGl_list6933z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6934z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6942z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("newtail1047"); 
BGl_symbol6946z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2113"); 
BGl_symbol6950z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2118"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4446;
BgL_auxz00_4446 = 
MAKE_PAIR(BGl_list6914z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6949z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6950z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4446); } 
BGl_list6948z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6949z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4450;
BgL_auxz00_4450 = 
MAKE_PAIR(BGl_symbol6950z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6953z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4450); } 
BGl_list6952z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6953z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4454;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4455;
BgL_auxz00_4455 = 
MAKE_PAIR(BGl_list6584z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4454 = 
MAKE_PAIR(BGl_list6952z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4455); } 
BGl_list6951z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4454); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4459;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4460;
BgL_auxz00_4460 = 
MAKE_PAIR(BGl_list6951z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4459 = 
MAKE_PAIR(BGl_list6948z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4460); } 
BGl_list6947z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4459); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4464;
BgL_auxz00_4464 = 
MAKE_PAIR(BGl_list6947z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6945z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6946z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4464); } 
BGl_symbol6955z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2115"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4468;
BgL_auxz00_4468 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6954z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6955z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4468); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4471;
BgL_auxz00_4471 = 
MAKE_PAIR(BGl_list6954z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6944z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6945z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4471); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4474;
BgL_auxz00_4474 = 
MAKE_PAIR(BGl_symbol6946z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6958z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6594z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4474); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4477;
BgL_auxz00_4477 = 
MAKE_PAIR(BGl_symbol6955z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6959z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6596z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4477); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4480;
BgL_auxz00_4480 = 
MAKE_PAIR(BGl_list6959z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6957z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6958z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4480); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4483;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4484;
BgL_auxz00_4484 = 
MAKE_PAIR(BGl_list6597z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4483 = 
MAKE_PAIR(BGl_list6957z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4484); } 
BGl_list6956z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4483); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4488;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4489;
BgL_auxz00_4489 = 
MAKE_PAIR(BGl_list6956z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4488 = 
MAKE_PAIR(BGl_list6944z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4489); } 
BGl_list6943z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4488); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4493;
BgL_auxz00_4493 = 
MAKE_PAIR(BGl_list6943z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6941z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6942z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4493); } 
BGl_list6940z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6941z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4497;
BgL_auxz00_4497 = 
MAKE_PAIR(BGl_symbol6931z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6963z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6583z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4497); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4500;
BgL_auxz00_4500 = 
MAKE_PAIR(BGl_symbol6942z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6964z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6561z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4500); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4503;
BgL_auxz00_4503 = 
MAKE_PAIR(BGl_list6964z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6962z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6963z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4503); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4506;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4507;
BgL_auxz00_4507 = 
MAKE_PAIR(BGl_list6642z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4506 = 
MAKE_PAIR(BGl_list6962z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4507); } 
BGl_list6961z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4506); } 
BGl_symbol6968z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2109"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4512;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4513;
BgL_auxz00_4513 = 
MAKE_PAIR(BGl_list6649z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4512 = 
MAKE_PAIR(BGl_list6915z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4513); } 
BGl_list6969z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4512); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4517;
BgL_auxz00_4517 = 
MAKE_PAIR(BGl_list6969z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6967z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6968z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4517); } 
BGl_list6966z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6967z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4521;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4522;
BgL_auxz00_4522 = 
MAKE_PAIR(BGl_symbol6942z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4521 = 
MAKE_PAIR(BGl_symbol6968z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4522); } 
BGl_list6970z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6929z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4521); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4526;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4527;
BgL_auxz00_4527 = 
MAKE_PAIR(BGl_list6970z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4526 = 
MAKE_PAIR(BGl_list6966z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4527); } 
BGl_list6965z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4526); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4531;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4532;
BgL_auxz00_4532 = 
MAKE_PAIR(BGl_list6965z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4531 = 
MAKE_PAIR(BGl_list6961z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4532); } 
BGl_list6960z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4531); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4536;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4537;
BgL_auxz00_4537 = 
MAKE_PAIR(BGl_list6960z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4536 = 
MAKE_PAIR(BGl_list6940z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4537); } 
BGl_list6939z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4536); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4541;
BgL_auxz00_4541 = 
MAKE_PAIR(BGl_list6939z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6938z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4541); } 
BGl_symbol6974z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("test2121"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4545;
BgL_auxz00_4545 = 
MAKE_PAIR(BGl_list6898z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6973z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6974z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4545); } 
BGl_list6972z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6973z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4549;
BgL_auxz00_4549 = 
MAKE_PAIR(BGl_symbol6905z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6976z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4549); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4552;
BgL_auxz00_4552 = 
MAKE_PAIR(BGl_symbol6893z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6980z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6666z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4552); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4555;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4556;
BgL_auxz00_4556 = 
MAKE_PAIR(BGl_list6980z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4555 = 
MAKE_PAIR(BGl_list6663z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4556); } 
BGl_list6979z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6661z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4555); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4560;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4561;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4562;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4563;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4564;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4565;
BgL_auxz00_4565 = 
BINT(((long)33089)); 
BgL_auxz00_4564 = 
MAKE_PAIR(BgL_auxz00_4565, BNIL); } 
BgL_auxz00_4563 = 
MAKE_PAIR(BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4564); } 
BgL_auxz00_4562 = 
MAKE_PAIR(BGl_symbol6666z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4563); } 
BgL_auxz00_4561 = 
MAKE_PAIR(BGl_symbol6664z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4562); } 
BgL_auxz00_4560 = 
MAKE_PAIR(BGl_symbol6662z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4561); } 
BGl_list6981z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6668z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4560); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4573;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4574;
BgL_auxz00_4574 = 
MAKE_PAIR(BGl_list6981z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4573 = 
MAKE_PAIR(BGl_list6979z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4574); } 
BGl_list6978z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4573); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4578;
BgL_auxz00_4578 = 
MAKE_PAIR(BGl_list6978z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6977z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6615z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4578); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4581;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4582;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4583;
BgL_auxz00_4583 = 
MAKE_PAIR(BGl_list6977z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4582 = 
MAKE_PAIR(BGl_list6976z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4583); } 
BgL_auxz00_4581 = 
MAKE_PAIR(BGl_symbol6974z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4582); } 
BGl_list6975z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4581); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4588;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4589;
BgL_auxz00_4589 = 
MAKE_PAIR(BGl_list6975z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4588 = 
MAKE_PAIR(BGl_list6972z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4589); } 
BGl_list6971z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4588); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4593;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4594;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4595;
BgL_auxz00_4595 = 
MAKE_PAIR(BGl_list6971z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4594 = 
MAKE_PAIR(BGl_list6938z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4595); } 
BgL_auxz00_4593 = 
MAKE_PAIR(BGl_symbol6935z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4594); } 
BGl_list6937z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4593); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4600;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4601;
BgL_auxz00_4601 = 
MAKE_PAIR(BGl_list6937z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4600 = 
MAKE_PAIR(BGl_list6933z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4601); } 
BGl_list6932z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4600); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4605;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4606;
BgL_auxz00_4606 = 
MAKE_PAIR(BGl_list6932z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4605 = 
MAKE_PAIR(BGl_list6930z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4606); } 
BGl_list6928z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6929z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4605); } 
BGl_list6927z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6928z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol6986z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("arg2103"); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4612;
BgL_auxz00_4612 = 
MAKE_PAIR(BGl_list6969z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list6985z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6986z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4612); } 
BGl_list6984z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_list6985z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4616;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4617;
BgL_auxz00_4617 = 
MAKE_PAIR(BGl_symbol6905z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4616 = 
MAKE_PAIR(BGl_symbol6986z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4617); } 
BGl_list6987z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6929z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4616); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4621;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4622;
BgL_auxz00_4622 = 
MAKE_PAIR(BGl_list6987z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4621 = 
MAKE_PAIR(BGl_list6984z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4622); } 
BGl_list6983z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4621); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4626;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4627;
BgL_auxz00_4627 = 
MAKE_PAIR(BGl_list6983z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4626 = 
MAKE_PAIR(BGl_list6927z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4627); } 
BGl_list6926z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6600z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4626); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4631;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4632;
BgL_auxz00_4632 = 
MAKE_PAIR(BGl_list6926z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4631 = 
MAKE_PAIR(BGl_list6903z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4632); } 
BGl_list6902z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4631); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4636;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4637;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4638;
BgL_auxz00_4638 = 
MAKE_PAIR(BGl_list6902z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4637 = 
MAKE_PAIR(BGl_list6566z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4638); } 
BgL_auxz00_4636 = 
MAKE_PAIR(BGl_symbol6897z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4637); } 
BGl_list6901z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6565z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4636); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4643;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4644;
BgL_auxz00_4644 = 
MAKE_PAIR(BGl_list6901z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4643 = 
MAKE_PAIR(BGl_list6895z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4644); } 
BGl_list6894z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4643); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4648;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4649;
BgL_auxz00_4649 = 
MAKE_PAIR(BGl_list6894z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4648 = 
MAKE_PAIR(BGl_list6891z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4649); } 
BGl_list6890z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6549z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4648); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4653;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_4654;
BgL_auxz00_4654 = 
MAKE_PAIR(BGl_list6890z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4653 = 
MAKE_PAIR(BGl_symbol6540z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4654); } 
BGl_list6889z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6547z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4653); } 
BGl_symbol6988z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_any?2908"); 
BGl_symbol6989z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("make-list"); 
BGl_symbol6990z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_make-list"); 
BGl_symbol6992z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("list-tabulate"); 
BGl_symbol6995z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("init-proc"); 
BGl_symbol6996z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("i"); 
{ /* ./Ieee/pairlist.scm 870 */
obj_t BgL_auxz00_4664;
{ /* ./Ieee/pairlist.scm 870 */
obj_t BgL_auxz00_4665;
{ /* ./Ieee/pairlist.scm 870 */
obj_t BgL_auxz00_4666;
BgL_auxz00_4666 = 
MAKE_PAIR(BGl_symbol6996z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BgL_auxz00_4665 = 
MAKE_PAIR(BGl_symbol6995z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4666); } 
BgL_auxz00_4664 = 
MAKE_PAIR(BGl_symbol6995z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4665); } 
BGl_list6994z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_PAIR(BGl_symbol6539z00zz__r4_pairs_and_lists_6_3z00, BgL_auxz00_4664); } 
BGl_symbol6997z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_list-tabulate"); 
BGl_symbol6998z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("iota"); 
BGl_symbol6999z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("_iota"); 
return ( 
BGl_symbol7000z00zz__r4_pairs_and_lists_6_3z00 = 
string_to_symbol("%import@__r4_pairs_and_lists_6_3"), BUNSPEC) ;} 
}



/* pair? */
BGL_EXPORTED_DEF bool_t BGl_pairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 197 */
return 
PAIRP(BgL_objz00_1);} 
}



/* _pair? */
obj_t BGl__pairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1767, obj_t BgL_objz00_1768)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 197 */
{ /* ./Ieee/pairlist.scm 198 */
bool_t BgL_auxz00_4676;
BgL_auxz00_4676 = 
PAIRP(BgL_objz00_1768); 
return 
BBOOL(BgL_auxz00_4676);} } 
}



/* epair? */
BGL_EXPORTED_DEF bool_t BGl_epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_2)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 203 */
{ /* ./Ieee/pairlist.scm 204 */
obj_t BgL_symbol2492z00_2644;
BgL_symbol2492z00_2644 = BGl_symbol6410z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 204 */

PUSH_TRACE(BgL_symbol2492z00_2644); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 204 */
bool_t BgL_aux2491z00_2645;
BgL_aux2491z00_2645 = 
EXTENDED_PAIRP(BgL_objz00_2); 
POP_TRACE(); 
return BgL_aux2491z00_2645;} } } } 
}



/* _epair? */
obj_t BGl__epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1769, obj_t BgL_objz00_1770)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 203 */
{ /* ./Ieee/pairlist.scm 204 */
bool_t BgL_auxz00_4682;
{ /* ./Ieee/pairlist.scm 204 */
bool_t BgL_res7001z00_2649;
{ /* ./Ieee/pairlist.scm 204 */
obj_t BgL_symbol2492z00_2647;
BgL_symbol2492z00_2647 = BGl_symbol6410z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 204 */

PUSH_TRACE(BgL_symbol2492z00_2647); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 204 */
bool_t BgL_aux2491z00_2648;
BgL_aux2491z00_2648 = 
EXTENDED_PAIRP(BgL_objz00_1770); 
POP_TRACE(); 
BgL_res7001z00_2649 = BgL_aux2491z00_2648; } } } 
BgL_auxz00_4682 = BgL_res7001z00_2649; } 
return 
BBOOL(BgL_auxz00_4682);} } 
}



/* pair-or-null? */
BGL_EXPORTED_DEF bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_3)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 209 */
if(
PAIRP(BgL_objz00_3))
{ /* ./Ieee/pairlist.scm 210 */
return ((bool_t)1);}  else 
{ /* ./Ieee/pairlist.scm 210 */
return 
NULLP(BgL_objz00_3);} } 
}



/* _pair-or-null? */
obj_t BGl__pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1771, obj_t BgL_objz00_1772)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 209 */
{ /* ./Ieee/pairlist.scm 210 */
bool_t BgL_auxz00_4690;
if(
PAIRP(BgL_objz00_1772))
{ /* ./Ieee/pairlist.scm 210 */
BgL_auxz00_4690 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 210 */
BgL_auxz00_4690 = 
NULLP(BgL_objz00_1772)
; } 
return 
BBOOL(BgL_auxz00_4690);} } 
}



/* cons */
BGL_EXPORTED_DEF obj_t BGl_consz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_obj1z00_4, obj_t BgL_obj2z00_5)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 217 */
{ /* ./Ieee/pairlist.scm 218 */
obj_t BgL_symbol2496z00_2651;
BgL_symbol2496z00_2651 = BGl_symbol6411z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 218 */

PUSH_TRACE(BgL_symbol2496z00_2651); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 218 */
obj_t BgL_aux2495z00_2652;
BgL_aux2495z00_2652 = 
MAKE_PAIR(BgL_obj1z00_4, BgL_obj2z00_5); 
POP_TRACE(); 
return BgL_aux2495z00_2652;} } } } 
}



/* _cons */
obj_t BGl__consz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1773, obj_t BgL_obj1z00_1774, obj_t BgL_obj2z00_1775)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 217 */
{ /* ./Ieee/pairlist.scm 218 */
obj_t BgL_res7002z00_2657;
{ /* ./Ieee/pairlist.scm 218 */
obj_t BgL_symbol2496z00_2655;
BgL_symbol2496z00_2655 = BGl_symbol6411z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 218 */

PUSH_TRACE(BgL_symbol2496z00_2655); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 218 */
obj_t BgL_aux2495z00_2656;
BgL_aux2495z00_2656 = 
MAKE_PAIR(BgL_obj1z00_1774, BgL_obj2z00_1775); 
POP_TRACE(); 
BgL_res7002z00_2657 = BgL_aux2495z00_2656; } } } 
return BgL_res7002z00_2657;} } 
}



/* econs */
BGL_EXPORTED_DEF obj_t BGl_econsz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_obj1z00_6, obj_t BgL_obj2z00_7, obj_t BgL_obj3z00_8)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 223 */
{ /* ./Ieee/pairlist.scm 224 */
obj_t BgL_symbol2500z00_2658;
BgL_symbol2500z00_2658 = BGl_symbol6412z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 224 */

PUSH_TRACE(BgL_symbol2500z00_2658); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 224 */
obj_t BgL_aux2499z00_2659;
BgL_aux2499z00_2659 = 
MAKE_EXTENDED_PAIR(BgL_obj1z00_6, BgL_obj2z00_7, BgL_obj3z00_8); 
POP_TRACE(); 
return BgL_aux2499z00_2659;} } } } 
}



/* _econs */
obj_t BGl__econsz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1776, obj_t BgL_obj1z00_1777, obj_t BgL_obj2z00_1778, obj_t BgL_obj3z00_1779)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 223 */
{ /* ./Ieee/pairlist.scm 224 */
obj_t BgL_res7003z00_2665;
{ /* ./Ieee/pairlist.scm 224 */
obj_t BgL_symbol2500z00_2663;
BgL_symbol2500z00_2663 = BGl_symbol6412z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 224 */

PUSH_TRACE(BgL_symbol2500z00_2663); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 224 */
obj_t BgL_aux2499z00_2664;
BgL_aux2499z00_2664 = 
MAKE_EXTENDED_PAIR(BgL_obj1z00_1777, BgL_obj2z00_1778, BgL_obj3z00_1779); 
POP_TRACE(); 
BgL_res7003z00_2665 = BgL_aux2499z00_2664; } } } 
return BgL_res7003z00_2665;} } 
}



/* car */
BGL_EXPORTED_DEF obj_t BGl_carz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_9)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 229 */
{ /* ./Ieee/pairlist.scm 230 */
obj_t BgL_symbol2504z00_2666;
BgL_symbol2504z00_2666 = BGl_symbol6413z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 230 */

PUSH_TRACE(BgL_symbol2504z00_2666); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 230 */
obj_t BgL_aux2503z00_2667;
BgL_aux2503z00_2667 = 
CAR(BgL_pairz00_9); 
POP_TRACE(); 
return BgL_aux2503z00_2667;} } } } 
}



/* _car2788 */
obj_t BGl__car2788z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1780, obj_t BgL_pairz00_1781)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 229 */
{ /* ./Ieee/pairlist.scm 230 */
obj_t BgL_pairz00_2668;
if(
PAIRP(BgL_pairz00_1781))
{ /* ./Ieee/pairlist.scm 230 */
BgL_pairz00_2668 = BgL_pairz00_1781; }  else 
{ /* ./Ieee/pairlist.scm 230 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6414z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1781, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)9922))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 230 */
obj_t BgL_symbol2504z00_2669;
BgL_symbol2504z00_2669 = BGl_symbol6413z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 230 */

PUSH_TRACE(BgL_symbol2504z00_2669); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 230 */
obj_t BgL_aux2503z00_2670;
BgL_aux2503z00_2670 = 
CAR(BgL_pairz00_2668); 
POP_TRACE(); 
return BgL_aux2503z00_2670;} } } } } 
}



/* cdr */
BGL_EXPORTED_DEF obj_t BGl_cdrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_10)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 235 */
{ /* ./Ieee/pairlist.scm 236 */
obj_t BgL_symbol2508z00_2671;
BgL_symbol2508z00_2671 = BGl_symbol6417z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 236 */

PUSH_TRACE(BgL_symbol2508z00_2671); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 236 */
obj_t BgL_aux2507z00_2672;
BgL_aux2507z00_2672 = 
CDR(BgL_pairz00_10); 
POP_TRACE(); 
return BgL_aux2507z00_2672;} } } } 
}



/* _cdr2790 */
obj_t BGl__cdr2790z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1782, obj_t BgL_pairz00_1783)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 235 */
{ /* ./Ieee/pairlist.scm 236 */
obj_t BgL_pairz00_2673;
if(
PAIRP(BgL_pairz00_1783))
{ /* ./Ieee/pairlist.scm 236 */
BgL_pairz00_2673 = BgL_pairz00_1783; }  else 
{ /* ./Ieee/pairlist.scm 236 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6418z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1783, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)10188))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 236 */
obj_t BgL_symbol2508z00_2674;
BgL_symbol2508z00_2674 = BGl_symbol6417z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 236 */

PUSH_TRACE(BgL_symbol2508z00_2674); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 236 */
obj_t BgL_aux2507z00_2675;
BgL_aux2507z00_2675 = 
CDR(BgL_pairz00_2673); 
POP_TRACE(); 
return BgL_aux2507z00_2675;} } } } } 
}



/* cer */
BGL_EXPORTED_DEF obj_t BGl_cerz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_11)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 241 */
{ /* ./Ieee/pairlist.scm 242 */
obj_t BgL_symbol2512z00_2676;
BgL_symbol2512z00_2676 = BGl_symbol6419z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 242 */

PUSH_TRACE(BgL_symbol2512z00_2676); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 242 */
obj_t BgL_aux2511z00_2677;
BgL_aux2511z00_2677 = 
CER(BgL_objz00_11); 
POP_TRACE(); 
return BgL_aux2511z00_2677;} } } } 
}



/* _cer2792 */
obj_t BGl__cer2792z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1784, obj_t BgL_objz00_1785)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 241 */
{ /* ./Ieee/pairlist.scm 242 */
obj_t BgL_objz00_2678;
{ /* ./Ieee/pairlist.scm 242 */
bool_t BgL_test2937z00_1949;
BgL_test2937z00_1949 = 
EXTENDED_PAIRP(BgL_objz00_1785); 
if(BgL_test2937z00_1949)
{ /* ./Ieee/pairlist.scm 242 */
BgL_objz00_2678 = BgL_objz00_1785; }  else 
{ /* ./Ieee/pairlist.scm 242 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6420z00zz__r4_pairs_and_lists_6_3z00, BGl_string6421z00zz__r4_pairs_and_lists_6_3z00, BgL_objz00_1785, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)10453))); 
exit( -1 );} } 
{ /* ./Ieee/pairlist.scm 242 */
obj_t BgL_symbol2512z00_2679;
BgL_symbol2512z00_2679 = BGl_symbol6419z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 242 */

PUSH_TRACE(BgL_symbol2512z00_2679); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 242 */
obj_t BgL_aux2511z00_2680;
BgL_aux2511z00_2680 = 
CER(BgL_objz00_2678); 
POP_TRACE(); 
return BgL_aux2511z00_2680;} } } } } 
}



/* caar */
BGL_EXPORTED_DEF obj_t BGl_caarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_12)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 247 */
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_symbol2516z00_2681;
BgL_symbol2516z00_2681 = BGl_symbol6422z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 248 */

PUSH_TRACE(BgL_symbol2516z00_2681); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_aux2515z00_2682;
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_arg1064z00_2683;
BgL_arg1064z00_2683 = 
CAR(BgL_pairz00_12); 
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_pairz00_2684;
if(
PAIRP(BgL_arg1064z00_2683))
{ /* ./Ieee/pairlist.scm 248 */
BgL_pairz00_2684 = BgL_arg1064z00_2683; }  else 
{ /* ./Ieee/pairlist.scm 248 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6422z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1064z00_2683, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)10724))); 
exit( -1 );} 
BgL_aux2515z00_2682 = 
CAR(BgL_pairz00_2684); } } 
POP_TRACE(); 
return BgL_aux2515z00_2682;} } } } 
}



/* _caar2794 */
obj_t BGl__caar2794z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1786, obj_t BgL_pairz00_1787)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 247 */
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_pairz00_2685;
if(
PAIRP(BgL_pairz00_1787))
{ /* ./Ieee/pairlist.scm 248 */
BgL_pairz00_2685 = BgL_pairz00_1787; }  else 
{ /* ./Ieee/pairlist.scm 248 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6423z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1787, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)10724))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_symbol2516z00_2686;
BgL_symbol2516z00_2686 = BGl_symbol6422z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 248 */

PUSH_TRACE(BgL_symbol2516z00_2686); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_aux2515z00_2687;
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_arg1064z00_2688;
BgL_arg1064z00_2688 = 
CAR(BgL_pairz00_2685); 
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_pairz00_2689;
if(
PAIRP(BgL_arg1064z00_2688))
{ /* ./Ieee/pairlist.scm 248 */
BgL_pairz00_2689 = BgL_arg1064z00_2688; }  else 
{ /* ./Ieee/pairlist.scm 248 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6422z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1064z00_2688, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)10724))); 
exit( -1 );} 
BgL_aux2515z00_2687 = 
CAR(BgL_pairz00_2689); } } 
POP_TRACE(); 
return BgL_aux2515z00_2687;} } } } } 
}



/* cadr */
BGL_EXPORTED_DEF obj_t BGl_cadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_13)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 253 */
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_symbol2520z00_2690;
BgL_symbol2520z00_2690 = BGl_symbol6424z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 254 */

PUSH_TRACE(BgL_symbol2520z00_2690); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_aux2519z00_2691;
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_arg1068z00_2692;
BgL_arg1068z00_2692 = 
CDR(BgL_pairz00_13); 
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_pairz00_2693;
if(
PAIRP(BgL_arg1068z00_2692))
{ /* ./Ieee/pairlist.scm 254 */
BgL_pairz00_2693 = BgL_arg1068z00_2692; }  else 
{ /* ./Ieee/pairlist.scm 254 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6424z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1068z00_2692, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)10995))); 
exit( -1 );} 
BgL_aux2519z00_2691 = 
CAR(BgL_pairz00_2693); } } 
POP_TRACE(); 
return BgL_aux2519z00_2691;} } } } 
}



/* _cadr2796 */
obj_t BGl__cadr2796z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1788, obj_t BgL_pairz00_1789)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 253 */
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_pairz00_2694;
if(
PAIRP(BgL_pairz00_1789))
{ /* ./Ieee/pairlist.scm 254 */
BgL_pairz00_2694 = BgL_pairz00_1789; }  else 
{ /* ./Ieee/pairlist.scm 254 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6425z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1789, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)10995))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_symbol2520z00_2695;
BgL_symbol2520z00_2695 = BGl_symbol6424z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 254 */

PUSH_TRACE(BgL_symbol2520z00_2695); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_aux2519z00_2696;
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_arg1068z00_2697;
BgL_arg1068z00_2697 = 
CDR(BgL_pairz00_2694); 
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_pairz00_2698;
if(
PAIRP(BgL_arg1068z00_2697))
{ /* ./Ieee/pairlist.scm 254 */
BgL_pairz00_2698 = BgL_arg1068z00_2697; }  else 
{ /* ./Ieee/pairlist.scm 254 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6424z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1068z00_2697, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)10995))); 
exit( -1 );} 
BgL_aux2519z00_2696 = 
CAR(BgL_pairz00_2698); } } 
POP_TRACE(); 
return BgL_aux2519z00_2696;} } } } } 
}



/* cdar */
BGL_EXPORTED_DEF obj_t BGl_cdarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_14)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 259 */
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_symbol2524z00_2699;
BgL_symbol2524z00_2699 = BGl_symbol6426z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 260 */

PUSH_TRACE(BgL_symbol2524z00_2699); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_aux2523z00_2700;
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_arg1073z00_2701;
BgL_arg1073z00_2701 = 
CAR(BgL_pairz00_14); 
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_pairz00_2702;
if(
PAIRP(BgL_arg1073z00_2701))
{ /* ./Ieee/pairlist.scm 260 */
BgL_pairz00_2702 = BgL_arg1073z00_2701; }  else 
{ /* ./Ieee/pairlist.scm 260 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6426z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1073z00_2701, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11266))); 
exit( -1 );} 
BgL_aux2523z00_2700 = 
CDR(BgL_pairz00_2702); } } 
POP_TRACE(); 
return BgL_aux2523z00_2700;} } } } 
}



/* _cdar2798 */
obj_t BGl__cdar2798z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1790, obj_t BgL_pairz00_1791)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 259 */
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_pairz00_2703;
if(
PAIRP(BgL_pairz00_1791))
{ /* ./Ieee/pairlist.scm 260 */
BgL_pairz00_2703 = BgL_pairz00_1791; }  else 
{ /* ./Ieee/pairlist.scm 260 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6427z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1791, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11266))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_symbol2524z00_2704;
BgL_symbol2524z00_2704 = BGl_symbol6426z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 260 */

PUSH_TRACE(BgL_symbol2524z00_2704); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_aux2523z00_2705;
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_arg1073z00_2706;
BgL_arg1073z00_2706 = 
CAR(BgL_pairz00_2703); 
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_pairz00_2707;
if(
PAIRP(BgL_arg1073z00_2706))
{ /* ./Ieee/pairlist.scm 260 */
BgL_pairz00_2707 = BgL_arg1073z00_2706; }  else 
{ /* ./Ieee/pairlist.scm 260 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6426z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1073z00_2706, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11266))); 
exit( -1 );} 
BgL_aux2523z00_2705 = 
CDR(BgL_pairz00_2707); } } 
POP_TRACE(); 
return BgL_aux2523z00_2705;} } } } } 
}



/* cddr */
BGL_EXPORTED_DEF obj_t BGl_cddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_15)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 265 */
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_symbol2528z00_2708;
BgL_symbol2528z00_2708 = BGl_symbol6428z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 266 */

PUSH_TRACE(BgL_symbol2528z00_2708); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_aux2527z00_2709;
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_arg1079z00_2710;
BgL_arg1079z00_2710 = 
CDR(BgL_pairz00_15); 
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_pairz00_2711;
if(
PAIRP(BgL_arg1079z00_2710))
{ /* ./Ieee/pairlist.scm 266 */
BgL_pairz00_2711 = BgL_arg1079z00_2710; }  else 
{ /* ./Ieee/pairlist.scm 266 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6428z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1079z00_2710, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11537))); 
exit( -1 );} 
BgL_aux2527z00_2709 = 
CDR(BgL_pairz00_2711); } } 
POP_TRACE(); 
return BgL_aux2527z00_2709;} } } } 
}



/* _cddr2800 */
obj_t BGl__cddr2800z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1792, obj_t BgL_pairz00_1793)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 265 */
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_pairz00_2712;
if(
PAIRP(BgL_pairz00_1793))
{ /* ./Ieee/pairlist.scm 266 */
BgL_pairz00_2712 = BgL_pairz00_1793; }  else 
{ /* ./Ieee/pairlist.scm 266 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6429z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1793, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11537))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_symbol2528z00_2713;
BgL_symbol2528z00_2713 = BGl_symbol6428z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 266 */

PUSH_TRACE(BgL_symbol2528z00_2713); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_aux2527z00_2714;
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_arg1079z00_2715;
BgL_arg1079z00_2715 = 
CDR(BgL_pairz00_2712); 
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_pairz00_2716;
if(
PAIRP(BgL_arg1079z00_2715))
{ /* ./Ieee/pairlist.scm 266 */
BgL_pairz00_2716 = BgL_arg1079z00_2715; }  else 
{ /* ./Ieee/pairlist.scm 266 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6428z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1079z00_2715, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11537))); 
exit( -1 );} 
BgL_aux2527z00_2714 = 
CDR(BgL_pairz00_2716); } } 
POP_TRACE(); 
return BgL_aux2527z00_2714;} } } } } 
}



/* caaar */
BGL_EXPORTED_DEF obj_t BGl_caaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_16)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 271 */
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_symbol2532z00_2717;
BgL_symbol2532z00_2717 = BGl_symbol6430z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 272 */

PUSH_TRACE(BgL_symbol2532z00_2717); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_aux2531z00_2718;
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_arg1083z00_2719;
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_arg1086z00_2720;
BgL_arg1086z00_2720 = 
CAR(BgL_pairz00_16); 
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_pairz00_2721;
if(
PAIRP(BgL_arg1086z00_2720))
{ /* ./Ieee/pairlist.scm 272 */
BgL_pairz00_2721 = BgL_arg1086z00_2720; }  else 
{ /* ./Ieee/pairlist.scm 272 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6430z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1086z00_2720, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11814))); 
exit( -1 );} 
BgL_arg1083z00_2719 = 
CAR(BgL_pairz00_2721); } } 
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_pairz00_2722;
if(
PAIRP(BgL_arg1083z00_2719))
{ /* ./Ieee/pairlist.scm 272 */
BgL_pairz00_2722 = BgL_arg1083z00_2719; }  else 
{ /* ./Ieee/pairlist.scm 272 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6430z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1083z00_2719, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11814))); 
exit( -1 );} 
BgL_aux2531z00_2718 = 
CAR(BgL_pairz00_2722); } } 
POP_TRACE(); 
return BgL_aux2531z00_2718;} } } } 
}



/* _caaar2802 */
obj_t BGl__caaar2802z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1794, obj_t BgL_pairz00_1795)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 271 */
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_pairz00_2723;
if(
PAIRP(BgL_pairz00_1795))
{ /* ./Ieee/pairlist.scm 272 */
BgL_pairz00_2723 = BgL_pairz00_1795; }  else 
{ /* ./Ieee/pairlist.scm 272 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6431z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1795, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11814))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_symbol2532z00_2724;
BgL_symbol2532z00_2724 = BGl_symbol6430z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 272 */

PUSH_TRACE(BgL_symbol2532z00_2724); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_aux2531z00_2725;
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_arg1083z00_2726;
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_arg1086z00_2727;
BgL_arg1086z00_2727 = 
CAR(BgL_pairz00_2723); 
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_pairz00_2728;
if(
PAIRP(BgL_arg1086z00_2727))
{ /* ./Ieee/pairlist.scm 272 */
BgL_pairz00_2728 = BgL_arg1086z00_2727; }  else 
{ /* ./Ieee/pairlist.scm 272 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6430z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1086z00_2727, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11814))); 
exit( -1 );} 
BgL_arg1083z00_2726 = 
CAR(BgL_pairz00_2728); } } 
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_pairz00_2729;
if(
PAIRP(BgL_arg1083z00_2726))
{ /* ./Ieee/pairlist.scm 272 */
BgL_pairz00_2729 = BgL_arg1083z00_2726; }  else 
{ /* ./Ieee/pairlist.scm 272 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6430z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1083z00_2726, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)11814))); 
exit( -1 );} 
BgL_aux2531z00_2725 = 
CAR(BgL_pairz00_2729); } } 
POP_TRACE(); 
return BgL_aux2531z00_2725;} } } } } 
}



/* caadr */
BGL_EXPORTED_DEF obj_t BGl_caadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_17)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 277 */
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_symbol2536z00_2730;
BgL_symbol2536z00_2730 = BGl_symbol6432z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 278 */

PUSH_TRACE(BgL_symbol2536z00_2730); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_aux2535z00_2731;
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_arg1090z00_2732;
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_arg1093z00_2733;
BgL_arg1093z00_2733 = 
CDR(BgL_pairz00_17); 
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_pairz00_2734;
if(
PAIRP(BgL_arg1093z00_2733))
{ /* ./Ieee/pairlist.scm 278 */
BgL_pairz00_2734 = BgL_arg1093z00_2733; }  else 
{ /* ./Ieee/pairlist.scm 278 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6432z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1093z00_2733, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12092))); 
exit( -1 );} 
BgL_arg1090z00_2732 = 
CAR(BgL_pairz00_2734); } } 
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_pairz00_2735;
if(
PAIRP(BgL_arg1090z00_2732))
{ /* ./Ieee/pairlist.scm 278 */
BgL_pairz00_2735 = BgL_arg1090z00_2732; }  else 
{ /* ./Ieee/pairlist.scm 278 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6432z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1090z00_2732, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12092))); 
exit( -1 );} 
BgL_aux2535z00_2731 = 
CAR(BgL_pairz00_2735); } } 
POP_TRACE(); 
return BgL_aux2535z00_2731;} } } } 
}



/* _caadr2804 */
obj_t BGl__caadr2804z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1796, obj_t BgL_pairz00_1797)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 277 */
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_pairz00_2736;
if(
PAIRP(BgL_pairz00_1797))
{ /* ./Ieee/pairlist.scm 278 */
BgL_pairz00_2736 = BgL_pairz00_1797; }  else 
{ /* ./Ieee/pairlist.scm 278 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6433z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1797, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12092))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_symbol2536z00_2737;
BgL_symbol2536z00_2737 = BGl_symbol6432z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 278 */

PUSH_TRACE(BgL_symbol2536z00_2737); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_aux2535z00_2738;
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_arg1090z00_2739;
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_arg1093z00_2740;
BgL_arg1093z00_2740 = 
CDR(BgL_pairz00_2736); 
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_pairz00_2741;
if(
PAIRP(BgL_arg1093z00_2740))
{ /* ./Ieee/pairlist.scm 278 */
BgL_pairz00_2741 = BgL_arg1093z00_2740; }  else 
{ /* ./Ieee/pairlist.scm 278 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6432z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1093z00_2740, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12092))); 
exit( -1 );} 
BgL_arg1090z00_2739 = 
CAR(BgL_pairz00_2741); } } 
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_pairz00_2742;
if(
PAIRP(BgL_arg1090z00_2739))
{ /* ./Ieee/pairlist.scm 278 */
BgL_pairz00_2742 = BgL_arg1090z00_2739; }  else 
{ /* ./Ieee/pairlist.scm 278 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6432z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1090z00_2739, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12092))); 
exit( -1 );} 
BgL_aux2535z00_2738 = 
CAR(BgL_pairz00_2742); } } 
POP_TRACE(); 
return BgL_aux2535z00_2738;} } } } } 
}



/* cadar */
BGL_EXPORTED_DEF obj_t BGl_cadarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_18)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 283 */
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_symbol2540z00_2743;
BgL_symbol2540z00_2743 = BGl_symbol6434z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 284 */

PUSH_TRACE(BgL_symbol2540z00_2743); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_aux2539z00_2744;
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_arg1097z00_2745;
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_arg1100z00_2746;
BgL_arg1100z00_2746 = 
CAR(BgL_pairz00_18); 
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_pairz00_2747;
if(
PAIRP(BgL_arg1100z00_2746))
{ /* ./Ieee/pairlist.scm 284 */
BgL_pairz00_2747 = BgL_arg1100z00_2746; }  else 
{ /* ./Ieee/pairlist.scm 284 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6434z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1100z00_2746, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12370))); 
exit( -1 );} 
BgL_arg1097z00_2745 = 
CDR(BgL_pairz00_2747); } } 
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_pairz00_2748;
if(
PAIRP(BgL_arg1097z00_2745))
{ /* ./Ieee/pairlist.scm 284 */
BgL_pairz00_2748 = BgL_arg1097z00_2745; }  else 
{ /* ./Ieee/pairlist.scm 284 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6434z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1097z00_2745, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12370))); 
exit( -1 );} 
BgL_aux2539z00_2744 = 
CAR(BgL_pairz00_2748); } } 
POP_TRACE(); 
return BgL_aux2539z00_2744;} } } } 
}



/* _cadar2806 */
obj_t BGl__cadar2806z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1798, obj_t BgL_pairz00_1799)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 283 */
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_pairz00_2749;
if(
PAIRP(BgL_pairz00_1799))
{ /* ./Ieee/pairlist.scm 284 */
BgL_pairz00_2749 = BgL_pairz00_1799; }  else 
{ /* ./Ieee/pairlist.scm 284 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6435z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1799, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12370))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_symbol2540z00_2750;
BgL_symbol2540z00_2750 = BGl_symbol6434z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 284 */

PUSH_TRACE(BgL_symbol2540z00_2750); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_aux2539z00_2751;
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_arg1097z00_2752;
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_arg1100z00_2753;
BgL_arg1100z00_2753 = 
CAR(BgL_pairz00_2749); 
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_pairz00_2754;
if(
PAIRP(BgL_arg1100z00_2753))
{ /* ./Ieee/pairlist.scm 284 */
BgL_pairz00_2754 = BgL_arg1100z00_2753; }  else 
{ /* ./Ieee/pairlist.scm 284 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6434z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1100z00_2753, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12370))); 
exit( -1 );} 
BgL_arg1097z00_2752 = 
CDR(BgL_pairz00_2754); } } 
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_pairz00_2755;
if(
PAIRP(BgL_arg1097z00_2752))
{ /* ./Ieee/pairlist.scm 284 */
BgL_pairz00_2755 = BgL_arg1097z00_2752; }  else 
{ /* ./Ieee/pairlist.scm 284 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6434z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1097z00_2752, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12370))); 
exit( -1 );} 
BgL_aux2539z00_2751 = 
CAR(BgL_pairz00_2755); } } 
POP_TRACE(); 
return BgL_aux2539z00_2751;} } } } } 
}



/* caddr */
BGL_EXPORTED_DEF obj_t BGl_caddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_19)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 289 */
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_symbol2544z00_2756;
BgL_symbol2544z00_2756 = BGl_symbol6436z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 290 */

PUSH_TRACE(BgL_symbol2544z00_2756); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_aux2543z00_2757;
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_arg1104z00_2758;
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_arg1107z00_2759;
BgL_arg1107z00_2759 = 
CDR(BgL_pairz00_19); 
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_pairz00_2760;
if(
PAIRP(BgL_arg1107z00_2759))
{ /* ./Ieee/pairlist.scm 290 */
BgL_pairz00_2760 = BgL_arg1107z00_2759; }  else 
{ /* ./Ieee/pairlist.scm 290 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6436z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1107z00_2759, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12648))); 
exit( -1 );} 
BgL_arg1104z00_2758 = 
CDR(BgL_pairz00_2760); } } 
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_pairz00_2761;
if(
PAIRP(BgL_arg1104z00_2758))
{ /* ./Ieee/pairlist.scm 290 */
BgL_pairz00_2761 = BgL_arg1104z00_2758; }  else 
{ /* ./Ieee/pairlist.scm 290 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6436z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1104z00_2758, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12648))); 
exit( -1 );} 
BgL_aux2543z00_2757 = 
CAR(BgL_pairz00_2761); } } 
POP_TRACE(); 
return BgL_aux2543z00_2757;} } } } 
}



/* _caddr2808 */
obj_t BGl__caddr2808z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1800, obj_t BgL_pairz00_1801)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 289 */
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_pairz00_2762;
if(
PAIRP(BgL_pairz00_1801))
{ /* ./Ieee/pairlist.scm 290 */
BgL_pairz00_2762 = BgL_pairz00_1801; }  else 
{ /* ./Ieee/pairlist.scm 290 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6437z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1801, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12648))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_symbol2544z00_2763;
BgL_symbol2544z00_2763 = BGl_symbol6436z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 290 */

PUSH_TRACE(BgL_symbol2544z00_2763); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_aux2543z00_2764;
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_arg1104z00_2765;
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_arg1107z00_2766;
BgL_arg1107z00_2766 = 
CDR(BgL_pairz00_2762); 
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_pairz00_2767;
if(
PAIRP(BgL_arg1107z00_2766))
{ /* ./Ieee/pairlist.scm 290 */
BgL_pairz00_2767 = BgL_arg1107z00_2766; }  else 
{ /* ./Ieee/pairlist.scm 290 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6436z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1107z00_2766, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12648))); 
exit( -1 );} 
BgL_arg1104z00_2765 = 
CDR(BgL_pairz00_2767); } } 
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_pairz00_2768;
if(
PAIRP(BgL_arg1104z00_2765))
{ /* ./Ieee/pairlist.scm 290 */
BgL_pairz00_2768 = BgL_arg1104z00_2765; }  else 
{ /* ./Ieee/pairlist.scm 290 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6436z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1104z00_2765, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12648))); 
exit( -1 );} 
BgL_aux2543z00_2764 = 
CAR(BgL_pairz00_2768); } } 
POP_TRACE(); 
return BgL_aux2543z00_2764;} } } } } 
}



/* cdaar */
BGL_EXPORTED_DEF obj_t BGl_cdaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_20)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 295 */
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_symbol2548z00_2769;
BgL_symbol2548z00_2769 = BGl_symbol6438z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 296 */

PUSH_TRACE(BgL_symbol2548z00_2769); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_aux2547z00_2770;
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_arg1111z00_2771;
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_arg1114z00_2772;
BgL_arg1114z00_2772 = 
CAR(BgL_pairz00_20); 
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_pairz00_2773;
if(
PAIRP(BgL_arg1114z00_2772))
{ /* ./Ieee/pairlist.scm 296 */
BgL_pairz00_2773 = BgL_arg1114z00_2772; }  else 
{ /* ./Ieee/pairlist.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6438z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1114z00_2772, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12926))); 
exit( -1 );} 
BgL_arg1111z00_2771 = 
CAR(BgL_pairz00_2773); } } 
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_pairz00_2774;
if(
PAIRP(BgL_arg1111z00_2771))
{ /* ./Ieee/pairlist.scm 296 */
BgL_pairz00_2774 = BgL_arg1111z00_2771; }  else 
{ /* ./Ieee/pairlist.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6438z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1111z00_2771, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12926))); 
exit( -1 );} 
BgL_aux2547z00_2770 = 
CDR(BgL_pairz00_2774); } } 
POP_TRACE(); 
return BgL_aux2547z00_2770;} } } } 
}



/* _cdaar2810 */
obj_t BGl__cdaar2810z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1802, obj_t BgL_pairz00_1803)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 295 */
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_pairz00_2775;
if(
PAIRP(BgL_pairz00_1803))
{ /* ./Ieee/pairlist.scm 296 */
BgL_pairz00_2775 = BgL_pairz00_1803; }  else 
{ /* ./Ieee/pairlist.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6439z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1803, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12926))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_symbol2548z00_2776;
BgL_symbol2548z00_2776 = BGl_symbol6438z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 296 */

PUSH_TRACE(BgL_symbol2548z00_2776); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_aux2547z00_2777;
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_arg1111z00_2778;
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_arg1114z00_2779;
BgL_arg1114z00_2779 = 
CAR(BgL_pairz00_2775); 
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_pairz00_2780;
if(
PAIRP(BgL_arg1114z00_2779))
{ /* ./Ieee/pairlist.scm 296 */
BgL_pairz00_2780 = BgL_arg1114z00_2779; }  else 
{ /* ./Ieee/pairlist.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6438z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1114z00_2779, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12926))); 
exit( -1 );} 
BgL_arg1111z00_2778 = 
CAR(BgL_pairz00_2780); } } 
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_pairz00_2781;
if(
PAIRP(BgL_arg1111z00_2778))
{ /* ./Ieee/pairlist.scm 296 */
BgL_pairz00_2781 = BgL_arg1111z00_2778; }  else 
{ /* ./Ieee/pairlist.scm 296 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6438z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1111z00_2778, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)12926))); 
exit( -1 );} 
BgL_aux2547z00_2777 = 
CDR(BgL_pairz00_2781); } } 
POP_TRACE(); 
return BgL_aux2547z00_2777;} } } } } 
}



/* cddar */
BGL_EXPORTED_DEF obj_t BGl_cddarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_21)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 301 */
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_symbol2552z00_2782;
BgL_symbol2552z00_2782 = BGl_symbol6440z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 302 */

PUSH_TRACE(BgL_symbol2552z00_2782); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_aux2551z00_2783;
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_arg1118z00_2784;
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_arg1121z00_2785;
BgL_arg1121z00_2785 = 
CAR(BgL_pairz00_21); 
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_pairz00_2786;
if(
PAIRP(BgL_arg1121z00_2785))
{ /* ./Ieee/pairlist.scm 302 */
BgL_pairz00_2786 = BgL_arg1121z00_2785; }  else 
{ /* ./Ieee/pairlist.scm 302 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6440z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1121z00_2785, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13204))); 
exit( -1 );} 
BgL_arg1118z00_2784 = 
CDR(BgL_pairz00_2786); } } 
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_pairz00_2787;
if(
PAIRP(BgL_arg1118z00_2784))
{ /* ./Ieee/pairlist.scm 302 */
BgL_pairz00_2787 = BgL_arg1118z00_2784; }  else 
{ /* ./Ieee/pairlist.scm 302 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6440z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1118z00_2784, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13204))); 
exit( -1 );} 
BgL_aux2551z00_2783 = 
CDR(BgL_pairz00_2787); } } 
POP_TRACE(); 
return BgL_aux2551z00_2783;} } } } 
}



/* _cddar2812 */
obj_t BGl__cddar2812z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1804, obj_t BgL_pairz00_1805)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 301 */
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_pairz00_2788;
if(
PAIRP(BgL_pairz00_1805))
{ /* ./Ieee/pairlist.scm 302 */
BgL_pairz00_2788 = BgL_pairz00_1805; }  else 
{ /* ./Ieee/pairlist.scm 302 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6441z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1805, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13204))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_symbol2552z00_2789;
BgL_symbol2552z00_2789 = BGl_symbol6440z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 302 */

PUSH_TRACE(BgL_symbol2552z00_2789); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_aux2551z00_2790;
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_arg1118z00_2791;
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_arg1121z00_2792;
BgL_arg1121z00_2792 = 
CAR(BgL_pairz00_2788); 
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_pairz00_2793;
if(
PAIRP(BgL_arg1121z00_2792))
{ /* ./Ieee/pairlist.scm 302 */
BgL_pairz00_2793 = BgL_arg1121z00_2792; }  else 
{ /* ./Ieee/pairlist.scm 302 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6440z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1121z00_2792, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13204))); 
exit( -1 );} 
BgL_arg1118z00_2791 = 
CDR(BgL_pairz00_2793); } } 
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_pairz00_2794;
if(
PAIRP(BgL_arg1118z00_2791))
{ /* ./Ieee/pairlist.scm 302 */
BgL_pairz00_2794 = BgL_arg1118z00_2791; }  else 
{ /* ./Ieee/pairlist.scm 302 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6440z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1118z00_2791, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13204))); 
exit( -1 );} 
BgL_aux2551z00_2790 = 
CDR(BgL_pairz00_2794); } } 
POP_TRACE(); 
return BgL_aux2551z00_2790;} } } } } 
}



/* cdadr */
BGL_EXPORTED_DEF obj_t BGl_cdadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_22)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 307 */
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_symbol2556z00_2795;
BgL_symbol2556z00_2795 = BGl_symbol6442z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 308 */

PUSH_TRACE(BgL_symbol2556z00_2795); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_aux2555z00_2796;
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_arg1125z00_2797;
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_arg1128z00_2798;
BgL_arg1128z00_2798 = 
CDR(BgL_pairz00_22); 
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_pairz00_2799;
if(
PAIRP(BgL_arg1128z00_2798))
{ /* ./Ieee/pairlist.scm 308 */
BgL_pairz00_2799 = BgL_arg1128z00_2798; }  else 
{ /* ./Ieee/pairlist.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6442z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1128z00_2798, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13482))); 
exit( -1 );} 
BgL_arg1125z00_2797 = 
CAR(BgL_pairz00_2799); } } 
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_pairz00_2800;
if(
PAIRP(BgL_arg1125z00_2797))
{ /* ./Ieee/pairlist.scm 308 */
BgL_pairz00_2800 = BgL_arg1125z00_2797; }  else 
{ /* ./Ieee/pairlist.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6442z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1125z00_2797, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13482))); 
exit( -1 );} 
BgL_aux2555z00_2796 = 
CDR(BgL_pairz00_2800); } } 
POP_TRACE(); 
return BgL_aux2555z00_2796;} } } } 
}



/* _cdadr2814 */
obj_t BGl__cdadr2814z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1806, obj_t BgL_pairz00_1807)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 307 */
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_pairz00_2801;
if(
PAIRP(BgL_pairz00_1807))
{ /* ./Ieee/pairlist.scm 308 */
BgL_pairz00_2801 = BgL_pairz00_1807; }  else 
{ /* ./Ieee/pairlist.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6443z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1807, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13482))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_symbol2556z00_2802;
BgL_symbol2556z00_2802 = BGl_symbol6442z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 308 */

PUSH_TRACE(BgL_symbol2556z00_2802); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_aux2555z00_2803;
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_arg1125z00_2804;
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_arg1128z00_2805;
BgL_arg1128z00_2805 = 
CDR(BgL_pairz00_2801); 
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_pairz00_2806;
if(
PAIRP(BgL_arg1128z00_2805))
{ /* ./Ieee/pairlist.scm 308 */
BgL_pairz00_2806 = BgL_arg1128z00_2805; }  else 
{ /* ./Ieee/pairlist.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6442z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1128z00_2805, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13482))); 
exit( -1 );} 
BgL_arg1125z00_2804 = 
CAR(BgL_pairz00_2806); } } 
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_pairz00_2807;
if(
PAIRP(BgL_arg1125z00_2804))
{ /* ./Ieee/pairlist.scm 308 */
BgL_pairz00_2807 = BgL_arg1125z00_2804; }  else 
{ /* ./Ieee/pairlist.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6442z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1125z00_2804, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13482))); 
exit( -1 );} 
BgL_aux2555z00_2803 = 
CDR(BgL_pairz00_2807); } } 
POP_TRACE(); 
return BgL_aux2555z00_2803;} } } } } 
}



/* cdddr */
BGL_EXPORTED_DEF obj_t BGl_cdddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_23)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 313 */
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_symbol2560z00_2808;
BgL_symbol2560z00_2808 = BGl_symbol6444z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 314 */

PUSH_TRACE(BgL_symbol2560z00_2808); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_aux2559z00_2809;
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_arg1132z00_2810;
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_arg1135z00_2811;
BgL_arg1135z00_2811 = 
CDR(BgL_pairz00_23); 
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_pairz00_2812;
if(
PAIRP(BgL_arg1135z00_2811))
{ /* ./Ieee/pairlist.scm 314 */
BgL_pairz00_2812 = BgL_arg1135z00_2811; }  else 
{ /* ./Ieee/pairlist.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6444z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1135z00_2811, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13760))); 
exit( -1 );} 
BgL_arg1132z00_2810 = 
CDR(BgL_pairz00_2812); } } 
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_pairz00_2813;
if(
PAIRP(BgL_arg1132z00_2810))
{ /* ./Ieee/pairlist.scm 314 */
BgL_pairz00_2813 = BgL_arg1132z00_2810; }  else 
{ /* ./Ieee/pairlist.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6444z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1132z00_2810, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13760))); 
exit( -1 );} 
BgL_aux2559z00_2809 = 
CDR(BgL_pairz00_2813); } } 
POP_TRACE(); 
return BgL_aux2559z00_2809;} } } } 
}



/* _cdddr2816 */
obj_t BGl__cdddr2816z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1808, obj_t BgL_pairz00_1809)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 313 */
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_pairz00_2814;
if(
PAIRP(BgL_pairz00_1809))
{ /* ./Ieee/pairlist.scm 314 */
BgL_pairz00_2814 = BgL_pairz00_1809; }  else 
{ /* ./Ieee/pairlist.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6445z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1809, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13760))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_symbol2560z00_2815;
BgL_symbol2560z00_2815 = BGl_symbol6444z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 314 */

PUSH_TRACE(BgL_symbol2560z00_2815); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_aux2559z00_2816;
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_arg1132z00_2817;
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_arg1135z00_2818;
BgL_arg1135z00_2818 = 
CDR(BgL_pairz00_2814); 
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_pairz00_2819;
if(
PAIRP(BgL_arg1135z00_2818))
{ /* ./Ieee/pairlist.scm 314 */
BgL_pairz00_2819 = BgL_arg1135z00_2818; }  else 
{ /* ./Ieee/pairlist.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6444z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1135z00_2818, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13760))); 
exit( -1 );} 
BgL_arg1132z00_2817 = 
CDR(BgL_pairz00_2819); } } 
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_pairz00_2820;
if(
PAIRP(BgL_arg1132z00_2817))
{ /* ./Ieee/pairlist.scm 314 */
BgL_pairz00_2820 = BgL_arg1132z00_2817; }  else 
{ /* ./Ieee/pairlist.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6444z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1132z00_2817, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)13760))); 
exit( -1 );} 
BgL_aux2559z00_2816 = 
CDR(BgL_pairz00_2820); } } 
POP_TRACE(); 
return BgL_aux2559z00_2816;} } } } } 
}



/* caaaar */
BGL_EXPORTED_DEF obj_t BGl_caaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_24)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 319 */
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_symbol2564z00_2821;
BgL_symbol2564z00_2821 = BGl_symbol6446z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 320 */

PUSH_TRACE(BgL_symbol2564z00_2821); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_aux2563z00_2822;
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_arg1140z00_2823;
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_arg1144z00_2824;
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_arg1147z00_2825;
BgL_arg1147z00_2825 = 
CAR(BgL_pairz00_24); 
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_pairz00_2826;
if(
PAIRP(BgL_arg1147z00_2825))
{ /* ./Ieee/pairlist.scm 320 */
BgL_pairz00_2826 = BgL_arg1147z00_2825; }  else 
{ /* ./Ieee/pairlist.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6446z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1147z00_2825, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14044))); 
exit( -1 );} 
BgL_arg1144z00_2824 = 
CAR(BgL_pairz00_2826); } } 
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_pairz00_2827;
if(
PAIRP(BgL_arg1144z00_2824))
{ /* ./Ieee/pairlist.scm 320 */
BgL_pairz00_2827 = BgL_arg1144z00_2824; }  else 
{ /* ./Ieee/pairlist.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6446z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1144z00_2824, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14044))); 
exit( -1 );} 
BgL_arg1140z00_2823 = 
CAR(BgL_pairz00_2827); } } 
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_pairz00_2828;
if(
PAIRP(BgL_arg1140z00_2823))
{ /* ./Ieee/pairlist.scm 320 */
BgL_pairz00_2828 = BgL_arg1140z00_2823; }  else 
{ /* ./Ieee/pairlist.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6446z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1140z00_2823, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14044))); 
exit( -1 );} 
BgL_aux2563z00_2822 = 
CAR(BgL_pairz00_2828); } } 
POP_TRACE(); 
return BgL_aux2563z00_2822;} } } } 
}



/* _caaaar2818 */
obj_t BGl__caaaar2818z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1810, obj_t BgL_pairz00_1811)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 319 */
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_pairz00_2829;
if(
PAIRP(BgL_pairz00_1811))
{ /* ./Ieee/pairlist.scm 320 */
BgL_pairz00_2829 = BgL_pairz00_1811; }  else 
{ /* ./Ieee/pairlist.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6447z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1811, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14044))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_symbol2564z00_2830;
BgL_symbol2564z00_2830 = BGl_symbol6446z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 320 */

PUSH_TRACE(BgL_symbol2564z00_2830); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_aux2563z00_2831;
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_arg1140z00_2832;
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_arg1144z00_2833;
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_arg1147z00_2834;
BgL_arg1147z00_2834 = 
CAR(BgL_pairz00_2829); 
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_pairz00_2835;
if(
PAIRP(BgL_arg1147z00_2834))
{ /* ./Ieee/pairlist.scm 320 */
BgL_pairz00_2835 = BgL_arg1147z00_2834; }  else 
{ /* ./Ieee/pairlist.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6446z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1147z00_2834, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14044))); 
exit( -1 );} 
BgL_arg1144z00_2833 = 
CAR(BgL_pairz00_2835); } } 
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_pairz00_2836;
if(
PAIRP(BgL_arg1144z00_2833))
{ /* ./Ieee/pairlist.scm 320 */
BgL_pairz00_2836 = BgL_arg1144z00_2833; }  else 
{ /* ./Ieee/pairlist.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6446z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1144z00_2833, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14044))); 
exit( -1 );} 
BgL_arg1140z00_2832 = 
CAR(BgL_pairz00_2836); } } 
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_pairz00_2837;
if(
PAIRP(BgL_arg1140z00_2832))
{ /* ./Ieee/pairlist.scm 320 */
BgL_pairz00_2837 = BgL_arg1140z00_2832; }  else 
{ /* ./Ieee/pairlist.scm 320 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6446z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1140z00_2832, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14044))); 
exit( -1 );} 
BgL_aux2563z00_2831 = 
CAR(BgL_pairz00_2837); } } 
POP_TRACE(); 
return BgL_aux2563z00_2831;} } } } } 
}



/* caaadr */
BGL_EXPORTED_DEF obj_t BGl_caaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_25)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 325 */
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_symbol2568z00_2838;
BgL_symbol2568z00_2838 = BGl_symbol6448z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 326 */

PUSH_TRACE(BgL_symbol2568z00_2838); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_aux2567z00_2839;
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_arg1151z00_2840;
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_arg1154z00_2841;
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_arg1158z00_2842;
BgL_arg1158z00_2842 = 
CDR(BgL_pairz00_25); 
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_pairz00_2843;
if(
PAIRP(BgL_arg1158z00_2842))
{ /* ./Ieee/pairlist.scm 326 */
BgL_pairz00_2843 = BgL_arg1158z00_2842; }  else 
{ /* ./Ieee/pairlist.scm 326 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6448z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1158z00_2842, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14329))); 
exit( -1 );} 
BgL_arg1154z00_2841 = 
CAR(BgL_pairz00_2843); } } 
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_pairz00_2844;
if(
PAIRP(BgL_arg1154z00_2841))
{ /* ./Ieee/pairlist.scm 326 */
BgL_pairz00_2844 = BgL_arg1154z00_2841; }  else 
{ /* ./Ieee/pairlist.scm 326 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6448z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1154z00_2841, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14329))); 
exit( -1 );} 
BgL_arg1151z00_2840 = 
CAR(BgL_pairz00_2844); } } 
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_pairz00_2845;
if(
PAIRP(BgL_arg1151z00_2840))
{ /* ./Ieee/pairlist.scm 326 */
BgL_pairz00_2845 = BgL_arg1151z00_2840; }  else 
{ /* ./Ieee/pairlist.scm 326 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6448z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1151z00_2840, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14329))); 
exit( -1 );} 
BgL_aux2567z00_2839 = 
CAR(BgL_pairz00_2845); } } 
POP_TRACE(); 
return BgL_aux2567z00_2839;} } } } 
}



/* _caaadr2820 */
obj_t BGl__caaadr2820z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1812, obj_t BgL_pairz00_1813)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 325 */
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_pairz00_2846;
if(
PAIRP(BgL_pairz00_1813))
{ /* ./Ieee/pairlist.scm 326 */
BgL_pairz00_2846 = BgL_pairz00_1813; }  else 
{ /* ./Ieee/pairlist.scm 326 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6449z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1813, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14329))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_symbol2568z00_2847;
BgL_symbol2568z00_2847 = BGl_symbol6448z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 326 */

PUSH_TRACE(BgL_symbol2568z00_2847); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_aux2567z00_2848;
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_arg1151z00_2849;
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_arg1154z00_2850;
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_arg1158z00_2851;
BgL_arg1158z00_2851 = 
CDR(BgL_pairz00_2846); 
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_pairz00_2852;
if(
PAIRP(BgL_arg1158z00_2851))
{ /* ./Ieee/pairlist.scm 326 */
BgL_pairz00_2852 = BgL_arg1158z00_2851; }  else 
{ /* ./Ieee/pairlist.scm 326 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6448z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1158z00_2851, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14329))); 
exit( -1 );} 
BgL_arg1154z00_2850 = 
CAR(BgL_pairz00_2852); } } 
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_pairz00_2853;
if(
PAIRP(BgL_arg1154z00_2850))
{ /* ./Ieee/pairlist.scm 326 */
BgL_pairz00_2853 = BgL_arg1154z00_2850; }  else 
{ /* ./Ieee/pairlist.scm 326 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6448z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1154z00_2850, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14329))); 
exit( -1 );} 
BgL_arg1151z00_2849 = 
CAR(BgL_pairz00_2853); } } 
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_pairz00_2854;
if(
PAIRP(BgL_arg1151z00_2849))
{ /* ./Ieee/pairlist.scm 326 */
BgL_pairz00_2854 = BgL_arg1151z00_2849; }  else 
{ /* ./Ieee/pairlist.scm 326 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6448z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1151z00_2849, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14329))); 
exit( -1 );} 
BgL_aux2567z00_2848 = 
CAR(BgL_pairz00_2854); } } 
POP_TRACE(); 
return BgL_aux2567z00_2848;} } } } } 
}



/* caadar */
BGL_EXPORTED_DEF obj_t BGl_caadarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_26)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 331 */
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_symbol2572z00_2855;
BgL_symbol2572z00_2855 = BGl_symbol6450z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 332 */

PUSH_TRACE(BgL_symbol2572z00_2855); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_aux2571z00_2856;
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_arg1162z00_2857;
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_arg1165z00_2858;
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_arg1169z00_2859;
BgL_arg1169z00_2859 = 
CAR(BgL_pairz00_26); 
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_pairz00_2860;
if(
PAIRP(BgL_arg1169z00_2859))
{ /* ./Ieee/pairlist.scm 332 */
BgL_pairz00_2860 = BgL_arg1169z00_2859; }  else 
{ /* ./Ieee/pairlist.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6450z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1169z00_2859, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14614))); 
exit( -1 );} 
BgL_arg1165z00_2858 = 
CDR(BgL_pairz00_2860); } } 
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_pairz00_2861;
if(
PAIRP(BgL_arg1165z00_2858))
{ /* ./Ieee/pairlist.scm 332 */
BgL_pairz00_2861 = BgL_arg1165z00_2858; }  else 
{ /* ./Ieee/pairlist.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6450z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1165z00_2858, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14614))); 
exit( -1 );} 
BgL_arg1162z00_2857 = 
CAR(BgL_pairz00_2861); } } 
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_pairz00_2862;
if(
PAIRP(BgL_arg1162z00_2857))
{ /* ./Ieee/pairlist.scm 332 */
BgL_pairz00_2862 = BgL_arg1162z00_2857; }  else 
{ /* ./Ieee/pairlist.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6450z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1162z00_2857, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14614))); 
exit( -1 );} 
BgL_aux2571z00_2856 = 
CAR(BgL_pairz00_2862); } } 
POP_TRACE(); 
return BgL_aux2571z00_2856;} } } } 
}



/* _caadar2822 */
obj_t BGl__caadar2822z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1814, obj_t BgL_pairz00_1815)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 331 */
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_pairz00_2863;
if(
PAIRP(BgL_pairz00_1815))
{ /* ./Ieee/pairlist.scm 332 */
BgL_pairz00_2863 = BgL_pairz00_1815; }  else 
{ /* ./Ieee/pairlist.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6451z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1815, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14614))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_symbol2572z00_2864;
BgL_symbol2572z00_2864 = BGl_symbol6450z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 332 */

PUSH_TRACE(BgL_symbol2572z00_2864); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_aux2571z00_2865;
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_arg1162z00_2866;
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_arg1165z00_2867;
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_arg1169z00_2868;
BgL_arg1169z00_2868 = 
CAR(BgL_pairz00_2863); 
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_pairz00_2869;
if(
PAIRP(BgL_arg1169z00_2868))
{ /* ./Ieee/pairlist.scm 332 */
BgL_pairz00_2869 = BgL_arg1169z00_2868; }  else 
{ /* ./Ieee/pairlist.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6450z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1169z00_2868, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14614))); 
exit( -1 );} 
BgL_arg1165z00_2867 = 
CDR(BgL_pairz00_2869); } } 
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_pairz00_2870;
if(
PAIRP(BgL_arg1165z00_2867))
{ /* ./Ieee/pairlist.scm 332 */
BgL_pairz00_2870 = BgL_arg1165z00_2867; }  else 
{ /* ./Ieee/pairlist.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6450z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1165z00_2867, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14614))); 
exit( -1 );} 
BgL_arg1162z00_2866 = 
CAR(BgL_pairz00_2870); } } 
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_pairz00_2871;
if(
PAIRP(BgL_arg1162z00_2866))
{ /* ./Ieee/pairlist.scm 332 */
BgL_pairz00_2871 = BgL_arg1162z00_2866; }  else 
{ /* ./Ieee/pairlist.scm 332 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6450z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1162z00_2866, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14614))); 
exit( -1 );} 
BgL_aux2571z00_2865 = 
CAR(BgL_pairz00_2871); } } 
POP_TRACE(); 
return BgL_aux2571z00_2865;} } } } } 
}



/* cadaar */
BGL_EXPORTED_DEF obj_t BGl_cadaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_27)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 337 */
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_symbol2576z00_2872;
BgL_symbol2576z00_2872 = BGl_symbol6452z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 338 */

PUSH_TRACE(BgL_symbol2576z00_2872); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_aux2575z00_2873;
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_arg1173z00_2874;
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_arg1177z00_2875;
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_arg1180z00_2876;
BgL_arg1180z00_2876 = 
CAR(BgL_pairz00_27); 
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_pairz00_2877;
if(
PAIRP(BgL_arg1180z00_2876))
{ /* ./Ieee/pairlist.scm 338 */
BgL_pairz00_2877 = BgL_arg1180z00_2876; }  else 
{ /* ./Ieee/pairlist.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6452z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1180z00_2876, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14899))); 
exit( -1 );} 
BgL_arg1177z00_2875 = 
CAR(BgL_pairz00_2877); } } 
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_pairz00_2878;
if(
PAIRP(BgL_arg1177z00_2875))
{ /* ./Ieee/pairlist.scm 338 */
BgL_pairz00_2878 = BgL_arg1177z00_2875; }  else 
{ /* ./Ieee/pairlist.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6452z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1177z00_2875, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14899))); 
exit( -1 );} 
BgL_arg1173z00_2874 = 
CDR(BgL_pairz00_2878); } } 
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_pairz00_2879;
if(
PAIRP(BgL_arg1173z00_2874))
{ /* ./Ieee/pairlist.scm 338 */
BgL_pairz00_2879 = BgL_arg1173z00_2874; }  else 
{ /* ./Ieee/pairlist.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6452z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1173z00_2874, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14899))); 
exit( -1 );} 
BgL_aux2575z00_2873 = 
CAR(BgL_pairz00_2879); } } 
POP_TRACE(); 
return BgL_aux2575z00_2873;} } } } 
}



/* _cadaar2824 */
obj_t BGl__cadaar2824z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1816, obj_t BgL_pairz00_1817)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 337 */
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_pairz00_2880;
if(
PAIRP(BgL_pairz00_1817))
{ /* ./Ieee/pairlist.scm 338 */
BgL_pairz00_2880 = BgL_pairz00_1817; }  else 
{ /* ./Ieee/pairlist.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6453z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1817, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14899))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_symbol2576z00_2881;
BgL_symbol2576z00_2881 = BGl_symbol6452z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 338 */

PUSH_TRACE(BgL_symbol2576z00_2881); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_aux2575z00_2882;
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_arg1173z00_2883;
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_arg1177z00_2884;
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_arg1180z00_2885;
BgL_arg1180z00_2885 = 
CAR(BgL_pairz00_2880); 
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_pairz00_2886;
if(
PAIRP(BgL_arg1180z00_2885))
{ /* ./Ieee/pairlist.scm 338 */
BgL_pairz00_2886 = BgL_arg1180z00_2885; }  else 
{ /* ./Ieee/pairlist.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6452z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1180z00_2885, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14899))); 
exit( -1 );} 
BgL_arg1177z00_2884 = 
CAR(BgL_pairz00_2886); } } 
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_pairz00_2887;
if(
PAIRP(BgL_arg1177z00_2884))
{ /* ./Ieee/pairlist.scm 338 */
BgL_pairz00_2887 = BgL_arg1177z00_2884; }  else 
{ /* ./Ieee/pairlist.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6452z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1177z00_2884, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14899))); 
exit( -1 );} 
BgL_arg1173z00_2883 = 
CDR(BgL_pairz00_2887); } } 
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_pairz00_2888;
if(
PAIRP(BgL_arg1173z00_2883))
{ /* ./Ieee/pairlist.scm 338 */
BgL_pairz00_2888 = BgL_arg1173z00_2883; }  else 
{ /* ./Ieee/pairlist.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6452z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1173z00_2883, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)14899))); 
exit( -1 );} 
BgL_aux2575z00_2882 = 
CAR(BgL_pairz00_2888); } } 
POP_TRACE(); 
return BgL_aux2575z00_2882;} } } } } 
}



/* cdaaar */
BGL_EXPORTED_DEF obj_t BGl_cdaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_28)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 343 */
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_symbol2580z00_2889;
BgL_symbol2580z00_2889 = BGl_symbol6454z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 344 */

PUSH_TRACE(BgL_symbol2580z00_2889); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_aux2579z00_2890;
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_arg1184z00_2891;
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_arg1187z00_2892;
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_arg1190z00_2893;
BgL_arg1190z00_2893 = 
CAR(BgL_pairz00_28); 
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_pairz00_2894;
if(
PAIRP(BgL_arg1190z00_2893))
{ /* ./Ieee/pairlist.scm 344 */
BgL_pairz00_2894 = BgL_arg1190z00_2893; }  else 
{ /* ./Ieee/pairlist.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6454z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1190z00_2893, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15184))); 
exit( -1 );} 
BgL_arg1187z00_2892 = 
CAR(BgL_pairz00_2894); } } 
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_pairz00_2895;
if(
PAIRP(BgL_arg1187z00_2892))
{ /* ./Ieee/pairlist.scm 344 */
BgL_pairz00_2895 = BgL_arg1187z00_2892; }  else 
{ /* ./Ieee/pairlist.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6454z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1187z00_2892, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15184))); 
exit( -1 );} 
BgL_arg1184z00_2891 = 
CAR(BgL_pairz00_2895); } } 
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_pairz00_2896;
if(
PAIRP(BgL_arg1184z00_2891))
{ /* ./Ieee/pairlist.scm 344 */
BgL_pairz00_2896 = BgL_arg1184z00_2891; }  else 
{ /* ./Ieee/pairlist.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6454z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1184z00_2891, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15184))); 
exit( -1 );} 
BgL_aux2579z00_2890 = 
CDR(BgL_pairz00_2896); } } 
POP_TRACE(); 
return BgL_aux2579z00_2890;} } } } 
}



/* _cdaaar2826 */
obj_t BGl__cdaaar2826z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1818, obj_t BgL_pairz00_1819)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 343 */
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_pairz00_2897;
if(
PAIRP(BgL_pairz00_1819))
{ /* ./Ieee/pairlist.scm 344 */
BgL_pairz00_2897 = BgL_pairz00_1819; }  else 
{ /* ./Ieee/pairlist.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6455z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1819, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15184))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_symbol2580z00_2898;
BgL_symbol2580z00_2898 = BGl_symbol6454z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 344 */

PUSH_TRACE(BgL_symbol2580z00_2898); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_aux2579z00_2899;
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_arg1184z00_2900;
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_arg1187z00_2901;
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_arg1190z00_2902;
BgL_arg1190z00_2902 = 
CAR(BgL_pairz00_2897); 
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_pairz00_2903;
if(
PAIRP(BgL_arg1190z00_2902))
{ /* ./Ieee/pairlist.scm 344 */
BgL_pairz00_2903 = BgL_arg1190z00_2902; }  else 
{ /* ./Ieee/pairlist.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6454z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1190z00_2902, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15184))); 
exit( -1 );} 
BgL_arg1187z00_2901 = 
CAR(BgL_pairz00_2903); } } 
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_pairz00_2904;
if(
PAIRP(BgL_arg1187z00_2901))
{ /* ./Ieee/pairlist.scm 344 */
BgL_pairz00_2904 = BgL_arg1187z00_2901; }  else 
{ /* ./Ieee/pairlist.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6454z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1187z00_2901, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15184))); 
exit( -1 );} 
BgL_arg1184z00_2900 = 
CAR(BgL_pairz00_2904); } } 
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_pairz00_2905;
if(
PAIRP(BgL_arg1184z00_2900))
{ /* ./Ieee/pairlist.scm 344 */
BgL_pairz00_2905 = BgL_arg1184z00_2900; }  else 
{ /* ./Ieee/pairlist.scm 344 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6454z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1184z00_2900, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15184))); 
exit( -1 );} 
BgL_aux2579z00_2899 = 
CDR(BgL_pairz00_2905); } } 
POP_TRACE(); 
return BgL_aux2579z00_2899;} } } } } 
}



/* caaddr */
BGL_EXPORTED_DEF obj_t BGl_caaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_29)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 349 */
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_symbol2584z00_2906;
BgL_symbol2584z00_2906 = BGl_symbol6456z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 350 */

PUSH_TRACE(BgL_symbol2584z00_2906); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_aux2583z00_2907;
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_arg1194z00_2908;
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_arg1197z00_2909;
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_arg1200z00_2910;
BgL_arg1200z00_2910 = 
CDR(BgL_pairz00_29); 
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_pairz00_2911;
if(
PAIRP(BgL_arg1200z00_2910))
{ /* ./Ieee/pairlist.scm 350 */
BgL_pairz00_2911 = BgL_arg1200z00_2910; }  else 
{ /* ./Ieee/pairlist.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6456z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1200z00_2910, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15469))); 
exit( -1 );} 
BgL_arg1197z00_2909 = 
CDR(BgL_pairz00_2911); } } 
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_pairz00_2912;
if(
PAIRP(BgL_arg1197z00_2909))
{ /* ./Ieee/pairlist.scm 350 */
BgL_pairz00_2912 = BgL_arg1197z00_2909; }  else 
{ /* ./Ieee/pairlist.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6456z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1197z00_2909, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15469))); 
exit( -1 );} 
BgL_arg1194z00_2908 = 
CAR(BgL_pairz00_2912); } } 
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_pairz00_2913;
if(
PAIRP(BgL_arg1194z00_2908))
{ /* ./Ieee/pairlist.scm 350 */
BgL_pairz00_2913 = BgL_arg1194z00_2908; }  else 
{ /* ./Ieee/pairlist.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6456z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1194z00_2908, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15469))); 
exit( -1 );} 
BgL_aux2583z00_2907 = 
CAR(BgL_pairz00_2913); } } 
POP_TRACE(); 
return BgL_aux2583z00_2907;} } } } 
}



/* _caaddr2828 */
obj_t BGl__caaddr2828z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1820, obj_t BgL_pairz00_1821)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 349 */
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_pairz00_2914;
if(
PAIRP(BgL_pairz00_1821))
{ /* ./Ieee/pairlist.scm 350 */
BgL_pairz00_2914 = BgL_pairz00_1821; }  else 
{ /* ./Ieee/pairlist.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6457z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1821, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15469))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_symbol2584z00_2915;
BgL_symbol2584z00_2915 = BGl_symbol6456z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 350 */

PUSH_TRACE(BgL_symbol2584z00_2915); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_aux2583z00_2916;
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_arg1194z00_2917;
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_arg1197z00_2918;
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_arg1200z00_2919;
BgL_arg1200z00_2919 = 
CDR(BgL_pairz00_2914); 
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_pairz00_2920;
if(
PAIRP(BgL_arg1200z00_2919))
{ /* ./Ieee/pairlist.scm 350 */
BgL_pairz00_2920 = BgL_arg1200z00_2919; }  else 
{ /* ./Ieee/pairlist.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6456z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1200z00_2919, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15469))); 
exit( -1 );} 
BgL_arg1197z00_2918 = 
CDR(BgL_pairz00_2920); } } 
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_pairz00_2921;
if(
PAIRP(BgL_arg1197z00_2918))
{ /* ./Ieee/pairlist.scm 350 */
BgL_pairz00_2921 = BgL_arg1197z00_2918; }  else 
{ /* ./Ieee/pairlist.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6456z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1197z00_2918, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15469))); 
exit( -1 );} 
BgL_arg1194z00_2917 = 
CAR(BgL_pairz00_2921); } } 
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_pairz00_2922;
if(
PAIRP(BgL_arg1194z00_2917))
{ /* ./Ieee/pairlist.scm 350 */
BgL_pairz00_2922 = BgL_arg1194z00_2917; }  else 
{ /* ./Ieee/pairlist.scm 350 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6456z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1194z00_2917, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15469))); 
exit( -1 );} 
BgL_aux2583z00_2916 = 
CAR(BgL_pairz00_2922); } } 
POP_TRACE(); 
return BgL_aux2583z00_2916;} } } } } 
}



/* caddar */
BGL_EXPORTED_DEF obj_t BGl_caddarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_30)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 355 */
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_symbol2588z00_2923;
BgL_symbol2588z00_2923 = BGl_symbol6458z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 356 */

PUSH_TRACE(BgL_symbol2588z00_2923); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_aux2587z00_2924;
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_arg1204z00_2925;
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_arg1207z00_2926;
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_arg1210z00_2927;
BgL_arg1210z00_2927 = 
CAR(BgL_pairz00_30); 
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_pairz00_2928;
if(
PAIRP(BgL_arg1210z00_2927))
{ /* ./Ieee/pairlist.scm 356 */
BgL_pairz00_2928 = BgL_arg1210z00_2927; }  else 
{ /* ./Ieee/pairlist.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6458z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1210z00_2927, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15754))); 
exit( -1 );} 
BgL_arg1207z00_2926 = 
CDR(BgL_pairz00_2928); } } 
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_pairz00_2929;
if(
PAIRP(BgL_arg1207z00_2926))
{ /* ./Ieee/pairlist.scm 356 */
BgL_pairz00_2929 = BgL_arg1207z00_2926; }  else 
{ /* ./Ieee/pairlist.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6458z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1207z00_2926, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15754))); 
exit( -1 );} 
BgL_arg1204z00_2925 = 
CDR(BgL_pairz00_2929); } } 
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_pairz00_2930;
if(
PAIRP(BgL_arg1204z00_2925))
{ /* ./Ieee/pairlist.scm 356 */
BgL_pairz00_2930 = BgL_arg1204z00_2925; }  else 
{ /* ./Ieee/pairlist.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6458z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1204z00_2925, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15754))); 
exit( -1 );} 
BgL_aux2587z00_2924 = 
CAR(BgL_pairz00_2930); } } 
POP_TRACE(); 
return BgL_aux2587z00_2924;} } } } 
}



/* _caddar2830 */
obj_t BGl__caddar2830z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1822, obj_t BgL_pairz00_1823)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 355 */
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_pairz00_2931;
if(
PAIRP(BgL_pairz00_1823))
{ /* ./Ieee/pairlist.scm 356 */
BgL_pairz00_2931 = BgL_pairz00_1823; }  else 
{ /* ./Ieee/pairlist.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6459z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1823, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15754))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_symbol2588z00_2932;
BgL_symbol2588z00_2932 = BGl_symbol6458z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 356 */

PUSH_TRACE(BgL_symbol2588z00_2932); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_aux2587z00_2933;
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_arg1204z00_2934;
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_arg1207z00_2935;
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_arg1210z00_2936;
BgL_arg1210z00_2936 = 
CAR(BgL_pairz00_2931); 
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_pairz00_2937;
if(
PAIRP(BgL_arg1210z00_2936))
{ /* ./Ieee/pairlist.scm 356 */
BgL_pairz00_2937 = BgL_arg1210z00_2936; }  else 
{ /* ./Ieee/pairlist.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6458z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1210z00_2936, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15754))); 
exit( -1 );} 
BgL_arg1207z00_2935 = 
CDR(BgL_pairz00_2937); } } 
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_pairz00_2938;
if(
PAIRP(BgL_arg1207z00_2935))
{ /* ./Ieee/pairlist.scm 356 */
BgL_pairz00_2938 = BgL_arg1207z00_2935; }  else 
{ /* ./Ieee/pairlist.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6458z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1207z00_2935, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15754))); 
exit( -1 );} 
BgL_arg1204z00_2934 = 
CDR(BgL_pairz00_2938); } } 
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_pairz00_2939;
if(
PAIRP(BgL_arg1204z00_2934))
{ /* ./Ieee/pairlist.scm 356 */
BgL_pairz00_2939 = BgL_arg1204z00_2934; }  else 
{ /* ./Ieee/pairlist.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6458z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1204z00_2934, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)15754))); 
exit( -1 );} 
BgL_aux2587z00_2933 = 
CAR(BgL_pairz00_2939); } } 
POP_TRACE(); 
return BgL_aux2587z00_2933;} } } } } 
}



/* cadadr */
BGL_EXPORTED_DEF obj_t BGl_cadadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_31)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 361 */
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_symbol2592z00_2940;
BgL_symbol2592z00_2940 = BGl_symbol6460z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 362 */

PUSH_TRACE(BgL_symbol2592z00_2940); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_aux2591z00_2941;
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_arg1214z00_2942;
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_arg1217z00_2943;
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_arg1220z00_2944;
BgL_arg1220z00_2944 = 
CDR(BgL_pairz00_31); 
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_pairz00_2945;
if(
PAIRP(BgL_arg1220z00_2944))
{ /* ./Ieee/pairlist.scm 362 */
BgL_pairz00_2945 = BgL_arg1220z00_2944; }  else 
{ /* ./Ieee/pairlist.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6460z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1220z00_2944, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16039))); 
exit( -1 );} 
BgL_arg1217z00_2943 = 
CAR(BgL_pairz00_2945); } } 
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_pairz00_2946;
if(
PAIRP(BgL_arg1217z00_2943))
{ /* ./Ieee/pairlist.scm 362 */
BgL_pairz00_2946 = BgL_arg1217z00_2943; }  else 
{ /* ./Ieee/pairlist.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6460z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1217z00_2943, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16039))); 
exit( -1 );} 
BgL_arg1214z00_2942 = 
CDR(BgL_pairz00_2946); } } 
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_pairz00_2947;
if(
PAIRP(BgL_arg1214z00_2942))
{ /* ./Ieee/pairlist.scm 362 */
BgL_pairz00_2947 = BgL_arg1214z00_2942; }  else 
{ /* ./Ieee/pairlist.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6460z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1214z00_2942, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16039))); 
exit( -1 );} 
BgL_aux2591z00_2941 = 
CAR(BgL_pairz00_2947); } } 
POP_TRACE(); 
return BgL_aux2591z00_2941;} } } } 
}



/* _cadadr2832 */
obj_t BGl__cadadr2832z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1824, obj_t BgL_pairz00_1825)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 361 */
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_pairz00_2948;
if(
PAIRP(BgL_pairz00_1825))
{ /* ./Ieee/pairlist.scm 362 */
BgL_pairz00_2948 = BgL_pairz00_1825; }  else 
{ /* ./Ieee/pairlist.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6461z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1825, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16039))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_symbol2592z00_2949;
BgL_symbol2592z00_2949 = BGl_symbol6460z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 362 */

PUSH_TRACE(BgL_symbol2592z00_2949); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_aux2591z00_2950;
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_arg1214z00_2951;
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_arg1217z00_2952;
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_arg1220z00_2953;
BgL_arg1220z00_2953 = 
CDR(BgL_pairz00_2948); 
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_pairz00_2954;
if(
PAIRP(BgL_arg1220z00_2953))
{ /* ./Ieee/pairlist.scm 362 */
BgL_pairz00_2954 = BgL_arg1220z00_2953; }  else 
{ /* ./Ieee/pairlist.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6460z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1220z00_2953, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16039))); 
exit( -1 );} 
BgL_arg1217z00_2952 = 
CAR(BgL_pairz00_2954); } } 
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_pairz00_2955;
if(
PAIRP(BgL_arg1217z00_2952))
{ /* ./Ieee/pairlist.scm 362 */
BgL_pairz00_2955 = BgL_arg1217z00_2952; }  else 
{ /* ./Ieee/pairlist.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6460z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1217z00_2952, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16039))); 
exit( -1 );} 
BgL_arg1214z00_2951 = 
CDR(BgL_pairz00_2955); } } 
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_pairz00_2956;
if(
PAIRP(BgL_arg1214z00_2951))
{ /* ./Ieee/pairlist.scm 362 */
BgL_pairz00_2956 = BgL_arg1214z00_2951; }  else 
{ /* ./Ieee/pairlist.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6460z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1214z00_2951, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16039))); 
exit( -1 );} 
BgL_aux2591z00_2950 = 
CAR(BgL_pairz00_2956); } } 
POP_TRACE(); 
return BgL_aux2591z00_2950;} } } } } 
}



/* cadddr */
BGL_EXPORTED_DEF obj_t BGl_cadddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_32)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 367 */
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_symbol2596z00_2957;
BgL_symbol2596z00_2957 = BGl_symbol6462z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 368 */

PUSH_TRACE(BgL_symbol2596z00_2957); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_aux2595z00_2958;
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_arg1224z00_2959;
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_arg1227z00_2960;
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_arg1230z00_2961;
BgL_arg1230z00_2961 = 
CDR(BgL_pairz00_32); 
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_pairz00_2962;
if(
PAIRP(BgL_arg1230z00_2961))
{ /* ./Ieee/pairlist.scm 368 */
BgL_pairz00_2962 = BgL_arg1230z00_2961; }  else 
{ /* ./Ieee/pairlist.scm 368 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6462z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1230z00_2961, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16324))); 
exit( -1 );} 
BgL_arg1227z00_2960 = 
CDR(BgL_pairz00_2962); } } 
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_pairz00_2963;
if(
PAIRP(BgL_arg1227z00_2960))
{ /* ./Ieee/pairlist.scm 368 */
BgL_pairz00_2963 = BgL_arg1227z00_2960; }  else 
{ /* ./Ieee/pairlist.scm 368 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6462z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1227z00_2960, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16324))); 
exit( -1 );} 
BgL_arg1224z00_2959 = 
CDR(BgL_pairz00_2963); } } 
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_pairz00_2964;
if(
PAIRP(BgL_arg1224z00_2959))
{ /* ./Ieee/pairlist.scm 368 */
BgL_pairz00_2964 = BgL_arg1224z00_2959; }  else 
{ /* ./Ieee/pairlist.scm 368 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6462z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1224z00_2959, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16324))); 
exit( -1 );} 
BgL_aux2595z00_2958 = 
CAR(BgL_pairz00_2964); } } 
POP_TRACE(); 
return BgL_aux2595z00_2958;} } } } 
}



/* _cadddr2834 */
obj_t BGl__cadddr2834z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1826, obj_t BgL_pairz00_1827)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 367 */
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_pairz00_2965;
if(
PAIRP(BgL_pairz00_1827))
{ /* ./Ieee/pairlist.scm 368 */
BgL_pairz00_2965 = BgL_pairz00_1827; }  else 
{ /* ./Ieee/pairlist.scm 368 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6463z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1827, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16324))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_symbol2596z00_2966;
BgL_symbol2596z00_2966 = BGl_symbol6462z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 368 */

PUSH_TRACE(BgL_symbol2596z00_2966); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_aux2595z00_2967;
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_arg1224z00_2968;
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_arg1227z00_2969;
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_arg1230z00_2970;
BgL_arg1230z00_2970 = 
CDR(BgL_pairz00_2965); 
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_pairz00_2971;
if(
PAIRP(BgL_arg1230z00_2970))
{ /* ./Ieee/pairlist.scm 368 */
BgL_pairz00_2971 = BgL_arg1230z00_2970; }  else 
{ /* ./Ieee/pairlist.scm 368 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6462z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1230z00_2970, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16324))); 
exit( -1 );} 
BgL_arg1227z00_2969 = 
CDR(BgL_pairz00_2971); } } 
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_pairz00_2972;
if(
PAIRP(BgL_arg1227z00_2969))
{ /* ./Ieee/pairlist.scm 368 */
BgL_pairz00_2972 = BgL_arg1227z00_2969; }  else 
{ /* ./Ieee/pairlist.scm 368 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6462z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1227z00_2969, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16324))); 
exit( -1 );} 
BgL_arg1224z00_2968 = 
CDR(BgL_pairz00_2972); } } 
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_pairz00_2973;
if(
PAIRP(BgL_arg1224z00_2968))
{ /* ./Ieee/pairlist.scm 368 */
BgL_pairz00_2973 = BgL_arg1224z00_2968; }  else 
{ /* ./Ieee/pairlist.scm 368 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6462z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1224z00_2968, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16324))); 
exit( -1 );} 
BgL_aux2595z00_2967 = 
CAR(BgL_pairz00_2973); } } 
POP_TRACE(); 
return BgL_aux2595z00_2967;} } } } } 
}



/* cdaadr */
BGL_EXPORTED_DEF obj_t BGl_cdaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_33)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 373 */
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_symbol2600z00_2974;
BgL_symbol2600z00_2974 = BGl_symbol6464z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 374 */

PUSH_TRACE(BgL_symbol2600z00_2974); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_aux2599z00_2975;
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_arg1234z00_2976;
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_arg1237z00_2977;
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_arg1240z00_2978;
BgL_arg1240z00_2978 = 
CDR(BgL_pairz00_33); 
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_pairz00_2979;
if(
PAIRP(BgL_arg1240z00_2978))
{ /* ./Ieee/pairlist.scm 374 */
BgL_pairz00_2979 = BgL_arg1240z00_2978; }  else 
{ /* ./Ieee/pairlist.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6464z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1240z00_2978, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16609))); 
exit( -1 );} 
BgL_arg1237z00_2977 = 
CAR(BgL_pairz00_2979); } } 
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_pairz00_2980;
if(
PAIRP(BgL_arg1237z00_2977))
{ /* ./Ieee/pairlist.scm 374 */
BgL_pairz00_2980 = BgL_arg1237z00_2977; }  else 
{ /* ./Ieee/pairlist.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6464z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1237z00_2977, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16609))); 
exit( -1 );} 
BgL_arg1234z00_2976 = 
CAR(BgL_pairz00_2980); } } 
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_pairz00_2981;
if(
PAIRP(BgL_arg1234z00_2976))
{ /* ./Ieee/pairlist.scm 374 */
BgL_pairz00_2981 = BgL_arg1234z00_2976; }  else 
{ /* ./Ieee/pairlist.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6464z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1234z00_2976, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16609))); 
exit( -1 );} 
BgL_aux2599z00_2975 = 
CDR(BgL_pairz00_2981); } } 
POP_TRACE(); 
return BgL_aux2599z00_2975;} } } } 
}



/* _cdaadr2836 */
obj_t BGl__cdaadr2836z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1828, obj_t BgL_pairz00_1829)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 373 */
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_pairz00_2982;
if(
PAIRP(BgL_pairz00_1829))
{ /* ./Ieee/pairlist.scm 374 */
BgL_pairz00_2982 = BgL_pairz00_1829; }  else 
{ /* ./Ieee/pairlist.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6465z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1829, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16609))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_symbol2600z00_2983;
BgL_symbol2600z00_2983 = BGl_symbol6464z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 374 */

PUSH_TRACE(BgL_symbol2600z00_2983); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_aux2599z00_2984;
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_arg1234z00_2985;
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_arg1237z00_2986;
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_arg1240z00_2987;
BgL_arg1240z00_2987 = 
CDR(BgL_pairz00_2982); 
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_pairz00_2988;
if(
PAIRP(BgL_arg1240z00_2987))
{ /* ./Ieee/pairlist.scm 374 */
BgL_pairz00_2988 = BgL_arg1240z00_2987; }  else 
{ /* ./Ieee/pairlist.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6464z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1240z00_2987, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16609))); 
exit( -1 );} 
BgL_arg1237z00_2986 = 
CAR(BgL_pairz00_2988); } } 
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_pairz00_2989;
if(
PAIRP(BgL_arg1237z00_2986))
{ /* ./Ieee/pairlist.scm 374 */
BgL_pairz00_2989 = BgL_arg1237z00_2986; }  else 
{ /* ./Ieee/pairlist.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6464z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1237z00_2986, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16609))); 
exit( -1 );} 
BgL_arg1234z00_2985 = 
CAR(BgL_pairz00_2989); } } 
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_pairz00_2990;
if(
PAIRP(BgL_arg1234z00_2985))
{ /* ./Ieee/pairlist.scm 374 */
BgL_pairz00_2990 = BgL_arg1234z00_2985; }  else 
{ /* ./Ieee/pairlist.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6464z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1234z00_2985, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16609))); 
exit( -1 );} 
BgL_aux2599z00_2984 = 
CDR(BgL_pairz00_2990); } } 
POP_TRACE(); 
return BgL_aux2599z00_2984;} } } } } 
}



/* cdaddr */
BGL_EXPORTED_DEF obj_t BGl_cdaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_34)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 379 */
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_symbol2604z00_2991;
BgL_symbol2604z00_2991 = BGl_symbol6466z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 380 */

PUSH_TRACE(BgL_symbol2604z00_2991); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_aux2603z00_2992;
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_arg1244z00_2993;
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_arg1249z00_2994;
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_arg1252z00_2995;
BgL_arg1252z00_2995 = 
CDR(BgL_pairz00_34); 
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_pairz00_2996;
if(
PAIRP(BgL_arg1252z00_2995))
{ /* ./Ieee/pairlist.scm 380 */
BgL_pairz00_2996 = BgL_arg1252z00_2995; }  else 
{ /* ./Ieee/pairlist.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6466z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1252z00_2995, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16894))); 
exit( -1 );} 
BgL_arg1249z00_2994 = 
CDR(BgL_pairz00_2996); } } 
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_pairz00_2997;
if(
PAIRP(BgL_arg1249z00_2994))
{ /* ./Ieee/pairlist.scm 380 */
BgL_pairz00_2997 = BgL_arg1249z00_2994; }  else 
{ /* ./Ieee/pairlist.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6466z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1249z00_2994, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16894))); 
exit( -1 );} 
BgL_arg1244z00_2993 = 
CAR(BgL_pairz00_2997); } } 
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_pairz00_2998;
if(
PAIRP(BgL_arg1244z00_2993))
{ /* ./Ieee/pairlist.scm 380 */
BgL_pairz00_2998 = BgL_arg1244z00_2993; }  else 
{ /* ./Ieee/pairlist.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6466z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1244z00_2993, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16894))); 
exit( -1 );} 
BgL_aux2603z00_2992 = 
CDR(BgL_pairz00_2998); } } 
POP_TRACE(); 
return BgL_aux2603z00_2992;} } } } 
}



/* _cdaddr2838 */
obj_t BGl__cdaddr2838z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1830, obj_t BgL_pairz00_1831)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 379 */
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_pairz00_2999;
if(
PAIRP(BgL_pairz00_1831))
{ /* ./Ieee/pairlist.scm 380 */
BgL_pairz00_2999 = BgL_pairz00_1831; }  else 
{ /* ./Ieee/pairlist.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6467z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1831, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16894))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_symbol2604z00_3000;
BgL_symbol2604z00_3000 = BGl_symbol6466z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 380 */

PUSH_TRACE(BgL_symbol2604z00_3000); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_aux2603z00_3001;
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_arg1244z00_3002;
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_arg1249z00_3003;
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_arg1252z00_3004;
BgL_arg1252z00_3004 = 
CDR(BgL_pairz00_2999); 
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_pairz00_3005;
if(
PAIRP(BgL_arg1252z00_3004))
{ /* ./Ieee/pairlist.scm 380 */
BgL_pairz00_3005 = BgL_arg1252z00_3004; }  else 
{ /* ./Ieee/pairlist.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6466z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1252z00_3004, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16894))); 
exit( -1 );} 
BgL_arg1249z00_3003 = 
CDR(BgL_pairz00_3005); } } 
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_pairz00_3006;
if(
PAIRP(BgL_arg1249z00_3003))
{ /* ./Ieee/pairlist.scm 380 */
BgL_pairz00_3006 = BgL_arg1249z00_3003; }  else 
{ /* ./Ieee/pairlist.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6466z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1249z00_3003, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16894))); 
exit( -1 );} 
BgL_arg1244z00_3002 = 
CAR(BgL_pairz00_3006); } } 
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_pairz00_3007;
if(
PAIRP(BgL_arg1244z00_3002))
{ /* ./Ieee/pairlist.scm 380 */
BgL_pairz00_3007 = BgL_arg1244z00_3002; }  else 
{ /* ./Ieee/pairlist.scm 380 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6466z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1244z00_3002, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)16894))); 
exit( -1 );} 
BgL_aux2603z00_3001 = 
CDR(BgL_pairz00_3007); } } 
POP_TRACE(); 
return BgL_aux2603z00_3001;} } } } } 
}



/* cddaar */
BGL_EXPORTED_DEF obj_t BGl_cddaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_35)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 385 */
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_symbol2608z00_3008;
BgL_symbol2608z00_3008 = BGl_symbol6468z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 386 */

PUSH_TRACE(BgL_symbol2608z00_3008); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_aux2607z00_3009;
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_arg1256z00_3010;
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_arg1259z00_3011;
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_arg1262z00_3012;
BgL_arg1262z00_3012 = 
CAR(BgL_pairz00_35); 
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_pairz00_3013;
if(
PAIRP(BgL_arg1262z00_3012))
{ /* ./Ieee/pairlist.scm 386 */
BgL_pairz00_3013 = BgL_arg1262z00_3012; }  else 
{ /* ./Ieee/pairlist.scm 386 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6468z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1262z00_3012, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17179))); 
exit( -1 );} 
BgL_arg1259z00_3011 = 
CAR(BgL_pairz00_3013); } } 
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_pairz00_3014;
if(
PAIRP(BgL_arg1259z00_3011))
{ /* ./Ieee/pairlist.scm 386 */
BgL_pairz00_3014 = BgL_arg1259z00_3011; }  else 
{ /* ./Ieee/pairlist.scm 386 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6468z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1259z00_3011, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17179))); 
exit( -1 );} 
BgL_arg1256z00_3010 = 
CDR(BgL_pairz00_3014); } } 
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_pairz00_3015;
if(
PAIRP(BgL_arg1256z00_3010))
{ /* ./Ieee/pairlist.scm 386 */
BgL_pairz00_3015 = BgL_arg1256z00_3010; }  else 
{ /* ./Ieee/pairlist.scm 386 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6468z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1256z00_3010, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17179))); 
exit( -1 );} 
BgL_aux2607z00_3009 = 
CDR(BgL_pairz00_3015); } } 
POP_TRACE(); 
return BgL_aux2607z00_3009;} } } } 
}



/* _cddaar2840 */
obj_t BGl__cddaar2840z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1832, obj_t BgL_pairz00_1833)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 385 */
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_pairz00_3016;
if(
PAIRP(BgL_pairz00_1833))
{ /* ./Ieee/pairlist.scm 386 */
BgL_pairz00_3016 = BgL_pairz00_1833; }  else 
{ /* ./Ieee/pairlist.scm 386 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6469z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1833, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17179))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_symbol2608z00_3017;
BgL_symbol2608z00_3017 = BGl_symbol6468z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 386 */

PUSH_TRACE(BgL_symbol2608z00_3017); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_aux2607z00_3018;
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_arg1256z00_3019;
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_arg1259z00_3020;
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_arg1262z00_3021;
BgL_arg1262z00_3021 = 
CAR(BgL_pairz00_3016); 
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_pairz00_3022;
if(
PAIRP(BgL_arg1262z00_3021))
{ /* ./Ieee/pairlist.scm 386 */
BgL_pairz00_3022 = BgL_arg1262z00_3021; }  else 
{ /* ./Ieee/pairlist.scm 386 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6468z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1262z00_3021, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17179))); 
exit( -1 );} 
BgL_arg1259z00_3020 = 
CAR(BgL_pairz00_3022); } } 
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_pairz00_3023;
if(
PAIRP(BgL_arg1259z00_3020))
{ /* ./Ieee/pairlist.scm 386 */
BgL_pairz00_3023 = BgL_arg1259z00_3020; }  else 
{ /* ./Ieee/pairlist.scm 386 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6468z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1259z00_3020, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17179))); 
exit( -1 );} 
BgL_arg1256z00_3019 = 
CDR(BgL_pairz00_3023); } } 
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_pairz00_3024;
if(
PAIRP(BgL_arg1256z00_3019))
{ /* ./Ieee/pairlist.scm 386 */
BgL_pairz00_3024 = BgL_arg1256z00_3019; }  else 
{ /* ./Ieee/pairlist.scm 386 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6468z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1256z00_3019, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17179))); 
exit( -1 );} 
BgL_aux2607z00_3018 = 
CDR(BgL_pairz00_3024); } } 
POP_TRACE(); 
return BgL_aux2607z00_3018;} } } } } 
}



/* cddadr */
BGL_EXPORTED_DEF obj_t BGl_cddadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_36)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 391 */
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_symbol2612z00_3025;
BgL_symbol2612z00_3025 = BGl_symbol6470z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 392 */

PUSH_TRACE(BgL_symbol2612z00_3025); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_aux2611z00_3026;
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_arg1266z00_3027;
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_arg1269z00_3028;
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_arg1273z00_3029;
BgL_arg1273z00_3029 = 
CDR(BgL_pairz00_36); 
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_pairz00_3030;
if(
PAIRP(BgL_arg1273z00_3029))
{ /* ./Ieee/pairlist.scm 392 */
BgL_pairz00_3030 = BgL_arg1273z00_3029; }  else 
{ /* ./Ieee/pairlist.scm 392 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6470z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1273z00_3029, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17464))); 
exit( -1 );} 
BgL_arg1269z00_3028 = 
CAR(BgL_pairz00_3030); } } 
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_pairz00_3031;
if(
PAIRP(BgL_arg1269z00_3028))
{ /* ./Ieee/pairlist.scm 392 */
BgL_pairz00_3031 = BgL_arg1269z00_3028; }  else 
{ /* ./Ieee/pairlist.scm 392 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6470z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1269z00_3028, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17464))); 
exit( -1 );} 
BgL_arg1266z00_3027 = 
CDR(BgL_pairz00_3031); } } 
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_pairz00_3032;
if(
PAIRP(BgL_arg1266z00_3027))
{ /* ./Ieee/pairlist.scm 392 */
BgL_pairz00_3032 = BgL_arg1266z00_3027; }  else 
{ /* ./Ieee/pairlist.scm 392 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6470z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1266z00_3027, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17464))); 
exit( -1 );} 
BgL_aux2611z00_3026 = 
CDR(BgL_pairz00_3032); } } 
POP_TRACE(); 
return BgL_aux2611z00_3026;} } } } 
}



/* _cddadr2842 */
obj_t BGl__cddadr2842z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1834, obj_t BgL_pairz00_1835)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 391 */
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_pairz00_3033;
if(
PAIRP(BgL_pairz00_1835))
{ /* ./Ieee/pairlist.scm 392 */
BgL_pairz00_3033 = BgL_pairz00_1835; }  else 
{ /* ./Ieee/pairlist.scm 392 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6471z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1835, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17464))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_symbol2612z00_3034;
BgL_symbol2612z00_3034 = BGl_symbol6470z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 392 */

PUSH_TRACE(BgL_symbol2612z00_3034); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_aux2611z00_3035;
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_arg1266z00_3036;
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_arg1269z00_3037;
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_arg1273z00_3038;
BgL_arg1273z00_3038 = 
CDR(BgL_pairz00_3033); 
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_pairz00_3039;
if(
PAIRP(BgL_arg1273z00_3038))
{ /* ./Ieee/pairlist.scm 392 */
BgL_pairz00_3039 = BgL_arg1273z00_3038; }  else 
{ /* ./Ieee/pairlist.scm 392 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6470z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1273z00_3038, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17464))); 
exit( -1 );} 
BgL_arg1269z00_3037 = 
CAR(BgL_pairz00_3039); } } 
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_pairz00_3040;
if(
PAIRP(BgL_arg1269z00_3037))
{ /* ./Ieee/pairlist.scm 392 */
BgL_pairz00_3040 = BgL_arg1269z00_3037; }  else 
{ /* ./Ieee/pairlist.scm 392 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6470z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1269z00_3037, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17464))); 
exit( -1 );} 
BgL_arg1266z00_3036 = 
CDR(BgL_pairz00_3040); } } 
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_pairz00_3041;
if(
PAIRP(BgL_arg1266z00_3036))
{ /* ./Ieee/pairlist.scm 392 */
BgL_pairz00_3041 = BgL_arg1266z00_3036; }  else 
{ /* ./Ieee/pairlist.scm 392 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6470z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1266z00_3036, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17464))); 
exit( -1 );} 
BgL_aux2611z00_3035 = 
CDR(BgL_pairz00_3041); } } 
POP_TRACE(); 
return BgL_aux2611z00_3035;} } } } } 
}



/* cdadar */
BGL_EXPORTED_DEF obj_t BGl_cdadarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_37)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 397 */
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_symbol2616z00_3042;
BgL_symbol2616z00_3042 = BGl_symbol6472z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 398 */

PUSH_TRACE(BgL_symbol2616z00_3042); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_aux2615z00_3043;
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_arg1277z00_3044;
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_arg1280z00_3045;
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_arg1283z00_3046;
BgL_arg1283z00_3046 = 
CAR(BgL_pairz00_37); 
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_pairz00_3047;
if(
PAIRP(BgL_arg1283z00_3046))
{ /* ./Ieee/pairlist.scm 398 */
BgL_pairz00_3047 = BgL_arg1283z00_3046; }  else 
{ /* ./Ieee/pairlist.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6472z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1283z00_3046, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17749))); 
exit( -1 );} 
BgL_arg1280z00_3045 = 
CDR(BgL_pairz00_3047); } } 
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_pairz00_3048;
if(
PAIRP(BgL_arg1280z00_3045))
{ /* ./Ieee/pairlist.scm 398 */
BgL_pairz00_3048 = BgL_arg1280z00_3045; }  else 
{ /* ./Ieee/pairlist.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6472z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1280z00_3045, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17749))); 
exit( -1 );} 
BgL_arg1277z00_3044 = 
CAR(BgL_pairz00_3048); } } 
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_pairz00_3049;
if(
PAIRP(BgL_arg1277z00_3044))
{ /* ./Ieee/pairlist.scm 398 */
BgL_pairz00_3049 = BgL_arg1277z00_3044; }  else 
{ /* ./Ieee/pairlist.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6472z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1277z00_3044, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17749))); 
exit( -1 );} 
BgL_aux2615z00_3043 = 
CDR(BgL_pairz00_3049); } } 
POP_TRACE(); 
return BgL_aux2615z00_3043;} } } } 
}



/* _cdadar2844 */
obj_t BGl__cdadar2844z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1836, obj_t BgL_pairz00_1837)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 397 */
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_pairz00_3050;
if(
PAIRP(BgL_pairz00_1837))
{ /* ./Ieee/pairlist.scm 398 */
BgL_pairz00_3050 = BgL_pairz00_1837; }  else 
{ /* ./Ieee/pairlist.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6473z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1837, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17749))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_symbol2616z00_3051;
BgL_symbol2616z00_3051 = BGl_symbol6472z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 398 */

PUSH_TRACE(BgL_symbol2616z00_3051); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_aux2615z00_3052;
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_arg1277z00_3053;
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_arg1280z00_3054;
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_arg1283z00_3055;
BgL_arg1283z00_3055 = 
CAR(BgL_pairz00_3050); 
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_pairz00_3056;
if(
PAIRP(BgL_arg1283z00_3055))
{ /* ./Ieee/pairlist.scm 398 */
BgL_pairz00_3056 = BgL_arg1283z00_3055; }  else 
{ /* ./Ieee/pairlist.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6472z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1283z00_3055, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17749))); 
exit( -1 );} 
BgL_arg1280z00_3054 = 
CDR(BgL_pairz00_3056); } } 
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_pairz00_3057;
if(
PAIRP(BgL_arg1280z00_3054))
{ /* ./Ieee/pairlist.scm 398 */
BgL_pairz00_3057 = BgL_arg1280z00_3054; }  else 
{ /* ./Ieee/pairlist.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6472z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1280z00_3054, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17749))); 
exit( -1 );} 
BgL_arg1277z00_3053 = 
CAR(BgL_pairz00_3057); } } 
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_pairz00_3058;
if(
PAIRP(BgL_arg1277z00_3053))
{ /* ./Ieee/pairlist.scm 398 */
BgL_pairz00_3058 = BgL_arg1277z00_3053; }  else 
{ /* ./Ieee/pairlist.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6472z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1277z00_3053, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)17749))); 
exit( -1 );} 
BgL_aux2615z00_3052 = 
CDR(BgL_pairz00_3058); } } 
POP_TRACE(); 
return BgL_aux2615z00_3052;} } } } } 
}



/* cdddar */
BGL_EXPORTED_DEF obj_t BGl_cdddarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_38)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 403 */
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_symbol2620z00_3059;
BgL_symbol2620z00_3059 = BGl_symbol6474z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 404 */

PUSH_TRACE(BgL_symbol2620z00_3059); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_aux2619z00_3060;
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_arg1287z00_3061;
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_arg1290z00_3062;
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_arg1293z00_3063;
BgL_arg1293z00_3063 = 
CAR(BgL_pairz00_38); 
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_pairz00_3064;
if(
PAIRP(BgL_arg1293z00_3063))
{ /* ./Ieee/pairlist.scm 404 */
BgL_pairz00_3064 = BgL_arg1293z00_3063; }  else 
{ /* ./Ieee/pairlist.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6474z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1293z00_3063, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18034))); 
exit( -1 );} 
BgL_arg1290z00_3062 = 
CDR(BgL_pairz00_3064); } } 
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_pairz00_3065;
if(
PAIRP(BgL_arg1290z00_3062))
{ /* ./Ieee/pairlist.scm 404 */
BgL_pairz00_3065 = BgL_arg1290z00_3062; }  else 
{ /* ./Ieee/pairlist.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6474z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1290z00_3062, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18034))); 
exit( -1 );} 
BgL_arg1287z00_3061 = 
CDR(BgL_pairz00_3065); } } 
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_pairz00_3066;
if(
PAIRP(BgL_arg1287z00_3061))
{ /* ./Ieee/pairlist.scm 404 */
BgL_pairz00_3066 = BgL_arg1287z00_3061; }  else 
{ /* ./Ieee/pairlist.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6474z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1287z00_3061, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18034))); 
exit( -1 );} 
BgL_aux2619z00_3060 = 
CDR(BgL_pairz00_3066); } } 
POP_TRACE(); 
return BgL_aux2619z00_3060;} } } } 
}



/* _cdddar2846 */
obj_t BGl__cdddar2846z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1838, obj_t BgL_pairz00_1839)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 403 */
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_pairz00_3067;
if(
PAIRP(BgL_pairz00_1839))
{ /* ./Ieee/pairlist.scm 404 */
BgL_pairz00_3067 = BgL_pairz00_1839; }  else 
{ /* ./Ieee/pairlist.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6475z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1839, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18034))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_symbol2620z00_3068;
BgL_symbol2620z00_3068 = BGl_symbol6474z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 404 */

PUSH_TRACE(BgL_symbol2620z00_3068); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_aux2619z00_3069;
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_arg1287z00_3070;
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_arg1290z00_3071;
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_arg1293z00_3072;
BgL_arg1293z00_3072 = 
CAR(BgL_pairz00_3067); 
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_pairz00_3073;
if(
PAIRP(BgL_arg1293z00_3072))
{ /* ./Ieee/pairlist.scm 404 */
BgL_pairz00_3073 = BgL_arg1293z00_3072; }  else 
{ /* ./Ieee/pairlist.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6474z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1293z00_3072, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18034))); 
exit( -1 );} 
BgL_arg1290z00_3071 = 
CDR(BgL_pairz00_3073); } } 
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_pairz00_3074;
if(
PAIRP(BgL_arg1290z00_3071))
{ /* ./Ieee/pairlist.scm 404 */
BgL_pairz00_3074 = BgL_arg1290z00_3071; }  else 
{ /* ./Ieee/pairlist.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6474z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1290z00_3071, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18034))); 
exit( -1 );} 
BgL_arg1287z00_3070 = 
CDR(BgL_pairz00_3074); } } 
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_pairz00_3075;
if(
PAIRP(BgL_arg1287z00_3070))
{ /* ./Ieee/pairlist.scm 404 */
BgL_pairz00_3075 = BgL_arg1287z00_3070; }  else 
{ /* ./Ieee/pairlist.scm 404 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6474z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1287z00_3070, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18034))); 
exit( -1 );} 
BgL_aux2619z00_3069 = 
CDR(BgL_pairz00_3075); } } 
POP_TRACE(); 
return BgL_aux2619z00_3069;} } } } } 
}



/* cddddr */
BGL_EXPORTED_DEF obj_t BGl_cddddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_39)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 410 */
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_symbol2624z00_3076;
BgL_symbol2624z00_3076 = BGl_symbol6476z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 411 */

PUSH_TRACE(BgL_symbol2624z00_3076); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_aux2623z00_3077;
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_arg1297z00_3078;
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_arg1300z00_3079;
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_arg1303z00_3080;
BgL_arg1303z00_3080 = 
CDR(BgL_pairz00_39); 
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_pairz00_3081;
if(
PAIRP(BgL_arg1303z00_3080))
{ /* ./Ieee/pairlist.scm 411 */
BgL_pairz00_3081 = BgL_arg1303z00_3080; }  else 
{ /* ./Ieee/pairlist.scm 411 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6476z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1303z00_3080, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18320))); 
exit( -1 );} 
BgL_arg1300z00_3079 = 
CDR(BgL_pairz00_3081); } } 
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_pairz00_3082;
if(
PAIRP(BgL_arg1300z00_3079))
{ /* ./Ieee/pairlist.scm 411 */
BgL_pairz00_3082 = BgL_arg1300z00_3079; }  else 
{ /* ./Ieee/pairlist.scm 411 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6476z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1300z00_3079, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18320))); 
exit( -1 );} 
BgL_arg1297z00_3078 = 
CDR(BgL_pairz00_3082); } } 
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_pairz00_3083;
if(
PAIRP(BgL_arg1297z00_3078))
{ /* ./Ieee/pairlist.scm 411 */
BgL_pairz00_3083 = BgL_arg1297z00_3078; }  else 
{ /* ./Ieee/pairlist.scm 411 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6476z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1297z00_3078, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18320))); 
exit( -1 );} 
BgL_aux2623z00_3077 = 
CDR(BgL_pairz00_3083); } } 
POP_TRACE(); 
return BgL_aux2623z00_3077;} } } } 
}



/* _cddddr2848 */
obj_t BGl__cddddr2848z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1840, obj_t BgL_pairz00_1841)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 410 */
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_pairz00_3084;
if(
PAIRP(BgL_pairz00_1841))
{ /* ./Ieee/pairlist.scm 411 */
BgL_pairz00_3084 = BgL_pairz00_1841; }  else 
{ /* ./Ieee/pairlist.scm 411 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6477z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1841, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18320))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_symbol2624z00_3085;
BgL_symbol2624z00_3085 = BGl_symbol6476z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 411 */

PUSH_TRACE(BgL_symbol2624z00_3085); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_aux2623z00_3086;
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_arg1297z00_3087;
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_arg1300z00_3088;
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_arg1303z00_3089;
BgL_arg1303z00_3089 = 
CDR(BgL_pairz00_3084); 
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_pairz00_3090;
if(
PAIRP(BgL_arg1303z00_3089))
{ /* ./Ieee/pairlist.scm 411 */
BgL_pairz00_3090 = BgL_arg1303z00_3089; }  else 
{ /* ./Ieee/pairlist.scm 411 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6476z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1303z00_3089, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18320))); 
exit( -1 );} 
BgL_arg1300z00_3088 = 
CDR(BgL_pairz00_3090); } } 
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_pairz00_3091;
if(
PAIRP(BgL_arg1300z00_3088))
{ /* ./Ieee/pairlist.scm 411 */
BgL_pairz00_3091 = BgL_arg1300z00_3088; }  else 
{ /* ./Ieee/pairlist.scm 411 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6476z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1300z00_3088, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18320))); 
exit( -1 );} 
BgL_arg1297z00_3087 = 
CDR(BgL_pairz00_3091); } } 
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_pairz00_3092;
if(
PAIRP(BgL_arg1297z00_3087))
{ /* ./Ieee/pairlist.scm 411 */
BgL_pairz00_3092 = BgL_arg1297z00_3087; }  else 
{ /* ./Ieee/pairlist.scm 411 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6476z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1297z00_3087, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18320))); 
exit( -1 );} 
BgL_aux2623z00_3086 = 
CDR(BgL_pairz00_3092); } } 
POP_TRACE(); 
return BgL_aux2623z00_3086;} } } } } 
}



/* set-car! */
BGL_EXPORTED_DEF obj_t BGl_setzd2carz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_40, obj_t BgL_objz00_41)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 416 */
{ /* ./Ieee/pairlist.scm 417 */
obj_t BgL_symbol2628z00_3093;
BgL_symbol2628z00_3093 = BGl_symbol6478z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 417 */

PUSH_TRACE(BgL_symbol2628z00_3093); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 417 */
obj_t BgL_aux2627z00_3094;
BgL_aux2627z00_3094 = 
SET_CAR(BgL_pairz00_40, BgL_objz00_41); 
POP_TRACE(); 
return BgL_aux2627z00_3094;} } } } 
}



/* _set-car!2850 */
obj_t BGl__setzd2carz122850zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1842, obj_t BgL_pairz00_1843, obj_t BgL_objz00_1844)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 416 */
{ /* ./Ieee/pairlist.scm 417 */
obj_t BgL_pairz00_3095;
if(
PAIRP(BgL_pairz00_1843))
{ /* ./Ieee/pairlist.scm 417 */
BgL_pairz00_3095 = BgL_pairz00_1843; }  else 
{ /* ./Ieee/pairlist.scm 417 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6479z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1843, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18596))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 417 */
obj_t BgL_symbol2628z00_3097;
BgL_symbol2628z00_3097 = BGl_symbol6478z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 417 */

PUSH_TRACE(BgL_symbol2628z00_3097); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 417 */
obj_t BgL_aux2627z00_3098;
BgL_aux2627z00_3098 = 
SET_CAR(BgL_pairz00_3095, BgL_objz00_1844); 
POP_TRACE(); 
return BgL_aux2627z00_3098;} } } } } 
}



/* set-cdr! */
BGL_EXPORTED_DEF obj_t BGl_setzd2cdrz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_42, obj_t BgL_objz00_43)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 422 */
{ /* ./Ieee/pairlist.scm 423 */
obj_t BgL_symbol2632z00_3099;
BgL_symbol2632z00_3099 = BGl_symbol6480z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 423 */

PUSH_TRACE(BgL_symbol2632z00_3099); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 423 */
obj_t BgL_aux2631z00_3100;
BgL_aux2631z00_3100 = 
SET_CDR(BgL_pairz00_42, BgL_objz00_43); 
POP_TRACE(); 
return BgL_aux2631z00_3100;} } } } 
}



/* _set-cdr!2852 */
obj_t BGl__setzd2cdrz122852zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1845, obj_t BgL_pairz00_1846, obj_t BgL_objz00_1847)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 422 */
{ /* ./Ieee/pairlist.scm 423 */
obj_t BgL_pairz00_3101;
if(
PAIRP(BgL_pairz00_1846))
{ /* ./Ieee/pairlist.scm 423 */
BgL_pairz00_3101 = BgL_pairz00_1846; }  else 
{ /* ./Ieee/pairlist.scm 423 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6481z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_1846, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)18880))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 423 */
obj_t BgL_symbol2632z00_3103;
BgL_symbol2632z00_3103 = BGl_symbol6480z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 423 */

PUSH_TRACE(BgL_symbol2632z00_3103); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 423 */
obj_t BgL_aux2631z00_3104;
BgL_aux2631z00_3104 = 
SET_CDR(BgL_pairz00_3101, BgL_objz00_1847); 
POP_TRACE(); 
return BgL_aux2631z00_3104;} } } } } 
}



/* set-cer! */
BGL_EXPORTED_DEF obj_t BGl_setzd2cerz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_epairz00_44, obj_t BgL_objz00_45)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 428 */
{ /* ./Ieee/pairlist.scm 429 */
obj_t BgL_symbol2636z00_3105;
BgL_symbol2636z00_3105 = BGl_symbol6482z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 429 */

PUSH_TRACE(BgL_symbol2636z00_3105); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 429 */
obj_t BgL_aux2635z00_3106;
BgL_aux2635z00_3106 = 
SET_CER(BgL_epairz00_44, BgL_objz00_45); 
POP_TRACE(); 
return BgL_aux2635z00_3106;} } } } 
}



/* _set-cer!2854 */
obj_t BGl__setzd2cerz122854zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1848, obj_t BgL_epairz00_1849, obj_t BgL_objz00_1850)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 428 */
{ /* ./Ieee/pairlist.scm 429 */
obj_t BgL_epairz00_3107;
{ /* ./Ieee/pairlist.scm 429 */
bool_t BgL_test3927z00_2147;
BgL_test3927z00_2147 = 
EXTENDED_PAIRP(BgL_epairz00_1849); 
if(BgL_test3927z00_2147)
{ /* ./Ieee/pairlist.scm 429 */
BgL_epairz00_3107 = BgL_epairz00_1849; }  else 
{ /* ./Ieee/pairlist.scm 429 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6483z00zz__r4_pairs_and_lists_6_3z00, BGl_string6421z00zz__r4_pairs_and_lists_6_3z00, BgL_epairz00_1849, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)19165))); 
exit( -1 );} } 
{ /* ./Ieee/pairlist.scm 429 */
obj_t BgL_symbol2636z00_3109;
BgL_symbol2636z00_3109 = BGl_symbol6482z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 429 */

PUSH_TRACE(BgL_symbol2636z00_3109); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 429 */
obj_t BgL_aux2635z00_3110;
BgL_aux2635z00_3110 = 
SET_CER(BgL_epairz00_3107, BgL_objz00_1850); 
POP_TRACE(); 
return BgL_aux2635z00_3110;} } } } } 
}



/* null? */
BGL_EXPORTED_DEF bool_t BGl_nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_46)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 434 */
return 
NULLP(BgL_objz00_46);} 
}



/* _null? */
obj_t BGl__nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1851, obj_t BgL_objz00_1852)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 434 */
{ /* ./Ieee/pairlist.scm 435 */
bool_t BgL_auxz00_5898;
BgL_auxz00_5898 = 
NULLP(BgL_objz00_1852); 
return 
BBOOL(BgL_auxz00_5898);} } 
}



/* list */
BGL_EXPORTED_DEF obj_t BGl_listz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_47)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 440 */
{ /* ./Ieee/pairlist.scm 441 */
obj_t BgL_symbol2640z00_3112;
BgL_symbol2640z00_3112 = BGl_symbol6484z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 441 */

PUSH_TRACE(BgL_symbol2640z00_3112); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 441 */
obj_t BgL_aux2639z00_3113;
{ /* ./Ieee/pairlist.scm 441 */
bool_t BgL_testz00_5902;
if(
PAIRP(BgL_lz00_47))
{ /* ./Ieee/pairlist.scm 441 */
BgL_testz00_5902 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 441 */
BgL_testz00_5902 = 
NULLP(BgL_lz00_47)
; } 
if(BgL_testz00_5902)
{ /* ./Ieee/pairlist.scm 441 */
BgL_aux2639z00_3113 = BgL_lz00_47; }  else 
{ /* ./Ieee/pairlist.scm 441 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6484z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_47, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)19720))); 
exit( -1 );} } 
POP_TRACE(); 
return BgL_aux2639z00_3113;} } } } 
}



/* _list */
obj_t BGl__listz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1853, obj_t BgL_lz00_1854)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 440 */
{ /* ./Ieee/pairlist.scm 441 */
obj_t BgL_res7004z00_3119;
{ /* ./Ieee/pairlist.scm 441 */
obj_t BgL_symbol2640z00_3116;
BgL_symbol2640z00_3116 = BGl_symbol6484z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 441 */

PUSH_TRACE(BgL_symbol2640z00_3116); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 441 */
obj_t BgL_aux2639z00_3117;
{ /* ./Ieee/pairlist.scm 441 */
bool_t BgL_testz00_5911;
if(
PAIRP(BgL_lz00_1854))
{ /* ./Ieee/pairlist.scm 441 */
BgL_testz00_5911 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 441 */
BgL_testz00_5911 = 
NULLP(BgL_lz00_1854)
; } 
if(BgL_testz00_5911)
{ /* ./Ieee/pairlist.scm 441 */
BgL_aux2639z00_3117 = BgL_lz00_1854; }  else 
{ /* ./Ieee/pairlist.scm 441 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6484z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1854, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)19720))); 
exit( -1 );} } 
POP_TRACE(); 
BgL_res7004z00_3119 = BgL_aux2639z00_3117; } } } 
return BgL_res7004z00_3119;} } 
}



/* list? */
BGL_EXPORTED_DEF bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_48)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 446 */
{ /* ./Ieee/pairlist.scm 447 */
obj_t BgL_symbol2644z00_1701;
BgL_symbol2644z00_1701 = BGl_symbol6486z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 447 */

PUSH_TRACE(BgL_symbol2644z00_1701); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 447 */
bool_t BgL_aux2643z00_1702;
{ 
obj_t BgL_xz00_391;obj_t BgL_prevz00_392;obj_t BgL_xz00_388;obj_t BgL_prevz00_389;
if(
NULLP(BgL_xz00_48))
{ /* ./Ieee/pairlist.scm 463 */
BgL_aux2643z00_1702 = ((bool_t)1); }  else 
{ /* ./Ieee/pairlist.scm 465 */
bool_t BgL_test1311z00_395;
BgL_test1311z00_395 = 
PAIRP(BgL_xz00_48); 
if(BgL_test1311z00_395)
{ /* ./Ieee/pairlist.scm 465 */
{ /* ./Ieee/pairlist.scm 466 */
obj_t BgL_arg1313z00_396;
{ /* ./Ieee/pairlist.scm 466 */
obj_t BgL_pairz00_1056;
if(BgL_test1311z00_395)
{ /* ./Ieee/pairlist.scm 466 */
BgL_pairz00_1056 = BgL_xz00_48; }  else 
{ /* ./Ieee/pairlist.scm 466 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6486z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_48, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)20342))); 
exit( -1 );} 
BgL_arg1313z00_396 = 
CDR(BgL_pairz00_1056); } 
BgL_xz00_388 = BgL_arg1313z00_396; 
BgL_prevz00_389 = BgL_xz00_48; 
BgL_l1z00_390:
if(
NULLP(BgL_xz00_388))
{ /* ./Ieee/pairlist.scm 448 */
BgL_aux2643z00_1702 = ((bool_t)1); }  else 
{ /* ./Ieee/pairlist.scm 450 */
bool_t BgL_test1319z00_398;
BgL_test1319z00_398 = 
PAIRP(BgL_xz00_388); 
if(BgL_test1319z00_398)
{ /* ./Ieee/pairlist.scm 450 */
if(
(BgL_xz00_388==BgL_prevz00_389))
{ /* ./Ieee/pairlist.scm 451 */
BgL_aux2643z00_1702 = ((bool_t)0); }  else 
{ /* ./Ieee/pairlist.scm 453 */
obj_t BgL_arg1322z00_400;
{ /* ./Ieee/pairlist.scm 453 */
obj_t BgL_pairz00_1059;
if(BgL_test1319z00_398)
{ /* ./Ieee/pairlist.scm 453 */
BgL_pairz00_1059 = BgL_xz00_388; }  else 
{ /* ./Ieee/pairlist.scm 453 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6486z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_388, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)20090))); 
exit( -1 );} 
BgL_arg1322z00_400 = 
CDR(BgL_pairz00_1059); } 
BgL_xz00_391 = BgL_arg1322z00_400; 
BgL_prevz00_392 = BgL_prevz00_389; 
if(
NULLP(BgL_xz00_391))
{ /* ./Ieee/pairlist.scm 456 */
BgL_aux2643z00_1702 = ((bool_t)1); }  else 
{ /* ./Ieee/pairlist.scm 458 */
bool_t BgL_test1329z00_402;
BgL_test1329z00_402 = 
PAIRP(BgL_xz00_391); 
if(BgL_test1329z00_402)
{ /* ./Ieee/pairlist.scm 458 */
if(
(BgL_xz00_391==BgL_prevz00_392))
{ /* ./Ieee/pairlist.scm 459 */
BgL_aux2643z00_1702 = ((bool_t)0); }  else 
{ /* ./Ieee/pairlist.scm 461 */
obj_t BgL_arg1332z00_404;obj_t BgL_arg1333z00_405;
{ /* ./Ieee/pairlist.scm 461 */
obj_t BgL_pairz00_1062;
if(BgL_test1329z00_402)
{ /* ./Ieee/pairlist.scm 461 */
BgL_pairz00_1062 = BgL_xz00_391; }  else 
{ /* ./Ieee/pairlist.scm 461 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6486z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_391, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)20240))); 
exit( -1 );} 
BgL_arg1332z00_404 = 
CDR(BgL_pairz00_1062); } 
{ /* ./Ieee/pairlist.scm 461 */
obj_t BgL_pairz00_1063;
if(
PAIRP(BgL_prevz00_392))
{ /* ./Ieee/pairlist.scm 461 */
BgL_pairz00_1063 = BgL_prevz00_392; }  else 
{ /* ./Ieee/pairlist.scm 461 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6486z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_392, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)20251))); 
exit( -1 );} 
BgL_arg1333z00_405 = 
CDR(BgL_pairz00_1063); } 
{ 
obj_t BgL_prevz00_5958;obj_t BgL_xz00_5957;
BgL_xz00_5957 = BgL_arg1332z00_404; 
BgL_prevz00_5958 = BgL_arg1333z00_405; 
BgL_prevz00_389 = BgL_prevz00_5958; 
BgL_xz00_388 = BgL_xz00_5957; 
goto BgL_l1z00_390;} } }  else 
{ /* ./Ieee/pairlist.scm 458 */
BgL_aux2643z00_1702 = ((bool_t)0); } } } }  else 
{ /* ./Ieee/pairlist.scm 450 */
BgL_aux2643z00_1702 = ((bool_t)0); } } } }  else 
{ /* ./Ieee/pairlist.scm 465 */
BgL_aux2643z00_1702 = ((bool_t)0); } } } 
POP_TRACE(); 
return BgL_aux2643z00_1702;} } } } 
}



/* _list? */
obj_t BGl__listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1855, obj_t BgL_xz00_1856)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 446 */
{ /* ./Ieee/pairlist.scm 447 */
bool_t BgL_auxz00_5960;
BgL_auxz00_5960 = 
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1856); 
return 
BBOOL(BgL_auxz00_5960);} } 
}



/* append-2 */
BGL_EXPORTED_DEF obj_t bgl_append2(obj_t BgL_l1z00_49, obj_t BgL_l2z00_50)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 473 */
{ /* ./Ieee/pairlist.scm 474 */
obj_t BgL_symbol2648z00_1703;
BgL_symbol2648z00_1703 = BGl_symbol6487z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 474 */

PUSH_TRACE(BgL_symbol2648z00_1703); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 474 */
obj_t BgL_aux2647z00_1704;
{ /* ./Ieee/pairlist.scm 474 */
obj_t BgL_headz00_406;
BgL_headz00_406 = 
MAKE_PAIR(BNIL, BgL_l2z00_50); 
{ 
obj_t BgL_prevz00_407;obj_t BgL_tailz00_408;
BgL_prevz00_407 = BgL_headz00_406; 
BgL_tailz00_408 = BgL_l1z00_49; 
BgL_loopz00_409:
if(
NULLP(BgL_tailz00_408))
{ /* ./Ieee/pairlist.scm 476 */BNIL; }  else 
{ /* ./Ieee/pairlist.scm 478 */
obj_t BgL_newzd2prevzd2_411;
{ /* ./Ieee/pairlist.scm 478 */
obj_t BgL_arg1349z00_413;
{ /* ./Ieee/pairlist.scm 478 */
obj_t BgL_pairz00_1066;
if(
PAIRP(BgL_tailz00_408))
{ /* ./Ieee/pairlist.scm 478 */
BgL_pairz00_1066 = BgL_tailz00_408; }  else 
{ /* ./Ieee/pairlist.scm 478 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6487z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_408, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)20751))); 
exit( -1 );} 
BgL_arg1349z00_413 = 
CAR(BgL_pairz00_1066); } 
BgL_newzd2prevzd2_411 = 
MAKE_PAIR(BgL_arg1349z00_413, BgL_l2z00_50); } 
SET_CDR(BgL_prevz00_407, BgL_newzd2prevzd2_411); 
{ /* ./Ieee/pairlist.scm 480 */
obj_t BgL_arg1345z00_412;
{ /* ./Ieee/pairlist.scm 480 */
obj_t BgL_pairz00_1069;
if(
PAIRP(BgL_tailz00_408))
{ /* ./Ieee/pairlist.scm 480 */
BgL_pairz00_1069 = BgL_tailz00_408; }  else 
{ /* ./Ieee/pairlist.scm 480 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6487z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_408, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)20822))); 
exit( -1 );} 
BgL_arg1345z00_412 = 
CDR(BgL_pairz00_1069); } 
{ 
obj_t BgL_tailz00_5982;obj_t BgL_prevz00_5981;
BgL_prevz00_5981 = BgL_newzd2prevzd2_411; 
BgL_tailz00_5982 = BgL_arg1345z00_412; 
BgL_tailz00_408 = BgL_tailz00_5982; 
BgL_prevz00_407 = BgL_prevz00_5981; 
goto BgL_loopz00_409;} } } 
BgL_aux2647z00_1704 = 
CDR(BgL_headz00_406); } } 
POP_TRACE(); 
return BgL_aux2647z00_1704;} } } } 
}



/* _append-22859 */
obj_t BGl__appendzd222859zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1857, obj_t BgL_l1z00_1858, obj_t BgL_l2z00_1859)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 473 */
{ /* ./Ieee/pairlist.scm 474 */
obj_t BgL_auxz00_5985;
{ /* ./Ieee/pairlist.scm 474 */
bool_t BgL_testz00_5986;
if(
PAIRP(BgL_l1z00_1858))
{ /* ./Ieee/pairlist.scm 474 */
BgL_testz00_5986 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 474 */
BgL_testz00_5986 = 
NULLP(BgL_l1z00_1858)
; } 
if(BgL_testz00_5986)
{ /* ./Ieee/pairlist.scm 474 */
BgL_auxz00_5985 = BgL_l1z00_1858
; }  else 
{ /* ./Ieee/pairlist.scm 474 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6488z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_l1z00_1858, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)20624))); 
exit( -1 );} } 
return 
bgl_append2(BgL_auxz00_5985, BgL_l2z00_1859);} } 
}



/* eappend-2 */
BGL_EXPORTED_DEF obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_l1z00_51, obj_t BgL_l2z00_52)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 487 */
{ /* ./Ieee/pairlist.scm 488 */
obj_t BgL_symbol2652z00_1705;
BgL_symbol2652z00_1705 = BGl_symbol6489z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 488 */

PUSH_TRACE(BgL_symbol2652z00_1705); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 488 */
obj_t BgL_aux2651z00_1706;
{ /* ./Ieee/pairlist.scm 488 */
obj_t BgL_headz00_414;
{ /* ./Ieee/pairlist.scm 488 */
bool_t BgL_test1375z00_425;
BgL_test1375z00_425 = 
EXTENDED_PAIRP(BgL_l2z00_52); 
if(BgL_test1375z00_425)
{ /* ./Ieee/pairlist.scm 489 */
obj_t BgL_arg1378z00_427;
{ /* ./Ieee/pairlist.scm 489 */
obj_t BgL_objz00_1071;
{ /* ./Ieee/pairlist.scm 489 */
bool_t BgL_test4019z00_2165;
BgL_test4019z00_2165 = 
EXTENDED_PAIRP(BgL_l2z00_52); 
if(BgL_test4019z00_2165)
{ /* ./Ieee/pairlist.scm 489 */
BgL_objz00_1071 = BgL_l2z00_52; }  else 
{ /* ./Ieee/pairlist.scm 489 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6489z00zz__r4_pairs_and_lists_6_3z00, BGl_string6421z00zz__r4_pairs_and_lists_6_3z00, BgL_l2z00_52, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21168))); 
exit( -1 );} } 
BgL_arg1378z00_427 = 
CER(BgL_objz00_1071); } 
{ /* ./Ieee/pairlist.scm 489 */
obj_t BgL_res2486z00_1075;
BgL_res2486z00_1075 = 
MAKE_EXTENDED_PAIR(BNIL, BgL_l2z00_52, BgL_arg1378z00_427); 
BgL_headz00_414 = BgL_res2486z00_1075; } }  else 
{ /* ./Ieee/pairlist.scm 488 */
BgL_headz00_414 = 
MAKE_PAIR(BNIL, BgL_l2z00_52); } } 
{ 
obj_t BgL_prevz00_415;obj_t BgL_tailz00_416;
BgL_prevz00_415 = BgL_headz00_414; 
BgL_tailz00_416 = BgL_l1z00_51; 
BgL_loopz00_417:
if(
NULLP(BgL_tailz00_416))
{ /* ./Ieee/pairlist.scm 492 */BNIL; }  else 
{ /* ./Ieee/pairlist.scm 494 */
obj_t BgL_newzd2prevzd2_419;
{ /* ./Ieee/pairlist.scm 494 */
bool_t BgL_test1362z00_421;
BgL_test1362z00_421 = 
EXTENDED_PAIRP(BgL_tailz00_416); 
if(BgL_test1362z00_421)
{ /* ./Ieee/pairlist.scm 495 */
obj_t BgL_arg1364z00_422;obj_t BgL_arg1365z00_423;
{ /* ./Ieee/pairlist.scm 495 */
obj_t BgL_pairz00_1079;
if(
PAIRP(BgL_tailz00_416))
{ /* ./Ieee/pairlist.scm 495 */
BgL_pairz00_1079 = BgL_tailz00_416; }  else 
{ /* ./Ieee/pairlist.scm 495 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6489z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_416, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21322))); 
exit( -1 );} 
BgL_arg1364z00_422 = 
CAR(BgL_pairz00_1079); } 
{ /* ./Ieee/pairlist.scm 495 */
obj_t BgL_objz00_1080;
{ /* ./Ieee/pairlist.scm 495 */
bool_t BgL_test4039z00_2169;
BgL_test4039z00_2169 = 
EXTENDED_PAIRP(BgL_tailz00_416); 
if(BgL_test4039z00_2169)
{ /* ./Ieee/pairlist.scm 495 */
BgL_objz00_1080 = BgL_tailz00_416; }  else 
{ /* ./Ieee/pairlist.scm 495 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6489z00zz__r4_pairs_and_lists_6_3z00, BGl_string6421z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_416, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21336))); 
exit( -1 );} } 
BgL_arg1365z00_423 = 
CER(BgL_objz00_1080); } 
{ /* ./Ieee/pairlist.scm 495 */
obj_t BgL_res2487z00_1084;
BgL_res2487z00_1084 = 
MAKE_EXTENDED_PAIR(BgL_arg1364z00_422, BgL_l2z00_52, BgL_arg1365z00_423); 
BgL_newzd2prevzd2_419 = BgL_res2487z00_1084; } }  else 
{ /* ./Ieee/pairlist.scm 496 */
obj_t BgL_arg1370z00_424;
{ /* ./Ieee/pairlist.scm 496 */
obj_t BgL_pairz00_1085;
if(
PAIRP(BgL_tailz00_416))
{ /* ./Ieee/pairlist.scm 496 */
BgL_pairz00_1085 = BgL_tailz00_416; }  else 
{ /* ./Ieee/pairlist.scm 496 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6489z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_416, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21364))); 
exit( -1 );} 
BgL_arg1370z00_424 = 
CAR(BgL_pairz00_1085); } 
BgL_newzd2prevzd2_419 = 
MAKE_PAIR(BgL_arg1370z00_424, BgL_l2z00_52); } } 
SET_CDR(BgL_prevz00_415, BgL_newzd2prevzd2_419); 
{ /* ./Ieee/pairlist.scm 498 */
obj_t BgL_arg1359z00_420;
{ /* ./Ieee/pairlist.scm 498 */
obj_t BgL_pairz00_1088;
if(
PAIRP(BgL_tailz00_416))
{ /* ./Ieee/pairlist.scm 498 */
BgL_pairz00_1088 = BgL_tailz00_416; }  else 
{ /* ./Ieee/pairlist.scm 498 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6489z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_416, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21436))); 
exit( -1 );} 
BgL_arg1359z00_420 = 
CDR(BgL_pairz00_1088); } 
{ 
obj_t BgL_tailz00_6037;obj_t BgL_prevz00_6036;
BgL_prevz00_6036 = BgL_newzd2prevzd2_419; 
BgL_tailz00_6037 = BgL_arg1359z00_420; 
BgL_tailz00_416 = BgL_tailz00_6037; 
BgL_prevz00_415 = BgL_prevz00_6036; 
goto BgL_loopz00_417;} } } 
BgL_aux2651z00_1706 = 
CDR(BgL_headz00_414); } } 
POP_TRACE(); 
return BgL_aux2651z00_1706;} } } } 
}



/* _eappend-22861 */
obj_t BGl__eappendzd222861zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1860, obj_t BgL_l1z00_1861, obj_t BgL_l2z00_1862)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 487 */
{ /* ./Ieee/pairlist.scm 488 */
obj_t BgL_auxz00_6040;
{ /* ./Ieee/pairlist.scm 488 */
bool_t BgL_testz00_6041;
if(
PAIRP(BgL_l1z00_1861))
{ /* ./Ieee/pairlist.scm 488 */
BgL_testz00_6041 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 488 */
BgL_testz00_6041 = 
NULLP(BgL_l1z00_1861)
; } 
if(BgL_testz00_6041)
{ /* ./Ieee/pairlist.scm 488 */
BgL_auxz00_6040 = BgL_l1z00_1861
; }  else 
{ /* ./Ieee/pairlist.scm 488 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6490z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_l1z00_1861, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21115))); 
exit( -1 );} } 
return 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6040, BgL_l2z00_1862);} } 
}



/* append */
BGL_EXPORTED_DEF obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_53)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 505 */
{ /* ./Ieee/pairlist.scm 506 */
obj_t BgL_symbol2656z00_1707;
BgL_symbol2656z00_1707 = BGl_symbol6491z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 506 */

PUSH_TRACE(BgL_symbol2656z00_1707); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 506 */
obj_t BgL_aux2655z00_1708;
BgL_aux2655z00_1708 = 
BGl_appendzd2listz72za0zz__r4_pairs_and_lists_6_3z00(BgL_lz00_53); 
POP_TRACE(); 
return BgL_aux2655z00_1708;} } } } 
}



/* append-list' */
obj_t BGl_appendzd2listz72za0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_428)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 506 */
{ /* ./Ieee/pairlist.scm 507 */
long BgL_lenz00_430;
{ /* ./Ieee/pairlist.scm 507 */
obj_t BgL_auxz00_6052;
{ /* ./Ieee/pairlist.scm 507 */
bool_t BgL_testz00_6053;
if(
PAIRP(BgL_lz00_428))
{ /* ./Ieee/pairlist.scm 507 */
BgL_testz00_6053 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 507 */
BgL_testz00_6053 = 
NULLP(BgL_lz00_428)
; } 
if(BgL_testz00_6053)
{ /* ./Ieee/pairlist.scm 507 */
BgL_auxz00_6052 = BgL_lz00_428
; }  else 
{ /* ./Ieee/pairlist.scm 507 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_428, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21773))); 
exit( -1 );} } 
BgL_lenz00_430 = 
bgl_list_length(BgL_auxz00_6052); } 
{ 

switch( BgL_lenz00_430) { case ((long)0) : 

return BNIL;break;case ((long)1) : 

{ /* ./Ieee/pairlist.scm 511 */
obj_t BgL_pairz00_1089;
if(
PAIRP(BgL_lz00_428))
{ /* ./Ieee/pairlist.scm 511 */
BgL_pairz00_1089 = BgL_lz00_428; }  else 
{ /* ./Ieee/pairlist.scm 511 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_428, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21842))); 
exit( -1 );} 
return 
CAR(BgL_pairz00_1089);} break;case ((long)2) : 

{ /* ./Ieee/pairlist.scm 513 */
obj_t BgL_arg1387z00_434;obj_t BgL_arg1388z00_435;
{ /* ./Ieee/pairlist.scm 513 */
obj_t BgL_pairz00_1090;
if(
PAIRP(BgL_lz00_428))
{ /* ./Ieee/pairlist.scm 513 */
BgL_pairz00_1090 = BgL_lz00_428; }  else 
{ /* ./Ieee/pairlist.scm 513 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_428, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21889))); 
exit( -1 );} 
BgL_arg1387z00_434 = 
CAR(BgL_pairz00_1090); } 
{ /* ./Ieee/pairlist.scm 514 */
obj_t BgL_arg1392z00_436;
{ /* ./Ieee/pairlist.scm 514 */
obj_t BgL_pairz00_1091;
if(
PAIRP(BgL_lz00_428))
{ /* ./Ieee/pairlist.scm 514 */
BgL_pairz00_1091 = BgL_lz00_428; }  else 
{ /* ./Ieee/pairlist.scm 514 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_428, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21910))); 
exit( -1 );} 
BgL_arg1392z00_436 = 
CDR(BgL_pairz00_1091); } 
{ /* ./Ieee/pairlist.scm 514 */
obj_t BgL_pairz00_1092;
if(
PAIRP(BgL_arg1392z00_436))
{ /* ./Ieee/pairlist.scm 514 */
BgL_pairz00_1092 = BgL_arg1392z00_436; }  else 
{ /* ./Ieee/pairlist.scm 514 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1392z00_436, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21911))); 
exit( -1 );} 
BgL_arg1388z00_435 = 
CAR(BgL_pairz00_1092); } } 
{ /* ./Ieee/pairlist.scm 513 */
obj_t BgL_auxz00_6085;
{ /* ./Ieee/pairlist.scm 513 */
bool_t BgL_testz00_6086;
if(
PAIRP(BgL_arg1387z00_434))
{ /* ./Ieee/pairlist.scm 513 */
BgL_testz00_6086 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 513 */
BgL_testz00_6086 = 
NULLP(BgL_arg1387z00_434)
; } 
if(BgL_testz00_6086)
{ /* ./Ieee/pairlist.scm 513 */
BgL_auxz00_6085 = BgL_arg1387z00_434
; }  else 
{ /* ./Ieee/pairlist.scm 513 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1387z00_434, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21890))); 
exit( -1 );} } 
return 
bgl_append2(BgL_auxz00_6085, BgL_arg1388z00_435);} } break;
default: 
{ /* ./Ieee/pairlist.scm 515 */
obj_t BgL_arg1399z00_437;obj_t BgL_arg1400z00_438;
{ /* ./Ieee/pairlist.scm 515 */
obj_t BgL_pairz00_1093;
if(
PAIRP(BgL_lz00_428))
{ /* ./Ieee/pairlist.scm 515 */
BgL_pairz00_1093 = BgL_lz00_428; }  else 
{ /* ./Ieee/pairlist.scm 515 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_428, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21935))); 
exit( -1 );} 
BgL_arg1399z00_437 = 
CAR(BgL_pairz00_1093); } 
{ /* ./Ieee/pairlist.scm 516 */
obj_t BgL_arg1406z00_439;
{ /* ./Ieee/pairlist.scm 516 */
obj_t BgL_pairz00_1094;
if(
PAIRP(BgL_lz00_428))
{ /* ./Ieee/pairlist.scm 516 */
BgL_pairz00_1094 = BgL_lz00_428; }  else 
{ /* ./Ieee/pairlist.scm 516 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_428, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21964))); 
exit( -1 );} 
BgL_arg1406z00_439 = 
CDR(BgL_pairz00_1094); } 
BgL_arg1400z00_438 = 
BGl_appendzd2listz72za0zz__r4_pairs_and_lists_6_3z00(BgL_arg1406z00_439); } 
{ /* ./Ieee/pairlist.scm 515 */
obj_t BgL_auxz00_6107;
{ /* ./Ieee/pairlist.scm 515 */
bool_t BgL_testz00_6108;
if(
PAIRP(BgL_arg1399z00_437))
{ /* ./Ieee/pairlist.scm 515 */
BgL_testz00_6108 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 515 */
BgL_testz00_6108 = 
NULLP(BgL_arg1399z00_437)
; } 
if(BgL_testz00_6108)
{ /* ./Ieee/pairlist.scm 515 */
BgL_auxz00_6107 = BgL_arg1399z00_437
; }  else 
{ /* ./Ieee/pairlist.scm 515 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6492z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1399z00_437, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)21936))); 
exit( -1 );} } 
return 
bgl_append2(BgL_auxz00_6107, BgL_arg1400z00_438);} } } } } } 
}



/* _append */
obj_t BGl__appendz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1863, obj_t BgL_lz00_1864)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 505 */
return 
BGl_appendz00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_1864);} 
}



/* eappend */
BGL_EXPORTED_DEF obj_t BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_54)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 522 */
{ /* ./Ieee/pairlist.scm 523 */
obj_t BgL_symbol2660z00_1709;
BgL_symbol2660z00_1709 = BGl_symbol6493z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 523 */

PUSH_TRACE(BgL_symbol2660z00_1709); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 523 */
obj_t BgL_aux2659z00_1710;
BgL_aux2659z00_1710 = 
BGl_appendzd2listzd2zz__r4_pairs_and_lists_6_3z00(BgL_lz00_54); 
POP_TRACE(); 
return BgL_aux2659z00_1710;} } } } 
}



/* append-list */
obj_t BGl_appendzd2listzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_440)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 523 */
{ /* ./Ieee/pairlist.scm 524 */
long BgL_lenz00_442;
{ /* ./Ieee/pairlist.scm 524 */
obj_t BgL_auxz00_6121;
{ /* ./Ieee/pairlist.scm 524 */
bool_t BgL_testz00_6122;
if(
PAIRP(BgL_lz00_440))
{ /* ./Ieee/pairlist.scm 524 */
BgL_testz00_6122 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 524 */
BgL_testz00_6122 = 
NULLP(BgL_lz00_440)
; } 
if(BgL_testz00_6122)
{ /* ./Ieee/pairlist.scm 524 */
BgL_auxz00_6121 = BgL_lz00_440
; }  else 
{ /* ./Ieee/pairlist.scm 524 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_440, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22296))); 
exit( -1 );} } 
BgL_lenz00_442 = 
bgl_list_length(BgL_auxz00_6121); } 
{ 

switch( BgL_lenz00_442) { case ((long)0) : 

return BNIL;break;case ((long)1) : 

{ /* ./Ieee/pairlist.scm 528 */
obj_t BgL_pairz00_1095;
if(
PAIRP(BgL_lz00_440))
{ /* ./Ieee/pairlist.scm 528 */
BgL_pairz00_1095 = BgL_lz00_440; }  else 
{ /* ./Ieee/pairlist.scm 528 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_440, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22365))); 
exit( -1 );} 
return 
CAR(BgL_pairz00_1095);} break;case ((long)2) : 

{ /* ./Ieee/pairlist.scm 530 */
obj_t BgL_arg1414z00_446;obj_t BgL_arg1415z00_447;
{ /* ./Ieee/pairlist.scm 530 */
obj_t BgL_pairz00_1096;
if(
PAIRP(BgL_lz00_440))
{ /* ./Ieee/pairlist.scm 530 */
BgL_pairz00_1096 = BgL_lz00_440; }  else 
{ /* ./Ieee/pairlist.scm 530 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_440, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22413))); 
exit( -1 );} 
BgL_arg1414z00_446 = 
CAR(BgL_pairz00_1096); } 
{ /* ./Ieee/pairlist.scm 531 */
obj_t BgL_arg1419z00_448;
{ /* ./Ieee/pairlist.scm 531 */
obj_t BgL_pairz00_1097;
if(
PAIRP(BgL_lz00_440))
{ /* ./Ieee/pairlist.scm 531 */
BgL_pairz00_1097 = BgL_lz00_440; }  else 
{ /* ./Ieee/pairlist.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_440, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22435))); 
exit( -1 );} 
BgL_arg1419z00_448 = 
CDR(BgL_pairz00_1097); } 
{ /* ./Ieee/pairlist.scm 531 */
obj_t BgL_pairz00_1098;
if(
PAIRP(BgL_arg1419z00_448))
{ /* ./Ieee/pairlist.scm 531 */
BgL_pairz00_1098 = BgL_arg1419z00_448; }  else 
{ /* ./Ieee/pairlist.scm 531 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1419z00_448, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22436))); 
exit( -1 );} 
BgL_arg1415z00_447 = 
CAR(BgL_pairz00_1098); } } 
{ /* ./Ieee/pairlist.scm 530 */
obj_t BgL_auxz00_6154;
{ /* ./Ieee/pairlist.scm 530 */
bool_t BgL_testz00_6155;
if(
PAIRP(BgL_arg1414z00_446))
{ /* ./Ieee/pairlist.scm 530 */
BgL_testz00_6155 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 530 */
BgL_testz00_6155 = 
NULLP(BgL_arg1414z00_446)
; } 
if(BgL_testz00_6155)
{ /* ./Ieee/pairlist.scm 530 */
BgL_auxz00_6154 = BgL_arg1414z00_446
; }  else 
{ /* ./Ieee/pairlist.scm 530 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1414z00_446, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22414))); 
exit( -1 );} } 
return 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6154, BgL_arg1415z00_447);} } break;
default: 
{ /* ./Ieee/pairlist.scm 532 */
obj_t BgL_arg1426z00_449;obj_t BgL_arg1427z00_450;
{ /* ./Ieee/pairlist.scm 532 */
obj_t BgL_pairz00_1099;
if(
PAIRP(BgL_lz00_440))
{ /* ./Ieee/pairlist.scm 532 */
BgL_pairz00_1099 = BgL_lz00_440; }  else 
{ /* ./Ieee/pairlist.scm 532 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_440, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22461))); 
exit( -1 );} 
BgL_arg1426z00_449 = 
CAR(BgL_pairz00_1099); } 
{ /* ./Ieee/pairlist.scm 533 */
obj_t BgL_arg1431z00_451;
{ /* ./Ieee/pairlist.scm 533 */
obj_t BgL_pairz00_1100;
if(
PAIRP(BgL_lz00_440))
{ /* ./Ieee/pairlist.scm 533 */
BgL_pairz00_1100 = BgL_lz00_440; }  else 
{ /* ./Ieee/pairlist.scm 533 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_440, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22491))); 
exit( -1 );} 
BgL_arg1431z00_451 = 
CDR(BgL_pairz00_1100); } 
BgL_arg1427z00_450 = 
BGl_appendzd2listzd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1431z00_451); } 
{ /* ./Ieee/pairlist.scm 532 */
obj_t BgL_auxz00_6176;
{ /* ./Ieee/pairlist.scm 532 */
bool_t BgL_testz00_6177;
if(
PAIRP(BgL_arg1426z00_449))
{ /* ./Ieee/pairlist.scm 532 */
BgL_testz00_6177 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 532 */
BgL_testz00_6177 = 
NULLP(BgL_arg1426z00_449)
; } 
if(BgL_testz00_6177)
{ /* ./Ieee/pairlist.scm 532 */
BgL_auxz00_6176 = BgL_arg1426z00_449
; }  else 
{ /* ./Ieee/pairlist.scm 532 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6494z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1426z00_449, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22462))); 
exit( -1 );} } 
return 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6176, BgL_arg1427z00_450);} } } } } } 
}



/* _eappend */
obj_t BGl__eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1865, obj_t BgL_lz00_1866)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 522 */
return 
BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_1866);} 
}



/* append! */
BGL_EXPORTED_DEF obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_55, obj_t BgL_yz00_56)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 539 */
{ /* ./Ieee/pairlist.scm 540 */
obj_t BgL_symbol2664z00_1711;
BgL_symbol2664z00_1711 = BGl_symbol6495z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 540 */

PUSH_TRACE(BgL_symbol2664z00_1711); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 540 */
obj_t BgL_aux2663z00_1712;
if(
NULLP(BgL_xz00_55))
{ /* ./Ieee/pairlist.scm 540 */
BgL_aux2663z00_1712 = BgL_yz00_56; }  else 
{ /* ./Ieee/pairlist.scm 543 */
obj_t BgL_arg1437z00_454;
{ /* ./Ieee/pairlist.scm 543 */
obj_t BgL_pairz00_1102;
if(
PAIRP(BgL_xz00_55))
{ /* ./Ieee/pairlist.scm 543 */
BgL_pairz00_1102 = BgL_xz00_55; }  else 
{ /* ./Ieee/pairlist.scm 543 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6495z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_55, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22833))); 
exit( -1 );} 
BgL_arg1437z00_454 = 
CDR(BgL_pairz00_1102); } 
{ 
obj_t BgL_az00_1104;obj_t BgL_bz00_1105;
BgL_az00_1104 = BgL_xz00_55; 
BgL_bz00_1105 = BgL_arg1437z00_454; 
BgL_dozd2loopzd2zd21007zd2_1103:
if(
NULLP(BgL_bz00_1105))
{ /* ./Ieee/pairlist.scm 544 */
{ /* ./Ieee/pairlist.scm 544 */
obj_t BgL_pairz00_1111;
if(
PAIRP(BgL_az00_1104))
{ /* ./Ieee/pairlist.scm 544 */
BgL_pairz00_1111 = BgL_az00_1104; }  else 
{ /* ./Ieee/pairlist.scm 544 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6495z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_az00_1104, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22856))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_1111, BgL_yz00_56); } 
BgL_aux2663z00_1712 = BgL_xz00_55; }  else 
{ /* ./Ieee/pairlist.scm 544 */
{ /* ./Ieee/pairlist.scm 544 */
obj_t BgL_arg1444z00_1109;
{ /* ./Ieee/pairlist.scm 544 */
obj_t BgL_pairz00_1113;
if(
PAIRP(BgL_bz00_1105))
{ /* ./Ieee/pairlist.scm 544 */
BgL_pairz00_1113 = BgL_bz00_1105; }  else 
{ /* ./Ieee/pairlist.scm 544 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6495z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_bz00_1105, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22856))); 
exit( -1 );} 
BgL_arg1444z00_1109 = 
CDR(BgL_pairz00_1113); } 
{ 
obj_t BgL_bz00_6211;obj_t BgL_az00_6210;
BgL_az00_6210 = BgL_bz00_1105; 
BgL_bz00_6211 = BgL_arg1444z00_1109; 
BgL_bz00_1105 = BgL_bz00_6211; 
BgL_az00_1104 = BgL_az00_6210; 
goto BgL_dozd2loopzd2zd21007zd2_1103;} } } } } 
POP_TRACE(); 
return BgL_aux2663z00_1712;} } } } 
}



/* _append!2865 */
obj_t BGl__appendz122865z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1867, obj_t BgL_xz00_1868, obj_t BgL_yz00_1869)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 539 */
{ /* ./Ieee/pairlist.scm 540 */
obj_t BgL_auxz00_6221;obj_t BgL_auxz00_6213;
{ /* ./Ieee/pairlist.scm 540 */
bool_t BgL_testz00_6222;
if(
PAIRP(BgL_yz00_1869))
{ /* ./Ieee/pairlist.scm 540 */
BgL_testz00_6222 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 540 */
BgL_testz00_6222 = 
NULLP(BgL_yz00_1869)
; } 
if(BgL_testz00_6222)
{ /* ./Ieee/pairlist.scm 540 */
BgL_auxz00_6221 = BgL_yz00_1869
; }  else 
{ /* ./Ieee/pairlist.scm 540 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6496z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1869, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22773))); 
exit( -1 );} } 
{ /* ./Ieee/pairlist.scm 540 */
bool_t BgL_testz00_6214;
if(
PAIRP(BgL_xz00_1868))
{ /* ./Ieee/pairlist.scm 540 */
BgL_testz00_6214 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 540 */
BgL_testz00_6214 = 
NULLP(BgL_xz00_1868)
; } 
if(BgL_testz00_6214)
{ /* ./Ieee/pairlist.scm 540 */
BgL_auxz00_6213 = BgL_xz00_1868
; }  else 
{ /* ./Ieee/pairlist.scm 540 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6496z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_1868, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)22773))); 
exit( -1 );} } 
return 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6213, BgL_auxz00_6221);} } 
}



/* length */
BGL_EXPORTED_DEF long bgl_list_length(obj_t BgL_listz00_57)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 551 */
{ /* ./Ieee/pairlist.scm 552 */
obj_t BgL_symbol2668z00_1713;
BgL_symbol2668z00_1713 = BGl_symbol6497z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 552 */

PUSH_TRACE(BgL_symbol2668z00_1713); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 552 */
long BgL_aux2667z00_1714;
{ 
obj_t BgL_lz00_1129;long BgL_resz00_1130;
BgL_lz00_1129 = BgL_listz00_57; 
BgL_resz00_1130 = ((long)0); 
BgL_loopz00_1128:
if(
NULLP(BgL_lz00_1129))
{ /* ./Ieee/pairlist.scm 552 */
BgL_aux2667z00_1714 = BgL_resz00_1130; }  else 
{ /* ./Ieee/pairlist.scm 552 */
{ /* ./Ieee/pairlist.scm 552 */
obj_t BgL_arg1452z00_1135;long BgL_arg1453z00_1136;
{ /* ./Ieee/pairlist.scm 552 */
obj_t BgL_pairz00_1138;
if(
PAIRP(BgL_lz00_1129))
{ /* ./Ieee/pairlist.scm 552 */
BgL_pairz00_1138 = BgL_lz00_1129; }  else 
{ /* ./Ieee/pairlist.scm 552 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6497z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1129, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)23158))); 
exit( -1 );} 
BgL_arg1452z00_1135 = 
CDR(BgL_pairz00_1138); } 
BgL_arg1453z00_1136 = 
(((long)1)+BgL_resz00_1130); 
{ 
long BgL_resz00_6241;obj_t BgL_lz00_6240;
BgL_lz00_6240 = BgL_arg1452z00_1135; 
BgL_resz00_6241 = BgL_arg1453z00_1136; 
BgL_resz00_1130 = BgL_resz00_6241; 
BgL_lz00_1129 = BgL_lz00_6240; 
goto BgL_loopz00_1128;} } } } 
POP_TRACE(); 
return BgL_aux2667z00_1714;} } } } 
}



/* _length2867 */
obj_t BGl__length2867z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1870, obj_t BgL_listz00_1871)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 551 */
{ /* ./Ieee/pairlist.scm 552 */
long BgL_auxz00_6243;
{ /* ./Ieee/pairlist.scm 552 */
obj_t BgL_auxz00_6244;
{ /* ./Ieee/pairlist.scm 552 */
bool_t BgL_testz00_6245;
if(
PAIRP(BgL_listz00_1871))
{ /* ./Ieee/pairlist.scm 552 */
BgL_testz00_6245 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 552 */
BgL_testz00_6245 = 
NULLP(BgL_listz00_1871)
; } 
if(BgL_testz00_6245)
{ /* ./Ieee/pairlist.scm 552 */
BgL_auxz00_6244 = BgL_listz00_1871
; }  else 
{ /* ./Ieee/pairlist.scm 552 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6498z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1871, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)23158))); 
exit( -1 );} } 
BgL_auxz00_6243 = 
bgl_list_length(BgL_auxz00_6244); } 
return 
BINT(BgL_auxz00_6243);} } 
}



/* reverse */
BGL_EXPORTED_DEF obj_t bgl_reverse(obj_t BgL_lz00_58)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 563 */
{ /* ./Ieee/pairlist.scm 564 */
obj_t BgL_symbol2672z00_1715;
BgL_symbol2672z00_1715 = BGl_symbol6499z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 564 */

PUSH_TRACE(BgL_symbol2672z00_1715); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 564 */
obj_t BgL_aux2671z00_1716;
{ 
obj_t BgL_lz00_1158;obj_t BgL_accz00_1159;
{ /* ./Ieee/pairlist.scm 564 */
obj_t BgL_aux4351z00_2230;
BgL_lz00_1158 = BgL_lz00_58; 
BgL_accz00_1159 = BNIL; 
BgL_loopz00_1157:
if(
NULLP(BgL_lz00_1158))
{ /* ./Ieee/pairlist.scm 564 */
BgL_aux4351z00_2230 = BgL_accz00_1159; }  else 
{ /* ./Ieee/pairlist.scm 564 */
obj_t BgL_arg1461z00_1165;obj_t BgL_arg1462z00_1166;
{ /* ./Ieee/pairlist.scm 564 */
obj_t BgL_pairz00_1169;
if(
PAIRP(BgL_lz00_1158))
{ /* ./Ieee/pairlist.scm 564 */
BgL_pairz00_1169 = BgL_lz00_1158; }  else 
{ /* ./Ieee/pairlist.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6499z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1158, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)23528))); 
exit( -1 );} 
BgL_arg1461z00_1165 = 
CDR(BgL_pairz00_1169); } 
{ /* ./Ieee/pairlist.scm 564 */
obj_t BgL_arg1466z00_1167;
{ /* ./Ieee/pairlist.scm 564 */
obj_t BgL_pairz00_1170;
if(
PAIRP(BgL_lz00_1158))
{ /* ./Ieee/pairlist.scm 564 */
BgL_pairz00_1170 = BgL_lz00_1158; }  else 
{ /* ./Ieee/pairlist.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6499z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1158, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)23528))); 
exit( -1 );} 
BgL_arg1466z00_1167 = 
CAR(BgL_pairz00_1170); } 
BgL_arg1462z00_1166 = 
MAKE_PAIR(BgL_arg1466z00_1167, BgL_accz00_1159); } 
{ 
obj_t BgL_accz00_6271;obj_t BgL_lz00_6270;
BgL_lz00_6270 = BgL_arg1461z00_1165; 
BgL_accz00_6271 = BgL_arg1462z00_1166; 
BgL_accz00_1159 = BgL_accz00_6271; 
BgL_lz00_1158 = BgL_lz00_6270; 
goto BgL_loopz00_1157;} } 
{ /* ./Ieee/pairlist.scm 564 */
bool_t BgL_testz00_6272;
if(
PAIRP(BgL_aux4351z00_2230))
{ /* ./Ieee/pairlist.scm 564 */
BgL_testz00_6272 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 564 */
BgL_testz00_6272 = 
NULLP(BgL_aux4351z00_2230)
; } 
if(BgL_testz00_6272)
{ /* ./Ieee/pairlist.scm 564 */
BgL_aux2671z00_1716 = BgL_aux4351z00_2230; }  else 
{ /* ./Ieee/pairlist.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6499z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_aux4351z00_2230, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)23528))); 
exit( -1 );} } } } 
POP_TRACE(); 
return BgL_aux2671z00_1716;} } } } 
}



/* _reverse2869 */
obj_t BGl__reverse2869z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1872, obj_t BgL_lz00_1873)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 563 */
{ /* ./Ieee/pairlist.scm 564 */
obj_t BgL_auxz00_6280;
{ /* ./Ieee/pairlist.scm 564 */
bool_t BgL_testz00_6281;
if(
PAIRP(BgL_lz00_1873))
{ /* ./Ieee/pairlist.scm 564 */
BgL_testz00_6281 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 564 */
BgL_testz00_6281 = 
NULLP(BgL_lz00_1873)
; } 
if(BgL_testz00_6281)
{ /* ./Ieee/pairlist.scm 564 */
BgL_auxz00_6280 = BgL_lz00_1873
; }  else 
{ /* ./Ieee/pairlist.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6500z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1873, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)23528))); 
exit( -1 );} } 
return 
bgl_reverse(BgL_auxz00_6280);} } 
}



/* ereverse */
BGL_EXPORTED_DEF obj_t BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_59)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 573 */
{ /* ./Ieee/pairlist.scm 574 */
obj_t BgL_symbol2676z00_1717;
BgL_symbol2676z00_1717 = BGl_symbol6501z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 574 */

PUSH_TRACE(BgL_symbol2676z00_1717); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 574 */
obj_t BgL_aux2675z00_1718;
{ 
obj_t BgL_lz00_474;obj_t BgL_accz00_475;
{ /* ./Ieee/pairlist.scm 574 */
obj_t BgL_aux4411z00_2242;
BgL_lz00_474 = BgL_lz00_59; 
BgL_accz00_475 = BNIL; 
BgL_loopz00_476:
if(
NULLP(BgL_lz00_474))
{ /* ./Ieee/pairlist.scm 576 */
BgL_aux4411z00_2242 = BgL_accz00_475; }  else 
{ /* ./Ieee/pairlist.scm 578 */
obj_t BgL_arg1474z00_478;obj_t BgL_arg1475z00_479;
{ /* ./Ieee/pairlist.scm 578 */
obj_t BgL_pairz00_1188;
if(
PAIRP(BgL_lz00_474))
{ /* ./Ieee/pairlist.scm 578 */
BgL_pairz00_1188 = BgL_lz00_474; }  else 
{ /* ./Ieee/pairlist.scm 578 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6501z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_474, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)23957))); 
exit( -1 );} 
BgL_arg1474z00_478 = 
CDR(BgL_pairz00_1188); } 
{ /* ./Ieee/pairlist.scm 579 */
bool_t BgL_test1478z00_480;
BgL_test1478z00_480 = 
EXTENDED_PAIRP(BgL_lz00_474); 
if(BgL_test1478z00_480)
{ /* ./Ieee/pairlist.scm 580 */
obj_t BgL_arg1480z00_481;obj_t BgL_arg1481z00_482;
{ /* ./Ieee/pairlist.scm 580 */
obj_t BgL_pairz00_1190;
if(
PAIRP(BgL_lz00_474))
{ /* ./Ieee/pairlist.scm 580 */
BgL_pairz00_1190 = BgL_lz00_474; }  else 
{ /* ./Ieee/pairlist.scm 580 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6501z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_474, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)23995))); 
exit( -1 );} 
BgL_arg1480z00_481 = 
CAR(BgL_pairz00_1190); } 
{ /* ./Ieee/pairlist.scm 580 */
obj_t BgL_objz00_1191;
{ /* ./Ieee/pairlist.scm 580 */
bool_t BgL_test4392z00_2239;
BgL_test4392z00_2239 = 
EXTENDED_PAIRP(BgL_lz00_474); 
if(BgL_test4392z00_2239)
{ /* ./Ieee/pairlist.scm 580 */
BgL_objz00_1191 = BgL_lz00_474; }  else 
{ /* ./Ieee/pairlist.scm 580 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6501z00zz__r4_pairs_and_lists_6_3z00, BGl_string6421z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_474, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24007))); 
exit( -1 );} } 
BgL_arg1481z00_482 = 
CER(BgL_objz00_1191); } 
{ /* ./Ieee/pairlist.scm 580 */
obj_t BgL_res2488z00_1195;
BgL_res2488z00_1195 = 
MAKE_EXTENDED_PAIR(BgL_arg1480z00_481, BgL_accz00_475, BgL_arg1481z00_482); 
BgL_arg1475z00_479 = BgL_res2488z00_1195; } }  else 
{ /* ./Ieee/pairlist.scm 581 */
obj_t BgL_arg1486z00_483;
{ /* ./Ieee/pairlist.scm 581 */
obj_t BgL_pairz00_1196;
if(
PAIRP(BgL_lz00_474))
{ /* ./Ieee/pairlist.scm 581 */
BgL_pairz00_1196 = BgL_lz00_474; }  else 
{ /* ./Ieee/pairlist.scm 581 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6501z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_474, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24028))); 
exit( -1 );} 
BgL_arg1486z00_483 = 
CAR(BgL_pairz00_1196); } 
BgL_arg1475z00_479 = 
MAKE_PAIR(BgL_arg1486z00_483, BgL_accz00_475); } } 
{ 
obj_t BgL_accz00_6321;obj_t BgL_lz00_6320;
BgL_lz00_6320 = BgL_arg1474z00_478; 
BgL_accz00_6321 = BgL_arg1475z00_479; 
BgL_accz00_475 = BgL_accz00_6321; 
BgL_lz00_474 = BgL_lz00_6320; 
goto BgL_loopz00_476;} } 
{ /* ./Ieee/pairlist.scm 574 */
bool_t BgL_testz00_6322;
if(
PAIRP(BgL_aux4411z00_2242))
{ /* ./Ieee/pairlist.scm 574 */
BgL_testz00_6322 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 574 */
BgL_testz00_6322 = 
NULLP(BgL_aux4411z00_2242)
; } 
if(BgL_testz00_6322)
{ /* ./Ieee/pairlist.scm 574 */
BgL_aux2675z00_1718 = BgL_aux4411z00_2242; }  else 
{ /* ./Ieee/pairlist.scm 574 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6501z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_aux4411z00_2242, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)23879))); 
exit( -1 );} } } } 
POP_TRACE(); 
return BgL_aux2675z00_1718;} } } } 
}



/* _ereverse2871 */
obj_t BGl__ereverse2871z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1874, obj_t BgL_lz00_1875)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 573 */
{ /* ./Ieee/pairlist.scm 574 */
obj_t BgL_auxz00_6330;
{ /* ./Ieee/pairlist.scm 574 */
bool_t BgL_testz00_6331;
if(
PAIRP(BgL_lz00_1875))
{ /* ./Ieee/pairlist.scm 574 */
BgL_testz00_6331 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 574 */
BgL_testz00_6331 = 
NULLP(BgL_lz00_1875)
; } 
if(BgL_testz00_6331)
{ /* ./Ieee/pairlist.scm 574 */
BgL_auxz00_6330 = BgL_lz00_1875
; }  else 
{ /* ./Ieee/pairlist.scm 574 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6502z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1875, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)23879))); 
exit( -1 );} } 
return 
BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6330);} } 
}



/* list-tail */
BGL_EXPORTED_DEF obj_t BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_listz00_60, long BgL_kz00_61)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 586 */
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_symbol2680z00_1719;
BgL_symbol2680z00_1719 = BGl_symbol6503z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 587 */

PUSH_TRACE(BgL_symbol2680z00_1719); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_aux2679z00_1720;
if(
(BgL_kz00_61==((long)0)))
{ /* ./Ieee/pairlist.scm 587 */
BgL_aux2679z00_1720 = BgL_listz00_60; }  else 
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_arg1493z00_1198;long BgL_arg1494z00_1199;
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_pairz00_1203;
if(
PAIRP(BgL_listz00_60))
{ /* ./Ieee/pairlist.scm 587 */
BgL_pairz00_1203 = BgL_listz00_60; }  else 
{ /* ./Ieee/pairlist.scm 587 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6503z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_60, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24294))); 
exit( -1 );} 
BgL_arg1493z00_1198 = 
CDR(BgL_pairz00_1203); } 
BgL_arg1494z00_1199 = 
(BgL_kz00_61-((long)1)); 
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_res2489z00_1217;
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_listz00_1206;
{ /* ./Ieee/pairlist.scm 587 */
bool_t BgL_testz00_6349;
if(
PAIRP(BgL_arg1493z00_1198))
{ /* ./Ieee/pairlist.scm 587 */
BgL_testz00_6349 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 587 */
BgL_testz00_6349 = 
NULLP(BgL_arg1493z00_1198)
; } 
if(BgL_testz00_6349)
{ /* ./Ieee/pairlist.scm 587 */
BgL_listz00_1206 = BgL_arg1493z00_1198; }  else 
{ /* ./Ieee/pairlist.scm 587 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6503z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1493z00_1198, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24294))); 
exit( -1 );} } 
if(
(BgL_arg1494z00_1199==((long)0)))
{ /* ./Ieee/pairlist.scm 587 */
BgL_res2489z00_1217 = BgL_listz00_1206; }  else 
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_arg1493z00_1209;long BgL_arg1494z00_1210;
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_pairz00_1214;
if(
PAIRP(BgL_listz00_1206))
{ /* ./Ieee/pairlist.scm 587 */
BgL_pairz00_1214 = BgL_listz00_1206; }  else 
{ /* ./Ieee/pairlist.scm 587 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6503z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1206, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24294))); 
exit( -1 );} 
BgL_arg1493z00_1209 = 
CDR(BgL_pairz00_1214); } 
BgL_arg1494z00_1210 = 
(BgL_arg1494z00_1199-((long)1)); 
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_auxz00_6365;
{ /* ./Ieee/pairlist.scm 587 */
bool_t BgL_testz00_6366;
if(
PAIRP(BgL_arg1493z00_1209))
{ /* ./Ieee/pairlist.scm 587 */
BgL_testz00_6366 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 587 */
BgL_testz00_6366 = 
NULLP(BgL_arg1493z00_1209)
; } 
if(BgL_testz00_6366)
{ /* ./Ieee/pairlist.scm 587 */
BgL_auxz00_6365 = BgL_arg1493z00_1209
; }  else 
{ /* ./Ieee/pairlist.scm 587 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6503z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1493z00_1209, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24294))); 
exit( -1 );} } 
BgL_res2489z00_1217 = 
BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6365, BgL_arg1494z00_1210); } } } 
BgL_aux2679z00_1720 = BgL_res2489z00_1217; } } 
POP_TRACE(); 
return BgL_aux2679z00_1720;} } } } 
}



/* _list-tail2873 */
obj_t BGl__listzd2tail2873zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1876, obj_t BgL_listz00_1877, obj_t BgL_kz00_1878)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 586 */
{ /* ./Ieee/pairlist.scm 587 */
long BgL_auxz00_6383;obj_t BgL_auxz00_6375;
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_auxz00_6384;
if(
INTEGERP(BgL_kz00_1878))
{ /* ./Ieee/pairlist.scm 587 */
BgL_auxz00_6384 = BgL_kz00_1878
; }  else 
{ /* ./Ieee/pairlist.scm 587 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6504z00zz__r4_pairs_and_lists_6_3z00, BGl_string6505z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_1878, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24294))); 
exit( -1 );} 
BgL_auxz00_6383 = 
(long)CINT(BgL_auxz00_6384); } 
{ /* ./Ieee/pairlist.scm 587 */
bool_t BgL_testz00_6376;
if(
PAIRP(BgL_listz00_1877))
{ /* ./Ieee/pairlist.scm 587 */
BgL_testz00_6376 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 587 */
BgL_testz00_6376 = 
NULLP(BgL_listz00_1877)
; } 
if(BgL_testz00_6376)
{ /* ./Ieee/pairlist.scm 587 */
BgL_auxz00_6375 = BgL_listz00_1877
; }  else 
{ /* ./Ieee/pairlist.scm 587 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6504z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1877, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24294))); 
exit( -1 );} } 
return 
BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6375, BgL_auxz00_6383);} } 
}



/* list-ref */
BGL_EXPORTED_DEF obj_t bgl_list_ref(obj_t BgL_listz00_62, long BgL_kz00_63)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 594 */
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_symbol2684z00_1721;
BgL_symbol2684z00_1721 = BGl_symbol6506z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 595 */

PUSH_TRACE(BgL_symbol2684z00_1721); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_aux2683z00_1722;
if(
(BgL_kz00_63==((long)0)))
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_pairz00_1224;
if(
PAIRP(BgL_listz00_62))
{ /* ./Ieee/pairlist.scm 595 */
BgL_pairz00_1224 = BgL_listz00_62; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6506z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_62, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24616))); 
exit( -1 );} 
BgL_aux2683z00_1722 = 
CAR(BgL_pairz00_1224); }  else 
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_arg1502z00_1219;long BgL_arg1503z00_1220;
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_pairz00_1225;
if(
PAIRP(BgL_listz00_62))
{ /* ./Ieee/pairlist.scm 595 */
BgL_pairz00_1225 = BgL_listz00_62; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6506z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_62, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24616))); 
exit( -1 );} 
BgL_arg1502z00_1219 = 
CDR(BgL_pairz00_1225); } 
BgL_arg1503z00_1220 = 
(BgL_kz00_63-((long)1)); 
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_listz00_1228;
{ /* ./Ieee/pairlist.scm 595 */
bool_t BgL_testz00_6408;
if(
PAIRP(BgL_arg1502z00_1219))
{ /* ./Ieee/pairlist.scm 595 */
BgL_testz00_6408 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BgL_testz00_6408 = 
NULLP(BgL_arg1502z00_1219)
; } 
if(BgL_testz00_6408)
{ /* ./Ieee/pairlist.scm 595 */
BgL_listz00_1228 = BgL_arg1502z00_1219; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6506z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1502z00_1219, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24616))); 
exit( -1 );} } 
if(
(BgL_arg1503z00_1220==((long)0)))
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_pairz00_1236;
if(
PAIRP(BgL_listz00_1228))
{ /* ./Ieee/pairlist.scm 595 */
BgL_pairz00_1236 = BgL_listz00_1228; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6506z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1228, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24616))); 
exit( -1 );} 
BgL_aux2683z00_1722 = 
CAR(BgL_pairz00_1236); }  else 
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_arg1502z00_1231;long BgL_arg1503z00_1232;
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_pairz00_1237;
if(
PAIRP(BgL_listz00_1228))
{ /* ./Ieee/pairlist.scm 595 */
BgL_pairz00_1237 = BgL_listz00_1228; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6506z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1228, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24616))); 
exit( -1 );} 
BgL_arg1502z00_1231 = 
CDR(BgL_pairz00_1237); } 
BgL_arg1503z00_1232 = 
(BgL_arg1503z00_1220-((long)1)); 
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_auxz00_6430;
{ /* ./Ieee/pairlist.scm 595 */
bool_t BgL_testz00_6431;
if(
PAIRP(BgL_arg1502z00_1231))
{ /* ./Ieee/pairlist.scm 595 */
BgL_testz00_6431 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BgL_testz00_6431 = 
NULLP(BgL_arg1502z00_1231)
; } 
if(BgL_testz00_6431)
{ /* ./Ieee/pairlist.scm 595 */
BgL_auxz00_6430 = BgL_arg1502z00_1231
; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6506z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1502z00_1231, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24616))); 
exit( -1 );} } 
BgL_aux2683z00_1722 = 
bgl_list_ref(BgL_auxz00_6430, BgL_arg1503z00_1232); } } } } 
POP_TRACE(); 
return BgL_aux2683z00_1722;} } } } 
}



/* _list-ref2875 */
obj_t BGl__listzd2ref2875zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1879, obj_t BgL_listz00_1880, obj_t BgL_kz00_1881)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 594 */
{ /* ./Ieee/pairlist.scm 595 */
long BgL_auxz00_6448;obj_t BgL_auxz00_6440;
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_auxz00_6449;
if(
INTEGERP(BgL_kz00_1881))
{ /* ./Ieee/pairlist.scm 595 */
BgL_auxz00_6449 = BgL_kz00_1881
; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6507z00zz__r4_pairs_and_lists_6_3z00, BGl_string6505z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_1881, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24616))); 
exit( -1 );} 
BgL_auxz00_6448 = 
(long)CINT(BgL_auxz00_6449); } 
{ /* ./Ieee/pairlist.scm 595 */
bool_t BgL_testz00_6441;
if(
PAIRP(BgL_listz00_1880))
{ /* ./Ieee/pairlist.scm 595 */
BgL_testz00_6441 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BgL_testz00_6441 = 
NULLP(BgL_listz00_1880)
; } 
if(BgL_testz00_6441)
{ /* ./Ieee/pairlist.scm 595 */
BgL_auxz00_6440 = BgL_listz00_1880
; }  else 
{ /* ./Ieee/pairlist.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6507z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1880, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24616))); 
exit( -1 );} } 
return 
bgl_list_ref(BgL_auxz00_6440, BgL_auxz00_6448);} } 
}



/* list-set! */
BGL_EXPORTED_DEF obj_t BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_listz00_64, long BgL_kz00_65, obj_t BgL_valz00_66)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 602 */
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_symbol2688z00_1723;
BgL_symbol2688z00_1723 = BGl_symbol6508z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 603 */

PUSH_TRACE(BgL_symbol2688z00_1723); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_aux2687z00_1724;
if(
(BgL_kz00_65==((long)0)))
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_pairz00_1246;
if(
PAIRP(BgL_listz00_64))
{ /* ./Ieee/pairlist.scm 603 */
BgL_pairz00_1246 = BgL_listz00_64; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6508z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_64, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24948))); 
exit( -1 );} 
BgL_aux2687z00_1724 = 
SET_CAR(BgL_pairz00_1246, BgL_valz00_66); }  else 
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_arg1511z00_1241;long BgL_arg1512z00_1242;
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_pairz00_1248;
if(
PAIRP(BgL_listz00_64))
{ /* ./Ieee/pairlist.scm 603 */
BgL_pairz00_1248 = BgL_listz00_64; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6508z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_64, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24948))); 
exit( -1 );} 
BgL_arg1511z00_1241 = 
CDR(BgL_pairz00_1248); } 
BgL_arg1512z00_1242 = 
(BgL_kz00_65-((long)1)); 
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_listz00_1251;
{ /* ./Ieee/pairlist.scm 603 */
bool_t BgL_testz00_6473;
if(
PAIRP(BgL_arg1511z00_1241))
{ /* ./Ieee/pairlist.scm 603 */
BgL_testz00_6473 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BgL_testz00_6473 = 
NULLP(BgL_arg1511z00_1241)
; } 
if(BgL_testz00_6473)
{ /* ./Ieee/pairlist.scm 603 */
BgL_listz00_1251 = BgL_arg1511z00_1241; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6508z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1511z00_1241, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24948))); 
exit( -1 );} } 
if(
(BgL_arg1512z00_1242==((long)0)))
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_pairz00_1260;
if(
PAIRP(BgL_listz00_1251))
{ /* ./Ieee/pairlist.scm 603 */
BgL_pairz00_1260 = BgL_listz00_1251; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6508z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1251, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24948))); 
exit( -1 );} 
BgL_aux2687z00_1724 = 
SET_CAR(BgL_pairz00_1260, BgL_valz00_66); }  else 
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_arg1511z00_1255;long BgL_arg1512z00_1256;
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_pairz00_1262;
if(
PAIRP(BgL_listz00_1251))
{ /* ./Ieee/pairlist.scm 603 */
BgL_pairz00_1262 = BgL_listz00_1251; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6508z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1251, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24948))); 
exit( -1 );} 
BgL_arg1511z00_1255 = 
CDR(BgL_pairz00_1262); } 
BgL_arg1512z00_1256 = 
(BgL_arg1512z00_1242-((long)1)); 
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_auxz00_6495;
{ /* ./Ieee/pairlist.scm 603 */
bool_t BgL_testz00_6496;
if(
PAIRP(BgL_arg1511z00_1255))
{ /* ./Ieee/pairlist.scm 603 */
BgL_testz00_6496 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BgL_testz00_6496 = 
NULLP(BgL_arg1511z00_1255)
; } 
if(BgL_testz00_6496)
{ /* ./Ieee/pairlist.scm 603 */
BgL_auxz00_6495 = BgL_arg1511z00_1255
; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6508z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1511z00_1255, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24948))); 
exit( -1 );} } 
BgL_aux2687z00_1724 = 
BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6495, BgL_arg1512z00_1256, BgL_valz00_66); } } } } 
POP_TRACE(); 
return BgL_aux2687z00_1724;} } } } 
}



/* _list-set!2877 */
obj_t BGl__listzd2setz122877zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1882, obj_t BgL_listz00_1883, obj_t BgL_kz00_1884, obj_t BgL_valz00_1885)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 602 */
{ /* ./Ieee/pairlist.scm 603 */
long BgL_auxz00_6513;obj_t BgL_auxz00_6505;
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_auxz00_6514;
if(
INTEGERP(BgL_kz00_1884))
{ /* ./Ieee/pairlist.scm 603 */
BgL_auxz00_6514 = BgL_kz00_1884
; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6509z00zz__r4_pairs_and_lists_6_3z00, BGl_string6505z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_1884, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24948))); 
exit( -1 );} 
BgL_auxz00_6513 = 
(long)CINT(BgL_auxz00_6514); } 
{ /* ./Ieee/pairlist.scm 603 */
bool_t BgL_testz00_6506;
if(
PAIRP(BgL_listz00_1883))
{ /* ./Ieee/pairlist.scm 603 */
BgL_testz00_6506 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BgL_testz00_6506 = 
NULLP(BgL_listz00_1883)
; } 
if(BgL_testz00_6506)
{ /* ./Ieee/pairlist.scm 603 */
BgL_auxz00_6505 = BgL_listz00_1883
; }  else 
{ /* ./Ieee/pairlist.scm 603 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6509z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1883, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)24948))); 
exit( -1 );} } 
return 
BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6505, BgL_auxz00_6513, BgL_valz00_1885);} } 
}



/* last-pair */
BGL_EXPORTED_DEF obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_67)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 610 */
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_symbol2692z00_1725;
BgL_symbol2692z00_1725 = BGl_symbol6510z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 611 */

PUSH_TRACE(BgL_symbol2692z00_1725); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_aux2691z00_1726;
{ /* ./Ieee/pairlist.scm 611 */
bool_t BgL_testz00_6523;
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_auxz00_6524;
BgL_auxz00_6524 = 
CDR(BgL_xz00_67); 
BgL_testz00_6523 = 
PAIRP(BgL_auxz00_6524); } 
if(BgL_testz00_6523)
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_arg1519z00_1267;
BgL_arg1519z00_1267 = 
CDR(BgL_xz00_67); 
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_res2490z00_1278;
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_xz00_1271;
if(
PAIRP(BgL_arg1519z00_1267))
{ /* ./Ieee/pairlist.scm 611 */
BgL_xz00_1271 = BgL_arg1519z00_1267; }  else 
{ /* ./Ieee/pairlist.scm 611 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6510z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1519z00_1267, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)25296))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 611 */
bool_t BgL_testz00_6533;
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_auxz00_6534;
BgL_auxz00_6534 = 
CDR(BgL_xz00_1271); 
BgL_testz00_6533 = 
PAIRP(BgL_auxz00_6534); } 
if(BgL_testz00_6533)
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_arg1519z00_1274;
BgL_arg1519z00_1274 = 
CDR(BgL_xz00_1271); 
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_auxz00_6538;
if(
PAIRP(BgL_arg1519z00_1274))
{ /* ./Ieee/pairlist.scm 611 */
BgL_auxz00_6538 = BgL_arg1519z00_1274
; }  else 
{ /* ./Ieee/pairlist.scm 611 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6510z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1519z00_1274, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)25296))); 
exit( -1 );} 
BgL_res2490z00_1278 = 
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6538); } }  else 
{ /* ./Ieee/pairlist.scm 611 */
BgL_res2490z00_1278 = BgL_xz00_1271; } } } 
BgL_aux2691z00_1726 = BgL_res2490z00_1278; } }  else 
{ /* ./Ieee/pairlist.scm 611 */
BgL_aux2691z00_1726 = BgL_xz00_67; } } 
POP_TRACE(); 
return BgL_aux2691z00_1726;} } } } 
}



/* _last-pair2879 */
obj_t BGl__lastzd2pair2879zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1886, obj_t BgL_xz00_1887)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 610 */
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_auxz00_6546;
if(
PAIRP(BgL_xz00_1887))
{ /* ./Ieee/pairlist.scm 611 */
BgL_auxz00_6546 = BgL_xz00_1887
; }  else 
{ /* ./Ieee/pairlist.scm 611 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6511z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_1887, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)25296))); 
exit( -1 );} 
return 
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6546);} } 
}



/* memq */
BGL_EXPORTED_DEF obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_68, obj_t BgL_listz00_69)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 618 */
{ /* ./Ieee/pairlist.scm 619 */
obj_t BgL_symbol2696z00_1727;
BgL_symbol2696z00_1727 = BGl_symbol6512z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 619 */

PUSH_TRACE(BgL_symbol2696z00_1727); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 619 */
obj_t BgL_aux2695z00_1728;
{ 
obj_t BgL_listz00_496;
BgL_listz00_496 = BgL_listz00_69; 
BgL_loopz00_497:
{ /* ./Ieee/pairlist.scm 620 */
bool_t BgL_test1528z00_498;
BgL_test1528z00_498 = 
PAIRP(BgL_listz00_496); 
if(BgL_test1528z00_498)
{ /* ./Ieee/pairlist.scm 621 */
bool_t BgL_test1529z00_499;
{ /* ./Ieee/pairlist.scm 621 */
obj_t BgL_arg1535z00_501;
{ /* ./Ieee/pairlist.scm 621 */
obj_t BgL_pairz00_1280;
if(BgL_test1528z00_498)
{ /* ./Ieee/pairlist.scm 621 */
BgL_pairz00_1280 = BgL_listz00_496; }  else 
{ /* ./Ieee/pairlist.scm 621 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6512z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_496, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)25660))); 
exit( -1 );} 
BgL_arg1535z00_501 = 
CAR(BgL_pairz00_1280); } 
BgL_test1529z00_499 = 
(BgL_arg1535z00_501==BgL_objz00_68); } 
if(BgL_test1529z00_499)
{ /* ./Ieee/pairlist.scm 621 */
BgL_aux2695z00_1728 = BgL_listz00_496; }  else 
{ /* ./Ieee/pairlist.scm 623 */
obj_t BgL_arg1531z00_500;
{ /* ./Ieee/pairlist.scm 623 */
obj_t BgL_pairz00_1281;
if(
PAIRP(BgL_listz00_496))
{ /* ./Ieee/pairlist.scm 623 */
BgL_pairz00_1281 = BgL_listz00_496; }  else 
{ /* ./Ieee/pairlist.scm 623 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6512z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_496, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)25701))); 
exit( -1 );} 
BgL_arg1531z00_500 = 
CDR(BgL_pairz00_1281); } 
{ 
obj_t BgL_listz00_6569;
BgL_listz00_6569 = BgL_arg1531z00_500; 
BgL_listz00_496 = BgL_listz00_6569; 
goto BgL_loopz00_497;} } }  else 
{ /* ./Ieee/pairlist.scm 620 */
BgL_aux2695z00_1728 = BFALSE; } } } 
POP_TRACE(); 
return BgL_aux2695z00_1728;} } } } 
}



/* _memq2881 */
obj_t BGl__memq2881z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1888, obj_t BgL_objz00_1889, obj_t BgL_listz00_1890)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 618 */
{ /* ./Ieee/pairlist.scm 619 */
obj_t BgL_auxz00_6571;
{ /* ./Ieee/pairlist.scm 619 */
bool_t BgL_testz00_6572;
if(
PAIRP(BgL_listz00_1890))
{ /* ./Ieee/pairlist.scm 619 */
BgL_testz00_6572 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 619 */
BgL_testz00_6572 = 
NULLP(BgL_listz00_1890)
; } 
if(BgL_testz00_6572)
{ /* ./Ieee/pairlist.scm 619 */
BgL_auxz00_6571 = BgL_listz00_1890
; }  else 
{ /* ./Ieee/pairlist.scm 619 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6513z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1890, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)25593))); 
exit( -1 );} } 
return 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1889, BgL_auxz00_6571);} } 
}



/* memv */
BGL_EXPORTED_DEF obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_70, obj_t BgL_listz00_71)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 629 */
{ /* ./Ieee/pairlist.scm 630 */
obj_t BgL_symbol2700z00_1729;
BgL_symbol2700z00_1729 = BGl_symbol6514z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 630 */

PUSH_TRACE(BgL_symbol2700z00_1729); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 630 */
obj_t BgL_aux2699z00_1730;
{ 
obj_t BgL_listz00_502;
BgL_listz00_502 = BgL_listz00_71; 
BgL_loopz00_503:
{ /* ./Ieee/pairlist.scm 631 */
bool_t BgL_test1540z00_504;
BgL_test1540z00_504 = 
PAIRP(BgL_listz00_502); 
if(BgL_test1540z00_504)
{ /* ./Ieee/pairlist.scm 632 */
bool_t BgL_test1541z00_505;
{ /* ./Ieee/pairlist.scm 632 */
obj_t BgL_arg1547z00_507;
{ /* ./Ieee/pairlist.scm 632 */
obj_t BgL_pairz00_1283;
if(BgL_test1540z00_504)
{ /* ./Ieee/pairlist.scm 632 */
BgL_pairz00_1283 = BgL_listz00_502; }  else 
{ /* ./Ieee/pairlist.scm 632 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6514z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_502, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)26033))); 
exit( -1 );} 
BgL_arg1547z00_507 = 
CAR(BgL_pairz00_1283); } 
BgL_test1541z00_505 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1547z00_507, BgL_objz00_70); } 
if(BgL_test1541z00_505)
{ /* ./Ieee/pairlist.scm 632 */
BgL_aux2699z00_1730 = BgL_listz00_502; }  else 
{ /* ./Ieee/pairlist.scm 634 */
obj_t BgL_arg1543z00_506;
{ /* ./Ieee/pairlist.scm 634 */
obj_t BgL_pairz00_1284;
if(
PAIRP(BgL_listz00_502))
{ /* ./Ieee/pairlist.scm 634 */
BgL_pairz00_1284 = BgL_listz00_502; }  else 
{ /* ./Ieee/pairlist.scm 634 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6514z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_502, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)26074))); 
exit( -1 );} 
BgL_arg1543z00_506 = 
CDR(BgL_pairz00_1284); } 
{ 
obj_t BgL_listz00_6596;
BgL_listz00_6596 = BgL_arg1543z00_506; 
BgL_listz00_502 = BgL_listz00_6596; 
goto BgL_loopz00_503;} } }  else 
{ /* ./Ieee/pairlist.scm 631 */
BgL_aux2699z00_1730 = BFALSE; } } } 
POP_TRACE(); 
return BgL_aux2699z00_1730;} } } } 
}



/* _memv2883 */
obj_t BGl__memv2883z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1891, obj_t BgL_objz00_1892, obj_t BgL_listz00_1893)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 629 */
{ /* ./Ieee/pairlist.scm 630 */
obj_t BgL_auxz00_6598;
{ /* ./Ieee/pairlist.scm 630 */
bool_t BgL_testz00_6599;
if(
PAIRP(BgL_listz00_1893))
{ /* ./Ieee/pairlist.scm 630 */
BgL_testz00_6599 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 630 */
BgL_testz00_6599 = 
NULLP(BgL_listz00_1893)
; } 
if(BgL_testz00_6599)
{ /* ./Ieee/pairlist.scm 630 */
BgL_auxz00_6598 = BgL_listz00_1893
; }  else 
{ /* ./Ieee/pairlist.scm 630 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6515z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1893, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)25965))); 
exit( -1 );} } 
return 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1892, BgL_auxz00_6598);} } 
}



/* member */
BGL_EXPORTED_DEF obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_72, obj_t BgL_listz00_73)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 640 */
{ /* ./Ieee/pairlist.scm 641 */
obj_t BgL_symbol2704z00_1731;
BgL_symbol2704z00_1731 = BGl_symbol6516z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 641 */

PUSH_TRACE(BgL_symbol2704z00_1731); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 641 */
obj_t BgL_aux2703z00_1732;
{ 
obj_t BgL_listz00_508;
BgL_listz00_508 = BgL_listz00_73; 
BgL_loopz00_509:
{ /* ./Ieee/pairlist.scm 643 */
bool_t BgL_test1552z00_510;
BgL_test1552z00_510 = 
PAIRP(BgL_listz00_508); 
if(BgL_test1552z00_510)
{ /* ./Ieee/pairlist.scm 644 */
bool_t BgL_test1553z00_511;
{ /* ./Ieee/pairlist.scm 644 */
obj_t BgL_arg1559z00_513;
{ /* ./Ieee/pairlist.scm 644 */
obj_t BgL_pairz00_1286;
if(BgL_test1552z00_510)
{ /* ./Ieee/pairlist.scm 644 */
BgL_pairz00_1286 = BgL_listz00_508; }  else 
{ /* ./Ieee/pairlist.scm 644 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6516z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_508, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)26425))); 
exit( -1 );} 
BgL_arg1559z00_513 = 
CAR(BgL_pairz00_1286); } 
BgL_test1553z00_511 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_objz00_72, BgL_arg1559z00_513); } 
if(BgL_test1553z00_511)
{ /* ./Ieee/pairlist.scm 644 */
BgL_aux2703z00_1732 = BgL_listz00_508; }  else 
{ /* ./Ieee/pairlist.scm 644 */
{ /* ./Ieee/pairlist.scm 645 */
obj_t BgL_arg1555z00_512;
{ /* ./Ieee/pairlist.scm 645 */
obj_t BgL_pairz00_1287;
if(
PAIRP(BgL_listz00_508))
{ /* ./Ieee/pairlist.scm 645 */
BgL_pairz00_1287 = BgL_listz00_508; }  else 
{ /* ./Ieee/pairlist.scm 645 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6516z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_508, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)26457))); 
exit( -1 );} 
BgL_arg1555z00_512 = 
CDR(BgL_pairz00_1287); } 
{ 
obj_t BgL_listz00_6623;
BgL_listz00_6623 = BgL_arg1555z00_512; 
BgL_listz00_508 = BgL_listz00_6623; 
goto BgL_loopz00_509;} } } }  else 
{ /* ./Ieee/pairlist.scm 643 */
BgL_aux2703z00_1732 = BFALSE; } } } 
POP_TRACE(); 
return BgL_aux2703z00_1732;} } } } 
}



/* _member2885 */
obj_t BGl__member2885z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1894, obj_t BgL_objz00_1895, obj_t BgL_listz00_1896)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 640 */
{ /* ./Ieee/pairlist.scm 641 */
obj_t BgL_auxz00_6625;
{ /* ./Ieee/pairlist.scm 641 */
bool_t BgL_testz00_6626;
if(
PAIRP(BgL_listz00_1896))
{ /* ./Ieee/pairlist.scm 641 */
BgL_testz00_6626 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 641 */
BgL_testz00_6626 = 
NULLP(BgL_listz00_1896)
; } 
if(BgL_testz00_6626)
{ /* ./Ieee/pairlist.scm 641 */
BgL_auxz00_6625 = BgL_listz00_1896
; }  else 
{ /* ./Ieee/pairlist.scm 641 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6517z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1896, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)26340))); 
exit( -1 );} } 
return 
BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1895, BgL_auxz00_6625);} } 
}



/* assq */
BGL_EXPORTED_DEF obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_74, obj_t BgL_alistz00_75)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 650 */
{ /* ./Ieee/pairlist.scm 651 */
obj_t BgL_symbol2708z00_1733;
BgL_symbol2708z00_1733 = BGl_symbol6518z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 651 */

PUSH_TRACE(BgL_symbol2708z00_1733); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 651 */
obj_t BgL_aux2707z00_1734;
{ 
obj_t BgL_alistz00_514;
BgL_alistz00_514 = BgL_alistz00_75; 
BgL_loopz00_515:
{ /* ./Ieee/pairlist.scm 652 */
bool_t BgL_test1564z00_516;
BgL_test1564z00_516 = 
PAIRP(BgL_alistz00_514); 
if(BgL_test1564z00_516)
{ /* ./Ieee/pairlist.scm 653 */
bool_t BgL_test1565z00_517;
{ /* ./Ieee/pairlist.scm 653 */
obj_t BgL_arg1572z00_519;
{ /* ./Ieee/pairlist.scm 653 */
obj_t BgL_arg1575z00_520;
{ /* ./Ieee/pairlist.scm 653 */
obj_t BgL_pairz00_1289;
if(BgL_test1564z00_516)
{ /* ./Ieee/pairlist.scm 653 */
BgL_pairz00_1289 = BgL_alistz00_514; }  else 
{ /* ./Ieee/pairlist.scm 653 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6518z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_514, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)26800))); 
exit( -1 );} 
BgL_arg1575z00_520 = 
CAR(BgL_pairz00_1289); } 
{ /* ./Ieee/pairlist.scm 653 */
obj_t BgL_pairz00_1290;
if(
PAIRP(BgL_arg1575z00_520))
{ /* ./Ieee/pairlist.scm 653 */
BgL_pairz00_1290 = BgL_arg1575z00_520; }  else 
{ /* ./Ieee/pairlist.scm 653 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6518z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1575z00_520, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)26801))); 
exit( -1 );} 
BgL_arg1572z00_519 = 
CAR(BgL_pairz00_1290); } } 
BgL_test1565z00_517 = 
(BgL_arg1572z00_519==BgL_objz00_74); } 
if(BgL_test1565z00_517)
{ /* ./Ieee/pairlist.scm 654 */
obj_t BgL_pairz00_1291;
if(
PAIRP(BgL_alistz00_514))
{ /* ./Ieee/pairlist.scm 654 */
BgL_pairz00_1291 = BgL_alistz00_514; }  else 
{ /* ./Ieee/pairlist.scm 654 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6518z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_514, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)26832))); 
exit( -1 );} 
BgL_aux2707z00_1734 = 
CAR(BgL_pairz00_1291); }  else 
{ /* ./Ieee/pairlist.scm 655 */
obj_t BgL_arg1568z00_518;
{ /* ./Ieee/pairlist.scm 655 */
obj_t BgL_pairz00_1292;
if(
PAIRP(BgL_alistz00_514))
{ /* ./Ieee/pairlist.scm 655 */
BgL_pairz00_1292 = BgL_alistz00_514; }  else 
{ /* ./Ieee/pairlist.scm 655 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6518z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_514, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)26864))); 
exit( -1 );} 
BgL_arg1568z00_518 = 
CDR(BgL_pairz00_1292); } 
{ 
obj_t BgL_alistz00_6662;
BgL_alistz00_6662 = BgL_arg1568z00_518; 
BgL_alistz00_514 = BgL_alistz00_6662; 
goto BgL_loopz00_515;} } }  else 
{ /* ./Ieee/pairlist.scm 652 */
BgL_aux2707z00_1734 = BFALSE; } } } 
POP_TRACE(); 
return BgL_aux2707z00_1734;} } } } 
}



/* _assq2887 */
obj_t BGl__assq2887z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1897, obj_t BgL_objz00_1898, obj_t BgL_alistz00_1899)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 650 */
{ /* ./Ieee/pairlist.scm 651 */
obj_t BgL_auxz00_6664;
{ /* ./Ieee/pairlist.scm 651 */
bool_t BgL_testz00_6665;
if(
PAIRP(BgL_alistz00_1899))
{ /* ./Ieee/pairlist.scm 651 */
BgL_testz00_6665 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 651 */
BgL_testz00_6665 = 
NULLP(BgL_alistz00_1899)
; } 
if(BgL_testz00_6665)
{ /* ./Ieee/pairlist.scm 651 */
BgL_auxz00_6664 = BgL_alistz00_1899
; }  else 
{ /* ./Ieee/pairlist.scm 651 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6519z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_1899, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)26717))); 
exit( -1 );} } 
return 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1898, BgL_auxz00_6664);} } 
}



/* assv */
BGL_EXPORTED_DEF obj_t BGl_assvz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_76, obj_t BgL_alistz00_77)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 661 */
{ /* ./Ieee/pairlist.scm 662 */
obj_t BgL_symbol2712z00_1735;
BgL_symbol2712z00_1735 = BGl_symbol6520z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 662 */

PUSH_TRACE(BgL_symbol2712z00_1735); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 662 */
obj_t BgL_aux2711z00_1736;
{ 
obj_t BgL_alistz00_521;
BgL_alistz00_521 = BgL_alistz00_77; 
BgL_loopz00_522:
{ /* ./Ieee/pairlist.scm 663 */
bool_t BgL_test1580z00_523;
BgL_test1580z00_523 = 
PAIRP(BgL_alistz00_521); 
if(BgL_test1580z00_523)
{ /* ./Ieee/pairlist.scm 664 */
bool_t BgL_test1581z00_524;
{ /* ./Ieee/pairlist.scm 664 */
obj_t BgL_arg1589z00_526;
{ /* ./Ieee/pairlist.scm 664 */
obj_t BgL_arg1593z00_527;
{ /* ./Ieee/pairlist.scm 664 */
obj_t BgL_pairz00_1294;
if(BgL_test1580z00_523)
{ /* ./Ieee/pairlist.scm 664 */
BgL_pairz00_1294 = BgL_alistz00_521; }  else 
{ /* ./Ieee/pairlist.scm 664 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6520z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_521, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)27220))); 
exit( -1 );} 
BgL_arg1593z00_527 = 
CAR(BgL_pairz00_1294); } 
{ /* ./Ieee/pairlist.scm 664 */
obj_t BgL_pairz00_1295;
if(
PAIRP(BgL_arg1593z00_527))
{ /* ./Ieee/pairlist.scm 664 */
BgL_pairz00_1295 = BgL_arg1593z00_527; }  else 
{ /* ./Ieee/pairlist.scm 664 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6520z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1593z00_527, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)27221))); 
exit( -1 );} 
BgL_arg1589z00_526 = 
CAR(BgL_pairz00_1295); } } 
BgL_test1581z00_524 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1589z00_526, BgL_objz00_76); } 
if(BgL_test1581z00_524)
{ /* ./Ieee/pairlist.scm 665 */
obj_t BgL_pairz00_1296;
if(
PAIRP(BgL_alistz00_521))
{ /* ./Ieee/pairlist.scm 665 */
BgL_pairz00_1296 = BgL_alistz00_521; }  else 
{ /* ./Ieee/pairlist.scm 665 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6520z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_521, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)27252))); 
exit( -1 );} 
BgL_aux2711z00_1736 = 
CAR(BgL_pairz00_1296); }  else 
{ /* ./Ieee/pairlist.scm 666 */
obj_t BgL_arg1585z00_525;
{ /* ./Ieee/pairlist.scm 666 */
obj_t BgL_pairz00_1297;
if(
PAIRP(BgL_alistz00_521))
{ /* ./Ieee/pairlist.scm 666 */
BgL_pairz00_1297 = BgL_alistz00_521; }  else 
{ /* ./Ieee/pairlist.scm 666 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6520z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_521, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)27284))); 
exit( -1 );} 
BgL_arg1585z00_525 = 
CDR(BgL_pairz00_1297); } 
{ 
obj_t BgL_alistz00_6701;
BgL_alistz00_6701 = BgL_arg1585z00_525; 
BgL_alistz00_521 = BgL_alistz00_6701; 
goto BgL_loopz00_522;} } }  else 
{ /* ./Ieee/pairlist.scm 663 */
BgL_aux2711z00_1736 = BFALSE; } } } 
POP_TRACE(); 
return BgL_aux2711z00_1736;} } } } 
}



/* _assv2889 */
obj_t BGl__assv2889z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1900, obj_t BgL_objz00_1901, obj_t BgL_alistz00_1902)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 661 */
{ /* ./Ieee/pairlist.scm 662 */
obj_t BgL_auxz00_6703;
{ /* ./Ieee/pairlist.scm 662 */
bool_t BgL_testz00_6704;
if(
PAIRP(BgL_alistz00_1902))
{ /* ./Ieee/pairlist.scm 662 */
BgL_testz00_6704 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 662 */
BgL_testz00_6704 = 
NULLP(BgL_alistz00_1902)
; } 
if(BgL_testz00_6704)
{ /* ./Ieee/pairlist.scm 662 */
BgL_auxz00_6703 = BgL_alistz00_1902
; }  else 
{ /* ./Ieee/pairlist.scm 662 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6521z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_1902, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)27136))); 
exit( -1 );} } 
return 
BGl_assvz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1901, BgL_auxz00_6703);} } 
}



/* assoc */
BGL_EXPORTED_DEF obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_78, obj_t BgL_alistz00_79)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 672 */
{ /* ./Ieee/pairlist.scm 673 */
obj_t BgL_symbol2716z00_1737;
BgL_symbol2716z00_1737 = BGl_symbol6522z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 673 */

PUSH_TRACE(BgL_symbol2716z00_1737); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 673 */
obj_t BgL_aux2715z00_1738;
{ 
obj_t BgL_alistz00_528;
BgL_alistz00_528 = BgL_alistz00_79; 
BgL_loopz00_529:
{ /* ./Ieee/pairlist.scm 674 */
bool_t BgL_test1598z00_530;
BgL_test1598z00_530 = 
PAIRP(BgL_alistz00_528); 
if(BgL_test1598z00_530)
{ /* ./Ieee/pairlist.scm 675 */
bool_t BgL_test1599z00_531;
{ /* ./Ieee/pairlist.scm 675 */
obj_t BgL_arg1606z00_533;
{ /* ./Ieee/pairlist.scm 675 */
obj_t BgL_arg1609z00_534;
{ /* ./Ieee/pairlist.scm 675 */
obj_t BgL_pairz00_1299;
if(BgL_test1598z00_530)
{ /* ./Ieee/pairlist.scm 675 */
BgL_pairz00_1299 = BgL_alistz00_528; }  else 
{ /* ./Ieee/pairlist.scm 675 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6522z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_528, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)27636))); 
exit( -1 );} 
BgL_arg1609z00_534 = 
CAR(BgL_pairz00_1299); } 
{ /* ./Ieee/pairlist.scm 675 */
obj_t BgL_pairz00_1300;
if(
PAIRP(BgL_arg1609z00_534))
{ /* ./Ieee/pairlist.scm 675 */
BgL_pairz00_1300 = BgL_arg1609z00_534; }  else 
{ /* ./Ieee/pairlist.scm 675 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6522z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1609z00_534, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)27637))); 
exit( -1 );} 
BgL_arg1606z00_533 = 
CAR(BgL_pairz00_1300); } } 
BgL_test1599z00_531 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1606z00_533, BgL_objz00_78); } 
if(BgL_test1599z00_531)
{ /* ./Ieee/pairlist.scm 676 */
obj_t BgL_pairz00_1301;
if(
PAIRP(BgL_alistz00_528))
{ /* ./Ieee/pairlist.scm 676 */
BgL_pairz00_1301 = BgL_alistz00_528; }  else 
{ /* ./Ieee/pairlist.scm 676 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6522z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_528, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)27668))); 
exit( -1 );} 
BgL_aux2715z00_1738 = 
CAR(BgL_pairz00_1301); }  else 
{ /* ./Ieee/pairlist.scm 677 */
obj_t BgL_arg1602z00_532;
{ /* ./Ieee/pairlist.scm 677 */
obj_t BgL_pairz00_1302;
if(
PAIRP(BgL_alistz00_528))
{ /* ./Ieee/pairlist.scm 677 */
BgL_pairz00_1302 = BgL_alistz00_528; }  else 
{ /* ./Ieee/pairlist.scm 677 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6522z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_528, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)27700))); 
exit( -1 );} 
BgL_arg1602z00_532 = 
CDR(BgL_pairz00_1302); } 
{ 
obj_t BgL_alistz00_6740;
BgL_alistz00_6740 = BgL_arg1602z00_532; 
BgL_alistz00_528 = BgL_alistz00_6740; 
goto BgL_loopz00_529;} } }  else 
{ /* ./Ieee/pairlist.scm 674 */
BgL_aux2715z00_1738 = BFALSE; } } } 
POP_TRACE(); 
return BgL_aux2715z00_1738;} } } } 
}



/* _assoc2891 */
obj_t BGl__assoc2891z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1903, obj_t BgL_objz00_1904, obj_t BgL_alistz00_1905)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 672 */
{ /* ./Ieee/pairlist.scm 673 */
obj_t BgL_auxz00_6742;
{ /* ./Ieee/pairlist.scm 673 */
bool_t BgL_testz00_6743;
if(
PAIRP(BgL_alistz00_1905))
{ /* ./Ieee/pairlist.scm 673 */
BgL_testz00_6743 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 673 */
BgL_testz00_6743 = 
NULLP(BgL_alistz00_1905)
; } 
if(BgL_testz00_6743)
{ /* ./Ieee/pairlist.scm 673 */
BgL_auxz00_6742 = BgL_alistz00_1905
; }  else 
{ /* ./Ieee/pairlist.scm 673 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6523z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_1905, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)27550))); 
exit( -1 );} } 
return 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_1904, BgL_auxz00_6742);} } 
}



/* remq */
BGL_EXPORTED_DEF obj_t BGl_remqz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_80, obj_t BgL_yz00_81)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 686 */
{ /* ./Ieee/pairlist.scm 688 */
obj_t BgL_symbol2720z00_1739;
BgL_symbol2720z00_1739 = BGl_symbol6524z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 688 */

PUSH_TRACE(BgL_symbol2720z00_1739); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 688 */
obj_t BgL_aux2719z00_1740;
if(
NULLP(BgL_yz00_81))
{ /* ./Ieee/pairlist.scm 688 */
BgL_aux2719z00_1740 = BgL_yz00_81; }  else 
{ /* ./Ieee/pairlist.scm 689 */
bool_t BgL_test1614z00_536;
{ /* ./Ieee/pairlist.scm 689 */
obj_t BgL_arg1629z00_541;
{ /* ./Ieee/pairlist.scm 689 */
obj_t BgL_pairz00_1304;
if(
PAIRP(BgL_yz00_81))
{ /* ./Ieee/pairlist.scm 689 */
BgL_pairz00_1304 = BgL_yz00_81; }  else 
{ /* ./Ieee/pairlist.scm 689 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6524z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_81, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28226))); 
exit( -1 );} 
BgL_arg1629z00_541 = 
CAR(BgL_pairz00_1304); } 
BgL_test1614z00_536 = 
(BgL_xz00_80==BgL_arg1629z00_541); } 
if(BgL_test1614z00_536)
{ /* ./Ieee/pairlist.scm 689 */
{ /* ./Ieee/pairlist.scm 689 */
obj_t BgL_arg1616z00_537;
{ /* ./Ieee/pairlist.scm 689 */
obj_t BgL_pairz00_1305;
if(
PAIRP(BgL_yz00_81))
{ /* ./Ieee/pairlist.scm 689 */
BgL_pairz00_1305 = BgL_yz00_81; }  else 
{ /* ./Ieee/pairlist.scm 689 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6524z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_81, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28243))); 
exit( -1 );} 
BgL_arg1616z00_537 = 
CDR(BgL_pairz00_1305); } 
{ /* ./Ieee/pairlist.scm 689 */
obj_t BgL_auxz00_6768;
{ /* ./Ieee/pairlist.scm 689 */
bool_t BgL_testz00_6769;
if(
PAIRP(BgL_arg1616z00_537))
{ /* ./Ieee/pairlist.scm 689 */
BgL_testz00_6769 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 689 */
BgL_testz00_6769 = 
NULLP(BgL_arg1616z00_537)
; } 
if(BgL_testz00_6769)
{ /* ./Ieee/pairlist.scm 689 */
BgL_auxz00_6768 = BgL_arg1616z00_537
; }  else 
{ /* ./Ieee/pairlist.scm 689 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6524z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1616z00_537, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28244))); 
exit( -1 );} } 
BgL_aux2719z00_1740 = 
BGl_remqz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_80, BgL_auxz00_6768); } } }  else 
{ /* ./Ieee/pairlist.scm 689 */
{ /* ./Ieee/pairlist.scm 690 */
obj_t BgL_arg1620z00_538;obj_t BgL_arg1621z00_539;
{ /* ./Ieee/pairlist.scm 690 */
obj_t BgL_pairz00_1306;
if(
PAIRP(BgL_yz00_81))
{ /* ./Ieee/pairlist.scm 690 */
BgL_pairz00_1306 = BgL_yz00_81; }  else 
{ /* ./Ieee/pairlist.scm 690 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6524z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_81, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28271))); 
exit( -1 );} 
BgL_arg1620z00_538 = 
CAR(BgL_pairz00_1306); } 
{ /* ./Ieee/pairlist.scm 690 */
obj_t BgL_arg1625z00_540;
{ /* ./Ieee/pairlist.scm 690 */
obj_t BgL_pairz00_1307;
if(
PAIRP(BgL_yz00_81))
{ /* ./Ieee/pairlist.scm 690 */
BgL_pairz00_1307 = BgL_yz00_81; }  else 
{ /* ./Ieee/pairlist.scm 690 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6524z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_81, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28287))); 
exit( -1 );} 
BgL_arg1625z00_540 = 
CDR(BgL_pairz00_1307); } 
{ /* ./Ieee/pairlist.scm 690 */
obj_t BgL_auxz00_6789;
{ /* ./Ieee/pairlist.scm 690 */
bool_t BgL_testz00_6790;
if(
PAIRP(BgL_arg1625z00_540))
{ /* ./Ieee/pairlist.scm 690 */
BgL_testz00_6790 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 690 */
BgL_testz00_6790 = 
NULLP(BgL_arg1625z00_540)
; } 
if(BgL_testz00_6790)
{ /* ./Ieee/pairlist.scm 690 */
BgL_auxz00_6789 = BgL_arg1625z00_540
; }  else 
{ /* ./Ieee/pairlist.scm 690 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6524z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1625z00_540, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28288))); 
exit( -1 );} } 
BgL_arg1621z00_539 = 
BGl_remqz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_80, BgL_auxz00_6789); } } 
BgL_aux2719z00_1740 = 
MAKE_PAIR(BgL_arg1620z00_538, BgL_arg1621z00_539); } } } 
POP_TRACE(); 
return BgL_aux2719z00_1740;} } } } 
}



/* _remq2893 */
obj_t BGl__remq2893z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1906, obj_t BgL_xz00_1907, obj_t BgL_yz00_1908)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 686 */
{ /* ./Ieee/pairlist.scm 688 */
obj_t BgL_auxz00_6800;
{ /* ./Ieee/pairlist.scm 688 */
bool_t BgL_testz00_6801;
if(
PAIRP(BgL_yz00_1908))
{ /* ./Ieee/pairlist.scm 688 */
BgL_testz00_6801 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 688 */
BgL_testz00_6801 = 
NULLP(BgL_yz00_1908)
; } 
if(BgL_testz00_6801)
{ /* ./Ieee/pairlist.scm 688 */
BgL_auxz00_6800 = BgL_yz00_1908
; }  else 
{ /* ./Ieee/pairlist.scm 688 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6525z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1908, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28194))); 
exit( -1 );} } 
return 
BGl_remqz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1907, BgL_auxz00_6800);} } 
}



/* delete */
BGL_EXPORTED_DEF obj_t BGl_deletez00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_82, obj_t BgL_yz00_83)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 695 */
{ /* ./Ieee/pairlist.scm 697 */
obj_t BgL_symbol2724z00_1741;
BgL_symbol2724z00_1741 = BGl_symbol6526z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 697 */

PUSH_TRACE(BgL_symbol2724z00_1741); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 697 */
obj_t BgL_aux2723z00_1742;
if(
NULLP(BgL_yz00_83))
{ /* ./Ieee/pairlist.scm 697 */
BgL_aux2723z00_1742 = BgL_yz00_83; }  else 
{ /* ./Ieee/pairlist.scm 698 */
bool_t BgL_test1634z00_543;
{ /* ./Ieee/pairlist.scm 698 */
obj_t BgL_arg1649z00_548;
{ /* ./Ieee/pairlist.scm 698 */
obj_t BgL_pairz00_1309;
if(
PAIRP(BgL_yz00_83))
{ /* ./Ieee/pairlist.scm 698 */
BgL_pairz00_1309 = BgL_yz00_83; }  else 
{ /* ./Ieee/pairlist.scm 698 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6526z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_83, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28590))); 
exit( -1 );} 
BgL_arg1649z00_548 = 
CAR(BgL_pairz00_1309); } 
BgL_test1634z00_543 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_xz00_82, BgL_arg1649z00_548); } 
if(BgL_test1634z00_543)
{ /* ./Ieee/pairlist.scm 698 */
{ /* ./Ieee/pairlist.scm 698 */
obj_t BgL_arg1636z00_544;
{ /* ./Ieee/pairlist.scm 698 */
obj_t BgL_pairz00_1310;
if(
PAIRP(BgL_yz00_83))
{ /* ./Ieee/pairlist.scm 698 */
BgL_pairz00_1310 = BgL_yz00_83; }  else 
{ /* ./Ieee/pairlist.scm 698 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6526z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_83, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28609))); 
exit( -1 );} 
BgL_arg1636z00_544 = 
CDR(BgL_pairz00_1310); } 
{ /* ./Ieee/pairlist.scm 698 */
obj_t BgL_auxz00_6826;
{ /* ./Ieee/pairlist.scm 698 */
bool_t BgL_testz00_6827;
if(
PAIRP(BgL_arg1636z00_544))
{ /* ./Ieee/pairlist.scm 698 */
BgL_testz00_6827 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 698 */
BgL_testz00_6827 = 
NULLP(BgL_arg1636z00_544)
; } 
if(BgL_testz00_6827)
{ /* ./Ieee/pairlist.scm 698 */
BgL_auxz00_6826 = BgL_arg1636z00_544
; }  else 
{ /* ./Ieee/pairlist.scm 698 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6526z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1636z00_544, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28610))); 
exit( -1 );} } 
BgL_aux2723z00_1742 = 
BGl_deletez00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_82, BgL_auxz00_6826); } } }  else 
{ /* ./Ieee/pairlist.scm 698 */
{ /* ./Ieee/pairlist.scm 699 */
obj_t BgL_arg1640z00_545;obj_t BgL_arg1641z00_546;
{ /* ./Ieee/pairlist.scm 699 */
obj_t BgL_pairz00_1311;
if(
PAIRP(BgL_yz00_83))
{ /* ./Ieee/pairlist.scm 699 */
BgL_pairz00_1311 = BgL_yz00_83; }  else 
{ /* ./Ieee/pairlist.scm 699 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6526z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_83, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28637))); 
exit( -1 );} 
BgL_arg1640z00_545 = 
CAR(BgL_pairz00_1311); } 
{ /* ./Ieee/pairlist.scm 699 */
obj_t BgL_arg1645z00_547;
{ /* ./Ieee/pairlist.scm 699 */
obj_t BgL_pairz00_1312;
if(
PAIRP(BgL_yz00_83))
{ /* ./Ieee/pairlist.scm 699 */
BgL_pairz00_1312 = BgL_yz00_83; }  else 
{ /* ./Ieee/pairlist.scm 699 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6526z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_83, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28655))); 
exit( -1 );} 
BgL_arg1645z00_547 = 
CDR(BgL_pairz00_1312); } 
{ /* ./Ieee/pairlist.scm 699 */
obj_t BgL_auxz00_6847;
{ /* ./Ieee/pairlist.scm 699 */
bool_t BgL_testz00_6848;
if(
PAIRP(BgL_arg1645z00_547))
{ /* ./Ieee/pairlist.scm 699 */
BgL_testz00_6848 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 699 */
BgL_testz00_6848 = 
NULLP(BgL_arg1645z00_547)
; } 
if(BgL_testz00_6848)
{ /* ./Ieee/pairlist.scm 699 */
BgL_auxz00_6847 = BgL_arg1645z00_547
; }  else 
{ /* ./Ieee/pairlist.scm 699 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6526z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1645z00_547, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28656))); 
exit( -1 );} } 
BgL_arg1641z00_546 = 
BGl_deletez00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_82, BgL_auxz00_6847); } } 
BgL_aux2723z00_1742 = 
MAKE_PAIR(BgL_arg1640z00_545, BgL_arg1641z00_546); } } } 
POP_TRACE(); 
return BgL_aux2723z00_1742;} } } } 
}



/* _delete2895 */
obj_t BGl__delete2895z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1909, obj_t BgL_xz00_1910, obj_t BgL_yz00_1911)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 695 */
{ /* ./Ieee/pairlist.scm 697 */
obj_t BgL_auxz00_6858;
{ /* ./Ieee/pairlist.scm 697 */
bool_t BgL_testz00_6859;
if(
PAIRP(BgL_yz00_1911))
{ /* ./Ieee/pairlist.scm 697 */
BgL_testz00_6859 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 697 */
BgL_testz00_6859 = 
NULLP(BgL_yz00_1911)
; } 
if(BgL_testz00_6859)
{ /* ./Ieee/pairlist.scm 697 */
BgL_auxz00_6858 = BgL_yz00_1911
; }  else 
{ /* ./Ieee/pairlist.scm 697 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6527z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1911, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28555))); 
exit( -1 );} } 
return 
BGl_deletez00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1910, BgL_auxz00_6858);} } 
}



/* remq! */
BGL_EXPORTED_DEF obj_t BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_84, obj_t BgL_yz00_85)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 704 */
{ /* ./Ieee/pairlist.scm 706 */
obj_t BgL_symbol2728z00_1743;
BgL_symbol2728z00_1743 = BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 706 */

PUSH_TRACE(BgL_symbol2728z00_1743); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 706 */
obj_t BgL_aux2727z00_1744;
if(
NULLP(BgL_yz00_85))
{ /* ./Ieee/pairlist.scm 706 */
BgL_aux2727z00_1744 = BgL_yz00_85; }  else 
{ /* ./Ieee/pairlist.scm 707 */
bool_t BgL_test1654z00_550;
{ /* ./Ieee/pairlist.scm 707 */
obj_t BgL_arg1680z00_560;
{ /* ./Ieee/pairlist.scm 707 */
obj_t BgL_pairz00_1314;
if(
PAIRP(BgL_yz00_85))
{ /* ./Ieee/pairlist.scm 707 */
BgL_pairz00_1314 = BgL_yz00_85; }  else 
{ /* ./Ieee/pairlist.scm 707 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_85, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28954))); 
exit( -1 );} 
BgL_arg1680z00_560 = 
CAR(BgL_pairz00_1314); } 
BgL_test1654z00_550 = 
(BgL_xz00_84==BgL_arg1680z00_560); } 
if(BgL_test1654z00_550)
{ /* ./Ieee/pairlist.scm 707 */
{ /* ./Ieee/pairlist.scm 707 */
obj_t BgL_arg1656z00_551;
{ /* ./Ieee/pairlist.scm 707 */
obj_t BgL_pairz00_1315;
if(
PAIRP(BgL_yz00_85))
{ /* ./Ieee/pairlist.scm 707 */
BgL_pairz00_1315 = BgL_yz00_85; }  else 
{ /* ./Ieee/pairlist.scm 707 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_85, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28972))); 
exit( -1 );} 
BgL_arg1656z00_551 = 
CDR(BgL_pairz00_1315); } 
{ /* ./Ieee/pairlist.scm 707 */
obj_t BgL_auxz00_6884;
{ /* ./Ieee/pairlist.scm 707 */
bool_t BgL_testz00_6885;
if(
PAIRP(BgL_arg1656z00_551))
{ /* ./Ieee/pairlist.scm 707 */
BgL_testz00_6885 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 707 */
BgL_testz00_6885 = 
NULLP(BgL_arg1656z00_551)
; } 
if(BgL_testz00_6885)
{ /* ./Ieee/pairlist.scm 707 */
BgL_auxz00_6884 = BgL_arg1656z00_551
; }  else 
{ /* ./Ieee/pairlist.scm 707 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1656z00_551, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28973))); 
exit( -1 );} } 
BgL_aux2727z00_1744 = 
BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00(BgL_xz00_84, BgL_auxz00_6884); } } }  else 
{ /* ./Ieee/pairlist.scm 707 */
{ 
obj_t BgL_prevz00_552;
BgL_prevz00_552 = BgL_yz00_85; 
BgL_loopz00_553:
{ /* ./Ieee/pairlist.scm 709 */
bool_t BgL_test1660z00_554;
{ /* ./Ieee/pairlist.scm 709 */
obj_t BgL_arg1676z00_559;
{ /* ./Ieee/pairlist.scm 709 */
obj_t BgL_pairz00_1316;
if(
PAIRP(BgL_prevz00_552))
{ /* ./Ieee/pairlist.scm 709 */
BgL_pairz00_1316 = BgL_prevz00_552; }  else 
{ /* ./Ieee/pairlist.scm 709 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_552, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29047))); 
exit( -1 );} 
BgL_arg1676z00_559 = 
CDR(BgL_pairz00_1316); } 
BgL_test1660z00_554 = 
NULLP(BgL_arg1676z00_559); } 
if(BgL_test1660z00_554)
{ /* ./Ieee/pairlist.scm 709 */
BgL_aux2727z00_1744 = BgL_yz00_85; }  else 
{ /* ./Ieee/pairlist.scm 711 */
bool_t BgL_test1661z00_555;
{ /* ./Ieee/pairlist.scm 711 */
obj_t BgL_arg1672z00_558;
{ /* ./Ieee/pairlist.scm 711 */
obj_t BgL_pairz00_1318;
if(
PAIRP(BgL_prevz00_552))
{ /* ./Ieee/pairlist.scm 711 */
BgL_pairz00_1318 = BgL_prevz00_552; }  else 
{ /* ./Ieee/pairlist.scm 711 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_552, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29112))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 711 */
obj_t BgL_arg1068z00_1319;
BgL_arg1068z00_1319 = 
CDR(BgL_pairz00_1318); 
{ /* ./Ieee/pairlist.scm 711 */
obj_t BgL_pairz00_1321;
if(
PAIRP(BgL_arg1068z00_1319))
{ /* ./Ieee/pairlist.scm 711 */
BgL_pairz00_1321 = BgL_arg1068z00_1319; }  else 
{ /* ./Ieee/pairlist.scm 711 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1068z00_1319, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29103))); 
exit( -1 );} 
BgL_arg1672z00_558 = 
CAR(BgL_pairz00_1321); } } } 
BgL_test1661z00_555 = 
(BgL_arg1672z00_558==BgL_xz00_84); } 
if(BgL_test1661z00_555)
{ /* ./Ieee/pairlist.scm 711 */
{ /* ./Ieee/pairlist.scm 712 */
obj_t BgL_arg1663z00_556;
{ /* ./Ieee/pairlist.scm 712 */
obj_t BgL_pairz00_1322;
if(
PAIRP(BgL_prevz00_552))
{ /* ./Ieee/pairlist.scm 712 */
BgL_pairz00_1322 = BgL_prevz00_552; }  else 
{ /* ./Ieee/pairlist.scm 712 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_552, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29164))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 712 */
obj_t BgL_arg1079z00_1323;
BgL_arg1079z00_1323 = 
CDR(BgL_pairz00_1322); 
{ /* ./Ieee/pairlist.scm 712 */
obj_t BgL_pairz00_1325;
if(
PAIRP(BgL_arg1079z00_1323))
{ /* ./Ieee/pairlist.scm 712 */
BgL_pairz00_1325 = BgL_arg1079z00_1323; }  else 
{ /* ./Ieee/pairlist.scm 712 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1079z00_1323, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29155))); 
exit( -1 );} 
BgL_arg1663z00_556 = 
CDR(BgL_pairz00_1325); } } } 
{ /* ./Ieee/pairlist.scm 712 */
obj_t BgL_pairz00_1326;
if(
PAIRP(BgL_prevz00_552))
{ /* ./Ieee/pairlist.scm 712 */
BgL_pairz00_1326 = BgL_prevz00_552; }  else 
{ /* ./Ieee/pairlist.scm 712 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_552, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29153))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_1326, BgL_arg1663z00_556); } } 
{ 

goto BgL_loopz00_553;} }  else 
{ /* ./Ieee/pairlist.scm 711 */
{ /* ./Ieee/pairlist.scm 714 */
obj_t BgL_arg1668z00_557;
{ /* ./Ieee/pairlist.scm 714 */
obj_t BgL_pairz00_1328;
if(
PAIRP(BgL_prevz00_552))
{ /* ./Ieee/pairlist.scm 714 */
BgL_pairz00_1328 = BgL_prevz00_552; }  else 
{ /* ./Ieee/pairlist.scm 714 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6528z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_552, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29244))); 
exit( -1 );} 
BgL_arg1668z00_557 = 
CDR(BgL_pairz00_1328); } 
{ 
obj_t BgL_prevz00_6939;
BgL_prevz00_6939 = BgL_arg1668z00_557; 
BgL_prevz00_552 = BgL_prevz00_6939; 
goto BgL_loopz00_553;} } } } } } } } 
POP_TRACE(); 
return BgL_aux2727z00_1744;} } } } 
}



/* _remq!2897 */
obj_t BGl__remqz122897z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1912, obj_t BgL_xz00_1913, obj_t BgL_yz00_1914)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 704 */
{ /* ./Ieee/pairlist.scm 706 */
obj_t BgL_auxz00_6941;
{ /* ./Ieee/pairlist.scm 706 */
bool_t BgL_testz00_6942;
if(
PAIRP(BgL_yz00_1914))
{ /* ./Ieee/pairlist.scm 706 */
BgL_testz00_6942 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 706 */
BgL_testz00_6942 = 
NULLP(BgL_yz00_1914)
; } 
if(BgL_testz00_6942)
{ /* ./Ieee/pairlist.scm 706 */
BgL_auxz00_6941 = BgL_yz00_1914
; }  else 
{ /* ./Ieee/pairlist.scm 706 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6529z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1914, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)28922))); 
exit( -1 );} } 
return 
BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1913, BgL_auxz00_6941);} } 
}



/* delete! */
BGL_EXPORTED_DEF obj_t BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_86, obj_t BgL_yz00_87)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 719 */
{ /* ./Ieee/pairlist.scm 721 */
obj_t BgL_symbol2732z00_1745;
BgL_symbol2732z00_1745 = BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 721 */

PUSH_TRACE(BgL_symbol2732z00_1745); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 721 */
obj_t BgL_aux2731z00_1746;
if(
NULLP(BgL_yz00_87))
{ /* ./Ieee/pairlist.scm 721 */
BgL_aux2731z00_1746 = BgL_yz00_87; }  else 
{ /* ./Ieee/pairlist.scm 722 */
bool_t BgL_test1685z00_562;
{ /* ./Ieee/pairlist.scm 722 */
obj_t BgL_arg1711z00_572;
{ /* ./Ieee/pairlist.scm 722 */
obj_t BgL_pairz00_1330;
if(
PAIRP(BgL_yz00_87))
{ /* ./Ieee/pairlist.scm 722 */
BgL_pairz00_1330 = BgL_yz00_87; }  else 
{ /* ./Ieee/pairlist.scm 722 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_87, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29550))); 
exit( -1 );} 
BgL_arg1711z00_572 = 
CAR(BgL_pairz00_1330); } 
BgL_test1685z00_562 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_xz00_86, BgL_arg1711z00_572); } 
if(BgL_test1685z00_562)
{ /* ./Ieee/pairlist.scm 722 */
{ /* ./Ieee/pairlist.scm 722 */
obj_t BgL_arg1687z00_563;
{ /* ./Ieee/pairlist.scm 722 */
obj_t BgL_pairz00_1331;
if(
PAIRP(BgL_yz00_87))
{ /* ./Ieee/pairlist.scm 722 */
BgL_pairz00_1331 = BgL_yz00_87; }  else 
{ /* ./Ieee/pairlist.scm 722 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_87, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29570))); 
exit( -1 );} 
BgL_arg1687z00_563 = 
CDR(BgL_pairz00_1331); } 
{ /* ./Ieee/pairlist.scm 722 */
obj_t BgL_auxz00_6967;
{ /* ./Ieee/pairlist.scm 722 */
bool_t BgL_testz00_6968;
if(
PAIRP(BgL_arg1687z00_563))
{ /* ./Ieee/pairlist.scm 722 */
BgL_testz00_6968 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 722 */
BgL_testz00_6968 = 
NULLP(BgL_arg1687z00_563)
; } 
if(BgL_testz00_6968)
{ /* ./Ieee/pairlist.scm 722 */
BgL_auxz00_6967 = BgL_arg1687z00_563
; }  else 
{ /* ./Ieee/pairlist.scm 722 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1687z00_563, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29571))); 
exit( -1 );} } 
BgL_aux2731z00_1746 = 
BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(BgL_xz00_86, BgL_auxz00_6967); } } }  else 
{ /* ./Ieee/pairlist.scm 722 */
{ 
obj_t BgL_prevz00_564;
BgL_prevz00_564 = BgL_yz00_87; 
BgL_loopz00_565:
{ /* ./Ieee/pairlist.scm 724 */
bool_t BgL_test1691z00_566;
{ /* ./Ieee/pairlist.scm 724 */
obj_t BgL_arg1707z00_571;
{ /* ./Ieee/pairlist.scm 724 */
obj_t BgL_pairz00_1332;
if(
PAIRP(BgL_prevz00_564))
{ /* ./Ieee/pairlist.scm 724 */
BgL_pairz00_1332 = BgL_prevz00_564; }  else 
{ /* ./Ieee/pairlist.scm 724 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_564, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29645))); 
exit( -1 );} 
BgL_arg1707z00_571 = 
CDR(BgL_pairz00_1332); } 
BgL_test1691z00_566 = 
NULLP(BgL_arg1707z00_571); } 
if(BgL_test1691z00_566)
{ /* ./Ieee/pairlist.scm 724 */
BgL_aux2731z00_1746 = BgL_yz00_87; }  else 
{ /* ./Ieee/pairlist.scm 726 */
bool_t BgL_test1692z00_567;
{ /* ./Ieee/pairlist.scm 726 */
obj_t BgL_arg1703z00_570;
{ /* ./Ieee/pairlist.scm 726 */
obj_t BgL_pairz00_1334;
if(
PAIRP(BgL_prevz00_564))
{ /* ./Ieee/pairlist.scm 726 */
BgL_pairz00_1334 = BgL_prevz00_564; }  else 
{ /* ./Ieee/pairlist.scm 726 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_564, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29713))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 726 */
obj_t BgL_arg1068z00_1335;
BgL_arg1068z00_1335 = 
CDR(BgL_pairz00_1334); 
{ /* ./Ieee/pairlist.scm 726 */
obj_t BgL_pairz00_1337;
if(
PAIRP(BgL_arg1068z00_1335))
{ /* ./Ieee/pairlist.scm 726 */
BgL_pairz00_1337 = BgL_arg1068z00_1335; }  else 
{ /* ./Ieee/pairlist.scm 726 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1068z00_1335, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29704))); 
exit( -1 );} 
BgL_arg1703z00_570 = 
CAR(BgL_pairz00_1337); } } } 
BgL_test1692z00_567 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_arg1703z00_570, BgL_xz00_86); } 
if(BgL_test1692z00_567)
{ /* ./Ieee/pairlist.scm 726 */
{ /* ./Ieee/pairlist.scm 727 */
obj_t BgL_arg1694z00_568;
{ /* ./Ieee/pairlist.scm 727 */
obj_t BgL_pairz00_1338;
if(
PAIRP(BgL_prevz00_564))
{ /* ./Ieee/pairlist.scm 727 */
BgL_pairz00_1338 = BgL_prevz00_564; }  else 
{ /* ./Ieee/pairlist.scm 727 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_564, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29765))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 727 */
obj_t BgL_arg1079z00_1339;
BgL_arg1079z00_1339 = 
CDR(BgL_pairz00_1338); 
{ /* ./Ieee/pairlist.scm 727 */
obj_t BgL_pairz00_1341;
if(
PAIRP(BgL_arg1079z00_1339))
{ /* ./Ieee/pairlist.scm 727 */
BgL_pairz00_1341 = BgL_arg1079z00_1339; }  else 
{ /* ./Ieee/pairlist.scm 727 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1079z00_1339, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29756))); 
exit( -1 );} 
BgL_arg1694z00_568 = 
CDR(BgL_pairz00_1341); } } } 
{ /* ./Ieee/pairlist.scm 727 */
obj_t BgL_pairz00_1342;
if(
PAIRP(BgL_prevz00_564))
{ /* ./Ieee/pairlist.scm 727 */
BgL_pairz00_1342 = BgL_prevz00_564; }  else 
{ /* ./Ieee/pairlist.scm 727 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_564, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29754))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_1342, BgL_arg1694z00_568); } } 
{ 

goto BgL_loopz00_565;} }  else 
{ /* ./Ieee/pairlist.scm 726 */
{ /* ./Ieee/pairlist.scm 729 */
obj_t BgL_arg1699z00_569;
{ /* ./Ieee/pairlist.scm 729 */
obj_t BgL_pairz00_1344;
if(
PAIRP(BgL_prevz00_564))
{ /* ./Ieee/pairlist.scm 729 */
BgL_pairz00_1344 = BgL_prevz00_564; }  else 
{ /* ./Ieee/pairlist.scm 729 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6530z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_564, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29845))); 
exit( -1 );} 
BgL_arg1699z00_569 = 
CDR(BgL_pairz00_1344); } 
{ 
obj_t BgL_prevz00_7022;
BgL_prevz00_7022 = BgL_arg1699z00_569; 
BgL_prevz00_564 = BgL_prevz00_7022; 
goto BgL_loopz00_565;} } } } } } } } 
POP_TRACE(); 
return BgL_aux2731z00_1746;} } } } 
}



/* _delete!2899 */
obj_t BGl__deletez122899z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1915, obj_t BgL_xz00_1916, obj_t BgL_yz00_1917)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 719 */
{ /* ./Ieee/pairlist.scm 721 */
obj_t BgL_auxz00_7024;
{ /* ./Ieee/pairlist.scm 721 */
bool_t BgL_testz00_7025;
if(
PAIRP(BgL_yz00_1917))
{ /* ./Ieee/pairlist.scm 721 */
BgL_testz00_7025 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 721 */
BgL_testz00_7025 = 
NULLP(BgL_yz00_1917)
; } 
if(BgL_testz00_7025)
{ /* ./Ieee/pairlist.scm 721 */
BgL_auxz00_7024 = BgL_yz00_1917
; }  else 
{ /* ./Ieee/pairlist.scm 721 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6531z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1917, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)29515))); 
exit( -1 );} } 
return 
BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1916, BgL_auxz00_7024);} } 
}



/* cons* */
BGL_EXPORTED_DEF obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_88, obj_t BgL_yz00_89)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 734 */
{ /* ./Ieee/pairlist.scm 735 */
obj_t BgL_symbol2736z00_1747;
BgL_symbol2736z00_1747 = BGl_symbol6532z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 735 */

PUSH_TRACE(BgL_symbol2736z00_1747); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 735 */
obj_t BgL_aux2735z00_1748;
if(
NULLP(BgL_yz00_89))
{ /* ./Ieee/pairlist.scm 739 */
BgL_aux2735z00_1748 = BgL_xz00_88; }  else 
{ /* ./Ieee/pairlist.scm 741 */
obj_t BgL_auxz00_7036;
BgL_auxz00_7036 = 
BGl_consza21za2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_89); 
BgL_aux2735z00_1748 = 
MAKE_PAIR(BgL_xz00_88, BgL_auxz00_7036); } 
POP_TRACE(); 
return BgL_aux2735z00_1748;} } } } 
}



/* cons*1 */
obj_t BGl_consza21za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_573)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 735 */
{ /* ./Ieee/pairlist.scm 735 */
bool_t BgL_test1721z00_577;
{ /* ./Ieee/pairlist.scm 735 */
obj_t BgL_arg1733z00_581;
{ /* ./Ieee/pairlist.scm 735 */
obj_t BgL_pairz00_1346;
if(
PAIRP(BgL_xz00_573))
{ /* ./Ieee/pairlist.scm 735 */
BgL_pairz00_1346 = BgL_xz00_573; }  else 
{ /* ./Ieee/pairlist.scm 735 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6533z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_573, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)30143))); 
exit( -1 );} 
BgL_arg1733z00_581 = 
CDR(BgL_pairz00_1346); } 
BgL_test1721z00_577 = 
NULLP(BgL_arg1733z00_581); } 
if(BgL_test1721z00_577)
{ /* ./Ieee/pairlist.scm 735 */
{ /* ./Ieee/pairlist.scm 736 */
obj_t BgL_pairz00_1348;
if(
PAIRP(BgL_xz00_573))
{ /* ./Ieee/pairlist.scm 736 */
BgL_pairz00_1348 = BgL_xz00_573; }  else 
{ /* ./Ieee/pairlist.scm 736 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6533z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_573, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)30162))); 
exit( -1 );} 
return 
CAR(BgL_pairz00_1348);} }  else 
{ /* ./Ieee/pairlist.scm 735 */
{ /* ./Ieee/pairlist.scm 738 */
obj_t BgL_arg1724z00_578;obj_t BgL_arg1725z00_579;
{ /* ./Ieee/pairlist.scm 738 */
obj_t BgL_pairz00_1349;
if(
PAIRP(BgL_xz00_573))
{ /* ./Ieee/pairlist.scm 738 */
BgL_pairz00_1349 = BgL_xz00_573; }  else 
{ /* ./Ieee/pairlist.scm 738 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6533z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_573, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)30202))); 
exit( -1 );} 
BgL_arg1724z00_578 = 
CAR(BgL_pairz00_1349); } 
{ /* ./Ieee/pairlist.scm 738 */
obj_t BgL_arg1729z00_580;
{ /* ./Ieee/pairlist.scm 738 */
obj_t BgL_pairz00_1350;
if(
PAIRP(BgL_xz00_573))
{ /* ./Ieee/pairlist.scm 738 */
BgL_pairz00_1350 = BgL_xz00_573; }  else 
{ /* ./Ieee/pairlist.scm 738 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6533z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_573, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)30218))); 
exit( -1 );} 
BgL_arg1729z00_580 = 
CDR(BgL_pairz00_1350); } 
BgL_arg1725z00_579 = 
BGl_consza21za2zz__r4_pairs_and_lists_6_3z00(BgL_arg1729z00_580); } 
return 
MAKE_PAIR(BgL_arg1724z00_578, BgL_arg1725z00_579);} } } } 
}



/* _cons* */
obj_t BGl__consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1918, obj_t BgL_xz00_1919, obj_t BgL_yz00_1920)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 734 */
return 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1919, BgL_yz00_1920);} 
}



/* reverse! */
BGL_EXPORTED_DEF obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_90)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 746 */
{ /* ./Ieee/pairlist.scm 747 */
obj_t BgL_symbol2740z00_1749;
BgL_symbol2740z00_1749 = BGl_symbol6534z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 747 */

PUSH_TRACE(BgL_symbol2740z00_1749); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 747 */
obj_t BgL_aux2739z00_1750;
if(
PAIRP(BgL_lz00_90))
{ 
obj_t BgL_lz00_583;obj_t BgL_rz00_584;
{ /* ./Ieee/pairlist.scm 748 */
obj_t BgL_aux5370z00_2432;
BgL_lz00_583 = BgL_lz00_90; 
BgL_rz00_584 = BNIL; 
BgL_nrz00_585:
{ /* ./Ieee/pairlist.scm 750 */
bool_t BgL_test1738z00_586;
{ /* ./Ieee/pairlist.scm 750 */
obj_t BgL_arg1746z00_589;
{ /* ./Ieee/pairlist.scm 750 */
obj_t BgL_pairz00_1352;
if(
PAIRP(BgL_lz00_583))
{ /* ./Ieee/pairlist.scm 750 */
BgL_pairz00_1352 = BgL_lz00_583; }  else 
{ /* ./Ieee/pairlist.scm 750 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6534z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_583, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)30604))); 
exit( -1 );} 
BgL_arg1746z00_589 = 
CDR(BgL_pairz00_1352); } 
BgL_test1738z00_586 = 
NULLP(BgL_arg1746z00_589); } 
if(BgL_test1738z00_586)
{ /* ./Ieee/pairlist.scm 750 */
{ /* ./Ieee/pairlist.scm 752 */
obj_t BgL_pairz00_1354;
if(
PAIRP(BgL_lz00_583))
{ /* ./Ieee/pairlist.scm 752 */
BgL_pairz00_1354 = BgL_lz00_583; }  else 
{ /* ./Ieee/pairlist.scm 752 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6534z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_583, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)30656))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_1354, BgL_rz00_584); } 
BgL_aux5370z00_2432 = BgL_lz00_583; }  else 
{ /* ./Ieee/pairlist.scm 754 */
obj_t BgL_cdrlz00_587;
{ /* ./Ieee/pairlist.scm 754 */
obj_t BgL_pairz00_1356;
if(
PAIRP(BgL_lz00_583))
{ /* ./Ieee/pairlist.scm 754 */
BgL_pairz00_1356 = BgL_lz00_583; }  else 
{ /* ./Ieee/pairlist.scm 754 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6534z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_583, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)30705))); 
exit( -1 );} 
BgL_cdrlz00_587 = 
CDR(BgL_pairz00_1356); } 
{ /* ./Ieee/pairlist.scm 756 */
obj_t BgL_arg1741z00_588;
{ /* ./Ieee/pairlist.scm 756 */
obj_t BgL_pairz00_1357;
if(
PAIRP(BgL_lz00_583))
{ /* ./Ieee/pairlist.scm 756 */
BgL_pairz00_1357 = BgL_lz00_583; }  else 
{ /* ./Ieee/pairlist.scm 756 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6534z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_583, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)30746))); 
exit( -1 );} 
SET_CDR(BgL_pairz00_1357, BgL_rz00_584); } 
BgL_arg1741z00_588 = BgL_lz00_583; 
{ 
obj_t BgL_rz00_7099;obj_t BgL_lz00_7098;
BgL_lz00_7098 = BgL_cdrlz00_587; 
BgL_rz00_7099 = BgL_arg1741z00_588; 
BgL_rz00_584 = BgL_rz00_7099; 
BgL_lz00_583 = BgL_lz00_7098; 
goto BgL_nrz00_585;} } } } 
{ /* ./Ieee/pairlist.scm 748 */
bool_t BgL_testz00_7100;
if(
PAIRP(BgL_aux5370z00_2432))
{ /* ./Ieee/pairlist.scm 748 */
BgL_testz00_7100 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 748 */
BgL_testz00_7100 = 
NULLP(BgL_aux5370z00_2432)
; } 
if(BgL_testz00_7100)
{ /* ./Ieee/pairlist.scm 748 */
BgL_aux2739z00_1750 = BgL_aux5370z00_2432; }  else 
{ /* ./Ieee/pairlist.scm 748 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6534z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_aux5370z00_2432, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)30552))); 
exit( -1 );} } } }  else 
{ /* ./Ieee/pairlist.scm 747 */
BgL_aux2739z00_1750 = BgL_lz00_90; } 
POP_TRACE(); 
return BgL_aux2739z00_1750;} } } } 
}



/* _reverse!2902 */
obj_t BGl__reversez122902z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1921, obj_t BgL_lz00_1922)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 746 */
{ /* ./Ieee/pairlist.scm 747 */
obj_t BgL_auxz00_7108;
{ /* ./Ieee/pairlist.scm 747 */
bool_t BgL_testz00_7109;
if(
PAIRP(BgL_lz00_1922))
{ /* ./Ieee/pairlist.scm 747 */
BgL_testz00_7109 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 747 */
BgL_testz00_7109 = 
NULLP(BgL_lz00_1922)
; } 
if(BgL_testz00_7109)
{ /* ./Ieee/pairlist.scm 747 */
BgL_auxz00_7108 = BgL_lz00_1922
; }  else 
{ /* ./Ieee/pairlist.scm 747 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6535z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1922, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)30531))); 
exit( -1 );} } 
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_7108);} } 
}



/* every */
BGL_EXPORTED_DEF obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_91, obj_t BgL_lz00_92)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 762 */
{ /* ./Ieee/pairlist.scm 764 */
obj_t BgL_symbol2744z00_1751;
BgL_symbol2744z00_1751 = BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 764 */

PUSH_TRACE(BgL_symbol2744z00_1751); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 764 */
obj_t BgL_aux2743z00_1752;
if(
NULLP(BgL_lz00_92))
{ /* ./Ieee/pairlist.scm 764 */
BgL_aux2743z00_1752 = BTRUE; }  else 
{ /* ./Ieee/pairlist.scm 766 */
bool_t BgL_test1751z00_591;
{ /* ./Ieee/pairlist.scm 766 */
obj_t BgL_arg1842z00_643;
{ /* ./Ieee/pairlist.scm 766 */
obj_t BgL_pairz00_1360;
if(
PAIRP(BgL_lz00_92))
{ /* ./Ieee/pairlist.scm 766 */
BgL_pairz00_1360 = BgL_lz00_92; }  else 
{ /* ./Ieee/pairlist.scm 766 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_92, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31073))); 
exit( -1 );} 
BgL_arg1842z00_643 = 
CDR(BgL_pairz00_1360); } 
BgL_test1751z00_591 = 
NULLP(BgL_arg1842z00_643); } 
if(BgL_test1751z00_591)
{ /* ./Ieee/pairlist.scm 766 */
{ 
obj_t BgL_lz00_592;obj_t BgL_lvz00_593;
{ /* ./Ieee/pairlist.scm 767 */
obj_t BgL_arg1753z00_595;
{ /* ./Ieee/pairlist.scm 767 */
obj_t BgL_pairz00_1362;
if(
PAIRP(BgL_lz00_92))
{ /* ./Ieee/pairlist.scm 767 */
BgL_pairz00_1362 = BgL_lz00_92; }  else 
{ /* ./Ieee/pairlist.scm 767 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_92, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31103))); 
exit( -1 );} 
BgL_arg1753z00_595 = 
CAR(BgL_pairz00_1362); } 
BgL_lz00_592 = BgL_arg1753z00_595; 
BgL_lvz00_593 = BTRUE; 
BgL_loopz00_594:
if(
NULLP(BgL_lz00_592))
{ /* ./Ieee/pairlist.scm 769 */
BgL_aux2743z00_1752 = BgL_lvz00_593; }  else 
{ /* ./Ieee/pairlist.scm 771 */
obj_t BgL_nvz00_597;
{ /* ./Ieee/pairlist.scm 771 */
obj_t BgL_arg1762z00_600;
{ /* ./Ieee/pairlist.scm 771 */
obj_t BgL_pairz00_1364;
if(
PAIRP(BgL_lz00_592))
{ /* ./Ieee/pairlist.scm 771 */
BgL_pairz00_1364 = BgL_lz00_592; }  else 
{ /* ./Ieee/pairlist.scm 771 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_592, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31175))); 
exit( -1 );} 
BgL_arg1762z00_600 = 
CAR(BgL_pairz00_1364); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_91, ((long)1)))
{ /* ./Ieee/pairlist.scm 771 */
BgL_nvz00_597 = 
PROCEDURE_ENTRY(BgL_predz00_91)(BgL_predz00_91, BgL_arg1762z00_600, BEOA); }  else 
{ /* ./Ieee/pairlist.scm 771 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string6537z00zz__r4_pairs_and_lists_6_3z00, BGl_list6538z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_91, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31164))); 
FAILURE(BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00);} } 
if(
CBOOL(BgL_nvz00_597))
{ /* ./Ieee/pairlist.scm 772 */
obj_t BgL_arg1758z00_599;
{ /* ./Ieee/pairlist.scm 772 */
obj_t BgL_pairz00_1365;
if(
PAIRP(BgL_lz00_592))
{ /* ./Ieee/pairlist.scm 772 */
BgL_pairz00_1365 = BgL_lz00_592; }  else 
{ /* ./Ieee/pairlist.scm 772 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_592, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31203))); 
exit( -1 );} 
BgL_arg1758z00_599 = 
CDR(BgL_pairz00_1365); } 
{ 
obj_t BgL_lvz00_7158;obj_t BgL_lz00_7157;
BgL_lz00_7157 = BgL_arg1758z00_599; 
BgL_lvz00_7158 = BgL_nvz00_597; 
BgL_lvz00_593 = BgL_lvz00_7158; 
BgL_lz00_592 = BgL_lz00_7157; 
goto BgL_loopz00_594;} }  else 
{ /* ./Ieee/pairlist.scm 772 */
BgL_aux2743z00_1752 = BFALSE; } } } } }  else 
{ /* ./Ieee/pairlist.scm 766 */
{ 
obj_t BgL_lz00_601;obj_t BgL_lvz00_602;
BgL_lz00_601 = BgL_lz00_92; 
BgL_lvz00_602 = BTRUE; 
BgL_loopz00_603:
{ /* ./Ieee/pairlist.scm 776 */
bool_t BgL_test1767z00_604;
{ /* ./Ieee/pairlist.scm 776 */
obj_t BgL_arg1838z00_642;
{ /* ./Ieee/pairlist.scm 776 */
obj_t BgL_pairz00_1366;
if(
PAIRP(BgL_lz00_601))
{ /* ./Ieee/pairlist.scm 776 */
BgL_pairz00_1366 = BgL_lz00_601; }  else 
{ /* ./Ieee/pairlist.scm 776 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_601, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31283))); 
exit( -1 );} 
BgL_arg1838z00_642 = 
CAR(BgL_pairz00_1366); } 
BgL_test1767z00_604 = 
NULLP(BgL_arg1838z00_642); } 
if(BgL_test1767z00_604)
{ /* ./Ieee/pairlist.scm 776 */
BgL_aux2743z00_1752 = BgL_lvz00_602; }  else 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_nvz00_605;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_valz00_2462;
if(
NULLP(BgL_lz00_601))
{ /* ./Ieee/pairlist.scm 778 */
BgL_valz00_2462 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_head1012z00_627;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_arg1829z00_639;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_arg1833z00_641;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_pairz00_1369;
if(
PAIRP(BgL_lz00_601))
{ /* ./Ieee/pairlist.scm 778 */
BgL_pairz00_1369 = BgL_lz00_601; }  else 
{ /* ./Ieee/pairlist.scm 778 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_601, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31326))); 
exit( -1 );} 
BgL_arg1833z00_641 = 
CAR(BgL_pairz00_1369); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_pairz00_1370;
if(
PAIRP(BgL_arg1833z00_641))
{ /* ./Ieee/pairlist.scm 778 */
BgL_pairz00_1370 = BgL_arg1833z00_641; }  else 
{ /* ./Ieee/pairlist.scm 778 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1833z00_641, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31326))); 
exit( -1 );} 
BgL_arg1829z00_639 = 
CAR(BgL_pairz00_1370); } } 
BgL_head1012z00_627 = 
MAKE_PAIR(BgL_arg1829z00_639, BNIL); } 
{ 
obj_t BgL_l1010z00_628;obj_t BgL_tail1013z00_629;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_arg1805z00_631;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_pairz00_1373;
if(
PAIRP(BgL_lz00_601))
{ /* ./Ieee/pairlist.scm 778 */
BgL_pairz00_1373 = BgL_lz00_601; }  else 
{ /* ./Ieee/pairlist.scm 778 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_601, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31326))); 
exit( -1 );} 
BgL_arg1805z00_631 = 
CDR(BgL_pairz00_1373); } 
BgL_l1010z00_628 = BgL_arg1805z00_631; 
BgL_tail1013z00_629 = BgL_head1012z00_627; 
BgL_map1011z00_630:
{ /* ./Ieee/pairlist.scm 778 */
bool_t BgL_test1808z00_632;
BgL_test1808z00_632 = 
PAIRP(BgL_l1010z00_628); 
if(BgL_test1808z00_632)
{ /* ./Ieee/pairlist.scm 778 */
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_newtail1014z00_633;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_arg1815z00_635;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_arg1821z00_637;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_pairz00_1375;
if(BgL_test1808z00_632)
{ /* ./Ieee/pairlist.scm 778 */
BgL_pairz00_1375 = BgL_l1010z00_628; }  else 
{ /* ./Ieee/pairlist.scm 778 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1010z00_628, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31326))); 
exit( -1 );} 
BgL_arg1821z00_637 = 
CAR(BgL_pairz00_1375); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_pairz00_1376;
if(
PAIRP(BgL_arg1821z00_637))
{ /* ./Ieee/pairlist.scm 778 */
BgL_pairz00_1376 = BgL_arg1821z00_637; }  else 
{ /* ./Ieee/pairlist.scm 778 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1821z00_637, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31326))); 
exit( -1 );} 
BgL_arg1815z00_635 = 
CAR(BgL_pairz00_1376); } } 
BgL_newtail1014z00_633 = 
MAKE_PAIR(BgL_arg1815z00_635, BNIL); } 
SET_CDR(BgL_tail1013z00_629, BgL_newtail1014z00_633); 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_arg1811z00_634;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_pairz00_1381;
if(
PAIRP(BgL_l1010z00_628))
{ /* ./Ieee/pairlist.scm 778 */
BgL_pairz00_1381 = BgL_l1010z00_628; }  else 
{ /* ./Ieee/pairlist.scm 778 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1010z00_628, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31326))); 
exit( -1 );} 
BgL_arg1811z00_634 = 
CDR(BgL_pairz00_1381); } 
{ 
obj_t BgL_tail1013z00_7210;obj_t BgL_l1010z00_7209;
BgL_l1010z00_7209 = BgL_arg1811z00_634; 
BgL_tail1013z00_7210 = BgL_newtail1014z00_633; 
BgL_tail1013z00_629 = BgL_tail1013z00_7210; 
BgL_l1010z00_628 = BgL_l1010z00_7209; 
goto BgL_map1011z00_630;} } } }  else 
{ /* ./Ieee/pairlist.scm 778 */
if(
NULLP(BgL_l1010z00_628))
{ /* ./Ieee/pairlist.scm 778 */
BgL_valz00_2462 = BgL_head1012z00_627; }  else 
{ /* ./Ieee/pairlist.scm 778 */
BgL_valz00_2462 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string6543z00zz__r4_pairs_and_lists_6_3z00, BGl_string6544z00zz__r4_pairs_and_lists_6_3z00, BgL_l1010z00_628, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31326))); } } } } } } 
{ /* ./Ieee/pairlist.scm 778 */
int BgL_len5516z00_2463;
{ /* ./Ieee/pairlist.scm 778 */
long BgL_auxz00_7215;
BgL_auxz00_7215 = 
bgl_list_length(BgL_valz00_2462); 
BgL_len5516z00_2463 = 
(int)(BgL_auxz00_7215); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_91, BgL_len5516z00_2463))
{ /* ./Ieee/pairlist.scm 778 */
BgL_nvz00_605 = 
apply(BgL_predz00_91, BgL_valz00_2462); }  else 
{ /* ./Ieee/pairlist.scm 778 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6545z00zz__r4_pairs_and_lists_6_3z00, BGl_list6546z00zz__r4_pairs_and_lists_6_3z00, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31314))); 
FAILURE(BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00);} } } 
if(
CBOOL(BgL_nvz00_605))
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_arg1769z00_607;
if(
NULLP(BgL_lz00_601))
{ /* ./Ieee/pairlist.scm 779 */
BgL_arg1769z00_607 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_head1018z00_610;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_arg1795z00_622;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_arg1799z00_624;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_pairz00_1387;
if(
PAIRP(BgL_lz00_601))
{ /* ./Ieee/pairlist.scm 779 */
BgL_pairz00_1387 = BgL_lz00_601; }  else 
{ /* ./Ieee/pairlist.scm 779 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_601, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31358))); 
exit( -1 );} 
BgL_arg1799z00_624 = 
CAR(BgL_pairz00_1387); } 
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_pairz00_1388;
if(
PAIRP(BgL_arg1799z00_624))
{ /* ./Ieee/pairlist.scm 779 */
BgL_pairz00_1388 = BgL_arg1799z00_624; }  else 
{ /* ./Ieee/pairlist.scm 779 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1799z00_624, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31358))); 
exit( -1 );} 
BgL_arg1795z00_622 = 
CDR(BgL_pairz00_1388); } } 
BgL_head1018z00_610 = 
MAKE_PAIR(BgL_arg1795z00_622, BNIL); } 
{ 
obj_t BgL_l1016z00_611;obj_t BgL_tail1019z00_612;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_arg1773z00_614;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_pairz00_1391;
if(
PAIRP(BgL_lz00_601))
{ /* ./Ieee/pairlist.scm 779 */
BgL_pairz00_1391 = BgL_lz00_601; }  else 
{ /* ./Ieee/pairlist.scm 779 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_601, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31358))); 
exit( -1 );} 
BgL_arg1773z00_614 = 
CDR(BgL_pairz00_1391); } 
BgL_l1016z00_611 = BgL_arg1773z00_614; 
BgL_tail1019z00_612 = BgL_head1018z00_610; 
BgL_map1017z00_613:
{ /* ./Ieee/pairlist.scm 779 */
bool_t BgL_test1776z00_615;
BgL_test1776z00_615 = 
PAIRP(BgL_l1016z00_611); 
if(BgL_test1776z00_615)
{ /* ./Ieee/pairlist.scm 779 */
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_newtail1020z00_616;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_arg1783z00_618;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_arg1787z00_620;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_pairz00_1393;
if(BgL_test1776z00_615)
{ /* ./Ieee/pairlist.scm 779 */
BgL_pairz00_1393 = BgL_l1016z00_611; }  else 
{ /* ./Ieee/pairlist.scm 779 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1016z00_611, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31358))); 
exit( -1 );} 
BgL_arg1787z00_620 = 
CAR(BgL_pairz00_1393); } 
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_pairz00_1394;
if(
PAIRP(BgL_arg1787z00_620))
{ /* ./Ieee/pairlist.scm 779 */
BgL_pairz00_1394 = BgL_arg1787z00_620; }  else 
{ /* ./Ieee/pairlist.scm 779 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1787z00_620, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31358))); 
exit( -1 );} 
BgL_arg1783z00_618 = 
CDR(BgL_pairz00_1394); } } 
BgL_newtail1020z00_616 = 
MAKE_PAIR(BgL_arg1783z00_618, BNIL); } 
SET_CDR(BgL_tail1019z00_612, BgL_newtail1020z00_616); 
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_arg1779z00_617;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_pairz00_1399;
if(
PAIRP(BgL_l1016z00_611))
{ /* ./Ieee/pairlist.scm 779 */
BgL_pairz00_1399 = BgL_l1016z00_611; }  else 
{ /* ./Ieee/pairlist.scm 779 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6536z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1016z00_611, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31358))); 
exit( -1 );} 
BgL_arg1779z00_617 = 
CDR(BgL_pairz00_1399); } 
{ 
obj_t BgL_tail1019z00_7270;obj_t BgL_l1016z00_7269;
BgL_l1016z00_7269 = BgL_arg1779z00_617; 
BgL_tail1019z00_7270 = BgL_newtail1020z00_616; 
BgL_tail1019z00_612 = BgL_tail1019z00_7270; 
BgL_l1016z00_611 = BgL_l1016z00_7269; 
goto BgL_map1017z00_613;} } } }  else 
{ /* ./Ieee/pairlist.scm 779 */
if(
NULLP(BgL_l1016z00_611))
{ /* ./Ieee/pairlist.scm 779 */
BgL_arg1769z00_607 = BgL_head1018z00_610; }  else 
{ /* ./Ieee/pairlist.scm 779 */
BgL_arg1769z00_607 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string6543z00zz__r4_pairs_and_lists_6_3z00, BGl_string6544z00zz__r4_pairs_and_lists_6_3z00, BgL_l1016z00_611, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31358))); } } } } } } 
{ 
obj_t BgL_lvz00_7276;obj_t BgL_lz00_7275;
BgL_lz00_7275 = BgL_arg1769z00_607; 
BgL_lvz00_7276 = BgL_nvz00_605; 
BgL_lvz00_602 = BgL_lvz00_7276; 
BgL_lz00_601 = BgL_lz00_7275; 
goto BgL_loopz00_603;} }  else 
{ /* ./Ieee/pairlist.scm 779 */
BgL_aux2743z00_1752 = BFALSE; } } } } } } 
POP_TRACE(); 
return BgL_aux2743z00_1752;} } } } 
}



/* _every */
obj_t BGl__everyz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1923, obj_t BgL_predz00_1924, obj_t BgL_lz00_1925)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 762 */
{ /* ./Ieee/pairlist.scm 764 */
obj_t BgL_auxz00_7278;
if(
PROCEDUREP(BgL_predz00_1924))
{ /* ./Ieee/pairlist.scm 764 */
BgL_auxz00_7278 = BgL_predz00_1924
; }  else 
{ /* ./Ieee/pairlist.scm 764 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6675z00zz__r4_pairs_and_lists_6_3z00, BGl_string6676z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_1924, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31033))); 
exit( -1 );} 
return 
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_7278, BgL_lz00_1925);} } 
}



/* any */
BGL_EXPORTED_DEF obj_t BGl_anyz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_93, obj_t BgL_lz00_94)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 784 */
{ /* ./Ieee/pairlist.scm 786 */
obj_t BgL_symbol2748z00_1753;
BgL_symbol2748z00_1753 = BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 786 */

PUSH_TRACE(BgL_symbol2748z00_1753); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 786 */
obj_t BgL_aux2747z00_1754;
if(
NULLP(BgL_lz00_94))
{ /* ./Ieee/pairlist.scm 786 */
BgL_aux2747z00_1754 = BFALSE; }  else 
{ /* ./Ieee/pairlist.scm 788 */
bool_t BgL_test1847z00_645;
{ /* ./Ieee/pairlist.scm 788 */
obj_t BgL_arg1943z00_693;
{ /* ./Ieee/pairlist.scm 788 */
obj_t BgL_pairz00_1405;
if(
PAIRP(BgL_lz00_94))
{ /* ./Ieee/pairlist.scm 788 */
BgL_pairz00_1405 = BgL_lz00_94; }  else 
{ /* ./Ieee/pairlist.scm 788 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_94, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31683))); 
exit( -1 );} 
BgL_arg1943z00_693 = 
CDR(BgL_pairz00_1405); } 
BgL_test1847z00_645 = 
NULLP(BgL_arg1943z00_693); } 
if(BgL_test1847z00_645)
{ /* ./Ieee/pairlist.scm 788 */
{ 
obj_t BgL_lz00_646;
{ /* ./Ieee/pairlist.scm 789 */
obj_t BgL_arg1849z00_648;
{ /* ./Ieee/pairlist.scm 789 */
obj_t BgL_pairz00_1407;
if(
PAIRP(BgL_lz00_94))
{ /* ./Ieee/pairlist.scm 789 */
BgL_pairz00_1407 = BgL_lz00_94; }  else 
{ /* ./Ieee/pairlist.scm 789 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_94, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31713))); 
exit( -1 );} 
BgL_arg1849z00_648 = 
CAR(BgL_pairz00_1407); } 
BgL_lz00_646 = BgL_arg1849z00_648; 
BgL_loopz00_647:
if(
NULLP(BgL_lz00_646))
{ /* ./Ieee/pairlist.scm 790 */
BgL_aux2747z00_1754 = BFALSE; }  else 
{ /* ./Ieee/pairlist.scm 792 */
obj_t BgL__ortest_1021z00_650;
{ /* ./Ieee/pairlist.scm 792 */
obj_t BgL_arg1858z00_652;
{ /* ./Ieee/pairlist.scm 792 */
obj_t BgL_pairz00_1409;
if(
PAIRP(BgL_lz00_646))
{ /* ./Ieee/pairlist.scm 792 */
BgL_pairz00_1409 = BgL_lz00_646; }  else 
{ /* ./Ieee/pairlist.scm 792 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_646, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31767))); 
exit( -1 );} 
BgL_arg1858z00_652 = 
CAR(BgL_pairz00_1409); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_93, ((long)1)))
{ /* ./Ieee/pairlist.scm 792 */
BgL__ortest_1021z00_650 = 
PROCEDURE_ENTRY(BgL_predz00_93)(BgL_predz00_93, BgL_arg1858z00_652, BEOA); }  else 
{ /* ./Ieee/pairlist.scm 792 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string6678z00zz__r4_pairs_and_lists_6_3z00, BGl_list6679z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_93, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31756))); 
FAILURE(BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00);} } 
if(
CBOOL(BgL__ortest_1021z00_650))
{ /* ./Ieee/pairlist.scm 793 */
BgL_aux2747z00_1754 = BgL__ortest_1021z00_650; }  else 
{ /* ./Ieee/pairlist.scm 793 */
obj_t BgL_arg1854z00_651;
{ /* ./Ieee/pairlist.scm 793 */
obj_t BgL_pairz00_1410;
if(
PAIRP(BgL_lz00_646))
{ /* ./Ieee/pairlist.scm 793 */
BgL_pairz00_1410 = BgL_lz00_646; }  else 
{ /* ./Ieee/pairlist.scm 793 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_646, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31786))); 
exit( -1 );} 
BgL_arg1854z00_651 = 
CDR(BgL_pairz00_1410); } 
{ 
obj_t BgL_lz00_7325;
BgL_lz00_7325 = BgL_arg1854z00_651; 
BgL_lz00_646 = BgL_lz00_7325; 
goto BgL_loopz00_647;} } } } } }  else 
{ /* ./Ieee/pairlist.scm 788 */
{ 
obj_t BgL_lz00_653;
BgL_lz00_653 = BgL_lz00_94; 
BgL_loopz00_654:
{ /* ./Ieee/pairlist.scm 796 */
bool_t BgL_test1863z00_655;
{ /* ./Ieee/pairlist.scm 796 */
obj_t BgL_arg1938z00_692;
{ /* ./Ieee/pairlist.scm 796 */
obj_t BgL_pairz00_1411;
if(
PAIRP(BgL_lz00_653))
{ /* ./Ieee/pairlist.scm 796 */
BgL_pairz00_1411 = BgL_lz00_653; }  else 
{ /* ./Ieee/pairlist.scm 796 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_653, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31850))); 
exit( -1 );} 
BgL_arg1938z00_692 = 
CAR(BgL_pairz00_1411); } 
BgL_test1863z00_655 = 
NULLP(BgL_arg1938z00_692); } 
if(BgL_test1863z00_655)
{ /* ./Ieee/pairlist.scm 796 */
BgL_aux2747z00_1754 = BFALSE; }  else 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL__ortest_1022z00_656;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_valz00_2505;
if(
NULLP(BgL_lz00_653))
{ /* ./Ieee/pairlist.scm 798 */
BgL_valz00_2505 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_head1025z00_677;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_arg1928z00_689;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_arg1933z00_691;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_pairz00_1414;
if(
PAIRP(BgL_lz00_653))
{ /* ./Ieee/pairlist.scm 798 */
BgL_pairz00_1414 = BgL_lz00_653; }  else 
{ /* ./Ieee/pairlist.scm 798 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_653, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31887))); 
exit( -1 );} 
BgL_arg1933z00_691 = 
CAR(BgL_pairz00_1414); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_pairz00_1415;
if(
PAIRP(BgL_arg1933z00_691))
{ /* ./Ieee/pairlist.scm 798 */
BgL_pairz00_1415 = BgL_arg1933z00_691; }  else 
{ /* ./Ieee/pairlist.scm 798 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1933z00_691, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31887))); 
exit( -1 );} 
BgL_arg1928z00_689 = 
CAR(BgL_pairz00_1415); } } 
BgL_head1025z00_677 = 
MAKE_PAIR(BgL_arg1928z00_689, BNIL); } 
{ 
obj_t BgL_l1023z00_678;obj_t BgL_tail1026z00_679;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_arg1902z00_681;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_pairz00_1418;
if(
PAIRP(BgL_lz00_653))
{ /* ./Ieee/pairlist.scm 798 */
BgL_pairz00_1418 = BgL_lz00_653; }  else 
{ /* ./Ieee/pairlist.scm 798 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_653, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31887))); 
exit( -1 );} 
BgL_arg1902z00_681 = 
CDR(BgL_pairz00_1418); } 
BgL_l1023z00_678 = BgL_arg1902z00_681; 
BgL_tail1026z00_679 = BgL_head1025z00_677; 
BgL_map1024z00_680:
{ /* ./Ieee/pairlist.scm 798 */
bool_t BgL_test1905z00_682;
BgL_test1905z00_682 = 
PAIRP(BgL_l1023z00_678); 
if(BgL_test1905z00_682)
{ /* ./Ieee/pairlist.scm 798 */
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_newtail1027z00_683;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_arg1912z00_685;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_arg1919z00_687;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_pairz00_1420;
if(BgL_test1905z00_682)
{ /* ./Ieee/pairlist.scm 798 */
BgL_pairz00_1420 = BgL_l1023z00_678; }  else 
{ /* ./Ieee/pairlist.scm 798 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1023z00_678, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31887))); 
exit( -1 );} 
BgL_arg1919z00_687 = 
CAR(BgL_pairz00_1420); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_pairz00_1421;
if(
PAIRP(BgL_arg1919z00_687))
{ /* ./Ieee/pairlist.scm 798 */
BgL_pairz00_1421 = BgL_arg1919z00_687; }  else 
{ /* ./Ieee/pairlist.scm 798 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1919z00_687, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31887))); 
exit( -1 );} 
BgL_arg1912z00_685 = 
CAR(BgL_pairz00_1421); } } 
BgL_newtail1027z00_683 = 
MAKE_PAIR(BgL_arg1912z00_685, BNIL); } 
SET_CDR(BgL_tail1026z00_679, BgL_newtail1027z00_683); 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_arg1908z00_684;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_pairz00_1426;
if(
PAIRP(BgL_l1023z00_678))
{ /* ./Ieee/pairlist.scm 798 */
BgL_pairz00_1426 = BgL_l1023z00_678; }  else 
{ /* ./Ieee/pairlist.scm 798 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1023z00_678, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31887))); 
exit( -1 );} 
BgL_arg1908z00_684 = 
CDR(BgL_pairz00_1426); } 
{ 
obj_t BgL_tail1026z00_7377;obj_t BgL_l1023z00_7376;
BgL_l1023z00_7376 = BgL_arg1908z00_684; 
BgL_tail1026z00_7377 = BgL_newtail1027z00_683; 
BgL_tail1026z00_679 = BgL_tail1026z00_7377; 
BgL_l1023z00_678 = BgL_l1023z00_7376; 
goto BgL_map1024z00_680;} } } }  else 
{ /* ./Ieee/pairlist.scm 798 */
if(
NULLP(BgL_l1023z00_678))
{ /* ./Ieee/pairlist.scm 798 */
BgL_valz00_2505 = BgL_head1025z00_677; }  else 
{ /* ./Ieee/pairlist.scm 798 */
BgL_valz00_2505 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string6543z00zz__r4_pairs_and_lists_6_3z00, BGl_string6544z00zz__r4_pairs_and_lists_6_3z00, BgL_l1023z00_678, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31887))); } } } } } } 
{ /* ./Ieee/pairlist.scm 798 */
int BgL_len5727z00_2506;
{ /* ./Ieee/pairlist.scm 798 */
long BgL_auxz00_7382;
BgL_auxz00_7382 = 
bgl_list_length(BgL_valz00_2505); 
BgL_len5727z00_2506 = 
(int)(BgL_auxz00_7382); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_93, BgL_len5727z00_2506))
{ /* ./Ieee/pairlist.scm 798 */
BgL__ortest_1022z00_656 = 
apply(BgL_predz00_93, BgL_valz00_2505); }  else 
{ /* ./Ieee/pairlist.scm 798 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6545z00zz__r4_pairs_and_lists_6_3z00, BGl_list6681z00zz__r4_pairs_and_lists_6_3z00, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31875))); 
FAILURE(BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00);} } } 
if(
CBOOL(BgL__ortest_1022z00_656))
{ /* ./Ieee/pairlist.scm 799 */
BgL_aux2747z00_1754 = BgL__ortest_1022z00_656; }  else 
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_arg1865z00_657;
if(
NULLP(BgL_lz00_653))
{ /* ./Ieee/pairlist.scm 799 */
BgL_arg1865z00_657 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_head1030z00_660;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_arg1892z00_672;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_arg1896z00_674;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_pairz00_1432;
if(
PAIRP(BgL_lz00_653))
{ /* ./Ieee/pairlist.scm 799 */
BgL_pairz00_1432 = BgL_lz00_653; }  else 
{ /* ./Ieee/pairlist.scm 799 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_653, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31910))); 
exit( -1 );} 
BgL_arg1896z00_674 = 
CAR(BgL_pairz00_1432); } 
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_pairz00_1433;
if(
PAIRP(BgL_arg1896z00_674))
{ /* ./Ieee/pairlist.scm 799 */
BgL_pairz00_1433 = BgL_arg1896z00_674; }  else 
{ /* ./Ieee/pairlist.scm 799 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1896z00_674, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31910))); 
exit( -1 );} 
BgL_arg1892z00_672 = 
CDR(BgL_pairz00_1433); } } 
BgL_head1030z00_660 = 
MAKE_PAIR(BgL_arg1892z00_672, BNIL); } 
{ 
obj_t BgL_l1028z00_661;obj_t BgL_tail1031z00_662;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_arg1869z00_664;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_pairz00_1436;
if(
PAIRP(BgL_lz00_653))
{ /* ./Ieee/pairlist.scm 799 */
BgL_pairz00_1436 = BgL_lz00_653; }  else 
{ /* ./Ieee/pairlist.scm 799 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_653, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31910))); 
exit( -1 );} 
BgL_arg1869z00_664 = 
CDR(BgL_pairz00_1436); } 
BgL_l1028z00_661 = BgL_arg1869z00_664; 
BgL_tail1031z00_662 = BgL_head1030z00_660; 
BgL_map1029z00_663:
{ /* ./Ieee/pairlist.scm 799 */
bool_t BgL_test1872z00_665;
BgL_test1872z00_665 = 
PAIRP(BgL_l1028z00_661); 
if(BgL_test1872z00_665)
{ /* ./Ieee/pairlist.scm 799 */
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_newtail1032z00_666;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_arg1879z00_668;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_arg1884z00_670;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_pairz00_1438;
if(BgL_test1872z00_665)
{ /* ./Ieee/pairlist.scm 799 */
BgL_pairz00_1438 = BgL_l1028z00_661; }  else 
{ /* ./Ieee/pairlist.scm 799 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1028z00_661, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31910))); 
exit( -1 );} 
BgL_arg1884z00_670 = 
CAR(BgL_pairz00_1438); } 
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_pairz00_1439;
if(
PAIRP(BgL_arg1884z00_670))
{ /* ./Ieee/pairlist.scm 799 */
BgL_pairz00_1439 = BgL_arg1884z00_670; }  else 
{ /* ./Ieee/pairlist.scm 799 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1884z00_670, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31910))); 
exit( -1 );} 
BgL_arg1879z00_668 = 
CDR(BgL_pairz00_1439); } } 
BgL_newtail1032z00_666 = 
MAKE_PAIR(BgL_arg1879z00_668, BNIL); } 
SET_CDR(BgL_tail1031z00_662, BgL_newtail1032z00_666); 
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_arg1875z00_667;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_pairz00_1444;
if(
PAIRP(BgL_l1028z00_661))
{ /* ./Ieee/pairlist.scm 799 */
BgL_pairz00_1444 = BgL_l1028z00_661; }  else 
{ /* ./Ieee/pairlist.scm 799 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6677z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1028z00_661, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31910))); 
exit( -1 );} 
BgL_arg1875z00_667 = 
CDR(BgL_pairz00_1444); } 
{ 
obj_t BgL_tail1031z00_7437;obj_t BgL_l1028z00_7436;
BgL_l1028z00_7436 = BgL_arg1875z00_667; 
BgL_tail1031z00_7437 = BgL_newtail1032z00_666; 
BgL_tail1031z00_662 = BgL_tail1031z00_7437; 
BgL_l1028z00_661 = BgL_l1028z00_7436; 
goto BgL_map1029z00_663;} } } }  else 
{ /* ./Ieee/pairlist.scm 799 */
if(
NULLP(BgL_l1028z00_661))
{ /* ./Ieee/pairlist.scm 799 */
BgL_arg1865z00_657 = BgL_head1030z00_660; }  else 
{ /* ./Ieee/pairlist.scm 799 */
BgL_arg1865z00_657 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string6543z00zz__r4_pairs_and_lists_6_3z00, BGl_string6544z00zz__r4_pairs_and_lists_6_3z00, BgL_l1028z00_661, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31910))); } } } } } } 
{ 
obj_t BgL_lz00_7442;
BgL_lz00_7442 = BgL_arg1865z00_657; 
BgL_lz00_653 = BgL_lz00_7442; 
goto BgL_loopz00_654;} } } } } } } 
POP_TRACE(); 
return BgL_aux2747z00_1754;} } } } 
}



/* _any */
obj_t BGl__anyz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1926, obj_t BgL_predz00_1927, obj_t BgL_lz00_1928)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 784 */
{ /* ./Ieee/pairlist.scm 786 */
obj_t BgL_auxz00_7444;
if(
PROCEDUREP(BgL_predz00_1927))
{ /* ./Ieee/pairlist.scm 786 */
BgL_auxz00_7444 = BgL_predz00_1927
; }  else 
{ /* ./Ieee/pairlist.scm 786 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6780z00zz__r4_pairs_and_lists_6_3z00, BGl_string6676z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_1927, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)31643))); 
exit( -1 );} 
return 
BGl_anyz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_7444, BgL_lz00_1928);} } 
}



/* every? */
BGL_EXPORTED_DEF bool_t BGl_everyzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_95, obj_t BgL_lz00_96)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 804 */
{ /* ./Ieee/pairlist.scm 806 */
obj_t BgL_symbol2752z00_1755;
BgL_symbol2752z00_1755 = BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 806 */

PUSH_TRACE(BgL_symbol2752z00_1755); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 806 */
bool_t BgL_aux2751z00_1756;
if(
NULLP(BgL_lz00_96))
{ /* ./Ieee/pairlist.scm 806 */
BgL_aux2751z00_1756 = ((bool_t)1); }  else 
{ /* ./Ieee/pairlist.scm 808 */
bool_t BgL_test1948z00_695;
{ /* ./Ieee/pairlist.scm 808 */
obj_t BgL_arg2042z00_743;
{ /* ./Ieee/pairlist.scm 808 */
obj_t BgL_pairz00_1450;
if(
PAIRP(BgL_lz00_96))
{ /* ./Ieee/pairlist.scm 808 */
BgL_pairz00_1450 = BgL_lz00_96; }  else 
{ /* ./Ieee/pairlist.scm 808 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_96, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32234))); 
exit( -1 );} 
BgL_arg2042z00_743 = 
CDR(BgL_pairz00_1450); } 
BgL_test1948z00_695 = 
NULLP(BgL_arg2042z00_743); } 
if(BgL_test1948z00_695)
{ /* ./Ieee/pairlist.scm 808 */
{ 
obj_t BgL_lz00_696;
{ /* ./Ieee/pairlist.scm 809 */
obj_t BgL_arg1950z00_698;
{ /* ./Ieee/pairlist.scm 809 */
obj_t BgL_pairz00_1452;
if(
PAIRP(BgL_lz00_96))
{ /* ./Ieee/pairlist.scm 809 */
BgL_pairz00_1452 = BgL_lz00_96; }  else 
{ /* ./Ieee/pairlist.scm 809 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_96, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32264))); 
exit( -1 );} 
BgL_arg1950z00_698 = 
CAR(BgL_pairz00_1452); } 
BgL_lz00_696 = BgL_arg1950z00_698; 
BgL_loopz00_697:
if(
NULLP(BgL_lz00_696))
{ /* ./Ieee/pairlist.scm 811 */
BgL_aux2751z00_1756 = ((bool_t)1); }  else 
{ /* ./Ieee/pairlist.scm 813 */
bool_t BgL_test1954z00_700;
{ /* ./Ieee/pairlist.scm 813 */
obj_t BgL_arg1960z00_702;
{ /* ./Ieee/pairlist.scm 813 */
obj_t BgL_pairz00_1454;
if(
PAIRP(BgL_lz00_696))
{ /* ./Ieee/pairlist.scm 813 */
BgL_pairz00_1454 = BgL_lz00_696; }  else 
{ /* ./Ieee/pairlist.scm 813 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_696, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32324))); 
exit( -1 );} 
BgL_arg1960z00_702 = 
CAR(BgL_pairz00_1454); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_95, ((long)1)))
{ /* ./Ieee/pairlist.scm 813 */
obj_t BgL_auxz00_7478;
BgL_auxz00_7478 = 
PROCEDURE_ENTRY(BgL_predz00_95)(BgL_predz00_95, BgL_arg1960z00_702, BEOA); 
BgL_test1954z00_700 = 
CBOOL(BgL_auxz00_7478); }  else 
{ /* ./Ieee/pairlist.scm 813 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string6782z00zz__r4_pairs_and_lists_6_3z00, BGl_list6783z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_95, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32313))); 
FAILURE(BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00);} } 
if(BgL_test1954z00_700)
{ /* ./Ieee/pairlist.scm 813 */
{ /* ./Ieee/pairlist.scm 814 */
obj_t BgL_arg1956z00_701;
{ /* ./Ieee/pairlist.scm 814 */
obj_t BgL_pairz00_1455;
if(
PAIRP(BgL_lz00_696))
{ /* ./Ieee/pairlist.scm 814 */
BgL_pairz00_1455 = BgL_lz00_696; }  else 
{ /* ./Ieee/pairlist.scm 814 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_696, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32346))); 
exit( -1 );} 
BgL_arg1956z00_701 = 
CDR(BgL_pairz00_1455); } 
{ 
obj_t BgL_lz00_7492;
BgL_lz00_7492 = BgL_arg1956z00_701; 
BgL_lz00_696 = BgL_lz00_7492; 
goto BgL_loopz00_697;} } }  else 
{ /* ./Ieee/pairlist.scm 813 */
BgL_aux2751z00_1756 = ((bool_t)0); } } } } }  else 
{ /* ./Ieee/pairlist.scm 808 */
{ 
obj_t BgL_lz00_703;
BgL_lz00_703 = BgL_lz00_96; 
BgL_loopz00_704:
{ /* ./Ieee/pairlist.scm 820 */
bool_t BgL_test1965z00_705;
{ /* ./Ieee/pairlist.scm 820 */
obj_t BgL_arg2038z00_742;
{ /* ./Ieee/pairlist.scm 820 */
obj_t BgL_pairz00_1456;
if(
PAIRP(BgL_lz00_703))
{ /* ./Ieee/pairlist.scm 820 */
BgL_pairz00_1456 = BgL_lz00_703; }  else 
{ /* ./Ieee/pairlist.scm 820 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_703, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32442))); 
exit( -1 );} 
BgL_arg2038z00_742 = 
CAR(BgL_pairz00_1456); } 
BgL_test1965z00_705 = 
NULLP(BgL_arg2038z00_742); } 
if(BgL_test1965z00_705)
{ /* ./Ieee/pairlist.scm 820 */
BgL_aux2751z00_1756 = ((bool_t)1); }  else 
{ /* ./Ieee/pairlist.scm 822 */
bool_t BgL_test1966z00_706;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_valz00_2548;
if(
NULLP(BgL_lz00_703))
{ /* ./Ieee/pairlist.scm 822 */
BgL_valz00_2548 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_head1035z00_727;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_arg2029z00_739;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_arg2033z00_741;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_pairz00_1459;
if(
PAIRP(BgL_lz00_703))
{ /* ./Ieee/pairlist.scm 822 */
BgL_pairz00_1459 = BgL_lz00_703; }  else 
{ /* ./Ieee/pairlist.scm 822 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_703, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32476))); 
exit( -1 );} 
BgL_arg2033z00_741 = 
CAR(BgL_pairz00_1459); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_pairz00_1460;
if(
PAIRP(BgL_arg2033z00_741))
{ /* ./Ieee/pairlist.scm 822 */
BgL_pairz00_1460 = BgL_arg2033z00_741; }  else 
{ /* ./Ieee/pairlist.scm 822 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg2033z00_741, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32476))); 
exit( -1 );} 
BgL_arg2029z00_739 = 
CAR(BgL_pairz00_1460); } } 
BgL_head1035z00_727 = 
MAKE_PAIR(BgL_arg2029z00_739, BNIL); } 
{ 
obj_t BgL_l1033z00_728;obj_t BgL_tail1036z00_729;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_arg2006z00_731;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_pairz00_1463;
if(
PAIRP(BgL_lz00_703))
{ /* ./Ieee/pairlist.scm 822 */
BgL_pairz00_1463 = BgL_lz00_703; }  else 
{ /* ./Ieee/pairlist.scm 822 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_703, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32476))); 
exit( -1 );} 
BgL_arg2006z00_731 = 
CDR(BgL_pairz00_1463); } 
BgL_l1033z00_728 = BgL_arg2006z00_731; 
BgL_tail1036z00_729 = BgL_head1035z00_727; 
BgL_map1034z00_730:
{ /* ./Ieee/pairlist.scm 822 */
bool_t BgL_test2009z00_732;
BgL_test2009z00_732 = 
PAIRP(BgL_l1033z00_728); 
if(BgL_test2009z00_732)
{ /* ./Ieee/pairlist.scm 822 */
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_newtail1037z00_733;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_arg2016z00_735;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_arg2021z00_737;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_pairz00_1465;
if(BgL_test2009z00_732)
{ /* ./Ieee/pairlist.scm 822 */
BgL_pairz00_1465 = BgL_l1033z00_728; }  else 
{ /* ./Ieee/pairlist.scm 822 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1033z00_728, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32476))); 
exit( -1 );} 
BgL_arg2021z00_737 = 
CAR(BgL_pairz00_1465); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_pairz00_1466;
if(
PAIRP(BgL_arg2021z00_737))
{ /* ./Ieee/pairlist.scm 822 */
BgL_pairz00_1466 = BgL_arg2021z00_737; }  else 
{ /* ./Ieee/pairlist.scm 822 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg2021z00_737, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32476))); 
exit( -1 );} 
BgL_arg2016z00_735 = 
CAR(BgL_pairz00_1466); } } 
BgL_newtail1037z00_733 = 
MAKE_PAIR(BgL_arg2016z00_735, BNIL); } 
SET_CDR(BgL_tail1036z00_729, BgL_newtail1037z00_733); 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_arg2012z00_734;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_pairz00_1471;
if(
PAIRP(BgL_l1033z00_728))
{ /* ./Ieee/pairlist.scm 822 */
BgL_pairz00_1471 = BgL_l1033z00_728; }  else 
{ /* ./Ieee/pairlist.scm 822 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1033z00_728, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32476))); 
exit( -1 );} 
BgL_arg2012z00_734 = 
CDR(BgL_pairz00_1471); } 
{ 
obj_t BgL_tail1036z00_7544;obj_t BgL_l1033z00_7543;
BgL_l1033z00_7543 = BgL_arg2012z00_734; 
BgL_tail1036z00_7544 = BgL_newtail1037z00_733; 
BgL_tail1036z00_729 = BgL_tail1036z00_7544; 
BgL_l1033z00_728 = BgL_l1033z00_7543; 
goto BgL_map1034z00_730;} } } }  else 
{ /* ./Ieee/pairlist.scm 822 */
if(
NULLP(BgL_l1033z00_728))
{ /* ./Ieee/pairlist.scm 822 */
BgL_valz00_2548 = BgL_head1035z00_727; }  else 
{ /* ./Ieee/pairlist.scm 822 */
BgL_valz00_2548 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string6543z00zz__r4_pairs_and_lists_6_3z00, BGl_string6544z00zz__r4_pairs_and_lists_6_3z00, BgL_l1033z00_728, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32476))); } } } } } } 
{ /* ./Ieee/pairlist.scm 822 */
int BgL_len5933z00_2549;
{ /* ./Ieee/pairlist.scm 822 */
long BgL_auxz00_7549;
BgL_auxz00_7549 = 
bgl_list_length(BgL_valz00_2548); 
BgL_len5933z00_2549 = 
(int)(BgL_auxz00_7549); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_95, BgL_len5933z00_2549))
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_7554;
BgL_auxz00_7554 = 
apply(BgL_predz00_95, BgL_valz00_2548); 
BgL_test1966z00_706 = 
CBOOL(BgL_auxz00_7554); }  else 
{ /* ./Ieee/pairlist.scm 822 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6545z00zz__r4_pairs_and_lists_6_3z00, BGl_list6785z00zz__r4_pairs_and_lists_6_3z00, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32464))); 
FAILURE(BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00);} } } 
if(BgL_test1966z00_706)
{ /* ./Ieee/pairlist.scm 822 */
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_arg1968z00_707;
if(
NULLP(BgL_lz00_703))
{ /* ./Ieee/pairlist.scm 823 */
BgL_arg1968z00_707 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_head1040z00_710;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_arg1995z00_722;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_arg2000z00_724;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_pairz00_1477;
if(
PAIRP(BgL_lz00_703))
{ /* ./Ieee/pairlist.scm 823 */
BgL_pairz00_1477 = BgL_lz00_703; }  else 
{ /* ./Ieee/pairlist.scm 823 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_703, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32502))); 
exit( -1 );} 
BgL_arg2000z00_724 = 
CAR(BgL_pairz00_1477); } 
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_pairz00_1478;
if(
PAIRP(BgL_arg2000z00_724))
{ /* ./Ieee/pairlist.scm 823 */
BgL_pairz00_1478 = BgL_arg2000z00_724; }  else 
{ /* ./Ieee/pairlist.scm 823 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg2000z00_724, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32502))); 
exit( -1 );} 
BgL_arg1995z00_722 = 
CDR(BgL_pairz00_1478); } } 
BgL_head1040z00_710 = 
MAKE_PAIR(BgL_arg1995z00_722, BNIL); } 
{ 
obj_t BgL_l1038z00_711;obj_t BgL_tail1041z00_712;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_arg1973z00_714;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_pairz00_1481;
if(
PAIRP(BgL_lz00_703))
{ /* ./Ieee/pairlist.scm 823 */
BgL_pairz00_1481 = BgL_lz00_703; }  else 
{ /* ./Ieee/pairlist.scm 823 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_703, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32502))); 
exit( -1 );} 
BgL_arg1973z00_714 = 
CDR(BgL_pairz00_1481); } 
BgL_l1038z00_711 = BgL_arg1973z00_714; 
BgL_tail1041z00_712 = BgL_head1040z00_710; 
BgL_map1039z00_713:
{ /* ./Ieee/pairlist.scm 823 */
bool_t BgL_test1976z00_715;
BgL_test1976z00_715 = 
PAIRP(BgL_l1038z00_711); 
if(BgL_test1976z00_715)
{ /* ./Ieee/pairlist.scm 823 */
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_newtail1042z00_716;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_arg1983z00_718;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_arg1987z00_720;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_pairz00_1483;
if(BgL_test1976z00_715)
{ /* ./Ieee/pairlist.scm 823 */
BgL_pairz00_1483 = BgL_l1038z00_711; }  else 
{ /* ./Ieee/pairlist.scm 823 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1038z00_711, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32502))); 
exit( -1 );} 
BgL_arg1987z00_720 = 
CAR(BgL_pairz00_1483); } 
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_pairz00_1484;
if(
PAIRP(BgL_arg1987z00_720))
{ /* ./Ieee/pairlist.scm 823 */
BgL_pairz00_1484 = BgL_arg1987z00_720; }  else 
{ /* ./Ieee/pairlist.scm 823 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1987z00_720, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32502))); 
exit( -1 );} 
BgL_arg1983z00_718 = 
CDR(BgL_pairz00_1484); } } 
BgL_newtail1042z00_716 = 
MAKE_PAIR(BgL_arg1983z00_718, BNIL); } 
SET_CDR(BgL_tail1041z00_712, BgL_newtail1042z00_716); 
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_arg1979z00_717;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_pairz00_1489;
if(
PAIRP(BgL_l1038z00_711))
{ /* ./Ieee/pairlist.scm 823 */
BgL_pairz00_1489 = BgL_l1038z00_711; }  else 
{ /* ./Ieee/pairlist.scm 823 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6781z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1038z00_711, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32502))); 
exit( -1 );} 
BgL_arg1979z00_717 = 
CDR(BgL_pairz00_1489); } 
{ 
obj_t BgL_tail1041z00_7605;obj_t BgL_l1038z00_7604;
BgL_l1038z00_7604 = BgL_arg1979z00_717; 
BgL_tail1041z00_7605 = BgL_newtail1042z00_716; 
BgL_tail1041z00_712 = BgL_tail1041z00_7605; 
BgL_l1038z00_711 = BgL_l1038z00_7604; 
goto BgL_map1039z00_713;} } } }  else 
{ /* ./Ieee/pairlist.scm 823 */
if(
NULLP(BgL_l1038z00_711))
{ /* ./Ieee/pairlist.scm 823 */
BgL_arg1968z00_707 = BgL_head1040z00_710; }  else 
{ /* ./Ieee/pairlist.scm 823 */
BgL_arg1968z00_707 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string6543z00zz__r4_pairs_and_lists_6_3z00, BGl_string6544z00zz__r4_pairs_and_lists_6_3z00, BgL_l1038z00_711, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32502))); } } } } } } 
{ 
obj_t BgL_lz00_7610;
BgL_lz00_7610 = BgL_arg1968z00_707; 
BgL_lz00_703 = BgL_lz00_7610; 
goto BgL_loopz00_704;} } }  else 
{ /* ./Ieee/pairlist.scm 822 */
BgL_aux2751z00_1756 = ((bool_t)0); } } } } } } 
POP_TRACE(); 
return BgL_aux2751z00_1756;} } } } 
}



/* _every?2906 */
obj_t BGl__everyzf32906zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1929, obj_t BgL_predz00_1930, obj_t BgL_lz00_1931)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 804 */
{ /* ./Ieee/pairlist.scm 806 */
bool_t BgL_auxz00_7612;
{ /* ./Ieee/pairlist.scm 806 */
obj_t BgL_auxz00_7613;
if(
PROCEDUREP(BgL_predz00_1930))
{ /* ./Ieee/pairlist.scm 806 */
BgL_auxz00_7613 = BgL_predz00_1930
; }  else 
{ /* ./Ieee/pairlist.scm 806 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6884z00zz__r4_pairs_and_lists_6_3z00, BGl_string6676z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_1930, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32194))); 
exit( -1 );} 
BgL_auxz00_7612 = 
BGl_everyzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_7613, BgL_lz00_1931); } 
return 
BBOOL(BgL_auxz00_7612);} } 
}



/* any? */
BGL_EXPORTED_DEF bool_t BGl_anyzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_97, obj_t BgL_lz00_98)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 830 */
{ /* ./Ieee/pairlist.scm 832 */
obj_t BgL_symbol2756z00_1757;
BgL_symbol2756z00_1757 = BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 832 */

PUSH_TRACE(BgL_symbol2756z00_1757); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 832 */
bool_t BgL_aux2755z00_1758;
if(
NULLP(BgL_lz00_98))
{ /* ./Ieee/pairlist.scm 832 */
BgL_aux2755z00_1758 = ((bool_t)0); }  else 
{ /* ./Ieee/pairlist.scm 834 */
bool_t BgL_test2047z00_745;
{ /* ./Ieee/pairlist.scm 834 */
obj_t BgL_arg2141z00_793;
{ /* ./Ieee/pairlist.scm 834 */
obj_t BgL_pairz00_1495;
if(
PAIRP(BgL_lz00_98))
{ /* ./Ieee/pairlist.scm 834 */
BgL_pairz00_1495 = BgL_lz00_98; }  else 
{ /* ./Ieee/pairlist.scm 834 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_98, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32847))); 
exit( -1 );} 
BgL_arg2141z00_793 = 
CDR(BgL_pairz00_1495); } 
BgL_test2047z00_745 = 
NULLP(BgL_arg2141z00_793); } 
if(BgL_test2047z00_745)
{ /* ./Ieee/pairlist.scm 834 */
{ 
obj_t BgL_lz00_746;
{ /* ./Ieee/pairlist.scm 835 */
obj_t BgL_arg2049z00_748;
{ /* ./Ieee/pairlist.scm 835 */
obj_t BgL_pairz00_1497;
if(
PAIRP(BgL_lz00_98))
{ /* ./Ieee/pairlist.scm 835 */
BgL_pairz00_1497 = BgL_lz00_98; }  else 
{ /* ./Ieee/pairlist.scm 835 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_98, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32877))); 
exit( -1 );} 
BgL_arg2049z00_748 = 
CAR(BgL_pairz00_1497); } 
BgL_lz00_746 = BgL_arg2049z00_748; 
BgL_loopz00_747:
if(
NULLP(BgL_lz00_746))
{ /* ./Ieee/pairlist.scm 837 */
BgL_aux2755z00_1758 = ((bool_t)0); }  else 
{ /* ./Ieee/pairlist.scm 839 */
bool_t BgL_test2053z00_750;
{ /* ./Ieee/pairlist.scm 839 */
obj_t BgL_arg2059z00_752;
{ /* ./Ieee/pairlist.scm 839 */
obj_t BgL_pairz00_1499;
if(
PAIRP(BgL_lz00_746))
{ /* ./Ieee/pairlist.scm 839 */
BgL_pairz00_1499 = BgL_lz00_746; }  else 
{ /* ./Ieee/pairlist.scm 839 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_746, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32937))); 
exit( -1 );} 
BgL_arg2059z00_752 = 
CAR(BgL_pairz00_1499); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_97, ((long)1)))
{ /* ./Ieee/pairlist.scm 839 */
obj_t BgL_auxz00_7648;
BgL_auxz00_7648 = 
PROCEDURE_ENTRY(BgL_predz00_97)(BgL_predz00_97, BgL_arg2059z00_752, BEOA); 
BgL_test2053z00_750 = 
CBOOL(BgL_auxz00_7648); }  else 
{ /* ./Ieee/pairlist.scm 839 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string6886z00zz__r4_pairs_and_lists_6_3z00, BGl_list6887z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_97, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32926))); 
FAILURE(BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00);} } 
if(BgL_test2053z00_750)
{ /* ./Ieee/pairlist.scm 839 */
BgL_aux2755z00_1758 = ((bool_t)1); }  else 
{ /* ./Ieee/pairlist.scm 839 */
{ /* ./Ieee/pairlist.scm 842 */
obj_t BgL_arg2055z00_751;
{ /* ./Ieee/pairlist.scm 842 */
obj_t BgL_pairz00_1500;
if(
PAIRP(BgL_lz00_746))
{ /* ./Ieee/pairlist.scm 842 */
BgL_pairz00_1500 = BgL_lz00_746; }  else 
{ /* ./Ieee/pairlist.scm 842 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_746, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32982))); 
exit( -1 );} 
BgL_arg2055z00_751 = 
CDR(BgL_pairz00_1500); } 
{ 
obj_t BgL_lz00_7662;
BgL_lz00_7662 = BgL_arg2055z00_751; 
BgL_lz00_746 = BgL_lz00_7662; 
goto BgL_loopz00_747;} } } } } } }  else 
{ /* ./Ieee/pairlist.scm 834 */
{ 
obj_t BgL_lz00_753;
BgL_lz00_753 = BgL_lz00_98; 
BgL_loopz00_754:
{ /* ./Ieee/pairlist.scm 846 */
bool_t BgL_test2064z00_755;
{ /* ./Ieee/pairlist.scm 846 */
obj_t BgL_arg2137z00_792;
{ /* ./Ieee/pairlist.scm 846 */
obj_t BgL_pairz00_1501;
if(
PAIRP(BgL_lz00_753))
{ /* ./Ieee/pairlist.scm 846 */
BgL_pairz00_1501 = BgL_lz00_753; }  else 
{ /* ./Ieee/pairlist.scm 846 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_753, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33055))); 
exit( -1 );} 
BgL_arg2137z00_792 = 
CAR(BgL_pairz00_1501); } 
BgL_test2064z00_755 = 
NULLP(BgL_arg2137z00_792); } 
if(BgL_test2064z00_755)
{ /* ./Ieee/pairlist.scm 846 */
BgL_aux2755z00_1758 = ((bool_t)0); }  else 
{ /* ./Ieee/pairlist.scm 848 */
bool_t BgL_test2065z00_756;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_valz00_2591;
if(
NULLP(BgL_lz00_753))
{ /* ./Ieee/pairlist.scm 848 */
BgL_valz00_2591 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_head1045z00_777;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_arg2126z00_789;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_arg2132z00_791;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_pairz00_1504;
if(
PAIRP(BgL_lz00_753))
{ /* ./Ieee/pairlist.scm 848 */
BgL_pairz00_1504 = BgL_lz00_753; }  else 
{ /* ./Ieee/pairlist.scm 848 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_753, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33089))); 
exit( -1 );} 
BgL_arg2132z00_791 = 
CAR(BgL_pairz00_1504); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_pairz00_1505;
if(
PAIRP(BgL_arg2132z00_791))
{ /* ./Ieee/pairlist.scm 848 */
BgL_pairz00_1505 = BgL_arg2132z00_791; }  else 
{ /* ./Ieee/pairlist.scm 848 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg2132z00_791, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33089))); 
exit( -1 );} 
BgL_arg2126z00_789 = 
CAR(BgL_pairz00_1505); } } 
BgL_head1045z00_777 = 
MAKE_PAIR(BgL_arg2126z00_789, BNIL); } 
{ 
obj_t BgL_l1043z00_778;obj_t BgL_tail1046z00_779;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_arg2103z00_781;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_pairz00_1508;
if(
PAIRP(BgL_lz00_753))
{ /* ./Ieee/pairlist.scm 848 */
BgL_pairz00_1508 = BgL_lz00_753; }  else 
{ /* ./Ieee/pairlist.scm 848 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_753, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33089))); 
exit( -1 );} 
BgL_arg2103z00_781 = 
CDR(BgL_pairz00_1508); } 
BgL_l1043z00_778 = BgL_arg2103z00_781; 
BgL_tail1046z00_779 = BgL_head1045z00_777; 
BgL_map1044z00_780:
{ /* ./Ieee/pairlist.scm 848 */
bool_t BgL_test2106z00_782;
BgL_test2106z00_782 = 
PAIRP(BgL_l1043z00_778); 
if(BgL_test2106z00_782)
{ /* ./Ieee/pairlist.scm 848 */
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_newtail1047z00_783;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_arg2113z00_785;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_arg2118z00_787;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_pairz00_1510;
if(BgL_test2106z00_782)
{ /* ./Ieee/pairlist.scm 848 */
BgL_pairz00_1510 = BgL_l1043z00_778; }  else 
{ /* ./Ieee/pairlist.scm 848 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1043z00_778, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33089))); 
exit( -1 );} 
BgL_arg2118z00_787 = 
CAR(BgL_pairz00_1510); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_pairz00_1511;
if(
PAIRP(BgL_arg2118z00_787))
{ /* ./Ieee/pairlist.scm 848 */
BgL_pairz00_1511 = BgL_arg2118z00_787; }  else 
{ /* ./Ieee/pairlist.scm 848 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg2118z00_787, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33089))); 
exit( -1 );} 
BgL_arg2113z00_785 = 
CAR(BgL_pairz00_1511); } } 
BgL_newtail1047z00_783 = 
MAKE_PAIR(BgL_arg2113z00_785, BNIL); } 
SET_CDR(BgL_tail1046z00_779, BgL_newtail1047z00_783); 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_arg2109z00_784;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_pairz00_1516;
if(
PAIRP(BgL_l1043z00_778))
{ /* ./Ieee/pairlist.scm 848 */
BgL_pairz00_1516 = BgL_l1043z00_778; }  else 
{ /* ./Ieee/pairlist.scm 848 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1043z00_778, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33089))); 
exit( -1 );} 
BgL_arg2109z00_784 = 
CDR(BgL_pairz00_1516); } 
{ 
obj_t BgL_tail1046z00_7714;obj_t BgL_l1043z00_7713;
BgL_l1043z00_7713 = BgL_arg2109z00_784; 
BgL_tail1046z00_7714 = BgL_newtail1047z00_783; 
BgL_tail1046z00_779 = BgL_tail1046z00_7714; 
BgL_l1043z00_778 = BgL_l1043z00_7713; 
goto BgL_map1044z00_780;} } } }  else 
{ /* ./Ieee/pairlist.scm 848 */
if(
NULLP(BgL_l1043z00_778))
{ /* ./Ieee/pairlist.scm 848 */
BgL_valz00_2591 = BgL_head1045z00_777; }  else 
{ /* ./Ieee/pairlist.scm 848 */
BgL_valz00_2591 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string6543z00zz__r4_pairs_and_lists_6_3z00, BGl_string6544z00zz__r4_pairs_and_lists_6_3z00, BgL_l1043z00_778, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33089))); } } } } } } 
{ /* ./Ieee/pairlist.scm 848 */
int BgL_len6140z00_2592;
{ /* ./Ieee/pairlist.scm 848 */
long BgL_auxz00_7719;
BgL_auxz00_7719 = 
bgl_list_length(BgL_valz00_2591); 
BgL_len6140z00_2592 = 
(int)(BgL_auxz00_7719); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_97, BgL_len6140z00_2592))
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_7724;
BgL_auxz00_7724 = 
apply(BgL_predz00_97, BgL_valz00_2591); 
BgL_test2065z00_756 = 
CBOOL(BgL_auxz00_7724); }  else 
{ /* ./Ieee/pairlist.scm 848 */
BGl_errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6545z00zz__r4_pairs_and_lists_6_3z00, BGl_list6889z00zz__r4_pairs_and_lists_6_3z00, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33077))); 
FAILURE(BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00);} } } 
if(BgL_test2065z00_756)
{ /* ./Ieee/pairlist.scm 848 */
BgL_aux2755z00_1758 = ((bool_t)1); }  else 
{ /* ./Ieee/pairlist.scm 848 */
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_arg2067z00_757;
if(
NULLP(BgL_lz00_753))
{ /* ./Ieee/pairlist.scm 851 */
BgL_arg2067z00_757 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_head1050z00_760;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_arg2093z00_772;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_arg2097z00_774;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_pairz00_1522;
if(
PAIRP(BgL_lz00_753))
{ /* ./Ieee/pairlist.scm 851 */
BgL_pairz00_1522 = BgL_lz00_753; }  else 
{ /* ./Ieee/pairlist.scm 851 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_753, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33138))); 
exit( -1 );} 
BgL_arg2097z00_774 = 
CAR(BgL_pairz00_1522); } 
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_pairz00_1523;
if(
PAIRP(BgL_arg2097z00_774))
{ /* ./Ieee/pairlist.scm 851 */
BgL_pairz00_1523 = BgL_arg2097z00_774; }  else 
{ /* ./Ieee/pairlist.scm 851 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg2097z00_774, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33138))); 
exit( -1 );} 
BgL_arg2093z00_772 = 
CDR(BgL_pairz00_1523); } } 
BgL_head1050z00_760 = 
MAKE_PAIR(BgL_arg2093z00_772, BNIL); } 
{ 
obj_t BgL_l1048z00_761;obj_t BgL_tail1051z00_762;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_arg2071z00_764;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_pairz00_1526;
if(
PAIRP(BgL_lz00_753))
{ /* ./Ieee/pairlist.scm 851 */
BgL_pairz00_1526 = BgL_lz00_753; }  else 
{ /* ./Ieee/pairlist.scm 851 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_753, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33138))); 
exit( -1 );} 
BgL_arg2071z00_764 = 
CDR(BgL_pairz00_1526); } 
BgL_l1048z00_761 = BgL_arg2071z00_764; 
BgL_tail1051z00_762 = BgL_head1050z00_760; 
BgL_map1049z00_763:
{ /* ./Ieee/pairlist.scm 851 */
bool_t BgL_test2074z00_765;
BgL_test2074z00_765 = 
PAIRP(BgL_l1048z00_761); 
if(BgL_test2074z00_765)
{ /* ./Ieee/pairlist.scm 851 */
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_newtail1052z00_766;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_arg2081z00_768;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_arg2085z00_770;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_pairz00_1528;
if(BgL_test2074z00_765)
{ /* ./Ieee/pairlist.scm 851 */
BgL_pairz00_1528 = BgL_l1048z00_761; }  else 
{ /* ./Ieee/pairlist.scm 851 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1048z00_761, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33138))); 
exit( -1 );} 
BgL_arg2085z00_770 = 
CAR(BgL_pairz00_1528); } 
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_pairz00_1529;
if(
PAIRP(BgL_arg2085z00_770))
{ /* ./Ieee/pairlist.scm 851 */
BgL_pairz00_1529 = BgL_arg2085z00_770; }  else 
{ /* ./Ieee/pairlist.scm 851 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg2085z00_770, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33138))); 
exit( -1 );} 
BgL_arg2081z00_768 = 
CDR(BgL_pairz00_1529); } } 
BgL_newtail1052z00_766 = 
MAKE_PAIR(BgL_arg2081z00_768, BNIL); } 
SET_CDR(BgL_tail1051z00_762, BgL_newtail1052z00_766); 
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_arg2077z00_767;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_pairz00_1534;
if(
PAIRP(BgL_l1048z00_761))
{ /* ./Ieee/pairlist.scm 851 */
BgL_pairz00_1534 = BgL_l1048z00_761; }  else 
{ /* ./Ieee/pairlist.scm 851 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6885z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_l1048z00_761, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33138))); 
exit( -1 );} 
BgL_arg2077z00_767 = 
CDR(BgL_pairz00_1534); } 
{ 
obj_t BgL_tail1051z00_7775;obj_t BgL_l1048z00_7774;
BgL_l1048z00_7774 = BgL_arg2077z00_767; 
BgL_tail1051z00_7775 = BgL_newtail1052z00_766; 
BgL_tail1051z00_762 = BgL_tail1051z00_7775; 
BgL_l1048z00_761 = BgL_l1048z00_7774; 
goto BgL_map1049z00_763;} } } }  else 
{ /* ./Ieee/pairlist.scm 851 */
if(
NULLP(BgL_l1048z00_761))
{ /* ./Ieee/pairlist.scm 851 */
BgL_arg2067z00_757 = BgL_head1050z00_760; }  else 
{ /* ./Ieee/pairlist.scm 851 */
BgL_arg2067z00_757 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BGl_string6543z00zz__r4_pairs_and_lists_6_3z00, BGl_string6544z00zz__r4_pairs_and_lists_6_3z00, BgL_l1048z00_761, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33138))); } } } } } } 
{ 
obj_t BgL_lz00_7780;
BgL_lz00_7780 = BgL_arg2067z00_757; 
BgL_lz00_753 = BgL_lz00_7780; 
goto BgL_loopz00_754;} } } } } } } } 
POP_TRACE(); 
return BgL_aux2755z00_1758;} } } } 
}



/* _any?2908 */
obj_t BGl__anyzf32908zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1932, obj_t BgL_predz00_1933, obj_t BgL_lz00_1934)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 830 */
{ /* ./Ieee/pairlist.scm 832 */
bool_t BgL_auxz00_7782;
{ /* ./Ieee/pairlist.scm 832 */
obj_t BgL_auxz00_7783;
if(
PROCEDUREP(BgL_predz00_1933))
{ /* ./Ieee/pairlist.scm 832 */
BgL_auxz00_7783 = BgL_predz00_1933
; }  else 
{ /* ./Ieee/pairlist.scm 832 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6988z00zz__r4_pairs_and_lists_6_3z00, BGl_string6676z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_1933, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)32807))); 
exit( -1 );} 
BgL_auxz00_7782 = 
BGl_anyzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_7783, BgL_lz00_1934); } 
return 
BBOOL(BgL_auxz00_7782);} } 
}



/* make-list */
BGL_EXPORTED_DEF obj_t BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(int BgL_nz00_99, obj_t BgL_oz00_100)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 856 */
{ /* ./Ieee/pairlist.scm 857 */
obj_t BgL_symbol2760z00_1759;
BgL_symbol2760z00_1759 = BGl_symbol6989z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 857 */

PUSH_TRACE(BgL_symbol2760z00_1759); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 857 */
obj_t BgL_aux2759z00_1760;
{ /* ./Ieee/pairlist.scm 857 */
obj_t BgL_fillz00_794;
{ /* ./Ieee/pairlist.scm 857 */
bool_t BgL_test2154z00_801;
BgL_test2154z00_801 = 
PAIRP(BgL_oz00_100); 
if(BgL_test2154z00_801)
{ /* ./Ieee/pairlist.scm 857 */
obj_t BgL_pairz00_1540;
if(BgL_test2154z00_801)
{ /* ./Ieee/pairlist.scm 857 */
BgL_pairz00_1540 = BgL_oz00_100; }  else 
{ /* ./Ieee/pairlist.scm 857 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6989z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_oz00_100, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33440))); 
exit( -1 );} 
BgL_fillz00_794 = 
CAR(BgL_pairz00_1540); }  else 
{ /* ./Ieee/pairlist.scm 857 */
BgL_fillz00_794 = BUNSPEC; } } 
{ 
obj_t BgL_iz00_1542;obj_t BgL_rz00_1543;
{ /* ./Ieee/pairlist.scm 858 */
obj_t BgL_aux6258z00_2614;
BgL_iz00_1542 = 
BINT(BgL_nz00_99); 
BgL_rz00_1543 = BNIL; 
BgL_walkz00_1541:
{ /* ./Ieee/pairlist.scm 858 */
bool_t BgL_test2146z00_1547;
{ /* ./Ieee/pairlist.scm 858 */
long BgL_n1z00_1550;
{ /* ./Ieee/pairlist.scm 858 */
obj_t BgL_auxz00_7799;
if(
INTEGERP(BgL_iz00_1542))
{ /* ./Ieee/pairlist.scm 858 */
BgL_auxz00_7799 = BgL_iz00_1542
; }  else 
{ /* ./Ieee/pairlist.scm 858 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6989z00zz__r4_pairs_and_lists_6_3z00, BGl_string6505z00zz__r4_pairs_and_lists_6_3z00, BgL_iz00_1542, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33465))); 
exit( -1 );} 
BgL_n1z00_1550 = 
(long)CINT(BgL_auxz00_7799); } 
BgL_test2146z00_1547 = 
(BgL_n1z00_1550<=((long)0)); } 
if(BgL_test2146z00_1547)
{ /* ./Ieee/pairlist.scm 858 */
BgL_aux6258z00_2614 = BgL_rz00_1543; }  else 
{ /* ./Ieee/pairlist.scm 858 */
long BgL_arg2148z00_1548;obj_t BgL_arg2149z00_1549;
{ /* ./Ieee/pairlist.scm 858 */
long BgL_za71za7_1552;
{ /* ./Ieee/pairlist.scm 858 */
obj_t BgL_auxz00_7808;
if(
INTEGERP(BgL_iz00_1542))
{ /* ./Ieee/pairlist.scm 858 */
BgL_auxz00_7808 = BgL_iz00_1542
; }  else 
{ /* ./Ieee/pairlist.scm 858 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6989z00zz__r4_pairs_and_lists_6_3z00, BGl_string6505z00zz__r4_pairs_and_lists_6_3z00, BgL_iz00_1542, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33465))); 
exit( -1 );} 
BgL_za71za7_1552 = 
(long)CINT(BgL_auxz00_7808); } 
BgL_arg2148z00_1548 = 
(BgL_za71za7_1552-((long)1)); } 
BgL_arg2149z00_1549 = 
MAKE_PAIR(BgL_fillz00_794, BgL_rz00_1543); 
{ 
obj_t BgL_rz00_7819;obj_t BgL_iz00_7817;
BgL_iz00_7817 = 
BINT(BgL_arg2148z00_1548); 
BgL_rz00_7819 = BgL_arg2149z00_1549; 
BgL_rz00_1543 = BgL_rz00_7819; 
BgL_iz00_1542 = BgL_iz00_7817; 
goto BgL_walkz00_1541;} } } 
{ /* ./Ieee/pairlist.scm 858 */
bool_t BgL_testz00_7821;
if(
PAIRP(BgL_aux6258z00_2614))
{ /* ./Ieee/pairlist.scm 858 */
BgL_testz00_7821 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 858 */
BgL_testz00_7821 = 
NULLP(BgL_aux6258z00_2614)
; } 
if(BgL_testz00_7821)
{ /* ./Ieee/pairlist.scm 858 */
BgL_aux2759z00_1760 = BgL_aux6258z00_2614; }  else 
{ /* ./Ieee/pairlist.scm 858 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6989z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_aux6258z00_2614, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33465))); 
exit( -1 );} } } } } 
POP_TRACE(); 
return BgL_aux2759z00_1760;} } } } 
}



/* _make-list */
obj_t BGl__makezd2listzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1935, obj_t BgL_nz00_1936, obj_t BgL_oz00_1937)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 856 */
{ /* ./Ieee/pairlist.scm 857 */
int BgL_auxz00_7829;
{ /* ./Ieee/pairlist.scm 857 */
obj_t BgL_auxz00_7830;
if(
INTEGERP(BgL_nz00_1936))
{ /* ./Ieee/pairlist.scm 857 */
BgL_auxz00_7830 = BgL_nz00_1936
; }  else 
{ /* ./Ieee/pairlist.scm 857 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6990z00zz__r4_pairs_and_lists_6_3z00, BGl_string6991z00zz__r4_pairs_and_lists_6_3z00, BgL_nz00_1936, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33409))); 
exit( -1 );} 
BgL_auxz00_7829 = 
CINT(BgL_auxz00_7830); } 
return 
BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_7829, BgL_oz00_1937);} } 
}



/* list-tabulate */
BGL_EXPORTED_DEF obj_t BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(int BgL_nz00_101, obj_t BgL_initzd2proczd2_102)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 866 */
{ /* ./Ieee/pairlist.scm 867 */
obj_t BgL_symbol2764z00_1761;
BgL_symbol2764z00_1761 = BGl_symbol6992z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 867 */

PUSH_TRACE(BgL_symbol2764z00_1761); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 867 */
obj_t BgL_aux2763z00_1762;
{ 
long BgL_iz00_802;obj_t BgL_rz00_803;
{ /* ./Ieee/pairlist.scm 867 */
long BgL_arg2158z00_805;
{ /* ./Ieee/pairlist.scm 867 */
long BgL_auxz00_7839;
BgL_auxz00_7839 = 
(long)(BgL_nz00_101); 
BgL_arg2158z00_805 = 
(BgL_auxz00_7839-((long)1)); } 
{ /* ./Ieee/pairlist.scm 867 */
obj_t BgL_aux6288z00_2621;
BgL_iz00_802 = BgL_arg2158z00_805; 
BgL_rz00_803 = BNIL; 
BgL_walkz00_804:
if(
(BgL_iz00_802<((long)0)))
{ /* ./Ieee/pairlist.scm 868 */
BgL_aux6288z00_2621 = BgL_rz00_803; }  else 
{ /* ./Ieee/pairlist.scm 870 */
long BgL_arg2165z00_808;obj_t BgL_arg2166z00_809;
BgL_arg2165z00_808 = 
(BgL_iz00_802-((long)1)); 
{ /* ./Ieee/pairlist.scm 870 */
obj_t BgL_arg2170z00_810;
if(
PROCEDURE_CORRECT_ARITYP(BgL_initzd2proczd2_102, ((long)1)))
{ /* ./Ieee/pairlist.scm 870 */
BgL_arg2170z00_810 = 
PROCEDURE_ENTRY(BgL_initzd2proczd2_102)(BgL_initzd2proczd2_102, 
BINT(BgL_iz00_802), BEOA); }  else 
{ /* ./Ieee/pairlist.scm 870 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string6993z00zz__r4_pairs_and_lists_6_3z00, BGl_list6994z00zz__r4_pairs_and_lists_6_3z00, BgL_initzd2proczd2_102, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33904))); 
FAILURE(BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00,BGl_symbol6542z00zz__r4_pairs_and_lists_6_3z00);} 
BgL_arg2166z00_809 = 
MAKE_PAIR(BgL_arg2170z00_810, BgL_rz00_803); } 
{ 
obj_t BgL_rz00_7855;long BgL_iz00_7854;
BgL_iz00_7854 = BgL_arg2165z00_808; 
BgL_rz00_7855 = BgL_arg2166z00_809; 
BgL_rz00_803 = BgL_rz00_7855; 
BgL_iz00_802 = BgL_iz00_7854; 
goto BgL_walkz00_804;} } 
{ /* ./Ieee/pairlist.scm 867 */
bool_t BgL_testz00_7856;
if(
PAIRP(BgL_aux6288z00_2621))
{ /* ./Ieee/pairlist.scm 867 */
BgL_testz00_7856 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 867 */
BgL_testz00_7856 = 
NULLP(BgL_aux6288z00_2621)
; } 
if(BgL_testz00_7856)
{ /* ./Ieee/pairlist.scm 867 */
BgL_aux2763z00_1762 = BgL_aux6288z00_2621; }  else 
{ /* ./Ieee/pairlist.scm 867 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6992z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_aux6288z00_2621, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33820))); 
exit( -1 );} } } } } 
POP_TRACE(); 
return BgL_aux2763z00_1762;} } } } 
}



/* _list-tabulate */
obj_t BGl__listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1938, obj_t BgL_nz00_1939, obj_t BgL_initzd2proczd2_1940)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 866 */
{ /* ./Ieee/pairlist.scm 867 */
obj_t BgL_auxz00_7872;int BgL_auxz00_7864;
if(
PROCEDUREP(BgL_initzd2proczd2_1940))
{ /* ./Ieee/pairlist.scm 867 */
BgL_auxz00_7872 = BgL_initzd2proczd2_1940
; }  else 
{ /* ./Ieee/pairlist.scm 867 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6997z00zz__r4_pairs_and_lists_6_3z00, BGl_string6676z00zz__r4_pairs_and_lists_6_3z00, BgL_initzd2proczd2_1940, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33820))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 867 */
obj_t BgL_auxz00_7865;
if(
INTEGERP(BgL_nz00_1939))
{ /* ./Ieee/pairlist.scm 867 */
BgL_auxz00_7865 = BgL_nz00_1939
; }  else 
{ /* ./Ieee/pairlist.scm 867 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6997z00zz__r4_pairs_and_lists_6_3z00, BGl_string6991z00zz__r4_pairs_and_lists_6_3z00, BgL_nz00_1939, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)33820))); 
exit( -1 );} 
BgL_auxz00_7864 = 
CINT(BgL_auxz00_7865); } 
return 
BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_7864, BgL_auxz00_7872);} } 
}



/* iota */
BGL_EXPORTED_DEF obj_t BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(int BgL_countz00_103, obj_t BgL_restz00_104)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 875 */
{ /* ./Ieee/pairlist.scm 876 */
obj_t BgL_symbol2768z00_1763;
BgL_symbol2768z00_1763 = BGl_symbol6998z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 876 */

PUSH_TRACE(BgL_symbol2768z00_1763); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 876 */
obj_t BgL_aux2767z00_1764;
{ /* ./Ieee/pairlist.scm 876 */
obj_t BgL_startz00_811;obj_t BgL_stepz00_812;
BgL_startz00_811 = 
BINT(((long)0)); 
BgL_stepz00_812 = 
BINT(((long)1)); 
{ /* ./Ieee/pairlist.scm 878 */
bool_t BgL_test2174z00_813;
BgL_test2174z00_813 = 
PAIRP(BgL_restz00_104); 
if(BgL_test2174z00_813)
{ /* ./Ieee/pairlist.scm 878 */
{ /* ./Ieee/pairlist.scm 880 */
obj_t BgL_pairz00_1577;
if(BgL_test2174z00_813)
{ /* ./Ieee/pairlist.scm 880 */
BgL_pairz00_1577 = BgL_restz00_104; }  else 
{ /* ./Ieee/pairlist.scm 880 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6998z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_restz00_104, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)34266))); 
exit( -1 );} 
BgL_startz00_811 = 
CAR(BgL_pairz00_1577); } 
{ /* ./Ieee/pairlist.scm 881 */
bool_t BgL_test2176z00_814;
{ /* ./Ieee/pairlist.scm 881 */
obj_t BgL_arg2179z00_815;
{ /* ./Ieee/pairlist.scm 881 */
obj_t BgL_pairz00_1578;
if(
PAIRP(BgL_restz00_104))
{ /* ./Ieee/pairlist.scm 881 */
BgL_pairz00_1578 = BgL_restz00_104; }  else 
{ /* ./Ieee/pairlist.scm 881 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6998z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_restz00_104, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)34295))); 
exit( -1 );} 
BgL_arg2179z00_815 = 
CDR(BgL_pairz00_1578); } 
BgL_test2176z00_814 = 
PAIRP(BgL_arg2179z00_815); } 
if(BgL_test2176z00_814)
{ /* ./Ieee/pairlist.scm 882 */
obj_t BgL_pairz00_1580;
if(
PAIRP(BgL_restz00_104))
{ /* ./Ieee/pairlist.scm 882 */
BgL_pairz00_1580 = BgL_restz00_104; }  else 
{ /* ./Ieee/pairlist.scm 882 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6998z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_restz00_104, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)34322))); 
exit( -1 );} 
{ /* ./Ieee/pairlist.scm 882 */
obj_t BgL_arg1068z00_1581;
BgL_arg1068z00_1581 = 
CDR(BgL_pairz00_1580); 
{ /* ./Ieee/pairlist.scm 882 */
obj_t BgL_pairz00_1583;
if(
PAIRP(BgL_arg1068z00_1581))
{ /* ./Ieee/pairlist.scm 882 */
BgL_pairz00_1583 = BgL_arg1068z00_1581; }  else 
{ /* ./Ieee/pairlist.scm 882 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6998z00zz__r4_pairs_and_lists_6_3z00, BGl_string6415z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1068z00_1581, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)34313))); 
exit( -1 );} 
BgL_stepz00_812 = 
CAR(BgL_pairz00_1583); } } }  else 
{ /* ./Ieee/pairlist.scm 881 */BFALSE; } } }  else 
{ /* ./Ieee/pairlist.scm 878 */BFALSE; } } 
{ /* ./Ieee/pairlist.scm 883 */
obj_t BgL_arg2184z00_820;
{ /* ./Ieee/pairlist.scm 883 */
obj_t BgL_arg2188z00_822;
{ /* ./Ieee/pairlist.scm 883 */
obj_t BgL_arg2191z00_823;
BgL_arg2191z00_823 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
BINT(BgL_countz00_103), 
BINT(((long)1))); 
BgL_arg2188z00_822 = 
BGl_2za2za2zz__r4_numbers_6_5z00(BgL_arg2191z00_823, BgL_stepz00_812); } 
BgL_arg2184z00_820 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_startz00_811, BgL_arg2188z00_822); } 
{ 
obj_t BgL_iz00_1585;obj_t BgL_vz00_1586;obj_t BgL_rz00_1587;
{ /* ./Ieee/pairlist.scm 883 */
obj_t BgL_aux6389z00_2639;
BgL_iz00_1585 = 
BINT(BgL_countz00_103); 
BgL_vz00_1586 = BgL_arg2184z00_820; 
BgL_rz00_1587 = BNIL; 
BgL_walkz00_1584:
{ /* ./Ieee/pairlist.scm 883 */
bool_t BgL_test2194z00_1592;
{ /* ./Ieee/pairlist.scm 883 */
long BgL_n1z00_1596;
{ /* ./Ieee/pairlist.scm 883 */
obj_t BgL_auxz00_7914;
if(
INTEGERP(BgL_iz00_1585))
{ /* ./Ieee/pairlist.scm 883 */
BgL_auxz00_7914 = BgL_iz00_1585
; }  else 
{ /* ./Ieee/pairlist.scm 883 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6998z00zz__r4_pairs_and_lists_6_3z00, BGl_string6505z00zz__r4_pairs_and_lists_6_3z00, BgL_iz00_1585, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)34335))); 
exit( -1 );} 
BgL_n1z00_1596 = 
(long)CINT(BgL_auxz00_7914); } 
BgL_test2194z00_1592 = 
(BgL_n1z00_1596<=((long)0)); } 
if(BgL_test2194z00_1592)
{ /* ./Ieee/pairlist.scm 883 */
BgL_aux6389z00_2639 = BgL_rz00_1587; }  else 
{ /* ./Ieee/pairlist.scm 883 */
long BgL_arg2196z00_1593;obj_t BgL_arg2197z00_1594;obj_t BgL_arg2198z00_1595;
{ /* ./Ieee/pairlist.scm 883 */
long BgL_za71za7_1598;
{ /* ./Ieee/pairlist.scm 883 */
obj_t BgL_auxz00_7923;
if(
INTEGERP(BgL_iz00_1585))
{ /* ./Ieee/pairlist.scm 883 */
BgL_auxz00_7923 = BgL_iz00_1585
; }  else 
{ /* ./Ieee/pairlist.scm 883 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6998z00zz__r4_pairs_and_lists_6_3z00, BGl_string6505z00zz__r4_pairs_and_lists_6_3z00, BgL_iz00_1585, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)34335))); 
exit( -1 );} 
BgL_za71za7_1598 = 
(long)CINT(BgL_auxz00_7923); } 
BgL_arg2196z00_1593 = 
(BgL_za71za7_1598-((long)1)); } 
BgL_arg2197z00_1594 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_vz00_1586, BgL_stepz00_812); 
BgL_arg2198z00_1595 = 
MAKE_PAIR(BgL_vz00_1586, BgL_rz00_1587); 
{ 
obj_t BgL_rz00_7936;obj_t BgL_vz00_7935;obj_t BgL_iz00_7933;
BgL_iz00_7933 = 
BINT(BgL_arg2196z00_1593); 
BgL_vz00_7935 = BgL_arg2197z00_1594; 
BgL_rz00_7936 = BgL_arg2198z00_1595; 
BgL_rz00_1587 = BgL_rz00_7936; 
BgL_vz00_1586 = BgL_vz00_7935; 
BgL_iz00_1585 = BgL_iz00_7933; 
goto BgL_walkz00_1584;} } } 
{ /* ./Ieee/pairlist.scm 883 */
bool_t BgL_testz00_7938;
if(
PAIRP(BgL_aux6389z00_2639))
{ /* ./Ieee/pairlist.scm 883 */
BgL_testz00_7938 = ((bool_t)1)
; }  else 
{ /* ./Ieee/pairlist.scm 883 */
BgL_testz00_7938 = 
NULLP(BgL_aux6389z00_2639)
; } 
if(BgL_testz00_7938)
{ /* ./Ieee/pairlist.scm 883 */
BgL_aux2767z00_1764 = BgL_aux6389z00_2639; }  else 
{ /* ./Ieee/pairlist.scm 883 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6998z00zz__r4_pairs_and_lists_6_3z00, BGl_string6485z00zz__r4_pairs_and_lists_6_3z00, BgL_aux6389z00_2639, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)34335))); 
exit( -1 );} } } } } } 
POP_TRACE(); 
return BgL_aux2767z00_1764;} } } } 
}



/* _iota */
obj_t BGl__iotaz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_1941, obj_t BgL_countz00_1942, obj_t BgL_restz00_1943)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 875 */
{ /* ./Ieee/pairlist.scm 876 */
int BgL_auxz00_7946;
{ /* ./Ieee/pairlist.scm 876 */
obj_t BgL_auxz00_7947;
if(
INTEGERP(BgL_countz00_1942))
{ /* ./Ieee/pairlist.scm 876 */
BgL_auxz00_7947 = BgL_countz00_1942
; }  else 
{ /* ./Ieee/pairlist.scm 876 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6999z00zz__r4_pairs_and_lists_6_3z00, BGl_string6991z00zz__r4_pairs_and_lists_6_3z00, BgL_countz00_1942, BGl_string6416z00zz__r4_pairs_and_lists_6_3z00, 
BINT(((long)34179))); 
exit( -1 );} 
BgL_auxz00_7946 = 
CINT(BgL_auxz00_7947); } 
return 
BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_7946, BgL_restz00_1943);} } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_pairs_and_lists_6_3z00()
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 18 */
{ /* ./Ieee/pairlist.scm 18 */
obj_t BgL_symbol2772z00_1765;
BgL_symbol2772z00_1765 = BGl_symbol7000z00zz__r4_pairs_and_lists_6_3z00; 
{ /* ./Ieee/pairlist.scm 18 */

PUSH_TRACE(BgL_symbol2772z00_1765); BUNSPEC; 
{ /* ./Ieee/pairlist.scm 18 */
obj_t BgL_aux2771z00_1766;
BgL_aux2771z00_1766 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_pairs_and_lists_6_3"); 
POP_TRACE(); 
return BgL_aux2771z00_1766;} } } } 
}

