Встраиваемый Common Lisp (ECL): загрузка разделяемой библиотеки с функциями расширения

Question

Можно ли загрузить общую библиотеку в ECL, импортировать некоторые функции C, которые получают и возвращают cl_object (как будто они были определены с ecl_def_c_function()) и вызывать их в REPL (без компиляции файла *.lisp)?

Например:

// file 'extensions.c' compiled to 'extensions.so'

cl_object
    do_something
        (cl_object arg)
{
    cl_object
        result = ...;

    return result;
}

; in ECL REPL
(uffi:load-foreign-library #p".../extensions.so")
... ; importing stuff
(format t "got: ~a~%" (do-something "text"))

Как я обнаружил, нет никакого способа сообщить ECL (через UFFI), что функции C имеют дело с cl_object, не обычный указатель (void*),

Answer 1

Похоже, вы не можете сделать это так просто, как в Python. Единственное решение, которое я нашел до сих пор:

extlib.c

#include <stdio.h>
#include <ecl/ecl.h>

static
cl_object
    make_pair
        (cl_object arg)
{
    return cl_cons(arg, arg);
}

void
    init_extlib
        (void)
{
    ecl_def_c_function(
        ecl_read_from_cstring("make-pair"),
        make_pair,
        1
    );
}

Скомпилируйте это:

clang `ecl-config --cflags` extlib.c -shared -fPIC -o extlib.so `ecl-config --libs`

нагрузки extlib.lisp

(uffi:load-foreign-library "~/extlib.so")
(uffi:def-function ("init_extlib" init-extlib)
                   ()
                   :returning :void)
(init-extlib)

Скомпилируйте это:

ecl -compile load-extlib.lisp -o load-extlib.fas

Загрузите и проверьте это:

ecl -load load-extlib.fas
> (make-pair "blah")

("blah" . "blah")