
  PROCEDURE [INLINE] clp$get_list_element_type_desc
    (    value: ^clt$data_value;
     VAR type_description {input, output} : ^clt$type_description);

?? PUSH (LISTEXT := ON) ??

    IF (type_description <> NIL) AND (type_description^.kind = clc$list_type)
          THEN
      type_description := type_description^.list_element_type_description;
      IF value <> NIL THEN
        clp$get_value_type_desc (value, FALSE, type_description);
      IFEND;
    ELSE
      type_description := NIL;
    IFEND;

  PROCEND clp$get_list_element_type_desc;

*copyc clt$data_value
*copyc clt$type_description
?? POP ??
*copyc clp$get_value_type_desc
