
  TYPE
    clt$string_pattern_match_info = record
      case result: clt$string_pattern_match_result of
      = clc$sp_success =
        index: clt$string_index,
        size: clt$string_size,
      = clc$sp_failure =
        ,
      casend,
    recend;

*copyc clt$string_index
*copyc clt$string_pattern_match_result
*copyc clt$string_size
