src/: Guess the metaclass early, unless we're explicitly bootstrapping.

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

diff --git a/src/class-finalize-proto.lisp b/src/class-finalize-proto.lisp
index 2f589b89ede92fee9706c048eed008985e7f9ccd..edd1bad59bed68f68dc4d0a39fff79a95fa28578 100644 (file)
--- a/src/class-finalize-proto.lisp
+++ b/src/class-finalize-proto.lisp
@@ -92,14 +92,6 @@ (defgeneric compute-chains (class)
    If the chains are ill-formed (i.e., not distinct) then an error is
    signalled."))
 
    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
 (export 'check-sod-class)
 (defgeneric check-sod-class (class)
   (:documentation