Changeset 12725

Timestamp:

05/23/10 17:59:51 (13 years ago)

Author:

vvoutilainen

Message:

Make Readtable functions final where possible.

File:

• trunk/abcl/src/org/armedbear/lisp/Readtable.java (modified) (9 diffs)

trunk/abcl/src/org/armedbear/lisp/Readtable.java

@@ -172 +172 @@
 
   @Override
-  public LispObject typeOf()
+  public final LispObject typeOf()
   {
     return Symbol.READTABLE;
@@ -178 +178 @@
 
   @Override
-  public LispObject classOf()
+  public final LispObject classOf()
   {
     return BuiltInClass.READTABLE;
@@ -184 +184 @@
 
   @Override
-  public LispObject typep(LispObject type)
+  public final LispObject typep(LispObject type)
   {
     if (type == Symbol.READTABLE)
@@ -194 +194 @@
 
   @Override
-  public String toString()
+  public final String toString()
   {
     return unreadableString("READTABLE");
   }
 
-  public LispObject getReadtableCase()
+  public final LispObject getReadtableCase()
   {
     return readtableCase;
   }
 
-  public boolean isWhitespace(char c)
+  public final boolean isWhitespace(char c)
   {
     return getSyntaxType(c) == SYNTAX_TYPE_WHITESPACE;
   }
 
-  public byte getSyntaxType(char c)
+  public final byte getSyntaxType(char c)
   {
     return syntax.get(c);
   }
 
-  public boolean isInvalid(char c)
+  public final boolean isInvalid(char c)
   {
     switch (c)
@@ -231 +231 @@
   }
 
-  public void checkInvalid(char c, Stream stream)
+  public final void checkInvalid(char c, Stream stream)
   {
     // "... no mechanism is provided for changing the constituent trait of a
@@ -248 +248 @@
   }
 
-  public LispObject getReaderMacroFunction(char c)
+  public final LispObject getReaderMacroFunction(char c)
   {
     return readerMacroFunctions.get(c);
   }
 
-  LispObject getMacroCharacter(char c)
+  final LispObject getMacroCharacter(char c)
   {
     LispObject function = getReaderMacroFunction(c);
@@ -272 +272 @@
   }
 
-  void makeDispatchMacroCharacter(char dispChar, LispObject non_terminating_p)
+  final void makeDispatchMacroCharacter(char dispChar, LispObject non_terminating_p)
   {
     byte syntaxType;
@@ -285 +285 @@
   }
 
-  public LispObject getDispatchMacroCharacter(char dispChar, char subChar)
+  public final LispObject getDispatchMacroCharacter(char dispChar, char subChar)
 
   {
@@ -300 +300 @@
   }
 
-  public void setDispatchMacroCharacter(char dispChar, char subChar,
+  public final void setDispatchMacroCharacter(char dispChar, char subChar,
                                         LispObject function)