
  TYPE
    clt$source = record
      case kind: clt$source_kind of
      = clc$system_source =
        ,
      = clc$utility_source =
        utility_name: clt$utility_name,
      = clc$catalog_source, clc$library_source =
        path_name: fst$path,
      casend,
    recend;

*copyc clt$source_kind
*copyc clt$utility_name
*copyc fst$path
