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
_______________________________________________
cffi-devel mailing list
cffi-devel@common-lisp.net
http://common-lisp.net/cgi-bin/mailman/listinfo/cffi-devel
