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

?? PUSH (LISTEXT := ON) ??

    clp$longreal_compare_le := clp$longreal_compare
          (left_operand, right_operand, clc$infinities_equal) IN
          $clt$comparison_results [clc$right_is_greater, clc$equal];

  FUNCEND clp$longreal_compare_le;

*copyc clt$comparison_results
?? POP ??
*copyc clp$longreal_compare
