From 41c27397a17b2a0b6c35a4eaff05ddf1b73b25ae Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 7 Aug 2007 17:09:50 +0200 Subject: Make ID-EQUAL more robust. darcs-hash:98e0524771d3c6d8f6493d794b2a9d40ef382451 --- Lisp/utilities.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Lisp') diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp index a82e123..9867dc0 100644 --- a/Lisp/utilities.lisp +++ b/Lisp/utilities.lisp @@ -11,8 +11,11 @@ (defun id-equal (x y) - (declare (type (or id objc-class exception) x y)) - (truep (invoke x :is-equal y))) + (truep (if (typep x '(or id objc-class exception)) + (invoke x :is-equal y) + (progn + (assert (typep y '(or id objc-class exception))) + (invoke y :is-equal x))))) (defmethod equal (x y) -- cgit v1.2.3