X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/89ef4001b93c0219096c94125e7e9fdb745d2c97..4178a2f70134896d55bd9df615695e025c759a05:/src/class-output.lisp

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)))))