X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-c-call.lisp;h=32924533ca081208422c870d988bd4064a1fef9d;hb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;hp=5d3efec57769a9c592b8ab714136fc58c1186fae;hpb=9d67a20f91f72ec73847e283bcf9b2b4f74b1d25;p=sbcl.git

diff --git a/src/code/target-c-call.lisp b/src/code/target-c-call.lisp
index 5d3efec..3292453 100644
--- a/src/code/target-c-call.lisp
+++ b/src/code/target-c-call.lisp
@@ -42,7 +42,7 @@
     (let ((length (loop for offset of-type fixnum upfrom 0
                         until (zerop (sap-ref-8 sap offset))
                         finally (return offset))))
-      (let ((result (make-string length)))
+      (let ((result (make-string length :element-type 'base-char)))
 	(sb!kernel:copy-from-system-area sap 0
                                          result (* sb!vm:vector-data-offset
                                                    sb!vm:n-word-bits)