cffi 的 foreign-alloc 与包含 defconstant 的列表

Question

我正在尝试:

(defconstant x 1)
(cffi:foreign-alloc :int :initial-contents  '(x 99))

但我收到一条错误消息:

The value X is not of type (SIGNED-BYTE 32).
   [Condition of type TYPE-ERROR]

我可以定义这个非常重要:

(x 99) ; x does need to be a defconstant equaling 1

作为我正在编写的代码的指针。我怎样才能做到这一点？

Answer 1

尝试

(cffi:foreign-alloc :int :initial-contents (list x 99))

'(x 99) 表示 (x 99) 未计算，因此它是一个包含符号 x 和数字的列表99

(list x 99) 是一个函数，所以 x 被评估并替换为它的值 1 然后创建一个列表内容 1 和 99。