Changeset 3976


Ignore:
Timestamp:
09/21/03 19:32:34 (19 years ago)
Author:
piso
Message:

getCPL(), setCPL()

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/LispClass.java

    r3970 r3976  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: LispClass.java,v 1.23 2003-09-21 17:42:29 piso Exp $
     5 * $Id: LispClass.java,v 1.24 2003-09-21 19:32:34 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4343
    4444    protected final Symbol symbol;
    45     private LispObject directSuperclasses; // A list.
     45    private LispObject directSuperclasses;
     46    private LispObject classPrecendenceList;
    4647
    4748    protected LispClass(Symbol symbol)
     
    7677    {
    7778        directSuperclasses = new Cons(superclass);
     79    }
     80
     81    public final LispObject getCPL()
     82    {
     83        return classPrecendenceList;
     84    }
     85
     86    public final void setCPL(LispObject obj1)
     87    {
     88        Debug.assertTrue(obj1 == this);
     89        classPrecendenceList = new Cons(obj1);
     90    }
     91
     92    public final void setCPL(LispObject obj1, LispObject obj2)
     93    {
     94        Debug.assertTrue(obj1 == this);
     95        classPrecendenceList = list2(obj1, obj2);
     96    }
     97
     98    public final void setCPL(LispObject obj1, LispObject obj2, LispObject obj3)
     99    {
     100        Debug.assertTrue(obj1 == this);
     101        classPrecendenceList = list3(obj1, obj2, obj3);
     102    }
     103
     104    public final void setCPL(LispObject obj1, LispObject obj2, LispObject obj3,
     105                             LispObject obj4)
     106    {
     107        Debug.assertTrue(obj1 == this);
     108        classPrecendenceList = list4(obj1, obj2, obj3, obj4);
     109    }
     110
     111    public final void setCPL(LispObject obj1, LispObject obj2, LispObject obj3,
     112                             LispObject obj4, LispObject obj5)
     113    {
     114        Debug.assertTrue(obj1 == this);
     115        classPrecendenceList = list5(obj1, obj2, obj3, obj4, obj5);
     116    }
     117
     118    public final void setCPL(LispObject obj1, LispObject obj2, LispObject obj3,
     119                             LispObject obj4, LispObject obj5, LispObject obj6)
     120    {
     121        Debug.assertTrue(obj1 == this);
     122        classPrecendenceList = list6(obj1, obj2, obj3, obj4, obj5, obj6);
     123    }
     124
     125    public final void setCPL(LispObject obj1, LispObject obj2, LispObject obj3,
     126                             LispObject obj4, LispObject obj5, LispObject obj6,
     127                             LispObject obj7)
     128    {
     129        Debug.assertTrue(obj1 == this);
     130        classPrecendenceList = list7(obj1, obj2, obj3, obj4, obj5, obj6, obj7);
    78131    }
    79132
Note: See TracChangeset for help on using the changeset viewer.