Changeset 4284

Timestamp:

10/10/03 14:46:21 (19 years ago)

Author:

piso

Message:

%SET-CLASS-DIRECT-SUPERCLASSES

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: LispClass.java,v 1.29 2003-10-10 14:16:19 piso Exp $
+ * $Id: LispClass.java,v 1.30 2003-10-10 14:46:21 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -72 +72 @@
     }
 
-    public final void setDirectSuperclasses(Cons directSuperclasses)
+    public final void setDirectSuperclasses(LispObject directSuperclasses)
     {
         this.directSuperclasses = directSuperclasses;
@@ -253 +253 @@
     };
 
+    // ### %set-class-direct-superclasses
+    private static final Primitive2 _SET_CLASS_DIRECT_SUPERCLASSES =
+        new Primitive2("%set-class-direct-superclasses", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject first, LispObject second)
+            throws ConditionThrowable
+        {
+            if (first instanceof LispClass) {
+                ((LispClass)first).setDirectSuperclasses(second);
+                return second;
+            }
+            throw new ConditionThrowable(new TypeError(first, "class"));
+        }
+    };
+
     // ### class-precedence-list
     private static final Primitive1 CLASS_PRECEDENCE_LIST =