
  FUNCTION [INLINE] clp$next_list_element
    (    current_list_node: ^clt$data_value): ^clt$data_value;

?? PUSH (LISTEXT := ON) ??

    VAR
      next_list_node: ^clt$data_value;


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

  FUNCEND clp$next_list_element;

*copyc clt$data_value
?? POP ??
