diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-14 16:56:39 +0200 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2007-09-14 16:56:39 +0200 |
commit | 9db618bedb91bccb935f025f45094fd20ec754ef (patch) | |
tree | b151dd22bc2ec7b0c90b4b56b89f845e7f29ea7e /Lisp/utilities.lisp | |
parent | 9197694fe9fd4eaa6e2c11f0acc92ef60ab6110a (diff) |
Code reorganisation.
darcs-hash:be8c8af8504b2ce63cde33a893542d3590abd703
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)) |