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

?? PUSH (LISTEXT := ON) ??

    clp$longreal_compare_eq := clp$longreal_compare
          (left_operand, right_operand, clc$infinities_equal) = clc$equal;

  FUNCEND clp$longreal_compare_eq;

?? POP ??
*copyc clp$longreal_compare
