/*===========================================================================*/
/*   (Ieee/pairlist.scm)                                                     */
/*   Bigloo (4.7a)                                                           */
/*   Inria -- Sophia Antipolis (c)       Thu Feb 19 09:11:58 AM CET 2026     */
/*===========================================================================*/
/* COMPILATION: (/home/serrano/prgm/project/bigloo/4.7a/bin/bigloo -srfi bigloo-safe -O3 -fcfa-arithmetic -q -lib-dir /home/serrano/prgm/project/bigloo/4.7a/lib/bigloo/4.7a +rm -O3 -mklib -cc gcc -fsharing -q -unsafev -eval (set! *indent* 4) -stdc -c Ieee/pairlist.scm -indent -o objs/obj_s/Ieee/pairlist.c) */
/* GC selection */
#define THE_GC BOEHM_GC

/* traces mode */
#define BIGLOO_TRACE 0

/* standard Bigloo include */
#include <bigloo.h>

#ifdef __cplusplus
extern "C" {
#endif
#ifndef BGL_MODULE_TYPE_DEFINITIONS
#define BGL_MODULE_TYPE_DEFINITIONS
#ifndef BGL___R4_PAIRS_AND_LISTS_6_3_TYPE_DEFINITIONS
#define BGL___R4_PAIRS_AND_LISTS_6_3_TYPE_DEFINITIONS
#endif // BGL___R4_PAIRS_AND_LISTS_6_3_TYPE_DEFINITIONS
#endif // BGL_MODULE_TYPE_DEFINITIONS

static obj_t BGl_z62carz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62nullzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62cdaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62caddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2805z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2724z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2643z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_cddddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol2727z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62lengthz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62takez62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_append2(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_reducez00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62appendz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_caddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol2810z00zz__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_z62listz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2732z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2700z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2652z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62cddaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2654z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2736z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2703z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62cdaddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_anyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2656z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2739z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2706z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2707z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2708z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t, long);
BGL_EXPORTED_DECL obj_t bgl_remq_bang(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_caaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62caadarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2822z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2660z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol2904z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_takez00zz__r4_pairs_and_lists_6_3z00(obj_t, long);
static obj_t BGl_symbol2743z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t bgl_list_ref(obj_t, long);
static obj_t BGl_list2711z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2745z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2712z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2713z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2665z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2828z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2749z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2716z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2717z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2669z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2718z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62epairzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern bool_t BGl_equalzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_findzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_caaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
extern obj_t BGl_typezd2errorzd2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__paramz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
BGL_EXPORTED_DECL obj_t BGl_listz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62caarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62cdrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2830z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62cdadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2801z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2720z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2802z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2754z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2721z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2803z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2722z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2837z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2804z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2723z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2807z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2759z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2726z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2808z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2679z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2809z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_appendzd2listze70z35zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_recurze70ze7zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2729z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_appendzd2listze71z35zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_list2649z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_appendzd2listze72z35zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_deletez00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62assqz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62cerz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cadddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62assvz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2842z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62pairzd2orzd2nullzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2730z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62cddadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2812z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2731z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2683z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2813z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2814z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2815z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2767z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2734z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2686z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2816z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2735z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62makezd2listzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__deletezd2duplicateszd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2817z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2818z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2819z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2738z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62iotaz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2cdrz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62setzd2carz12za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2splitz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, int, obj_t);
BGL_EXPORTED_DECL obj_t BGl_caarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62remqz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_consza21ze70z45zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_caaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62appendz12z70zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62cadaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62caaddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2820z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2821z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2773z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2741z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2742z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2857z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2824z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2695z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2825z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2744z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2826z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2778z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2664z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2827z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2698z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2747z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2829z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2748z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2668z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__deletez00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62memqz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_cnstzd2initzd2zz__r4_pairs_and_lists_6_3z00(void);
static obj_t BGl_z62memvz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_caadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62remqz12z70zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_reverse(obj_t);
BGL_EXPORTED_DECL obj_t BGl_assvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62cadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62reversez62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL long bgl_list_length(obj_t);
static obj_t BGl_z62cddarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2832z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2751z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_pairs_and_lists_6_3z00(void);
static obj_t BGl_list2833z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2785z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2752z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2834z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2753z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(int, obj_t);
static obj_t BGl_list2835z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2836z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_gczd2rootszd2initz00zz__r4_pairs_and_lists_6_3z00(void);
static obj_t BGl_list2756z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2757z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2676z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2839z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2758z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_setzd2cerz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_remq(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62dropz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
extern obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_z62appendzd22zb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
extern obj_t BGl_2zb2zb2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_z62caaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cddaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62ereversez62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2871z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62cdddarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t bgl_bignum_mul(obj_t, obj_t);
static obj_t BGl_list2840z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2792z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2841z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_pairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol2875z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2761z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2762z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2877z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2844z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2763z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2845z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2764z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2879z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2846z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2765z00zz__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_list2847z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2766z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2685z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2848z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2849z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2769z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2688z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_carz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_caadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_reverse_bang(obj_t);
static obj_t BGl_z62assocz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62cdaaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62cadadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(int, obj_t);
static obj_t BGl_list2850z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2851z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2770z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62listzd2refzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2885z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2852z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2771z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2853z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2772z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2691z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2887z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2854z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2692z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2855z00zz__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_list2856z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2775z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62everyz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list2776z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2777z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2859z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2697z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_dropz00zz__r4_pairs_and_lists_6_3z00(obj_t, long);
BGL_EXPORTED_DECL obj_t BGl_cadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62memberz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62cdarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62findz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62cdddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t bgl_bignum_add(obj_t, obj_t);
static obj_t BGl_list2860z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2861z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2780z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2862z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2781z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62anyz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list2863z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2782z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2864z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2783z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2784z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2899z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62lastzd2pairzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2787z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_listzd2splitzd2zz__r4_pairs_and_lists_6_3z00(obj_t, int, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(int, obj_t);
static obj_t BGl_z62appendzd22z12za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
extern obj_t bstring_to_symbol(obj_t);
static obj_t BGl_z62listzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62caadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cddadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62cddddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2870z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2791z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2874z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2795z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2796z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2797z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_list2798z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_econsz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62setzd2cdrz12za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_appendzd221011zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cadaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62reducez62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_caaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_findz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorz00zz__errorz00(obj_t, obj_t, obj_t);
static obj_t BGl_z62cdaadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62caddarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62pairzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_list2884z00zz__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_cerz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62listzd2splitzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62listzd2setz12za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_caddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62caaaarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62consza2zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62cddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62consz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62setzd2cerz12za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62listzd2splitz12za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62cadarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62eappendzd22zb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62eappendz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t bgl_bignum_sub(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_deletezd2duplicateszd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62listzd2tailzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62treezd2copyzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cadadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_symbol2701z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62listzd2tabulatezb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol2704z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62reversez12z70zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62cdadarz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2709z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_z62cadddrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t bgl_long_to_bignum(long);
static obj_t BGl_z62listzd2copyzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2carz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_consz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_z62findzd2tailzb0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_z62econsz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_z62caaadrz62zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_symbol2714z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
extern obj_t BGl_errorz00zz__errorz00(obj_t, obj_t, obj_t);
extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, long, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_BGL_PROCEDURE(BGl_anyzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762anyza762za7za7__r4_2908z00, va_generic_entry, BGl_z62anyz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_lastzd2pairzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762lastza7d2pairza7b2909za7, BGl_z62lastzd2pairzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2760z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2760za700za7za7_2910za7, "arg1551", 7 );
BGL_DEFINE_STRING(BGl_string2680z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2680za700za7za7_2911za7, "arg1532", 7 );
BGL_DEFINE_STRING(BGl_string2843z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2843za700za7za7_2912za7, "arg1587", 7 );
BGL_DEFINE_STRING(BGl_string2681z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2681za700za7za7_2913za7, "<@anonymous:1547>", 17 );
BGL_DEFINE_STRING(BGl_string2682z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2682za700za7za7_2914za7, "map", 3 );
BGL_DEFINE_STRING(BGl_string2684z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2684za700za7za7_2915za7, "Wrong number of arguments", 25 );
BGL_DEFINE_STRING(BGl_string2768z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2768za700za7za7_2916za7, "begin", 5 );
BGL_DEFINE_STRING(BGl_string2687z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2687za700za7za7_2917za7, "apply", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_treezd2copyzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762treeza7d2copyza7b2918za7, BGl_z62treezd2copyzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7f3za791za7za7_2919za7, BGl_z62listzf3z91zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_caadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caadrza762za7za7__r2920z00, BGl_z62caadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cddrza762za7za7__r42921z00, BGl_z62cddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cddadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cddadrza762za7za7__2922z00, BGl_z62cddadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2copyzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2copyza7b2923za7, BGl_z62listzd2copyzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2690z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2690za700za7za7_2924za7, "let", 3 );
BGL_DEFINE_STRING(BGl_string2774z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2774za700za7za7_2925za7, "$set-cdr!", 9 );
BGL_DEFINE_STRING(BGl_string2694z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2694za700za7za7_2926za7, "l1072", 5 );
BGL_DEFINE_STRING(BGl_string2858z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2858za700za7za7_2927za7, "arg1586", 7 );
BGL_DEFINE_STRING(BGl_string2696z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2696za700za7za7_2928za7, "l", 1 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_findzd2tailzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762findza7d2tailza7b2929za7, BGl_z62findzd2tailzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_caaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caaarza762za7za7__r2930z00, BGl_z62caaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2779z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2779za700za7za7_2931za7, "arg1549", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdarza762za7za7__r42932z00, BGl_z62cdarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2699z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2699za700za7za7_2933za7, "if", 2 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza762za7za7__r42934z00, va_generic_entry, BGl_z62listz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cddaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cddaarza762za7za7__2935z00, BGl_z62cddaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762pairza7f3za791za7za7_2936za7, BGl_z62pairzf3z91zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2865z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2865za700za7za7_2937za7, "<@anonymous:1575>", 17 );
BGL_DEFINE_STRING(BGl_string2866z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2866za700za7za7_2938za7, "&any", 4 );
BGL_DEFINE_STRING(BGl_string2867z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2867za700za7za7_2939za7, "find", 4 );
BGL_DEFINE_STRING(BGl_string2786z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2786za700za7za7_2940za7, "bigloo-type-error/location", 26 );
BGL_DEFINE_STRING(BGl_string2868z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2868za700za7za7_2941za7, "&find", 5 );
BGL_DEFINE_STRING(BGl_string2869z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2869za700za7za7_2942za7, "lp:Wrong number of arguments", 28 );
BGL_DEFINE_STRING(BGl_string2788z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2788za700za7za7_2943za7, "<@anonymous:1536>", 17 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762nullza7f3za791za7za7_2944za7, BGl_z62nullzf3z91zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cerzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cerza762za7za7__r4_2945z00, BGl_z62cerz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2789z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2789za700za7za7_2946za7, "&every", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_caddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caddrza762za7za7__r2947z00, BGl_z62caddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_pairzd2orzd2nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762pairza7d2orza7d2n2948za7, BGl_z62pairzd2orzd2nullzf3z91zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cddddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cddddrza762za7za7__2949z00, BGl_z62cddddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_makezd2listzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762makeza7d2listza7b2950za7, va_generic_entry, BGl_z62makezd2listzb0zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string2790z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2790za700za7za7_2951za7, "any", 3 );
BGL_DEFINE_STRING(BGl_string2872z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2872za700za7za7_2952za7, "arg1603", 7 );
BGL_DEFINE_STRING(BGl_string2873z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2873za700za7za7_2953za7, "&find-tail", 10 );
BGL_DEFINE_STRING(BGl_string2793z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2793za700za7za7_2954za7, "arg1568", 7 );
BGL_DEFINE_STRING(BGl_string2794z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2794za700za7za7_2955za7, "<@anonymous:1584>", 17 );
BGL_DEFINE_STRING(BGl_string2876z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2876za700za7za7_2956za7, "f", 1 );
BGL_DEFINE_STRING(BGl_string2878z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2878za700za7za7_2957za7, "arg1610", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cadarza762za7za7__r2958z00, BGl_z62cadarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_caaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caaadrza762za7za7__2959z00, BGl_z62caaadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_ereversezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762ereverseza762za7za72960z00, BGl_z62ereversez62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdddarza762za7za7__2961z00, BGl_z62cdddarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_deletezd2duplicateszd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__deleteza7d2duplic2962za7, opt_generic_entry, BGl__deletezd2duplicateszd2zz__r4_pairs_and_lists_6_3z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string2880z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2880za700za7za7_2963za7, "ans", 3 );
BGL_DEFINE_STRING(BGl_string2881z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2881za700za7za7_2964za7, "&reduce", 7 );
BGL_DEFINE_STRING(BGl_string2882z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2882za700za7za7_2965za7, "&make-list", 10 );
BGL_DEFINE_STRING(BGl_string2883z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2883za700za7za7_2966za7, "walk:Wrong number of arguments", 30 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_assqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762assqza762za7za7__r42967z00, BGl_z62assqz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2886z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2886za700za7za7_2968za7, "init-proc", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_caaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caaaarza762za7za7__2969z00, BGl_z62caaaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2888z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2888za700za7za7_2970za7, "i", 1 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2tabulatezd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2tabula2971z00, BGl_z62listzd2tabulatezb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2889z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2889za700za7za7_2972za7, "&list-tabulate", 14 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_reversezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762reverseza762za7za7_2973z00, BGl_z62reversez62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_takezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762takeza762za7za7__r42974z00, BGl_z62takez62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2890z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2890za700za7za7_2975za7, "&list-split", 11 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_setzd2cerz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762setza7d2cerza712za72976z00, BGl_z62setzd2cerz12za2zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2891z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2891za700za7za7_2977za7, "&list-split!", 12 );
BGL_DEFINE_STRING(BGl_string2892z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2892za700za7za7_2978za7, "iota", 4 );
BGL_DEFINE_STRING(BGl_string2893z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2893za700za7za7_2979za7, "&iota", 5 );
BGL_DEFINE_STRING(BGl_string2894z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2894za700za7za7_2980za7, "list-copy", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_appendzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762appendza762za7za7__2981z00, va_generic_entry, BGl_z62appendz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -1);
BGL_DEFINE_STRING(BGl_string2895z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2895za700za7za7_2982za7, "&list-copy", 10 );
BGL_DEFINE_STRING(BGl_string2896z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2896za700za7za7_2983za7, "tree-copy", 9 );
BGL_DEFINE_STRING(BGl_string2897z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2897za700za7za7_2984za7, "_delete-duplicates", 18 );
BGL_DEFINE_STRING(BGl_string2898z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2898za700za7za7_2985za7, "case_else1120", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdadrza762za7za7__r2986z00, BGl_z62cdadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_caaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caaddrza762za7za7__2987z00, BGl_z62caaddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_memqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762memqza762za7za7__r42988z00, BGl_z62memqz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2setz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2setza7122989za7, BGl_z62listzd2setz12za2zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_assoczd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762assocza762za7za7__r2990z00, BGl_z62assocz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdaarza762za7za7__r2991z00, BGl_z62cdaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_caadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caadarza762za7za7__2992z00, BGl_z62caadarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_epairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762epairza7f3za791za7za72993za7, BGl_z62epairzf3z91zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_appendz12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762appendza712za770za72994z00, va_generic_entry, BGl_z62appendz12z70zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdddrza762za7za7__r2995z00, BGl_z62cdddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2600z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2600za700za7za7_2996za7, "list", 4 );
BGL_DEFINE_STRING(BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2601za700za7za7_2997za7, "pair-nil", 8 );
BGL_DEFINE_STRING(BGl_string2602z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2602za700za7za7_2998za7, "l2", 2 );
BGL_DEFINE_STRING(BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2603za700za7za7_2999za7, "loop", 4 );
BGL_DEFINE_STRING(BGl_string2604z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2604za700za7za7_3000za7, "&append-2", 9 );
BGL_DEFINE_STRING(BGl_string2605z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2605za700za7za7_3001za7, "eappend-2", 9 );
BGL_DEFINE_STRING(BGl_string2606z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2606za700za7za7_3002za7, "&eappend-2", 10 );
BGL_DEFINE_STRING(BGl_string2607z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2607za700za7za7_3003za7, "append-list~2", 13 );
BGL_DEFINE_STRING(BGl_string2608z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2608za700za7za7_3004za7, "case_else1012", 13 );
BGL_DEFINE_STRING(BGl_string2609z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2609za700za7za7_3005za7, "append-list~1", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_remqz12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762remqza712za770za7za7_3006za7, BGl_z62remqz12z70zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_assvzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762assvza762za7za7__r43007z00, BGl_z62assvz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cddarza762za7za7__r3008z00, BGl_z62cddarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cadadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cadadrza762za7za7__3009z00, BGl_z62cadadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2refzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2refza7b03010za7, BGl_z62listzd2refzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2610z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2610za700za7za7_3011za7, "case_else1014", 13 );
BGL_DEFINE_STRING(BGl_string2611z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2611za700za7za7_3012za7, "append!", 7 );
BGL_DEFINE_STRING(BGl_string2612z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2612za700za7za7_3013za7, "append-list~0", 13 );
BGL_DEFINE_STRING(BGl_string2613z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2613za700za7za7_3014za7, "case_else1016", 13 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_iotazd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762iotaza762za7za7__r43015z00, va_generic_entry, BGl_z62iotaz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string2614z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2614za700za7za7_3016za7, "do-loop--1018", 13 );
BGL_DEFINE_STRING(BGl_string2615z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2615za700za7za7_3017za7, "&append-2!", 10 );
BGL_DEFINE_STRING(BGl_string2616z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2616za700za7za7_3018za7, "&length", 7 );
BGL_DEFINE_STRING(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2535za700za7za7_3019za7, "/tmp/bigloo/runtime/Ieee/pairlist.scm", 37 );
BGL_DEFINE_STRING(BGl_string2617z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2617za700za7za7_3020za7, "&reverse", 8 );
BGL_DEFINE_STRING(BGl_string2536z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2536za700za7za7_3021za7, "&car", 4 );
BGL_DEFINE_STRING(BGl_string2618z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2618za700za7za7_3022za7, "&ereverse", 9 );
BGL_DEFINE_STRING(BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2537za700za7za7_3023za7, "pair", 4 );
BGL_DEFINE_STRING(BGl_string2619z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2619za700za7za7_3024za7, "&take", 5 );
BGL_DEFINE_STRING(BGl_string2538z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2538za700za7za7_3025za7, "&cdr", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762consza762za7za7__r43026z00, BGl_z62consz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2539z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2539za700za7za7_3027za7, "&cer", 4 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_remqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762remqza762za7za7__r43028z00, BGl_z62remqz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_econszd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762econsza762za7za7__r3029z00, BGl_z62econsz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cadaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cadaarza762za7za7__3030z00, BGl_z62cadaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2620za700za7za7_3031za7, "bint", 4 );
BGL_DEFINE_STRING(BGl_string2702z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2702za700za7za7_3032za7, "$null?", 6 );
BGL_DEFINE_STRING(BGl_string2621z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2621za700za7za7_3033za7, "drop", 4 );
BGL_DEFINE_STRING(BGl_string2540z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2540za700za7za7_3034za7, "epair", 5 );
BGL_DEFINE_STRING(BGl_string2622z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2622za700za7za7_3035za7, "&drop", 5 );
BGL_DEFINE_STRING(BGl_string2541z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2541za700za7za7_3036za7, "caar", 4 );
BGL_DEFINE_STRING(BGl_string2623z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2623za700za7za7_3037za7, "&list-tail", 10 );
BGL_DEFINE_STRING(BGl_string2542z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2542za700za7za7_3038za7, "&caar", 5 );
BGL_DEFINE_STRING(BGl_string2705z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2705za700za7za7_3039za7, "quote", 5 );
BGL_DEFINE_STRING(BGl_string2624z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2624za700za7za7_3040za7, "list-ref", 8 );
BGL_DEFINE_STRING(BGl_string2543z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2543za700za7za7_3041za7, "cadr", 4 );
BGL_DEFINE_STRING(BGl_string2625z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2625za700za7za7_3042za7, "&list-ref", 9 );
BGL_DEFINE_STRING(BGl_string2544z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2544za700za7za7_3043za7, "&cadr", 5 );
BGL_DEFINE_STRING(BGl_string2626z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2626za700za7za7_3044za7, "list-set!", 9 );
BGL_DEFINE_STRING(BGl_string2545z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2545za700za7za7_3045za7, "cdar", 4 );
BGL_DEFINE_STRING(BGl_string2627z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2627za700za7za7_3046za7, "&list-set!", 10 );
BGL_DEFINE_STRING(BGl_string2546z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2546za700za7za7_3047za7, "&cdar", 5 );
BGL_DEFINE_STRING(BGl_string2628z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2628za700za7za7_3048za7, "last-pair", 9 );
BGL_DEFINE_STRING(BGl_string2547z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2547za700za7za7_3049za7, "cddr", 4 );
BGL_DEFINE_STRING(BGl_string2629z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2629za700za7za7_3050za7, "&last-pair", 10 );
BGL_DEFINE_STRING(BGl_string2548z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2548za700za7za7_3051za7, "&cddr", 5 );
BGL_DEFINE_STRING(BGl_string2549z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2549za700za7za7_3052za7, "caaar", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_memvzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762memvza762za7za7__r43053z00, BGl_z62memvz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_reversez12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762reverseza712za7703054za7, BGl_z62reversez12z70zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_consza2zd2envz70zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762consza7a2za7c0za7za7_3055za7, va_generic_entry, BGl_z62consza2zc0zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cadddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cadddrza762za7za7__3056z00, BGl_z62cadddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2710z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2710za700za7za7_3057za7, "head1074", 8 );
BGL_DEFINE_STRING(BGl_string2630z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2630za700za7za7_3058za7, "&memq", 5 );
BGL_DEFINE_STRING(BGl_string2631z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2631za700za7za7_3059za7, "&memv", 5 );
BGL_DEFINE_STRING(BGl_string2550z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2550za700za7za7_3060za7, "&caaar", 6 );
BGL_DEFINE_STRING(BGl_string2632z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2632za700za7za7_3061za7, "&member", 7 );
BGL_DEFINE_STRING(BGl_string2551z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2551za700za7za7_3062za7, "caadr", 5 );
BGL_DEFINE_STRING(BGl_string2633z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2633za700za7za7_3063za7, "&assq", 5 );
BGL_DEFINE_STRING(BGl_string2552z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2552za700za7za7_3064za7, "&caadr", 6 );
BGL_DEFINE_STRING(BGl_string2715z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2715za700za7za7_3065za7, "arg1554", 7 );
BGL_DEFINE_STRING(BGl_string2634z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2634za700za7za7_3066za7, "&assv", 5 );
BGL_DEFINE_STRING(BGl_string2553z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2553za700za7za7_3067za7, "cadar", 5 );
BGL_DEFINE_STRING(BGl_string2635z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2635za700za7za7_3068za7, "&assoc", 6 );
BGL_DEFINE_STRING(BGl_string2554z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2554za700za7za7_3069za7, "&cadar", 6 );
BGL_DEFINE_STRING(BGl_string2636z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2636za700za7za7_3070za7, "remq", 4 );
BGL_DEFINE_STRING(BGl_string2555z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2555za700za7za7_3071za7, "caddr", 5 );
BGL_DEFINE_STRING(BGl_string2637z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2637za700za7za7_3072za7, "&remq", 5 );
BGL_DEFINE_STRING(BGl_string2556z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2556za700za7za7_3073za7, "&caddr", 6 );
BGL_DEFINE_STRING(BGl_string2638z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2638za700za7za7_3074za7, "remq!", 5 );
BGL_DEFINE_STRING(BGl_string2557z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2557za700za7za7_3075za7, "cdaar", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_deletez12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl__deleteza712za712za7za7_3076z00, opt_generic_entry, BGl__deletez12z12zz__r4_pairs_and_lists_6_3z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string2639z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2639za700za7za7_3077za7, "&remq!", 6 );
BGL_DEFINE_STRING(BGl_string2558z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2558za700za7za7_3078za7, "&cdaar", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_dropzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762dropza762za7za7__r43079z00, BGl_z62dropz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2559z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2559za700za7za7_3080za7, "cddar", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2splitz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2splitza73081za7, va_generic_entry, BGl_z62listzd2splitz12za2zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -3);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_appendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762appendza7d22za7b03082za7, BGl_z62appendzd22zb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdaadrza762za7za7__3083z00, BGl_z62cdaadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_caddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caddarza762za7za7__3084z00, BGl_z62caddarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2800z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2800za700za7za7_3085za7, "l1084", 5 );
BGL_DEFINE_STRING(BGl_string2640z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2640za700za7za7_3086za7, "_delete", 7 );
BGL_DEFINE_STRING(BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2641za700za7za7_3087za7, "vector", 6 );
BGL_DEFINE_STRING(BGl_string2560z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2560za700za7za7_3088za7, "&cddar", 6 );
BGL_DEFINE_STRING(BGl_string2642z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2642za700za7za7_3089za7, "case_else1109", 13 );
BGL_DEFINE_STRING(BGl_string2561z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2561za700za7za7_3090za7, "cdadr", 5 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_deletezd2duplicatesz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl__deleteza7d2duplic3091za7, opt_generic_entry, BGl__deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string2562z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2562za700za7za7_3092za7, "&cdadr", 6 );
BGL_DEFINE_STRING(BGl_string2806z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2806za700za7za7_3093za7, "head1086", 8 );
BGL_DEFINE_STRING(BGl_string2725z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2725za700za7za7_3094za7, "$car", 4 );
BGL_DEFINE_STRING(BGl_string2644z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2644za700za7za7_3095za7, "delete", 6 );
BGL_DEFINE_STRING(BGl_string2563z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2563za700za7za7_3096za7, "cdddr", 5 );
BGL_DEFINE_STRING(BGl_string2645z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2645za700za7za7_3097za7, "wrong number of arguments: [2..3] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string2564z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2564za700za7za7_3098za7, "&cdddr", 6 );
BGL_DEFINE_STRING(BGl_string2646z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2646za700za7za7_3099za7, "loop~0", 6 );
BGL_DEFINE_STRING(BGl_string2565z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2565za700za7za7_3100za7, "caaaar", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2tailzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2tailza7b3101za7, BGl_z62listzd2tailzb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2728z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2728za700za7za7_3102za7, "$cons", 5 );
BGL_DEFINE_STRING(BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2647za700za7za7_3103za7, "procedure", 9 );
BGL_DEFINE_STRING(BGl_string2566z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2566za700za7za7_3104za7, "&caaaar", 7 );
BGL_DEFINE_STRING(BGl_string2648z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2648za700za7za7_3105za7, "loop~0:Wrong number of arguments", 32 );
BGL_DEFINE_STRING(BGl_string2567z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2567za700za7za7_3106za7, "caaadr", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_listzd2splitzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2splitza73107za7, va_generic_entry, BGl_z62listzd2splitzb0zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -3);
BGL_DEFINE_STRING(BGl_string2568z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2568za700za7za7_3108za7, "&caaadr", 7 );
BGL_DEFINE_STRING(BGl_string2569z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2569za700za7za7_3109za7, "caadar", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_appendzd22z12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762appendza7d22za7123110za7, BGl_z62appendzd22z12za2zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdaaarza762za7za7__3111z00, BGl_z62cdaaarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_lengthzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762lengthza762za7za7__3112z00, BGl_z62lengthz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2811z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2811za700za7za7_3113za7, "arg1592", 7 );
BGL_DEFINE_STRING(BGl_string2651z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2651za700za7za7_3114za7, "funcall", 7 );
BGL_DEFINE_STRING(BGl_string2570z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2570za700za7za7_3115za7, "&caadar", 7 );
BGL_DEFINE_STRING(BGl_string2733z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2733za700za7za7_3116za7, "g1077", 5 );
BGL_DEFINE_STRING(BGl_string2571z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2571za700za7za7_3117za7, "cadaar", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_setzd2carz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762setza7d2carza712za73118z00, BGl_z62setzd2carz12za2zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2653z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2653za700za7za7_3119za7, "eq", 2 );
BGL_DEFINE_STRING(BGl_string2572z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2572za700za7za7_3120za7, "&cadaar", 7 );
BGL_DEFINE_STRING(BGl_string2573z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2573za700za7za7_3121za7, "cdaaar", 6 );
BGL_DEFINE_STRING(BGl_string2655z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2655za700za7za7_3122za7, "x", 1 );
BGL_DEFINE_STRING(BGl_string2574z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2574za700za7za7_3123za7, "&cdaaar", 7 );
BGL_DEFINE_STRING(BGl_string2737z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2737za700za7za7_3124za7, "$cdr", 4 );
BGL_DEFINE_STRING(BGl_string2575z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2575za700za7za7_3125za7, "caaddr", 6 );
BGL_DEFINE_STRING(BGl_string2657z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2657za700za7za7_3126za7, "arg1489", 7 );
BGL_DEFINE_STRING(BGl_string2576z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2576za700za7za7_3127za7, "&caaddr", 7 );
BGL_DEFINE_STRING(BGl_string2658z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2658za700za7za7_3128za7, "_delete!", 8 );
BGL_DEFINE_STRING(BGl_string2577z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2577za700za7za7_3129za7, "caddar", 6 );
BGL_DEFINE_STRING(BGl_string2659z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2659za700za7za7_3130za7, "case_else1115", 13 );
BGL_DEFINE_STRING(BGl_string2578z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2578za700za7za7_3131za7, "&caddar", 7 );
extern obj_t BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00;
BGL_DEFINE_STRING(BGl_string2579z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2579za700za7za7_3132za7, "cadadr", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_memberzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762memberza762za7za7__3133z00, BGl_z62memberz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdrza762za7za7__r4_3134z00, BGl_z62cdrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_findzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762findza762za7za7__r43135z00, BGl_z62findz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdaddrza762za7za7__3136z00, BGl_z62cdaddrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2900z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2900za700za7za7_3137za7, "delete-duplicates", 17 );
BGL_DEFINE_STRING(BGl_string2901z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2901za700za7za7_3138za7, "wrong number of arguments: [1..2] expected, provided", 52 );
BGL_DEFINE_STRING(BGl_string2902z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2902za700za7za7_3139za7, "_delete-duplicates!", 19 );
BGL_DEFINE_STRING(BGl_string2740z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2740za700za7za7_3140za7, "labels", 6 );
BGL_DEFINE_STRING(BGl_string2903z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2903za700za7za7_3141za7, "case_else1125", 13 );
BGL_DEFINE_STRING(BGl_string2823z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2823za700za7za7_3142za7, "g1089", 5 );
BGL_DEFINE_STRING(BGl_string2661z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2661za700za7za7_3143za7, "delete!", 7 );
BGL_DEFINE_STRING(BGl_string2580z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2580za700za7za7_3144za7, "&cadadr", 7 );
BGL_DEFINE_STRING(BGl_string2905z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2905za700za7za7_3145za7, "delete-duplicates!", 18 );
BGL_DEFINE_STRING(BGl_string2662z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2662za700za7za7_3146za7, "laap", 4 );
BGL_DEFINE_STRING(BGl_string2581z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2581za700za7za7_3147za7, "cadddr", 6 );
BGL_DEFINE_STRING(BGl_string2906z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2906za700za7za7_3148za7, "recur~0", 7 );
BGL_DEFINE_STRING(BGl_string2663z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2663za700za7za7_3149za7, "laap:Wrong number of arguments", 30 );
BGL_DEFINE_STRING(BGl_string2582z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2582za700za7za7_3150za7, "&cadddr", 7 );
BGL_DEFINE_STRING(BGl_string2907z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2907za700za7za7_3151za7, "__r4_pairs_and_lists_6_3", 24 );
BGL_DEFINE_STRING(BGl_string2583z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2583za700za7za7_3152za7, "cdaadr", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_deletezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__deleteza700za7za7__r43153za7, opt_generic_entry, BGl__deletez00zz__r4_pairs_and_lists_6_3z00, BFALSE, -1);
BGL_DEFINE_STRING(BGl_string2746z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2746za700za7za7_3154za7, "tail1075", 8 );
BGL_DEFINE_STRING(BGl_string2584z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2584za700za7za7_3155za7, "&cdaadr", 7 );
BGL_DEFINE_STRING(BGl_string2666z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2666za700za7za7_3156za7, "arg1509", 7 );
BGL_DEFINE_STRING(BGl_string2585z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2585za700za7za7_3157za7, "cdaddr", 6 );
BGL_DEFINE_STRING(BGl_string2667z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2667za700za7za7_3158za7, "loop:Wrong number of arguments", 30 );
BGL_DEFINE_STRING(BGl_string2586z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2586za700za7za7_3159za7, "&cdaddr", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762carza762za7za7__r4_3160z00, BGl_z62carz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2587z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2587za700za7za7_3161za7, "cddaar", 6 );
BGL_DEFINE_STRING(BGl_string2588z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2588za700za7za7_3162za7, "&cddaar", 7 );
BGL_DEFINE_STRING(BGl_string2589z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2589za700za7za7_3163za7, "cddadr", 6 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cadrza762za7za7__r43164z00, BGl_z62cadrz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_cdadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdadarza762za7za7__3165z00, BGl_z62cdadarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_everyzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762everyza762za7za7__r3166z00, va_generic_entry, BGl_z62everyz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -2);
BGL_DEFINE_STRING(BGl_string2831z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2831za700za7za7_3167za7, "tail1087", 8 );
BGL_DEFINE_STRING(BGl_string2750z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2750za700za7za7_3168za7, "$pair?", 6 );
BGL_DEFINE_STRING(BGl_string2670z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2670za700za7za7_3169za7, "arg1507", 7 );
BGL_DEFINE_STRING(BGl_string2671z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2671za700za7za7_3170za7, "cons*1~0", 8 );
BGL_DEFINE_STRING(BGl_string2590z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2590za700za7za7_3171za7, "&cddadr", 7 );
BGL_DEFINE_STRING(BGl_string2672z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2672za700za7za7_3172za7, "nr", 2 );
BGL_DEFINE_STRING(BGl_string2591z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2591za700za7za7_3173za7, "cdadar", 6 );
BGL_DEFINE_STRING(BGl_string2673z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2673za700za7za7_3174za7, "reverse!", 8 );
BGL_DEFINE_STRING(BGl_string2592z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2592za700za7za7_3175za7, "&cdadar", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_setzd2cdrz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762setza7d2cdrza712za73176z00, BGl_z62setzd2cdrz12za2zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
BGL_DEFINE_STRING(BGl_string2755z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2755za700za7za7_3177za7, "newtail1076", 11 );
BGL_DEFINE_STRING(BGl_string2674z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2674za700za7za7_3178za7, "&reverse!", 9 );
BGL_DEFINE_STRING(BGl_string2593z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2593za700za7za7_3179za7, "cdddar", 6 );
BGL_DEFINE_STRING(BGl_string2675z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2675za700za7za7_3180za7, "every", 5 );
BGL_DEFINE_STRING(BGl_string2594z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2594za700za7za7_3181za7, "&cdddar", 7 );
BGL_DEFINE_STRING(BGl_string2838z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2838za700za7za7_3182za7, "newtail1088", 11 );
BGL_DEFINE_STRING(BGl_string2595z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2595za700za7za7_3183za7, "cddddr", 6 );
BGL_DEFINE_STRING(BGl_string2596z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2596za700za7za7_3184za7, "&cddddr", 7 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_caarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caarza762za7za7__r43185z00, BGl_z62caarz62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 1);
BGL_DEFINE_STRING(BGl_string2678z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2678za700za7za7_3186za7, "pred", 4 );
BGL_DEFINE_STRING(BGl_string2597z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2597za700za7za7_3187za7, "&set-car!", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_reducezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762reduceza762za7za7__3188z00, BGl_z62reducez62zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 3);
BGL_DEFINE_STRING(BGl_string2598z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2598za700za7za7_3189za7, "&set-cdr!", 9 );
BGL_DEFINE_STRING(BGl_string2599z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2599za700za7za7_3190za7, "&set-cer!", 9 );
DEFINE_EXPORT_BGL_PROCEDURE(BGl_eappendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762eappendza7d22za7b3191za7, BGl_z62eappendzd22zb0zz__r4_pairs_and_lists_6_3z00, 0L, BUNSPEC, 2);
DEFINE_EXPORT_BGL_PROCEDURE(BGl_eappendzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762eappendza762za7za7_3192z00, va_generic_entry, BGl_z62eappendz62zz__r4_pairs_and_lists_6_3z00, BUNSPEC, -1);

/* contant bindings */
static void bgl_constant_bindings() {
BGL_BIND_PROCEDURE(BGl_eappendzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762eappendza762za7za7_3192z00);
BGL_BIND_PROCEDURE(BGl_eappendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762eappendza7d22za7b3191za7);
BGL_BIND_STRING(BGl_string2599z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2599za700za7za7_3190za7);
BGL_BIND_STRING(BGl_string2598z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2598za700za7za7_3189za7);
BGL_BIND_PROCEDURE(BGl_reducezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762reduceza762za7za7__3188z00);
BGL_BIND_STRING(BGl_string2597z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2597za700za7za7_3187za7);
BGL_BIND_STRING(BGl_string2678z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2678za700za7za7_3186za7);
BGL_BIND_PROCEDURE(BGl_caarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caarza762za7za7__r43185z00);
BGL_BIND_STRING(BGl_string2596z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2596za700za7za7_3184za7);
BGL_BIND_STRING(BGl_string2595z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2595za700za7za7_3183za7);
BGL_BIND_STRING(BGl_string2838z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2838za700za7za7_3182za7);
BGL_BIND_STRING(BGl_string2594z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2594za700za7za7_3181za7);
BGL_BIND_STRING(BGl_string2675z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2675za700za7za7_3180za7);
BGL_BIND_STRING(BGl_string2593z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2593za700za7za7_3179za7);
BGL_BIND_STRING(BGl_string2674z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2674za700za7za7_3178za7);
BGL_BIND_STRING(BGl_string2755z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2755za700za7za7_3177za7);
BGL_BIND_PROCEDURE(BGl_setzd2cdrz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762setza7d2cdrza712za73176z00);
BGL_BIND_STRING(BGl_string2592z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2592za700za7za7_3175za7);
BGL_BIND_STRING(BGl_string2673z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2673za700za7za7_3174za7);
BGL_BIND_STRING(BGl_string2591z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2591za700za7za7_3173za7);
BGL_BIND_STRING(BGl_string2672z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2672za700za7za7_3172za7);
BGL_BIND_STRING(BGl_string2590z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2590za700za7za7_3171za7);
BGL_BIND_STRING(BGl_string2671z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2671za700za7za7_3170za7);
BGL_BIND_STRING(BGl_string2670z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2670za700za7za7_3169za7);
BGL_BIND_STRING(BGl_string2750z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2750za700za7za7_3168za7);
BGL_BIND_STRING(BGl_string2831z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2831za700za7za7_3167za7);
BGL_BIND_PROCEDURE(BGl_everyzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762everyza762za7za7__r3166z00);
BGL_BIND_PROCEDURE(BGl_cdadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdadarza762za7za7__3165z00);
BGL_BIND_PROCEDURE(BGl_cadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cadrza762za7za7__r43164z00);
BGL_BIND_STRING(BGl_string2589z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2589za700za7za7_3163za7);
BGL_BIND_STRING(BGl_string2588z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2588za700za7za7_3162za7);
BGL_BIND_STRING(BGl_string2587z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2587za700za7za7_3161za7);
BGL_BIND_PROCEDURE(BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762carza762za7za7__r4_3160z00);
BGL_BIND_STRING(BGl_string2586z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2586za700za7za7_3159za7);
BGL_BIND_STRING(BGl_string2667z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2667za700za7za7_3158za7);
BGL_BIND_STRING(BGl_string2585z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2585za700za7za7_3157za7);
BGL_BIND_STRING(BGl_string2666z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2666za700za7za7_3156za7);
BGL_BIND_STRING(BGl_string2584z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2584za700za7za7_3155za7);
BGL_BIND_STRING(BGl_string2746z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2746za700za7za7_3154za7);
BGL_BIND_PROCEDURE(BGl_deletezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__deleteza700za7za7__r43153za7);
BGL_BIND_STRING(BGl_string2583z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2583za700za7za7_3152za7);
BGL_BIND_STRING(BGl_string2907z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2907za700za7za7_3151za7);
BGL_BIND_STRING(BGl_string2582z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2582za700za7za7_3150za7);
BGL_BIND_STRING(BGl_string2663z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2663za700za7za7_3149za7);
BGL_BIND_STRING(BGl_string2906z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2906za700za7za7_3148za7);
BGL_BIND_STRING(BGl_string2581z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2581za700za7za7_3147za7);
BGL_BIND_STRING(BGl_string2662z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2662za700za7za7_3146za7);
BGL_BIND_STRING(BGl_string2905z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2905za700za7za7_3145za7);
BGL_BIND_STRING(BGl_string2580z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2580za700za7za7_3144za7);
BGL_BIND_STRING(BGl_string2661z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2661za700za7za7_3143za7);
BGL_BIND_STRING(BGl_string2823z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2823za700za7za7_3142za7);
BGL_BIND_STRING(BGl_string2903z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2903za700za7za7_3141za7);
BGL_BIND_STRING(BGl_string2740z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2740za700za7za7_3140za7);
BGL_BIND_STRING(BGl_string2902z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2902za700za7za7_3139za7);
BGL_BIND_STRING(BGl_string2901z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2901za700za7za7_3138za7);
BGL_BIND_STRING(BGl_string2900z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2900za700za7za7_3137za7);
BGL_BIND_PROCEDURE(BGl_cdaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdaddrza762za7za7__3136z00);
BGL_BIND_PROCEDURE(BGl_findzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762findza762za7za7__r43135z00);
BGL_BIND_PROCEDURE(BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdrza762za7za7__r4_3134z00);
BGL_BIND_PROCEDURE(BGl_memberzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762memberza762za7za7__3133z00);
BGL_BIND_STRING(BGl_string2579z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2579za700za7za7_3132za7);
BGL_BIND_STRING(BGl_string2578z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2578za700za7za7_3131za7);
BGL_BIND_STRING(BGl_string2659z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2659za700za7za7_3130za7);
BGL_BIND_STRING(BGl_string2577z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2577za700za7za7_3129za7);
BGL_BIND_STRING(BGl_string2658z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2658za700za7za7_3128za7);
BGL_BIND_STRING(BGl_string2576z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2576za700za7za7_3127za7);
BGL_BIND_STRING(BGl_string2657z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2657za700za7za7_3126za7);
BGL_BIND_STRING(BGl_string2575z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2575za700za7za7_3125za7);
BGL_BIND_STRING(BGl_string2737z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2737za700za7za7_3124za7);
BGL_BIND_STRING(BGl_string2574z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2574za700za7za7_3123za7);
BGL_BIND_STRING(BGl_string2655z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2655za700za7za7_3122za7);
BGL_BIND_STRING(BGl_string2573z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2573za700za7za7_3121za7);
BGL_BIND_STRING(BGl_string2572z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2572za700za7za7_3120za7);
BGL_BIND_STRING(BGl_string2653z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2653za700za7za7_3119za7);
BGL_BIND_PROCEDURE(BGl_setzd2carz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762setza7d2carza712za73118z00);
BGL_BIND_STRING(BGl_string2571z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2571za700za7za7_3117za7);
BGL_BIND_STRING(BGl_string2733z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2733za700za7za7_3116za7);
BGL_BIND_STRING(BGl_string2570z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2570za700za7za7_3115za7);
BGL_BIND_STRING(BGl_string2651z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2651za700za7za7_3114za7);
BGL_BIND_STRING(BGl_string2811z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2811za700za7za7_3113za7);
BGL_BIND_PROCEDURE(BGl_lengthzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762lengthza762za7za7__3112z00);
BGL_BIND_PROCEDURE(BGl_cdaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdaaarza762za7za7__3111z00);
BGL_BIND_PROCEDURE(BGl_appendzd22z12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762appendza7d22za7123110za7);
BGL_BIND_STRING(BGl_string2569z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2569za700za7za7_3109za7);
BGL_BIND_STRING(BGl_string2568z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2568za700za7za7_3108za7);
BGL_BIND_PROCEDURE(BGl_listzd2splitzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2splitza73107za7);
BGL_BIND_STRING(BGl_string2567z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2567za700za7za7_3106za7);
BGL_BIND_STRING(BGl_string2648z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2648za700za7za7_3105za7);
BGL_BIND_STRING(BGl_string2566z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2566za700za7za7_3104za7);
BGL_BIND_STRING(BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2647za700za7za7_3103za7);
BGL_BIND_STRING(BGl_string2728z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2728za700za7za7_3102za7);
BGL_BIND_PROCEDURE(BGl_listzd2tailzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2tailza7b3101za7);
BGL_BIND_STRING(BGl_string2565z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2565za700za7za7_3100za7);
BGL_BIND_STRING(BGl_string2646z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2646za700za7za7_3099za7);
BGL_BIND_STRING(BGl_string2564z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2564za700za7za7_3098za7);
BGL_BIND_STRING(BGl_string2645z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2645za700za7za7_3097za7);
BGL_BIND_STRING(BGl_string2563z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2563za700za7za7_3096za7);
BGL_BIND_STRING(BGl_string2644z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2644za700za7za7_3095za7);
BGL_BIND_STRING(BGl_string2725z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2725za700za7za7_3094za7);
BGL_BIND_STRING(BGl_string2806z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2806za700za7za7_3093za7);
BGL_BIND_STRING(BGl_string2562z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2562za700za7za7_3092za7);
BGL_BIND_PROCEDURE(BGl_deletezd2duplicatesz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl__deleteza7d2duplic3091za7);
BGL_BIND_STRING(BGl_string2561z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2561za700za7za7_3090za7);
BGL_BIND_STRING(BGl_string2642z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2642za700za7za7_3089za7);
BGL_BIND_STRING(BGl_string2560z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2560za700za7za7_3088za7);
BGL_BIND_STRING(BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2641za700za7za7_3087za7);
BGL_BIND_STRING(BGl_string2640z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2640za700za7za7_3086za7);
BGL_BIND_STRING(BGl_string2800z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2800za700za7za7_3085za7);
BGL_BIND_PROCEDURE(BGl_caddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caddarza762za7za7__3084z00);
BGL_BIND_PROCEDURE(BGl_cdaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdaadrza762za7za7__3083z00);
BGL_BIND_PROCEDURE(BGl_appendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762appendza7d22za7b03082za7);
BGL_BIND_PROCEDURE(BGl_listzd2splitz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2splitza73081za7);
BGL_BIND_STRING(BGl_string2559z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2559za700za7za7_3080za7);
BGL_BIND_PROCEDURE(BGl_dropzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762dropza762za7za7__r43079z00);
BGL_BIND_STRING(BGl_string2558z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2558za700za7za7_3078za7);
BGL_BIND_STRING(BGl_string2639z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2639za700za7za7_3077za7);
BGL_BIND_PROCEDURE(BGl_deletez12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl__deleteza712za712za7za7_3076z00);
BGL_BIND_STRING(BGl_string2557z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2557za700za7za7_3075za7);
BGL_BIND_STRING(BGl_string2638z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2638za700za7za7_3074za7);
BGL_BIND_STRING(BGl_string2556z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2556za700za7za7_3073za7);
BGL_BIND_STRING(BGl_string2637z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2637za700za7za7_3072za7);
BGL_BIND_STRING(BGl_string2555z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2555za700za7za7_3071za7);
BGL_BIND_STRING(BGl_string2636z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2636za700za7za7_3070za7);
BGL_BIND_STRING(BGl_string2554z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2554za700za7za7_3069za7);
BGL_BIND_STRING(BGl_string2635z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2635za700za7za7_3068za7);
BGL_BIND_STRING(BGl_string2553z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2553za700za7za7_3067za7);
BGL_BIND_STRING(BGl_string2634z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2634za700za7za7_3066za7);
BGL_BIND_STRING(BGl_string2715z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2715za700za7za7_3065za7);
BGL_BIND_STRING(BGl_string2552z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2552za700za7za7_3064za7);
BGL_BIND_STRING(BGl_string2633z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2633za700za7za7_3063za7);
BGL_BIND_STRING(BGl_string2551z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2551za700za7za7_3062za7);
BGL_BIND_STRING(BGl_string2632z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2632za700za7za7_3061za7);
BGL_BIND_STRING(BGl_string2550z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2550za700za7za7_3060za7);
BGL_BIND_STRING(BGl_string2631z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2631za700za7za7_3059za7);
BGL_BIND_STRING(BGl_string2630z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2630za700za7za7_3058za7);
BGL_BIND_STRING(BGl_string2710z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2710za700za7za7_3057za7);
BGL_BIND_PROCEDURE(BGl_cadddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cadddrza762za7za7__3056z00);
BGL_BIND_PROCEDURE(BGl_consza2zd2envz70zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762consza7a2za7c0za7za7_3055za7);
BGL_BIND_PROCEDURE(BGl_reversez12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762reverseza712za7703054za7);
BGL_BIND_PROCEDURE(BGl_memvzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762memvza762za7za7__r43053z00);
BGL_BIND_STRING(BGl_string2549z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2549za700za7za7_3052za7);
BGL_BIND_STRING(BGl_string2548z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2548za700za7za7_3051za7);
BGL_BIND_STRING(BGl_string2629z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2629za700za7za7_3050za7);
BGL_BIND_STRING(BGl_string2547z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2547za700za7za7_3049za7);
BGL_BIND_STRING(BGl_string2628z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2628za700za7za7_3048za7);
BGL_BIND_STRING(BGl_string2546z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2546za700za7za7_3047za7);
BGL_BIND_STRING(BGl_string2627z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2627za700za7za7_3046za7);
BGL_BIND_STRING(BGl_string2545z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2545za700za7za7_3045za7);
BGL_BIND_STRING(BGl_string2626z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2626za700za7za7_3044za7);
BGL_BIND_STRING(BGl_string2544z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2544za700za7za7_3043za7);
BGL_BIND_STRING(BGl_string2625z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2625za700za7za7_3042za7);
BGL_BIND_STRING(BGl_string2543z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2543za700za7za7_3041za7);
BGL_BIND_STRING(BGl_string2624z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2624za700za7za7_3040za7);
BGL_BIND_STRING(BGl_string2705z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2705za700za7za7_3039za7);
BGL_BIND_STRING(BGl_string2542z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2542za700za7za7_3038za7);
BGL_BIND_STRING(BGl_string2623z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2623za700za7za7_3037za7);
BGL_BIND_STRING(BGl_string2541z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2541za700za7za7_3036za7);
BGL_BIND_STRING(BGl_string2622z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2622za700za7za7_3035za7);
BGL_BIND_STRING(BGl_string2540z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2540za700za7za7_3034za7);
BGL_BIND_STRING(BGl_string2621z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2621za700za7za7_3033za7);
BGL_BIND_STRING(BGl_string2702z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2702za700za7za7_3032za7);
BGL_BIND_STRING(BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2620za700za7za7_3031za7);
BGL_BIND_PROCEDURE(BGl_cadaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cadaarza762za7za7__3030z00);
BGL_BIND_PROCEDURE(BGl_econszd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762econsza762za7za7__r3029z00);
BGL_BIND_PROCEDURE(BGl_remqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762remqza762za7za7__r43028z00);
BGL_BIND_STRING(BGl_string2539z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2539za700za7za7_3027za7);
BGL_BIND_PROCEDURE(BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762consza762za7za7__r43026z00);
BGL_BIND_STRING(BGl_string2538z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2538za700za7za7_3025za7);
BGL_BIND_STRING(BGl_string2619z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2619za700za7za7_3024za7);
BGL_BIND_STRING(BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2537za700za7za7_3023za7);
BGL_BIND_STRING(BGl_string2618z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2618za700za7za7_3022za7);
BGL_BIND_STRING(BGl_string2536z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2536za700za7za7_3021za7);
BGL_BIND_STRING(BGl_string2617z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2617za700za7za7_3020za7);
BGL_BIND_STRING(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2535za700za7za7_3019za7);
BGL_BIND_STRING(BGl_string2616z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2616za700za7za7_3018za7);
BGL_BIND_STRING(BGl_string2615z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2615za700za7za7_3017za7);
BGL_BIND_STRING(BGl_string2614z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2614za700za7za7_3016za7);
BGL_BIND_PROCEDURE(BGl_iotazd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762iotaza762za7za7__r43015z00);
BGL_BIND_STRING(BGl_string2613z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2613za700za7za7_3014za7);
BGL_BIND_STRING(BGl_string2612z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2612za700za7za7_3013za7);
BGL_BIND_STRING(BGl_string2611z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2611za700za7za7_3012za7);
BGL_BIND_STRING(BGl_string2610z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2610za700za7za7_3011za7);
BGL_BIND_PROCEDURE(BGl_listzd2refzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2refza7b03010za7);
BGL_BIND_PROCEDURE(BGl_cadadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cadadrza762za7za7__3009z00);
BGL_BIND_PROCEDURE(BGl_cddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cddarza762za7za7__r3008z00);
BGL_BIND_PROCEDURE(BGl_assvzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762assvza762za7za7__r43007z00);
BGL_BIND_PROCEDURE(BGl_remqz12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762remqza712za770za7za7_3006za7);
BGL_BIND_STRING(BGl_string2609z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2609za700za7za7_3005za7);
BGL_BIND_STRING(BGl_string2608z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2608za700za7za7_3004za7);
BGL_BIND_STRING(BGl_string2607z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2607za700za7za7_3003za7);
BGL_BIND_STRING(BGl_string2606z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2606za700za7za7_3002za7);
BGL_BIND_STRING(BGl_string2605z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2605za700za7za7_3001za7);
BGL_BIND_STRING(BGl_string2604z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2604za700za7za7_3000za7);
BGL_BIND_STRING(BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2603za700za7za7_2999za7);
BGL_BIND_STRING(BGl_string2602z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2602za700za7za7_2998za7);
BGL_BIND_STRING(BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2601za700za7za7_2997za7);
BGL_BIND_STRING(BGl_string2600z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2600za700za7za7_2996za7);
BGL_BIND_PROCEDURE(BGl_cdddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdddrza762za7za7__r2995z00);
BGL_BIND_PROCEDURE(BGl_appendz12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762appendza712za770za72994z00);
BGL_BIND_PROCEDURE(BGl_epairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762epairza7f3za791za7za72993za7);
BGL_BIND_PROCEDURE(BGl_caadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caadarza762za7za7__2992z00);
BGL_BIND_PROCEDURE(BGl_cdaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdaarza762za7za7__r2991z00);
BGL_BIND_PROCEDURE(BGl_assoczd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762assocza762za7za7__r2990z00);
BGL_BIND_PROCEDURE(BGl_listzd2setz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2setza7122989za7);
BGL_BIND_PROCEDURE(BGl_memqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762memqza762za7za7__r42988z00);
BGL_BIND_PROCEDURE(BGl_caaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caaddrza762za7za7__2987z00);
BGL_BIND_PROCEDURE(BGl_cdadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdadrza762za7za7__r2986z00);
BGL_BIND_STRING(BGl_string2898z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2898za700za7za7_2985za7);
BGL_BIND_STRING(BGl_string2897z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2897za700za7za7_2984za7);
BGL_BIND_STRING(BGl_string2896z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2896za700za7za7_2983za7);
BGL_BIND_STRING(BGl_string2895z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2895za700za7za7_2982za7);
BGL_BIND_PROCEDURE(BGl_appendzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762appendza762za7za7__2981z00);
BGL_BIND_STRING(BGl_string2894z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2894za700za7za7_2980za7);
BGL_BIND_STRING(BGl_string2893z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2893za700za7za7_2979za7);
BGL_BIND_STRING(BGl_string2892z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2892za700za7za7_2978za7);
BGL_BIND_STRING(BGl_string2891z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2891za700za7za7_2977za7);
BGL_BIND_PROCEDURE(BGl_setzd2cerz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762setza7d2cerza712za72976z00);
BGL_BIND_STRING(BGl_string2890z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2890za700za7za7_2975za7);
BGL_BIND_PROCEDURE(BGl_takezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762takeza762za7za7__r42974z00);
BGL_BIND_PROCEDURE(BGl_reversezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762reverseza762za7za7_2973z00);
BGL_BIND_STRING(BGl_string2889z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2889za700za7za7_2972za7);
BGL_BIND_PROCEDURE(BGl_listzd2tabulatezd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2tabula2971z00);
BGL_BIND_STRING(BGl_string2888z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2888za700za7za7_2970za7);
BGL_BIND_PROCEDURE(BGl_caaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caaaarza762za7za7__2969z00);
BGL_BIND_STRING(BGl_string2886z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2886za700za7za7_2968za7);
BGL_BIND_PROCEDURE(BGl_assqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762assqza762za7za7__r42967z00);
BGL_BIND_STRING(BGl_string2883z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2883za700za7za7_2966za7);
BGL_BIND_STRING(BGl_string2882z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2882za700za7za7_2965za7);
BGL_BIND_STRING(BGl_string2881z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2881za700za7za7_2964za7);
BGL_BIND_STRING(BGl_string2880z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2880za700za7za7_2963za7);
BGL_BIND_PROCEDURE(BGl_deletezd2duplicateszd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__deleteza7d2duplic2962za7);
BGL_BIND_PROCEDURE(BGl_cdddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdddarza762za7za7__2961z00);
BGL_BIND_PROCEDURE(BGl_ereversezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762ereverseza762za7za72960z00);
BGL_BIND_PROCEDURE(BGl_caaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caaadrza762za7za7__2959z00);
BGL_BIND_PROCEDURE(BGl_cadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cadarza762za7za7__r2958z00);
BGL_BIND_STRING(BGl_string2878z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2878za700za7za7_2957za7);
BGL_BIND_STRING(BGl_string2876z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2876za700za7za7_2956za7);
BGL_BIND_STRING(BGl_string2794z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2794za700za7za7_2955za7);
BGL_BIND_STRING(BGl_string2793z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2793za700za7za7_2954za7);
BGL_BIND_STRING(BGl_string2873z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2873za700za7za7_2953za7);
BGL_BIND_STRING(BGl_string2872z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2872za700za7za7_2952za7);
BGL_BIND_STRING(BGl_string2790z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2790za700za7za7_2951za7);
BGL_BIND_PROCEDURE(BGl_makezd2listzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762makeza7d2listza7b2950za7);
BGL_BIND_PROCEDURE(BGl_cddddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cddddrza762za7za7__2949z00);
BGL_BIND_PROCEDURE(BGl_pairzd2orzd2nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762pairza7d2orza7d2n2948za7);
BGL_BIND_PROCEDURE(BGl_caddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caddrza762za7za7__r2947z00);
BGL_BIND_STRING(BGl_string2789z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2789za700za7za7_2946za7);
BGL_BIND_PROCEDURE(BGl_cerzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cerza762za7za7__r4_2945z00);
BGL_BIND_PROCEDURE(BGl_nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762nullza7f3za791za7za7_2944za7);
BGL_BIND_STRING(BGl_string2788z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2788za700za7za7_2943za7);
BGL_BIND_STRING(BGl_string2869z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2869za700za7za7_2942za7);
BGL_BIND_STRING(BGl_string2868z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2868za700za7za7_2941za7);
BGL_BIND_STRING(BGl_string2786z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2786za700za7za7_2940za7);
BGL_BIND_STRING(BGl_string2867z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2867za700za7za7_2939za7);
BGL_BIND_STRING(BGl_string2866z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2866za700za7za7_2938za7);
BGL_BIND_STRING(BGl_string2865z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2865za700za7za7_2937za7);
BGL_BIND_PROCEDURE(BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762pairza7f3za791za7za7_2936za7);
BGL_BIND_PROCEDURE(BGl_cddaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cddaarza762za7za7__2935z00);
BGL_BIND_PROCEDURE(BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza762za7za7__r42934z00);
BGL_BIND_STRING(BGl_string2699z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2699za700za7za7_2933za7);
BGL_BIND_PROCEDURE(BGl_cdarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cdarza762za7za7__r42932z00);
BGL_BIND_STRING(BGl_string2779z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2779za700za7za7_2931za7);
BGL_BIND_PROCEDURE(BGl_caaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caaarza762za7za7__r2930z00);
BGL_BIND_PROCEDURE(BGl_findzd2tailzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762findza7d2tailza7b2929za7);
BGL_BIND_STRING(BGl_string2696z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2696za700za7za7_2928za7);
BGL_BIND_STRING(BGl_string2858z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2858za700za7za7_2927za7);
BGL_BIND_STRING(BGl_string2694z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2694za700za7za7_2926za7);
BGL_BIND_STRING(BGl_string2774z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2774za700za7za7_2925za7);
BGL_BIND_STRING(BGl_string2690z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2690za700za7za7_2924za7);
BGL_BIND_PROCEDURE(BGl_listzd2copyzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7d2copyza7b2923za7);
BGL_BIND_PROCEDURE(BGl_cddadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cddadrza762za7za7__2922z00);
BGL_BIND_PROCEDURE(BGl_cddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762cddrza762za7za7__r42921z00);
BGL_BIND_PROCEDURE(BGl_caadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762caadrza762za7za7__r2920z00);
BGL_BIND_PROCEDURE(BGl_listzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762listza7f3za791za7za7_2919za7);
BGL_BIND_PROCEDURE(BGl_treezd2copyzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762treeza7d2copyza7b2918za7);
BGL_BIND_STRING(BGl_string2687z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2687za700za7za7_2917za7);
BGL_BIND_STRING(BGl_string2768z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2768za700za7za7_2916za7);
BGL_BIND_STRING(BGl_string2684z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2684za700za7za7_2915za7);
BGL_BIND_STRING(BGl_string2682z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2682za700za7za7_2914za7);
BGL_BIND_STRING(BGl_string2681z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2681za700za7za7_2913za7);
BGL_BIND_STRING(BGl_string2843z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2843za700za7za7_2912za7);
BGL_BIND_STRING(BGl_string2680z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2680za700za7za7_2911za7);
BGL_BIND_STRING(BGl_string2760z00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_string2760za700za7za7_2910za7);
BGL_BIND_PROCEDURE(BGl_lastzd2pairzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762lastza7d2pairza7b2909za7);
BGL_BIND_PROCEDURE(BGl_anyzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl_za762anyza762za7za7__r4_2908z00);
}

/* GC roots registration */
static obj_t bgl_gc_roots_register() {
#if defined( BGL_GC_ROOTS )
#define ADD_ROOT( addr ) (addr > roots_max ? roots_max = addr : (addr < roots_min ? roots_min = addr : 0))
void *roots_min = (void*)ULONG_MAX, *roots_max = 0;
ADD_ROOT( (void *)(&BGl_symbol2805z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2724z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2643z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2727z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2810z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2732z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2700z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2652z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2654z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2736z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2703z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2656z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2739z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2706z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2707z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2708z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_requirezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2822z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2660z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2904z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2743z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2711z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2745z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2712z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2713z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2665z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2828z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2749z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2716z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2717z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2669z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2718z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2830z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2801z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2720z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2802z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2754z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2721z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2803z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2722z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2837z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2804z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2723z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2807z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2759z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2726z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2808z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2679z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2809z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2729z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2649z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2842z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2730z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2812z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2731z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2683z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2813z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2814z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2815z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2767z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2734z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2686z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2816z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2735z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2817z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2818z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2819z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2738z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2820z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2821z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2773z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2741z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2742z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2857z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2824z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2695z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2825z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2744z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2826z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2778z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2664z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2827z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2698z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2747z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2829z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2748z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2668z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2832z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2751z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2833z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2785z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2752z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2834z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2753z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2835z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2836z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2756z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2757z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2676z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2839z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2758z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2871z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2840z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2792z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2841z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2875z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2761z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2762z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2877z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2844z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2763z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2845z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2764z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2879z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2846z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2765z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2847z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2766z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2685z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2848z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2849z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2769z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2688z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2850z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2851z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2770z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2885z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2852z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2771z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2853z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2772z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2691z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2887z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2854z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2692z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2855z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2856z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2775z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2776z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2777z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2859z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2697z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2860z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2861z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2780z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2862z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2781z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2863z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2782z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2864z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2783z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2784z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2899z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2787z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2870z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2791z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2874z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2795z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2796z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2797z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2798z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_list2884z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2701z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2704z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2709z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2714z00zz__r4_pairs_and_lists_6_3z00) );
ADD_ROOT( (void *)(&BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00) );
#undef ADD_ROOT
if( roots_max > 0 ) GC_add_roots( roots_min, ((void **)roots_max) + 1 );
#endif
return BUNSPEC;
}



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

}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_pairs_and_lists_6_3z00(void)
{
{ /* Ieee/pairlist.scm 18 */
BGl_symbol2643z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2644z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2651z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2652z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2653z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2654z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2655z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2656z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2657z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2649z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2652z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2652z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2654z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2656z00zz__r4_pairs_and_lists_6_3z00, BNIL))))); 
BGl_symbol2660z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2661z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2665z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2666z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2664z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2652z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2652z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2654z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2665z00zz__r4_pairs_and_lists_6_3z00, BNIL))))); 
BGl_symbol2669z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2670z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2668z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2652z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2652z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2669z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2654z00zz__r4_pairs_and_lists_6_3z00, BNIL))))); 
BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2678z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2679z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2680z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2676z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2679z00zz__r4_pairs_and_lists_6_3z00, BNIL)))); 
BGl_symbol2683z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2603z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2686z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2687z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2690z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2694z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2695z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2696z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2692z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2695z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2691z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2692z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol2698z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2699z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2701z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2702z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2700z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2701z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2695z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_symbol2704z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2705z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2703z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2704z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BNIL, BNIL)); 
BGl_symbol2709z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2710z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2714z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2715z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2537z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2722z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2721z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2722z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol2724z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2725z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2723z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2724z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2720z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2721z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2723z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2718z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2720z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2717z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2718z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2716z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2717z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2723z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2713z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2714z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2716z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2712z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2713z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol2727z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2728z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2726z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2727z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2714z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2703z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2711z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2712z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2726z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2708z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2709z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2711z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2707z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2708z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol2732z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2733z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2736z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2737z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2735z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2736z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2734z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2721z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2735z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2731z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2732z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2734z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2730z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2731z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol2739z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2740z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2743z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2681z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2745z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2746z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2744z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2745z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_symbol2749z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2750z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2748z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2749z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_symbol2754z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2755z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2759z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2760z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2764z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2724z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2763z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2764z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2762z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2763z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2761z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2762z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2723z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2758z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2759z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2761z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2757z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2758z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2765z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2727z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2759z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2703z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2756z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2757z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2765z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2753z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2754z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2756z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2752z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2753z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol2767z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2768z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2771z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2745z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2770z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2771z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol2773z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2774z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2772z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2773z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2754z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2769z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2770z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2772z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_symbol2778z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2779z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2780z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2736z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2777z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2778z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2780z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2776z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2777z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2781z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2743z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2778z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2754z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2775z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2776z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2781z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2766z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2767z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2769z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2775z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2751z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2752z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2766z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2783z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2701z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_symbol2785z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2786z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2784z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2785z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_string2682z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_string2600z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2693z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(
BINT(33201L), BNIL)))))); 
BGl_list2782z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2698z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2783z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2709z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2784z00zz__r4_pairs_and_lists_6_3z00, BNIL)))); 
BGl_list2747z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2698z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2748z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2751z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2782z00zz__r4_pairs_and_lists_6_3z00, BNIL)))); 
BGl_list2742z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2743z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2744z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2747z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2741z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2742z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2787z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2743z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2732z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2709z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2738z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2739z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2741z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2787z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2729z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2730z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2738z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2706z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2707z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2729z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2697z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2698z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2700z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2703z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2706z00zz__r4_pairs_and_lists_6_3z00, BNIL)))); 
BGl_list2688z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2691z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2697z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2685z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2686z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2688z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_symbol2792z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2793z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2791z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2792z00zz__r4_pairs_and_lists_6_3z00, BNIL)))); 
BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2800z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2798z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2695z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2797z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2798z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol2805z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2806z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2810z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2811z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2817z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2816z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2817z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2815z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2816z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2723z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2814z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2815z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2813z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2814z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2812z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2813z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2723z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2809z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2810z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2812z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2808z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2809z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2818z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2727z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2810z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2703z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2807z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2808z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2818z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2804z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2805z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2807z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2803z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2804z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol2822z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2823z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2824z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2816z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2735z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2821z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2822z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2824z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2820z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2821z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_symbol2828z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2794z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2830z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2831z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2829z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2830z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2833z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2749z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_symbol2837z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2838z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2842z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2843z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2847z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2724z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2846z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2847z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2845z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2846z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2844z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2845z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2723z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2841z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2842z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2844z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2840z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2841z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2848z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2727z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2842z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2703z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2839z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2840z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2848z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2836z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2837z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2839z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2835z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2836z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2852z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2830z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2851z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2852z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2853z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2773z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2719z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2837z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2850z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2851z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2853z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_symbol2857z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2858z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2859z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2736z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2856z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2857z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2859z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2855z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2856z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2860z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2828z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2857z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2837z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2854z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2855z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2860z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2849z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2767z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2850z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2854z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2834z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2835z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2849z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2862z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2701z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00, BNIL)); 
BGl_list2863z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2785z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_string2682z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_string2600z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2799z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(
BINT(33725L), BNIL)))))); 
BGl_list2861z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2698z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2862z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2805z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2863z00zz__r4_pairs_and_lists_6_3z00, BNIL)))); 
BGl_list2832z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2698z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2833z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2834z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2861z00zz__r4_pairs_and_lists_6_3z00, BNIL)))); 
BGl_list2827z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2828z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2829z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2832z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2826z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_list2827z00zz__r4_pairs_and_lists_6_3z00, BNIL); 
BGl_list2864z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2828z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2822z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2805z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2825z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2739z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2826z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2864z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2819z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2820z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2825z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2802z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2803z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2819z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2801z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2698z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2700z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2703z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2802z00zz__r4_pairs_and_lists_6_3z00, BNIL)))); 
BGl_list2796z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2689z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2797z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2801z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_list2795z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2686z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_list2796z00zz__r4_pairs_and_lists_6_3z00, BNIL))); 
BGl_symbol2871z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2872z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2870z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2677z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2871z00zz__r4_pairs_and_lists_6_3z00, BNIL)))); 
BGl_symbol2875z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2876z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2877z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2878z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2879z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2880z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2874z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2875z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2875z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2877z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2879z00zz__r4_pairs_and_lists_6_3z00, BNIL))))); 
BGl_symbol2885z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2886z00zz__r4_pairs_and_lists_6_3z00); 
BGl_symbol2887z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2888z00zz__r4_pairs_and_lists_6_3z00); 
BGl_list2884z00zz__r4_pairs_and_lists_6_3z00 = 
MAKE_YOUNG_PAIR(BGl_symbol2650z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2885z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2885z00zz__r4_pairs_and_lists_6_3z00, 
MAKE_YOUNG_PAIR(BGl_symbol2887z00zz__r4_pairs_and_lists_6_3z00, BNIL)))); 
BGl_symbol2899z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2900z00zz__r4_pairs_and_lists_6_3z00); 
return ( 
BGl_symbol2904z00zz__r4_pairs_and_lists_6_3z00 = 
bstring_to_symbol(BGl_string2905z00zz__r4_pairs_and_lists_6_3z00), BUNSPEC) ;} 

}



/* gc-roots-init */
obj_t BGl_gczd2rootszd2initz00zz__r4_pairs_and_lists_6_3z00(void)
{
{ /* Ieee/pairlist.scm 18 */
return 
bgl_gc_roots_register();} 

}



/* append-21011 */
obj_t BGl_appendzd221011zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_l1z00_1, obj_t BgL_l2z00_2)
{
{ 
if(
NULLP(BgL_l1z00_1))
{ 
return BgL_l2z00_2;}  else 
{ 
 obj_t BgL_headz00_810;
BgL_headz00_810 = 
MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_2); 
{ 
 obj_t BgL_prevz00_811; obj_t BgL_tailz00_812;
BgL_prevz00_811 = BgL_headz00_810; 
BgL_tailz00_812 = BgL_l1z00_1; 
BgL_loopz00_813:
if(
PAIRP(BgL_tailz00_812))
{ 
 obj_t BgL_newzd2prevzd2_815;
BgL_newzd2prevzd2_815 = 
MAKE_YOUNG_PAIR(
CAR(BgL_tailz00_812), BgL_l2z00_2); 
SET_CDR(BgL_prevz00_811, BgL_newzd2prevzd2_815); 
{ 
 obj_t BgL_tailz00_3772; obj_t BgL_prevz00_3771;
BgL_prevz00_3771 = BgL_newzd2prevzd2_815; 
BgL_tailz00_3772 = 
CDR(BgL_tailz00_812); 
BgL_tailz00_812 = BgL_tailz00_3772; 
BgL_prevz00_811 = BgL_prevz00_3771; 
goto BgL_loopz00_813;} }  else 
{ BNIL; } 
return 
CDR(BgL_headz00_810);} } } 

}



/* pair? */
BGL_EXPORTED_DEF bool_t BGl_pairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_3)
{
{ /* Ieee/pairlist.scm 228 */
return 
PAIRP(BgL_objz00_3);} 

}



/* &pair? */
obj_t BGl_z62pairzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2361, obj_t BgL_objz00_2362)
{
{ /* Ieee/pairlist.scm 228 */
return 
BBOOL(
BGl_pairzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2362));} 

}



/* epair? */
BGL_EXPORTED_DEF bool_t BGl_epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_4)
{
{ /* Ieee/pairlist.scm 234 */
return 
EPAIRP(BgL_objz00_4);} 

}



/* &epair? */
obj_t BGl_z62epairzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2363, obj_t BgL_objz00_2364)
{
{ /* Ieee/pairlist.scm 234 */
return 
BBOOL(
BGl_epairzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2364));} 

}



/* pair-or-null? */
BGL_EXPORTED_DEF bool_t BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_5)
{
{ /* Ieee/pairlist.scm 240 */
if(
PAIRP(BgL_objz00_5))
{ /* Ieee/pairlist.scm 241 */
return ((bool_t)1);}  else 
{ /* Ieee/pairlist.scm 241 */
return 
NULLP(BgL_objz00_5);} } 

}



/* &pair-or-null? */
obj_t BGl_z62pairzd2orzd2nullzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2365, obj_t BgL_objz00_2366)
{
{ /* Ieee/pairlist.scm 240 */
return 
BBOOL(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2366));} 

}



/* cons */
BGL_EXPORTED_DEF obj_t BGl_consz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_obj1z00_6, obj_t BgL_obj2z00_7)
{
{ /* Ieee/pairlist.scm 248 */
return 
MAKE_YOUNG_PAIR(BgL_obj1z00_6, BgL_obj2z00_7);} 

}



/* &cons */
obj_t BGl_z62consz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2367, obj_t BgL_obj1z00_2368, obj_t BgL_obj2z00_2369)
{
{ /* Ieee/pairlist.scm 248 */
return 
BGl_consz00zz__r4_pairs_and_lists_6_3z00(BgL_obj1z00_2368, BgL_obj2z00_2369);} 

}



/* econs */
BGL_EXPORTED_DEF obj_t BGl_econsz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_obj1z00_8, obj_t BgL_obj2z00_9, obj_t BgL_obj3z00_10)
{
{ /* Ieee/pairlist.scm 254 */
return 
MAKE_YOUNG_EPAIR(BgL_obj1z00_8, BgL_obj2z00_9, BgL_obj3z00_10);} 

}



/* &econs */
obj_t BGl_z62econsz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2370, obj_t BgL_obj1z00_2371, obj_t BgL_obj2z00_2372, obj_t BgL_obj3z00_2373)
{
{ /* Ieee/pairlist.scm 254 */
return 
BGl_econsz00zz__r4_pairs_and_lists_6_3z00(BgL_obj1z00_2371, BgL_obj2z00_2372, BgL_obj3z00_2373);} 

}



/* car */
BGL_EXPORTED_DEF obj_t BGl_carz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_11)
{
{ /* Ieee/pairlist.scm 260 */
return 
CAR(BgL_pairz00_11);} 

}



/* &car */
obj_t BGl_z62carz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2374, obj_t BgL_pairz00_2375)
{
{ /* Ieee/pairlist.scm 260 */
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_auxz00_3791;
if(
PAIRP(BgL_pairz00_2375))
{ /* Ieee/pairlist.scm 261 */
BgL_auxz00_3791 = BgL_pairz00_2375
; }  else 
{ 
 obj_t BgL_auxz00_3794;
BgL_auxz00_3794 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2536z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2375); 
FAILURE(BgL_auxz00_3794,BFALSE,BFALSE);} 
return 
BGl_carz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3791);} } 

}



/* cdr */
BGL_EXPORTED_DEF obj_t BGl_cdrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_12)
{
{ /* Ieee/pairlist.scm 266 */
return 
CDR(BgL_pairz00_12);} 

}



/* &cdr */
obj_t BGl_z62cdrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2376, obj_t BgL_pairz00_2377)
{
{ /* Ieee/pairlist.scm 266 */
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_auxz00_3800;
if(
PAIRP(BgL_pairz00_2377))
{ /* Ieee/pairlist.scm 267 */
BgL_auxz00_3800 = BgL_pairz00_2377
; }  else 
{ 
 obj_t BgL_auxz00_3803;
BgL_auxz00_3803 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2538z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2377); 
FAILURE(BgL_auxz00_3803,BFALSE,BFALSE);} 
return 
BGl_cdrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3800);} } 

}



/* cer */
BGL_EXPORTED_DEF obj_t BGl_cerz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_13)
{
{ /* Ieee/pairlist.scm 272 */
return 
CER(BgL_objz00_13);} 

}



/* &cer */
obj_t BGl_z62cerz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2378, obj_t BgL_objz00_2379)
{
{ /* Ieee/pairlist.scm 272 */
{ /* Ieee/pairlist.scm 273 */
 obj_t BgL_auxz00_3809;
if(
EPAIRP(BgL_objz00_2379))
{ /* Ieee/pairlist.scm 273 */
BgL_auxz00_3809 = BgL_objz00_2379
; }  else 
{ 
 obj_t BgL_auxz00_3812;
BgL_auxz00_3812 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(11240L), BGl_string2539z00zz__r4_pairs_and_lists_6_3z00, BGl_string2540z00zz__r4_pairs_and_lists_6_3z00, BgL_objz00_2379); 
FAILURE(BgL_auxz00_3812,BFALSE,BFALSE);} 
return 
BGl_cerz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3809);} } 

}



/* caar */
BGL_EXPORTED_DEF obj_t BGl_caarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_14)
{
{ /* Ieee/pairlist.scm 278 */
{ /* Ieee/pairlist.scm 279 */
 obj_t BgL_pairz00_3268;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1899z00_3269;
BgL_aux1899z00_3269 = 
CAR(BgL_pairz00_14); 
if(
PAIRP(BgL_aux1899z00_3269))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3268 = BgL_aux1899z00_3269; }  else 
{ 
 obj_t BgL_auxz00_3820;
BgL_auxz00_3820 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2541z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1899z00_3269); 
FAILURE(BgL_auxz00_3820,BFALSE,BFALSE);} } 
return 
CAR(BgL_pairz00_3268);} } 

}



/* &caar */
obj_t BGl_z62caarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2380, obj_t BgL_pairz00_2381)
{
{ /* Ieee/pairlist.scm 278 */
{ /* Ieee/pairlist.scm 279 */
 obj_t BgL_auxz00_3825;
if(
PAIRP(BgL_pairz00_2381))
{ /* Ieee/pairlist.scm 279 */
BgL_auxz00_3825 = BgL_pairz00_2381
; }  else 
{ 
 obj_t BgL_auxz00_3828;
BgL_auxz00_3828 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(11510L), BGl_string2542z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2381); 
FAILURE(BgL_auxz00_3828,BFALSE,BFALSE);} 
return 
BGl_caarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3825);} } 

}



/* cadr */
BGL_EXPORTED_DEF obj_t BGl_cadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_15)
{
{ /* Ieee/pairlist.scm 284 */
{ /* Ieee/pairlist.scm 285 */
 obj_t BgL_pairz00_3270;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1903z00_3271;
BgL_aux1903z00_3271 = 
CDR(BgL_pairz00_15); 
if(
PAIRP(BgL_aux1903z00_3271))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3270 = BgL_aux1903z00_3271; }  else 
{ 
 obj_t BgL_auxz00_3836;
BgL_auxz00_3836 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2543z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1903z00_3271); 
FAILURE(BgL_auxz00_3836,BFALSE,BFALSE);} } 
return 
CAR(BgL_pairz00_3270);} } 

}



/* &cadr */
obj_t BGl_z62cadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2382, obj_t BgL_pairz00_2383)
{
{ /* Ieee/pairlist.scm 284 */
{ /* Ieee/pairlist.scm 285 */
 obj_t BgL_auxz00_3841;
if(
PAIRP(BgL_pairz00_2383))
{ /* Ieee/pairlist.scm 285 */
BgL_auxz00_3841 = BgL_pairz00_2383
; }  else 
{ 
 obj_t BgL_auxz00_3844;
BgL_auxz00_3844 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(11781L), BGl_string2544z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2383); 
FAILURE(BgL_auxz00_3844,BFALSE,BFALSE);} 
return 
BGl_cadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3841);} } 

}



/* cdar */
BGL_EXPORTED_DEF obj_t BGl_cdarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_16)
{
{ /* Ieee/pairlist.scm 290 */
{ /* Ieee/pairlist.scm 291 */
 obj_t BgL_pairz00_3272;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1907z00_3273;
BgL_aux1907z00_3273 = 
CAR(BgL_pairz00_16); 
if(
PAIRP(BgL_aux1907z00_3273))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3272 = BgL_aux1907z00_3273; }  else 
{ 
 obj_t BgL_auxz00_3852;
BgL_auxz00_3852 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2545z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1907z00_3273); 
FAILURE(BgL_auxz00_3852,BFALSE,BFALSE);} } 
return 
CDR(BgL_pairz00_3272);} } 

}



/* &cdar */
obj_t BGl_z62cdarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2384, obj_t BgL_pairz00_2385)
{
{ /* Ieee/pairlist.scm 290 */
{ /* Ieee/pairlist.scm 291 */
 obj_t BgL_auxz00_3857;
if(
PAIRP(BgL_pairz00_2385))
{ /* Ieee/pairlist.scm 291 */
BgL_auxz00_3857 = BgL_pairz00_2385
; }  else 
{ 
 obj_t BgL_auxz00_3860;
BgL_auxz00_3860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(12052L), BGl_string2546z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2385); 
FAILURE(BgL_auxz00_3860,BFALSE,BFALSE);} 
return 
BGl_cdarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3857);} } 

}



/* cddr */
BGL_EXPORTED_DEF obj_t BGl_cddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_17)
{
{ /* Ieee/pairlist.scm 296 */
{ /* Ieee/pairlist.scm 297 */
 obj_t BgL_pairz00_3274;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1911z00_3275;
BgL_aux1911z00_3275 = 
CDR(BgL_pairz00_17); 
if(
PAIRP(BgL_aux1911z00_3275))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3274 = BgL_aux1911z00_3275; }  else 
{ 
 obj_t BgL_auxz00_3868;
BgL_auxz00_3868 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2547z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1911z00_3275); 
FAILURE(BgL_auxz00_3868,BFALSE,BFALSE);} } 
return 
CDR(BgL_pairz00_3274);} } 

}



/* &cddr */
obj_t BGl_z62cddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2386, obj_t BgL_pairz00_2387)
{
{ /* Ieee/pairlist.scm 296 */
{ /* Ieee/pairlist.scm 297 */
 obj_t BgL_auxz00_3873;
if(
PAIRP(BgL_pairz00_2387))
{ /* Ieee/pairlist.scm 297 */
BgL_auxz00_3873 = BgL_pairz00_2387
; }  else 
{ 
 obj_t BgL_auxz00_3876;
BgL_auxz00_3876 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(12323L), BGl_string2548z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2387); 
FAILURE(BgL_auxz00_3876,BFALSE,BFALSE);} 
return 
BGl_cddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3873);} } 

}



/* caaar */
BGL_EXPORTED_DEF obj_t BGl_caaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_18)
{
{ /* Ieee/pairlist.scm 302 */
{ /* Ieee/pairlist.scm 303 */
 obj_t BgL_pairz00_3276;
{ /* Ieee/pairlist.scm 303 */
 obj_t BgL_pairz00_3277;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1915z00_3278;
BgL_aux1915z00_3278 = 
CAR(BgL_pairz00_18); 
if(
PAIRP(BgL_aux1915z00_3278))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3277 = BgL_aux1915z00_3278; }  else 
{ 
 obj_t BgL_auxz00_3884;
BgL_auxz00_3884 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2549z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1915z00_3278); 
FAILURE(BgL_auxz00_3884,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1917z00_3279;
BgL_aux1917z00_3279 = 
CAR(BgL_pairz00_3277); 
if(
PAIRP(BgL_aux1917z00_3279))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3276 = BgL_aux1917z00_3279; }  else 
{ 
 obj_t BgL_auxz00_3891;
BgL_auxz00_3891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2549z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1917z00_3279); 
FAILURE(BgL_auxz00_3891,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3276);} } 

}



/* &caaar */
obj_t BGl_z62caaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2388, obj_t BgL_pairz00_2389)
{
{ /* Ieee/pairlist.scm 302 */
{ /* Ieee/pairlist.scm 303 */
 obj_t BgL_auxz00_3896;
if(
PAIRP(BgL_pairz00_2389))
{ /* Ieee/pairlist.scm 303 */
BgL_auxz00_3896 = BgL_pairz00_2389
; }  else 
{ 
 obj_t BgL_auxz00_3899;
BgL_auxz00_3899 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(12600L), BGl_string2550z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2389); 
FAILURE(BgL_auxz00_3899,BFALSE,BFALSE);} 
return 
BGl_caaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3896);} } 

}



/* caadr */
BGL_EXPORTED_DEF obj_t BGl_caadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_19)
{
{ /* Ieee/pairlist.scm 308 */
{ /* Ieee/pairlist.scm 309 */
 obj_t BgL_pairz00_3280;
{ /* Ieee/pairlist.scm 309 */
 obj_t BgL_pairz00_3281;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1921z00_3282;
BgL_aux1921z00_3282 = 
CDR(BgL_pairz00_19); 
if(
PAIRP(BgL_aux1921z00_3282))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3281 = BgL_aux1921z00_3282; }  else 
{ 
 obj_t BgL_auxz00_3907;
BgL_auxz00_3907 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2551z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1921z00_3282); 
FAILURE(BgL_auxz00_3907,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1923z00_3283;
BgL_aux1923z00_3283 = 
CAR(BgL_pairz00_3281); 
if(
PAIRP(BgL_aux1923z00_3283))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3280 = BgL_aux1923z00_3283; }  else 
{ 
 obj_t BgL_auxz00_3914;
BgL_auxz00_3914 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2551z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1923z00_3283); 
FAILURE(BgL_auxz00_3914,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3280);} } 

}



/* &caadr */
obj_t BGl_z62caadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2390, obj_t BgL_pairz00_2391)
{
{ /* Ieee/pairlist.scm 308 */
{ /* Ieee/pairlist.scm 309 */
 obj_t BgL_auxz00_3919;
if(
PAIRP(BgL_pairz00_2391))
{ /* Ieee/pairlist.scm 309 */
BgL_auxz00_3919 = BgL_pairz00_2391
; }  else 
{ 
 obj_t BgL_auxz00_3922;
BgL_auxz00_3922 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(12878L), BGl_string2552z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2391); 
FAILURE(BgL_auxz00_3922,BFALSE,BFALSE);} 
return 
BGl_caadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3919);} } 

}



/* cadar */
BGL_EXPORTED_DEF obj_t BGl_cadarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_20)
{
{ /* Ieee/pairlist.scm 314 */
{ /* Ieee/pairlist.scm 315 */
 obj_t BgL_pairz00_3284;
{ /* Ieee/pairlist.scm 315 */
 obj_t BgL_pairz00_3285;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1927z00_3286;
BgL_aux1927z00_3286 = 
CAR(BgL_pairz00_20); 
if(
PAIRP(BgL_aux1927z00_3286))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3285 = BgL_aux1927z00_3286; }  else 
{ 
 obj_t BgL_auxz00_3930;
BgL_auxz00_3930 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2553z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1927z00_3286); 
FAILURE(BgL_auxz00_3930,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1929z00_3287;
BgL_aux1929z00_3287 = 
CDR(BgL_pairz00_3285); 
if(
PAIRP(BgL_aux1929z00_3287))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3284 = BgL_aux1929z00_3287; }  else 
{ 
 obj_t BgL_auxz00_3937;
BgL_auxz00_3937 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2553z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1929z00_3287); 
FAILURE(BgL_auxz00_3937,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3284);} } 

}



/* &cadar */
obj_t BGl_z62cadarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2392, obj_t BgL_pairz00_2393)
{
{ /* Ieee/pairlist.scm 314 */
{ /* Ieee/pairlist.scm 315 */
 obj_t BgL_auxz00_3942;
if(
PAIRP(BgL_pairz00_2393))
{ /* Ieee/pairlist.scm 315 */
BgL_auxz00_3942 = BgL_pairz00_2393
; }  else 
{ 
 obj_t BgL_auxz00_3945;
BgL_auxz00_3945 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(13156L), BGl_string2554z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2393); 
FAILURE(BgL_auxz00_3945,BFALSE,BFALSE);} 
return 
BGl_cadarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3942);} } 

}



/* caddr */
BGL_EXPORTED_DEF obj_t BGl_caddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_21)
{
{ /* Ieee/pairlist.scm 320 */
{ /* Ieee/pairlist.scm 321 */
 obj_t BgL_pairz00_3288;
{ /* Ieee/pairlist.scm 321 */
 obj_t BgL_pairz00_3289;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1933z00_3290;
BgL_aux1933z00_3290 = 
CDR(BgL_pairz00_21); 
if(
PAIRP(BgL_aux1933z00_3290))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3289 = BgL_aux1933z00_3290; }  else 
{ 
 obj_t BgL_auxz00_3953;
BgL_auxz00_3953 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2555z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1933z00_3290); 
FAILURE(BgL_auxz00_3953,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1935z00_3291;
BgL_aux1935z00_3291 = 
CDR(BgL_pairz00_3289); 
if(
PAIRP(BgL_aux1935z00_3291))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3288 = BgL_aux1935z00_3291; }  else 
{ 
 obj_t BgL_auxz00_3960;
BgL_auxz00_3960 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2555z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1935z00_3291); 
FAILURE(BgL_auxz00_3960,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3288);} } 

}



/* &caddr */
obj_t BGl_z62caddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2394, obj_t BgL_pairz00_2395)
{
{ /* Ieee/pairlist.scm 320 */
{ /* Ieee/pairlist.scm 321 */
 obj_t BgL_auxz00_3965;
if(
PAIRP(BgL_pairz00_2395))
{ /* Ieee/pairlist.scm 321 */
BgL_auxz00_3965 = BgL_pairz00_2395
; }  else 
{ 
 obj_t BgL_auxz00_3968;
BgL_auxz00_3968 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(13434L), BGl_string2556z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2395); 
FAILURE(BgL_auxz00_3968,BFALSE,BFALSE);} 
return 
BGl_caddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3965);} } 

}



/* cdaar */
BGL_EXPORTED_DEF obj_t BGl_cdaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_22)
{
{ /* Ieee/pairlist.scm 326 */
{ /* Ieee/pairlist.scm 327 */
 obj_t BgL_pairz00_3292;
{ /* Ieee/pairlist.scm 327 */
 obj_t BgL_pairz00_3293;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1939z00_3294;
BgL_aux1939z00_3294 = 
CAR(BgL_pairz00_22); 
if(
PAIRP(BgL_aux1939z00_3294))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3293 = BgL_aux1939z00_3294; }  else 
{ 
 obj_t BgL_auxz00_3976;
BgL_auxz00_3976 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2557z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1939z00_3294); 
FAILURE(BgL_auxz00_3976,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1941z00_3295;
BgL_aux1941z00_3295 = 
CAR(BgL_pairz00_3293); 
if(
PAIRP(BgL_aux1941z00_3295))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3292 = BgL_aux1941z00_3295; }  else 
{ 
 obj_t BgL_auxz00_3983;
BgL_auxz00_3983 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2557z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1941z00_3295); 
FAILURE(BgL_auxz00_3983,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3292);} } 

}



/* &cdaar */
obj_t BGl_z62cdaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2396, obj_t BgL_pairz00_2397)
{
{ /* Ieee/pairlist.scm 326 */
{ /* Ieee/pairlist.scm 327 */
 obj_t BgL_auxz00_3988;
if(
PAIRP(BgL_pairz00_2397))
{ /* Ieee/pairlist.scm 327 */
BgL_auxz00_3988 = BgL_pairz00_2397
; }  else 
{ 
 obj_t BgL_auxz00_3991;
BgL_auxz00_3991 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(13712L), BGl_string2558z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2397); 
FAILURE(BgL_auxz00_3991,BFALSE,BFALSE);} 
return 
BGl_cdaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_3988);} } 

}



/* cddar */
BGL_EXPORTED_DEF obj_t BGl_cddarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_23)
{
{ /* Ieee/pairlist.scm 332 */
{ /* Ieee/pairlist.scm 333 */
 obj_t BgL_pairz00_3296;
{ /* Ieee/pairlist.scm 333 */
 obj_t BgL_pairz00_3297;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1945z00_3298;
BgL_aux1945z00_3298 = 
CAR(BgL_pairz00_23); 
if(
PAIRP(BgL_aux1945z00_3298))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3297 = BgL_aux1945z00_3298; }  else 
{ 
 obj_t BgL_auxz00_3999;
BgL_auxz00_3999 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2559z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1945z00_3298); 
FAILURE(BgL_auxz00_3999,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1947z00_3299;
BgL_aux1947z00_3299 = 
CDR(BgL_pairz00_3297); 
if(
PAIRP(BgL_aux1947z00_3299))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3296 = BgL_aux1947z00_3299; }  else 
{ 
 obj_t BgL_auxz00_4006;
BgL_auxz00_4006 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2559z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1947z00_3299); 
FAILURE(BgL_auxz00_4006,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3296);} } 

}



/* &cddar */
obj_t BGl_z62cddarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2398, obj_t BgL_pairz00_2399)
{
{ /* Ieee/pairlist.scm 332 */
{ /* Ieee/pairlist.scm 333 */
 obj_t BgL_auxz00_4011;
if(
PAIRP(BgL_pairz00_2399))
{ /* Ieee/pairlist.scm 333 */
BgL_auxz00_4011 = BgL_pairz00_2399
; }  else 
{ 
 obj_t BgL_auxz00_4014;
BgL_auxz00_4014 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(13990L), BGl_string2560z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2399); 
FAILURE(BgL_auxz00_4014,BFALSE,BFALSE);} 
return 
BGl_cddarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4011);} } 

}



/* cdadr */
BGL_EXPORTED_DEF obj_t BGl_cdadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_24)
{
{ /* Ieee/pairlist.scm 338 */
{ /* Ieee/pairlist.scm 339 */
 obj_t BgL_pairz00_3300;
{ /* Ieee/pairlist.scm 339 */
 obj_t BgL_pairz00_3301;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1951z00_3302;
BgL_aux1951z00_3302 = 
CDR(BgL_pairz00_24); 
if(
PAIRP(BgL_aux1951z00_3302))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3301 = BgL_aux1951z00_3302; }  else 
{ 
 obj_t BgL_auxz00_4022;
BgL_auxz00_4022 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2561z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1951z00_3302); 
FAILURE(BgL_auxz00_4022,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1953z00_3303;
BgL_aux1953z00_3303 = 
CAR(BgL_pairz00_3301); 
if(
PAIRP(BgL_aux1953z00_3303))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3300 = BgL_aux1953z00_3303; }  else 
{ 
 obj_t BgL_auxz00_4029;
BgL_auxz00_4029 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2561z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1953z00_3303); 
FAILURE(BgL_auxz00_4029,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3300);} } 

}



/* &cdadr */
obj_t BGl_z62cdadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2400, obj_t BgL_pairz00_2401)
{
{ /* Ieee/pairlist.scm 338 */
{ /* Ieee/pairlist.scm 339 */
 obj_t BgL_auxz00_4034;
if(
PAIRP(BgL_pairz00_2401))
{ /* Ieee/pairlist.scm 339 */
BgL_auxz00_4034 = BgL_pairz00_2401
; }  else 
{ 
 obj_t BgL_auxz00_4037;
BgL_auxz00_4037 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(14268L), BGl_string2562z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2401); 
FAILURE(BgL_auxz00_4037,BFALSE,BFALSE);} 
return 
BGl_cdadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4034);} } 

}



/* cdddr */
BGL_EXPORTED_DEF obj_t BGl_cdddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_25)
{
{ /* Ieee/pairlist.scm 344 */
{ /* Ieee/pairlist.scm 345 */
 obj_t BgL_pairz00_3304;
{ /* Ieee/pairlist.scm 345 */
 obj_t BgL_pairz00_3305;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1957z00_3306;
BgL_aux1957z00_3306 = 
CDR(BgL_pairz00_25); 
if(
PAIRP(BgL_aux1957z00_3306))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3305 = BgL_aux1957z00_3306; }  else 
{ 
 obj_t BgL_auxz00_4045;
BgL_auxz00_4045 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2563z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1957z00_3306); 
FAILURE(BgL_auxz00_4045,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1959z00_3307;
BgL_aux1959z00_3307 = 
CDR(BgL_pairz00_3305); 
if(
PAIRP(BgL_aux1959z00_3307))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3304 = BgL_aux1959z00_3307; }  else 
{ 
 obj_t BgL_auxz00_4052;
BgL_auxz00_4052 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2563z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1959z00_3307); 
FAILURE(BgL_auxz00_4052,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3304);} } 

}



/* &cdddr */
obj_t BGl_z62cdddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2402, obj_t BgL_pairz00_2403)
{
{ /* Ieee/pairlist.scm 344 */
{ /* Ieee/pairlist.scm 345 */
 obj_t BgL_auxz00_4057;
if(
PAIRP(BgL_pairz00_2403))
{ /* Ieee/pairlist.scm 345 */
BgL_auxz00_4057 = BgL_pairz00_2403
; }  else 
{ 
 obj_t BgL_auxz00_4060;
BgL_auxz00_4060 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(14546L), BGl_string2564z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2403); 
FAILURE(BgL_auxz00_4060,BFALSE,BFALSE);} 
return 
BGl_cdddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4057);} } 

}



/* caaaar */
BGL_EXPORTED_DEF obj_t BGl_caaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_26)
{
{ /* Ieee/pairlist.scm 350 */
{ /* Ieee/pairlist.scm 351 */
 obj_t BgL_pairz00_3308;
{ /* Ieee/pairlist.scm 351 */
 obj_t BgL_pairz00_3309;
{ /* Ieee/pairlist.scm 351 */
 obj_t BgL_pairz00_3310;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1963z00_3311;
BgL_aux1963z00_3311 = 
CAR(BgL_pairz00_26); 
if(
PAIRP(BgL_aux1963z00_3311))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3310 = BgL_aux1963z00_3311; }  else 
{ 
 obj_t BgL_auxz00_4068;
BgL_auxz00_4068 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2565z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1963z00_3311); 
FAILURE(BgL_auxz00_4068,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1965z00_3312;
BgL_aux1965z00_3312 = 
CAR(BgL_pairz00_3310); 
if(
PAIRP(BgL_aux1965z00_3312))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3309 = BgL_aux1965z00_3312; }  else 
{ 
 obj_t BgL_auxz00_4075;
BgL_auxz00_4075 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2565z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1965z00_3312); 
FAILURE(BgL_auxz00_4075,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1967z00_3313;
BgL_aux1967z00_3313 = 
CAR(BgL_pairz00_3309); 
if(
PAIRP(BgL_aux1967z00_3313))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3308 = BgL_aux1967z00_3313; }  else 
{ 
 obj_t BgL_auxz00_4082;
BgL_auxz00_4082 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2565z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1967z00_3313); 
FAILURE(BgL_auxz00_4082,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3308);} } 

}



/* &caaaar */
obj_t BGl_z62caaaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2404, obj_t BgL_pairz00_2405)
{
{ /* Ieee/pairlist.scm 350 */
{ /* Ieee/pairlist.scm 351 */
 obj_t BgL_auxz00_4087;
if(
PAIRP(BgL_pairz00_2405))
{ /* Ieee/pairlist.scm 351 */
BgL_auxz00_4087 = BgL_pairz00_2405
; }  else 
{ 
 obj_t BgL_auxz00_4090;
BgL_auxz00_4090 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(14830L), BGl_string2566z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2405); 
FAILURE(BgL_auxz00_4090,BFALSE,BFALSE);} 
return 
BGl_caaaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4087);} } 

}



/* caaadr */
BGL_EXPORTED_DEF obj_t BGl_caaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_27)
{
{ /* Ieee/pairlist.scm 356 */
{ /* Ieee/pairlist.scm 357 */
 obj_t BgL_pairz00_3314;
{ /* Ieee/pairlist.scm 357 */
 obj_t BgL_pairz00_3315;
{ /* Ieee/pairlist.scm 357 */
 obj_t BgL_pairz00_3316;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1971z00_3317;
BgL_aux1971z00_3317 = 
CDR(BgL_pairz00_27); 
if(
PAIRP(BgL_aux1971z00_3317))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3316 = BgL_aux1971z00_3317; }  else 
{ 
 obj_t BgL_auxz00_4098;
BgL_auxz00_4098 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2567z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1971z00_3317); 
FAILURE(BgL_auxz00_4098,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1973z00_3318;
BgL_aux1973z00_3318 = 
CAR(BgL_pairz00_3316); 
if(
PAIRP(BgL_aux1973z00_3318))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3315 = BgL_aux1973z00_3318; }  else 
{ 
 obj_t BgL_auxz00_4105;
BgL_auxz00_4105 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2567z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1973z00_3318); 
FAILURE(BgL_auxz00_4105,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1975z00_3319;
BgL_aux1975z00_3319 = 
CAR(BgL_pairz00_3315); 
if(
PAIRP(BgL_aux1975z00_3319))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3314 = BgL_aux1975z00_3319; }  else 
{ 
 obj_t BgL_auxz00_4112;
BgL_auxz00_4112 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2567z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1975z00_3319); 
FAILURE(BgL_auxz00_4112,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3314);} } 

}



/* &caaadr */
obj_t BGl_z62caaadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2406, obj_t BgL_pairz00_2407)
{
{ /* Ieee/pairlist.scm 356 */
{ /* Ieee/pairlist.scm 357 */
 obj_t BgL_auxz00_4117;
if(
PAIRP(BgL_pairz00_2407))
{ /* Ieee/pairlist.scm 357 */
BgL_auxz00_4117 = BgL_pairz00_2407
; }  else 
{ 
 obj_t BgL_auxz00_4120;
BgL_auxz00_4120 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(15115L), BGl_string2568z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2407); 
FAILURE(BgL_auxz00_4120,BFALSE,BFALSE);} 
return 
BGl_caaadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4117);} } 

}



/* caadar */
BGL_EXPORTED_DEF obj_t BGl_caadarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_28)
{
{ /* Ieee/pairlist.scm 362 */
{ /* Ieee/pairlist.scm 363 */
 obj_t BgL_pairz00_3320;
{ /* Ieee/pairlist.scm 363 */
 obj_t BgL_pairz00_3321;
{ /* Ieee/pairlist.scm 363 */
 obj_t BgL_pairz00_3322;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1979z00_3323;
BgL_aux1979z00_3323 = 
CAR(BgL_pairz00_28); 
if(
PAIRP(BgL_aux1979z00_3323))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3322 = BgL_aux1979z00_3323; }  else 
{ 
 obj_t BgL_auxz00_4128;
BgL_auxz00_4128 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2569z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1979z00_3323); 
FAILURE(BgL_auxz00_4128,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1981z00_3324;
BgL_aux1981z00_3324 = 
CDR(BgL_pairz00_3322); 
if(
PAIRP(BgL_aux1981z00_3324))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3321 = BgL_aux1981z00_3324; }  else 
{ 
 obj_t BgL_auxz00_4135;
BgL_auxz00_4135 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2569z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1981z00_3324); 
FAILURE(BgL_auxz00_4135,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1983z00_3325;
BgL_aux1983z00_3325 = 
CAR(BgL_pairz00_3321); 
if(
PAIRP(BgL_aux1983z00_3325))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3320 = BgL_aux1983z00_3325; }  else 
{ 
 obj_t BgL_auxz00_4142;
BgL_auxz00_4142 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2569z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1983z00_3325); 
FAILURE(BgL_auxz00_4142,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3320);} } 

}



/* &caadar */
obj_t BGl_z62caadarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2408, obj_t BgL_pairz00_2409)
{
{ /* Ieee/pairlist.scm 362 */
{ /* Ieee/pairlist.scm 363 */
 obj_t BgL_auxz00_4147;
if(
PAIRP(BgL_pairz00_2409))
{ /* Ieee/pairlist.scm 363 */
BgL_auxz00_4147 = BgL_pairz00_2409
; }  else 
{ 
 obj_t BgL_auxz00_4150;
BgL_auxz00_4150 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(15400L), BGl_string2570z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2409); 
FAILURE(BgL_auxz00_4150,BFALSE,BFALSE);} 
return 
BGl_caadarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4147);} } 

}



/* cadaar */
BGL_EXPORTED_DEF obj_t BGl_cadaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_29)
{
{ /* Ieee/pairlist.scm 368 */
{ /* Ieee/pairlist.scm 369 */
 obj_t BgL_pairz00_3326;
{ /* Ieee/pairlist.scm 369 */
 obj_t BgL_pairz00_3327;
{ /* Ieee/pairlist.scm 369 */
 obj_t BgL_pairz00_3328;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1987z00_3329;
BgL_aux1987z00_3329 = 
CAR(BgL_pairz00_29); 
if(
PAIRP(BgL_aux1987z00_3329))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3328 = BgL_aux1987z00_3329; }  else 
{ 
 obj_t BgL_auxz00_4158;
BgL_auxz00_4158 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2571z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1987z00_3329); 
FAILURE(BgL_auxz00_4158,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1989z00_3330;
BgL_aux1989z00_3330 = 
CAR(BgL_pairz00_3328); 
if(
PAIRP(BgL_aux1989z00_3330))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3327 = BgL_aux1989z00_3330; }  else 
{ 
 obj_t BgL_auxz00_4165;
BgL_auxz00_4165 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2571z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1989z00_3330); 
FAILURE(BgL_auxz00_4165,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux1991z00_3331;
BgL_aux1991z00_3331 = 
CDR(BgL_pairz00_3327); 
if(
PAIRP(BgL_aux1991z00_3331))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3326 = BgL_aux1991z00_3331; }  else 
{ 
 obj_t BgL_auxz00_4172;
BgL_auxz00_4172 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2571z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1991z00_3331); 
FAILURE(BgL_auxz00_4172,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3326);} } 

}



/* &cadaar */
obj_t BGl_z62cadaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2410, obj_t BgL_pairz00_2411)
{
{ /* Ieee/pairlist.scm 368 */
{ /* Ieee/pairlist.scm 369 */
 obj_t BgL_auxz00_4177;
if(
PAIRP(BgL_pairz00_2411))
{ /* Ieee/pairlist.scm 369 */
BgL_auxz00_4177 = BgL_pairz00_2411
; }  else 
{ 
 obj_t BgL_auxz00_4180;
BgL_auxz00_4180 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(15685L), BGl_string2572z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2411); 
FAILURE(BgL_auxz00_4180,BFALSE,BFALSE);} 
return 
BGl_cadaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4177);} } 

}



/* cdaaar */
BGL_EXPORTED_DEF obj_t BGl_cdaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_30)
{
{ /* Ieee/pairlist.scm 374 */
{ /* Ieee/pairlist.scm 375 */
 obj_t BgL_pairz00_3332;
{ /* Ieee/pairlist.scm 375 */
 obj_t BgL_pairz00_3333;
{ /* Ieee/pairlist.scm 375 */
 obj_t BgL_pairz00_3334;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1995z00_3335;
BgL_aux1995z00_3335 = 
CAR(BgL_pairz00_30); 
if(
PAIRP(BgL_aux1995z00_3335))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3334 = BgL_aux1995z00_3335; }  else 
{ 
 obj_t BgL_auxz00_4188;
BgL_auxz00_4188 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2573z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1995z00_3335); 
FAILURE(BgL_auxz00_4188,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1997z00_3336;
BgL_aux1997z00_3336 = 
CAR(BgL_pairz00_3334); 
if(
PAIRP(BgL_aux1997z00_3336))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3333 = BgL_aux1997z00_3336; }  else 
{ 
 obj_t BgL_auxz00_4195;
BgL_auxz00_4195 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2573z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1997z00_3336); 
FAILURE(BgL_auxz00_4195,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux1999z00_3337;
BgL_aux1999z00_3337 = 
CAR(BgL_pairz00_3333); 
if(
PAIRP(BgL_aux1999z00_3337))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3332 = BgL_aux1999z00_3337; }  else 
{ 
 obj_t BgL_auxz00_4202;
BgL_auxz00_4202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2573z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux1999z00_3337); 
FAILURE(BgL_auxz00_4202,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3332);} } 

}



/* &cdaaar */
obj_t BGl_z62cdaaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2412, obj_t BgL_pairz00_2413)
{
{ /* Ieee/pairlist.scm 374 */
{ /* Ieee/pairlist.scm 375 */
 obj_t BgL_auxz00_4207;
if(
PAIRP(BgL_pairz00_2413))
{ /* Ieee/pairlist.scm 375 */
BgL_auxz00_4207 = BgL_pairz00_2413
; }  else 
{ 
 obj_t BgL_auxz00_4210;
BgL_auxz00_4210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(15970L), BGl_string2574z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2413); 
FAILURE(BgL_auxz00_4210,BFALSE,BFALSE);} 
return 
BGl_cdaaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4207);} } 

}



/* caaddr */
BGL_EXPORTED_DEF obj_t BGl_caaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_31)
{
{ /* Ieee/pairlist.scm 380 */
{ /* Ieee/pairlist.scm 381 */
 obj_t BgL_pairz00_3338;
{ /* Ieee/pairlist.scm 381 */
 obj_t BgL_pairz00_3339;
{ /* Ieee/pairlist.scm 381 */
 obj_t BgL_pairz00_3340;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2003z00_3341;
BgL_aux2003z00_3341 = 
CDR(BgL_pairz00_31); 
if(
PAIRP(BgL_aux2003z00_3341))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3340 = BgL_aux2003z00_3341; }  else 
{ 
 obj_t BgL_auxz00_4218;
BgL_auxz00_4218 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2575z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2003z00_3341); 
FAILURE(BgL_auxz00_4218,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2005z00_3342;
BgL_aux2005z00_3342 = 
CDR(BgL_pairz00_3340); 
if(
PAIRP(BgL_aux2005z00_3342))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3339 = BgL_aux2005z00_3342; }  else 
{ 
 obj_t BgL_auxz00_4225;
BgL_auxz00_4225 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2575z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2005z00_3342); 
FAILURE(BgL_auxz00_4225,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2007z00_3343;
BgL_aux2007z00_3343 = 
CAR(BgL_pairz00_3339); 
if(
PAIRP(BgL_aux2007z00_3343))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3338 = BgL_aux2007z00_3343; }  else 
{ 
 obj_t BgL_auxz00_4232;
BgL_auxz00_4232 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2575z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2007z00_3343); 
FAILURE(BgL_auxz00_4232,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3338);} } 

}



/* &caaddr */
obj_t BGl_z62caaddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2414, obj_t BgL_pairz00_2415)
{
{ /* Ieee/pairlist.scm 380 */
{ /* Ieee/pairlist.scm 381 */
 obj_t BgL_auxz00_4237;
if(
PAIRP(BgL_pairz00_2415))
{ /* Ieee/pairlist.scm 381 */
BgL_auxz00_4237 = BgL_pairz00_2415
; }  else 
{ 
 obj_t BgL_auxz00_4240;
BgL_auxz00_4240 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(16255L), BGl_string2576z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2415); 
FAILURE(BgL_auxz00_4240,BFALSE,BFALSE);} 
return 
BGl_caaddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4237);} } 

}



/* caddar */
BGL_EXPORTED_DEF obj_t BGl_caddarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_32)
{
{ /* Ieee/pairlist.scm 386 */
{ /* Ieee/pairlist.scm 387 */
 obj_t BgL_pairz00_3344;
{ /* Ieee/pairlist.scm 387 */
 obj_t BgL_pairz00_3345;
{ /* Ieee/pairlist.scm 387 */
 obj_t BgL_pairz00_3346;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2011z00_3347;
BgL_aux2011z00_3347 = 
CAR(BgL_pairz00_32); 
if(
PAIRP(BgL_aux2011z00_3347))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3346 = BgL_aux2011z00_3347; }  else 
{ 
 obj_t BgL_auxz00_4248;
BgL_auxz00_4248 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2577z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2011z00_3347); 
FAILURE(BgL_auxz00_4248,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2013z00_3348;
BgL_aux2013z00_3348 = 
CDR(BgL_pairz00_3346); 
if(
PAIRP(BgL_aux2013z00_3348))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3345 = BgL_aux2013z00_3348; }  else 
{ 
 obj_t BgL_auxz00_4255;
BgL_auxz00_4255 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2577z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2013z00_3348); 
FAILURE(BgL_auxz00_4255,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2015z00_3349;
BgL_aux2015z00_3349 = 
CDR(BgL_pairz00_3345); 
if(
PAIRP(BgL_aux2015z00_3349))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3344 = BgL_aux2015z00_3349; }  else 
{ 
 obj_t BgL_auxz00_4262;
BgL_auxz00_4262 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2577z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2015z00_3349); 
FAILURE(BgL_auxz00_4262,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3344);} } 

}



/* &caddar */
obj_t BGl_z62caddarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2416, obj_t BgL_pairz00_2417)
{
{ /* Ieee/pairlist.scm 386 */
{ /* Ieee/pairlist.scm 387 */
 obj_t BgL_auxz00_4267;
if(
PAIRP(BgL_pairz00_2417))
{ /* Ieee/pairlist.scm 387 */
BgL_auxz00_4267 = BgL_pairz00_2417
; }  else 
{ 
 obj_t BgL_auxz00_4270;
BgL_auxz00_4270 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(16540L), BGl_string2578z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2417); 
FAILURE(BgL_auxz00_4270,BFALSE,BFALSE);} 
return 
BGl_caddarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4267);} } 

}



/* cadadr */
BGL_EXPORTED_DEF obj_t BGl_cadadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_33)
{
{ /* Ieee/pairlist.scm 392 */
{ /* Ieee/pairlist.scm 393 */
 obj_t BgL_pairz00_3350;
{ /* Ieee/pairlist.scm 393 */
 obj_t BgL_pairz00_3351;
{ /* Ieee/pairlist.scm 393 */
 obj_t BgL_pairz00_3352;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2019z00_3353;
BgL_aux2019z00_3353 = 
CDR(BgL_pairz00_33); 
if(
PAIRP(BgL_aux2019z00_3353))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3352 = BgL_aux2019z00_3353; }  else 
{ 
 obj_t BgL_auxz00_4278;
BgL_auxz00_4278 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2579z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2019z00_3353); 
FAILURE(BgL_auxz00_4278,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2021z00_3354;
BgL_aux2021z00_3354 = 
CAR(BgL_pairz00_3352); 
if(
PAIRP(BgL_aux2021z00_3354))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3351 = BgL_aux2021z00_3354; }  else 
{ 
 obj_t BgL_auxz00_4285;
BgL_auxz00_4285 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2579z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2021z00_3354); 
FAILURE(BgL_auxz00_4285,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2023z00_3355;
BgL_aux2023z00_3355 = 
CDR(BgL_pairz00_3351); 
if(
PAIRP(BgL_aux2023z00_3355))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3350 = BgL_aux2023z00_3355; }  else 
{ 
 obj_t BgL_auxz00_4292;
BgL_auxz00_4292 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2579z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2023z00_3355); 
FAILURE(BgL_auxz00_4292,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3350);} } 

}



/* &cadadr */
obj_t BGl_z62cadadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2418, obj_t BgL_pairz00_2419)
{
{ /* Ieee/pairlist.scm 392 */
{ /* Ieee/pairlist.scm 393 */
 obj_t BgL_auxz00_4297;
if(
PAIRP(BgL_pairz00_2419))
{ /* Ieee/pairlist.scm 393 */
BgL_auxz00_4297 = BgL_pairz00_2419
; }  else 
{ 
 obj_t BgL_auxz00_4300;
BgL_auxz00_4300 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(16825L), BGl_string2580z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2419); 
FAILURE(BgL_auxz00_4300,BFALSE,BFALSE);} 
return 
BGl_cadadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4297);} } 

}



/* cadddr */
BGL_EXPORTED_DEF obj_t BGl_cadddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_34)
{
{ /* Ieee/pairlist.scm 398 */
{ /* Ieee/pairlist.scm 399 */
 obj_t BgL_pairz00_3356;
{ /* Ieee/pairlist.scm 399 */
 obj_t BgL_pairz00_3357;
{ /* Ieee/pairlist.scm 399 */
 obj_t BgL_pairz00_3358;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2027z00_3359;
BgL_aux2027z00_3359 = 
CDR(BgL_pairz00_34); 
if(
PAIRP(BgL_aux2027z00_3359))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3358 = BgL_aux2027z00_3359; }  else 
{ 
 obj_t BgL_auxz00_4308;
BgL_auxz00_4308 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2581z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2027z00_3359); 
FAILURE(BgL_auxz00_4308,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2029z00_3360;
BgL_aux2029z00_3360 = 
CDR(BgL_pairz00_3358); 
if(
PAIRP(BgL_aux2029z00_3360))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3357 = BgL_aux2029z00_3360; }  else 
{ 
 obj_t BgL_auxz00_4315;
BgL_auxz00_4315 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2581z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2029z00_3360); 
FAILURE(BgL_auxz00_4315,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2031z00_3361;
BgL_aux2031z00_3361 = 
CDR(BgL_pairz00_3357); 
if(
PAIRP(BgL_aux2031z00_3361))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3356 = BgL_aux2031z00_3361; }  else 
{ 
 obj_t BgL_auxz00_4322;
BgL_auxz00_4322 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2581z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2031z00_3361); 
FAILURE(BgL_auxz00_4322,BFALSE,BFALSE);} } } 
return 
CAR(BgL_pairz00_3356);} } 

}



/* &cadddr */
obj_t BGl_z62cadddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2420, obj_t BgL_pairz00_2421)
{
{ /* Ieee/pairlist.scm 398 */
{ /* Ieee/pairlist.scm 399 */
 obj_t BgL_auxz00_4327;
if(
PAIRP(BgL_pairz00_2421))
{ /* Ieee/pairlist.scm 399 */
BgL_auxz00_4327 = BgL_pairz00_2421
; }  else 
{ 
 obj_t BgL_auxz00_4330;
BgL_auxz00_4330 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(17110L), BGl_string2582z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2421); 
FAILURE(BgL_auxz00_4330,BFALSE,BFALSE);} 
return 
BGl_cadddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4327);} } 

}



/* cdaadr */
BGL_EXPORTED_DEF obj_t BGl_cdaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_35)
{
{ /* Ieee/pairlist.scm 404 */
{ /* Ieee/pairlist.scm 405 */
 obj_t BgL_pairz00_3362;
{ /* Ieee/pairlist.scm 405 */
 obj_t BgL_pairz00_3363;
{ /* Ieee/pairlist.scm 405 */
 obj_t BgL_pairz00_3364;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2035z00_3365;
BgL_aux2035z00_3365 = 
CDR(BgL_pairz00_35); 
if(
PAIRP(BgL_aux2035z00_3365))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3364 = BgL_aux2035z00_3365; }  else 
{ 
 obj_t BgL_auxz00_4338;
BgL_auxz00_4338 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2583z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2035z00_3365); 
FAILURE(BgL_auxz00_4338,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2037z00_3366;
BgL_aux2037z00_3366 = 
CAR(BgL_pairz00_3364); 
if(
PAIRP(BgL_aux2037z00_3366))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3363 = BgL_aux2037z00_3366; }  else 
{ 
 obj_t BgL_auxz00_4345;
BgL_auxz00_4345 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2583z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2037z00_3366); 
FAILURE(BgL_auxz00_4345,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2039z00_3367;
BgL_aux2039z00_3367 = 
CAR(BgL_pairz00_3363); 
if(
PAIRP(BgL_aux2039z00_3367))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3362 = BgL_aux2039z00_3367; }  else 
{ 
 obj_t BgL_auxz00_4352;
BgL_auxz00_4352 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2583z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2039z00_3367); 
FAILURE(BgL_auxz00_4352,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3362);} } 

}



/* &cdaadr */
obj_t BGl_z62cdaadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2422, obj_t BgL_pairz00_2423)
{
{ /* Ieee/pairlist.scm 404 */
{ /* Ieee/pairlist.scm 405 */
 obj_t BgL_auxz00_4357;
if(
PAIRP(BgL_pairz00_2423))
{ /* Ieee/pairlist.scm 405 */
BgL_auxz00_4357 = BgL_pairz00_2423
; }  else 
{ 
 obj_t BgL_auxz00_4360;
BgL_auxz00_4360 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(17395L), BGl_string2584z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2423); 
FAILURE(BgL_auxz00_4360,BFALSE,BFALSE);} 
return 
BGl_cdaadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4357);} } 

}



/* cdaddr */
BGL_EXPORTED_DEF obj_t BGl_cdaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_36)
{
{ /* Ieee/pairlist.scm 410 */
{ /* Ieee/pairlist.scm 411 */
 obj_t BgL_pairz00_3368;
{ /* Ieee/pairlist.scm 411 */
 obj_t BgL_pairz00_3369;
{ /* Ieee/pairlist.scm 411 */
 obj_t BgL_pairz00_3370;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2043z00_3371;
BgL_aux2043z00_3371 = 
CDR(BgL_pairz00_36); 
if(
PAIRP(BgL_aux2043z00_3371))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3370 = BgL_aux2043z00_3371; }  else 
{ 
 obj_t BgL_auxz00_4368;
BgL_auxz00_4368 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2585z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2043z00_3371); 
FAILURE(BgL_auxz00_4368,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2045z00_3372;
BgL_aux2045z00_3372 = 
CDR(BgL_pairz00_3370); 
if(
PAIRP(BgL_aux2045z00_3372))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3369 = BgL_aux2045z00_3372; }  else 
{ 
 obj_t BgL_auxz00_4375;
BgL_auxz00_4375 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2585z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2045z00_3372); 
FAILURE(BgL_auxz00_4375,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2047z00_3373;
BgL_aux2047z00_3373 = 
CAR(BgL_pairz00_3369); 
if(
PAIRP(BgL_aux2047z00_3373))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3368 = BgL_aux2047z00_3373; }  else 
{ 
 obj_t BgL_auxz00_4382;
BgL_auxz00_4382 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2585z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2047z00_3373); 
FAILURE(BgL_auxz00_4382,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3368);} } 

}



/* &cdaddr */
obj_t BGl_z62cdaddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2424, obj_t BgL_pairz00_2425)
{
{ /* Ieee/pairlist.scm 410 */
{ /* Ieee/pairlist.scm 411 */
 obj_t BgL_auxz00_4387;
if(
PAIRP(BgL_pairz00_2425))
{ /* Ieee/pairlist.scm 411 */
BgL_auxz00_4387 = BgL_pairz00_2425
; }  else 
{ 
 obj_t BgL_auxz00_4390;
BgL_auxz00_4390 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(17680L), BGl_string2586z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2425); 
FAILURE(BgL_auxz00_4390,BFALSE,BFALSE);} 
return 
BGl_cdaddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4387);} } 

}



/* cddaar */
BGL_EXPORTED_DEF obj_t BGl_cddaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_37)
{
{ /* Ieee/pairlist.scm 416 */
{ /* Ieee/pairlist.scm 417 */
 obj_t BgL_pairz00_3374;
{ /* Ieee/pairlist.scm 417 */
 obj_t BgL_pairz00_3375;
{ /* Ieee/pairlist.scm 417 */
 obj_t BgL_pairz00_3376;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2051z00_3377;
BgL_aux2051z00_3377 = 
CAR(BgL_pairz00_37); 
if(
PAIRP(BgL_aux2051z00_3377))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3376 = BgL_aux2051z00_3377; }  else 
{ 
 obj_t BgL_auxz00_4398;
BgL_auxz00_4398 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2587z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2051z00_3377); 
FAILURE(BgL_auxz00_4398,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2053z00_3378;
BgL_aux2053z00_3378 = 
CAR(BgL_pairz00_3376); 
if(
PAIRP(BgL_aux2053z00_3378))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3375 = BgL_aux2053z00_3378; }  else 
{ 
 obj_t BgL_auxz00_4405;
BgL_auxz00_4405 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2587z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2053z00_3378); 
FAILURE(BgL_auxz00_4405,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2055z00_3379;
BgL_aux2055z00_3379 = 
CDR(BgL_pairz00_3375); 
if(
PAIRP(BgL_aux2055z00_3379))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3374 = BgL_aux2055z00_3379; }  else 
{ 
 obj_t BgL_auxz00_4412;
BgL_auxz00_4412 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2587z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2055z00_3379); 
FAILURE(BgL_auxz00_4412,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3374);} } 

}



/* &cddaar */
obj_t BGl_z62cddaarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2426, obj_t BgL_pairz00_2427)
{
{ /* Ieee/pairlist.scm 416 */
{ /* Ieee/pairlist.scm 417 */
 obj_t BgL_auxz00_4417;
if(
PAIRP(BgL_pairz00_2427))
{ /* Ieee/pairlist.scm 417 */
BgL_auxz00_4417 = BgL_pairz00_2427
; }  else 
{ 
 obj_t BgL_auxz00_4420;
BgL_auxz00_4420 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(17965L), BGl_string2588z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2427); 
FAILURE(BgL_auxz00_4420,BFALSE,BFALSE);} 
return 
BGl_cddaarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4417);} } 

}



/* cddadr */
BGL_EXPORTED_DEF obj_t BGl_cddadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_38)
{
{ /* Ieee/pairlist.scm 422 */
{ /* Ieee/pairlist.scm 423 */
 obj_t BgL_pairz00_3380;
{ /* Ieee/pairlist.scm 423 */
 obj_t BgL_pairz00_3381;
{ /* Ieee/pairlist.scm 423 */
 obj_t BgL_pairz00_3382;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2059z00_3383;
BgL_aux2059z00_3383 = 
CDR(BgL_pairz00_38); 
if(
PAIRP(BgL_aux2059z00_3383))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3382 = BgL_aux2059z00_3383; }  else 
{ 
 obj_t BgL_auxz00_4428;
BgL_auxz00_4428 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2589z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2059z00_3383); 
FAILURE(BgL_auxz00_4428,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2061z00_3384;
BgL_aux2061z00_3384 = 
CAR(BgL_pairz00_3382); 
if(
PAIRP(BgL_aux2061z00_3384))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3381 = BgL_aux2061z00_3384; }  else 
{ 
 obj_t BgL_auxz00_4435;
BgL_auxz00_4435 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2589z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2061z00_3384); 
FAILURE(BgL_auxz00_4435,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2063z00_3385;
BgL_aux2063z00_3385 = 
CDR(BgL_pairz00_3381); 
if(
PAIRP(BgL_aux2063z00_3385))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3380 = BgL_aux2063z00_3385; }  else 
{ 
 obj_t BgL_auxz00_4442;
BgL_auxz00_4442 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2589z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2063z00_3385); 
FAILURE(BgL_auxz00_4442,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3380);} } 

}



/* &cddadr */
obj_t BGl_z62cddadrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2428, obj_t BgL_pairz00_2429)
{
{ /* Ieee/pairlist.scm 422 */
{ /* Ieee/pairlist.scm 423 */
 obj_t BgL_auxz00_4447;
if(
PAIRP(BgL_pairz00_2429))
{ /* Ieee/pairlist.scm 423 */
BgL_auxz00_4447 = BgL_pairz00_2429
; }  else 
{ 
 obj_t BgL_auxz00_4450;
BgL_auxz00_4450 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(18250L), BGl_string2590z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2429); 
FAILURE(BgL_auxz00_4450,BFALSE,BFALSE);} 
return 
BGl_cddadrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4447);} } 

}



/* cdadar */
BGL_EXPORTED_DEF obj_t BGl_cdadarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_39)
{
{ /* Ieee/pairlist.scm 428 */
{ /* Ieee/pairlist.scm 429 */
 obj_t BgL_pairz00_3386;
{ /* Ieee/pairlist.scm 429 */
 obj_t BgL_pairz00_3387;
{ /* Ieee/pairlist.scm 429 */
 obj_t BgL_pairz00_3388;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2067z00_3389;
BgL_aux2067z00_3389 = 
CAR(BgL_pairz00_39); 
if(
PAIRP(BgL_aux2067z00_3389))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3388 = BgL_aux2067z00_3389; }  else 
{ 
 obj_t BgL_auxz00_4458;
BgL_auxz00_4458 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2591z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2067z00_3389); 
FAILURE(BgL_auxz00_4458,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2069z00_3390;
BgL_aux2069z00_3390 = 
CDR(BgL_pairz00_3388); 
if(
PAIRP(BgL_aux2069z00_3390))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3387 = BgL_aux2069z00_3390; }  else 
{ 
 obj_t BgL_auxz00_4465;
BgL_auxz00_4465 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2591z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2069z00_3390); 
FAILURE(BgL_auxz00_4465,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2071z00_3391;
BgL_aux2071z00_3391 = 
CAR(BgL_pairz00_3387); 
if(
PAIRP(BgL_aux2071z00_3391))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3386 = BgL_aux2071z00_3391; }  else 
{ 
 obj_t BgL_auxz00_4472;
BgL_auxz00_4472 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2591z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2071z00_3391); 
FAILURE(BgL_auxz00_4472,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3386);} } 

}



/* &cdadar */
obj_t BGl_z62cdadarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2430, obj_t BgL_pairz00_2431)
{
{ /* Ieee/pairlist.scm 428 */
{ /* Ieee/pairlist.scm 429 */
 obj_t BgL_auxz00_4477;
if(
PAIRP(BgL_pairz00_2431))
{ /* Ieee/pairlist.scm 429 */
BgL_auxz00_4477 = BgL_pairz00_2431
; }  else 
{ 
 obj_t BgL_auxz00_4480;
BgL_auxz00_4480 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(18535L), BGl_string2592z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2431); 
FAILURE(BgL_auxz00_4480,BFALSE,BFALSE);} 
return 
BGl_cdadarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4477);} } 

}



/* cdddar */
BGL_EXPORTED_DEF obj_t BGl_cdddarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_40)
{
{ /* Ieee/pairlist.scm 434 */
{ /* Ieee/pairlist.scm 435 */
 obj_t BgL_pairz00_3392;
{ /* Ieee/pairlist.scm 435 */
 obj_t BgL_pairz00_3393;
{ /* Ieee/pairlist.scm 435 */
 obj_t BgL_pairz00_3394;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2075z00_3395;
BgL_aux2075z00_3395 = 
CAR(BgL_pairz00_40); 
if(
PAIRP(BgL_aux2075z00_3395))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_3394 = BgL_aux2075z00_3395; }  else 
{ 
 obj_t BgL_auxz00_4488;
BgL_auxz00_4488 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2593z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2075z00_3395); 
FAILURE(BgL_auxz00_4488,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2077z00_3396;
BgL_aux2077z00_3396 = 
CDR(BgL_pairz00_3394); 
if(
PAIRP(BgL_aux2077z00_3396))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3393 = BgL_aux2077z00_3396; }  else 
{ 
 obj_t BgL_auxz00_4495;
BgL_auxz00_4495 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2593z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2077z00_3396); 
FAILURE(BgL_auxz00_4495,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2079z00_3397;
BgL_aux2079z00_3397 = 
CDR(BgL_pairz00_3393); 
if(
PAIRP(BgL_aux2079z00_3397))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3392 = BgL_aux2079z00_3397; }  else 
{ 
 obj_t BgL_auxz00_4502;
BgL_auxz00_4502 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2593z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2079z00_3397); 
FAILURE(BgL_auxz00_4502,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3392);} } 

}



/* &cdddar */
obj_t BGl_z62cdddarz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2432, obj_t BgL_pairz00_2433)
{
{ /* Ieee/pairlist.scm 434 */
{ /* Ieee/pairlist.scm 435 */
 obj_t BgL_auxz00_4507;
if(
PAIRP(BgL_pairz00_2433))
{ /* Ieee/pairlist.scm 435 */
BgL_auxz00_4507 = BgL_pairz00_2433
; }  else 
{ 
 obj_t BgL_auxz00_4510;
BgL_auxz00_4510 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(18820L), BGl_string2594z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2433); 
FAILURE(BgL_auxz00_4510,BFALSE,BFALSE);} 
return 
BGl_cdddarz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4507);} } 

}



/* cddddr */
BGL_EXPORTED_DEF obj_t BGl_cddddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_41)
{
{ /* Ieee/pairlist.scm 441 */
{ /* Ieee/pairlist.scm 442 */
 obj_t BgL_pairz00_3398;
{ /* Ieee/pairlist.scm 442 */
 obj_t BgL_pairz00_3399;
{ /* Ieee/pairlist.scm 442 */
 obj_t BgL_pairz00_3400;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2083z00_3401;
BgL_aux2083z00_3401 = 
CDR(BgL_pairz00_41); 
if(
PAIRP(BgL_aux2083z00_3401))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3400 = BgL_aux2083z00_3401; }  else 
{ 
 obj_t BgL_auxz00_4518;
BgL_auxz00_4518 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2595z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2083z00_3401); 
FAILURE(BgL_auxz00_4518,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2085z00_3402;
BgL_aux2085z00_3402 = 
CDR(BgL_pairz00_3400); 
if(
PAIRP(BgL_aux2085z00_3402))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3399 = BgL_aux2085z00_3402; }  else 
{ 
 obj_t BgL_auxz00_4525;
BgL_auxz00_4525 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2595z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2085z00_3402); 
FAILURE(BgL_auxz00_4525,BFALSE,BFALSE);} } } 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2087z00_3403;
BgL_aux2087z00_3403 = 
CDR(BgL_pairz00_3399); 
if(
PAIRP(BgL_aux2087z00_3403))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_3398 = BgL_aux2087z00_3403; }  else 
{ 
 obj_t BgL_auxz00_4532;
BgL_auxz00_4532 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2595z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2087z00_3403); 
FAILURE(BgL_auxz00_4532,BFALSE,BFALSE);} } } 
return 
CDR(BgL_pairz00_3398);} } 

}



/* &cddddr */
obj_t BGl_z62cddddrz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2434, obj_t BgL_pairz00_2435)
{
{ /* Ieee/pairlist.scm 441 */
{ /* Ieee/pairlist.scm 442 */
 obj_t BgL_auxz00_4537;
if(
PAIRP(BgL_pairz00_2435))
{ /* Ieee/pairlist.scm 442 */
BgL_auxz00_4537 = BgL_pairz00_2435
; }  else 
{ 
 obj_t BgL_auxz00_4540;
BgL_auxz00_4540 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(19106L), BGl_string2596z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2435); 
FAILURE(BgL_auxz00_4540,BFALSE,BFALSE);} 
return 
BGl_cddddrz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4537);} } 

}



/* set-car! */
BGL_EXPORTED_DEF obj_t BGl_setzd2carz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_42, obj_t BgL_objz00_43)
{
{ /* Ieee/pairlist.scm 447 */
return 
SET_CAR(BgL_pairz00_42, BgL_objz00_43);} 

}



/* &set-car! */
obj_t BGl_z62setzd2carz12za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2436, obj_t BgL_pairz00_2437, obj_t BgL_objz00_2438)
{
{ /* Ieee/pairlist.scm 447 */
{ /* Ieee/pairlist.scm 448 */
 obj_t BgL_auxz00_4546;
if(
PAIRP(BgL_pairz00_2437))
{ /* Ieee/pairlist.scm 448 */
BgL_auxz00_4546 = BgL_pairz00_2437
; }  else 
{ 
 obj_t BgL_auxz00_4549;
BgL_auxz00_4549 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(19382L), BGl_string2597z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2437); 
FAILURE(BgL_auxz00_4549,BFALSE,BFALSE);} 
return 
BGl_setzd2carz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4546, BgL_objz00_2438);} } 

}



/* set-cdr! */
BGL_EXPORTED_DEF obj_t BGl_setzd2cdrz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_44, obj_t BgL_objz00_45)
{
{ /* Ieee/pairlist.scm 453 */
return 
SET_CDR(BgL_pairz00_44, BgL_objz00_45);} 

}



/* &set-cdr! */
obj_t BGl_z62setzd2cdrz12za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2439, obj_t BgL_pairz00_2440, obj_t BgL_objz00_2441)
{
{ /* Ieee/pairlist.scm 453 */
{ /* Ieee/pairlist.scm 454 */
 obj_t BgL_auxz00_4555;
if(
PAIRP(BgL_pairz00_2440))
{ /* Ieee/pairlist.scm 454 */
BgL_auxz00_4555 = BgL_pairz00_2440
; }  else 
{ 
 obj_t BgL_auxz00_4558;
BgL_auxz00_4558 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(19665L), BGl_string2598z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_pairz00_2440); 
FAILURE(BgL_auxz00_4558,BFALSE,BFALSE);} 
return 
BGl_setzd2cdrz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4555, BgL_objz00_2441);} } 

}



/* set-cer! */
BGL_EXPORTED_DEF obj_t BGl_setzd2cerz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_epairz00_46, obj_t BgL_objz00_47)
{
{ /* Ieee/pairlist.scm 459 */
return 
SET_CER(BgL_epairz00_46, BgL_objz00_47);} 

}



/* &set-cer! */
obj_t BGl_z62setzd2cerz12za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2442, obj_t BgL_epairz00_2443, obj_t BgL_objz00_2444)
{
{ /* Ieee/pairlist.scm 459 */
{ /* Ieee/pairlist.scm 460 */
 obj_t BgL_auxz00_4564;
if(
EPAIRP(BgL_epairz00_2443))
{ /* Ieee/pairlist.scm 460 */
BgL_auxz00_4564 = BgL_epairz00_2443
; }  else 
{ 
 obj_t BgL_auxz00_4567;
BgL_auxz00_4567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(19949L), BGl_string2599z00zz__r4_pairs_and_lists_6_3z00, BGl_string2540z00zz__r4_pairs_and_lists_6_3z00, BgL_epairz00_2443); 
FAILURE(BgL_auxz00_4567,BFALSE,BFALSE);} 
return 
BGl_setzd2cerz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4564, BgL_objz00_2444);} } 

}



/* null? */
BGL_EXPORTED_DEF bool_t BGl_nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_48)
{
{ /* Ieee/pairlist.scm 465 */
return 
NULLP(BgL_objz00_48);} 

}



/* &null? */
obj_t BGl_z62nullzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2445, obj_t BgL_objz00_2446)
{
{ /* Ieee/pairlist.scm 465 */
return 
BBOOL(
BGl_nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2446));} 

}



/* list */
BGL_EXPORTED_DEF obj_t BGl_listz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_49)
{
{ /* Ieee/pairlist.scm 471 */
{ /* Ieee/pairlist.scm 471 */
 bool_t BgL_test3299z00_4575;
if(
PAIRP(BgL_lz00_49))
{ /* Ieee/pairlist.scm 241 */
BgL_test3299z00_4575 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3299z00_4575 = 
NULLP(BgL_lz00_49)
; } 
if(BgL_test3299z00_4575)
{ /* Ieee/pairlist.scm 471 */
return BgL_lz00_49;}  else 
{ 
 obj_t BgL_auxz00_4579;
BgL_auxz00_4579 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(20463L), BGl_string2600z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_49); 
FAILURE(BgL_auxz00_4579,BFALSE,BFALSE);} } } 

}



/* &list */
obj_t BGl_z62listz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2447, obj_t BgL_lz00_2448)
{
{ /* Ieee/pairlist.scm 471 */
return 
BGl_listz00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2448);} 

}



/* list? */
BGL_EXPORTED_DEF bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_50)
{
{ /* Ieee/pairlist.scm 477 */
{ 
 obj_t BgL_xz00_890; obj_t BgL_prevz00_891; obj_t BgL_xz00_887; obj_t BgL_prevz00_888;
if(
NULLP(BgL_xz00_50))
{ /* Ieee/pairlist.scm 494 */
return ((bool_t)1);}  else 
{ /* Ieee/pairlist.scm 494 */
if(
PAIRP(BgL_xz00_50))
{ /* Ieee/pairlist.scm 496 */
BgL_xz00_887 = 
CDR(BgL_xz00_50); 
BgL_prevz00_888 = BgL_xz00_50; 
BgL_l1z00_889:
if(
NULLP(BgL_xz00_887))
{ /* Ieee/pairlist.scm 479 */
return ((bool_t)1);}  else 
{ /* Ieee/pairlist.scm 479 */
if(
PAIRP(BgL_xz00_887))
{ /* Ieee/pairlist.scm 481 */
if(
(BgL_xz00_887==BgL_prevz00_888))
{ /* Ieee/pairlist.scm 482 */
return ((bool_t)0);}  else 
{ /* Ieee/pairlist.scm 482 */
BgL_xz00_890 = 
CDR(BgL_xz00_887); 
BgL_prevz00_891 = BgL_prevz00_888; 
if(
NULLP(BgL_xz00_890))
{ /* Ieee/pairlist.scm 487 */
return ((bool_t)1);}  else 
{ /* Ieee/pairlist.scm 487 */
if(
PAIRP(BgL_xz00_890))
{ /* Ieee/pairlist.scm 489 */
if(
(BgL_xz00_890==BgL_prevz00_891))
{ /* Ieee/pairlist.scm 490 */
return ((bool_t)0);}  else 
{ 
 obj_t BgL_prevz00_4602; obj_t BgL_xz00_4600;
BgL_xz00_4600 = 
CDR(BgL_xz00_890); 
{ /* Ieee/pairlist.scm 492 */
 obj_t BgL_pairz00_1821;
if(
PAIRP(BgL_prevz00_891))
{ /* Ieee/pairlist.scm 492 */
BgL_pairz00_1821 = BgL_prevz00_891; }  else 
{ 
 obj_t BgL_auxz00_4605;
BgL_auxz00_4605 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(21030L), BGl_string2602z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_891); 
FAILURE(BgL_auxz00_4605,BFALSE,BFALSE);} 
BgL_prevz00_4602 = 
CDR(BgL_pairz00_1821); } 
BgL_prevz00_888 = BgL_prevz00_4602; 
BgL_xz00_887 = BgL_xz00_4600; 
goto BgL_l1z00_889;} }  else 
{ /* Ieee/pairlist.scm 489 */
return ((bool_t)0);} } } }  else 
{ /* Ieee/pairlist.scm 481 */
return ((bool_t)0);} } }  else 
{ /* Ieee/pairlist.scm 496 */
return ((bool_t)0);} } } } 

}



/* &list? */
obj_t BGl_z62listzf3z91zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2449, obj_t BgL_xz00_2450)
{
{ /* Ieee/pairlist.scm 477 */
return 
BBOOL(
BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2450));} 

}



/* append-2 */
BGL_EXPORTED_DEF obj_t bgl_append2(obj_t BgL_l1z00_51, obj_t BgL_l2z00_52)
{
{ /* Ieee/pairlist.scm 504 */
{ /* Ieee/pairlist.scm 505 */
 obj_t BgL_headz00_903;
BgL_headz00_903 = 
MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_52); 
{ 
 obj_t BgL_prevz00_904; obj_t BgL_tailz00_905;
BgL_prevz00_904 = BgL_headz00_903; 
BgL_tailz00_905 = BgL_l1z00_51; 
BgL_loopz00_906:
if(
NULLP(BgL_tailz00_905))
{ /* Ieee/pairlist.scm 507 */BNIL; }  else 
{ /* Ieee/pairlist.scm 509 */
 obj_t BgL_newzd2prevzd2_908;
{ /* Ieee/pairlist.scm 509 */
 obj_t BgL_arg1332z00_910;
{ /* Ieee/pairlist.scm 509 */
 obj_t BgL_pairz00_1823;
if(
PAIRP(BgL_tailz00_905))
{ /* Ieee/pairlist.scm 509 */
BgL_pairz00_1823 = BgL_tailz00_905; }  else 
{ 
 obj_t BgL_auxz00_4619;
BgL_auxz00_4619 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(21530L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_905); 
FAILURE(BgL_auxz00_4619,BFALSE,BFALSE);} 
BgL_arg1332z00_910 = 
CAR(BgL_pairz00_1823); } 
BgL_newzd2prevzd2_908 = 
MAKE_YOUNG_PAIR(BgL_arg1332z00_910, BgL_l2z00_52); } 
SET_CDR(BgL_prevz00_904, BgL_newzd2prevzd2_908); 
{ /* Ieee/pairlist.scm 511 */
 obj_t BgL_arg1331z00_909;
{ /* Ieee/pairlist.scm 511 */
 obj_t BgL_pairz00_1825;
if(
PAIRP(BgL_tailz00_905))
{ /* Ieee/pairlist.scm 511 */
BgL_pairz00_1825 = BgL_tailz00_905; }  else 
{ 
 obj_t BgL_auxz00_4628;
BgL_auxz00_4628 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(21601L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_905); 
FAILURE(BgL_auxz00_4628,BFALSE,BFALSE);} 
BgL_arg1331z00_909 = 
CDR(BgL_pairz00_1825); } 
{ 
 obj_t BgL_tailz00_4634; obj_t BgL_prevz00_4633;
BgL_prevz00_4633 = BgL_newzd2prevzd2_908; 
BgL_tailz00_4634 = BgL_arg1331z00_909; 
BgL_tailz00_905 = BgL_tailz00_4634; 
BgL_prevz00_904 = BgL_prevz00_4633; 
goto BgL_loopz00_906;} } } 
return 
CDR(BgL_headz00_903);} } } 

}



/* &append-2 */
obj_t BGl_z62appendzd22zb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2451, obj_t BgL_l1z00_2452, obj_t BgL_l2z00_2453)
{
{ /* Ieee/pairlist.scm 504 */
{ /* Ieee/pairlist.scm 505 */
 obj_t BgL_auxz00_4636;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_l1z00_2452))
{ /* Ieee/pairlist.scm 505 */
BgL_auxz00_4636 = BgL_l1z00_2452
; }  else 
{ 
 obj_t BgL_auxz00_4639;
BgL_auxz00_4639 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(21406L), BGl_string2604z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_l1z00_2452); 
FAILURE(BgL_auxz00_4639,BFALSE,BFALSE);} 
return 
bgl_append2(BgL_auxz00_4636, BgL_l2z00_2453);} } 

}



/* eappend-2 */
BGL_EXPORTED_DEF obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_l1z00_53, obj_t BgL_l2z00_54)
{
{ /* Ieee/pairlist.scm 518 */
{ /* Ieee/pairlist.scm 519 */
 obj_t BgL_headz00_911;
if(
EPAIRP(BgL_l2z00_54))
{ /* Ieee/pairlist.scm 520 */
 obj_t BgL_arg1341z00_923;
{ /* Ieee/pairlist.scm 520 */
 obj_t BgL_objz00_1827;
if(
EPAIRP(BgL_l2z00_54))
{ /* Ieee/pairlist.scm 520 */
BgL_objz00_1827 = BgL_l2z00_54; }  else 
{ 
 obj_t BgL_auxz00_4648;
BgL_auxz00_4648 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(21949L), BGl_string2605z00zz__r4_pairs_and_lists_6_3z00, BGl_string2540z00zz__r4_pairs_and_lists_6_3z00, BgL_l2z00_54); 
FAILURE(BgL_auxz00_4648,BFALSE,BFALSE);} 
BgL_arg1341z00_923 = 
CER(BgL_objz00_1827); } 
{ /* Ieee/pairlist.scm 520 */
 obj_t BgL_res1887z00_1828;
BgL_res1887z00_1828 = 
MAKE_YOUNG_EPAIR(BNIL, BgL_l2z00_54, BgL_arg1341z00_923); 
BgL_headz00_911 = BgL_res1887z00_1828; } }  else 
{ /* Ieee/pairlist.scm 519 */
BgL_headz00_911 = 
MAKE_YOUNG_PAIR(BNIL, BgL_l2z00_54); } 
{ 
 obj_t BgL_prevz00_912; obj_t BgL_tailz00_913;
BgL_prevz00_912 = BgL_headz00_911; 
BgL_tailz00_913 = BgL_l1z00_53; 
BgL_loopz00_914:
if(
NULLP(BgL_tailz00_913))
{ /* Ieee/pairlist.scm 523 */BNIL; }  else 
{ /* Ieee/pairlist.scm 525 */
 obj_t BgL_newzd2prevzd2_916;
if(
EPAIRP(BgL_tailz00_913))
{ /* Ieee/pairlist.scm 526 */
 obj_t BgL_arg1336z00_919; obj_t BgL_arg1337z00_920;
{ /* Ieee/pairlist.scm 526 */
 obj_t BgL_pairz00_1829;
if(
PAIRP(BgL_tailz00_913))
{ /* Ieee/pairlist.scm 526 */
BgL_pairz00_1829 = BgL_tailz00_913; }  else 
{ 
 obj_t BgL_auxz00_4661;
BgL_auxz00_4661 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22101L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_913); 
FAILURE(BgL_auxz00_4661,BFALSE,BFALSE);} 
BgL_arg1336z00_919 = 
CAR(BgL_pairz00_1829); } 
{ /* Ieee/pairlist.scm 526 */
 obj_t BgL_objz00_1830;
if(
EPAIRP(BgL_tailz00_913))
{ /* Ieee/pairlist.scm 526 */
BgL_objz00_1830 = BgL_tailz00_913; }  else 
{ 
 obj_t BgL_auxz00_4668;
BgL_auxz00_4668 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22115L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2540z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_913); 
FAILURE(BgL_auxz00_4668,BFALSE,BFALSE);} 
BgL_arg1337z00_920 = 
CER(BgL_objz00_1830); } 
{ /* Ieee/pairlist.scm 526 */
 obj_t BgL_res1888z00_1831;
BgL_res1888z00_1831 = 
MAKE_YOUNG_EPAIR(BgL_arg1336z00_919, BgL_l2z00_54, BgL_arg1337z00_920); 
BgL_newzd2prevzd2_916 = BgL_res1888z00_1831; } }  else 
{ /* Ieee/pairlist.scm 527 */
 obj_t BgL_arg1338z00_921;
{ /* Ieee/pairlist.scm 527 */
 obj_t BgL_pairz00_1832;
if(
PAIRP(BgL_tailz00_913))
{ /* Ieee/pairlist.scm 527 */
BgL_pairz00_1832 = BgL_tailz00_913; }  else 
{ 
 obj_t BgL_auxz00_4676;
BgL_auxz00_4676 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22143L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_913); 
FAILURE(BgL_auxz00_4676,BFALSE,BFALSE);} 
BgL_arg1338z00_921 = 
CAR(BgL_pairz00_1832); } 
BgL_newzd2prevzd2_916 = 
MAKE_YOUNG_PAIR(BgL_arg1338z00_921, BgL_l2z00_54); } 
SET_CDR(BgL_prevz00_912, BgL_newzd2prevzd2_916); 
{ /* Ieee/pairlist.scm 529 */
 obj_t BgL_arg1334z00_917;
{ /* Ieee/pairlist.scm 529 */
 obj_t BgL_pairz00_1834;
if(
PAIRP(BgL_tailz00_913))
{ /* Ieee/pairlist.scm 529 */
BgL_pairz00_1834 = BgL_tailz00_913; }  else 
{ 
 obj_t BgL_auxz00_4685;
BgL_auxz00_4685 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22215L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_913); 
FAILURE(BgL_auxz00_4685,BFALSE,BFALSE);} 
BgL_arg1334z00_917 = 
CDR(BgL_pairz00_1834); } 
{ 
 obj_t BgL_tailz00_4691; obj_t BgL_prevz00_4690;
BgL_prevz00_4690 = BgL_newzd2prevzd2_916; 
BgL_tailz00_4691 = BgL_arg1334z00_917; 
BgL_tailz00_913 = BgL_tailz00_4691; 
BgL_prevz00_912 = BgL_prevz00_4690; 
goto BgL_loopz00_914;} } } 
return 
CDR(BgL_headz00_911);} } } 

}



/* &eappend-2 */
obj_t BGl_z62eappendzd22zb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2454, obj_t BgL_l1z00_2455, obj_t BgL_l2z00_2456)
{
{ /* Ieee/pairlist.scm 518 */
{ /* Ieee/pairlist.scm 519 */
 obj_t BgL_auxz00_4693;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_l1z00_2455))
{ /* Ieee/pairlist.scm 519 */
BgL_auxz00_4693 = BgL_l1z00_2455
; }  else 
{ 
 obj_t BgL_auxz00_4696;
BgL_auxz00_4696 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(21897L), BGl_string2606z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_l1z00_2455); 
FAILURE(BgL_auxz00_4696,BFALSE,BFALSE);} 
return 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4693, BgL_l2z00_2456);} } 

}



/* append */
BGL_EXPORTED_DEF obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_55)
{
{ /* Ieee/pairlist.scm 536 */
BGL_TAIL return 
BGl_appendzd2listze72z35zz__r4_pairs_and_lists_6_3z00(BgL_lz00_55);} 

}



/* append-list~2 */
obj_t BGl_appendzd2listze72z35zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_924)
{
{ /* Ieee/pairlist.scm 537 */
{ /* Ieee/pairlist.scm 538 */
 long BgL_lenz00_926;
{ /* Ieee/pairlist.scm 538 */
 obj_t BgL_auxz00_4702;
{ /* Ieee/pairlist.scm 538 */
 bool_t BgL_test3323z00_4703;
if(
PAIRP(BgL_lz00_924))
{ /* Ieee/pairlist.scm 241 */
BgL_test3323z00_4703 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3323z00_4703 = 
NULLP(BgL_lz00_924)
; } 
if(BgL_test3323z00_4703)
{ /* Ieee/pairlist.scm 538 */
BgL_auxz00_4702 = BgL_lz00_924
; }  else 
{ 
 obj_t BgL_auxz00_4707;
BgL_auxz00_4707 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22555L), BGl_string2607z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_924); 
FAILURE(BgL_auxz00_4707,BFALSE,BFALSE);} } 
BgL_lenz00_926 = 
bgl_list_length(BgL_auxz00_4702); } 
{ 

switch( BgL_lenz00_926) { case 0L : 

return BNIL;break;case 1L : 

{ /* Ieee/pairlist.scm 542 */
 obj_t BgL_pairz00_1838;
if(
PAIRP(BgL_lz00_924))
{ /* Ieee/pairlist.scm 542 */
BgL_pairz00_1838 = BgL_lz00_924; }  else 
{ 
 obj_t BgL_auxz00_4714;
BgL_auxz00_4714 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22624L), BGl_string2607z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_924); 
FAILURE(BgL_auxz00_4714,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_1838);} break;case 2L : 

{ /* Ieee/pairlist.scm 544 */
 obj_t BgL_arg1342z00_929; obj_t BgL_arg1343z00_930;
{ /* Ieee/pairlist.scm 544 */
 obj_t BgL_pairz00_1839;
if(
PAIRP(BgL_lz00_924))
{ /* Ieee/pairlist.scm 544 */
BgL_pairz00_1839 = BgL_lz00_924; }  else 
{ 
 obj_t BgL_auxz00_4721;
BgL_auxz00_4721 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22671L), BGl_string2607z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_924); 
FAILURE(BgL_auxz00_4721,BFALSE,BFALSE);} 
BgL_arg1342z00_929 = 
CAR(BgL_pairz00_1839); } 
{ /* Ieee/pairlist.scm 545 */
 obj_t BgL_pairz00_1841;
{ /* Ieee/pairlist.scm 545 */
 obj_t BgL_pairz00_1840;
if(
PAIRP(BgL_lz00_924))
{ /* Ieee/pairlist.scm 545 */
BgL_pairz00_1840 = BgL_lz00_924; }  else 
{ 
 obj_t BgL_auxz00_4728;
BgL_auxz00_4728 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22692L), BGl_string2607z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_924); 
FAILURE(BgL_auxz00_4728,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2133z00_2801;
BgL_aux2133z00_2801 = 
CDR(BgL_pairz00_1840); 
if(
PAIRP(BgL_aux2133z00_2801))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_1841 = BgL_aux2133z00_2801; }  else 
{ 
 obj_t BgL_auxz00_4735;
BgL_auxz00_4735 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2607z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2133z00_2801); 
FAILURE(BgL_auxz00_4735,BFALSE,BFALSE);} } } 
BgL_arg1343z00_930 = 
CAR(BgL_pairz00_1841); } 
{ /* Ieee/pairlist.scm 544 */
 obj_t BgL_auxz00_4740;
{ /* Ieee/pairlist.scm 544 */
 bool_t BgL_test3329z00_4741;
if(
PAIRP(BgL_arg1342z00_929))
{ /* Ieee/pairlist.scm 241 */
BgL_test3329z00_4741 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3329z00_4741 = 
NULLP(BgL_arg1342z00_929)
; } 
if(BgL_test3329z00_4741)
{ /* Ieee/pairlist.scm 544 */
BgL_auxz00_4740 = BgL_arg1342z00_929
; }  else 
{ 
 obj_t BgL_auxz00_4745;
BgL_auxz00_4745 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22656L), BGl_string2607z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1342z00_929); 
FAILURE(BgL_auxz00_4745,BFALSE,BFALSE);} } 
return 
BGl_appendzd221011zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4740, BgL_arg1343z00_930);} } break;
default: 
{ /* Ieee/pairlist.scm 546 */
 obj_t BgL_arg1346z00_932; obj_t BgL_arg1347z00_933;
{ /* Ieee/pairlist.scm 546 */
 obj_t BgL_pairz00_1836;
if(
PAIRP(BgL_lz00_924))
{ /* Ieee/pairlist.scm 546 */
BgL_pairz00_1836 = BgL_lz00_924; }  else 
{ 
 obj_t BgL_auxz00_4752;
BgL_auxz00_4752 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22717L), BGl_string2608z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_924); 
FAILURE(BgL_auxz00_4752,BFALSE,BFALSE);} 
BgL_arg1346z00_932 = 
CAR(BgL_pairz00_1836); } 
{ /* Ieee/pairlist.scm 547 */
 obj_t BgL_arg1349z00_934;
{ /* Ieee/pairlist.scm 547 */
 obj_t BgL_pairz00_1837;
if(
PAIRP(BgL_lz00_924))
{ /* Ieee/pairlist.scm 547 */
BgL_pairz00_1837 = BgL_lz00_924; }  else 
{ 
 obj_t BgL_auxz00_4759;
BgL_auxz00_4759 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22746L), BGl_string2608z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_924); 
FAILURE(BgL_auxz00_4759,BFALSE,BFALSE);} 
BgL_arg1349z00_934 = 
CDR(BgL_pairz00_1837); } 
BgL_arg1347z00_933 = 
BGl_appendzd2listze72z35zz__r4_pairs_and_lists_6_3z00(BgL_arg1349z00_934); } 
{ /* Ieee/pairlist.scm 546 */
 obj_t BgL_auxz00_4765;
{ /* Ieee/pairlist.scm 546 */
 bool_t BgL_test3333z00_4766;
if(
PAIRP(BgL_arg1346z00_932))
{ /* Ieee/pairlist.scm 241 */
BgL_test3333z00_4766 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3333z00_4766 = 
NULLP(BgL_arg1346z00_932)
; } 
if(BgL_test3333z00_4766)
{ /* Ieee/pairlist.scm 546 */
BgL_auxz00_4765 = BgL_arg1346z00_932
; }  else 
{ 
 obj_t BgL_auxz00_4770;
BgL_auxz00_4770 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(22702L), BGl_string2608z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1346z00_932); 
FAILURE(BgL_auxz00_4770,BFALSE,BFALSE);} } 
return 
BGl_appendzd221011zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4765, BgL_arg1347z00_933);} } } } } } 

}



/* &append */
obj_t BGl_z62appendz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2457, obj_t BgL_lz00_2458)
{
{ /* Ieee/pairlist.scm 536 */
return 
BGl_appendz00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2458);} 

}



/* eappend */
BGL_EXPORTED_DEF obj_t BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_56)
{
{ /* Ieee/pairlist.scm 553 */
BGL_TAIL return 
BGl_appendzd2listze71z35zz__r4_pairs_and_lists_6_3z00(BgL_lz00_56);} 

}



/* append-list~1 */
obj_t BGl_appendzd2listze71z35zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_935)
{
{ /* Ieee/pairlist.scm 554 */
{ /* Ieee/pairlist.scm 555 */
 long BgL_lenz00_937;
{ /* Ieee/pairlist.scm 555 */
 obj_t BgL_auxz00_4778;
{ /* Ieee/pairlist.scm 555 */
 bool_t BgL_test3335z00_4779;
if(
PAIRP(BgL_lz00_935))
{ /* Ieee/pairlist.scm 241 */
BgL_test3335z00_4779 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3335z00_4779 = 
NULLP(BgL_lz00_935)
; } 
if(BgL_test3335z00_4779)
{ /* Ieee/pairlist.scm 555 */
BgL_auxz00_4778 = BgL_lz00_935
; }  else 
{ 
 obj_t BgL_auxz00_4783;
BgL_auxz00_4783 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23078L), BGl_string2609z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_935); 
FAILURE(BgL_auxz00_4783,BFALSE,BFALSE);} } 
BgL_lenz00_937 = 
bgl_list_length(BgL_auxz00_4778); } 
{ 

switch( BgL_lenz00_937) { case 0L : 

return BNIL;break;case 1L : 

{ /* Ieee/pairlist.scm 559 */
 obj_t BgL_pairz00_1844;
if(
PAIRP(BgL_lz00_935))
{ /* Ieee/pairlist.scm 559 */
BgL_pairz00_1844 = BgL_lz00_935; }  else 
{ 
 obj_t BgL_auxz00_4790;
BgL_auxz00_4790 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23147L), BGl_string2609z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_935); 
FAILURE(BgL_auxz00_4790,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_1844);} break;case 2L : 

{ /* Ieee/pairlist.scm 561 */
 obj_t BgL_arg1351z00_940; obj_t BgL_arg1352z00_941;
{ /* Ieee/pairlist.scm 561 */
 obj_t BgL_pairz00_1845;
if(
PAIRP(BgL_lz00_935))
{ /* Ieee/pairlist.scm 561 */
BgL_pairz00_1845 = BgL_lz00_935; }  else 
{ 
 obj_t BgL_auxz00_4797;
BgL_auxz00_4797 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23195L), BGl_string2609z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_935); 
FAILURE(BgL_auxz00_4797,BFALSE,BFALSE);} 
BgL_arg1351z00_940 = 
CAR(BgL_pairz00_1845); } 
{ /* Ieee/pairlist.scm 562 */
 obj_t BgL_pairz00_1847;
{ /* Ieee/pairlist.scm 562 */
 obj_t BgL_pairz00_1846;
if(
PAIRP(BgL_lz00_935))
{ /* Ieee/pairlist.scm 562 */
BgL_pairz00_1846 = BgL_lz00_935; }  else 
{ 
 obj_t BgL_auxz00_4804;
BgL_auxz00_4804 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23217L), BGl_string2609z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_935); 
FAILURE(BgL_auxz00_4804,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2151z00_2819;
BgL_aux2151z00_2819 = 
CDR(BgL_pairz00_1846); 
if(
PAIRP(BgL_aux2151z00_2819))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_1847 = BgL_aux2151z00_2819; }  else 
{ 
 obj_t BgL_auxz00_4811;
BgL_auxz00_4811 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2609z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2151z00_2819); 
FAILURE(BgL_auxz00_4811,BFALSE,BFALSE);} } } 
BgL_arg1352z00_941 = 
CAR(BgL_pairz00_1847); } 
{ /* Ieee/pairlist.scm 561 */
 obj_t BgL_auxz00_4816;
{ /* Ieee/pairlist.scm 561 */
 bool_t BgL_test3341z00_4817;
if(
PAIRP(BgL_arg1351z00_940))
{ /* Ieee/pairlist.scm 241 */
BgL_test3341z00_4817 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3341z00_4817 = 
NULLP(BgL_arg1351z00_940)
; } 
if(BgL_test3341z00_4817)
{ /* Ieee/pairlist.scm 561 */
BgL_auxz00_4816 = BgL_arg1351z00_940
; }  else 
{ 
 obj_t BgL_auxz00_4821;
BgL_auxz00_4821 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23196L), BGl_string2609z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1351z00_940); 
FAILURE(BgL_auxz00_4821,BFALSE,BFALSE);} } 
return 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4816, BgL_arg1352z00_941);} } break;
default: 
{ /* Ieee/pairlist.scm 563 */
 obj_t BgL_arg1355z00_943; obj_t BgL_arg1356z00_944;
{ /* Ieee/pairlist.scm 563 */
 obj_t BgL_pairz00_1842;
if(
PAIRP(BgL_lz00_935))
{ /* Ieee/pairlist.scm 563 */
BgL_pairz00_1842 = BgL_lz00_935; }  else 
{ 
 obj_t BgL_auxz00_4828;
BgL_auxz00_4828 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23243L), BGl_string2610z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_935); 
FAILURE(BgL_auxz00_4828,BFALSE,BFALSE);} 
BgL_arg1355z00_943 = 
CAR(BgL_pairz00_1842); } 
{ /* Ieee/pairlist.scm 564 */
 obj_t BgL_auxz00_4833;
{ /* Ieee/pairlist.scm 564 */
 obj_t BgL_pairz00_1843;
if(
PAIRP(BgL_lz00_935))
{ /* Ieee/pairlist.scm 564 */
BgL_pairz00_1843 = BgL_lz00_935; }  else 
{ 
 obj_t BgL_auxz00_4836;
BgL_auxz00_4836 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23273L), BGl_string2610z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_935); 
FAILURE(BgL_auxz00_4836,BFALSE,BFALSE);} 
BgL_auxz00_4833 = 
CDR(BgL_pairz00_1843); } 
BgL_arg1356z00_944 = 
BGl_appendzd2listze71z35zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4833); } 
{ /* Ieee/pairlist.scm 563 */
 obj_t BgL_auxz00_4842;
{ /* Ieee/pairlist.scm 563 */
 bool_t BgL_test3345z00_4843;
if(
PAIRP(BgL_arg1355z00_943))
{ /* Ieee/pairlist.scm 241 */
BgL_test3345z00_4843 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3345z00_4843 = 
NULLP(BgL_arg1355z00_943)
; } 
if(BgL_test3345z00_4843)
{ /* Ieee/pairlist.scm 563 */
BgL_auxz00_4842 = BgL_arg1355z00_943
; }  else 
{ 
 obj_t BgL_auxz00_4847;
BgL_auxz00_4847 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23244L), BGl_string2610z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1355z00_943); 
FAILURE(BgL_auxz00_4847,BFALSE,BFALSE);} } 
return 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4842, BgL_arg1356z00_944);} } } } } } 

}



/* &eappend */
obj_t BGl_z62eappendz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2459, obj_t BgL_lz00_2460)
{
{ /* Ieee/pairlist.scm 553 */
return 
BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2460);} 

}



/* append! */
BGL_EXPORTED_DEF obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_57)
{
{ /* Ieee/pairlist.scm 570 */
{ /* Ieee/pairlist.scm 582 */
 obj_t BgL_aux2155z00_2823;
BgL_aux2155z00_2823 = 
BGl_appendzd2listze70z35zz__r4_pairs_and_lists_6_3z00(BgL_lz00_57); 
{ /* Ieee/pairlist.scm 582 */
 bool_t BgL_test3347z00_4855;
if(
PAIRP(BgL_aux2155z00_2823))
{ /* Ieee/pairlist.scm 241 */
BgL_test3347z00_4855 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3347z00_4855 = 
NULLP(BgL_aux2155z00_2823)
; } 
if(BgL_test3347z00_4855)
{ /* Ieee/pairlist.scm 582 */
return BgL_aux2155z00_2823;}  else 
{ 
 obj_t BgL_auxz00_4859;
BgL_auxz00_4859 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23817L), BGl_string2611z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2155z00_2823); 
FAILURE(BgL_auxz00_4859,BFALSE,BFALSE);} } } } 

}



/* append-list~0 */
obj_t BGl_appendzd2listze70z35zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_946)
{
{ /* Ieee/pairlist.scm 571 */
{ /* Ieee/pairlist.scm 572 */
 long BgL_lenz00_948;
{ /* Ieee/pairlist.scm 572 */
 obj_t BgL_auxz00_4863;
{ /* Ieee/pairlist.scm 572 */
 bool_t BgL_test3349z00_4864;
if(
PAIRP(BgL_lz00_946))
{ /* Ieee/pairlist.scm 241 */
BgL_test3349z00_4864 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3349z00_4864 = 
NULLP(BgL_lz00_946)
; } 
if(BgL_test3349z00_4864)
{ /* Ieee/pairlist.scm 572 */
BgL_auxz00_4863 = BgL_lz00_946
; }  else 
{ 
 obj_t BgL_auxz00_4868;
BgL_auxz00_4868 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23605L), BGl_string2612z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_946); 
FAILURE(BgL_auxz00_4868,BFALSE,BFALSE);} } 
BgL_lenz00_948 = 
bgl_list_length(BgL_auxz00_4863); } 
{ 

switch( BgL_lenz00_948) { case 0L : 

return BNIL;break;case 1L : 

{ /* Ieee/pairlist.scm 576 */
 obj_t BgL_pairz00_1850;
if(
PAIRP(BgL_lz00_946))
{ /* Ieee/pairlist.scm 576 */
BgL_pairz00_1850 = BgL_lz00_946; }  else 
{ 
 obj_t BgL_auxz00_4875;
BgL_auxz00_4875 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23674L), BGl_string2612z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_946); 
FAILURE(BgL_auxz00_4875,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_1850);} break;case 2L : 

{ /* Ieee/pairlist.scm 578 */
 obj_t BgL_arg1358z00_951; obj_t BgL_arg1359z00_952;
{ /* Ieee/pairlist.scm 578 */
 obj_t BgL_pairz00_1851;
if(
PAIRP(BgL_lz00_946))
{ /* Ieee/pairlist.scm 578 */
BgL_pairz00_1851 = BgL_lz00_946; }  else 
{ 
 obj_t BgL_auxz00_4882;
BgL_auxz00_4882 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23722L), BGl_string2612z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_946); 
FAILURE(BgL_auxz00_4882,BFALSE,BFALSE);} 
BgL_arg1358z00_951 = 
CAR(BgL_pairz00_1851); } 
{ /* Ieee/pairlist.scm 579 */
 obj_t BgL_pairz00_1853;
{ /* Ieee/pairlist.scm 579 */
 obj_t BgL_pairz00_1852;
if(
PAIRP(BgL_lz00_946))
{ /* Ieee/pairlist.scm 579 */
BgL_pairz00_1852 = BgL_lz00_946; }  else 
{ 
 obj_t BgL_auxz00_4889;
BgL_auxz00_4889 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23744L), BGl_string2612z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_946); 
FAILURE(BgL_auxz00_4889,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2173z00_2841;
BgL_aux2173z00_2841 = 
CDR(BgL_pairz00_1852); 
if(
PAIRP(BgL_aux2173z00_2841))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_1853 = BgL_aux2173z00_2841; }  else 
{ 
 obj_t BgL_auxz00_4896;
BgL_auxz00_4896 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2612z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2173z00_2841); 
FAILURE(BgL_auxz00_4896,BFALSE,BFALSE);} } } 
BgL_arg1359z00_952 = 
CAR(BgL_pairz00_1853); } 
{ /* Ieee/pairlist.scm 578 */
 obj_t BgL_auxz00_4910; obj_t BgL_auxz00_4901;
{ /* Ieee/pairlist.scm 579 */
 bool_t BgL_test3357z00_4911;
if(
PAIRP(BgL_arg1359z00_952))
{ /* Ieee/pairlist.scm 241 */
BgL_test3357z00_4911 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3357z00_4911 = 
NULLP(BgL_arg1359z00_952)
; } 
if(BgL_test3357z00_4911)
{ /* Ieee/pairlist.scm 579 */
BgL_auxz00_4910 = BgL_arg1359z00_952
; }  else 
{ 
 obj_t BgL_auxz00_4915;
BgL_auxz00_4915 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23746L), BGl_string2612z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1359z00_952); 
FAILURE(BgL_auxz00_4915,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 578 */
 bool_t BgL_test3355z00_4902;
if(
PAIRP(BgL_arg1358z00_951))
{ /* Ieee/pairlist.scm 241 */
BgL_test3355z00_4902 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3355z00_4902 = 
NULLP(BgL_arg1358z00_951)
; } 
if(BgL_test3355z00_4902)
{ /* Ieee/pairlist.scm 578 */
BgL_auxz00_4901 = BgL_arg1358z00_951
; }  else 
{ 
 obj_t BgL_auxz00_4906;
BgL_auxz00_4906 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23723L), BGl_string2612z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1358z00_951); 
FAILURE(BgL_auxz00_4906,BFALSE,BFALSE);} } 
return 
BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4901, BgL_auxz00_4910);} } break;
default: 
{ /* Ieee/pairlist.scm 580 */
 obj_t BgL_arg1361z00_954; obj_t BgL_arg1362z00_955;
{ /* Ieee/pairlist.scm 580 */
 obj_t BgL_pairz00_1848;
if(
PAIRP(BgL_lz00_946))
{ /* Ieee/pairlist.scm 580 */
BgL_pairz00_1848 = BgL_lz00_946; }  else 
{ 
 obj_t BgL_auxz00_4922;
BgL_auxz00_4922 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23770L), BGl_string2613z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_946); 
FAILURE(BgL_auxz00_4922,BFALSE,BFALSE);} 
BgL_arg1361z00_954 = 
CAR(BgL_pairz00_1848); } 
{ /* Ieee/pairlist.scm 581 */
 obj_t BgL_arg1363z00_956;
{ /* Ieee/pairlist.scm 581 */
 obj_t BgL_pairz00_1849;
if(
PAIRP(BgL_lz00_946))
{ /* Ieee/pairlist.scm 581 */
BgL_pairz00_1849 = BgL_lz00_946; }  else 
{ 
 obj_t BgL_auxz00_4929;
BgL_auxz00_4929 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23800L), BGl_string2613z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_946); 
FAILURE(BgL_auxz00_4929,BFALSE,BFALSE);} 
BgL_arg1363z00_956 = 
CDR(BgL_pairz00_1849); } 
BgL_arg1362z00_955 = 
BGl_appendzd2listze70z35zz__r4_pairs_and_lists_6_3z00(BgL_arg1363z00_956); } 
{ /* Ieee/pairlist.scm 580 */
 obj_t BgL_auxz00_4944; obj_t BgL_auxz00_4935;
{ /* Ieee/pairlist.scm 581 */
 bool_t BgL_test3363z00_4945;
if(
PAIRP(BgL_arg1362z00_955))
{ /* Ieee/pairlist.scm 241 */
BgL_test3363z00_4945 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3363z00_4945 = 
NULLP(BgL_arg1362z00_955)
; } 
if(BgL_test3363z00_4945)
{ /* Ieee/pairlist.scm 581 */
BgL_auxz00_4944 = BgL_arg1362z00_955
; }  else 
{ 
 obj_t BgL_auxz00_4949;
BgL_auxz00_4949 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23802L), BGl_string2613z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1362z00_955); 
FAILURE(BgL_auxz00_4949,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 580 */
 bool_t BgL_test3361z00_4936;
if(
PAIRP(BgL_arg1361z00_954))
{ /* Ieee/pairlist.scm 241 */
BgL_test3361z00_4936 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3361z00_4936 = 
NULLP(BgL_arg1361z00_954)
; } 
if(BgL_test3361z00_4936)
{ /* Ieee/pairlist.scm 580 */
BgL_auxz00_4935 = BgL_arg1361z00_954
; }  else 
{ 
 obj_t BgL_auxz00_4940;
BgL_auxz00_4940 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(23771L), BGl_string2613z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1361z00_954); 
FAILURE(BgL_auxz00_4940,BFALSE,BFALSE);} } 
return 
BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4935, BgL_auxz00_4944);} } } } } } 

}



/* &append! */
obj_t BGl_z62appendz12z70zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2461, obj_t BgL_lz00_2462)
{
{ /* Ieee/pairlist.scm 570 */
return 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2462);} 

}



/* append-2! */
BGL_EXPORTED_DEF obj_t BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_58, obj_t BgL_yz00_59)
{
{ /* Ieee/pairlist.scm 587 */
if(
NULLP(BgL_xz00_58))
{ /* Ieee/pairlist.scm 588 */
return BgL_yz00_59;}  else 
{ /* Ieee/pairlist.scm 591 */
 obj_t BgL_arg1365z00_959;
BgL_arg1365z00_959 = 
CDR(BgL_xz00_58); 
{ 
 obj_t BgL_az00_1864; obj_t BgL_bz00_1865;
BgL_az00_1864 = BgL_xz00_58; 
BgL_bz00_1865 = BgL_arg1365z00_959; 
BgL_dozd2loopzd2zd21018zd2_1863:
if(
NULLP(BgL_bz00_1865))
{ /* Ieee/pairlist.scm 590 */
{ /* Ieee/pairlist.scm 593 */
 obj_t BgL_pairz00_1870;
if(
PAIRP(BgL_az00_1864))
{ /* Ieee/pairlist.scm 593 */
BgL_pairz00_1870 = BgL_az00_1864; }  else 
{ 
 obj_t BgL_auxz00_4963;
BgL_auxz00_4963 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(24199L), BGl_string2614z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_az00_1864); 
FAILURE(BgL_auxz00_4963,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_1870, BgL_yz00_59); } 
return BgL_xz00_58;}  else 
{ /* Ieee/pairlist.scm 591 */
 obj_t BgL_arg1368z00_1869;
{ /* Ieee/pairlist.scm 591 */
 obj_t BgL_pairz00_1871;
if(
PAIRP(BgL_bz00_1865))
{ /* Ieee/pairlist.scm 591 */
BgL_pairz00_1871 = BgL_bz00_1865; }  else 
{ 
 obj_t BgL_auxz00_4970;
BgL_auxz00_4970 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(24152L), BGl_string2614z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_bz00_1865); 
FAILURE(BgL_auxz00_4970,BFALSE,BFALSE);} 
BgL_arg1368z00_1869 = 
CDR(BgL_pairz00_1871); } 
{ 
 obj_t BgL_bz00_4976; obj_t BgL_az00_4975;
BgL_az00_4975 = BgL_bz00_1865; 
BgL_bz00_4976 = BgL_arg1368z00_1869; 
BgL_bz00_1865 = BgL_bz00_4976; 
BgL_az00_1864 = BgL_az00_4975; 
goto BgL_dozd2loopzd2zd21018zd2_1863;} } } } } 

}



/* &append-2! */
obj_t BGl_z62appendzd22z12za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2463, obj_t BgL_xz00_2464, obj_t BgL_yz00_2465)
{
{ /* Ieee/pairlist.scm 587 */
{ /* Ieee/pairlist.scm 588 */
 obj_t BgL_auxz00_4984; obj_t BgL_auxz00_4977;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_yz00_2465))
{ /* Ieee/pairlist.scm 588 */
BgL_auxz00_4984 = BgL_yz00_2465
; }  else 
{ 
 obj_t BgL_auxz00_4987;
BgL_auxz00_4987 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(24084L), BGl_string2615z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_2465); 
FAILURE(BgL_auxz00_4987,BFALSE,BFALSE);} 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2464))
{ /* Ieee/pairlist.scm 588 */
BgL_auxz00_4977 = BgL_xz00_2464
; }  else 
{ 
 obj_t BgL_auxz00_4980;
BgL_auxz00_4980 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(24084L), BGl_string2615z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_2464); 
FAILURE(BgL_auxz00_4980,BFALSE,BFALSE);} 
return 
BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_4977, BgL_auxz00_4984);} } 

}



/* length */
BGL_EXPORTED_DEF long bgl_list_length(obj_t BgL_listz00_60)
{
{ /* Ieee/pairlist.scm 599 */
{ 
 obj_t BgL_lz00_1884; long BgL_resz00_1885;
BgL_lz00_1884 = BgL_listz00_60; 
BgL_resz00_1885 = 0L; 
BgL_loopz00_1883:
if(
NULLP(BgL_lz00_1884))
{ /* Ieee/pairlist.scm 603 */
return BgL_resz00_1885;}  else 
{ 
 long BgL_resz00_5002; obj_t BgL_lz00_4994;
{ /* Ieee/pairlist.scm 606 */
 obj_t BgL_pairz00_1892;
if(
PAIRP(BgL_lz00_1884))
{ /* Ieee/pairlist.scm 606 */
BgL_pairz00_1892 = BgL_lz00_1884; }  else 
{ 
 obj_t BgL_auxz00_4997;
BgL_auxz00_4997 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(24572L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1884); 
FAILURE(BgL_auxz00_4997,BFALSE,BFALSE);} 
BgL_lz00_4994 = 
CDR(BgL_pairz00_1892); } 
BgL_resz00_5002 = 
(1L+BgL_resz00_1885); 
BgL_resz00_1885 = BgL_resz00_5002; 
BgL_lz00_1884 = BgL_lz00_4994; 
goto BgL_loopz00_1883;} } } 

}



/* &length */
obj_t BGl_z62lengthz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2466, obj_t BgL_listz00_2467)
{
{ /* Ieee/pairlist.scm 599 */
{ /* Ieee/pairlist.scm 600 */
 long BgL_tmpz00_5004;
{ /* Ieee/pairlist.scm 600 */
 obj_t BgL_auxz00_5005;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2467))
{ /* Ieee/pairlist.scm 600 */
BgL_auxz00_5005 = BgL_listz00_2467
; }  else 
{ 
 obj_t BgL_auxz00_5008;
BgL_auxz00_5008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(24469L), BGl_string2616z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2467); 
FAILURE(BgL_auxz00_5008,BFALSE,BFALSE);} 
BgL_tmpz00_5004 = 
bgl_list_length(BgL_auxz00_5005); } 
return 
BINT(BgL_tmpz00_5004);} } 

}



/* reverse */
BGL_EXPORTED_DEF obj_t bgl_reverse(obj_t BgL_lz00_61)
{
{ /* Ieee/pairlist.scm 611 */
{ 
 obj_t BgL_lz00_1907; obj_t BgL_accz00_1908;
BgL_lz00_1907 = BgL_lz00_61; 
BgL_accz00_1908 = BNIL; 
BgL_loopz00_1906:
if(
NULLP(BgL_lz00_1907))
{ /* Ieee/pairlist.scm 614 */
return BgL_accz00_1908;}  else 
{ /* Ieee/pairlist.scm 616 */
 obj_t BgL_arg1376z00_1914; obj_t BgL_arg1377z00_1915;
{ /* Ieee/pairlist.scm 616 */
 obj_t BgL_pairz00_1917;
if(
PAIRP(BgL_lz00_1907))
{ /* Ieee/pairlist.scm 616 */
BgL_pairz00_1917 = BgL_lz00_1907; }  else 
{ 
 obj_t BgL_auxz00_5018;
BgL_auxz00_5018 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(24917L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1907); 
FAILURE(BgL_auxz00_5018,BFALSE,BFALSE);} 
BgL_arg1376z00_1914 = 
CDR(BgL_pairz00_1917); } 
{ /* Ieee/pairlist.scm 616 */
 obj_t BgL_arg1378z00_1916;
{ /* Ieee/pairlist.scm 616 */
 obj_t BgL_pairz00_1918;
if(
PAIRP(BgL_lz00_1907))
{ /* Ieee/pairlist.scm 616 */
BgL_pairz00_1918 = BgL_lz00_1907; }  else 
{ 
 obj_t BgL_auxz00_5025;
BgL_auxz00_5025 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(24931L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1907); 
FAILURE(BgL_auxz00_5025,BFALSE,BFALSE);} 
BgL_arg1378z00_1916 = 
CAR(BgL_pairz00_1918); } 
BgL_arg1377z00_1915 = 
MAKE_YOUNG_PAIR(BgL_arg1378z00_1916, BgL_accz00_1908); } 
{ 
 obj_t BgL_accz00_5032; obj_t BgL_lz00_5031;
BgL_lz00_5031 = BgL_arg1376z00_1914; 
BgL_accz00_5032 = BgL_arg1377z00_1915; 
BgL_accz00_1908 = BgL_accz00_5032; 
BgL_lz00_1907 = BgL_lz00_5031; 
goto BgL_loopz00_1906;} } } } 

}



/* &reverse */
obj_t BGl_z62reversez62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2468, obj_t BgL_lz00_2469)
{
{ /* Ieee/pairlist.scm 611 */
{ /* Ieee/pairlist.scm 612 */
 obj_t BgL_auxz00_5033;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2469))
{ /* Ieee/pairlist.scm 612 */
BgL_auxz00_5033 = BgL_lz00_2469
; }  else 
{ 
 obj_t BgL_auxz00_5036;
BgL_auxz00_5036 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(24839L), BGl_string2617z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2469); 
FAILURE(BgL_auxz00_5036,BFALSE,BFALSE);} 
return 
bgl_reverse(BgL_auxz00_5033);} } 

}



/* ereverse */
BGL_EXPORTED_DEF obj_t BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_62)
{
{ /* Ieee/pairlist.scm 621 */
{ 
 obj_t BgL_lz00_986; obj_t BgL_accz00_987;
BgL_lz00_986 = BgL_lz00_62; 
BgL_accz00_987 = BNIL; 
BgL_zc3z04anonymousza31379ze3z87_988:
if(
NULLP(BgL_lz00_986))
{ /* Ieee/pairlist.scm 624 */
return BgL_accz00_987;}  else 
{ /* Ieee/pairlist.scm 626 */
 obj_t BgL_arg1381z00_990; obj_t BgL_arg1382z00_991;
{ /* Ieee/pairlist.scm 626 */
 obj_t BgL_pairz00_1919;
if(
PAIRP(BgL_lz00_986))
{ /* Ieee/pairlist.scm 626 */
BgL_pairz00_1919 = BgL_lz00_986; }  else 
{ 
 obj_t BgL_auxz00_5045;
BgL_auxz00_5045 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25268L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_986); 
FAILURE(BgL_auxz00_5045,BFALSE,BFALSE);} 
BgL_arg1381z00_990 = 
CDR(BgL_pairz00_1919); } 
if(
EPAIRP(BgL_lz00_986))
{ /* Ieee/pairlist.scm 628 */
 obj_t BgL_arg1384z00_993; obj_t BgL_arg1385z00_994;
{ /* Ieee/pairlist.scm 628 */
 obj_t BgL_pairz00_1920;
if(
PAIRP(BgL_lz00_986))
{ /* Ieee/pairlist.scm 628 */
BgL_pairz00_1920 = BgL_lz00_986; }  else 
{ 
 obj_t BgL_auxz00_5054;
BgL_auxz00_5054 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25306L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_986); 
FAILURE(BgL_auxz00_5054,BFALSE,BFALSE);} 
BgL_arg1384z00_993 = 
CAR(BgL_pairz00_1920); } 
{ /* Ieee/pairlist.scm 628 */
 obj_t BgL_objz00_1921;
if(
EPAIRP(BgL_lz00_986))
{ /* Ieee/pairlist.scm 628 */
BgL_objz00_1921 = BgL_lz00_986; }  else 
{ 
 obj_t BgL_auxz00_5061;
BgL_auxz00_5061 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25318L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2540z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_986); 
FAILURE(BgL_auxz00_5061,BFALSE,BFALSE);} 
BgL_arg1385z00_994 = 
CER(BgL_objz00_1921); } 
{ /* Ieee/pairlist.scm 628 */
 obj_t BgL_res1889z00_1922;
BgL_res1889z00_1922 = 
MAKE_YOUNG_EPAIR(BgL_arg1384z00_993, BgL_accz00_987, BgL_arg1385z00_994); 
BgL_arg1382z00_991 = BgL_res1889z00_1922; } }  else 
{ /* Ieee/pairlist.scm 629 */
 obj_t BgL_arg1386z00_995;
{ /* Ieee/pairlist.scm 629 */
 obj_t BgL_pairz00_1923;
if(
PAIRP(BgL_lz00_986))
{ /* Ieee/pairlist.scm 629 */
BgL_pairz00_1923 = BgL_lz00_986; }  else 
{ 
 obj_t BgL_auxz00_5069;
BgL_auxz00_5069 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25339L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_986); 
FAILURE(BgL_auxz00_5069,BFALSE,BFALSE);} 
BgL_arg1386z00_995 = 
CAR(BgL_pairz00_1923); } 
BgL_arg1382z00_991 = 
MAKE_YOUNG_PAIR(BgL_arg1386z00_995, BgL_accz00_987); } 
{ 
 obj_t BgL_accz00_5076; obj_t BgL_lz00_5075;
BgL_lz00_5075 = BgL_arg1381z00_990; 
BgL_accz00_5076 = BgL_arg1382z00_991; 
BgL_accz00_987 = BgL_accz00_5076; 
BgL_lz00_986 = BgL_lz00_5075; 
goto BgL_zc3z04anonymousza31379ze3z87_988;} } } } 

}



/* &ereverse */
obj_t BGl_z62ereversez62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2470, obj_t BgL_lz00_2471)
{
{ /* Ieee/pairlist.scm 621 */
{ /* Ieee/pairlist.scm 624 */
 obj_t BgL_auxz00_5077;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2471))
{ /* Ieee/pairlist.scm 624 */
BgL_auxz00_5077 = BgL_lz00_2471
; }  else 
{ 
 obj_t BgL_auxz00_5080;
BgL_auxz00_5080 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25233L), BGl_string2618z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2471); 
FAILURE(BgL_auxz00_5080,BFALSE,BFALSE);} 
return 
BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_5077);} } 

}



/* take */
BGL_EXPORTED_DEF obj_t BGl_takez00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_listz00_63, long BgL_kz00_64)
{
{ /* Ieee/pairlist.scm 634 */
{ 
 obj_t BgL_listz00_1945; long BgL_kz00_1946; obj_t BgL_resz00_1947;
BgL_listz00_1945 = BgL_listz00_63; 
BgL_kz00_1946 = BgL_kz00_64; 
BgL_resz00_1947 = BNIL; 
BgL_loopz00_1944:
if(
(BgL_kz00_1946==0L))
{ /* Ieee/pairlist.scm 638 */
return 
bgl_reverse_bang(BgL_resz00_1947);}  else 
{ /* Ieee/pairlist.scm 640 */
 obj_t BgL_arg1389z00_1954; long BgL_arg1390z00_1955; obj_t BgL_arg1391z00_1956;
{ /* Ieee/pairlist.scm 640 */
 obj_t BgL_pairz00_1960;
if(
PAIRP(BgL_listz00_1945))
{ /* Ieee/pairlist.scm 640 */
BgL_pairz00_1960 = BgL_listz00_1945; }  else 
{ 
 obj_t BgL_auxz00_5090;
BgL_auxz00_5090 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25708L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1945); 
FAILURE(BgL_auxz00_5090,BFALSE,BFALSE);} 
BgL_arg1389z00_1954 = 
CDR(BgL_pairz00_1960); } 
BgL_arg1390z00_1955 = 
(BgL_kz00_1946-1L); 
{ /* Ieee/pairlist.scm 640 */
 obj_t BgL_arg1392z00_1957;
{ /* Ieee/pairlist.scm 640 */
 obj_t BgL_pairz00_1962;
if(
PAIRP(BgL_listz00_1945))
{ /* Ieee/pairlist.scm 640 */
BgL_pairz00_1962 = BgL_listz00_1945; }  else 
{ 
 obj_t BgL_auxz00_5098;
BgL_auxz00_5098 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25735L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1945); 
FAILURE(BgL_auxz00_5098,BFALSE,BFALSE);} 
BgL_arg1392z00_1957 = 
CAR(BgL_pairz00_1962); } 
BgL_arg1391z00_1956 = 
MAKE_YOUNG_PAIR(BgL_arg1392z00_1957, BgL_resz00_1947); } 
{ 
 obj_t BgL_resz00_5106; long BgL_kz00_5105; obj_t BgL_listz00_5104;
BgL_listz00_5104 = BgL_arg1389z00_1954; 
BgL_kz00_5105 = BgL_arg1390z00_1955; 
BgL_resz00_5106 = BgL_arg1391z00_1956; 
BgL_resz00_1947 = BgL_resz00_5106; 
BgL_kz00_1946 = BgL_kz00_5105; 
BgL_listz00_1945 = BgL_listz00_5104; 
goto BgL_loopz00_1944;} } } } 

}



/* &take */
obj_t BGl_z62takez62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2472, obj_t BgL_listz00_2473, obj_t BgL_kz00_2474)
{
{ /* Ieee/pairlist.scm 634 */
{ /* Ieee/pairlist.scm 635 */
 long BgL_auxz00_5114; obj_t BgL_auxz00_5107;
{ /* Ieee/pairlist.scm 635 */
 obj_t BgL_tmpz00_5115;
if(
INTEGERP(BgL_kz00_2474))
{ /* Ieee/pairlist.scm 635 */
BgL_tmpz00_5115 = BgL_kz00_2474
; }  else 
{ 
 obj_t BgL_auxz00_5118;
BgL_auxz00_5118 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25600L), BGl_string2619z00zz__r4_pairs_and_lists_6_3z00, BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_2474); 
FAILURE(BgL_auxz00_5118,BFALSE,BFALSE);} 
BgL_auxz00_5114 = 
(long)CINT(BgL_tmpz00_5115); } 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2473))
{ /* Ieee/pairlist.scm 635 */
BgL_auxz00_5107 = BgL_listz00_2473
; }  else 
{ 
 obj_t BgL_auxz00_5110;
BgL_auxz00_5110 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25600L), BGl_string2619z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2473); 
FAILURE(BgL_auxz00_5110,BFALSE,BFALSE);} 
return 
BGl_takez00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_5107, BgL_auxz00_5114);} } 

}



/* drop */
BGL_EXPORTED_DEF obj_t BGl_dropz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_listz00_65, long BgL_kz00_66)
{
{ /* Ieee/pairlist.scm 645 */
BGl_dropz00zz__r4_pairs_and_lists_6_3z00:
if(
(BgL_kz00_66==0L))
{ /* Ieee/pairlist.scm 646 */
return BgL_listz00_65;}  else 
{ /* Ieee/pairlist.scm 648 */
 obj_t BgL_listz00_1970; long BgL_kz00_1971;
{ /* Ieee/pairlist.scm 648 */
 obj_t BgL_pairz00_1968;
if(
PAIRP(BgL_listz00_65))
{ /* Ieee/pairlist.scm 648 */
BgL_pairz00_1968 = BgL_listz00_65; }  else 
{ 
 obj_t BgL_auxz00_5128;
BgL_auxz00_5128 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26044L), BGl_string2621z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_65); 
FAILURE(BgL_auxz00_5128,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2216z00_2884;
BgL_aux2216z00_2884 = 
CDR(BgL_pairz00_1968); 
{ /* Ieee/pairlist.scm 267 */
 bool_t BgL_test3392z00_5133;
if(
PAIRP(BgL_aux2216z00_2884))
{ /* Ieee/pairlist.scm 241 */
BgL_test3392z00_5133 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3392z00_5133 = 
NULLP(BgL_aux2216z00_2884)
; } 
if(BgL_test3392z00_5133)
{ /* Ieee/pairlist.scm 267 */
BgL_listz00_1970 = BgL_aux2216z00_2884; }  else 
{ 
 obj_t BgL_auxz00_5137;
BgL_auxz00_5137 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2621z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2216z00_2884); 
FAILURE(BgL_auxz00_5137,BFALSE,BFALSE);} } } } 
BgL_kz00_1971 = 
(BgL_kz00_66-1L); 
if(
(BgL_kz00_1971==0L))
{ /* Ieee/pairlist.scm 646 */
return BgL_listz00_1970;}  else 
{ 
 long BgL_kz00_5160; obj_t BgL_listz00_5144;
{ /* Ieee/pairlist.scm 648 */
 obj_t BgL_pairz00_1977;
if(
PAIRP(BgL_listz00_1970))
{ /* Ieee/pairlist.scm 648 */
BgL_pairz00_1977 = BgL_listz00_1970; }  else 
{ 
 obj_t BgL_auxz00_5147;
BgL_auxz00_5147 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26044L), BGl_string2621z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1970); 
FAILURE(BgL_auxz00_5147,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2220z00_2888;
BgL_aux2220z00_2888 = 
CDR(BgL_pairz00_1977); 
{ /* Ieee/pairlist.scm 267 */
 bool_t BgL_test3396z00_5152;
if(
PAIRP(BgL_aux2220z00_2888))
{ /* Ieee/pairlist.scm 241 */
BgL_test3396z00_5152 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3396z00_5152 = 
NULLP(BgL_aux2220z00_2888)
; } 
if(BgL_test3396z00_5152)
{ /* Ieee/pairlist.scm 267 */
BgL_listz00_5144 = BgL_aux2220z00_2888; }  else 
{ 
 obj_t BgL_auxz00_5156;
BgL_auxz00_5156 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2621z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2220z00_2888); 
FAILURE(BgL_auxz00_5156,BFALSE,BFALSE);} } } } 
BgL_kz00_5160 = 
(BgL_kz00_1971-1L); 
BgL_kz00_66 = BgL_kz00_5160; 
BgL_listz00_65 = BgL_listz00_5144; 
goto BGl_dropz00zz__r4_pairs_and_lists_6_3z00;} } } 

}



/* &drop */
obj_t BGl_z62dropz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2475, obj_t BgL_listz00_2476, obj_t BgL_kz00_2477)
{
{ /* Ieee/pairlist.scm 645 */
{ /* Ieee/pairlist.scm 646 */
 long BgL_auxz00_5169; obj_t BgL_auxz00_5162;
{ /* Ieee/pairlist.scm 646 */
 obj_t BgL_tmpz00_5170;
if(
INTEGERP(BgL_kz00_2477))
{ /* Ieee/pairlist.scm 646 */
BgL_tmpz00_5170 = BgL_kz00_2477
; }  else 
{ 
 obj_t BgL_auxz00_5173;
BgL_auxz00_5173 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25998L), BGl_string2622z00zz__r4_pairs_and_lists_6_3z00, BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_2477); 
FAILURE(BgL_auxz00_5173,BFALSE,BFALSE);} 
BgL_auxz00_5169 = 
(long)CINT(BgL_tmpz00_5170); } 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2476))
{ /* Ieee/pairlist.scm 646 */
BgL_auxz00_5162 = BgL_listz00_2476
; }  else 
{ 
 obj_t BgL_auxz00_5165;
BgL_auxz00_5165 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(25998L), BGl_string2622z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2476); 
FAILURE(BgL_auxz00_5165,BFALSE,BFALSE);} 
return 
BGl_dropz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_5162, BgL_auxz00_5169);} } 

}



/* list-tail */
BGL_EXPORTED_DEF obj_t BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_listz00_67, long BgL_kz00_68)
{
{ /* Ieee/pairlist.scm 653 */
{ 
 obj_t BgL_listz00_1980; long BgL_kz00_1981;
BgL_listz00_1980 = BgL_listz00_67; 
BgL_kz00_1981 = BgL_kz00_68; 
BgL_dropz00_1979:
if(
(BgL_kz00_1981==0L))
{ /* Ieee/pairlist.scm 646 */
return BgL_listz00_1980;}  else 
{ 
 long BgL_kz00_5197; obj_t BgL_listz00_5181;
{ /* Ieee/pairlist.scm 648 */
 obj_t BgL_pairz00_1990;
if(
PAIRP(BgL_listz00_1980))
{ /* Ieee/pairlist.scm 648 */
BgL_pairz00_1990 = BgL_listz00_1980; }  else 
{ 
 obj_t BgL_auxz00_5184;
BgL_auxz00_5184 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26044L), BGl_string2621z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_1980); 
FAILURE(BgL_auxz00_5184,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2227z00_2895;
BgL_aux2227z00_2895 = 
CDR(BgL_pairz00_1990); 
{ /* Ieee/pairlist.scm 267 */
 bool_t BgL_test3402z00_5189;
if(
PAIRP(BgL_aux2227z00_2895))
{ /* Ieee/pairlist.scm 241 */
BgL_test3402z00_5189 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3402z00_5189 = 
NULLP(BgL_aux2227z00_2895)
; } 
if(BgL_test3402z00_5189)
{ /* Ieee/pairlist.scm 267 */
BgL_listz00_5181 = BgL_aux2227z00_2895; }  else 
{ 
 obj_t BgL_auxz00_5193;
BgL_auxz00_5193 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2621z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2227z00_2895); 
FAILURE(BgL_auxz00_5193,BFALSE,BFALSE);} } } } 
BgL_kz00_5197 = 
(BgL_kz00_1981-1L); 
BgL_kz00_1981 = BgL_kz00_5197; 
BgL_listz00_1980 = BgL_listz00_5181; 
goto BgL_dropz00_1979;} } } 

}



/* &list-tail */
obj_t BGl_z62listzd2tailzb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2478, obj_t BgL_listz00_2479, obj_t BgL_kz00_2480)
{
{ /* Ieee/pairlist.scm 653 */
{ /* Ieee/pairlist.scm 654 */
 long BgL_auxz00_5206; obj_t BgL_auxz00_5199;
{ /* Ieee/pairlist.scm 654 */
 obj_t BgL_tmpz00_5207;
if(
INTEGERP(BgL_kz00_2480))
{ /* Ieee/pairlist.scm 654 */
BgL_tmpz00_5207 = BgL_kz00_2480
; }  else 
{ 
 obj_t BgL_auxz00_5210;
BgL_auxz00_5210 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26316L), BGl_string2623z00zz__r4_pairs_and_lists_6_3z00, BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_2480); 
FAILURE(BgL_auxz00_5210,BFALSE,BFALSE);} 
BgL_auxz00_5206 = 
(long)CINT(BgL_tmpz00_5207); } 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2479))
{ /* Ieee/pairlist.scm 654 */
BgL_auxz00_5199 = BgL_listz00_2479
; }  else 
{ 
 obj_t BgL_auxz00_5202;
BgL_auxz00_5202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26316L), BGl_string2623z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2479); 
FAILURE(BgL_auxz00_5202,BFALSE,BFALSE);} 
return 
BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_5199, BgL_auxz00_5206);} } 

}



/* list-ref */
BGL_EXPORTED_DEF obj_t bgl_list_ref(obj_t BgL_listz00_69, long BgL_kz00_70)
{
{ /* Ieee/pairlist.scm 659 */
bgl_list_ref:
if(
(BgL_kz00_70==0L))
{ /* Ieee/pairlist.scm 661 */
 obj_t BgL_pairz00_1997;
if(
PAIRP(BgL_listz00_69))
{ /* Ieee/pairlist.scm 661 */
BgL_pairz00_1997 = BgL_listz00_69; }  else 
{ 
 obj_t BgL_auxz00_5220;
BgL_auxz00_5220 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26611L), BGl_string2624z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_69); 
FAILURE(BgL_auxz00_5220,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_1997);}  else 
{ /* Ieee/pairlist.scm 662 */
 obj_t BgL_listz00_2000; long BgL_kz00_2001;
{ /* Ieee/pairlist.scm 662 */
 obj_t BgL_pairz00_1998;
if(
PAIRP(BgL_listz00_69))
{ /* Ieee/pairlist.scm 662 */
BgL_pairz00_1998 = BgL_listz00_69; }  else 
{ 
 obj_t BgL_auxz00_5227;
BgL_auxz00_5227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26639L), BGl_string2624z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_69); 
FAILURE(BgL_auxz00_5227,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2236z00_2904;
BgL_aux2236z00_2904 = 
CDR(BgL_pairz00_1998); 
{ /* Ieee/pairlist.scm 267 */
 bool_t BgL_test3409z00_5232;
if(
PAIRP(BgL_aux2236z00_2904))
{ /* Ieee/pairlist.scm 241 */
BgL_test3409z00_5232 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3409z00_5232 = 
NULLP(BgL_aux2236z00_2904)
; } 
if(BgL_test3409z00_5232)
{ /* Ieee/pairlist.scm 267 */
BgL_listz00_2000 = BgL_aux2236z00_2904; }  else 
{ 
 obj_t BgL_auxz00_5236;
BgL_auxz00_5236 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2624z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2236z00_2904); 
FAILURE(BgL_auxz00_5236,BFALSE,BFALSE);} } } } 
BgL_kz00_2001 = 
(BgL_kz00_70-1L); 
if(
(BgL_kz00_2001==0L))
{ /* Ieee/pairlist.scm 661 */
 obj_t BgL_pairz00_2007;
if(
PAIRP(BgL_listz00_2000))
{ /* Ieee/pairlist.scm 661 */
BgL_pairz00_2007 = BgL_listz00_2000; }  else 
{ 
 obj_t BgL_auxz00_5245;
BgL_auxz00_5245 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26611L), BGl_string2624z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2000); 
FAILURE(BgL_auxz00_5245,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_2007);}  else 
{ 
 long BgL_kz00_5266; obj_t BgL_listz00_5250;
{ /* Ieee/pairlist.scm 662 */
 obj_t BgL_pairz00_2008;
if(
PAIRP(BgL_listz00_2000))
{ /* Ieee/pairlist.scm 662 */
BgL_pairz00_2008 = BgL_listz00_2000; }  else 
{ 
 obj_t BgL_auxz00_5253;
BgL_auxz00_5253 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26639L), BGl_string2624z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2000); 
FAILURE(BgL_auxz00_5253,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2242z00_2910;
BgL_aux2242z00_2910 = 
CDR(BgL_pairz00_2008); 
{ /* Ieee/pairlist.scm 267 */
 bool_t BgL_test3414z00_5258;
if(
PAIRP(BgL_aux2242z00_2910))
{ /* Ieee/pairlist.scm 241 */
BgL_test3414z00_5258 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3414z00_5258 = 
NULLP(BgL_aux2242z00_2910)
; } 
if(BgL_test3414z00_5258)
{ /* Ieee/pairlist.scm 267 */
BgL_listz00_5250 = BgL_aux2242z00_2910; }  else 
{ 
 obj_t BgL_auxz00_5262;
BgL_auxz00_5262 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2624z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2242z00_2910); 
FAILURE(BgL_auxz00_5262,BFALSE,BFALSE);} } } } 
BgL_kz00_5266 = 
(BgL_kz00_2001-1L); 
BgL_kz00_70 = BgL_kz00_5266; 
BgL_listz00_69 = BgL_listz00_5250; 
goto bgl_list_ref;} } } 

}



/* &list-ref */
obj_t BGl_z62listzd2refzb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2481, obj_t BgL_listz00_2482, obj_t BgL_kz00_2483)
{
{ /* Ieee/pairlist.scm 659 */
{ /* Ieee/pairlist.scm 660 */
 long BgL_auxz00_5275; obj_t BgL_auxz00_5268;
{ /* Ieee/pairlist.scm 660 */
 obj_t BgL_tmpz00_5276;
if(
INTEGERP(BgL_kz00_2483))
{ /* Ieee/pairlist.scm 660 */
BgL_tmpz00_5276 = BgL_kz00_2483
; }  else 
{ 
 obj_t BgL_auxz00_5279;
BgL_auxz00_5279 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26583L), BGl_string2625z00zz__r4_pairs_and_lists_6_3z00, BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_2483); 
FAILURE(BgL_auxz00_5279,BFALSE,BFALSE);} 
BgL_auxz00_5275 = 
(long)CINT(BgL_tmpz00_5276); } 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2482))
{ /* Ieee/pairlist.scm 660 */
BgL_auxz00_5268 = BgL_listz00_2482
; }  else 
{ 
 obj_t BgL_auxz00_5271;
BgL_auxz00_5271 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26583L), BGl_string2625z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2482); 
FAILURE(BgL_auxz00_5271,BFALSE,BFALSE);} 
return 
bgl_list_ref(BgL_auxz00_5268, BgL_auxz00_5275);} } 

}



/* list-set! */
BGL_EXPORTED_DEF obj_t BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_listz00_71, long BgL_kz00_72, obj_t BgL_valz00_73)
{
{ /* Ieee/pairlist.scm 667 */
BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00:
if(
(BgL_kz00_72==0L))
{ /* Ieee/pairlist.scm 669 */
 obj_t BgL_pairz00_2015;
if(
PAIRP(BgL_listz00_71))
{ /* Ieee/pairlist.scm 669 */
BgL_pairz00_2015 = BgL_listz00_71; }  else 
{ 
 obj_t BgL_auxz00_5289;
BgL_auxz00_5289 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26948L), BGl_string2626z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_71); 
FAILURE(BgL_auxz00_5289,BFALSE,BFALSE);} 
return 
SET_CAR(BgL_pairz00_2015, BgL_valz00_73);}  else 
{ /* Ieee/pairlist.scm 670 */
 obj_t BgL_arg1401z00_2011; long BgL_arg1402z00_2012;
{ /* Ieee/pairlist.scm 670 */
 obj_t BgL_pairz00_2016;
if(
PAIRP(BgL_listz00_71))
{ /* Ieee/pairlist.scm 670 */
BgL_pairz00_2016 = BgL_listz00_71; }  else 
{ 
 obj_t BgL_auxz00_5296;
BgL_auxz00_5296 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26981L), BGl_string2626z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_71); 
FAILURE(BgL_auxz00_5296,BFALSE,BFALSE);} 
BgL_arg1401z00_2011 = 
CDR(BgL_pairz00_2016); } 
BgL_arg1402z00_2012 = 
(BgL_kz00_72-1L); 
{ /* Ieee/pairlist.scm 670 */
 obj_t BgL_listz00_2018;
{ /* Ieee/pairlist.scm 670 */
 bool_t BgL_test3421z00_5302;
if(
PAIRP(BgL_arg1401z00_2011))
{ /* Ieee/pairlist.scm 241 */
BgL_test3421z00_5302 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3421z00_5302 = 
NULLP(BgL_arg1401z00_2011)
; } 
if(BgL_test3421z00_5302)
{ /* Ieee/pairlist.scm 670 */
BgL_listz00_2018 = BgL_arg1401z00_2011; }  else 
{ 
 obj_t BgL_auxz00_5306;
BgL_auxz00_5306 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26985L), BGl_string2626z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1401z00_2011); 
FAILURE(BgL_auxz00_5306,BFALSE,BFALSE);} } 
if(
(BgL_arg1402z00_2012==0L))
{ /* Ieee/pairlist.scm 669 */
 obj_t BgL_pairz00_2025;
if(
PAIRP(BgL_listz00_2018))
{ /* Ieee/pairlist.scm 669 */
BgL_pairz00_2025 = BgL_listz00_2018; }  else 
{ 
 obj_t BgL_auxz00_5314;
BgL_auxz00_5314 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26948L), BGl_string2626z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2018); 
FAILURE(BgL_auxz00_5314,BFALSE,BFALSE);} 
return 
SET_CAR(BgL_pairz00_2025, BgL_valz00_73);}  else 
{ /* Ieee/pairlist.scm 670 */
 obj_t BgL_arg1401z00_2021; long BgL_arg1402z00_2022;
{ /* Ieee/pairlist.scm 670 */
 obj_t BgL_pairz00_2026;
if(
PAIRP(BgL_listz00_2018))
{ /* Ieee/pairlist.scm 670 */
BgL_pairz00_2026 = BgL_listz00_2018; }  else 
{ 
 obj_t BgL_auxz00_5321;
BgL_auxz00_5321 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26981L), BGl_string2626z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2018); 
FAILURE(BgL_auxz00_5321,BFALSE,BFALSE);} 
BgL_arg1401z00_2021 = 
CDR(BgL_pairz00_2026); } 
BgL_arg1402z00_2022 = 
(BgL_arg1402z00_2012-1L); 
{ 
 long BgL_kz00_5336; obj_t BgL_listz00_5327;
{ /* Ieee/pairlist.scm 670 */
 bool_t BgL_test3426z00_5328;
if(
PAIRP(BgL_arg1401z00_2021))
{ /* Ieee/pairlist.scm 241 */
BgL_test3426z00_5328 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3426z00_5328 = 
NULLP(BgL_arg1401z00_2021)
; } 
if(BgL_test3426z00_5328)
{ /* Ieee/pairlist.scm 670 */
BgL_listz00_5327 = BgL_arg1401z00_2021; }  else 
{ 
 obj_t BgL_auxz00_5332;
BgL_auxz00_5332 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26985L), BGl_string2626z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1401z00_2021); 
FAILURE(BgL_auxz00_5332,BFALSE,BFALSE);} } 
BgL_kz00_5336 = BgL_arg1402z00_2022; 
BgL_kz00_72 = BgL_kz00_5336; 
BgL_listz00_71 = BgL_listz00_5327; 
goto BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00;} } } } } 

}



/* &list-set! */
obj_t BGl_z62listzd2setz12za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2484, obj_t BgL_listz00_2485, obj_t BgL_kz00_2486, obj_t BgL_valz00_2487)
{
{ /* Ieee/pairlist.scm 667 */
{ /* Ieee/pairlist.scm 668 */
 long BgL_auxz00_5344; obj_t BgL_auxz00_5337;
{ /* Ieee/pairlist.scm 668 */
 obj_t BgL_tmpz00_5345;
if(
INTEGERP(BgL_kz00_2486))
{ /* Ieee/pairlist.scm 668 */
BgL_tmpz00_5345 = BgL_kz00_2486
; }  else 
{ 
 obj_t BgL_auxz00_5348;
BgL_auxz00_5348 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26915L), BGl_string2627z00zz__r4_pairs_and_lists_6_3z00, BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_kz00_2486); 
FAILURE(BgL_auxz00_5348,BFALSE,BFALSE);} 
BgL_auxz00_5344 = 
(long)CINT(BgL_tmpz00_5345); } 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2485))
{ /* Ieee/pairlist.scm 668 */
BgL_auxz00_5337 = BgL_listz00_2485
; }  else 
{ 
 obj_t BgL_auxz00_5340;
BgL_auxz00_5340 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(26915L), BGl_string2627z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2485); 
FAILURE(BgL_auxz00_5340,BFALSE,BFALSE);} 
return 
BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_5337, BgL_auxz00_5344, BgL_valz00_2487);} } 

}



/* last-pair */
BGL_EXPORTED_DEF obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_74)
{
{ /* Ieee/pairlist.scm 675 */
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00:
{ /* Ieee/pairlist.scm 676 */
 bool_t BgL_test3430z00_5354;
{ /* Ieee/pairlist.scm 229 */
 obj_t BgL_tmpz00_5355;
BgL_tmpz00_5355 = 
CDR(BgL_xz00_74); 
BgL_test3430z00_5354 = 
PAIRP(BgL_tmpz00_5355); } 
if(BgL_test3430z00_5354)
{ /* Ieee/pairlist.scm 677 */
 obj_t BgL_xz00_2033;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2262z00_2930;
BgL_aux2262z00_2930 = 
CDR(BgL_xz00_74); 
if(
PAIRP(BgL_aux2262z00_2930))
{ /* Ieee/pairlist.scm 267 */
BgL_xz00_2033 = BgL_aux2262z00_2930; }  else 
{ 
 obj_t BgL_auxz00_5361;
BgL_auxz00_5361 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2628z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2262z00_2930); 
FAILURE(BgL_auxz00_5361,BFALSE,BFALSE);} } 
{ /* Ieee/pairlist.scm 676 */
 bool_t BgL_test3432z00_5365;
{ /* Ieee/pairlist.scm 229 */
 obj_t BgL_tmpz00_5366;
BgL_tmpz00_5366 = 
CDR(BgL_xz00_2033); 
BgL_test3432z00_5365 = 
PAIRP(BgL_tmpz00_5366); } 
if(BgL_test3432z00_5365)
{ 
 obj_t BgL_xz00_5369;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2264z00_2932;
BgL_aux2264z00_2932 = 
CDR(BgL_xz00_2033); 
if(
PAIRP(BgL_aux2264z00_2932))
{ /* Ieee/pairlist.scm 267 */
BgL_xz00_5369 = BgL_aux2264z00_2932; }  else 
{ 
 obj_t BgL_auxz00_5373;
BgL_auxz00_5373 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2628z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2264z00_2932); 
FAILURE(BgL_auxz00_5373,BFALSE,BFALSE);} } 
BgL_xz00_74 = BgL_xz00_5369; 
goto BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00;}  else 
{ /* Ieee/pairlist.scm 676 */
return BgL_xz00_2033;} } }  else 
{ /* Ieee/pairlist.scm 676 */
return BgL_xz00_74;} } } 

}



/* &last-pair */
obj_t BGl_z62lastzd2pairzb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2488, obj_t BgL_xz00_2489)
{
{ /* Ieee/pairlist.scm 675 */
{ /* Ieee/pairlist.scm 676 */
 obj_t BgL_auxz00_5377;
if(
PAIRP(BgL_xz00_2489))
{ /* Ieee/pairlist.scm 676 */
BgL_auxz00_5377 = BgL_xz00_2489
; }  else 
{ 
 obj_t BgL_auxz00_5380;
BgL_auxz00_5380 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(27252L), BGl_string2629z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_2489); 
FAILURE(BgL_auxz00_5380,BFALSE,BFALSE);} 
return 
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_5377);} } 

}



/* memq */
BGL_EXPORTED_DEF obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_75, obj_t BgL_listz00_76)
{
{ /* Ieee/pairlist.scm 683 */
{ 
 obj_t BgL_listz00_1023;
BgL_listz00_1023 = BgL_listz00_76; 
BgL_zc3z04anonymousza31408ze3z87_1024:
if(
PAIRP(BgL_listz00_1023))
{ /* Ieee/pairlist.scm 685 */
if(
(
CAR(BgL_listz00_1023)==BgL_objz00_75))
{ /* Ieee/pairlist.scm 686 */
return BgL_listz00_1023;}  else 
{ 
 obj_t BgL_listz00_5390;
BgL_listz00_5390 = 
CDR(BgL_listz00_1023); 
BgL_listz00_1023 = BgL_listz00_5390; 
goto BgL_zc3z04anonymousza31408ze3z87_1024;} }  else 
{ /* Ieee/pairlist.scm 685 */
return BFALSE;} } } 

}



/* &memq */
obj_t BGl_z62memqz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2490, obj_t BgL_objz00_2491, obj_t BgL_listz00_2492)
{
{ /* Ieee/pairlist.scm 683 */
{ /* Ieee/pairlist.scm 685 */
 obj_t BgL_auxz00_5392;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2492))
{ /* Ieee/pairlist.scm 685 */
BgL_auxz00_5392 = BgL_listz00_2492
; }  else 
{ 
 obj_t BgL_auxz00_5395;
BgL_auxz00_5395 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(27590L), BGl_string2630z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2492); 
FAILURE(BgL_auxz00_5395,BFALSE,BFALSE);} 
return 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2491, BgL_auxz00_5392);} } 

}



/* memv */
BGL_EXPORTED_DEF obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_77, obj_t BgL_listz00_78)
{
{ /* Ieee/pairlist.scm 694 */
{ 
 obj_t BgL_listz00_1032;
BgL_listz00_1032 = BgL_listz00_78; 
BgL_zc3z04anonymousza31414ze3z87_1033:
if(
PAIRP(BgL_listz00_1032))
{ /* Ieee/pairlist.scm 696 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(
CAR(BgL_listz00_1032), BgL_objz00_77))
{ /* Ieee/pairlist.scm 697 */
return BgL_listz00_1032;}  else 
{ 
 obj_t BgL_listz00_5405;
BgL_listz00_5405 = 
CDR(BgL_listz00_1032); 
BgL_listz00_1032 = BgL_listz00_5405; 
goto BgL_zc3z04anonymousza31414ze3z87_1033;} }  else 
{ /* Ieee/pairlist.scm 696 */
return BFALSE;} } } 

}



/* &memv */
obj_t BGl_z62memvz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2493, obj_t BgL_objz00_2494, obj_t BgL_listz00_2495)
{
{ /* Ieee/pairlist.scm 694 */
{ /* Ieee/pairlist.scm 696 */
 obj_t BgL_auxz00_5407;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2495))
{ /* Ieee/pairlist.scm 696 */
BgL_auxz00_5407 = BgL_listz00_2495
; }  else 
{ 
 obj_t BgL_auxz00_5410;
BgL_auxz00_5410 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(27962L), BGl_string2631z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2495); 
FAILURE(BgL_auxz00_5410,BFALSE,BFALSE);} 
return 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2494, BgL_auxz00_5407);} } 

}



/* member */
BGL_EXPORTED_DEF obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_79, obj_t BgL_listz00_80)
{
{ /* Ieee/pairlist.scm 705 */
{ 
 obj_t BgL_listz00_1041;
BgL_listz00_1041 = BgL_listz00_80; 
BgL_zc3z04anonymousza31421ze3z87_1042:
if(
PAIRP(BgL_listz00_1041))
{ /* Ieee/pairlist.scm 708 */
if(
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_objz00_79, 
CAR(BgL_listz00_1041)))
{ /* Ieee/pairlist.scm 709 */
return BgL_listz00_1041;}  else 
{ 
 obj_t BgL_listz00_5420;
BgL_listz00_5420 = 
CDR(BgL_listz00_1041); 
BgL_listz00_1041 = BgL_listz00_5420; 
goto BgL_zc3z04anonymousza31421ze3z87_1042;} }  else 
{ /* Ieee/pairlist.scm 708 */
return BFALSE;} } } 

}



/* &member */
obj_t BGl_z62memberz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2496, obj_t BgL_objz00_2497, obj_t BgL_listz00_2498)
{
{ /* Ieee/pairlist.scm 705 */
{ /* Ieee/pairlist.scm 708 */
 obj_t BgL_auxz00_5422;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2498))
{ /* Ieee/pairlist.scm 708 */
BgL_auxz00_5422 = BgL_listz00_2498
; }  else 
{ 
 obj_t BgL_auxz00_5425;
BgL_auxz00_5425 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(28345L), BGl_string2632z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2498); 
FAILURE(BgL_auxz00_5425,BFALSE,BFALSE);} 
return 
BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2497, BgL_auxz00_5422);} } 

}



/* assq */
BGL_EXPORTED_DEF obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_81, obj_t BgL_alistz00_82)
{
{ /* Ieee/pairlist.scm 715 */
{ 
 obj_t BgL_alistz00_1050;
BgL_alistz00_1050 = BgL_alistz00_82; 
BgL_zc3z04anonymousza31427ze3z87_1051:
if(
PAIRP(BgL_alistz00_1050))
{ /* Ieee/pairlist.scm 718 */
 bool_t BgL_test3445z00_5432;
{ /* Ieee/pairlist.scm 718 */
 obj_t BgL_tmpz00_5433;
{ /* Ieee/pairlist.scm 718 */
 obj_t BgL_pairz00_2046;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2274z00_2942;
BgL_aux2274z00_2942 = 
CAR(BgL_alistz00_1050); 
if(
PAIRP(BgL_aux2274z00_2942))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2046 = BgL_aux2274z00_2942; }  else 
{ 
 obj_t BgL_auxz00_5437;
BgL_auxz00_5437 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2274z00_2942); 
FAILURE(BgL_auxz00_5437,BFALSE,BFALSE);} } 
BgL_tmpz00_5433 = 
CAR(BgL_pairz00_2046); } 
BgL_test3445z00_5432 = 
(BgL_tmpz00_5433==BgL_objz00_81); } 
if(BgL_test3445z00_5432)
{ /* Ieee/pairlist.scm 718 */
return 
CAR(BgL_alistz00_1050);}  else 
{ 
 obj_t BgL_alistz00_5444;
BgL_alistz00_5444 = 
CDR(BgL_alistz00_1050); 
BgL_alistz00_1050 = BgL_alistz00_5444; 
goto BgL_zc3z04anonymousza31427ze3z87_1051;} }  else 
{ /* Ieee/pairlist.scm 717 */
return BFALSE;} } } 

}



/* &assq */
obj_t BGl_z62assqz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2499, obj_t BgL_objz00_2500, obj_t BgL_alistz00_2501)
{
{ /* Ieee/pairlist.scm 715 */
{ /* Ieee/pairlist.scm 717 */
 obj_t BgL_auxz00_5446;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_alistz00_2501))
{ /* Ieee/pairlist.scm 717 */
BgL_auxz00_5446 = BgL_alistz00_2501
; }  else 
{ 
 obj_t BgL_auxz00_5449;
BgL_auxz00_5449 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(28716L), BGl_string2633z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_2501); 
FAILURE(BgL_auxz00_5449,BFALSE,BFALSE);} 
return 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2500, BgL_auxz00_5446);} } 

}



/* assv */
BGL_EXPORTED_DEF obj_t BGl_assvz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_83, obj_t BgL_alistz00_84)
{
{ /* Ieee/pairlist.scm 726 */
{ 
 obj_t BgL_alistz00_1061;
BgL_alistz00_1061 = BgL_alistz00_84; 
BgL_zc3z04anonymousza31435ze3z87_1062:
if(
PAIRP(BgL_alistz00_1061))
{ /* Ieee/pairlist.scm 729 */
 bool_t BgL_test3449z00_5456;
{ /* Ieee/pairlist.scm 729 */
 obj_t BgL_auxz00_5457;
{ /* Ieee/pairlist.scm 729 */
 obj_t BgL_pairz00_2050;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2278z00_2946;
BgL_aux2278z00_2946 = 
CAR(BgL_alistz00_1061); 
if(
PAIRP(BgL_aux2278z00_2946))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2050 = BgL_aux2278z00_2946; }  else 
{ 
 obj_t BgL_auxz00_5461;
BgL_auxz00_5461 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2278z00_2946); 
FAILURE(BgL_auxz00_5461,BFALSE,BFALSE);} } 
BgL_auxz00_5457 = 
CAR(BgL_pairz00_2050); } 
BgL_test3449z00_5456 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_5457, BgL_objz00_83); } 
if(BgL_test3449z00_5456)
{ /* Ieee/pairlist.scm 729 */
return 
CAR(BgL_alistz00_1061);}  else 
{ 
 obj_t BgL_alistz00_5468;
BgL_alistz00_5468 = 
CDR(BgL_alistz00_1061); 
BgL_alistz00_1061 = BgL_alistz00_5468; 
goto BgL_zc3z04anonymousza31435ze3z87_1062;} }  else 
{ /* Ieee/pairlist.scm 728 */
return BFALSE;} } } 

}



/* &assv */
obj_t BGl_z62assvz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2502, obj_t BgL_objz00_2503, obj_t BgL_alistz00_2504)
{
{ /* Ieee/pairlist.scm 726 */
{ /* Ieee/pairlist.scm 728 */
 obj_t BgL_auxz00_5470;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_alistz00_2504))
{ /* Ieee/pairlist.scm 728 */
BgL_auxz00_5470 = BgL_alistz00_2504
; }  else 
{ 
 obj_t BgL_auxz00_5473;
BgL_auxz00_5473 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(29135L), BGl_string2634z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_2504); 
FAILURE(BgL_auxz00_5473,BFALSE,BFALSE);} 
return 
BGl_assvz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2503, BgL_auxz00_5470);} } 

}



/* assoc */
BGL_EXPORTED_DEF obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_85, obj_t BgL_alistz00_86)
{
{ /* Ieee/pairlist.scm 737 */
{ 
 obj_t BgL_alistz00_1072;
BgL_alistz00_1072 = BgL_alistz00_86; 
BgL_zc3z04anonymousza31445ze3z87_1073:
if(
PAIRP(BgL_alistz00_1072))
{ /* Ieee/pairlist.scm 740 */
 bool_t BgL_test3453z00_5480;
{ /* Ieee/pairlist.scm 740 */
 obj_t BgL_auxz00_5481;
{ /* Ieee/pairlist.scm 740 */
 obj_t BgL_pairz00_2054;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2282z00_2950;
BgL_aux2282z00_2950 = 
CAR(BgL_alistz00_1072); 
if(
PAIRP(BgL_aux2282z00_2950))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2054 = BgL_aux2282z00_2950; }  else 
{ 
 obj_t BgL_auxz00_5485;
BgL_auxz00_5485 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2282z00_2950); 
FAILURE(BgL_auxz00_5485,BFALSE,BFALSE);} } 
BgL_auxz00_5481 = 
CAR(BgL_pairz00_2054); } 
BgL_test3453z00_5480 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_5481, BgL_objz00_85); } 
if(BgL_test3453z00_5480)
{ /* Ieee/pairlist.scm 740 */
return 
CAR(BgL_alistz00_1072);}  else 
{ 
 obj_t BgL_alistz00_5492;
BgL_alistz00_5492 = 
CDR(BgL_alistz00_1072); 
BgL_alistz00_1072 = BgL_alistz00_5492; 
goto BgL_zc3z04anonymousza31445ze3z87_1073;} }  else 
{ /* Ieee/pairlist.scm 739 */
return BFALSE;} } } 

}



/* &assoc */
obj_t BGl_z62assocz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2505, obj_t BgL_objz00_2506, obj_t BgL_alistz00_2507)
{
{ /* Ieee/pairlist.scm 737 */
{ /* Ieee/pairlist.scm 739 */
 obj_t BgL_auxz00_5494;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_alistz00_2507))
{ /* Ieee/pairlist.scm 739 */
BgL_auxz00_5494 = BgL_alistz00_2507
; }  else 
{ 
 obj_t BgL_auxz00_5497;
BgL_auxz00_5497 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(29549L), BGl_string2635z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_alistz00_2507); 
FAILURE(BgL_auxz00_5497,BFALSE,BFALSE);} 
return 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2506, BgL_auxz00_5494);} } 

}



/* remq */
BGL_EXPORTED_DEF obj_t bgl_remq(obj_t BgL_xz00_87, obj_t BgL_yz00_88)
{
{ /* Ieee/pairlist.scm 751 */
bgl_remq:
if(
NULLP(BgL_yz00_88))
{ /* Ieee/pairlist.scm 753 */
return BgL_yz00_88;}  else 
{ /* Ieee/pairlist.scm 753 */
if(
(BgL_xz00_87==
CAR(BgL_yz00_88)))
{ /* Ieee/pairlist.scm 754 */
 obj_t BgL_arg1457z00_1085;
BgL_arg1457z00_1085 = 
CDR(BgL_yz00_88); 
{ 
 obj_t BgL_yz00_5508;
{ /* Ieee/pairlist.scm 754 */
 bool_t BgL_test3458z00_5509;
if(
PAIRP(BgL_arg1457z00_1085))
{ /* Ieee/pairlist.scm 241 */
BgL_test3458z00_5509 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3458z00_5509 = 
NULLP(BgL_arg1457z00_1085)
; } 
if(BgL_test3458z00_5509)
{ /* Ieee/pairlist.scm 754 */
BgL_yz00_5508 = BgL_arg1457z00_1085; }  else 
{ 
 obj_t BgL_auxz00_5513;
BgL_auxz00_5513 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(30211L), BGl_string2636z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1457z00_1085); 
FAILURE(BgL_auxz00_5513,BFALSE,BFALSE);} } 
BgL_yz00_88 = BgL_yz00_5508; 
goto bgl_remq;} }  else 
{ /* Ieee/pairlist.scm 755 */
 obj_t BgL_arg1458z00_1086; obj_t BgL_arg1459z00_1087;
BgL_arg1458z00_1086 = 
CAR(BgL_yz00_88); 
{ /* Ieee/pairlist.scm 755 */
 obj_t BgL_arg1460z00_1088;
BgL_arg1460z00_1088 = 
CDR(BgL_yz00_88); 
{ /* Ieee/pairlist.scm 755 */
 obj_t BgL_auxz00_5519;
{ /* Ieee/pairlist.scm 755 */
 bool_t BgL_test3460z00_5520;
if(
PAIRP(BgL_arg1460z00_1088))
{ /* Ieee/pairlist.scm 241 */
BgL_test3460z00_5520 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3460z00_5520 = 
NULLP(BgL_arg1460z00_1088)
; } 
if(BgL_test3460z00_5520)
{ /* Ieee/pairlist.scm 755 */
BgL_auxz00_5519 = BgL_arg1460z00_1088
; }  else 
{ 
 obj_t BgL_auxz00_5524;
BgL_auxz00_5524 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(30255L), BGl_string2636z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1460z00_1088); 
FAILURE(BgL_auxz00_5524,BFALSE,BFALSE);} } 
BgL_arg1459z00_1087 = 
bgl_remq(BgL_xz00_87, BgL_auxz00_5519); } } 
return 
MAKE_YOUNG_PAIR(BgL_arg1458z00_1086, BgL_arg1459z00_1087);} } } 

}



/* &remq */
obj_t BGl_z62remqz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2508, obj_t BgL_xz00_2509, obj_t BgL_yz00_2510)
{
{ /* Ieee/pairlist.scm 751 */
{ /* Ieee/pairlist.scm 753 */
 obj_t BgL_auxz00_5530;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_yz00_2510))
{ /* Ieee/pairlist.scm 753 */
BgL_auxz00_5530 = BgL_yz00_2510
; }  else 
{ 
 obj_t BgL_auxz00_5533;
BgL_auxz00_5533 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(30160L), BGl_string2637z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_2510); 
FAILURE(BgL_auxz00_5533,BFALSE,BFALSE);} 
return 
bgl_remq(BgL_xz00_2509, BgL_auxz00_5530);} } 

}



/* remq! */
BGL_EXPORTED_DEF obj_t bgl_remq_bang(obj_t BgL_xz00_89, obj_t BgL_yz00_90)
{
{ /* Ieee/pairlist.scm 760 */
bgl_remq_bang:
if(
NULLP(BgL_yz00_90))
{ /* Ieee/pairlist.scm 762 */
return BgL_yz00_90;}  else 
{ /* Ieee/pairlist.scm 762 */
if(
(BgL_xz00_89==
CAR(BgL_yz00_90)))
{ /* Ieee/pairlist.scm 763 */
 obj_t BgL_arg1466z00_1093;
BgL_arg1466z00_1093 = 
CDR(BgL_yz00_90); 
{ 
 obj_t BgL_yz00_5544;
{ /* Ieee/pairlist.scm 763 */
 bool_t BgL_test3465z00_5545;
if(
PAIRP(BgL_arg1466z00_1093))
{ /* Ieee/pairlist.scm 241 */
BgL_test3465z00_5545 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3465z00_5545 = 
NULLP(BgL_arg1466z00_1093)
; } 
if(BgL_test3465z00_5545)
{ /* Ieee/pairlist.scm 763 */
BgL_yz00_5544 = BgL_arg1466z00_1093; }  else 
{ 
 obj_t BgL_auxz00_5549;
BgL_auxz00_5549 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(30572L), BGl_string2638z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1466z00_1093); 
FAILURE(BgL_auxz00_5549,BFALSE,BFALSE);} } 
BgL_yz00_90 = BgL_yz00_5544; 
goto bgl_remq_bang;} }  else 
{ 
 obj_t BgL_prevz00_1095;
BgL_prevz00_1095 = BgL_yz00_90; 
BgL_zc3z04anonymousza31467ze3z87_1096:
{ /* Ieee/pairlist.scm 765 */
 bool_t BgL_test3467z00_5553;
{ /* Ieee/pairlist.scm 466 */
 obj_t BgL_tmpz00_5554;
{ /* Ieee/pairlist.scm 765 */
 obj_t BgL_pairz00_2063;
if(
PAIRP(BgL_prevz00_1095))
{ /* Ieee/pairlist.scm 765 */
BgL_pairz00_2063 = BgL_prevz00_1095; }  else 
{ 
 obj_t BgL_auxz00_5557;
BgL_auxz00_5557 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(30643L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_1095); 
FAILURE(BgL_auxz00_5557,BFALSE,BFALSE);} 
BgL_tmpz00_5554 = 
CDR(BgL_pairz00_2063); } 
BgL_test3467z00_5553 = 
NULLP(BgL_tmpz00_5554); } 
if(BgL_test3467z00_5553)
{ /* Ieee/pairlist.scm 765 */
return BgL_yz00_90;}  else 
{ /* Ieee/pairlist.scm 767 */
 bool_t BgL_test3469z00_5563;
{ /* Ieee/pairlist.scm 767 */
 obj_t BgL_tmpz00_5564;
{ /* Ieee/pairlist.scm 767 */
 obj_t BgL_pairz00_2064;
if(
PAIRP(BgL_prevz00_1095))
{ /* Ieee/pairlist.scm 767 */
BgL_pairz00_2064 = BgL_prevz00_1095; }  else 
{ 
 obj_t BgL_auxz00_5567;
BgL_auxz00_5567 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(30708L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_1095); 
FAILURE(BgL_auxz00_5567,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 285 */
 obj_t BgL_pairz00_2067;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2298z00_2966;
BgL_aux2298z00_2966 = 
CDR(BgL_pairz00_2064); 
if(
PAIRP(BgL_aux2298z00_2966))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_2067 = BgL_aux2298z00_2966; }  else 
{ 
 obj_t BgL_auxz00_5574;
BgL_auxz00_5574 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2298z00_2966); 
FAILURE(BgL_auxz00_5574,BFALSE,BFALSE);} } 
BgL_tmpz00_5564 = 
CAR(BgL_pairz00_2067); } } 
BgL_test3469z00_5563 = 
(BgL_tmpz00_5564==BgL_xz00_89); } 
if(BgL_test3469z00_5563)
{ /* Ieee/pairlist.scm 767 */
{ /* Ieee/pairlist.scm 768 */
 obj_t BgL_arg1472z00_1101;
{ /* Ieee/pairlist.scm 768 */
 obj_t BgL_pairz00_2068;
if(
PAIRP(BgL_prevz00_1095))
{ /* Ieee/pairlist.scm 768 */
BgL_pairz00_2068 = BgL_prevz00_1095; }  else 
{ 
 obj_t BgL_auxz00_5582;
BgL_auxz00_5582 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(30760L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_1095); 
FAILURE(BgL_auxz00_5582,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 297 */
 obj_t BgL_pairz00_2071;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2302z00_2970;
BgL_aux2302z00_2970 = 
CDR(BgL_pairz00_2068); 
if(
PAIRP(BgL_aux2302z00_2970))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_2071 = BgL_aux2302z00_2970; }  else 
{ 
 obj_t BgL_auxz00_5589;
BgL_auxz00_5589 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2302z00_2970); 
FAILURE(BgL_auxz00_5589,BFALSE,BFALSE);} } 
BgL_arg1472z00_1101 = 
CDR(BgL_pairz00_2071); } } 
{ /* Ieee/pairlist.scm 768 */
 obj_t BgL_pairz00_2072;
if(
PAIRP(BgL_prevz00_1095))
{ /* Ieee/pairlist.scm 768 */
BgL_pairz00_2072 = BgL_prevz00_1095; }  else 
{ 
 obj_t BgL_auxz00_5596;
BgL_auxz00_5596 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(30749L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_1095); 
FAILURE(BgL_auxz00_5596,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_2072, BgL_arg1472z00_1101); } } 
{ 

goto BgL_zc3z04anonymousza31467ze3z87_1096;} }  else 
{ /* Ieee/pairlist.scm 770 */
 obj_t BgL_arg1473z00_1102;
{ /* Ieee/pairlist.scm 770 */
 obj_t BgL_pairz00_2073;
if(
PAIRP(BgL_prevz00_1095))
{ /* Ieee/pairlist.scm 770 */
BgL_pairz00_2073 = BgL_prevz00_1095; }  else 
{ 
 obj_t BgL_auxz00_5603;
BgL_auxz00_5603 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(30840L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_1095); 
FAILURE(BgL_auxz00_5603,BFALSE,BFALSE);} 
BgL_arg1473z00_1102 = 
CDR(BgL_pairz00_2073); } 
{ 
 obj_t BgL_prevz00_5608;
BgL_prevz00_5608 = BgL_arg1473z00_1102; 
BgL_prevz00_1095 = BgL_prevz00_5608; 
goto BgL_zc3z04anonymousza31467ze3z87_1096;} } } } } } } 

}



/* &remq! */
obj_t BGl_z62remqz12z70zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2511, obj_t BgL_xz00_2512, obj_t BgL_yz00_2513)
{
{ /* Ieee/pairlist.scm 760 */
{ /* Ieee/pairlist.scm 762 */
 obj_t BgL_auxz00_5609;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_yz00_2513))
{ /* Ieee/pairlist.scm 762 */
BgL_auxz00_5609 = BgL_yz00_2513
; }  else 
{ 
 obj_t BgL_auxz00_5612;
BgL_auxz00_5612 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(30520L), BGl_string2639z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_2513); 
FAILURE(BgL_auxz00_5612,BFALSE,BFALSE);} 
return 
bgl_remq_bang(BgL_xz00_2512, BgL_auxz00_5609);} } 

}



/* _delete */
obj_t BGl__deletez00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_env1106z00_95, obj_t BgL_opt1105z00_94)
{
{ /* Ieee/pairlist.scm 775 */
{ /* Ieee/pairlist.scm 775 */
 obj_t BgL_g1107z00_1107; obj_t BgL_g1108z00_1108;
{ 
 obj_t BgL_auxz00_5617;
if(
VECTORP(BgL_opt1105z00_94))
{ /* Ieee/pairlist.scm 775 */
BgL_auxz00_5617 = BgL_opt1105z00_94
; }  else 
{ 
 obj_t BgL_auxz00_5620;
BgL_auxz00_5620 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31076L), BGl_string2640z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1105z00_94); 
FAILURE(BgL_auxz00_5620,BFALSE,BFALSE);} 
BgL_g1107z00_1107 = 
VECTOR_REF(BgL_auxz00_5617,0L); } 
{ 
 obj_t BgL_auxz00_5625;
if(
VECTORP(BgL_opt1105z00_94))
{ /* Ieee/pairlist.scm 775 */
BgL_auxz00_5625 = BgL_opt1105z00_94
; }  else 
{ 
 obj_t BgL_auxz00_5628;
BgL_auxz00_5628 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31076L), BGl_string2640z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1105z00_94); 
FAILURE(BgL_auxz00_5628,BFALSE,BFALSE);} 
BgL_g1108z00_1108 = 
VECTOR_REF(BgL_auxz00_5625,1L); } 
{ 

{ /* Ieee/pairlist.scm 775 */
 long BgL_aux1110z00_1110;
{ 
 obj_t BgL_auxz00_5633;
if(
VECTORP(BgL_opt1105z00_94))
{ /* Ieee/pairlist.scm 775 */
BgL_auxz00_5633 = BgL_opt1105z00_94
; }  else 
{ 
 obj_t BgL_auxz00_5636;
BgL_auxz00_5636 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31076L), BGl_string2640z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1105z00_94); 
FAILURE(BgL_auxz00_5636,BFALSE,BFALSE);} 
BgL_aux1110z00_1110 = 
VECTOR_LENGTH(BgL_auxz00_5633); } 
switch( BgL_aux1110z00_1110) { case 2L : 

{ /* Ieee/pairlist.scm 775 */

{ /* Ieee/pairlist.scm 775 */
 obj_t BgL_auxz00_5641;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_g1108z00_1108))
{ /* Ieee/pairlist.scm 775 */
BgL_auxz00_5641 = BgL_g1108z00_1108
; }  else 
{ 
 obj_t BgL_auxz00_5644;
BgL_auxz00_5644 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31076L), BGl_string2640z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_g1108z00_1108); 
FAILURE(BgL_auxz00_5644,BFALSE,BFALSE);} 
return 
BGl_deletez00zz__r4_pairs_and_lists_6_3z00(BgL_g1107z00_1107, BgL_auxz00_5641, BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00);} } break;case 3L : 

{ /* Ieee/pairlist.scm 775 */
 obj_t BgL_eqz00_1112;
{ 
 obj_t BgL_auxz00_5649;
if(
VECTORP(BgL_opt1105z00_94))
{ /* Ieee/pairlist.scm 775 */
BgL_auxz00_5649 = BgL_opt1105z00_94
; }  else 
{ 
 obj_t BgL_auxz00_5652;
BgL_auxz00_5652 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31076L), BGl_string2640z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1105z00_94); 
FAILURE(BgL_auxz00_5652,BFALSE,BFALSE);} 
BgL_eqz00_1112 = 
VECTOR_REF(BgL_auxz00_5649,2L); } 
{ /* Ieee/pairlist.scm 775 */

{ /* Ieee/pairlist.scm 775 */
 obj_t BgL_auxz00_5657;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_g1108z00_1108))
{ /* Ieee/pairlist.scm 775 */
BgL_auxz00_5657 = BgL_g1108z00_1108
; }  else 
{ 
 obj_t BgL_auxz00_5660;
BgL_auxz00_5660 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31076L), BGl_string2640z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_g1108z00_1108); 
FAILURE(BgL_auxz00_5660,BFALSE,BFALSE);} 
return 
BGl_deletez00zz__r4_pairs_and_lists_6_3z00(BgL_g1107z00_1107, BgL_auxz00_5657, BgL_eqz00_1112);} } } break;
default: 
{ /* Ieee/pairlist.scm 775 */
 long BgL_arg1479z00_1113;
{ 
 obj_t BgL_auxz00_5665;
if(
VECTORP(BgL_opt1105z00_94))
{ /* Ieee/pairlist.scm 775 */
BgL_auxz00_5665 = BgL_opt1105z00_94
; }  else 
{ 
 obj_t BgL_auxz00_5668;
BgL_auxz00_5668 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31076L), BGl_string2642z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1105z00_94); 
FAILURE(BgL_auxz00_5668,BFALSE,BFALSE);} 
BgL_arg1479z00_1113 = 
VECTOR_LENGTH(BgL_auxz00_5665); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2643z00zz__r4_pairs_and_lists_6_3z00, BGl_string2645z00zz__r4_pairs_and_lists_6_3z00, 
BINT(BgL_arg1479z00_1113));} } } } } } 

}



/* delete */
BGL_EXPORTED_DEF obj_t BGl_deletez00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_91, obj_t BgL_yz00_92, obj_t BgL_eqz00_93)
{
{ /* Ieee/pairlist.scm 775 */
return 
BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00(BgL_eqz00_93, BgL_xz00_91, BgL_yz00_92);} 

}



/* loop~0 */
obj_t BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00(obj_t BgL_eqz00_2560, obj_t BgL_xz00_1115, obj_t BgL_yz00_1116)
{
{ /* Ieee/pairlist.scm 776 */
BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00:
if(
NULLP(BgL_yz00_1116))
{ /* Ieee/pairlist.scm 779 */
return BgL_yz00_1116;}  else 
{ /* Ieee/pairlist.scm 780 */
 bool_t BgL_test3485z00_5679;
{ /* Ieee/pairlist.scm 780 */
 obj_t BgL_arg1489z00_1125;
{ /* Ieee/pairlist.scm 780 */
 obj_t BgL_pairz00_2074;
if(
PAIRP(BgL_yz00_1116))
{ /* Ieee/pairlist.scm 780 */
BgL_pairz00_2074 = BgL_yz00_1116; }  else 
{ 
 obj_t BgL_auxz00_5682;
BgL_auxz00_5682 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31196L), BGl_string2646z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1116); 
FAILURE(BgL_auxz00_5682,BFALSE,BFALSE);} 
BgL_arg1489z00_1125 = 
CAR(BgL_pairz00_2074); } 
{ /* Ieee/pairlist.scm 780 */
 obj_t BgL_funz00_2996;
if(
PROCEDUREP(BgL_eqz00_2560))
{ /* Ieee/pairlist.scm 780 */
BgL_funz00_2996 = BgL_eqz00_2560; }  else 
{ 
 obj_t BgL_auxz00_5689;
BgL_auxz00_5689 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31185L), BGl_string2646z00zz__r4_pairs_and_lists_6_3z00, BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_eqz00_2560); 
FAILURE(BgL_auxz00_5689,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_2996, 2))
{ /* Ieee/pairlist.scm 780 */
BgL_test3485z00_5679 = 
CBOOL(
(VA_PROCEDUREP( BgL_funz00_2996 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_2996))(BgL_eqz00_2560, BgL_xz00_1115, BgL_arg1489z00_1125, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_2996))(BgL_eqz00_2560, BgL_xz00_1115, BgL_arg1489z00_1125) ))
; }  else 
{ /* Ieee/pairlist.scm 780 */
FAILURE(BGl_string2648z00zz__r4_pairs_and_lists_6_3z00,BGl_list2649z00zz__r4_pairs_and_lists_6_3z00,BgL_funz00_2996);} } } 
if(BgL_test3485z00_5679)
{ /* Ieee/pairlist.scm 780 */
 obj_t BgL_arg1484z00_1121;
{ /* Ieee/pairlist.scm 780 */
 obj_t BgL_pairz00_2075;
if(
PAIRP(BgL_yz00_1116))
{ /* Ieee/pairlist.scm 780 */
BgL_pairz00_2075 = BgL_yz00_1116; }  else 
{ 
 obj_t BgL_auxz00_5704;
BgL_auxz00_5704 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31213L), BGl_string2646z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1116); 
FAILURE(BgL_auxz00_5704,BFALSE,BFALSE);} 
BgL_arg1484z00_1121 = 
CDR(BgL_pairz00_2075); } 
{ 
 obj_t BgL_yz00_5709;
BgL_yz00_5709 = BgL_arg1484z00_1121; 
BgL_yz00_1116 = BgL_yz00_5709; 
goto BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00;} }  else 
{ /* Ieee/pairlist.scm 781 */
 obj_t BgL_arg1486z00_1122; obj_t BgL_arg1487z00_1123;
{ /* Ieee/pairlist.scm 781 */
 obj_t BgL_pairz00_2076;
if(
PAIRP(BgL_yz00_1116))
{ /* Ieee/pairlist.scm 781 */
BgL_pairz00_2076 = BgL_yz00_1116; }  else 
{ 
 obj_t BgL_auxz00_5712;
BgL_auxz00_5712 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31237L), BGl_string2646z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1116); 
FAILURE(BgL_auxz00_5712,BFALSE,BFALSE);} 
BgL_arg1486z00_1122 = 
CAR(BgL_pairz00_2076); } 
{ /* Ieee/pairlist.scm 781 */
 obj_t BgL_arg1488z00_1124;
{ /* Ieee/pairlist.scm 781 */
 obj_t BgL_pairz00_2077;
if(
PAIRP(BgL_yz00_1116))
{ /* Ieee/pairlist.scm 781 */
BgL_pairz00_2077 = BgL_yz00_1116; }  else 
{ 
 obj_t BgL_auxz00_5719;
BgL_auxz00_5719 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31253L), BGl_string2646z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1116); 
FAILURE(BgL_auxz00_5719,BFALSE,BFALSE);} 
BgL_arg1488z00_1124 = 
CDR(BgL_pairz00_2077); } 
BgL_arg1487z00_1123 = 
BGl_loopze70ze7zz__r4_pairs_and_lists_6_3z00(BgL_eqz00_2560, BgL_xz00_1115, BgL_arg1488z00_1124); } 
return 
MAKE_YOUNG_PAIR(BgL_arg1486z00_1122, BgL_arg1487z00_1123);} } } 

}



/* _delete! */
obj_t BGl__deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_env1112z00_100, obj_t BgL_opt1111z00_99)
{
{ /* Ieee/pairlist.scm 786 */
{ /* Ieee/pairlist.scm 786 */
 obj_t BgL_g1113z00_1127; obj_t BgL_g1114z00_1128;
{ 
 obj_t BgL_auxz00_5726;
if(
VECTORP(BgL_opt1111z00_99))
{ /* Ieee/pairlist.scm 786 */
BgL_auxz00_5726 = BgL_opt1111z00_99
; }  else 
{ 
 obj_t BgL_auxz00_5729;
BgL_auxz00_5729 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31485L), BGl_string2658z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1111z00_99); 
FAILURE(BgL_auxz00_5729,BFALSE,BFALSE);} 
BgL_g1113z00_1127 = 
VECTOR_REF(BgL_auxz00_5726,0L); } 
{ 
 obj_t BgL_auxz00_5734;
if(
VECTORP(BgL_opt1111z00_99))
{ /* Ieee/pairlist.scm 786 */
BgL_auxz00_5734 = BgL_opt1111z00_99
; }  else 
{ 
 obj_t BgL_auxz00_5737;
BgL_auxz00_5737 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31485L), BGl_string2658z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1111z00_99); 
FAILURE(BgL_auxz00_5737,BFALSE,BFALSE);} 
BgL_g1114z00_1128 = 
VECTOR_REF(BgL_auxz00_5734,1L); } 
{ 

{ /* Ieee/pairlist.scm 786 */
 long BgL_aux1116z00_1130;
{ 
 obj_t BgL_auxz00_5742;
if(
VECTORP(BgL_opt1111z00_99))
{ /* Ieee/pairlist.scm 786 */
BgL_auxz00_5742 = BgL_opt1111z00_99
; }  else 
{ 
 obj_t BgL_auxz00_5745;
BgL_auxz00_5745 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31485L), BGl_string2658z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1111z00_99); 
FAILURE(BgL_auxz00_5745,BFALSE,BFALSE);} 
BgL_aux1116z00_1130 = 
VECTOR_LENGTH(BgL_auxz00_5742); } 
switch( BgL_aux1116z00_1130) { case 2L : 

{ /* Ieee/pairlist.scm 786 */

{ /* Ieee/pairlist.scm 786 */
 obj_t BgL_auxz00_5750;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_g1114z00_1128))
{ /* Ieee/pairlist.scm 786 */
BgL_auxz00_5750 = BgL_g1114z00_1128
; }  else 
{ 
 obj_t BgL_auxz00_5753;
BgL_auxz00_5753 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31485L), BGl_string2658z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_g1114z00_1128); 
FAILURE(BgL_auxz00_5753,BFALSE,BFALSE);} 
return 
BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(BgL_g1113z00_1127, BgL_auxz00_5750, BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00);} } break;case 3L : 

{ /* Ieee/pairlist.scm 786 */
 obj_t BgL_eqz00_1132;
{ 
 obj_t BgL_auxz00_5758;
if(
VECTORP(BgL_opt1111z00_99))
{ /* Ieee/pairlist.scm 786 */
BgL_auxz00_5758 = BgL_opt1111z00_99
; }  else 
{ 
 obj_t BgL_auxz00_5761;
BgL_auxz00_5761 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31485L), BGl_string2658z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1111z00_99); 
FAILURE(BgL_auxz00_5761,BFALSE,BFALSE);} 
BgL_eqz00_1132 = 
VECTOR_REF(BgL_auxz00_5758,2L); } 
{ /* Ieee/pairlist.scm 786 */

{ /* Ieee/pairlist.scm 786 */
 obj_t BgL_auxz00_5766;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_g1114z00_1128))
{ /* Ieee/pairlist.scm 786 */
BgL_auxz00_5766 = BgL_g1114z00_1128
; }  else 
{ 
 obj_t BgL_auxz00_5769;
BgL_auxz00_5769 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31485L), BGl_string2658z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_g1114z00_1128); 
FAILURE(BgL_auxz00_5769,BFALSE,BFALSE);} 
return 
BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(BgL_g1113z00_1127, BgL_auxz00_5766, BgL_eqz00_1132);} } } break;
default: 
{ /* Ieee/pairlist.scm 786 */
 long BgL_arg1490z00_1133;
{ 
 obj_t BgL_auxz00_5774;
if(
VECTORP(BgL_opt1111z00_99))
{ /* Ieee/pairlist.scm 786 */
BgL_auxz00_5774 = BgL_opt1111z00_99
; }  else 
{ 
 obj_t BgL_auxz00_5777;
BgL_auxz00_5777 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31485L), BGl_string2659z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1111z00_99); 
FAILURE(BgL_auxz00_5777,BFALSE,BFALSE);} 
BgL_arg1490z00_1133 = 
VECTOR_LENGTH(BgL_auxz00_5774); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2660z00zz__r4_pairs_and_lists_6_3z00, BGl_string2645z00zz__r4_pairs_and_lists_6_3z00, 
BINT(BgL_arg1490z00_1133));} } } } } } 

}



/* delete! */
BGL_EXPORTED_DEF obj_t BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_96, obj_t BgL_yz00_97, obj_t BgL_eqz00_98)
{
{ /* Ieee/pairlist.scm 786 */
{ 
 obj_t BgL_xz00_1135; obj_t BgL_yz00_1136;
{ /* Ieee/pairlist.scm 787 */
 obj_t BgL_aux2373z00_3044;
BgL_xz00_1135 = BgL_xz00_96; 
BgL_yz00_1136 = BgL_yz00_97; 
BgL_zc3z04anonymousza31491ze3z87_1137:
if(
NULLP(BgL_yz00_1136))
{ /* Ieee/pairlist.scm 790 */
BgL_aux2373z00_3044 = BgL_yz00_1136; }  else 
{ /* Ieee/pairlist.scm 791 */
 bool_t BgL_test3500z00_5787;
{ /* Ieee/pairlist.scm 791 */
 obj_t BgL_arg1509z00_1154;
{ /* Ieee/pairlist.scm 791 */
 obj_t BgL_pairz00_2078;
if(
PAIRP(BgL_yz00_1136))
{ /* Ieee/pairlist.scm 791 */
BgL_pairz00_2078 = BgL_yz00_1136; }  else 
{ 
 obj_t BgL_auxz00_5790;
BgL_auxz00_5790 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31606L), BGl_string2662z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1136); 
FAILURE(BgL_auxz00_5790,BFALSE,BFALSE);} 
BgL_arg1509z00_1154 = 
CAR(BgL_pairz00_2078); } 
{ /* Ieee/pairlist.scm 791 */
 obj_t BgL_funz00_3022;
if(
PROCEDUREP(BgL_eqz00_98))
{ /* Ieee/pairlist.scm 791 */
BgL_funz00_3022 = BgL_eqz00_98; }  else 
{ 
 obj_t BgL_auxz00_5797;
BgL_auxz00_5797 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31595L), BGl_string2662z00zz__r4_pairs_and_lists_6_3z00, BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_eqz00_98); 
FAILURE(BgL_auxz00_5797,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3022, 2))
{ /* Ieee/pairlist.scm 791 */
BgL_test3500z00_5787 = 
CBOOL(
(VA_PROCEDUREP( BgL_funz00_3022 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3022))(BgL_eqz00_98, BgL_xz00_1135, BgL_arg1509z00_1154, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3022))(BgL_eqz00_98, BgL_xz00_1135, BgL_arg1509z00_1154) ))
; }  else 
{ /* Ieee/pairlist.scm 791 */
FAILURE(BGl_string2663z00zz__r4_pairs_and_lists_6_3z00,BGl_list2664z00zz__r4_pairs_and_lists_6_3z00,BgL_funz00_3022);} } } 
if(BgL_test3500z00_5787)
{ /* Ieee/pairlist.scm 791 */
 obj_t BgL_arg1497z00_1141;
{ /* Ieee/pairlist.scm 791 */
 obj_t BgL_pairz00_2079;
if(
PAIRP(BgL_yz00_1136))
{ /* Ieee/pairlist.scm 791 */
BgL_pairz00_2079 = BgL_yz00_1136; }  else 
{ 
 obj_t BgL_auxz00_5812;
BgL_auxz00_5812 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31623L), BGl_string2662z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_yz00_1136); 
FAILURE(BgL_auxz00_5812,BFALSE,BFALSE);} 
BgL_arg1497z00_1141 = 
CDR(BgL_pairz00_2079); } 
{ 
 obj_t BgL_yz00_5817;
BgL_yz00_5817 = BgL_arg1497z00_1141; 
BgL_yz00_1136 = BgL_yz00_5817; 
goto BgL_zc3z04anonymousza31491ze3z87_1137;} }  else 
{ 
 obj_t BgL_prevz00_1143;
BgL_prevz00_1143 = BgL_yz00_1136; 
BgL_zc3z04anonymousza31498ze3z87_1144:
{ /* Ieee/pairlist.scm 793 */
 bool_t BgL_test3505z00_5818;
{ /* Ieee/pairlist.scm 466 */
 obj_t BgL_tmpz00_5819;
{ /* Ieee/pairlist.scm 793 */
 obj_t BgL_pairz00_2080;
if(
PAIRP(BgL_prevz00_1143))
{ /* Ieee/pairlist.scm 793 */
BgL_pairz00_2080 = BgL_prevz00_1143; }  else 
{ 
 obj_t BgL_auxz00_5822;
BgL_auxz00_5822 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31680L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_1143); 
FAILURE(BgL_auxz00_5822,BFALSE,BFALSE);} 
BgL_tmpz00_5819 = 
CDR(BgL_pairz00_2080); } 
BgL_test3505z00_5818 = 
NULLP(BgL_tmpz00_5819); } 
if(BgL_test3505z00_5818)
{ /* Ieee/pairlist.scm 793 */
BgL_aux2373z00_3044 = BgL_yz00_1136; }  else 
{ /* Ieee/pairlist.scm 795 */
 bool_t BgL_test3507z00_5828;
{ /* Ieee/pairlist.scm 795 */
 obj_t BgL_arg1507z00_1151;
{ /* Ieee/pairlist.scm 795 */
 obj_t BgL_pairz00_2081;
if(
PAIRP(BgL_prevz00_1143))
{ /* Ieee/pairlist.scm 795 */
BgL_pairz00_2081 = BgL_prevz00_1143; }  else 
{ 
 obj_t BgL_auxz00_5831;
BgL_auxz00_5831 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31708L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_1143); 
FAILURE(BgL_auxz00_5831,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 285 */
 obj_t BgL_pairz00_2084;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2360z00_3030;
BgL_aux2360z00_3030 = 
CDR(BgL_pairz00_2081); 
if(
PAIRP(BgL_aux2360z00_3030))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_2084 = BgL_aux2360z00_3030; }  else 
{ 
 obj_t BgL_auxz00_5838;
BgL_auxz00_5838 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2360z00_3030); 
FAILURE(BgL_auxz00_5838,BFALSE,BFALSE);} } 
BgL_arg1507z00_1151 = 
CAR(BgL_pairz00_2084); } } 
{ /* Ieee/pairlist.scm 795 */
 obj_t BgL_funz00_3034;
if(
PROCEDUREP(BgL_eqz00_98))
{ /* Ieee/pairlist.scm 795 */
BgL_funz00_3034 = BgL_eqz00_98; }  else 
{ 
 obj_t BgL_auxz00_5845;
BgL_auxz00_5845 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31698L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_eqz00_98); 
FAILURE(BgL_auxz00_5845,BFALSE,BFALSE);} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_3034, 2))
{ /* Ieee/pairlist.scm 795 */
BgL_test3507z00_5828 = 
CBOOL(
(VA_PROCEDUREP( BgL_funz00_3034 ) ? ((obj_t (*)(obj_t, ...))PROCEDURE_ENTRY(BgL_funz00_3034))(BgL_eqz00_98, BgL_arg1507z00_1151, BgL_xz00_1135, BEOA) : ((obj_t (*)(obj_t, obj_t, obj_t))PROCEDURE_ENTRY(BgL_funz00_3034))(BgL_eqz00_98, BgL_arg1507z00_1151, BgL_xz00_1135) ))
; }  else 
{ /* Ieee/pairlist.scm 795 */
FAILURE(BGl_string2667z00zz__r4_pairs_and_lists_6_3z00,BGl_list2668z00zz__r4_pairs_and_lists_6_3z00,BgL_funz00_3034);} } } 
if(BgL_test3507z00_5828)
{ /* Ieee/pairlist.scm 795 */
{ /* Ieee/pairlist.scm 796 */
 obj_t BgL_arg1505z00_1149;
{ /* Ieee/pairlist.scm 796 */
 obj_t BgL_pairz00_2085;
if(
PAIRP(BgL_prevz00_1143))
{ /* Ieee/pairlist.scm 796 */
BgL_pairz00_2085 = BgL_prevz00_1143; }  else 
{ 
 obj_t BgL_auxz00_5860;
BgL_auxz00_5860 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31742L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_1143); 
FAILURE(BgL_auxz00_5860,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 297 */
 obj_t BgL_pairz00_2088;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2367z00_3038;
BgL_aux2367z00_3038 = 
CDR(BgL_pairz00_2085); 
if(
PAIRP(BgL_aux2367z00_3038))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_2088 = BgL_aux2367z00_3038; }  else 
{ 
 obj_t BgL_auxz00_5867;
BgL_auxz00_5867 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2367z00_3038); 
FAILURE(BgL_auxz00_5867,BFALSE,BFALSE);} } 
BgL_arg1505z00_1149 = 
CDR(BgL_pairz00_2088); } } 
{ /* Ieee/pairlist.scm 796 */
 obj_t BgL_pairz00_2089;
if(
PAIRP(BgL_prevz00_1143))
{ /* Ieee/pairlist.scm 796 */
BgL_pairz00_2089 = BgL_prevz00_1143; }  else 
{ 
 obj_t BgL_auxz00_5874;
BgL_auxz00_5874 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31731L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_1143); 
FAILURE(BgL_auxz00_5874,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_2089, BgL_arg1505z00_1149); } } 
{ 

goto BgL_zc3z04anonymousza31498ze3z87_1144;} }  else 
{ /* Ieee/pairlist.scm 798 */
 obj_t BgL_arg1506z00_1150;
{ /* Ieee/pairlist.scm 798 */
 obj_t BgL_pairz00_2090;
if(
PAIRP(BgL_prevz00_1143))
{ /* Ieee/pairlist.scm 798 */
BgL_pairz00_2090 = BgL_prevz00_1143; }  else 
{ 
 obj_t BgL_auxz00_5881;
BgL_auxz00_5881 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31786L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_prevz00_1143); 
FAILURE(BgL_auxz00_5881,BFALSE,BFALSE);} 
BgL_arg1506z00_1150 = 
CDR(BgL_pairz00_2090); } 
{ 
 obj_t BgL_prevz00_5886;
BgL_prevz00_5886 = BgL_arg1506z00_1150; 
BgL_prevz00_1143 = BgL_prevz00_5886; 
goto BgL_zc3z04anonymousza31498ze3z87_1144;} } } } } } 
{ /* Ieee/pairlist.scm 787 */
 bool_t BgL_test3516z00_5887;
if(
PAIRP(BgL_aux2373z00_3044))
{ /* Ieee/pairlist.scm 241 */
BgL_test3516z00_5887 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3516z00_5887 = 
NULLP(BgL_aux2373z00_3044)
; } 
if(BgL_test3516z00_5887)
{ /* Ieee/pairlist.scm 787 */
return BgL_aux2373z00_3044;}  else 
{ 
 obj_t BgL_auxz00_5891;
BgL_auxz00_5891 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(31533L), BGl_string2661z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2373z00_3044); 
FAILURE(BgL_auxz00_5891,BFALSE,BFALSE);} } } } } 

}



/* cons* */
BGL_EXPORTED_DEF obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_101, obj_t BgL_yz00_102)
{
{ /* Ieee/pairlist.scm 803 */
if(
NULLP(BgL_yz00_102))
{ /* Ieee/pairlist.scm 808 */
return BgL_xz00_101;}  else 
{ /* Ieee/pairlist.scm 808 */
return 
MAKE_YOUNG_PAIR(BgL_xz00_101, 
BGl_consza21ze70z45zz__r4_pairs_and_lists_6_3z00(BgL_yz00_102));} } 

}



/* cons*1~0 */
obj_t BGl_consza21ze70z45zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_1156)
{
{ /* Ieee/pairlist.scm 804 */
{ /* Ieee/pairlist.scm 804 */
 bool_t BgL_test3519z00_5899;
{ /* Ieee/pairlist.scm 466 */
 obj_t BgL_tmpz00_5900;
{ /* Ieee/pairlist.scm 804 */
 obj_t BgL_pairz00_2091;
if(
PAIRP(BgL_xz00_1156))
{ /* Ieee/pairlist.scm 804 */
BgL_pairz00_2091 = BgL_xz00_1156; }  else 
{ 
 obj_t BgL_auxz00_5903;
BgL_auxz00_5903 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32088L), BGl_string2671z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_1156); 
FAILURE(BgL_auxz00_5903,BFALSE,BFALSE);} 
BgL_tmpz00_5900 = 
CDR(BgL_pairz00_2091); } 
BgL_test3519z00_5899 = 
NULLP(BgL_tmpz00_5900); } 
if(BgL_test3519z00_5899)
{ /* Ieee/pairlist.scm 805 */
 obj_t BgL_pairz00_2092;
if(
PAIRP(BgL_xz00_1156))
{ /* Ieee/pairlist.scm 805 */
BgL_pairz00_2092 = BgL_xz00_1156; }  else 
{ 
 obj_t BgL_auxz00_5911;
BgL_auxz00_5911 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32107L), BGl_string2671z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_1156); 
FAILURE(BgL_auxz00_5911,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_2092);}  else 
{ /* Ieee/pairlist.scm 807 */
 obj_t BgL_arg1514z00_1162; obj_t BgL_arg1515z00_1163;
{ /* Ieee/pairlist.scm 807 */
 obj_t BgL_pairz00_2093;
if(
PAIRP(BgL_xz00_1156))
{ /* Ieee/pairlist.scm 807 */
BgL_pairz00_2093 = BgL_xz00_1156; }  else 
{ 
 obj_t BgL_auxz00_5918;
BgL_auxz00_5918 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32147L), BGl_string2671z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_1156); 
FAILURE(BgL_auxz00_5918,BFALSE,BFALSE);} 
BgL_arg1514z00_1162 = 
CAR(BgL_pairz00_2093); } 
{ /* Ieee/pairlist.scm 807 */
 obj_t BgL_arg1516z00_1164;
{ /* Ieee/pairlist.scm 807 */
 obj_t BgL_pairz00_2094;
if(
PAIRP(BgL_xz00_1156))
{ /* Ieee/pairlist.scm 807 */
BgL_pairz00_2094 = BgL_xz00_1156; }  else 
{ 
 obj_t BgL_auxz00_5925;
BgL_auxz00_5925 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32163L), BGl_string2671z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_xz00_1156); 
FAILURE(BgL_auxz00_5925,BFALSE,BFALSE);} 
BgL_arg1516z00_1164 = 
CDR(BgL_pairz00_2094); } 
BgL_arg1515z00_1163 = 
BGl_consza21ze70z45zz__r4_pairs_and_lists_6_3z00(BgL_arg1516z00_1164); } 
return 
MAKE_YOUNG_PAIR(BgL_arg1514z00_1162, BgL_arg1515z00_1163);} } } 

}



/* &cons* */
obj_t BGl_z62consza2zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2517, obj_t BgL_xz00_2518, obj_t BgL_yz00_2519)
{
{ /* Ieee/pairlist.scm 803 */
return 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2518, BgL_yz00_2519);} 

}



/* reverse! */
BGL_EXPORTED_DEF obj_t bgl_reverse_bang(obj_t BgL_lz00_103)
{
{ /* Ieee/pairlist.scm 815 */
if(
NULLP(BgL_lz00_103))
{ /* Ieee/pairlist.scm 816 */
return BgL_lz00_103;}  else 
{ 
 obj_t BgL_lz00_1169; obj_t BgL_rz00_1170;
{ /* Ieee/pairlist.scm 817 */
 obj_t BgL_aux2391z00_3062;
BgL_lz00_1169 = BgL_lz00_103; 
BgL_rz00_1170 = BNIL; 
BgL_zc3z04anonymousza31519ze3z87_1171:
{ /* Ieee/pairlist.scm 819 */
 bool_t BgL_test3525z00_5935;
{ /* Ieee/pairlist.scm 466 */
 obj_t BgL_tmpz00_5936;
{ /* Ieee/pairlist.scm 819 */
 obj_t BgL_pairz00_2095;
if(
PAIRP(BgL_lz00_1169))
{ /* Ieee/pairlist.scm 819 */
BgL_pairz00_2095 = BgL_lz00_1169; }  else 
{ 
 obj_t BgL_auxz00_5939;
BgL_auxz00_5939 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32550L), BGl_string2672z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1169); 
FAILURE(BgL_auxz00_5939,BFALSE,BFALSE);} 
BgL_tmpz00_5936 = 
CDR(BgL_pairz00_2095); } 
BgL_test3525z00_5935 = 
NULLP(BgL_tmpz00_5936); } 
if(BgL_test3525z00_5935)
{ /* Ieee/pairlist.scm 819 */
{ /* Ieee/pairlist.scm 821 */
 obj_t BgL_pairz00_2096;
if(
PAIRP(BgL_lz00_1169))
{ /* Ieee/pairlist.scm 821 */
BgL_pairz00_2096 = BgL_lz00_1169; }  else 
{ 
 obj_t BgL_auxz00_5947;
BgL_auxz00_5947 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32602L), BGl_string2672z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1169); 
FAILURE(BgL_auxz00_5947,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_2096, BgL_rz00_1170); } 
BgL_aux2391z00_3062 = BgL_lz00_1169; }  else 
{ /* Ieee/pairlist.scm 823 */
 obj_t BgL_cdrlz00_1174;
{ /* Ieee/pairlist.scm 823 */
 obj_t BgL_pairz00_2097;
if(
PAIRP(BgL_lz00_1169))
{ /* Ieee/pairlist.scm 823 */
BgL_pairz00_2097 = BgL_lz00_1169; }  else 
{ 
 obj_t BgL_auxz00_5954;
BgL_auxz00_5954 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32651L), BGl_string2672z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1169); 
FAILURE(BgL_auxz00_5954,BFALSE,BFALSE);} 
BgL_cdrlz00_1174 = 
CDR(BgL_pairz00_2097); } 
{ /* Ieee/pairlist.scm 825 */
 obj_t BgL_arg1522z00_1175;
{ /* Ieee/pairlist.scm 825 */
 obj_t BgL_pairz00_2098;
if(
PAIRP(BgL_lz00_1169))
{ /* Ieee/pairlist.scm 825 */
BgL_pairz00_2098 = BgL_lz00_1169; }  else 
{ 
 obj_t BgL_auxz00_5961;
BgL_auxz00_5961 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32692L), BGl_string2672z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1169); 
FAILURE(BgL_auxz00_5961,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_2098, BgL_rz00_1170); } 
BgL_arg1522z00_1175 = BgL_lz00_1169; 
{ 
 obj_t BgL_rz00_5967; obj_t BgL_lz00_5966;
BgL_lz00_5966 = BgL_cdrlz00_1174; 
BgL_rz00_5967 = BgL_arg1522z00_1175; 
BgL_rz00_1170 = BgL_rz00_5967; 
BgL_lz00_1169 = BgL_lz00_5966; 
goto BgL_zc3z04anonymousza31519ze3z87_1171;} } } } 
{ /* Ieee/pairlist.scm 817 */
 bool_t BgL_test3530z00_5968;
if(
PAIRP(BgL_aux2391z00_3062))
{ /* Ieee/pairlist.scm 241 */
BgL_test3530z00_5968 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3530z00_5968 = 
NULLP(BgL_aux2391z00_3062)
; } 
if(BgL_test3530z00_5968)
{ /* Ieee/pairlist.scm 817 */
return BgL_aux2391z00_3062;}  else 
{ 
 obj_t BgL_auxz00_5972;
BgL_auxz00_5972 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32498L), BGl_string2673z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2391z00_3062); 
FAILURE(BgL_auxz00_5972,BFALSE,BFALSE);} } } } } 

}



/* &reverse! */
obj_t BGl_z62reversez12z70zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2520, obj_t BgL_lz00_2521)
{
{ /* Ieee/pairlist.scm 815 */
{ /* Ieee/pairlist.scm 816 */
 obj_t BgL_auxz00_5976;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2521))
{ /* Ieee/pairlist.scm 816 */
BgL_auxz00_5976 = BgL_lz00_2521
; }  else 
{ 
 obj_t BgL_auxz00_5979;
BgL_auxz00_5979 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32477L), BGl_string2674z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2521); 
FAILURE(BgL_auxz00_5979,BFALSE,BFALSE);} 
return 
bgl_reverse_bang(BgL_auxz00_5976);} } 

}



/* every */
BGL_EXPORTED_DEF obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_104, obj_t BgL_lz00_105)
{
{ /* Ieee/pairlist.scm 831 */
if(
NULLP(BgL_lz00_105))
{ /* Ieee/pairlist.scm 833 */
return BTRUE;}  else 
{ /* Ieee/pairlist.scm 835 */
 bool_t BgL_test3534z00_5986;
{ /* Ieee/pairlist.scm 466 */
 obj_t BgL_tmpz00_5987;
{ /* Ieee/pairlist.scm 835 */
 obj_t BgL_pairz00_2099;
if(
PAIRP(BgL_lz00_105))
{ /* Ieee/pairlist.scm 835 */
BgL_pairz00_2099 = BgL_lz00_105; }  else 
{ 
 obj_t BgL_auxz00_5990;
BgL_auxz00_5990 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33019L), BGl_string2675z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_105); 
FAILURE(BgL_auxz00_5990,BFALSE,BFALSE);} 
BgL_tmpz00_5987 = 
CDR(BgL_pairz00_2099); } 
BgL_test3534z00_5986 = 
NULLP(BgL_tmpz00_5987); } 
if(BgL_test3534z00_5986)
{ /* Ieee/pairlist.scm 836 */
 obj_t BgL_g1025z00_1181;
{ /* Ieee/pairlist.scm 836 */
 obj_t BgL_pairz00_2100;
if(
PAIRP(BgL_lz00_105))
{ /* Ieee/pairlist.scm 836 */
BgL_pairz00_2100 = BgL_lz00_105; }  else 
{ 
 obj_t BgL_auxz00_5998;
BgL_auxz00_5998 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33049L), BGl_string2675z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_105); 
FAILURE(BgL_auxz00_5998,BFALSE,BFALSE);} 
BgL_g1025z00_1181 = 
CAR(BgL_pairz00_2100); } 
{ 
 obj_t BgL_lz00_1183;
{ /* Ieee/pairlist.scm 836 */
 bool_t BgL_tmpz00_6003;
BgL_lz00_1183 = BgL_g1025z00_1181; 
BgL_zc3z04anonymousza31527ze3z87_1184:
{ /* Ieee/pairlist.scm 837 */
 bool_t BgL__ortest_1026z00_1185;
BgL__ortest_1026z00_1185 = 
NULLP(BgL_lz00_1183); 
if(BgL__ortest_1026z00_1185)
{ /* Ieee/pairlist.scm 837 */
BgL_tmpz00_6003 = BgL__ortest_1026z00_1185
; }  else 
{ /* Ieee/pairlist.scm 838 */
 obj_t BgL__andtest_1027z00_1186;
{ /* Ieee/pairlist.scm 838 */
 obj_t BgL_arg1532z00_1188;
{ /* Ieee/pairlist.scm 838 */
 obj_t BgL_pairz00_2101;
if(
PAIRP(BgL_lz00_1183))
{ /* Ieee/pairlist.scm 838 */
BgL_pairz00_2101 = BgL_lz00_1183; }  else 
{ 
 obj_t BgL_auxz00_6008;
BgL_auxz00_6008 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33094L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1183); 
FAILURE(BgL_auxz00_6008,BFALSE,BFALSE);} 
BgL_arg1532z00_1188 = 
CAR(BgL_pairz00_2101); } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_104, 1))
{ /* Ieee/pairlist.scm 838 */
BgL__andtest_1027z00_1186 = 
BGL_PROCEDURE_CALL1(BgL_predz00_104, BgL_arg1532z00_1188); }  else 
{ /* Ieee/pairlist.scm 838 */
FAILURE(BGl_string2667z00zz__r4_pairs_and_lists_6_3z00,BGl_list2676z00zz__r4_pairs_and_lists_6_3z00,BgL_predz00_104);} } 
if(
CBOOL(BgL__andtest_1027z00_1186))
{ /* Ieee/pairlist.scm 838 */
 obj_t BgL_arg1528z00_1187;
{ /* Ieee/pairlist.scm 838 */
 obj_t BgL_pairz00_2102;
if(
PAIRP(BgL_lz00_1183))
{ /* Ieee/pairlist.scm 838 */
BgL_pairz00_2102 = BgL_lz00_1183; }  else 
{ 
 obj_t BgL_auxz00_6024;
BgL_auxz00_6024 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33109L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1183); 
FAILURE(BgL_auxz00_6024,BFALSE,BFALSE);} 
BgL_arg1528z00_1187 = 
CDR(BgL_pairz00_2102); } 
{ 
 obj_t BgL_lz00_6029;
BgL_lz00_6029 = BgL_arg1528z00_1187; 
BgL_lz00_1183 = BgL_lz00_6029; 
goto BgL_zc3z04anonymousza31527ze3z87_1184;} }  else 
{ /* Ieee/pairlist.scm 838 */
BgL_tmpz00_6003 = ((bool_t)0)
; } } } 
return 
BBOOL(BgL_tmpz00_6003);} } }  else 
{ 
 obj_t BgL_lz00_1191;
{ /* Ieee/pairlist.scm 840 */
 bool_t BgL_tmpz00_6031;
BgL_lz00_1191 = BgL_lz00_105; 
BgL_zc3z04anonymousza31533ze3z87_1192:
{ /* Ieee/pairlist.scm 841 */
 bool_t BgL__ortest_1028z00_1193;
{ /* Ieee/pairlist.scm 466 */
 obj_t BgL_tmpz00_6032;
{ /* Ieee/pairlist.scm 841 */
 obj_t BgL_pairz00_2103;
if(
PAIRP(BgL_lz00_1191))
{ /* Ieee/pairlist.scm 841 */
BgL_pairz00_2103 = BgL_lz00_1191; }  else 
{ 
 obj_t BgL_auxz00_6035;
BgL_auxz00_6035 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33173L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1191); 
FAILURE(BgL_auxz00_6035,BFALSE,BFALSE);} 
BgL_tmpz00_6032 = 
CAR(BgL_pairz00_2103); } 
BgL__ortest_1028z00_1193 = 
NULLP(BgL_tmpz00_6032); } 
if(BgL__ortest_1028z00_1193)
{ /* Ieee/pairlist.scm 841 */
BgL_tmpz00_6031 = BgL__ortest_1028z00_1193
; }  else 
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL__andtest_1029z00_1194;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_valz00_3089;
if(
NULLP(BgL_lz00_1191))
{ /* Ieee/pairlist.scm 842 */
BgL_valz00_3089 = BNIL; }  else 
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_head1074z00_1215;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_arg1554z00_1228;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_pairz00_2105;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_pairz00_2104;
if(
PAIRP(BgL_lz00_1191))
{ /* Ieee/pairlist.scm 842 */
BgL_pairz00_2104 = BgL_lz00_1191; }  else 
{ 
 obj_t BgL_auxz00_6046;
BgL_auxz00_6046 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33201L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1191); 
FAILURE(BgL_auxz00_6046,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2408z00_3080;
BgL_aux2408z00_3080 = 
CAR(BgL_pairz00_2104); 
if(
PAIRP(BgL_aux2408z00_3080))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2105 = BgL_aux2408z00_3080; }  else 
{ 
 obj_t BgL_auxz00_6053;
BgL_auxz00_6053 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2408z00_3080); 
FAILURE(BgL_auxz00_6053,BFALSE,BFALSE);} } } 
BgL_arg1554z00_1228 = 
CAR(BgL_pairz00_2105); } 
BgL_head1074z00_1215 = 
MAKE_YOUNG_PAIR(BgL_arg1554z00_1228, BNIL); } 
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_g1077z00_1216;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_pairz00_2106;
if(
PAIRP(BgL_lz00_1191))
{ /* Ieee/pairlist.scm 842 */
BgL_pairz00_2106 = BgL_lz00_1191; }  else 
{ 
 obj_t BgL_auxz00_6061;
BgL_auxz00_6061 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33201L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1191); 
FAILURE(BgL_auxz00_6061,BFALSE,BFALSE);} 
BgL_g1077z00_1216 = 
CDR(BgL_pairz00_2106); } 
{ 
 obj_t BgL_l1072z00_1218; obj_t BgL_tail1075z00_1219;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_aux2414z00_3086;
BgL_l1072z00_1218 = BgL_g1077z00_1216; 
BgL_tail1075z00_1219 = BgL_head1074z00_1215; 
BgL_zc3z04anonymousza31547ze3z87_1220:
if(
PAIRP(BgL_l1072z00_1218))
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_newtail1076z00_1222;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_arg1551z00_1224;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_pairz00_2108;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2412z00_3084;
BgL_aux2412z00_3084 = 
CAR(BgL_l1072z00_1218); 
if(
PAIRP(BgL_aux2412z00_3084))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2108 = BgL_aux2412z00_3084; }  else 
{ 
 obj_t BgL_auxz00_6071;
BgL_auxz00_6071 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2681z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2412z00_3084); 
FAILURE(BgL_auxz00_6071,BFALSE,BFALSE);} } 
BgL_arg1551z00_1224 = 
CAR(BgL_pairz00_2108); } 
BgL_newtail1076z00_1222 = 
MAKE_YOUNG_PAIR(BgL_arg1551z00_1224, BNIL); } 
SET_CDR(BgL_tail1075z00_1219, BgL_newtail1076z00_1222); 
{ 
 obj_t BgL_tail1075z00_6080; obj_t BgL_l1072z00_6078;
BgL_l1072z00_6078 = 
CDR(BgL_l1072z00_1218); 
BgL_tail1075z00_6080 = BgL_newtail1076z00_1222; 
BgL_tail1075z00_1219 = BgL_tail1075z00_6080; 
BgL_l1072z00_1218 = BgL_l1072z00_6078; 
goto BgL_zc3z04anonymousza31547ze3z87_1220;} }  else 
{ /* Ieee/pairlist.scm 842 */
if(
NULLP(BgL_l1072z00_1218))
{ /* Ieee/pairlist.scm 842 */
BgL_aux2414z00_3086 = BgL_head1074z00_1215; }  else 
{ /* Ieee/pairlist.scm 842 */
BgL_aux2414z00_3086 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2682z00zz__r4_pairs_and_lists_6_3z00, BGl_string2600z00zz__r4_pairs_and_lists_6_3z00, BgL_l1072z00_1218, BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33201L)); } } 
{ /* Ieee/pairlist.scm 842 */
 bool_t BgL_test3551z00_6085;
if(
PAIRP(BgL_aux2414z00_3086))
{ /* Ieee/pairlist.scm 241 */
BgL_test3551z00_6085 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3551z00_6085 = 
NULLP(BgL_aux2414z00_3086)
; } 
if(BgL_test3551z00_6085)
{ /* Ieee/pairlist.scm 842 */
BgL_valz00_3089 = BgL_aux2414z00_3086; }  else 
{ 
 obj_t BgL_auxz00_6089;
BgL_auxz00_6089 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33201L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2414z00_3086); 
FAILURE(BgL_auxz00_6089,BFALSE,BFALSE);} } } } } } 
{ /* Ieee/pairlist.scm 842 */
 long BgL_len2416z00_3090;
BgL_len2416z00_3090 = 
(int)(
bgl_list_length(BgL_valz00_3089)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_104, BgL_len2416z00_3090))
{ /* Ieee/pairlist.scm 842 */
BgL__andtest_1029z00_1194 = 
apply(BgL_predz00_104, BgL_valz00_3089); }  else 
{ /* Ieee/pairlist.scm 842 */
FAILURE(BGl_symbol2683z00zz__r4_pairs_and_lists_6_3z00,BGl_string2684z00zz__r4_pairs_and_lists_6_3z00,BGl_list2685z00zz__r4_pairs_and_lists_6_3z00);} } } 
if(
CBOOL(BgL__andtest_1029z00_1194))
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_arg1534z00_1195;
if(
NULLP(BgL_lz00_1191))
{ /* Ieee/pairlist.scm 842 */
BgL_arg1534z00_1195 = BNIL; }  else 
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_head1080z00_1198;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_arg1543z00_1211;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_pairz00_2112;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_pairz00_2111;
if(
PAIRP(BgL_lz00_1191))
{ /* Ieee/pairlist.scm 842 */
BgL_pairz00_2111 = BgL_lz00_1191; }  else 
{ 
 obj_t BgL_auxz00_6106;
BgL_auxz00_6106 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33220L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1191); 
FAILURE(BgL_auxz00_6106,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2419z00_3093;
BgL_aux2419z00_3093 = 
CAR(BgL_pairz00_2111); 
if(
PAIRP(BgL_aux2419z00_3093))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2112 = BgL_aux2419z00_3093; }  else 
{ 
 obj_t BgL_auxz00_6113;
BgL_auxz00_6113 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2419z00_3093); 
FAILURE(BgL_auxz00_6113,BFALSE,BFALSE);} } } 
BgL_arg1543z00_1211 = 
CDR(BgL_pairz00_2112); } 
BgL_head1080z00_1198 = 
MAKE_YOUNG_PAIR(BgL_arg1543z00_1211, BNIL); } 
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_g1083z00_1199;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_pairz00_2113;
if(
PAIRP(BgL_lz00_1191))
{ /* Ieee/pairlist.scm 842 */
BgL_pairz00_2113 = BgL_lz00_1191; }  else 
{ 
 obj_t BgL_auxz00_6121;
BgL_auxz00_6121 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33220L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1191); 
FAILURE(BgL_auxz00_6121,BFALSE,BFALSE);} 
BgL_g1083z00_1199 = 
CDR(BgL_pairz00_2113); } 
{ 
 obj_t BgL_l1078z00_1201; obj_t BgL_tail1081z00_1202;
BgL_l1078z00_1201 = BgL_g1083z00_1199; 
BgL_tail1081z00_1202 = BgL_head1080z00_1198; 
BgL_zc3z04anonymousza31536ze3z87_1203:
if(
PAIRP(BgL_l1078z00_1201))
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_newtail1082z00_1205;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_arg1540z00_1207;
{ /* Ieee/pairlist.scm 842 */
 obj_t BgL_pairz00_2115;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2423z00_3097;
BgL_aux2423z00_3097 = 
CAR(BgL_l1078z00_1201); 
if(
PAIRP(BgL_aux2423z00_3097))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2115 = BgL_aux2423z00_3097; }  else 
{ 
 obj_t BgL_auxz00_6131;
BgL_auxz00_6131 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2788z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2423z00_3097); 
FAILURE(BgL_auxz00_6131,BFALSE,BFALSE);} } 
BgL_arg1540z00_1207 = 
CDR(BgL_pairz00_2115); } 
BgL_newtail1082z00_1205 = 
MAKE_YOUNG_PAIR(BgL_arg1540z00_1207, BNIL); } 
SET_CDR(BgL_tail1081z00_1202, BgL_newtail1082z00_1205); 
{ 
 obj_t BgL_tail1081z00_6140; obj_t BgL_l1078z00_6138;
BgL_l1078z00_6138 = 
CDR(BgL_l1078z00_1201); 
BgL_tail1081z00_6140 = BgL_newtail1082z00_1205; 
BgL_tail1081z00_1202 = BgL_tail1081z00_6140; 
BgL_l1078z00_1201 = BgL_l1078z00_6138; 
goto BgL_zc3z04anonymousza31536ze3z87_1203;} }  else 
{ /* Ieee/pairlist.scm 842 */
if(
NULLP(BgL_l1078z00_1201))
{ /* Ieee/pairlist.scm 842 */
BgL_arg1534z00_1195 = BgL_head1080z00_1198; }  else 
{ /* Ieee/pairlist.scm 842 */
BgL_arg1534z00_1195 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2682z00zz__r4_pairs_and_lists_6_3z00, BGl_string2600z00zz__r4_pairs_and_lists_6_3z00, BgL_l1078z00_1201, BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33220L)); } } } } } 
{ 
 obj_t BgL_lz00_6145;
BgL_lz00_6145 = BgL_arg1534z00_1195; 
BgL_lz00_1191 = BgL_lz00_6145; 
goto BgL_zc3z04anonymousza31533ze3z87_1192;} }  else 
{ /* Ieee/pairlist.scm 842 */
BgL_tmpz00_6031 = ((bool_t)0)
; } } } 
return 
BBOOL(BgL_tmpz00_6031);} } } } 

}



/* &every */
obj_t BGl_z62everyz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2522, obj_t BgL_predz00_2523, obj_t BgL_lz00_2524)
{
{ /* Ieee/pairlist.scm 831 */
{ /* Ieee/pairlist.scm 833 */
 obj_t BgL_auxz00_6147;
if(
PROCEDUREP(BgL_predz00_2523))
{ /* Ieee/pairlist.scm 833 */
BgL_auxz00_6147 = BgL_predz00_2523
; }  else 
{ 
 obj_t BgL_auxz00_6150;
BgL_auxz00_6150 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(32978L), BGl_string2789z00zz__r4_pairs_and_lists_6_3z00, BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_2523); 
FAILURE(BgL_auxz00_6150,BFALSE,BFALSE);} 
return 
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6147, BgL_lz00_2524);} } 

}



/* any */
BGL_EXPORTED_DEF obj_t BGl_anyz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_106, obj_t BgL_lz00_107)
{
{ /* Ieee/pairlist.scm 847 */
if(
NULLP(BgL_lz00_107))
{ /* Ieee/pairlist.scm 849 */
return BFALSE;}  else 
{ /* Ieee/pairlist.scm 851 */
 bool_t BgL_test3564z00_6157;
{ /* Ieee/pairlist.scm 466 */
 obj_t BgL_tmpz00_6158;
{ /* Ieee/pairlist.scm 851 */
 obj_t BgL_pairz00_2118;
if(
PAIRP(BgL_lz00_107))
{ /* Ieee/pairlist.scm 851 */
BgL_pairz00_2118 = BgL_lz00_107; }  else 
{ 
 obj_t BgL_auxz00_6161;
BgL_auxz00_6161 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33541L), BGl_string2790z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_107); 
FAILURE(BgL_auxz00_6161,BFALSE,BFALSE);} 
BgL_tmpz00_6158 = 
CDR(BgL_pairz00_2118); } 
BgL_test3564z00_6157 = 
NULLP(BgL_tmpz00_6158); } 
if(BgL_test3564z00_6157)
{ /* Ieee/pairlist.scm 852 */
 obj_t BgL_g1030z00_1236;
{ /* Ieee/pairlist.scm 852 */
 obj_t BgL_pairz00_2119;
if(
PAIRP(BgL_lz00_107))
{ /* Ieee/pairlist.scm 852 */
BgL_pairz00_2119 = BgL_lz00_107; }  else 
{ 
 obj_t BgL_auxz00_6169;
BgL_auxz00_6169 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33571L), BGl_string2790z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_107); 
FAILURE(BgL_auxz00_6169,BFALSE,BFALSE);} 
BgL_g1030z00_1236 = 
CAR(BgL_pairz00_2119); } 
{ 
 obj_t BgL_lz00_1238;
BgL_lz00_1238 = BgL_g1030z00_1236; 
BgL_zc3z04anonymousza31563ze3z87_1239:
if(
PAIRP(BgL_lz00_1238))
{ /* Ieee/pairlist.scm 854 */
 obj_t BgL__ortest_1032z00_1241;
{ /* Ieee/pairlist.scm 854 */
 obj_t BgL_arg1568z00_1243;
BgL_arg1568z00_1243 = 
CAR(BgL_lz00_1238); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_106, 1))
{ /* Ieee/pairlist.scm 854 */
BgL__ortest_1032z00_1241 = 
BGL_PROCEDURE_CALL1(BgL_predz00_106, BgL_arg1568z00_1243); }  else 
{ /* Ieee/pairlist.scm 854 */
FAILURE(BGl_string2667z00zz__r4_pairs_and_lists_6_3z00,BGl_list2791z00zz__r4_pairs_and_lists_6_3z00,BgL_predz00_106);} } 
if(
CBOOL(BgL__ortest_1032z00_1241))
{ /* Ieee/pairlist.scm 854 */
return BgL__ortest_1032z00_1241;}  else 
{ 
 obj_t BgL_lz00_6186;
BgL_lz00_6186 = 
CDR(BgL_lz00_1238); 
BgL_lz00_1238 = BgL_lz00_6186; 
goto BgL_zc3z04anonymousza31563ze3z87_1239;} }  else 
{ /* Ieee/pairlist.scm 853 */
return BFALSE;} } }  else 
{ 
 obj_t BgL_lz00_1246;
BgL_lz00_1246 = BgL_lz00_107; 
BgL_zc3z04anonymousza31569ze3z87_1247:
{ /* Ieee/pairlist.scm 857 */
 bool_t BgL_test3570z00_6188;
{ /* Ieee/pairlist.scm 229 */
 obj_t BgL_tmpz00_6189;
{ /* Ieee/pairlist.scm 857 */
 obj_t BgL_pairz00_2122;
if(
PAIRP(BgL_lz00_1246))
{ /* Ieee/pairlist.scm 857 */
BgL_pairz00_2122 = BgL_lz00_1246; }  else 
{ 
 obj_t BgL_auxz00_6192;
BgL_auxz00_6192 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33697L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1246); 
FAILURE(BgL_auxz00_6192,BFALSE,BFALSE);} 
BgL_tmpz00_6189 = 
CAR(BgL_pairz00_2122); } 
BgL_test3570z00_6188 = 
PAIRP(BgL_tmpz00_6189); } 
if(BgL_test3570z00_6188)
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL__ortest_1034z00_1249;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_valz00_3120;
if(
NULLP(BgL_lz00_1246))
{ /* Ieee/pairlist.scm 858 */
BgL_valz00_3120 = BNIL; }  else 
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_head1086z00_1270;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_arg1592z00_1283;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_pairz00_2124;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_pairz00_2123;
if(
PAIRP(BgL_lz00_1246))
{ /* Ieee/pairlist.scm 858 */
BgL_pairz00_2123 = BgL_lz00_1246; }  else 
{ 
 obj_t BgL_auxz00_6202;
BgL_auxz00_6202 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33725L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1246); 
FAILURE(BgL_auxz00_6202,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2436z00_3111;
BgL_aux2436z00_3111 = 
CAR(BgL_pairz00_2123); 
if(
PAIRP(BgL_aux2436z00_3111))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2124 = BgL_aux2436z00_3111; }  else 
{ 
 obj_t BgL_auxz00_6209;
BgL_auxz00_6209 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2436z00_3111); 
FAILURE(BgL_auxz00_6209,BFALSE,BFALSE);} } } 
BgL_arg1592z00_1283 = 
CAR(BgL_pairz00_2124); } 
BgL_head1086z00_1270 = 
MAKE_YOUNG_PAIR(BgL_arg1592z00_1283, BNIL); } 
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_g1089z00_1271;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_pairz00_2125;
if(
PAIRP(BgL_lz00_1246))
{ /* Ieee/pairlist.scm 858 */
BgL_pairz00_2125 = BgL_lz00_1246; }  else 
{ 
 obj_t BgL_auxz00_6217;
BgL_auxz00_6217 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33725L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1246); 
FAILURE(BgL_auxz00_6217,BFALSE,BFALSE);} 
BgL_g1089z00_1271 = 
CDR(BgL_pairz00_2125); } 
{ 
 obj_t BgL_l1084z00_1273; obj_t BgL_tail1087z00_1274;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_aux2442z00_3117;
BgL_l1084z00_1273 = BgL_g1089z00_1271; 
BgL_tail1087z00_1274 = BgL_head1086z00_1270; 
BgL_zc3z04anonymousza31584ze3z87_1275:
if(
PAIRP(BgL_l1084z00_1273))
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_newtail1088z00_1277;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_arg1587z00_1279;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_pairz00_2127;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2440z00_3115;
BgL_aux2440z00_3115 = 
CAR(BgL_l1084z00_1273); 
if(
PAIRP(BgL_aux2440z00_3115))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2127 = BgL_aux2440z00_3115; }  else 
{ 
 obj_t BgL_auxz00_6227;
BgL_auxz00_6227 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2794z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2440z00_3115); 
FAILURE(BgL_auxz00_6227,BFALSE,BFALSE);} } 
BgL_arg1587z00_1279 = 
CAR(BgL_pairz00_2127); } 
BgL_newtail1088z00_1277 = 
MAKE_YOUNG_PAIR(BgL_arg1587z00_1279, BNIL); } 
SET_CDR(BgL_tail1087z00_1274, BgL_newtail1088z00_1277); 
{ 
 obj_t BgL_tail1087z00_6236; obj_t BgL_l1084z00_6234;
BgL_l1084z00_6234 = 
CDR(BgL_l1084z00_1273); 
BgL_tail1087z00_6236 = BgL_newtail1088z00_1277; 
BgL_tail1087z00_1274 = BgL_tail1087z00_6236; 
BgL_l1084z00_1273 = BgL_l1084z00_6234; 
goto BgL_zc3z04anonymousza31584ze3z87_1275;} }  else 
{ /* Ieee/pairlist.scm 858 */
if(
NULLP(BgL_l1084z00_1273))
{ /* Ieee/pairlist.scm 858 */
BgL_aux2442z00_3117 = BgL_head1086z00_1270; }  else 
{ /* Ieee/pairlist.scm 858 */
BgL_aux2442z00_3117 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2682z00zz__r4_pairs_and_lists_6_3z00, BGl_string2600z00zz__r4_pairs_and_lists_6_3z00, BgL_l1084z00_1273, BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33725L)); } } 
{ /* Ieee/pairlist.scm 858 */
 bool_t BgL_test3579z00_6241;
if(
PAIRP(BgL_aux2442z00_3117))
{ /* Ieee/pairlist.scm 241 */
BgL_test3579z00_6241 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3579z00_6241 = 
NULLP(BgL_aux2442z00_3117)
; } 
if(BgL_test3579z00_6241)
{ /* Ieee/pairlist.scm 858 */
BgL_valz00_3120 = BgL_aux2442z00_3117; }  else 
{ 
 obj_t BgL_auxz00_6245;
BgL_auxz00_6245 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33725L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2442z00_3117); 
FAILURE(BgL_auxz00_6245,BFALSE,BFALSE);} } } } } } 
{ /* Ieee/pairlist.scm 858 */
 long BgL_len2444z00_3121;
BgL_len2444z00_3121 = 
(int)(
bgl_list_length(BgL_valz00_3120)); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_106, BgL_len2444z00_3121))
{ /* Ieee/pairlist.scm 858 */
BgL__ortest_1034z00_1249 = 
apply(BgL_predz00_106, BgL_valz00_3120); }  else 
{ /* Ieee/pairlist.scm 858 */
FAILURE(BGl_symbol2683z00zz__r4_pairs_and_lists_6_3z00,BGl_string2684z00zz__r4_pairs_and_lists_6_3z00,BGl_list2795z00zz__r4_pairs_and_lists_6_3z00);} } } 
if(
CBOOL(BgL__ortest_1034z00_1249))
{ /* Ieee/pairlist.scm 858 */
return BgL__ortest_1034z00_1249;}  else 
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_arg1573z00_1250;
if(
NULLP(BgL_lz00_1246))
{ /* Ieee/pairlist.scm 858 */
BgL_arg1573z00_1250 = BNIL; }  else 
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_head1092z00_1253;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_arg1581z00_1266;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_pairz00_2131;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_pairz00_2130;
if(
PAIRP(BgL_lz00_1246))
{ /* Ieee/pairlist.scm 858 */
BgL_pairz00_2130 = BgL_lz00_1246; }  else 
{ 
 obj_t BgL_auxz00_6262;
BgL_auxz00_6262 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33744L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1246); 
FAILURE(BgL_auxz00_6262,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2447z00_3124;
BgL_aux2447z00_3124 = 
CAR(BgL_pairz00_2130); 
if(
PAIRP(BgL_aux2447z00_3124))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2131 = BgL_aux2447z00_3124; }  else 
{ 
 obj_t BgL_auxz00_6269;
BgL_auxz00_6269 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2447z00_3124); 
FAILURE(BgL_auxz00_6269,BFALSE,BFALSE);} } } 
BgL_arg1581z00_1266 = 
CDR(BgL_pairz00_2131); } 
BgL_head1092z00_1253 = 
MAKE_YOUNG_PAIR(BgL_arg1581z00_1266, BNIL); } 
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_g1095z00_1254;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_pairz00_2132;
if(
PAIRP(BgL_lz00_1246))
{ /* Ieee/pairlist.scm 858 */
BgL_pairz00_2132 = BgL_lz00_1246; }  else 
{ 
 obj_t BgL_auxz00_6277;
BgL_auxz00_6277 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33744L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1246); 
FAILURE(BgL_auxz00_6277,BFALSE,BFALSE);} 
BgL_g1095z00_1254 = 
CDR(BgL_pairz00_2132); } 
{ 
 obj_t BgL_l1090z00_1256; obj_t BgL_tail1093z00_1257;
BgL_l1090z00_1256 = BgL_g1095z00_1254; 
BgL_tail1093z00_1257 = BgL_head1092z00_1253; 
BgL_zc3z04anonymousza31575ze3z87_1258:
if(
PAIRP(BgL_l1090z00_1256))
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_newtail1094z00_1260;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_arg1578z00_1262;
{ /* Ieee/pairlist.scm 858 */
 obj_t BgL_pairz00_2134;
{ /* Ieee/pairlist.scm 261 */
 obj_t BgL_aux2451z00_3128;
BgL_aux2451z00_3128 = 
CAR(BgL_l1090z00_1256); 
if(
PAIRP(BgL_aux2451z00_3128))
{ /* Ieee/pairlist.scm 261 */
BgL_pairz00_2134 = BgL_aux2451z00_3128; }  else 
{ 
 obj_t BgL_auxz00_6287;
BgL_auxz00_6287 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10711L), BGl_string2865z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2451z00_3128); 
FAILURE(BgL_auxz00_6287,BFALSE,BFALSE);} } 
BgL_arg1578z00_1262 = 
CDR(BgL_pairz00_2134); } 
BgL_newtail1094z00_1260 = 
MAKE_YOUNG_PAIR(BgL_arg1578z00_1262, BNIL); } 
SET_CDR(BgL_tail1093z00_1257, BgL_newtail1094z00_1260); 
{ 
 obj_t BgL_tail1093z00_6296; obj_t BgL_l1090z00_6294;
BgL_l1090z00_6294 = 
CDR(BgL_l1090z00_1256); 
BgL_tail1093z00_6296 = BgL_newtail1094z00_1260; 
BgL_tail1093z00_1257 = BgL_tail1093z00_6296; 
BgL_l1090z00_1256 = BgL_l1090z00_6294; 
goto BgL_zc3z04anonymousza31575ze3z87_1258;} }  else 
{ /* Ieee/pairlist.scm 858 */
if(
NULLP(BgL_l1090z00_1256))
{ /* Ieee/pairlist.scm 858 */
BgL_arg1573z00_1250 = BgL_head1092z00_1253; }  else 
{ /* Ieee/pairlist.scm 858 */
BgL_arg1573z00_1250 = 
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_string2682z00zz__r4_pairs_and_lists_6_3z00, BGl_string2600z00zz__r4_pairs_and_lists_6_3z00, BgL_l1090z00_1256, BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33744L)); } } } } } 
{ 
 obj_t BgL_lz00_6301;
BgL_lz00_6301 = BgL_arg1573z00_1250; 
BgL_lz00_1246 = BgL_lz00_6301; 
goto BgL_zc3z04anonymousza31569ze3z87_1247;} } }  else 
{ /* Ieee/pairlist.scm 857 */
return BFALSE;} } } } } 

}



/* &any */
obj_t BGl_z62anyz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2525, obj_t BgL_predz00_2526, obj_t BgL_lz00_2527)
{
{ /* Ieee/pairlist.scm 847 */
{ /* Ieee/pairlist.scm 849 */
 obj_t BgL_auxz00_6302;
if(
PROCEDUREP(BgL_predz00_2526))
{ /* Ieee/pairlist.scm 849 */
BgL_auxz00_6302 = BgL_predz00_2526
; }  else 
{ 
 obj_t BgL_auxz00_6305;
BgL_auxz00_6305 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(33500L), BGl_string2866z00zz__r4_pairs_and_lists_6_3z00, BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_2526); 
FAILURE(BgL_auxz00_6305,BFALSE,BFALSE);} 
return 
BGl_anyz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6302, BgL_lz00_2527);} } 

}



/* find */
BGL_EXPORTED_DEF obj_t BGl_findz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_108, obj_t BgL_listz00_109)
{
{ /* Ieee/pairlist.scm 863 */
{ /* Ieee/pairlist.scm 864 */
 obj_t BgL_g1035z00_2137;
BgL_g1035z00_2137 = 
BGl_findzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_predz00_108, BgL_listz00_109); 
if(
CBOOL(BgL_g1035z00_2137))
{ /* Ieee/pairlist.scm 864 */
 obj_t BgL_pairz00_2139;
if(
PAIRP(BgL_g1035z00_2137))
{ /* Ieee/pairlist.scm 864 */
BgL_pairz00_2139 = BgL_g1035z00_2137; }  else 
{ 
 obj_t BgL_auxz00_6315;
BgL_auxz00_6315 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(34021L), BGl_string2867z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_g1035z00_2137); 
FAILURE(BgL_auxz00_6315,BFALSE,BFALSE);} 
return 
CAR(BgL_pairz00_2139);}  else 
{ /* Ieee/pairlist.scm 864 */
return BFALSE;} } } 

}



/* &find */
obj_t BGl_z62findz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2528, obj_t BgL_predz00_2529, obj_t BgL_listz00_2530)
{
{ /* Ieee/pairlist.scm 863 */
{ /* Ieee/pairlist.scm 864 */
 obj_t BgL_auxz00_6327; obj_t BgL_auxz00_6320;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2530))
{ /* Ieee/pairlist.scm 864 */
BgL_auxz00_6327 = BgL_listz00_2530
; }  else 
{ 
 obj_t BgL_auxz00_6330;
BgL_auxz00_6330 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(34021L), BGl_string2868z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2530); 
FAILURE(BgL_auxz00_6330,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_predz00_2529))
{ /* Ieee/pairlist.scm 864 */
BgL_auxz00_6320 = BgL_predz00_2529
; }  else 
{ 
 obj_t BgL_auxz00_6323;
BgL_auxz00_6323 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(34021L), BGl_string2868z00zz__r4_pairs_and_lists_6_3z00, BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_2529); 
FAILURE(BgL_auxz00_6323,BFALSE,BFALSE);} 
return 
BGl_findz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6320, BgL_auxz00_6327);} } 

}



/* find-tail */
BGL_EXPORTED_DEF obj_t BGl_findzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_110, obj_t BgL_listz00_111)
{
{ /* Ieee/pairlist.scm 870 */
{ 
 obj_t BgL_listz00_1291;
BgL_listz00_1291 = BgL_listz00_111; 
BgL_zc3z04anonymousza31597ze3z87_1292:
if(
PAIRP(BgL_listz00_1291))
{ /* Ieee/pairlist.scm 873 */
 bool_t BgL_test3596z00_6337;
{ /* Ieee/pairlist.scm 873 */
 obj_t BgL_arg1603z00_1297;
BgL_arg1603z00_1297 = 
CAR(BgL_listz00_1291); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_predz00_110, 1))
{ /* Ieee/pairlist.scm 873 */
BgL_test3596z00_6337 = 
CBOOL(
BGL_PROCEDURE_CALL1(BgL_predz00_110, BgL_arg1603z00_1297))
; }  else 
{ /* Ieee/pairlist.scm 873 */
FAILURE(BGl_string2869z00zz__r4_pairs_and_lists_6_3z00,BGl_list2870z00zz__r4_pairs_and_lists_6_3z00,BgL_predz00_110);} } 
if(BgL_test3596z00_6337)
{ /* Ieee/pairlist.scm 873 */
return BgL_listz00_1291;}  else 
{ 
 obj_t BgL_listz00_6347;
BgL_listz00_6347 = 
CDR(BgL_listz00_1291); 
BgL_listz00_1291 = BgL_listz00_6347; 
goto BgL_zc3z04anonymousza31597ze3z87_1292;} }  else 
{ /* Ieee/pairlist.scm 872 */
return BFALSE;} } } 

}



/* &find-tail */
obj_t BGl_z62findzd2tailzb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2531, obj_t BgL_predz00_2532, obj_t BgL_listz00_2533)
{
{ /* Ieee/pairlist.scm 870 */
{ /* Ieee/pairlist.scm 872 */
 obj_t BgL_auxz00_6356; obj_t BgL_auxz00_6349;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2533))
{ /* Ieee/pairlist.scm 872 */
BgL_auxz00_6356 = BgL_listz00_2533
; }  else 
{ 
 obj_t BgL_auxz00_6359;
BgL_auxz00_6359 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(34349L), BGl_string2873z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2533); 
FAILURE(BgL_auxz00_6359,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_predz00_2532))
{ /* Ieee/pairlist.scm 872 */
BgL_auxz00_6349 = BgL_predz00_2532
; }  else 
{ 
 obj_t BgL_auxz00_6352;
BgL_auxz00_6352 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(34349L), BGl_string2873z00zz__r4_pairs_and_lists_6_3z00, BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_predz00_2532); 
FAILURE(BgL_auxz00_6352,BFALSE,BFALSE);} 
return 
BGl_findzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6349, BgL_auxz00_6356);} } 

}



/* reduce */
BGL_EXPORTED_DEF obj_t BGl_reducez00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_fz00_112, obj_t BgL_ridentifyz00_113, obj_t BgL_listz00_114)
{
{ /* Ieee/pairlist.scm 880 */
if(
NULLP(BgL_listz00_114))
{ /* Ieee/pairlist.scm 881 */
return BgL_ridentifyz00_113;}  else 
{ /* Ieee/pairlist.scm 883 */
 obj_t BgL_g1037z00_1300; obj_t BgL_g1038z00_1301;
BgL_g1037z00_1300 = 
CDR(BgL_listz00_114); 
BgL_g1038z00_1301 = 
CAR(BgL_listz00_114); 
{ 
 obj_t BgL_listz00_2157; obj_t BgL_ansz00_2158;
BgL_listz00_2157 = BgL_g1037z00_1300; 
BgL_ansz00_2158 = BgL_g1038z00_1301; 
BgL_loopz00_2156:
if(
PAIRP(BgL_listz00_2157))
{ /* Ieee/pairlist.scm 887 */
 obj_t BgL_arg1608z00_2164; obj_t BgL_arg1609z00_2165;
BgL_arg1608z00_2164 = 
CDR(BgL_listz00_2157); 
{ /* Ieee/pairlist.scm 887 */
 obj_t BgL_arg1610z00_2166;
BgL_arg1610z00_2166 = 
CAR(BgL_listz00_2157); 
if(
PROCEDURE_CORRECT_ARITYP(BgL_fz00_112, 2))
{ /* Ieee/pairlist.scm 887 */
BgL_arg1609z00_2165 = 
BGL_PROCEDURE_CALL2(BgL_fz00_112, BgL_arg1610z00_2166, BgL_ansz00_2158); }  else 
{ /* Ieee/pairlist.scm 887 */
FAILURE(BGl_string2667z00zz__r4_pairs_and_lists_6_3z00,BGl_list2874z00zz__r4_pairs_and_lists_6_3z00,BgL_fz00_112);} } 
{ 
 obj_t BgL_ansz00_6381; obj_t BgL_listz00_6380;
BgL_listz00_6380 = BgL_arg1608z00_2164; 
BgL_ansz00_6381 = BgL_arg1609z00_2165; 
BgL_ansz00_2158 = BgL_ansz00_6381; 
BgL_listz00_2157 = BgL_listz00_6380; 
goto BgL_loopz00_2156;} }  else 
{ /* Ieee/pairlist.scm 885 */
return BgL_ansz00_2158;} } } } 

}



/* &reduce */
obj_t BGl_z62reducez62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2534, obj_t BgL_fz00_2535, obj_t BgL_ridentifyz00_2536, obj_t BgL_listz00_2537)
{
{ /* Ieee/pairlist.scm 880 */
{ /* Ieee/pairlist.scm 881 */
 obj_t BgL_auxz00_6389; obj_t BgL_auxz00_6382;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2537))
{ /* Ieee/pairlist.scm 881 */
BgL_auxz00_6389 = BgL_listz00_2537
; }  else 
{ 
 obj_t BgL_auxz00_6392;
BgL_auxz00_6392 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(34689L), BGl_string2881z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_listz00_2537); 
FAILURE(BgL_auxz00_6392,BFALSE,BFALSE);} 
if(
PROCEDUREP(BgL_fz00_2535))
{ /* Ieee/pairlist.scm 881 */
BgL_auxz00_6382 = BgL_fz00_2535
; }  else 
{ 
 obj_t BgL_auxz00_6385;
BgL_auxz00_6385 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(34689L), BGl_string2881z00zz__r4_pairs_and_lists_6_3z00, BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_fz00_2535); 
FAILURE(BgL_auxz00_6385,BFALSE,BFALSE);} 
return 
BGl_reducez00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6382, BgL_ridentifyz00_2536, BgL_auxz00_6389);} } 

}



/* make-list */
BGL_EXPORTED_DEF obj_t BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(int BgL_nz00_115, obj_t BgL_oz00_116)
{
{ /* Ieee/pairlist.scm 892 */
{ /* Ieee/pairlist.scm 893 */
 obj_t BgL_fillz00_1311;
if(
PAIRP(BgL_oz00_116))
{ /* Ieee/pairlist.scm 893 */
BgL_fillz00_1311 = 
CAR(BgL_oz00_116); }  else 
{ /* Ieee/pairlist.scm 893 */
BgL_fillz00_1311 = BUNSPEC; } 
{ 
 int BgL_iz00_2181; obj_t BgL_rz00_2182;
BgL_iz00_2181 = BgL_nz00_115; 
BgL_rz00_2182 = BNIL; 
BgL_walkz00_2180:
if(
(
(long)(BgL_iz00_2181)<=0L))
{ /* Ieee/pairlist.scm 895 */
return BgL_rz00_2182;}  else 
{ /* Ieee/pairlist.scm 897 */
 long BgL_arg1613z00_2187; obj_t BgL_arg1614z00_2188;
BgL_arg1613z00_2187 = 
(
(long)(BgL_iz00_2181)-1L); 
BgL_arg1614z00_2188 = 
MAKE_YOUNG_PAIR(BgL_fillz00_1311, BgL_rz00_2182); 
{ 
 obj_t BgL_rz00_6408; int BgL_iz00_6406;
BgL_iz00_6406 = 
(int)(BgL_arg1613z00_2187); 
BgL_rz00_6408 = BgL_arg1614z00_2188; 
BgL_rz00_2182 = BgL_rz00_6408; 
BgL_iz00_2181 = BgL_iz00_6406; 
goto BgL_walkz00_2180;} } } } } 

}



/* &make-list */
obj_t BGl_z62makezd2listzb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2538, obj_t BgL_nz00_2539, obj_t BgL_oz00_2540)
{
{ /* Ieee/pairlist.scm 892 */
{ /* Ieee/pairlist.scm 893 */
 int BgL_auxz00_6409;
{ /* Ieee/pairlist.scm 893 */
 obj_t BgL_tmpz00_6410;
if(
INTEGERP(BgL_nz00_2539))
{ /* Ieee/pairlist.scm 893 */
BgL_tmpz00_6410 = BgL_nz00_2539
; }  else 
{ 
 obj_t BgL_auxz00_6413;
BgL_auxz00_6413 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(35118L), BGl_string2882z00zz__r4_pairs_and_lists_6_3z00, BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_nz00_2539); 
FAILURE(BgL_auxz00_6413,BFALSE,BFALSE);} 
BgL_auxz00_6409 = 
CINT(BgL_tmpz00_6410); } 
return 
BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6409, BgL_oz00_2540);} } 

}



/* list-tabulate */
BGL_EXPORTED_DEF obj_t BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(int BgL_nz00_117, obj_t BgL_initzd2proczd2_118)
{
{ /* Ieee/pairlist.scm 902 */
{ /* Ieee/pairlist.scm 903 */
 long BgL_g1040z00_1322;
BgL_g1040z00_1322 = 
(
(long)(BgL_nz00_117)-1L); 
{ 
 long BgL_iz00_1325; obj_t BgL_rz00_1326;
BgL_iz00_1325 = BgL_g1040z00_1322; 
BgL_rz00_1326 = BNIL; 
BgL_zc3z04anonymousza31616ze3z87_1327:
if(
(BgL_iz00_1325<0L))
{ /* Ieee/pairlist.scm 904 */
return BgL_rz00_1326;}  else 
{ /* Ieee/pairlist.scm 906 */
 long BgL_arg1619z00_1329; obj_t BgL_arg1620z00_1330;
BgL_arg1619z00_1329 = 
(BgL_iz00_1325-1L); 
{ /* Ieee/pairlist.scm 906 */
 obj_t BgL_arg1621z00_1331;
if(
PROCEDURE_CORRECT_ARITYP(BgL_initzd2proczd2_118, 1))
{ /* Ieee/pairlist.scm 906 */
BgL_arg1621z00_1331 = 
BGL_PROCEDURE_CALL1(BgL_initzd2proczd2_118, 
BINT(BgL_iz00_1325)); }  else 
{ /* Ieee/pairlist.scm 906 */
FAILURE(BGl_string2883z00zz__r4_pairs_and_lists_6_3z00,BGl_list2884z00zz__r4_pairs_and_lists_6_3z00,BgL_initzd2proczd2_118);} 
BgL_arg1620z00_1330 = 
MAKE_YOUNG_PAIR(BgL_arg1621z00_1331, BgL_rz00_1326); } 
{ 
 obj_t BgL_rz00_6434; long BgL_iz00_6433;
BgL_iz00_6433 = BgL_arg1619z00_1329; 
BgL_rz00_6434 = BgL_arg1620z00_1330; 
BgL_rz00_1326 = BgL_rz00_6434; 
BgL_iz00_1325 = BgL_iz00_6433; 
goto BgL_zc3z04anonymousza31616ze3z87_1327;} } } } } 

}



/* &list-tabulate */
obj_t BGl_z62listzd2tabulatezb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2541, obj_t BgL_nz00_2542, obj_t BgL_initzd2proczd2_2543)
{
{ /* Ieee/pairlist.scm 902 */
{ /* Ieee/pairlist.scm 903 */
 obj_t BgL_auxz00_6444; int BgL_auxz00_6435;
if(
PROCEDUREP(BgL_initzd2proczd2_2543))
{ /* Ieee/pairlist.scm 903 */
BgL_auxz00_6444 = BgL_initzd2proczd2_2543
; }  else 
{ 
 obj_t BgL_auxz00_6447;
BgL_auxz00_6447 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(35529L), BGl_string2889z00zz__r4_pairs_and_lists_6_3z00, BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_initzd2proczd2_2543); 
FAILURE(BgL_auxz00_6447,BFALSE,BFALSE);} 
{ /* Ieee/pairlist.scm 903 */
 obj_t BgL_tmpz00_6436;
if(
INTEGERP(BgL_nz00_2542))
{ /* Ieee/pairlist.scm 903 */
BgL_tmpz00_6436 = BgL_nz00_2542
; }  else 
{ 
 obj_t BgL_auxz00_6439;
BgL_auxz00_6439 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(35529L), BGl_string2889z00zz__r4_pairs_and_lists_6_3z00, BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_nz00_2542); 
FAILURE(BgL_auxz00_6439,BFALSE,BFALSE);} 
BgL_auxz00_6435 = 
CINT(BgL_tmpz00_6436); } 
return 
BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6435, BgL_auxz00_6444);} } 

}



/* list-split */
BGL_EXPORTED_DEF obj_t BGl_listzd2splitzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_119, int BgL_numz00_120, obj_t BgL_fillz00_121)
{
{ /* Ieee/pairlist.scm 911 */
{ 
 obj_t BgL_lz00_1336; long BgL_iz00_1337; obj_t BgL_accz00_1338; obj_t BgL_resz00_1339;
BgL_lz00_1336 = BgL_lz00_119; 
BgL_iz00_1337 = 0L; 
BgL_accz00_1338 = BNIL; 
BgL_resz00_1339 = BNIL; 
BgL_zc3z04anonymousza31622ze3z87_1340:
if(
NULLP(BgL_lz00_1336))
{ /* Ieee/pairlist.scm 918 */
 obj_t BgL_arg1624z00_1342;
{ /* Ieee/pairlist.scm 918 */
 obj_t BgL_arg1625z00_1343;
{ /* Ieee/pairlist.scm 918 */
 bool_t BgL_test3613z00_6454;
if(
NULLP(BgL_fillz00_121))
{ /* Ieee/pairlist.scm 918 */
BgL_test3613z00_6454 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 918 */
if(
(BgL_iz00_1337==
(long)(BgL_numz00_120)))
{ /* Ieee/pairlist.scm 918 */
BgL_test3613z00_6454 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 918 */
BgL_test3613z00_6454 = 
(BgL_iz00_1337==0L)
; } } 
if(BgL_test3613z00_6454)
{ /* Ieee/pairlist.scm 918 */
BgL_arg1625z00_1343 = 
bgl_reverse_bang(BgL_accz00_1338); }  else 
{ /* Ieee/pairlist.scm 920 */
 obj_t BgL_arg1629z00_1347; obj_t BgL_arg1630z00_1348;
BgL_arg1629z00_1347 = 
bgl_reverse_bang(BgL_accz00_1338); 
{ /* Ieee/pairlist.scm 921 */
 long BgL_arg1631z00_1349; obj_t BgL_arg1632z00_1350;
BgL_arg1631z00_1349 = 
(
(long)(BgL_numz00_120)-BgL_iz00_1337); 
{ /* Ieee/pairlist.scm 921 */
 obj_t BgL_pairz00_2199;
if(
PAIRP(BgL_fillz00_121))
{ /* Ieee/pairlist.scm 921 */
BgL_pairz00_2199 = BgL_fillz00_121; }  else 
{ 
 obj_t BgL_auxz00_6467;
BgL_auxz00_6467 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(36143L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_fillz00_121); 
FAILURE(BgL_auxz00_6467,BFALSE,BFALSE);} 
BgL_arg1632z00_1350 = 
CAR(BgL_pairz00_2199); } 
{ /* Ieee/pairlist.scm 921 */
 obj_t BgL_list1633z00_1351;
BgL_list1633z00_1351 = 
MAKE_YOUNG_PAIR(BgL_arg1632z00_1350, BNIL); 
BgL_arg1630z00_1348 = 
BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(
(int)(BgL_arg1631z00_1349), BgL_list1633z00_1351); } } 
BgL_arg1625z00_1343 = 
BGl_appendzd22z12zc0zz__r4_pairs_and_lists_6_3z00(BgL_arg1629z00_1347, BgL_arg1630z00_1348); } } 
BgL_arg1624z00_1342 = 
MAKE_YOUNG_PAIR(BgL_arg1625z00_1343, BgL_resz00_1339); } 
return 
bgl_reverse_bang(BgL_arg1624z00_1342);}  else 
{ /* Ieee/pairlist.scm 917 */
if(
(BgL_iz00_1337==
(long)(BgL_numz00_120)))
{ /* Ieee/pairlist.scm 924 */
 obj_t BgL_arg1635z00_1355;
BgL_arg1635z00_1355 = 
MAKE_YOUNG_PAIR(
bgl_reverse_bang(BgL_accz00_1338), BgL_resz00_1339); 
{ 
 obj_t BgL_resz00_6485; obj_t BgL_accz00_6484; long BgL_iz00_6483;
BgL_iz00_6483 = 0L; 
BgL_accz00_6484 = BNIL; 
BgL_resz00_6485 = BgL_arg1635z00_1355; 
BgL_resz00_1339 = BgL_resz00_6485; 
BgL_accz00_1338 = BgL_accz00_6484; 
BgL_iz00_1337 = BgL_iz00_6483; 
goto BgL_zc3z04anonymousza31622ze3z87_1340;} }  else 
{ /* Ieee/pairlist.scm 926 */
 obj_t BgL_arg1637z00_1357; long BgL_arg1639z00_1358; obj_t BgL_arg1641z00_1359;
{ /* Ieee/pairlist.scm 926 */
 obj_t BgL_pairz00_2202;
if(
PAIRP(BgL_lz00_1336))
{ /* Ieee/pairlist.scm 926 */
BgL_pairz00_2202 = BgL_lz00_1336; }  else 
{ 
 obj_t BgL_auxz00_6488;
BgL_auxz00_6488 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(36246L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1336); 
FAILURE(BgL_auxz00_6488,BFALSE,BFALSE);} 
BgL_arg1637z00_1357 = 
CDR(BgL_pairz00_2202); } 
BgL_arg1639z00_1358 = 
(BgL_iz00_1337+1L); 
{ /* Ieee/pairlist.scm 926 */
 obj_t BgL_arg1642z00_1360;
{ /* Ieee/pairlist.scm 926 */
 obj_t BgL_pairz00_2204;
if(
PAIRP(BgL_lz00_1336))
{ /* Ieee/pairlist.scm 926 */
BgL_pairz00_2204 = BgL_lz00_1336; }  else 
{ 
 obj_t BgL_auxz00_6496;
BgL_auxz00_6496 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(36270L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1336); 
FAILURE(BgL_auxz00_6496,BFALSE,BFALSE);} 
BgL_arg1642z00_1360 = 
CAR(BgL_pairz00_2204); } 
BgL_arg1641z00_1359 = 
MAKE_YOUNG_PAIR(BgL_arg1642z00_1360, BgL_accz00_1338); } 
{ 
 obj_t BgL_accz00_6504; long BgL_iz00_6503; obj_t BgL_lz00_6502;
BgL_lz00_6502 = BgL_arg1637z00_1357; 
BgL_iz00_6503 = BgL_arg1639z00_1358; 
BgL_accz00_6504 = BgL_arg1641z00_1359; 
BgL_accz00_1338 = BgL_accz00_6504; 
BgL_iz00_1337 = BgL_iz00_6503; 
BgL_lz00_1336 = BgL_lz00_6502; 
goto BgL_zc3z04anonymousza31622ze3z87_1340;} } } } } 

}



/* &list-split */
obj_t BGl_z62listzd2splitzb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2544, obj_t BgL_lz00_2545, obj_t BgL_numz00_2546, obj_t BgL_fillz00_2547)
{
{ /* Ieee/pairlist.scm 911 */
{ /* Ieee/pairlist.scm 917 */
 int BgL_auxz00_6512; obj_t BgL_auxz00_6505;
{ /* Ieee/pairlist.scm 917 */
 obj_t BgL_tmpz00_6513;
if(
INTEGERP(BgL_numz00_2546))
{ /* Ieee/pairlist.scm 917 */
BgL_tmpz00_6513 = BgL_numz00_2546
; }  else 
{ 
 obj_t BgL_auxz00_6516;
BgL_auxz00_6516 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(35973L), BGl_string2890z00zz__r4_pairs_and_lists_6_3z00, BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_numz00_2546); 
FAILURE(BgL_auxz00_6516,BFALSE,BFALSE);} 
BgL_auxz00_6512 = 
CINT(BgL_tmpz00_6513); } 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2545))
{ /* Ieee/pairlist.scm 917 */
BgL_auxz00_6505 = BgL_lz00_2545
; }  else 
{ 
 obj_t BgL_auxz00_6508;
BgL_auxz00_6508 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(35973L), BGl_string2890z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2545); 
FAILURE(BgL_auxz00_6508,BFALSE,BFALSE);} 
return 
BGl_listzd2splitzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6505, BgL_auxz00_6512, BgL_fillz00_2547);} } 

}



/* list-split! */
BGL_EXPORTED_DEF obj_t BGl_listzd2splitz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_122, int BgL_numz00_123, obj_t BgL_fillz00_124)
{
{ /* Ieee/pairlist.scm 931 */
{ 
 obj_t BgL_lz00_1364; long BgL_iz00_1365; obj_t BgL_lastz00_1366; obj_t BgL_accz00_1367; obj_t BgL_rowsz00_1368;
BgL_lz00_1364 = BgL_lz00_122; 
BgL_iz00_1365 = 0L; 
BgL_lastz00_1366 = BFALSE; 
BgL_accz00_1367 = BgL_lz00_122; 
BgL_rowsz00_1368 = BNIL; 
BgL_zc3z04anonymousza31643ze3z87_1369:
if(
NULLP(BgL_lz00_1364))
{ /* Ieee/pairlist.scm 939 */
 obj_t BgL_lrowz00_1371;
{ /* Ieee/pairlist.scm 939 */
 bool_t BgL_test3623z00_6524;
if(
NULLP(BgL_fillz00_124))
{ /* Ieee/pairlist.scm 939 */
BgL_test3623z00_6524 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 939 */
if(
(BgL_iz00_1365==
(long)(BgL_numz00_123)))
{ /* Ieee/pairlist.scm 939 */
BgL_test3623z00_6524 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 939 */
BgL_test3623z00_6524 = 
(BgL_iz00_1365==0L)
; } } 
if(BgL_test3623z00_6524)
{ /* Ieee/pairlist.scm 939 */
BgL_lrowz00_1371 = BgL_accz00_1367; }  else 
{ /* Ieee/pairlist.scm 939 */
{ /* Ieee/pairlist.scm 943 */
 obj_t BgL_arg1649z00_1376;
{ /* Ieee/pairlist.scm 943 */
 long BgL_arg1651z00_1377; obj_t BgL_arg1652z00_1378;
BgL_arg1651z00_1377 = 
(
(long)(BgL_numz00_123)-BgL_iz00_1365); 
{ /* Ieee/pairlist.scm 943 */
 obj_t BgL_pairz00_2210;
if(
PAIRP(BgL_fillz00_124))
{ /* Ieee/pairlist.scm 943 */
BgL_pairz00_2210 = BgL_fillz00_124; }  else 
{ 
 obj_t BgL_auxz00_6535;
BgL_auxz00_6535 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(36796L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_fillz00_124); 
FAILURE(BgL_auxz00_6535,BFALSE,BFALSE);} 
BgL_arg1652z00_1378 = 
CAR(BgL_pairz00_2210); } 
{ /* Ieee/pairlist.scm 943 */
 obj_t BgL_list1653z00_1379;
BgL_list1653z00_1379 = 
MAKE_YOUNG_PAIR(BgL_arg1652z00_1378, BNIL); 
BgL_arg1649z00_1376 = 
BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(
(int)(BgL_arg1651z00_1377), BgL_list1653z00_1379); } } 
{ /* Ieee/pairlist.scm 942 */
 obj_t BgL_pairz00_2211;
if(
PAIRP(BgL_lastz00_1366))
{ /* Ieee/pairlist.scm 942 */
BgL_pairz00_2211 = BgL_lastz00_1366; }  else 
{ 
 obj_t BgL_auxz00_6545;
BgL_auxz00_6545 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(36752L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lastz00_1366); 
FAILURE(BgL_auxz00_6545,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_2211, BgL_arg1649z00_1376); } } 
BgL_lrowz00_1371 = BgL_accz00_1367; } } 
{ /* Ieee/pairlist.scm 945 */
 obj_t BgL_arg1645z00_1372;
BgL_arg1645z00_1372 = 
MAKE_YOUNG_PAIR(BgL_lrowz00_1371, BgL_rowsz00_1368); 
return 
bgl_reverse_bang(BgL_arg1645z00_1372);} }  else 
{ /* Ieee/pairlist.scm 938 */
if(
(BgL_iz00_1365==
(long)(BgL_numz00_123)))
{ /* Ieee/pairlist.scm 946 */
{ /* Ieee/pairlist.scm 947 */
 obj_t BgL_pairz00_2214;
if(
PAIRP(BgL_lastz00_1366))
{ /* Ieee/pairlist.scm 947 */
BgL_pairz00_2214 = BgL_lastz00_1366; }  else 
{ 
 obj_t BgL_auxz00_6557;
BgL_auxz00_6557 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(36884L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lastz00_1366); 
FAILURE(BgL_auxz00_6557,BFALSE,BFALSE);} 
SET_CDR(BgL_pairz00_2214, BNIL); } 
{ /* Ieee/pairlist.scm 948 */
 obj_t BgL_arg1655z00_1383;
BgL_arg1655z00_1383 = 
MAKE_YOUNG_PAIR(BgL_accz00_1367, BgL_rowsz00_1368); 
{ 
 obj_t BgL_rowsz00_6566; obj_t BgL_accz00_6565; obj_t BgL_lastz00_6564; long BgL_iz00_6563;
BgL_iz00_6563 = 0L; 
BgL_lastz00_6564 = BgL_lz00_1364; 
BgL_accz00_6565 = BgL_lz00_1364; 
BgL_rowsz00_6566 = BgL_arg1655z00_1383; 
BgL_rowsz00_1368 = BgL_rowsz00_6566; 
BgL_accz00_1367 = BgL_accz00_6565; 
BgL_lastz00_1366 = BgL_lastz00_6564; 
BgL_iz00_1365 = BgL_iz00_6563; 
goto BgL_zc3z04anonymousza31643ze3z87_1369;} } }  else 
{ /* Ieee/pairlist.scm 950 */
 obj_t BgL_arg1658z00_1384; long BgL_arg1659z00_1385;
{ /* Ieee/pairlist.scm 950 */
 obj_t BgL_pairz00_2215;
if(
PAIRP(BgL_lz00_1364))
{ /* Ieee/pairlist.scm 950 */
BgL_pairz00_2215 = BgL_lz00_1364; }  else 
{ 
 obj_t BgL_auxz00_6569;
BgL_auxz00_6569 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(36951L), BGl_string2603z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_1364); 
FAILURE(BgL_auxz00_6569,BFALSE,BFALSE);} 
BgL_arg1658z00_1384 = 
CDR(BgL_pairz00_2215); } 
BgL_arg1659z00_1385 = 
(BgL_iz00_1365+1L); 
{ 
 obj_t BgL_lastz00_6577; long BgL_iz00_6576; obj_t BgL_lz00_6575;
BgL_lz00_6575 = BgL_arg1658z00_1384; 
BgL_iz00_6576 = BgL_arg1659z00_1385; 
BgL_lastz00_6577 = BgL_lz00_1364; 
BgL_lastz00_1366 = BgL_lastz00_6577; 
BgL_iz00_1365 = BgL_iz00_6576; 
BgL_lz00_1364 = BgL_lz00_6575; 
goto BgL_zc3z04anonymousza31643ze3z87_1369;} } } } } 

}



/* &list-split! */
obj_t BGl_z62listzd2splitz12za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2548, obj_t BgL_lz00_2549, obj_t BgL_numz00_2550, obj_t BgL_fillz00_2551)
{
{ /* Ieee/pairlist.scm 931 */
{ /* Ieee/pairlist.scm 938 */
 int BgL_auxz00_6585; obj_t BgL_auxz00_6578;
{ /* Ieee/pairlist.scm 938 */
 obj_t BgL_tmpz00_6586;
if(
INTEGERP(BgL_numz00_2550))
{ /* Ieee/pairlist.scm 938 */
BgL_tmpz00_6586 = BgL_numz00_2550
; }  else 
{ 
 obj_t BgL_auxz00_6589;
BgL_auxz00_6589 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(36643L), BGl_string2891z00zz__r4_pairs_and_lists_6_3z00, BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_numz00_2550); 
FAILURE(BgL_auxz00_6589,BFALSE,BFALSE);} 
BgL_auxz00_6585 = 
CINT(BgL_tmpz00_6586); } 
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2549))
{ /* Ieee/pairlist.scm 938 */
BgL_auxz00_6578 = BgL_lz00_2549
; }  else 
{ 
 obj_t BgL_auxz00_6581;
BgL_auxz00_6581 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(36643L), BGl_string2891z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2549); 
FAILURE(BgL_auxz00_6581,BFALSE,BFALSE);} 
return 
BGl_listzd2splitz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6578, BgL_auxz00_6585, BgL_fillz00_2551);} } 

}



/* iota */
BGL_EXPORTED_DEF obj_t BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(int BgL_countz00_125, obj_t BgL_restz00_126)
{
{ /* Ieee/pairlist.scm 955 */
{ /* Ieee/pairlist.scm 956 */
 obj_t BgL_startz00_1387; obj_t BgL_stepz00_1388;
BgL_startz00_1387 = 
BINT(0L); 
BgL_stepz00_1388 = 
BINT(1L); 
if(
PAIRP(BgL_restz00_126))
{ /* Ieee/pairlist.scm 958 */
BgL_startz00_1387 = 
CAR(BgL_restz00_126); 
{ /* Ieee/pairlist.scm 961 */
 bool_t BgL_test3634z00_6600;
{ /* Ieee/pairlist.scm 229 */
 obj_t BgL_tmpz00_6601;
BgL_tmpz00_6601 = 
CDR(BgL_restz00_126); 
BgL_test3634z00_6600 = 
PAIRP(BgL_tmpz00_6601); } 
if(BgL_test3634z00_6600)
{ /* Ieee/pairlist.scm 285 */
 obj_t BgL_pairz00_2222;
{ /* Ieee/pairlist.scm 267 */
 obj_t BgL_aux2496z00_3176;
BgL_aux2496z00_3176 = 
CDR(BgL_restz00_126); 
if(
PAIRP(BgL_aux2496z00_3176))
{ /* Ieee/pairlist.scm 267 */
BgL_pairz00_2222 = BgL_aux2496z00_3176; }  else 
{ 
 obj_t BgL_auxz00_6607;
BgL_auxz00_6607 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(10976L), BGl_string2892z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_aux2496z00_3176); 
FAILURE(BgL_auxz00_6607,BFALSE,BFALSE);} } 
BgL_stepz00_1388 = 
CAR(BgL_pairz00_2222); }  else 
{ /* Ieee/pairlist.scm 961 */BFALSE; } } }  else 
{ /* Ieee/pairlist.scm 958 */BFALSE; } 
{ /* Ieee/pairlist.scm 963 */
 obj_t BgL_g1045z00_1393;
{ /* Ieee/pairlist.scm 963 */
 obj_t BgL_b1097z00_1406;
{ /* Ieee/pairlist.scm 963 */
 obj_t BgL_a1096z00_1408;
{ /* Ieee/pairlist.scm 963 */
 obj_t BgL_za71za7_2223;
BgL_za71za7_2223 = 
BINT(BgL_countz00_125); 
{ /* Ieee/pairlist.scm 963 */
 obj_t BgL_tmpz00_2225;
BgL_tmpz00_2225 = 
BINT(0L); 
{ /* Ieee/pairlist.scm 963 */
 bool_t BgL_test3636z00_6614;
{ /* Ieee/pairlist.scm 963 */
 obj_t BgL_tmpz00_6615;
BgL_tmpz00_6615 = 
BINT(1L); 
BgL_test3636z00_6614 = 
BGL_SUBFX_OV(BgL_za71za7_2223, BgL_tmpz00_6615, BgL_tmpz00_2225); } 
if(BgL_test3636z00_6614)
{ /* Ieee/pairlist.scm 963 */
BgL_a1096z00_1408 = 
bgl_bignum_sub(
bgl_long_to_bignum(
(long)CINT(BgL_za71za7_2223)), 
bgl_long_to_bignum(1L)); }  else 
{ /* Ieee/pairlist.scm 963 */
BgL_a1096z00_1408 = BgL_tmpz00_2225; } } } } 
{ /* Ieee/pairlist.scm 963 */
 bool_t BgL_test3637z00_6622;
if(
INTEGERP(BgL_a1096z00_1408))
{ /* Ieee/pairlist.scm 963 */
BgL_test3637z00_6622 = 
INTEGERP(BgL_stepz00_1388)
; }  else 
{ /* Ieee/pairlist.scm 963 */
BgL_test3637z00_6622 = ((bool_t)0)
; } 
if(BgL_test3637z00_6622)
{ /* Ieee/pairlist.scm 963 */
 obj_t BgL_za72za7_2234;
BgL_za72za7_2234 = BgL_stepz00_1388; 
{ /* Ieee/pairlist.scm 963 */
 obj_t BgL_tmpz00_2235;
BgL_tmpz00_2235 = 
BINT(0L); 
if(
BGL_MULFX_OV(BgL_a1096z00_1408, BgL_za72za7_2234, BgL_tmpz00_2235))
{ /* Ieee/pairlist.scm 963 */
BgL_b1097z00_1406 = 
bgl_bignum_mul(
bgl_long_to_bignum(
(long)CINT(BgL_a1096z00_1408)), 
bgl_long_to_bignum(
(long)CINT(BgL_za72za7_2234))); }  else 
{ /* Ieee/pairlist.scm 963 */
BgL_b1097z00_1406 = BgL_tmpz00_2235; } } }  else 
{ /* Ieee/pairlist.scm 963 */
BgL_b1097z00_1406 = 
BGl_2za2za2zz__r4_numbers_6_5z00(BgL_a1096z00_1408, BgL_stepz00_1388); } } } 
{ /* Ieee/pairlist.scm 963 */
 bool_t BgL_test3640z00_6635;
if(
INTEGERP(BgL_startz00_1387))
{ /* Ieee/pairlist.scm 963 */
BgL_test3640z00_6635 = 
INTEGERP(BgL_b1097z00_1406)
; }  else 
{ /* Ieee/pairlist.scm 963 */
BgL_test3640z00_6635 = ((bool_t)0)
; } 
if(BgL_test3640z00_6635)
{ /* Ieee/pairlist.scm 963 */
 obj_t BgL_za71za7_2243;
BgL_za71za7_2243 = BgL_startz00_1387; 
{ /* Ieee/pairlist.scm 963 */
 obj_t BgL_tmpz00_2245;
BgL_tmpz00_2245 = 
BINT(0L); 
if(
BGL_ADDFX_OV(BgL_za71za7_2243, BgL_b1097z00_1406, BgL_tmpz00_2245))
{ /* Ieee/pairlist.scm 963 */
BgL_g1045z00_1393 = 
bgl_bignum_add(
bgl_long_to_bignum(
(long)CINT(BgL_za71za7_2243)), 
bgl_long_to_bignum(
(long)CINT(BgL_b1097z00_1406))); }  else 
{ /* Ieee/pairlist.scm 963 */
BgL_g1045z00_1393 = BgL_tmpz00_2245; } } }  else 
{ /* Ieee/pairlist.scm 963 */
BgL_g1045z00_1393 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_startz00_1387, BgL_b1097z00_1406); } } } 
{ 
 int BgL_iz00_1396; obj_t BgL_vz00_1397; obj_t BgL_rz00_1398;
BgL_iz00_1396 = BgL_countz00_125; 
BgL_vz00_1397 = BgL_g1045z00_1393; 
BgL_rz00_1398 = BNIL; 
BgL_zc3z04anonymousza31665ze3z87_1399:
if(
(
(long)(BgL_iz00_1396)<=0L))
{ /* Ieee/pairlist.scm 964 */
return BgL_rz00_1398;}  else 
{ /* Ieee/pairlist.scm 966 */
 long BgL_arg1667z00_1401; obj_t BgL_arg1671z00_1402; obj_t BgL_arg1672z00_1403;
BgL_arg1667z00_1401 = 
(
(long)(BgL_iz00_1396)-1L); 
{ /* Ieee/pairlist.scm 966 */
 bool_t BgL_test3644z00_6653;
if(
INTEGERP(BgL_vz00_1397))
{ /* Ieee/pairlist.scm 966 */
BgL_test3644z00_6653 = 
INTEGERP(BgL_stepz00_1388)
; }  else 
{ /* Ieee/pairlist.scm 966 */
BgL_test3644z00_6653 = ((bool_t)0)
; } 
if(BgL_test3644z00_6653)
{ /* Ieee/pairlist.scm 966 */
 obj_t BgL_za72za7_2256;
BgL_za72za7_2256 = BgL_stepz00_1388; 
{ /* Ieee/pairlist.scm 966 */
 obj_t BgL_tmpz00_2257;
BgL_tmpz00_2257 = 
BINT(0L); 
if(
BGL_SUBFX_OV(BgL_vz00_1397, BgL_za72za7_2256, BgL_tmpz00_2257))
{ /* Ieee/pairlist.scm 966 */
BgL_arg1671z00_1402 = 
bgl_bignum_sub(
bgl_long_to_bignum(
(long)CINT(BgL_vz00_1397)), 
bgl_long_to_bignum(
(long)CINT(BgL_za72za7_2256))); }  else 
{ /* Ieee/pairlist.scm 966 */
BgL_arg1671z00_1402 = BgL_tmpz00_2257; } } }  else 
{ /* Ieee/pairlist.scm 966 */
BgL_arg1671z00_1402 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_vz00_1397, BgL_stepz00_1388); } } 
BgL_arg1672z00_1403 = 
MAKE_YOUNG_PAIR(BgL_vz00_1397, BgL_rz00_1398); 
{ 
 obj_t BgL_rz00_6670; obj_t BgL_vz00_6669; int BgL_iz00_6667;
BgL_iz00_6667 = 
(int)(BgL_arg1667z00_1401); 
BgL_vz00_6669 = BgL_arg1671z00_1402; 
BgL_rz00_6670 = BgL_arg1672z00_1403; 
BgL_rz00_1398 = BgL_rz00_6670; 
BgL_vz00_1397 = BgL_vz00_6669; 
BgL_iz00_1396 = BgL_iz00_6667; 
goto BgL_zc3z04anonymousza31665ze3z87_1399;} } } } } } 

}



/* &iota */
obj_t BGl_z62iotaz62zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2552, obj_t BgL_countz00_2553, obj_t BgL_restz00_2554)
{
{ /* Ieee/pairlist.scm 955 */
{ /* Ieee/pairlist.scm 956 */
 int BgL_auxz00_6671;
{ /* Ieee/pairlist.scm 956 */
 obj_t BgL_tmpz00_6672;
if(
INTEGERP(BgL_countz00_2553))
{ /* Ieee/pairlist.scm 956 */
BgL_tmpz00_6672 = BgL_countz00_2553
; }  else 
{ 
 obj_t BgL_auxz00_6675;
BgL_auxz00_6675 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(37234L), BGl_string2893z00zz__r4_pairs_and_lists_6_3z00, BGl_string2620z00zz__r4_pairs_and_lists_6_3z00, BgL_countz00_2553); 
FAILURE(BgL_auxz00_6675,BFALSE,BFALSE);} 
BgL_auxz00_6671 = 
CINT(BgL_tmpz00_6672); } 
return 
BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6671, BgL_restz00_2554);} } 

}



/* list-copy */
BGL_EXPORTED_DEF obj_t BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_127)
{
{ /* Ieee/pairlist.scm 971 */
if(
NULLP(BgL_lz00_127))
{ /* Ieee/pairlist.scm 972 */
return BgL_lz00_127;}  else 
{ /* Ieee/pairlist.scm 973 */
 obj_t BgL_arg1681z00_1411; obj_t BgL_arg1683z00_1412;
BgL_arg1681z00_1411 = 
CAR(BgL_lz00_127); 
{ /* Ieee/pairlist.scm 973 */
 obj_t BgL_arg1687z00_1413;
BgL_arg1687z00_1413 = 
CDR(BgL_lz00_127); 
{ /* Ieee/pairlist.scm 973 */
 obj_t BgL_auxz00_6685;
{ /* Ieee/pairlist.scm 973 */
 bool_t BgL_test3649z00_6686;
if(
PAIRP(BgL_arg1687z00_1413))
{ /* Ieee/pairlist.scm 241 */
BgL_test3649z00_6686 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3649z00_6686 = 
NULLP(BgL_arg1687z00_1413)
; } 
if(BgL_test3649z00_6686)
{ /* Ieee/pairlist.scm 973 */
BgL_auxz00_6685 = BgL_arg1687z00_1413
; }  else 
{ 
 obj_t BgL_auxz00_6690;
BgL_auxz00_6690 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(37830L), BGl_string2894z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_arg1687z00_1413); 
FAILURE(BgL_auxz00_6690,BFALSE,BFALSE);} } 
BgL_arg1683z00_1412 = 
BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6685); } } 
return 
MAKE_YOUNG_PAIR(BgL_arg1681z00_1411, BgL_arg1683z00_1412);} } 

}



/* &list-copy */
obj_t BGl_z62listzd2copyzb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2555, obj_t BgL_lz00_2556)
{
{ /* Ieee/pairlist.scm 971 */
{ /* Ieee/pairlist.scm 972 */
 obj_t BgL_auxz00_6696;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2556))
{ /* Ieee/pairlist.scm 972 */
BgL_auxz00_6696 = BgL_lz00_2556
; }  else 
{ 
 obj_t BgL_auxz00_6699;
BgL_auxz00_6699 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(37778L), BGl_string2895z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_2556); 
FAILURE(BgL_auxz00_6699,BFALSE,BFALSE);} 
return 
BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6696);} } 

}



/* tree-copy */
BGL_EXPORTED_DEF obj_t BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_128)
{
{ /* Ieee/pairlist.scm 979 */
if(
EPAIRP(BgL_lz00_128))
{ /* Ieee/pairlist.scm 982 */
 obj_t BgL_arg1689z00_1415; obj_t BgL_arg1690z00_1416; obj_t BgL_arg1691z00_1417;
{ /* Ieee/pairlist.scm 982 */
 obj_t BgL_arg1692z00_1418;
{ /* Ieee/pairlist.scm 982 */
 obj_t BgL_pairz00_2267;
if(
PAIRP(BgL_lz00_128))
{ /* Ieee/pairlist.scm 982 */
BgL_pairz00_2267 = BgL_lz00_128; }  else 
{ 
 obj_t BgL_auxz00_6708;
BgL_auxz00_6708 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38147L), BGl_string2896z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_128); 
FAILURE(BgL_auxz00_6708,BFALSE,BFALSE);} 
BgL_arg1692z00_1418 = 
CAR(BgL_pairz00_2267); } 
BgL_arg1689z00_1415 = 
BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1692z00_1418); } 
{ /* Ieee/pairlist.scm 982 */
 obj_t BgL_arg1697z00_1419;
{ /* Ieee/pairlist.scm 982 */
 obj_t BgL_pairz00_2268;
if(
PAIRP(BgL_lz00_128))
{ /* Ieee/pairlist.scm 982 */
BgL_pairz00_2268 = BgL_lz00_128; }  else 
{ 
 obj_t BgL_auxz00_6716;
BgL_auxz00_6716 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38167L), BGl_string2896z00zz__r4_pairs_and_lists_6_3z00, BGl_string2537z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_128); 
FAILURE(BgL_auxz00_6716,BFALSE,BFALSE);} 
BgL_arg1697z00_1419 = 
CDR(BgL_pairz00_2268); } 
BgL_arg1690z00_1416 = 
BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1697z00_1419); } 
{ /* Ieee/pairlist.scm 982 */
 obj_t BgL_arg1698z00_1420;
{ /* Ieee/pairlist.scm 982 */
 obj_t BgL_objz00_2269;
if(
EPAIRP(BgL_lz00_128))
{ /* Ieee/pairlist.scm 982 */
BgL_objz00_2269 = BgL_lz00_128; }  else 
{ 
 obj_t BgL_auxz00_6724;
BgL_auxz00_6724 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38187L), BGl_string2896z00zz__r4_pairs_and_lists_6_3z00, BGl_string2540z00zz__r4_pairs_and_lists_6_3z00, BgL_lz00_128); 
FAILURE(BgL_auxz00_6724,BFALSE,BFALSE);} 
BgL_arg1698z00_1420 = 
CER(BgL_objz00_2269); } 
BgL_arg1691z00_1417 = 
BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_arg1698z00_1420); } 
{ /* Ieee/pairlist.scm 982 */
 obj_t BgL_res1890z00_2270;
BgL_res1890z00_2270 = 
MAKE_YOUNG_EPAIR(BgL_arg1689z00_1415, BgL_arg1690z00_1416, BgL_arg1691z00_1417); 
return BgL_res1890z00_2270;} }  else 
{ /* Ieee/pairlist.scm 981 */
if(
PAIRP(BgL_lz00_128))
{ /* Ieee/pairlist.scm 983 */
return 
MAKE_YOUNG_PAIR(
BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_lz00_128)), 
BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(
CDR(BgL_lz00_128)));}  else 
{ /* Ieee/pairlist.scm 983 */
return BgL_lz00_128;} } } 

}



/* &tree-copy */
obj_t BGl_z62treezd2copyzb0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2557, obj_t BgL_lz00_2558)
{
{ /* Ieee/pairlist.scm 979 */
return 
BGl_treezd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2558);} 

}



/* _delete-duplicates */
obj_t BGl__deletezd2duplicateszd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_env1118z00_132, obj_t BgL_opt1117z00_131)
{
{ /* Ieee/pairlist.scm 991 */
{ /* Ieee/pairlist.scm 991 */
 obj_t BgL_g1119z00_1426;
{ 
 obj_t BgL_auxz00_6739;
if(
VECTORP(BgL_opt1117z00_131))
{ /* Ieee/pairlist.scm 991 */
BgL_auxz00_6739 = BgL_opt1117z00_131
; }  else 
{ 
 obj_t BgL_auxz00_6742;
BgL_auxz00_6742 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38512L), BGl_string2897z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1117z00_131); 
FAILURE(BgL_auxz00_6742,BFALSE,BFALSE);} 
BgL_g1119z00_1426 = 
VECTOR_REF(BgL_auxz00_6739,0L); } 
{ 

{ /* Ieee/pairlist.scm 991 */
 long BgL_aux1121z00_1428;
{ 
 obj_t BgL_auxz00_6747;
if(
VECTORP(BgL_opt1117z00_131))
{ /* Ieee/pairlist.scm 991 */
BgL_auxz00_6747 = BgL_opt1117z00_131
; }  else 
{ 
 obj_t BgL_auxz00_6750;
BgL_auxz00_6750 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38512L), BGl_string2897z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1117z00_131); 
FAILURE(BgL_auxz00_6750,BFALSE,BFALSE);} 
BgL_aux1121z00_1428 = 
VECTOR_LENGTH(BgL_auxz00_6747); } 
switch( BgL_aux1121z00_1428) { case 1L : 

{ /* Ieee/pairlist.scm 991 */

{ /* Ieee/pairlist.scm 991 */
 obj_t BgL_lisz00_2273;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_g1119z00_1426))
{ /* Ieee/pairlist.scm 991 */
BgL_lisz00_2273 = BgL_g1119z00_1426; }  else 
{ 
 obj_t BgL_auxz00_6757;
BgL_auxz00_6757 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38512L), BGl_string2897z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_g1119z00_1426); 
FAILURE(BgL_auxz00_6757,BFALSE,BFALSE);} 
return 
BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(
BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_lisz00_2273), BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00);} } break;case 2L : 

{ /* Ieee/pairlist.scm 991 */
 obj_t BgL_eqz00_1430;
{ 
 obj_t BgL_auxz00_6763;
if(
VECTORP(BgL_opt1117z00_131))
{ /* Ieee/pairlist.scm 991 */
BgL_auxz00_6763 = BgL_opt1117z00_131
; }  else 
{ 
 obj_t BgL_auxz00_6766;
BgL_auxz00_6766 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38512L), BGl_string2897z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1117z00_131); 
FAILURE(BgL_auxz00_6766,BFALSE,BFALSE);} 
BgL_eqz00_1430 = 
VECTOR_REF(BgL_auxz00_6763,1L); } 
{ /* Ieee/pairlist.scm 991 */

{ /* Ieee/pairlist.scm 991 */
 obj_t BgL_lisz00_2275;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_g1119z00_1426))
{ /* Ieee/pairlist.scm 991 */
BgL_lisz00_2275 = BgL_g1119z00_1426; }  else 
{ 
 obj_t BgL_auxz00_6773;
BgL_auxz00_6773 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38512L), BGl_string2897z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_g1119z00_1426); 
FAILURE(BgL_auxz00_6773,BFALSE,BFALSE);} 
return 
BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(
BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_lisz00_2275), BgL_eqz00_1430);} } } break;
default: 
{ /* Ieee/pairlist.scm 991 */
 long BgL_arg1707z00_1431;
{ 
 obj_t BgL_auxz00_6779;
if(
VECTORP(BgL_opt1117z00_131))
{ /* Ieee/pairlist.scm 991 */
BgL_auxz00_6779 = BgL_opt1117z00_131
; }  else 
{ 
 obj_t BgL_auxz00_6782;
BgL_auxz00_6782 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38512L), BGl_string2898z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1117z00_131); 
FAILURE(BgL_auxz00_6782,BFALSE,BFALSE);} 
BgL_arg1707z00_1431 = 
VECTOR_LENGTH(BgL_auxz00_6779); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2899z00zz__r4_pairs_and_lists_6_3z00, BGl_string2901z00zz__r4_pairs_and_lists_6_3z00, 
BINT(BgL_arg1707z00_1431));} } } } } } 

}



/* delete-duplicates */
BGL_EXPORTED_DEF obj_t BGl_deletezd2duplicateszd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lisz00_129, obj_t BgL_eqz00_130)
{
{ /* Ieee/pairlist.scm 991 */
BGL_TAIL return 
BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(
BGl_listzd2copyzd2zz__r4_pairs_and_lists_6_3z00(BgL_lisz00_129), BgL_eqz00_130);} 

}



/* _delete-duplicates! */
obj_t BGl__deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_env1123z00_136, obj_t BgL_opt1122z00_135)
{
{ /* Ieee/pairlist.scm 997 */
{ /* Ieee/pairlist.scm 997 */
 obj_t BgL_g1124z00_1433;
{ 
 obj_t BgL_auxz00_6792;
if(
VECTORP(BgL_opt1122z00_135))
{ /* Ieee/pairlist.scm 997 */
BgL_auxz00_6792 = BgL_opt1122z00_135
; }  else 
{ 
 obj_t BgL_auxz00_6795;
BgL_auxz00_6795 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38834L), BGl_string2902z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1122z00_135); 
FAILURE(BgL_auxz00_6795,BFALSE,BFALSE);} 
BgL_g1124z00_1433 = 
VECTOR_REF(BgL_auxz00_6792,0L); } 
{ 

{ /* Ieee/pairlist.scm 997 */
 long BgL_aux1126z00_1435;
{ 
 obj_t BgL_auxz00_6800;
if(
VECTORP(BgL_opt1122z00_135))
{ /* Ieee/pairlist.scm 997 */
BgL_auxz00_6800 = BgL_opt1122z00_135
; }  else 
{ 
 obj_t BgL_auxz00_6803;
BgL_auxz00_6803 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38834L), BGl_string2902z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1122z00_135); 
FAILURE(BgL_auxz00_6803,BFALSE,BFALSE);} 
BgL_aux1126z00_1435 = 
VECTOR_LENGTH(BgL_auxz00_6800); } 
switch( BgL_aux1126z00_1435) { case 1L : 

{ /* Ieee/pairlist.scm 997 */

{ /* Ieee/pairlist.scm 997 */
 obj_t BgL_auxz00_6808;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_g1124z00_1433))
{ /* Ieee/pairlist.scm 997 */
BgL_auxz00_6808 = BgL_g1124z00_1433
; }  else 
{ 
 obj_t BgL_auxz00_6811;
BgL_auxz00_6811 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38834L), BGl_string2902z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_g1124z00_1433); 
FAILURE(BgL_auxz00_6811,BFALSE,BFALSE);} 
return 
BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6808, BGl_equalzf3zd2envz21zz__r4_equivalence_6_2z00);} } break;case 2L : 

{ /* Ieee/pairlist.scm 997 */
 obj_t BgL_eqz00_1437;
{ 
 obj_t BgL_auxz00_6816;
if(
VECTORP(BgL_opt1122z00_135))
{ /* Ieee/pairlist.scm 997 */
BgL_auxz00_6816 = BgL_opt1122z00_135
; }  else 
{ 
 obj_t BgL_auxz00_6819;
BgL_auxz00_6819 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38834L), BGl_string2902z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1122z00_135); 
FAILURE(BgL_auxz00_6819,BFALSE,BFALSE);} 
BgL_eqz00_1437 = 
VECTOR_REF(BgL_auxz00_6816,1L); } 
{ /* Ieee/pairlist.scm 997 */

{ /* Ieee/pairlist.scm 997 */
 obj_t BgL_auxz00_6824;
if(
BGl_pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_g1124z00_1433))
{ /* Ieee/pairlist.scm 997 */
BgL_auxz00_6824 = BgL_g1124z00_1433
; }  else 
{ 
 obj_t BgL_auxz00_6827;
BgL_auxz00_6827 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38834L), BGl_string2902z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_g1124z00_1433); 
FAILURE(BgL_auxz00_6827,BFALSE,BFALSE);} 
return 
BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_auxz00_6824, BgL_eqz00_1437);} } } break;
default: 
{ /* Ieee/pairlist.scm 997 */
 long BgL_arg1709z00_1438;
{ 
 obj_t BgL_auxz00_6832;
if(
VECTORP(BgL_opt1122z00_135))
{ /* Ieee/pairlist.scm 997 */
BgL_auxz00_6832 = BgL_opt1122z00_135
; }  else 
{ 
 obj_t BgL_auxz00_6835;
BgL_auxz00_6835 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(38834L), BGl_string2903z00zz__r4_pairs_and_lists_6_3z00, BGl_string2641z00zz__r4_pairs_and_lists_6_3z00, BgL_opt1122z00_135); 
FAILURE(BgL_auxz00_6835,BFALSE,BFALSE);} 
BgL_arg1709z00_1438 = 
VECTOR_LENGTH(BgL_auxz00_6832); } 
return 
BGl_errorz00zz__errorz00(BGl_symbol2904z00zz__r4_pairs_and_lists_6_3z00, BGl_string2901z00zz__r4_pairs_and_lists_6_3z00, 
BINT(BgL_arg1709z00_1438));} } } } } } 

}



/* delete-duplicates! */
BGL_EXPORTED_DEF obj_t BGl_deletezd2duplicatesz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lisz00_133, obj_t BgL_eqz00_134)
{
{ /* Ieee/pairlist.scm 997 */
if(
PROCEDUREP(BgL_eqz00_134))
{ /* Ieee/pairlist.scm 998 */BFALSE; }  else 
{ /* Ieee/pairlist.scm 998 */
BGl_bigloozd2typezd2errorz00zz__errorz00(BGl_symbol2904z00zz__r4_pairs_and_lists_6_3z00, BGl_string2647z00zz__r4_pairs_and_lists_6_3z00, BgL_eqz00_134); } 
return 
BGl_recurze70ze7zz__r4_pairs_and_lists_6_3z00(BgL_eqz00_134, BgL_lisz00_133);} 

}



/* recur~0 */
obj_t BGl_recurze70ze7zz__r4_pairs_and_lists_6_3z00(obj_t BgL_eqz00_2559, obj_t BgL_lisz00_1441)
{
{ /* Ieee/pairlist.scm 1000 */
if(
NULLP(BgL_lisz00_1441))
{ /* Ieee/pairlist.scm 1001 */
return BgL_lisz00_1441;}  else 
{ /* Ieee/pairlist.scm 1002 */
 obj_t BgL_xz00_1444;
BgL_xz00_1444 = 
CAR(BgL_lisz00_1441); 
{ /* Ieee/pairlist.scm 1002 */
 obj_t BgL_tailz00_1445;
BgL_tailz00_1445 = 
CDR(BgL_lisz00_1441); 
{ /* Ieee/pairlist.scm 1003 */
 obj_t BgL_newzd2tailzd2_1446;
{ /* Ieee/pairlist.scm 1004 */
 obj_t BgL_arg1714z00_1447;
{ /* Ieee/pairlist.scm 1004 */
 obj_t BgL_auxz00_6851;
{ /* Ieee/pairlist.scm 1004 */
 bool_t BgL_test3671z00_6852;
if(
PAIRP(BgL_tailz00_1445))
{ /* Ieee/pairlist.scm 241 */
BgL_test3671z00_6852 = ((bool_t)1)
; }  else 
{ /* Ieee/pairlist.scm 241 */
BgL_test3671z00_6852 = 
NULLP(BgL_tailz00_1445)
; } 
if(BgL_test3671z00_6852)
{ /* Ieee/pairlist.scm 1004 */
BgL_auxz00_6851 = BgL_tailz00_1445
; }  else 
{ 
 obj_t BgL_auxz00_6856;
BgL_auxz00_6856 = 
BGl_typezd2errorzd2zz__errorz00(BGl_string2535z00zz__r4_pairs_and_lists_6_3z00, 
BINT(39102L), BGl_string2906z00zz__r4_pairs_and_lists_6_3z00, BGl_string2601z00zz__r4_pairs_and_lists_6_3z00, BgL_tailz00_1445); 
FAILURE(BgL_auxz00_6856,BFALSE,BFALSE);} } 
BgL_arg1714z00_1447 = 
BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(BgL_xz00_1444, BgL_auxz00_6851, BgL_eqz00_2559); } 
BgL_newzd2tailzd2_1446 = 
BGl_recurze70ze7zz__r4_pairs_and_lists_6_3z00(BgL_eqz00_2559, BgL_arg1714z00_1447); } 
{ /* Ieee/pairlist.scm 1004 */

if(
(BgL_tailz00_1445==BgL_newzd2tailzd2_1446))
{ /* Ieee/pairlist.scm 1005 */
return BgL_lisz00_1441;}  else 
{ /* Ieee/pairlist.scm 1005 */
return 
MAKE_YOUNG_PAIR(BgL_xz00_1444, BgL_newzd2tailzd2_1446);} } } } } } 

}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_pairs_and_lists_6_3z00(void)
{
{ /* Ieee/pairlist.scm 18 */
BGl_modulezd2initializa7ationz75zz__errorz00(88804785L, 
BSTRING_TO_STRING(BGl_string2907z00zz__r4_pairs_and_lists_6_3z00)); 
return 
BGl_modulezd2initializa7ationz75zz__paramz00(453939141L, 
BSTRING_TO_STRING(BGl_string2907z00zz__r4_pairs_and_lists_6_3z00));} 

}

#ifdef __cplusplus
}
#endif
