> (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
------------------------------------------------------------------------------
ThinkGeek and WIRED's GeekDad team up for the Ultimate
GeekDad Father's Day Giveaway. ONE MASSIVE PRIZE to the
lucky parental unit. See the prize list and enter to win:
http://p.sf.net/sfu/thinkgeek-promo
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list
