diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-02 23:49:57 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-02 23:49:57 +0100 |
| commit | 628a01f38931b5cd3b3c1ede19e8b0b5678bf453 (patch) | |
| tree | b51002ff91016a5ec9d276c78c27f649f4d9776f /Lisp/data-types.lisp | |
| parent | 3d0e2eda9285b91a998b86cb72c806c2aa5d789e (diff) | |
Introduce new metaclass OBJECTIVE-C-META-CLASS.
darcs-hash:3d9bf7fb5b37a4089ae3d85493612c6e6abc4469
Diffstat (limited to 'Lisp/data-types.lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 1f33af6..6c696f4 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -93,11 +93,8 @@ a suitable class method instead as you would in Objective-C. ()) -(defclass objc-meta-class (c-pointer-wrapper) - ((meta-class-for-class :type (or null id objective-c-class) - :initarg :meta-class-for-class - :reader meta-class-for-class)) - (:documentation "")) +(defclass objective-c-meta-class (standard-class c-pointer-wrapper) + ()) (define-condition exception (error) |