X-Git-Url: http://git.kpe.io/?p=uffi.git;a=blobdiff_plain;f=src%2Fstrings.lisp;h=ed3f7e820de6cceb90dc02834edb648189a34dbe;hp=f41113ba416955665ddcb68617c905dca530b85e;hb=6b108d27ffc3f4e08f2529e71911ed02a5310a6d;hpb=79ae1e2eea28653ceee96460004c5381931c5af8

diff --git a/src/strings.lisp b/src/strings.lisp
index f41113b..ed3f7e8 100644
--- a/src/strings.lisp
+++ b/src/strings.lisp
@@ -396,7 +396,8 @@ that LW/CMU automatically converts strings from c-calls."
   (let* ((len (or len (strlen s)))
          (str (make-string len)))
     (declare (fixnum len)
-	     (type (simple-array (signed-byte 8) (*)) str))
+	     (type (simple-array #+lispworks base-char
+                                 #-lispworks (signed-byte 8) (*)) str))
     (dotimes (i len str)
       (setf (aref str i)
 	(uffi:deref-array s '(:array :char) i)))))