
  FUNCTION [INLINE] clp$integer_compare
    (    left_integer: integer;
         right_integer: integer): clt$comparison_result;

?? PUSH (LISTEXT := ON) ??

    IF left_integer < right_integer THEN
      clp$integer_compare := clc$right_is_greater;
    ELSEIF left_integer = right_integer THEN
      clp$integer_compare := clc$equal;
    ELSE
      clp$integer_compare := clc$left_is_greater;
    IFEND;

  FUNCEND clp$integer_compare;

*copyc clt$comparison_result
?? POP ??
