Changeset 11331

Timestamp:

10/01/08 20:18:10 (14 years ago)

Author:

ehuelsmann

Message:

Java 1.5+ for each looping construct.

Patch by: Ville Voutilainen

File:

• trunk/j/src/org/armedbear/lisp/Closure.java (modified) (10 diffs)

trunk/j/src/org/armedbear/lisp/Closure.java

@@ -298 +298 @@
     if (requiredParameters != null)
       {
-        for (int i = 0; i < requiredParameters.length; i++)
-          vars.add(requiredParameters[i].var);
+        for (Parameter parameter : requiredParameters)
+          vars.add(parameter.var);
       }
     if (optionalParameters != null)
       {
-        for (int i = 0; i < optionalParameters.length; i++)
-          {
-            vars.add(optionalParameters[i].var);
-            if (optionalParameters[i].svar != NIL)
-              vars.add((Symbol)optionalParameters[i].svar);
+        for (Parameter parameter : optionalParameters)
+          {
+            vars.add(parameter.var);
+            if (parameter.svar != NIL)
+              vars.add((Symbol)parameter.svar);
             if (!bindInitForms)
-              if (!optionalParameters[i].initForm.constantp())
+              if (!parameter.initForm.constantp())
                 bindInitForms = true;
           }
@@ -319 +319 @@
     if (keywordParameters != null)
       {
-        for (int i = 0; i < keywordParameters.length; i++)
-          {
-            vars.add(keywordParameters[i].var);
-            if (keywordParameters[i].svar != NIL)
-              vars.add((Symbol)keywordParameters[i].svar);
+        for (Parameter parameter : keywordParameters)
+          {
+            vars.add(parameter.var);
+            if (parameter.svar != NIL)
+              vars.add((Symbol)parameter.svar);
             if (!bindInitForms)
-              if (!keywordParameters[i].initForm.constantp())
+              if (!parameter.initForm.constantp())
                 bindInitForms = true;
           }
@@ -616 +616 @@
         if (specials != null)
           {
-            for (int i = 0; i < specials.length; i++)
-              ext.declareSpecial(specials[i]);
+            for (Symbol special : specials)
+              ext.declareSpecial(special);
           }
         bindRequiredParameters(ext, thread, first, second, third, fourth,
@@ -654 +654 @@
     if (specials != null) {
       special:
-        for (int i = 0; i < specials.length; i++) {
-            for (int j = 0; j < variables.length; j++)
-                if (specials[i] == variables[j])
+        for (Symbol special : specials) {
+            for (Symbol var : variables)
+                if (special == var)
                     continue special;
 
             if (auxVars != null)
-                for (int j = 0; j < auxVars.length; j++)
-                    if (specials[i] == auxVars[j].var)
+                for (Parameter parameter : auxVars)
+                    if (special == parameter.var)
                         continue special;
 
-            ext.declareSpecial(specials[i]);
+            ext.declareSpecial(special);
         }
     }
@@ -683 +683 @@
     if (specials != null)
       {
-        for (int i = specials.length; i-- > 0;)
-          {
-            if (sym == specials[i])
+        for (Symbol special : specials)
+          {
+            if (sym == special)
               return true;
           }
@@ -816 +816 @@
               error(new ProgramError("Odd number of keyword arguments."));
             LispObject allowOtherKeysValue = null;
-            for (int k = 0; k < keywordParameters.length; k++)
-              {
-                Parameter parameter = keywordParameters[k];
+            for (Parameter parameter : keywordParameters)
+              {
                 Symbol keyword = parameter.keyword;
                 LispObject value = null;
@@ -885 +884 @@
                         // Unused keyword argument.
                         boolean ok = false;
-                        for (int k = keywordParameters.length; k-- > 0;)
+                        for (Parameter parameter : keywordParameters)
                           {
-                            if (keywordParameters[k].keyword == keyword)
+                            if (parameter.keyword == keyword)
                               {
                                 // Found it!
@@ -1042 +1041 @@
     throws ConditionThrowable
   {
-    for (int i = 0; i < optionalParameters.length; i++)
-      {
-        Parameter parameter = optionalParameters[i];
+    for (Parameter parameter : optionalParameters)
+      {
         LispObject value;
         if (parameter.initVal != null)
@@ -1060 +1058 @@
     throws ConditionThrowable
   {
-    for (int i = 0; i < keywordParameters.length; i++)
-      {
-        Parameter parameter = keywordParameters[i];
+    for (Parameter parameter : keywordParameters)
+      {
         LispObject value;
         if (parameter.initVal != null)
@@ -1090 +1087 @@
   {
     // Aux variable processing is analogous to LET* processing.
-    for (int i = 0; i < auxVars.length; i++)
-      {
-        Parameter parameter = auxVars[i];
+    for (Parameter parameter : auxVars)
+      {
         Symbol sym = parameter.var;
         LispObject value;