diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 19:11:42 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-20 19:11:42 +0100 |
| commit | c83595ccc398cd165a6c8dfa2344506e19dafbcd (patch) | |
| tree | aa4b0a8d2a312f83443bc9b52be558ba9de8aded /Lisp/data-types.lisp | |
| parent | abc3f637fa3e90cf361dfb00b4af15d2fce61a26 (diff) | |
Assign the metaclasses of metaclasses correctly.
darcs-hash:e393681b86a1b90b8023281fea1cff5b8fa33a44
Diffstat (limited to 'Lisp/data-types.lisp')
| -rw-r--r-- | Lisp/data-types.lisp | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 3de1185..432091a 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -170,7 +170,12 @@ a suitable class method instead as you would in Objective-C. "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) + ((fake-p :type boolean + :initform nil + :initarg :fake-p + :accessor metaclass-fake-p + :documentation "Whether the class is a fake metaclass."))) (define-condition exception (error) |