/*===========================================================================*/
/*   (Ieee/pairlist.scm)                                                     */
/*   Bigloo (2.6b)                                                           */
/*   Inria -- Sophia Antipolis (c)       Mon Dec 15 12:14:36 CET 2003        */
/*===========================================================================*/
/* COMPILATION: (/users/serrano/prgm/project/bigloo/bin/bigloo -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Ieee/pairlist.scm -indent -o objs/obj_u/Ieee/pairlist.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

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

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
static obj_t BGl__listz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cadadr2507z00zz__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);
static obj_t BGl__cadaar2499z00zz__r4_pairs_and_lists_6_3z00(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__cadar2481z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__appendz00zz__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);
static obj_t BGl__caddr2483z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__consz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_caaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__listzd2tail2548zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL long bgl_list_length(obj_t);
BGL_EXPORTED_DECL obj_t BGl_caadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_pairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_caaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t, long);
BGL_EXPORTED_DECL obj_t bgl_reverse(obj_t);
static obj_t BGl__listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__remq2568z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__setzd2cerz122529zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__assq2562z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_caarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(int, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__setzd2cdrz122527zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_deletez00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL bool_t BGl_nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__appendzd222534zd2zz__r4_pairs_and_lists_6_3z00(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__listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(int, obj_t);
static obj_t BGl__econsz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cddddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__ereverse2546z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__listzd2ref2550zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__assv2564z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_memvz00zz__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_cadaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__setzd2carz122525zc0zz__r4_pairs_and_lists_6_3z00(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__listzd2setz122552zc0zz__r4_pairs_and_lists_6_3z00(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);
BGL_EXPORTED_DECL obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cdr2465z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__car2463z00zz__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);
BGL_EXPORTED_DECL bool_t BGl_epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__appendz122540z12zz__r4_pairs_and_lists_6_3z00(obj_t, 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 BGl__pairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_remqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__memq2556z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__remqz122572z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__lastzd2pair2554zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2cdrz12zc0zz__r4_pairs_and_lists_6_3z00(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_anyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_everyzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_caadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_caddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_assvz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_appendzd2listz72za0zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__memv2558z00zz__r4_pairs_and_lists_6_3z00(obj_t, 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_carz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_caaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_appendzd2listzd2zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__deletez122574z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__cdaddr2513z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cdadar2519z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__reverse2544z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cerz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__iotaz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2cerz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__anyzf32583zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_consz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cdaaar2501z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__length2542z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cdaadr2511z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t bgl_append2(obj_t, obj_t);
static obj_t BGl__makezd2listzd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__caaddr2503z00zz__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);
static obj_t BGl__cer2467z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cdaar2485z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__caadar2497z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cdadr2489z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl_consza21za2zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__delete2570z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_pairs_and_lists_6_3z00();
BGL_EXPORTED_DECL obj_t BGl_cddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_anyzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__everyzf32581zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__anyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cddaarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_pairs_and_lists_6_3z00 = BUNSPEC;
static obj_t BGl__caaadr2495z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__caaaar2493z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cddar2487z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__eappendz00zz__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__cdddr2491z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_caddarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__cddddr2523z00zz__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__cdddar2521z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__everyz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_cadddrz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__cddr2475z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cdar2473z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern bool_t BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(obj_t, obj_t);
static obj_t BGl__cddadr2517z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cddaar2515z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__eappendzd222536zd2zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cadddr2509z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__caddar2505z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__assoc2566z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_econsz00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__caaar2477z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__caadr2479z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__cadr2471z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t BGl__caar2469z00zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
extern obj_t BGl_2za2za2zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__member2560z00zz__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);
BGL_EXPORTED_DECL obj_t bgl_list_ref(obj_t, long);
extern obj_t BGl_2zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(int, obj_t);
BGL_EXPORTED_DECL obj_t BGl_cdadarz00zz__r4_pairs_and_lists_6_3z00(obj_t);
static obj_t BGl__reversez122577z12zz__r4_pairs_and_lists_6_3z00(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_caadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caadar2497za700za7za7__r4_pairs_and_lists_6_3za7002648z00, BGl__caadar2497z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_appendzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__appendza700za7za7__r4_pairs_and_lists_6_3za7002649z00, va_generic_entry, BGl__appendz00zz__r4_pairs_and_lists_6_3z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_cddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cddr2475za700za7za7__r4_pairs_and_lists_6_3za7002650z00, BGl__cddr2475z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_remqz12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl__remqza7122572za712za7za7__r4_pairs_and_lists_6_3za7002651za7, BGl__remqz122572z12zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cdarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdar2473za700za7za7__r4_pairs_and_lists_6_3za7002652z00, BGl__cdar2473z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_caaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caaadr2495za700za7za7__r4_pairs_and_lists_6_3za7002653z00, BGl__caaadr2495z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cddddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cddddr2523za700za7za7__r4_pairs_and_lists_6_3za7002654z00, BGl__cddddr2523z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_lengthzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__length2542za700za7za7__r4_pairs_and_lists_6_3za7002655z00, BGl__length2542z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_caaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caaaar2493za700za7za7__r4_pairs_and_lists_6_3za7002656z00, BGl__caaaar2493z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cdddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdddar2521za700za7za7__r4_pairs_and_lists_6_3za7002657z00, BGl__cdddar2521z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza700za7za7__r4_pairs_and_lists_6_3za7002658z00, va_generic_entry, BGl__listz00zz__r4_pairs_and_lists_6_3z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_cadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cadr2471za700za7za7__r4_pairs_and_lists_6_3za7002659z00, BGl__cadr2471z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__nullza7f3za7f3za7za7__r4_pairs_and_lists_6_3za7002660za7, BGl__nullzf3zf3zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2cerz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl__setza7d2cerza7122529za7c0za7za7__r4_pairs_and_lists_6_3za7002661z00, BGl__setzd2cerz122529zc0zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_eappendzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__eappendza700za7za7__r4_pairs_and_lists_6_3za7002662z00, va_generic_entry, BGl__eappendz00zz__r4_pairs_and_lists_6_3z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_caarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caar2469za700za7za7__r4_pairs_and_lists_6_3za7002663z00, BGl__caar2469z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_econszd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__econsza700za7za7__r4_pairs_and_lists_6_3za7002664z00, BGl__econsz00zz__r4_pairs_and_lists_6_3z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2cdrz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl__setza7d2cdrza7122527za7c0za7za7__r4_pairs_and_lists_6_3za7002665z00, BGl__setzd2cdrz122527zc0zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cdrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdr2465za700za7za7__r4_pairs_and_lists_6_3za7002666z00, BGl__cdr2465z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cddadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cddadr2517za700za7za7__r4_pairs_and_lists_6_3za7002667z00, BGl__cddadr2517z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_reversez12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl__reverseza7122577za712za7za7__r4_pairs_and_lists_6_3za7002668za7, BGl__reversez122577z12zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_carzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__car2463za700za7za7__r4_pairs_and_lists_6_3za7002669z00, BGl__car2463z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cddaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cddaar2515za700za7za7__r4_pairs_and_lists_6_3za7002670z00, BGl__cddaar2515z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cadddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cadddr2509za700za7za7__r4_pairs_and_lists_6_3za7002671z00, BGl__cadddr2509z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_remqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__remq2568za700za7za7__r4_pairs_and_lists_6_3za7002672z00, BGl__remq2568z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_caddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caddar2505za700za7za7__r4_pairs_and_lists_6_3za7002673z00, BGl__caddar2505z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_anyzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__anyza700za7za7__r4_pairs_and_lists_6_3za7002674z00, va_generic_entry, BGl__anyz00zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2carz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl__setza7d2carza7122525za7c0za7za7__r4_pairs_and_lists_6_3za7002675z00, BGl__setzd2carz122525zc0zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_assqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__assq2562za700za7za7__r4_pairs_and_lists_6_3za7002676z00, BGl__assq2562z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cadadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cadadr2507za700za7za7__r4_pairs_and_lists_6_3za7002677z00, BGl__cadadr2507z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cadaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cadaar2499za700za7za7__r4_pairs_and_lists_6_3za7002678z00, BGl__cadaar2499z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_assvzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__assv2564za700za7za7__r4_pairs_and_lists_6_3za7002679z00, BGl__assv2564z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_makezd2listzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__makeza7d2listza7d2za7za7__r4_pairs_and_lists_6_3za7002680za7, va_generic_entry, BGl__makezd2listzd2zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_lastzd2pairzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__lastza7d2pair2554za7d2za7za7__r4_pairs_and_lists_6_3za7002681za7, BGl__lastzd2pair2554zd2zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_reversezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__reverse2544za700za7za7__r4_pairs_and_lists_6_3za7002682z00, BGl__reverse2544z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2tabulatezd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza7d2tabulateza7d2za7za7__r4_pairs_and_lists_6_3za7002683za7, BGl__listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_everyzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__everyza7f32581za7f3za7za7__r4_pairs_and_lists_6_3za7002684za7, va_generic_entry, BGl__everyzf32581zf3zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_appendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__appendza7d222534za7d2za7za7__r4_pairs_and_lists_6_3za7002685za7, BGl__appendzd222534zd2zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_appendz12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl__appendza7122540za712za7za7__r4_pairs_and_lists_6_3za7002686za7, BGl__appendz122540z12zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_ereversezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__ereverse2546za700za7za7__r4_pairs_and_lists_6_3za7002687z00, BGl__ereverse2546z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2refzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza7d2ref2550za7d2za7za7__r4_pairs_and_lists_6_3za7002688za7, BGl__listzd2ref2550zd2zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_listzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza7f3za7f3za7za7__r4_pairs_and_lists_6_3za7002689za7, BGl__listzf3zf3zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cerzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cer2467za700za7za7__r4_pairs_and_lists_6_3za7002690z00, BGl__cer2467z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2setz12zd2envz12zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza7d2setza7122552za7c0za7za7__r4_pairs_and_lists_6_3za7002691z00, BGl__listzd2setz122552zc0zz__r4_pairs_and_lists_6_3z00, 0L, 3 );
DEFINE_EXPORT_PROCEDURE( BGl_memqzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__memq2556za700za7za7__r4_pairs_and_lists_6_3za7002692z00, BGl__memq2556z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_iotazd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__iotaza700za7za7__r4_pairs_and_lists_6_3za7002693z00, va_generic_entry, BGl__iotaz00zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_memvzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__memv2558za700za7za7__r4_pairs_and_lists_6_3za7002694z00, BGl__memv2558z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_assoczd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__assoc2566za700za7za7__r4_pairs_and_lists_6_3za7002695z00, BGl__assoc2566z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_epairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__epairza7f3za7f3za7za7__r4_pairs_and_lists_6_3za7002696za7, BGl__epairzf3zf3zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_caddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caddr2483za700za7za7__r4_pairs_and_lists_6_3za7002697z00, BGl__caddr2483z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cadar2481za700za7za7__r4_pairs_and_lists_6_3za7002698z00, BGl__cadar2481z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_everyzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__everyza700za7za7__r4_pairs_and_lists_6_3za7002699z00, va_generic_entry, BGl__everyz00zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_deletez12zd2envzc0zz__r4_pairs_and_lists_6_3z00, BgL_bgl__deleteza7122574za712za7za7__r4_pairs_and_lists_6_3za7002700za7, BGl__deletez122574z12zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_anyzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__anyza7f32583za7f3za7za7__r4_pairs_and_lists_6_3za7002701za7, va_generic_entry, BGl__anyzf32583zf3zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_pairzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__pairza7f3za7f3za7za7__r4_pairs_and_lists_6_3za7002702za7, BGl__pairzf3zf3zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_caadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caadr2479za700za7za7__r4_pairs_and_lists_6_3za7002703z00, BGl__caadr2479z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_caaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caaar2477za700za7za7__r4_pairs_and_lists_6_3za7002704z00, BGl__caaar2477z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_pairzd2orzd2nullzf3zd2envz21zz__r4_pairs_and_lists_6_3z00, BgL_bgl__pairza7d2orza7d2nullza7f3za7f3za7za7__r4_pairs_and_lists_6_3za7002705za7, BGl__pairzd2orzd2nullzf3zf3zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_listzd2tailzd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__listza7d2tail2548za7d2za7za7__r4_pairs_and_lists_6_3za7002706za7, BGl__listzd2tail2548zd2zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_conszd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__consza700za7za7__r4_pairs_and_lists_6_3za7002707z00, BGl__consz00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cdddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdddr2491za700za7za7__r4_pairs_and_lists_6_3za7002708z00, BGl__cdddr2491z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_memberzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__member2560za700za7za7__r4_pairs_and_lists_6_3za7002709z00, BGl__member2560z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cddarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cddar2487za700za7za7__r4_pairs_and_lists_6_3za7002710z00, BGl__cddar2487z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cdaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdaddr2513za700za7za7__r4_pairs_and_lists_6_3za7002711z00, BGl__cdaddr2513z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cdadarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdadar2519za700za7za7__r4_pairs_and_lists_6_3za7002712z00, BGl__cdadar2519z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_deletezd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__delete2570za700za7za7__r4_pairs_and_lists_6_3za7002713z00, BGl__delete2570z00zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_cdadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdadr2489za700za7za7__r4_pairs_and_lists_6_3za7002714z00, BGl__cdadr2489z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cdaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdaar2485za700za7za7__r4_pairs_and_lists_6_3za7002715z00, BGl__cdaar2485z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_consza2zd2envz70zz__r4_pairs_and_lists_6_3z00, BgL_bgl__consza7a2za7a2za7za7__r4_pairs_and_lists_6_3za7002716za7, va_generic_entry, BGl__consza2za2zz__r4_pairs_and_lists_6_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_cdaadrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdaadr2511za700za7za7__r4_pairs_and_lists_6_3za7002717z00, BGl__cdaadr2511z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_cdaaarzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__cdaaar2501za700za7za7__r4_pairs_and_lists_6_3za7002718z00, BGl__cdaaar2501z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_eappendzd22zd2envz00zz__r4_pairs_and_lists_6_3z00, BgL_bgl__eappendza7d222536za7d2za7za7__r4_pairs_and_lists_6_3za7002719za7, BGl__eappendzd222536zd2zz__r4_pairs_and_lists_6_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_caaddrzd2envzd2zz__r4_pairs_and_lists_6_3z00, BgL_bgl__caaddr2503za700za7za7__r4_pairs_and_lists_6_3za7002720z00, BGl__caaddr2503z00zz__r4_pairs_and_lists_6_3z00, 0L, 1 );



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



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



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



/* epair? */
BGL_EXPORTED_DEF bool_t BGl_epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_2)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 203 */
return 
EXTENDED_PAIRP(BgL_objz00_2);} 
}



/* _epair? */
obj_t BGl__epairzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2148, obj_t BgL_objz00_2149)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 203 */
{ /* ./Ieee/pairlist.scm 204 */
bool_t BgL_auxz00_2385;
BgL_auxz00_2385 = 
EXTENDED_PAIRP(BgL_objz00_2149); 
return 
BBOOL(BgL_auxz00_2385);} } 
}



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



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



/* cons */
BGL_EXPORTED_DEF obj_t BGl_consz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_obj1z00_4, obj_t BgL_obj2z00_5)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 217 */
return 
MAKE_PAIR(BgL_obj1z00_4, BgL_obj2z00_5);} 
}



/* _cons */
obj_t BGl__consz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2152, obj_t BgL_obj1z00_2153, obj_t BgL_obj2z00_2154)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 217 */
return 
MAKE_PAIR(BgL_obj1z00_2153, BgL_obj2z00_2154);} 
}



/* econs */
BGL_EXPORTED_DEF obj_t BGl_econsz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_obj1z00_6, obj_t BgL_obj2z00_7, obj_t BgL_obj3z00_8)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 223 */
return 
MAKE_EXTENDED_PAIR(BgL_obj1z00_6, BgL_obj2z00_7, BgL_obj3z00_8);} 
}



/* _econs */
obj_t BGl__econsz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2155, obj_t BgL_obj1z00_2156, obj_t BgL_obj2z00_2157, obj_t BgL_obj3z00_2158)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 223 */
{ /* ./Ieee/pairlist.scm 224 */
obj_t BgL_res2642z00_2331;
BgL_res2642z00_2331 = 
MAKE_EXTENDED_PAIR(BgL_obj1z00_2156, BgL_obj2z00_2157, BgL_obj3z00_2158); 
return BgL_res2642z00_2331;} } 
}



/* car */
BGL_EXPORTED_DEF obj_t BGl_carz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_9)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 229 */
return 
CAR(BgL_pairz00_9);} 
}



/* _car2463 */
obj_t BGl__car2463z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2159, obj_t BgL_pairz00_2160)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 229 */
return 
CAR(BgL_pairz00_2160);} 
}



/* cdr */
BGL_EXPORTED_DEF obj_t BGl_cdrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_10)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 235 */
return 
CDR(BgL_pairz00_10);} 
}



/* _cdr2465 */
obj_t BGl__cdr2465z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2161, obj_t BgL_pairz00_2162)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 235 */
return 
CDR(BgL_pairz00_2162);} 
}



/* cer */
BGL_EXPORTED_DEF obj_t BGl_cerz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_11)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 241 */
return 
CER(BgL_objz00_11);} 
}



/* _cer2467 */
obj_t BGl__cer2467z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2163, obj_t BgL_objz00_2164)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 241 */
return 
CER(BgL_objz00_2164);} 
}



/* caar */
BGL_EXPORTED_DEF obj_t BGl_caarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_12)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 247 */
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_auxz00_2406;
BgL_auxz00_2406 = 
CAR(BgL_pairz00_12); 
return 
CAR(BgL_auxz00_2406);} } 
}



/* _caar2469 */
obj_t BGl__caar2469z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2165, obj_t BgL_pairz00_2166)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 247 */
{ /* ./Ieee/pairlist.scm 248 */
obj_t BgL_auxz00_2409;
BgL_auxz00_2409 = 
CAR(BgL_pairz00_2166); 
return 
CAR(BgL_auxz00_2409);} } 
}



/* cadr */
BGL_EXPORTED_DEF obj_t BGl_cadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_13)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 253 */
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_auxz00_2412;
BgL_auxz00_2412 = 
CDR(BgL_pairz00_13); 
return 
CAR(BgL_auxz00_2412);} } 
}



/* _cadr2471 */
obj_t BGl__cadr2471z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2167, obj_t BgL_pairz00_2168)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 253 */
{ /* ./Ieee/pairlist.scm 254 */
obj_t BgL_auxz00_2415;
BgL_auxz00_2415 = 
CDR(BgL_pairz00_2168); 
return 
CAR(BgL_auxz00_2415);} } 
}



/* cdar */
BGL_EXPORTED_DEF obj_t BGl_cdarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_14)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 259 */
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_auxz00_2418;
BgL_auxz00_2418 = 
CAR(BgL_pairz00_14); 
return 
CDR(BgL_auxz00_2418);} } 
}



/* _cdar2473 */
obj_t BGl__cdar2473z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2169, obj_t BgL_pairz00_2170)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 259 */
{ /* ./Ieee/pairlist.scm 260 */
obj_t BgL_auxz00_2421;
BgL_auxz00_2421 = 
CAR(BgL_pairz00_2170); 
return 
CDR(BgL_auxz00_2421);} } 
}



/* cddr */
BGL_EXPORTED_DEF obj_t BGl_cddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_15)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 265 */
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_auxz00_2424;
BgL_auxz00_2424 = 
CDR(BgL_pairz00_15); 
return 
CDR(BgL_auxz00_2424);} } 
}



/* _cddr2475 */
obj_t BGl__cddr2475z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2171, obj_t BgL_pairz00_2172)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 265 */
{ /* ./Ieee/pairlist.scm 266 */
obj_t BgL_auxz00_2427;
BgL_auxz00_2427 = 
CDR(BgL_pairz00_2172); 
return 
CDR(BgL_auxz00_2427);} } 
}



/* caaar */
BGL_EXPORTED_DEF obj_t BGl_caaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_16)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 271 */
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_auxz00_2430;
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_auxz00_2431;
BgL_auxz00_2431 = 
CAR(BgL_pairz00_16); 
BgL_auxz00_2430 = 
CAR(BgL_auxz00_2431); } 
return 
CAR(BgL_auxz00_2430);} } 
}



/* _caaar2477 */
obj_t BGl__caaar2477z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2173, obj_t BgL_pairz00_2174)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 271 */
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_auxz00_2435;
{ /* ./Ieee/pairlist.scm 272 */
obj_t BgL_auxz00_2436;
BgL_auxz00_2436 = 
CAR(BgL_pairz00_2174); 
BgL_auxz00_2435 = 
CAR(BgL_auxz00_2436); } 
return 
CAR(BgL_auxz00_2435);} } 
}



/* caadr */
BGL_EXPORTED_DEF obj_t BGl_caadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_17)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 277 */
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_auxz00_2440;
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_auxz00_2441;
BgL_auxz00_2441 = 
CDR(BgL_pairz00_17); 
BgL_auxz00_2440 = 
CAR(BgL_auxz00_2441); } 
return 
CAR(BgL_auxz00_2440);} } 
}



/* _caadr2479 */
obj_t BGl__caadr2479z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2175, obj_t BgL_pairz00_2176)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 277 */
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_auxz00_2445;
{ /* ./Ieee/pairlist.scm 278 */
obj_t BgL_auxz00_2446;
BgL_auxz00_2446 = 
CDR(BgL_pairz00_2176); 
BgL_auxz00_2445 = 
CAR(BgL_auxz00_2446); } 
return 
CAR(BgL_auxz00_2445);} } 
}



/* cadar */
BGL_EXPORTED_DEF obj_t BGl_cadarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_18)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 283 */
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_auxz00_2450;
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_auxz00_2451;
BgL_auxz00_2451 = 
CAR(BgL_pairz00_18); 
BgL_auxz00_2450 = 
CDR(BgL_auxz00_2451); } 
return 
CAR(BgL_auxz00_2450);} } 
}



/* _cadar2481 */
obj_t BGl__cadar2481z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2177, obj_t BgL_pairz00_2178)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 283 */
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_auxz00_2455;
{ /* ./Ieee/pairlist.scm 284 */
obj_t BgL_auxz00_2456;
BgL_auxz00_2456 = 
CAR(BgL_pairz00_2178); 
BgL_auxz00_2455 = 
CDR(BgL_auxz00_2456); } 
return 
CAR(BgL_auxz00_2455);} } 
}



/* caddr */
BGL_EXPORTED_DEF obj_t BGl_caddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_19)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 289 */
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_auxz00_2460;
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_auxz00_2461;
BgL_auxz00_2461 = 
CDR(BgL_pairz00_19); 
BgL_auxz00_2460 = 
CDR(BgL_auxz00_2461); } 
return 
CAR(BgL_auxz00_2460);} } 
}



/* _caddr2483 */
obj_t BGl__caddr2483z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2179, obj_t BgL_pairz00_2180)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 289 */
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_auxz00_2465;
{ /* ./Ieee/pairlist.scm 290 */
obj_t BgL_auxz00_2466;
BgL_auxz00_2466 = 
CDR(BgL_pairz00_2180); 
BgL_auxz00_2465 = 
CDR(BgL_auxz00_2466); } 
return 
CAR(BgL_auxz00_2465);} } 
}



/* cdaar */
BGL_EXPORTED_DEF obj_t BGl_cdaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_20)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 295 */
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_auxz00_2470;
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_auxz00_2471;
BgL_auxz00_2471 = 
CAR(BgL_pairz00_20); 
BgL_auxz00_2470 = 
CAR(BgL_auxz00_2471); } 
return 
CDR(BgL_auxz00_2470);} } 
}



/* _cdaar2485 */
obj_t BGl__cdaar2485z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2181, obj_t BgL_pairz00_2182)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 295 */
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_auxz00_2475;
{ /* ./Ieee/pairlist.scm 296 */
obj_t BgL_auxz00_2476;
BgL_auxz00_2476 = 
CAR(BgL_pairz00_2182); 
BgL_auxz00_2475 = 
CAR(BgL_auxz00_2476); } 
return 
CDR(BgL_auxz00_2475);} } 
}



/* cddar */
BGL_EXPORTED_DEF obj_t BGl_cddarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_21)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 301 */
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_auxz00_2480;
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_auxz00_2481;
BgL_auxz00_2481 = 
CAR(BgL_pairz00_21); 
BgL_auxz00_2480 = 
CDR(BgL_auxz00_2481); } 
return 
CDR(BgL_auxz00_2480);} } 
}



/* _cddar2487 */
obj_t BGl__cddar2487z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2183, obj_t BgL_pairz00_2184)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 301 */
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_auxz00_2485;
{ /* ./Ieee/pairlist.scm 302 */
obj_t BgL_auxz00_2486;
BgL_auxz00_2486 = 
CAR(BgL_pairz00_2184); 
BgL_auxz00_2485 = 
CDR(BgL_auxz00_2486); } 
return 
CDR(BgL_auxz00_2485);} } 
}



/* cdadr */
BGL_EXPORTED_DEF obj_t BGl_cdadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_22)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 307 */
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_auxz00_2490;
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_auxz00_2491;
BgL_auxz00_2491 = 
CDR(BgL_pairz00_22); 
BgL_auxz00_2490 = 
CAR(BgL_auxz00_2491); } 
return 
CDR(BgL_auxz00_2490);} } 
}



/* _cdadr2489 */
obj_t BGl__cdadr2489z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2185, obj_t BgL_pairz00_2186)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 307 */
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_auxz00_2495;
{ /* ./Ieee/pairlist.scm 308 */
obj_t BgL_auxz00_2496;
BgL_auxz00_2496 = 
CDR(BgL_pairz00_2186); 
BgL_auxz00_2495 = 
CAR(BgL_auxz00_2496); } 
return 
CDR(BgL_auxz00_2495);} } 
}



/* cdddr */
BGL_EXPORTED_DEF obj_t BGl_cdddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_23)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 313 */
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_auxz00_2500;
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_auxz00_2501;
BgL_auxz00_2501 = 
CDR(BgL_pairz00_23); 
BgL_auxz00_2500 = 
CDR(BgL_auxz00_2501); } 
return 
CDR(BgL_auxz00_2500);} } 
}



/* _cdddr2491 */
obj_t BGl__cdddr2491z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2187, obj_t BgL_pairz00_2188)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 313 */
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_auxz00_2505;
{ /* ./Ieee/pairlist.scm 314 */
obj_t BgL_auxz00_2506;
BgL_auxz00_2506 = 
CDR(BgL_pairz00_2188); 
BgL_auxz00_2505 = 
CDR(BgL_auxz00_2506); } 
return 
CDR(BgL_auxz00_2505);} } 
}



/* caaaar */
BGL_EXPORTED_DEF obj_t BGl_caaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_24)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 319 */
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_auxz00_2510;
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_auxz00_2511;
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_auxz00_2512;
BgL_auxz00_2512 = 
CAR(BgL_pairz00_24); 
BgL_auxz00_2511 = 
CAR(BgL_auxz00_2512); } 
BgL_auxz00_2510 = 
CAR(BgL_auxz00_2511); } 
return 
CAR(BgL_auxz00_2510);} } 
}



/* _caaaar2493 */
obj_t BGl__caaaar2493z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2189, obj_t BgL_pairz00_2190)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 319 */
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_auxz00_2517;
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_auxz00_2518;
{ /* ./Ieee/pairlist.scm 320 */
obj_t BgL_auxz00_2519;
BgL_auxz00_2519 = 
CAR(BgL_pairz00_2190); 
BgL_auxz00_2518 = 
CAR(BgL_auxz00_2519); } 
BgL_auxz00_2517 = 
CAR(BgL_auxz00_2518); } 
return 
CAR(BgL_auxz00_2517);} } 
}



/* caaadr */
BGL_EXPORTED_DEF obj_t BGl_caaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_25)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 325 */
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_auxz00_2524;
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_auxz00_2525;
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_auxz00_2526;
BgL_auxz00_2526 = 
CDR(BgL_pairz00_25); 
BgL_auxz00_2525 = 
CAR(BgL_auxz00_2526); } 
BgL_auxz00_2524 = 
CAR(BgL_auxz00_2525); } 
return 
CAR(BgL_auxz00_2524);} } 
}



/* _caaadr2495 */
obj_t BGl__caaadr2495z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2191, obj_t BgL_pairz00_2192)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 325 */
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_auxz00_2531;
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_auxz00_2532;
{ /* ./Ieee/pairlist.scm 326 */
obj_t BgL_auxz00_2533;
BgL_auxz00_2533 = 
CDR(BgL_pairz00_2192); 
BgL_auxz00_2532 = 
CAR(BgL_auxz00_2533); } 
BgL_auxz00_2531 = 
CAR(BgL_auxz00_2532); } 
return 
CAR(BgL_auxz00_2531);} } 
}



/* caadar */
BGL_EXPORTED_DEF obj_t BGl_caadarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_26)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 331 */
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_auxz00_2538;
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_auxz00_2539;
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_auxz00_2540;
BgL_auxz00_2540 = 
CAR(BgL_pairz00_26); 
BgL_auxz00_2539 = 
CDR(BgL_auxz00_2540); } 
BgL_auxz00_2538 = 
CAR(BgL_auxz00_2539); } 
return 
CAR(BgL_auxz00_2538);} } 
}



/* _caadar2497 */
obj_t BGl__caadar2497z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2193, obj_t BgL_pairz00_2194)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 331 */
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_auxz00_2545;
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_auxz00_2546;
{ /* ./Ieee/pairlist.scm 332 */
obj_t BgL_auxz00_2547;
BgL_auxz00_2547 = 
CAR(BgL_pairz00_2194); 
BgL_auxz00_2546 = 
CDR(BgL_auxz00_2547); } 
BgL_auxz00_2545 = 
CAR(BgL_auxz00_2546); } 
return 
CAR(BgL_auxz00_2545);} } 
}



/* cadaar */
BGL_EXPORTED_DEF obj_t BGl_cadaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_27)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 337 */
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_auxz00_2552;
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_auxz00_2553;
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_auxz00_2554;
BgL_auxz00_2554 = 
CAR(BgL_pairz00_27); 
BgL_auxz00_2553 = 
CAR(BgL_auxz00_2554); } 
BgL_auxz00_2552 = 
CDR(BgL_auxz00_2553); } 
return 
CAR(BgL_auxz00_2552);} } 
}



/* _cadaar2499 */
obj_t BGl__cadaar2499z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2195, obj_t BgL_pairz00_2196)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 337 */
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_auxz00_2559;
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_auxz00_2560;
{ /* ./Ieee/pairlist.scm 338 */
obj_t BgL_auxz00_2561;
BgL_auxz00_2561 = 
CAR(BgL_pairz00_2196); 
BgL_auxz00_2560 = 
CAR(BgL_auxz00_2561); } 
BgL_auxz00_2559 = 
CDR(BgL_auxz00_2560); } 
return 
CAR(BgL_auxz00_2559);} } 
}



/* cdaaar */
BGL_EXPORTED_DEF obj_t BGl_cdaaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_28)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 343 */
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_auxz00_2566;
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_auxz00_2567;
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_auxz00_2568;
BgL_auxz00_2568 = 
CAR(BgL_pairz00_28); 
BgL_auxz00_2567 = 
CAR(BgL_auxz00_2568); } 
BgL_auxz00_2566 = 
CAR(BgL_auxz00_2567); } 
return 
CDR(BgL_auxz00_2566);} } 
}



/* _cdaaar2501 */
obj_t BGl__cdaaar2501z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2197, obj_t BgL_pairz00_2198)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 343 */
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_auxz00_2573;
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_auxz00_2574;
{ /* ./Ieee/pairlist.scm 344 */
obj_t BgL_auxz00_2575;
BgL_auxz00_2575 = 
CAR(BgL_pairz00_2198); 
BgL_auxz00_2574 = 
CAR(BgL_auxz00_2575); } 
BgL_auxz00_2573 = 
CAR(BgL_auxz00_2574); } 
return 
CDR(BgL_auxz00_2573);} } 
}



/* caaddr */
BGL_EXPORTED_DEF obj_t BGl_caaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_29)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 349 */
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_auxz00_2580;
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_auxz00_2581;
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_auxz00_2582;
BgL_auxz00_2582 = 
CDR(BgL_pairz00_29); 
BgL_auxz00_2581 = 
CDR(BgL_auxz00_2582); } 
BgL_auxz00_2580 = 
CAR(BgL_auxz00_2581); } 
return 
CAR(BgL_auxz00_2580);} } 
}



/* _caaddr2503 */
obj_t BGl__caaddr2503z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2199, obj_t BgL_pairz00_2200)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 349 */
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_auxz00_2587;
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_auxz00_2588;
{ /* ./Ieee/pairlist.scm 350 */
obj_t BgL_auxz00_2589;
BgL_auxz00_2589 = 
CDR(BgL_pairz00_2200); 
BgL_auxz00_2588 = 
CDR(BgL_auxz00_2589); } 
BgL_auxz00_2587 = 
CAR(BgL_auxz00_2588); } 
return 
CAR(BgL_auxz00_2587);} } 
}



/* caddar */
BGL_EXPORTED_DEF obj_t BGl_caddarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_30)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 355 */
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_auxz00_2594;
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_auxz00_2595;
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_auxz00_2596;
BgL_auxz00_2596 = 
CAR(BgL_pairz00_30); 
BgL_auxz00_2595 = 
CDR(BgL_auxz00_2596); } 
BgL_auxz00_2594 = 
CDR(BgL_auxz00_2595); } 
return 
CAR(BgL_auxz00_2594);} } 
}



/* _caddar2505 */
obj_t BGl__caddar2505z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2201, obj_t BgL_pairz00_2202)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 355 */
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_auxz00_2601;
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_auxz00_2602;
{ /* ./Ieee/pairlist.scm 356 */
obj_t BgL_auxz00_2603;
BgL_auxz00_2603 = 
CAR(BgL_pairz00_2202); 
BgL_auxz00_2602 = 
CDR(BgL_auxz00_2603); } 
BgL_auxz00_2601 = 
CDR(BgL_auxz00_2602); } 
return 
CAR(BgL_auxz00_2601);} } 
}



/* cadadr */
BGL_EXPORTED_DEF obj_t BGl_cadadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_31)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 361 */
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_auxz00_2608;
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_auxz00_2609;
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_auxz00_2610;
BgL_auxz00_2610 = 
CDR(BgL_pairz00_31); 
BgL_auxz00_2609 = 
CAR(BgL_auxz00_2610); } 
BgL_auxz00_2608 = 
CDR(BgL_auxz00_2609); } 
return 
CAR(BgL_auxz00_2608);} } 
}



/* _cadadr2507 */
obj_t BGl__cadadr2507z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2203, obj_t BgL_pairz00_2204)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 361 */
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_auxz00_2615;
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_auxz00_2616;
{ /* ./Ieee/pairlist.scm 362 */
obj_t BgL_auxz00_2617;
BgL_auxz00_2617 = 
CDR(BgL_pairz00_2204); 
BgL_auxz00_2616 = 
CAR(BgL_auxz00_2617); } 
BgL_auxz00_2615 = 
CDR(BgL_auxz00_2616); } 
return 
CAR(BgL_auxz00_2615);} } 
}



/* cadddr */
BGL_EXPORTED_DEF obj_t BGl_cadddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_32)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 367 */
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_auxz00_2622;
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_auxz00_2623;
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_auxz00_2624;
BgL_auxz00_2624 = 
CDR(BgL_pairz00_32); 
BgL_auxz00_2623 = 
CDR(BgL_auxz00_2624); } 
BgL_auxz00_2622 = 
CDR(BgL_auxz00_2623); } 
return 
CAR(BgL_auxz00_2622);} } 
}



/* _cadddr2509 */
obj_t BGl__cadddr2509z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2205, obj_t BgL_pairz00_2206)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 367 */
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_auxz00_2629;
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_auxz00_2630;
{ /* ./Ieee/pairlist.scm 368 */
obj_t BgL_auxz00_2631;
BgL_auxz00_2631 = 
CDR(BgL_pairz00_2206); 
BgL_auxz00_2630 = 
CDR(BgL_auxz00_2631); } 
BgL_auxz00_2629 = 
CDR(BgL_auxz00_2630); } 
return 
CAR(BgL_auxz00_2629);} } 
}



/* cdaadr */
BGL_EXPORTED_DEF obj_t BGl_cdaadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_33)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 373 */
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_auxz00_2636;
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_auxz00_2637;
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_auxz00_2638;
BgL_auxz00_2638 = 
CDR(BgL_pairz00_33); 
BgL_auxz00_2637 = 
CAR(BgL_auxz00_2638); } 
BgL_auxz00_2636 = 
CAR(BgL_auxz00_2637); } 
return 
CDR(BgL_auxz00_2636);} } 
}



/* _cdaadr2511 */
obj_t BGl__cdaadr2511z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2207, obj_t BgL_pairz00_2208)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 373 */
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_auxz00_2643;
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_auxz00_2644;
{ /* ./Ieee/pairlist.scm 374 */
obj_t BgL_auxz00_2645;
BgL_auxz00_2645 = 
CDR(BgL_pairz00_2208); 
BgL_auxz00_2644 = 
CAR(BgL_auxz00_2645); } 
BgL_auxz00_2643 = 
CAR(BgL_auxz00_2644); } 
return 
CDR(BgL_auxz00_2643);} } 
}



/* cdaddr */
BGL_EXPORTED_DEF obj_t BGl_cdaddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_34)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 379 */
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_auxz00_2650;
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_auxz00_2651;
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_auxz00_2652;
BgL_auxz00_2652 = 
CDR(BgL_pairz00_34); 
BgL_auxz00_2651 = 
CDR(BgL_auxz00_2652); } 
BgL_auxz00_2650 = 
CAR(BgL_auxz00_2651); } 
return 
CDR(BgL_auxz00_2650);} } 
}



/* _cdaddr2513 */
obj_t BGl__cdaddr2513z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2209, obj_t BgL_pairz00_2210)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 379 */
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_auxz00_2657;
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_auxz00_2658;
{ /* ./Ieee/pairlist.scm 380 */
obj_t BgL_auxz00_2659;
BgL_auxz00_2659 = 
CDR(BgL_pairz00_2210); 
BgL_auxz00_2658 = 
CDR(BgL_auxz00_2659); } 
BgL_auxz00_2657 = 
CAR(BgL_auxz00_2658); } 
return 
CDR(BgL_auxz00_2657);} } 
}



/* cddaar */
BGL_EXPORTED_DEF obj_t BGl_cddaarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_35)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 385 */
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_auxz00_2664;
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_auxz00_2665;
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_auxz00_2666;
BgL_auxz00_2666 = 
CAR(BgL_pairz00_35); 
BgL_auxz00_2665 = 
CAR(BgL_auxz00_2666); } 
BgL_auxz00_2664 = 
CDR(BgL_auxz00_2665); } 
return 
CDR(BgL_auxz00_2664);} } 
}



/* _cddaar2515 */
obj_t BGl__cddaar2515z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2211, obj_t BgL_pairz00_2212)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 385 */
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_auxz00_2671;
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_auxz00_2672;
{ /* ./Ieee/pairlist.scm 386 */
obj_t BgL_auxz00_2673;
BgL_auxz00_2673 = 
CAR(BgL_pairz00_2212); 
BgL_auxz00_2672 = 
CAR(BgL_auxz00_2673); } 
BgL_auxz00_2671 = 
CDR(BgL_auxz00_2672); } 
return 
CDR(BgL_auxz00_2671);} } 
}



/* cddadr */
BGL_EXPORTED_DEF obj_t BGl_cddadrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_36)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 391 */
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_auxz00_2678;
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_auxz00_2679;
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_auxz00_2680;
BgL_auxz00_2680 = 
CDR(BgL_pairz00_36); 
BgL_auxz00_2679 = 
CAR(BgL_auxz00_2680); } 
BgL_auxz00_2678 = 
CDR(BgL_auxz00_2679); } 
return 
CDR(BgL_auxz00_2678);} } 
}



/* _cddadr2517 */
obj_t BGl__cddadr2517z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2213, obj_t BgL_pairz00_2214)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 391 */
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_auxz00_2685;
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_auxz00_2686;
{ /* ./Ieee/pairlist.scm 392 */
obj_t BgL_auxz00_2687;
BgL_auxz00_2687 = 
CDR(BgL_pairz00_2214); 
BgL_auxz00_2686 = 
CAR(BgL_auxz00_2687); } 
BgL_auxz00_2685 = 
CDR(BgL_auxz00_2686); } 
return 
CDR(BgL_auxz00_2685);} } 
}



/* cdadar */
BGL_EXPORTED_DEF obj_t BGl_cdadarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_37)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 397 */
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_auxz00_2692;
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_auxz00_2693;
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_auxz00_2694;
BgL_auxz00_2694 = 
CAR(BgL_pairz00_37); 
BgL_auxz00_2693 = 
CDR(BgL_auxz00_2694); } 
BgL_auxz00_2692 = 
CAR(BgL_auxz00_2693); } 
return 
CDR(BgL_auxz00_2692);} } 
}



/* _cdadar2519 */
obj_t BGl__cdadar2519z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2215, obj_t BgL_pairz00_2216)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 397 */
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_auxz00_2699;
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_auxz00_2700;
{ /* ./Ieee/pairlist.scm 398 */
obj_t BgL_auxz00_2701;
BgL_auxz00_2701 = 
CAR(BgL_pairz00_2216); 
BgL_auxz00_2700 = 
CDR(BgL_auxz00_2701); } 
BgL_auxz00_2699 = 
CAR(BgL_auxz00_2700); } 
return 
CDR(BgL_auxz00_2699);} } 
}



/* cdddar */
BGL_EXPORTED_DEF obj_t BGl_cdddarz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_38)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 403 */
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_auxz00_2706;
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_auxz00_2707;
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_auxz00_2708;
BgL_auxz00_2708 = 
CAR(BgL_pairz00_38); 
BgL_auxz00_2707 = 
CDR(BgL_auxz00_2708); } 
BgL_auxz00_2706 = 
CDR(BgL_auxz00_2707); } 
return 
CDR(BgL_auxz00_2706);} } 
}



/* _cdddar2521 */
obj_t BGl__cdddar2521z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2217, obj_t BgL_pairz00_2218)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 403 */
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_auxz00_2713;
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_auxz00_2714;
{ /* ./Ieee/pairlist.scm 404 */
obj_t BgL_auxz00_2715;
BgL_auxz00_2715 = 
CAR(BgL_pairz00_2218); 
BgL_auxz00_2714 = 
CDR(BgL_auxz00_2715); } 
BgL_auxz00_2713 = 
CDR(BgL_auxz00_2714); } 
return 
CDR(BgL_auxz00_2713);} } 
}



/* cddddr */
BGL_EXPORTED_DEF obj_t BGl_cddddrz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_39)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 410 */
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_auxz00_2720;
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_auxz00_2721;
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_auxz00_2722;
BgL_auxz00_2722 = 
CDR(BgL_pairz00_39); 
BgL_auxz00_2721 = 
CDR(BgL_auxz00_2722); } 
BgL_auxz00_2720 = 
CDR(BgL_auxz00_2721); } 
return 
CDR(BgL_auxz00_2720);} } 
}



/* _cddddr2523 */
obj_t BGl__cddddr2523z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2219, obj_t BgL_pairz00_2220)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 410 */
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_auxz00_2727;
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_auxz00_2728;
{ /* ./Ieee/pairlist.scm 411 */
obj_t BgL_auxz00_2729;
BgL_auxz00_2729 = 
CDR(BgL_pairz00_2220); 
BgL_auxz00_2728 = 
CDR(BgL_auxz00_2729); } 
BgL_auxz00_2727 = 
CDR(BgL_auxz00_2728); } 
return 
CDR(BgL_auxz00_2727);} } 
}



/* set-car! */
BGL_EXPORTED_DEF obj_t BGl_setzd2carz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_40, obj_t BgL_objz00_41)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 416 */
return 
SET_CAR(BgL_pairz00_40, BgL_objz00_41);} 
}



/* _set-car!2525 */
obj_t BGl__setzd2carz122525zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2221, obj_t BgL_pairz00_2222, obj_t BgL_objz00_2223)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 416 */
return 
SET_CAR(BgL_pairz00_2222, BgL_objz00_2223);} 
}



/* set-cdr! */
BGL_EXPORTED_DEF obj_t BGl_setzd2cdrz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_pairz00_42, obj_t BgL_objz00_43)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 422 */
return 
SET_CDR(BgL_pairz00_42, BgL_objz00_43);} 
}



/* _set-cdr!2527 */
obj_t BGl__setzd2cdrz122527zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2224, obj_t BgL_pairz00_2225, obj_t BgL_objz00_2226)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 422 */
return 
SET_CDR(BgL_pairz00_2225, BgL_objz00_2226);} 
}



/* set-cer! */
BGL_EXPORTED_DEF obj_t BGl_setzd2cerz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_epairz00_44, obj_t BgL_objz00_45)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 428 */
return 
SET_CER(BgL_epairz00_44, BgL_objz00_45);} 
}



/* _set-cer!2529 */
obj_t BGl__setzd2cerz122529zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2227, obj_t BgL_epairz00_2228, obj_t BgL_objz00_2229)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 428 */
return 
SET_CER(BgL_epairz00_2228, BgL_objz00_2229);} 
}



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



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



/* list */
BGL_EXPORTED_DEF obj_t BGl_listz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_47)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 440 */
return BgL_lz00_47;} 
}



/* _list */
obj_t BGl__listz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2232, obj_t BgL_lz00_2233)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 440 */
return BgL_lz00_2233;} 
}



/* list? */
BGL_EXPORTED_DEF bool_t BGl_listzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_48)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 446 */
{ 
obj_t BgL_xz00_391;obj_t BgL_prevz00_392;
if(
NULLP(BgL_xz00_48))
{ /* ./Ieee/pairlist.scm 463 */
return ((bool_t)1);}  else 
{ /* ./Ieee/pairlist.scm 463 */
if(
PAIRP(BgL_xz00_48))
{ /* ./Ieee/pairlist.scm 465 */
{ /* ./Ieee/pairlist.scm 466 */
obj_t BgL_arg1313z00_396;
BgL_arg1313z00_396 = 
CDR(BgL_xz00_48); 
if(
NULLP(BgL_arg1313z00_396))
{ /* ./Ieee/pairlist.scm 466 */
return ((bool_t)1);}  else 
{ /* ./Ieee/pairlist.scm 466 */
if(
PAIRP(BgL_arg1313z00_396))
{ /* ./Ieee/pairlist.scm 466 */
if(
(BgL_arg1313z00_396==BgL_xz00_48))
{ /* ./Ieee/pairlist.scm 466 */
return ((bool_t)0);}  else 
{ /* ./Ieee/pairlist.scm 466 */
BgL_xz00_391 = 
CDR(BgL_arg1313z00_396); 
BgL_prevz00_392 = BgL_xz00_48; 
BgL_l2z00_393:
if(
NULLP(BgL_xz00_391))
{ /* ./Ieee/pairlist.scm 456 */
return ((bool_t)1);}  else 
{ /* ./Ieee/pairlist.scm 456 */
if(
PAIRP(BgL_xz00_391))
{ /* ./Ieee/pairlist.scm 456 */
if(
(BgL_xz00_391==BgL_prevz00_392))
{ /* ./Ieee/pairlist.scm 456 */
return ((bool_t)0);}  else 
{ /* ./Ieee/pairlist.scm 456 */
obj_t BgL_arg1332z00_1077;obj_t BgL_arg1333z00_1078;
BgL_arg1332z00_1077 = 
CDR(BgL_xz00_391); 
BgL_arg1333z00_1078 = 
CDR(BgL_prevz00_392); 
if(
NULLP(BgL_arg1332z00_1077))
{ /* ./Ieee/pairlist.scm 456 */
return ((bool_t)1);}  else 
{ /* ./Ieee/pairlist.scm 456 */
if(
PAIRP(BgL_arg1332z00_1077))
{ /* ./Ieee/pairlist.scm 456 */
if(
(BgL_arg1332z00_1077==BgL_arg1333z00_1078))
{ /* ./Ieee/pairlist.scm 456 */
return ((bool_t)0);}  else 
{ 
obj_t BgL_prevz00_2771;obj_t BgL_xz00_2769;
BgL_xz00_2769 = 
CDR(BgL_arg1332z00_1077); 
BgL_prevz00_2771 = BgL_arg1333z00_1078; 
BgL_prevz00_392 = BgL_prevz00_2771; 
BgL_xz00_391 = BgL_xz00_2769; 
goto BgL_l2z00_393;} }  else 
{ /* ./Ieee/pairlist.scm 456 */
return ((bool_t)0);} } } }  else 
{ /* ./Ieee/pairlist.scm 456 */
return ((bool_t)0);} } } }  else 
{ /* ./Ieee/pairlist.scm 466 */
return ((bool_t)0);} } } }  else 
{ /* ./Ieee/pairlist.scm 465 */
return ((bool_t)0);} } } } 
}



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



/* append-2 */
BGL_EXPORTED_DEF obj_t bgl_append2(obj_t BgL_l1z00_49, obj_t BgL_l2z00_50)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 473 */
{ /* ./Ieee/pairlist.scm 474 */
obj_t BgL_headz00_406;
BgL_headz00_406 = 
MAKE_PAIR(BNIL, BgL_l2z00_50); 
{ 
obj_t BgL_prevz00_1093;obj_t BgL_tailz00_1094;
BgL_prevz00_1093 = BgL_headz00_406; 
BgL_tailz00_1094 = BgL_l1z00_49; 
BgL_loopz00_1092:
if(
NULLP(BgL_tailz00_1094))
{ /* ./Ieee/pairlist.scm 481 */BNIL; }  else 
{ /* ./Ieee/pairlist.scm 481 */
obj_t BgL_newzd2prevzd2_1100;
{ /* ./Ieee/pairlist.scm 481 */
obj_t BgL_auxz00_2779;
BgL_auxz00_2779 = 
CAR(BgL_tailz00_1094); 
BgL_newzd2prevzd2_1100 = 
MAKE_PAIR(BgL_auxz00_2779, BgL_l2z00_50); } 
SET_CDR(BgL_prevz00_1093, BgL_newzd2prevzd2_1100); 
{ 
obj_t BgL_tailz00_2784;obj_t BgL_prevz00_2783;
BgL_prevz00_2783 = BgL_newzd2prevzd2_1100; 
BgL_tailz00_2784 = 
CDR(BgL_tailz00_1094); 
BgL_tailz00_1094 = BgL_tailz00_2784; 
BgL_prevz00_1093 = BgL_prevz00_2783; 
goto BgL_loopz00_1092;} } } 
return 
CDR(BgL_headz00_406);} } 
}



/* _append-22534 */
obj_t BGl__appendzd222534zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2236, obj_t BgL_l1z00_2237, obj_t BgL_l2z00_2238)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 473 */
return 
bgl_append2(BgL_l1z00_2237, BgL_l2z00_2238);} 
}



/* eappend-2 */
BGL_EXPORTED_DEF obj_t BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_l1z00_51, obj_t BgL_l2z00_52)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 487 */
{ /* ./Ieee/pairlist.scm 488 */
obj_t BgL_headz00_414;
{ /* ./Ieee/pairlist.scm 488 */
bool_t BgL_test1375z00_425;
BgL_test1375z00_425 = 
EXTENDED_PAIRP(BgL_l2z00_52); 
if(BgL_test1375z00_425)
{ /* ./Ieee/pairlist.scm 489 */
obj_t BgL_arg1378z00_427;
BgL_arg1378z00_427 = 
CER(BgL_l2z00_52); 
{ /* ./Ieee/pairlist.scm 489 */
obj_t BgL_res2453z00_1134;
BgL_res2453z00_1134 = 
MAKE_EXTENDED_PAIR(BNIL, BgL_l2z00_52, BgL_arg1378z00_427); 
BgL_headz00_414 = BgL_res2453z00_1134; } }  else 
{ /* ./Ieee/pairlist.scm 488 */
BgL_headz00_414 = 
MAKE_PAIR(BNIL, BgL_l2z00_52); } } 
{ 
obj_t BgL_prevz00_415;obj_t BgL_tailz00_416;
BgL_prevz00_415 = BgL_headz00_414; 
BgL_tailz00_416 = BgL_l1z00_51; 
BgL_loopz00_417:
if(
NULLP(BgL_tailz00_416))
{ /* ./Ieee/pairlist.scm 492 */BNIL; }  else 
{ /* ./Ieee/pairlist.scm 494 */
obj_t BgL_newzd2prevzd2_419;
{ /* ./Ieee/pairlist.scm 494 */
bool_t BgL_test1362z00_421;
BgL_test1362z00_421 = 
EXTENDED_PAIRP(BgL_tailz00_416); 
if(BgL_test1362z00_421)
{ /* ./Ieee/pairlist.scm 495 */
obj_t BgL_arg1364z00_422;obj_t BgL_arg1365z00_423;
BgL_arg1364z00_422 = 
CAR(BgL_tailz00_416); 
BgL_arg1365z00_423 = 
CER(BgL_tailz00_416); 
{ /* ./Ieee/pairlist.scm 495 */
obj_t BgL_res2454z00_1143;
BgL_res2454z00_1143 = 
MAKE_EXTENDED_PAIR(BgL_arg1364z00_422, BgL_l2z00_52, BgL_arg1365z00_423); 
BgL_newzd2prevzd2_419 = BgL_res2454z00_1143; } }  else 
{ /* ./Ieee/pairlist.scm 496 */
obj_t BgL_auxz00_2800;
BgL_auxz00_2800 = 
CAR(BgL_tailz00_416); 
BgL_newzd2prevzd2_419 = 
MAKE_PAIR(BgL_auxz00_2800, BgL_l2z00_52); } } 
SET_CDR(BgL_prevz00_415, BgL_newzd2prevzd2_419); 
{ 
obj_t BgL_tailz00_2805;obj_t BgL_prevz00_2804;
BgL_prevz00_2804 = BgL_newzd2prevzd2_419; 
BgL_tailz00_2805 = 
CDR(BgL_tailz00_416); 
BgL_tailz00_416 = BgL_tailz00_2805; 
BgL_prevz00_415 = BgL_prevz00_2804; 
goto BgL_loopz00_417;} } 
return 
CDR(BgL_headz00_414);} } } 
}



/* _eappend-22536 */
obj_t BGl__eappendzd222536zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2239, obj_t BgL_l1z00_2240, obj_t BgL_l2z00_2241)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 487 */
return 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(BgL_l1z00_2240, BgL_l2z00_2241);} 
}



/* append */
BGL_EXPORTED_DEF obj_t BGl_appendz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_53)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 505 */
return 
BGl_appendzd2listz72za0zz__r4_pairs_and_lists_6_3z00(BgL_lz00_53);} 
}



/* append-list' */
obj_t BGl_appendzd2listz72za0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_428)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 506 */
{ /* ./Ieee/pairlist.scm 507 */
long BgL_lenz00_430;
BgL_lenz00_430 = 
bgl_list_length(BgL_lz00_428); 
{ 

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

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

return 
CAR(BgL_lz00_428);break;case ((long)2) : 

{ /* ./Ieee/pairlist.scm 513 */
obj_t BgL_auxz00_2812;
{ /* ./Ieee/pairlist.scm 514 */
obj_t BgL_auxz00_2814;
BgL_auxz00_2814 = 
CDR(BgL_lz00_428); 
BgL_auxz00_2812 = 
CAR(BgL_auxz00_2814); } 
return 
bgl_append2(
CAR(BgL_lz00_428), BgL_auxz00_2812);} break;
default: 
return 
bgl_append2(
CAR(BgL_lz00_428), 
BGl_appendzd2listz72za0zz__r4_pairs_and_lists_6_3z00(
CDR(BgL_lz00_428)));} } } } 
}



/* _append */
obj_t BGl__appendz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2242, obj_t BgL_lz00_2243)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 505 */
return 
BGl_appendzd2listz72za0zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2243);} 
}



/* eappend */
BGL_EXPORTED_DEF obj_t BGl_eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_54)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 522 */
return 
BGl_appendzd2listzd2zz__r4_pairs_and_lists_6_3z00(BgL_lz00_54);} 
}



/* append-list */
obj_t BGl_appendzd2listzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_440)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 523 */
{ /* ./Ieee/pairlist.scm 524 */
long BgL_lenz00_442;
BgL_lenz00_442 = 
bgl_list_length(BgL_lz00_440); 
{ 

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

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

return 
CAR(BgL_lz00_440);break;case ((long)2) : 

{ /* ./Ieee/pairlist.scm 530 */
obj_t BgL_auxz00_2827;
{ /* ./Ieee/pairlist.scm 531 */
obj_t BgL_auxz00_2829;
BgL_auxz00_2829 = 
CDR(BgL_lz00_440); 
BgL_auxz00_2827 = 
CAR(BgL_auxz00_2829); } 
return 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_lz00_440), BgL_auxz00_2827);} break;
default: 
return 
BGl_eappendzd22zd2zz__r4_pairs_and_lists_6_3z00(
CAR(BgL_lz00_440), 
BGl_appendzd2listzd2zz__r4_pairs_and_lists_6_3z00(
CDR(BgL_lz00_440)));} } } } 
}



/* _eappend */
obj_t BGl__eappendz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2244, obj_t BgL_lz00_2245)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 522 */
return 
BGl_appendzd2listzd2zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2245);} 
}



/* append! */
BGL_EXPORTED_DEF obj_t BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_55, obj_t BgL_yz00_56)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 539 */
if(
NULLP(BgL_xz00_55))
{ /* ./Ieee/pairlist.scm 540 */
return BgL_yz00_56;}  else 
{ /* ./Ieee/pairlist.scm 543 */
obj_t BgL_arg1437z00_454;
BgL_arg1437z00_454 = 
CDR(BgL_xz00_55); 
{ 
obj_t BgL_az00_1163;obj_t BgL_bz00_1164;
BgL_az00_1163 = BgL_xz00_55; 
BgL_bz00_1164 = BgL_arg1437z00_454; 
BgL_dozd2loopzd2zd21007zd2_1162:
if(
NULLP(BgL_bz00_1164))
{ /* ./Ieee/pairlist.scm 544 */
SET_CDR(BgL_az00_1163, BgL_yz00_56); 
return BgL_xz00_55;}  else 
{ /* ./Ieee/pairlist.scm 544 */
{ 
obj_t BgL_bz00_2846;obj_t BgL_az00_2845;
BgL_az00_2845 = BgL_bz00_1164; 
BgL_bz00_2846 = 
CDR(BgL_bz00_1164); 
BgL_bz00_1164 = BgL_bz00_2846; 
BgL_az00_1163 = BgL_az00_2845; 
goto BgL_dozd2loopzd2zd21007zd2_1162;} } } } } 
}



/* _append!2540 */
obj_t BGl__appendz122540z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2246, obj_t BgL_xz00_2247, obj_t BgL_yz00_2248)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 539 */
return 
BGl_appendz12z12zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2247, BgL_yz00_2248);} 
}



/* length */
BGL_EXPORTED_DEF long bgl_list_length(obj_t BgL_listz00_57)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 551 */
{ 
obj_t BgL_lz00_1188;long BgL_resz00_1189;
BgL_lz00_1188 = BgL_listz00_57; 
BgL_resz00_1189 = ((long)0); 
BgL_loopz00_1187:
if(
NULLP(BgL_lz00_1188))
{ /* ./Ieee/pairlist.scm 552 */
return BgL_resz00_1189;}  else 
{ /* ./Ieee/pairlist.scm 552 */
{ 
long BgL_resz00_2853;obj_t BgL_lz00_2851;
BgL_lz00_2851 = 
CDR(BgL_lz00_1188); 
BgL_resz00_2853 = 
(((long)1)+BgL_resz00_1189); 
BgL_resz00_1189 = BgL_resz00_2853; 
BgL_lz00_1188 = BgL_lz00_2851; 
goto BgL_loopz00_1187;} } } } 
}



/* _length2542 */
obj_t BGl__length2542z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2249, obj_t BgL_listz00_2250)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 551 */
{ /* ./Ieee/pairlist.scm 552 */
long BgL_auxz00_2855;
BgL_auxz00_2855 = 
bgl_list_length(BgL_listz00_2250); 
return 
BINT(BgL_auxz00_2855);} } 
}



/* reverse */
BGL_EXPORTED_DEF obj_t bgl_reverse(obj_t BgL_lz00_58)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 563 */
{ 
obj_t BgL_lz00_1217;obj_t BgL_accz00_1218;
BgL_lz00_1217 = BgL_lz00_58; 
BgL_accz00_1218 = BNIL; 
BgL_loopz00_1216:
if(
NULLP(BgL_lz00_1217))
{ /* ./Ieee/pairlist.scm 564 */
return BgL_accz00_1218;}  else 
{ /* ./Ieee/pairlist.scm 564 */
obj_t BgL_arg1461z00_1224;obj_t BgL_arg1462z00_1225;
BgL_arg1461z00_1224 = 
CDR(BgL_lz00_1217); 
{ /* ./Ieee/pairlist.scm 564 */
obj_t BgL_auxz00_2861;
BgL_auxz00_2861 = 
CAR(BgL_lz00_1217); 
BgL_arg1462z00_1225 = 
MAKE_PAIR(BgL_auxz00_2861, BgL_accz00_1218); } 
{ 
obj_t BgL_accz00_2865;obj_t BgL_lz00_2864;
BgL_lz00_2864 = BgL_arg1461z00_1224; 
BgL_accz00_2865 = BgL_arg1462z00_1225; 
BgL_accz00_1218 = BgL_accz00_2865; 
BgL_lz00_1217 = BgL_lz00_2864; 
goto BgL_loopz00_1216;} } } } 
}



/* _reverse2544 */
obj_t BGl__reverse2544z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2251, obj_t BgL_lz00_2252)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 563 */
return 
bgl_reverse(BgL_lz00_2252);} 
}



/* ereverse */
BGL_EXPORTED_DEF obj_t BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_59)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 573 */
{ 
obj_t BgL_lz00_474;obj_t BgL_accz00_475;
BgL_lz00_474 = BgL_lz00_59; 
BgL_accz00_475 = BNIL; 
BgL_loopz00_476:
if(
NULLP(BgL_lz00_474))
{ /* ./Ieee/pairlist.scm 576 */
return BgL_accz00_475;}  else 
{ /* ./Ieee/pairlist.scm 578 */
obj_t BgL_arg1474z00_478;obj_t BgL_arg1475z00_479;
BgL_arg1474z00_478 = 
CDR(BgL_lz00_474); 
{ /* ./Ieee/pairlist.scm 579 */
bool_t BgL_test1478z00_480;
BgL_test1478z00_480 = 
EXTENDED_PAIRP(BgL_lz00_474); 
if(BgL_test1478z00_480)
{ /* ./Ieee/pairlist.scm 580 */
obj_t BgL_arg1480z00_481;obj_t BgL_arg1481z00_482;
BgL_arg1480z00_481 = 
CAR(BgL_lz00_474); 
BgL_arg1481z00_482 = 
CER(BgL_lz00_474); 
{ /* ./Ieee/pairlist.scm 580 */
obj_t BgL_res2455z00_1254;
BgL_res2455z00_1254 = 
MAKE_EXTENDED_PAIR(BgL_arg1480z00_481, BgL_accz00_475, BgL_arg1481z00_482); 
BgL_arg1475z00_479 = BgL_res2455z00_1254; } }  else 
{ /* ./Ieee/pairlist.scm 581 */
obj_t BgL_auxz00_2875;
BgL_auxz00_2875 = 
CAR(BgL_lz00_474); 
BgL_arg1475z00_479 = 
MAKE_PAIR(BgL_auxz00_2875, BgL_accz00_475); } } 
{ 
obj_t BgL_accz00_2879;obj_t BgL_lz00_2878;
BgL_lz00_2878 = BgL_arg1474z00_478; 
BgL_accz00_2879 = BgL_arg1475z00_479; 
BgL_accz00_475 = BgL_accz00_2879; 
BgL_lz00_474 = BgL_lz00_2878; 
goto BgL_loopz00_476;} } } } 
}



/* _ereverse2546 */
obj_t BGl__ereverse2546z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2253, obj_t BgL_lz00_2254)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 573 */
return 
BGl_ereversez00zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2254);} 
}



/* list-tail */
BGL_EXPORTED_DEF obj_t BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_listz00_60, long BgL_kz00_61)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 586 */
BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00:
if(
(BgL_kz00_61==((long)0)))
{ /* ./Ieee/pairlist.scm 587 */
return BgL_listz00_60;}  else 
{ /* ./Ieee/pairlist.scm 587 */
obj_t BgL_arg1493z00_1257;long BgL_arg1494z00_1258;
BgL_arg1493z00_1257 = 
CDR(BgL_listz00_60); 
BgL_arg1494z00_1258 = 
(BgL_kz00_61-((long)1)); 
if(
(BgL_arg1494z00_1258==((long)0)))
{ /* ./Ieee/pairlist.scm 587 */
return BgL_arg1493z00_1257;}  else 
{ 
long BgL_kz00_2889;obj_t BgL_listz00_2887;
BgL_listz00_2887 = 
CDR(BgL_arg1493z00_1257); 
BgL_kz00_2889 = 
(BgL_arg1494z00_1258-((long)1)); 
BgL_kz00_61 = BgL_kz00_2889; 
BgL_listz00_60 = BgL_listz00_2887; 
goto BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00;} } } 
}



/* _list-tail2548 */
obj_t BGl__listzd2tail2548zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2255, obj_t BgL_listz00_2256, obj_t BgL_kz00_2257)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 586 */
return 
BGl_listzd2tailzd2zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2256, 
(long)CINT(BgL_kz00_2257));} 
}



/* list-ref */
BGL_EXPORTED_DEF obj_t bgl_list_ref(obj_t BgL_listz00_62, long BgL_kz00_63)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 594 */
bgl_list_ref:
if(
(BgL_kz00_63==((long)0)))
{ /* ./Ieee/pairlist.scm 595 */
return 
CAR(BgL_listz00_62);}  else 
{ /* ./Ieee/pairlist.scm 595 */
obj_t BgL_arg1502z00_1278;long BgL_arg1503z00_1279;
BgL_arg1502z00_1278 = 
CDR(BgL_listz00_62); 
BgL_arg1503z00_1279 = 
(BgL_kz00_63-((long)1)); 
if(
(BgL_arg1503z00_1279==((long)0)))
{ /* ./Ieee/pairlist.scm 595 */
return 
CAR(BgL_arg1502z00_1278);}  else 
{ 
long BgL_kz00_2903;obj_t BgL_listz00_2901;
BgL_listz00_2901 = 
CDR(BgL_arg1502z00_1278); 
BgL_kz00_2903 = 
(BgL_arg1503z00_1279-((long)1)); 
BgL_kz00_63 = BgL_kz00_2903; 
BgL_listz00_62 = BgL_listz00_2901; 
goto bgl_list_ref;} } } 
}



/* _list-ref2550 */
obj_t BGl__listzd2ref2550zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2258, obj_t BgL_listz00_2259, obj_t BgL_kz00_2260)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 594 */
return 
bgl_list_ref(BgL_listz00_2259, 
(long)CINT(BgL_kz00_2260));} 
}



/* list-set! */
BGL_EXPORTED_DEF obj_t BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_listz00_64, long BgL_kz00_65, obj_t BgL_valz00_66)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 602 */
BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00:
if(
(BgL_kz00_65==((long)0)))
{ /* ./Ieee/pairlist.scm 603 */
return 
SET_CAR(BgL_listz00_64, BgL_valz00_66);}  else 
{ /* ./Ieee/pairlist.scm 603 */
obj_t BgL_arg1511z00_1300;long BgL_arg1512z00_1301;
BgL_arg1511z00_1300 = 
CDR(BgL_listz00_64); 
BgL_arg1512z00_1301 = 
(BgL_kz00_65-((long)1)); 
if(
(BgL_arg1512z00_1301==((long)0)))
{ /* ./Ieee/pairlist.scm 603 */
return 
SET_CAR(BgL_arg1511z00_1300, BgL_valz00_66);}  else 
{ 
long BgL_kz00_2917;obj_t BgL_listz00_2915;
BgL_listz00_2915 = 
CDR(BgL_arg1511z00_1300); 
BgL_kz00_2917 = 
(BgL_arg1512z00_1301-((long)1)); 
BgL_kz00_65 = BgL_kz00_2917; 
BgL_listz00_64 = BgL_listz00_2915; 
goto BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00;} } } 
}



/* _list-set!2552 */
obj_t BGl__listzd2setz122552zc0zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2261, obj_t BgL_listz00_2262, obj_t BgL_kz00_2263, obj_t BgL_valz00_2264)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 602 */
return 
BGl_listzd2setz12zc0zz__r4_pairs_and_lists_6_3z00(BgL_listz00_2262, 
(long)CINT(BgL_kz00_2263), BgL_valz00_2264);} 
}



/* last-pair */
BGL_EXPORTED_DEF obj_t BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_67)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 610 */
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00:
{ /* ./Ieee/pairlist.scm 611 */
bool_t BgL_testz00_2921;
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_auxz00_2922;
BgL_auxz00_2922 = 
CDR(BgL_xz00_67); 
BgL_testz00_2921 = 
PAIRP(BgL_auxz00_2922); } 
if(BgL_testz00_2921)
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_arg1519z00_1326;
BgL_arg1519z00_1326 = 
CDR(BgL_xz00_67); 
{ /* ./Ieee/pairlist.scm 611 */
bool_t BgL_testz00_2926;
{ /* ./Ieee/pairlist.scm 611 */
obj_t BgL_auxz00_2927;
BgL_auxz00_2927 = 
CDR(BgL_arg1519z00_1326); 
BgL_testz00_2926 = 
PAIRP(BgL_auxz00_2927); } 
if(BgL_testz00_2926)
{ 
obj_t BgL_xz00_2930;
BgL_xz00_2930 = 
CDR(BgL_arg1519z00_1326); 
BgL_xz00_67 = BgL_xz00_2930; 
goto BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00;}  else 
{ /* ./Ieee/pairlist.scm 611 */
return BgL_arg1519z00_1326;} } }  else 
{ /* ./Ieee/pairlist.scm 611 */
return BgL_xz00_67;} } } 
}



/* _last-pair2554 */
obj_t BGl__lastzd2pair2554zd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2265, obj_t BgL_xz00_2266)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 610 */
return 
BGl_lastzd2pairzd2zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2266);} 
}



/* memq */
BGL_EXPORTED_DEF obj_t BGl_memqz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_68, obj_t BgL_listz00_69)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 618 */
{ 
obj_t BgL_listz00_1339;
BgL_listz00_1339 = BgL_listz00_69; 
BgL_loopz00_1338:
if(
PAIRP(BgL_listz00_1339))
{ /* ./Ieee/pairlist.scm 619 */
bool_t BgL_testz00_2935;
{ /* ./Ieee/pairlist.scm 619 */
obj_t BgL_auxz00_2936;
BgL_auxz00_2936 = 
CAR(BgL_listz00_1339); 
BgL_testz00_2935 = 
(BgL_auxz00_2936==BgL_objz00_68); } 
if(BgL_testz00_2935)
{ /* ./Ieee/pairlist.scm 619 */
return BgL_listz00_1339;}  else 
{ 
obj_t BgL_listz00_2939;
BgL_listz00_2939 = 
CDR(BgL_listz00_1339); 
BgL_listz00_1339 = BgL_listz00_2939; 
goto BgL_loopz00_1338;} }  else 
{ /* ./Ieee/pairlist.scm 619 */
return BFALSE;} } } 
}



/* _memq2556 */
obj_t BGl__memq2556z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2267, obj_t BgL_objz00_2268, obj_t BgL_listz00_2269)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 618 */
return 
BGl_memqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2268, BgL_listz00_2269);} 
}



/* memv */
BGL_EXPORTED_DEF obj_t BGl_memvz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_70, obj_t BgL_listz00_71)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 629 */
{ 
obj_t BgL_listz00_1348;
BgL_listz00_1348 = BgL_listz00_71; 
BgL_loopz00_1347:
if(
PAIRP(BgL_listz00_1348))
{ /* ./Ieee/pairlist.scm 630 */
if(
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(
CAR(BgL_listz00_1348), BgL_objz00_70))
{ /* ./Ieee/pairlist.scm 630 */
return BgL_listz00_1348;}  else 
{ 
obj_t BgL_listz00_2947;
BgL_listz00_2947 = 
CDR(BgL_listz00_1348); 
BgL_listz00_1348 = BgL_listz00_2947; 
goto BgL_loopz00_1347;} }  else 
{ /* ./Ieee/pairlist.scm 630 */
return BFALSE;} } } 
}



/* _memv2558 */
obj_t BGl__memv2558z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2270, obj_t BgL_objz00_2271, obj_t BgL_listz00_2272)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 629 */
return 
BGl_memvz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2271, BgL_listz00_2272);} 
}



/* member */
BGL_EXPORTED_DEF obj_t BGl_memberz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_72, obj_t BgL_listz00_73)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 640 */
{ 
obj_t BgL_listz00_1357;
BgL_listz00_1357 = BgL_listz00_73; 
BgL_loopz00_1356:
if(
PAIRP(BgL_listz00_1357))
{ /* ./Ieee/pairlist.scm 641 */
if(
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_objz00_72, 
CAR(BgL_listz00_1357)))
{ /* ./Ieee/pairlist.scm 641 */
return BgL_listz00_1357;}  else 
{ /* ./Ieee/pairlist.scm 641 */
{ 
obj_t BgL_listz00_2955;
BgL_listz00_2955 = 
CDR(BgL_listz00_1357); 
BgL_listz00_1357 = BgL_listz00_2955; 
goto BgL_loopz00_1356;} } }  else 
{ /* ./Ieee/pairlist.scm 641 */
return BFALSE;} } } 
}



/* _member2560 */
obj_t BGl__member2560z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2273, obj_t BgL_objz00_2274, obj_t BgL_listz00_2275)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 640 */
return 
BGl_memberz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2274, BgL_listz00_2275);} 
}



/* assq */
BGL_EXPORTED_DEF obj_t BGl_assqz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_74, obj_t BgL_alistz00_75)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 650 */
{ 
obj_t BgL_alistz00_1366;
BgL_alistz00_1366 = BgL_alistz00_75; 
BgL_loopz00_1365:
if(
PAIRP(BgL_alistz00_1366))
{ /* ./Ieee/pairlist.scm 651 */
bool_t BgL_testz00_2960;
{ /* ./Ieee/pairlist.scm 651 */
obj_t BgL_auxz00_2961;
{ /* ./Ieee/pairlist.scm 651 */
obj_t BgL_auxz00_2962;
BgL_auxz00_2962 = 
CAR(BgL_alistz00_1366); 
BgL_auxz00_2961 = 
CAR(BgL_auxz00_2962); } 
BgL_testz00_2960 = 
(BgL_auxz00_2961==BgL_objz00_74); } 
if(BgL_testz00_2960)
{ /* ./Ieee/pairlist.scm 651 */
return 
CAR(BgL_alistz00_1366);}  else 
{ 
obj_t BgL_alistz00_2967;
BgL_alistz00_2967 = 
CDR(BgL_alistz00_1366); 
BgL_alistz00_1366 = BgL_alistz00_2967; 
goto BgL_loopz00_1365;} }  else 
{ /* ./Ieee/pairlist.scm 651 */
return BFALSE;} } } 
}



/* _assq2562 */
obj_t BGl__assq2562z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2276, obj_t BgL_objz00_2277, obj_t BgL_alistz00_2278)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 650 */
return 
BGl_assqz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2277, BgL_alistz00_2278);} 
}



/* assv */
BGL_EXPORTED_DEF obj_t BGl_assvz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_76, obj_t BgL_alistz00_77)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 661 */
{ 
obj_t BgL_alistz00_1378;
BgL_alistz00_1378 = BgL_alistz00_77; 
BgL_loopz00_1377:
if(
PAIRP(BgL_alistz00_1378))
{ /* ./Ieee/pairlist.scm 662 */
bool_t BgL_testz00_2972;
{ /* ./Ieee/pairlist.scm 662 */
obj_t BgL_auxz00_2973;
{ /* ./Ieee/pairlist.scm 662 */
obj_t BgL_auxz00_2974;
BgL_auxz00_2974 = 
CAR(BgL_alistz00_1378); 
BgL_auxz00_2973 = 
CAR(BgL_auxz00_2974); } 
BgL_testz00_2972 = 
BGl_eqvzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_2973, BgL_objz00_76); } 
if(BgL_testz00_2972)
{ /* ./Ieee/pairlist.scm 662 */
return 
CAR(BgL_alistz00_1378);}  else 
{ 
obj_t BgL_alistz00_2979;
BgL_alistz00_2979 = 
CDR(BgL_alistz00_1378); 
BgL_alistz00_1378 = BgL_alistz00_2979; 
goto BgL_loopz00_1377;} }  else 
{ /* ./Ieee/pairlist.scm 662 */
return BFALSE;} } } 
}



/* _assv2564 */
obj_t BGl__assv2564z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2279, obj_t BgL_objz00_2280, obj_t BgL_alistz00_2281)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 661 */
return 
BGl_assvz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2280, BgL_alistz00_2281);} 
}



/* assoc */
BGL_EXPORTED_DEF obj_t BGl_assocz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_objz00_78, obj_t BgL_alistz00_79)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 672 */
{ 
obj_t BgL_alistz00_1390;
BgL_alistz00_1390 = BgL_alistz00_79; 
BgL_loopz00_1389:
if(
PAIRP(BgL_alistz00_1390))
{ /* ./Ieee/pairlist.scm 673 */
bool_t BgL_testz00_2984;
{ /* ./Ieee/pairlist.scm 673 */
obj_t BgL_auxz00_2985;
{ /* ./Ieee/pairlist.scm 673 */
obj_t BgL_auxz00_2986;
BgL_auxz00_2986 = 
CAR(BgL_alistz00_1390); 
BgL_auxz00_2985 = 
CAR(BgL_auxz00_2986); } 
BgL_testz00_2984 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_2985, BgL_objz00_78); } 
if(BgL_testz00_2984)
{ /* ./Ieee/pairlist.scm 673 */
return 
CAR(BgL_alistz00_1390);}  else 
{ 
obj_t BgL_alistz00_2991;
BgL_alistz00_2991 = 
CDR(BgL_alistz00_1390); 
BgL_alistz00_1390 = BgL_alistz00_2991; 
goto BgL_loopz00_1389;} }  else 
{ /* ./Ieee/pairlist.scm 673 */
return BFALSE;} } } 
}



/* _assoc2566 */
obj_t BGl__assoc2566z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2282, obj_t BgL_objz00_2283, obj_t BgL_alistz00_2284)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 672 */
return 
BGl_assocz00zz__r4_pairs_and_lists_6_3z00(BgL_objz00_2283, BgL_alistz00_2284);} 
}



/* remq */
BGL_EXPORTED_DEF obj_t BGl_remqz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_80, obj_t BgL_yz00_81)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 686 */
BGl_remqz00zz__r4_pairs_and_lists_6_3z00:
if(
NULLP(BgL_yz00_81))
{ /* ./Ieee/pairlist.scm 688 */
return BgL_yz00_81;}  else 
{ /* ./Ieee/pairlist.scm 689 */
bool_t BgL_testz00_2996;
{ /* ./Ieee/pairlist.scm 689 */
obj_t BgL_auxz00_2997;
BgL_auxz00_2997 = 
CAR(BgL_yz00_81); 
BgL_testz00_2996 = 
(BgL_xz00_80==BgL_auxz00_2997); } 
if(BgL_testz00_2996)
{ /* ./Ieee/pairlist.scm 689 */
{ 
obj_t BgL_yz00_3000;
BgL_yz00_3000 = 
CDR(BgL_yz00_81); 
BgL_yz00_81 = BgL_yz00_3000; 
goto BGl_remqz00zz__r4_pairs_and_lists_6_3z00;} }  else 
{ /* ./Ieee/pairlist.scm 689 */
{ /* ./Ieee/pairlist.scm 690 */
obj_t BgL_auxz00_3004;obj_t BgL_auxz00_3002;
BgL_auxz00_3004 = 
BGl_remqz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_80, 
CDR(BgL_yz00_81)); 
BgL_auxz00_3002 = 
CAR(BgL_yz00_81); 
return 
MAKE_PAIR(BgL_auxz00_3002, BgL_auxz00_3004);} } } } 
}



/* _remq2568 */
obj_t BGl__remq2568z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2285, obj_t BgL_xz00_2286, obj_t BgL_yz00_2287)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 686 */
return 
BGl_remqz00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2286, BgL_yz00_2287);} 
}



/* delete */
BGL_EXPORTED_DEF obj_t BGl_deletez00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_82, obj_t BgL_yz00_83)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 695 */
BGl_deletez00zz__r4_pairs_and_lists_6_3z00:
if(
NULLP(BgL_yz00_83))
{ /* ./Ieee/pairlist.scm 697 */
return BgL_yz00_83;}  else 
{ /* ./Ieee/pairlist.scm 697 */
if(
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_xz00_82, 
CAR(BgL_yz00_83)))
{ /* ./Ieee/pairlist.scm 698 */
{ 
obj_t BgL_yz00_3014;
BgL_yz00_3014 = 
CDR(BgL_yz00_83); 
BgL_yz00_83 = BgL_yz00_3014; 
goto BGl_deletez00zz__r4_pairs_and_lists_6_3z00;} }  else 
{ /* ./Ieee/pairlist.scm 698 */
{ /* ./Ieee/pairlist.scm 699 */
obj_t BgL_auxz00_3018;obj_t BgL_auxz00_3016;
BgL_auxz00_3018 = 
BGl_deletez00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_82, 
CDR(BgL_yz00_83)); 
BgL_auxz00_3016 = 
CAR(BgL_yz00_83); 
return 
MAKE_PAIR(BgL_auxz00_3016, BgL_auxz00_3018);} } } } 
}



/* _delete2570 */
obj_t BGl__delete2570z00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2288, obj_t BgL_xz00_2289, obj_t BgL_yz00_2290)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 695 */
return 
BGl_deletez00zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2289, BgL_yz00_2290);} 
}



/* remq! */
BGL_EXPORTED_DEF obj_t BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_84, obj_t BgL_yz00_85)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 704 */
BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00:
if(
NULLP(BgL_yz00_85))
{ /* ./Ieee/pairlist.scm 706 */
return BgL_yz00_85;}  else 
{ /* ./Ieee/pairlist.scm 707 */
bool_t BgL_testz00_3025;
{ /* ./Ieee/pairlist.scm 707 */
obj_t BgL_auxz00_3026;
BgL_auxz00_3026 = 
CAR(BgL_yz00_85); 
BgL_testz00_3025 = 
(BgL_xz00_84==BgL_auxz00_3026); } 
if(BgL_testz00_3025)
{ /* ./Ieee/pairlist.scm 707 */
{ 
obj_t BgL_yz00_3029;
BgL_yz00_3029 = 
CDR(BgL_yz00_85); 
BgL_yz00_85 = BgL_yz00_3029; 
goto BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00;} }  else 
{ /* ./Ieee/pairlist.scm 707 */
{ 
obj_t BgL_prevz00_552;
BgL_prevz00_552 = BgL_yz00_85; 
BgL_loopz00_553:
{ /* ./Ieee/pairlist.scm 709 */
bool_t BgL_testz00_3031;
{ /* ./Ieee/pairlist.scm 709 */
obj_t BgL_auxz00_3032;
BgL_auxz00_3032 = 
CDR(BgL_prevz00_552); 
BgL_testz00_3031 = 
NULLP(BgL_auxz00_3032); } 
if(BgL_testz00_3031)
{ /* ./Ieee/pairlist.scm 709 */
return BgL_yz00_85;}  else 
{ /* ./Ieee/pairlist.scm 711 */
bool_t BgL_testz00_3035;
{ /* ./Ieee/pairlist.scm 711 */
obj_t BgL_auxz00_3036;
{ /* ./Ieee/pairlist.scm 711 */
obj_t BgL_auxz00_3037;
BgL_auxz00_3037 = 
CDR(BgL_prevz00_552); 
BgL_auxz00_3036 = 
CAR(BgL_auxz00_3037); } 
BgL_testz00_3035 = 
(BgL_auxz00_3036==BgL_xz00_84); } 
if(BgL_testz00_3035)
{ /* ./Ieee/pairlist.scm 711 */
{ /* ./Ieee/pairlist.scm 712 */
obj_t BgL_auxz00_3041;
{ /* ./Ieee/pairlist.scm 712 */
obj_t BgL_auxz00_3042;
BgL_auxz00_3042 = 
CDR(BgL_prevz00_552); 
BgL_auxz00_3041 = 
CDR(BgL_auxz00_3042); } 
SET_CDR(BgL_prevz00_552, BgL_auxz00_3041); } 
{ 

goto BgL_loopz00_553;} }  else 
{ /* ./Ieee/pairlist.scm 711 */
{ 
obj_t BgL_prevz00_3046;
BgL_prevz00_3046 = 
CDR(BgL_prevz00_552); 
BgL_prevz00_552 = BgL_prevz00_3046; 
goto BgL_loopz00_553;} } } } } } } } 
}



/* _remq!2572 */
obj_t BGl__remqz122572z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2291, obj_t BgL_xz00_2292, obj_t BgL_yz00_2293)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 704 */
return 
BGl_remqz12z12zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2292, BgL_yz00_2293);} 
}



/* delete! */
BGL_EXPORTED_DEF obj_t BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_86, obj_t BgL_yz00_87)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 719 */
BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00:
if(
NULLP(BgL_yz00_87))
{ /* ./Ieee/pairlist.scm 721 */
return BgL_yz00_87;}  else 
{ /* ./Ieee/pairlist.scm 721 */
if(
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_xz00_86, 
CAR(BgL_yz00_87)))
{ /* ./Ieee/pairlist.scm 722 */
{ 
obj_t BgL_yz00_3054;
BgL_yz00_3054 = 
CDR(BgL_yz00_87); 
BgL_yz00_87 = BgL_yz00_3054; 
goto BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00;} }  else 
{ /* ./Ieee/pairlist.scm 722 */
{ 
obj_t BgL_prevz00_564;
BgL_prevz00_564 = BgL_yz00_87; 
BgL_loopz00_565:
{ /* ./Ieee/pairlist.scm 724 */
bool_t BgL_testz00_3056;
{ /* ./Ieee/pairlist.scm 724 */
obj_t BgL_auxz00_3057;
BgL_auxz00_3057 = 
CDR(BgL_prevz00_564); 
BgL_testz00_3056 = 
NULLP(BgL_auxz00_3057); } 
if(BgL_testz00_3056)
{ /* ./Ieee/pairlist.scm 724 */
return BgL_yz00_87;}  else 
{ /* ./Ieee/pairlist.scm 726 */
bool_t BgL_testz00_3060;
{ /* ./Ieee/pairlist.scm 726 */
obj_t BgL_auxz00_3061;
{ /* ./Ieee/pairlist.scm 726 */
obj_t BgL_auxz00_3062;
BgL_auxz00_3062 = 
CDR(BgL_prevz00_564); 
BgL_auxz00_3061 = 
CAR(BgL_auxz00_3062); } 
BgL_testz00_3060 = 
BGl_equalzf3zf3zz__r4_equivalence_6_2z00(BgL_auxz00_3061, BgL_xz00_86); } 
if(BgL_testz00_3060)
{ /* ./Ieee/pairlist.scm 726 */
{ /* ./Ieee/pairlist.scm 727 */
obj_t BgL_auxz00_3066;
{ /* ./Ieee/pairlist.scm 727 */
obj_t BgL_auxz00_3067;
BgL_auxz00_3067 = 
CDR(BgL_prevz00_564); 
BgL_auxz00_3066 = 
CDR(BgL_auxz00_3067); } 
SET_CDR(BgL_prevz00_564, BgL_auxz00_3066); } 
{ 

goto BgL_loopz00_565;} }  else 
{ /* ./Ieee/pairlist.scm 726 */
{ 
obj_t BgL_prevz00_3071;
BgL_prevz00_3071 = 
CDR(BgL_prevz00_564); 
BgL_prevz00_564 = BgL_prevz00_3071; 
goto BgL_loopz00_565;} } } } } } } } 
}



/* _delete!2574 */
obj_t BGl__deletez122574z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2294, obj_t BgL_xz00_2295, obj_t BgL_yz00_2296)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 719 */
return 
BGl_deletez12z12zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2295, BgL_yz00_2296);} 
}



/* cons* */
BGL_EXPORTED_DEF obj_t BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_88, obj_t BgL_yz00_89)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 734 */
if(
NULLP(BgL_yz00_89))
{ /* ./Ieee/pairlist.scm 739 */
return BgL_xz00_88;}  else 
{ /* ./Ieee/pairlist.scm 741 */
obj_t BgL_auxz00_3076;
BgL_auxz00_3076 = 
BGl_consza21za2zz__r4_pairs_and_lists_6_3z00(BgL_yz00_89); 
return 
MAKE_PAIR(BgL_xz00_88, BgL_auxz00_3076);} } 
}



/* cons*1 */
obj_t BGl_consza21za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_xz00_573)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 735 */
{ /* ./Ieee/pairlist.scm 735 */
bool_t BgL_testz00_3079;
{ /* ./Ieee/pairlist.scm 735 */
obj_t BgL_auxz00_3080;
BgL_auxz00_3080 = 
CDR(BgL_xz00_573); 
BgL_testz00_3079 = 
NULLP(BgL_auxz00_3080); } 
if(BgL_testz00_3079)
{ /* ./Ieee/pairlist.scm 735 */
return 
CAR(BgL_xz00_573);}  else 
{ /* ./Ieee/pairlist.scm 735 */
{ /* ./Ieee/pairlist.scm 738 */
obj_t BgL_auxz00_3086;obj_t BgL_auxz00_3084;
BgL_auxz00_3086 = 
BGl_consza21za2zz__r4_pairs_and_lists_6_3z00(
CDR(BgL_xz00_573)); 
BgL_auxz00_3084 = 
CAR(BgL_xz00_573); 
return 
MAKE_PAIR(BgL_auxz00_3084, BgL_auxz00_3086);} } } } 
}



/* _cons* */
obj_t BGl__consza2za2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2297, obj_t BgL_xz00_2298, obj_t BgL_yz00_2299)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 734 */
return 
BGl_consza2za2zz__r4_pairs_and_lists_6_3z00(BgL_xz00_2298, BgL_yz00_2299);} 
}



/* reverse! */
BGL_EXPORTED_DEF obj_t BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_lz00_90)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 746 */
if(
PAIRP(BgL_lz00_90))
{ 
obj_t BgL_lz00_1451;obj_t BgL_rz00_1452;
BgL_lz00_1451 = BgL_lz00_90; 
BgL_rz00_1452 = BNIL; 
BgL_nrz00_1450:
{ /* ./Ieee/pairlist.scm 748 */
bool_t BgL_testz00_3093;
{ /* ./Ieee/pairlist.scm 748 */
obj_t BgL_auxz00_3094;
BgL_auxz00_3094 = 
CDR(BgL_lz00_1451); 
BgL_testz00_3093 = 
NULLP(BgL_auxz00_3094); } 
if(BgL_testz00_3093)
{ /* ./Ieee/pairlist.scm 748 */
SET_CDR(BgL_lz00_1451, BgL_rz00_1452); 
return BgL_lz00_1451;}  else 
{ /* ./Ieee/pairlist.scm 748 */
obj_t BgL_cdrlz00_1459;
BgL_cdrlz00_1459 = 
CDR(BgL_lz00_1451); 
{ /* ./Ieee/pairlist.scm 748 */
obj_t BgL_arg1741z00_1460;
SET_CDR(BgL_lz00_1451, BgL_rz00_1452); 
BgL_arg1741z00_1460 = BgL_lz00_1451; 
{ 
obj_t BgL_rz00_3101;obj_t BgL_lz00_3100;
BgL_lz00_3100 = BgL_cdrlz00_1459; 
BgL_rz00_3101 = BgL_arg1741z00_1460; 
BgL_rz00_1452 = BgL_rz00_3101; 
BgL_lz00_1451 = BgL_lz00_3100; 
goto BgL_nrz00_1450;} } } } }  else 
{ /* ./Ieee/pairlist.scm 747 */
return BgL_lz00_90;} } 
}



/* _reverse!2577 */
obj_t BGl__reversez122577z12zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2300, obj_t BgL_lz00_2301)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 746 */
return 
BGl_reversez12z12zz__r4_pairs_and_lists_6_3z00(BgL_lz00_2301);} 
}



/* every */
BGL_EXPORTED_DEF obj_t BGl_everyz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_91, obj_t BgL_lz00_92)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 762 */
if(
NULLP(BgL_lz00_92))
{ /* ./Ieee/pairlist.scm 764 */
return BTRUE;}  else 
{ /* ./Ieee/pairlist.scm 766 */
bool_t BgL_testz00_3105;
{ /* ./Ieee/pairlist.scm 766 */
obj_t BgL_auxz00_3106;
BgL_auxz00_3106 = 
CDR(BgL_lz00_92); 
BgL_testz00_3105 = 
NULLP(BgL_auxz00_3106); } 
if(BgL_testz00_3105)
{ /* ./Ieee/pairlist.scm 766 */
{ /* ./Ieee/pairlist.scm 767 */
obj_t BgL_arg1753z00_595;
BgL_arg1753z00_595 = 
CAR(BgL_lz00_92); 
{ 
obj_t BgL_lz00_1497;obj_t BgL_lvz00_1498;
BgL_lz00_1497 = BgL_arg1753z00_595; 
BgL_lvz00_1498 = BTRUE; 
BgL_loopz00_1496:
if(
NULLP(BgL_lz00_1497))
{ /* ./Ieee/pairlist.scm 767 */
return BgL_lvz00_1498;}  else 
{ /* ./Ieee/pairlist.scm 767 */
obj_t BgL_nvz00_1505;
{ /* ./Ieee/pairlist.scm 767 */
obj_t BgL_arg1762z00_1506;
BgL_arg1762z00_1506 = 
CAR(BgL_lz00_1497); 
BgL_nvz00_1505 = 
PROCEDURE_ENTRY(BgL_predz00_91)(BgL_predz00_91, BgL_arg1762z00_1506, BEOA); } 
if(
CBOOL(BgL_nvz00_1505))
{ 
obj_t BgL_lvz00_3119;obj_t BgL_lz00_3117;
BgL_lz00_3117 = 
CDR(BgL_lz00_1497); 
BgL_lvz00_3119 = BgL_nvz00_1505; 
BgL_lvz00_1498 = BgL_lvz00_3119; 
BgL_lz00_1497 = BgL_lz00_3117; 
goto BgL_loopz00_1496;}  else 
{ /* ./Ieee/pairlist.scm 767 */
return BFALSE;} } } } }  else 
{ /* ./Ieee/pairlist.scm 766 */
{ 
obj_t BgL_lz00_601;obj_t BgL_lvz00_602;
BgL_lz00_601 = BgL_lz00_92; 
BgL_lvz00_602 = BTRUE; 
BgL_loopz00_603:
{ /* ./Ieee/pairlist.scm 776 */
bool_t BgL_testz00_3120;
{ /* ./Ieee/pairlist.scm 776 */
obj_t BgL_auxz00_3121;
BgL_auxz00_3121 = 
CAR(BgL_lz00_601); 
BgL_testz00_3120 = 
NULLP(BgL_auxz00_3121); } 
if(BgL_testz00_3120)
{ /* ./Ieee/pairlist.scm 776 */
return BgL_lvz00_602;}  else 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_nvz00_605;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3124;
if(
NULLP(BgL_lz00_601))
{ /* ./Ieee/pairlist.scm 778 */
BgL_auxz00_3124 = BNIL
; }  else 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_head1012z00_626;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3127;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3128;
BgL_auxz00_3128 = 
CAR(BgL_lz00_601); 
BgL_auxz00_3127 = 
CAR(BgL_auxz00_3128); } 
BgL_head1012z00_626 = 
MAKE_PAIR(BgL_auxz00_3127, BNIL); } 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_arg1802z00_630;
BgL_arg1802z00_630 = 
CDR(BgL_lz00_601); 
{ 
obj_t BgL_l1010z00_1539;obj_t BgL_tail1013z00_1540;
BgL_l1010z00_1539 = BgL_arg1802z00_630; 
BgL_tail1013z00_1540 = BgL_head1012z00_626; 
BgL_map1011z00_1538:
if(
NULLP(BgL_l1010z00_1539))
{ /* ./Ieee/pairlist.scm 778 */
BgL_auxz00_3124 = BgL_head1012z00_626
; }  else 
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_newtail1014z00_1548;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3135;
{ /* ./Ieee/pairlist.scm 778 */
obj_t BgL_auxz00_3136;
BgL_auxz00_3136 = 
CAR(BgL_l1010z00_1539); 
BgL_auxz00_3135 = 
CAR(BgL_auxz00_3136); } 
BgL_newtail1014z00_1548 = 
MAKE_PAIR(BgL_auxz00_3135, BNIL); } 
SET_CDR(BgL_tail1013z00_1540, BgL_newtail1014z00_1548); 
{ 
obj_t BgL_tail1013z00_3143;obj_t BgL_l1010z00_3141;
BgL_l1010z00_3141 = 
CDR(BgL_l1010z00_1539); 
BgL_tail1013z00_3143 = BgL_newtail1014z00_1548; 
BgL_tail1013z00_1540 = BgL_tail1013z00_3143; 
BgL_l1010z00_1539 = BgL_l1010z00_3141; 
goto BgL_map1011z00_1538;} } } } } 
BgL_nvz00_605 = 
apply(BgL_predz00_91, BgL_auxz00_3124); } 
if(
CBOOL(BgL_nvz00_605))
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_arg1769z00_607;
if(
NULLP(BgL_lz00_601))
{ /* ./Ieee/pairlist.scm 779 */
BgL_arg1769z00_607 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_head1018z00_610;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_auxz00_3149;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_auxz00_3150;
BgL_auxz00_3150 = 
CAR(BgL_lz00_601); 
BgL_auxz00_3149 = 
CDR(BgL_auxz00_3150); } 
BgL_head1018z00_610 = 
MAKE_PAIR(BgL_auxz00_3149, BNIL); } 
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_arg1773z00_614;
BgL_arg1773z00_614 = 
CDR(BgL_lz00_601); 
{ 
obj_t BgL_l1016z00_1598;obj_t BgL_tail1019z00_1599;
BgL_l1016z00_1598 = BgL_arg1773z00_614; 
BgL_tail1019z00_1599 = BgL_head1018z00_610; 
BgL_map1017z00_1597:
if(
NULLP(BgL_l1016z00_1598))
{ /* ./Ieee/pairlist.scm 779 */
BgL_arg1769z00_607 = BgL_head1018z00_610; }  else 
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_newtail1020z00_1607;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_auxz00_3157;
{ /* ./Ieee/pairlist.scm 779 */
obj_t BgL_auxz00_3158;
BgL_auxz00_3158 = 
CAR(BgL_l1016z00_1598); 
BgL_auxz00_3157 = 
CDR(BgL_auxz00_3158); } 
BgL_newtail1020z00_1607 = 
MAKE_PAIR(BgL_auxz00_3157, BNIL); } 
SET_CDR(BgL_tail1019z00_1599, BgL_newtail1020z00_1607); 
{ 
obj_t BgL_tail1019z00_3165;obj_t BgL_l1016z00_3163;
BgL_l1016z00_3163 = 
CDR(BgL_l1016z00_1598); 
BgL_tail1019z00_3165 = BgL_newtail1020z00_1607; 
BgL_tail1019z00_1599 = BgL_tail1019z00_3165; 
BgL_l1016z00_1598 = BgL_l1016z00_3163; 
goto BgL_map1017z00_1597;} } } } } 
{ 
obj_t BgL_lvz00_3167;obj_t BgL_lz00_3166;
BgL_lz00_3166 = BgL_arg1769z00_607; 
BgL_lvz00_3167 = BgL_nvz00_605; 
BgL_lvz00_602 = BgL_lvz00_3167; 
BgL_lz00_601 = BgL_lz00_3166; 
goto BgL_loopz00_603;} }  else 
{ /* ./Ieee/pairlist.scm 779 */
return BFALSE;} } } } } } } 
}



/* _every */
obj_t BGl__everyz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2302, obj_t BgL_predz00_2303, obj_t BgL_lz00_2304)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 762 */
return 
BGl_everyz00zz__r4_pairs_and_lists_6_3z00(BgL_predz00_2303, BgL_lz00_2304);} 
}



/* any */
BGL_EXPORTED_DEF obj_t BGl_anyz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_93, obj_t BgL_lz00_94)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 784 */
if(
NULLP(BgL_lz00_94))
{ /* ./Ieee/pairlist.scm 786 */
return BFALSE;}  else 
{ /* ./Ieee/pairlist.scm 788 */
bool_t BgL_testz00_3171;
{ /* ./Ieee/pairlist.scm 788 */
obj_t BgL_auxz00_3172;
BgL_auxz00_3172 = 
CDR(BgL_lz00_94); 
BgL_testz00_3171 = 
NULLP(BgL_auxz00_3172); } 
if(BgL_testz00_3171)
{ /* ./Ieee/pairlist.scm 788 */
{ 
obj_t BgL_lz00_644;
BgL_lz00_644 = 
CAR(BgL_lz00_94); 
BgL_loopz00_645:
if(
NULLP(BgL_lz00_644))
{ /* ./Ieee/pairlist.scm 790 */
return BFALSE;}  else 
{ /* ./Ieee/pairlist.scm 792 */
obj_t BgL__ortest_1021z00_648;
{ /* ./Ieee/pairlist.scm 792 */
obj_t BgL_arg1856z00_650;
BgL_arg1856z00_650 = 
CAR(BgL_lz00_644); 
BgL__ortest_1021z00_648 = 
PROCEDURE_ENTRY(BgL_predz00_93)(BgL_predz00_93, BgL_arg1856z00_650, BEOA); } 
if(
CBOOL(BgL__ortest_1021z00_648))
{ /* ./Ieee/pairlist.scm 793 */
return BgL__ortest_1021z00_648;}  else 
{ 
obj_t BgL_lz00_3182;
BgL_lz00_3182 = 
CDR(BgL_lz00_644); 
BgL_lz00_644 = BgL_lz00_3182; 
goto BgL_loopz00_645;} } } }  else 
{ /* ./Ieee/pairlist.scm 788 */
{ 
obj_t BgL_lz00_651;
BgL_lz00_651 = BgL_lz00_94; 
BgL_loopz00_652:
{ /* ./Ieee/pairlist.scm 796 */
bool_t BgL_testz00_3185;
{ /* ./Ieee/pairlist.scm 796 */
obj_t BgL_auxz00_3186;
BgL_auxz00_3186 = 
CAR(BgL_lz00_651); 
BgL_testz00_3185 = 
NULLP(BgL_auxz00_3186); } 
if(BgL_testz00_3185)
{ /* ./Ieee/pairlist.scm 796 */
return BFALSE;}  else 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL__ortest_1022z00_654;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3189;
if(
NULLP(BgL_lz00_651))
{ /* ./Ieee/pairlist.scm 798 */
BgL_auxz00_3189 = BNIL
; }  else 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_head1025z00_674;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3192;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3193;
BgL_auxz00_3193 = 
CAR(BgL_lz00_651); 
BgL_auxz00_3192 = 
CAR(BgL_auxz00_3193); } 
BgL_head1025z00_674 = 
MAKE_PAIR(BgL_auxz00_3192, BNIL); } 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_arg1897z00_678;
BgL_arg1897z00_678 = 
CDR(BgL_lz00_651); 
{ 
obj_t BgL_l1023z00_1666;obj_t BgL_tail1026z00_1667;
BgL_l1023z00_1666 = BgL_arg1897z00_678; 
BgL_tail1026z00_1667 = BgL_head1025z00_674; 
BgL_map1024z00_1665:
if(
NULLP(BgL_l1023z00_1666))
{ /* ./Ieee/pairlist.scm 798 */
BgL_auxz00_3189 = BgL_head1025z00_674
; }  else 
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_newtail1027z00_1675;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3200;
{ /* ./Ieee/pairlist.scm 798 */
obj_t BgL_auxz00_3201;
BgL_auxz00_3201 = 
CAR(BgL_l1023z00_1666); 
BgL_auxz00_3200 = 
CAR(BgL_auxz00_3201); } 
BgL_newtail1027z00_1675 = 
MAKE_PAIR(BgL_auxz00_3200, BNIL); } 
SET_CDR(BgL_tail1026z00_1667, BgL_newtail1027z00_1675); 
{ 
obj_t BgL_tail1026z00_3208;obj_t BgL_l1023z00_3206;
BgL_l1023z00_3206 = 
CDR(BgL_l1023z00_1666); 
BgL_tail1026z00_3208 = BgL_newtail1027z00_1675; 
BgL_tail1026z00_1667 = BgL_tail1026z00_3208; 
BgL_l1023z00_1666 = BgL_l1023z00_3206; 
goto BgL_map1024z00_1665;} } } } } 
BgL__ortest_1022z00_654 = 
apply(BgL_predz00_93, BgL_auxz00_3189); } 
if(
CBOOL(BgL__ortest_1022z00_654))
{ /* ./Ieee/pairlist.scm 799 */
return BgL__ortest_1022z00_654;}  else 
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_arg1864z00_655;
if(
NULLP(BgL_lz00_651))
{ /* ./Ieee/pairlist.scm 799 */
BgL_arg1864z00_655 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_head1030z00_658;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_auxz00_3214;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_auxz00_3215;
BgL_auxz00_3215 = 
CAR(BgL_lz00_651); 
BgL_auxz00_3214 = 
CDR(BgL_auxz00_3215); } 
BgL_head1030z00_658 = 
MAKE_PAIR(BgL_auxz00_3214, BNIL); } 
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_arg1868z00_662;
BgL_arg1868z00_662 = 
CDR(BgL_lz00_651); 
{ 
obj_t BgL_l1028z00_1725;obj_t BgL_tail1031z00_1726;
BgL_l1028z00_1725 = BgL_arg1868z00_662; 
BgL_tail1031z00_1726 = BgL_head1030z00_658; 
BgL_map1029z00_1724:
if(
NULLP(BgL_l1028z00_1725))
{ /* ./Ieee/pairlist.scm 799 */
BgL_arg1864z00_655 = BgL_head1030z00_658; }  else 
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_newtail1032z00_1734;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_auxz00_3222;
{ /* ./Ieee/pairlist.scm 799 */
obj_t BgL_auxz00_3223;
BgL_auxz00_3223 = 
CAR(BgL_l1028z00_1725); 
BgL_auxz00_3222 = 
CDR(BgL_auxz00_3223); } 
BgL_newtail1032z00_1734 = 
MAKE_PAIR(BgL_auxz00_3222, BNIL); } 
SET_CDR(BgL_tail1031z00_1726, BgL_newtail1032z00_1734); 
{ 
obj_t BgL_tail1031z00_3230;obj_t BgL_l1028z00_3228;
BgL_l1028z00_3228 = 
CDR(BgL_l1028z00_1725); 
BgL_tail1031z00_3230 = BgL_newtail1032z00_1734; 
BgL_tail1031z00_1726 = BgL_tail1031z00_3230; 
BgL_l1028z00_1725 = BgL_l1028z00_3228; 
goto BgL_map1029z00_1724;} } } } } 
{ 
obj_t BgL_lz00_3231;
BgL_lz00_3231 = BgL_arg1864z00_655; 
BgL_lz00_651 = BgL_lz00_3231; 
goto BgL_loopz00_652;} } } } } } } } 
}



/* _any */
obj_t BGl__anyz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2305, obj_t BgL_predz00_2306, obj_t BgL_lz00_2307)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 784 */
return 
BGl_anyz00zz__r4_pairs_and_lists_6_3z00(BgL_predz00_2306, BgL_lz00_2307);} 
}



/* every? */
BGL_EXPORTED_DEF bool_t BGl_everyzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_95, obj_t BgL_lz00_96)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 804 */
if(
NULLP(BgL_lz00_96))
{ /* ./Ieee/pairlist.scm 806 */
return ((bool_t)1);}  else 
{ /* ./Ieee/pairlist.scm 808 */
bool_t BgL_testz00_3235;
{ /* ./Ieee/pairlist.scm 808 */
obj_t BgL_auxz00_3236;
BgL_auxz00_3236 = 
CDR(BgL_lz00_96); 
BgL_testz00_3235 = 
NULLP(BgL_auxz00_3236); } 
if(BgL_testz00_3235)
{ /* ./Ieee/pairlist.scm 808 */
{ 
obj_t BgL_lz00_692;
BgL_lz00_692 = 
CAR(BgL_lz00_96); 
BgL_loopz00_693:
if(
NULLP(BgL_lz00_692))
{ /* ./Ieee/pairlist.scm 811 */
return ((bool_t)1);}  else 
{ /* ./Ieee/pairlist.scm 813 */
bool_t BgL_test1945z00_696;
{ /* ./Ieee/pairlist.scm 813 */
obj_t BgL_arg1952z00_698;
BgL_arg1952z00_698 = 
CAR(BgL_lz00_692); 
{ /* ./Ieee/pairlist.scm 813 */
obj_t BgL_auxz00_3242;
BgL_auxz00_3242 = 
PROCEDURE_ENTRY(BgL_predz00_95)(BgL_predz00_95, BgL_arg1952z00_698, BEOA); 
BgL_test1945z00_696 = 
CBOOL(BgL_auxz00_3242); } } 
if(BgL_test1945z00_696)
{ /* ./Ieee/pairlist.scm 813 */
{ 
obj_t BgL_lz00_3247;
BgL_lz00_3247 = 
CDR(BgL_lz00_692); 
BgL_lz00_692 = BgL_lz00_3247; 
goto BgL_loopz00_693;} }  else 
{ /* ./Ieee/pairlist.scm 813 */
return ((bool_t)0);} } } }  else 
{ /* ./Ieee/pairlist.scm 808 */
{ 
obj_t BgL_lz00_699;
BgL_lz00_699 = BgL_lz00_96; 
BgL_loopz00_700:
{ /* ./Ieee/pairlist.scm 820 */
bool_t BgL_testz00_3250;
{ /* ./Ieee/pairlist.scm 820 */
obj_t BgL_auxz00_3251;
BgL_auxz00_3251 = 
CAR(BgL_lz00_699); 
BgL_testz00_3250 = 
NULLP(BgL_auxz00_3251); } 
if(BgL_testz00_3250)
{ /* ./Ieee/pairlist.scm 820 */
return ((bool_t)1);}  else 
{ /* ./Ieee/pairlist.scm 822 */
bool_t BgL_test1958z00_702;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_3254;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_3255;
if(
NULLP(BgL_lz00_699))
{ /* ./Ieee/pairlist.scm 822 */
BgL_auxz00_3255 = BNIL
; }  else 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_head1035z00_722;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_3258;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_3259;
BgL_auxz00_3259 = 
CAR(BgL_lz00_699); 
BgL_auxz00_3258 = 
CAR(BgL_auxz00_3259); } 
BgL_head1035z00_722 = 
MAKE_PAIR(BgL_auxz00_3258, BNIL); } 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_arg1993z00_726;
BgL_arg1993z00_726 = 
CDR(BgL_lz00_699); 
{ 
obj_t BgL_l1033z00_1793;obj_t BgL_tail1036z00_1794;
BgL_l1033z00_1793 = BgL_arg1993z00_726; 
BgL_tail1036z00_1794 = BgL_head1035z00_722; 
BgL_map1034z00_1792:
if(
NULLP(BgL_l1033z00_1793))
{ /* ./Ieee/pairlist.scm 822 */
BgL_auxz00_3255 = BgL_head1035z00_722
; }  else 
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_newtail1037z00_1802;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_3266;
{ /* ./Ieee/pairlist.scm 822 */
obj_t BgL_auxz00_3267;
BgL_auxz00_3267 = 
CAR(BgL_l1033z00_1793); 
BgL_auxz00_3266 = 
CAR(BgL_auxz00_3267); } 
BgL_newtail1037z00_1802 = 
MAKE_PAIR(BgL_auxz00_3266, BNIL); } 
SET_CDR(BgL_tail1036z00_1794, BgL_newtail1037z00_1802); 
{ 
obj_t BgL_tail1036z00_3274;obj_t BgL_l1033z00_3272;
BgL_l1033z00_3272 = 
CDR(BgL_l1033z00_1793); 
BgL_tail1036z00_3274 = BgL_newtail1037z00_1802; 
BgL_tail1036z00_1794 = BgL_tail1036z00_3274; 
BgL_l1033z00_1793 = BgL_l1033z00_3272; 
goto BgL_map1034z00_1792;} } } } } 
BgL_auxz00_3254 = 
apply(BgL_predz00_95, BgL_auxz00_3255); } 
BgL_test1958z00_702 = 
CBOOL(BgL_auxz00_3254); } 
if(BgL_test1958z00_702)
{ /* ./Ieee/pairlist.scm 822 */
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_arg1960z00_703;
if(
NULLP(BgL_lz00_699))
{ /* ./Ieee/pairlist.scm 823 */
BgL_arg1960z00_703 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_head1040z00_706;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_auxz00_3280;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_auxz00_3281;
BgL_auxz00_3281 = 
CAR(BgL_lz00_699); 
BgL_auxz00_3280 = 
CDR(BgL_auxz00_3281); } 
BgL_head1040z00_706 = 
MAKE_PAIR(BgL_auxz00_3280, BNIL); } 
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_arg1964z00_710;
BgL_arg1964z00_710 = 
CDR(BgL_lz00_699); 
{ 
obj_t BgL_l1038z00_1852;obj_t BgL_tail1041z00_1853;
BgL_l1038z00_1852 = BgL_arg1964z00_710; 
BgL_tail1041z00_1853 = BgL_head1040z00_706; 
BgL_map1039z00_1851:
if(
NULLP(BgL_l1038z00_1852))
{ /* ./Ieee/pairlist.scm 823 */
BgL_arg1960z00_703 = BgL_head1040z00_706; }  else 
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_newtail1042z00_1861;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_auxz00_3288;
{ /* ./Ieee/pairlist.scm 823 */
obj_t BgL_auxz00_3289;
BgL_auxz00_3289 = 
CAR(BgL_l1038z00_1852); 
BgL_auxz00_3288 = 
CDR(BgL_auxz00_3289); } 
BgL_newtail1042z00_1861 = 
MAKE_PAIR(BgL_auxz00_3288, BNIL); } 
SET_CDR(BgL_tail1041z00_1853, BgL_newtail1042z00_1861); 
{ 
obj_t BgL_tail1041z00_3296;obj_t BgL_l1038z00_3294;
BgL_l1038z00_3294 = 
CDR(BgL_l1038z00_1852); 
BgL_tail1041z00_3296 = BgL_newtail1042z00_1861; 
BgL_tail1041z00_1853 = BgL_tail1041z00_3296; 
BgL_l1038z00_1852 = BgL_l1038z00_3294; 
goto BgL_map1039z00_1851;} } } } } 
{ 
obj_t BgL_lz00_3297;
BgL_lz00_3297 = BgL_arg1960z00_703; 
BgL_lz00_699 = BgL_lz00_3297; 
goto BgL_loopz00_700;} } }  else 
{ /* ./Ieee/pairlist.scm 822 */
return ((bool_t)0);} } } } } } } 
}



/* _every?2581 */
obj_t BGl__everyzf32581zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2308, obj_t BgL_predz00_2309, obj_t BgL_lz00_2310)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 804 */
{ /* ./Ieee/pairlist.scm 806 */
bool_t BgL_auxz00_3298;
BgL_auxz00_3298 = 
BGl_everyzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_predz00_2309, BgL_lz00_2310); 
return 
BBOOL(BgL_auxz00_3298);} } 
}



/* any? */
BGL_EXPORTED_DEF bool_t BGl_anyzf3zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_predz00_97, obj_t BgL_lz00_98)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 830 */
if(
NULLP(BgL_lz00_98))
{ /* ./Ieee/pairlist.scm 832 */
return ((bool_t)0);}  else 
{ /* ./Ieee/pairlist.scm 834 */
bool_t BgL_testz00_3303;
{ /* ./Ieee/pairlist.scm 834 */
obj_t BgL_auxz00_3304;
BgL_auxz00_3304 = 
CDR(BgL_lz00_98); 
BgL_testz00_3303 = 
NULLP(BgL_auxz00_3304); } 
if(BgL_testz00_3303)
{ /* ./Ieee/pairlist.scm 834 */
{ 
obj_t BgL_lz00_740;
BgL_lz00_740 = 
CAR(BgL_lz00_98); 
BgL_loopz00_741:
if(
NULLP(BgL_lz00_740))
{ /* ./Ieee/pairlist.scm 837 */
return ((bool_t)0);}  else 
{ /* ./Ieee/pairlist.scm 839 */
bool_t BgL_test2039z00_744;
{ /* ./Ieee/pairlist.scm 839 */
obj_t BgL_arg2045z00_746;
BgL_arg2045z00_746 = 
CAR(BgL_lz00_740); 
{ /* ./Ieee/pairlist.scm 839 */
obj_t BgL_auxz00_3310;
BgL_auxz00_3310 = 
PROCEDURE_ENTRY(BgL_predz00_97)(BgL_predz00_97, BgL_arg2045z00_746, BEOA); 
BgL_test2039z00_744 = 
CBOOL(BgL_auxz00_3310); } } 
if(BgL_test2039z00_744)
{ /* ./Ieee/pairlist.scm 839 */
return ((bool_t)1);}  else 
{ /* ./Ieee/pairlist.scm 839 */
{ 
obj_t BgL_lz00_3315;
BgL_lz00_3315 = 
CDR(BgL_lz00_740); 
BgL_lz00_740 = BgL_lz00_3315; 
goto BgL_loopz00_741;} } } } }  else 
{ /* ./Ieee/pairlist.scm 834 */
{ 
obj_t BgL_lz00_747;
BgL_lz00_747 = BgL_lz00_98; 
BgL_loopz00_748:
{ /* ./Ieee/pairlist.scm 846 */
bool_t BgL_testz00_3318;
{ /* ./Ieee/pairlist.scm 846 */
obj_t BgL_auxz00_3319;
BgL_auxz00_3319 = 
CAR(BgL_lz00_747); 
BgL_testz00_3318 = 
NULLP(BgL_auxz00_3319); } 
if(BgL_testz00_3318)
{ /* ./Ieee/pairlist.scm 846 */
return ((bool_t)0);}  else 
{ /* ./Ieee/pairlist.scm 848 */
bool_t BgL_test2051z00_750;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_3322;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_3323;
if(
NULLP(BgL_lz00_747))
{ /* ./Ieee/pairlist.scm 848 */
BgL_auxz00_3323 = BNIL
; }  else 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_head1045z00_770;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_3326;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_3327;
BgL_auxz00_3327 = 
CAR(BgL_lz00_747); 
BgL_auxz00_3326 = 
CAR(BgL_auxz00_3327); } 
BgL_head1045z00_770 = 
MAKE_PAIR(BgL_auxz00_3326, BNIL); } 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_arg2086z00_774;
BgL_arg2086z00_774 = 
CDR(BgL_lz00_747); 
{ 
obj_t BgL_l1043z00_1920;obj_t BgL_tail1046z00_1921;
BgL_l1043z00_1920 = BgL_arg2086z00_774; 
BgL_tail1046z00_1921 = BgL_head1045z00_770; 
BgL_map1044z00_1919:
if(
NULLP(BgL_l1043z00_1920))
{ /* ./Ieee/pairlist.scm 848 */
BgL_auxz00_3323 = BgL_head1045z00_770
; }  else 
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_newtail1047z00_1929;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_3334;
{ /* ./Ieee/pairlist.scm 848 */
obj_t BgL_auxz00_3335;
BgL_auxz00_3335 = 
CAR(BgL_l1043z00_1920); 
BgL_auxz00_3334 = 
CAR(BgL_auxz00_3335); } 
BgL_newtail1047z00_1929 = 
MAKE_PAIR(BgL_auxz00_3334, BNIL); } 
SET_CDR(BgL_tail1046z00_1921, BgL_newtail1047z00_1929); 
{ 
obj_t BgL_tail1046z00_3342;obj_t BgL_l1043z00_3340;
BgL_l1043z00_3340 = 
CDR(BgL_l1043z00_1920); 
BgL_tail1046z00_3342 = BgL_newtail1047z00_1929; 
BgL_tail1046z00_1921 = BgL_tail1046z00_3342; 
BgL_l1043z00_1920 = BgL_l1043z00_3340; 
goto BgL_map1044z00_1919;} } } } } 
BgL_auxz00_3322 = 
apply(BgL_predz00_97, BgL_auxz00_3323); } 
BgL_test2051z00_750 = 
CBOOL(BgL_auxz00_3322); } 
if(BgL_test2051z00_750)
{ /* ./Ieee/pairlist.scm 848 */
return ((bool_t)1);}  else 
{ /* ./Ieee/pairlist.scm 848 */
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_arg2053z00_751;
if(
NULLP(BgL_lz00_747))
{ /* ./Ieee/pairlist.scm 851 */
BgL_arg2053z00_751 = BNIL; }  else 
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_head1050z00_754;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_auxz00_3348;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_auxz00_3349;
BgL_auxz00_3349 = 
CAR(BgL_lz00_747); 
BgL_auxz00_3348 = 
CDR(BgL_auxz00_3349); } 
BgL_head1050z00_754 = 
MAKE_PAIR(BgL_auxz00_3348, BNIL); } 
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_arg2057z00_758;
BgL_arg2057z00_758 = 
CDR(BgL_lz00_747); 
{ 
obj_t BgL_l1048z00_1979;obj_t BgL_tail1051z00_1980;
BgL_l1048z00_1979 = BgL_arg2057z00_758; 
BgL_tail1051z00_1980 = BgL_head1050z00_754; 
BgL_map1049z00_1978:
if(
NULLP(BgL_l1048z00_1979))
{ /* ./Ieee/pairlist.scm 851 */
BgL_arg2053z00_751 = BgL_head1050z00_754; }  else 
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_newtail1052z00_1988;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_auxz00_3356;
{ /* ./Ieee/pairlist.scm 851 */
obj_t BgL_auxz00_3357;
BgL_auxz00_3357 = 
CAR(BgL_l1048z00_1979); 
BgL_auxz00_3356 = 
CDR(BgL_auxz00_3357); } 
BgL_newtail1052z00_1988 = 
MAKE_PAIR(BgL_auxz00_3356, BNIL); } 
SET_CDR(BgL_tail1051z00_1980, BgL_newtail1052z00_1988); 
{ 
obj_t BgL_tail1051z00_3364;obj_t BgL_l1048z00_3362;
BgL_l1048z00_3362 = 
CDR(BgL_l1048z00_1979); 
BgL_tail1051z00_3364 = BgL_newtail1052z00_1988; 
BgL_tail1051z00_1980 = BgL_tail1051z00_3364; 
BgL_l1048z00_1979 = BgL_l1048z00_3362; 
goto BgL_map1049z00_1978;} } } } } 
{ 
obj_t BgL_lz00_3365;
BgL_lz00_3365 = BgL_arg2053z00_751; 
BgL_lz00_747 = BgL_lz00_3365; 
goto BgL_loopz00_748;} } } } } } } } } 
}



/* _any?2583 */
obj_t BGl__anyzf32583zf3zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2311, obj_t BgL_predz00_2312, obj_t BgL_lz00_2313)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 830 */
{ /* ./Ieee/pairlist.scm 832 */
bool_t BgL_auxz00_3366;
BgL_auxz00_3366 = 
BGl_anyzf3zf3zz__r4_pairs_and_lists_6_3z00(BgL_predz00_2312, BgL_lz00_2313); 
return 
BBOOL(BgL_auxz00_3366);} } 
}



/* make-list */
BGL_EXPORTED_DEF obj_t BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(int BgL_nz00_99, obj_t BgL_oz00_100)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 856 */
{ /* ./Ieee/pairlist.scm 857 */
obj_t BgL_fillz00_786;
if(
PAIRP(BgL_oz00_100))
{ /* ./Ieee/pairlist.scm 857 */
BgL_fillz00_786 = 
CAR(BgL_oz00_100); }  else 
{ /* ./Ieee/pairlist.scm 857 */
BgL_fillz00_786 = BUNSPEC; } 
{ 
obj_t BgL_iz00_2034;obj_t BgL_rz00_2035;
BgL_iz00_2034 = 
BINT(BgL_nz00_99); 
BgL_rz00_2035 = BNIL; 
BgL_walkz00_2033:
{ /* ./Ieee/pairlist.scm 858 */
bool_t BgL_testz00_3372;
{ /* ./Ieee/pairlist.scm 858 */
long BgL_auxz00_3373;
BgL_auxz00_3373 = 
(long)CINT(BgL_iz00_2034); 
BgL_testz00_3372 = 
(BgL_auxz00_3373<=((long)0)); } 
if(BgL_testz00_3372)
{ /* ./Ieee/pairlist.scm 858 */
return BgL_rz00_2035;}  else 
{ /* ./Ieee/pairlist.scm 858 */
long BgL_arg2127z00_2040;obj_t BgL_arg2128z00_2041;
{ /* ./Ieee/pairlist.scm 858 */
long BgL_auxz00_3376;
BgL_auxz00_3376 = 
(long)CINT(BgL_iz00_2034); 
BgL_arg2127z00_2040 = 
(BgL_auxz00_3376-((long)1)); } 
BgL_arg2128z00_2041 = 
MAKE_PAIR(BgL_fillz00_786, BgL_rz00_2035); 
{ 
obj_t BgL_rz00_3382;obj_t BgL_iz00_3380;
BgL_iz00_3380 = 
BINT(BgL_arg2127z00_2040); 
BgL_rz00_3382 = BgL_arg2128z00_2041; 
BgL_rz00_2035 = BgL_rz00_3382; 
BgL_iz00_2034 = BgL_iz00_3380; 
goto BgL_walkz00_2033;} } } } } } 
}



/* _make-list */
obj_t BGl__makezd2listzd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2314, obj_t BgL_nz00_2315, obj_t BgL_oz00_2316)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 856 */
return 
BGl_makezd2listzd2zz__r4_pairs_and_lists_6_3z00(
CINT(BgL_nz00_2315), BgL_oz00_2316);} 
}



/* list-tabulate */
BGL_EXPORTED_DEF obj_t BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(int BgL_nz00_101, obj_t BgL_initzd2proczd2_102)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 866 */
{ /* ./Ieee/pairlist.scm 867 */
long BgL_arg2137z00_797;
{ /* ./Ieee/pairlist.scm 867 */
long BgL_auxz00_3386;
BgL_auxz00_3386 = 
(long)(BgL_nz00_101); 
BgL_arg2137z00_797 = 
(BgL_auxz00_3386-((long)1)); } 
{ 
long BgL_iz00_2065;obj_t BgL_rz00_2066;
BgL_iz00_2065 = BgL_arg2137z00_797; 
BgL_rz00_2066 = BNIL; 
BgL_walkz00_2064:
if(
(BgL_iz00_2065<((long)0)))
{ /* ./Ieee/pairlist.scm 867 */
return BgL_rz00_2066;}  else 
{ /* ./Ieee/pairlist.scm 867 */
long BgL_arg2143z00_2072;obj_t BgL_arg2144z00_2073;
BgL_arg2143z00_2072 = 
(BgL_iz00_2065-((long)1)); 
{ /* ./Ieee/pairlist.scm 867 */
obj_t BgL_arg2148z00_2074;
BgL_arg2148z00_2074 = 
PROCEDURE_ENTRY(BgL_initzd2proczd2_102)(BgL_initzd2proczd2_102, 
BINT(BgL_iz00_2065), BEOA); 
BgL_arg2144z00_2073 = 
MAKE_PAIR(BgL_arg2148z00_2074, BgL_rz00_2066); } 
{ 
obj_t BgL_rz00_3397;long BgL_iz00_3396;
BgL_iz00_3396 = BgL_arg2143z00_2072; 
BgL_rz00_3397 = BgL_arg2144z00_2073; 
BgL_rz00_2066 = BgL_rz00_3397; 
BgL_iz00_2065 = BgL_iz00_3396; 
goto BgL_walkz00_2064;} } } } } 
}



/* _list-tabulate */
obj_t BGl__listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2317, obj_t BgL_nz00_2318, obj_t BgL_initzd2proczd2_2319)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 866 */
return 
BGl_listzd2tabulatezd2zz__r4_pairs_and_lists_6_3z00(
CINT(BgL_nz00_2318), BgL_initzd2proczd2_2319);} 
}



/* iota */
BGL_EXPORTED_DEF obj_t BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(int BgL_countz00_103, obj_t BgL_restz00_104)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 875 */
{ /* ./Ieee/pairlist.scm 876 */
obj_t BgL_startz00_803;obj_t BgL_stepz00_804;
BgL_startz00_803 = 
BINT(((long)0)); 
BgL_stepz00_804 = 
BINT(((long)1)); 
if(
PAIRP(BgL_restz00_104))
{ /* ./Ieee/pairlist.scm 878 */
BgL_startz00_803 = 
CAR(BgL_restz00_104); 
{ /* ./Ieee/pairlist.scm 881 */
bool_t BgL_testz00_3405;
{ /* ./Ieee/pairlist.scm 881 */
obj_t BgL_auxz00_3406;
BgL_auxz00_3406 = 
CDR(BgL_restz00_104); 
BgL_testz00_3405 = 
PAIRP(BgL_auxz00_3406); } 
if(BgL_testz00_3405)
{ /* ./Ieee/pairlist.scm 882 */
obj_t BgL_auxz00_3409;
BgL_auxz00_3409 = 
CDR(BgL_restz00_104); 
BgL_stepz00_804 = 
CAR(BgL_auxz00_3409); }  else 
{ /* ./Ieee/pairlist.scm 881 */BFALSE; } } }  else 
{ /* ./Ieee/pairlist.scm 878 */BFALSE; } 
{ /* ./Ieee/pairlist.scm 883 */
obj_t BgL_arg2162z00_812;
{ /* ./Ieee/pairlist.scm 883 */
obj_t BgL_arg2166z00_814;
{ /* ./Ieee/pairlist.scm 883 */
obj_t BgL_arg2169z00_815;
BgL_arg2169z00_815 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
BINT(BgL_countz00_103), 
BINT(((long)1))); 
BgL_arg2166z00_814 = 
BGl_2za2za2zz__r4_numbers_6_5z00(BgL_arg2169z00_815, BgL_stepz00_804); } 
BgL_arg2162z00_812 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_startz00_803, BgL_arg2166z00_814); } 
{ 
obj_t BgL_iz00_2106;obj_t BgL_vz00_2107;obj_t BgL_rz00_2108;
BgL_iz00_2106 = 
BINT(BgL_countz00_103); 
BgL_vz00_2107 = BgL_arg2162z00_812; 
BgL_rz00_2108 = BNIL; 
BgL_walkz00_2105:
{ /* ./Ieee/pairlist.scm 883 */
bool_t BgL_testz00_3417;
{ /* ./Ieee/pairlist.scm 883 */
long BgL_auxz00_3418;
BgL_auxz00_3418 = 
(long)CINT(BgL_iz00_2106); 
BgL_testz00_3417 = 
(BgL_auxz00_3418<=((long)0)); } 
if(BgL_testz00_3417)
{ /* ./Ieee/pairlist.scm 883 */
return BgL_rz00_2108;}  else 
{ /* ./Ieee/pairlist.scm 883 */
long BgL_arg2174z00_2114;obj_t BgL_arg2175z00_2115;obj_t BgL_arg2176z00_2116;
{ /* ./Ieee/pairlist.scm 883 */
long BgL_auxz00_3421;
BgL_auxz00_3421 = 
(long)CINT(BgL_iz00_2106); 
BgL_arg2174z00_2114 = 
(BgL_auxz00_3421-((long)1)); } 
BgL_arg2175z00_2115 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_vz00_2107, BgL_stepz00_804); 
BgL_arg2176z00_2116 = 
MAKE_PAIR(BgL_vz00_2107, BgL_rz00_2108); 
{ 
obj_t BgL_rz00_3429;obj_t BgL_vz00_3428;obj_t BgL_iz00_3426;
BgL_iz00_3426 = 
BINT(BgL_arg2174z00_2114); 
BgL_vz00_3428 = BgL_arg2175z00_2115; 
BgL_rz00_3429 = BgL_arg2176z00_2116; 
BgL_rz00_2108 = BgL_rz00_3429; 
BgL_vz00_2107 = BgL_vz00_3428; 
BgL_iz00_2106 = BgL_iz00_3426; 
goto BgL_walkz00_2105;} } } } } } } 
}



/* _iota */
obj_t BGl__iotaz00zz__r4_pairs_and_lists_6_3z00(obj_t BgL_envz00_2320, obj_t BgL_countz00_2321, obj_t BgL_restz00_2322)
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 875 */
return 
BGl_iotaz00zz__r4_pairs_and_lists_6_3z00(
CINT(BgL_countz00_2321), BgL_restz00_2322);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_pairs_and_lists_6_3z00()
{ AN_OBJECT;
{ /* ./Ieee/pairlist.scm 18 */
return 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_pairs_and_lists_6_3");} 
}

