Changeset 11331


Ignore:
Timestamp:
10/01/08 20:18:10 (13 years ago)
Author:
ehuelsmann
Message:

Java 1.5+ for each looping construct.

Patch by: Ville Voutilainen

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Closure.java

    r11329 r11331  
    298298    if (requiredParameters != null)
    299299      {
    300         for (int i = 0; i < requiredParameters.length; i++)
    301           vars.add(requiredParameters[i].var);
     300        for (Parameter parameter : requiredParameters)
     301          vars.add(parameter.var);
    302302      }
    303303    if (optionalParameters != null)
    304304      {
    305         for (int i = 0; i < optionalParameters.length; i++)
    306           {
    307             vars.add(optionalParameters[i].var);
    308             if (optionalParameters[i].svar != NIL)
    309               vars.add((Symbol)optionalParameters[i].svar);
     305        for (Parameter parameter : optionalParameters)
     306          {
     307            vars.add(parameter.var);
     308            if (parameter.svar != NIL)
     309              vars.add((Symbol)parameter.svar);
    310310            if (!bindInitForms)
    311               if (!optionalParameters[i].initForm.constantp())
     311              if (!parameter.initForm.constantp())
    312312                bindInitForms = true;
    313313          }
     
    319319    if (keywordParameters != null)
    320320      {
    321         for (int i = 0; i < keywordParameters.length; i++)
    322           {
    323             vars.add(keywordParameters[i].var);
    324             if (keywordParameters[i].svar != NIL)
    325               vars.add((Symbol)keywordParameters[i].svar);
     321        for (Parameter parameter : keywordParameters)
     322          {
     323            vars.add(parameter.var);
     324            if (parameter.svar != NIL)
     325              vars.add((Symbol)parameter.svar);
    326326            if (!bindInitForms)
    327               if (!keywordParameters[i].initForm.constantp())
     327              if (!parameter.initForm.constantp())
    328328                bindInitForms = true;
    329329          }
     
    616616        if (specials != null)
    617617          {
    618             for (int i = 0; i < specials.length; i++)
    619               ext.declareSpecial(specials[i]);
     618            for (Symbol special : specials)
     619              ext.declareSpecial(special);
    620620          }
    621621        bindRequiredParameters(ext, thread, first, second, third, fourth,
     
    654654    if (specials != null) {
    655655      special:
    656         for (int i = 0; i < specials.length; i++) {
    657             for (int j = 0; j < variables.length; j++)
    658                 if (specials[i] == variables[j])
     656        for (Symbol special : specials) {
     657            for (Symbol var : variables)
     658                if (special == var)
    659659                    continue special;
    660660
    661661            if (auxVars != null)
    662                 for (int j = 0; j < auxVars.length; j++)
    663                     if (specials[i] == auxVars[j].var)
     662                for (Parameter parameter : auxVars)
     663                    if (special == parameter.var)
    664664                        continue special;
    665665
    666             ext.declareSpecial(specials[i]);
     666            ext.declareSpecial(special);
    667667        }
    668668    }
     
    683683    if (specials != null)
    684684      {
    685         for (int i = specials.length; i-- > 0;)
    686           {
    687             if (sym == specials[i])
     685        for (Symbol special : specials)
     686          {
     687            if (sym == special)
    688688              return true;
    689689          }
     
    816816              error(new ProgramError("Odd number of keyword arguments."));
    817817            LispObject allowOtherKeysValue = null;
    818             for (int k = 0; k < keywordParameters.length; k++)
    819               {
    820                 Parameter parameter = keywordParameters[k];
     818            for (Parameter parameter : keywordParameters)
     819              {
    821820                Symbol keyword = parameter.keyword;
    822821                LispObject value = null;
     
    885884                        // Unused keyword argument.
    886885                        boolean ok = false;
    887                         for (int k = keywordParameters.length; k-- > 0;)
     886                        for (Parameter parameter : keywordParameters)
    888887                          {
    889                             if (keywordParameters[k].keyword == keyword)
     888                            if (parameter.keyword == keyword)
    890889                              {
    891890                                // Found it!
     
    10421041    throws ConditionThrowable
    10431042  {
    1044     for (int i = 0; i < optionalParameters.length; i++)
    1045       {
    1046         Parameter parameter = optionalParameters[i];
     1043    for (Parameter parameter : optionalParameters)
     1044      {
    10471045        LispObject value;
    10481046        if (parameter.initVal != null)
     
    10601058    throws ConditionThrowable
    10611059  {
    1062     for (int i = 0; i < keywordParameters.length; i++)
    1063       {
    1064         Parameter parameter = keywordParameters[i];
     1060    for (Parameter parameter : keywordParameters)
     1061      {
    10651062        LispObject value;
    10661063        if (parameter.initVal != null)
     
    10901087  {
    10911088    // Aux variable processing is analogous to LET* processing.
    1092     for (int i = 0; i < auxVars.length; i++)
    1093       {
    1094         Parameter parameter = auxVars[i];
     1089    for (Parameter parameter : auxVars)
     1090      {
    10951091        Symbol sym = parameter.var;
    10961092        LispObject value;
Note: See TracChangeset for help on using the changeset viewer.