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

3
(in-package :asdf-test)
4

Elias Pipping's avatar
Elias Pipping committed
5
#+(and mkcl os-windows)
6
(ffi:clines "extern __declspec(dllimport) int sample_function(void);")
Elias Pipping's avatar
Elias Pipping committed
7
#-(and mkcl os-windows)
8 9
(ffi:clines "extern int sample_function(void);")

10
(ffi:def-function "sample_function" () :returning :int)