diff options
| -rw-r--r-- | Lisp/data-types.lisp | 47 | ||||
| -rw-r--r-- | Lisp/defpackage.lisp | 1 |
2 files changed, 48 insertions, 0 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 8cff29a..c305d99 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -183,6 +183,53 @@ a suitable class method instead as you would in Objective-C. __invoke__, __invoke-by-name__, __exception__")) +(defgeneric objective-c-class-registered-p (class) + (:documentation "Determine whether a class has been registered with the Objective-C runtime. + +## Arguments and Values: + +*class* --- an **object** of **type** __objective-c-class__. + +Returns: a **boolean**. + + +## Description: + +_objective-c-class-registered-p_ determines whether **class** has been +registered with the Objective-C runtime. It is the only public API +provided by the class __objective-c-class__. + +A class is registered automatically when an instance is first seen by +Objective-CL or when an attempt is made to send a message to it or its +metaclass. + +The effect of attempting to add methods to registered classes is +undefined. Portable programs should therefore avoid it, even though it +may work reliably on some systems (where it can be useful for debugging +and development for portable programs as well). + + +## Examples: + + (define-objective-c-class mlk-my-class () + ((foos :initargs :foos) + (foo-count :foreign-type :int))) ;\"fooCount\" on the foreign side + => #<NS:+MLK-MY-CLASS NS:MLK-MY-CLASS {8080BF8}> + + (objective-c-class-registered-p (find-objc-class 'mlk-my-class)) + => NIL + + (invoke (find-objc-class 'mlk-my-class) 'new) + => #<NS:MLK-MY-CLASS `<MLKMyClass: 0x81de1f8>' {81DE1F8}> + + (objective-c-class-registered-p (find-objc-class 'mlk-my-class)) + => T")) + + +(defmethod objective-c-class-registered-p ((class objective-c-class)) + (foreign-class-registered-p class)) + + (defclass objective-c-class (standard-class c-pointer-wrapper) ((registered-p :type boolean :accessor foreign-class-registered-p diff --git a/Lisp/defpackage.lisp b/Lisp/defpackage.lisp index 7fd6d0c..c14fca9 100644 --- a/Lisp/defpackage.lisp +++ b/Lisp/defpackage.lisp @@ -46,6 +46,7 @@ #:objc-equal #:foreign-value-lisp-managed-p #:foreign-value-pointer + #:objective-c-class-registered-p ;; Macros #+(or) #:define-objc-struct |