src/: Make `find-class-initializer' be a proper part of the interface.

[sod] / src / class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index ee77a2c843a1ab7f75329b753fe796675db88443..8d1d93e3974e8e3c4a1cc5290675bf3238747f2a 100644 (file)
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -654,15 +654,6 @@ (defmethod hook-output progn
               (vtable-name class chain-head)
               (sod-class-nickname chain-tail))))))
 
-(defgeneric find-class-initializer (slot class)
-  (:method ((slot effective-slot) (class sod-class))
-    (let ((dslot (effective-slot-direct-slot slot)))
-      (or (some (lambda (super)
-                 (find dslot (sod-class-class-initializers super)
-                       :key #'sod-initializer-slot))
-               (sod-class-precedence-list class))
-         (effective-slot-initializer slot)))))
-
 (defgeneric output-class-initializer (slot instance stream)
   (:method ((slot sod-class-effective-slot) (instance sod-class) stream)
     (let ((func (effective-slot-initializer-function slot))