(c-declare #< void foo() { puts("foo"); } eot ) (define foo (c-lambda () void "foo")) (foo)