Changeset 4649

Timestamp:

11/05/03 01:47:47 (19 years ago)

Author:

piso

Message:

CLASS-DIRECT-DEFAULT-INITARGS
%SET-CLASS-DIRECT-DEFAULT-INITARGS
CLASS-DEFAULT-INITARGS
%SET-CLASS-DEFAULT-INITARGS

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: StandardClass.java,v 1.11 2003-10-11 18:48:46 piso Exp $
+ * $Id: StandardClass.java,v 1.12 2003-11-05 01:47:47 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -26 +26 @@
     private LispObject directSlots = NIL;
     private LispObject effectiveSlots = NIL;
+    private LispObject directDefaultInitargs = NIL;
+    private LispObject effectiveDefaultInitargs = NIL;
 
     public StandardClass()
@@ -122 +124 @@
         }
     };
+
+    // ### class-direct-default-initargs
+    private static final Primitive1 CLASS_DIRECT_DEFAULT_INITARGS =
+        new Primitive1("class-direct-default-initargs", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject arg)
+            throws ConditionThrowable
+        {
+            if (arg instanceof StandardClass)
+                return ((StandardClass)arg).directDefaultInitargs;
+            if (arg instanceof BuiltInClass)
+                return NIL;
+            throw new ConditionThrowable(new TypeError(arg, "standard class"));
+        }
+    };
+
+    // ### %set-class-direct-default-initargs
+    private static final Primitive2 _SET_CLASS_DIRECT_DEFAULT_INITARGS =
+        new Primitive2("%set-class-direct-default-initargs", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject first, LispObject second)
+            throws ConditionThrowable
+        {
+            if (first instanceof StandardClass) {
+                ((StandardClass)first).directDefaultInitargs = second;
+                return second;
+            }
+            throw new ConditionThrowable(new TypeError(first, "standard class"));
+        }
+    };
+
+    // ### class-default-initargs
+    private static final Primitive1 CLASS_DEFAULT_INITARGS =
+        new Primitive1("class-default-initargs", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject arg)
+            throws ConditionThrowable
+        {
+            if (arg instanceof StandardClass)
+                return ((StandardClass)arg).effectiveDefaultInitargs;
+            if (arg instanceof BuiltInClass)
+                return NIL;
+            throw new ConditionThrowable(new TypeError(arg, "standard class"));
+        }
+    };
+
+    // ### %set-class-default-initargs
+    private static final Primitive2 _SET_CLASS_DEFAULT_INITARGS =
+        new Primitive2("%set-class-default-initargs", PACKAGE_SYS, false)
+    {
+        public LispObject execute(LispObject first, LispObject second)
+            throws ConditionThrowable
+        {
+            if (first instanceof StandardClass) {
+                ((StandardClass)first).effectiveDefaultInitargs = second;
+                return second;
+            }
+            throw new ConditionThrowable(new TypeError(first, "standard class"));
+        }
+    };
 }