0.8.12.7: Merge package locks, AKA "what can go wrong with a 3783 line patch?"

[sbcl.git] / src / code / target-c-call.lisp

diff --git a/src/code/target-c-call.lisp b/src/code/target-c-call.lisp
index 5d3efec..3292453 100644 (file)
--- 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)