
  TYPE
    clt$lexical_unit_kind = (clc$lex_unknown, clc$lex_beginning_of_line,
          clc$lex_end_of_line, clc$lex_space, clc$lex_comment,
          clc$lex_unterminated_comment, clc$lex_semicolon, clc$lex_colon,
          clc$lex_cybil_assign, clc$lex_left_parenthesis,
          clc$lex_right_parenthesis, clc$lex_comma, clc$lex_ellipsis,
          clc$lex_dot, clc$lex_query, clc$lex_greater_than,
          clc$lex_greater_equal, clc$lex_less_than, clc$lex_less_equal,
          clc$lex_equal, clc$lex_not_equal, clc$lex_concatenate,
          clc$lex_exponentiate, clc$lex_multiply, clc$lex_divide, clc$lex_add,
          clc$lex_subtract, clc$lex_name, clc$lex_long_name, clc$lex_string,
          clc$lex_unterminated_string, clc$lex_alpha_number,
          clc$lex_unsigned_decimal, clc$lex_wild_card_name);

  CONST
    clc$lex_assign = clc$lex_equal;

