Removed duplicate code in SET and SETF

src/function/builtin/APPLY.java

@@ -7,8 +7,8 @@ public class APPLY extends LispFunction {
 
     private ArgumentValidator argumentValidator;
 
-    public static SExpression apply(Cons argList) {
-        return new APPLY().call(argList);
+    public static SExpression apply(Cons argumentList) {
+        return new APPLY().call(argumentList);
     }
 
     public APPLY() {

src/function/builtin/FUNCALL.java

@@ -1,9 +1,9 @@
 package function.builtin;
 
 import static function.builtin.APPLY.apply;
+import static function.builtin.cons.LIST.makeList;
 
 import function.*;
-import function.builtin.cons.LIST;
 import sexpression.*;
 
 public class FUNCALL extends LispFunction {
@@ -17,7 +17,7 @@ public class FUNCALL extends LispFunction {
 
     public SExpression call(Cons argumentList) {
         argumentValidator.validate(argumentList);
-        Cons applyArgs = new Cons(argumentList.getFirst(), LIST.makeList(argumentList.getRest()));
+        Cons applyArgs = new Cons(argumentList.getFirst(), makeList(argumentList.getRest()));
 
         return apply(applyArgs);
     }

src/function/builtin/SET.java

@@ -9,6 +9,10 @@ public class SET extends LispFunction {
     private ArgumentValidator argumentValidator;
     private ExecutionContext executionContext;
 
+    public static SExpression set(Cons argumentList) {
+        return new SET().call(argumentList);
+    }
+
     public SET() {
         this.argumentValidator = new ArgumentValidator("SET");
         this.argumentValidator.setExactNumberOfArguments(2);

src/function/builtin/special/SETF.java

@@ -1,51 +1,33 @@
 package function.builtin.special;
 
 import static function.builtin.EVAL.eval;
+import static function.builtin.SET.set;
+import static function.builtin.cons.LIST.makeList;
 
 import function.*;
 import sexpression.*;
-import table.*;
 
 public class SETF extends LispSpecialFunction {
 
     private ArgumentValidator argumentValidator;
-    private ExecutionContext executionContext;
 
     public SETF() {
         this.argumentValidator = new ArgumentValidator("SETF");
         this.argumentValidator.setExactNumberOfArguments(2);
         this.argumentValidator.setFirstArgumentExpectedType(Symbol.class);
-        this.executionContext = ExecutionContext.getInstance();
     }
 
     public SExpression call(Cons argumentList) {
         argumentValidator.validate(argumentList);
 
+        return set(evaluateValueOnly(argumentList));
+    }
+
+    private Cons evaluateValueOnly(Cons argumentList) {
         Cons rest = (Cons) argumentList.getRest();
-        SExpression symbol = argumentList.getFirst();
         SExpression value = eval(rest.getFirst());
 
-        SymbolTable table = findScopeOfSymbol(symbol);
-        table.put(symbol.toString(), value);
-
-        return value;
-    }
-
-    private SymbolTable findScopeOfSymbol(SExpression symbol) {
-        SymbolTable table = executionContext.getScope();
-
-        while (!isSymbolInTable(symbol, table) && !isGlobalTable(table))
-            table = table.getParent();
-
-        return table;
-    }
-
-    private boolean isSymbolInTable(SExpression symbol, SymbolTable table) {
-        return table.contains(symbol.toString());
-    }
-
-    private boolean isGlobalTable(SymbolTable table) {
-        return table.getParent() == null;
+        return new Cons(argumentList.getFirst(), makeList(value));
     }
 
 }