diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 12:30:37 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 12:30:37 +0100 |
| commit | a28a7dbb793b69dc8a174bc124d16fc3532c388f (patch) | |
| tree | 227854e211fbb5f1b40ebf7ebb427a41505e2057 /Lisp/libobjcl.lisp | |
| parent | 9140c528f4036484a8f0473190aaaddbe3c2b5d7 (diff) | |
Objective-C layer: Add objcl_for_each_class_do.
darcs-hash:4314d5bd41bf313fc50049b5e839aa09e5d94d19
Diffstat (limited to 'Lisp/libobjcl.lisp')
| -rw-r--r-- | Lisp/libobjcl.lisp | 4 |
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) |