
  PROCEDURE [INLINE] nap$find_client_attributes
    (    client: nat$application_name;
     VAR client_attributes: ^nat$client_attributes);

?? PUSH (LISTEXT := ON) ??

{ It is assumed that client attributes list has been locked by the caller.

    client_attributes := nav$client_attributes_list.client_attributes;
    WHILE (client_attributes <> NIL) AND (client_attributes^.client <> client)
          DO
      client_attributes := client_attributes^.next_entry;
    WHILEND;

  PROCEND nap$find_client_attributes;

*copyc nat$client_attributes
*copyc nat$application_name
?? POP ??
