[cffi-devel] translate-from-foreign not being called ....

[Frank Goenninger]

Hey all!

I can't seem to figure out why my translate-from-foreign method is not
getting called:

(defconstant +PIB-OK+ 0)

(defctype tPIBAMQPrc          :int)
(defctype tsPIBAMQPContextPtr :pointer)

(defmethod translate-from-foreign (value (type (eql 'tPIBAMQPrc)))
   (if (not (= value +PIB-OK+))
     (error "*** PIB AMQP error: ~d." value))
   value)

Having a foreign function like

(defcfun ("nPIBAMQPConnect" %mq-connect) tPIBAMQPrc
   (mq-context-ptr tsPIBAMQPContextPtr))

return values of > 0 does not trigger the above-mentioned method ... I
haven't looked into CFFI internals yet.

TIA !

Regards
   Frank