diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-07 17:09:50 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-08-07 17:09:50 +0200 |
| commit | 41c27397a17b2a0b6c35a4eaff05ddf1b73b25ae (patch) | |
| tree | 115b2d31140e99432d3e71b1bc3e73d62f4e3dcf | |
| parent | 89c02a59d6f2696a5ae1ebc77298fc8137506415 (diff) | |
Make ID-EQUAL more robust.
darcs-hash:98e0524771d3c6d8f6493d794b2a9d40ef382451
| -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) |