Changeset 12470


Ignore:
Timestamp:
02/14/10 09:23:14 (12 years ago)
Author:
ehuelsmann
Message:

Check for LISTP instead of CONSP

and remove the resulting special case.

File:
1 edited

Legend:

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

    r12467 r12470  
    7575      setDirectSuperclasses(NIL);
    7676      setDirectSubclasses(NIL);
    77 
    78       // because of the assert below, we need to set the slot directly
    79       // and can't use setCPL()
    80       setInstanceSlotValue(symClassPrecedenceList, NIL);
     77      setCPL(NIL);
    8178  }
    8279
     
    8683            symbol, directSuperclasses);
    8784      setDirectSubclasses(NIL);
    88 
    89       // because of the assert below, we need to set the slot directly
    90       // and can't use setCPL()
    91       setInstanceSlotValue(symClassPrecedenceList, NIL);
     85      setCPL(NIL);
    9286  }
    9387
     
    151145  {
    152146    LispObject obj1 = cpl[0];
    153     if (obj1 instanceof Cons && cpl.length == 1)
     147    if (obj1.listp() && cpl.length == 1)
    154148      setInstanceSlotValue(symClassPrecedenceList, obj1);
    155149    else
Note: See TracChangeset for help on using the changeset viewer.