diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-07 17:36:51 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-07 17:36:51 +0200 |
commit | cfb36ab13d53f2d9134ff6d1a3569eb8d192940b (patch) | |
tree | 71e228cda2f37b87fc65973af7670d9c4d4c6b69 /Lisp/utilities.lisp | |
parent | 33fa525410ca2d043cdb8409cfd7b79de9f6a69f (diff) |
Rename EQUAL to OBJC-EQUAL, remove EQUALP, and add OBJC-EQL.
darcs-hash:cdfa90ce969b54473cb0aef9c5ac29ecd81c1da4
Diffstat (limited to 'Lisp/utilities.lisp')
-rw-r--r-- | Lisp/utilities.lisp | 89 |
1 files changed, 46 insertions, 43 deletions
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))) |