From f2927707a802a4518e86ea1f561373a87a0f4f7d Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 20 Feb 2008 17:32:08 +0100
Subject: Collect and register all known Objective-C classes at load time.

darcs-hash:13dc5d5f8a456e4603e7ced00cf52b3e01e273c2
---
 Lisp/class-definition.lisp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Lisp/class-definition.lisp')

diff --git a/Lisp/class-definition.lisp b/Lisp/class-definition.lisp
index 938cf50..51bb12d 100644
--- a/Lisp/class-definition.lisp
+++ b/Lisp/class-definition.lisp
@@ -341,6 +341,14 @@
   class)
 
 
+(defcallback collect-class :void ((class :pointer))
+  (find-objc-class (%objcl-class-name class)))
+
+
+(defun collect-classes ()
+  (%objcl-for-each-class-do (callback collect-class)))
+
+
 ;;;; (@* "Quick tests")
 #+(or)
 (make-instance 'objective-c-class :wrapped-foreign-class "NSString")
-- 
cgit v1.2.3