X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/f64eb323a5798e155cc494043f5f750abf50a482..a47b5b286ee7c98c16b4023e5d6954cfdd9faa88:/src/class-output.lisp?ds=sidebyside

diff --git a/src/class-output.lisp b/src/class-output.lisp
index a59bda0..2d1c222 100644
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -659,7 +659,7 @@ (defgeneric find-class-initializer (slot class)
     (let ((dslot (effective-slot-direct-slot slot)))
       (or (some (lambda (super)
 		  (find dslot (sod-class-class-initializers super)
-			:test #'sod-initializer-slot))
+			:key #'sod-initializer-slot))
 		(sod-class-precedence-list class))
 	  (effective-slot-initializer slot)))))