mop: Don't pass filter functions the target object.

[lisp] / mdw-mop.lisp

diff --git a/mdw-mop.lisp b/mdw-mop.lisp
index e8946e8..dee8ca4 100644 (file)
--- a/mdw-mop.lisp
+++ b/mdw-mop.lisp
@@ -172,7 +172,7 @@
      (class filtered-slot-class-mixin)
      (object standard-object)
      (slot filtered-effective-slot-definition))
-  (call-next-method (funcall (slot-definition-filter slot) object value)
+  (call-next-method (funcall (slot-definition-filter slot) value)
                    class object slot))
 
 ;;;--------------------------------------------------------------------------