#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 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;

#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(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 {
  D wrapper;
  D head_;
  D tail_;
} _KLempty_listGVKd;

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

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

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

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

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

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

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

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

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

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

typedef struct {
  D wrapper;
  D xep_;
  D function_signature_;
  D mep_;
  D iep_;
  D keyword_specifiers_;
} _KLkeyword_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 head_;
  D tail_;
} _KLpairGVKd;

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

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(5);
define__KLbyte_stringGVKd(14);
define__KLbyte_stringGVKd(24);
define__KLbyte_stringGVKd(2);
define__KLbyte_stringGVKd(21);
define__KLbyte_stringGVKd(23);

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 namespace_name_;
  D home_library_;
} _KLmoduleGVKe;

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

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


/* Typedefs for defined classes */

typedef struct {
  D wrapper;
  D Pprimitive_name_;
  D Pid_;
  D compiler_object_proxy_;
  D 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;
D KerrorVKdMM1I (D, D);
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;
D Kunion_instanceQVKiI (D, D);
extern _KLunionGVKe KLid_or_integerGVenvironment_protocols;
extern _KLclassGVKd KLsingletonGVKd;
extern _KLmm_wrapperGVKi_0 KLsingletonGVKdW;
D Ksingleton_pointer_idQ_instanceQVKiI (D, D);
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;
D Kclass_instanceQ_initialVKiI (D, D);
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;
D Kenvironment_object_type_nameVenvironment_protocolsMM24I (D);
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;
D KLmacro_objectGZ32ZconstructorVenvironment_protocolsMM0I (D, D, D, D, D, D);
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 D IKJid_ = &KJid_;
static D IKJcompiler_object_proxy_ = &KJcompiler_object_proxy_;
static D IKJapplication_object_proxy_ = &KJapplication_object_proxy_;

/* Variables */

D 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,
  (D) 1,
  &Kenvironment_protocols_moduleYdylan_userVenvironment_protocols
};

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

static _KLimplementation_classGVKe K4 = {
  &KLimplementation_classGVKeW /* wrapper */,
  (D) 477102097,
  &KLmacro_objectGVenvironment_protocols,
  &KLmacro_objectGVenvironment_protocolsW,
  &KPfalseVKi,
  &K5,
  (D) -3,
  &KLmacro_objectGZ32ZconstructorVenvironment_protocolsMM0,
  &K8,
  &K9,
  (D) 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 */,
  (D) 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 */,
  (D) 5,
  &KLdefinition_objectGVenvironment_protocols
};

static _KLsimple_object_vectorGVKd_12 K9 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 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 */,
  (D) 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 */,
  (D) 85,
  "compiler-object-proxy"
};

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

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

static _KLsimple_object_vectorGVKd_8 K20 = {
  &KLsimple_object_vectorGVKdW /* wrapper */,
  (D) 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 */,
  (D) 97,
  "application-object-proxy"
};

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

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

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

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

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

/* Code */

D Kenvironment_object_type_nameVenvironment_protocolsMM24I (D object_) {
  D T2_0;

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

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

  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  T15 = primitive_idQ(Uunique_Pid_,&KPunboundVKi);
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  if (T15 != &KPfalseVKi) {
    T16.vector_element_[0] = IKJid_;
    T17 = KerrorVKdMM1I(&K11, &T16);
    // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
    T7 = T17;
    Uunique_PidF8 = T7;
  } else {
    Uunique_PidF8 = Uunique_Pid_;
  }
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  // /Users/bruce/Development/dylan/opendylan/sources/environment/protocols/macro-objects.dylan:11
  T18 = primitive_idQ(Uunique_compiler_object_proxy_,&KPunboundVKi);
  // /Users/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);
    // /Users/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_;
  }
  // /Users/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;
  // /Users/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 D KPresolve_symbolVKiI(D);
  {
    D 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;
    }
  }
  {
    D 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;
    }
  }
  {
    D 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 */
