garbage-collection - 如何完成 lisp:struct 包含指针？

Question

我正在将轻量级通信和编组从 julia 移植到 lisp，因为它具有更好的 API。我使用swig生成 C 函数调用。

我想知道这是否是 C 指针的安全用法。这是创建功能：

(defun create-lcm (&optional (provider (null-pointer)))
    (let* ((ptr (lcm_create provider))
           (addr (cffi:pointer-address ptr)))
        (tg:finalize ptr (lambda () (lcm_destroy (cffi:make-pointer addr))))
        (if (NULL-POINTER-P ptr)
                (error "lcm creation error"))
        (%create-lcm :pointer ptr :provider provider
                                 :file-descriptor (lcm_get_fileno ptr))))

问题：

• 完成 C 指针的正确方法是什么？
• 如何为此进行测试？

欢迎任何其他注释/建议。

提前致谢。

标签： garbage-collectionlispcommon-lispfinalizerfinalization

Answer 1

以下是一些错误的事情：

1. 将终结器附加到可能为空的指针
2. 我不确定您是否可以将终结器附加到外部指针。也许你是。
3. 你需要小心终结器和 gc。如果终结器引用它终结的对象，则对象及其终结器彼此保持活动状态（它们不能立即收集，因为终结器可能会在某处存储对该对象的引用，然后该对象将处于活动状态，因此应该t 已定稿。

我不知道这是否正确，但更好：

(defun create-lcm (&optional (provider (null-pointer))
  (let ((ptr (lcm_create provider)))
    (when (null-pointer-p ptr)
      (error “lcm creation error”))
    (flet ((finaliser () (lcm_destroy ptr)))
      (let ((result (%create-lcm :pointer ptr :provider provider
                                 :file-descriptor (lcm_get_fileno ptr))))
        (tg:finalize result #'finaliser)
        result))))

以下是一些错误的事情：

1. 如果出现错误，%create-lcm则lcm_get_fileno终结器将不会运行