/*===========================================================================*/
/*   (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 -O4 -mklib -cc gcc-2.95 -fsharing -q -s -copt -DBGL_NO_PIC -unsafe -c Ieee/output.scm -indent -o objs/obj_u/Ieee/output.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

#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 write_char(obj_t, obj_t);
static obj_t BGl_methodzd2initzd2zz__r4_output_6_10_3z00();
static obj_t BGl__fprintf2560z00zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t, obj_t);
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);
static obj_t BGl__printf2558z00zz__r4_output_6_10_3z00(obj_t, obj_t, 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_writezf2displayzd2tvectorz20zz__r4_output_6_10_3z00(obj_t, obj_t, bool_t);
extern obj_t display_ucs2(obj_t, obj_t);
static obj_t BGl_zc3anonymousza31083ze3z83zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t, obj_t, obj_t);
static long BGl_za2displayedza2z00zz__r4_output_6_10_3z00;
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);
static obj_t BGl_zc3anonymousza31086ze3z83zz__r4_output_6_10_3z00(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);
BGL_EXPORTED_DECL obj_t BGl_writezd2charzd22z00zz__r4_output_6_10_3z00(unsigned char, obj_t);
static obj_t BGl__displayzd22zd2zz__r4_output_6_10_3z00(obj_t, obj_t, obj_t);
static obj_t BGl_nativezd2displayzd2zz__r4_output_6_10_3z00(obj_t, obj_t);
extern char * BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl__setzd2writezd2lengthz12z12zz__r4_output_6_10_3z00(obj_t, obj_t);
extern obj_t write_symbol(obj_t, obj_t);
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);
extern obj_t display_flonum(obj_t, obj_t);
extern obj_t write_object(obj_t, obj_t);
extern obj_t BGl_za2bigloozd2strictzd2r5rszd2stringsza2zd2zz__biglooz00;
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);
extern obj_t string_to_bstring(char *);
static obj_t BGl_symbol2730z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2729z00zz__r4_output_6_10_3z00 = BUNSPEC;
static obj_t BGl_symbol2728z00zz__r4_output_6_10_3z00 = BUNSPEC;
extern obj_t display_ucs2string(obj_t, obj_t);
extern obj_t bgl_seconds_to_string(long);
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__format2556z00zz__r4_output_6_10_3z00(obj_t, obj_t, 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 long BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00;
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__illegalzd2charzd2repz00zz__r4_output_6_10_3z00(obj_t, obj_t);
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);
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_zc3anonymousza31070ze3z83zz__r4_output_6_10_3z00(obj_t);
static obj_t BGl_writezf2displayzd2structurez20zz__r4_output_6_10_3z00(obj_t, obj_t, bool_t);
extern obj_t BGl_addzd2errorzd2handlerz12z12zz__errorz00(obj_t, obj_t);
extern obj_t BGl_tvectorzd2refzd2zz__tvectorz00(obj_t);
static obj_t BGl_zc3anonymousza31072ze3z83zz__r4_output_6_10_3z00(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);
static obj_t BGl_zc3exitza31062ze3z83zz__r4_output_6_10_3z00(obj_t, 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__fprintf2560za700za7za7__r4_output_6_10_3za7002740z00, va_generic_entry, BGl__fprintf2560z00zz__r4_output_6_10_3z00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_displayzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__displayza700za7za7__r4_output_6_10_3za7002741z00, 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_3za7002742z00, 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_3za7002743z00, va_generic_entry, BGl__newlinez00zz__r4_output_6_10_3z00, -1 );
DEFINE_EXPORT_PROCEDURE( BGl_printfzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__printf2558za700za7za7__r4_output_6_10_3za7002744z00, va_generic_entry, BGl__printf2558z00zz__r4_output_6_10_3z00, -2 );
DEFINE_EXPORT_PROCEDURE( BGl_writezd2charzd2envz00zz__r4_output_6_10_3z00, BgL_bgl__writeza7d2charza7d2za7za7__r4_output_6_10_3za7002745za7, 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_3za7002746z00, 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_3za7002747za7, 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_3za7002748za7, BGl__newlinezd21zd2zz__r4_output_6_10_3z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_setzd2printerz12zd2envz12zz__r4_output_6_10_3z00, BgL_bgl__setza7d2printerza712za7c0za7za7__r4_output_6_10_3za7002749z00, BGl__setzd2printerz12zc0zz__r4_output_6_10_3z00, 0L, 1 );
DEFINE_STRING( BGl_string2727z00zz__r4_output_6_10_3z00, BgL_bgl_string2727za700za7za7__r4_output_6_10_3za7002750z00, "Illegal tag", 11 );
DEFINE_STRING( BGl_string2726z00zz__r4_output_6_10_3z00, BgL_bgl_string2726za700za7za7__r4_output_6_10_3za7002751z00, "Illegal number", 14 );
DEFINE_STRING( BGl_string2725z00zz__r4_output_6_10_3z00, BgL_bgl_string2725za700za7za7__r4_output_6_10_3za7002752z00, "Illegal char", 12 );
DEFINE_STRING( BGl_string2724z00zz__r4_output_6_10_3z00, BgL_bgl_string2724za700za7za7__r4_output_6_10_3za7002753z00, "Insufficient number of arguments", 32 );
DEFINE_STRING( BGl_string2723z00zz__r4_output_6_10_3z00, BgL_bgl_string2723za700za7za7__r4_output_6_10_3za7002754z00, "Tag not allowd here", 19 );
DEFINE_STRING( BGl_string2722z00zz__r4_output_6_10_3z00, BgL_bgl_string2722za700za7za7__r4_output_6_10_3za7002755z00, " . ... )", 8 );
DEFINE_STRING( BGl_string2721z00zz__r4_output_6_10_3z00, BgL_bgl_string2721za700za7za7__r4_output_6_10_3za7002756z00, "...)", 4 );
DEFINE_STRING( BGl_string2720z00zz__r4_output_6_10_3z00, BgL_bgl_string2720za700za7za7__r4_output_6_10_3za7002757z00, "... )", 5 );
DEFINE_STRING( BGl_string2719z00zz__r4_output_6_10_3z00, BgL_bgl_string2719za700za7za7__r4_output_6_10_3za7002758z00, "... }", 5 );
DEFINE_STRING( BGl_string2718z00zz__r4_output_6_10_3z00, BgL_bgl_string2718za700za7za7__r4_output_6_10_3za7002759z00, "#<date:", 7 );
DEFINE_STRING( BGl_string2717z00zz__r4_output_6_10_3z00, BgL_bgl_string2717za700za7za7__r4_output_6_10_3za7002760z00, "#<opaque>", 9 );
DEFINE_STRING( BGl_string2716z00zz__r4_output_6_10_3z00, BgL_bgl_string2716za700za7za7__r4_output_6_10_3za7002761z00, "#<cell:", 7 );
DEFINE_STRING( BGl_string2715z00zz__r4_output_6_10_3z00, BgL_bgl_string2715za700za7za7__r4_output_6_10_3za7002762z00, ">", 1 );
DEFINE_STRING( BGl_string2714z00zz__r4_output_6_10_3z00, BgL_bgl_string2714za700za7za7__r4_output_6_10_3za7002763z00, "#<class:", 8 );
DEFINE_STRING( BGl_string2713z00zz__r4_output_6_10_3z00, BgL_bgl_string2713za700za7za7__r4_output_6_10_3za7002764z00, "...", 3 );
DEFINE_STRING( BGl_string2712z00zz__r4_output_6_10_3z00, BgL_bgl_string2712za700za7za7__r4_output_6_10_3za7002765z00, "#Tab", 4 );
DEFINE_STRING( BGl_string2711z00zz__r4_output_6_10_3z00, BgL_bgl_string2711za700za7za7__r4_output_6_10_3za7002766z00, "#Space", 6 );
DEFINE_STRING( BGl_string2710z00zz__r4_output_6_10_3z00, BgL_bgl_string2710za700za7za7__r4_output_6_10_3za7002767z00, "#Return", 7 );
DEFINE_STRING( BGl_string2709z00zz__r4_output_6_10_3z00, BgL_bgl_string2709za700za7za7__r4_output_6_10_3za7002768z00, "#Newline", 8 );
DEFINE_STRING( BGl_string2708z00zz__r4_output_6_10_3z00, BgL_bgl_string2708za700za7za7__r4_output_6_10_3za7002769z00, "write", 5 );
DEFINE_STRING( BGl_string2707z00zz__r4_output_6_10_3z00, BgL_bgl_string2707za700za7za7__r4_output_6_10_3za7002770z00, "display", 7 );
DEFINE_STRING( BGl_string2706z00zz__r4_output_6_10_3z00, BgL_bgl_string2706za700za7za7__r4_output_6_10_3za7002771z00, "wrong number of optional arguments", 34 );
DEFINE_STRING( BGl_string2705z00zz__r4_output_6_10_3z00, BgL_bgl_string2705za700za7za7__r4_output_6_10_3za7002772z00, "newline", 7 );
DEFINE_EXPORT_PROCEDURE( BGl_displayzd22zd2envz00zz__r4_output_6_10_3z00, BgL_bgl__displayza7d22za7d2za7za7__r4_output_6_10_3za7002773za7, 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_3za7002774za7, 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_3za7002775za7, BGl__nativezd2printerzd2zz__r4_output_6_10_3z00, 0L, 0 );
DEFINE_EXPORT_PROCEDURE( BGl_formatzd2envzd2zz__r4_output_6_10_3z00, BgL_bgl__format2556za700za7za7__r4_output_6_10_3za7002776z00, va_generic_entry, BGl__format2556z00zz__r4_output_6_10_3z00, -2 );
DEFINE_STATIC_PROCEDURE( BGl_nativezd2displayzd2envz00zz__r4_output_6_10_3z00, BgL_bgl__nativeza7d2displayza7d2za7za7__r4_output_6_10_3za7002777za7, 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_3za7002778za7, 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_3za7002779z00, 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_3za7002780za7, 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_3za7002781z00, 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_3za7002782z00, 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_3za7002783za7, 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_3za7002784z00, 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_1621, char * BgL_fromz00_1622)
{ 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_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_symbol2728z00zz__r4_output_6_10_3z00 = 
string_to_symbol("format"); 
BGl_symbol2729z00zz__r4_output_6_10_3z00 = 
string_to_symbol("printf"); 
return ( 
BGl_symbol2730z00zz__r4_output_6_10_3z00 = 
string_to_symbol("fprintf"), BUNSPEC) ;} 
}



/* toplevel-init */
obj_t BGl_toplevelzd2initzd2zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 24 */
BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00 = ((long)-1); 
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = ((long)0); 
BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00 = BUNSPEC; 
return ( 
BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00 = BGl_nativezd2displayzd2envz00zz__r4_output_6_10_3z00, BUNSPEC) ;} 
}



/* 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 */
return ( 
BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00 = BgL_lengthz00_1, BUNSPEC) ;} 
}



/* _set-write-length! */
obj_t BGl__setzd2writezd2lengthz12z12zz__r4_output_6_10_3z00(obj_t BgL_envz00_1536, obj_t BgL_lengthz00_1537)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 162 */
return 
BGl_setzd2writezd2lengthz12z12zz__r4_output_6_10_3z00(
(long)CINT(BgL_lengthz00_1537));} 
}



/* get-write-length */
BGL_EXPORTED_DEF long BGl_getzd2writezd2lengthz00zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 168 */
if(((bool_t)1))
{ /* ./Ieee/output.scm 169 */
return BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00;}  else 
{ /* ./Ieee/output.scm 169 */
return ((long)-1);} } 
}



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



/* 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_portz00_537;
if(
NULLP(BgL_portz00_2))
{ /* ./Ieee/output.scm 177 */
BgL_portz00_537 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Ieee/output.scm 177 */
if(
PAIRP(BgL_portz00_2))
{ /* ./Ieee/output.scm 177 */
bool_t BgL_testz00_1643;
{ /* ./Ieee/output.scm 177 */
obj_t BgL_auxz00_1644;
BgL_auxz00_1644 = 
CDR(BgL_portz00_2); 
BgL_testz00_1643 = 
NULLP(BgL_auxz00_1644); } 
if(BgL_testz00_1643)
{ /* ./Ieee/output.scm 177 */
BgL_portz00_537 = 
CAR(BgL_portz00_2); }  else 
{ /* ./Ieee/output.scm 177 */
FAILURE(BGl_string2705z00zz__r4_output_6_10_3z00,BGl_string2706z00zz__r4_output_6_10_3z00,BgL_portz00_2);} }  else 
{ /* ./Ieee/output.scm 177 */
FAILURE(BGl_string2705z00zz__r4_output_6_10_3z00,BGl_string2706z00zz__r4_output_6_10_3z00,BgL_portz00_2);} } 
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_537);} } 
}



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



/* 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 */
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_3);} 
}



/* _newline-1 */
obj_t BGl__newlinezd21zd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1541, obj_t BgL_portz00_1542)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 191 */
return 
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_1542);} 
}



/* 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_portz00_546;
if(
NULLP(BgL_portz00_5))
{ /* ./Ieee/output.scm 198 */
BgL_portz00_546 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Ieee/output.scm 198 */
if(
PAIRP(BgL_portz00_5))
{ /* ./Ieee/output.scm 198 */
bool_t BgL_testz00_1659;
{ /* ./Ieee/output.scm 198 */
obj_t BgL_auxz00_1660;
BgL_auxz00_1660 = 
CDR(BgL_portz00_5); 
BgL_testz00_1659 = 
NULLP(BgL_auxz00_1660); } 
if(BgL_testz00_1659)
{ /* ./Ieee/output.scm 198 */
BgL_portz00_546 = 
CAR(BgL_portz00_5); }  else 
{ /* ./Ieee/output.scm 198 */
FAILURE(BGl_string2707z00zz__r4_output_6_10_3z00,BGl_string2706z00zz__r4_output_6_10_3z00,BgL_portz00_5);} }  else 
{ /* ./Ieee/output.scm 198 */
FAILURE(BGl_string2707z00zz__r4_output_6_10_3z00,BGl_string2706z00zz__r4_output_6_10_3z00,BgL_portz00_5);} } 
return 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_objz00_4, BgL_portz00_546);} } 
}



/* _display */
obj_t BGl__displayz00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1543, obj_t BgL_objz00_1544, obj_t BgL_portz00_1545)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 197 */
return 
BGl_displayz00zz__r4_output_6_10_3z00(BgL_objz00_1544, BgL_portz00_1545);} 
}



/* 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 */
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = ((long)0); 
{ /* ./Ieee/output.scm 214 */
bool_t BgL_test1060z00_555;
if(
(BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00==BGl_nativezd2displayzd2envz00zz__r4_output_6_10_3z00))
{ /* ./Ieee/output.scm 214 */
BgL_test1060z00_555 = ((bool_t)1); }  else 
{ /* ./Ieee/output.scm 214 */
if(
PROCEDUREP(BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00))
{ /* ./Ieee/output.scm 215 */
BgL_test1060z00_555 = ((bool_t)0); }  else 
{ /* ./Ieee/output.scm 215 */
BgL_test1060z00_555 = ((bool_t)1); } } 
if(BgL_test1060z00_555)
{ /* ./Ieee/output.scm 214 */
return 
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_zc3anonymousza31086ze3z83_1547;obj_t BgL_zc3anonymousza31083ze3z83_1549;
{ 
int BgL_auxz00_1676;int BgL_auxz00_1674;
BgL_auxz00_1676 = 
(int)(((long)2)); 
BgL_auxz00_1674 = 
(int)(((long)0)); 
BgL_zc3anonymousza31086ze3z83_1547 = 
make_fx_procedure(BGl_zc3anonymousza31086ze3z83zz__r4_output_6_10_3z00, BgL_auxz00_1674, BgL_auxz00_1676); } 
{ 
int BgL_auxz00_1681;int BgL_auxz00_1679;
BgL_auxz00_1681 = 
(int)(((long)1)); 
BgL_auxz00_1679 = 
(int)(((long)4)); 
BgL_zc3anonymousza31083ze3z83_1549 = 
make_fx_procedure(BGl_zc3anonymousza31083ze3z83zz__r4_output_6_10_3z00, BgL_auxz00_1679, BgL_auxz00_1681); } 
{ /* ./Ieee/output.scm 219 */
int BgL_auxz00_1684;
BgL_auxz00_1684 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31086ze3z83_1547, BgL_auxz00_1684, BgL_objz00_6); } 
{ /* ./Ieee/output.scm 219 */
int BgL_auxz00_1687;
BgL_auxz00_1687 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31086ze3z83_1547, BgL_auxz00_1687, BgL_portz00_7); } 
{ /* ./Ieee/output.scm 219 */
int BgL_auxz00_1690;
BgL_auxz00_1690 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31083ze3z83_1549, BgL_auxz00_1690, BgL_armed1010z00_556); } 
CELL_SET(BgL_armed1010z00_556, BTRUE); 
return 
BGl_zc3exitza31062ze3z83zz__r4_output_6_10_3z00(BgL_zc3anonymousza31086ze3z83_1547, BgL_zc3anonymousza31083ze3z83_1549, BgL_armed1010z00_556);} } } } 
}



/* <exit:1062> */
obj_t BGl_zc3exitza31062ze3z83zz__r4_output_6_10_3z00(obj_t BgL_zc3anonymousza31086ze3z83_1615, obj_t BgL_zc3anonymousza31083ze3z83_1614, obj_t BgL_armed1010z00_1613)
{ 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_1548;
{ 
int BgL_auxz00_1700;int BgL_auxz00_1698;
BgL_auxz00_1700 = 
(int)(((long)1)); 
BgL_auxz00_1698 = 
(int)(((long)1)); 
BgL_escapez00_1548 = 
make_fx_procedure(BGl_escapez00zz__r4_output_6_10_3z00, BgL_auxz00_1698, BgL_auxz00_1700); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1703;
BgL_auxz00_1703 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_escapez00_1548, BgL_auxz00_1703, BgL_an_exitd1012z00_562); } 
{ /* ./Ieee/output.scm 218 */
obj_t BgL_res1014z00_565;
{ /* ./Ieee/output.scm 218 */
obj_t BgL_zc3anonymousza31072ze3z83_1546;obj_t BgL_zc3anonymousza31070ze3z83_1550;
{ 
int BgL_auxz00_1708;int BgL_auxz00_1706;
BgL_auxz00_1708 = 
(int)(((long)1)); 
BgL_auxz00_1706 = 
(int)(((long)0)); 
BgL_zc3anonymousza31072ze3z83_1546 = 
make_fx_procedure(BGl_zc3anonymousza31072ze3z83zz__r4_output_6_10_3z00, BgL_auxz00_1706, BgL_auxz00_1708); } 
{ 
int BgL_auxz00_1713;int BgL_auxz00_1711;
BgL_auxz00_1713 = 
(int)(((long)4)); 
BgL_auxz00_1711 = 
(int)(((long)0)); 
BgL_zc3anonymousza31070ze3z83_1550 = 
make_fx_procedure(BGl_zc3anonymousza31070ze3z83zz__r4_output_6_10_3z00, BgL_auxz00_1711, BgL_auxz00_1713); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1716;
BgL_auxz00_1716 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31072ze3z83_1546, BgL_auxz00_1716, BgL_armed1010z00_1613); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1719;
BgL_auxz00_1719 = 
(int)(((long)0)); 
PROCEDURE_SET(BgL_zc3anonymousza31070ze3z83_1550, BgL_auxz00_1719, BgL_an_exitd1012z00_562); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1722;
BgL_auxz00_1722 = 
(int)(((long)1)); 
PROCEDURE_SET(BgL_zc3anonymousza31070ze3z83_1550, BgL_auxz00_1722, BgL_armed1010z00_1613); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1725;
BgL_auxz00_1725 = 
(int)(((long)2)); 
PROCEDURE_SET(BgL_zc3anonymousza31070ze3z83_1550, BgL_auxz00_1725, BgL_zc3anonymousza31083ze3z83_1614); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1728;
BgL_auxz00_1728 = 
(int)(((long)3)); 
PROCEDURE_SET(BgL_zc3anonymousza31070ze3z83_1550, BgL_auxz00_1728, BgL_escapez00_1548); } 
BgL_res1014z00_565 = 
BGl_dynamiczd2windzd2zz__r4_control_features_6_9z00(BgL_zc3anonymousza31070ze3z83_1550, BgL_zc3anonymousza31086ze3z83_1615, BgL_zc3anonymousza31072ze3z83_1546); } 
POP_EXIT(); 
return BgL_res1014z00_565;} } } } 
} } 
}



/* _display-2 */
obj_t BGl__displayzd22zd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1551, obj_t BgL_objz00_1552, obj_t BgL_portz00_1553)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 212 */
return 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_objz00_1552, BgL_portz00_1553);} 
}



/* <anonymous:1072> */
obj_t BGl_zc3anonymousza31072ze3z83zz__r4_output_6_10_3z00(obj_t BgL_envz00_1554)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
{ /* ./Ieee/output.scm 218 */
obj_t BgL_armed1010z00_1555;
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1734;
BgL_auxz00_1734 = 
(int)(((long)0)); 
BgL_armed1010z00_1555 = 
PROCEDURE_REF(BgL_envz00_1554, BgL_auxz00_1734); } 
{ 

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



/* <anonymous:1086> */
obj_t BGl_zc3anonymousza31086ze3z83zz__r4_output_6_10_3z00(obj_t BgL_envz00_1557)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
{ /* ./Ieee/output.scm 217 */
obj_t BgL_objz00_1558;obj_t BgL_portz00_1559;
{ /* ./Ieee/output.scm 217 */
int BgL_auxz00_1741;
BgL_auxz00_1741 = 
(int)(((long)0)); 
BgL_objz00_1558 = 
PROCEDURE_REF(BgL_envz00_1557, BgL_auxz00_1741); } 
{ /* ./Ieee/output.scm 217 */
int BgL_auxz00_1744;
BgL_auxz00_1744 = 
(int)(((long)1)); 
BgL_portz00_1559 = 
PROCEDURE_REF(BgL_envz00_1557, BgL_auxz00_1744); } 
{ 

return 
PROCEDURE_ENTRY(BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00)(BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00, BgL_objz00_1558, BgL_portz00_1559, BEOA);} } } 
}



/* <anonymous:1070> */
obj_t BGl_zc3anonymousza31070ze3z83zz__r4_output_6_10_3z00(obj_t BgL_envz00_1560)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
{ /* ./Ieee/output.scm 218 */
obj_t BgL_zc3anonymousza31083ze3z83_1563;obj_t BgL_escapez00_1564;
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1749;
BgL_auxz00_1749 = 
(int)(((long)2)); 
BgL_zc3anonymousza31083ze3z83_1563 = 
PROCEDURE_REF(BgL_envz00_1560, BgL_auxz00_1749); } 
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1752;
BgL_auxz00_1752 = 
(int)(((long)3)); 
BgL_escapez00_1564 = 
PROCEDURE_REF(BgL_envz00_1560, BgL_auxz00_1752); } 
{ 

return 
BGl_addzd2errorzd2handlerz12z12zz__errorz00(BgL_zc3anonymousza31083ze3z83_1563, BgL_escapez00_1564);} } } 
}



/* escape */
obj_t BGl_escapez00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1565, obj_t BgL_val1013z00_1567)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
{ /* ./Ieee/output.scm 218 */
obj_t BgL_an_exitd1012z00_1566;
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1756;
BgL_auxz00_1756 = 
(int)(((long)0)); 
BgL_an_exitd1012z00_1566 = 
PROCEDURE_REF(BgL_envz00_1565, BgL_auxz00_1756); } 
{ 
obj_t BgL_val1013z00_563;
BgL_val1013z00_563 = BgL_val1013z00_1567; 
return 
BGl_unwindzd2untilz12zc0zz__bexitz00(BgL_an_exitd1012z00_1566, BgL_val1013z00_563);} } } 
}



/* <anonymous:1083> */
obj_t BGl_zc3anonymousza31083ze3z83zz__r4_output_6_10_3z00(obj_t BgL_envz00_1568, obj_t BgL_escz00_1570, obj_t BgL_objz00_1571, obj_t BgL_procz00_1572, obj_t BgL_msgz00_1573)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 218 */
{ /* ./Ieee/output.scm 218 */
obj_t BgL_armed1010z00_1569;
{ /* ./Ieee/output.scm 218 */
int BgL_auxz00_1760;
BgL_auxz00_1760 = 
(int)(((long)0)); 
BgL_armed1010z00_1569 = 
PROCEDURE_REF(BgL_envz00_1568, BgL_auxz00_1760); } 
{ 
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_1570; 
BgL_objz00_579 = BgL_objz00_1571; 
BgL_procz00_580 = BgL_procz00_1572; 
BgL_msgz00_581 = BgL_msgz00_1573; 
CELL_SET(BgL_armed1010z00_1569, BFALSE); 
BGl_removezd2errorzd2handlerz12z12zz__errorz00(); 
{ /* ./Ieee/output.scm 218 */
obj_t BgL_arg1079z00_1065;
BgL_arg1079z00_1065 = BGl_nativezd2displayzd2envz00zz__r4_output_6_10_3z00; 
BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00 = BgL_arg1079z00_1065; } 
FAILURE(BgL_objz00_579,BgL_procz00_580,BgL_msgz00_581);} } } 
}



/* 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 */
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = ((long)0); 
{ /* ./Ieee/output.scm 228 */
obj_t BgL_arg1093z00_589;
{ /* ./Ieee/output.scm 228 */
bool_t BgL_test1095z00_590;
if(
PAIRP(BgL_portz00_9))
{ /* ./Ieee/output.scm 228 */
bool_t BgL_testz00_1767;
{ /* ./Ieee/output.scm 228 */
obj_t BgL_auxz00_1768;
BgL_auxz00_1768 = 
CAR(BgL_portz00_9); 
BgL_testz00_1767 = 
OUTPUT_PORTP(BgL_auxz00_1768); } 
if(BgL_testz00_1767)
{ /* ./Ieee/output.scm 228 */
BgL_test1095z00_590 = ((bool_t)0); }  else 
{ /* ./Ieee/output.scm 228 */
BgL_test1095z00_590 = ((bool_t)1); } }  else 
{ /* ./Ieee/output.scm 228 */
BgL_test1095z00_590 = ((bool_t)1); } 
if(BgL_test1095z00_590)
{ /* ./Ieee/output.scm 228 */
BgL_arg1093z00_589 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Ieee/output.scm 228 */
BgL_arg1093z00_589 = 
CAR(BgL_portz00_9); } } 
return 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_objz00_8, BgL_arg1093z00_589, ((bool_t)1));} } 
}



/* _native-display */
obj_t BGl__nativezd2displayzd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1533, obj_t BgL_objz00_1534, obj_t BgL_portz00_1535)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 225 */
return 
BGl_nativezd2displayzd2zz__r4_output_6_10_3z00(BgL_objz00_1534, BgL_portz00_1535);} 
}



/* 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_portz00_594;
if(
NULLP(BgL_portz00_11))
{ /* ./Ieee/output.scm 237 */
BgL_portz00_594 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Ieee/output.scm 237 */
if(
PAIRP(BgL_portz00_11))
{ /* ./Ieee/output.scm 237 */
bool_t BgL_testz00_1781;
{ /* ./Ieee/output.scm 237 */
obj_t BgL_auxz00_1782;
BgL_auxz00_1782 = 
CDR(BgL_portz00_11); 
BgL_testz00_1781 = 
NULLP(BgL_auxz00_1782); } 
if(BgL_testz00_1781)
{ /* ./Ieee/output.scm 237 */
BgL_portz00_594 = 
CAR(BgL_portz00_11); }  else 
{ /* ./Ieee/output.scm 237 */
FAILURE(BGl_string2708z00zz__r4_output_6_10_3z00,BGl_string2706z00zz__r4_output_6_10_3z00,BgL_portz00_11);} }  else 
{ /* ./Ieee/output.scm 237 */
FAILURE(BGl_string2708z00zz__r4_output_6_10_3z00,BGl_string2706z00zz__r4_output_6_10_3z00,BgL_portz00_11);} } 
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = ((long)0); 
return 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_objz00_10, BgL_portz00_594, ((bool_t)0));} } 
}



/* _write */
obj_t BGl__writez00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1576, obj_t BgL_objz00_1577, obj_t BgL_portz00_1578)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 236 */
return 
BGl_writez00zz__r4_output_6_10_3z00(BgL_objz00_1577, BgL_portz00_1578);} 
}



/* 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 */
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = ((long)0); 
return 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_objz00_12, BgL_portz00_13, ((bool_t)0));} 
}



/* _write-2 */
obj_t BGl__writezd22zd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1579, obj_t BgL_objz00_1580, obj_t BgL_portz00_1581)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 251 */
return 
BGl_writezd22zd2zz__r4_output_6_10_3z00(BgL_objz00_1580, BgL_portz00_1581);} 
}



/* 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_portz00_603;
if(
NULLP(BgL_portz00_15))
{ /* ./Ieee/output.scm 259 */
BgL_portz00_603 = 
BGL_CURRENT_OUTPUT_PORT(); }  else 
{ /* ./Ieee/output.scm 259 */
if(
PAIRP(BgL_portz00_15))
{ /* ./Ieee/output.scm 259 */
bool_t BgL_testz00_1797;
{ /* ./Ieee/output.scm 259 */
obj_t BgL_auxz00_1798;
BgL_auxz00_1798 = 
CDR(BgL_portz00_15); 
BgL_testz00_1797 = 
NULLP(BgL_auxz00_1798); } 
if(BgL_testz00_1797)
{ /* ./Ieee/output.scm 259 */
BgL_portz00_603 = 
CAR(BgL_portz00_15); }  else 
{ /* ./Ieee/output.scm 259 */
FAILURE(BGl_string2708z00zz__r4_output_6_10_3z00,BGl_string2706z00zz__r4_output_6_10_3z00,BgL_portz00_15);} }  else 
{ /* ./Ieee/output.scm 259 */
FAILURE(BGl_string2708z00zz__r4_output_6_10_3z00,BGl_string2706z00zz__r4_output_6_10_3z00,BgL_portz00_15);} } 
return 
WRITE_CHAR(BgL_charz00_14, BgL_portz00_603);} } 
}



/* _write-char */
obj_t BGl__writezd2charzd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1582, obj_t BgL_charz00_1583, obj_t BgL_portz00_1584)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 258 */
return 
BGl_writezd2charzd2zz__r4_output_6_10_3z00(
(unsigned char)CCHAR(BgL_charz00_1583), BgL_portz00_1584);} 
}



/* 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 */
return 
WRITE_CHAR(BgL_charz00_16, BgL_portz00_17);} 
}



/* _write-char-2 */
obj_t BGl__writezd2charzd22z00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1585, obj_t BgL_charz00_1586, obj_t BgL_portz00_1587)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 273 */
{ /* ./Ieee/output.scm 274 */
unsigned char BgL_auxz00_1808;
BgL_auxz00_1808 = 
(unsigned char)CCHAR(BgL_charz00_1586); 
return 
WRITE_CHAR(BgL_auxz00_1808, BgL_portz00_1587);} } 
}



/* 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 */
bool_t BgL_test1141z00_612;
{ /* ./Ieee/output.scm 280 */
bool_t BgL_test1153z00_619;
{ /* ./Ieee/output.scm 280 */
bool_t BgL_res2520z00_1110;
BgL_res2520z00_1110 = 
isalpha(BgL_charz00_18); 
BgL_test1153z00_619 = BgL_res2520z00_1110; } 
if(BgL_test1153z00_619)
{ /* ./Ieee/output.scm 280 */
BgL_test1141z00_612 = ((bool_t)1); }  else 
{ /* ./Ieee/output.scm 280 */
bool_t BgL_res2521z00_1112;
BgL_res2521z00_1112 = 
isdigit(BgL_charz00_18); 
BgL_test1141z00_612 = BgL_res2521z00_1112; } } 
if(BgL_test1141z00_612)
{ /* ./Ieee/output.scm 280 */
return 
BCHAR(BgL_charz00_18);}  else 
{ 

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

return BGl_string2709z00zz__r4_output_6_10_3z00;break;case ((unsigned char)'\r') : 

return BGl_string2710z00zz__r4_output_6_10_3z00;break;case ((unsigned char)' ') : 

return BGl_string2711z00zz__r4_output_6_10_3z00;break;case ((unsigned char)'\t') : 

return BGl_string2712z00zz__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_1817;
{ /* ./Ieee/output.scm 293 */
long BgL_auxz00_1818;
BgL_auxz00_1818 = 
(((unsigned char)'!')); 
BgL_testz00_1817 = 
(BgL_iz00_616<BgL_auxz00_1818); } 
if(BgL_testz00_1817)
{ /* ./Ieee/output.scm 293 */
return 
ill_char_rep(BgL_charz00_18);}  else 
{ /* ./Ieee/output.scm 293 */
return 
BCHAR(BgL_charz00_18);} } } } } } } 
}



/* _illegal-char-rep */
obj_t BGl__illegalzd2charzd2repz00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1588, obj_t BgL_charz00_1589)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 279 */
return 
BGl_illegalzd2charzd2repz00zz__r4_output_6_10_3z00(
(unsigned char)CCHAR(BgL_charz00_1589));} 
}



/* 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 */
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = 
(((long)1)+BGl_za2displayedza2z00zz__r4_output_6_10_3z00); 
{ /* ./Ieee/output.scm 310 */
bool_t BgL_test1157z00_620;
if(((bool_t)1))
{ /* ./Ieee/output.scm 310 */
if(
(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00>((long)0)))
{ /* ./Ieee/output.scm 311 */
BgL_test1157z00_620 = 
(BGl_za2displayedza2z00zz__r4_output_6_10_3z00>=BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00); }  else 
{ /* ./Ieee/output.scm 311 */
BgL_test1157z00_620 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 310 */
BgL_test1157z00_620 = ((bool_t)0); } 
if(BgL_test1157z00_620)
{ /* ./Ieee/output.scm 310 */
display_string(BGl_string2713z00zz__r4_output_6_10_3z00, BgL_portz00_20); }  else 
{ /* ./Ieee/output.scm 310 */
if(
INTEGERP(BgL_objz00_19))
{ /* ./Ieee/output.scm 314 */
display_fixnum(BgL_objz00_19, BgL_portz00_20); }  else 
{ /* ./Ieee/output.scm 314 */
if(
SYMBOLP(BgL_objz00_19))
{ /* ./Ieee/output.scm 316 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 317 */
display_symbol(BgL_objz00_19, BgL_portz00_20); }  else 
{ /* ./Ieee/output.scm 317 */
write_symbol(BgL_objz00_19, BgL_portz00_20); } }  else 
{ /* ./Ieee/output.scm 316 */
if(
STRINGP(BgL_objz00_19))
{ /* ./Ieee/output.scm 320 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 321 */
display_string(BgL_objz00_19, BgL_portz00_20); }  else 
{ /* ./Ieee/output.scm 323 */
obj_t BgL_arg1169z00_624;
BgL_arg1169z00_624 = 
string_for_read(BgL_objz00_19); 
{ /* ./Ieee/output.scm 323 */
bool_t BgL_auxz00_1846;
BgL_auxz00_1846 = 
CBOOL(BGl_za2bigloozd2strictzd2r5rszd2stringsza2zd2zz__biglooz00); 
write_string(BgL_arg1169z00_624, BgL_auxz00_1846, BgL_portz00_20); } } }  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 */
display_string(BGl_string2714z00zz__r4_output_6_10_3z00, BgL_portz00_20); 
{ /* ./Ieee/output.scm 329 */
obj_t BgL_auxz00_1855;
BgL_auxz00_1855 = 
BGl_classzd2namezd2zz__objectz00(BgL_objz00_19); 
display_symbol(BgL_auxz00_1855, BgL_portz00_20); } 
display_string(BGl_string2715z00zz__r4_output_6_10_3z00, BgL_portz00_20); }  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 330 */
if(
CHARP(BgL_objz00_19))
{ /* ./Ieee/output.scm 332 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 333 */
display_char(BgL_objz00_19, BgL_portz00_20); }  else 
{ /* ./Ieee/output.scm 333 */
write_char(BgL_objz00_19, BgL_portz00_20); } }  else 
{ /* ./Ieee/output.scm 332 */
if(
UCS2P(BgL_objz00_19))
{ /* ./Ieee/output.scm 336 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 337 */
display_ucs2(BgL_objz00_19, BgL_portz00_20); }  else 
{ /* ./Ieee/output.scm 337 */
write_ucs2(BgL_objz00_19, BgL_portz00_20); } }  else 
{ /* ./Ieee/output.scm 336 */
if(
REALP(BgL_objz00_19))
{ /* ./Ieee/output.scm 340 */
display_flonum(BgL_objz00_19, BgL_portz00_20); }  else 
{ /* ./Ieee/output.scm 340 */
if(
CELLP(BgL_objz00_19))
{ /* ./Ieee/output.scm 342 */
display_string(BGl_string2716z00zz__r4_output_6_10_3z00, BgL_portz00_20); 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(
CELL_REF(BgL_objz00_19), BgL_portz00_20, BgL_flagz00_21); 
display_string(BGl_string2715z00zz__r4_output_6_10_3z00, BgL_portz00_20); }  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_test1192z00_634;
BgL_test1192z00_634 = 
BGL_OBJECTP(BgL_objz00_19); 
if(BgL_test1192z00_634)
{ /* ./Ieee/output.scm 348 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 349 */
obj_t BgL_list1388z00_1147;
BgL_list1388z00_1147 = 
MAKE_PAIR(BgL_portz00_20, BNIL); 
BGl_objectzd2displayzd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_19), BgL_list1388z00_1147); }  else 
{ /* ./Ieee/output.scm 349 */
obj_t BgL_list1391z00_1148;
BgL_list1391z00_1148 = 
MAKE_PAIR(BgL_portz00_20, BNIL); 
BGl_objectzd2writezd2zz__objectz00(
(BgL_objectz00_bglt)(BgL_objz00_19), BgL_list1391z00_1148); } }  else 
{ /* ./Ieee/output.scm 348 */
if(
UCS2_STRINGP(BgL_objz00_19))
{ /* ./Ieee/output.scm 350 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 351 */
display_ucs2string(BgL_objz00_19, BgL_portz00_20); }  else 
{ /* ./Ieee/output.scm 353 */
obj_t BgL_auxz00_1900;
{ /* ./Ieee/output.scm 353 */
obj_t BgL_auxz00_1901;
BgL_auxz00_1901 = 
ucs2_string_to_utf8_string(BgL_objz00_19); 
BgL_auxz00_1900 = 
string_for_read(BgL_auxz00_1901); } 
write_utf8string(BgL_auxz00_1900, BgL_portz00_20); } }  else 
{ /* ./Ieee/output.scm 350 */
if(
OPAQUEP(BgL_objz00_19))
{ /* ./Ieee/output.scm 355 */
display_string(BGl_string2717z00zz__r4_output_6_10_3z00, BgL_portz00_20); }  else 
{ /* ./Ieee/output.scm 357 */
bool_t BgL_test1205z00_639;
BgL_test1205z00_639 = 
BGL_DATEP(BgL_objz00_19); 
if(BgL_test1205z00_639)
{ /* ./Ieee/output.scm 357 */
if(BgL_flagz00_21)
{ /* ./Ieee/output.scm 359 */
obj_t BgL_auxz00_1911;
{ /* ./Ieee/output.scm 359 */
long BgL_auxz00_1912;
BgL_auxz00_1912 = 
bgl_date_to_seconds(BgL_objz00_19); 
BgL_auxz00_1911 = 
bgl_seconds_to_string(BgL_auxz00_1912); } 
display_string(BgL_auxz00_1911, BgL_portz00_20); }  else 
{ /* ./Ieee/output.scm 358 */
display_string(BGl_string2718z00zz__r4_output_6_10_3z00, BgL_portz00_20); 
{ /* ./Ieee/output.scm 362 */
obj_t BgL_auxz00_1917;
{ /* ./Ieee/output.scm 362 */
long BgL_auxz00_1918;
BgL_auxz00_1918 = 
bgl_date_to_seconds(BgL_objz00_19); 
BgL_auxz00_1917 = 
bgl_seconds_to_string(BgL_auxz00_1918); } 
display_string(BgL_auxz00_1917, BgL_portz00_20); } 
display_string(BGl_string2715z00zz__r4_output_6_10_3z00, BgL_portz00_20); } }  else 
{ /* ./Ieee/output.scm 357 */
write_object(BgL_objz00_19, BgL_portz00_20); } } } } } } } } } } } } } } } } } } 
return BUNSPEC;} 
}



/* 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 */
WRITE_CHAR(((unsigned char)'#'), BgL_portz00_29); 
WRITE_CHAR(((unsigned char)'{'), BgL_portz00_29); 
{ /* ./Ieee/output.scm 390 */
obj_t BgL_auxz00_1926;
BgL_auxz00_1926 = 
STRUCT_KEY(BgL_objz00_28); 
write_object(BgL_auxz00_1926, BgL_portz00_29); } 
{ /* ./Ieee/output.scm 391 */
bool_t BgL_testz00_1929;
{ /* ./Ieee/output.scm 391 */
long BgL_auxz00_1930;
{ /* ./Ieee/output.scm 391 */
int BgL_auxz00_1931;
BgL_auxz00_1931 = 
STRUCT_LENGTH(BgL_objz00_28); 
BgL_auxz00_1930 = 
(long)(BgL_auxz00_1931); } 
BgL_testz00_1929 = 
(((long)0)==BgL_auxz00_1930); } 
if(BgL_testz00_1929)
{ /* ./Ieee/output.scm 391 */
return 
WRITE_CHAR(((unsigned char)'}'), BgL_portz00_29);}  else 
{ /* ./Ieee/output.scm 393 */
long BgL_lenz00_648;
{ /* ./Ieee/output.scm 393 */
long BgL_auxz00_1936;
{ /* ./Ieee/output.scm 393 */
int BgL_auxz00_1937;
BgL_auxz00_1937 = 
STRUCT_LENGTH(BgL_objz00_28); 
BgL_auxz00_1936 = 
(long)(BgL_auxz00_1937); } 
BgL_lenz00_648 = 
(BgL_auxz00_1936-((long)1)); } 
WRITE_CHAR(((unsigned char)' '), BgL_portz00_29); 
{ 
long BgL_iz00_649;
BgL_iz00_649 = ((long)0); 
BgL_loopz00_650:
{ /* ./Ieee/output.scm 397 */
bool_t BgL_test1261z00_651;
if(((bool_t)1))
{ /* ./Ieee/output.scm 397 */
if(
(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00>((long)0)))
{ /* ./Ieee/output.scm 398 */
BgL_test1261z00_651 = 
(BGl_za2displayedza2z00zz__r4_output_6_10_3z00>BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00); }  else 
{ /* ./Ieee/output.scm 398 */
BgL_test1261z00_651 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 397 */
BgL_test1261z00_651 = ((bool_t)0); } 
if(BgL_test1261z00_651)
{ /* ./Ieee/output.scm 397 */
return 
write_object(BGl_string2719z00zz__r4_output_6_10_3z00, BgL_portz00_29);}  else 
{ /* ./Ieee/output.scm 397 */
if(
(BgL_iz00_649==BgL_lenz00_648))
{ /* ./Ieee/output.scm 401 */
{ /* ./Ieee/output.scm 402 */
obj_t BgL_auxz00_1950;
{ /* ./Ieee/output.scm 402 */
int BgL_auxz00_1951;
BgL_auxz00_1951 = 
(int)(BgL_iz00_649); 
BgL_auxz00_1950 = 
STRUCT_REF(BgL_objz00_28, BgL_auxz00_1951); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_auxz00_1950, BgL_portz00_29, BgL_flagz00_30); } 
return 
WRITE_CHAR(((unsigned char)'}'), BgL_portz00_29);}  else 
{ /* ./Ieee/output.scm 401 */
{ /* ./Ieee/output.scm 405 */
obj_t BgL_auxz00_1956;
{ /* ./Ieee/output.scm 405 */
int BgL_auxz00_1957;
BgL_auxz00_1957 = 
(int)(BgL_iz00_649); 
BgL_auxz00_1956 = 
STRUCT_REF(BgL_objz00_28, BgL_auxz00_1957); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_auxz00_1956, BgL_portz00_29, BgL_flagz00_30); } 
WRITE_CHAR(((unsigned char)' '), BgL_portz00_29); 
{ 
long BgL_iz00_1962;
BgL_iz00_1962 = 
(((long)1)+BgL_iz00_649); 
BgL_iz00_649 = BgL_iz00_1962; 
goto BgL_loopz00_650;} } } } } } } } 
}



/* 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 */
WRITE_CHAR(((unsigned char)'#'), BgL_portz00_32); 
{ /* ./Ieee/output.scm 414 */
int BgL_tagz00_662;
BgL_tagz00_662 = 
VECTOR_TAG(BgL_objz00_31); 
{ /* ./Ieee/output.scm 415 */
bool_t BgL_testz00_1966;
{ /* ./Ieee/output.scm 415 */
long BgL_auxz00_1967;
BgL_auxz00_1967 = 
(long)(BgL_tagz00_662); 
BgL_testz00_1966 = 
(BgL_auxz00_1967>((long)0)); } 
if(BgL_testz00_1966)
{ /* ./Ieee/output.scm 415 */
{ /* ./Ieee/output.scm 417 */
bool_t BgL_testz00_1970;
{ /* ./Ieee/output.scm 417 */
long BgL_auxz00_1971;
BgL_auxz00_1971 = 
(long)(BgL_tagz00_662); 
BgL_testz00_1970 = 
(BgL_auxz00_1971>=((long)100)); } 
if(BgL_testz00_1970)
{ /* ./Ieee/output.scm 418 */
obj_t BgL_auxz00_1974;
BgL_auxz00_1974 = 
BINT(BgL_tagz00_662); 
write_object(BgL_auxz00_1974, BgL_portz00_32); }  else 
{ /* ./Ieee/output.scm 417 */
WRITE_CHAR(((unsigned char)'0'), BgL_portz00_32); 
{ /* ./Ieee/output.scm 421 */
bool_t BgL_testz00_1978;
{ /* ./Ieee/output.scm 421 */
long BgL_auxz00_1979;
BgL_auxz00_1979 = 
(long)(BgL_tagz00_662); 
BgL_testz00_1978 = 
(BgL_auxz00_1979>=((long)10)); } 
if(BgL_testz00_1978)
{ /* ./Ieee/output.scm 422 */
obj_t BgL_auxz00_1982;
BgL_auxz00_1982 = 
BINT(BgL_tagz00_662); 
write_object(BgL_auxz00_1982, BgL_portz00_32); }  else 
{ /* ./Ieee/output.scm 421 */
WRITE_CHAR(((unsigned char)'0'), BgL_portz00_32); 
{ /* ./Ieee/output.scm 425 */
obj_t BgL_auxz00_1986;
BgL_auxz00_1986 = 
BINT(BgL_tagz00_662); 
write_object(BgL_auxz00_1986, BgL_portz00_32); } } } } } }  else 
{ /* ./Ieee/output.scm 415 */BFALSE; } } } 
WRITE_CHAR(((unsigned char)'('), BgL_portz00_32); 
{ /* ./Ieee/output.scm 427 */
bool_t BgL_test1308z00_666;
{ /* ./Ieee/output.scm 427 */
int BgL_arg1342z00_680;
BgL_arg1342z00_680 = 
VECTOR_LENGTH(BgL_objz00_31); 
{ /* ./Ieee/output.scm 427 */
long BgL_auxz00_1991;
BgL_auxz00_1991 = 
(long)(BgL_arg1342z00_680); 
BgL_test1308z00_666 = 
(((long)0)==BgL_auxz00_1991); } } 
if(BgL_test1308z00_666)
{ /* ./Ieee/output.scm 427 */
return 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_32);}  else 
{ /* ./Ieee/output.scm 429 */
long BgL_lenz00_667;
{ /* ./Ieee/output.scm 429 */
int BgL_arg1336z00_677;
BgL_arg1336z00_677 = 
VECTOR_LENGTH(BgL_objz00_31); 
{ /* ./Ieee/output.scm 429 */
long BgL_auxz00_1997;
BgL_auxz00_1997 = 
(long)(BgL_arg1336z00_677); 
BgL_lenz00_667 = 
(BgL_auxz00_1997-((long)1)); } } 
{ 
long BgL_iz00_668;
BgL_iz00_668 = ((long)0); 
BgL_loopz00_669:
{ /* ./Ieee/output.scm 432 */
bool_t BgL_test1311z00_670;
if(((bool_t)1))
{ /* ./Ieee/output.scm 432 */
if(
(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00>((long)0)))
{ /* ./Ieee/output.scm 433 */
BgL_test1311z00_670 = 
(BGl_za2displayedza2z00zz__r4_output_6_10_3z00>=BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00); }  else 
{ /* ./Ieee/output.scm 433 */
BgL_test1311z00_670 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 432 */
BgL_test1311z00_670 = ((bool_t)0); } 
if(BgL_test1311z00_670)
{ /* ./Ieee/output.scm 432 */
return 
write_object(BGl_string2720z00zz__r4_output_6_10_3z00, BgL_portz00_32);}  else 
{ /* ./Ieee/output.scm 432 */
if(
(BgL_iz00_668==BgL_lenz00_667))
{ /* ./Ieee/output.scm 436 */
{ /* ./Ieee/output.scm 437 */
obj_t BgL_auxz00_2008;
{ 
int BgL_auxz00_2009;
BgL_auxz00_2009 = 
(int)(BgL_iz00_668); 
BgL_auxz00_2008 = 
VECTOR_REF(BgL_objz00_31,BgL_auxz00_2009); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_auxz00_2008, BgL_portz00_32, BgL_flagz00_33); } 
return 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_32);}  else 
{ /* ./Ieee/output.scm 436 */
{ /* ./Ieee/output.scm 440 */
obj_t BgL_auxz00_2014;
{ 
int BgL_auxz00_2015;
BgL_auxz00_2015 = 
(int)(BgL_iz00_668); 
BgL_auxz00_2014 = 
VECTOR_REF(BgL_objz00_31,BgL_auxz00_2015); } 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_auxz00_2014, BgL_portz00_32, BgL_flagz00_33); } 
WRITE_CHAR(((unsigned char)' '), BgL_portz00_32); 
{ 
long BgL_iz00_2020;
BgL_iz00_2020 = 
(((long)1)+BgL_iz00_668); 
BgL_iz00_668 = BgL_iz00_2020; 
goto BgL_loopz00_669;} } } } } } } } 
}



/* 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_tvectorzd2refzd2_681;obj_t BgL_idz00_682;
BgL_tvectorzd2refzd2_681 = 
BGl_tvectorzd2refzd2zz__tvectorz00(BgL_tvecz00_34); 
BgL_idz00_682 = 
BGl_tvectorzd2idzd2zz__tvectorz00(BgL_tvecz00_34); 
WRITE_CHAR(((unsigned char)'#'), BgL_portz00_35); 
write_object(BgL_idz00_682, BgL_portz00_35); 
WRITE_CHAR(((unsigned char)'('), BgL_portz00_35); 
if(
CBOOL(BgL_tvectorzd2refzd2_681))
{ /* ./Ieee/output.scm 453 */
{ /* ./Ieee/output.scm 458 */
bool_t BgL_testz00_2029;
{ /* ./Ieee/output.scm 458 */
long BgL_auxz00_2030;
{ /* ./Ieee/output.scm 458 */
int BgL_auxz00_2031;
BgL_auxz00_2031 = 
TVECTOR_LENGTH(BgL_tvecz00_34); 
BgL_auxz00_2030 = 
(long)(BgL_auxz00_2031); } 
BgL_testz00_2029 = 
(((long)0)==BgL_auxz00_2030); } 
if(BgL_testz00_2029)
{ /* ./Ieee/output.scm 458 */
return 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_35);}  else 
{ /* ./Ieee/output.scm 460 */
long BgL_lenz00_684;
{ /* ./Ieee/output.scm 460 */
long BgL_auxz00_2036;
{ /* ./Ieee/output.scm 460 */
int BgL_auxz00_2037;
BgL_auxz00_2037 = 
TVECTOR_LENGTH(BgL_tvecz00_34); 
BgL_auxz00_2036 = 
(long)(BgL_auxz00_2037); } 
BgL_lenz00_684 = 
(BgL_auxz00_2036-((long)1)); } 
{ 
long BgL_iz00_685;
BgL_iz00_685 = ((long)0); 
BgL_loopz00_686:
{ /* ./Ieee/output.scm 463 */
bool_t BgL_test1351z00_687;
if(((bool_t)1))
{ /* ./Ieee/output.scm 463 */
if(
(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00>((long)0)))
{ /* ./Ieee/output.scm 464 */
BgL_test1351z00_687 = 
(BGl_za2displayedza2z00zz__r4_output_6_10_3z00>=BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00); }  else 
{ /* ./Ieee/output.scm 464 */
BgL_test1351z00_687 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 463 */
BgL_test1351z00_687 = ((bool_t)0); } 
if(BgL_test1351z00_687)
{ /* ./Ieee/output.scm 463 */
return 
write_object(BGl_string2720z00zz__r4_output_6_10_3z00, BgL_portz00_35);}  else 
{ /* ./Ieee/output.scm 463 */
if(
(BgL_iz00_685==BgL_lenz00_684))
{ /* ./Ieee/output.scm 467 */
{ /* ./Ieee/output.scm 468 */
obj_t BgL_arg1355z00_689;
BgL_arg1355z00_689 = 
PROCEDURE_ENTRY(BgL_tvectorzd2refzd2_681)(BgL_tvectorzd2refzd2_681, BgL_tvecz00_34, 
BINT(BgL_iz00_685), BEOA); 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1355z00_689, BgL_portz00_35, BgL_flagz00_36); } 
return 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_35);}  else 
{ /* ./Ieee/output.scm 467 */
{ /* ./Ieee/output.scm 473 */
obj_t BgL_arg1360z00_690;
BgL_arg1360z00_690 = 
PROCEDURE_ENTRY(BgL_tvectorzd2refzd2_681)(BgL_tvectorzd2refzd2_681, BgL_tvecz00_34, 
BINT(BgL_iz00_685), BEOA); 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_arg1360z00_690, BgL_portz00_35, BgL_flagz00_36); } 
WRITE_CHAR(((unsigned char)' '), BgL_portz00_35); 
{ 
long BgL_iz00_2059;
BgL_iz00_2059 = 
(((long)1)+BgL_iz00_685); 
BgL_iz00_685 = BgL_iz00_2059; 
goto BgL_loopz00_686;} } } } } } } }  else 
{ /* ./Ieee/output.scm 453 */
write_object(BGl_string2721z00zz__r4_output_6_10_3z00, BgL_portz00_35); 
return BgL_tvecz00_34;} } } 
}



/* 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 */
WRITE_CHAR(((unsigned char)'('), BgL_portz00_41); 
{ 
obj_t BgL_lz00_700;
BgL_lz00_700 = BgL_objz00_40; 
BgL_loopz00_701:
{ /* ./Ieee/output.scm 494 */
bool_t BgL_testz00_2063;
{ /* ./Ieee/output.scm 494 */
obj_t BgL_auxz00_2064;
BgL_auxz00_2064 = 
CDR(BgL_lz00_700); 
BgL_testz00_2063 = 
NULLP(BgL_auxz00_2064); } 
if(BgL_testz00_2063)
{ /* ./Ieee/output.scm 494 */
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(
CAR(BgL_lz00_700), BgL_portz00_41, BgL_flagz00_42); 
return 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_41);}  else 
{ /* ./Ieee/output.scm 497 */
bool_t BgL_test1401z00_704;
if(((bool_t)1))
{ /* ./Ieee/output.scm 497 */
if(
(BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00>((long)0)))
{ /* ./Ieee/output.scm 498 */
BgL_test1401z00_704 = 
(BGl_za2displayedza2z00zz__r4_output_6_10_3z00>=BGl_za2maxzd2lengthzd2writeza2z00zz__r4_output_6_10_3z00); }  else 
{ /* ./Ieee/output.scm 498 */
BgL_test1401z00_704 = ((bool_t)0); } }  else 
{ /* ./Ieee/output.scm 497 */
BgL_test1401z00_704 = ((bool_t)0); } 
if(BgL_test1401z00_704)
{ /* ./Ieee/output.scm 497 */
return 
write_object(BGl_string2722z00zz__r4_output_6_10_3z00, BgL_portz00_41);}  else 
{ /* ./Ieee/output.scm 501 */
bool_t BgL_testz00_2076;
{ /* ./Ieee/output.scm 501 */
obj_t BgL_auxz00_2077;
BgL_auxz00_2077 = 
CDR(BgL_lz00_700); 
BgL_testz00_2076 = 
PAIRP(BgL_auxz00_2077); } 
if(BgL_testz00_2076)
{ /* ./Ieee/output.scm 501 */
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(
CAR(BgL_lz00_700), BgL_portz00_41, BgL_flagz00_42); 
WRITE_CHAR(((unsigned char)' '), BgL_portz00_41); 
{ 
obj_t BgL_lz00_2083;
BgL_lz00_2083 = 
CDR(BgL_lz00_700); 
BgL_lz00_700 = BgL_lz00_2083; 
goto BgL_loopz00_701;} }  else 
{ /* ./Ieee/output.scm 501 */
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(
CAR(BgL_lz00_700), BgL_portz00_41, BgL_flagz00_42); 
WRITE_CHAR(((unsigned char)' '), BgL_portz00_41); 
WRITE_CHAR(((unsigned char)'.'), BgL_portz00_41); 
WRITE_CHAR(((unsigned char)' '), BgL_portz00_41); 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(
CDR(BgL_lz00_700), BgL_portz00_41, BgL_flagz00_42); 
return 
WRITE_CHAR(((unsigned char)')'), BgL_portz00_41);} } } } } } 
}



/* print */
BGL_EXPORTED_DEF obj_t BGl_printz00zz__r4_output_6_10_3z00(obj_t BgL_objz00_43)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 516 */
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = ((long)0); 
{ /* ./Ieee/output.scm 518 */
obj_t BgL_portz00_714;
BgL_portz00_714 = 
BGL_CURRENT_OUTPUT_PORT(); 
{ 
obj_t BgL_lz00_1245;obj_t BgL_resz00_1246;
BgL_lz00_1245 = BgL_objz00_43; 
BgL_resz00_1246 = BNIL; 
BgL_loopz00_1244:
if(
NULLP(BgL_lz00_1245))
{ /* ./Ieee/output.scm 519 */
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_714); 
return BgL_resz00_1246;}  else 
{ /* ./Ieee/output.scm 519 */
obj_t BgL_vz00_1251;
BgL_vz00_1251 = 
CAR(BgL_lz00_1245); 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_vz00_1251, BgL_portz00_714, ((bool_t)1)); 
{ 
obj_t BgL_resz00_2101;obj_t BgL_lz00_2099;
BgL_lz00_2099 = 
CDR(BgL_lz00_1245); 
BgL_resz00_2101 = BgL_vz00_1251; 
BgL_resz00_1246 = BgL_resz00_2101; 
BgL_lz00_1245 = BgL_lz00_2099; 
goto BgL_loopz00_1244;} } } } } 
}



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



/* display* */
BGL_EXPORTED_DEF obj_t BGl_displayza2za2zz__r4_output_6_10_3z00(obj_t BgL_objz00_44)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 532 */
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = ((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 */
return BUNSPEC;}  else 
{ /* ./Ieee/output.scm 536 */
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
CAR(BgL_lz00_722), BgL_portz00_721); 
{ 
obj_t BgL_lz00_2108;
BgL_lz00_2108 = 
CDR(BgL_lz00_722); 
BgL_lz00_722 = BgL_lz00_2108; 
goto BgL_loopz00_723;} } } } } 
}



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



/* write* */
BGL_EXPORTED_DEF obj_t BGl_writeza2za2zz__r4_output_6_10_3z00(obj_t BgL_objz00_45)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 545 */
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = ((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 */
return BUNSPEC;}  else 
{ /* ./Ieee/output.scm 549 */
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(
CAR(BgL_lz00_729), BgL_portz00_728, ((bool_t)0)); 
{ 
obj_t BgL_lz00_2116;
BgL_lz00_2116 = 
CDR(BgL_lz00_729); 
BgL_lz00_729 = BgL_lz00_2116; 
goto BgL_loopz00_730;} } } } } 
}



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



/* 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 */
BGl_za2displayedza2z00zz__r4_output_6_10_3z00 = ((long)0); 
{ 
obj_t BgL_lz00_1279;obj_t BgL_resz00_1280;
BgL_lz00_1279 = BgL_objz00_47; 
BgL_resz00_1280 = BNIL; 
BgL_loopz00_1278:
if(
NULLP(BgL_lz00_1279))
{ /* ./Ieee/output.scm 560 */
WRITE_CHAR(((unsigned char)'\n'), BgL_portz00_46); 
return BgL_resz00_1280;}  else 
{ /* ./Ieee/output.scm 560 */
obj_t BgL_vz00_1286;
BgL_vz00_1286 = 
CAR(BgL_lz00_1279); 
BGl_writezf2displayzf2zz__r4_output_6_10_3z00(BgL_vz00_1286, BgL_portz00_46, ((bool_t)1)); 
{ 
obj_t BgL_resz00_2126;obj_t BgL_lz00_2124;
BgL_lz00_2124 = 
CDR(BgL_lz00_1279); 
BgL_resz00_2126 = BgL_vz00_1286; 
BgL_resz00_1280 = BgL_resz00_2126; 
BgL_lz00_1279 = BgL_lz00_2124; 
goto BgL_loopz00_1278;} } } } 
}



/* _fprint */
obj_t BGl__fprintz00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1596, obj_t BgL_portz00_1597, obj_t BgL_objz00_1598)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 558 */
return 
BGl_fprintz00zz__r4_output_6_10_3z00(BgL_portz00_1597, BgL_objz00_1598);} 
}



/* 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 */
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_2129;
{ /* ./Ieee/output.scm 585 */
long BgL_auxz00_2130;
BgL_auxz00_2130 = 
(long)(BgL_lenz00_742); 
BgL_testz00_2129 = 
(BgL_iz00_743<BgL_auxz00_2130); } 
if(BgL_testz00_2129)
{ /* ./Ieee/output.scm 586 */
unsigned char BgL_cz00_749;
{ /* ./Ieee/output.scm 586 */
int BgL_auxz00_2133;
BgL_auxz00_2133 = 
(int)(BgL_iz00_743); 
BgL_cz00_749 = 
STRING_REF(BgL_fmtz00_50, BgL_auxz00_2133); } 
if(
(BgL_cz00_749==((unsigned char)'~')))
{ /* ./Ieee/output.scm 588 */
bool_t BgL_testz00_2138;
{ /* ./Ieee/output.scm 588 */
long BgL_auxz00_2139;
{ /* ./Ieee/output.scm 588 */
long BgL_auxz00_2140;
BgL_auxz00_2140 = 
(long)(BgL_lenz00_742); 
BgL_auxz00_2139 = 
(BgL_auxz00_2140-((long)1)); } 
BgL_testz00_2138 = 
(BgL_iz00_743==BgL_auxz00_2139); } 
if(BgL_testz00_2138)
{ /* ./Ieee/output.scm 589 */
obj_t BgL_arg1497z00_753;
{ /* ./Ieee/output.scm 591 */
int BgL_auxz00_2144;
BgL_auxz00_2144 = 
(int)(BgL_iz00_743); 
BgL_arg1497z00_753 = 
c_substring(BgL_fmtz00_50, BgL_auxz00_2144, BgL_lenz00_742); } 
FAILURE(BgL_procnamez00_48,BGl_string2723z00zz__r4_output_6_10_3z00,BgL_arg1497z00_753);}  else 
{ /* ./Ieee/output.scm 592 */
unsigned char BgL_fz00_754;
{ /* ./Ieee/output.scm 592 */
int BgL_auxz00_2148;
{ /* ./Ieee/output.scm 592 */
long BgL_auxz00_2149;
BgL_auxz00_2149 = 
(BgL_iz00_743+((long)1)); 
BgL_auxz00_2148 = 
(int)(BgL_auxz00_2149); } 
BgL_fz00_754 = 
STRING_REF(BgL_fmtz00_50, BgL_auxz00_2148); } 
switch( BgL_fz00_754) { case ((unsigned char)'a') : 
case ((unsigned char)'A') : 

{ /* ./Ieee/output.scm 595 */
obj_t BgL_arg1502z00_758;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 595 */
obj_t BgL_objectz00_1338;
BgL_objectz00_1338 = 
BCHAR(BgL_fz00_754); 
FAILURE(BgL_procnamez00_48,BGl_string2724z00zz__r4_output_6_10_3z00,BgL_objectz00_1338);}  else 
{ /* ./Ieee/output.scm 595 */
BgL_arg1502z00_758 = 
CAR(BgL_osz00_744); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1502z00_758, BgL_pz00_49); } 
{ 
obj_t BgL_osz00_2161;long BgL_iz00_2159;
BgL_iz00_2159 = 
(BgL_iz00_743+((long)2)); 
BgL_osz00_2161 = 
CDR(BgL_osz00_744); 
BgL_osz00_744 = BgL_osz00_2161; 
BgL_iz00_743 = BgL_iz00_2159; 
goto BgL_loopz00_745;} break;case ((unsigned char)'s') : 
case ((unsigned char)'S') : 

{ /* ./Ieee/output.scm 598 */
obj_t BgL_arg1512z00_761;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 598 */
obj_t BgL_objectz00_1349;
BgL_objectz00_1349 = 
BCHAR(BgL_fz00_754); 
FAILURE(BgL_procnamez00_48,BGl_string2724z00zz__r4_output_6_10_3z00,BgL_objectz00_1349);}  else 
{ /* ./Ieee/output.scm 598 */
BgL_arg1512z00_761 = 
CAR(BgL_osz00_744); } 
{ /* ./Ieee/output.scm 598 */
obj_t BgL_list1514z00_762;
BgL_list1514z00_762 = 
MAKE_PAIR(BgL_pz00_49, BNIL); 
BGl_writez00zz__r4_output_6_10_3z00(BgL_arg1512z00_761, BgL_list1514z00_762); } } 
{ 
obj_t BgL_osz00_2172;long BgL_iz00_2170;
BgL_iz00_2170 = 
(BgL_iz00_743+((long)2)); 
BgL_osz00_2172 = 
CDR(BgL_osz00_744); 
BgL_osz00_744 = BgL_osz00_2172; 
BgL_iz00_743 = BgL_iz00_2170; 
goto BgL_loopz00_745;} break;case ((unsigned char)'v') : 
case ((unsigned char)'V') : 

{ /* ./Ieee/output.scm 601 */
obj_t BgL_arg1524z00_765;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 601 */
obj_t BgL_objectz00_1360;
BgL_objectz00_1360 = 
BCHAR(BgL_fz00_754); 
FAILURE(BgL_procnamez00_48,BGl_string2724z00zz__r4_output_6_10_3z00,BgL_objectz00_1360);}  else 
{ /* ./Ieee/output.scm 601 */
BgL_arg1524z00_765 = 
CAR(BgL_osz00_744); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(BgL_arg1524z00_765, BgL_pz00_49); } 
WRITE_CHAR(((unsigned char)'\n'), BgL_pz00_49); 
{ 
obj_t BgL_osz00_2183;long BgL_iz00_2181;
BgL_iz00_2181 = 
(BgL_iz00_743+((long)2)); 
BgL_osz00_2183 = 
CDR(BgL_osz00_744); 
BgL_osz00_744 = BgL_osz00_2183; 
BgL_iz00_743 = BgL_iz00_2181; 
goto BgL_loopz00_745;} break;case ((unsigned char)'c') : 
case ((unsigned char)'C') : 

{ /* ./Ieee/output.scm 605 */
obj_t BgL_oz00_768;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 605 */
obj_t BgL_objectz00_1372;
BgL_objectz00_1372 = 
BCHAR(BgL_fz00_754); 
FAILURE(BgL_procnamez00_48,BGl_string2724z00zz__r4_output_6_10_3z00,BgL_objectz00_1372);}  else 
{ /* ./Ieee/output.scm 605 */
BgL_oz00_768 = 
CAR(BgL_osz00_744); } 
if(
CHARP(BgL_oz00_768))
{ /* ./Ieee/output.scm 606 */
{ /* ./Ieee/output.scm 609 */
unsigned char BgL_auxz00_2192;
BgL_auxz00_2192 = 
(unsigned char)CCHAR(BgL_oz00_768); 
WRITE_CHAR(BgL_auxz00_2192, BgL_pz00_49); } 
{ 
obj_t BgL_osz00_2197;long BgL_iz00_2195;
BgL_iz00_2195 = 
(BgL_iz00_743+((long)2)); 
BgL_osz00_2197 = 
CDR(BgL_osz00_744); 
BgL_osz00_744 = BgL_osz00_2197; 
BgL_iz00_743 = BgL_iz00_2195; 
goto BgL_loopz00_745;} }  else 
{ /* ./Ieee/output.scm 606 */
FAILURE(BgL_procnamez00_48,BGl_string2725z00zz__r4_output_6_10_3z00,BgL_oz00_768);} } break;case ((unsigned char)'x') : 
case ((unsigned char)'X') : 

{ /* ./Ieee/output.scm 612 */
obj_t BgL_arg1547z00_773;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 612 */
obj_t BgL_objectz00_1389;
BgL_objectz00_1389 = 
BCHAR(BgL_fz00_754); 
FAILURE(BgL_procnamez00_48,BGl_string2724z00zz__r4_output_6_10_3z00,BgL_objectz00_1389);}  else 
{ /* ./Ieee/output.scm 612 */
BgL_arg1547z00_773 = 
CAR(BgL_osz00_744); } 
{ /* ./Ieee/output.scm 612 */
bool_t BgL_test1615z00_1393;
if(
INTEGERP(BgL_arg1547z00_773))
{ /* ./Ieee/output.scm 612 */
BgL_test1615z00_1393 = ((bool_t)1); }  else 
{ /* ./Ieee/output.scm 612 */
BgL_test1615z00_1393 = 
REALP(BgL_arg1547z00_773); } 
if(BgL_test1615z00_1393)
{ /* ./Ieee/output.scm 612 */
char * BgL_arg1617z00_1394;
{ /* ./Ieee/output.scm 612 */
obj_t BgL_list1620z00_1395;
{ /* ./Ieee/output.scm 612 */
obj_t BgL_auxz00_2209;
BgL_auxz00_2209 = 
BINT(((long)16)); 
BgL_list1620z00_1395 = 
MAKE_PAIR(BgL_auxz00_2209, BNIL); } 
BgL_arg1617z00_1394 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1547z00_773, BgL_list1620z00_1395); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg1617z00_1394), BgL_pz00_49); }  else 
{ /* ./Ieee/output.scm 612 */
FAILURE(BgL_procnamez00_48,BGl_string2726z00zz__r4_output_6_10_3z00,BgL_arg1547z00_773);} } } 
{ 
obj_t BgL_osz00_2218;long BgL_iz00_2216;
BgL_iz00_2216 = 
(BgL_iz00_743+((long)2)); 
BgL_osz00_2218 = 
CDR(BgL_osz00_744); 
BgL_osz00_744 = BgL_osz00_2218; 
BgL_iz00_743 = BgL_iz00_2216; 
goto BgL_loopz00_745;} break;case ((unsigned char)'o') : 
case ((unsigned char)'O') : 

{ /* ./Ieee/output.scm 615 */
obj_t BgL_arg1558z00_777;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 615 */
obj_t BgL_objectz00_1413;
BgL_objectz00_1413 = 
BCHAR(BgL_fz00_754); 
FAILURE(BgL_procnamez00_48,BGl_string2724z00zz__r4_output_6_10_3z00,BgL_objectz00_1413);}  else 
{ /* ./Ieee/output.scm 615 */
BgL_arg1558z00_777 = 
CAR(BgL_osz00_744); } 
{ /* ./Ieee/output.scm 615 */
bool_t BgL_test1615z00_1417;
if(
INTEGERP(BgL_arg1558z00_777))
{ /* ./Ieee/output.scm 615 */
BgL_test1615z00_1417 = ((bool_t)1); }  else 
{ /* ./Ieee/output.scm 615 */
BgL_test1615z00_1417 = 
REALP(BgL_arg1558z00_777); } 
if(BgL_test1615z00_1417)
{ /* ./Ieee/output.scm 615 */
char * BgL_arg1617z00_1418;
{ /* ./Ieee/output.scm 615 */
obj_t BgL_list1620z00_1419;
{ /* ./Ieee/output.scm 615 */
obj_t BgL_auxz00_2229;
BgL_auxz00_2229 = 
BINT(((long)8)); 
BgL_list1620z00_1419 = 
MAKE_PAIR(BgL_auxz00_2229, BNIL); } 
BgL_arg1617z00_1418 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1558z00_777, BgL_list1620z00_1419); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg1617z00_1418), BgL_pz00_49); }  else 
{ /* ./Ieee/output.scm 615 */
FAILURE(BgL_procnamez00_48,BGl_string2726z00zz__r4_output_6_10_3z00,BgL_arg1558z00_777);} } } 
{ 
obj_t BgL_osz00_2238;long BgL_iz00_2236;
BgL_iz00_2236 = 
(BgL_iz00_743+((long)2)); 
BgL_osz00_2238 = 
CDR(BgL_osz00_744); 
BgL_osz00_744 = BgL_osz00_2238; 
BgL_iz00_743 = BgL_iz00_2236; 
goto BgL_loopz00_745;} break;case ((unsigned char)'b') : 
case ((unsigned char)'B') : 

{ /* ./Ieee/output.scm 618 */
obj_t BgL_arg1569z00_781;
if(
NULLP(BgL_osz00_744))
{ /* ./Ieee/output.scm 618 */
obj_t BgL_objectz00_1437;
BgL_objectz00_1437 = 
BCHAR(BgL_fz00_754); 
FAILURE(BgL_procnamez00_48,BGl_string2724z00zz__r4_output_6_10_3z00,BgL_objectz00_1437);}  else 
{ /* ./Ieee/output.scm 618 */
BgL_arg1569z00_781 = 
CAR(BgL_osz00_744); } 
{ /* ./Ieee/output.scm 618 */
bool_t BgL_test1615z00_1441;
if(
INTEGERP(BgL_arg1569z00_781))
{ /* ./Ieee/output.scm 618 */
BgL_test1615z00_1441 = ((bool_t)1); }  else 
{ /* ./Ieee/output.scm 618 */
BgL_test1615z00_1441 = 
REALP(BgL_arg1569z00_781); } 
if(BgL_test1615z00_1441)
{ /* ./Ieee/output.scm 618 */
char * BgL_arg1617z00_1442;
{ /* ./Ieee/output.scm 618 */
obj_t BgL_list1620z00_1443;
{ /* ./Ieee/output.scm 618 */
obj_t BgL_auxz00_2249;
BgL_auxz00_2249 = 
BINT(((long)2)); 
BgL_list1620z00_1443 = 
MAKE_PAIR(BgL_auxz00_2249, BNIL); } 
BgL_arg1617z00_1442 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_arg1569z00_781, BgL_list1620z00_1443); } 
BGl_displayzd22zd2zz__r4_output_6_10_3z00(
string_to_bstring(BgL_arg1617z00_1442), BgL_pz00_49); }  else 
{ /* ./Ieee/output.scm 618 */
FAILURE(BgL_procnamez00_48,BGl_string2726z00zz__r4_output_6_10_3z00,BgL_arg1569z00_781);} } } 
{ 
obj_t BgL_osz00_2258;long BgL_iz00_2256;
BgL_iz00_2256 = 
(BgL_iz00_743+((long)2)); 
BgL_osz00_2258 = 
CDR(BgL_osz00_744); 
BgL_osz00_744 = BgL_osz00_2258; 
BgL_iz00_743 = BgL_iz00_2256; 
goto BgL_loopz00_745;} break;case ((unsigned char)'%') : 
case ((unsigned char)'n') : 

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

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

WRITE_CHAR(((unsigned char)'~'), BgL_pz00_49); 
{ 
long BgL_iz00_2267;
BgL_iz00_2267 = 
(BgL_iz00_743+((long)2)); 
BgL_iz00_743 = BgL_iz00_2267; 
goto BgL_loopz00_745;} break;
default: 
{ /* ./Ieee/output.scm 593 */
obj_t BgL_objectz00_1468;
BgL_objectz00_1468 = 
BCHAR(BgL_fz00_754); 
FAILURE(BgL_procnamez00_48,BGl_string2727z00zz__r4_output_6_10_3z00,BgL_objectz00_1468);} } } }  else 
{ /* ./Ieee/output.scm 587 */
WRITE_CHAR(BgL_cz00_749, BgL_pz00_49); 
{ 
long BgL_iz00_2273;
BgL_iz00_2273 = 
(BgL_iz00_743+((long)1)); 
BgL_iz00_743 = BgL_iz00_2273; 
goto BgL_loopz00_745;} } }  else 
{ /* ./Ieee/output.scm 585 */
return BFALSE;} } } } } 
}



/* 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_pz00_1496;
BgL_pz00_1496 = 
open_output_string(); 
BGl_xprintfz00zz__r4_output_6_10_3z00(BGl_symbol2728z00zz__r4_output_6_10_3z00, BgL_pz00_1496, BgL_fmtz00_52, BgL_objz00_53); 
return 
close_output_port(BgL_pz00_1496);} } 
}



/* _format2556 */
obj_t BGl__format2556z00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1599, obj_t BgL_fmtz00_1600, obj_t BgL_objz00_1601)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 638 */
return 
BGl_formatz00zz__r4_output_6_10_3z00(BgL_fmtz00_1600, BgL_objz00_1601);} 
}



/* 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_arg1634z00_1498;obj_t BgL_arg1635z00_1499;
BgL_arg1634z00_1498 = BGl_symbol2729z00zz__r4_output_6_10_3z00; 
BgL_arg1635z00_1499 = 
BGL_CURRENT_OUTPUT_PORT(); 
return 
BGl_xprintfz00zz__r4_output_6_10_3z00(BgL_arg1634z00_1498, BgL_arg1635z00_1499, BgL_fmtz00_54, BgL_objz00_55);} } 
}



/* _printf2558 */
obj_t BGl__printf2558z00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1602, obj_t BgL_fmtz00_1603, obj_t BgL_objz00_1604)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 646 */
return 
BGl_printfz00zz__r4_output_6_10_3z00(BgL_fmtz00_1603, BgL_objz00_1604);} 
}



/* 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 */
return 
BGl_xprintfz00zz__r4_output_6_10_3z00(BGl_symbol2730z00zz__r4_output_6_10_3z00, BgL_portz00_56, BgL_fmtz00_57, BgL_objz00_58);} 
}



/* _fprintf2560 */
obj_t BGl__fprintf2560z00zz__r4_output_6_10_3z00(obj_t BgL_envz00_1605, obj_t BgL_portz00_1606, obj_t BgL_fmtz00_1607, obj_t BgL_objz00_1608)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 652 */
return 
BGl_fprintfz00zz__r4_output_6_10_3z00(BgL_portz00_1606, BgL_fmtz00_1607, BgL_objz00_1608);} 
}



/* 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 */
return ( 
BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00 = BgL_fz00_59, BUNSPEC) ;} 
}



/* _set-printer! */
obj_t BGl__setzd2printerz12zc0zz__r4_output_6_10_3z00(obj_t BgL_envz00_1609, obj_t BgL_fz00_1610)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 668 */
return 
BGl_setzd2printerz12zc0zz__r4_output_6_10_3z00(BgL_fz00_1610);} 
}



/* current-printer */
BGL_EXPORTED_DEF obj_t BGl_currentzd2printerzd2zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 674 */
return BGl_za2currentzd2printerza2zd2zz__r4_output_6_10_3z00;} 
}



/* _current-printer */
obj_t BGl__currentzd2printerzd2zz__r4_output_6_10_3z00(obj_t BgL_envz00_1611)
{ AN_OBJECT;
{ /* ./Ieee/output.scm 674 */
return BGl_za2currentzd2printerza2zd2zz__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 */
return BGl_nativezd2displayzd2envz00zz__r4_output_6_10_3z00;} 
}



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



/* method-init */
obj_t BGl_methodzd2initzd2zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 24 */
return BUNSPEC;} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_output_6_10_3z00()
{ AN_OBJECT;
{ /* ./Ieee/output.scm 24 */
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"); 
return 
BGl_modulezd2initializa7ationz75zz__biglooz00(((long)48291), "__r4_output_6_10_3");} 
}

