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

?? PUSH (LISTEXT := ON) ??

    VAR
      node: ^clt$data_value,
      list_size: clt$list_size;


    list_size := 0;
    node := list_value;
    WHILE (node <> NIL) AND (node^.kind = clc$list) DO
      list_size := list_size + $INTEGER (node^.element_value <> NIL);
      node := node^.link;
    WHILEND;
    clp$count_list_elements := list_size;

  FUNCEND clp$count_list_elements;

*copyc clt$data_value
*copyc clt$list_size
?? POP ??
