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

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

int sample_function()
{
9
        return 42;
10 11
}
")
12

Francois-Rene Rideau's avatar
Francois-Rene Rideau committed
13 14
#+clasp (leave-test "Doesn't work on CLASP yet" 0)

15 16 17 18 19 20
#+mkcl
(ffi:clines "
extern MKCL_DLLEXPORT int sample_function(void);

int sample_function(void)
{
21
        return 42;
22 23
}
")