
  FUNCTION [INLINE] clp$first_list_element
    (    list_value: ^clt$data_value): ^clt$data_value;

?? PUSH (LISTEXT := ON) ??

    VAR
      first_list_node: ^clt$data_value;


    first_list_node := list_value;
    WHILE (first_list_node <> NIL) AND (first_list_node^.kind = clc$list) DO
      IF first_list_node^.element_value <> NIL THEN
        clp$first_list_element := first_list_node;
        RETURN;
      IFEND;
      first_list_node := first_list_node^.link;
    WHILEND;
    clp$first_list_element := NIL;

  FUNCEND clp$first_list_element;

*copyc clt$data_value
?? POP ??
