1 files changed, 15 insertions, 0 deletions
diff --git a/binding.lisp b/binding.lisp
new file mode 100644
index 0000000..a1c1e21
--- /dev/null
+++ b/binding.lisp
@@ -0,0 +1,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))