
  PROCEDURE [INLINE] clp$find_environment_object
    (    object_ordinal: clt$environment_object_ordinal;
     VAR object: ^clt$environment_object_contents;
     VAR object_in_current_task: boolean);

?? PUSH (LISTEXT := ON) ??

    IF clv$environment_object_location [object_ordinal].object = NIL THEN
      clp$find_env_object_first_time (object_ordinal, object_in_current_task,
            object);
    ELSE
      object_in_current_task := clv$environment_object_location
            [object_ordinal].object_in_current_task;
      object := clv$environment_object_location [object_ordinal].object;
    IFEND;

  PROCEND clp$find_environment_object;

*copyc clt$environment_object_contents
*copyc clt$environment_object_ordinal
?? POP ??
*copyc clp$find_env_object_first_time
*copyc clv$environment_object_location
