diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-16 23:06:53 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-16 23:06:53 +0100 |
| commit | 61cf033c065e1de06524d29e246926985d0c06b6 (patch) | |
| tree | 6c4fa9c47776a23169740faca5dab2b881d006d0 /Lisp/data-types.lisp | |
| parent | c61f86dce1eb244fb775e74043070e32e6fdcaaf (diff) | |
Make INITIALIZE-INSTANCE (OBJECTIVE-C-CLASS ...) create new Objective-C classes upon request.
darcs-hash:14de6de0dace5d7e4aaeae48579326e2e43d6aee
Diffstat (limited to 'Lisp/data-types.lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 9 |
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) |