#include "run-time.h"

/* Typedefs for referenced classes */

#define  define__KLsimple_object_vectorGVKd(nrepeated) \
  typedef struct { \
    D wrapper; \
    D size_; \
    D vector_element_[nrepeated+1]; \
  } _KLsimple_object_vectorGVKd_##nrepeated;
define__KLsimple_object_vectorGVKd(3);
define__KLsimple_object_vectorGVKd(2);
define__KLsimple_object_vectorGVKd(16);
define__KLsimple_object_vectorGVKd(1);
define__KLsimple_object_vectorGVKd(4);
define__KLsimple_object_vectorGVKd(0);

typedef struct {
  D wrapper;
  D instanceQ_iep_;
  D debug_name_;
  D class_implementation_class_;
  D class_subtype_bit_;
  D class_module_;
} _KLclassGVKd;

#define  define__KLmm_wrapperGVKi(nrepeated) \
  typedef struct { \
    D wrapper; \
    D mm_wrapper_implementation_class_; \
    D mm_wrapper_subtype_mask_; \
    DWORD mm_wrapper_fixed_part_; \
    DWORD mm_wrapper_variable_part_; \
    D mm_wrapper_number_patterns_; \
    DWORD mm_wrapper_pattern_element_[nrepeated+1]; \
  } _KLmm_wrapperGVKi_##nrepeated;
define__KLmm_wrapperGVKi(1);
define__KLmm_wrapperGVKi(0);

typedef struct {
  D wrapper;
} _KLbooleanGVKd;

typedef struct {
  D wrapper;
  D head_;
  D tail_;
} _KLempty_listGVKd;

typedef struct {
  D wrapper;
  D xep_;
  D function_signature_;
  D Pgf_cache_;
  D debug_name_;
  D generic_function_methods_;
  D discriminator_;
  D incremental_gf_module_;
  D incremental_gf_domain_info_;
  D incremental_gf_method_libraries_;
  D incremental_gf_properties_;
} _KLincremental_generic_functionGVKe;

typedef struct {
  D wrapper;
  D instanceQ_iep_;
  D debug_name_;
  D class_implementation_class_;
  D class_subtype_bit_;
  D class_module_;
} _KLfunction_classGVKi;

typedef struct {
  D wrapper;
} _KLobjectGVKd;

typedef struct {
  D wrapper;
} _KLunboundGVKe;

typedef struct {
  D wrapper;
  D xep_;
  D function_signature_;
  D Pgf_cache_;
  D debug_name_;
  D generic_function_methods_;
  D discriminator_;
} _KLsealed_generic_functionGVKe;

typedef struct {
  D wrapper;
  D xep_;
  D function_signature_;
  D mep_;
} _KLsimple_methodGVKe;

typedef struct {
  D wrapper;
  D properties_;
  D engine_node_callback_;
  D engine_node_entry_point_;
} _KLabsent_engine_nodeGVKg;

#define  define__KLbyte_stringGVKd(nrepeated) \
  typedef struct { \
    D wrapper; \
    D size_; \
    char string_element_[nrepeated+1]; \
  } _KLbyte_stringGVKd_##nrepeated;
define__KLbyte_stringGVKd(16);
define__KLbyte_stringGVKd(5);
define__KLbyte_stringGVKd(36);
define__KLbyte_stringGVKd(13);
define__KLbyte_stringGVKd(32);
define__KLbyte_stringGVKd(14);
define__KLbyte_stringGVKd(37);
define__KLbyte_stringGVKd(8);
define__KLbyte_stringGVKd(6);

typedef struct {
  D wrapper;
  D signature_properties_;
  D signature_required_;
} _KLsignatureGVKe;

typedef struct {
  D wrapper;
} _KLstreamGYcommon_extensionsVcommon_dylan;

typedef struct {
  D wrapper;
} _KLstringGVKd;

typedef struct {
  D wrapper;
  D head_;
  D tail_;
} _KLpairGVKd;

typedef struct {
  D wrapper;
  D symbol_name_;
} _KLsymbolGVKd;

typedef struct {
  D wrapper;
  D instanceQ_iep_;
  D limited_integer_min_;
  D limited_integer_max_;
} _KLlimited_integerGVKe;

typedef struct {
  D wrapper;
} _KLintegerGVKd;

typedef struct {
  D wrapper;
  D outer_stream_;
  D private_stream_element_type_value_;
  D private_stream_direction_value_;
  D private_stream_lock_value_;
  D initial_position_;
  D current_position_;
  D final_position_;
  D stream_sequence_;
  D stream_limit_;
} _KLbyte_string_streamGYstreamsVio;

typedef struct {
  D wrapper;
  D properties_;
  D engine_node_callback_;
  D engine_node_entry_point_;
  D cache_header_engine_node_next_;
  D cache_header_engine_node_parent_;
} _KLsimple_typechecked_cache_header_engine_nodeGVKg;

typedef struct {
  D wrapper;
  D signature_properties_;
  D signature_required_;
} _KLobject_signatureGVKe;

typedef struct {
  D wrapper;
} _KLfloatGVKd;

typedef struct {
  D wrapper;
  D head_;
  D tail_;
} _KLlistGVKd;

typedef struct {
  D wrapper;
  DWORD PPdouble_integer_low_;
  DWORD PPdouble_integer_high_;
} _KLdouble_integerGVKe;

typedef struct {
  D wrapper;
  D instanceQ_iep_;
  D debug_name_;
  D class_implementation_class_;
  D class_subtype_bit_;
  D class_module_;
  D value_class_comparitor_;
} _KLvalue_classGVKi;

typedef struct {
  D wrapper;
  D signature_properties_;
  D signature_required_;
  D signature_values_;
} _KLsignatureAvaluesGVKi;

typedef struct {
  D wrapper;
} _KLbyte_characterGVKe;

typedef struct {
  D wrapper;
  D namespace_name_;
  D home_library_;
} _KLmoduleGVKe;

typedef struct {
  D wrapper;
  D domain_library_;
  D domain_next_;
  D domain_method_;
} _KLmethod_domainGVKe;

typedef struct {
  D wrapper;
  D namespace_name_;
  D library_major_version_;
  D library_minor_version_;
  D library_build_count_;
  D used_libraries_;
  D all_used_libraries_;
  D runtime_module_;
  D library_defined_generics_;
  D library_number_static_dispatches_;
  D library_number_dynamic_dispatches_;
} _KLlibraryGVKe;

typedef struct {
  D wrapper;
} _KLcharacterGVKd;

typedef struct {
  D wrapper;
} _KLconditionGVKd;


/* Typedefs for defined classes */


/* Referenced object declarations */

D KmakeVKdMM23I (D, D, D, D);
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLclassGVKd KLclassGVKd;
extern _KLmm_wrapperGVKi_0 KLclassGVKdW;
extern _KLclassGVKd KLmm_wrapperGVKi;
extern _KLmm_wrapperGVKi_1 KLmm_wrapperGVKiW;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLbooleanGVKd KPfalseVKi;
extern _KLclassGVKd KLbooleanGVKd;
extern _KLmm_wrapperGVKi_0 KLbooleanGVKdW;
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
extern _KLincremental_generic_functionGVKe KLVKd;
extern _KLfunction_classGVKi KLincremental_generic_functionGVKe;
extern _KLclassGVKd KLfunction_classGVKi;
extern _KLmm_wrapperGVKi_0 KLfunction_classGVKiW;
extern _KLmm_wrapperGVKi_0 KLincremental_generic_functionGVKeW;
extern _KLincremental_generic_functionGVKe Kelement_setterVKd;
extern _KLincremental_generic_functionGVKe KAVKd;
D Kelement_range_errorVKeI (D, D);
extern _KLclassGVKd KLobjectGVKd;
extern _KLmm_wrapperGVKi_0 KLobjectGVKdW;
extern _KLunboundGVKe KPunboundVKi;
extern _KLclassGVKd KLunboundGVKe;
extern _KLmm_wrapperGVKi_0 KLunboundGVKeW;
extern _KLbooleanGVKd KPtrueVKi;
extern _KLclassGVKd KLsealed_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLsealed_generic_functionGVKeW;
extern _KLsimple_methodGVKe KformatYformatVioMM1;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLabsent_engine_nodeGVKg RSINGULAR_Labsent_engine_nodeG;
extern _KLclassGVKd KLabsent_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLabsent_engine_nodeGVKgW;
extern _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
extern _KLclassGVKd KLsignatureGVKe;
extern _KLmm_wrapperGVKi_0 KLsignatureGVKeW;
extern _KLclassGVKd KLstreamGYcommon_extensionsVcommon_dylan;
extern _KLmm_wrapperGVKi_0 KLstreamGYcommon_extensionsVcommon_dylanW;
extern _KLclassGVKd KLstringGVKd;
extern _KLmm_wrapperGVKi_0 KLstringGVKdW;
extern _KLclassGVKd KLpairGVKd;
extern _KLmm_wrapperGVKi_0 KLpairGVKdW;
extern _KLsymbolGVKd KJstart_;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
extern _KLsymbolGVKd KJend_;
extern _KLincremental_generic_functionGVKe KwriteYstreams_protocolVcommon_dylan;
extern _KLincremental_generic_functionGVKe Knew_lineYstreamsVio;
extern _KLlimited_integerGVKe KLbyteGVKe;
extern _KLclassGVKd KLlimited_integerGVKe;
extern _KLmm_wrapperGVKi_0 KLlimited_integerGVKeW;
D KelementVKdMM11I (D, D, D, D);
extern _KLsealed_generic_functionGVKe Kunsupplied_objectVKi;
extern _KLclassGVKd KLintegerGVKd;
extern _KLmm_wrapperGVKi_0 KLintegerGVKdW;
D KmakeVKdMM33I (D, D, D, D);
extern _KLsymbolGVKd KJdirection_;
extern _KLsymbolGVKd KJoutput_;
D KLbyte_string_streamGZ32ZconstructorYstreams_internalsVioMM0I (D, D, D, D, D, D);
extern _KLclassGVKd KLbyte_string_streamGYstreamsVio;
extern _KLmm_wrapperGVKi_0 KLbyte_string_streamGYstreamsVioW;
extern _KLincremental_generic_functionGVKe KelementVKd;
D Kstream_contentsYstreams_protocolVcommon_dylanMioM0I (D, D, D);
extern _KLincremental_generic_functionGVKe Kprint_objectYprintVio;
D KlistVKdI (D);
extern _KLsimple_methodGVKe KapplyVKd;
extern _KLincremental_generic_functionGVKe Kwrite_elementYstreams_protocolVcommon_dylan;
D KerrorVKdMM1I (D, D);
extern _KLclassGVKd KLsimple_typechecked_cache_header_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLsimple_typechecked_cache_header_engine_nodeGVKgW;
extern _KLobject_signatureGVKe KDsignature_LobjectG_object_rest_value_3VKi;
extern _KLclassGVKd KLobject_signatureGVKe;
extern _KLmm_wrapperGVKi_0 KLobject_signatureGVKeW;
D Kassertion_failureVKiI (D, D);
extern _KLsealed_generic_functionGVKe KprintYprintVio;
extern _KLclassGVKd KLfloatGVKd;
extern _KLmm_wrapperGVKi_0 KLfloatGVKdW;
D Kuninitialized_instanceQ_functionVKiI (D, D);
extern _KLclassGVKd KLlistGVKd;
extern _KLmm_wrapperGVKi_0 KLlistGVKdW;
extern _KLvalue_classGVKi KLdouble_integerGVKe;
extern _KLclassGVKd KLvalue_classGVKi;
extern _KLmm_wrapperGVKi_0 KLvalue_classGVKiW;
extern _KLmm_wrapperGVKi_1 KLdouble_integerGVKeW;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_16 KDsignature_LbooleanG_typesVKi;
extern _KLclassGVKd KLbyte_characterGVKe;
extern _KLmm_wrapperGVKi_0 KLbyte_characterGVKeW;
extern _KLmoduleGVKe Kformat_moduleYdylan_userVio;
extern _KLclassGVKd KLmoduleGVKe;
extern _KLmm_wrapperGVKi_0 KLmoduleGVKeW;
extern _KLclassGVKd KLmethod_domainGVKe;
extern _KLmm_wrapperGVKi_0 KLmethod_domainGVKeW;
extern _KLlibraryGVKe Kio_libraryYdylan_userVio;
extern _KLclassGVKd KLlibraryGVKe;
extern _KLmm_wrapperGVKi_0 KLlibraryGVKeW;
extern _KLclassGVKd KLcharacterGVKd;
extern _KLmm_wrapperGVKi_0 KLcharacterGVKdW;
extern _KLincremental_generic_functionGVKe Kwrite_textYstreamsVio;
extern _KLclassGVKd KLconditionGVKd;
extern _KLmm_wrapperGVKi_0 KLconditionGVKdW;
extern _KLsimple_object_vectorGVKd_2 KDsignature_LstringG_typesVKi;
extern _KLsimple_object_vectorGVKd_16 KDsignature_Lbyte_stringG_typesVKi;
extern D Tprint_escapeQTYprintVio;

/* Defined object declarations */

static _KLsymbolGVKd KJdigit_;
extern _KLincremental_generic_functionGVKe Kprint_messageYformatVio;
D Kparse_integerYformat_internalsVioMM0I (D, D);
extern _KLsimple_methodGVKe Kdo_dispatchYformat_internalsVioMM0;
D Kdo_dispatchYformat_internalsVioMM0I (D, D, D);
extern _KLsealed_generic_functionGVKe KformatYformatVio;
extern _KLsimple_methodGVKe KformatYformatVioMM0;
D KformatYformatVioMM0I (D, D, D);
static _KLpairGVKd K11;
static _KLpairGVKd K12;
static _KLsignatureGVKe K13;
static _KLbyte_stringGVKd_6 K14;
static _KLsimple_object_vectorGVKd_2 K15;
static _KLsymbolGVKd KJcontents_;
static _KLbyte_stringGVKd_8 K17;
static _KLsignatureGVKe K18;
static _KLsimple_object_vectorGVKd_2 K19;
static _KLsimple_typechecked_cache_header_engine_nodeGVKg K20;
extern _KLsealed_generic_functionGVKe Kformat_integerYformat_internalsVio;
static _KLsimple_typechecked_cache_header_engine_nodeGVKg K22;
static _KLsimple_typechecked_cache_header_engine_nodeGVKg K23;
static _KLsimple_typechecked_cache_header_engine_nodeGVKg K24;
static _KLbyte_stringGVKd_37 K25;
extern _KLsimple_methodGVKe Kformat_integerYformat_internalsVioMM0;
D Kformat_integerYformat_internalsVioMM0I (D, D, D);
extern _KLsimple_methodGVKe Kformat_integerYformat_internalsVioMM1;
D Kformat_integerYformat_internalsVioMM1I (D, D, D);
extern _KLsimple_methodGVKe Kformat_integerYformat_internalsVioMM2;
D Kformat_integerYformat_internalsVioMM2I (D, D, D);
static _KLpairGVKd K32;
static _KLpairGVKd K33;
static _KLpairGVKd K34;
static _KLbyte_stringGVKd_14 K35;
static _KLbyte_stringGVKd_32 K36;
static _KLsignatureGVKe K37;
static _KLsimple_object_vectorGVKd_3 K38;
static _KLlimited_integerGVKe K39;
static D KrepeatF41I (D, D, D, D);
static _KLsignatureGVKe K42;
static _KLsimple_object_vectorGVKd_3 K43;
static _KLsignatureGVKe K44;
static _KLsimple_object_vectorGVKd_3 K45;
static _KLsignatureAvaluesGVKi K46;
static _KLsimple_object_vectorGVKd_3 K47;
extern _KLsimple_methodGVKe Kprint_messageYformatVioMM0;
D Kprint_messageYformatVioMM0I (D, D);
extern _KLsimple_methodGVKe Kprint_messageYformatVioMM1;
D Kprint_messageYformatVioMM1I (D, D);
extern _KLsimple_methodGVKe Kprint_messageYformatVioMM2;
D Kprint_messageYformatVioMM2I (D, D);
extern _KLsimple_methodGVKe Kprint_messageYformatVioMM3;
D Kprint_messageYformatVioMM3I (D, D);
extern _KLsimple_methodGVKe Kprint_messageYformatVioMM4;
D Kprint_messageYformatVioMM4I (D, D);
extern _KLmethod_domainGVKe Kprint_messageYformatVioRD_ioRD_0;
extern _KLmethod_domainGVKe Kprint_messageYformatVioRD_ioRD_1;
extern _KLmethod_domainGVKe Kprint_messageYformatVioRD_ioRD_2;
static _KLpairGVKd K61;
static _KLpairGVKd K62;
static _KLpairGVKd K63;
static _KLpairGVKd K64;
static _KLpairGVKd K65;
static _KLsignatureGVKe K66;
static _KLbyte_stringGVKd_13 K67;
static _KLsimple_object_vectorGVKd_2 K68;
static _KLsignatureGVKe K69;
static _KLsimple_object_vectorGVKd_2 K70;
static _KLsignatureGVKe K71;
static _KLsimple_object_vectorGVKd_2 K72;
static _KLsignatureGVKe K73;
static _KLsimple_object_vectorGVKd_2 K74;
static _KLsignatureGVKe K75;
static _KLsimple_object_vectorGVKd_2 K76;
static _KLbyte_stringGVKd_36 K77;
static _KLbyte_stringGVKd_5 K78;
extern _KLsealed_generic_functionGVKe Kformat_to_stringYformatVio;
extern _KLsimple_methodGVKe Kformat_to_stringYformatVioMM0;
D Kformat_to_stringYformatVioMM0I (D, D);
static _KLpairGVKd K82;
static _KLsignatureAvaluesGVKi K83;
static _KLbyte_stringGVKd_16 K84;
static _KLsignatureAvaluesGVKi K85;

/* Indirection variables */

static D IKJdigit_ = &KJdigit_;
static D IKJcontents_ = &KJcontents_;

/* Variables */

D do_dispatchYformat_internalsVio = &Kdo_dispatchYformat_internalsVioMM0;
D format_to_stringYformatVio = &Kformat_to_stringYformatVio;
D print_messageYformatVio = &Kprint_messageYformatVio;
D char_classesYformat_internalsVio = &KPunboundVKi;
D formatYformatVio = &KformatYformatVio;
D DdigitsYformat_internalsVio = &K77;

/* Objects */

static _KLsymbolGVKd KJdigit_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K78
};

_KLincremental_generic_functionGVKe Kprint_messageYformatVio = {
  &KLincremental_generic_functionGVKeW /* wrapper */,
  &gf_xep_2,
  &K66,
  (D) 1,
  &K67,
  &K61,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kformat_moduleYdylan_userVio,
  &Kprint_messageYformatVioRD_ioRD_2,
  &KPempty_vectorVKi,
  (D) 25
};

_KLsimple_methodGVKe Kdo_dispatchYformat_internalsVioMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_3,
  &K46,
  &Kdo_dispatchYformat_internalsVioMM0I
};

_KLsealed_generic_functionGVKe KformatYformatVio = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_2,
  &K13,
  &KPfalseVKi,
  &K14,
  &K11,
  &RSINGULAR_Labsent_engine_nodeG
};

_KLsimple_methodGVKe KformatYformatVioMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &rest_xep_2,
  &K18,
  &KformatYformatVioMM0I
};

static _KLpairGVKd K11 = {
  &KLpairGVKdW /* wrapper */,
  &KformatYformatVioMM0,
  &K12
};

static _KLpairGVKd K12 = {
  &KLpairGVKdW /* wrapper */,
  &KformatYformatVioMM1,
  &KPempty_listVKi
};

static _KLsignatureGVKe K13 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 42991625,
  &K15
};

static _KLbyte_stringGVKd_6 K14 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 25,
  "format"
};

static _KLsimple_object_vectorGVKd_2 K15 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLstreamGYcommon_extensionsVcommon_dylan,
  &KLstringGVKd
};

static _KLsymbolGVKd KJcontents_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K17
};

static _KLbyte_stringGVKd_8 K17 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 33,
  "contents"
};

static _KLsignatureGVKe K18 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 42991625,
  &K19
};

static _KLsimple_object_vectorGVKd_2 K19 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLstreamGYcommon_extensionsVcommon_dylan,
  &KLbyte_stringGVKd
};

static _KLsimple_typechecked_cache_header_engine_nodeGVKg K20 = {
  &KLsimple_typechecked_cache_header_engine_nodeGVKgW /* wrapper */,
  (D) 393273,
  &KPfalseVKi,
  &cache_header_engine_3,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kformat_integerYformat_internalsVio
};

_KLsealed_generic_functionGVKe Kformat_integerYformat_internalsVio = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_xep_3,
  &KDsignature_LobjectG_object_rest_value_3VKi,
  (D) 25,
  &K35,
  &K32,
  &RSINGULAR_Labsent_engine_nodeG
};

static _KLsimple_typechecked_cache_header_engine_nodeGVKg K22 = {
  &KLsimple_typechecked_cache_header_engine_nodeGVKgW /* wrapper */,
  (D) 393273,
  &KPfalseVKi,
  &cache_header_engine_3,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kformat_integerYformat_internalsVio
};

static _KLsimple_typechecked_cache_header_engine_nodeGVKg K23 = {
  &KLsimple_typechecked_cache_header_engine_nodeGVKgW /* wrapper */,
  (D) 393273,
  &KPfalseVKi,
  &cache_header_engine_3,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kformat_integerYformat_internalsVio
};

static _KLsimple_typechecked_cache_header_engine_nodeGVKg K24 = {
  &KLsimple_typechecked_cache_header_engine_nodeGVKgW /* wrapper */,
  (D) 393273,
  &KPfalseVKi,
  &cache_header_engine_3,
  &RSINGULAR_Labsent_engine_nodeG,
  &Kformat_integerYformat_internalsVio
};

static _KLbyte_stringGVKd_37 K25 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 149,
  "Unknown format dispatch character, %c"
};

_KLsimple_methodGVKe Kformat_integerYformat_internalsVioMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_3,
  &K44,
  &Kformat_integerYformat_internalsVioMM0I
};

_KLsimple_methodGVKe Kformat_integerYformat_internalsVioMM1 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_3,
  &K42,
  &Kformat_integerYformat_internalsVioMM1I
};

_KLsimple_methodGVKe Kformat_integerYformat_internalsVioMM2 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_3,
  &K37,
  &Kformat_integerYformat_internalsVioMM2I
};

static _KLpairGVKd K32 = {
  &KLpairGVKdW /* wrapper */,
  &Kformat_integerYformat_internalsVioMM0,
  &K33
};

static _KLpairGVKd K33 = {
  &KLpairGVKdW /* wrapper */,
  &Kformat_integerYformat_internalsVioMM1,
  &K34
};

static _KLpairGVKd K34 = {
  &KLpairGVKdW /* wrapper */,
  &Kformat_integerYformat_internalsVioMM2,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_14 K35 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 57,
  "format-integer"
};

static _KLbyte_stringGVKd_32 K36 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 129,
  "Can only print floats in base 10"
};

static _KLsignatureGVKe K37 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943053,
  &K38
};

static _KLsimple_object_vectorGVKd_3 K38 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KLfloatGVKd,
  &K39,
  &KLstreamGYcommon_extensionsVcommon_dylan
};

static _KLlimited_integerGVKe K39 = {
  &KLlimited_integerGVKeW /* wrapper */,
  &Kuninitialized_instanceQ_functionVKiI,
  (D) 9,
  (D) 145
};

static _KLsignatureGVKe K42 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943053,
  &K43
};

static _KLsimple_object_vectorGVKd_3 K43 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KLintegerGVKd,
  &K39,
  &KLstreamGYcommon_extensionsVcommon_dylan
};

static _KLsignatureGVKe K44 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943053,
  &K45
};

static _KLsimple_object_vectorGVKd_3 K45 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KLdouble_integerGVKe,
  &K39,
  &KLstreamGYcommon_extensionsVcommon_dylan
};

static _KLsignatureAvaluesGVKi K46 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 33555469,
  &K47,
  &KDsignature_LbooleanG_typesVKi
};

static _KLsimple_object_vectorGVKd_3 K47 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 13,
  &KLbyte_characterGVKe,
  &KLstreamGYcommon_extensionsVcommon_dylan,
  &KLobjectGVKd
};

_KLsimple_methodGVKe Kprint_messageYformatVioMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K66,
  &Kprint_messageYformatVioMM0I
};

_KLsimple_methodGVKe Kprint_messageYformatVioMM1 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K75,
  &Kprint_messageYformatVioMM1I
};

_KLsimple_methodGVKe Kprint_messageYformatVioMM2 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K73,
  &Kprint_messageYformatVioMM2I
};

_KLsimple_methodGVKe Kprint_messageYformatVioMM3 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K71,
  &Kprint_messageYformatVioMM3I
};

_KLsimple_methodGVKe Kprint_messageYformatVioMM4 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K69,
  &Kprint_messageYformatVioMM4I
};

_KLmethod_domainGVKe Kprint_messageYformatVioRD_ioRD_0 = {
  &KLmethod_domainGVKeW /* wrapper */,
  &Kio_libraryYdylan_userVio,
  &KPfalseVKi,
  &Kprint_messageYformatVioMM4
};

_KLmethod_domainGVKe Kprint_messageYformatVioRD_ioRD_1 = {
  &KLmethod_domainGVKeW /* wrapper */,
  &Kio_libraryYdylan_userVio,
  &Kprint_messageYformatVioRD_ioRD_0,
  &Kprint_messageYformatVioMM3
};

_KLmethod_domainGVKe Kprint_messageYformatVioRD_ioRD_2 = {
  &KLmethod_domainGVKeW /* wrapper */,
  &Kio_libraryYdylan_userVio,
  &Kprint_messageYformatVioRD_ioRD_1,
  &Kprint_messageYformatVioMM2
};

static _KLpairGVKd K61 = {
  &KLpairGVKdW /* wrapper */,
  &Kprint_messageYformatVioMM0,
  &K62
};

static _KLpairGVKd K62 = {
  &KLpairGVKdW /* wrapper */,
  &Kprint_messageYformatVioMM1,
  &K63
};

static _KLpairGVKd K63 = {
  &KLpairGVKdW /* wrapper */,
  &Kprint_messageYformatVioMM2,
  &K64
};

static _KLpairGVKd K64 = {
  &KLpairGVKdW /* wrapper */,
  &Kprint_messageYformatVioMM3,
  &K65
};

static _KLpairGVKd K65 = {
  &KLpairGVKdW /* wrapper */,
  &Kprint_messageYformatVioMM4,
  &KPempty_listVKi
};

static _KLsignatureGVKe K66 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943049,
  &K68
};

static _KLbyte_stringGVKd_13 K67 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 53,
  "print-message"
};

static _KLsimple_object_vectorGVKd_2 K68 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLobjectGVKd,
  &KLstreamGYcommon_extensionsVcommon_dylan
};

static _KLsignatureGVKe K69 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943049,
  &K70
};

static _KLsimple_object_vectorGVKd_2 K70 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLsymbolGVKd,
  &KLstreamGYcommon_extensionsVcommon_dylan
};

static _KLsignatureGVKe K71 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943049,
  &K72
};

static _KLsimple_object_vectorGVKd_2 K72 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLcharacterGVKd,
  &KLstreamGYcommon_extensionsVcommon_dylan
};

static _KLsignatureGVKe K73 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943049,
  &K74
};

static _KLsimple_object_vectorGVKd_2 K74 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLstringGVKd,
  &KLstreamGYcommon_extensionsVcommon_dylan
};

static _KLsignatureGVKe K75 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 41943049,
  &K76
};

static _KLsimple_object_vectorGVKd_2 K76 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KLconditionGVKd,
  &KLstreamGYcommon_extensionsVcommon_dylan
};

static _KLbyte_stringGVKd_36 K77 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 145,
  "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
};

static _KLbyte_stringGVKd_5 K78 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 21,
  "digit"
};

_KLsealed_generic_functionGVKe Kformat_to_stringYformatVio = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_optional_xep_1,
  &K83,
  &KPfalseVKi,
  &K84,
  &K82,
  &RSINGULAR_Labsent_engine_nodeG
};

_KLsimple_methodGVKe Kformat_to_stringYformatVioMM0 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &rest_xep_1,
  &K85,
  &Kformat_to_stringYformatVioMM0I
};

static _KLpairGVKd K82 = {
  &KLpairGVKdW /* wrapper */,
  &Kformat_to_stringYformatVioMM0,
  &KPempty_listVKi
};

static _KLsignatureAvaluesGVKi K83 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 34604037,
  &KDsignature_LstringG_typesVKi,
  &KDsignature_LstringG_typesVKi
};

static _KLbyte_stringGVKd_16 K84 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 65,
  "format-to-string"
};

static _KLsignatureAvaluesGVKi K85 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (D) 34604037,
  &KDsignature_Lbyte_stringG_typesVKi,
  &KDsignature_Lbyte_stringG_typesVKi
};

/* Code */

D Kparse_integerYformat_internalsVioMM0I (D input_, D index_) {
  D negativeQ_;
  DWORD i_T, i_;
  DWORD len_T, len_;
  DWORD ascii_zero_T, ascii_zero_;
  D T7;
  D T8;
  D T9;
  D T10_0;
  D T10_1;
  D indexF11;
  D T12;
  D T13;
  D T14;
  D T15;
  D result_;
  D T17;
  D T18;
  D T19;
  D T20;
  D T21;
  DWORD T22;
  DWORD T23;
  D T24;
  DBCHR T25;
  D T26_0;
  D T27;
  DBCHR T28;
  DWORD T29;
  DWORD T30;
  DSINT T31;
  D T32;
  DWORD T33;
  DWORD T34;
  D T35;
  D T36;
  DWORD T37;
  D T38;
  D T39;
  DBCHR T40;
  D T41_0;
  D T42;
  DBCHR T43;
  DWORD T44;
  DWORD T45;
  D T46;
  D T47_0;
  D T48_0;
  D T49;
  DSINT T50;
  D T51;
  D T52;
  D T53;
  DWORD T54;
  DWORD T55;
  DWORD T56;
  DWORD T57;
  D T58;
  DBCHR T59;
  D T60_0;
  D T61;
  DBCHR T62;
  DWORD T63;
  DWORD T64;
  D T65;
  D T66_0;
  D T67_0;
  D T68;
  DSINT T69;
  DWORD T70;
  DWORD T71;
  DWORD T72;
  DWORD T73;
  D T74;
  DWORD T75;
  DWORD T76;
  D T77;
  DWORD T78;
  DWORD T79;
  D T80;
  D T81_0;
  D T81_1;
  DWORD T82;
  DWORD T83;
  DWORD T84;
  DWORD T85;
  D T86;
  D T87_0;
  D T87_1;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:236
  indexF11 = index_;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:238
  result_ = (D) 1;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  T15 = indexF11;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  T21 = SLOT_VALUE_INITD(input_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  T22 = primitive_cast_integer_as_raw(T15);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  T23 = primitive_cast_integer_as_raw(T21);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  T24 = primitive_machine_word_unsigned_less_thanQ(T22,T23);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  if (T24 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
    T25 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(input_, 1, T22);
    T28 = T25;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
    T26_0 = Kelement_range_errorVKeI(input_, T15);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
    T27 = T26_0;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
    T31 = primitive_byte_character_as_raw(T27);
    T28 = T31;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  T29 = primitive_machine_word_shift_left_signal_overflow(T28,2);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  T30 = primitive_machine_word_logior(T29,1);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  T32 = primitive_machine_word_equalQ(T30,181);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  if (T32 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:240
    T14 = indexF11;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:240
    T33 = primitive_cast_integer_as_raw(T14);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:240
    T34 = primitive_machine_word_add_signal_overflow(T33,4);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:240
    T35 = primitive_cast_raw_as_integer(T34);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:240
    indexF11 = T35;
    negativeQ_ = T35;
  } else {
    negativeQ_ = &KPfalseVKi;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:239
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
  T13 = indexF11;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:245
  T37 = primitive_cast_integer_as_raw(T13);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
  i_T = T37;
  len_T = T23;
  ascii_zero_T = 193;
L0: ;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
    i_ = i_T;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:245
    T38 = primitive_cast_raw_as_integer(i_);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
    len_ = len_T;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
    ascii_zero_ = ascii_zero_T;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
    T74 = primitive_cast_raw_as_integer(ascii_zero_);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:245
    T36 = primitive_machine_word_equalQ(i_,len_);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:245
    if (T36 != &KPfalseVKi) {
      T8 = T36;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      T39 = primitive_machine_word_unsigned_less_thanQ(i_,T23);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      if (T39 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
        T40 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(input_, 1, i_);
        T43 = T40;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
        T41_0 = Kelement_range_errorVKeI(input_, T38);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
        T42 = T41_0;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
        T50 = primitive_byte_character_as_raw(T42);
        T43 = T50;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      T44 = primitive_machine_word_shift_left_signal_overflow(T43,2);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      T45 = primitive_machine_word_logior(T44,1);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      T46 = primitive_cast_raw_as_integer(T45);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      T47_0 = T46;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      T48_0 = T47_0;
      {
        MV_CHECK_TYPE_PROLOGUE(T47_0);
        primitive_type_check(T48_0, &KLbyteGVKe);
        MV_CHECK_TYPE_EPILOGUE();
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      T49 = T48_0;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      T51 = KelementVKdMM11I(char_classesYformat_internalsVio, T49, &KPempty_vectorVKi, &Kunsupplied_objectVKi);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      T52 = primitive_idQ(T51,IKJdigit_);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:246
      T53 = primitive_not(T52);
      T8 = T53;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:245
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
    if (T8 == &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T20 = result_;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T54 = primitive_cast_integer_as_raw(T20);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T55 = primitive_machine_word_logxor(T54,1);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T56 = primitive_machine_word_multiply_signal_overflow(T55,10);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T57 = primitive_machine_word_logior(T56,1);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T58 = primitive_machine_word_unsigned_less_thanQ(i_,T23);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      if (T58 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
        T59 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(input_, 1, i_);
        T62 = T59;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
        T60_0 = Kelement_range_errorVKeI(input_, T38);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
        T61 = T60_0;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
        T69 = primitive_byte_character_as_raw(T61);
        T62 = T69;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T63 = primitive_machine_word_shift_left_signal_overflow(T62,2);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T64 = primitive_machine_word_logior(T63,1);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T65 = primitive_cast_raw_as_integer(T64);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T66_0 = T65;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T67_0 = T66_0;
      {
        MV_CHECK_TYPE_PROLOGUE(T66_0);
        primitive_type_check(T67_0, &KLbyteGVKe);
        MV_CHECK_TYPE_EPILOGUE();
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T68 = T67_0;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T70 = primitive_cast_integer_as_raw(T68);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T71 = primitive_machine_word_logxor(ascii_zero_,1);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T72 = primitive_machine_word_subtract_signal_overflow(T70,T71);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T75 = primitive_machine_word_logxor(T72,1);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T76 = primitive_machine_word_add_signal_overflow(T57,T75);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T77 = primitive_cast_raw_as_integer(T76);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      result_ = T77;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
      T78 = primitive_machine_word_add_signal_overflow(i_,4);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
      primitive_type_check(T74, &KLbyteGVKe);
      T7 = T74;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:247
      T73 = primitive_cast_integer_as_raw(T7);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
      i_T = T78;
      len_T = len_;
      ascii_zero_T = T73;
      goto L0;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:249
    T19 = result_;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:249
    T79 = primitive_cast_integer_as_raw(T19);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:249
    T80 = primitive_machine_word_equalQ(T79,1);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:249
    if (T80 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:250
      T12 = indexF11;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:250
      T81_0 = &KPfalseVKi;
      T81_1 = T12;
      T10_0 = T81_0;
      T10_1 = T81_1;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:252
      if (negativeQ_ != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:252
        T18 = result_;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:252
        T82 = primitive_cast_integer_as_raw(T18);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:252
        T83 = primitive_machine_word_logxor(T82,1);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:252
        T84 = primitive_machine_word_negative_signal_overflow(T83);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:252
        T85 = primitive_machine_word_logior(T84,1);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:252
        T86 = primitive_cast_raw_as_integer(T85);
        T9 = T86;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:252
        T17 = result_;
        T9 = T17;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:252
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:252
      T87_0 = T9;
      T87_1 = T38;
      T10_0 = T87_0;
      T10_1 = T87_1;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:249
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:242
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:236
  MV_SET_ELT(1, T10_1);
  MV_SET_COUNT(2);
  return(T10_0);
}

D Kdo_dispatchYformat_internalsVioMM0I (D char_, D stream_, D arg_) {
  D UtmpF4;
  D UtmpF5;
  D T6;
  D T7_0;
  D Pold_valueP_;
  D T9;
  D T10_0;
  D T11;
  D T12_0;
  D T13;
  D T14_0;
  D T15;
  D T16_0;
  D T17;
  D T18_0;
  D T19;
  D T20;
  D T21_0;
  D T22_0;
  D T23_0;
  D T24_0;
  D T25_0;
  D T26_0;
  D T27_0;
  D T28_0;
  D T29_0;
  D T30_0;
  D T31;
  D T32;
  D T33;
  D T34;
  D T35;
  D T36;
  D T37;
  D T38;
  D T39;
  D T40;
  D T41;
  D T42;
  D T43;
  D T44;
  D T45;
  _KLsimple_object_vectorGVKd_1 T46 = {&KLsimple_object_vectorGVKdW, (D) 5};
  D T47;
  _KLsimple_object_vectorGVKd_1 T48 = {&KLsimple_object_vectorGVKdW, (D) 5};
  D T49_0;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:194
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
  T31 = primitive_idQ(char_,C('s'));
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
  if (T31 != &KPfalseVKi) {
    UtmpF4 = T31;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
    T32 = primitive_idQ(char_,C('S'));
    UtmpF4 = T32;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
  if (UtmpF4 != &KPfalseVKi) {
    UtmpF5 = UtmpF4;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
    T33 = primitive_idQ(char_,C('c'));
    UtmpF5 = T33;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
  if (UtmpF5 != &KPfalseVKi) {
    T6 = UtmpF5;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
    T34 = primitive_idQ(char_,C('C'));
    T6 = T34;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
  if (T6 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:198
    CONGRUENT_CALL_PROLOG(&Kprint_messageYformatVio, 2);
    CONGRUENT_CALL2(arg_, stream_);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:199
    T7_0 = &KPtrueVKi;
    T30_0 = T7_0;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
    T35 = primitive_idQ(char_,C('='));
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
    if (T35 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:201
      Pold_valueP_ = primitive_read_thread_variable(Tprint_escapeQTYprintVio);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:201
      ENTER_UNWIND_FRAME(T9);
      if (!nlx_setjmp(FRAME_DEST(T9))) {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:201
        primitive_write_thread_variable(Tprint_escapeQTYprintVio, &KPtrueVKi);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:202
        CONGRUENT_CALL_PROLOG(&Kprint_objectYprintVio, 2);
        CONGRUENT_CALL2(arg_, stream_);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:201
        FALL_THROUGH_UNWIND(&KPfalseVKi);
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:201
      primitive_write_thread_variable(Tprint_escapeQTYprintVio, Pold_valueP_);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:201
      CONTINUE_UNWIND();
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:204
      T10_0 = &KPtrueVKi;
      T29_0 = T10_0;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
      T36 = primitive_idQ(char_,C('d'));
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
      if (T36 != &KPfalseVKi) {
        T11 = T36;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
        T37 = primitive_idQ(char_,C('D'));
        T11 = T37;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
      if (T11 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:206
        ENGINE_NODE_CALL_PROLOG(&Kformat_integerYformat_internalsVio, &K20, 3);
        ENGINE_NODE_CALL3(&K20, arg_, (D) 41, stream_);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:207
        T12_0 = &KPtrueVKi;
        T28_0 = T12_0;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
        T38 = primitive_idQ(char_,C('b'));
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
        if (T38 != &KPfalseVKi) {
          T13 = T38;
        } else {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
          T39 = primitive_idQ(char_,C('B'));
          T13 = T39;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
        if (T13 != &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:209
          ENGINE_NODE_CALL_PROLOG(&Kformat_integerYformat_internalsVio, &K22, 3);
          ENGINE_NODE_CALL3(&K22, arg_, (D) 9, stream_);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:210
          T14_0 = &KPtrueVKi;
          T27_0 = T14_0;
        } else {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
          T40 = primitive_idQ(char_,C('o'));
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
          if (T40 != &KPfalseVKi) {
            T15 = T40;
          } else {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
            T41 = primitive_idQ(char_,C('O'));
            T15 = T41;
          }
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
          if (T15 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:212
            ENGINE_NODE_CALL_PROLOG(&Kformat_integerYformat_internalsVio, &K23, 3);
            ENGINE_NODE_CALL3(&K23, arg_, (D) 33, stream_);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:213
            T16_0 = &KPtrueVKi;
            T26_0 = T16_0;
          } else {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
            T42 = primitive_idQ(char_,C('x'));
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
            if (T42 != &KPfalseVKi) {
              T17 = T42;
            } else {
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
              T43 = primitive_idQ(char_,C('X'));
              T17 = T43;
            }
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
            if (T17 != &KPfalseVKi) {
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:215
              ENGINE_NODE_CALL_PROLOG(&Kformat_integerYformat_internalsVio, &K24, 3);
              ENGINE_NODE_CALL3(&K24, arg_, (D) 65, stream_);
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:216
              T18_0 = &KPtrueVKi;
              T25_0 = T18_0;
            } else {
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
              T44 = primitive_idQ(char_,C('m'));
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
              if (T44 != &KPfalseVKi) {
                T19 = T44;
              } else {
                // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
                T45 = primitive_idQ(char_,C('M'));
                T19 = T45;
              }
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
              if (T19 != &KPfalseVKi) {
                // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:218
                T46.vector_element_[0] = stream_;
                // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:218
                T20 = KlistVKdI(&T46);
                // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:218
                CALL2(&KapplyVKd, arg_, T20);
                // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:219
                T21_0 = &KPtrueVKi;
                T24_0 = T21_0;
              } else {
                // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
                T47 = primitive_idQ(char_,C('%'));
                // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
                if (T47 != &KPfalseVKi) {
                  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:221
                  CONGRUENT_CALL_PROLOG(&Kwrite_elementYstreams_protocolVcommon_dylan, 2);
                  CONGRUENT_CALL2(stream_, C('%'));
                  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:222
                  T22_0 = &KPfalseVKi;
                  T23_0 = T22_0;
                } else {
                  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:224
                  T48.vector_element_[0] = char_;
                  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:224
                  T49_0 = KerrorVKdMM1I(&K25, &T48);
                  T23_0 = T49_0;
                }
                // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
                T24_0 = T23_0;
              }
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
              T25_0 = T24_0;
            }
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
            T26_0 = T25_0;
          }
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
          T27_0 = T26_0;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
        T28_0 = T27_0;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
      T29_0 = T28_0;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
    T30_0 = T29_0;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:196
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:194
  MV_SET_COUNT(1);
  return(T30_0);
}

D KformatYformatVioMM0I (D stream_, D control_string_, D args_) {
  D exitPexit_7_;
  D T5;
  DWORD i_T, i_;
  D Utmp_;
  D T8;
  D T9_0;
  D T9_1;
  D T10_0;
  D T10_1;
  D T11_0;
  D T11_1;
  D field_;
  D field_spec_end_;
  D T14;
  D T15;
  D output_;
  D T17;
  D T18;
  D T19;
  D T20;
  D T21;
  D start_;
  D T23;
  D T24;
  D T25;
  D T26;
  D T27;
  D T28;
  D T29;
  D T30;
  D T31;
  D arg_i_;
  D T33;
  D T34;
  D T35;
  D T36;
  D T37;
  D T38;
  DWORD T39;
  DWORD T40;
  D T41;
  D T42;
  D T43;
  DBCHR T44;
  D T45;
  D T46_0;
  D T47;
  D T48;
  DWORD T49;
  D T50;
  D T51;
  D T52;
  DBCHR T53;
  D T54;
  D T55_0;
  D T56;
  D T57;
  D T58;
  DWORD T59;
  D T60;
  _KLsimple_object_vectorGVKd_4 T61 = {&KLsimple_object_vectorGVKdW, (D) 17};
  D T62;
  DWORD T63;
  D T64;
  DWORD T65;
  DWORD T66;
  D T67;
  D T68;
  DBCHR T69;
  D T70;
  D T71_0;
  D T72;
  D T73;
  D T74;
  DWORD T75;
  D T76;
  DBCHR T77;
  D T78_0;
  D T79;
  DBCHR T80;
  DWORD T81;
  DWORD T82;
  D T83;
  D T84_0;
  D T85_0;
  D T86;
  DSINT T87;
  D T88;
  D T89;
  D T90;
  D T91;
  D T92_0;
  _KLsimple_object_vectorGVKd_4 T93 = {&KLsimple_object_vectorGVKdW, (D) 17};
  D T94;
  DWORD T95;
  DWORD T96;
  D T97;
  D T98;
  D T99;
  DWORD T100;
  DWORD T101;
  DWORD T102;
  DWORD T103;
  DWORD T104;
  DWORD T105;
  DWORD T106;
  D T107;
  D T108;
  DWORD T109;
  D T110;
  D T111;
  D T112;
  DWORD T113;
  D T114;
  DBCHR T115;
  D T116;
  D T117_0;
  D T118;
  D T119;
  D T120;
  DWORD T121;
  DWORD T122;
  D T123;
  DWORD T124;
  DWORD T125;
  D T126;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:120
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:123
  T38 = SLOT_VALUE_INITD(control_string_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:124
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:125
  start_ = (D) 1;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:126
  arg_i_ = (D) 1;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:127
L0: ;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:127
    T23 = start_;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:127
    T39 = primitive_cast_integer_as_raw(T23);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:127
    T40 = primitive_cast_integer_as_raw(T38);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:127
    T41 = primitive_machine_word_less_thanQ(T39,T40);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:127
    if (T41 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:129
      T31 = start_;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:131
      T49 = primitive_cast_integer_as_raw(T31);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:129
      i_T = T49;
    L1: ;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:129
        i_ = i_T;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:131
        T50 = primitive_cast_raw_as_integer(i_);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:130
        T42 = primitive_idQ(T50,T38);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:130
        if (T42 != &KPfalseVKi) {
          Utmp_ = T42;
        } else {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:131
          T43 = primitive_machine_word_unsigned_less_thanQ(i_,T40);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:131
          if (T43 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:131
            T44 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(control_string_, 1, i_);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:131
            T45 = primitive_raw_as_byte_character(T44);
            T48 = T45;
          } else {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:131
            T46_0 = Kelement_range_errorVKeI(control_string_, T50);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:131
            T47 = T46_0;
            T48 = T47;
          }
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:131
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:131
          T51 = primitive_idQ(T48,C('%'));
          Utmp_ = T51;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:130
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:130
        if (Utmp_ != &KPfalseVKi) {
          T8 = Utmp_;
        } else {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:132
          T52 = primitive_machine_word_unsigned_less_thanQ(i_,T40);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:132
          if (T52 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:132
            T53 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(control_string_, 1, i_);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:132
            T54 = primitive_raw_as_byte_character(T53);
            T57 = T54;
          } else {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:132
            T55_0 = Kelement_range_errorVKeI(control_string_, T50);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:132
            T56 = T55_0;
            T57 = T56;
          }
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:132
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:132
          T58 = primitive_idQ(T57,C('\n'));
          T8 = T58;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:130
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:129
        if (T8 == &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:129
          T59 = primitive_machine_word_add_signal_overflow(i_,4);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:129
          i_T = T59;
          goto L1;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:129
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:134
        T30 = start_;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:134
        T60 = primitive_idQ(T50,T30);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:134
        if (T60 == &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:135
          T29 = start_;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:135
          T61.vector_element_[0] = &KJstart_;
          T61.vector_element_[1] = T29;
          T61.vector_element_[2] = &KJend_;
          T61.vector_element_[3] = T50;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:135
          CONGRUENT_CALL_PROLOG(&KwriteYstreams_protocolVcommon_dylan, 3);
          CONGRUENT_CALL3(stream_, control_string_, &T61);
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:134
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:137
        if (T42 != &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:124
          T62 = MV_SET_REST_AT(&KPempty_vectorVKi, 0);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:124
          T21 = T62;
          goto L2;
        } else {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:140
          T63 = primitive_machine_word_add_signal_overflow(i_,4);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:140
          T64 = primitive_cast_raw_as_integer(T63);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:140
          start_ = T64;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:137
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:129
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
      T28 = start_;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
      T65 = primitive_cast_integer_as_raw(T28);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
      T66 = primitive_machine_word_subtract_signal_overflow(T65,4);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
      T67 = primitive_cast_raw_as_integer(T66);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
      T68 = primitive_machine_word_unsigned_less_thanQ(T66,T40);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
      if (T68 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
        T69 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(control_string_, 1, T66);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
        T70 = primitive_raw_as_byte_character(T69);
        T73 = T70;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
        T71_0 = Kelement_range_errorVKeI(control_string_, T67);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
        T72 = T71_0;
        T73 = T72;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
      T74 = primitive_idQ(T73,C('\n'));
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
      if (T74 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:144
        CONGRUENT_CALL_PROLOG(&Knew_lineYstreamsVio, 1);
        CONGRUENT_CALL1(stream_);
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T27 = start_;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T75 = primitive_cast_integer_as_raw(T27);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T76 = primitive_machine_word_unsigned_less_thanQ(T75,T40);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        if (T76 != &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
          T77 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(control_string_, 1, T75);
          T80 = T77;
        } else {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
          T78_0 = Kelement_range_errorVKeI(control_string_, T27);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
          T79 = T78_0;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
          T87 = primitive_byte_character_as_raw(T79);
          T80 = T87;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T81 = primitive_machine_word_shift_left_signal_overflow(T80,2);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T82 = primitive_machine_word_logior(T81,1);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T83 = primitive_cast_raw_as_integer(T82);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T84_0 = T83;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T85_0 = T84_0;
        {
          MV_CHECK_TYPE_PROLOGUE(T84_0);
          primitive_type_check(T85_0, &KLbyteGVKe);
          MV_CHECK_TYPE_EPILOGUE();
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T86 = T85_0;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T88 = KelementVKdMM11I(char_classesYformat_internalsVio, T86, &KPempty_vectorVKi, &Kunsupplied_objectVKi);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        T89 = primitive_idQ(T88,IKJdigit_);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        if (T89 != &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:149
          T26 = start_;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:149
          T9_0 = Kparse_integerYformat_internalsVioMM0I(control_string_, T26);
          T9_1 = MV_GET_ELT(1);
          T11_0 = T9_0;
          T11_1 = T9_1;
        } else {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
          T10_0 = &KPfalseVKi;
          T10_1 = &KPfalseVKi;
          T11_0 = T10_0;
          T11_1 = T10_1;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:148
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:147
        field_ = T11_0;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:147
        field_spec_end_ = T11_1;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:151
        if (field_ != &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:53
          T37 = field_;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:156
          T90 = KmakeVKdMM33I(&KLbyte_stringGVKd, &KPempty_vectorVKi, C(' '), (D) 321);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:155
          T93.vector_element_[0] = IKJcontents_;
          T93.vector_element_[1] = T90;
          T93.vector_element_[2] = &KJdirection_;
          T93.vector_element_[3] = &KJoutput_;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:155
          T92_0 = KLbyte_string_streamGZ32ZconstructorYstreams_internalsVioMM0I(&KLbyte_string_streamGYstreamsVio, &T93, &KPunboundVKi, &KLobjectGVKd, &KPfalseVKi, T90);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:155
          T91 = T92_0;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:158
          CONGRUENT_CALL_PROLOG(&KelementVKd, 3);
          T14 = CONGRUENT_CALL3(control_string_, field_spec_end_, &KPempty_vectorVKi);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:159
          T36 = arg_i_;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:159
          T94 = KelementVKdMM11I(args_, T36, &KPempty_vectorVKi, &KPfalseVKi);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:158
          T15 = CALL3(&Kdo_dispatchYformat_internalsVioMM0, T14, T91, T94);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:158
          if (T15 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:160
            T35 = arg_i_;
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:160
            T95 = primitive_cast_integer_as_raw(T35);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:160
            T96 = primitive_machine_word_add_signal_overflow(T95,4);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:160
            T97 = primitive_cast_raw_as_integer(T96);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:160
            arg_i_ = T97;
          }
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:158
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:162
          T98 = Kstream_contentsYstreams_protocolVcommon_dylanMioM0I(T91, &KPempty_vectorVKi, &KPtrueVKi);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:158
          primitive_type_check(T98, &KLbyte_stringGVKd);
          output_ = T98;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:163
          T99 = SLOT_VALUE_INITD(output_, 0);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:164
          T100 = primitive_cast_integer_as_raw(T37);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:164
          T101 = primitive_machine_word_logxor(T100,1);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:164
          T102 = primitive_machine_word_abs_signal_overflow(T101);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:164
          T103 = primitive_machine_word_logior(T102,1);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:164
          T104 = primitive_cast_integer_as_raw(T99);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:164
          T105 = primitive_machine_word_logxor(T104,1);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:164
          T106 = primitive_machine_word_subtract_signal_overflow(T103,T105);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:164
          T107 = primitive_cast_raw_as_integer(T106);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:166
          T108 = primitive_machine_word_less_thanQ(T106,1);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:165
          if (T108 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:167
            CONGRUENT_CALL_PROLOG(&KwriteYstreams_protocolVcommon_dylan, 3);
            CONGRUENT_CALL3(stream_, output_, &KPempty_vectorVKi);
          } else {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:168
            T109 = primitive_cast_integer_as_raw(T37);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:168
            T110 = primitive_machine_word_less_thanQ(1,T109);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:165
            if (T110 != &KPfalseVKi) {
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:169
              T111 = KmakeVKdMM33I(&KLbyte_stringGVKd, &KPempty_vectorVKi, C(' '), T107);
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:169
              CONGRUENT_CALL_PROLOG(&KwriteYstreams_protocolVcommon_dylan, 3);
              CONGRUENT_CALL3(stream_, T111, &KPempty_vectorVKi);
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:170
              CONGRUENT_CALL_PROLOG(&KwriteYstreams_protocolVcommon_dylan, 3);
              CONGRUENT_CALL3(stream_, output_, &KPempty_vectorVKi);
            } else {
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:172
              CONGRUENT_CALL_PROLOG(&KwriteYstreams_protocolVcommon_dylan, 3);
              CONGRUENT_CALL3(stream_, output_, &KPempty_vectorVKi);
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:173
              T112 = KmakeVKdMM33I(&KLbyte_stringGVKd, &KPempty_vectorVKi, C(' '), T107);
              // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:173
              CONGRUENT_CALL_PROLOG(&KwriteYstreams_protocolVcommon_dylan, 3);
              CONGRUENT_CALL3(stream_, T112, &KPempty_vectorVKi);
            }
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:165
          }
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:165
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:175
          CONGRUENT_CALL_PROLOG(&KAVKd, 2);
          T17 = CONGRUENT_CALL2(field_spec_end_, (D) 5);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:175
          primitive_type_check(T17, &KLintegerGVKd);
          T18 = T17;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:175
          start_ = T18;
        } else {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
          T25 = start_;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
          T113 = primitive_cast_integer_as_raw(T25);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
          T114 = primitive_machine_word_unsigned_less_thanQ(T113,T40);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
          if (T114 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
            T115 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(control_string_, 1, T113);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
            T116 = primitive_raw_as_byte_character(T115);
            T119 = T116;
          } else {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
            T117_0 = Kelement_range_errorVKeI(control_string_, T25);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
            T118 = T117_0;
            T119 = T118;
          }
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:178
          T34 = arg_i_;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:178
          T120 = KelementVKdMM11I(args_, T34, &KPempty_vectorVKi, &KPfalseVKi);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
          T19 = Kdo_dispatchYformat_internalsVioMM0I(T119, stream_, T120);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
          if (T19 != &KPfalseVKi) {
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:179
            T33 = arg_i_;
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:179
            T121 = primitive_cast_integer_as_raw(T33);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:179
            T122 = primitive_machine_word_add_signal_overflow(T121,4);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:179
            T123 = primitive_cast_raw_as_integer(T122);
            // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:179
            arg_i_ = T123;
          }
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:177
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:181
          T24 = start_;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:181
          T124 = primitive_cast_integer_as_raw(T24);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:181
          T125 = primitive_machine_word_add_signal_overflow(T124,4);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:181
          T126 = primitive_cast_raw_as_integer(T125);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:181
          start_ = T126;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:151
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:143
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:127
      goto L0;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:127
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:127
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:127
  T20 = &KPfalseVKi;
  MV_SET_COUNT(0);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:124
  T21 = T20;
  L2: ;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:124
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:120
  MV_SET_COUNT(0);
  return(T21);
}

D Kformat_integerYformat_internalsVioMM0I (D arg_, D radix_, D stream_) {
  D T4;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:265
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:268
  CONGRUENT_CALL_PROLOG(&KprintYprintVio, 3);
  T4 = CONGRUENT_CALL3(arg_, stream_, &KPempty_vectorVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:265
  MV_SET_COUNT(0);
  return(T4);
}

D Kformat_integerYformat_internalsVioMM1I (D arg_, D radix_, D stream_) {
  D T4;
  D T5;
  D T6;
  D T7;
  D T8;
  D T9;
  DWORD T10;
  D T11;
  DWORD T12;
  DWORD T13;
  DWORD T14;
  DWORD T15_0;
  DWORD T15_1;
  DWORD quotient_;
  DWORD remainder_;
  DWORD T18;
  DWORD T19;
  DWORD T20;
  D T21;
  DWORD T22;
  DWORD T23;
  D T24;
  DWORD T25;
  DWORD T26;
  D T27;
  D T28;
  DWORD T29;
  D T30;
  DBCHR T31;
  D T32;
  D T33_0;
  D T34;
  D T35;
  _KLsimple_object_vectorGVKd_1 T36 = {&KLsimple_object_vectorGVKdW, (D) 5};
  DWORD T37;
  DWORD T38;
  D T39;
  D T40;
  DWORD T41;
  D T42;
  DBCHR T43;
  D T44;
  D T45_0;
  D T46;
  D T47;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:271
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:289
  T10 = primitive_cast_integer_as_raw(arg_);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:289
  T11 = primitive_machine_word_less_thanQ(T10,1);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:289
  if (T11 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:290
    CONGRUENT_CALL_PROLOG(&Kwrite_elementYstreams_protocolVcommon_dylan, 2);
    CONGRUENT_CALL2(stream_, C('-'));
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:297
    T12 = primitive_machine_word_shift_right(T10,2);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:297
    T13 = primitive_cast_integer_as_raw(radix_);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:297
    T14 = primitive_machine_word_shift_right(T13,2);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:297
    T15_0 = primitive_machine_word_truncateS_byref(T12,T14,(DWORD*)&T15_1);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:297
    quotient_ = T15_0;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:297
    remainder_ = T15_1;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:297
    T18 = primitive_machine_word_shift_left_signal_overflow(quotient_,2);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:297
    T19 = primitive_machine_word_logior(T18,1);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:297
    T20 = primitive_machine_word_shift_left_signal_overflow(remainder_,2);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:298
    T21 = primitive_machine_word_equalQ(T19,1);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:298
    if (T21 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
      T37 = primitive_machine_word_negative_signal_overflow(T20);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
      T38 = primitive_machine_word_logior(T37,1);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
      T39 = primitive_cast_raw_as_integer(T38);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
      T40 = SLOT_VALUE_INITD(DdigitsYformat_internalsVio, 0);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
      T41 = primitive_cast_integer_as_raw(T40);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
      T42 = primitive_machine_word_unsigned_less_thanQ(T38,T41);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
      if (T42 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
        T43 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(DdigitsYformat_internalsVio, 1, T38);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
        T44 = primitive_raw_as_byte_character(T43);
        T47 = T44;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
        T45_0 = Kelement_range_errorVKeI(DdigitsYformat_internalsVio, T39);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
        T46 = T45_0;
        T47 = T46;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:301
      CONGRUENT_CALL_PROLOG(&Kwrite_elementYstreams_protocolVcommon_dylan, 2);
      T6 = CONGRUENT_CALL2(stream_, T47);
      T7 = T6;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T22 = primitive_machine_word_negative_signal_overflow(T18);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T23 = primitive_machine_word_logior(T22,1);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T24 = primitive_cast_raw_as_integer(T23);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T25 = primitive_machine_word_negative_signal_overflow(T20);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T26 = primitive_machine_word_logior(T25,1);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T27 = primitive_cast_raw_as_integer(T26);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T28 = SLOT_VALUE_INITD(DdigitsYformat_internalsVio, 0);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T29 = primitive_cast_integer_as_raw(T28);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T30 = primitive_machine_word_unsigned_less_thanQ(T26,T29);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      if (T30 != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
        T31 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(DdigitsYformat_internalsVio, 1, T26);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
        T32 = primitive_raw_as_byte_character(T31);
        T35 = T32;
      } else {
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
        T33_0 = Kelement_range_errorVKeI(DdigitsYformat_internalsVio, T27);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
        T34 = T33_0;
        T35 = T34;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T36.vector_element_[0] = T35;
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T4 = KlistVKdI(&T36);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:299
      T5 = KrepeatF41I(stream_, radix_, T24, T4);
      T7 = T5;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:298
    T9 = T7;
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:304
    T8 = KrepeatF41I(stream_, radix_, arg_, &KPempty_listVKi);
    T9 = T8;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:289
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:271
  MV_SET_COUNT(0);
  return(T9);
}

D Kformat_integerYformat_internalsVioMM2I (D arg_, D radix_, D stream_) {
  D T4;
  DWORD T5;
  D T6;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:308
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:312
  T5 = primitive_cast_integer_as_raw(radix_);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:312
  T6 = primitive_machine_word_equalQ(T5,41);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:312
  if (T6 == &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:312
    Kassertion_failureVKiI(&K36, &KPempty_vectorVKi);
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:312
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:313
  CONGRUENT_CALL_PROLOG(&KprintYprintVio, 3);
  T4 = CONGRUENT_CALL3(arg_, stream_, &KPempty_vectorVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:308
  MV_SET_COUNT(0);
  return(T4);
}

static D KrepeatF41I (D stream_, D radix_, D arg_, D digits_) {
  D T5T, T5;
  D T6;
  D T7;
  DWORD T8;
  DWORD T9;
  DWORD T10;
  DWORD T11;
  DWORD T12_0;
  DWORD T12_1;
  DWORD quotient_;
  DWORD remainder_;
  DWORD T15;
  DWORD T16;
  D T17;
  DWORD T18;
  DWORD T19;
  D T20;
  D T21;
  DWORD T22;
  D T23;
  DBCHR T24;
  D T25;
  D T26_0;
  D T27;
  D T28;
  D T29;
  D T30;
  D T31;
  D T32;
  D T33;
  D T34_0;
  D T35_0;
  D T36;
  D T37;
  D argF38T, argF38;
  D T39;
  D digitsF40T, digitsF40;
  D T41;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:276
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:285
  argF38T = arg_;
  digitsF40T = digits_;
L0: ;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:285
    argF38 = argF38T;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:285
    primitive_type_check(argF38, &KLintegerGVKd);
    T39 = argF38;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:285
    digitsF40 = digitsF40T;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:285
    primitive_type_check(digitsF40, &KLlistGVKd);
    T41 = digitsF40;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T8 = primitive_cast_integer_as_raw(T39);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T9 = primitive_machine_word_shift_right(T8,2);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T10 = primitive_cast_integer_as_raw(radix_);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T11 = primitive_machine_word_shift_right(T10,2);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T12_0 = primitive_machine_word_floorS_byref(T9,T11,(DWORD*)&T12_1);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    quotient_ = T12_0;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    remainder_ = T12_1;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T15 = primitive_machine_word_shift_left_signal_overflow(quotient_,2);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T16 = primitive_machine_word_logior(T15,1);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T17 = primitive_cast_raw_as_integer(T16);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T18 = primitive_machine_word_shift_left_signal_overflow(remainder_,2);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T19 = primitive_machine_word_logior(T18,1);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:278
    T20 = primitive_cast_raw_as_integer(T19);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
    T21 = SLOT_VALUE_INITD(DdigitsYformat_internalsVio, 0);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
    T22 = primitive_cast_integer_as_raw(T21);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
    T23 = primitive_machine_word_unsigned_less_thanQ(T19,T22);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
    if (T23 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
      T24 = REPEATED_DBCHR_SLOT_VALUE_TAGGED(DdigitsYformat_internalsVio, 1, T19);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
      T25 = primitive_raw_as_byte_character(T24);
      T28 = T25;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
      T26_0 = Kelement_range_errorVKeI(DdigitsYformat_internalsVio, T20);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
      T27 = T26_0;
      T28 = T27;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
    T29 = primitive_object_allocate_filled(3,&KLpairGVKdW,2,&KPunboundVKi,0,0,&KPunboundVKi);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
    SLOT_VALUE_SETTER(T28, T29, 0);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:279
    SLOT_VALUE_SETTER(T41, T29, 1);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:280
    T30 = primitive_machine_word_equalQ(T16,1);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:280
    if (T30 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
      T5T = T29;
    L1: ;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
        T5 = T5T;
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
        T31 = primitive_idQ(T5,&KPempty_listVKi);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
        if (T31 == &KPfalseVKi) {
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
          T32 = SLOT_VALUE_INITD(T5, 0);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:282
          CONGRUENT_CALL_PROLOG(&Kwrite_elementYstreams_protocolVcommon_dylan, 2);
          CONGRUENT_CALL2(stream_, T32);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
          T33 = SLOT_VALUE_INITD(T5, 1);
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
          T34_0 = T33;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
          T35_0 = T34_0;
          {
            MV_CHECK_TYPE_PROLOGUE(T34_0);
            primitive_type_check(T35_0, &KLlistGVKd);
            MV_CHECK_TYPE_EPILOGUE();
          }
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
          T36 = T35_0;
          // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
          T5T = T36;
          goto L1;
        }
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
        T6 = &KPfalseVKi;
        MV_SET_ELT(0, &KPfalseVKi);
        MV_SET_COUNT(1);
        // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:281
      T7 = T6;
    } else {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:285
      argF38T = T17;
      digitsF40T = T29;
      goto L0;
      T7 = T37;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:280
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:285
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:276
  return(T7);
}

D Kprint_messageYformatVioMM0I (D object_, D stream_) {
  D Pold_valueP_;
  D T4;
  D T5;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:67
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:69
  Pold_valueP_ = primitive_read_thread_variable(Tprint_escapeQTYprintVio);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:69
  ENTER_UNWIND_FRAME(T4);
  if (!nlx_setjmp(FRAME_DEST(T4))) {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:69
    primitive_write_thread_variable(Tprint_escapeQTYprintVio, &KPfalseVKi);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:70
    CONGRUENT_CALL_PROLOG(&Kprint_objectYprintVio, 2);
    T5 = CONGRUENT_CALL2(object_, stream_);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:69
    FALL_THROUGH_UNWIND(T5);
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:69
  primitive_write_thread_variable(Tprint_escapeQTYprintVio, Pold_valueP_);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:69
  CONTINUE_UNWIND();
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:67
  MV_SET_COUNT(0);
  return(T5);
}

D Kprint_messageYformatVioMM1I (D object_, D stream_) {
  D Pold_valueP_;
  D T4;
  D T5;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:74
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:80
  Pold_valueP_ = primitive_read_thread_variable(Tprint_escapeQTYprintVio);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:80
  ENTER_UNWIND_FRAME(T4);
  if (!nlx_setjmp(FRAME_DEST(T4))) {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:80
    primitive_write_thread_variable(Tprint_escapeQTYprintVio, &KPfalseVKi);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:81
    CONGRUENT_CALL_PROLOG(&Kprint_objectYprintVio, 2);
    T5 = CONGRUENT_CALL2(object_, stream_);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:80
    FALL_THROUGH_UNWIND(T5);
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:80
  primitive_write_thread_variable(Tprint_escapeQTYprintVio, Pold_valueP_);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:80
  CONTINUE_UNWIND();
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:74
  MV_SET_COUNT(0);
  return(T5);
}

D Kprint_messageYformatVioMM2I (D object_, D stream_) {
  D T3;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:85
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:87
  CONGRUENT_CALL_PROLOG(&Kwrite_textYstreamsVio, 3);
  T3 = CONGRUENT_CALL3(stream_, object_, &KPempty_vectorVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:85
  MV_SET_COUNT(0);
  return(T3);
}

D Kprint_messageYformatVioMM3I (D object_, D stream_) {
  D T3;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:90
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:92
  CONGRUENT_CALL_PROLOG(&Kwrite_elementYstreams_protocolVcommon_dylan, 2);
  T3 = CONGRUENT_CALL2(stream_, object_);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:90
  MV_SET_COUNT(0);
  return(T3);
}

D Kprint_messageYformatVioMM4I (D object_, D stream_) {
  D T3;
  D T4;
  D T5_0;
  D T6_0;
  D T7;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:95
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:97
  T4 = SLOT_VALUE_INITD(object_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:97
  T5_0 = T4;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:97
  T6_0 = T5_0;
  {
    MV_CHECK_TYPE_PROLOGUE(T5_0);
    primitive_type_check(T6_0, &KLbyte_stringGVKd);
    MV_CHECK_TYPE_EPILOGUE();
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:97
  T7 = T6_0;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:97
  CONGRUENT_CALL_PROLOG(&KwriteYstreams_protocolVcommon_dylan, 3);
  T3 = CONGRUENT_CALL3(stream_, T7, &KPempty_vectorVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:95
  MV_SET_COUNT(0);
  return(T3);
}

D Kformat_to_stringYformatVioMM0I (D control_string_, D args_) {
  D T3_0;
  D T4;
  D T5;
  D T6_0;
  _KLsimple_object_vectorGVKd_4 T7 = {&KLsimple_object_vectorGVKdW, (D) 17};
  D T8_0;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:46
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:52
  T4 = KmakeVKdMM33I(&KLbyte_stringGVKd, &KPempty_vectorVKi, C(' '), (D) 129);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:51
  T7.vector_element_[0] = IKJcontents_;
  T7.vector_element_[1] = T4;
  T7.vector_element_[2] = &KJdirection_;
  T7.vector_element_[3] = &KJoutput_;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:51
  T6_0 = KLbyte_string_streamGZ32ZconstructorYstreams_internalsVioMM0I(&KLbyte_string_streamGYstreamsVio, &T7, &KPunboundVKi, &KLobjectGVKd, &KPfalseVKi, T4);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:51
  T5 = T6_0;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:53
  KformatYformatVioMM0I(T5, control_string_, args_);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:54
  T8_0 = Kstream_contentsYstreams_protocolVcommon_dylanMioM0I(T5, &KPempty_vectorVKi, &KPtrueVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:46
  T3_0 = T8_0;
  {
    MV_CHECK_TYPE_PROLOGUE(T8_0);
    primitive_type_check(T3_0, &KLbyte_stringGVKd);
    MV_CHECK_TYPE_EPILOGUE();
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:46
  MV_SET_COUNT(1);
  return(T3_0);
}


/* SYSTEM INIT CODE */

void _Init_io__X_format_for_system () {
  extern D KPresolve_symbolVKiI(D);
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJdigit_);
    if (T0 != &KJdigit_) {
      IKJdigit_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJcontents_);
    if (T0 != &KJcontents_) {
      IKJcontents_ = T0;
    }
  }
  return;
}

/* USER INIT CODE */

void _Init_io__X_format_for_user () {
{
  D T0;
  D T1_0;
  D T2;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:108
  T1_0 = KmakeVKdMM23I(&KLsimple_object_vectorGVKd, &KPempty_vectorVKi, &KPfalseVKi, (D) 1025);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:108
  T2 = T1_0;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:107
  char_classesYformat_internalsVio = T2;
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:107
  T0 = &KPfalseVKi;
  goto I0;
}
I0:

{
  D i_T, i_;
  D T1;
  D T2;
  D T3;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:110
  i_T = (D) 193;
L0: ;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:110
    i_ = i_T;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:110
    CONGRUENT_CALL_PROLOG(&KLVKd, 2);
    T1 = CONGRUENT_CALL2(i_, (D) 233);
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:110
    if (T1 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:111
      CONGRUENT_CALL_PROLOG(&Kelement_setterVKd, 3);
      CONGRUENT_CALL3(IKJdigit_, char_classesYformat_internalsVio, i_);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:110
      CONGRUENT_CALL_PROLOG(&KAVKd, 2);
      T2 = CONGRUENT_CALL2(i_, (D) 5);
      // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:110
      i_T = T2;
      goto L0;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:110
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:110
    T3 = &KPfalseVKi;
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:110
  goto I1;
}
I1:

{
  D T0;
  D T1;
  DWORD T2;
  D T3;

  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:113
  T1 = SLOT_VALUE_INITD(char_classesYformat_internalsVio, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:113
  T2 = primitive_cast_integer_as_raw(T1);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:113
  T3 = primitive_machine_word_unsigned_less_thanQ(181,T2);
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:113
  if (T3 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:113
    REPEATED_D_SLOT_VALUE_TAGGED_SETTER(IKJdigit_, char_classesYformat_internalsVio, 1, 181);
  } else {
    // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:113
    Kelement_range_errorVKeI(char_classesYformat_internalsVio, (D) 181);
  }
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:113
  // /Users/bruce/Development/dylan/opendylan/sources/io/format.dylan:113
  T0 = &KPfalseVKi;
  goto I3;
}
I3:

  return;
}


/* eof */
