(setf slot-value-using-class) not working ...

Dear MOP Gurus!

I want to intercept the setf of a slot.

So I have that simple class

(defclass frgo ()
((slot-1 :accessor slot-1 :initform nil :initarg :slot-1)))

and do:

(defmethod (setf slot-value-using-class) :before
(new-value (class frgo) object slot)
(format *debug-io* "S-V-U-C calles: new-value = ~s, object = ~s, slot
= ~s~%" new-value object slot))

.... just for testing purposes.

1st question: Why do I never land in this method?
2nd question: How do I best debug MOP method selection?
3rd question: How do I specialize on exactly one specific slot (this
method should only get calles when slot-1 is setf'ed ...)

Thanks!!!

Cheers
Frank


--
Frank Goenninger

"Don't ask me! I haven't been reading comp.lang.lisp long enough to
really know ..."
.