X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=src%2Fstrings.lisp;h=d91142747219aee42d7a6abda37e7a64e621e0e5;hb=13635ed2b774e454b90823e085d84aa968da9eb4;hp=b8965b151068cbcee667cb54060abe1648431205;hpb=e808a7bbbdb701b208c9e7f2cc75151a847ff3af;p=uffi.git

diff --git a/src/strings.lisp b/src/strings.lisp
index b8965b1..d911427 100644
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -329,8 +329,9 @@ that LW/CMU automatically converts strings from c-calls."
       (declare (optimize (speed 3) (safety 0)))
       (cond
         (null-terminated-p
-	 (let ((casted (sb-alien:cast
-			(sb-alien:sap-alien sap (* char)) sb-alien:c-string)))
+	 (let ((casted (sb-alien:cast (sb-alien:sap-alien sap (* char))
+				      #+sb-unicode sb-alien:utf8-string
+				      #-sb-unicode sb-alien:c-string)))
 	   (if length
 	       (copy-seq (subseq casted 0 length))
 	       (copy-seq casted))))