String othername = aFileName; int i = 0; LispInput f = OpenInputFile(othername, aInputStatus); while (f == null && i<aInputDirectories.size())
try
  public static LispInput OpenInputFile(LispEnvironment aEnvironment,      InputDirectories aInputDirectories, String aFileName,      InputStatus aInputStatus) throws Exception  {    String othername = aFileName;    int i = 0;    LispInput f = OpenInputFile(othername, aInputStatus);    while (f == null && i<aInputDirectories.size())    {      othername = ((String)aInputDirectories.get(i)) + aFileName;      f = OpenInputFile(othername, aInputStatus);      i++;    }    return f;  }