[Ecls-list] Embedding/ffi question

[Seth Burleigh]

> (ffi:clines
> "
> #include <ecl/ecl.h>
> void my_callback (char* data) {
> 
> cl_funcall(2,c_string_to_object("MY-PACKAGE:MY-CALLBACK"),c_string_to_object(data));
> }
> ")
> 
> (defun init-osc (port) 
>   (cin "init_osc(#0,my_callback)" :int port))
> (defun my-callback (string)
>   ;;do something
> )
> 

woops, meant cl_funcall with a 2 in it