2
得到的结果下面是C中的函数:传递一个指针,通过CFFI
union Example {
int number;
void *pointer;
};
void return_a_value (union Example *ptr) {
(*ptr).number = 1;
}
现在我想通过CFFI调用它Common Lisp中,我该怎么办呢?
(defcunion Example
(number :int)
(ptr :pointer))
(defcfun "return_a_value" :void
(retval :pointer)) ; I'm not very sure here..