Changeset 12287


Ignore:
Timestamp:
11/29/09 20:23:08 (12 years ago)
Author:
vvoutilainen
Message:

Make LispObject.push() final.

Location:
trunk/abcl/src/org/armedbear/lisp
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/Cons.java

    r12285 r12287  
    164164      }
    165165    return result;
    166   }
    167 
    168   @Override
    169   public final LispObject push(LispObject obj)
    170   {
    171     return new Cons(obj, this);
    172166  }
    173167
  • trunk/abcl/src/org/armedbear/lisp/LispObject.java

    r12286 r12287  
    199199  }
    200200
    201   public LispObject push(LispObject obj)
    202   {
     201  public final LispObject push(LispObject obj)
     202  {
     203    if (this instanceof Cons) {
     204      return new Cons(obj, this);
     205    } else if (this instanceof Nil) {
     206      return new Cons(obj);
     207    }
    203208    return type_error(this, Symbol.LIST);
    204209  }
  • trunk/abcl/src/org/armedbear/lisp/Nil.java

    r12285 r12287  
    139139
    140140    @Override
    141     public LispObject push(LispObject obj)
    142     {
    143         return new Cons(obj);
    144     }
    145 
    146     @Override
    147141    public LispObject NTH(int index)
    148142    {
Note: See TracChangeset for help on using the changeset viewer.