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

/* debug mode */
#define BIGLOO_DEBUG 1

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


/* Object type definitions */

BGL_EXPORTED_DECL obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__errorz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__bexitz00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(long, char *);
extern obj_t BGl_modulezd2initializa7ationz75zz__biglooz00(long, char *);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t write_char(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zz__r4_output_6_10_3z00();
extern obj_t close_output_port(obj_t);
extern obj_t BGl_objectzd2writezd2zz__objectz00(BgL_objectz00_bglt, obj_t);
static obj_t BGl__writeza2za2zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2printerz12zc0zz__r4_output_6_10_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t);
extern obj_t BGl_classzd2namezd2zz__objectz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern bool_t BGl_classzf3zf3zz__objectz00(obj_t);
static obj_t BGl_printzd2radixzd2zz__r4_output_6_10_3z00(obj_t, obj_t, long, obj_t);
static obj_t BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(obj_t, obj_t, bool_t);
static obj_t BGl_zc3anonymousza31075za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(obj_t);
extern obj_t display_ucs2(obj_t, obj_t);
static obj_t BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern long bgl_date_to_seconds(obj_t);
extern obj_t ill_char_rep(unsigned char);
extern obj_t string_to_symbol(char *);
extern obj_t display_char(obj_t, obj_t);
extern obj_t write_string(obj_t, bool_t, obj_t);
extern obj_t BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_writezd2charzd2zz__r4_output_6_10_3z00(unsigned char, obj_t);
static obj_t BGl__fprintz00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__currentzd2printerzd2zz__r4_output_6_10_3z00(obj_t);
static obj_t BGl_writezf2displayzd2vectorz20zz__r4_output_6_10_3z00(obj_t, obj_t, bool_t);
extern obj_t ucs2_string_to_utf8_string(obj_t);
static obj_t BGl_symbol4917z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4916z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4915z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4914z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4913z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4912z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4911z00zz__r4_output_6_10_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_writezd2charzd22z00zz__r4_output_6_10_3z00(unsigned char, obj_t);
static obj_t BGl_symbol4910z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4909z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl__displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4908z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4907z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_nativezd2displayzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_symbol4896z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4905z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4895z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4894z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4893z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4892z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4891z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4889z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern char * BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_symbol4887z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4886z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4885z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4881z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl__setzd2writezd2lengthz12z12zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31077za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(obj_t);
static obj_t BGl_symbol4876z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t write_symbol(obj_t, obj_t);
static obj_t BGl_symbol4873z00zz__r4_output_6_10_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_nativezd2printerzd2zz__r4_output_6_10_3z00();
static obj_t BGl__getzd2writezd2lengthz00zz__r4_output_6_10_3z00(obj_t);
static obj_t BGl__nativezd2printerzd2zz__r4_output_6_10_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_setzd2writezd2lengthz12z12zz__r4_output_6_10_3z00(long);
BGL_EXPORTED_DECL obj_t BGl_printz00zz__r4_output_6_10_3z00(obj_t);
extern obj_t BGl_unwindzd2untilz12zc0zz__bexitz00(obj_t, obj_t);
static obj_t BGl__fprintf2733z00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol4857z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4856z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t BGl_errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t display_flonum(obj_t, obj_t);
static obj_t BGl_symbol4851z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4850z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4849z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t write_object(obj_t, obj_t);
static obj_t BGl_symbol4847z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4846z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl__format2729z00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4845z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4844z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4842z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t BGl_za2bigloozd2strictzd2r5rszd2stringsza2zd2zz__biglooz00;
static obj_t BGl_symbol4841z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4840z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4839z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4838z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t display_symbol(obj_t, obj_t);
static obj_t BGl__nativezd2displayzd2zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol4837z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4836z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t string_to_bstring(char *);
static obj_t BGl_symbol4832z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4831z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4830z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4828z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4827z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4826z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t display_ucs2string(obj_t, obj_t);
static obj_t BGl_symbol4821z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4820z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4817z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4816z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol4815z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t bgl_seconds_to_string(long);
static obj_t BGl_zc3exitza31064za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__writez00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_xprintfz00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl__newlinezd21zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_escapez00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t display_string(obj_t, obj_t);
static obj_t BGl__writezd2charzd22z00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_newlinezd21zd2zz__r4_output_6_10_3z00(obj_t);
static obj_t BGl__newlinez00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_removezd2errorzd2handlerz12z12zz__errorz00();
static obj_t BGl_writezf2displayzf2zz__r4_output_6_10_3z00(obj_t, obj_t, bool_t);
BGL_EXPORTED_DECL obj_t BGl_newlinez00zz__r4_output_6_10_3z00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl__writezd2charzd2zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
extern obj_t string_for_read(obj_t);
static obj_t BGl_cnstzd2initzd2zz__r4_output_6_10_3z00();
static obj_t BGl__displayza2za2zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL long BGl_getzd2writezd2lengthz00zz__r4_output_6_10_3z00();
static obj_t BGl__writezd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__printz00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t c_substring(obj_t, int, int);
BGL_EXPORTED_DECL obj_t BGl_writezd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t display_fixnum(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_objectzd2displayzd2zz__objectz00(BgL_objectz00_bglt, obj_t);
extern obj_t open_output_string();
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_output_6_10_3z00();
BGL_EXPORTED_DECL obj_t BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(unsigned char);
static obj_t BGl_zc3anonymousza31091za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(obj_t);
static obj_t BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_list4835z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t write_utf8string(obj_t, obj_t);
static obj_t BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl__setzd2printerz12zc0zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl__printf2731z00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl__illegalzd2charzd2repz00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
extern obj_t BGl_tvectorzd2idzd2zz__tvectorz00(obj_t);
BGL_EXPORTED_DECL obj_t BGl_writeza2za2zz__r4_output_6_10_3z00(obj_t);
static obj_t BGl__displayz00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_list4884z00zz__r4_output_6_10_3z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_currentzd2printerzd2zz__r4_output_6_10_3z00();
static obj_t BGl_writezf2displayzd2pairz20zz__r4_output_6_10_3z00(obj_t, obj_t, bool_t);
BGL_EXPORTED_DECL obj_t BGl_displayz00zz__r4_output_6_10_3z00(obj_t, obj_t);
static obj_t BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00(obj_t, obj_t, bool_t);
static obj_t BGl_zc3anonymousza31088za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t BGl_addzd2errorzd2handlerz12z12zz__errorz00(obj_t, obj_t);
extern obj_t BGl_tvectorzd2refzd2zz__tvectorz00(obj_t);
static obj_t BGl_toplevelzd2initzd2zz__r4_output_6_10_3z00();
BGL_EXPORTED_DECL obj_t BGl_printfz00zz__r4_output_6_10_3z00(obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_fprintfz00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL obj_t BGl_fprintz00zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t write_ucs2(obj_t, obj_t);
static obj_t *__cnst;


DEFINE_EXPORT_PROCEDURE( BGl_fprintfzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__fprintf2733za700za7za7__r4_output_6_10_3za7004928z00, va_generic_entry, BGl__fprintf2733z00zz__r4_output_6_10_3z00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_displayzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__displayza700za7za7__r4_output_6_10_3za7004929z00, va_generic_entry, BGl__displayz00zz__r4_output_6_10_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_printzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__printza700za7za7__r4_output_6_10_3za7004930z00, va_generic_entry, BGl__printz00zz__r4_output_6_10_3z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_newlinezd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__newlineza700za7za7__r4_output_6_10_3za7004931z00, va_generic_entry, BGl__newlinez00zz__r4_output_6_10_3z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_printfzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__printf2731za700za7za7__r4_output_6_10_3za7004932z00, va_generic_entry, BGl__printf2731z00zz__r4_output_6_10_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_writezd2charzd2envz00zz__r4_output_6_10_3z00, BgL_bgl__writeza7d2charza7d2za7za7__r4_output_6_10_3za7004933za7, va_generic_entry, BGl__writezd2charzd2zz__r4_output_6_10_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_writezd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__writeza700za7za7__r4_output_6_10_3za7004934z00, va_generic_entry, BGl__writez00zz__r4_output_6_10_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2writezd2lengthz12zd2envzc0zz__r4_output_6_10_3z00, BgL_bgl__setza7d2writeza7d2lengthza712za712za7za7__r4_output_6_10_3za7004935za7, BGl__setzd2writezd2lengthz12z12zz__r4_output_6_10_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_newlinezd21zd2envz00zz__r4_output_6_10_3z00, BgL_bgl__newlineza7d21za7d2za7za7__r4_output_6_10_3za7004936za7, BGl__newlinezd21zd2zz__r4_output_6_10_3z00, 0L, 1 );
DEFINE_STRING( BGl_string4899z00zz__r4_output_6_10_3z00, BgL_bgl_string4899za700za7za7__r4_output_6_10_3za7004937z00, "Illegal index", 13 );
DEFINE_STRING( BGl_string4898z00zz__r4_output_6_10_3z00, BgL_bgl_string4898za700za7za7__r4_output_6_10_3za7004938z00, "substring", 9 );
DEFINE_STRING( BGl_string4897z00zz__r4_output_6_10_3z00, BgL_bgl_string4897za700za7za7__r4_output_6_10_3za7004939z00, "string-ref", 10 );
DEFINE_STRING( BGl_string4906z00zz__r4_output_6_10_3z00, BgL_bgl_string4906za700za7za7__r4_output_6_10_3za7004940z00, "pair-nil", 8 );
DEFINE_STRING( BGl_string4904z00zz__r4_output_6_10_3z00, BgL_bgl_string4904za700za7za7__r4_output_6_10_3za7004941z00, "Illegal number", 14 );
DEFINE_STRING( BGl_string4903z00zz__r4_output_6_10_3z00, BgL_bgl_string4903za700za7za7__r4_output_6_10_3za7004942z00, "Illegal char", 12 );
DEFINE_STRING( BGl_string4902z00zz__r4_output_6_10_3z00, BgL_bgl_string4902za700za7za7__r4_output_6_10_3za7004943z00, "Insufficient number of arguments", 32 );
DEFINE_STRING( BGl_string4901z00zz__r4_output_6_10_3z00, BgL_bgl_string4901za700za7za7__r4_output_6_10_3za7004944z00, "Illegal tag", 11 );
DEFINE_STRING( BGl_string4900z00zz__r4_output_6_10_3z00, BgL_bgl_string4900za700za7za7__r4_output_6_10_3za7004945z00, "Tag not allowd here", 19 );
DEFINE_STRING( BGl_string4890z00zz__r4_output_6_10_3z00, BgL_bgl_string4890za700za7za7__r4_output_6_10_3za7004946z00, " . ... )", 8 );
DEFINE_STRING( BGl_string4888z00zz__r4_output_6_10_3z00, BgL_bgl_string4888za700za7za7__r4_output_6_10_3za7004947z00, "...)", 4 );
DEFINE_STRING( BGl_string4883z00zz__r4_output_6_10_3z00, BgL_bgl_string4883za700za7za7__r4_output_6_10_3za7004948z00, "write/display-tvector:Wrong number of arguments", 47 );
DEFINE_STRING( BGl_string4882z00zz__r4_output_6_10_3z00, BgL_bgl_string4882za700za7za7__r4_output_6_10_3za7004949z00, "tvector", 7 );
DEFINE_STRING( BGl_string4880z00zz__r4_output_6_10_3z00, BgL_bgl_string4880za700za7za7__r4_output_6_10_3za7004950z00, "index out of range", 18 );
DEFINE_STRING( BGl_string4879z00zz__r4_output_6_10_3z00, BgL_bgl_string4879za700za7za7__r4_output_6_10_3za7004951z00, "vector-ref", 10 );
DEFINE_STRING( BGl_string4878z00zz__r4_output_6_10_3z00, BgL_bgl_string4878za700za7za7__r4_output_6_10_3za7004952z00, "... )", 5 );
DEFINE_STRING( BGl_string4877z00zz__r4_output_6_10_3z00, BgL_bgl_string4877za700za7za7__r4_output_6_10_3za7004953z00, "vector", 6 );
DEFINE_STRING( BGl_string4875z00zz__r4_output_6_10_3z00, BgL_bgl_string4875za700za7za7__r4_output_6_10_3za7004954z00, "... }", 5 );
DEFINE_STRING( BGl_string4874z00zz__r4_output_6_10_3z00, BgL_bgl_string4874za700za7za7__r4_output_6_10_3za7004955z00, "struct", 6 );
DEFINE_STRING( BGl_string4872z00zz__r4_output_6_10_3z00, BgL_bgl_string4872za700za7za7__r4_output_6_10_3za7004956z00, "#<date:", 7 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2printerz12zd2envz12zz__r4_output_6_10_3z00, BgL_bgl__setza7d2printerza712za7c0za7za7__r4_output_6_10_3za7004957z00, BGl__setzd2printerz12zc0zz__r4_output_6_10_3z00, 0L, 1 );
DEFINE_STRING( BGl_string4871z00zz__r4_output_6_10_3z00, BgL_bgl_string4871za700za7za7__r4_output_6_10_3za7004958z00, "date", 4 );
DEFINE_STRING( BGl_string4870z00zz__r4_output_6_10_3z00, BgL_bgl_string4870za700za7za7__r4_output_6_10_3za7004959z00, "#<opaque>", 9 );
DEFINE_STRING( BGl_string4869z00zz__r4_output_6_10_3z00, BgL_bgl_string4869za700za7za7__r4_output_6_10_3za7004960z00, "ucs2string", 10 );
DEFINE_STRING( BGl_string4868z00zz__r4_output_6_10_3z00, BgL_bgl_string4868za700za7za7__r4_output_6_10_3za7004961z00, "object", 6 );
DEFINE_STRING( BGl_string4867z00zz__r4_output_6_10_3z00, BgL_bgl_string4867za700za7za7__r4_output_6_10_3za7004962z00, "#<cell:", 7 );
DEFINE_STRING( BGl_string4866z00zz__r4_output_6_10_3z00, BgL_bgl_string4866za700za7za7__r4_output_6_10_3za7004963z00, "real", 4 );
DEFINE_STRING( BGl_string4865z00zz__r4_output_6_10_3z00, BgL_bgl_string4865za700za7za7__r4_output_6_10_3za7004964z00, "bucs2", 5 );
DEFINE_STRING( BGl_string4864z00zz__r4_output_6_10_3z00, BgL_bgl_string4864za700za7za7__r4_output_6_10_3za7004965z00, "bchar", 5 );
DEFINE_STRING( BGl_string4863z00zz__r4_output_6_10_3z00, BgL_bgl_string4863za700za7za7__r4_output_6_10_3za7004966z00, ">", 1 );
DEFINE_STRING( BGl_string4862z00zz__r4_output_6_10_3z00, BgL_bgl_string4862za700za7za7__r4_output_6_10_3za7004967z00, "#<class:", 8 );
DEFINE_STRING( BGl_string4861z00zz__r4_output_6_10_3z00, BgL_bgl_string4861za700za7za7__r4_output_6_10_3za7004968z00, "bstring", 7 );
DEFINE_STRING( BGl_string4860z00zz__r4_output_6_10_3z00, BgL_bgl_string4860za700za7za7__r4_output_6_10_3za7004969z00, "symbol", 6 );
DEFINE_STRING( BGl_string4859z00zz__r4_output_6_10_3z00, BgL_bgl_string4859za700za7za7__r4_output_6_10_3za7004970z00, "blong", 5 );
DEFINE_STRING( BGl_string4858z00zz__r4_output_6_10_3z00, BgL_bgl_string4858za700za7za7__r4_output_6_10_3za7004971z00, "...", 3 );
DEFINE_STRING( BGl_string4855z00zz__r4_output_6_10_3z00, BgL_bgl_string4855za700za7za7__r4_output_6_10_3za7004972z00, "#Tab", 4 );
DEFINE_STRING( BGl_string4854z00zz__r4_output_6_10_3z00, BgL_bgl_string4854za700za7za7__r4_output_6_10_3za7004973z00, "#Space", 6 );
DEFINE_STRING( BGl_string4853z00zz__r4_output_6_10_3z00, BgL_bgl_string4853za700za7za7__r4_output_6_10_3za7004974z00, "#Return", 7 );
DEFINE_STRING( BGl_string4852z00zz__r4_output_6_10_3z00, BgL_bgl_string4852za700za7za7__r4_output_6_10_3za7004975z00, "#Newline", 8 );
DEFINE_STRING( BGl_string4848z00zz__r4_output_6_10_3z00, BgL_bgl_string4848za700za7za7__r4_output_6_10_3za7004976z00, "uchar", 5 );
DEFINE_STRING( BGl_string4843z00zz__r4_output_6_10_3z00, BgL_bgl_string4843za700za7za7__r4_output_6_10_3za7004977z00, "write", 5 );
DEFINE_STRING( BGl_string4834z00zz__r4_output_6_10_3z00, BgL_bgl_string4834za700za7za7__r4_output_6_10_3za7004978z00, "<anonymous:1091:Ieee/output.scm:218>:Wrong number of arguments", 62 );
DEFINE_STRING( BGl_string4833z00zz__r4_output_6_10_3z00, BgL_bgl_string4833za700za7za7__r4_output_6_10_3za7004979z00, "procedure", 9 );
DEFINE_STRING( BGl_string4829z00zz__r4_output_6_10_3z00, BgL_bgl_string4829za700za7za7__r4_output_6_10_3za7004980z00, "display", 7 );
DEFINE_STRING( BGl_string4825z00zz__r4_output_6_10_3z00, BgL_bgl_string4825za700za7za7__r4_output_6_10_3za7004981z00, "output-port", 11 );
DEFINE_STRING( BGl_string4824z00zz__r4_output_6_10_3z00, BgL_bgl_string4824za700za7za7__r4_output_6_10_3za7004982z00, "pair", 4 );
DEFINE_STRING( BGl_string4823z00zz__r4_output_6_10_3z00, BgL_bgl_string4823za700za7za7__r4_output_6_10_3za7004983z00, "wrong number of optional arguments", 34 );
DEFINE_STRING( BGl_string4822z00zz__r4_output_6_10_3z00, BgL_bgl_string4822za700za7za7__r4_output_6_10_3za7004984z00, "newline", 7 );
DEFINE_STRING( BGl_string4819z00zz__r4_output_6_10_3z00, BgL_bgl_string4819za700za7za7__r4_output_6_10_3za7004985z00, "/tmp/bigloo/runtime/./Ieee/output.scm", 37 );
DEFINE_STRING( BGl_string4818z00zz__r4_output_6_10_3z00, BgL_bgl_string4818za700za7za7__r4_output_6_10_3za7004986z00, "long", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00, BgL_bgl__displayza7d22za7d2za7za7__r4_output_6_10_3za7004987za7, BGl__displayzd22zd2zz__r4_output_6_10_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_writezd22zd2envz00zz__r4_output_6_10_3z00, BgL_bgl__writeza7d22za7d2za7za7__r4_output_6_10_3za7004988za7, BGl__writezd22zd2zz__r4_output_6_10_3z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_nativezd2printerzd2envz00zz__r4_output_6_10_3z00, BgL_bgl__nativeza7d2printerza7d2za7za7__r4_output_6_10_3za7004989za7, BGl__nativezd2printerzd2zz__r4_output_6_10_3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_formatzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__format2729za700za7za7__r4_output_6_10_3za7004990z00, va_generic_entry, BGl__format2729z00zz__r4_output_6_10_3z00, -2 );
DEFINE_STATIC_PROCEDURE( BGl_nativezd2displayzd2envz00zz__r4_output_6_10_3z00, BgL_bgl__nativeza7d2displayza7d2za7za7__r4_output_6_10_3za7004991za7, va_generic_entry, BGl__nativezd2displayzd2zz__r4_output_6_10_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_writeza2zd2envz70zz__r4_output_6_10_3z00, BgL_bgl__writeza7a2za7a2za7za7__r4_output_6_10_3za7004992za7, va_generic_entry, BGl__writeza2za2zz__r4_output_6_10_3z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_fprintzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__fprintza700za7za7__r4_output_6_10_3za7004993z00, va_generic_entry, BGl__fprintz00zz__r4_output_6_10_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_displayza2zd2envz70zz__r4_output_6_10_3z00, BgL_bgl__displayza7a2za7a2za7za7__r4_output_6_10_3za7004994za7, va_generic_entry, BGl__displayza2za2zz__r4_output_6_10_3z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_getzd2writezd2lengthzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__getza7d2writeza7d2lengthza700za7za7__r4_output_6_10_3za7004995z00, BGl__getzd2writezd2lengthz00zz__r4_output_6_10_3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_illegalzd2charzd2repzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__illegalza7d2charza7d2repza700za7za7__r4_output_6_10_3za7004996z00, BGl__illegalzd2charzd2repz00zz__r4_output_6_10_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_currentzd2printerzd2envz00zz__r4_output_6_10_3z00, BgL_bgl__currentza7d2printerza7d2za7za7__r4_output_6_10_3za7004997za7, BGl__currentzd2printerzd2zz__r4_output_6_10_3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_writezd2charzd22zd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__writeza7d2charza7d22za700za7za7__r4_output_6_10_3za7004998z00, BGl__writezd2charzd22z00zz__r4_output_6_10_3z00, 0L, 2 );



/* module-initialization */
BGL_EXPORTED_DEF obj_t BGl_modulezd2initializa7ationz75zz__r4_output_6_10_3z00(long BgL_checksumz00_2043, char * BgL_fromz00_2044)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_output_6_10_3z00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__r4_output_6_10_3z00(); 
BGl_importedzd2moduleszd2initz00zz__r4_output_6_10_3z00(); 
BGl_methodzd2initzd2zz__r4_output_6_10_3z00(); 
BGl_toplevelzd2initzd2zz__r4_output_6_10_3z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 24 */
BGl_symbol4815z00zz__r4_output_6_10_3z00 = 
string_to_symbol("%toplevel@__r4_output_6_10_3"); 
BGl_symbol4816z00zz__r4_output_6_10_3z00 = 
string_to_symbol("set-write-length!"); 
BGl_symbol4817z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_set-write-length!"); 
BGl_symbol4820z00zz__r4_output_6_10_3z00 = 
string_to_symbol("get-write-length"); 
BGl_symbol4821z00zz__r4_output_6_10_3z00 = 
string_to_symbol("newline"); 
BGl_symbol4826z00zz__r4_output_6_10_3z00 = 
string_to_symbol("newline-1"); 
BGl_symbol4827z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_newline-1"); 
BGl_symbol4828z00zz__r4_output_6_10_3z00 = 
string_to_symbol("display"); 
BGl_symbol4830z00zz__r4_output_6_10_3z00 = 
string_to_symbol("display-2"); 
BGl_symbol4831z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_display-2"); 
BGl_symbol4832z00zz__r4_output_6_10_3z00 = 
string_to_symbol("<anonymous:1091:Ieee/output.scm:218>"); 
BGl_symbol4836z00zz__r4_output_6_10_3z00 = 
string_to_symbol("funcall"); 
BGl_symbol4837z00zz__r4_output_6_10_3z00 = 
string_to_symbol("*current-printer*"); 
BGl_symbol4838z00zz__r4_output_6_10_3z00 = 
string_to_symbol("obj"); 
BGl_symbol4839z00zz__r4_output_6_10_3z00 = 
string_to_symbol("port"); 
{ /* ./Ieee/output.scm 217 */
obj_t BgL_auxz00_2067;
{ /* ./Ieee/output.scm 217 */
obj_t BgL_auxz00_2068;
{ /* ./Ieee/output.scm 217 */
obj_t BgL_auxz00_2069;
{ /* ./Ieee/output.scm 217 */
obj_t BgL_auxz00_2070;
BgL_auxz00_2070 = 
MAKE_PAIR(BGl_symbol4839z00zz__r4_output_6_10_3z00, BNIL); 
BgL_auxz00_2069 = 
MAKE_PAIR(BGl_symbol4838z00zz__r4_output_6_10_3z00, BgL_auxz00_2070); } 
BgL_auxz00_2068 = 
MAKE_PAIR(BGl_symbol4837z00zz__r4_output_6_10_3z00, BgL_auxz00_2069); } 
BgL_auxz00_2067 = 
MAKE_PAIR(BGl_symbol4837z00zz__r4_output_6_10_3z00, BgL_auxz00_2068); } 
BGl_list4835z00zz__r4_output_6_10_3z00 = 
MAKE_PAIR(BGl_symbol4836z00zz__r4_output_6_10_3z00, BgL_auxz00_2067); } 
BGl_symbol4840z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_"); 
BGl_symbol4841z00zz__r4_output_6_10_3z00 = 
string_to_symbol("native-display"); 
BGl_symbol4842z00zz__r4_output_6_10_3z00 = 
string_to_symbol("write"); 
BGl_symbol4844z00zz__r4_output_6_10_3z00 = 
string_to_symbol("write-2"); 
BGl_symbol4845z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_write-2"); 
BGl_symbol4846z00zz__r4_output_6_10_3z00 = 
string_to_symbol("write-char"); 
BGl_symbol4847z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_write-char"); 
BGl_symbol4849z00zz__r4_output_6_10_3z00 = 
string_to_symbol("write-char-2"); 
BGl_symbol4850z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_write-char-2"); 
BGl_symbol4851z00zz__r4_output_6_10_3z00 = 
string_to_symbol("illegal-char-rep"); 
BGl_symbol4856z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_illegal-char-rep"); 
BGl_symbol4857z00zz__r4_output_6_10_3z00 = 
string_to_symbol("write/display"); 
BGl_symbol4873z00zz__r4_output_6_10_3z00 = 
string_to_symbol("write/display-structure"); 
BGl_symbol4876z00zz__r4_output_6_10_3z00 = 
string_to_symbol("write/display-vector"); 
BGl_symbol4881z00zz__r4_output_6_10_3z00 = 
string_to_symbol("write/display-tvector"); 
BGl_symbol4885z00zz__r4_output_6_10_3z00 = 
string_to_symbol("tvector-ref"); 
BGl_symbol4886z00zz__r4_output_6_10_3z00 = 
string_to_symbol("tvec"); 
BGl_symbol4887z00zz__r4_output_6_10_3z00 = 
string_to_symbol("i"); 
{ /* ./Ieee/output.scm 468 */
obj_t BgL_auxz00_2094;
{ /* ./Ieee/output.scm 468 */
obj_t BgL_auxz00_2095;
{ /* ./Ieee/output.scm 468 */
obj_t BgL_auxz00_2096;
{ /* ./Ieee/output.scm 468 */
obj_t BgL_auxz00_2097;
BgL_auxz00_2097 = 
MAKE_PAIR(BGl_symbol4887z00zz__r4_output_6_10_3z00, BNIL); 
BgL_auxz00_2096 = 
MAKE_PAIR(BGl_symbol4886z00zz__r4_output_6_10_3z00, BgL_auxz00_2097); } 
BgL_auxz00_2095 = 
MAKE_PAIR(BGl_symbol4885z00zz__r4_output_6_10_3z00, BgL_auxz00_2096); } 
BgL_auxz00_2094 = 
MAKE_PAIR(BGl_symbol4885z00zz__r4_output_6_10_3z00, BgL_auxz00_2095); } 
BGl_list4884z00zz__r4_output_6_10_3z00 = 
MAKE_PAIR(BGl_symbol4836z00zz__r4_output_6_10_3z00, BgL_auxz00_2094); } 
BGl_symbol4889z00zz__r4_output_6_10_3z00 = 
string_to_symbol("write/display-pair"); 
BGl_symbol4891z00zz__r4_output_6_10_3z00 = 
string_to_symbol("print"); 
BGl_symbol4892z00zz__r4_output_6_10_3z00 = 
string_to_symbol("display*"); 
BGl_symbol4893z00zz__r4_output_6_10_3z00 = 
string_to_symbol("write*"); 
BGl_symbol4894z00zz__r4_output_6_10_3z00 = 
string_to_symbol("fprint"); 
BGl_symbol4895z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_fprint"); 
BGl_symbol4896z00zz__r4_output_6_10_3z00 = 
string_to_symbol("xprintf"); 
BGl_symbol4905z00zz__r4_output_6_10_3z00 = 
string_to_symbol("format"); 
BGl_symbol4907z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_format2729"); 
BGl_symbol4908z00zz__r4_output_6_10_3z00 = 
string_to_symbol("printf"); 
BGl_symbol4909z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_printf2731"); 
BGl_symbol4910z00zz__r4_output_6_10_3z00 = 
string_to_symbol("fprintf"); 
BGl_symbol4911z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_fprintf2733"); 
BGl_symbol4912z00zz__r4_output_6_10_3z00 = 
string_to_symbol("set-printer!"); 
BGl_symbol4913z00zz__r4_output_6_10_3z00 = 
string_to_symbol("_set-printer!"); 
BGl_symbol4914z00zz__r4_output_6_10_3z00 = 
string_to_symbol("current-printer"); 
BGl_symbol4915z00zz__r4_output_6_10_3z00 = 
string_to_symbol("native-printer"); 
BGl_symbol4916z00zz__r4_output_6_10_3z00 = 
string_to_symbol("method-init"); 
return ( 
BGl_symbol4917z00zz__r4_output_6_10_3z00 = 
string_to_symbol("%import@__r4_output_6_10_3"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 24 */
{ /* ./Ieee/output.scm 24 */
obj_t BgL_symbol2560z00_1503;
BgL_symbol2560z00_1503 = BGl_symbol4815z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 24 */

PUSH_TRACE(BgL_symbol2560z00_1503); BUNSPEC; 
{ /* ./Ieee/output.scm 24 */
obj_t BgL_aux2559z00_1504;
BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00 = 
BINT(((long)-1)); 
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
BINT(((long)0)); 
BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00 = BUNSPEC; 
BgL_aux2559z00_1504 = ( 
BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00 = BGl_nativezd2displayzd2envz00zz__r4_output_6_10_3z00, BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux2559z00_1504;} } } } 
}



/* set-write-length! */
BGL_EXPORTED_DEF obj_t BGl_setzd2writezd2lengthz12z12zz__r4_output_6_10_3z00(long BgL_lengthz00_1)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 162 */
{ /* ./Ieee/output.scm 163 */
obj_t BgL_symbol2564z00_1505;
BgL_symbol2564z00_1505 = BGl_symbol4816z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 163 */

PUSH_TRACE(BgL_symbol2564z00_1505); BUNSPEC; 
{ /* ./Ieee/output.scm 163 */
obj_t BgL_aux2563z00_1506;
BgL_aux2563z00_1506 = ( 
BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00 = 
BINT(BgL_lengthz00_1), BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux2563z00_1506;} } } } 
}



/* _set-write-length! */
obj_t BGl__setzd2writezd2lengthz12z12zz__r4_output_6_10_3z00(obj_t BgL_envz00_1568, obj_t BgL_lengthz00_1569)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 162 */
{ /* ./Ieee/output.scm 163 */
long BgL_auxz00_2129;
{ /* ./Ieee/output.scm 163 */
obj_t BgL_auxz00_2130;
if(
INTEGERP(BgL_lengthz00_1569))
{ /* ./Ieee/output.scm 163 */
BgL_auxz00_2130 = BgL_lengthz00_1569
; }  else 
{ /* ./Ieee/output.scm 163 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4817z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_lengthz00_1569, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)6611))); 
exit( -1 );} 
BgL_auxz00_2129 = 
(long)CINT(BgL_auxz00_2130); } 
return 
BGl_setzd2writezd2lengthz12z12zz__r4_output_6_10_3z00(BgL_auxz00_2129);} } 
}



/* get-write-length */
BGL_EXPORTED_DEF long BGl_getzd2writezd2lengthz00zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 168 */
{ /* ./Ieee/output.scm 169 */
obj_t BgL_symbol2568z00_1507;
BgL_symbol2568z00_1507 = BGl_symbol4820z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 169 */

PUSH_TRACE(BgL_symbol2568z00_1507); BUNSPEC; 
{ /* ./Ieee/output.scm 169 */
long BgL_aux2567z00_1508;
if(
INTEGERP(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00))
{ /* ./Ieee/output.scm 170 */
obj_t BgL_auxz00_2141;
{ /* ./Ieee/output.scm 170 */
obj_t BgL_aux2752z00_1652;
BgL_aux2752z00_1652 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux2752z00_1652))
{ /* ./Ieee/output.scm 170 */
BgL_auxz00_2141 = BgL_aux2752z00_1652
; }  else 
{ /* ./Ieee/output.scm 170 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4820z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux2752z00_1652, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)6945))); 
exit( -1 );} } 
BgL_aux2567z00_1508 = 
(long)CINT(BgL_auxz00_2141); }  else 
{ /* ./Ieee/output.scm 169 */
BgL_aux2567z00_1508 = ((long)-1); } 
POP_TRACE(); 
return BgL_aux2567z00_1508;} } } } 
}



/* _get-write-length */
obj_t BGl__getzd2writezd2lengthz00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1570)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 168 */
{ /* ./Ieee/output.scm 169 */
long BgL_auxz00_2149;
BgL_auxz00_2149 = 
BGl_getzd2writezd2lengthz00zz__r4_output_6_10_3z00(); 
return 
BINT(BgL_auxz00_2149);} } 
}



/* newline */
BGL_EXPORTED_DEF obj_t BGl_newlinez00zz__r4_output_6_10_3z00(obj_t BgL_portz00_2)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 176 */
{ /* ./Ieee/output.scm 177 */
obj_t BgL_symbol2572z00_1509;
BgL_symbol2572z00_1509 = BGl_symbol4821z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 177 */

PUSH_TRACE(BgL_symbol2572z00_1509); BUNSPEC; 
{ /* ./Ieee/output.scm 177 */
obj_t BgL_aux2571z00_1510;
{ /* ./Ieee/output.scm 177 */
obj_t BgL_portz00_537;
{ 

if(
NULLP(BgL_portz00_2))
{ /* ./Ieee/output.scm 177 */
BgL_portz00_537 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Ieee/output.scm 177 */
bool_t BgL_test1028z00_543;
BgL_test1028z00_543 = 
PAIRP(BgL_portz00_2); 
if(BgL_test1028z00_543)
{ /* ./Ieee/output.scm 177 */
bool_t BgL_test1029z00_544;
{ /* ./Ieee/output.scm 177 */
obj_t BgL_arg1033z00_545;
{ /* ./Ieee/output.scm 177 */
obj_t BgL_pairz00_1030;
if(BgL_test1028z00_543)
{ /* ./Ieee/output.scm 177 */
BgL_pairz00_1030 = BgL_portz00_2; }  else 
{ /* ./Ieee/output.scm 177 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4821z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_portz00_2, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)7232))); 
exit( -1 );} 
BgL_arg1033z00_545 = 
CDR(BgL_pairz00_1030); } 
BgL_test1029z00_544 = 
NULLP(BgL_arg1033z00_545); } 
if(BgL_test1029z00_544)
{ /* ./Ieee/output.scm 177 */
obj_t BgL_pairz00_1032;
if(
PAIRP(BgL_portz00_2))
{ /* ./Ieee/output.scm 177 */
BgL_pairz00_1032 = BgL_portz00_2; }  else 
{ /* ./Ieee/output.scm 177 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4821z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_portz00_2, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)7232))); 
exit( -1 );} 
BgL_portz00_537 = 
CAR(BgL_pairz00_1032); }  else 
{ /* ./Ieee/output.scm 177 */
BgL_tagzd2103zd2_540:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4822z00zz__r4_output_6_10_3z00, BGl_string4823z00zz__r4_output_6_10_3z00, BgL_portz00_2, "./Ieee/output.scm", ((long)7333)); 
BgL_portz00_537 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)7232))); } }  else 
{ /* ./Ieee/output.scm 177 */
goto BgL_tagzd2103zd2_540;} } } 
{ /* ./Ieee/output.scm 186 */
obj_t BgL_portz00_1037;
if(
OUTPUT_PORTP(BgL_portz00_537))
{ /* ./Ieee/output.scm 186 */
BgL_portz00_1037 = BgL_portz00_537; }  else 
{ /* ./Ieee/output.scm 186 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4821z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_537, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)7427))); 
exit( -1 );} 
BgL_aux2571z00_1510 = 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_1037); } } 
POP_TRACE(); 
return BgL_aux2571z00_1510;} } } } 
}



/* _newline */
obj_t BGl__newlinez00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1571, obj_t BgL_portz00_1572)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 176 */
return 
BGl_newlinez00zz__r4_output_6_10_3z00(BgL_portz00_1572);} 
}



/* newline-1 */
BGL_EXPORTED_DEF obj_t BGl_newlinezd21zd2zz__r4_output_6_10_3z00(obj_t BgL_portz00_3)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 191 */
{ /* ./Ieee/output.scm 192 */
obj_t BgL_symbol2576z00_2015;
BgL_symbol2576z00_2015 = BGl_symbol4826z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 192 */

PUSH_TRACE(BgL_symbol2576z00_2015); BUNSPEC; 
{ /* ./Ieee/output.scm 192 */
obj_t BgL_aux2575z00_2016;
BgL_aux2575z00_2016 = 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_3); 
POP_TRACE(); 
return BgL_aux2575z00_2016;} } } } 
}



/* _newline-1 */
obj_t BGl__newlinezd21zd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1573, obj_t BgL_portz00_1574)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 191 */
{ /* ./Ieee/output.scm 192 */
obj_t BgL_portz00_2017;
if(
OUTPUT_PORTP(BgL_portz00_1574))
{ /* ./Ieee/output.scm 192 */
BgL_portz00_2017 = BgL_portz00_1574; }  else 
{ /* ./Ieee/output.scm 192 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4827z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_1574, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)7703))); 
exit( -1 );} 
{ /* ./Ieee/output.scm 192 */
obj_t BgL_symbol2576z00_2018;
BgL_symbol2576z00_2018 = BGl_symbol4826z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 192 */

PUSH_TRACE(BgL_symbol2576z00_2018); BUNSPEC; 
{ /* ./Ieee/output.scm 192 */
obj_t BgL_aux2575z00_2019;
BgL_aux2575z00_2019 = 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_2017); 
POP_TRACE(); 
return BgL_aux2575z00_2019;} } } } } 
}



/* display */
BGL_EXPORTED_DEF obj_t BGl_displayz00zz__r4_output_6_10_3z00(obj_t BgL_objz00_4, obj_t BgL_portz00_5)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 197 */
{ /* ./Ieee/output.scm 198 */
obj_t BgL_symbol2580z00_1513;
BgL_symbol2580z00_1513 = BGl_symbol4828z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 198 */

PUSH_TRACE(BgL_symbol2580z00_1513); BUNSPEC; 
{ /* ./Ieee/output.scm 198 */
obj_t BgL_aux2579z00_1514;
{ /* ./Ieee/output.scm 198 */
obj_t BgL_portz00_546;
{ 

if(
NULLP(BgL_portz00_5))
{ /* ./Ieee/output.scm 198 */
BgL_portz00_546 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Ieee/output.scm 198 */
bool_t BgL_test1047z00_552;
BgL_test1047z00_552 = 
PAIRP(BgL_portz00_5); 
if(BgL_test1047z00_552)
{ /* ./Ieee/output.scm 198 */
bool_t BgL_test1048z00_553;
{ /* ./Ieee/output.scm 198 */
obj_t BgL_arg1052z00_554;
{ /* ./Ieee/output.scm 198 */
obj_t BgL_pairz00_1040;
if(BgL_test1047z00_552)
{ /* ./Ieee/output.scm 198 */
BgL_pairz00_1040 = BgL_portz00_5; }  else 
{ /* ./Ieee/output.scm 198 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4828z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_portz00_5, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)7995))); 
exit( -1 );} 
BgL_arg1052z00_554 = 
CDR(BgL_pairz00_1040); } 
BgL_test1048z00_553 = 
NULLP(BgL_arg1052z00_554); } 
if(BgL_test1048z00_553)
{ /* ./Ieee/output.scm 198 */
obj_t BgL_pairz00_1042;
if(
PAIRP(BgL_portz00_5))
{ /* ./Ieee/output.scm 198 */
BgL_pairz00_1042 = BgL_portz00_5; }  else 
{ /* ./Ieee/output.scm 198 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4828z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_portz00_5, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)7995))); 
exit( -1 );} 
BgL_portz00_546 = 
CAR(BgL_pairz00_1042); }  else 
{ /* ./Ieee/output.scm 198 */
BgL_tagzd2109zd2_549:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4829z00zz__r4_output_6_10_3z00, BGl_string4823z00zz__r4_output_6_10_3z00, BgL_portz00_5, "./Ieee/output.scm", ((long)8096)); 
BgL_portz00_546 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)7995))); } }  else 
{ /* ./Ieee/output.scm 198 */
goto BgL_tagzd2109zd2_549;} } } 
{ /* ./Ieee/output.scm 207 */
obj_t BgL_auxz00_2215;
if(
OUTPUT_PORTP(BgL_portz00_546))
{ /* ./Ieee/output.scm 207 */
BgL_auxz00_2215 = BgL_portz00_546
; }  else 
{ /* ./Ieee/output.scm 207 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4828z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_546, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)8194))); 
exit( -1 );} 
BgL_aux2579z00_1514 = 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_objz00_4, BgL_auxz00_2215); } } 
POP_TRACE(); 
return BgL_aux2579z00_1514;} } } } 
}



/* _display */
obj_t BGl__displayz00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1575, obj_t BgL_objz00_1576, obj_t BgL_portz00_1577)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 197 */
return 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_objz00_1576, BgL_portz00_1577);} 
}



/* display-2 */
BGL_EXPORTED_DEF obj_t BGl_displayzd22zd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_6, obj_t BgL_portz00_7)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 212 */
{ /* ./Ieee/output.scm 213 */
obj_t BgL_symbol2584z00_1515;
BgL_symbol2584z00_1515 = BGl_symbol4830z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 213 */

PUSH_TRACE(BgL_symbol2584z00_1515); BUNSPEC; 
{ /* ./Ieee/output.scm 213 */
obj_t BgL_aux2583z00_1516;
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
BINT(((long)0)); 
{ /* ./Ieee/output.scm 214 */
bool_t BgL_test1062z00_555;
if(
(BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00==BGl_nativezd2displayzd2envz00zz__r4_output_6_10_3z00))
{ /* ./Ieee/output.scm 214 */
BgL_test1062z00_555 = ((bool_t)1); }  else 
{ /* ./Ieee/output.scm 214 */
if(
PROCEDUREP(BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00))
{ /* ./Ieee/output.scm 215 */
BgL_test1062z00_555 = ((bool_t)0); }  else 
{ /* ./Ieee/output.scm 215 */
BgL_test1062z00_555 = ((bool_t)1); } } 
if(BgL_test1062z00_555)
{ /* ./Ieee/output.scm 214 */
BgL_aux2583z00_1516 = 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_objz00_6, BgL_portz00_7, ((bool_t)1)); }  else 
{ /* ./Ieee/output.scm 217 */
obj_t BgL_armed1010z00_556;
BgL_armed1010z00_556 = 
MAKE_CELL(BUNSPEC); 
{ /* ./Ieee/output.scm 219 */
obj_t BgL_zc3anonymousza31091za3ieeezf2outputze2scmza3218ze3z93_1579;obj_t BgL_zc3anonymousza31088za3ieeezf2outputze2scmza3218ze3z93_1581;
{ 
int BgL_auxz00_2234;int BgL_auxz00_2232;
BgL_auxz00_2234 = 
(int)(((long)2)); 
BgL_auxz00_2232 = 
(int)(((long)0)); 
BgL_zc3anonymousza31091za3ieeezf2outputze2scmza3218ze3z93_1579 = 
make_fx_procedure(BGl_zc3anonymousza31091za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00, BgL_auxz00_2232, BgL_auxz00_2234); } 
{ 
int BgL_auxz00_2239;int BgL_auxz00_2237;
BgL_auxz00_2239 = 
(int)(((long)1)); 
BgL_auxz00_2237 = 
(int)(((long)4)); 
BgL_zc3anonymousza31088za3ieeezf2outputze2scmza3218ze3z93_1581 = 
make_fx_procedure(BGl_zc3anonymousza31088za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00, BgL_auxz00_2237, BgL_auxz00_2239); } 
{ /* ./Ieee/output.scm 219 */
int BgL_auxz00_2242;
BgL_auxz00_2242 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31091za3ieeezf2outputze2scmza3218ze3z93_1579, BgL_auxz00_2242, BgL_objz00_6); } 
{ /* ./Ieee/output.scm 219 */
int BgL_auxz00_2245;
BgL_auxz00_2245 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31091za3ieeezf2outputze2scmza3218ze3z93_1579, BgL_auxz00_2245, BgL_portz00_7); } 
{ /* ./Ieee/output.scm 219 */
int BgL_auxz00_2248;
BgL_auxz00_2248 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31088za3ieeezf2outputze2scmza3218ze3z93_1581, BgL_auxz00_2248, BgL_armed1010z00_556); } 
CELL_SET(BgL_armed1010z00_556, BTRUE); 
BgL_aux2583z00_1516 = 
BGl_zc3exitza31064za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(BgL_zc3anonymousza31091za3ieeezf2outputze2scmza3218ze3z93_1579, BgL_zc3anonymousza31088za3ieeezf2outputze2scmza3218ze3z93_1581, BgL_armed1010z00_556); } } } 
POP_TRACE(); 
return BgL_aux2583z00_1516;} } } } 
}



/* <exit:1064:Ieee/output.scm:218> */
obj_t BGl_zc3exitza31064za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(obj_t BgL_zc3anonymousza31091za3ieeezf2outputze2scmza3218ze3z93_1649, obj_t BgL_zc3anonymousza31088za3ieeezf2outputze2scmza3218ze3z93_1648, obj_t BgL_armed1010z00_1647)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
jmp_buf jmpbuf; 
obj_t BgL_an_exit1011z00_561;
if( SET_EXIT(BgL_an_exit1011z00_561) ) { 
return 
_exit_value_;
} else {
BgL_an_exit1011z00_561 = 
(obj_t)jmpbuf; 
{ /* ./Ieee/output.scm 218 */

PUSH_EXIT(BgL_an_exit1011z00_561, ((bool_t)1)); 
{ /* ./Ieee/output.scm 218 */
obj_t BgL_an_exitd1012z00_562;
BgL_an_exitd1012z00_562 = 
BGL_EXITD_TOP(); 
{ /* ./Ieee/output.scm 218 */
obj_t BgL_escapez00_1580;
{ 
int BgL_auxz00_2259;int BgL_auxz00_2257;
BgL_auxz00_2259 = 
(int)(((long)1)); 
BgL_auxz00_2257 = 
(int)(((long)1)); 
BgL_escapez00_1580 = 
make_fx_procedure(BGl_escapez00zz__r4_output_6_10_3z00, BgL_auxz00_2257, BgL_auxz00_2259); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2262;
BgL_auxz00_2262 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_1580, BgL_auxz00_2262, BgL_an_exitd1012z00_562); } 
{ /* ./Ieee/output.scm 218 */
obj_t BgL_res1014z00_565;
{ /* ./Ieee/output.scm 218 */
obj_t BgL_zc3anonymousza31077za3ieeezf2outputze2scmza3218ze3z93_1578;obj_t BgL_zc3anonymousza31075za3ieeezf2outputze2scmza3218ze3z93_1582;
{ 
int BgL_auxz00_2267;int BgL_auxz00_2265;
BgL_auxz00_2267 = 
(int)(((long)1)); 
BgL_auxz00_2265 = 
(int)(((long)0)); 
BgL_zc3anonymousza31077za3ieeezf2outputze2scmza3218ze3z93_1578 = 
make_fx_procedure(BGl_zc3anonymousza31077za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00, BgL_auxz00_2265, BgL_auxz00_2267); } 
{ 
int BgL_auxz00_2272;int BgL_auxz00_2270;
BgL_auxz00_2272 = 
(int)(((long)4)); 
BgL_auxz00_2270 = 
(int)(((long)0)); 
BgL_zc3anonymousza31075za3ieeezf2outputze2scmza3218ze3z93_1582 = 
make_fx_procedure(BGl_zc3anonymousza31075za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00, BgL_auxz00_2270, BgL_auxz00_2272); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2275;
BgL_auxz00_2275 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31077za3ieeezf2outputze2scmza3218ze3z93_1578, BgL_auxz00_2275, BgL_armed1010z00_1647); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2278;
BgL_auxz00_2278 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31075za3ieeezf2outputze2scmza3218ze3z93_1582, BgL_auxz00_2278, BgL_an_exitd1012z00_562); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2281;
BgL_auxz00_2281 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31075za3ieeezf2outputze2scmza3218ze3z93_1582, BgL_auxz00_2281, BgL_armed1010z00_1647); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2284;
BgL_auxz00_2284 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31075za3ieeezf2outputze2scmza3218ze3z93_1582, BgL_auxz00_2284, BgL_zc3anonymousza31088za3ieeezf2outputze2scmza3218ze3z93_1648); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2287;
BgL_auxz00_2287 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31075za3ieeezf2outputze2scmza3218ze3z93_1582, BgL_auxz00_2287, BgL_escapez00_1580); } 
BgL_res1014z00_565 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31075za3ieeezf2outputze2scmza3218ze3z93_1582, BgL_zc3anonymousza31091za3ieeezf2outputze2scmza3218ze3z93_1649, BgL_zc3anonymousza31077za3ieeezf2outputze2scmza3218ze3z93_1578); } 
POP_EXIT(); 
return BgL_res1014z00_565;} } } } 
} } 
}



/* _display-2 */
obj_t BGl__displayzd22zd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1583, obj_t BgL_objz00_1584, obj_t BgL_portz00_1585)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 212 */
{ /* ./Ieee/output.scm 213 */
obj_t BgL_auxz00_2292;
if(
OUTPUT_PORTP(BgL_portz00_1585))
{ /* ./Ieee/output.scm 213 */
BgL_auxz00_2292 = BgL_portz00_1585
; }  else 
{ /* ./Ieee/output.scm 213 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4831z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_1585, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)8467))); 
exit( -1 );} 
return 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_objz00_1584, BgL_auxz00_2292);} } 
}



/* <anonymous:1077:Ieee/output.scm:218> */
obj_t BGl_zc3anonymousza31077za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(obj_t BgL_envz00_1586)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
{ /* ./Ieee/output.scm 218 */
obj_t BgL_armed1010z00_1587;
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2299;
BgL_auxz00_2299 = 
(int)(((long)0)); 
BgL_armed1010z00_1587 = 
PROCEDURE_REF(BgL_envz00_1586, BgL_auxz00_2299); } 
{ 

{ /* ./Ieee/output.scm 218 */
bool_t BgL_testz00_2302;
{ /* ./Ieee/output.scm 218 */
obj_t BgL_auxz00_2303;
BgL_auxz00_2303 = 
CELL_REF(BgL_armed1010z00_1587); 
BgL_testz00_2302 = 
CBOOL(BgL_auxz00_2303); } 
if(BgL_testz00_2302)
{ /* ./Ieee/output.scm 218 */
CELL_SET(BgL_armed1010z00_1587, BFALSE); 
return 
BGl_removezd2errorzd2handlerz12z12zz__errorz00();}  else 
{ /* ./Ieee/output.scm 218 */
return BFALSE;} } } } } 
}



/* <anonymous:1091:Ieee/output.scm:218> */
obj_t BGl_zc3anonymousza31091za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(obj_t BgL_envz00_1589)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
{ /* ./Ieee/output.scm 217 */
obj_t BgL_objz00_1590;obj_t BgL_portz00_1591;
{ /* ./Ieee/output.scm 217 */
int BgL_auxz00_2306;
BgL_auxz00_2306 = 
(int)(((long)0)); 
BgL_objz00_1590 = 
PROCEDURE_REF(BgL_envz00_1589, BgL_auxz00_2306); } 
{ /* ./Ieee/output.scm 217 */
int BgL_auxz00_2309;
BgL_auxz00_2309 = 
(int)(((long)1)); 
BgL_portz00_1591 = 
PROCEDURE_REF(BgL_envz00_1589, BgL_auxz00_2309); } 
{ 

{ /* ./Ieee/output.scm 217 */
obj_t BgL_funz00_1672;
{ /* ./Ieee/output.scm 217 */
obj_t BgL_aux2885z00_1670;
BgL_aux2885z00_1670 = BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00; 
if(
PROCEDUREP(BgL_aux2885z00_1670))
{ /* ./Ieee/output.scm 217 */
BgL_funz00_1672 = BgL_aux2885z00_1670; }  else 
{ /* ./Ieee/output.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4832z00zz__r4_output_6_10_3z00, BGl_string4833z00zz__r4_output_6_10_3z00, BgL_aux2885z00_1670, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)8627))); 
exit( -1 );} } 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1672, ((long)2)))
{ /* ./Ieee/output.scm 217 */
return 
PROCEDURE_ENTRY(BgL_funz00_1672)(BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00, BgL_objz00_1590, BgL_portz00_1591, BEOA);}  else 
{ /* ./Ieee/output.scm 217 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4834z00zz__r4_output_6_10_3z00, BGl_list4835z00zz__r4_output_6_10_3z00, BgL_funz00_1672, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)8627))); 
FAILURE(BGl_symbol4840z00zz__r4_output_6_10_3z00,BGl_symbol4840z00zz__r4_output_6_10_3z00,BGl_symbol4840z00zz__r4_output_6_10_3z00);} } } } } 
}



/* <anonymous:1075:Ieee/output.scm:218> */
obj_t BGl_zc3anonymousza31075za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(obj_t BgL_envz00_1592)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
{ /* ./Ieee/output.scm 218 */
obj_t BgL_zc3anonymousza31088za3ieeezf2outputze2scmza3218ze3z93_1595;obj_t BgL_escapez00_1596;
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2324;
BgL_auxz00_2324 = 
(int)(((long)2)); 
BgL_zc3anonymousza31088za3ieeezf2outputze2scmza3218ze3z93_1595 = 
PROCEDURE_REF(BgL_envz00_1592, BgL_auxz00_2324); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2327;
BgL_auxz00_2327 = 
(int)(((long)3)); 
BgL_escapez00_1596 = 
PROCEDURE_REF(BgL_envz00_1592, BgL_auxz00_2327); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31088za3ieeezf2outputze2scmza3218ze3z93_1595, BgL_escapez00_1596);} } } 
}



/* escape */
obj_t BGl_escapez00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1597, obj_t BgL_val1013z00_1599)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
{ /* ./Ieee/output.scm 218 */
obj_t BgL_an_exitd1012z00_1598;
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2331;
BgL_auxz00_2331 = 
(int)(((long)0)); 
BgL_an_exitd1012z00_1598 = 
PROCEDURE_REF(BgL_envz00_1597, BgL_auxz00_2331); } 
{ 
obj_t BgL_val1013z00_563;
BgL_val1013z00_563 = BgL_val1013z00_1599; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1012z00_1598, BgL_val1013z00_563);} } } 
}



/* <anonymous:1088:Ieee/output.scm:218> */
obj_t BGl_zc3anonymousza31088za3Ieeezf2outputze2scmza3218ze3z93zz__r4_output_6_10_3z00(obj_t BgL_envz00_1600, obj_t BgL_escz00_1602, obj_t BgL_objz00_1603, obj_t BgL_procz00_1604, obj_t BgL_msgz00_1605)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
{ /* ./Ieee/output.scm 218 */
obj_t BgL_armed1010z00_1601;
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_2335;
BgL_auxz00_2335 = 
(int)(((long)0)); 
BgL_armed1010z00_1601 = 
PROCEDURE_REF(BgL_envz00_1600, BgL_auxz00_2335); } 
{ 
obj_t BgL_escz00_578;obj_t BgL_objz00_579;obj_t BgL_procz00_580;obj_t BgL_msgz00_581;
BgL_escz00_578 = BgL_escz00_1602; 
BgL_objz00_579 = BgL_objz00_1603; 
BgL_procz00_580 = BgL_procz00_1604; 
BgL_msgz00_581 = BgL_msgz00_1605; 
CELL_SET(BgL_armed1010z00_1601, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
{ /* ./Ieee/output.scm 218 */
obj_t BgL_arg1083z00_1058;
BgL_arg1083z00_1058 = BGl_nativezd2displayzd2envz00zz__r4_output_6_10_3z00; 
BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00 = BgL_arg1083z00_1058; } 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_objz00_579, BgL_procz00_580, BgL_msgz00_581, "./Ieee/output.scm", ((long)8736)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)8661)));} } } 
}



/* native-display */
obj_t BGl_nativezd2displayzd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_8, obj_t BgL_portz00_9)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 225 */
{ /* ./Ieee/output.scm 226 */
obj_t BgL_symbol2588z00_1517;
BgL_symbol2588z00_1517 = BGl_symbol4841z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 226 */

PUSH_TRACE(BgL_symbol2588z00_1517); BUNSPEC; 
{ /* ./Ieee/output.scm 226 */
obj_t BgL_aux2587z00_1518;
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
BINT(((long)0)); 
{ /* ./Ieee/output.scm 228 */
obj_t BgL_arg1098z00_589;
{ /* ./Ieee/output.scm 228 */
bool_t BgL_test1100z00_590;
{ /* ./Ieee/output.scm 228 */
bool_t BgL_test1103z00_591;
BgL_test1103z00_591 = 
PAIRP(BgL_portz00_9); 
if(BgL_test1103z00_591)
{ /* ./Ieee/output.scm 228 */
bool_t BgL_test1104z00_592;
{ /* ./Ieee/output.scm 228 */
obj_t BgL_arg1106z00_593;
{ /* ./Ieee/output.scm 228 */
obj_t BgL_pairz00_1065;
if(BgL_test1103z00_591)
{ /* ./Ieee/output.scm 228 */
BgL_pairz00_1065 = BgL_portz00_9; }  else 
{ /* ./Ieee/output.scm 228 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4841z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_portz00_9, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)9127))); 
exit( -1 );} 
BgL_arg1106z00_593 = 
CAR(BgL_pairz00_1065); } 
BgL_test1104z00_592 = 
OUTPUT_PORTP(BgL_arg1106z00_593); } 
if(BgL_test1104z00_592)
{ /* ./Ieee/output.scm 228 */
BgL_test1100z00_590 = ((bool_t)0); }  else 
{ /* ./Ieee/output.scm 228 */
BgL_test1100z00_590 = ((bool_t)1); } }  else 
{ /* ./Ieee/output.scm 228 */
BgL_test1100z00_590 = ((bool_t)1); } } 
if(BgL_test1100z00_590)
{ /* ./Ieee/output.scm 228 */
BgL_arg1098z00_589 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Ieee/output.scm 230 */
obj_t BgL_pairz00_1067;
if(
PAIRP(BgL_portz00_9))
{ /* ./Ieee/output.scm 230 */
BgL_pairz00_1067 = BgL_portz00_9; }  else 
{ /* ./Ieee/output.scm 230 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4841z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_portz00_9, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)9179))); 
exit( -1 );} 
BgL_arg1098z00_589 = 
CAR(BgL_pairz00_1067); } } 
BgL_aux2587z00_1518 = 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_objz00_8, BgL_arg1098z00_589, ((bool_t)1)); } 
POP_TRACE(); 
return BgL_aux2587z00_1518;} } } } 
}



/* _native-display */
obj_t BGl__nativezd2displayzd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1565, obj_t BgL_objz00_1566, obj_t BgL_portz00_1567)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 225 */
return 
BGl_nativezd2displayzd2zz__r4_output_6_10_3z00(BgL_objz00_1566, BgL_portz00_1567);} 
}



/* write */
BGL_EXPORTED_DEF obj_t BGl_writez00zz__r4_output_6_10_3z00(obj_t BgL_objz00_10, obj_t BgL_portz00_11)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 236 */
{ /* ./Ieee/output.scm 237 */
obj_t BgL_symbol2592z00_1519;
BgL_symbol2592z00_1519 = BGl_symbol4842z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 237 */

PUSH_TRACE(BgL_symbol2592z00_1519); BUNSPEC; 
{ /* ./Ieee/output.scm 237 */
obj_t BgL_aux2591z00_1520;
{ /* ./Ieee/output.scm 237 */
obj_t BgL_portz00_594;
{ 

if(
NULLP(BgL_portz00_11))
{ /* ./Ieee/output.scm 237 */
BgL_portz00_594 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Ieee/output.scm 237 */
bool_t BgL_test1113z00_600;
BgL_test1113z00_600 = 
PAIRP(BgL_portz00_11); 
if(BgL_test1113z00_600)
{ /* ./Ieee/output.scm 237 */
bool_t BgL_test1114z00_601;
{ /* ./Ieee/output.scm 237 */
obj_t BgL_arg1118z00_602;
{ /* ./Ieee/output.scm 237 */
obj_t BgL_pairz00_1070;
if(BgL_test1113z00_600)
{ /* ./Ieee/output.scm 237 */
BgL_pairz00_1070 = BgL_portz00_11; }  else 
{ /* ./Ieee/output.scm 237 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4842z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_portz00_11, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)9451))); 
exit( -1 );} 
BgL_arg1118z00_602 = 
CDR(BgL_pairz00_1070); } 
BgL_test1114z00_601 = 
NULLP(BgL_arg1118z00_602); } 
if(BgL_test1114z00_601)
{ /* ./Ieee/output.scm 237 */
obj_t BgL_pairz00_1072;
if(
PAIRP(BgL_portz00_11))
{ /* ./Ieee/output.scm 237 */
BgL_pairz00_1072 = BgL_portz00_11; }  else 
{ /* ./Ieee/output.scm 237 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4842z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_portz00_11, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)9451))); 
exit( -1 );} 
BgL_portz00_594 = 
CAR(BgL_pairz00_1072); }  else 
{ /* ./Ieee/output.scm 237 */
BgL_tagzd2115zd2_597:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4843z00zz__r4_output_6_10_3z00, BGl_string4823z00zz__r4_output_6_10_3z00, BgL_portz00_11, "./Ieee/output.scm", ((long)9552)); 
BgL_portz00_594 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)9451))); } }  else 
{ /* ./Ieee/output.scm 237 */
goto BgL_tagzd2115zd2_597;} } } 
{ /* ./Ieee/output.scm 246 */
obj_t BgL_portz00_1078;
if(
OUTPUT_PORTP(BgL_portz00_594))
{ /* ./Ieee/output.scm 246 */
BgL_portz00_1078 = BgL_portz00_594; }  else 
{ /* ./Ieee/output.scm 246 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4842z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_594, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)9646))); 
exit( -1 );} 
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
BINT(((long)0)); 
BgL_aux2591z00_1520 = 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_objz00_10, BgL_portz00_1078, ((bool_t)0)); } } 
POP_TRACE(); 
return BgL_aux2591z00_1520;} } } } 
}



/* _write */
obj_t BGl__writez00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1608, obj_t BgL_objz00_1609, obj_t BgL_portz00_1610)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 236 */
return 
BGl_writez00zz__r4_output_6_10_3z00(BgL_objz00_1609, BgL_portz00_1610);} 
}



/* write-2 */
BGL_EXPORTED_DEF obj_t BGl_writezd22zd2zz__r4_output_6_10_3z00(obj_t BgL_objz00_12, obj_t BgL_portz00_13)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 251 */
{ /* ./Ieee/output.scm 252 */
obj_t BgL_symbol2596z00_1521;
BgL_symbol2596z00_1521 = BGl_symbol4844z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 252 */

PUSH_TRACE(BgL_symbol2596z00_1521); BUNSPEC; 
{ /* ./Ieee/output.scm 252 */
obj_t BgL_aux2595z00_1522;
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
BINT(((long)0)); 
BgL_aux2595z00_1522 = 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_objz00_12, BgL_portz00_13, ((bool_t)0)); 
POP_TRACE(); 
return BgL_aux2595z00_1522;} } } } 
}



/* _write-2 */
obj_t BGl__writezd22zd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1611, obj_t BgL_objz00_1612, obj_t BgL_portz00_1613)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 251 */
{ /* ./Ieee/output.scm 252 */
obj_t BgL_auxz00_2399;
if(
OUTPUT_PORTP(BgL_portz00_1613))
{ /* ./Ieee/output.scm 252 */
BgL_auxz00_2399 = BgL_portz00_1613
; }  else 
{ /* ./Ieee/output.scm 252 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4845z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_1613, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)9917))); 
exit( -1 );} 
return 
BGl_writezd22zd2zz__r4_output_6_10_3z00(BgL_objz00_1612, BgL_auxz00_2399);} } 
}



/* write-char */
BGL_EXPORTED_DEF obj_t BGl_writezd2charzd2zz__r4_output_6_10_3z00(unsigned char BgL_charz00_14, obj_t BgL_portz00_15)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 258 */
{ /* ./Ieee/output.scm 259 */
obj_t BgL_symbol2600z00_1523;
BgL_symbol2600z00_1523 = BGl_symbol4846z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 259 */

PUSH_TRACE(BgL_symbol2600z00_1523); BUNSPEC; 
{ /* ./Ieee/output.scm 259 */
obj_t BgL_aux2599z00_1524;
{ /* ./Ieee/output.scm 259 */
obj_t BgL_portz00_603;
{ 

if(
NULLP(BgL_portz00_15))
{ /* ./Ieee/output.scm 259 */
BgL_portz00_603 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Ieee/output.scm 259 */
bool_t BgL_test1132z00_609;
BgL_test1132z00_609 = 
PAIRP(BgL_portz00_15); 
if(BgL_test1132z00_609)
{ /* ./Ieee/output.scm 259 */
bool_t BgL_test1133z00_610;
{ /* ./Ieee/output.scm 259 */
obj_t BgL_arg1137z00_611;
{ /* ./Ieee/output.scm 259 */
obj_t BgL_pairz00_1081;
if(BgL_test1132z00_609)
{ /* ./Ieee/output.scm 259 */
BgL_pairz00_1081 = BgL_portz00_15; }  else 
{ /* ./Ieee/output.scm 259 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4846z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_portz00_15, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)10235))); 
exit( -1 );} 
BgL_arg1137z00_611 = 
CDR(BgL_pairz00_1081); } 
BgL_test1133z00_610 = 
NULLP(BgL_arg1137z00_611); } 
if(BgL_test1133z00_610)
{ /* ./Ieee/output.scm 259 */
obj_t BgL_pairz00_1083;
if(
PAIRP(BgL_portz00_15))
{ /* ./Ieee/output.scm 259 */
BgL_pairz00_1083 = BgL_portz00_15; }  else 
{ /* ./Ieee/output.scm 259 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4846z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_portz00_15, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)10235))); 
exit( -1 );} 
BgL_portz00_603 = 
CAR(BgL_pairz00_1083); }  else 
{ /* ./Ieee/output.scm 259 */
BgL_tagzd2121zd2_606:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4843z00zz__r4_output_6_10_3z00, BGl_string4823z00zz__r4_output_6_10_3z00, BgL_portz00_15, "./Ieee/output.scm", ((long)10336)); 
BgL_portz00_603 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)10235))); } }  else 
{ /* ./Ieee/output.scm 259 */
goto BgL_tagzd2121zd2_606;} } } 
{ /* ./Ieee/output.scm 268 */
obj_t BgL_portz00_1089;
if(
OUTPUT_PORTP(BgL_portz00_603))
{ /* ./Ieee/output.scm 268 */
BgL_portz00_1089 = BgL_portz00_603; }  else 
{ /* ./Ieee/output.scm 268 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4846z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_603, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)10436))); 
exit( -1 );} 
BgL_aux2599z00_1524 = 
WRITE_CHAR(BgL_charz00_14, BgL_portz00_1089); } } 
POP_TRACE(); 
return BgL_aux2599z00_1524;} } } } 
}



/* _write-char */
obj_t BGl__writezd2charzd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1614, obj_t BgL_charz00_1615, obj_t BgL_portz00_1616)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 258 */
{ /* ./Ieee/output.scm 259 */
unsigned char BgL_auxz00_2435;
{ /* ./Ieee/output.scm 259 */
obj_t BgL_auxz00_2436;
if(
CHARP(BgL_charz00_1615))
{ /* ./Ieee/output.scm 259 */
BgL_auxz00_2436 = BgL_charz00_1615
; }  else 
{ /* ./Ieee/output.scm 259 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4847z00zz__r4_output_6_10_3z00, BGl_string4848z00zz__r4_output_6_10_3z00, BgL_charz00_1615, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)10229))); 
exit( -1 );} 
BgL_auxz00_2435 = 
(unsigned char)CCHAR(BgL_auxz00_2436); } 
return 
BGl_writezd2charzd2zz__r4_output_6_10_3z00(BgL_auxz00_2435, BgL_portz00_1616);} } 
}



/* write-char-2 */
BGL_EXPORTED_DEF obj_t BGl_writezd2charzd22z00zz__r4_output_6_10_3z00(unsigned char BgL_charz00_16, obj_t BgL_portz00_17)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 273 */
{ /* ./Ieee/output.scm 274 */
obj_t BgL_symbol2604z00_2020;
BgL_symbol2604z00_2020 = BGl_symbol4849z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 274 */

PUSH_TRACE(BgL_symbol2604z00_2020); BUNSPEC; 
{ /* ./Ieee/output.scm 274 */
obj_t BgL_aux2603z00_2021;
BgL_aux2603z00_2021 = 
WRITE_CHAR(BgL_charz00_16, BgL_portz00_17); 
POP_TRACE(); 
return BgL_aux2603z00_2021;} } } } 
}



/* _write-char-2 */
obj_t BGl__writezd2charzd22z00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1617, obj_t BgL_charz00_1618, obj_t BgL_portz00_1619)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 273 */
{ /* ./Ieee/output.scm 274 */
unsigned char BgL_charz00_2022;obj_t BgL_portz00_2023;
{ /* ./Ieee/output.scm 274 */
obj_t BgL_auxz00_2447;
if(
CHARP(BgL_charz00_1618))
{ /* ./Ieee/output.scm 274 */
BgL_auxz00_2447 = BgL_charz00_1618
; }  else 
{ /* ./Ieee/output.scm 274 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4850z00zz__r4_output_6_10_3z00, BGl_string4848z00zz__r4_output_6_10_3z00, BgL_charz00_1618, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)10727))); 
exit( -1 );} 
BgL_charz00_2022 = 
(unsigned char)CCHAR(BgL_auxz00_2447); } 
if(
OUTPUT_PORTP(BgL_portz00_1619))
{ /* ./Ieee/output.scm 274 */
BgL_portz00_2023 = BgL_portz00_1619; }  else 
{ /* ./Ieee/output.scm 274 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4850z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_1619, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)10727))); 
exit( -1 );} 
{ /* ./Ieee/output.scm 274 */
obj_t BgL_symbol2604z00_2024;
BgL_symbol2604z00_2024 = BGl_symbol4849z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 274 */

PUSH_TRACE(BgL_symbol2604z00_2024); BUNSPEC; 
{ /* ./Ieee/output.scm 274 */
obj_t BgL_aux2603z00_2025;
BgL_aux2603z00_2025 = 
WRITE_CHAR(BgL_charz00_2022, BgL_portz00_2023); 
POP_TRACE(); 
return BgL_aux2603z00_2025;} } } } } 
}



/* illegal-char-rep */
BGL_EXPORTED_DEF obj_t BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(unsigned char BgL_charz00_18)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 279 */
{ /* ./Ieee/output.scm 280 */
obj_t BgL_symbol2608z00_1527;
BgL_symbol2608z00_1527 = BGl_symbol4851z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 280 */

PUSH_TRACE(BgL_symbol2608z00_1527); BUNSPEC; 
{ /* ./Ieee/output.scm 280 */
obj_t BgL_aux2607z00_1528;
{ /* ./Ieee/output.scm 280 */
bool_t BgL_test1148z00_612;
{ /* ./Ieee/output.scm 280 */
bool_t BgL_test1160z00_619;
{ /* ./Ieee/output.scm 280 */
bool_t BgL_res2548z00_1091;
BgL_res2548z00_1091 = 
isalpha(BgL_charz00_18); 
BgL_test1160z00_619 = BgL_res2548z00_1091; } 
if(BgL_test1160z00_619)
{ /* ./Ieee/output.scm 280 */
BgL_test1148z00_612 = ((bool_t)1); }  else 
{ /* ./Ieee/output.scm 280 */
bool_t BgL_res2549z00_1093;
BgL_res2549z00_1093 = 
isdigit(BgL_charz00_18); 
BgL_test1148z00_612 = BgL_res2549z00_1093; } } 
if(BgL_test1148z00_612)
{ /* ./Ieee/output.scm 280 */
BgL_aux2607z00_1528 = 
BCHAR(BgL_charz00_18); }  else 
{ 

switch( BgL_charz00_18) { case ((unsigned char)'\n') : 

BgL_aux2607z00_1528 = BGl_string4852z00zz__r4_output_6_10_3z00; break;case ((unsigned char)'\r') : 

BgL_aux2607z00_1528 = BGl_string4853z00zz__r4_output_6_10_3z00; break;case ((unsigned char)' ') : 

BgL_aux2607z00_1528 = BGl_string4854z00zz__r4_output_6_10_3z00; break;case ((unsigned char)'\t') : 

BgL_aux2607z00_1528 = BGl_string4855z00zz__r4_output_6_10_3z00; break;
default: 
{ /* ./Ieee/output.scm 292 */
long BgL_iz00_616;
BgL_iz00_616 = 
(BgL_charz00_18); 
{ /* ./Ieee/output.scm 293 */
bool_t BgL_testz00_2469;
{ /* ./Ieee/output.scm 293 */
long BgL_auxz00_2470;
BgL_auxz00_2470 = 
(((unsigned char)'!')); 
BgL_testz00_2469 = 
(BgL_iz00_616<BgL_auxz00_2470); } 
if(BgL_testz00_2469)
{ /* ./Ieee/output.scm 293 */
BgL_aux2607z00_1528 = 
ill_char_rep(BgL_charz00_18); }  else 
{ /* ./Ieee/output.scm 293 */
BgL_aux2607z00_1528 = 
BCHAR(BgL_charz00_18); } } } } } } 
POP_TRACE(); 
return BgL_aux2607z00_1528;} } } } 
}



/* _illegal-char-rep */
obj_t BGl__illegalzd2charzd2repz00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1620, obj_t BgL_charz00_1621)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 279 */
{ /* ./Ieee/output.scm 280 */
unsigned char BgL_auxz00_2477;
{ /* ./Ieee/output.scm 280 */
obj_t BgL_auxz00_2478;
if(
CHARP(BgL_charz00_1621))
{ /* ./Ieee/output.scm 280 */
BgL_auxz00_2478 = BgL_charz00_1621
; }  else 
{ /* ./Ieee/output.scm 280 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4856z00zz__r4_output_6_10_3z00, BGl_string4848z00zz__r4_output_6_10_3z00, BgL_charz00_1621, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)11011))); 
exit( -1 );} 
BgL_auxz00_2477 = 
(unsigned char)CCHAR(BgL_auxz00_2478); } 
return 
BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(BgL_auxz00_2477);} } 
}



/* write/display */
obj_t BGl_writezf2displayzf2zz__r4_output_6_10_3z00(obj_t BgL_objz00_19, obj_t BgL_portz00_20, bool_t BgL_flagz00_21)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 307 */
{ /* ./Ieee/output.scm 308 */
obj_t BgL_symbol2612z00_1529;
BgL_symbol2612z00_1529 = BGl_symbol4857z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 308 */

PUSH_TRACE(BgL_symbol2612z00_1529); BUNSPEC; 
{ /* ./Ieee/output.scm 308 */
obj_t BgL_aux2611z00_1530;
{ /* ./Ieee/output.scm 308 */
long BgL_za72za7_1099;
{ /* ./Ieee/output.scm 308 */
obj_t BgL_auxz00_2487;
{ /* ./Ieee/output.scm 308 */
obj_t BgL_aux3071z00_1701;
BgL_aux3071z00_1701 = BGl_za2displayedza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux3071z00_1701))
{ /* ./Ieee/output.scm 308 */
BgL_auxz00_2487 = BgL_aux3071z00_1701
; }  else 
{ /* ./Ieee/output.scm 308 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux3071z00_1701, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12136))); 
exit( -1 );} } 
BgL_za72za7_1099 = 
(long)CINT(BgL_auxz00_2487); } 
{ /* ./Ieee/output.scm 308 */
long BgL_auxz00_2494;
BgL_auxz00_2494 = 
(((long)1)+BgL_za72za7_1099); 
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
BINT(BgL_auxz00_2494); } } 
{ /* ./Ieee/output.scm 310 */
bool_t BgL_test1164z00_620;
if(
INTEGERP(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00))
{ /* ./Ieee/output.scm 311 */
bool_t BgL_test1239z00_643;
{ /* ./Ieee/output.scm 311 */
long BgL_n1z00_1101;
{ /* ./Ieee/output.scm 311 */
obj_t BgL_auxz00_2499;
{ /* ./Ieee/output.scm 311 */
obj_t BgL_aux3083z00_1703;
BgL_aux3083z00_1703 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux3083z00_1703))
{ /* ./Ieee/output.scm 311 */
BgL_auxz00_2499 = BgL_aux3083z00_1703
; }  else 
{ /* ./Ieee/output.scm 311 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux3083z00_1703, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12234))); 
exit( -1 );} } 
BgL_n1z00_1101 = 
(long)CINT(BgL_auxz00_2499); } 
BgL_test1239z00_643 = 
(BgL_n1z00_1101>((long)0)); } 
if(BgL_test1239z00_643)
{ /* ./Ieee/output.scm 312 */
long BgL_n1z00_1103;long BgL_n2z00_1104;
{ /* ./Ieee/output.scm 312 */
obj_t BgL_auxz00_2508;
{ /* ./Ieee/output.scm 312 */
obj_t BgL_aux3094z00_1705;
BgL_aux3094z00_1705 = BGl_za2displayedza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux3094z00_1705))
{ /* ./Ieee/output.scm 312 */
BgL_auxz00_2508 = BgL_aux3094z00_1705
; }  else 
{ /* ./Ieee/output.scm 312 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux3094z00_1705, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12260))); 
exit( -1 );} } 
BgL_n1z00_1103 = 
(long)CINT(BgL_auxz00_2508); } 
{ /* ./Ieee/output.scm 312 */
obj_t BgL_auxz00_2515;
{ /* ./Ieee/output.scm 312 */
obj_t BgL_aux3105z00_1707;
BgL_aux3105z00_1707 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux3105z00_1707))
{ /* ./Ieee/output.scm 312 */
BgL_auxz00_2515 = BgL_aux3105z00_1707
; }  else 
{ /* ./Ieee/output.scm 312 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux3105z00_1707, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12279))); 
exit( -1 );} } 
BgL_n2z00_1104 = 
(long)CINT(BgL_auxz00_2515); } 
BgL_test1164z00_620 = 
(BgL_n1z00_1103>=BgL_n2z00_1104); }  else 
{ /* ./Ieee/output.scm 311 */
BgL_test1164z00_620 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 310 */
BgL_test1164z00_620 = ((bool_t)0); } 
if(BgL_test1164z00_620)
{ /* ./Ieee/output.scm 310 */
{ /* ./Ieee/output.scm 313 */
obj_t BgL_auxz00_2524;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 313 */
BgL_auxz00_2524 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 313 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12316))); 
exit( -1 );} 
display_string(BGl_string4858z00zz__r4_output_6_10_3z00, BgL_auxz00_2524); } }  else 
{ /* ./Ieee/output.scm 314 */
bool_t BgL_test1166z00_621;
BgL_test1166z00_621 = 
INTEGERP(BgL_objz00_19); 
if(BgL_test1166z00_621)
{ /* ./Ieee/output.scm 314 */
{ /* ./Ieee/output.scm 315 */
obj_t BgL_auxz00_2538;obj_t BgL_auxz00_2533;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 315 */
BgL_auxz00_2538 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 315 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12371))); 
exit( -1 );} 
if(BgL_test1166z00_621)
{ /* ./Ieee/output.scm 315 */
BgL_auxz00_2533 = BgL_objz00_19
; }  else 
{ /* ./Ieee/output.scm 315 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4859z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12366))); 
exit( -1 );} 
display_fixnum(BgL_auxz00_2533, BgL_auxz00_2538); } }  else 
{ /* ./Ieee/output.scm 316 */
bool_t BgL_test1168z00_622;
BgL_test1168z00_622 = 
SYMBOLP(BgL_objz00_19); 
if(BgL_test1168z00_622)
{ /* ./Ieee/output.scm 316 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 318 */
obj_t BgL_auxz00_2553;obj_t BgL_auxz00_2548;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 318 */
BgL_auxz00_2553 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12440))); 
exit( -1 );} 
if(BgL_test1168z00_622)
{ /* ./Ieee/output.scm 318 */
BgL_auxz00_2548 = BgL_objz00_19
; }  else 
{ /* ./Ieee/output.scm 318 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4860z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12435))); 
exit( -1 );} 
display_symbol(BgL_auxz00_2548, BgL_auxz00_2553); }  else 
{ /* ./Ieee/output.scm 319 */
obj_t BgL_auxz00_2565;obj_t BgL_auxz00_2560;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 319 */
BgL_auxz00_2565 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 319 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12468))); 
exit( -1 );} 
if(BgL_test1168z00_622)
{ /* ./Ieee/output.scm 319 */
BgL_auxz00_2560 = BgL_objz00_19
; }  else 
{ /* ./Ieee/output.scm 319 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4860z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12463))); 
exit( -1 );} 
write_symbol(BgL_auxz00_2560, BgL_auxz00_2565); } }  else 
{ /* ./Ieee/output.scm 320 */
bool_t BgL_test1171z00_623;
BgL_test1171z00_623 = 
STRINGP(BgL_objz00_19); 
if(BgL_test1171z00_623)
{ /* ./Ieee/output.scm 320 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 322 */
obj_t BgL_auxz00_2580;obj_t BgL_auxz00_2575;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 322 */
BgL_auxz00_2580 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 322 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12538))); 
exit( -1 );} 
if(BgL_test1171z00_623)
{ /* ./Ieee/output.scm 322 */
BgL_auxz00_2575 = BgL_objz00_19
; }  else 
{ /* ./Ieee/output.scm 322 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4861z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12533))); 
exit( -1 );} 
display_string(BgL_auxz00_2575, BgL_auxz00_2580); }  else 
{ /* ./Ieee/output.scm 323 */
obj_t BgL_arg1174z00_624;
{ /* ./Ieee/output.scm 323 */
obj_t BgL_stringz00_1108;
if(BgL_test1171z00_623)
{ /* ./Ieee/output.scm 323 */
BgL_stringz00_1108 = BgL_objz00_19; }  else 
{ /* ./Ieee/output.scm 323 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4861z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12578))); 
exit( -1 );} 
BgL_arg1174z00_624 = 
string_for_read(BgL_stringz00_1108); } 
{ /* ./Ieee/output.scm 323 */
obj_t BgL_auxz00_2594;bool_t BgL_auxz00_2592;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 325 */
BgL_auxz00_2594 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 325 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12621))); 
exit( -1 );} 
BgL_auxz00_2592 = 
CBOOL(BGl_za2bigloozd2strictzd2r5rszd2stringsza2zd2zz__biglooz00); 
write_string(BgL_arg1174z00_624, BgL_auxz00_2592, BgL_auxz00_2594); } } }  else 
{ /* ./Ieee/output.scm 320 */
if(
PAIRP(BgL_objz00_19))
{ /* ./Ieee/output.scm 326 */
BGl_writezf2displayzd2pairz20zz__r4_output_6_10_3z00(BgL_objz00_19, BgL_portz00_20, BgL_flagz00_21); }  else 
{ /* ./Ieee/output.scm 326 */
if(
BGl_classzf3zf3zz__objectz00(BgL_objz00_19))
{ /* ./Ieee/output.scm 328 */
{ /* ./Ieee/output.scm 329 */
obj_t BgL_auxz00_2606;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 329 */
BgL_auxz00_2606 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 329 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12715))); 
exit( -1 );} 
display_string(BGl_string4862z00zz__r4_output_6_10_3z00, BgL_auxz00_2606); } 
{ /* ./Ieee/output.scm 329 */
obj_t BgL_arg1245z00_1113;
BgL_arg1245z00_1113 = 
BGl_classzd2namezd2zz__objectz00(BgL_objz00_19); 
{ /* ./Ieee/output.scm 329 */
obj_t BgL_auxz00_2614;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 329 */
BgL_auxz00_2614 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 329 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12715))); 
exit( -1 );} 
display_symbol(BgL_arg1245z00_1113, BgL_auxz00_2614); } } 
{ /* ./Ieee/output.scm 329 */
obj_t BgL_auxz00_2621;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 329 */
BgL_auxz00_2621 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 329 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12715))); 
exit( -1 );} 
display_string(BGl_string4863z00zz__r4_output_6_10_3z00, BgL_auxz00_2621); } }  else 
{ /* ./Ieee/output.scm 328 */
if(
VECTORP(BgL_objz00_19))
{ /* ./Ieee/output.scm 330 */
BGl_writezf2displayzd2vectorz20zz__r4_output_6_10_3z00(BgL_objz00_19, BgL_portz00_20, BgL_flagz00_21); }  else 
{ /* ./Ieee/output.scm 332 */
bool_t BgL_test1183z00_628;
BgL_test1183z00_628 = 
CHARP(BgL_objz00_19); 
if(BgL_test1183z00_628)
{ /* ./Ieee/output.scm 332 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 334 */
obj_t BgL_auxz00_2639;obj_t BgL_auxz00_2634;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 334 */
BgL_auxz00_2639 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 334 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12879))); 
exit( -1 );} 
if(BgL_test1183z00_628)
{ /* ./Ieee/output.scm 334 */
BgL_auxz00_2634 = BgL_objz00_19
; }  else 
{ /* ./Ieee/output.scm 334 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4864z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12874))); 
exit( -1 );} 
display_char(BgL_auxz00_2634, BgL_auxz00_2639); }  else 
{ /* ./Ieee/output.scm 335 */
obj_t BgL_auxz00_2651;obj_t BgL_auxz00_2646;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 335 */
BgL_auxz00_2651 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 335 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12907))); 
exit( -1 );} 
if(BgL_test1183z00_628)
{ /* ./Ieee/output.scm 335 */
BgL_auxz00_2646 = BgL_objz00_19
; }  else 
{ /* ./Ieee/output.scm 335 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4864z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12902))); 
exit( -1 );} 
write_char(BgL_auxz00_2646, BgL_auxz00_2651); } }  else 
{ /* ./Ieee/output.scm 336 */
bool_t BgL_test1186z00_629;
BgL_test1186z00_629 = 
UCS2P(BgL_objz00_19); 
if(BgL_test1186z00_629)
{ /* ./Ieee/output.scm 336 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 338 */
obj_t BgL_auxz00_2666;obj_t BgL_auxz00_2661;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 338 */
BgL_auxz00_2666 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12973))); 
exit( -1 );} 
if(BgL_test1186z00_629)
{ /* ./Ieee/output.scm 338 */
BgL_auxz00_2661 = BgL_objz00_19
; }  else 
{ /* ./Ieee/output.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4865z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12968))); 
exit( -1 );} 
display_ucs2(BgL_auxz00_2661, BgL_auxz00_2666); }  else 
{ /* ./Ieee/output.scm 339 */
obj_t BgL_auxz00_2678;obj_t BgL_auxz00_2673;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 339 */
BgL_auxz00_2678 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 339 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13001))); 
exit( -1 );} 
if(BgL_test1186z00_629)
{ /* ./Ieee/output.scm 339 */
BgL_auxz00_2673 = BgL_objz00_19
; }  else 
{ /* ./Ieee/output.scm 339 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4865z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)12996))); 
exit( -1 );} 
write_ucs2(BgL_auxz00_2673, BgL_auxz00_2678); } }  else 
{ /* ./Ieee/output.scm 340 */
bool_t BgL_test1189z00_630;
BgL_test1189z00_630 = 
REALP(BgL_objz00_19); 
if(BgL_test1189z00_630)
{ /* ./Ieee/output.scm 340 */
{ /* ./Ieee/output.scm 341 */
obj_t BgL_auxz00_2692;obj_t BgL_auxz00_2687;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 341 */
BgL_auxz00_2692 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 341 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13057))); 
exit( -1 );} 
if(BgL_test1189z00_630)
{ /* ./Ieee/output.scm 341 */
BgL_auxz00_2687 = BgL_objz00_19
; }  else 
{ /* ./Ieee/output.scm 341 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4866z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13052))); 
exit( -1 );} 
display_flonum(BgL_auxz00_2687, BgL_auxz00_2692); } }  else 
{ /* ./Ieee/output.scm 340 */
if(
CELLP(BgL_objz00_19))
{ /* ./Ieee/output.scm 342 */
{ /* ./Ieee/output.scm 343 */
obj_t BgL_auxz00_2701;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 343 */
BgL_auxz00_2701 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 343 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13087))); 
exit( -1 );} 
display_string(BGl_string4867z00zz__r4_output_6_10_3z00, BgL_auxz00_2701); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(
CELL_REF(BgL_objz00_19), BgL_portz00_20, BgL_flagz00_21); 
{ /* ./Ieee/output.scm 343 */
obj_t BgL_auxz00_2710;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 343 */
BgL_auxz00_2710 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 343 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13087))); 
exit( -1 );} 
display_string(BGl_string4863z00zz__r4_output_6_10_3z00, BgL_auxz00_2710); } }  else 
{ /* ./Ieee/output.scm 342 */
if(
STRUCTP(BgL_objz00_19))
{ /* ./Ieee/output.scm 344 */
BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00(BgL_objz00_19, BgL_portz00_20, BgL_flagz00_21); }  else 
{ /* ./Ieee/output.scm 344 */
if(
TVECTORP(BgL_objz00_19))
{ /* ./Ieee/output.scm 346 */
BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(BgL_objz00_19, BgL_portz00_20, BgL_flagz00_21); }  else 
{ /* ./Ieee/output.scm 348 */
bool_t BgL_test1197z00_634;
BgL_test1197z00_634 = 
BGL_OBJECTP(BgL_objz00_19); 
if(BgL_test1197z00_634)
{ /* ./Ieee/output.scm 348 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 349 */
obj_t BgL_list1393z00_1128;
BgL_list1393z00_1128 = 
MAKE_PAIR(BgL_portz00_20, BNIL); 
{ /* ./Ieee/output.scm 349 */
BgL_objectz00_bglt BgL_auxz00_2727;
if(
BGL_OBJECTP(BgL_objz00_19))
{ /* ./Ieee/output.scm 349 */
BgL_auxz00_2727 = 
(BgL_objectz00_bglt)(BgL_objz00_19)
; }  else 
{ /* ./Ieee/output.scm 349 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4868z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13288))); 
exit( -1 );} 
BGl_objectzd2displayzd2zz__objectz00(BgL_auxz00_2727, BgL_list1393z00_1128); } }  else 
{ /* ./Ieee/output.scm 349 */
obj_t BgL_list1396z00_1129;
BgL_list1396z00_1129 = 
MAKE_PAIR(BgL_portz00_20, BNIL); 
{ /* ./Ieee/output.scm 349 */
BgL_objectz00_bglt BgL_auxz00_2736;
if(
BGL_OBJECTP(BgL_objz00_19))
{ /* ./Ieee/output.scm 349 */
BgL_auxz00_2736 = 
(BgL_objectz00_bglt)(BgL_objz00_19)
; }  else 
{ /* ./Ieee/output.scm 349 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4868z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13288))); 
exit( -1 );} 
BGl_objectzd2writezd2zz__objectz00(BgL_auxz00_2736, BgL_list1396z00_1129); } } }  else 
{ /* ./Ieee/output.scm 350 */
bool_t BgL_test1199z00_635;
BgL_test1199z00_635 = 
UCS2_STRINGP(BgL_objz00_19); 
if(BgL_test1199z00_635)
{ /* ./Ieee/output.scm 350 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 352 */
obj_t BgL_auxz00_2752;obj_t BgL_auxz00_2747;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 352 */
BgL_auxz00_2752 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 352 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13399))); 
exit( -1 );} 
if(BgL_test1199z00_635)
{ /* ./Ieee/output.scm 352 */
BgL_auxz00_2747 = BgL_objz00_19
; }  else 
{ /* ./Ieee/output.scm 352 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4869z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13394))); 
exit( -1 );} 
display_ucs2string(BgL_auxz00_2747, BgL_auxz00_2752); }  else 
{ /* ./Ieee/output.scm 353 */
obj_t BgL_arg1202z00_636;
{ /* ./Ieee/output.scm 353 */
obj_t BgL_arg1205z00_637;
{ /* ./Ieee/output.scm 353 */
obj_t BgL_ucs2z00_1131;
if(BgL_test1199z00_635)
{ /* ./Ieee/output.scm 353 */
BgL_ucs2z00_1131 = BgL_objz00_19; }  else 
{ /* ./Ieee/output.scm 353 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4869z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13470))); 
exit( -1 );} 
BgL_arg1205z00_637 = 
ucs2_string_to_utf8_string(BgL_ucs2z00_1131); } 
BgL_arg1202z00_636 = 
string_for_read(BgL_arg1205z00_637); } 
{ /* ./Ieee/output.scm 353 */
obj_t BgL_auxz00_2765;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 354 */
BgL_auxz00_2765 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 354 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13485))); 
exit( -1 );} 
write_utf8string(BgL_arg1202z00_636, BgL_auxz00_2765); } } }  else 
{ /* ./Ieee/output.scm 350 */
if(
OPAQUEP(BgL_objz00_19))
{ /* ./Ieee/output.scm 355 */
{ /* ./Ieee/output.scm 356 */
obj_t BgL_auxz00_2774;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 356 */
BgL_auxz00_2774 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 356 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13549))); 
exit( -1 );} 
display_string(BGl_string4870z00zz__r4_output_6_10_3z00, BgL_auxz00_2774); } }  else 
{ /* ./Ieee/output.scm 357 */
bool_t BgL_test1210z00_639;
BgL_test1210z00_639 = 
BGL_DATEP(BgL_objz00_19); 
if(BgL_test1210z00_639)
{ /* ./Ieee/output.scm 357 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 359 */
obj_t BgL_arg1212z00_640;
{ /* ./Ieee/output.scm 359 */
obj_t BgL_res2550z00_1139;
{ /* ./Ieee/output.scm 359 */
obj_t BgL_datez00_1135;
{ /* ./Ieee/output.scm 359 */
bool_t BgL_test3456z00_1776;
BgL_test3456z00_1776 = 
BGL_DATEP(BgL_objz00_19); 
if(BgL_test3456z00_1776)
{ /* ./Ieee/output.scm 359 */
BgL_datez00_1135 = BgL_objz00_19; }  else 
{ /* ./Ieee/output.scm 359 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4871z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13624))); 
exit( -1 );} } 
{ /* ./Ieee/output.scm 359 */
long BgL_auxz00_2789;
BgL_auxz00_2789 = 
bgl_date_to_seconds(BgL_datez00_1135); 
BgL_res2550z00_1139 = 
bgl_seconds_to_string(BgL_auxz00_2789); } } 
BgL_arg1212z00_640 = BgL_res2550z00_1139; } 
{ /* ./Ieee/output.scm 359 */
obj_t BgL_auxz00_2792;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 359 */
BgL_auxz00_2792 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 359 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13630))); 
exit( -1 );} 
display_string(BgL_arg1212z00_640, BgL_auxz00_2792); } }  else 
{ /* ./Ieee/output.scm 358 */
{ /* ./Ieee/output.scm 361 */
obj_t BgL_auxz00_2799;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 361 */
BgL_auxz00_2799 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 361 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13681))); 
exit( -1 );} 
display_string(BGl_string4872z00zz__r4_output_6_10_3z00, BgL_auxz00_2799); } 
{ /* ./Ieee/output.scm 362 */
obj_t BgL_arg1217z00_641;
{ /* ./Ieee/output.scm 362 */
obj_t BgL_res2551z00_1144;
{ /* ./Ieee/output.scm 362 */
obj_t BgL_datez00_1140;
{ /* ./Ieee/output.scm 362 */
bool_t BgL_test3487z00_1782;
BgL_test3487z00_1782 = 
BGL_DATEP(BgL_objz00_19); 
if(BgL_test3487z00_1782)
{ /* ./Ieee/output.scm 362 */
BgL_datez00_1140 = BgL_objz00_19; }  else 
{ /* ./Ieee/output.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4871z00zz__r4_output_6_10_3z00, BgL_objz00_19, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13723))); 
exit( -1 );} } 
{ /* ./Ieee/output.scm 362 */
long BgL_auxz00_2811;
BgL_auxz00_2811 = 
bgl_date_to_seconds(BgL_datez00_1140); 
BgL_res2551z00_1144 = 
bgl_seconds_to_string(BgL_auxz00_2811); } } 
BgL_arg1217z00_641 = BgL_res2551z00_1144; } 
{ /* ./Ieee/output.scm 362 */
obj_t BgL_auxz00_2814;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 362 */
BgL_auxz00_2814 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 362 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13729))); 
exit( -1 );} 
display_string(BgL_arg1217z00_641, BgL_auxz00_2814); } } 
{ /* ./Ieee/output.scm 363 */
obj_t BgL_auxz00_2821;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 363 */
BgL_auxz00_2821 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 363 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13762))); 
exit( -1 );} 
display_string(BGl_string4863z00zz__r4_output_6_10_3z00, BgL_auxz00_2821); } } }  else 
{ /* ./Ieee/output.scm 357 */
{ /* ./Ieee/output.scm 365 */
obj_t BgL_auxz00_2828;
if(
OUTPUT_PORTP(BgL_portz00_20))
{ /* ./Ieee/output.scm 365 */
BgL_auxz00_2828 = BgL_portz00_20
; }  else 
{ /* ./Ieee/output.scm 365 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4857z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_20, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)13808))); 
exit( -1 );} 
write_object(BgL_objz00_19, BgL_auxz00_2828); } } } } } } } } } } } } } } } } } } } 
BgL_aux2611z00_1530 = BUNSPEC; 
POP_TRACE(); 
return BgL_aux2611z00_1530;} } } } 
}



/* write/display-structure */
obj_t BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00(obj_t BgL_objz00_28, obj_t BgL_portz00_29, bool_t BgL_flagz00_30)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 387 */
{ /* ./Ieee/output.scm 388 */
obj_t BgL_symbol2616z00_1531;
BgL_symbol2616z00_1531 = BGl_symbol4873z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 388 */

PUSH_TRACE(BgL_symbol2616z00_1531); BUNSPEC; 
{ /* ./Ieee/output.scm 388 */
obj_t BgL_aux2615z00_1532;
{ /* ./Ieee/output.scm 388 */
obj_t BgL_auxz00_2837;
if(
OUTPUT_PORTP(BgL_portz00_29))
{ /* ./Ieee/output.scm 388 */
BgL_auxz00_2837 = BgL_portz00_29
; }  else 
{ /* ./Ieee/output.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_29, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)14878))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'#'), BgL_auxz00_2837); } 
{ /* ./Ieee/output.scm 389 */
obj_t BgL_auxz00_2844;
if(
OUTPUT_PORTP(BgL_portz00_29))
{ /* ./Ieee/output.scm 389 */
BgL_auxz00_2844 = BgL_portz00_29
; }  else 
{ /* ./Ieee/output.scm 389 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_29, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)14905))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'{'), BgL_auxz00_2844); } 
{ /* ./Ieee/output.scm 390 */
obj_t BgL_arg1258z00_646;
{ /* ./Ieee/output.scm 390 */
obj_t BgL_res2552z00_1148;
{ /* ./Ieee/output.scm 390 */
obj_t BgL_sz00_1147;
if(
STRUCTP(BgL_objz00_28))
{ /* ./Ieee/output.scm 390 */
BgL_sz00_1147 = BgL_objz00_28; }  else 
{ /* ./Ieee/output.scm 390 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4874z00zz__r4_output_6_10_3z00, BgL_objz00_28, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)14939))); 
exit( -1 );} 
{ /* ./Ieee/output.scm 390 */
obj_t BgL_aux3557z00_1795;
BgL_aux3557z00_1795 = 
STRUCT_KEY(BgL_sz00_1147); 
if(
SYMBOLP(BgL_aux3557z00_1795))
{ /* ./Ieee/output.scm 390 */
BgL_res2552z00_1148 = BgL_aux3557z00_1795; }  else 
{ /* ./Ieee/output.scm 390 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4860z00zz__r4_output_6_10_3z00, BgL_aux3557z00_1795, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)14925))); 
exit( -1 );} } } 
BgL_arg1258z00_646 = BgL_res2552z00_1148; } 
{ /* ./Ieee/output.scm 390 */
obj_t BgL_auxz00_2862;
if(
OUTPUT_PORTP(BgL_portz00_29))
{ /* ./Ieee/output.scm 390 */
BgL_auxz00_2862 = BgL_portz00_29
; }  else 
{ /* ./Ieee/output.scm 390 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_29, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)14945))); 
exit( -1 );} 
write_object(BgL_arg1258z00_646, BgL_auxz00_2862); } } 
{ /* ./Ieee/output.scm 391 */
bool_t BgL_test1261z00_647;
{ /* ./Ieee/output.scm 391 */
int BgL_arg1295z00_661;
{ /* ./Ieee/output.scm 391 */
obj_t BgL_sz00_1149;
if(
STRUCTP(BgL_objz00_28))
{ /* ./Ieee/output.scm 391 */
BgL_sz00_1149 = BgL_objz00_28; }  else 
{ /* ./Ieee/output.scm 391 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4874z00zz__r4_output_6_10_3z00, BgL_objz00_28, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)14979))); 
exit( -1 );} 
BgL_arg1295z00_661 = 
STRUCT_LENGTH(BgL_sz00_1149); } 
{ /* ./Ieee/output.scm 391 */
long BgL_auxz00_2875;
BgL_auxz00_2875 = 
(long)(BgL_arg1295z00_661); 
BgL_test1261z00_647 = 
(((long)0)==BgL_auxz00_2875); } } 
if(BgL_test1261z00_647)
{ /* ./Ieee/output.scm 392 */
obj_t BgL_auxz00_2879;
if(
OUTPUT_PORTP(BgL_portz00_29))
{ /* ./Ieee/output.scm 392 */
BgL_auxz00_2879 = BgL_portz00_29
; }  else 
{ /* ./Ieee/output.scm 392 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_29, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15011))); 
exit( -1 );} 
BgL_aux2615z00_1532 = 
WRITE_CHAR(((unsigned char)'}'), BgL_auxz00_2879); }  else 
{ /* ./Ieee/output.scm 393 */
long BgL_lenz00_648;
{ /* ./Ieee/output.scm 393 */
int BgL_arg1289z00_658;
{ /* ./Ieee/output.scm 393 */
obj_t BgL_sz00_1152;
if(
STRUCTP(BgL_objz00_28))
{ /* ./Ieee/output.scm 393 */
BgL_sz00_1152 = BgL_objz00_28; }  else 
{ /* ./Ieee/output.scm 393 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4874z00zz__r4_output_6_10_3z00, BgL_objz00_28, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15054))); 
exit( -1 );} 
BgL_arg1289z00_658 = 
STRUCT_LENGTH(BgL_sz00_1152); } 
{ /* ./Ieee/output.scm 393 */
long BgL_auxz00_2892;
BgL_auxz00_2892 = 
(long)(BgL_arg1289z00_658); 
BgL_lenz00_648 = 
(BgL_auxz00_2892-((long)1)); } } 
{ /* ./Ieee/output.scm 394 */
obj_t BgL_auxz00_2895;
if(
OUTPUT_PORTP(BgL_portz00_29))
{ /* ./Ieee/output.scm 394 */
BgL_auxz00_2895 = BgL_portz00_29
; }  else 
{ /* ./Ieee/output.scm 394 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_29, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15090))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)' '), BgL_auxz00_2895); } 
{ 
long BgL_iz00_649;
BgL_iz00_649 = ((long)0); 
BgL_loopz00_650:
{ /* ./Ieee/output.scm 397 */
bool_t BgL_test1265z00_651;
if(
INTEGERP(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00))
{ /* ./Ieee/output.scm 398 */
bool_t BgL_test1284z00_657;
{ /* ./Ieee/output.scm 398 */
long BgL_n1z00_1156;
{ /* ./Ieee/output.scm 398 */
obj_t BgL_auxz00_2904;
{ /* ./Ieee/output.scm 398 */
obj_t BgL_aux3619z00_1807;
BgL_aux3619z00_1807 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux3619z00_1807))
{ /* ./Ieee/output.scm 398 */
BgL_auxz00_2904 = BgL_aux3619z00_1807
; }  else 
{ /* ./Ieee/output.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux3619z00_1807, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15193))); 
exit( -1 );} } 
BgL_n1z00_1156 = 
(long)CINT(BgL_auxz00_2904); } 
BgL_test1284z00_657 = 
(BgL_n1z00_1156>((long)0)); } 
if(BgL_test1284z00_657)
{ /* ./Ieee/output.scm 399 */
long BgL_n1z00_1158;long BgL_n2z00_1159;
{ /* ./Ieee/output.scm 399 */
obj_t BgL_auxz00_2913;
{ /* ./Ieee/output.scm 399 */
obj_t BgL_aux3630z00_1809;
BgL_aux3630z00_1809 = BGl_za2displayedza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux3630z00_1809))
{ /* ./Ieee/output.scm 399 */
BgL_auxz00_2913 = BgL_aux3630z00_1809
; }  else 
{ /* ./Ieee/output.scm 399 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux3630z00_1809, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15221))); 
exit( -1 );} } 
BgL_n1z00_1158 = 
(long)CINT(BgL_auxz00_2913); } 
{ /* ./Ieee/output.scm 399 */
obj_t BgL_auxz00_2920;
{ /* ./Ieee/output.scm 399 */
obj_t BgL_aux3641z00_1811;
BgL_aux3641z00_1811 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux3641z00_1811))
{ /* ./Ieee/output.scm 399 */
BgL_auxz00_2920 = BgL_aux3641z00_1811
; }  else 
{ /* ./Ieee/output.scm 399 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux3641z00_1811, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15240))); 
exit( -1 );} } 
BgL_n2z00_1159 = 
(long)CINT(BgL_auxz00_2920); } 
BgL_test1265z00_651 = 
(BgL_n1z00_1158>BgL_n2z00_1159); }  else 
{ /* ./Ieee/output.scm 398 */
BgL_test1265z00_651 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 397 */
BgL_test1265z00_651 = ((bool_t)0); } 
if(BgL_test1265z00_651)
{ /* ./Ieee/output.scm 397 */
{ /* ./Ieee/output.scm 400 */
obj_t BgL_auxz00_2929;
if(
OUTPUT_PORTP(BgL_portz00_29))
{ /* ./Ieee/output.scm 400 */
BgL_auxz00_2929 = BgL_portz00_29
; }  else 
{ /* ./Ieee/output.scm 400 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_29, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15272))); 
exit( -1 );} 
BgL_aux2615z00_1532 = 
write_object(BGl_string4875z00zz__r4_output_6_10_3z00, BgL_auxz00_2929); } }  else 
{ /* ./Ieee/output.scm 397 */
if(
(BgL_iz00_649==BgL_lenz00_648))
{ /* ./Ieee/output.scm 401 */
{ /* ./Ieee/output.scm 402 */
obj_t BgL_arg1269z00_653;
{ /* ./Ieee/output.scm 402 */
obj_t BgL_sz00_1162;int BgL_kz00_1163;
if(
STRUCTP(BgL_objz00_28))
{ /* ./Ieee/output.scm 402 */
BgL_sz00_1162 = BgL_objz00_28; }  else 
{ /* ./Ieee/output.scm 402 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4874z00zz__r4_output_6_10_3z00, BgL_objz00_28, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15323))); 
exit( -1 );} 
BgL_kz00_1163 = 
(int)(BgL_iz00_649); 
BgL_arg1269z00_653 = 
STRUCT_REF(BgL_sz00_1162, BgL_kz00_1163); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1269z00_653, BgL_portz00_29, BgL_flagz00_30); } 
{ /* ./Ieee/output.scm 403 */
obj_t BgL_auxz00_2946;
if(
OUTPUT_PORTP(BgL_portz00_29))
{ /* ./Ieee/output.scm 403 */
BgL_auxz00_2946 = BgL_portz00_29
; }  else 
{ /* ./Ieee/output.scm 403 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_29, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15363))); 
exit( -1 );} 
BgL_aux2615z00_1532 = 
WRITE_CHAR(((unsigned char)'}'), BgL_auxz00_2946); } }  else 
{ /* ./Ieee/output.scm 401 */
{ /* ./Ieee/output.scm 405 */
obj_t BgL_arg1274z00_654;
{ /* ./Ieee/output.scm 405 */
obj_t BgL_sz00_1164;int BgL_kz00_1165;
if(
STRUCTP(BgL_objz00_28))
{ /* ./Ieee/output.scm 405 */
BgL_sz00_1164 = BgL_objz00_28; }  else 
{ /* ./Ieee/output.scm 405 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4874z00zz__r4_output_6_10_3z00, BgL_objz00_28, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15407))); 
exit( -1 );} 
BgL_kz00_1165 = 
(int)(BgL_iz00_649); 
BgL_arg1274z00_654 = 
STRUCT_REF(BgL_sz00_1164, BgL_kz00_1165); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1274z00_654, BgL_portz00_29, BgL_flagz00_30); } 
{ /* ./Ieee/output.scm 406 */
obj_t BgL_auxz00_2961;
if(
OUTPUT_PORTP(BgL_portz00_29))
{ /* ./Ieee/output.scm 406 */
BgL_auxz00_2961 = BgL_portz00_29
; }  else 
{ /* ./Ieee/output.scm 406 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4873z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_29, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15451))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)' '), BgL_auxz00_2961); } 
{ 
long BgL_iz00_2968;
BgL_iz00_2968 = 
(((long)1)+BgL_iz00_649); 
BgL_iz00_649 = BgL_iz00_2968; 
goto BgL_loopz00_650;} } } } } } } 
POP_TRACE(); 
return BgL_aux2615z00_1532;} } } } 
}



/* write/display-vector */
obj_t BGl_writezf2displayzd2vectorz20zz__r4_output_6_10_3z00(obj_t BgL_objz00_31, obj_t BgL_portz00_32, bool_t BgL_flagz00_33)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 412 */
{ /* ./Ieee/output.scm 413 */
obj_t BgL_symbol2620z00_1533;
BgL_symbol2620z00_1533 = BGl_symbol4876z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 413 */

PUSH_TRACE(BgL_symbol2620z00_1533); BUNSPEC; 
{ /* ./Ieee/output.scm 413 */
obj_t BgL_aux2619z00_1534;
{ /* ./Ieee/output.scm 413 */
obj_t BgL_auxz00_2972;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 413 */
BgL_auxz00_2972 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 413 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15772))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'#'), BgL_auxz00_2972); } 
{ /* ./Ieee/output.scm 414 */
int BgL_tagz00_662;
{ /* ./Ieee/output.scm 414 */
obj_t BgL_vectorz00_1168;
if(
VECTORP(BgL_objz00_31))
{ /* ./Ieee/output.scm 414 */
BgL_vectorz00_1168 = BgL_objz00_31; }  else 
{ /* ./Ieee/output.scm 414 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4877z00zz__r4_output_6_10_3z00, BgL_objz00_31, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15803))); 
exit( -1 );} 
BgL_tagz00_662 = 
VECTOR_TAG(BgL_vectorz00_1168); } 
{ /* ./Ieee/output.scm 415 */
bool_t BgL_testz00_2985;
{ /* ./Ieee/output.scm 415 */
long BgL_auxz00_2986;
BgL_auxz00_2986 = 
(long)(BgL_tagz00_662); 
BgL_testz00_2985 = 
(BgL_auxz00_2986>((long)0)); } 
if(BgL_testz00_2985)
{ /* ./Ieee/output.scm 415 */
{ /* ./Ieee/output.scm 417 */
bool_t BgL_testz00_2989;
{ /* ./Ieee/output.scm 417 */
long BgL_auxz00_2990;
BgL_auxz00_2990 = 
(long)(BgL_tagz00_662); 
BgL_testz00_2989 = 
(BgL_auxz00_2990>=((long)100)); } 
if(BgL_testz00_2989)
{ /* ./Ieee/output.scm 418 */
obj_t BgL_auxz00_2995;obj_t BgL_auxz00_2993;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 418 */
BgL_auxz00_2995 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 418 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15889))); 
exit( -1 );} 
BgL_auxz00_2993 = 
BINT(BgL_tagz00_662); 
write_object(BgL_auxz00_2993, BgL_auxz00_2995); }  else 
{ /* ./Ieee/output.scm 417 */
{ /* ./Ieee/output.scm 420 */
obj_t BgL_auxz00_3002;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 420 */
BgL_auxz00_3002 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 420 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15929))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'0'), BgL_auxz00_3002); } 
{ /* ./Ieee/output.scm 421 */
bool_t BgL_testz00_3009;
{ /* ./Ieee/output.scm 421 */
long BgL_auxz00_3010;
BgL_auxz00_3010 = 
(long)(BgL_tagz00_662); 
BgL_testz00_3009 = 
(BgL_auxz00_3010>=((long)10)); } 
if(BgL_testz00_3009)
{ /* ./Ieee/output.scm 422 */
obj_t BgL_auxz00_3015;obj_t BgL_auxz00_3013;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 422 */
BgL_auxz00_3015 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 422 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)15980))); 
exit( -1 );} 
BgL_auxz00_3013 = 
BINT(BgL_tagz00_662); 
write_object(BgL_auxz00_3013, BgL_auxz00_3015); }  else 
{ /* ./Ieee/output.scm 421 */
{ /* ./Ieee/output.scm 424 */
obj_t BgL_auxz00_3022;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 424 */
BgL_auxz00_3022 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 424 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16020))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'0'), BgL_auxz00_3022); } 
{ /* ./Ieee/output.scm 425 */
obj_t BgL_auxz00_3031;obj_t BgL_auxz00_3029;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 425 */
BgL_auxz00_3031 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 425 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16050))); 
exit( -1 );} 
BgL_auxz00_3029 = 
BINT(BgL_tagz00_662); 
write_object(BgL_auxz00_3029, BgL_auxz00_3031); } } } } } }  else 
{ /* ./Ieee/output.scm 415 */BFALSE; } } } 
{ /* ./Ieee/output.scm 426 */
obj_t BgL_auxz00_3038;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 426 */
BgL_auxz00_3038 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 426 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16084))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'('), BgL_auxz00_3038); } 
{ /* ./Ieee/output.scm 427 */
bool_t BgL_test1312z00_666;
{ /* ./Ieee/output.scm 427 */
int BgL_arg1346z00_680;
{ /* ./Ieee/output.scm 427 */
obj_t BgL_vectorz00_1175;
if(
VECTORP(BgL_objz00_31))
{ /* ./Ieee/output.scm 427 */
BgL_vectorz00_1175 = BgL_objz00_31; }  else 
{ /* ./Ieee/output.scm 427 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4877z00zz__r4_output_6_10_3z00, BgL_objz00_31, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16118))); 
exit( -1 );} 
BgL_arg1346z00_680 = 
VECTOR_LENGTH(BgL_vectorz00_1175); } 
{ /* ./Ieee/output.scm 427 */
long BgL_auxz00_3051;
BgL_auxz00_3051 = 
(long)(BgL_arg1346z00_680); 
BgL_test1312z00_666 = 
(((long)0)==BgL_auxz00_3051); } } 
if(BgL_test1312z00_666)
{ /* ./Ieee/output.scm 428 */
obj_t BgL_auxz00_3055;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 428 */
BgL_auxz00_3055 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 428 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16150))); 
exit( -1 );} 
BgL_aux2619z00_1534 = 
WRITE_CHAR(((unsigned char)')'), BgL_auxz00_3055); }  else 
{ /* ./Ieee/output.scm 429 */
long BgL_lenz00_667;
{ /* ./Ieee/output.scm 429 */
int BgL_arg1340z00_677;
{ /* ./Ieee/output.scm 429 */
obj_t BgL_vectorz00_1178;
if(
VECTORP(BgL_objz00_31))
{ /* ./Ieee/output.scm 429 */
BgL_vectorz00_1178 = BgL_objz00_31; }  else 
{ /* ./Ieee/output.scm 429 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4877z00zz__r4_output_6_10_3z00, BgL_objz00_31, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16193))); 
exit( -1 );} 
BgL_arg1340z00_677 = 
VECTOR_LENGTH(BgL_vectorz00_1178); } 
{ /* ./Ieee/output.scm 429 */
long BgL_auxz00_3068;
BgL_auxz00_3068 = 
(long)(BgL_arg1340z00_677); 
BgL_lenz00_667 = 
(BgL_auxz00_3068-((long)1)); } } 
{ 
long BgL_iz00_668;
BgL_iz00_668 = ((long)0); 
BgL_loopz00_669:
{ /* ./Ieee/output.scm 432 */
bool_t BgL_test1315z00_670;
if(
INTEGERP(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00))
{ /* ./Ieee/output.scm 433 */
bool_t BgL_test1334z00_676;
{ /* ./Ieee/output.scm 433 */
long BgL_n1z00_1182;
{ /* ./Ieee/output.scm 433 */
obj_t BgL_auxz00_3073;
{ /* ./Ieee/output.scm 433 */
obj_t BgL_aux3824z00_1845;
BgL_aux3824z00_1845 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux3824z00_1845))
{ /* ./Ieee/output.scm 433 */
BgL_auxz00_3073 = BgL_aux3824z00_1845
; }  else 
{ /* ./Ieee/output.scm 433 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux3824z00_1845, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16301))); 
exit( -1 );} } 
BgL_n1z00_1182 = 
(long)CINT(BgL_auxz00_3073); } 
BgL_test1334z00_676 = 
(BgL_n1z00_1182>((long)0)); } 
if(BgL_test1334z00_676)
{ /* ./Ieee/output.scm 434 */
long BgL_n1z00_1184;long BgL_n2z00_1185;
{ /* ./Ieee/output.scm 434 */
obj_t BgL_auxz00_3082;
{ /* ./Ieee/output.scm 434 */
obj_t BgL_aux3835z00_1847;
BgL_aux3835z00_1847 = BGl_za2displayedza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux3835z00_1847))
{ /* ./Ieee/output.scm 434 */
BgL_auxz00_3082 = BgL_aux3835z00_1847
; }  else 
{ /* ./Ieee/output.scm 434 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux3835z00_1847, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16330))); 
exit( -1 );} } 
BgL_n1z00_1184 = 
(long)CINT(BgL_auxz00_3082); } 
{ /* ./Ieee/output.scm 434 */
obj_t BgL_auxz00_3089;
{ /* ./Ieee/output.scm 434 */
obj_t BgL_aux3846z00_1849;
BgL_aux3846z00_1849 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux3846z00_1849))
{ /* ./Ieee/output.scm 434 */
BgL_auxz00_3089 = BgL_aux3846z00_1849
; }  else 
{ /* ./Ieee/output.scm 434 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux3846z00_1849, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16349))); 
exit( -1 );} } 
BgL_n2z00_1185 = 
(long)CINT(BgL_auxz00_3089); } 
BgL_test1315z00_670 = 
(BgL_n1z00_1184>=BgL_n2z00_1185); }  else 
{ /* ./Ieee/output.scm 433 */
BgL_test1315z00_670 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 432 */
BgL_test1315z00_670 = ((bool_t)0); } 
if(BgL_test1315z00_670)
{ /* ./Ieee/output.scm 432 */
{ /* ./Ieee/output.scm 435 */
obj_t BgL_auxz00_3098;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 435 */
BgL_auxz00_3098 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 435 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16381))); 
exit( -1 );} 
BgL_aux2619z00_1534 = 
write_object(BGl_string4878z00zz__r4_output_6_10_3z00, BgL_auxz00_3098); } }  else 
{ /* ./Ieee/output.scm 432 */
if(
(BgL_iz00_668==BgL_lenz00_667))
{ /* ./Ieee/output.scm 436 */
{ /* ./Ieee/output.scm 437 */
obj_t BgL_arg1319z00_672;
{ /* ./Ieee/output.scm 437 */
obj_t BgL_vectorz00_1188;int BgL_kz00_1189;
if(
VECTORP(BgL_objz00_31))
{ /* ./Ieee/output.scm 437 */
BgL_vectorz00_1188 = BgL_objz00_31; }  else 
{ /* ./Ieee/output.scm 437 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4877z00zz__r4_output_6_10_3z00, BgL_objz00_31, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16418))); 
exit( -1 );} 
BgL_kz00_1189 = 
(int)(BgL_iz00_668); 
{ /* ./Ieee/output.scm 437 */
bool_t BgL_test1960z00_1190;
{ /* ./Ieee/output.scm 437 */
int BgL_arg1965z00_1191;
BgL_arg1965z00_1191 = 
VECTOR_LENGTH(BgL_vectorz00_1188); 
BgL_test1960z00_1190 = 
BOUND_CHECK(BgL_kz00_1189, BgL_arg1965z00_1191); } 
if(BgL_test1960z00_1190)
{ /* ./Ieee/output.scm 437 */
BgL_arg1319z00_672 = 
VECTOR_REF(BgL_vectorz00_1188,BgL_kz00_1189); }  else 
{ /* ./Ieee/output.scm 437 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4879z00zz__r4_output_6_10_3z00, BGl_string4880z00zz__r4_output_6_10_3z00, 
BINT(BgL_kz00_1189), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1319z00_672 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16418))); } } } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1319z00_672, BgL_portz00_32, BgL_flagz00_33); } 
{ /* ./Ieee/output.scm 438 */
obj_t BgL_auxz00_3122;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 438 */
BgL_auxz00_3122 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 438 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16472))); 
exit( -1 );} 
BgL_aux2619z00_1534 = 
WRITE_CHAR(((unsigned char)')'), BgL_auxz00_3122); } }  else 
{ /* ./Ieee/output.scm 436 */
{ /* ./Ieee/output.scm 440 */
obj_t BgL_arg1324z00_673;
{ /* ./Ieee/output.scm 440 */
obj_t BgL_vectorz00_1196;int BgL_kz00_1197;
if(
VECTORP(BgL_objz00_31))
{ /* ./Ieee/output.scm 440 */
BgL_vectorz00_1196 = BgL_objz00_31; }  else 
{ /* ./Ieee/output.scm 440 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4877z00zz__r4_output_6_10_3z00, BgL_objz00_31, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16502))); 
exit( -1 );} 
BgL_kz00_1197 = 
(int)(BgL_iz00_668); 
{ /* ./Ieee/output.scm 440 */
bool_t BgL_test1960z00_1198;
{ /* ./Ieee/output.scm 440 */
int BgL_arg1965z00_1199;
BgL_arg1965z00_1199 = 
VECTOR_LENGTH(BgL_vectorz00_1196); 
BgL_test1960z00_1198 = 
BOUND_CHECK(BgL_kz00_1197, BgL_arg1965z00_1199); } 
if(BgL_test1960z00_1198)
{ /* ./Ieee/output.scm 440 */
BgL_arg1324z00_673 = 
VECTOR_REF(BgL_vectorz00_1196,BgL_kz00_1197); }  else 
{ /* ./Ieee/output.scm 440 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4879z00zz__r4_output_6_10_3z00, BGl_string4880z00zz__r4_output_6_10_3z00, 
BINT(BgL_kz00_1197), "./Ieee/vector.scm", ((long)5865)); 
BgL_arg1324z00_673 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16502))); } } } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1324z00_673, BgL_portz00_32, BgL_flagz00_33); } 
{ /* ./Ieee/output.scm 441 */
obj_t BgL_auxz00_3144;
if(
OUTPUT_PORTP(BgL_portz00_32))
{ /* ./Ieee/output.scm 441 */
BgL_auxz00_3144 = BgL_portz00_32
; }  else 
{ /* ./Ieee/output.scm 441 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4876z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_32, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16560))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)' '), BgL_auxz00_3144); } 
{ 
long BgL_iz00_3151;
BgL_iz00_3151 = 
(((long)1)+BgL_iz00_668); 
BgL_iz00_668 = BgL_iz00_3151; 
goto BgL_loopz00_669;} } } } } } } 
POP_TRACE(); 
return BgL_aux2619z00_1534;} } } } 
}



/* write/display-tvector */
obj_t BGl_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(obj_t BgL_tvecz00_34, obj_t BgL_portz00_35, bool_t BgL_flagz00_36)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 447 */
{ /* ./Ieee/output.scm 448 */
obj_t BgL_symbol2624z00_1535;
BgL_symbol2624z00_1535 = BGl_symbol4881z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 448 */

PUSH_TRACE(BgL_symbol2624z00_1535); BUNSPEC; 
{ /* ./Ieee/output.scm 448 */
obj_t BgL_aux2623z00_1536;
{ /* ./Ieee/output.scm 448 */
obj_t BgL_tvectorzd2refzd2_681;obj_t BgL_idz00_682;
{ /* ./Ieee/output.scm 448 */
obj_t BgL_auxz00_3155;
if(
TVECTORP(BgL_tvecz00_34))
{ /* ./Ieee/output.scm 448 */
BgL_auxz00_3155 = BgL_tvecz00_34
; }  else 
{ /* ./Ieee/output.scm 448 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4882z00zz__r4_output_6_10_3z00, BgL_tvecz00_34, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16898))); 
exit( -1 );} 
BgL_tvectorzd2refzd2_681 = 
BGl_tvectorzd2refzd2zz__tvectorz00(BgL_auxz00_3155); } 
{ /* ./Ieee/output.scm 449 */
obj_t BgL_auxz00_3162;
if(
TVECTORP(BgL_tvecz00_34))
{ /* ./Ieee/output.scm 449 */
BgL_auxz00_3162 = BgL_tvecz00_34
; }  else 
{ /* ./Ieee/output.scm 449 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4882z00zz__r4_output_6_10_3z00, BgL_tvecz00_34, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16932))); 
exit( -1 );} 
BgL_idz00_682 = 
BGl_tvectorzd2idzd2zz__tvectorz00(BgL_auxz00_3162); } 
{ /* ./Ieee/output.scm 450 */
obj_t BgL_auxz00_3169;
if(
OUTPUT_PORTP(BgL_portz00_35))
{ /* ./Ieee/output.scm 450 */
BgL_auxz00_3169 = BgL_portz00_35
; }  else 
{ /* ./Ieee/output.scm 450 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_35, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16964))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'#'), BgL_auxz00_3169); } 
{ /* ./Ieee/output.scm 451 */
obj_t BgL_auxz00_3176;
if(
OUTPUT_PORTP(BgL_portz00_35))
{ /* ./Ieee/output.scm 451 */
BgL_auxz00_3176 = BgL_portz00_35
; }  else 
{ /* ./Ieee/output.scm 451 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_35, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)16993))); 
exit( -1 );} 
write_object(BgL_idz00_682, BgL_auxz00_3176); } 
{ /* ./Ieee/output.scm 452 */
obj_t BgL_auxz00_3183;
if(
OUTPUT_PORTP(BgL_portz00_35))
{ /* ./Ieee/output.scm 452 */
BgL_auxz00_3183 = BgL_portz00_35
; }  else 
{ /* ./Ieee/output.scm 452 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_35, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17023))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'('), BgL_auxz00_3183); } 
if(
CBOOL(BgL_tvectorzd2refzd2_681))
{ /* ./Ieee/output.scm 453 */
{ /* ./Ieee/output.scm 458 */
bool_t BgL_test1352z00_683;
{ /* ./Ieee/output.scm 458 */
int BgL_arg1386z00_697;
{ /* ./Ieee/output.scm 458 */
obj_t BgL_objz00_1206;
if(
TVECTORP(BgL_tvecz00_34))
{ /* ./Ieee/output.scm 458 */
BgL_objz00_1206 = BgL_tvecz00_34; }  else 
{ /* ./Ieee/output.scm 458 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4882z00zz__r4_output_6_10_3z00, BgL_tvecz00_34, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17155))); 
exit( -1 );} 
BgL_arg1386z00_697 = 
TVECTOR_LENGTH(BgL_objz00_1206); } 
{ /* ./Ieee/output.scm 458 */
long BgL_auxz00_3198;
BgL_auxz00_3198 = 
(long)(BgL_arg1386z00_697); 
BgL_test1352z00_683 = 
(((long)0)==BgL_auxz00_3198); } } 
if(BgL_test1352z00_683)
{ /* ./Ieee/output.scm 459 */
obj_t BgL_auxz00_3202;
if(
OUTPUT_PORTP(BgL_portz00_35))
{ /* ./Ieee/output.scm 459 */
BgL_auxz00_3202 = BgL_portz00_35
; }  else 
{ /* ./Ieee/output.scm 459 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_35, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17183))); 
exit( -1 );} 
BgL_aux2623z00_1536 = 
WRITE_CHAR(((unsigned char)')'), BgL_auxz00_3202); }  else 
{ /* ./Ieee/output.scm 460 */
long BgL_lenz00_684;
{ /* ./Ieee/output.scm 460 */
int BgL_arg1380z00_694;
{ /* ./Ieee/output.scm 460 */
obj_t BgL_objz00_1209;
if(
TVECTORP(BgL_tvecz00_34))
{ /* ./Ieee/output.scm 460 */
BgL_objz00_1209 = BgL_tvecz00_34; }  else 
{ /* ./Ieee/output.scm 460 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4882z00zz__r4_output_6_10_3z00, BgL_tvecz00_34, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17224))); 
exit( -1 );} 
BgL_arg1380z00_694 = 
TVECTOR_LENGTH(BgL_objz00_1209); } 
{ /* ./Ieee/output.scm 460 */
long BgL_auxz00_3215;
BgL_auxz00_3215 = 
(long)(BgL_arg1380z00_694); 
BgL_lenz00_684 = 
(BgL_auxz00_3215-((long)1)); } } 
{ 
long BgL_iz00_685;
BgL_iz00_685 = ((long)0); 
BgL_loopz00_686:
{ /* ./Ieee/output.scm 463 */
bool_t BgL_test1355z00_687;
if(
INTEGERP(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00))
{ /* ./Ieee/output.scm 464 */
bool_t BgL_test1375z00_693;
{ /* ./Ieee/output.scm 464 */
long BgL_n1z00_1213;
{ /* ./Ieee/output.scm 464 */
obj_t BgL_auxz00_3220;
{ /* ./Ieee/output.scm 464 */
obj_t BgL_aux4009z00_1877;
BgL_aux4009z00_1877 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux4009z00_1877))
{ /* ./Ieee/output.scm 464 */
BgL_auxz00_3220 = BgL_aux4009z00_1877
; }  else 
{ /* ./Ieee/output.scm 464 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux4009z00_1877, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17337))); 
exit( -1 );} } 
BgL_n1z00_1213 = 
(long)CINT(BgL_auxz00_3220); } 
BgL_test1375z00_693 = 
(BgL_n1z00_1213>((long)0)); } 
if(BgL_test1375z00_693)
{ /* ./Ieee/output.scm 465 */
long BgL_n1z00_1215;long BgL_n2z00_1216;
{ /* ./Ieee/output.scm 465 */
obj_t BgL_auxz00_3229;
{ /* ./Ieee/output.scm 465 */
obj_t BgL_aux4020z00_1879;
BgL_aux4020z00_1879 = BGl_za2displayedza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux4020z00_1879))
{ /* ./Ieee/output.scm 465 */
BgL_auxz00_3229 = BgL_aux4020z00_1879
; }  else 
{ /* ./Ieee/output.scm 465 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux4020z00_1879, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17362))); 
exit( -1 );} } 
BgL_n1z00_1215 = 
(long)CINT(BgL_auxz00_3229); } 
{ /* ./Ieee/output.scm 465 */
obj_t BgL_auxz00_3236;
{ /* ./Ieee/output.scm 465 */
obj_t BgL_aux4031z00_1881;
BgL_aux4031z00_1881 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux4031z00_1881))
{ /* ./Ieee/output.scm 465 */
BgL_auxz00_3236 = BgL_aux4031z00_1881
; }  else 
{ /* ./Ieee/output.scm 465 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux4031z00_1881, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17381))); 
exit( -1 );} } 
BgL_n2z00_1216 = 
(long)CINT(BgL_auxz00_3236); } 
BgL_test1355z00_687 = 
(BgL_n1z00_1215>=BgL_n2z00_1216); }  else 
{ /* ./Ieee/output.scm 464 */
BgL_test1355z00_687 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 463 */
BgL_test1355z00_687 = ((bool_t)0); } 
if(BgL_test1355z00_687)
{ /* ./Ieee/output.scm 463 */
{ /* ./Ieee/output.scm 466 */
obj_t BgL_auxz00_3245;
if(
OUTPUT_PORTP(BgL_portz00_35))
{ /* ./Ieee/output.scm 466 */
BgL_auxz00_3245 = BgL_portz00_35
; }  else 
{ /* ./Ieee/output.scm 466 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_35, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17416))); 
exit( -1 );} 
BgL_aux2623z00_1536 = 
write_object(BGl_string4878z00zz__r4_output_6_10_3z00, BgL_auxz00_3245); } }  else 
{ /* ./Ieee/output.scm 463 */
if(
(BgL_iz00_685==BgL_lenz00_684))
{ /* ./Ieee/output.scm 467 */
{ /* ./Ieee/output.scm 468 */
obj_t BgL_arg1359z00_689;
{ /* ./Ieee/output.scm 468 */
obj_t BgL_funz00_1887;
if(
PROCEDUREP(BgL_tvectorzd2refzd2_681))
{ /* ./Ieee/output.scm 468 */
BgL_funz00_1887 = BgL_tvectorzd2refzd2_681; }  else 
{ /* ./Ieee/output.scm 468 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4833z00zz__r4_output_6_10_3z00, BgL_tvectorzd2refzd2_681, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17459))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1887, ((long)2)))
{ /* ./Ieee/output.scm 468 */
BgL_arg1359z00_689 = 
PROCEDURE_ENTRY(BgL_funz00_1887)(BgL_tvectorzd2refzd2_681, BgL_tvecz00_34, 
BINT(BgL_iz00_685), BEOA); }  else 
{ /* ./Ieee/output.scm 468 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4883z00zz__r4_output_6_10_3z00, BGl_list4884z00zz__r4_output_6_10_3z00, BgL_funz00_1887, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17459))); 
FAILURE(BGl_symbol4840z00zz__r4_output_6_10_3z00,BGl_symbol4840z00zz__r4_output_6_10_3z00,BGl_symbol4840z00zz__r4_output_6_10_3z00);} } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1359z00_689, BgL_portz00_35, BgL_flagz00_36); } 
{ /* ./Ieee/output.scm 471 */
obj_t BgL_auxz00_3268;
if(
OUTPUT_PORTP(BgL_portz00_35))
{ /* ./Ieee/output.scm 471 */
BgL_auxz00_3268 = BgL_portz00_35
; }  else 
{ /* ./Ieee/output.scm 471 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_35, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17532))); 
exit( -1 );} 
BgL_aux2623z00_1536 = 
WRITE_CHAR(((unsigned char)')'), BgL_auxz00_3268); } }  else 
{ /* ./Ieee/output.scm 467 */
{ /* ./Ieee/output.scm 473 */
obj_t BgL_arg1364z00_690;
{ /* ./Ieee/output.scm 473 */
obj_t BgL_funz00_1894;
if(
PROCEDUREP(BgL_tvectorzd2refzd2_681))
{ /* ./Ieee/output.scm 473 */
BgL_funz00_1894 = BgL_tvectorzd2refzd2_681; }  else 
{ /* ./Ieee/output.scm 473 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4833z00zz__r4_output_6_10_3z00, BgL_tvectorzd2refzd2_681, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17568))); 
exit( -1 );} 
if(
PROCEDURE_CORRECT_ARITYP(BgL_funz00_1894, ((long)2)))
{ /* ./Ieee/output.scm 473 */
BgL_arg1364z00_690 = 
PROCEDURE_ENTRY(BgL_funz00_1894)(BgL_tvectorzd2refzd2_681, BgL_tvecz00_34, 
BINT(BgL_iz00_685), BEOA); }  else 
{ /* ./Ieee/output.scm 473 */
BGl_errorzf2locationzf2zz__errorz00(BGl_string4883z00zz__r4_output_6_10_3z00, BGl_list4884z00zz__r4_output_6_10_3z00, BgL_funz00_1894, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17568))); 
FAILURE(BGl_symbol4840z00zz__r4_output_6_10_3z00,BGl_symbol4840z00zz__r4_output_6_10_3z00,BGl_symbol4840z00zz__r4_output_6_10_3z00);} } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1364z00_690, BgL_portz00_35, BgL_flagz00_36); } 
{ /* ./Ieee/output.scm 476 */
obj_t BgL_auxz00_3289;
if(
OUTPUT_PORTP(BgL_portz00_35))
{ /* ./Ieee/output.scm 476 */
BgL_auxz00_3289 = BgL_portz00_35
; }  else 
{ /* ./Ieee/output.scm 476 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_35, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17645))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)' '), BgL_auxz00_3289); } 
{ 
long BgL_iz00_3296;
BgL_iz00_3296 = 
(((long)1)+BgL_iz00_685); 
BgL_iz00_685 = BgL_iz00_3296; 
goto BgL_loopz00_686;} } } } } } } }  else 
{ /* ./Ieee/output.scm 453 */
{ /* ./Ieee/output.scm 455 */
obj_t BgL_auxz00_3298;
if(
OUTPUT_PORTP(BgL_portz00_35))
{ /* ./Ieee/output.scm 455 */
BgL_auxz00_3298 = BgL_portz00_35
; }  else 
{ /* ./Ieee/output.scm 455 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4881z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_35, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)17094))); 
exit( -1 );} 
write_object(BGl_string4888z00zz__r4_output_6_10_3z00, BgL_auxz00_3298); } 
BgL_aux2623z00_1536 = BgL_tvecz00_34; } } 
POP_TRACE(); 
return BgL_aux2623z00_1536;} } } } 
}



/* write/display-pair */
obj_t BGl_writezf2displayzd2pairz20zz__r4_output_6_10_3z00(obj_t BgL_objz00_40, obj_t BgL_portz00_41, bool_t BgL_flagz00_42)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 490 */
{ /* ./Ieee/output.scm 491 */
obj_t BgL_symbol2628z00_1537;
BgL_symbol2628z00_1537 = BGl_symbol4889z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 491 */

PUSH_TRACE(BgL_symbol2628z00_1537); BUNSPEC; 
{ /* ./Ieee/output.scm 491 */
obj_t BgL_aux2627z00_1538;
{ /* ./Ieee/output.scm 491 */
obj_t BgL_auxz00_3307;
if(
OUTPUT_PORTP(BgL_portz00_41))
{ /* ./Ieee/output.scm 491 */
BgL_auxz00_3307 = BgL_portz00_41
; }  else 
{ /* ./Ieee/output.scm 491 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_41, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18316))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'('), BgL_auxz00_3307); } 
{ 
obj_t BgL_lz00_700;
BgL_lz00_700 = BgL_objz00_40; 
BgL_loopz00_701:
{ /* ./Ieee/output.scm 494 */
bool_t BgL_test1400z00_702;
{ /* ./Ieee/output.scm 494 */
obj_t BgL_arg1440z00_713;
{ /* ./Ieee/output.scm 494 */
obj_t BgL_pairz00_1223;
if(
PAIRP(BgL_lz00_700))
{ /* ./Ieee/output.scm 494 */
BgL_pairz00_1223 = BgL_lz00_700; }  else 
{ /* ./Ieee/output.scm 494 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_700, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18369))); 
exit( -1 );} 
BgL_arg1440z00_713 = 
CDR(BgL_pairz00_1223); } 
BgL_test1400z00_702 = 
NULLP(BgL_arg1440z00_713); } 
if(BgL_test1400z00_702)
{ /* ./Ieee/output.scm 494 */
{ /* ./Ieee/output.scm 495 */
obj_t BgL_arg1402z00_703;
{ /* ./Ieee/output.scm 495 */
obj_t BgL_pairz00_1225;
if(
PAIRP(BgL_lz00_700))
{ /* ./Ieee/output.scm 495 */
BgL_pairz00_1225 = BgL_lz00_700; }  else 
{ /* ./Ieee/output.scm 495 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_700, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18396))); 
exit( -1 );} 
BgL_arg1402z00_703 = 
CAR(BgL_pairz00_1225); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1402z00_703, BgL_portz00_41, BgL_flagz00_42); } 
{ /* ./Ieee/output.scm 496 */
obj_t BgL_auxz00_3329;
if(
OUTPUT_PORTP(BgL_portz00_41))
{ /* ./Ieee/output.scm 496 */
BgL_auxz00_3329 = BgL_portz00_41
; }  else 
{ /* ./Ieee/output.scm 496 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_41, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18434))); 
exit( -1 );} 
BgL_aux2627z00_1538 = 
WRITE_CHAR(((unsigned char)')'), BgL_auxz00_3329); } }  else 
{ /* ./Ieee/output.scm 497 */
bool_t BgL_test1406z00_704;
if(
INTEGERP(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00))
{ /* ./Ieee/output.scm 498 */
bool_t BgL_test1435z00_712;
{ /* ./Ieee/output.scm 498 */
long BgL_n1z00_1227;
{ /* ./Ieee/output.scm 498 */
obj_t BgL_auxz00_3338;
{ /* ./Ieee/output.scm 498 */
obj_t BgL_aux4160z00_1909;
BgL_aux4160z00_1909 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux4160z00_1909))
{ /* ./Ieee/output.scm 498 */
BgL_auxz00_3338 = BgL_aux4160z00_1909
; }  else 
{ /* ./Ieee/output.scm 498 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux4160z00_1909, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18505))); 
exit( -1 );} } 
BgL_n1z00_1227 = 
(long)CINT(BgL_auxz00_3338); } 
BgL_test1435z00_712 = 
(BgL_n1z00_1227>((long)0)); } 
if(BgL_test1435z00_712)
{ /* ./Ieee/output.scm 499 */
long BgL_n1z00_1229;long BgL_n2z00_1230;
{ /* ./Ieee/output.scm 499 */
obj_t BgL_auxz00_3347;
{ /* ./Ieee/output.scm 499 */
obj_t BgL_aux4171z00_1911;
BgL_aux4171z00_1911 = BGl_za2displayedza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux4171z00_1911))
{ /* ./Ieee/output.scm 499 */
BgL_auxz00_3347 = BgL_aux4171z00_1911
; }  else 
{ /* ./Ieee/output.scm 499 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux4171z00_1911, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18534))); 
exit( -1 );} } 
BgL_n1z00_1229 = 
(long)CINT(BgL_auxz00_3347); } 
{ /* ./Ieee/output.scm 499 */
obj_t BgL_auxz00_3354;
{ /* ./Ieee/output.scm 499 */
obj_t BgL_aux4182z00_1913;
BgL_aux4182z00_1913 = BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00; 
if(
INTEGERP(BgL_aux4182z00_1913))
{ /* ./Ieee/output.scm 499 */
BgL_auxz00_3354 = BgL_aux4182z00_1913
; }  else 
{ /* ./Ieee/output.scm 499 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4818z00zz__r4_output_6_10_3z00, BgL_aux4182z00_1913, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18553))); 
exit( -1 );} } 
BgL_n2z00_1230 = 
(long)CINT(BgL_auxz00_3354); } 
BgL_test1406z00_704 = 
(BgL_n1z00_1229>=BgL_n2z00_1230); }  else 
{ /* ./Ieee/output.scm 498 */
BgL_test1406z00_704 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 497 */
BgL_test1406z00_704 = ((bool_t)0); } 
if(BgL_test1406z00_704)
{ /* ./Ieee/output.scm 497 */
{ /* ./Ieee/output.scm 500 */
obj_t BgL_auxz00_3363;
if(
OUTPUT_PORTP(BgL_portz00_41))
{ /* ./Ieee/output.scm 500 */
BgL_auxz00_3363 = BgL_portz00_41
; }  else 
{ /* ./Ieee/output.scm 500 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_41, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18588))); 
exit( -1 );} 
BgL_aux2627z00_1538 = 
write_object(BGl_string4890z00zz__r4_output_6_10_3z00, BgL_auxz00_3363); } }  else 
{ /* ./Ieee/output.scm 501 */
bool_t BgL_test1408z00_705;
{ /* ./Ieee/output.scm 501 */
obj_t BgL_arg1431z00_710;
{ /* ./Ieee/output.scm 501 */
obj_t BgL_pairz00_1231;
if(
PAIRP(BgL_lz00_700))
{ /* ./Ieee/output.scm 501 */
BgL_pairz00_1231 = BgL_lz00_700; }  else 
{ /* ./Ieee/output.scm 501 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_700, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18612))); 
exit( -1 );} 
BgL_arg1431z00_710 = 
CDR(BgL_pairz00_1231); } 
BgL_test1408z00_705 = 
PAIRP(BgL_arg1431z00_710); } 
if(BgL_test1408z00_705)
{ /* ./Ieee/output.scm 501 */
{ /* ./Ieee/output.scm 509 */
obj_t BgL_arg1410z00_706;
{ /* ./Ieee/output.scm 509 */
obj_t BgL_pairz00_1233;
if(
PAIRP(BgL_lz00_700))
{ /* ./Ieee/output.scm 509 */
BgL_pairz00_1233 = BgL_lz00_700; }  else 
{ /* ./Ieee/output.scm 509 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_700, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18839))); 
exit( -1 );} 
BgL_arg1410z00_706 = 
CAR(BgL_pairz00_1233); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1410z00_706, BgL_portz00_41, BgL_flagz00_42); } 
{ /* ./Ieee/output.scm 510 */
obj_t BgL_auxz00_3385;
if(
OUTPUT_PORTP(BgL_portz00_41))
{ /* ./Ieee/output.scm 510 */
BgL_auxz00_3385 = BgL_portz00_41
; }  else 
{ /* ./Ieee/output.scm 510 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_41, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18881))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)' '), BgL_auxz00_3385); } 
{ /* ./Ieee/output.scm 511 */
obj_t BgL_arg1415z00_707;
{ /* ./Ieee/output.scm 511 */
obj_t BgL_pairz00_1234;
if(
PAIRP(BgL_lz00_700))
{ /* ./Ieee/output.scm 511 */
BgL_pairz00_1234 = BgL_lz00_700; }  else 
{ /* ./Ieee/output.scm 511 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_700, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18898))); 
exit( -1 );} 
BgL_arg1415z00_707 = 
CDR(BgL_pairz00_1234); } 
{ 
obj_t BgL_lz00_3398;
BgL_lz00_3398 = BgL_arg1415z00_707; 
BgL_lz00_700 = BgL_lz00_3398; 
goto BgL_loopz00_701;} } }  else 
{ /* ./Ieee/output.scm 501 */
{ /* ./Ieee/output.scm 502 */
obj_t BgL_arg1419z00_708;
{ /* ./Ieee/output.scm 502 */
obj_t BgL_pairz00_1235;
if(
PAIRP(BgL_lz00_700))
{ /* ./Ieee/output.scm 502 */
BgL_pairz00_1235 = BgL_lz00_700; }  else 
{ /* ./Ieee/output.scm 502 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_700, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18640))); 
exit( -1 );} 
BgL_arg1419z00_708 = 
CAR(BgL_pairz00_1235); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1419z00_708, BgL_portz00_41, BgL_flagz00_42); } 
{ /* ./Ieee/output.scm 503 */
obj_t BgL_auxz00_3406;
if(
OUTPUT_PORTP(BgL_portz00_41))
{ /* ./Ieee/output.scm 503 */
BgL_auxz00_3406 = BgL_portz00_41
; }  else 
{ /* ./Ieee/output.scm 503 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_41, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18682))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)' '), BgL_auxz00_3406); } 
{ /* ./Ieee/output.scm 504 */
obj_t BgL_auxz00_3413;
if(
OUTPUT_PORTP(BgL_portz00_41))
{ /* ./Ieee/output.scm 504 */
BgL_auxz00_3413 = BgL_portz00_41
; }  else 
{ /* ./Ieee/output.scm 504 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_41, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18709))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)'.'), BgL_auxz00_3413); } 
{ /* ./Ieee/output.scm 505 */
obj_t BgL_auxz00_3420;
if(
OUTPUT_PORTP(BgL_portz00_41))
{ /* ./Ieee/output.scm 505 */
BgL_auxz00_3420 = BgL_portz00_41
; }  else 
{ /* ./Ieee/output.scm 505 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_41, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18740))); 
exit( -1 );} 
WRITE_CHAR(((unsigned char)' '), BgL_auxz00_3420); } 
{ /* ./Ieee/output.scm 506 */
obj_t BgL_arg1426z00_709;
{ /* ./Ieee/output.scm 506 */
obj_t BgL_pairz00_1236;
if(
PAIRP(BgL_lz00_700))
{ /* ./Ieee/output.scm 506 */
BgL_pairz00_1236 = BgL_lz00_700; }  else 
{ /* ./Ieee/output.scm 506 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_700, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18766))); 
exit( -1 );} 
BgL_arg1426z00_709 = 
CDR(BgL_pairz00_1236); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1426z00_709, BgL_portz00_41, BgL_flagz00_42); } 
{ /* ./Ieee/output.scm 507 */
obj_t BgL_auxz00_3434;
if(
OUTPUT_PORTP(BgL_portz00_41))
{ /* ./Ieee/output.scm 507 */
BgL_auxz00_3434 = BgL_portz00_41
; }  else 
{ /* ./Ieee/output.scm 507 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4889z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_41, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)18804))); 
exit( -1 );} 
BgL_aux2627z00_1538 = 
WRITE_CHAR(((unsigned char)')'), BgL_auxz00_3434); } } } } } } 
POP_TRACE(); 
return BgL_aux2627z00_1538;} } } } 
}



/* print */
BGL_EXPORTED_DEF obj_t BGl_printz00zz__r4_output_6_10_3z00(obj_t BgL_objz00_43)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 516 */
{ /* ./Ieee/output.scm 517 */
obj_t BgL_symbol2632z00_1539;
BgL_symbol2632z00_1539 = BGl_symbol4891z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 517 */

PUSH_TRACE(BgL_symbol2632z00_1539); BUNSPEC; 
{ /* ./Ieee/output.scm 517 */
obj_t BgL_aux2631z00_1540;
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
BINT(((long)0)); 
{ /* ./Ieee/output.scm 518 */
obj_t BgL_portz00_714;
BgL_portz00_714 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ 
obj_t BgL_lz00_715;obj_t BgL_resz00_716;
BgL_lz00_715 = BgL_objz00_43; 
BgL_resz00_716 = BNIL; 
BgL_loopz00_717:
if(
NULLP(BgL_lz00_715))
{ /* ./Ieee/output.scm 521 */
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_714); 
BgL_aux2631z00_1540 = BgL_resz00_716; }  else 
{ /* ./Ieee/output.scm 525 */
obj_t BgL_vz00_719;
{ /* ./Ieee/output.scm 525 */
obj_t BgL_pairz00_1238;
if(
PAIRP(BgL_lz00_715))
{ /* ./Ieee/output.scm 525 */
BgL_pairz00_1238 = BgL_lz00_715; }  else 
{ /* ./Ieee/output.scm 525 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4891z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_715, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)19344))); 
exit( -1 );} 
BgL_vz00_719 = 
CAR(BgL_pairz00_1238); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_vz00_719, BgL_portz00_714, ((bool_t)1)); 
{ /* ./Ieee/output.scm 527 */
obj_t BgL_arg1448z00_720;
{ /* ./Ieee/output.scm 527 */
obj_t BgL_pairz00_1239;
if(
PAIRP(BgL_lz00_715))
{ /* ./Ieee/output.scm 527 */
BgL_pairz00_1239 = BgL_lz00_715; }  else 
{ /* ./Ieee/output.scm 527 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4891z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_715, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)19390))); 
exit( -1 );} 
BgL_arg1448z00_720 = 
CDR(BgL_pairz00_1239); } 
{ 
obj_t BgL_resz00_3462;obj_t BgL_lz00_3461;
BgL_lz00_3461 = BgL_arg1448z00_720; 
BgL_resz00_3462 = BgL_vz00_719; 
BgL_resz00_716 = BgL_resz00_3462; 
BgL_lz00_715 = BgL_lz00_3461; 
goto BgL_loopz00_717;} } } } } 
POP_TRACE(); 
return BgL_aux2631z00_1540;} } } } 
}



/* _print */
obj_t BGl__printz00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1622, obj_t BgL_objz00_1623)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 516 */
return 
BGl_printz00zz__r4_output_6_10_3z00(BgL_objz00_1623);} 
}



/* display* */
BGL_EXPORTED_DEF obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t BgL_objz00_44)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 532 */
{ /* ./Ieee/output.scm 533 */
obj_t BgL_symbol2636z00_1541;
BgL_symbol2636z00_1541 = BGl_symbol4892z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 533 */

PUSH_TRACE(BgL_symbol2636z00_1541); BUNSPEC; 
{ /* ./Ieee/output.scm 533 */
obj_t BgL_aux2635z00_1542;
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
BINT(((long)0)); 
{ /* ./Ieee/output.scm 534 */
obj_t BgL_portz00_721;
BgL_portz00_721 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ 
obj_t BgL_lz00_722;
BgL_lz00_722 = BgL_objz00_44; 
BgL_loopz00_723:
if(
NULLP(BgL_lz00_722))
{ /* ./Ieee/output.scm 536 */
BgL_aux2635z00_1542 = BUNSPEC; }  else 
{ /* ./Ieee/output.scm 536 */
{ /* ./Ieee/output.scm 539 */
obj_t BgL_arg1457z00_726;
{ /* ./Ieee/output.scm 539 */
obj_t BgL_pairz00_1242;
if(
PAIRP(BgL_lz00_722))
{ /* ./Ieee/output.scm 539 */
BgL_pairz00_1242 = BgL_lz00_722; }  else 
{ /* ./Ieee/output.scm 539 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4892z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_722, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)19814))); 
exit( -1 );} 
BgL_arg1457z00_726 = 
CAR(BgL_pairz00_1242); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1457z00_726, BgL_portz00_721); } 
{ /* ./Ieee/output.scm 540 */
obj_t BgL_arg1461z00_727;
{ /* ./Ieee/output.scm 540 */
obj_t BgL_pairz00_1243;
if(
PAIRP(BgL_lz00_722))
{ /* ./Ieee/output.scm 540 */
BgL_pairz00_1243 = BgL_lz00_722; }  else 
{ /* ./Ieee/output.scm 540 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4892z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_722, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)19836))); 
exit( -1 );} 
BgL_arg1461z00_727 = 
CDR(BgL_pairz00_1243); } 
{ 
obj_t BgL_lz00_3483;
BgL_lz00_3483 = BgL_arg1461z00_727; 
BgL_lz00_722 = BgL_lz00_3483; 
goto BgL_loopz00_723;} } } } } 
POP_TRACE(); 
return BgL_aux2635z00_1542;} } } } 
}



/* _display* */
obj_t BGl__displayza2za2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1624, obj_t BgL_objz00_1625)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 532 */
return 
BGl_displayza2za2zz__r4_output_6_10_3z00(BgL_objz00_1625);} 
}



/* write* */
BGL_EXPORTED_DEF obj_t BGl_writeza2za2zz__r4_output_6_10_3z00(obj_t BgL_objz00_45)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 545 */
{ /* ./Ieee/output.scm 546 */
obj_t BgL_symbol2640z00_1543;
BgL_symbol2640z00_1543 = BGl_symbol4893z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 546 */

PUSH_TRACE(BgL_symbol2640z00_1543); BUNSPEC; 
{ /* ./Ieee/output.scm 546 */
obj_t BgL_aux2639z00_1544;
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
BINT(((long)0)); 
{ /* ./Ieee/output.scm 547 */
obj_t BgL_portz00_728;
BgL_portz00_728 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ 
obj_t BgL_lz00_729;
BgL_lz00_729 = BgL_objz00_45; 
BgL_loopz00_730:
if(
NULLP(BgL_lz00_729))
{ /* ./Ieee/output.scm 549 */
BgL_aux2639z00_1544 = BUNSPEC; }  else 
{ /* ./Ieee/output.scm 549 */
{ /* ./Ieee/output.scm 552 */
obj_t BgL_arg1470z00_733;
{ /* ./Ieee/output.scm 552 */
obj_t BgL_pairz00_1246;
if(
PAIRP(BgL_lz00_729))
{ /* ./Ieee/output.scm 552 */
BgL_pairz00_1246 = BgL_lz00_729; }  else 
{ /* ./Ieee/output.scm 552 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4893z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_729, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)20262))); 
exit( -1 );} 
BgL_arg1470z00_733 = 
CAR(BgL_pairz00_1246); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1470z00_733, BgL_portz00_728, ((bool_t)0)); } 
{ /* ./Ieee/output.scm 553 */
obj_t BgL_arg1474z00_734;
{ /* ./Ieee/output.scm 553 */
obj_t BgL_pairz00_1247;
if(
PAIRP(BgL_lz00_729))
{ /* ./Ieee/output.scm 553 */
BgL_pairz00_1247 = BgL_lz00_729; }  else 
{ /* ./Ieee/output.scm 553 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4893z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_729, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)20287))); 
exit( -1 );} 
BgL_arg1474z00_734 = 
CDR(BgL_pairz00_1247); } 
{ 
obj_t BgL_lz00_3504;
BgL_lz00_3504 = BgL_arg1474z00_734; 
BgL_lz00_729 = BgL_lz00_3504; 
goto BgL_loopz00_730;} } } } } 
POP_TRACE(); 
return BgL_aux2639z00_1544;} } } } 
}



/* _write* */
obj_t BGl__writeza2za2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1626, obj_t BgL_objz00_1627)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 545 */
return 
BGl_writeza2za2zz__r4_output_6_10_3z00(BgL_objz00_1627);} 
}



/* fprint */
BGL_EXPORTED_DEF obj_t BGl_fprintz00zz__r4_output_6_10_3z00(obj_t BgL_portz00_46, obj_t BgL_objz00_47)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 558 */
{ /* ./Ieee/output.scm 559 */
obj_t BgL_symbol2644z00_1545;
BgL_symbol2644z00_1545 = BGl_symbol4894z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 559 */

PUSH_TRACE(BgL_symbol2644z00_1545); BUNSPEC; 
{ /* ./Ieee/output.scm 559 */
obj_t BgL_aux2643z00_1546;
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
BINT(((long)0)); 
{ 
obj_t BgL_lz00_735;obj_t BgL_resz00_736;
BgL_lz00_735 = BgL_objz00_47; 
BgL_resz00_736 = BNIL; 
BgL_loopz00_737:
if(
NULLP(BgL_lz00_735))
{ /* ./Ieee/output.scm 562 */
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_46); 
BgL_aux2643z00_1546 = BgL_resz00_736; }  else 
{ /* ./Ieee/output.scm 566 */
obj_t BgL_vz00_739;
{ /* ./Ieee/output.scm 566 */
obj_t BgL_pairz00_1249;
if(
PAIRP(BgL_lz00_735))
{ /* ./Ieee/output.scm 566 */
BgL_pairz00_1249 = BgL_lz00_735; }  else 
{ /* ./Ieee/output.scm 566 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4894z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_735, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)20708))); 
exit( -1 );} 
BgL_vz00_739 = 
CAR(BgL_pairz00_1249); } 
{ /* ./Ieee/output.scm 567 */
obj_t BgL_arg1484z00_740;
{ /* ./Ieee/output.scm 567 */
obj_t BgL_pairz00_1250;
if(
PAIRP(BgL_lz00_735))
{ /* ./Ieee/output.scm 567 */
BgL_pairz00_1250 = BgL_lz00_735; }  else 
{ /* ./Ieee/output.scm 567 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4894z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_735, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)20739))); 
exit( -1 );} 
BgL_arg1484z00_740 = 
CAR(BgL_pairz00_1250); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1484z00_740, BgL_portz00_46, ((bool_t)1)); } 
{ /* ./Ieee/output.scm 568 */
obj_t BgL_arg1488z00_741;
{ /* ./Ieee/output.scm 568 */
obj_t BgL_pairz00_1251;
if(
PAIRP(BgL_lz00_735))
{ /* ./Ieee/output.scm 568 */
BgL_pairz00_1251 = BgL_lz00_735; }  else 
{ /* ./Ieee/output.scm 568 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4894z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_lz00_735, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)20768))); 
exit( -1 );} 
BgL_arg1488z00_741 = 
CDR(BgL_pairz00_1251); } 
{ 
obj_t BgL_resz00_3532;obj_t BgL_lz00_3531;
BgL_lz00_3531 = BgL_arg1488z00_741; 
BgL_resz00_3532 = BgL_vz00_739; 
BgL_resz00_736 = BgL_resz00_3532; 
BgL_lz00_735 = BgL_lz00_3531; 
goto BgL_loopz00_737;} } } } 
POP_TRACE(); 
return BgL_aux2643z00_1546;} } } } 
}



/* _fprint */
obj_t BGl__fprintz00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1628, obj_t BgL_portz00_1629, obj_t BgL_objz00_1630)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 558 */
{ /* ./Ieee/output.scm 559 */
obj_t BgL_auxz00_3534;
if(
OUTPUT_PORTP(BgL_portz00_1629))
{ /* ./Ieee/output.scm 559 */
BgL_auxz00_3534 = BgL_portz00_1629
; }  else 
{ /* ./Ieee/output.scm 559 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4895z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_1629, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)20550))); 
exit( -1 );} 
return 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_auxz00_3534, BgL_objz00_1630);} } 
}



/* xprintf */
obj_t BGl_xprintfz00zz__r4_output_6_10_3z00(obj_t BgL_procnamez00_48, obj_t BgL_pz00_49, obj_t BgL_fmtz00_50, obj_t BgL_objsz00_51)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 573 */
{ /* ./Ieee/output.scm 574 */
obj_t BgL_symbol2648z00_1547;
BgL_symbol2648z00_1547 = BGl_symbol4896z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 574 */

PUSH_TRACE(BgL_symbol2648z00_1547); BUNSPEC; 
{ /* ./Ieee/output.scm 574 */
obj_t BgL_aux2647z00_1548;
{ /* ./Ieee/output.scm 574 */
int BgL_lenz00_742;
BgL_lenz00_742 = 
STRING_LENGTH(BgL_fmtz00_50); 
{ 
long BgL_iz00_743;obj_t BgL_osz00_744;
BgL_iz00_743 = ((long)0); 
BgL_osz00_744 = BgL_objsz00_51; 
BgL_loopz00_745:
{ /* ./Ieee/output.scm 585 */
bool_t BgL_testz00_3543;
{ /* ./Ieee/output.scm 585 */
long BgL_auxz00_3544;
BgL_auxz00_3544 = 
(long)(BgL_lenz00_742); 
BgL_testz00_3543 = 
(BgL_iz00_743<BgL_auxz00_3544); } 
if(BgL_testz00_3543)
{ /* ./Ieee/output.scm 586 */
unsigned char BgL_cz00_749;
{ /* ./Ieee/output.scm 586 */
unsigned char BgL_res2553z00_1263;
{ /* ./Ieee/output.scm 586 */
int BgL_kz00_1256;
BgL_kz00_1256 = 
(int)(BgL_iz00_743); 
{ /* ./Ieee/output.scm 586 */
bool_t BgL_testz00_3548;
{ /* ./Ieee/output.scm 586 */
int BgL_auxz00_3549;
BgL_auxz00_3549 = 
STRING_LENGTH(BgL_fmtz00_50); 
BgL_testz00_3548 = 
BOUND_CHECK(BgL_kz00_1256, BgL_auxz00_3549); } 
if(BgL_testz00_3548)
{ /* ./Ieee/output.scm 586 */
BgL_res2553z00_1263 = 
STRING_REF(BgL_fmtz00_50, BgL_kz00_1256); }  else 
{ /* ./Ieee/output.scm 586 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4897z00zz__r4_output_6_10_3z00, BGl_string4880z00zz__r4_output_6_10_3z00, 
BINT(BgL_kz00_1256), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/output.scm 586 */
obj_t BgL_auxz00_3555;
{ /* ./Ieee/output.scm 586 */
obj_t BgL_aux4418z00_1957;
BgL_aux4418z00_1957 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21438))); 
if(
CHARP(BgL_aux4418z00_1957))
{ /* ./Ieee/output.scm 586 */
BgL_auxz00_3555 = BgL_aux4418z00_1957
; }  else 
{ /* ./Ieee/output.scm 586 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4848z00zz__r4_output_6_10_3z00, BgL_aux4418z00_1957, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21438))); 
exit( -1 );} } 
BgL_res2553z00_1263 = 
(unsigned char)CCHAR(BgL_auxz00_3555); } } } } 
BgL_cz00_749 = BgL_res2553z00_1263; } 
if(
(BgL_cz00_749==((unsigned char)'~')))
{ /* ./Ieee/output.scm 588 */
bool_t BgL_testz00_3566;
{ /* ./Ieee/output.scm 588 */
long BgL_auxz00_3567;
{ /* ./Ieee/output.scm 588 */
long BgL_auxz00_3568;
BgL_auxz00_3568 = 
(long)(BgL_lenz00_742); 
BgL_auxz00_3567 = 
(BgL_auxz00_3568-((long)1)); } 
BgL_testz00_3566 = 
(BgL_iz00_743==BgL_auxz00_3567); } 
if(BgL_testz00_3566)
{ /* ./Ieee/output.scm 588 */
{ /* ./Ieee/output.scm 589 */
obj_t BgL_arg1499z00_753;
{ /* ./Ieee/output.scm 591 */
obj_t BgL_res2554z00_1298;
{ /* ./Ieee/output.scm 591 */
int BgL_startz00_1271;
BgL_startz00_1271 = 
(int)(BgL_iz00_743); 
{ /* ./Ieee/output.scm 591 */
bool_t BgL_test1982z00_1273;
{ /* ./Ieee/output.scm 591 */
bool_t BgL_testz00_3573;
{ /* ./Ieee/output.scm 591 */
long BgL_auxz00_3576;long BgL_auxz00_3574;
BgL_auxz00_3576 = 
(long)(BgL_startz00_1271); 
BgL_auxz00_3574 = 
(long)(BgL_lenz00_742); 
BgL_testz00_3573 = 
(BgL_auxz00_3574>=BgL_auxz00_3576); } 
if(BgL_testz00_3573)
{ /* ./Ieee/output.scm 591 */
bool_t BgL_testz00_3579;
{ /* ./Ieee/output.scm 591 */
int BgL_auxz00_3580;
{ /* ./Ieee/output.scm 591 */
long BgL_auxz00_3581;
{ /* ./Ieee/output.scm 591 */
long BgL_auxz00_3582;
{ /* ./Ieee/output.scm 591 */
int BgL_auxz00_3583;
BgL_auxz00_3583 = 
STRING_LENGTH(BgL_fmtz00_50); 
BgL_auxz00_3582 = 
(long)(BgL_auxz00_3583); } 
BgL_auxz00_3581 = 
(BgL_auxz00_3582+((long)1)); } 
BgL_auxz00_3580 = 
(int)(BgL_auxz00_3581); } 
BgL_testz00_3579 = 
BOUND_CHECK(BgL_startz00_1271, BgL_auxz00_3580); } 
if(BgL_testz00_3579)
{ /* ./Ieee/output.scm 591 */
int BgL_auxz00_3589;
{ /* ./Ieee/output.scm 591 */
long BgL_auxz00_3590;
{ /* ./Ieee/output.scm 591 */
long BgL_auxz00_3591;
{ /* ./Ieee/output.scm 591 */
int BgL_auxz00_3592;
BgL_auxz00_3592 = 
STRING_LENGTH(BgL_fmtz00_50); 
BgL_auxz00_3591 = 
(long)(BgL_auxz00_3592); } 
BgL_auxz00_3590 = 
(BgL_auxz00_3591+((long)1)); } 
BgL_auxz00_3589 = 
(int)(BgL_auxz00_3590); } 
BgL_test1982z00_1273 = 
BOUND_CHECK(BgL_lenz00_742, BgL_auxz00_3589); }  else 
{ /* ./Ieee/output.scm 591 */
BgL_test1982z00_1273 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 591 */
BgL_test1982z00_1273 = ((bool_t)0); } } 
if(BgL_test1982z00_1273)
{ /* ./Ieee/output.scm 591 */
BgL_res2554z00_1298 = 
c_substring(BgL_fmtz00_50, BgL_startz00_1271, BgL_lenz00_742); }  else 
{ /* ./Ieee/output.scm 591 */
{ /* ./Ieee/output.scm 591 */
obj_t BgL_arg1987z00_1284;
{ /* ./Ieee/output.scm 591 */
obj_t BgL_auxz00_3602;obj_t BgL_auxz00_3600;
BgL_auxz00_3602 = 
BINT(BgL_lenz00_742); 
BgL_auxz00_3600 = 
BINT(BgL_startz00_1271); 
BgL_arg1987z00_1284 = 
MAKE_PAIR(BgL_auxz00_3600, BgL_auxz00_3602); } 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4898z00zz__r4_output_6_10_3z00, BGl_string4899z00zz__r4_output_6_10_3z00, BgL_arg1987z00_1284, "./Ieee/string.scm", ((long)16075)); } 
{ /* ./Ieee/output.scm 591 */
obj_t BgL_aux4446z00_1959;
BgL_aux4446z00_1959 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21571))); 
if(
STRINGP(BgL_aux4446z00_1959))
{ /* ./Ieee/output.scm 591 */
BgL_res2554z00_1298 = BgL_aux4446z00_1959; }  else 
{ /* ./Ieee/output.scm 591 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4861z00zz__r4_output_6_10_3z00, BgL_aux4446z00_1959, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21571))); 
exit( -1 );} } } } } 
BgL_arg1499z00_753 = BgL_res2554z00_1298; } 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_48, BGl_string4900z00zz__r4_output_6_10_3z00, BgL_arg1499z00_753, "./Ieee/output.scm", ((long)21513)); } 
BgL_aux2647z00_1548 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21559))); }  else 
{ /* ./Ieee/output.scm 592 */
unsigned char BgL_fz00_756;
{ /* ./Ieee/output.scm 592 */
long BgL_arg1612z00_789;
BgL_arg1612z00_789 = 
(BgL_iz00_743+((long)1)); 
{ /* ./Ieee/output.scm 592 */
unsigned char BgL_res2555z00_1312;
{ /* ./Ieee/output.scm 592 */
int BgL_kz00_1305;
BgL_kz00_1305 = 
(int)(BgL_arg1612z00_789); 
{ /* ./Ieee/output.scm 592 */
bool_t BgL_testz00_3618;
{ /* ./Ieee/output.scm 592 */
int BgL_auxz00_3619;
BgL_auxz00_3619 = 
STRING_LENGTH(BgL_fmtz00_50); 
BgL_testz00_3618 = 
BOUND_CHECK(BgL_kz00_1305, BgL_auxz00_3619); } 
if(BgL_testz00_3618)
{ /* ./Ieee/output.scm 592 */
BgL_res2555z00_1312 = 
STRING_REF(BgL_fmtz00_50, BgL_kz00_1305); }  else 
{ /* ./Ieee/output.scm 592 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string4897z00zz__r4_output_6_10_3z00, BGl_string4880z00zz__r4_output_6_10_3z00, 
BINT(BgL_kz00_1305), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/output.scm 592 */
obj_t BgL_auxz00_3625;
{ /* ./Ieee/output.scm 592 */
obj_t BgL_aux4471z00_1961;
BgL_aux4471z00_1961 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21606))); 
if(
CHARP(BgL_aux4471z00_1961))
{ /* ./Ieee/output.scm 592 */
BgL_auxz00_3625 = BgL_aux4471z00_1961
; }  else 
{ /* ./Ieee/output.scm 592 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4848z00zz__r4_output_6_10_3z00, BgL_aux4471z00_1961, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21606))); 
exit( -1 );} } 
BgL_res2555z00_1312 = 
(unsigned char)CCHAR(BgL_auxz00_3625); } } } } 
BgL_fz00_756 = BgL_res2555z00_1312; } } 
{ 

switch( BgL_fz00_756) { case ((unsigned char)'a') : 
case ((unsigned char)'A') : 

{ /* ./Ieee/output.scm 595 */
obj_t BgL_arg1507z00_760;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 595 */
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_48, BGl_string4902z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_756), "./Ieee/output.scm", ((long)21190)); 
BgL_arg1507z00_760 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21688))); }  else 
{ /* ./Ieee/output.scm 595 */
obj_t BgL_pairz00_1320;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 595 */
BgL_pairz00_1320 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 595 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21688))); 
exit( -1 );} 
BgL_arg1507z00_760 = 
CAR(BgL_pairz00_1320); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1507z00_760, BgL_pz00_49); } 
{ /* ./Ieee/output.scm 596 */
long BgL_arg1511z00_761;obj_t BgL_arg1512z00_762;
BgL_arg1511z00_761 = 
(BgL_iz00_743+((long)2)); 
{ /* ./Ieee/output.scm 596 */
obj_t BgL_pairz00_1323;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 596 */
BgL_pairz00_1323 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21735))); 
exit( -1 );} 
BgL_arg1512z00_762 = 
CDR(BgL_pairz00_1323); } 
{ 
obj_t BgL_osz00_3655;long BgL_iz00_3654;
BgL_iz00_3654 = BgL_arg1511z00_761; 
BgL_osz00_3655 = BgL_arg1512z00_762; 
BgL_osz00_744 = BgL_osz00_3655; 
BgL_iz00_743 = BgL_iz00_3654; 
goto BgL_loopz00_745;} } break;case ((unsigned char)'s') : 
case ((unsigned char)'S') : 

{ /* ./Ieee/output.scm 598 */
obj_t BgL_arg1518z00_763;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 598 */
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_48, BGl_string4902z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_756), "./Ieee/output.scm", ((long)21190)); 
BgL_arg1518z00_763 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21777))); }  else 
{ /* ./Ieee/output.scm 598 */
obj_t BgL_pairz00_1331;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 598 */
BgL_pairz00_1331 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 598 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21777))); 
exit( -1 );} 
BgL_arg1518z00_763 = 
CAR(BgL_pairz00_1331); } 
{ /* ./Ieee/output.scm 598 */
obj_t BgL_list1520z00_764;
BgL_list1520z00_764 = 
MAKE_PAIR(BgL_pz00_49, BNIL); 
BGl_writez00zz__r4_output_6_10_3z00(BgL_arg1518z00_763, BgL_list1520z00_764); } } 
{ /* ./Ieee/output.scm 599 */
long BgL_arg1524z00_765;obj_t BgL_arg1525z00_766;
BgL_arg1524z00_765 = 
(BgL_iz00_743+((long)2)); 
{ /* ./Ieee/output.scm 599 */
obj_t BgL_pairz00_1334;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 599 */
BgL_pairz00_1334 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 599 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21824))); 
exit( -1 );} 
BgL_arg1525z00_766 = 
CDR(BgL_pairz00_1334); } 
{ 
obj_t BgL_osz00_3678;long BgL_iz00_3677;
BgL_iz00_3677 = BgL_arg1524z00_765; 
BgL_osz00_3678 = BgL_arg1525z00_766; 
BgL_osz00_744 = BgL_osz00_3678; 
BgL_iz00_743 = BgL_iz00_3677; 
goto BgL_loopz00_745;} } break;case ((unsigned char)'v') : 
case ((unsigned char)'V') : 

{ /* ./Ieee/output.scm 601 */
obj_t BgL_arg1530z00_767;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 601 */
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_48, BGl_string4902z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_756), "./Ieee/output.scm", ((long)21190)); 
BgL_arg1530z00_767 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21868))); }  else 
{ /* ./Ieee/output.scm 601 */
obj_t BgL_pairz00_1342;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 601 */
BgL_pairz00_1342 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 601 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21868))); 
exit( -1 );} 
BgL_arg1530z00_767 = 
CAR(BgL_pairz00_1342); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1530z00_767, BgL_pz00_49); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_pz00_49); 
{ /* ./Ieee/output.scm 603 */
long BgL_arg1535z00_768;obj_t BgL_arg1537z00_769;
BgL_arg1535z00_768 = 
(BgL_iz00_743+((long)2)); 
{ /* ./Ieee/output.scm 603 */
obj_t BgL_pairz00_1346;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 603 */
BgL_pairz00_1346 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 603 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21937))); 
exit( -1 );} 
BgL_arg1537z00_769 = 
CDR(BgL_pairz00_1346); } 
{ 
obj_t BgL_osz00_3701;long BgL_iz00_3700;
BgL_iz00_3700 = BgL_arg1535z00_768; 
BgL_osz00_3701 = BgL_arg1537z00_769; 
BgL_osz00_744 = BgL_osz00_3701; 
BgL_iz00_743 = BgL_iz00_3700; 
goto BgL_loopz00_745;} } break;case ((unsigned char)'c') : 
case ((unsigned char)'C') : 

{ /* ./Ieee/output.scm 605 */
obj_t BgL_oz00_770;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 605 */
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_48, BGl_string4902z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_756), "./Ieee/output.scm", ((long)21190)); 
BgL_oz00_770 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21981))); }  else 
{ /* ./Ieee/output.scm 605 */
obj_t BgL_pairz00_1354;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 605 */
BgL_pairz00_1354 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 605 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21981))); 
exit( -1 );} 
BgL_oz00_770 = 
CAR(BgL_pairz00_1354); } 
{ /* ./Ieee/output.scm 606 */
bool_t BgL_test1541z00_771;
BgL_test1541z00_771 = 
CHARP(BgL_oz00_770); 
if(BgL_test1541z00_771)
{ /* ./Ieee/output.scm 606 */
{ /* ./Ieee/output.scm 609 */
unsigned char BgL_charz00_1356;
{ /* ./Ieee/output.scm 609 */
obj_t BgL_auxz00_3716;
if(BgL_test1541z00_771)
{ /* ./Ieee/output.scm 609 */
BgL_auxz00_3716 = BgL_oz00_770
; }  else 
{ /* ./Ieee/output.scm 609 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4848z00zz__r4_output_6_10_3z00, BgL_oz00_770, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22100))); 
exit( -1 );} 
BgL_charz00_1356 = 
(unsigned char)CCHAR(BgL_auxz00_3716); } 
WRITE_CHAR(BgL_charz00_1356, BgL_pz00_49); } 
{ /* ./Ieee/output.scm 610 */
long BgL_arg1545z00_772;obj_t BgL_arg1546z00_773;
BgL_arg1545z00_772 = 
(BgL_iz00_743+((long)2)); 
{ /* ./Ieee/output.scm 610 */
obj_t BgL_pairz00_1360;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 610 */
BgL_pairz00_1360 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 610 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22133))); 
exit( -1 );} 
BgL_arg1546z00_773 = 
CDR(BgL_pairz00_1360); } 
{ 
obj_t BgL_osz00_3731;long BgL_iz00_3730;
BgL_iz00_3730 = BgL_arg1545z00_772; 
BgL_osz00_3731 = BgL_arg1546z00_773; 
BgL_osz00_744 = BgL_osz00_3731; 
BgL_iz00_743 = BgL_iz00_3730; 
goto BgL_loopz00_745;} } }  else 
{ /* ./Ieee/output.scm 606 */
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_48, BGl_string4903z00zz__r4_output_6_10_3z00, BgL_oz00_770, "./Ieee/output.scm", ((long)22031)); 
BgL_aux2647z00_1548 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22060))); } } } break;case ((unsigned char)'x') : 
case ((unsigned char)'X') : 

{ /* ./Ieee/output.scm 612 */
obj_t BgL_arg1556z00_775;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 612 */
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_48, BGl_string4902z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_756), "./Ieee/output.scm", ((long)21190)); 
BgL_arg1556z00_775 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22187))); }  else 
{ /* ./Ieee/output.scm 612 */
obj_t BgL_pairz00_1371;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 612 */
BgL_pairz00_1371 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 612 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22187))); 
exit( -1 );} 
BgL_arg1556z00_775 = 
CAR(BgL_pairz00_1371); } 
BGl_printzd2radixzd2zz__r4_output_6_10_3z00(BgL_pz00_49, BgL_procnamez00_48, ((long)16), BgL_arg1556z00_775); } 
{ /* ./Ieee/output.scm 613 */
long BgL_arg1560z00_776;obj_t BgL_arg1562z00_777;
BgL_arg1560z00_776 = 
(BgL_iz00_743+((long)2)); 
{ /* ./Ieee/output.scm 613 */
obj_t BgL_pairz00_1374;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 613 */
BgL_pairz00_1374 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 613 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22232))); 
exit( -1 );} 
BgL_arg1562z00_777 = 
CDR(BgL_pairz00_1374); } 
{ 
obj_t BgL_osz00_3756;long BgL_iz00_3755;
BgL_iz00_3755 = BgL_arg1560z00_776; 
BgL_osz00_3756 = BgL_arg1562z00_777; 
BgL_osz00_744 = BgL_osz00_3756; 
BgL_iz00_743 = BgL_iz00_3755; 
goto BgL_loopz00_745;} } break;case ((unsigned char)'o') : 
case ((unsigned char)'O') : 

{ /* ./Ieee/output.scm 615 */
obj_t BgL_arg1568z00_779;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 615 */
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_48, BGl_string4902z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_756), "./Ieee/output.scm", ((long)21190)); 
BgL_arg1568z00_779 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22282))); }  else 
{ /* ./Ieee/output.scm 615 */
obj_t BgL_pairz00_1382;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 615 */
BgL_pairz00_1382 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 615 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22282))); 
exit( -1 );} 
BgL_arg1568z00_779 = 
CAR(BgL_pairz00_1382); } 
BGl_printzd2radixzd2zz__r4_output_6_10_3z00(BgL_pz00_49, BgL_procnamez00_48, ((long)8), BgL_arg1568z00_779); } 
{ /* ./Ieee/output.scm 616 */
long BgL_arg1572z00_780;obj_t BgL_arg1573z00_781;
BgL_arg1572z00_780 = 
(BgL_iz00_743+((long)2)); 
{ /* ./Ieee/output.scm 616 */
obj_t BgL_pairz00_1385;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 616 */
BgL_pairz00_1385 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 616 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22327))); 
exit( -1 );} 
BgL_arg1573z00_781 = 
CDR(BgL_pairz00_1385); } 
{ 
obj_t BgL_osz00_3778;long BgL_iz00_3777;
BgL_iz00_3777 = BgL_arg1572z00_780; 
BgL_osz00_3778 = BgL_arg1573z00_781; 
BgL_osz00_744 = BgL_osz00_3778; 
BgL_iz00_743 = BgL_iz00_3777; 
goto BgL_loopz00_745;} } break;case ((unsigned char)'b') : 
case ((unsigned char)'B') : 

{ /* ./Ieee/output.scm 618 */
obj_t BgL_arg1579z00_783;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 618 */
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_48, BGl_string4902z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_756), "./Ieee/output.scm", ((long)21190)); 
BgL_arg1579z00_783 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22377))); }  else 
{ /* ./Ieee/output.scm 618 */
obj_t BgL_pairz00_1393;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 618 */
BgL_pairz00_1393 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 618 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22377))); 
exit( -1 );} 
BgL_arg1579z00_783 = 
CAR(BgL_pairz00_1393); } 
BGl_printzd2radixzd2zz__r4_output_6_10_3z00(BgL_pz00_49, BgL_procnamez00_48, ((long)2), BgL_arg1579z00_783); } 
{ /* ./Ieee/output.scm 619 */
long BgL_arg1585z00_784;obj_t BgL_arg1586z00_785;
BgL_arg1585z00_784 = 
(BgL_iz00_743+((long)2)); 
{ /* ./Ieee/output.scm 619 */
obj_t BgL_pairz00_1396;
if(
PAIRP(BgL_osz00_744))
{ /* ./Ieee/output.scm 619 */
BgL_pairz00_1396 = BgL_osz00_744; }  else 
{ /* ./Ieee/output.scm 619 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4896z00zz__r4_output_6_10_3z00, BGl_string4824z00zz__r4_output_6_10_3z00, BgL_osz00_744, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)22422))); 
exit( -1 );} 
BgL_arg1586z00_785 = 
CDR(BgL_pairz00_1396); } 
{ 
obj_t BgL_osz00_3800;long BgL_iz00_3799;
BgL_iz00_3799 = BgL_arg1585z00_784; 
BgL_osz00_3800 = BgL_arg1586z00_785; 
BgL_osz00_744 = BgL_osz00_3800; 
BgL_iz00_743 = BgL_iz00_3799; 
goto BgL_loopz00_745;} } break;case ((unsigned char)'%') : 
case ((unsigned char)'n') : 

WRITE_CHAR(((unsigned char)'\n'), BgL_pz00_49); 
{ 
long BgL_iz00_3802;
BgL_iz00_3802 = 
(BgL_iz00_743+((long)2)); 
BgL_iz00_743 = BgL_iz00_3802; 
goto BgL_loopz00_745;} break;case ((unsigned char)'r') : 

WRITE_CHAR(((unsigned char)'\r'), BgL_pz00_49); 
{ 
long BgL_iz00_3805;
BgL_iz00_3805 = 
(BgL_iz00_743+((long)2)); 
BgL_iz00_743 = BgL_iz00_3805; 
goto BgL_loopz00_745;} break;case ((unsigned char)'~') : 

WRITE_CHAR(((unsigned char)'~'), BgL_pz00_49); 
{ 
long BgL_iz00_3808;
BgL_iz00_3808 = 
(BgL_iz00_743+((long)2)); 
BgL_iz00_743 = BgL_iz00_3808; 
goto BgL_loopz00_745;} break;
default: 
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_48, BGl_string4901z00zz__r4_output_6_10_3z00, 
BCHAR(BgL_fz00_756), "./Ieee/output.scm", ((long)22682)); 
BgL_aux2647z00_1548 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21641))); } } } }  else 
{ /* ./Ieee/output.scm 587 */
WRITE_CHAR(BgL_cz00_749, BgL_pz00_49); 
{ 
long BgL_iz00_3816;
BgL_iz00_3816 = 
(BgL_iz00_743+((long)1)); 
BgL_iz00_743 = BgL_iz00_3816; 
goto BgL_loopz00_745;} } }  else 
{ /* ./Ieee/output.scm 585 */
BgL_aux2647z00_1548 = BFALSE; } } } } 
POP_TRACE(); 
return BgL_aux2647z00_1548;} } } } 
}



/* print-radix */
obj_t BGl_printzd2radixzd2zz__r4_output_6_10_3z00(obj_t BgL_pz00_1646, obj_t BgL_procnamez00_1645, long BgL_radixz00_792, obj_t BgL_numz00_793)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 584 */
{ /* ./Ieee/output.scm 582 */
bool_t BgL_test1628z00_795;
if(
INTEGERP(BgL_numz00_793))
{ /* ./Ieee/output.scm 582 */
BgL_test1628z00_795 = ((bool_t)1); }  else 
{ /* ./Ieee/output.scm 582 */
BgL_test1628z00_795 = 
REALP(BgL_numz00_793); } 
if(BgL_test1628z00_795)
{ /* ./Ieee/output.scm 584 */
char * BgL_arg1630z00_796;
{ /* ./Ieee/output.scm 584 */
obj_t BgL_list1633z00_797;
{ /* ./Ieee/output.scm 584 */
obj_t BgL_auxz00_3823;
BgL_auxz00_3823 = 
BINT(BgL_radixz00_792); 
BgL_list1633z00_797 = 
MAKE_PAIR(BgL_auxz00_3823, BNIL); } 
BgL_arg1630z00_796 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_numz00_793, BgL_list1633z00_797); } 
return 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg1630z00_796), BgL_pz00_1646);}  else 
{ /* ./Ieee/output.scm 582 */
BGl_errorzf2czd2locationz20zz__errorz00(BgL_procnamez00_1645, BGl_string4904z00zz__r4_output_6_10_3z00, BgL_numz00_793, "./Ieee/output.scm", ((long)21324)); 
return 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)21355)));} } } 
}



/* format */
BGL_EXPORTED_DEF obj_t BGl_formatz00zz__r4_output_6_10_3z00(obj_t BgL_fmtz00_52, obj_t BgL_objz00_53)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 638 */
{ /* ./Ieee/output.scm 639 */
obj_t BgL_symbol2652z00_1549;
BgL_symbol2652z00_1549 = BGl_symbol4905z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 639 */

PUSH_TRACE(BgL_symbol2652z00_1549); BUNSPEC; 
{ /* ./Ieee/output.scm 639 */
obj_t BgL_aux2651z00_1550;
{ /* ./Ieee/output.scm 639 */
obj_t BgL_pz00_1429;
BgL_pz00_1429 = 
open_output_string(); 
{ /* ./Ieee/output.scm 639 */
obj_t BgL_auxz00_3840;obj_t BgL_auxz00_3834;
{ /* ./Ieee/output.scm 639 */
bool_t BgL_testz00_3841;
if(
PAIRP(BgL_objz00_53))
{ /* ./Ieee/output.scm 639 */
BgL_testz00_3841 = ((bool_t)1)
; }  else 
{ /* ./Ieee/output.scm 639 */
BgL_testz00_3841 = 
NULLP(BgL_objz00_53)
; } 
if(BgL_testz00_3841)
{ /* ./Ieee/output.scm 639 */
BgL_auxz00_3840 = BgL_objz00_53
; }  else 
{ /* ./Ieee/output.scm 639 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4905z00zz__r4_output_6_10_3z00, BGl_string4906z00zz__r4_output_6_10_3z00, BgL_objz00_53, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)23051))); 
exit( -1 );} } 
if(
OUTPUT_PORTP(BgL_pz00_1429))
{ /* ./Ieee/output.scm 639 */
BgL_auxz00_3834 = BgL_pz00_1429
; }  else 
{ /* ./Ieee/output.scm 639 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4905z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_pz00_1429, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)23051))); 
exit( -1 );} 
BGl_xprintfz00zz__r4_output_6_10_3z00(BGl_symbol4905z00zz__r4_output_6_10_3z00, BgL_auxz00_3834, BgL_fmtz00_52, BgL_auxz00_3840); } 
{ /* ./Ieee/output.scm 639 */
obj_t BgL_portz00_1430;
if(
OUTPUT_PORTP(BgL_pz00_1429))
{ /* ./Ieee/output.scm 639 */
BgL_portz00_1430 = BgL_pz00_1429; }  else 
{ /* ./Ieee/output.scm 639 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4905z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_pz00_1429, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)23051))); 
exit( -1 );} 
BgL_aux2651z00_1550 = 
close_output_port(BgL_portz00_1430); } } 
POP_TRACE(); 
return BgL_aux2651z00_1550;} } } } 
}



/* _format2729 */
obj_t BGl__format2729z00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1631, obj_t BgL_fmtz00_1632, obj_t BgL_objz00_1633)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 638 */
{ /* ./Ieee/output.scm 639 */
obj_t BgL_auxz00_3856;
if(
STRINGP(BgL_fmtz00_1632))
{ /* ./Ieee/output.scm 639 */
BgL_auxz00_3856 = BgL_fmtz00_1632
; }  else 
{ /* ./Ieee/output.scm 639 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4907z00zz__r4_output_6_10_3z00, BGl_string4861z00zz__r4_output_6_10_3z00, BgL_fmtz00_1632, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)23051))); 
exit( -1 );} 
return 
BGl_formatz00zz__r4_output_6_10_3z00(BgL_auxz00_3856, BgL_objz00_1633);} } 
}



/* printf */
BGL_EXPORTED_DEF obj_t BGl_printfz00zz__r4_output_6_10_3z00(obj_t BgL_fmtz00_54, obj_t BgL_objz00_55)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 646 */
{ /* ./Ieee/output.scm 647 */
obj_t BgL_symbol2656z00_1551;
BgL_symbol2656z00_1551 = BGl_symbol4908z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 647 */

PUSH_TRACE(BgL_symbol2656z00_1551); BUNSPEC; 
{ /* ./Ieee/output.scm 647 */
obj_t BgL_aux2655z00_1552;
{ /* ./Ieee/output.scm 647 */
obj_t BgL_arg1649z00_1431;obj_t BgL_arg1650z00_1432;
BgL_arg1649z00_1431 = BGl_symbol4908z00zz__r4_output_6_10_3z00; 
BgL_arg1650z00_1432 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ /* ./Ieee/output.scm 647 */
obj_t BgL_auxz00_3865;
{ /* ./Ieee/output.scm 647 */
bool_t BgL_testz00_3866;
if(
PAIRP(BgL_objz00_55))
{ /* ./Ieee/output.scm 647 */
BgL_testz00_3866 = ((bool_t)1)
; }  else 
{ /* ./Ieee/output.scm 647 */
BgL_testz00_3866 = 
NULLP(BgL_objz00_55)
; } 
if(BgL_testz00_3866)
{ /* ./Ieee/output.scm 647 */
BgL_auxz00_3865 = BgL_objz00_55
; }  else 
{ /* ./Ieee/output.scm 647 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4908z00zz__r4_output_6_10_3z00, BGl_string4906z00zz__r4_output_6_10_3z00, BgL_objz00_55, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)23409))); 
exit( -1 );} } 
BgL_aux2655z00_1552 = 
BGl_xprintfz00zz__r4_output_6_10_3z00(BgL_arg1649z00_1431, BgL_arg1650z00_1432, BgL_fmtz00_54, BgL_auxz00_3865); } } 
POP_TRACE(); 
return BgL_aux2655z00_1552;} } } } 
}



/* _printf2731 */
obj_t BGl__printf2731z00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1634, obj_t BgL_fmtz00_1635, obj_t BgL_objz00_1636)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 646 */
{ /* ./Ieee/output.scm 647 */
obj_t BgL_auxz00_3875;
if(
STRINGP(BgL_fmtz00_1635))
{ /* ./Ieee/output.scm 647 */
BgL_auxz00_3875 = BgL_fmtz00_1635
; }  else 
{ /* ./Ieee/output.scm 647 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4909z00zz__r4_output_6_10_3z00, BGl_string4861z00zz__r4_output_6_10_3z00, BgL_fmtz00_1635, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)23409))); 
exit( -1 );} 
return 
BGl_printfz00zz__r4_output_6_10_3z00(BgL_auxz00_3875, BgL_objz00_1636);} } 
}



/* fprintf */
BGL_EXPORTED_DEF obj_t BGl_fprintfz00zz__r4_output_6_10_3z00(obj_t BgL_portz00_56, obj_t BgL_fmtz00_57, obj_t BgL_objz00_58)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 652 */
{ /* ./Ieee/output.scm 653 */
obj_t BgL_symbol2660z00_1553;
BgL_symbol2660z00_1553 = BGl_symbol4910z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 653 */

PUSH_TRACE(BgL_symbol2660z00_1553); BUNSPEC; 
{ /* ./Ieee/output.scm 653 */
obj_t BgL_aux2659z00_1554;
{ /* ./Ieee/output.scm 653 */
obj_t BgL_auxz00_3883;
{ /* ./Ieee/output.scm 653 */
bool_t BgL_testz00_3884;
if(
PAIRP(BgL_objz00_58))
{ /* ./Ieee/output.scm 653 */
BgL_testz00_3884 = ((bool_t)1)
; }  else 
{ /* ./Ieee/output.scm 653 */
BgL_testz00_3884 = 
NULLP(BgL_objz00_58)
; } 
if(BgL_testz00_3884)
{ /* ./Ieee/output.scm 653 */
BgL_auxz00_3883 = BgL_objz00_58
; }  else 
{ /* ./Ieee/output.scm 653 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4910z00zz__r4_output_6_10_3z00, BGl_string4906z00zz__r4_output_6_10_3z00, BgL_objz00_58, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)23737))); 
exit( -1 );} } 
BgL_aux2659z00_1554 = 
BGl_xprintfz00zz__r4_output_6_10_3z00(BGl_symbol4910z00zz__r4_output_6_10_3z00, BgL_portz00_56, BgL_fmtz00_57, BgL_auxz00_3883); } 
POP_TRACE(); 
return BgL_aux2659z00_1554;} } } } 
}



/* _fprintf2733 */
obj_t BGl__fprintf2733z00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1637, obj_t BgL_portz00_1638, obj_t BgL_fmtz00_1639, obj_t BgL_objz00_1640)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 652 */
{ /* ./Ieee/output.scm 653 */
obj_t BgL_auxz00_3899;obj_t BgL_auxz00_3893;
if(
STRINGP(BgL_fmtz00_1639))
{ /* ./Ieee/output.scm 653 */
BgL_auxz00_3899 = BgL_fmtz00_1639
; }  else 
{ /* ./Ieee/output.scm 653 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4911z00zz__r4_output_6_10_3z00, BGl_string4861z00zz__r4_output_6_10_3z00, BgL_fmtz00_1639, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)23708))); 
exit( -1 );} 
if(
OUTPUT_PORTP(BgL_portz00_1638))
{ /* ./Ieee/output.scm 653 */
BgL_auxz00_3893 = BgL_portz00_1638
; }  else 
{ /* ./Ieee/output.scm 653 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4911z00zz__r4_output_6_10_3z00, BGl_string4825z00zz__r4_output_6_10_3z00, BgL_portz00_1638, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)23708))); 
exit( -1 );} 
return 
BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_auxz00_3893, BgL_auxz00_3899, BgL_objz00_1640);} } 
}



/* set-printer! */
BGL_EXPORTED_DEF obj_t BGl_setzd2printerz12zc0zz__r4_output_6_10_3z00(obj_t BgL_fz00_59)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 668 */
{ /* ./Ieee/output.scm 669 */
obj_t BgL_symbol2664z00_1555;
BgL_symbol2664z00_1555 = BGl_symbol4912z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 669 */

PUSH_TRACE(BgL_symbol2664z00_1555); BUNSPEC; 
{ /* ./Ieee/output.scm 669 */
obj_t BgL_aux2663z00_1556;
BgL_aux2663z00_1556 = ( 
BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00 = BgL_fz00_59, BUNSPEC) ; 
POP_TRACE(); 
return BgL_aux2663z00_1556;} } } } 
}



/* _set-printer! */
obj_t BGl__setzd2printerz12zc0zz__r4_output_6_10_3z00(obj_t BgL_envz00_1641, obj_t BgL_fz00_1642)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 668 */
{ /* ./Ieee/output.scm 669 */
obj_t BgL_auxz00_3908;
if(
PROCEDUREP(BgL_fz00_1642))
{ /* ./Ieee/output.scm 669 */
BgL_auxz00_3908 = BgL_fz00_1642
; }  else 
{ /* ./Ieee/output.scm 669 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4913z00zz__r4_output_6_10_3z00, BGl_string4833z00zz__r4_output_6_10_3z00, BgL_fz00_1642, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)24591))); 
exit( -1 );} 
return 
BGl_setzd2printerz12zc0zz__r4_output_6_10_3z00(BgL_auxz00_3908);} } 
}



/* current-printer */
BGL_EXPORTED_DEF obj_t BGl_currentzd2printerzd2zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 674 */
{ /* ./Ieee/output.scm 675 */
obj_t BgL_symbol2668z00_1557;
BgL_symbol2668z00_1557 = BGl_symbol4914z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 675 */

PUSH_TRACE(BgL_symbol2668z00_1557); BUNSPEC; 
{ /* ./Ieee/output.scm 675 */
obj_t BgL_aux2667z00_1558;
{ /* ./Ieee/output.scm 675 */
obj_t BgL_aux4805z00_2013;
BgL_aux4805z00_2013 = BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00; 
if(
PROCEDUREP(BgL_aux4805z00_2013))
{ /* ./Ieee/output.scm 675 */
BgL_aux2667z00_1558 = BgL_aux4805z00_2013; }  else 
{ /* ./Ieee/output.scm 675 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol4914z00zz__r4_output_6_10_3z00, BGl_string4833z00zz__r4_output_6_10_3z00, BgL_aux4805z00_2013, BGl_string4819z00zz__r4_output_6_10_3z00, 
BINT(((long)24887))); 
exit( -1 );} } 
POP_TRACE(); 
return BgL_aux2667z00_1558;} } } } 
}



/* _current-printer */
obj_t BGl__currentzd2printerzd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1643)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 674 */
return 
BGl_currentzd2printerzd2zz__r4_output_6_10_3z00();} 
}



/* native-printer */
BGL_EXPORTED_DEF obj_t BGl_nativezd2printerzd2zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 680 */
{ /* ./Ieee/output.scm 681 */
obj_t BgL_symbol2672z00_1559;
BgL_symbol2672z00_1559 = BGl_symbol4915z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 681 */

PUSH_TRACE(BgL_symbol2672z00_1559); BUNSPEC; 
{ /* ./Ieee/output.scm 681 */
obj_t BgL_aux2671z00_1560;
BgL_aux2671z00_1560 = BGl_nativezd2displayzd2envz00zz__r4_output_6_10_3z00; 
POP_TRACE(); 
return BgL_aux2671z00_1560;} } } } 
}



/* _native-printer */
obj_t BGl__nativezd2printerzd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1644)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 680 */
return 
BGl_nativezd2printerzd2zz__r4_output_6_10_3z00();} 
}



/* method-init */
obj_t BGl_methodzd2initzd2zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 24 */
{ /* ./Ieee/output.scm 24 */
obj_t BgL_symbol2676z00_1561;
BgL_symbol2676z00_1561 = BGl_symbol4916z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 24 */

PUSH_TRACE(BgL_symbol2676z00_1561); BUNSPEC; 
POP_TRACE(); 
return BUNSPEC;} } } 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 24 */
{ /* ./Ieee/output.scm 24 */
obj_t BgL_symbol2680z00_1563;
BgL_symbol2680z00_1563 = BGl_symbol4917z00zz__r4_output_6_10_3z00; 
{ /* ./Ieee/output.scm 24 */

PUSH_TRACE(BgL_symbol2680z00_1563); BUNSPEC; 
{ /* ./Ieee/output.scm 24 */
obj_t BgL_aux2679z00_1564;
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_output_6_10_3"); 
BGl_modulezd2initializa7ationz75zz__bexitz00(((long)13855), "__r4_output_6_10_3"); 
BGl_modulezd2initializa7ationz75zz__r4_ports_6_10_1z00(((long)45566), "__r4_output_6_10_3"); 
BgL_aux2679z00_1564 = 
BGl_modulezd2initializa7ationz75zz__biglooz00(((long)48291), "__r4_output_6_10_3"); 
POP_TRACE(); 
return BgL_aux2679z00_1564;} } } } 
}

