
  FUNCTION [INLINE, UNSAFE] clf#make_list_value
    (    element_value_p: ^clt$data_value;
     VAR work_area: ^clt$work_area): ^clt$data_value;

?? PUSH (LISTEXT := ON) ??

    VAR
      data_value: ^clt$data_value;

    NEXT data_value IN work_area;
    data_value^.kind := clc$list;
    data_value^.generated_via_list_rest := FALSE;
    data_value^.link := NIL;
    data_value^.element_value := element_value_p;
    clf#make_list_value := data_value;

  FUNCEND clf#make_list_value;

*copyc clt$data_value
*copyc clt$work_area
?? POP ??
