
  FUNCTION [INLINE] clf$field_value
    (    field_name: string ( * <= osc$max_name_size);
         value_p: ^clt$data_value): ^clt$data_value;

?? PUSH (LISTEXT := ON) ??

    VAR
      i: integer;

    clf$field_value := NIL;
    IF (value_p = NIL) OR (value_p^.kind <> clc$record) OR
          (value_p^.field_values = NIL) THEN
      RETURN; {----->
    IFEND;

    FOR i := 1 TO UPPERBOUND (value_p^.field_values^) DO
      IF value_p^.field_values^ [i].name = field_name THEN
        clf$field_value := value_p^.field_values^ [i].value;
      IFEND;
    FOREND;

  FUNCEND clf$field_value;

*copyc clt$data_value
?? POP ??
