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

diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c
index 121a40b..9d9c6d6 100644
--- a/src/runtime/alloc.c
+++ b/src/runtime/alloc.c
@@ -17,9 +17,9 @@
 #include <stdio.h>
 #include <string.h>
 
+#include "sbcl.h"
 #include "runtime.h"
 #include "os.h"
-#include "sbcl.h"
 #include "alloc.h"
 #include "globals.h"
 #include "gc.h"
@@ -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);