From 628a01f38931b5cd3b3c1ede19e8b0b5678bf453 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sat, 2 Feb 2008 23:49:57 +0100
Subject: Introduce new metaclass OBJECTIVE-C-META-CLASS.

darcs-hash:3d9bf7fb5b37a4089ae3d85493612c6e6abc4469
---
 Lisp/data-types.lisp | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'Lisp/data-types.lisp')

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)
-- 
cgit v1.2.3