能否用Common Lisp和CFFI对接MuPDF的setjmp/longjmp异常处理机制？

结论：无法直接接入MuPDF的setjmp/longjmp异常系统 #

setjmp/longjmp是C语言层面的栈跳转机制，它会直接跳过Lisp运行时的栈帧、垃圾回收标记等关键流程。如果强行在Lisp代码中触发longjmp，会破坏Common Lisp的执行环境，导致程序崩溃或出现不可预测的行为，所以不能直接通过CFFI对接MuPDF的这套异常处理。

可行的替代方案 #

1. 编写C语言封装层 #

用C写中间层函数，将所有MuPDF API调用包裹在fz_try块中，把C层面的异常转换成错误码或包含错误信息的结构体返回给Lisp。这样Lisp只需要调用封装后的函数，通过返回值判断错误并处理。

示例C封装代码：

#include <mupdf/fitz.h>

// 封装打开文档的函数，返回错误码和错误信息
int open_document(fz_context **ctx, const char *path, char **err_msg) {
    *err_msg = NULL;
    fz_try(*ctx) {
        *ctx = fz_new_context(NULL, NULL, FZ_STORE_UNLIMITED);
        if (!*ctx) {
            *err_msg = strdup("Failed to create context");
            return 1;
        }
        fz_register_document_handlers(*ctx);
        fz_open_document(*ctx, path);
        return 0;
    } fz_catch(*ctx) {
        *err_msg = strdup(fz_caught_message(*ctx));
        return 2;
    }
}

Lisp侧CFFI调用示例：

(cffi:defcfun ("open_document" %open-document) :int
  (ctx :pointer)
  (path :string)
  (err_msg :pointer))

(defun open-mupdf-document (path)
  (cffi:with-foreign-objects ((ctx :pointer) (err-msg :pointer))
    (let ((result (%open-document ctx path err-msg)))
      (cond
        ((zerop result) (cffi:mem-ref ctx :pointer))
        (t (let ((msg (cffi:mem-ref err-msg :string)))
             (unwind-protect
                  (error "MuPDF error: ~a" msg)
               (cffi:foreign-free msg))))))))

2. 替换MuPDF的错误回调 #

通过fz_set_error_callback设置自定义错误处理函数，替换默认的exit()行为。在回调中收集错误信息并返回，避免程序直接退出。注意这种方式仍需配合fz_try块使用，否则部分严重错误还是会触发longjmp，但至少能阻止程序直接终止。

3. 映射到Lisp的条件系统 #

将C封装层返回的错误码或信息，转换成Common Lisp的条件（Condition），用handler-case或restart-case在Lisp层面做优雅处理。比如定义自定义条件类，在错误发生时抛出，然后在业务代码中捕获处理。

内容的提问来源于stack exchange，提问作者buggyCoder