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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun May 23 05:45:50 2010
New Revision: 12724

Log:
Remove access specifier from 2 interpreter specific functions
(now defaulting to package access), because they use a type
which is also package level.

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

Modified: trunk/abcl/src/org/armedbear/lisp/Lisp.java
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/Lisp.java	(original)
+++ trunk/abcl/src/org/armedbear/lisp/Lisp.java	Sun May 23 05:45:50 2010
@@ -701,9 +701,8 @@
    *
    * This version is used by the interpreter.
    */
-  public static final LispObject nonLocalGo(Binding binding,
-                                            LispObject tag)
-
+  static final LispObject nonLocalGo(Binding binding,
+                                     LispObject tag)
   {
     if (binding.env.inactive)
       return error(new ControlError("Unmatched tag "
@@ -738,10 +737,9 @@
    *
    * This version is used by the interpreter.
    */
-  public static final LispObject nonLocalReturn(Binding binding,
-                                                Symbol block,
-                                                LispObject result)
-
+  static final LispObject nonLocalReturn(Binding binding,
+                                         Symbol block,
+                                         LispObject result)
   {
     if (binding == null)
       {