
  FUNCTION [INLINE] clp$longreal_compare_gt
    (    left_operand: longreal;
         right_operand: longreal): boolean;

?? PUSH (LISTEXT := ON) ??

    clp$longreal_compare_gt := clp$longreal_compare
          (left_operand, right_operand, clc$infinities_equal) =
          clc$left_is_greater;

  FUNCEND clp$longreal_compare_gt;

?? POP ??
*copyc clp$longreal_compare
