src/method-impl.lisp: Initialize `suppliedp' flags properly.

[sod] / src / class-finalize-proto.lisp

diff --git a/src/class-finalize-proto.lisp b/src/class-finalize-proto.lisp
index 5bbbd7a3ef8c6dd9d2ed74c11dbb1ce858b528e3..fcb8686cda97030932b6c9a97bc89f375ee581aa 100644 (file)
--- a/src/class-finalize-proto.lisp
+++ b/src/class-finalize-proto.lisp
@@ -52,6 +52,14 @@ (defgeneric compute-chains (class)
    If the chains are ill-formed (i.e., not distinct) then an error is
    signalled."))
 
+(export 'guess-metaclass)
+(defgeneric guess-metaclass (class)
+  (:documentation
+   "Determine a suitable metaclass for the CLASS.
+
+   The default behaviour is to choose the most specific metaclass of any of
+   the direct superclasses of CLASS, or to signal an error if that failed."))
+
 (export 'check-sod-class)
 (defgeneric check-sod-class (class)
   (:documentation