lisp - CFFI を介して結果を取得するためのポインターを渡す

Question

Cの関数は次のとおりです。

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..

Answer 1

の定義を含め、この時点まではすべて問題ありません return_a_value。それが関数を呼び出す方法です：

(with-foreign-object (arg 'example)
  (setf (foreign-slot-value arg 'example 'number) 123)
  (return-a-value arg)
  (foreign-slot-value arg 'example 'number))