[armedbear-cvs] r12475 - branches/metaclass/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Feb 14 11:27:37 2010
New Revision: 12475

Log:
Access the CPL through its accessor *everywhere*.

Modified:
   branches/metaclass/abcl/src/org/armedbear/lisp/LispClass.java

Modified: branches/metaclass/abcl/src/org/armedbear/lisp/LispClass.java
==============================================================================
--- branches/metaclass/abcl/src/org/armedbear/lisp/LispClass.java	(original)
+++ branches/metaclass/abcl/src/org/armedbear/lisp/LispClass.java	Sun Feb 14 11:27:37 2010
@@ -136,7 +136,7 @@
     result = result.push(new Cons("DIRECT-SUPERCLASSES",
                                   getDirectSuperclasses()));
     result = result.push(new Cons("DIRECT-SUBCLASSES", getDirectSubclasses()));
-    result = result.push(new Cons("CLASS-PRECEDENCE-LIST", classPrecedenceList));
+    result = result.push(new Cons("CLASS-PRECEDENCE-LIST", getCPL()));
     result = result.push(new Cons("DIRECT-METHODS", directMethods));
     result = result.push(new Cons("DOCUMENTATION", documentation));
     return result.nreverse();
@@ -291,7 +291,7 @@
 
   public boolean subclassp(LispObject obj)
   {
-    LispObject cpl = classPrecedenceList;
+    LispObject cpl = getCPL();
     while (cpl != NIL)
       {
         if (cpl.car() == obj)