"Hoehle, Joerg-Cyril" <Joerg-Cyril.Hoehle@t-systems.com> writes:
ffi:memory-as is a perfect match for %mem-ref Sure, sure. We would have used it if it were documented. ;-) You didn't read the documentation recently, did you?
Heh. :-)
Something like this? + (let ((cb-fun (get ',name 'clisp-callback-function))) + (when cb-fun (ffi:foreign-free cb-fun))) + (setf (get ',name 'clisp-callback-function) ,cb-var) The comments specifically meant that this would not work, because (foreign-free #.#<FOREIGN-ADDRESS>) -> free(), which is not appropriate, while (foreign-free #.#<FOREIGN-FUNCTION>) lets clisp recognize and free the function.
Yes, exactly. And (type-of cb-var) => FFI:FOREIGN-FUNCTION. CFFI> (defcallback foo :void ()) FOO CFFI> (get 'foo 'cffi-sys::clisp-callback-function) #<FOREIGN-FUNCTION #x004005E4> CFFI> (ffi:foreign-free *) NIL
If so, could these symbols CFFI uses be exported? I'm looking into that.
Thanks! -- Luís Oliveira luismbo (@) gmail (.) com Equipa Portuguesa do Translation Project http://www.iro.umontreal.ca/translation/registry.cgi?team=pt