From 69cf14b4e5ade03daf57657ad1adafc3275bd5da Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 4 Mar 2008 15:05:14 +0100
Subject: Objective-C layer: Add function objcl_test_foo.

darcs-hash:c52655ddfd12cd8a69285250252705606f3bce35
---
 Lisp/libobjcl.lisp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Lisp/libobjcl.lisp')

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index 797ee1e..ca8e3d8 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -194,6 +194,8 @@
     :int
   (function :pointer))
 
+(defcfun ("objcl_test_foo" objcl-test-foo) :void)
+
 (defcvar *objcl-current-exception-lock* :pointer)
 (defcvar *objcl-current-exception* :pointer)
 
-- 
cgit v1.2.3