
  PROCEDURE [INLINE] clp$find_named_task_group_list
    (VAR named_task_list: ^^clt$named_task);

?? PUSH (LISTEXT := ON) ??

    IF clv$named_task_group_list = NIL THEN
      clp$find_nt_group_list_first (named_task_list);
    ELSE
      named_task_list := clv$named_task_group_list;
    IFEND;

  PROCEND clp$find_named_task_group_list;

*copyc clt$named_task
?? POP ??
*copyc clp$find_nt_group_list_first
*copyc clv$named_task_group_list
