Changeset 12468


Ignore:
Timestamp:
02/14/10 08:44:26 (12 years ago)
Author:
ehuelsmann
Message:

Convert classPrecedenceList, directMethods and documentation

to java properties.

Location:
branches/metaclass/abcl/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/metaclass/abcl/src/org/armedbear/lisp/LispClass.java

    r12467 r12468  
    9494  private LispObject directSuperclasses = NIL;
    9595  private LispObject directSubclasses = NIL;
    96   public LispObject classPrecedenceList = NIL; // FIXME! Should be private!
    97   public LispObject directMethods = NIL; // FIXME! Should be private!
    98   public LispObject documentation = NIL; // FIXME! Should be private!
     96  private LispObject classPrecedenceList = NIL;
     97  private LispObject directMethods = NIL;
     98  private LispObject documentation = NIL;
    9999  private boolean finalized;
    100100
     
    248248  }
    249249
     250  public LispObject getDirectMethods()
     251  {
     252    return directMethods;
     253  }
     254
     255  public void setDirectMethods(LispObject methods)
     256  {
     257    directMethods = methods;
     258  }
     259
     260  public LispObject getDocumentation()
     261  {
     262    return documentation;
     263  }
     264
     265  public void setDocumentation(LispObject doc)
     266  {
     267    documentation = doc;
     268  }
     269
    250270  @Override
    251271  public LispObject typeOf()
  • branches/metaclass/abcl/src/org/armedbear/lisp/Primitives.java

    r12462 r12468  
    52475247
    52485248      {
    5249           checkClass(first).classPrecedenceList = second;
     5249          checkClass(first).setCPL(second);
    52505250          return second;
    52515251      }
     
    52605260
    52615261      {
    5262           return checkClass(arg).directMethods;
     5262          return checkClass(arg).getDirectMethods();
    52635263      }
    52645264    };
     
    52725272
    52735273      {
    5274           checkClass(first).directMethods = second;
     5274          checkClass(first).setDirectMethods(second);
    52755275          return second;
    52765276      }
     
    52855285
    52865286      {
    5287           return checkClass(arg).documentation;
     5287          return checkClass(arg).getDocumentation();
    52885288      }
    52895289    };
     
    52975297
    52985298      {
    5299           checkClass(first).documentation = second;
     5299          checkClass(first).setDocumentation(second);
    53005300          return second;
    53015301      }
Note: See TracChangeset for help on using the changeset viewer.