diff options
| -rw-r--r-- | Lisp/utilities.lisp | 7 |
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) |