binding.lisp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(eval-when (:compile-toplevel :load-toplevel :execute)
  (setf ffi:*output-c-functions* t)
  (setf ffi:*output-c-variables* t))

(ffi:def-call-out call-out
  (:language :stdc)
  (:name "call_out")
  (:arguments (value ffi:c-string))
  (:return-type))

(ffi:def-call-in call-in
  (:language :stdc)
  (:name "call_in")
  (:arguments (value ffi:c-string))
  (:return-type))