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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sun Feb 14 15:08:23 2010
New Revision: 12480

Log:
DIRECT-DEFAULT-INITARGS and DEFAULT-INITARGS slot storage for STANDARD-CLASS.

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

Modified: branches/metaclass/abcl/src/org/armedbear/lisp/StandardClass.java
==============================================================================
--- branches/metaclass/abcl/src/org/armedbear/lisp/StandardClass.java	(original)
+++ branches/metaclass/abcl/src/org/armedbear/lisp/StandardClass.java	Sun Feb 14 15:08:23 2010
@@ -54,6 +54,10 @@
     = PACKAGE_MOP.intern("DIRECT-SLOTS");
   private static Symbol symSlots
     = PACKAGE_MOP.intern("SLOTS");
+  private static Symbol symDirectDefaultInitargs
+    = PACKAGE_MOP.intern("DIRECT-DEFAULT-INITARGS");
+  private static Symbol symDefaultInitargs
+    = PACKAGE_MOP.intern("DEFAULT-INITARGS");
 
   static Layout layoutStandardClass =
       new Layout(null,
@@ -66,8 +70,8 @@
                       symDocumentation,
                       symDirectSlots,
                       symSlots,
-                      PACKAGE_MOP.intern("DIRECT-DEFAULT-INITARGS"),
-                      PACKAGE_MOP.intern("DEFAULT-INITARGS")),
+                      symDirectDefaultInitargs,
+                      symDefaultInitargs),
                  NIL)
       {
         @Override
@@ -87,6 +91,8 @@
       setDocumentation(NIL);
       setDirectSlotDefinitions(NIL);
       setSlotDefinitions(NIL);
+      setDirectDefaultInitargs(NIL);
+      setDefaultInitargs(NIL);
   }
 
   public StandardClass(Symbol symbol, LispObject directSuperclasses)
@@ -99,6 +105,8 @@
       setDocumentation(NIL);
       setDirectSlotDefinitions(NIL);
       setSlotDefinitions(NIL);
+      setDirectDefaultInitargs(NIL);
+      setDefaultInitargs(NIL);
   }
 
   @Override
@@ -220,6 +228,30 @@
      setInstanceSlotValue(symSlots, slotDefinitions);
   }
 
+  @Override
+  public LispObject getDirectDefaultInitargs()
+  {
+    return getInstanceSlotValue(symDirectDefaultInitargs);
+  }
+
+  @Override
+  public void setDirectDefaultInitargs(LispObject directDefaultInitargs)
+  {
+    setInstanceSlotValue(symDirectDefaultInitargs, directDefaultInitargs);
+  }
+
+  @Override
+  public LispObject getDefaultInitargs()
+  {
+    return getInstanceSlotValue(symDefaultInitargs);
+  }
+
+  @Override
+  public void setDefaultInitargs(LispObject defaultInitargs)
+  {
+    setInstanceSlotValue(symDefaultInitargs, defaultInitargs);
+  }
+
 
 
   @Override