summaryrefslogtreecommitdiff
path: root/Lisp/data-types.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp/data-types.lisp')
-rw-r--r--Lisp/data-types.lisp9
1 files changed, 6 insertions, 3 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index cfbfcfb..6be92d3 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -164,11 +164,14 @@ a suitable class method instead as you would in Objective-C.
(defclass objective-c-class (standard-class c-pointer-wrapper)
- ())
+ ((registered-p :type boolean
+ :accessor foreign-class-registered-p
+ :initform nil
+ :documentation
+ "Whether the class has been registered with the Objective-C runtime.")))
-(defclass objective-c-meta-class (objective-c-class)
- ())
+(defclass objective-c-meta-class (objective-c-class) ())
(define-condition exception (error)