From a28a7dbb793b69dc8a174bc124d16fc3532c388f Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 20 Feb 2008 12:30:37 +0100
Subject: Objective-C layer: Add objcl_for_each_class_do.

darcs-hash:4314d5bd41bf313fc50049b5e839aa09e5d94d19
---
 Lisp/libobjcl.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Lisp/libobjcl.lisp')

diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index 6296c46..a42300e 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -189,6 +189,10 @@
     :int
   (instance :pointer))
 
+(defcfun ("objcl_for_each_class_do" %objcl-for-each-class-do)
+    :int
+  (function :pointer))
+
 (defcvar *objcl-current-exception-lock* :pointer)
 (defcvar *objcl-current-exception* :pointer)
 
-- 
cgit v1.2.3