
  FUNCTION [INLINE] clp$boolean_compare
    (    left_boolean: boolean;
         right_boolean: boolean): clt$comparison_result;

?? PUSH (LISTEXT := ON) ??

    IF left_boolean = right_boolean THEN
      clp$boolean_compare := clc$equal;
    ELSEIF left_boolean > right_boolean THEN
      clp$boolean_compare := clc$left_is_greater;
    ELSE
      clp$boolean_compare := clc$right_is_greater;
    IFEND;

  FUNCEND clp$boolean_compare;

*copyc clt$comparison_result
?? POP ??
