diff options
| -rw-r--r-- | Lisp/utilities.lisp | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp index b8cfa23..9702fec 100644 --- a/Lisp/utilities.lisp +++ b/Lisp/utilities.lisp @@ -33,11 +33,12 @@ (defun id-equal (x y) - (truep (if (typep x '(or id objc-class exception)) - (primitive-invoke x :is-equal :char y) - (progn - (assert (typep y '(or id objc-class exception))) - (primitive-invoke y :is-equal :char x))))) + (or (id-eql x y) + (truep (if (typep x '(or id objc-class exception)) + (primitive-invoke x :is-equal :char y) + (progn + (assert (typep y '(or id objc-class exception))) + (primitive-invoke y :is-equal :char x)))))) (defun objc-typep (x class-designator) |