
  TYPE
    clt$environment_object_location = array [clt$environment_object_ordinal] of
          record
      object: ^clt$environment_object_contents,
      object_in_current_task: boolean,
    recend;

*copyc clt$environment_object_contents
*copyc clt$environment_object_ordinal
