[armedbear-cvs] r13829 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Jan 29 15:19:26 2012
New Revision: 13829

Log:
Remove unused variable 'specials' and unused function 'processParameters'.

Modified:
   trunk/abcl/src/org/armedbear/lisp/Closure.java

Modified: trunk/abcl/src/org/armedbear/lisp/Closure.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Closure.java	Sun Jan 29 15:13:37 2012	(r13828)
+++ trunk/abcl/src/org/armedbear/lisp/Closure.java	Sun Jan 29 15:19:26 2012	(r13829)
@@ -70,7 +70,6 @@
   private int minArgs;
   private int maxArgs;
 
-  private LispObject specials = NIL;
   private Symbol[] freeSpecials = new Symbol[0];
 
   private ArgumentListProcessor arglist;
@@ -359,7 +358,7 @@
     this.body = lambdaExpression.cddr();
     LispObject bodyAndDecls = parseBody(this.body, false);
     this.executionBody = bodyAndDecls.car();
-    this.specials = parseSpecials(bodyAndDecls.NTH(1));
+    LispObject specials = parseSpecials(bodyAndDecls.NTH(1));
 
     this.environment = env;
     this.andKey = _andKey;
@@ -372,17 +371,6 @@
     freeSpecials = arglist.freeSpecials(specials);
   }
 
-  private final void processParameters(ArrayList<Symbol> vars,
-                                       final Parameter[] parameters)
-  {
-    for (Parameter parameter : parameters)
-      {
-        vars.add(parameter.var);
-        if (parameter.svar != NIL)
-          vars.add((Symbol)parameter.svar);
-      }
-  }
-
   private static final void invalidParameter(LispObject obj)
 
   {