1 03/31/83  is_component_pathname, icpn
 2 
 3 Syntax:  icpn path
 4 
 5 
 6 Syntax as active function:  [icpn path]
 7 
 8 
 9 Function:  returns "true" if the path is a valid pathname that refers
10 to an archive component pathname.