From: Mark Wooding Date: Thu, 26 May 2016 08:26:09 +0000 (+0100) Subject: src/class-output.lisp (find-class-initializer): Use correct keyword. X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/4178a2f70134896d55bd9df615695e025c759a05 src/class-output.lisp (find-class-initializer): Use correct keyword. This is a silly typo which persisted because the class-initializer machinery hasn't been tested much yet. --- 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)))))