From cfb36ab13d53f2d9134ff6d1a3569eb8d192940b Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Tue, 7 Aug 2007 17:36:51 +0200
Subject: Rename EQUAL to OBJC-EQUAL, remove EQUALP, and add OBJC-EQL.

darcs-hash:cdfa90ce969b54473cb0aef9c5ac29ecd81c1da4
---
 Lisp/utilities.lisp | 89 +++++++++++++++++++++++++++--------------------------
 1 file changed, 46 insertions(+), 43 deletions(-)

(limited to 'Lisp/utilities.lisp')

diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp
index 9867dc0..3a8e5da 100644
--- a/Lisp/utilities.lisp
+++ b/Lisp/utilities.lisp
@@ -1,8 +1,8 @@
 (in-package #:mulk.objective-cl)
 
 
-(defgeneric equal (x y))
-(defgeneric equalp (x y))
+(defgeneric objc-eql (x y))
+(defgeneric objc-equal (x y))
 
 
 (defun truep (b)
@@ -10,6 +10,10 @@
            (null b))))
 
 
+(defun id-eql (x y)
+  (pointer-eq (pointer-to x) (pointer-to y)))
+
+
 (defun id-equal (x y)
   (truep (if (typep x '(or id objc-class exception))
              (invoke x :is-equal y)
@@ -18,64 +22,63 @@
                (invoke y :is-equal x)))))
 
 
-(defmethod equal (x y)
-  (cl:equal x y))
+(defmethod objc-eql (x y)
+  (cl:eql x y))
 
-(defmethod equal ((x id) y)
-  (id-equal x y))
+(defmethod objc-eql ((x id) y)
+  (id-eql x y))
 
-(defmethod equal (x (y id))
-  (id-equal x y))
+(defmethod objc-eql (x (y id))
+  (id-eql x y))
 
-(defmethod equal ((x objc-class) y)
-  (id-equal x y))
+(defmethod objc-eql ((x objc-class) y)
+  (id-eql x y))
 
-(defmethod equal (x (y objc-class))
-  (id-equal x y))
+(defmethod objc-eql (x (y objc-class))
+  (id-eql x y))
 
-(defmethod equal ((x exception) y)
-  (id-equal x y))
+(defmethod objc-eql ((x exception) y)
+  (id-eql x y))
 
-(defmethod equal (x (y exception))
-  (id-equal x y))
+(defmethod objc-eql (x (y exception))
+  (id-eql x y))
 
-(defmethod equal ((x selector) (y selector))
-  (equal (selector-name x) (selector-name y)))
+(defmethod objc-eql ((x selector) (y selector))
+  (eql (selector-name x) (selector-name y)))
 
-(defmethod equal ((x selector) (y string))
-  (equal (selector-name x) y))
+(defmethod objc-eql ((x selector) (y string))
+  (eql (selector-name x) y))
 
-(defmethod equal ((x string) (y selector))
-  (equal x (selector-name y)))
+(defmethod objc-eql ((x string) (y selector))
+  (eql x (selector-name y)))
 
 
-(defmethod equalp (x y)
-  (cl:equalp x y))
+(defmethod objc-equal (x y)
+  (cl:equal x y))
 
-(defmethod equalp ((x id) y)
-  (equal x y))
+(defmethod objc-equal ((x id) y)
+  (id-equal x y))
 
-(defmethod equalp (x (y id))
-  (equal x y))
+(defmethod objc-equal (x (y id))
+  (id-equal x y))
 
-(defmethod equalp ((x objc-class) y)
-  (equal x y))
+(defmethod objc-equal ((x objc-class) y)
+  (id-equal x y))
 
-(defmethod equalp (x (y objc-class))
-  (equal x y))
+(defmethod objc-equal (x (y objc-class))
+  (id-equal x y))
 
-(defmethod equalp ((x exception) y)
-  (equal x y))
+(defmethod objc-equal ((x exception) y)
+  (id-equal x y))
 
-(defmethod equalp (x (y exception))
-  (equal x y))
+(defmethod objc-equal (x (y exception))
+  (id-equal x y))
 
-;; FIXME: Does this even make sense?
-(defmethod equalp ((x selector) (y selector))
-  (equalp (selector-name x) (selector-name y)))
+(defmethod objc-equal ((x selector) (y selector))
+  (equal (selector-name x) (selector-name y)))
 
-(defmethod equalp ((x selector) (y string))
-  (equalp (selector-name x) y))
+(defmethod objc-equal ((x selector) (y string))
+  (equal (selector-name x) y))
 
-(defmethod equalp ((x string) (y selector))
-  (equalp x (selector-name y)))
+(defmethod objc-equal ((x string) (y selector))
+  (equal x (selector-name y)))
-- 
cgit v1.2.3