diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-18 00:50:47 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-18 00:50:47 +0200 |
commit | c93a74f1befea75be769fb47968e67568139954d (patch) | |
tree | 3774752500b8e615f98c10e6245544a7247aeaf2 /Lisp/data-types.lisp | |
parent | f98c79811e81eff07f967f28c108b76a4a7d1343 (diff) |
Objective-C layer: Add functions for dealing with classes and metaclasses.
darcs-hash:9ce15bb5fff3fb127cf4f6b72e70fa58c1cc2345
Diffstat (limited to 'Lisp/data-types.lisp')
-rw-r--r-- | Lisp/data-types.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 533578b..7b07624 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -108,6 +108,13 @@ a suitable class method instead as you would in Objective C. (:documentation "")) +(defclass objc-meta-class (c-pointer-wrapper) + ((meta-class-for-class :type (or null id objc-class) + :initarg :meta-class-for-class + :reader meta-class-for-class)) + (:documentation "")) + + (define-condition exception (error) ((pointer :type c-pointer :accessor pointer-to |