X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falloc.c;h=ed6ec54e77ce86c823c9aec6b3b449767fc1c6f0;hb=4ed3f0d08c3a57a6762018d9622f253ab9d0f2b6;hp=121a40b2c8e000bb9e78ef916fd2f9082498e7c7;hpb=e365f2f7a9c66d307b48fee70778f4eaa84bdcc0;p=sbcl.git

diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c
index 121a40b..ed6ec54 100644
--- a/src/runtime/alloc.c
+++ b/src/runtime/alloc.c
@@ -17,6 +17,7 @@
 #include <stdio.h>
 #include <string.h>
 
+#include "genesis/config.h"
 #include "runtime.h"
 #include "os.h"
 #include "sbcl.h"
@@ -131,10 +132,10 @@ alloc_number(long n)
 }
 
 lispobj
-alloc_string(char *str)
+alloc_base_string(char *str)
 {
     int len = strlen(str);
-    lispobj result = alloc_vector(SIMPLE_STRING_WIDETAG, len+1, 8);
+    lispobj result = alloc_vector(SIMPLE_BASE_STRING_WIDETAG, len+1, 8);
     struct vector *vec = (struct vector *)native_pointer(result);
 
     vec->length = make_fixnum(len);