Changeset 5075


Ignore:
Timestamp:
12/11/03 20:37:53 (17 years ago)
Author:
piso
Message:

setCPL(): 8-arg version.

File:
1 edited

Legend:

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

    r5066 r5075  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: LispClass.java,v 1.35 2003-12-11 19:10:29 piso Exp $
     5 * $Id: LispClass.java,v 1.36 2003-12-11 20:37:53 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    158158    }
    159159
     160    public final void setCPL(LispObject obj1, LispObject obj2, LispObject obj3,
     161                             LispObject obj4, LispObject obj5, LispObject obj6,
     162                             LispObject obj7, LispObject obj8)
     163    {
     164        Debug.assertTrue(obj1 == this);
     165        classPrecedenceList =
     166            list8(obj1, obj2, obj3, obj4, obj5, obj6, obj7, obj8);
     167    }
     168
    160169    public String getName()
    161170    {
Note: See TracChangeset for help on using the changeset viewer.