Common Lisp通过CFFI调用C动态库

以上篇博客Linux下动态链接库文件的编译与使用中的libmodulec.so库为例，编写调用代码：

(asdf:oos 'asdf:load-op :cffi)

(defpackage :cffi-user
  (:use :common-lisp :cffi))

(in-package :cffi-user)

(defvar *lib-handler* nil)

(defun load-foreign-lib ()
  (setq *lib-handler* 
        (load-foreign-library "libmodulec.so" :search-path "~/projects/swig_prj/")))

(defun exec-foreign-interface ()
  (foreign-funcall add-nums :int 4 :int 8 :int))

(defun unload-foreign-lib ()
  (close-foreign-library *lib-handler*))

执行过程及结果如下：