X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falloc.c;h=d40c2722e569df9733f39b31f2919c35cace7852;hb=c8218514d751c4d777892b79bbf1ca6597f731c0;hp=c78d167335a2d25d758c68b5e6311886d65b5300;hpb=6cbe4d8ba6d7bc469d03a72514c789b1f3944878;p=sbcl.git

diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c
index c78d167..d40c272 100644
--- a/src/runtime/alloc.c
+++ b/src/runtime/alloc.c
@@ -108,7 +108,7 @@ alloc_string(char *str)
 {
     int len = strlen(str);
     lispobj result = alloc_vector(type_SimpleString, len+1, 8);
-    struct vector *vec = (struct vector *)PTR(result);
+    struct vector *vec = (struct vector *)native_pointer(result);
 
     vec->length = make_fixnum(len);
     strcpy((char *)vec->data, str);