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

[Ville Voutilainen]

Author: vvoutilainen
Date: Fri Jul 24 17:39:10 2009
New Revision: 12058

Log:
Make pushStackFrame final.


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

Modified: trunk/abcl/src/org/armedbear/lisp/LispThread.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/LispThread.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/LispThread.java	Fri Jul 24 17:39:10 2009
@@ -555,21 +555,21 @@
         }
     }
 
-    public void pushStackFrame(LispObject operator)
+    public final void pushStackFrame(LispObject operator)
         throws ConditionThrowable
     {
         stack = new Cons((new StackFrame(operator)), stack);
         doProfiling();
     }
 
-    public void pushStackFrame(LispObject operator, LispObject arg)
+    public final void pushStackFrame(LispObject operator, LispObject arg)
         throws ConditionThrowable
     {
         stack = new Cons((new StackFrame(operator, arg)), stack);
         doProfiling();
     }
 
-    public void pushStackFrame(LispObject operator, LispObject first,
+    public final void pushStackFrame(LispObject operator, LispObject first,
                                LispObject second)
         throws ConditionThrowable
     {
@@ -577,7 +577,7 @@
         doProfiling();
     }
 
-    public void pushStackFrame(LispObject operator, LispObject first,
+    public final void pushStackFrame(LispObject operator, LispObject first,
                                LispObject second, LispObject third)
         throws ConditionThrowable
     {
@@ -586,7 +586,7 @@
         doProfiling();
     }
 
-    public void pushStackFrame(LispObject operator, LispObject... args)
+    public final void pushStackFrame(LispObject operator, LispObject... args)
         throws ConditionThrowable
     {
         stack = new Cons((new StackFrame(operator, args)), stack);