Automatically turn Lisp strings into C strings.

darcs-hash:cc13d5beb528f8acdeb30bfdda0359ff237a6b09

1 files changed, 1 insertions, 0 deletions

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)))