
  TYPE
    clt$path_handle = record
      case kind: clt$path_handle_kind of
      = clc$not_a_path_handle =
        ,
      = clc$regular_path_handle =
        regular_handle: fmt$path_handle,
      = clc$command_file_handle =
        block_handle: clt$block_handle,
      casend,
    recend;

*copyc clt$block_handle
*copyc clt$path_handle_kind
*copyc fmt$path_handle
