#include "run-time.h"

/* Typedefs for referenced classes */

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;
} _KLobjectGVKd;

typedef struct {
  D wrapper;
} _KLunboundGVKe;

typedef struct {
  D wrapper;
} _KLbooleanGVKd;

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

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;
  D signature_properties_;
  D signature_required_;
} _KLsignatureGVKe;

#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(6);
define__KLsimple_object_vectorGVKd(256);
define__KLsimple_object_vectorGVKd(1);
define__KLsimple_object_vectorGVKd(2);
define__KLsimple_object_vectorGVKd(4);
define__KLsimple_object_vectorGVKd(0);
define__KLsimple_object_vectorGVKd(8);
define__KLsimple_object_vectorGVKd(16);

typedef struct {
  D wrapper;
} _KLsignature_specGVdfmc_definitions;

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

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

#define  define__KLbyte_stringGVKd(nrepeated) \
  typedef struct { \
    D wrapper; \
    D size_; \
    char string_element_[nrepeated+1]; \
  } _KLbyte_stringGVKd_##nrepeated;
define__KLbyte_stringGVKd(22);
define__KLbyte_stringGVKd(17);
define__KLbyte_stringGVKd(7);
define__KLbyte_stringGVKd(23);
define__KLbyte_stringGVKd(13);
define__KLbyte_stringGVKd(15);
define__KLbyte_stringGVKd(32);
define__KLbyte_stringGVKd(27);
define__KLbyte_stringGVKd(29);
define__KLbyte_stringGVKd(24);

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 xep_;
  D function_signature_;
  D Pgf_cache_;
  D debug_name_;
  D generic_function_methods_;
  D discriminator_;
} _KLsealed_generic_functionGVKe;

typedef struct {
  D wrapper;
  D private_spec_variable_name_;
} _KLrequired_variable_specGVdfmc_definitions;

typedef struct {
  D wrapper;
  D private_spec_variable_name_;
} _KLrest_variable_specGVdfmc_definitions;

typedef struct {
  D wrapper;
  D instanceQ_iep_;
  D union_type1_;
  D union_type2_;
} _KLunionGVKe;

typedef struct {
  D wrapper;
  D instanceQ_iep_;
  D singleton_object_;
} _KLsingletonGVKd;

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

typedef struct {
  D wrapper;
  D xep_;
  D function_signature_;
  D mep_;
  D iep_;
  D keyword_specifiers_;
} _KLkeyword_methodGVKe;

typedef struct {
  D wrapper;
  D class_properties_;
  D iclass_class_;
  D class_mm_wrapper_;
  D repeated_slot_descriptor_;
  D instance_slot_descriptors_;
  D iclass_dispatch_key_;
  D class_constructor_;
  D direct_superclasses_;
  D class_rcpl_vector_;
  D class_rcpl_position_;
  D class_rcpl_other_positions_;
  D class_known_joint_;
  D iclass_dependent_generics_;
  D iclass_subclass_dependent_generics_;
  D direct_subclasses_;
  D direct_methods_;
  D direct_slot_descriptors_;
  D slot_descriptors_;
  D direct_inherited_slot_descriptors_;
  D direct_initialization_argument_descriptors_;
  D class_slot_descriptors_;
  D defaulted_initialization_arguments_slot_;
  D class_slot_storage_;
} _KLimplementation_classGVKe;

typedef struct {
  D wrapper;
  D xep_;
} _KLfunctionGVKd;

typedef struct {
  D wrapper;
  D signature_properties_;
  D signature_required_;
  D signature_keys_;
  D signature_key_types_;
  D signature_values_;
} _KLkeyword_signatureAvaluesGVKi;

typedef struct {
  D wrapper;
  D slot_descriptor_properties_;
  D init_data_slot_;
  D slot_owner_;
  D init_keyword_;
  D slot_getter_;
  D slot_setter_;
  D slot_type_;
} _KLinstance_slot_descriptorGVKe;

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

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

typedef struct {
  D wrapper;
  D xep_;
  D method_slot_descriptor_;
} _KLgetter_methodGVKi;

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


/* Typedefs for defined classes */

typedef struct {
  D wrapper;
  D primitive_emitter_;
} _KLprimitive_descriptorGVdfmc_modeling;


/* Referenced object declarations */

D KPadd_classVKeI (D);
extern _KLclassGVKd KLclassGVKd;
extern _KLmm_wrapperGVKi_0 KLclassGVKdW;
extern _KLclassGVKd KLmm_wrapperGVKi;
extern _KLmm_wrapperGVKi_1 KLmm_wrapperGVKiW;
extern _KLclassGVKd KLobjectGVKd;
extern _KLmm_wrapperGVKi_0 KLobjectGVKdW;
extern _KLunboundGVKe KPunboundVKi;
extern _KLclassGVKd KLunboundGVKe;
extern _KLmm_wrapperGVKi_0 KLunboundGVKeW;
extern _KLbooleanGVKd KPtrueVKi;
extern _KLclassGVKd KLbooleanGVKd;
extern _KLmm_wrapperGVKi_0 KLbooleanGVKdW;
extern _KLbooleanGVKd KPfalseVKi;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLclassGVKd KLfunction_classGVKi;
extern _KLmm_wrapperGVKi_0 KLfunction_classGVKiW;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLclassGVKd KLsignatureGVKe;
extern _KLmm_wrapperGVKi_0 KLsignatureGVKeW;
extern _KLsimple_object_vectorGVKd_16 KDsignature_Lsimple_object_vectorG_typesVKi;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
D KmakeVKdMdfmc_definitionsM20I (D, D, D, D, D, D);
extern _KLclassGVKd KLsignature_specGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLsignature_specGVdfmc_definitionsW;
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
extern _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
extern _KLincremental_generic_functionGVKe Kcollector_protocolYcollectorsVcollections;
extern _KLfunction_classGVKi KLincremental_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLincremental_generic_functionGVKeW;
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
D KelementVKdMM11I (D, D, D, D);
extern _KLsealed_generic_functionGVKe Kunsupplied_objectVKi;
extern _KLclassGVKd KLsealed_generic_functionGVKe;
extern _KLmm_wrapperGVKi_0 KLsealed_generic_functionGVKeW;
extern _KLincremental_generic_functionGVKe KasVKd;
extern _KLsealed_generic_functionGVKe Kmake_variable_name_fragmentVdfmc_common;
D KmakeVKdMdfmc_definitionsM18I (D, D, D, D);
extern _KLclassGVKd KLrequired_variable_specGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLrequired_variable_specGVdfmc_definitionsW;
D KLrest_variable_specGZ32ZconstructorVdfmc_definitionsMM0I (D, D, D);
extern _KLclassGVKd KLrest_variable_specGVdfmc_definitions;
extern _KLmm_wrapperGVKi_0 KLrest_variable_specGVdfmc_definitionsW;
extern _KLclassGVKd KLunionGVKe;
extern _KLmm_wrapperGVKi_0 KLunionGVKeW;
D Kunion_instanceQVKiI (D, D);
extern _KLclassGVKd KLsingletonGVKd;
extern _KLmm_wrapperGVKi_0 KLsingletonGVKdW;
D Ksingleton_pointer_idQ_instanceQVKiI (D, D);
extern _KLclassGVKd KLpairGVKd;
extern _KLmm_wrapperGVKi_0 KLpairGVKdW;
extern _KLkeyword_methodGVKe KmakeVKdMM48;
extern _KLfunction_classGVKi KLkeyword_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLkeyword_methodGVKeW;
extern _KLclassGVKd KLimplementation_classGVKe;
extern _KLmm_wrapperGVKi_0 KLimplementation_classGVKeW;
D KerrorVKdMM1I (D, D);
extern _KLclassGVKd KLfunctionGVKd;
extern _KLmm_wrapperGVKi_0 KLfunctionGVKdW;
extern _KLincremental_generic_functionGVKe KinitializeVKd;
extern _KLclassGVKd KLkeyword_signatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLkeyword_signatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_2 KDsignature_LclassG_typesVKi;
extern _KLsimple_object_vectorGVKd_256 KDsignature_LobjectG_typesVKi;
extern _KLclassGVKd KLinstance_slot_descriptorGVKe;
extern _KLmm_wrapperGVKi_0 KLinstance_slot_descriptorGVKeW;
extern _KLobject_signatureGVKe KDsignature_LobjectG_object_rest_value_1VKi;
extern _KLclassGVKd KLobject_signatureGVKe;
extern _KLmm_wrapperGVKi_0 KLobject_signatureGVKeW;
extern _KLabsent_engine_nodeGVKg RSINGULAR_Labsent_engine_nodeG;
extern _KLclassGVKd KLabsent_engine_nodeGVKg;
extern _KLmm_wrapperGVKi_0 KLabsent_engine_nodeGVKgW;
extern _KLclassGVKd KLgetter_methodGVKi;
extern _KLmm_wrapperGVKi_0 KLgetter_methodGVKiW;
D Kclass_instanceQ_rcpl_single_smallVKiI (D, D);
extern _KLmoduleGVKe Kdfmc_modeling_moduleYdylan_userVdfmc_modeling;
extern _KLclassGVKd KLmoduleGVKe;
extern _KLmm_wrapperGVKi_0 KLmoduleGVKeW;

/* Defined object declarations */

extern _KLclassGVKd KLprimitive_descriptorGVdfmc_modeling;
extern _KLmm_wrapperGVKi_0 KLprimitive_descriptorGVdfmc_modelingW;
D Kmake_primitive_sig_specVdfmc_modelingI (D, D);
extern _KLsimple_methodGVKe Kmake_primitive_sig_specVdfmc_modeling;
static _KLsignatureGVKe K5;
D Kmake_primitive_specsVdfmc_modelingI (D);
static _KLsymbolGVKd KJargument_required_variable_specs_;
static _KLsymbolGVKd KJargument_rest_variable_spec_;
static _KLsymbolGVKd KJvalue_required_variable_specs_;
static _KLsymbolGVKd KJvalue_rest_variable_spec_;
static _KLbyte_stringGVKd_24 K11;
static _KLbyte_stringGVKd_29 K12;
static _KLbyte_stringGVKd_27 K13;
static _KLbyte_stringGVKd_32 K14;
static _KLsymbolGVKd KJvariable_name_;
static _KLsymbolGVKd KJtype_expression_;
static _KLpairGVKd K17;
static _KLunionGVKe K18;
static _KLsingletonGVKd K19;
static _KLbyte_stringGVKd_15 K20;
static _KLbyte_stringGVKd_13 K21;
static _KLimplementation_classGVKe K22;
static _KLsimple_object_vectorGVKd_1 K23;
extern _KLkeyword_methodGVKe KLprimitive_descriptorGZ32ZconstructorVdfmc_modelingMM0;
D KLprimitive_descriptorGZ32ZconstructorVdfmc_modelingMM0I (D, D, D);
static _KLsimple_object_vectorGVKd_1 K26;
static _KLsimple_object_vectorGVKd_6 K27;
static _KLsymbolGVKd KJemitter_;
static _KLbyte_stringGVKd_23 K29;
static _KLbyte_stringGVKd_7 K30;
static _KLkeyword_signatureAvaluesGVKi K31;
static _KLsimple_object_vectorGVKd_2 K32;
static _KLsimple_object_vectorGVKd_1 K33;
static _KLsimple_object_vectorGVKd_1 K34;
extern _KLinstance_slot_descriptorGVKe Kprimitive_emitterVdfmc_modelingHLprimitive_descriptorG;
extern _KLsealed_generic_functionGVKe Kprimitive_emitterVdfmc_modeling;
extern _KLgetter_methodGVKi Kprimitive_emitterVdfmc_modelingMM0;
static _KLpairGVKd K38;
static _KLbyte_stringGVKd_17 K39;
static _KLbyte_stringGVKd_22 K40;

/* Indirection variables */

static D IKJargument_required_variable_specs_ = &KJargument_required_variable_specs_;
static D IKJargument_rest_variable_spec_ = &KJargument_rest_variable_spec_;
static D IKJvalue_required_variable_specs_ = &KJvalue_required_variable_specs_;
static D IKJvalue_rest_variable_spec_ = &KJvalue_rest_variable_spec_;
static D IKJvariable_name_ = &KJvariable_name_;
static D IKJtype_expression_ = &KJtype_expression_;
static D IKJemitter_ = &KJemitter_;

/* Variables */

D primitive_emitterVdfmc_modeling = &Kprimitive_emitterVdfmc_modeling;
D Lprimitive_descriptorGVdfmc_modeling = &KLprimitive_descriptorGVdfmc_modeling;
D make_primitive_sig_specVdfmc_modeling = &Kmake_primitive_sig_specVdfmc_modeling;

/* Objects */

_KLclassGVKd KLprimitive_descriptorGVdfmc_modeling = {
  &KLclassGVKdW /* wrapper */,
  &Kclass_instanceQ_rcpl_single_smallVKiI,
  &K40,
  &K22,
  (D) 1,
  &Kdfmc_modeling_moduleYdylan_userVdfmc_modeling
};

_KLmm_wrapperGVKi_0 KLprimitive_descriptorGVdfmc_modelingW = {
  &KLmm_wrapperGVKiW /* wrapper */,
  &K22,
  (D) 1,
  5,
  33554439,
  (D) 1
};

_KLsimple_methodGVKe Kmake_primitive_sig_specVdfmc_modeling = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_2,
  &K5,
  &Kmake_primitive_sig_specVdfmc_modelingI
};

static _KLsignatureGVKe K5 = {
  &KLsignatureGVKeW /* wrapper */,
  (D) 44040201,
  &KDsignature_Lsimple_object_vectorG_typesVKi
};

static _KLsymbolGVKd KJargument_required_variable_specs_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K14
};

static _KLsymbolGVKd KJargument_rest_variable_spec_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K13
};

static _KLsymbolGVKd KJvalue_required_variable_specs_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K12
};

static _KLsymbolGVKd KJvalue_rest_variable_spec_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K11
};

static _KLbyte_stringGVKd_24 K11 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 97,
  "value-rest-variable-spec"
};

static _KLbyte_stringGVKd_29 K12 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 117,
  "value-required-variable-specs"
};

static _KLbyte_stringGVKd_27 K13 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 109,
  "argument-rest-variable-spec"
};

static _KLbyte_stringGVKd_32 K14 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 129,
  "argument-required-variable-specs"
};

static _KLsymbolGVKd KJvariable_name_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K21
};

static _KLsymbolGVKd KJtype_expression_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K20
};

static _KLpairGVKd K17 = {
  &KLpairGVKdW /* wrapper */,
  &KmakeVKdMM48,
  &KPempty_listVKi
};

static _KLunionGVKe K18 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K19,
  &KLrest_variable_specGVdfmc_definitions
};

static _KLsingletonGVKd K19 = {
  &KLsingletonGVKdW /* wrapper */,
  &Ksingleton_pointer_idQ_instanceQVKiI,
  &KPfalseVKi
};

static _KLbyte_stringGVKd_15 K20 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 61,
  "type-expression"
};

static _KLbyte_stringGVKd_13 K21 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 53,
  "variable-name"
};

static _KLimplementation_classGVKe K22 = {
  &KLimplementation_classGVKeW /* wrapper */,
  (D) 341835781,
  &KLprimitive_descriptorGVdfmc_modeling,
  &KLprimitive_descriptorGVdfmc_modelingW,
  &KPfalseVKi,
  &K23,
  (D) -3,
  &KLprimitive_descriptorGZ32ZconstructorVdfmc_modelingMM0,
  &K26,
  &K27,
  (D) 5,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_vectorVKi,
  &K23,
  &K23,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi
};

static _KLsimple_object_vectorGVKd_1 K23 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &Kprimitive_emitterVdfmc_modelingHLprimitive_descriptorG
};

_KLkeyword_methodGVKe KLprimitive_descriptorGZ32ZconstructorVdfmc_modelingMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_3,
  &K31,
  &key_mep_2,
  &KLprimitive_descriptorGZ32ZconstructorVdfmc_modelingMM0I,
  &K32
};

static _KLsimple_object_vectorGVKd_1 K26 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KLobjectGVKd
};

static _KLsimple_object_vectorGVKd_6 K27 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 25,
  &KLobjectGVKd,
  &KLprimitive_descriptorGVdfmc_modeling,
  &KPfalseVKi,
  &KPfalseVKi,
  &KPfalseVKi,
  &KPfalseVKi
};

static _KLsymbolGVKd KJemitter_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K30
};

static _KLbyte_stringGVKd_23 K29 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 93,
  "Missing init keyword %="
};

static _KLbyte_stringGVKd_7 K30 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 29,
  "emitter"
};

static _KLkeyword_signatureAvaluesGVKi K31 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (D) 35390469,
  &KDsignature_LclassG_typesVKi,
  &K33,
  &KDsignature_LobjectG_typesVKi,
  &K34
};

static _KLsimple_object_vectorGVKd_2 K32 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 9,
  &KJemitter_,
  &KPunboundVKi
};

static _KLsimple_object_vectorGVKd_1 K33 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KJemitter_
};

static _KLsimple_object_vectorGVKd_1 K34 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 5,
  &KLprimitive_descriptorGVdfmc_modeling
};

_KLinstance_slot_descriptorGVKe Kprimitive_emitterVdfmc_modelingHLprimitive_descriptorG = {
  &KLinstance_slot_descriptorGVKeW /* wrapper */,
  (D) 193,
  &KPfalseVKi,
  &KLprimitive_descriptorGVdfmc_modeling,
  &KJemitter_,
  &Kprimitive_emitterVdfmc_modeling,
  &KPfalseVKi,
  &KLfunctionGVKd
};

_KLsealed_generic_functionGVKe Kprimitive_emitterVdfmc_modeling = {
  &KLsealed_generic_functionGVKeW /* wrapper */,
  &gf_xep_1,
  &KDsignature_LobjectG_object_rest_value_1VKi,
  &KPfalseVKi,
  &K39,
  &K38,
  &RSINGULAR_Labsent_engine_nodeG
};

_KLgetter_methodGVKi Kprimitive_emitterVdfmc_modelingMM0 = {
  &KLgetter_methodGVKiW /* wrapper */,
  &slotacc_single_q_instance_getter_xep,
  &Kprimitive_emitterVdfmc_modelingHLprimitive_descriptorG
};

static _KLpairGVKd K38 = {
  &KLpairGVKdW /* wrapper */,
  &Kprimitive_emitterVdfmc_modelingMM0,
  &KPempty_listVKi
};

static _KLbyte_stringGVKd_17 K39 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 69,
  "primitive-emitter"
};

static _KLbyte_stringGVKd_22 K40 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (D) 89,
  "<primitive-descriptor>"
};

/* Code */

D Kmake_primitive_sig_specVdfmc_modelingI (D args_, D vals_) {
  D T2_0;
  D T2_1;
  D arg_reqs_;
  D arg_rest_;
  D T5_0;
  D T5_1;
  D val_reqs_;
  D val_rest_;
  _KLsimple_object_vectorGVKd_8 T8 = {&KLsimple_object_vectorGVKdW, (D) 33};
  D T9;

  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:56
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:58
  T2_0 = Kmake_primitive_specsVdfmc_modelingI(args_);
  T2_1 = MV_GET_ELT(1);
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:58
  arg_reqs_ = T2_0;
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:58
  arg_rest_ = T2_1;
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:59
  T5_0 = Kmake_primitive_specsVdfmc_modelingI(vals_);
  T5_1 = MV_GET_ELT(1);
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:59
  val_reqs_ = T5_0;
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:59
  val_rest_ = T5_1;
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:60
  T8.vector_element_[0] = IKJargument_required_variable_specs_;
  T8.vector_element_[1] = arg_reqs_;
  T8.vector_element_[2] = IKJargument_rest_variable_spec_;
  T8.vector_element_[3] = arg_rest_;
  T8.vector_element_[4] = IKJvalue_required_variable_specs_;
  T8.vector_element_[5] = val_reqs_;
  T8.vector_element_[6] = IKJvalue_rest_variable_spec_;
  T8.vector_element_[7] = val_rest_;
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:60
  T9 = KmakeVKdMdfmc_definitionsM20I(&KLsignature_specGVdfmc_definitions, &T8, arg_rest_, &KPfalseVKi, val_reqs_, val_rest_);
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:56
  return(T9);
}

D Kmake_primitive_specsVdfmc_modelingI (D x_) {
  D T2_0;
  D T2_1;
  D T2_2;
  D T2_3;
  D T2_4;
  D T2_5;
  D Ucollector_collector_;
  D Ucollector_add_last_;
  D Ucollector_collection_;
  DWORD i_T, i_;
  D T7;
  D T8;
  D T9;
  D T10;
  D T11;
  D reqs_;
  D T13;
  D nameF14;
  D T15;
  D rest_;
  D T17_0;
  D T17_1;
  D T18;
  DWORD T19;
  DWORD T20;
  D T21;
  D T22;
  D nameF23;
  DWORD T24;
  D T25;
  D type_;
  _KLsimple_object_vectorGVKd_4 T27 = {&KLsimple_object_vectorGVKdW, (D) 17};
  D T28;
  DWORD T29;
  D T30;
  DWORD T31;
  D T32;
  D T33;
  D T34;
  D T35_0;
  _KLsimple_object_vectorGVKd_2 T36 = {&KLsimple_object_vectorGVKdW, (D) 9};
  D T37_0;
  D T37_1;

  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:34
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:38
  T18 = SLOT_VALUE_INITD(x_, 0);
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:38
  T19 = primitive_cast_integer_as_raw(T18);
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:38
  T20 = primitive_machine_word_logand(T19,0xFFFFFFF9L);
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:40
  CONGRUENT_CALL_PROLOG(&Kcollector_protocolYcollectorsVcollections, 2);
  T2_0 = CONGRUENT_CALL2(&KLsimple_object_vectorGVKd, &KPempty_vectorVKi);
  T2_1 = MV_GET_ELT(1);
  T2_2 = MV_GET_ELT(2);
  T2_3 = MV_GET_ELT(3);
  T2_4 = MV_GET_ELT(4);
  T2_5 = MV_GET_ELT(5);
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:40
  Ucollector_collector_ = T2_0;
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:40
  Ucollector_add_last_ = T2_2;
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:40
  Ucollector_collection_ = T2_5;
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:41
  i_T = 1;
L0: ;
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:41
    i_ = i_T;
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:41
    T22 = primitive_cast_raw_as_integer(i_);
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:41
    T21 = primitive_machine_word_less_thanQ(i_,T20);
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:41
    if (T21 != &KPfalseVKi) {
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:42
      nameF23 = KelementVKdMM11I(x_, T22, &KPempty_vectorVKi, &Kunsupplied_objectVKi);
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:43
      T24 = primitive_machine_word_add_signal_overflow(i_,4);
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:43
      T25 = primitive_cast_raw_as_integer(T24);
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:43
      type_ = KelementVKdMM11I(x_, T25, &KPempty_vectorVKi, &Kunsupplied_objectVKi);
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:45
      CONGRUENT_CALL_PROLOG(&KasVKd, 2);
      T7 = CONGRUENT_CALL2(&KLsymbolGVKd, nameF23);
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:45
      CONGRUENT_CALL_PROLOG(&Kmake_variable_name_fragmentVdfmc_common, 1);
      T8 = CONGRUENT_CALL1(T7);
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:46
      if (type_ != &KPfalseVKi) {
        // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:46
        CONGRUENT_CALL_PROLOG(&KasVKd, 2);
        T9 = CONGRUENT_CALL2(&KLsymbolGVKd, type_);
        // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:46
        CONGRUENT_CALL_PROLOG(&Kmake_variable_name_fragmentVdfmc_common, 1);
        T10 = CONGRUENT_CALL1(T9);
        T11 = T10;
      } else {
        T11 = &KPfalseVKi;
      }
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:46
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:44
      T27.vector_element_[0] = IKJvariable_name_;
      T27.vector_element_[1] = T8;
      T27.vector_element_[2] = IKJtype_expression_;
      T27.vector_element_[3] = T11;
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:44
      MIEP_CALL_PROLOG(&K17);
      T28 = KmakeVKdMdfmc_definitionsM18I(&KLrequired_variable_specGVdfmc_definitions, &T27, T8, T11);
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:44
      CALL2(Ucollector_add_last_, Ucollector_collector_, T28);
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:41
      T29 = primitive_machine_word_add_signal_overflow(i_,8);
      // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:41
      i_T = T29;
      goto L0;
    }
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:41
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:41
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:40
  reqs_ = CALL1(Ucollector_collection_, Ucollector_collector_);
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:50
  T30 = primitive_machine_word_logbitQ(2,T19);
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:50
  if (T30 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:50
    T31 = primitive_machine_word_subtract_signal_overflow(T19,4);
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:50
    T32 = primitive_cast_raw_as_integer(T31);
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:50
    T33 = KelementVKdMM11I(x_, T32, &KPempty_vectorVKi, &Kunsupplied_objectVKi);
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:50
    CONGRUENT_CALL_PROLOG(&KasVKd, 2);
    T13 = CONGRUENT_CALL2(&KLsymbolGVKd, T33);
    nameF14 = T13;
  } else {
    nameF14 = &KPfalseVKi;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:50
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:52
  if (nameF14 != &KPfalseVKi) {
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:52
    CONGRUENT_CALL_PROLOG(&Kmake_variable_name_fragmentVdfmc_common, 1);
    T15 = CONGRUENT_CALL1(nameF14);
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:52
    T36.vector_element_[0] = IKJvariable_name_;
    T36.vector_element_[1] = T15;
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:52
    T35_0 = KLrest_variable_specGZ32ZconstructorVdfmc_definitionsMM0I(&KLrest_variable_specGVdfmc_definitions, &T36, T15);
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:52
    T34 = T35_0;
    rest_ = T34;
  } else {
    rest_ = &KPfalseVKi;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:52
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:53
  T37_0 = reqs_;
  T37_1 = rest_;
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:34
  T17_0 = T37_0;
  T17_1 = T37_1;
  {
    MV_CHECK_TYPE_PROLOGUE(T37_0);
    primitive_type_check(T17_0, &KLsimple_object_vectorGVKd);
    primitive_type_check(T17_1, &K18);
    MV_CHECK_TYPE_EPILOGUE();
  }
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:34
  MV_SET_ELT(1, T17_1);
  MV_SET_COUNT(2);
  return(T17_0);
}

D KLprimitive_descriptorGZ32ZconstructorVdfmc_modelingMM0I (D class_, D init_args_, D Uunique_primitive_emitter_) {
  D T4;
  D Uunique_primitive_emitterF5;
  D T6;
  D Uunique_primitive_emitterF7;
  D T8_0;
  D T9;
  _KLsimple_object_vectorGVKd_1 T10 = {&KLsimple_object_vectorGVKdW, (D) 5};
  D T11;

  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:10
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:10
  T9 = primitive_idQ(Uunique_primitive_emitter_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:10
  if (T9 != &KPfalseVKi) {
    T10.vector_element_[0] = IKJemitter_;
    T11 = KerrorVKdMM1I(&K29, &T10);
    // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:10
    T4 = T11;
    Uunique_primitive_emitterF5 = T4;
  } else {
    Uunique_primitive_emitterF5 = Uunique_primitive_emitter_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:10
  T6 = primitive_object_allocate_filled(2,&KLprimitive_descriptorGVdfmc_modelingW,1,&KPunboundVKi,0,0,&KPunboundVKi);
  primitive_type_check(Uunique_primitive_emitterF5, &KLfunctionGVKd);
  Uunique_primitive_emitterF7 = Uunique_primitive_emitterF5;
  SLOT_VALUE_SETTER(Uunique_primitive_emitterF7, T6, 0);
  APPLY2(&KinitializeVKd, T6, init_args_);
  T8_0 = T6;
  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:10
  MV_SET_COUNT(1);
  return(T8_0);
}


/* SYSTEM INIT CODE */

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

    T0 = KPresolve_symbolVKiI(&KJargument_required_variable_specs_);
    if (T0 != &KJargument_required_variable_specs_) {
      IKJargument_required_variable_specs_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJargument_rest_variable_spec_);
    if (T0 != &KJargument_rest_variable_spec_) {
      IKJargument_rest_variable_spec_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJvalue_required_variable_specs_);
    if (T0 != &KJvalue_required_variable_specs_) {
      IKJvalue_required_variable_specs_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJvalue_rest_variable_spec_);
    if (T0 != &KJvalue_rest_variable_spec_) {
      IKJvalue_rest_variable_spec_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJvariable_name_);
    if (T0 != &KJvariable_name_) {
      IKJvariable_name_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJtype_expression_);
    if (T0 != &KJtype_expression_) {
      IKJtype_expression_ = T0;
    }
  }
  {
    D T0;

    T0 = KPresolve_symbolVKiI(&KJemitter_);
    if (T0 != &KJemitter_) {
      primitive_slot_value_setter(T0, &Kprimitive_emitterVdfmc_modelingHLprimitive_descriptorG, 3);
      primitive_repeated_slot_value_setter(T0, &K33, 1, 0);
      primitive_repeated_slot_value_setter(T0, &K32, 1, 0);
      IKJemitter_ = T0;
    }
  }
{
  D T0;

  // /Users/bruce/Development/dylan/opendylan/sources/dfmc/modeling/primitive-macros.dylan:10
  T0 = KPadd_classVKeI(&KLprimitive_descriptorGVdfmc_modeling);
  goto I0;
}
I0:

  return;
}

/* USER INIT CODE */

void _Init_dfmc_modeling__X_primitive_macros_for_user () {
  return;
}


/* eof */
