Question

我阅读了sbcl manual，并在8.5外国数据结构示例章节中遇到了问题。

我使用以下示例来验证它是否可以正确运行。

_______________________________________________________________

或者考虑一个外部C变量和一些访问的例子：

struct c_struct {
    short x, y;
    char a, b;
    int z;
    c_struct *n;
};


extern struct c_struct *my_struct;
my_struct->x++;
my_struct->a = 5;
my_struct = my_struct->n;

可以在Lisp中操作，如下所示：

(define-alien-type nil
  (struct c-struct
          (x short)
          (y short)
          (a char)
          (b char)
          (z int)
          (n (* c-struct))))
(define-alien-variable "my_struct" (* c-struct))
(incf (slot my-struct 'x))
(setf (slot my-struct 'a) 5)
(setq my-struct (slot my-struct 'n))

________________________________________________________________

现在我在slime上运行上面的示例代码，它表示错误。

unknown alien type: C-STRUCT
  [Condition of type SIMPLE-ERROR]
  Restarts:
  0: [RETRY] Retry SLIME REPL evaluation request.
  1: [ABORT] Return to sldb level 7.
  2: [RETRY] Retry SLIME REPL evaluation request.
  3: [ABORT] Return to sldb level 6.
  4: [RETRY] Retry SLIME REPL evaluation request.
  5: [ABORT] Return to sldb level 5.***

我该怎么做才能定义一个可以包含它的自我点的结构。

Answer 1

请注意，该手册还说：

类型可以是命名的，也可以是匿名的。对于结构和联合类型，名称是类型说明符的一部分，允许递归定义的类型，例如：

（struct foo（a（*（struct foo））））

我没有使用过SBCL的FFI，但我猜这意味着你应该使用：

(define-alien-variable "my_struct" (* (struct c-struct)))

常见的lisp sbcl手册ffi示例失败

1 个答案: