
  TYPE
    clt$command_kind = (clc$regular_command, clc$program_command,
          clc$command_is_include_file, clc$command_is_include_line,
          clc$command_is_execute_task, clc$login_command);

