
  TYPE
    clt$variable_access = record
      left_search_tree: ^clt$variable_access,
      right_search_tree: ^clt$variable_access,
      forward_thread: ^clt$variable_access,
      backward_thread: ^clt$variable_access,
      hashed_name: clt$variable_name,
      info: clt$variable_access_info,
    recend;

*copyc clt$variable_access_info
*copyc clt$variable_name
