diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-02 23:26:55 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-02 23:26:55 +0100 |
| commit | 3d0e2eda9285b91a998b86cb72c806c2aa5d789e (patch) | |
| tree | 05faddca66b1b032d9f2f6464c984a5e0bd68f6e /Lisp/utilities.lisp | |
| parent | 4157d85957b1b89fabf1a55f2896ec58ee6d99d6 (diff) | |
Replace all occurrences of OBJC-CLASS with OBJECTIVE-C-CLASS.
darcs-hash:1ba389d5a50343a134892bde78ba62e21842f684
Diffstat (limited to 'Lisp/utilities.lisp')
| -rw-r--r-- | Lisp/utilities.lisp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp index 6619490..ef658f2 100644 --- a/Lisp/utilities.lisp +++ b/Lisp/utilities.lisp @@ -158,10 +158,10 @@ invocations will return numbers.) ;; matter (it only does so on NeXT/x86, but neither on GNUstep nor on ;; NeXT/ppc32). (or (id-eql x y) - (truep (if (typep x '(or id objc-class exception)) + (truep (if (typep x '(or id objective-c-class exception)) (invoke x :is-equal y) (progn - (assert (typep y '(or id objc-class exception))) + (assert (typep y '(or id objective-c-class exception))) (invoke y :is-equal x)))))) @@ -182,10 +182,10 @@ invocations will return numbers.) (defmethod objc-eql (x (y id)) (id-eql x y)) -(defmethod objc-eql ((x objc-class) y) +(defmethod objc-eql ((x objective-c-class) y) (id-eql x y)) -(defmethod objc-eql (x (y objc-class)) +(defmethod objc-eql (x (y objective-c-class)) (id-eql x y)) (defmethod objc-eql ((x exception) y) @@ -213,10 +213,10 @@ invocations will return numbers.) (defmethod objc-equal (x (y id)) (id-equal x y)) -(defmethod objc-equal ((x objc-class) y) +(defmethod objc-equal ((x objective-c-class) y) (id-equal x y)) -(defmethod objc-equal (x (y objc-class)) +(defmethod objc-equal (x (y objective-c-class)) (id-equal x y)) (defmethod objc-equal ((x exception) y) @@ -248,12 +248,12 @@ invocations will return numbers.) (cffi:pointer-address pointer)))))) -(defmethod print-object ((class objc-class) stream) +(defmethod print-object ((class objective-c-class) stream) (print-unreadable-object (class stream) (with-slots (pointer) class (format stream "~S ~A {~X}" (type-of class) - (objc-class-name class) + (class-name class) (cffi:pointer-address pointer))))) |