From 9db618bedb91bccb935f025f45094fd20ec754ef Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 14 Sep 2007 16:56:39 +0200
Subject: Code reorganisation.

darcs-hash:be8c8af8504b2ce63cde33a893542d3590abd703
---
 Lisp/utilities.lisp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'Lisp/utilities.lisp')

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))
 
-- 
cgit v1.2.3