[cffi-devel] translate-to-foreign on a class

Hi,

I have a class which is defined like this (basically, wraps a pointer):

(defclass x-display () ((display-pointer :initform (null-pointer) :initarg :display-pointer :documentation "pointer to an Xlib display structure")))

For convenience, I would like to use it in place of a pointer, with some extra error checking:

(defmethod translate-to-foreign (value (type (eql 'x-display))) (with-slots (display-pointer) value (when (null-pointer-p display-pointer) (error "the X11 display is not open")) display-pointer))

But this doesn't work: functions complain that they expect a system-area-pointer (I am in SBCL), so this method is not called.

What am I doing wrong?

Thanks,

Tamas