From 25760fe1230ce92a676207997419755cf03de420 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 29 Apr 2006 22:22:45 +0100 Subject: [PATCH] mop: Don't pass filter functions the target object. Firstly, it's now what the docstring for `filtered-slot-class-mixin' says, and it seems to be less useful. --- mdw-mop.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/mdw-mop.lisp b/mdw-mop.lisp index e8946e8..dee8ca4 100644 --- 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)) ;;;-------------------------------------------------------------------------- -- 2.11.0