summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)