
  TYPE
    clt$environment_object_info = record
      defined: packed array [clt$environment_object_ordinal] of boolean,
      contents: array [0 .. * ] of cell,
    recend;

*copyc clt$environment_object_ordinal
