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/utilities.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Lisp/utilities.lisp')

diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp
index ef658f2..ccf80cf 100644
--- a/Lisp/utilities.lisp
+++ b/Lisp/utilities.lisp
@@ -257,12 +257,12 @@ invocations will return numbers.)
               (cffi:pointer-address pointer)))))
 
 
-(defmethod print-object ((meta-class objc-meta-class) stream)
+(defmethod print-object ((meta-class objective-c-meta-class) stream)
   (print-unreadable-object (meta-class stream)
-    (with-slots (meta-class-for-class pointer) meta-class
+    (with-slots (pointer) meta-class
       (format stream "~S ~A {~X}"
               (type-of meta-class)
-              (objc-class-name meta-class-for-class)
+              (class-name meta-class)
               (cffi:pointer-address pointer)))))
 
 
-- 
cgit v1.2.3