Changeset 13773

Timestamp:

01/14/12 16:37:32 (11 years ago)

Author:

rschlatte

Message:

introduce funcallable-standard-object.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• StandardClass.java (modified) (5 diffs)
• Symbol.java (modified) (2 diffs)

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

@@ -422 +422 @@
 
   // BuiltInClass.FUNCTION is also null here (see previous comment).
+  public static final StandardClass FUNCALLABLE_STANDARD_OBJECT =
+      addStandardClass(Symbol.FUNCALLABLE_STANDARD_OBJECT,
+                       list(STANDARD_OBJECT, BuiltInClass.FUNCTION));
+
   public static final StandardClass GENERIC_FUNCTION =
-    addStandardClass(Symbol.GENERIC_FUNCTION, list(METAOBJECT,
-                                                   BuiltInClass.FUNCTION));
+    addStandardClass(Symbol.GENERIC_FUNCTION,
+                     list(METAOBJECT, FUNCALLABLE_STANDARD_OBJECT));
 
   public static final StandardClass METHOD_COMBINATION =
@@ -582 +586 @@
     STANDARD_CLASS.setDirectSuperclass(CLASS);
     STANDARD_OBJECT.setDirectSuperclass(BuiltInClass.CLASS_T);
+    FUNCALLABLE_STANDARD_OBJECT.setDirectSuperclasses(list(STANDARD_OBJECT, BuiltInClass.FUNCTION));
     GENERIC_FUNCTION.setDirectSuperclasses(list(METAOBJECT,
-                                                BuiltInClass.FUNCTION));
+                                                FUNCALLABLE_STANDARD_OBJECT));
 
     ARITHMETIC_ERROR.setCPL(ARITHMETIC_ERROR, ERROR, SERIOUS_CONDITION,
@@ -647 +652 @@
     FORWARD_REFERENCED_CLASS.setCPL(FORWARD_REFERENCED_CLASS, CLASS,
                                     SPECIALIZER, METAOBJECT, STANDARD_OBJECT, BuiltInClass.CLASS_T);
-    GENERIC_FUNCTION.setCPL(GENERIC_FUNCTION, METAOBJECT, STANDARD_OBJECT,
+    FUNCALLABLE_STANDARD_OBJECT.setCPL(FUNCALLABLE_STANDARD_OBJECT, STANDARD_OBJECT, BuiltInClass.FUNCTION, BuiltInClass.CLASS_T);
+    GENERIC_FUNCTION.setCPL(GENERIC_FUNCTION, METAOBJECT,
+                            FUNCALLABLE_STANDARD_OBJECT, STANDARD_OBJECT,
                             BuiltInClass.FUNCTION,
                             BuiltInClass.CLASS_T);
@@ -766 +773 @@
     STANDARD_CLASS.finalizeClass();
     STANDARD_OBJECT.finalizeClass();
+    FUNCALLABLE_STANDARD_OBJECT.finalizeClass();
     CLASS.finalizeClass();
+    GENERIC_FUNCTION.finalizeClass();
     ARITHMETIC_ERROR.finalizeClass();
     CELL_ERROR.finalizeClass();
@@ -856 +865 @@
     STANDARD_GENERIC_FUNCTION.setCPL(STANDARD_GENERIC_FUNCTION,
                                      GENERIC_FUNCTION, METAOBJECT,
+                                     FUNCALLABLE_STANDARD_OBJECT,
                                      STANDARD_OBJECT,
                                      BuiltInClass.FUNCTION,

trunk/abcl/src/org/armedbear/lisp/Symbol.java

@@ -2972 +2972 @@
   public static final Symbol EQL_SPECIALIZER_OBJECT =
     PACKAGE_MOP.addExternalSymbol("EQL-SPECIALIZER-OBJECT");
+  public static final Symbol FUNCALLABLE_STANDARD_OBJECT =
+    PACKAGE_MOP.addExternalSymbol("FUNCALLABLE-STANDARD-OBJECT");
   public static final Symbol SHORT_METHOD_COMBINATION =
     PACKAGE_MOP.addInternalSymbol("SHORT-METHOD-COMBINATION");
@@ -3017 +3019 @@
   public static final Symbol LONG_METHOD_COMBINATION_FORMS =
     PACKAGE_MOP.addInternalSymbol("LONG-METHOD-COMBINATION-FORMS");
+  // slot names of (long-|short-)method-combination classes
   public static final Symbol OPERATOR =
     PACKAGE_MOP.addInternalSymbol("OPERATOR");