以上篇博客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*))
执行过程及结果如下: