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

[lisp] / mdw-mop.lisp

diff --git a/mdw-mop.lisp b/mdw-mop.lisp
index e8946e8c8498b73dabf20855a7831fd1b8f569e8..dee8ca45b65f7c5f72099adf20fee756d640252d 100644 (file)
--- a/mdw-mop.lisp
+++ b/mdw-mop.lisp
@@ -172,7 +172,7 @@ (defmethod (setf slot-value-using-class)
      (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))
 
 ;;;--------------------------------------------------------------------------