Common Lisp & CFFI: изменение глобальной переменной

Question

моей целью является изменение глобальной переменной C.

Предполагая, что у меня есть следующий заголовочный файл C:

/* test.h */ 
int global_variable; 

и исходный файл C:

/* test.c */ 
#include "stdio.h" 
#include "test.h" 

extern int global_variable; 
void test(void) { 
    FILE *fp; 
    fp = fopen("output.txt", "w"); 
    fprintf(fp, "Global variable: %d\n", global_variable); 
} 

global_variable правильно отображается внутри общей библиотеки, порожденного

gcc -c -fPIC test.c 
gcc -shared -o libtest.so test.o 

Мой интерфейс lisp выглядит так:

(ql:quickload :cffi) 

(cffi:define-foreign-library libtest 
    (:unix (:default "./libtest")) 
    (t (:default "./libtest"))) 

(cffi:use-foreign-library libtest) 

(cffi:defcvar ("global_variable" *global-variable*) :int) 

(cffi:defcfun "test" :void) 

Я могу назвать тест без ошибок, но я не могу изменить global_variable с

(setf *global-variable* 42) 

я получаю предупреждение неопределенной переменной, а затем определяет (я предполагаю) новую переменную.

Итак, вопрос в том, как изменить global_variable в общем lisp (sbcl)?

Спасибо заранее!

Answer 1

для вашей структуры, что-то, как это должно работать:

(cffi:with-foreign-object (ptr 'block) 
     ;; setf the slots 
     (setf (cffi:foreign-slot-value ptr 'block 'a) 12) ...etc.