summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2007-08-07 17:09:50 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2007-08-07 17:09:50 +0200
commit41c27397a17b2a0b6c35a4eaff05ddf1b73b25ae (patch)
tree115b2d31140e99432d3e71b1bc3e73d62f4e3dcf /Lisp
parent89c02a59d6f2696a5ae1ebc77298fc8137506415 (diff)
Make ID-EQUAL more robust.
darcs-hash:98e0524771d3c6d8f6493d794b2a9d40ef382451
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/utilities.lisp7
1 files changed, 5 insertions, 2 deletions
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)