Changeset 3978

Timestamp:

09/21/03 19:48:51 (20 years ago)

Author:

piso

Message:

SYS::CLASS-PRECEDENCE-LIST

File:

• trunk/j/src/org/armedbear/lisp/LispClass.java (modified) (11 diffs)

trunk/j/src/org/armedbear/lisp/LispClass.java

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: LispClass.java,v 1.24 2003-09-21 19:32:34 piso Exp $
+ * $Id: LispClass.java,v 1.25 2003-09-21 19:48:51 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -44 +44 @@
     protected final Symbol symbol;
     private LispObject directSuperclasses;
-    private LispObject classPrecendenceList;
+    private LispObject classPrecedenceList = NIL;
 
     protected LispClass(Symbol symbol)
@@ -81 +81 @@
     public final LispObject getCPL()
     {
-        return classPrecendenceList;
+        return classPrecedenceList;
     }
 
@@ -87 +87 @@
     {
         Debug.assertTrue(obj1 == this);
-        classPrecendenceList = new Cons(obj1);
+        classPrecedenceList = new Cons(obj1);
     }
 
@@ -93 +93 @@
     {
         Debug.assertTrue(obj1 == this);
-        classPrecendenceList = list2(obj1, obj2);
+        classPrecedenceList = list2(obj1, obj2);
     }
 
@@ -99 +99 @@
     {
         Debug.assertTrue(obj1 == this);
-        classPrecendenceList = list3(obj1, obj2, obj3);
+        classPrecedenceList = list3(obj1, obj2, obj3);
     }
 
@@ -106 +106 @@
     {
         Debug.assertTrue(obj1 == this);
-        classPrecendenceList = list4(obj1, obj2, obj3, obj4);
+        classPrecedenceList = list4(obj1, obj2, obj3, obj4);
     }
 
@@ -113 +113 @@
     {
         Debug.assertTrue(obj1 == this);
-        classPrecendenceList = list5(obj1, obj2, obj3, obj4, obj5);
+        classPrecedenceList = list5(obj1, obj2, obj3, obj4, obj5);
     }
 
@@ -120 +120 @@
     {
         Debug.assertTrue(obj1 == this);
-        classPrecendenceList = list6(obj1, obj2, obj3, obj4, obj5, obj6);
+        classPrecedenceList = list6(obj1, obj2, obj3, obj4, obj5, obj6);
     }
 
@@ -128 +128 @@
     {
         Debug.assertTrue(obj1 == this);
-        classPrecendenceList = list7(obj1, obj2, obj3, obj4, obj5, obj6, obj7);
+        classPrecedenceList = list7(obj1, obj2, obj3, obj4, obj5, obj6, obj7);
     }
 
@@ -190 +190 @@
     };
 
+    private static final Primitive1 CLASS_PRECEDENCE_LIST =
+        new Primitive1("class-precedence-list", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject arg) throws ConditionThrowable
+        {
+            if (arg instanceof LispClass)
+                return ((LispClass)arg).getCPL();
+            throw new ConditionThrowable(new TypeError(arg, "class"));
+        }
+    };
+
     private static final Primitive1 CLASSP =
         new Primitive1("classp", PACKAGE_SYS, false)