diff options
Diffstat (limited to 'Lisp/utilities.lisp')
| -rw-r--r-- | Lisp/utilities.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/Lisp/utilities.lisp b/Lisp/utilities.lisp index 3a8e5da..29efb60 100644 --- a/Lisp/utilities.lisp +++ b/Lisp/utilities.lisp @@ -22,6 +22,14 @@ (invoke y :is-equal x))))) +(defun objc-typep (x class-designator) + (objc-eql (invoke x 'class) + (etypecase x + (class x) + (id (invoke x 'class)) + ((or string symbol) (find-objc-class class-designator t))))) + + (defmethod objc-eql (x y) (cl:eql x y)) |