summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-20 12:30:37 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-20 12:30:37 +0100
commita28a7dbb793b69dc8a174bc124d16fc3532c388f (patch)
tree227854e211fbb5f1b40ebf7ebb427a41505e2057 /Lisp
parent9140c528f4036484a8f0473190aaaddbe3c2b5d7 (diff)
Objective-C layer: Add objcl_for_each_class_do.
darcs-hash:4314d5bd41bf313fc50049b5e839aa09e5d94d19
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/libobjcl.lisp4
1 files changed, 4 insertions, 0 deletions
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)