Convert some more code to kotlin

src/main/kotlin/function/FunctionNames.java

@@ -1,13 +0,0 @@
-package function;
-
-import java.lang.annotation.ElementType;
-import java.lang.annotation.Retention;
-import java.lang.annotation.RetentionPolicy;
-import java.lang.annotation.Target;
-
-@Retention(RetentionPolicy.RUNTIME)
-@Target(ElementType.TYPE)
-public @interface FunctionNames {
-
-    String[] value();
-}

src/main/kotlin/function/FunctionNames.kt

@@ -0,0 +1,10 @@
+package function
+
+import java.lang.annotation.Retention
+import java.lang.annotation.RetentionPolicy.RUNTIME
+import kotlin.annotation.AnnotationTarget.CLASS
+import kotlin.annotation.AnnotationTarget.FILE
+
+@Retention(RUNTIME)
+@Target(CLASS, FILE)
+annotation class FunctionNames(vararg val value: String)

src/main/kotlin/function/LispFunction.java

@@ -1,17 +0,0 @@
-package function;
-
-import sexpression.Cons;
-import sexpression.SExpression;
-
-public abstract class LispFunction {
-
-    public abstract SExpression call(Cons argumentList);
-
-    public boolean isArgumentListEvaluated() {
-        return true;
-    }
-
-    public boolean isMacro() {
-        return false;
-    }
-}

src/main/kotlin/function/LispFunction.kt

@@ -0,0 +1,15 @@
+package function
+
+import sexpression.Cons
+import sexpression.SExpression
+
+abstract class LispFunction {
+
+    open val isArgumentListEvaluated: Boolean
+        get() = true
+
+    open val isMacro: Boolean
+        get() = false
+
+    abstract fun call(argumentList: Cons): SExpression
+}

src/main/kotlin/function/LispSpecialFunction.java

@@ -1,9 +0,0 @@
-package function;
-
-public abstract class LispSpecialFunction extends LispFunction {
-
-    @Override
-    public boolean isArgumentListEvaluated() {
-        return false;
-    }
-}

src/main/kotlin/function/LispSpecialFunction.kt

@@ -0,0 +1,7 @@
+package function
+
+abstract class LispSpecialFunction : LispFunction() {
+
+    override val isArgumentListEvaluated: Boolean
+        get() = false
+}

src/main/kotlin/function/UserDefinedMacro.java

@@ -1,15 +0,0 @@
-package function;
-
-import sexpression.Cons;
-
-public class UserDefinedMacro extends UserDefinedSpecialFunction {
-
-    public UserDefinedMacro(String name, Cons lambdaList, Cons body) {
-        super(name, lambdaList, body);
-    }
-
-    @Override
-    public boolean isMacro() {
-        return true;
-    }
-}

src/main/kotlin/function/UserDefinedMacro.kt

@@ -0,0 +1,10 @@
+package function
+
+import sexpression.Cons
+
+class UserDefinedMacro(name: String, lambdaList: Cons, body: Cons)
+    : UserDefinedSpecialFunction(name, lambdaList, body) {
+
+    override val isMacro: Boolean
+        get() = true
+}

src/main/kotlin/function/UserDefinedSpecialFunction.java

@@ -1,15 +0,0 @@
-package function;
-
-import sexpression.Cons;
-
-public class UserDefinedSpecialFunction extends UserDefinedFunction {
-
-    public UserDefinedSpecialFunction(String name, Cons lambdaList, Cons body) {
-        super(name, lambdaList, body);
-    }
-
-    @Override
-    public boolean isArgumentListEvaluated() {
-        return false;
-    }
-}

src/main/kotlin/function/UserDefinedSpecialFunction.kt

@@ -0,0 +1,10 @@
+package function
+
+import sexpression.Cons
+
+open class UserDefinedSpecialFunction(name: String, lambdaList: Cons, body: Cons)
+    : UserDefinedFunction(name, lambdaList, body) {
+
+    override val isArgumentListEvaluated: Boolean
+        get() = false
+}

src/main/kotlin/table/FunctionTable.kt

@@ -124,7 +124,7 @@ object FunctionTable {
             addAllFunctionNamesToTable(function, functionNames.value)
     }
 
-    private fun addAllFunctionNamesToTable(function: Class<out LispFunction>, names: Array<String>) {
+    private fun addAllFunctionNamesToTable(function: Class<out LispFunction>, names: Array<out String>) {
         for (name in names)
             table[name] = createInstance(function, name)
     }