From 3d0e2eda9285b91a998b86cb72c806c2aa5d789e Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sat, 2 Feb 2008 23:26:55 +0100 Subject: Replace all occurrences of OBJC-CLASS with OBJECTIVE-C-CLASS. darcs-hash:1ba389d5a50343a134892bde78ba62e21842f684 --- Lisp/utilities.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'Lisp/utilities.lisp') 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))))) -- cgit v1.2.3