From c31e45dda43e1bf10e66a724cb90d51cd6cfaa26 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Mon, 13 Aug 2007 13:59:04 +0200
Subject: Add a SELECTOR function and use coerced selectors in Objective C code
 rather than strings.

darcs-hash:d10f9eafc3b21bfcfc027a263e8cee007155b89c
---
 Lisp/type-conversion.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Lisp/type-conversion.lisp')

diff --git a/Lisp/type-conversion.lisp b/Lisp/type-conversion.lisp
index bba40e7..42f3a98 100644
--- a/Lisp/type-conversion.lisp
+++ b/Lisp/type-conversion.lisp
@@ -10,6 +10,7 @@
                                 'obj-data-union
                                 (type-name->slot-name type-name))
             (typecase value
+              (symbol (selector value))
               ((or id objc-class selector exception)
                (pointer-to value))
               (string (foreign-string-alloc value))
-- 
cgit v1.2.3