Changeset 14481


Ignore:
Timestamp:
04/24/13 12:51:22 (10 years ago)
Author:
rschlatte
Message:

Unify initialization of StandardGenericFunction? objects

File:
1 edited

Legend:

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

    r14474 r14481  
    4646  public StandardGenericFunction()
    4747  {
    48     super(StandardClass.STANDARD_GENERIC_FUNCTION,
    49           StandardClass.STANDARD_GENERIC_FUNCTION.getClassLayout().getLength());
     48    this(StandardClass.STANDARD_GENERIC_FUNCTION.getClassLayout());
    5049  }
    5150
     
    8786  public LispObject typep(LispObject type)
    8887  {
    89     if (type == Symbol.COMPILED_FUNCTION)
    90       {
    91         if (function != null)
    92           return function.typep(type);
    93         else
    94           return NIL;
    95       }
    9688    if (type == Symbol.STANDARD_GENERIC_FUNCTION)
    9789      return T;
     
    410402  }
    411403 
    412   public static final StandardGenericFunction checkStandardGenericFunction(LispObject obj)
     404  private static final StandardGenericFunction checkStandardGenericFunction(LispObject obj)
    413405  {
    414406    if (obj instanceof StandardGenericFunction)
Note: See TracChangeset for help on using the changeset viewer.