X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/a888e3acc123993fa6fca9338f291b306aa131e2..3e166443f7ed632f0a8b3d0e680c2afcc265d56f:/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 @@ const struct ~A ~A__classobj = {~%"
     (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)))))