From c83595ccc398cd165a6c8dfa2344506e19dafbcd Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Wed, 20 Feb 2008 19:11:42 +0100 Subject: Assign the metaclasses of metaclasses correctly. darcs-hash:e393681b86a1b90b8023281fea1cff5b8fa33a44 --- Lisp/data-types.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Lisp/data-types.lisp') 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) -- cgit v1.2.3