/usr/share/doc/cl-asdf/examples/dll-test.lisp is in cl-asdf 2:3.1.6-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | (defpackage :test-asdf/dll-test (:use)) ;; dummy, for package-inferred-system dependencies.
#+(and ecl (not clasp))
(ffi:clines "
extern int sample_function();
int sample_function()
{
return 42;
}
")
#+clasp (leave-test "Doesn't work on CLASP yet" 0)
#+mkcl
(ffi:clines "
extern MKCL_DLLEXPORT int sample_function(void);
int sample_function(void)
{
return 42;
}
")
|