diff options
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") |