
  FUNCTION [INLINE] clp$string_compare
    (    left_string: ^string ( * );
         right_string: ^string ( * )): clt$comparison_result;

?? PUSH (LISTEXT := ON) ??

    IF (left_string = NIL) OR (right_string = NIL) THEN
      clp$string_compare := clc$unordered;
    ELSEIF left_string^ < right_string^ THEN
      clp$string_compare := clc$right_is_greater;
    ELSEIF left_string^ = right_string^ THEN
      clp$string_compare := clc$equal;
    ELSE
      clp$string_compare := clc$left_is_greater;
    IFEND;

  FUNCEND clp$string_compare;

*copyc clt$comparison_result
?? POP ??
