r10344: 2005-02-22 Kevin Rosenberg (kevin@rosenberg.net)

[uffi.git] / src / strings.lisp

diff --git a/src/strings.lisp b/src/strings.lisp
index b8965b151068cbcee667cb54060abe1648431205..d91142747219aee42d7a6abda37e7a64e621e0e5 100644 (file)
--- 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))))