#include "opendylan/run-time.h"

/* Generated by Open Dylan 2014.1 for x86_64-linux */

/* Typedefs for referenced classes */

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

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

typedef struct {
  dylan_value wrapper;
} _KLobjectGVKd;

typedef struct {
  dylan_value wrapper;
} _KLunboundGVKe;

typedef struct {
  dylan_value wrapper;
} _KLbooleanGVKd;

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

#define  define__KLsimple_object_vectorGVKd(nrepeated) \
  typedef struct { \
    dylan_value wrapper; \
    dylan_value size_; \
    dylan_value vector_element_[nrepeated+1]; \
  } _KLsimple_object_vectorGVKd_##nrepeated;
define__KLsimple_object_vectorGVKd(8);
define__KLsimple_object_vectorGVKd(12);
define__KLsimple_object_vectorGVKd(4);
define__KLsimple_object_vectorGVKd(256);
define__KLsimple_object_vectorGVKd(2);
define__KLsimple_object_vectorGVKd(1);
define__KLsimple_object_vectorGVKd(0);

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

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
} _KLenvironment_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value Pid_;
} _KLenvironment_object_with_idGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
} _KLdylan_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value compiler_object_proxy_;
} _KLcompiler_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value application_object_proxy_;
} _KLapplication_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value compiler_object_proxy_;
  dylan_value application_object_proxy_;
} _KLapplication_and_compiler_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value application_object_proxy_;
} _KLapplication_code_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value Pid_;
  dylan_value compiler_object_proxy_;
  dylan_value application_object_proxy_;
} _KLsource_form_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value Pid_;
  dylan_value compiler_object_proxy_;
  dylan_value application_object_proxy_;
} _KLmacro_call_objectGVenvironment_protocols;

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value Pid_;
  dylan_value compiler_object_proxy_;
  dylan_value application_object_proxy_;
} _KLdefinition_objectGVenvironment_protocols;

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

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

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

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

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

typedef struct {
  dylan_value wrapper;
} _KLstringGVKd;

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

#define  define__KLbyte_stringGVKd(nrepeated) \
  typedef struct { \
    dylan_value wrapper; \
    dylan_value size_; \
    char string_element_[nrepeated+1]; \
  } _KLbyte_stringGVKd_##nrepeated;
define__KLbyte_stringGVKd(5);
define__KLbyte_stringGVKd(14);
define__KLbyte_stringGVKd(24);
define__KLbyte_stringGVKd(2);
define__KLbyte_stringGVKd(21);
define__KLbyte_stringGVKd(23);

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

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

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

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

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


/* Typedefs for defined classes */

typedef struct {
  dylan_value wrapper;
  dylan_value Pprimitive_name_;
  dylan_value Pid_;
  dylan_value compiler_object_proxy_;
  dylan_value application_object_proxy_;
} _KLmacro_objectGVenvironment_protocols;


/* Referenced object declarations */

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 _KLclassGVKd KLimplementation_classGVKe;
extern _KLmm_wrapperGVKi_0 KLimplementation_classGVKeW;
extern _KLsimple_object_vectorGVKd_0 KPempty_vectorVKi;
extern _KLclassGVKd KLsimple_object_vectorGVKd;
extern _KLmm_wrapperGVKi_0 KLsimple_object_vectorGVKdW;
extern _KLempty_listGVKd KPempty_listVKi;
extern _KLclassGVKd KLempty_listGVKd;
extern _KLmm_wrapperGVKi_0 KLempty_listGVKdW;
extern _KLclassGVKd KLenvironment_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLenvironment_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLenvironment_object_with_idGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLenvironment_object_with_idGVenvironment_protocolsW;
extern _KLclassGVKd KLdylan_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLdylan_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLcompiler_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLcompiler_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLapplication_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLapplication_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLapplication_and_compiler_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLapplication_and_compiler_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLapplication_code_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLapplication_code_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLsource_form_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLsource_form_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLmacro_call_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLmacro_call_objectGVenvironment_protocolsW;
extern _KLclassGVKd KLdefinition_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLdefinition_objectGVenvironment_protocolsW;
dylan_value KerrorVKdMM1I (dylan_value, dylan_value);
extern _KLkeyword_methodGVKe KinitializeVKdMenvironment_protocolsM0;
extern _KLfunction_classGVKi KLkeyword_methodGVKe;
extern _KLclassGVKd KLfunction_classGVKi;
extern _KLmm_wrapperGVKi_0 KLfunction_classGVKiW;
extern _KLmm_wrapperGVKi_0 KLkeyword_methodGVKeW;
extern _KLclassGVKd KLpairGVKd;
extern _KLmm_wrapperGVKi_0 KLpairGVKdW;
extern _KLkeyword_methodGVKe KinitializeVKdMM1;
extern _KLclassGVKd KLunionGVKe;
extern _KLmm_wrapperGVKi_0 KLunionGVKeW;
dylan_value Kunion_instanceQVKiI (dylan_value, dylan_value);
extern _KLunionGVKe KLid_or_integerGVenvironment_protocols;
extern _KLclassGVKd KLsingletonGVKd;
extern _KLmm_wrapperGVKi_0 KLsingletonGVKdW;
dylan_value Ksingleton_pointer_idQ_instanceQVKiI (dylan_value, dylan_value);
extern _KLclassGVKd KLstringGVKd;
extern _KLmm_wrapperGVKi_0 KLstringGVKdW;
extern _KLclassGVKd KLsymbolGVKd;
extern _KLmm_wrapperGVKi_0 KLsymbolGVKdW;
extern _KLclassGVKd KLbyte_stringGVKd;
extern _KLmm_wrapperGVKi_0 KLbyte_stringGVKdW;
extern _KLsymbolGVKd KJname_;
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 _KLinstance_slot_descriptorGVKe KPprimitive_nameVenvironment_protocolsHLenvironment_objectG;
extern _KLclassGVKd KLinstance_slot_descriptorGVKe;
extern _KLmm_wrapperGVKi_0 KLinstance_slot_descriptorGVKeW;
extern _KLinstance_slot_descriptorGVKe KPidVenvironment_protocolsHLenvironment_object_with_idG;
extern _KLinstance_slot_descriptorGVKe Kcompiler_object_proxyVenvironment_protocolsHLcompiler_objectG;
extern _KLinstance_slot_descriptorGVKe Kapplication_object_proxyVenvironment_protocolsHLapplication_objectG;
dylan_value Kclass_instanceQ_initialVKiI (dylan_value, dylan_value);
extern _KLmoduleGVKe Kenvironment_protocols_moduleYdylan_userVenvironment_protocols;
extern _KLclassGVKd KLmoduleGVKe;
extern _KLmm_wrapperGVKi_0 KLmoduleGVKeW;
extern _KLfunction_classGVKi KLsimple_methodGVKe;
extern _KLmm_wrapperGVKi_0 KLsimple_methodGVKeW;
extern _KLclassGVKd KLsignatureAvaluesGVKi;
extern _KLmm_wrapperGVKi_0 KLsignatureAvaluesGVKiW;
extern _KLsimple_object_vectorGVKd_2 KDsignature_LstringG_typesVKi;

/* Defined object declarations */

extern _KLsimple_methodGVKe Kenvironment_object_type_nameVenvironment_protocolsMM24;
dylan_value Kenvironment_object_type_nameVenvironment_protocolsMM24I (dylan_value);
extern _KLclassGVKd KLmacro_objectGVenvironment_protocols;
extern _KLmm_wrapperGVKi_0 KLmacro_objectGVenvironment_protocolsW;
static _KLimplementation_classGVKe K4;
static _KLsimple_object_vectorGVKd_4 K5;
extern _KLkeyword_methodGVKe KLmacro_objectGZ32ZconstructorVenvironment_protocolsMM0;
dylan_value KLmacro_objectGZ32ZconstructorVenvironment_protocolsMM0I (dylan_value, dylan_value, dylan_value, dylan_value, dylan_value, dylan_value);
static _KLsimple_object_vectorGVKd_1 K8;
static _KLsimple_object_vectorGVKd_12 K9;
static _KLsymbolGVKd KJid_;
static _KLbyte_stringGVKd_23 K11;
static _KLsymbolGVKd KJcompiler_object_proxy_;
static _KLunionGVKe K13;
static _KLunionGVKe K14;
static _KLpairGVKd K15;
static _KLsingletonGVKd K16;
static _KLbyte_stringGVKd_21 K17;
static _KLbyte_stringGVKd_2 K18;
static _KLkeyword_signatureAvaluesGVKi K19;
static _KLsimple_object_vectorGVKd_8 K20;
static _KLsymbolGVKd KJapplication_object_proxy_;
static _KLbyte_stringGVKd_24 K22;
static _KLsimple_object_vectorGVKd_4 K23;
static _KLsimple_object_vectorGVKd_1 K24;
static _KLbyte_stringGVKd_14 K25;
static _KLbyte_stringGVKd_5 K26;
static _KLsignatureAvaluesGVKi K27;

/* Indirection variables */

static dylan_value IKJid_ = &KJid_;
static dylan_value IKJcompiler_object_proxy_ = &KJcompiler_object_proxy_;
static dylan_value IKJapplication_object_proxy_ = &KJapplication_object_proxy_;

/* Variables */

dylan_value Lmacro_objectGVenvironment_protocols = &KLmacro_objectGVenvironment_protocols;

/* Objects */

_KLsimple_methodGVKe Kenvironment_object_type_nameVenvironment_protocolsMM24 = {
  &KLsimple_methodGVKeW /* wrapper */,
  &xep_1,
  &K27,
  &Kenvironment_object_type_nameVenvironment_protocolsMM24I
};

_KLclassGVKd KLmacro_objectGVenvironment_protocols = {
  &KLclassGVKdW /* wrapper */,
  &Kclass_instanceQ_initialVKiI,
  &K25,
  &K4,
  (dylan_value) 1,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols
};

_KLmm_wrapperGVKi_0 KLmacro_objectGVenvironment_protocolsW = {
  &KLmm_wrapperGVKiW /* wrapper */,
  &K4,
  (dylan_value) 1,
  17,
  33554439,
  (dylan_value) 1
};

static _KLimplementation_classGVKe K4 = {
  &KLimplementation_classGVKeW /* wrapper */,
  (dylan_value) 477102097,
  &KLmacro_objectGVenvironment_protocols,
  &KLmacro_objectGVenvironment_protocolsW,
  &KPfalseVKi,
  &K5,
  (dylan_value) -3,
  &KLmacro_objectGZ32ZconstructorVenvironment_protocolsMM0,
  &K8,
  &K9,
  (dylan_value) 45,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_listVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &K5,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi,
  &KPempty_vectorVKi
};

static _KLsimple_object_vectorGVKd_4 K5 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 17,
  &KPprimitive_nameVenvironment_protocolsHLenvironment_objectG,
  &KPidVenvironment_protocolsHLenvironment_object_with_idG,
  &Kcompiler_object_proxyVenvironment_protocolsHLcompiler_objectG,
  &Kapplication_object_proxyVenvironment_protocolsHLapplication_objectG
};

_KLkeyword_methodGVKe KLmacro_objectGZ32ZconstructorVenvironment_protocolsMM0 = {
  &KLkeyword_methodGVKeW /* wrapper */,
  &rest_key_xep_6,
  &K19,
  &key_mep_2,
  &KLmacro_objectGZ32ZconstructorVenvironment_protocolsMM0I,
  &K20
};

static _KLsimple_object_vectorGVKd_1 K8 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &KLdefinition_objectGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_12 K9 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 49,
  &KLobjectGVKd,
  &KLenvironment_objectGVenvironment_protocols,
  &KLenvironment_object_with_idGVenvironment_protocols,
  &KLdylan_objectGVenvironment_protocols,
  &KLcompiler_objectGVenvironment_protocols,
  &KLapplication_objectGVenvironment_protocols,
  &KLapplication_and_compiler_objectGVenvironment_protocols,
  &KLapplication_code_objectGVenvironment_protocols,
  &KLsource_form_objectGVenvironment_protocols,
  &KLmacro_call_objectGVenvironment_protocols,
  &KLdefinition_objectGVenvironment_protocols,
  &KLmacro_objectGVenvironment_protocols
};

static _KLsymbolGVKd KJid_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K18
};

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

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

static _KLunionGVKe K13 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K16,
  &KLstringGVKd
};

static _KLunionGVKe K14 = {
  &KLunionGVKeW /* wrapper */,
  &Kunion_instanceQVKiI,
  &K16,
  &KLid_or_integerGVenvironment_protocols
};

static _KLpairGVKd K15 = {
  &KLpairGVKdW /* wrapper */,
  &KinitializeVKdMM1,
  &KPempty_listVKi
};

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

static _KLbyte_stringGVKd_21 K17 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 85,
  "compiler-object-proxy"
};

static _KLbyte_stringGVKd_2 K18 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 9,
  "id"
};

static _KLkeyword_signatureAvaluesGVKi K19 = {
  &KLkeyword_signatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 35390469,
  &KDsignature_LclassG_typesVKi,
  &K23,
  &KDsignature_LobjectG_typesVKi,
  &K24
};

static _KLsimple_object_vectorGVKd_8 K20 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 33,
  &KJname_,
  &KPfalseVKi,
  &KJid_,
  &KPunboundVKi,
  &KJcompiler_object_proxy_,
  &KPunboundVKi,
  &KJapplication_object_proxy_,
  &KPfalseVKi
};

static _KLsymbolGVKd KJapplication_object_proxy_ = {
  &KLsymbolGVKdW /* wrapper */,
  &K22
};

static _KLbyte_stringGVKd_24 K22 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 97,
  "application-object-proxy"
};

static _KLsimple_object_vectorGVKd_4 K23 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 17,
  &KJname_,
  &KJid_,
  &KJcompiler_object_proxy_,
  &KJapplication_object_proxy_
};

static _KLsimple_object_vectorGVKd_1 K24 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (dylan_value) 5,
  &KLmacro_objectGVenvironment_protocols
};

static _KLbyte_stringGVKd_14 K25 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 57,
  "<macro-object>"
};

static _KLbyte_stringGVKd_5 K26 = {
  &KLbyte_stringGVKdW /* wrapper */,
  (dylan_value) 21,
  "Macro"
};

static _KLsignatureAvaluesGVKi K27 = {
  &KLsignatureAvaluesGVKiW /* wrapper */,
  (dylan_value) 33555461,
  &K24,
  &KDsignature_LstringG_typesVKi
};

/* Code */

dylan_value Kenvironment_object_type_nameVenvironment_protocolsMM24I (dylan_value object_) {
  dylan_value T2_0;

  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:19
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:21
  T2_0 = &K26;
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:19
  MV_SET_COUNT(1);
  return(T2_0);
}

dylan_value KLmacro_objectGZ32ZconstructorVenvironment_protocolsMM0I (dylan_value class_, dylan_value init_args_, dylan_value Uunique_Pprimitive_name_, dylan_value Uunique_Pid_, dylan_value Uunique_compiler_object_proxy_, dylan_value Uunique_application_object_proxy_) {
  dylan_value T7;
  dylan_value Uunique_PidF8;
  dylan_value T9;
  dylan_value Uunique_compiler_object_proxyF10;
  dylan_value T11;
  dylan_value Uunique_Pprimitive_nameF12;
  dylan_value Uunique_PidF13;
  dylan_value T14_0;
  dylan_value T15;
  _KLsimple_object_vectorGVKd_1 T16 = {&KLsimple_object_vectorGVKdW, (dylan_value) 5};
  dylan_value T17;
  dylan_value T18;
  _KLsimple_object_vectorGVKd_1 T19 = {&KLsimple_object_vectorGVKdW, (dylan_value) 5};
  dylan_value T20;

  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  T15 = primitive_idQ(Uunique_Pid_,&KPunboundVKi);
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  if (T15 != &KPfalseVKi) {
    T16.vector_element_[0] = IKJid_;
    T17 = KerrorVKdMM1I(&K11, &T16);
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
    T7 = T17;
    Uunique_PidF8 = T7;
  } else {
    Uunique_PidF8 = Uunique_Pid_;
  }
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  T18 = primitive_idQ(Uunique_compiler_object_proxy_,&KPunboundVKi);
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  if (T18 != &KPfalseVKi) {
    T19.vector_element_[0] = IKJcompiler_object_proxy_;
    T20 = KerrorVKdMM1I(&K11, &T19);
    // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
    T9 = T20;
    Uunique_compiler_object_proxyF10 = T9;
  } else {
    Uunique_compiler_object_proxyF10 = Uunique_compiler_object_proxy_;
  }
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  T11 = primitive_object_allocate_filled(5,&KLmacro_objectGVenvironment_protocolsW,4,&KPunboundVKi,0,0,&KPunboundVKi);
  primitive_type_check(Uunique_Pprimitive_name_, &K13);
  Uunique_Pprimitive_nameF12 = Uunique_Pprimitive_name_;
  SLOT_VALUE_SETTER(Uunique_Pprimitive_nameF12, T11, 0);
  primitive_type_check(Uunique_PidF8, &K14);
  Uunique_PidF13 = Uunique_PidF8;
  SLOT_VALUE_SETTER(Uunique_PidF13, T11, 1);
  SLOT_VALUE_SETTER(Uunique_compiler_object_proxyF10, T11, 2);
  SLOT_VALUE_SETTER(Uunique_application_object_proxy_, T11, 3);
  MEP_APPLY2(&KinitializeVKdMenvironment_protocolsM0, &K15, T11, init_args_);
  T14_0 = T11;
  // /home/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  MV_SET_COUNT(1);
  return(T14_0);
}


/* SYSTEM INIT CODE */

void _Init_environment_protocols__X_macro_objects_for_system () {
  extern dylan_value KPresolve_symbolVKiI(dylan_value);
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJid_);
    if (T0 != &KJid_) {
      primitive_repeated_slot_value_setter(T0, &K23, 1, 1);
      primitive_repeated_slot_value_setter(T0, &K20, 1, 2);
      IKJid_ = T0;
    }
  }
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJcompiler_object_proxy_);
    if (T0 != &KJcompiler_object_proxy_) {
      primitive_repeated_slot_value_setter(T0, &K23, 1, 2);
      primitive_repeated_slot_value_setter(T0, &K20, 1, 4);
      IKJcompiler_object_proxy_ = T0;
    }
  }
  {
    dylan_value T0;

    T0 = KPresolve_symbolVKiI(&KJapplication_object_proxy_);
    if (T0 != &KJapplication_object_proxy_) {
      primitive_repeated_slot_value_setter(T0, &K23, 1, 3);
      primitive_repeated_slot_value_setter(T0, &K20, 1, 6);
    }
  }
  return;
}

/* USER INIT CODE */

void _Init_environment_protocols__X_macro_objects_for_user () {
  return;
}


/* eof */
