X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/b7a3889e4b7911ee2427b6cdc89a6acfe97e06f4..284f1fa2ace3e276052ff1bd7d66442500e693da:/src/class-make-proto.lisp

diff --git a/src/class-make-proto.lisp b/src/class-make-proto.lisp
index 7305807..a974f0e 100644
--- a/src/class-make-proto.lisp
+++ b/src/class-make-proto.lisp
@@ -59,14 +59,6 @@ (defun make-sod-class (name superclasses pset &optional location)
 				 :pset pset)))
       class)))
 
-(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."))
-
 ;;;--------------------------------------------------------------------------
 ;;; Slots and slot initializers.