dll-test.lisp 293 Bytes
Newer Older
1 2
(defpackage :test-asdf/dll-test (:use)) ;; dummy, for package-system dependencies.

3 4 5 6 7 8 9 10 11
#+ecl
(ffi:clines "
extern int sample_function();

int sample_function()
{
	return 42;
}
")
12 13 14 15 16 17 18 19 20 21

#+mkcl
(ffi:clines "
extern MKCL_DLLEXPORT int sample_function(void);

int sample_function(void)
{
	return 42;
}
")