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

diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c
index 121a40b..8add020 100644
--- a/src/runtime/alloc.c
+++ b/src/runtime/alloc.c
@@ -131,10 +131,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);