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/utilities.lisp | |
parent | 3d0e2eda9285b91a998b86cb72c806c2aa5d789e (diff) |
Introduce new metaclass OBJECTIVE-C-META-CLASS.
darcs-hash:3d9bf7fb5b37a4089ae3d85493612c6e6abc4469
Diffstat (limited to 'Lisp/utilities.lisp')
-rw-r--r-- | Lisp/utilities.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
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))))) |