diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 17:32:08 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 17:32:08 +0100 |
| commit | f2927707a802a4518e86ea1f561373a87a0f4f7d (patch) | |
| tree | f7eddeefdb340ce4174360c4b830d105c96d5dcd /Lisp/class-definition.lisp | |
| parent | e647d39511c3e3e158e3046ea3292aaa9145952b (diff) | |
Collect and register all known Objective-C classes at load time.
darcs-hash:13dc5d5f8a456e4603e7ced00cf52b3e01e273c2
Diffstat (limited to 'Lisp/class-definition.lisp')
| -rw-r--r-- | Lisp/class-definition.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
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") |