
  PROCEDURE [INLINE] clp$find_command_list
    (VAR command_list: ^clt$command_list;
     VAR cmnd_list_found_in_current_task: boolean);

?? PUSH (LISTEXT := ON) ??

    VAR
      object: ^clt$environment_object_contents;


    clp$find_environment_object (clc$eo_command_list, object,
          cmnd_list_found_in_current_task);

    command_list := object;

  PROCEND clp$find_command_list;

*copyc clt$command_list
?? POP ??
*copyc clp$find_environment_object
