From aeade98de336b37d14db19484ab2f2844adef556 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Fri, 3 Aug 2007 21:34:20 +0200
Subject: Automatically turn Lisp strings into C strings.

darcs-hash:cc13d5beb528f8acdeb30bfdda0359ff237a6b09
---
 objcl.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/objcl.lisp b/objcl.lisp
index 5fcafd4..bb90c71 100644
--- a/objcl.lisp
+++ b/objcl.lisp
@@ -285,6 +285,7 @@
             (typecase value
               ((or objc-id objc-class objc-selector objc-exception)
                (pointer-to value))
+              (string    (foreign-string-alloc value))
               (otherwise value)))
       (setf type
             (foreign-string-alloc (type-name->type-id type-name)))
-- 
cgit v1.2.3